Street Poker
Street Poker
Street Poker is a game created by Luis on his calculator. Programmed to be a mixture of Pokemon, D&D, and Street Fighter, the game has people playing in a turn based fighter game where dice rolls determine your fate. Played many times by Emilie's RC group at Trinity, the game received many positive responses. The programming is as follows:
C-1》C
Prompt B
B》dim (LZ)
B》dim (LPOKE)
Prompt B
If B=1
Then
Prompt B
Fill (B, LPOKE
Fill (1, LZ)
0》C
End
dim (LPOKE》B
While 1
Lbl 0
[[1,0,3,1][4,3,10,4] [15,10,5,0][12,11,15,10][20,11,10,8][17,16,17,4][20,15,20,19]]》[B]
C+1》C
If C=B+1
1》C
If LZ(C)=2
Then
iPart (rand×4》D
If D≠0
Then
1》LZ(C)
Disp "GET UP"
Disp C
End
Goto 0
End
Pause
ClrHome
0》H
If LPOKE(C)≤0
Goto 0
While H<B and B≤14
H+1》H
Disp LPOKE(H)
If B<7 and LZ(H)=2
Output(H,12,"F
End
0》H
While H<B-7 and B≤14 and B>7
H+1》H
Output(H,1,LPOKE(H)
If LZ(H)=2
Output(H,5,"F
End
Output(5,8,C
If B>7 and B≤14
B-7》H
While H<B
H+1》H
If LZ(H)=2
Output(H-B+7,12,"F
End
C》D
While D=C or LPOKE(D)≤0
Prompt D
End
ClrHome
If LZ(D)=1
Disp "STANDING"
If LZ(D)=2
Disp "FALLEN"
Pause
ClrHome
Disp "1:POKE"
Disp "2:JAB POKE
Disp "3:FOOT POKE"
Disp "4:POWER POKE"
Disp "5:SOLE POKE"
Disp "6:SHANK POKE"
Disp "7:FALCON POKE:
0》A
While A<7
0》H
A+1》A
While H<2
H+1》H
Output(A,11+2H,[B](A,H+2(LZ(D)-1))
End
End
Prompt E
iPart(rand*20+1》F
Disp F
0》G
If [B](E,2LZ(D))≥F
-1》G
If [B](E,2LZ(D)-1)≤F
1》G
If G=-1
Then
Disp "FALLEN"
2》LZ(C)
End
If G≤0
Goto 0
[[6,0][6,3][6,5][8,10][10,8][60,0][30,40]]》[B]
Disp "SUCCESS"
Disp "DAMAGE:"
iPart(rand*[B](E,1))+[B](E,2)+1》H
LPOKE(D)-H》LPOKE(D)
Disp H
Pause
Goto 0
The above code works perfectly on TI-83-TI-84+SE devices, the 84+CSE has some graphical errors due to different resolution, the 84+CE is untested. If anyone has an 89, we'd like to see a port! Android app coming soon (if Luis approves) If you want to play without retyping it, Luke has ported it to ASM, and it is available (Untested, for TI-83+ through TI-84+ Silver Edition) at http://71.170.15.105/StreetPoker.8xk , or it is available in the original TI-BASIC code at http://71.170.15.105/STRETPOK.8xp