You can also copy & paste this code in a program called 'TI-Coder 1.0' www.ticalc.org You can make programs with it. HERE IS THE CODE WITH SPECIAL LETTERS: ************************** http//img185.imageshack.us/img185/8341/yourfirstsnake.jpg ************************** Here is the code in text ( errors!! ) ************************** 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 ****************************
No comments:
Post a Comment