Mercurial > repo
annotate bin/roll @ 12256:821155c00e34 draft
<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/culprits > ../bin/cblprits; chmod a+x ../bin/cblprits
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Sat, 07 Dec 2019 23:36:22 +0000 |
| parents | e037173e0012 |
| children |
| rev | line source |
|---|---|
| 0 | 1 #!/bin/bash |
| 2 rolls="$*" | |
| 3 if [ "$rolls" = "" ] ; then rolls="1d6" ; fi | |
| 4 | |
| 5 for i in $rolls | |
| 6 do | |
| 7 if expr "$i" : ".*[dD].*" >& /dev/null | |
| 8 then | |
| 9 rollc=`echo "$i" | sed 's/[dD].*//'` | |
| 10 diesz=`echo "$i" | sed 's/.*[dD]//'` | |
| 11 else | |
| 12 rollc=1 | |
| 13 diesz="$i" | |
| 14 fi | |
| 15 | |
| 16 roll=0 | |
| 17 for (( j = 0; $j < $rollc; j++ )) | |
| 18 do | |
| 19 roll=$(( roll + (RANDOM % diesz) + 1 )) | |
| 20 done | |
| 21 | |
| 22 echo -n $roll' ' | |
| 23 done | |
| 24 echo |