ARRAY.LOAD dies$[],"D2","D4","D6","D8","D10","D12","D20","D100","D1000"

dice:
cls
Input "How many dice:", dc$
numberofdice=val(dc$)
Dialog.select hd,dies$[],"How many sides?"
if hd=1 then typeofdice = 2
if hd=2 then typeofdice = 4
if hd=3 then typeofdice = 6
if hd=4 then typeofdice = 8
if hd=5 then typeofdice = 10
if hd=6 then typeofdice = 12
if hd=7 then typeofdice = 20
if hd=8 then typeofdice = 100
if hd=9 then typeofdice = 1000
!Audio.load ptr, "dicesound.mp3"
!Audio.play ptr
!pause 500
!Audio.stop
total=0
print int$(numberofdice);"d";int$(typeofdice):print
for dd=1 to numberofdice
roll=1+Floor(Rnd()*typeofdice)
print int$(roll);" ";
total=total+roll
next dd
print "= ";int$(total)
return