Street Poker

From the archives of TiPWiki, the unofficial Duke TIP Wiki
Jump to: navigation, search

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