0 Members and 4 Guests are viewing this topic.
On second thought, you could use some of the routines here, if you give the author credit. Click the link, and then search "input" to find the good stuff
:.ROBOGUN:DiagnosticOff:[FCFC000000000000]→Pic2:[081C2A4908080808]→Pic0:[F080800000000000]→Pic1:[FCA0A02000000000]:[FFFCA0A080000000]:[FCFFFC4848484000]:[F8FFFFF848484850]:[F8FFFFFFFC6C6C6C]:[Pic9]→Pic8:Fix 5:Repeat getKey(15):copy(Pic8,L6,768):Text(35,1,"RoboGun"):Text(1,55,"New Game":Text(60,55,"Load Game":Pt-On(75,47,RotC(Pic0):Pt-On(12,48,RotCCPic0):If getKey(2):Goto N:End:If getKey(3):Goto L:End:DispGraph:End:Lbl L:ClrDraw:Goto 1:Lbl N:0→G:1→L:Lbl 1:43→X:0→M:27→Y:Repeat getKey(15):ClrDraw:If getKey(2):X--:End:If getKey(3):X++:End:If getKey(1):Y++:End:If getKey(4):Y--:End:If getKey(48):0→R:End:If getKey(40):1→R:End:If getKey(54):1→F:End:If R:Pt-On(X,Y,Pic1+L*8):Else:Pt-On(X,Y,FlipH(Pic1+L*8):End:If F:X+4→S:Y+1→T:Pt-On(S,T,Pic2:0→F:1→M:End:If M:If R:S++:End:!If R:S--:End:Pt-On(S,T,Pic2):If S=94 or S=0:0→M:1→F:End:End:End:Fix 4