GetDiceRolls

function GetDiceRolls takes integer d4NR, integer d6NR, integer d8NR, integer d10NR, integer d12NR, integer d20NR, integer bonusmod returns integer
    local integer ia = 1
    local integer ib = 1
    local integer RT = 0
    local integer array NS
    local integer array NR
    local integer array DR
    set NS[1] = 4
    set NS[2] = 6
    set NS[3] = 8
    set NS[4] = 10
    set NS[5] = 12
    set NS[6] = 20
    set NR[1] = d4NR
    set NR[2] = d6NR
    set NR[3] = d8NR
    set NR[4] = d10NR
    set NR[5] = d12NR
    set NR[6] = d20NR

    loop
        exitwhen ia > 6
        set ib = 1
        loop
            exitwhen ib > NR[ia]
            set DR[ia] = GetRandomInt(1, NS[ia])
            set RT = ( RT + DR[ia] )
            set ib = ib + 1
        endloop
        set ia = ia + 1
    endloop

    set RT = ( RT + bonusmod )

    return RT
endfunction

No comments.