[bmx] D&D Dice Roller by Chroma [ 1+ years ago ]

[BlitzBot]

Title : D&D Dice Roller
Author : Chroma
Posted : 1+ years ago

Description : My old D&D roots flared up while I was messing around with arrays today.  Maybe I'll use this in the future.

Accepts any sided die input.  Use is simple:

Print RollDice("3d6")
Print RollDice("1d6+2")
Print RollDice("1d20-3")

etc etc

Code :

Code (blitzmax) Select Expand

SeedRnd MilliSecs()

Local dice$ = "1d20+3"

For i = 1 To 20
Print "Rolling "+dice+": "++RollDice(dice)
Next

End

Function RollDice:Int(die$)
If Left$(die,1) = "d" Then die = "1" + die
Local roll$[] = die.split("d")
Local ppos = Instr(roll[1],"+")
Local mpos = Instr(roll[1],"-")
Local bonus%, total%
If ppos > 0
bonus = Int(Mid$(roll[1], ppos+1, roll[1].length-ppos))
roll[1] = Left(roll[1], ppos-1)
ElseIf mpos > 0
bonus = Int(Mid$(roll[1], mpos, roll[1].length-mpos+1))
roll[1] = Left(roll[1], mpos-1)
EndIf
For Local i% = 1 To Int(roll[0])
total:+ Rand(Int(roll[1]))
Next
Return total + bonus
End Function

Comments :


Ryudin(Posted 1+ years ago)

 Very nice! I think all of us D&D guys have done this at some point.


slenkar(Posted 1+ years ago)

 thanks, im always doing games that need dice rolls


slenkar(Posted 1+ years ago)

 is there an easy way to see if the number is within certain values?


*(Posted 1+ years ago)

 If you require a Blitz .bb version go to<a href="codearcsa83f.html?code=2124" target="_blank">http://www.blitzbasic.com/codearcs/codearcs.php?code=2124</a>


Chroma(Posted 1+ years ago)

 Well I guess this would do just as well...

Code Select Expand


Local attackRoll% = RollDice(1,20,3)     '1d20+3

Function RollDice%(rolls%, die%, bonus%)
Local dieTotal%, i%
For i = 1 to rolls
dieTotal :+ Rand(die)
Next
Return dieTotal + bonus
End Function