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


 
numjugadores = 2
maxpuntos = 100
Dim	almacenpuntos(3)
almacenpuntos[1] = 1
almacenpuntos[2] = 1
 
Cls: Print "The game of PIG"
Print "===============" + Chr(13) + Chr(10)
Print "Si jugador saca un 1, no anota nada y se convierte en el turno del oponente."
Print "Si jugador saca 2-6, se agrega al total del turno y su turno continúa."
Print "Si jugador elige 'mantener', su total de puntos se añade a su puntuación, "
Print " y se convierte en el turno del siguiente jugador." + Chr(10)
Print "El primer jugador en anotar 100 o más puntos gana."&Chr(13)&Chr(10)
 
Do
	For jugador = 1 To 2 #numjugadores
		puntos = 0
 
		While almacenpuntos[jugador] <= maxpuntos
			Print
			Print "Jugador "; jugador; ": (";almacenpuntos[jugador];",";puntos;")";
			Input "  ¿Tirada? (Sn) ", nuevotiro
			If Upper(nuevotiro) = "S" Then
				tirada = Int(Rand* 5) + 1
				Print "  Tirada:"; tirada
				If tirada = 1 Then
					Print Chr(10) + "¡Pierdes tu turno! jugador "; jugador;
					Print " pero mantienes tu puntuación anterior de "; almacenpuntos[jugador]
					Exit While
				End If
				puntos = puntos + tirada
			Else
				almacenpuntos[jugador] = almacenpuntos[jugador] + puntos
				Print "  Te quedas con: "; almacenpuntos[jugador]
				If almacenpuntos[jugador] >= maxpuntos Then
					Print Chr(10) + "Gana el Jugador "; jugador; " con "; almacenpuntos[jugador]; " puntos."
					End
				End If
				Exit While
			End If
		End While
	Next jugador
Until false
 