RPG attributes generator: Difference between revisions
Content added Content deleted
(→{{header|Commodore BASIC}}: Standardize line numbering; switch to 0-basis for arrays to avoid wasting entries; use chr$ for cursor movement; change DS to DT so it works on C-128 where DS is a reserved word..) |
(→{{header|UNIX Shell}}: Add implementation.) |
||
| Line 3,526: | Line 3,526: | ||
Total 76 |
Total 76 |
||
</pre> |
</pre> |
||
=={{header|UNIX Shell}}== |
|||
{{works with|Bourne Again SHell}} |
|||
{{works with|Korn Shell}} |
|||
{{works with|Zsh}} |
|||
<lang sh>function main { |
|||
typeset attrs=(str dex con int wis cha) |
|||
typeset -A values |
|||
typeset attr |
|||
typeset -i value total fifteens |
|||
while true; do |
|||
fifteens=0 |
|||
total=0 |
|||
for attr in "${attrs[@]}"; do |
|||
# "random" values repeat in zsh if run in a subshell |
|||
r4d6drop >/tmp/$$ |
|||
read value </tmp/$$ |
|||
values[$attr]=$value |
|||
(( total += value )) |
|||
if (( value >= 15 )); then |
|||
(( fifteens += 1 )) |
|||
fi |
|||
done |
|||
if (( total >= 75 && fifteens >= 2 )); then |
|||
break |
|||
fi |
|||
done |
|||
rm -f /tmp/$$ |
|||
for attr in "${attrs[@]}"; do |
|||
printf '%s: %d\n' "$attr" "${values[$attr]}" |
|||
done |
|||
} |
|||
function r4d6drop { |
|||
typeset -i d1=RANDOM%6+1 d2=RANDOM%6+1 d3=RANDOM%6+1 d4=RANDOM%6+1 |
|||
typeset e=$(printf '%s\n' $d1 $d2 $d3 $d4 | |
|||
sort -n | tail -n +2 | tr $'\n' +) |
|||
printf '%d\n' $(( ${e%+} )) |
|||
} |
|||
main "$@" |
|||
</lang> |
|||
{{Out}} |
|||
<pre>str: 12 |
|||
dex: 15 |
|||
con: 15 |
|||
int: 14 |
|||
wis: 8 |
|||
cha: 12</pre> |
|||
=={{header|Visual Basic .NET}}== |
=={{header|Visual Basic .NET}}== |
||