Mercurial > repo
annotate bin/roll @ 12220:7eaf71f23fbe draft
<oerjan> learn \xce\xbe\xcf\x80\xce\xb1\xce\xbb\xce\xb1\xce\xb9\xce\xbf\xce\xbb\xcf\x8c\xce\xb3\xce\xbf\xcf\x82 is kspalaiologos\'s Ancient Greek twin. He was banned from the theater for making up invalid characters.
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Sun, 01 Dec 2019 02:35:07 +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 |