; Dice B
; ------
; Dice roller, with selectable number of dice
; Note code structure is better optimised with a loop
; to handle multiple dice
;
setfont verdana,16,B
banner DICE
delay 15
banoff
menubox Dice,Select number of dice,One|Two|Three|Four|Five
casemsg exit|one|two|three|four|five
goto exit

:one
setvar C,1
goto roll

:two
setvar C,2
goto roll

:three
setvar C,3
goto roll

:four
setvar C,4
goto roll

:five
setvar C,5

:roll
setvar D,%C
setvar B,

:loop
random 6,A
setvar B,%B %A 
decvar D
ifgvar D,0,loop

banner %B,C|50,200|70
msgbox Dice,Click OK to roll again,1
ifmsg CANCEL,exit
goto roll


:exit