Pig the dice game: Difference between revisions
The game of Pig en BASIC256
(added MiniScript example) |
(The game of Pig en BASIC256) |
||
Line 650:
ButtonReload:
Reload</lang>
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang BASIC256>
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
</lang>
=={{header|C++}}==
| |||