[K0DE]
******************************************************************************
Rock,Paper and Scissors (RPS) for the TI-80 (544 bytes)
By Mindless Ape [K0DE]
Simple Rock Paper Scissors games for the TI-80, menu-based.
You get 1 point if you win the round, lose 1 point if the CPU beats you and
you get 0.5 points on the event of a tie. IF you DON'T HAVE ENOUGH MEMORY,
you can abreviate all the words. Please, don't distribute this game under
your name... It took me less than 15 minutes to do it but still, if you're
not able to do one, at least try not to steal MY or any other people's game.
This program uses only 4 variables:
S : Score
M : My choice (1-3)
C : CPU choice (1-3)
W : Who won the round (1= CPU,2= Player, 3= Tie)
Mindless Ape [K0DE]
v1.0 07/27/97 First version
veilleux@netrover.com
******************************************************************************
PROGRAM:RPS
:LBL 1
:CLRHOME
:0->S
:DISP " *ROCK*"," *PAPER*"," *SCISSORS*"," "," -=BY=-",
" MINDLESS APE"," (PRESS A KEY)"
:PAUSE
:LBL 2
:CLRHOME
:0->W
:RANDINT(1,3)->C
:LBL 3
:DISP "SCORE:",S
:DISP " ","1-ROCK","2-PAPER","3-SCISSORS"
:INPUT "CHOICE: ",M
:IF M<1
:STOP
:IF M>3
:GOTO 3
:CLRHOME
:DISP "YOU CHOSE:"
:IF M=1
:DISP "ROCK"
:IF M=2
:DISP "PAPER"
:IF M=3
:DISP "SCISSORS"
:DISP " "
:DISP "CPU CHOSE:"
:IF C=1
:DISP "ROCK"
:IF C=2
:DISP "PAPER"
:IF C=3
:DISP "SCISSORS"
:IF C=1:THEN
:IF M=1
:3->W
:IF M=2
:2->W
:IF M=3
:1->W
:END
:IF C=2:THEN
:IF M=1
:1->W
:IF M=2
:3->W
:IF M=3
:2->W
:END
:IF C=3:THEN
:IF M=1
:2->W
:IF M=2
:1->W
:IF M=3
:3->W
:END
:DISP " "
:IF W=1:THEN
:DISP "CPU WINS!!!"
:S-1->S
:END
:IF W=2:THEN
:DISP "YOU WIN!!!"
:S+1->S
:END
:IF W=3:THEN
:DISP "TIE..."
:S+0.5->S
:END
:PAUSE
:GOTO 2