This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's
Your Projects subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.
Project Releases =>
Your Projects
Author |
Message |
|
mr. sir
Newbie
Joined: 21 Feb 2008 Posts: 41
|
Posted: 18 Sep 2008 10:53:02 am Post subject: |
|
|
File Name :: Sweet Snake
Author :: mr. sir
Category :: Ti-83plus Basic Games
Screenshot :: [img]http://www.unitedti.org/index.php?act=downloads&do=imgss&id=362[/img]
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 |
|
Back to top |
|
|
Flameviper
Advanced Newbie
Joined: 05 Jun 2008 Posts: 62
|
Posted: 18 Sep 2008 06:15:10 pm Post subject: |
|
|
Mind posting the source? |
|
Back to top |
|
|
SonicBoom95
Member
Joined: 31 Jan 2008 Posts: 237
|
Posted: 19 Sep 2008 11:52:27 am Post subject: |
|
|
Want the source?
Sourcecoder, by Cemetech. Google it. This is the greatest thing you will ever know.
Last edited by Guest on 19 Sep 2008 11:53:01 am; edited 1 time in total |
|
Back to top |
|
|
mr. sir
Newbie
Joined: 21 Feb 2008 Posts: 41
|
Posted: 19 Sep 2008 02:26:31 pm Post subject: |
|
|
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. |
|
Back to top |
|
|
SonicBoom95
Member
Joined: 31 Jan 2008 Posts: 237
|
Posted: 19 Sep 2008 03:13:48 pm Post subject: |
|
|
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. |
|
Back to top |
|
|
|
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.
»
Go to Registration page