The United-TI Forum is Read-Only.

18 Sep 2008 10:53:02 am by mr. sir
File Name :: Sweet Snake Author :: mr. sir Category :: Ti-83plus Basic Games Screenshot :: Description :: This is my version of snake. It's pretty fast and does not slow down as more and more pieces are eaten. The food are pixels, so if you would like to play it, make sure you can see every pixel. There is a "teacher key", so to speak, which is the delete button. You press it if the teacher is coming, and press 1 to save, and the screen clears. The deal with the prgmABC is in the readme, so don't ask what it is. I created this program, so please do not say that you did. If you do, I will not come after you or even find out about it. But I would be sad if I did find out about it, and you don't want to take that risk. So just don't plagiarize it. View File

18 Sep 2008 06:15:10 pm by Flameviper
Mind posting the source?

19 Sep 2008 11:52:27 am by SonicBoom95
Want the source? Sourcecoder, by Cemetech. Google it. This is the greatest thing you will ever know.

19 Sep 2008 02:26:31 pm by mr. sir
The program was unlocked; just look in there. But if you'd rather not download my program, then: Code: Program: SNAKE :AxesOff :StoreGDB 5 :FnOff :ClrDraw :SetUpEditor AWES,BADE :If dim(LAWES :Then :For(C,1,dim(LAWES)-1 :Pxl-On(LAWES(C),LBADE(C)) :End :LAWES(dim(LAWES->A :LBADE(dim(LBADE->B :dim(LAWES)-1 :Ans->dim(LAWES) :Ans->dim(LBADE) :Else :Pxl-On(1,94) :34->M :1->LAWES(1 :94->LBADE(1 :int(63rand->A :int(95rand->B :End :Asm(prgmABC :While 1 :Pxl-On(A,B :getkey :If Ans=24 or Ans=25 or Ans=26 or Ans=34 :Ans->M :While not(pxl-Test(LAWES(1)+(M=34)-(M=25) -63(LAWES(1)=62)(M=34)+63(LAWES(1)=0)(M=25),LBADE(1)+(M=26)-(M=24)-95(LBADE(1)=94)(M=26)+95(LBADE(1)=0)(M=24) :augment({LAWES(1)+(M=34)-(M=25)-63(LAWES(1)=62)(M=34)+63(LAWES(1)=0)(M=25)},LAWES->LAWES :augment({LBADE(1)+(M=26)-(M=24)-95(LBADE(1)=94)(M=26)+95(LBADE(1)=0)(M=24)},LBADE->LBADE :Pxl-On(LAWES(1),LBADE(1 :Pxl-Off(LAWES(dim(LAWES)),LBADE(dim(LBADE)) :dim(LAWES)-1 :Ans->dim(LAWES :Ans->dim(LBADE :getkey :If(Ans=24 or Ans=25 or Ans=26 or Ans=34) and ((226Ans-5684)/(9Ans-226)!=M or dim(LBADE)=1) :Ans->M :If Ans=23 :Goto A :End :If (LAWES(1)+(M=34)-(M=25)-63(LAWES(1)=62)(M=34)+63(LAWES(1)=0)(M=25)!=A) or (LBADE(1)+(M=26)-(M=24)-95(LBADE(1)=94)(M=26)+95(LBADE(1)=0)(M=24)!=B) :Then :Lbl A :Clrhome :Disp dim(LAWES :If Ans=23 :Then :Disp "SAVE?" :Disp "1=YES :Disp "2=NO :0 :Repeat Ans=92 or Ans=93 :getkey :End :If Ans=93 :Then :Delvar LAWESDelvar LBADE :Else :A->LAWES(dim(LAWES)+1 :B->LBADE(dim(LBADE)+1 :End :Clrhome :Output(1,1," :Else :Delvar LBADEDelvar LAWES :End :FnOn :RecallGDB 5 :Delvar GDB5 :Stop :End :augment({LAWES(1)+(M=34)-(M=25)+63(M=25)(LAWES(1)=0)-63(M+#$)(LAWES(1)=62)},LAWES->LAWES :augment({LBADE(1)+(M=26)-(M=24)+95(M=24)(LBADE(1)=0)-95(M=26)(LBADE(1)=94)},LBADE->LBADE :Repeat not(pxl-Test(A,B :int(63rand->A :int(95rand->B :End :End prgmABC is just the runindicatoroff program. I'm sorry if this stretches all the way across the screen.

19 Sep 2008 03:13:48 pm by SonicBoom95
The problem is that some of us can't download, for various reasons. Don't try to suggest something to me, it's a problem you can't solve. Great program.

The United TI Forum is Read-Only.