Rock-paper-scissors: Difference between revisions
Content added Content deleted
Line 1,084: | Line 1,084: | ||
150 pcf(pchoice)=pcf(pchoice)+1 |
150 pcf(pchoice)=pcf(pchoice)+1 |
||
160 plays=plays+1 |
160 plays=plays+1 |
||
170 print "My play: "mid$(rps$,achoice,1) |
170 print "My play: "mid$(rps$,achoice,1) |
||
180 sw=(achoice-pchoice+3) mod 3 |
180 sw=(achoice-pchoice+3) mod 3 |
||
190 if sw=0 then print "Tie." else if sw=1 then print msg$(achoice);". My point.":ascore=ascore+1 else print msg$(pchoice);". Your point.":pscore=pscore+1 |
190 if sw=0 then print "Tie." else if sw=1 then print msg$(achoice);". My point.":ascore=ascore+1 else print msg$(pchoice);". Your point.":pscore=pscore+1 |