Anonymous user
Snake and ladder: Difference between revisions
m
→{{header|REXX}}: used an idiomatic method to leave the DO loops, fixed a comment.
(→{{header|J}}: load required addons) |
m (→{{header|REXX}}: used an idiomatic method to leave the DO loops, fixed a comment.) |
||
Line 1,020:
end /*k*/ /* [↑] number when landing on a square*/
/* [↓] define ladder destination.*/
@.4=14; @.9=31; @.20=38; @.28=84; @.40=59; @.51=67; @.63=81; @.71=91; @.95=75
@.17=7; @.54=34; @.62=19; @.64=60; @.87=24; @.93=73; @.99=78
/* [↑] define snake destination.*/
player.= 1 /*start all players on the 1st square. */
end
end /*games*/
say pad 'Player ' j " wins!" /*announce the winner; the game is over*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
turn: parse arg P, square; ?= random(1, 6) /*simulate a roll of a six─sided die. */
if square+?>100 then do
say @does " but can't move. Next player's turn."
return square
end
else do
square= square + ? /*move a player.*/
say @does " and moves to square" right(square, 3)
end
next= @.square /*where moved to*/
| |||