Michael Wheeler

I decided to work on the afraid round orbin script, it now checks that a particular port is open on the hosts so that it can certain that its alive, if it isn’t, it just puts in the fillers ip. Described better in the file, and doesn’t use wget, stupid me.

Imported Deadlink here.

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

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

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.

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