Other than that, your code looks much cleaner than the one I derived.

**EDIT:** I just realized that the *Lbl*s are used with the menu. My bad.

` ``"ROCK PAPER SCISSORSLIZARD SPOCK →Str1 Repeat sum(K={45,21 ClrHome DelVar ADelVar B Menu("ROCK-SPOCK","ROCK",5,"PAPER",4,"SCISSORS",3,"LIZARD",2,"SPOCK",1,"QUIT GAME",E Lbl 1 A+1→A Lbl 2 A+1→A Lbl 3 A+1→A Lbl 4 A+1→A Lbl 5 A+1→A randInt(1,5→B Disp "YOU CHOSE:"," "+sub(Str1,1+8(A-1),8 Disp "AI CHOSE:"," "+sub(Str1,1+8(B-1),8 2→C If A=B:3→C If sum((A={5,5,4,4,3,3,2,2,1,1})(B={1,3,5,2,2,4,1,5,4,3}):1→C Disp "",sub("YOU WON AI WON TIE GAME",1+8(C-1),8 Repeat K getKey→K End Goto F Lbl E 45→K Lbl F End ClrHome DelVar Str1 "`

(As far as *I* know.)

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.

` ``:ClrHome :Disp "PAPER - SCISSORS :Input "ROUNDS:",I :For(I,1,I :ClrHome :Disp "CHOOSE WEAPON: :Disp "1) ROCK","2) PAPER","3) SCISSORS :Repeat 2>abs(Ans-2 :getKey-91→J :End :Disp "YOU: "+sub("ROCK PAPER SCISSORS",8J-7,8 :randInt(1,3 :Disp "CALC: "+sub("ROCK PAPER SCISSORS",8Ans-7,8 :Pause "WINNER IS "+sub("YOU CALCBOTH",1+4max(Ans={1,2,3} and J={3,1,2})+8(J=Ans),4 :End :ClrHome:"`

**EDIT:** I was unsure as to whether you were asking for the Rock Paper Scissors code or *Bio_Hazard1282*'s code.

Very confusing though when he says it :P ]]>

I am not allowed to post the link on this forum, but if you look for "rock paper scissors lizard spock" with Google you'll find it. ]]>

I tried to change the code so it would be rock paper scissors lizard spock, but that didn't work at all.

Could someone help me with that?

I would be so so grateful! ]]>