; Dice C
; ------
; Dice roller, with selectable number of dice
; Note code structure is further optimised with a loop
; to handle multiple dice and using the message value
; returned by menubox to directly set the number of dice.
;
setfont verdana,16,B
banner DICE
delay 15
banoff
menubox Dice,Select number of dice,One|Two|Three|Four|Five
ifvar M,0,exit
setvar C,%M

: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