PasteShr

New Paste Browse

snake on a ti 84 plus
ClrHome
0→G
1→C
1→S
3→X
3→Y
3→V
3→U
2→D
0→T
DelVar [A]
snake on a ti 84 plus How to dowload it? snake on a ti 84 plus
{10,26→dim([A]
For(F,1,5
randInt(1,10→O
randInt(1,26→P
5→[A](O,P
Output(O,P,"*
End
While C and G≠45
Output(Y,X,0
If [A](Y,X)>1
snake on a ti 84 plus PasteShr snake on a ti 84 plus
Then
S+1→S
0→T
While [A](O,P)≠0
randInt(1,10→O
randInt(1,26→P
If [A](Y,X)≠5 or S≥200
0→C
End
5→[A](O,P
snake on a ti 84 plus How to dowload it? snake on a ti 84 plus
Output(O,P,"*
End
getKey→G
If G=24 and D≠2
4→D
If G=25 and D≠3
1→D
If G=26 and D≠4
2→D
If G=34 and D≠1
snake on a ti 84 plus PasteShr snake on a ti 84 plus
3→D
D→[A](Y,X
X+(D=2)-(D=4→X
Y+(D=3)-(D=1→Y
If Y>10 or Y<1 or X>26 or X<1
0→C
Output(V,U," //one space
If T=1
Then
[A](V,U→K
snake on a ti 84 plus How to get it for free? snake on a ti 84 plus
0→[A](V,U
U+(K=2)-(K=4→U
V+(K=3)-(K=1→V
End
1→T
End
ClrHome
Output(4,5,"GAME OVER
If S≥200
Output(4,5,"YOU WIN!!
snake on a ti 84 plus How to get it for free? snake on a ti 84 plus
Output(5,5,"SCORE:
Output(5,12,S
"
snake on a ti 84 plus

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

nuclear powerplant tycoon
Plaintext | 3 | 1 minute ago
animal style livery
Plaintext | 2 | 1 minute ago
minecraft mining turtle commands
Plaintext | 2 | 1 minute ago
kaa snake vore
Plaintext | 2 | 1 minute ago
senran kagura shinovi versus mod
Plaintext | 3 | 1 minute ago
ninja legends hacks chi
Plaintext | 3 | 6 minutes ago
krunker.io hacks 1.8.0
Plaintext | 3 | 6 minutes ago

Paste Settings

Site Languages