Pig the dice game: Difference between revisions

Content added Content deleted
Line 2,216: Line 2,216:
HaveWin=False
HaveWin=False
score()
score()
\\ for simulation, feed the keyboard buffer with R and H
simulate$=String$("R", 500)
For i=1 to 100
Insert Random(1,Len(simulate$)) simulate$="H"
Next i
Keyboard simulate$
\\ end simulation
while res$<>"Q" {
while res$<>"Q" {
Print "Player 1 turn"
Print "Player 1 turn"