' D&D Dice Utility - v1.0
'Asmodeus

    nomainwin

    WindowWidth = 336
    WindowHeight = 295

    groupbox #main.groupbox11, "Dice Selection", 14, 11, 296, 155
    groupbox #main.groupbox13, "Roll Result", 30, 166, 264, 65
    textbox #main.textbox, 70, 186, 192, 25
    button #main.button15, "d3", [d3], UL, 38, 41, 50, 25
    button #main.button16, "d4", [d4], UL, 102, 41, 50, 25
    button #main.button17, "d6", [d6], UL, 166, 41, 50, 25
    button #main.button18, "d8", [d8], UL, 230, 41, 50, 25
    button #main.button19, "d10", [d10], UL, 38, 81, 50, 25
    button #main.button20, "d12", [d12], UL, 102, 81, 50, 25
    button #main.button21, "d20", [d20], UL, 166, 81, 50, 25
    button #main.button22, "d30", [d30], UL, 230, 81, 50, 25
    button #main.button23, "d100", [d100], UL, 134, 121, 50, 25
    button #main.button24, "Quit", [quit], UL, 278, 236, 42, 25
    button #main.button24, "Clear", [clear], UL, 150, 236, 42, 25
    open "D&D Dice" for window as #main
    print #main, "font ms_sans_serif 0 16"
    print #main, "trapclose [quit]"

    wait

[d3]
    print #main.textbox, int(rnd(1)*3) + 1
    wait

[d4]
    print #main.textbox, int(rnd(1)*4) + 1
    wait

[d6]
    print #main.textbox, int(rnd(1)*6) + 1
    wait

[d8]
    print #main.textbox, int(rnd(1)*8) + 1
    wait

[d10]
    print #main.textbox, int(rnd(1)*10) + 1
    wait

[d12]
    print #main.textbox, int(rnd(1)*12) + 1
    wait

[d20]
    print #main.textbox, int(rnd(1)*20) + 1
    wait

[d30]
    print #main.textbox, int(rnd(1)*30) + 1
    wait

[d100]
    print #main.textbox, int(rnd(1)*100) + 1
    wait

[clear]
    print #main.textbox, ""
    wait

[quit]
    close #main
    end