Lone Wolf Development Forums - Example

Howdy!

So many games involve die rolls, I thought that I would share this procedure.

Code:

  <!-- Procedure DieRoll

        Determine the total of a dice roll.



        Outbound parameter: total

        Inbound parameter: NumOfDice  : for 3d6 would be 3, 1d20+2 would be 1, etc.

        Inbound parameter: SizeOfDice : for 3d6 would be 6, 1d20+2 would be 20, etc.

  -->

  <procedure id="DieRoll" scripttype="none"><![CDATA[

    ~declare variables that are used to communicate with our caller

    var NumOfDice as number

    var SizeOfDice as number

    var total as number



        var i as number

        

        total = 0

        

    for i = 0 to NumOfDice

          total += random(SizeOfDice)

          next

        

    ]]></procedure>