@ 10, 5 say "Group 1"
@ 11, 5 say "presents"
@ 12, 5 say "the Jack en Poy game"
read
clear
game=0
@ 7,5 say "how many games do you want to play?" get game
read
clear
a=0
do while a
player1=space(10)
@10,4 say "Paper, scissors or stone?" get player1
read
clear
player2=space(10)
@10,4 say "paper, scissors or stone?" get player2
read
clear
paper>stone
stone>scissors
scissors>paper
do case
case1 player1>player2
? "player 1 won the game!"
case2 player2>player1
? "player 2 won the game!"
endcase
a=a+1
enddo
clear
? "Thank you for playing"
wait
2006-10-21
20:33:50
·
1 answers
·
asked by
junified.bea
1
in
Computers & Internet
➔ Programming & Design