; DiceA
; -----
; Dice roller extended to allow selectable number of dice
; Note code is not optimised in structure
;
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
random 6,A
banner %A,C|50,200|70
msgbox Dice,Click OK to roll again,1
ifmsg CANCEL,exit
goto one

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

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

:four
random 6,A
random 6,B
random 6,C
random 6,D
banner %A  %B  %C %D,C|50,200|70
msgbox Dice,Click OK to roll again,1
ifmsg CANCEL,four
goto four

:five
random 6,A
random 6,B
random 6,C
random 6,D
random 6,E
banner %A  %B  %C  %D  %E,C|50,200|70
msgbox Dice,Click OK to roll again,1
ifmsg CANCEL,exit
goto five

:exit