RosettaCodeData/Task/RPG-attributes-generator/Ksh/rpg-attributes-generator.ksh

#!/bin/ksh

# RPG attributes generator

# # Variables:
#
typeset -a attribs=( strength dexterity constitution intelligence wisdom charisma )
integer MINTOT=75 MIN15S=2

# # Functions:
#
#   # Function _diceroll(sides, number, reportAs) - roll number of side-sided
#   # dice, report (s)sum or (a)array (pseudo) of results
#
function _diceroll {
  typeset _sides    ; integer _sides=$1         # Number of sides of dice
  typeset _numDice  ; integer _numDice=$2       # Number of dice to roll
  typeset _rep      ; typeset -l -L1 _rep="$3"  # Report type: (sum || array)

  typeset _seed    ; (( _seed = SECONDS / $$ )) ; _seed=${_seed#*\.}
  typeset _i _sum  ; integer _i _sum=0
  typeset _arr     ; typeset -a _arr

  RANDOM=${_seed}
  for (( _i=0; _i<_numDice; _i++ )); do
      (( _arr[_i] = (RANDOM % _sides) + 1 ))
      [[ ${_rep} == s ]] && (( _sum += _arr[_i] ))
  done

    if [[ ${_rep} == s ]]; then
      echo ${_sum}
    else
      echo "${_arr[@]}"
    fi
}

# # Function _sumarr(n arr) - Return the sum of the first n arr elements
#
function _sumarr {
  typeset _n ; integer _n=$1
  typeset _arr ; nameref _arr="$2"
  typeset _i _sum ; integer _i _sum

  for ((_i=0; _i<_n; _i++)); do
    (( _sum+=_arr[_i] ))
  done
  echo ${_sum}
}

 ######
# main #
 ######

until (( total >= MINTOT )) && (( cnt15 >= MIN15S )); do
  integer total=0 cnt15=0
  unset attrval ; typeset -A attrval
  for attr in ${attribs[*]}; do
    unset darr ; typeset -a darr=( $(_diceroll 6 4 a) )
    set -sK:nr -A darr
    attrval[${attr}]=$(_sumarr 3 darr)
    (( total += attrval[${attr}] ))
    (( attrval[${attr}] > 14 )) && (( cnt15++ ))
  done
done

for attr in ${attribs[*]}; do
  printf "%12s: %2d\n" ${attr} ${attrval[${attr}]}
done
print "Attribute value total: ${total}"
print "Attribule count >= 15:  ${cnt15}"