Home / Products / Download / Links / Contact / Work blog / Source Code

{Function to simulate the rolling of dice, you wouldn't believe how many people don't know how to do this.}

Public Function Rolldice(ByVal number_of_dice As Long, ByVal sides_per_die As Long)
Dim dicerolling As Long
For dicerolling = 1 To number_of_dice
    Rolldice = Rolldice + Int(Rnd * sides_per_die + 1)
Next dicerolling
End Function

Fusionapple Obsidian Soldat Cuda's Eye Udanstraight

Copyright © 2002 - 2004 Jeremy Clive Read
Pyrosoftware and other trademarks belong to their respective owners.