I have managed to create a program that can do Rock Paper Scissors Lizard Spock properly.
I derived most of the code from the Rock Paper Scissors code I posted ~50 minutes ago.
All changes made will be denoted with a comment. (Comments start with a semicolon)
:ClrHome
:Disp "PAPER - SCISSORS
:Input "ROUNDS:",I
:For(I,1,I
:ClrHome
:Disp "CHOOSE WEAPON:
:Disp "1) ROCK","2) PAPER","3) SCISSORS","4) LIZARD","5) SPOCK ;Added options 4 and 5
:Repeat 4>abs(Ans-4 ;Changed the 2's to 4's
:getKey→J
:If max(J={92,93,94:Then ;Added this If-Then-Else statement
:J-91→J
:Else:If max(J={82,83
:J-81+3→J ;The +3 is to make sure that the keys will give you 4 or 5
:End
:Disp "YOU: "+sub("ROCK PAPER SCISSORSLIZARD SPOCK ",8J-7,8 ;Added the "LIZARD" and "SPOCK" substrings
:randInt(1,5 ;Range increased from 3 to 5
:Disp "CALC: "+sub("ROCK PAPER SCISSORSLIZARD SPOCK ",8Ans-7,8
:Pause "WINNER IS "+sub("YOU CALCBOTH",1+4(not(max(J=1 and Ans={3,4}) or max(J=2 and Ans={1,5})
or max(J=3 and Ans={2,4}) or max(J=4 and Ans={2,5}) or max(J=5 and Ans={1,3})
and not(J=Ans))+8(J=Ans),4 ;Changed the substring calculation. Needs optimization
:End
:ClrHome:"
The code above is not very optimized. I am currently working on the optimization.
EDIT: I'd rather display the info on the graph screen, but the original just used the home screen, so I did not bother changing that.
(account deleted)
