Example - Die Rolling Procedure

[TCArknight]

Howdy!

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

  <!-- 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>

[tkarn]

Thank you.