Optimization
I need help optimizing this part of code for a game. Especially the Lbl G1 to If K. Let me know if you need more code to help.
:Lbl G0
:47→X:-54→Z
:randInt(0,-8→D:randInt(24,70→N
:randInt(-13,-21→E:randInt(24,70→O
:randInt(-26,-34→F:randInt(24,70→P
:randInt(-39,-47→G:randInt(24,70→Q
:randInt(-52,-60→H:randInt(24,70→R
:Vertical 14
:Vertical 76
:For(A,1,61,3
:Pt-On(randInt(1,11),-A,3
:Pt-On(randInt(77,92),-A,3
:End
:Text(-1,28,33,”READY
:rand(34
:Text(-1,28,33,” SET
:rand(34 //1 space either side of ‘SET’
:Text(-1,28,33,” GO! and ‘GO!’
:rand(16
:Text(-1,28,33,” //6 spaces
:Lbl G
:Line(X,Z-1,X-2,Z-7,0
:Line(X,Z-1,X+2,Z-7,0
:Line(X,Z,X,Z-8,0
:getKey→C
:V-M(Ans=24)+M(Ans=26→V
:If C=34:0→V
:If C=23:Then
:Text(-1,28,30,”PAUSED
:Text(36,32,”SCORE:”,S
:Pause
:Text(-1,28,30,” //6 spaces
:Text(-1,36,32,” //6 spaces
:End
:X+V→X
:C=25->K
:If Ans
:Vertical X
:If X≥74 or X≤16
:Goto E
:Line(X,Z-1,X-2,Z-7
:Line(X,Z-1,X+2,Z-7
:Line(X,Z,X,Z-8
:Lbl G1
:S+T→S
:If D≥L:Then
:Text(int(D-L),N,”
:Text(int(D),N,”V
:End
:If E≥L:Then
:Text(int(E-L),O,”
:Text(int(E),O,”V
:End
:If F≥L:Then
:Text(int(F-L),P,” //3 spaces
:Text(int(F),P,”V
:End
:If G≥L:Then
:Text(int(G-L),Q,”
:Text(int(G),Q,”V
:End
:If H≥L:Then
:Text(int(H-L),R,”
:Text(int(H),R,”V
:End
:If K:Then:
:randInt(4,8→A
:randInt(24,70->B
:Line(X,Z+1,X,62,0
:If (N≤X)(X≤N+2)(D≥0:Goto GD
:If (O≤X)(X≤O+2)(E≥0:Goto GE
:If (P≤X)(X≤P+2)(F≥0:Goto GF
:If (Q≤X)(X≤Q+2)(G≥0:Goto GG
:If (R≤X)(X≤R+2)(H≥0:Goto GH
:Else:End
:Lbl G2
:D+L→D:E+L→E:F+L→F:G+L→G:H+L→H:L+W→L
:If D≥58 or E≥58 or F≥58 or G≥58 or H≥58:Goto E
:Goto G