Michael Wheeler » calc

I bring you snake for Ti-83

Michael Wheeler — Wed, 07 Mar 2007 10:40:00 +0000

Well, kinda. This is more like the opposite of snake for Ti-83. The idea of the game is to dodge all the blocks that appear and your own tail which is never ending… The code is fairly alright although it was programed over sevral classes so it could be a little bit buggy. Most of the code is spent building the wars and detecting keystrokes, if anyone has a better way to do it please tell me. I find it hard to code clean on these things as you can’t alot of code and it’s annoying to edit it. No copy and pasta on these things. Anyway here it is, I’ll proberly realse the pretyped up version inwhich you can upload using a link cable later tonight. Oh and same notation as snake, [sto] are the little arrow button and watch out for negatives and subractions.

ClrDraw
ClrTable
AxesOff
For(B,1,94)
Pxl-On(0,B)
End
For(C,1,61)
Pxl-On(C,94)
End
For(D,94,1,-1)
Pxl-On(62,0)
End
For(A,62,1,-1)
Pxl-On(A,1)
End
randInt(61,1)[sto]X
randInt(93,1)[sto]Y
0[sto]S
2[sto]D
26[sto]K
While 1
getKey[sto]K
If K=34
3[sto]D
If K=26
2[sto]D
If K=24
4[sto]D
If K=25
1[sto]D
If D=2
Y+1[sto]Y
If D=3
X+1[sto]X
If D=4
Y-1[sto]Y
If D=1
X-1[sto]X
S+1[sto]S
If pxl-Test(X,Y)=1
Then
AxesOn
ClrDraw
ClrHome
Disp “YOUR SCORE WAS”
Disp S
Stop
End
Pxl-On(X,Y)
Pxl-On(randInt(61,1),randInt(93,1))
End

Pong 2.0

Michael Wheeler — Sat, 17 Feb 2007 10:12:00 +0000

Here it is pong 2 .

0[sto]W
0[sto]S
1[sto]B
3[sto]Y
7[sto]X
-1[sto]L
-1[sto]M
0[sto]C
2[sto]Q
While 1
getKey[sto]K
If K=26
Then
If B<13+W
Then
B+1[sto]B
End
End
If K=24
Then
If B>1
Then
B-1[sto]B
End
End
ClrHome
If W=0
Then
Output(8,B,”^^^^”)
End
If W=1
Then
Output(8,B,”^^^”)
End
Output(Y,X,”O”)
If C=Q
Then
Output(Y,X,”O”)
0[sto]C
X+M[sto]X
Y+L[sto]Y
If Y=0
Then
2[sto]Y
L*-1[sto]L
End
If X=0
Then
2[sto]X
M*-1[sto]M
End
If X=17
Then
15[sto]X
M*-1[sto]M
End
If Y=7
Then
If X>=B
Then
If W=0
Then
If X<=B+3
Then
S+1[sto]S
L*-1[sto]L
End
End
If W=1
Then
If X<=B+2
Then
S+1[sto]S
L*-1[sto]L
End
End
End
End
If Y=8
Then ClrHome
Disp “You Lose”
Disp “You score was”
Disp S
Stop
End
End
1+C[sto]C
If S=5
1[sto]Q
If S=20
1[sto]W
End

Emulate Pong on TI 83

Michael Wheeler — Sat, 17 Feb 2007 10:11:00 +0000

This isn’t a tutorial just a summary on howto do it.
Emulator – http://www.ticalc.org/archives/files/fileinfo/84/8442.html
ROM – http://www.theoldcomputer.com/Libarary’s/Emulation/BIOS_Roms/ti83rom.zip
File to upload rather than typing out the whole game if you ask me nicely via email

Pong 2.0

Michael Wheeler — Thu, 15 Feb 2007 10:13:00 +0000

I now have Pong 2 which has sevral bug fixes, larger play area and the bat gets smaller at a certain level. Shall post code here when I feel like it, it’s so hard to copy out stuff on these calc, anyway, my next target is SNAKE.

PONG

Michael Wheeler — Wed, 14 Feb 2007 10:14:00 +0000

This is pong for the Ti-83 calulator and works on TI-83 plus, should work on most TI calculators I guess but i havn’t tested it.Oh and [sto] will represent the sto arrow. DO NOT TYPE IT ALL IN ALPHA, REFER TO MANUAL IF NEED BE.

0[sto]S
1[sto]B
3[sto]Y
7[sto]X
-1[sto]L
-1[sto]M
0[sto]C
2[sto]Q
While 1
getKey[sto]K
If K=26
Then
If B<13
Then
B+1[sto]B
End
End
If K=24
Then
If B>1
Then
B-B[sto]B
End
End
ClrHome
Output(7,B,”MMMM”)
Output(Y,X,”O”)
If C=Q
Then
Output(Y,X,”O”)
Output(1,1,5)
0[sto]C
X+M[sto]X
Y+L[sto]X
If Y=0
Then
1[sto]Y
L*-1[sto]L
X-M[sto]X
End
If X=0
Then
1[sto]X
M*-1[sto]M
Y-L[sto]Y
End
If X=17
Then
16[sto]X
M*-1[sto]M
Y-L[sto]Y
End
If Y=7
Then
If X>=B
Then
If X<=B+3
Then
S+1[sto]S
L*-1[sto]L
End
End
End
If Y=8
Then ClrHome
Disp “You Loose”
Stop
End
End
1+C[sto]C
If S=5
1[sto]Q
End