0 Members and 1 Guest are viewing this topic.
Will upload here in a sec...
:.TIO Turn it off:[F0F0F0F000000000]→Pic1:DiagnosticOff:ClrDraw:0→C→M-1→D:For(A,0,23:A*4→X:For(B,0,15:D+1→D:B*4→Y:If rand^9^2:Pt-On(X,Y,Pic1:2→{L1+D}:C+1→C:Else:1→{L1+D}:End:End:End:rand^23→X:rand^15→Y:Y*24+X→D:Lbl 1:!If C:ClrHome:Disp "WIN":Pause 1900:Return:End:Repeat getKey(15):Repeat getKey(0):ReturnIf getKey(15):For(A,0,9:Pt-Change(X*4,Y*4,Pic1:DispGraph:ReturnIf getKey(15):End:If getKey(54):ClrHome:Disp "C",C►Dec," D",D►Dec,i,"X",X►Dec," Y",Y►Dec,i,"L1+D",{L1+D}►Dec:While getKey(54):Pause 10:End:End:End:If getKey(2) and (X>0):While getKey(2):Pause 10:End:D-1→D:X-1→X:sub(D):Goto 1:End:If getKey(3) and (X<23):While getKey(3):Pause 10:End:D+1→D:X+1→X:sub(D):Goto 1:End:If getKey(1) and (Y<15):While getKey(1):Pause 10:End:D+24→D:Y+1→Y:sub(D):Goto 1:End:If getKey(4) and (Y>0):While getKey(4):Pause 10:End:D-24→D:Y-1→Y:sub(D):Goto 1:End:End:Return:::Lbl D:If {L1+D}=1:2→{L1+D}:C+1→C:End:If {L1+D}=2:1→{L1+D}:C-1→C:End:Pt-Change(X*4,Y*4,Pic1.Return
Is it a game where you must turn OFF all blocks successfully?