TheGameCreators - CodeBase - PnP Dice Roller Function

Return to the CodeBase listing

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 25th Jan 2011 09:31

Modified: 25th Jan 2011 13:58

Author: Talairina

Summary

PnP style Dice Roller. Can be used to roll dice with the following styles. 3d6+2, 4d8 or even percentile d100 etc..

Full Description

Name DiceRoll Parameters In numdice(Integer), sizedice(Integer), diceonbus(Integer) Out total Pre-Condition None Post-Condition None Description Rolls 'sizedice' by 'numdice' number of times adding to the previous total until the correct 'numdice' has been rolled before adding 'dicebonus' to the 'total' which is then returned by the function.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Example usage of the Dice Roller

retry:

print "PnP Dice Roller"

print "Number of Dice: "

input numdice

print "Size of dice to be rolled: "

input sizedice

print "Any bonuses for the dice roll: "

input dicebonus

print "You want to roll "+str$(numdice)+"d"+str$(sizedice)+"+"+str$(dicebonus)+" is that correct? Yes [1] or No [2]"

wait key

repeat

continue=scancode()-1

until continue>0 and continue<3

if continue=1

total = DiceRoll(numdice,sizedice,dicebonus)

print "You rolled: "+str$(total)

wait key

cls

gosub retry

else

cls

gosub retry

endif

loop

rem End of example.

Remstart -----------------------------------------------------------------------------------

Name            DiceRoll

Parameters

In      numdice(Integer), sizedice(Integer), diceonbus(Integer)

Out      total

Pre-Condition   None

Post-Condition  None

Description     Rolls 'sizedice' by 'numdice' number of times adding to the previous total

until the correct 'numdice' has been rolled before adding 'dicebonus' to

the 'total' which is then returned by the function.

------------------------------------------------------------------------------------- Remend

function DiceRoll(numdice,sizedice,dicebonus)

total = 0 ` make sure total is 0 to start

for numrolls = 1 to numdice `

total = total + (RND(sizedice)+1) ` add new roll to previous total

next numrolls

total = total + dicebonus ` apply any dicebonus as required

endfunction total

Download

Please login to download

Comments

No comments yet.

Author Name:	Talairina
CodeBase Entries:	1

CodeBase - PnP Dice Roller Function