I
’m not going to take credit for this idea by B. Monkey but I made a few minor improvements that you guys might like. There may be some minor variations as I programmed this for the TI-83 Plus. Enjoy anyway! –CW–
[Note: Each line is one line of code on the TI calculator! The “->” uses the STO-> button. The equal-type signs can be found under the “Test” part of the calculator.]
8000->A
8000->B
-1->C
Lbl LP
ClrHome
Disp “Player 1 LP”,A
Disp “”
Disp “Player 2 LP”,B
Disp “”
If A=0
Then
Disp “P1 Loses”
Pause
0->B
0->C
ClrHome
Stop
End
If B=0
Then
Disp “P2 Loses”
Pause
0->A
0->C
ClrHome
Stop
End
If C=-1
Disp “Duel”
0->C
Pause
Lbl MM
ClrHome
Menu(“Main Menu”,”P1”,P1,”P2”,P2,”LP”,LP)
Lbl P1
ClrHome
Menu(“Player 1”,”-LP”,D1,”+LP”,R1)
Lbl P2
ClrHome
Menu(“Player 2”, ”-LP”,D2,”+LP”,R2)
Lbl D1
ClrHome
Disp “Player 1”
Disp “Damage?”
Disp “”
Input C
If C<0 or C≠int(C)
Goto D1
A-C->A
If A≤0
0->A
Goto LP
Lbl R1
ClrHome
Disp “Player 1”
Disp “Restore?”
Disp “”
Input C
If C<0 or C≠int(C)
Goto R1
A+C->A
Goto LP
Lbl D2
ClrHome
Disp “Player 2”
Disp “Damage?”
Disp “”
Input C
If C<0 or C≠int(C)
Goto D2
B-C->B
If B≤0
0->B
Goto LP
Lbl R2
ClrHome
Disp “Player 2”
Disp “Restore?”
Disp “”
Input C
If C<0 or C≠int(C)
Goto R2
B+C->B
Goto LP