Pig the dice game: Difference between revisions
Added Chipmunk Basic
(Added Yabasic) |
(Added Chipmunk Basic) |
||
Line 1,174:
What do you want to do (H)old or (R)oll?
</pre>
=={{header|Chipmunk Basic}}==
{{works with|Chipmunk Basic|3.6.4}}
<syntaxhighlight lang="vbnet">100 numjugadores = 2
110 maxpuntos = 100
120 dim almacenpuntos(3)
130 almacenpuntos(1) = 1
140 almacenpuntos(2) = 1
150 cls
160 print "The game of PIG"
170 print "===============";chr$(13);chr$(10)
180 print "Si jugador saca un 1, no anota nada y se convierte en el turno del oponente."
190 print "Si jugador saca 2-6, se agrega al total del turno y su turno continúa."
200 print "Si jugador elige 'mantener', su total de puntos se añade a su puntuación,";
210 print " y se convierte en el turno del siguiente jugador.";chr$(10)
220 print "El primer jugador en anotar 100 o más puntos gana.";chr$(13);chr$(10)
230 while
240 for jugador = 1 to 2 'numjugadores
250 puntos = 0
260 while almacenpuntos(jugador) <= maxpuntos
270 print
280 print "Jugador ";jugador;": (";almacenpuntos(jugador);",";puntos;")";
290 input " ¿Tirada? (Sn) ",nuevotiro$
300 if ucase$(nuevotiro$) = "S" then
310 tirada = int(rnd(1)*5)+1
320 print " Tirada:";tirada
330 if tirada = 1 then
340 print chr$(10);"¡Pierdes tu turno! jugador ";jugador;
350 print " pero mantienes tu puntuación anterior de ";almacenpuntos(jugador)
360 exit while
370 endif
380 puntos = puntos+tirada
390 else
400 almacenpuntos(jugador) = almacenpuntos(jugador)+puntos
410 print " Te quedas con: ";almacenpuntos(jugador)
420 if almacenpuntos(jugador) >= maxpuntos then
430 print chr$(10);"Gana el Jugador ";jugador;" con ";almacenpuntos(jugador);" puntos."
440 end
450 endif
460 exit while
470 endif
480 wend
490 next jugador
500 wend false
510 end</syntaxhighlight>
=={{header|Clojure}}==
| |||