Senior Member
Join Date: Jan 2007
Location: NW Arkansas
Posts: 1,321
|
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> Working on - |
#1 |
Senior Member
Join Date: Jun 2007
Posts: 273
|
Thank you.
|
#2 |
Thread Tools | |
Display Modes | |
|
|