(if you would like to know more about this language, you can ask me or my good friend google
ClrHome
Lbl A
ClrHome
Menu(" SNAKE","PLAYThisShit",1)
Lbl T
Pause
Goto A
Lbl 1
AxesOff
FnOff
0üL
0üXmin
94üXmax
0üYmax
ú62üYmin
ClrDraw
50üQ
Lbl C
ClrDraw
Horizontal 0
Vertical 0
Horizontal ú62
Vertical 94
For(X,0,Q)
Pxl-On(randInt(1,62),randInt(1,93)
End
26üR
48üB
32üA
Repeat pxl-Test(Ans,B)/>
Pxl-On(Ans,B)/>
L+1üL
getKey
If Ans:AnsüR
B-(R=24)+(R=26)üB
A-(R=25)+(R=34)üA
End
ClrHome
Output(1,1,"GAME OVER")
Output(4,1,"YOU SUCK...OR")
Output(8,1,"CAUGHT BYTEACHER")
Pause
ClrHome
Output(1,1,"****************")
Output(8,1,"----------------")
Output(4,4,"SCORE:")
Output(4,10,L)
Pause
Goto A
ClrDraw
Lbl E
AxesOn
ClrDraw
ZStandard
ClrHome
Stop

New Topic/Question
Reply



MultiQuote








|