Anonymous user
Pig the dice game/Player: Difference between revisions
m
→{{header|REXX}}: optimized some code, added whitespace, used indentations for subroutines/functions, used a cleaner subroutine fence..
m (→{{header|REXX}}: optimized some code, added whitespace, used indentations for subroutines/functions, used a cleaner subroutine fence..) |
|||
Line 3,038:
The (somewhat aggressive) "quarter" strategy was chosen to give the advantage to a human (it was presumed that this dice game would be played with a CBLF).
<lang rexx>/*REXX program plays "pig the dice game" (any
/*names with blanks should use an _ */▼
▲ /*names with blanks should use _ */
if _\=='' then call err 'too many arguments were specified: ' _
@nhp = 'number of human players' ; hp = scrutinize( hp, @nhp , 0, 0, 0)
@ncp = 'number of computer players'; cp = scrutinize( cp, @ncp , 0, 0, 2)
@sn2w = 'score needed to win' ; win= scrutinize(win, @sn2w, 1, 1e6, 60)
@nsid = 'number of sides in die' ; die= scrutinize(die, @nsid, 2, 999, 6)
if hp==0 & cp==0 then cp= 2 /*if both counts are zero,
if hp==1 & cp==0 then cp= 1 /*if one human, then use
name.= /*nullify all names (to a blank). */
L= 0 /*maximum length of a player name. */
do i=1 for hp+cp /*get the player's names, ... maybe. */
if i>hp then @= 'HAL_'i"_the_computer"
else @= 'player_'i
name.i = translate( word( strip( word( names, i) ) @, 1), , '_')
L= max(L, length( name.i) ) /*use L for nice name formatting. */
end /*i*/ /*underscores are
hpn=hp; if hpn==0 then hpn= 'no' /*use normal English for the display. */
cpn=cp; if cpn==0 then cpn=
say 'Pig (the dice game) is being played with:' /*introduction to pig.*/▼
if cpn\==0 then say right(cpn,9) 'computer player's(cp)▼
say 'and the' @sn2w "is: " win ' (or greater).'▼
!.=; dieNames='ace deuce trey square nickle boxcar' /*die face names.*/▼
▲ /*note: snake eyes is for 2 aces.*/
!w=max(!w, length(!.i)) /*!w ──► maximum length die name.*/▼
end /*i*/▼
s.=0 /*set all player's scores to zero*/▼
!w=!w+length(die)+3 /*pad the die number and die name*/▼
@=copies('─',9) /*an eyecatcher (for prompting). */▼
@jra='just rolled a '; @ati='and the inning' /*nice literals to have.*/▼
do game=1; in.=0 /*set each inning's score to zero*/▼
say; say copies('█',sw) /*display a fence for da eyeballs*/▼
do k=1 for hp+cp /*display the scores (as a recap)*/▼
say 'The score for ' left(name.k,L) " is " right(s.k,length(win))'.'▼
end /*k*/▼
!.=
▲say 'and the' @sn2w "is: " win ' (or greater).'
▲
!w=0 /*note: snake eyes is for two aces. */
do i=1 for die /*assign the vernacular die─face names.*/
!.i= ' ['word(dieNames,i)"]" /*pick a word from die─face name lists.*/
▲ end /*i*/
▲s.= 0 /*set all player's scores to zero. */
@ati= 'and the inning' /*" " " " " " " */
/*═══════════════════════════════════════════════════let's play some pig.*/
do j=1 for hp+cp; say /*let each player roll their dice. */
it= name.j
say it', your total score (so far) in this pig game is: ' s.j"."
do until stopped /*keep prompting/rolling 'til
r= random(1, die) /*get a random die face (number). */
!= left(space(r !.r','), !w) /*for color, use a
in.j= in.j + r /*add
if r==1 then do; say it @jra ! || @ati "is a bust."; leave; end
say it @jra ! || @ati "total is: " in.j
if j>hp & stopped then say ' and' name.j "elected to stop rolling."
end /*until stopped*/
if r\==1 then s.j= s.j + in.j /*if not a bust, then add to the inning
if s.j>=win then leave game /*we have a winner, so the game ends. */
end /*j*/ /*that's the end of the players. */
end /*game*/
call score; say; say; say; say; say center(''name.j "won! ", sw, '═')
/*──────────────────────────────────────────────────────────────────────────────────────*/
s: if arg(1)==1 then return arg(3); return word(arg(2) 's',1) /*
/*──────────────────────────────────────────────────────────────────────────────────────*/
scrutinize: parse arg ?,what,min,max /*? is the number, or maybe not. */▼
▲ do k=1 for hp+cp /*display the scores (as a recap). */
if ?=='' | ?==',' then return arg(5)▼
if \datatype(?,'N') then call err what "isn't numeric: " ?; ?=?/1▼
▲ end /*k*/
if \datatype(?,'W') then call err what "isn't an integer: " ?▼
say copies('█', sw); return /*display a fence for da ole eyeballs. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
▲scrutinize: parse arg ?,what,min,max /*? is the number, ... or maybe not. */
▲ if ?=='' | ?==',' then return arg(5)
▲ if \datatype(?, 'N') then call err what "isn't numeric: " ?; ?=?/1
▲ if \datatype(?, 'W') then call err what "isn't an integer: " ?
if
return ?
say @ name.who', what do you want to do? (a QUIT will stop the game),'▼
/*──────────────────────────────────────────────────────────────────────────────────────*/
say @ 'press ENTER to roll again, or anything else to STOP rolling.'▼
what2do: parse arg who /*"who" is a human or a computer.*/
pull action; action=space(action) /*remove any superfluous blanks. */▼
if j>hp & s.j+in.j>=win then return 1 /*an easy choice for HAL. */
if \abbrev('QUIT',action,1) then return action\==''▼
if j>hp & in.j>=win%4 then return 1 /*a simple strategy for HAL. */
say; say; say; say center(' quitting. ',sw,'─'); say; say; say; exit▼
if j>hp then return 0 /*HAL says, keep truckin'! */
▲ say @ name.who', what do you want to do? (a QUIT will stop the game),'
▲ say @ 'press ENTER to roll again, or anything else to STOP rolling.'
do j=1 for arg(); say arg(j); say; end; say; exit 13▼
▲ pull action; action=space(action) /*remove any superfluous blanks. */
▲ if \abbrev('QUIT', action, 1) then return action\==''
say; say; say
/*──────────────────────────────────────────────────────────────────────────────────────*/
▲
▲ do j=1 for arg(); say arg(j); say; end; say; exit 13</lang>
This REXX program makes use of '''LINESIZE''' BIF which returns the terminals width (linesize).
<br>Some REXXes don't have a '''LINESIZE''' BIF, so one is included here ──► [[LINESIZE.REX]].
| |||