The   game of Pig   is a multiplayer game played with a single six-sided die.   The
object of the game is to reach   100   points or more.  
Play is taken in turns.   On each person's turn that person has the option of either:

 Rolling the dice:   where a roll of two to six is added to their score for that turn and the player's turn continues as the player is given the same choice again;   or a roll of   1   loses the player's total points   for that turn   and their turn finishes with play passing to the next player.
 Holding:   the player's score for that round is added to their total and becomes safe from the effects of throwing a   1   (one).   The player's turn finishes with play passing to the next player.


Task

Create a program to score for, and simulate dice throws for, a two-person game.



Related task

   Pig the dice game/Player


numPlayers	= 2
maxScore 	= 100
dim	safeScore(numPlayers)
 
[loop]
for player = 1 to numPlayers
  score     = 0
 
  while safeScore(player) < maxScore
   input "Player ";player;" Rolling? (Y) ";rolling$
    if upper$(rolling$) = "Y" then
        rolled = int(rnd(0) * 5) + 1
        print "Player ";player;" rolled ";rolled
        if rolled = 1 then
            print "Bust! you lose player ";player;" but still keep your previous score of ";safeScore(plater)
            exit while
        end if
        score = score + rolled
    else
        safeScore(player) = safeScore(player) + score
    end if
  wend
next player
goto [loop]
[winner] 
print "Player ";plater;" wins with a score of ";safeScore(player)