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>