0 Members and 3 Guests are viewing this topic.
:.JUMP:[1C141C080C081C22]→Pic0MR:[3828381030103844]→Pic0ML:1→D:0→J:40→X:55→Y:Lbl 1:Line(0,63,95,63):Line(0,0,0,63):Line(95,0,95,63):Line(0,0,95,0):Line(0,50,25,50):Line(25,50,25,63):Line(70,50,95,50):Line(70,50,70,63)::Repeat getKey(15):If getKey(2) and (pxl-Test(X,Y+7)≠1):X-1→X:2→D:End:If getKey(3) and (pxl-Test(X+7,Y+7)≠1):X+1→X:1→D:End:If getKey(4) and (pxl-Test(X+1,Y+8) or pxl-Test(X+8,Y+8) and (S≠1)):15→J:End:If (J>0):Y-1→Y:J-1→J:End:If (pxl-Test(X+8,Y+8) or pxl-Test(X+1,Y+8)=0) and (J=0):Y+1→Y:End:If (D=1):Pt-Change(X,Y,Pic0MR):Pause 20:End:If (D=2):Pt-Change(X,Y,Pic0ML):Pause 20:End:DispGraph:If (D=1):Pt-Change(X,Y,Pic0MR):End:If (D=2):Pt-Change(X,Y,Pic0ML):End:End
:.JUMP:[1C141C080C081C22]→Pic0MR:[3828381030103844]:1→D-1->J:40→X:55→Y:Lbl 1:Line(0,63,95,63):Line(0,,,63):Line(95,0,95,63):Line(0,,95,0):Line(0,50,25,50):Line(25,50,25,63):Line(70,50,95,50):Line(70,50,70,63):Repeat getKey(15):If getKey(2) and (pxl-Test(X,Y+7)≠1):X--:2→D:End:If getKey(3) and (pxl-Test(X+7,Y+7)≠1):X++:1→D:End:If getKey(4) and (pxl-Test(X+1,Y+8) or pxl-Test(X+8,Y+8) and (S≠1)):15→J:End:If J>0:Y--:J--:End:If (pxl-Test(X+8,Y+8) or pxl-Test(X+1,Y+8)=0) and (J=0):Y++:End:For(Z,0,1):Pt-Change(X,Y,D*8+Pic0MR:!If Z:DispGraph:Pause 20:End:End:End