Snake Game Explanation

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

Summary:

Would someone explain this snake game?

Snake Game Explanation

Gabe Prairie 22 Apr 2021 14:34

I found a on this website, and would like to understand how it works. Would someone mind explaining how the code works?
Here is the Link: tibasicdev . wikidot . com/snake#toc0
Just remove the spaces
Here is the code:

:26→K
:1.1→B
:{4Ans→A
:ClrHome
:For(A,1,ᴇ2
:randInt(1,16)+.1randInt(1,8→C
:Repeat C=Ans(1
:A→dim(ʟA
:ʟA(1
:Output(10fPart(Ans),int(Ans),"O
:Output(10fPart(B),int(B)," //1 space
:Output(10fPart(C),int(C),"*
:getKey
:If Ans=45
:Goto 0
:If Ans=34 or 2>abs(Ans-25
:Ans→K
:ʟA(A→B
:ʟA(1)+(K=26)-(K=24)+.1((K=34)-(K=25
:If max(ʟA=Ans
:Goto 0
:Ans+16(not(int(Ans))-(17=int(Ans)))+.8(not(fPart(Ans))-(.9=fPart(Ans
:augment({Ans},ʟA→A
:End
:augment(Ans,{Ans(A→A
:End
:Lbl 0
:ClrHome
:A

Thanks!

Re: Snake Game Explanation

lilyoy 22 Apr 2021 16:21

You use the arrow keys to move the snake. Turn the snake toward the dash (*) when you "eat" it the snake gets bigger. The game will end if either the snake hits the side of itself or the wall (in this case, edge of the screen).

Re: Snake Game Explanation

Gabe Prairie 22 Apr 2021 16:47

I know how to play it, I would like to understand what the code does to make that happen.