annotate bin/roll @ 12092:ceb43c4d37de
draft
<fizzie> ` for w in benvenuto bienvenido bienvenue bonvenon tervetuloa v\xc3\xa4lkommen velkomin velkommen welcome welkom wercome willkommen \xd0\xb4\xd0\xbe\xd0\xb1\xd1\x80\xd0\xbe-\xd0\xbf\xd0\xbe\xd0\xb6\xd0\xb0\xd0\xbb\xd0\xbe\xd0\xb2\xd0\xb0\xd1\x82\xd1\x8c; do sed -i -e \'2s|^|my $bin = $ENV{"HACKENV"}."/bin"; |;s|bin/[@?]|$&|g\' /hackenv/bin/$w; done
| author |
HackEso <hackeso@esolangs.org> |
| date |
Sat, 16 Nov 2019 22:19:36 +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
|
