Sorry your browser is not supported!

`Dice Roller Module for Jordan Hill's RPG Client
`Programmed by: Jordan Hill
RANDOMIZE TIMER()
PRINT "Welcome to the Dice Roller Module"
PRINT "Enter how many dice you want to roll."
INPUT NumberOfDice
PRINT "How many sides do you want to have on each die?"
INPUT NumberOfSides
PRINT "Rolling..."
WAIT 2000
For N 1 To NumberOfDice
   PRINT RND(NumberOfSides)
If N = NumberOfDice
   FinishRolling()
Else
   Next N
   EndIf

Function FinishRolling()
   "Are you done rolling?
   Input Answer$
   If Answer$="yes"
    Print "Thank you for rolling with the Dice Roller Module."
    Wait 5000
    End
   Else
      Goto 5
Endif

`Dice Roller Module for Jordan Hill's RPG Client
`Programmed by: Jordan Hill
start:
RANDOMIZE TIMER()
PRINT "Welcome to the Dice Roller Module"
PRINT "Enter how many dice you want to roll."
INPUT NumberOfDice
PRINT "How many sides do you want to have on each die?"
INPUT NumberOfSides
PRINT "Rolling..."
WAIT 2000

For N = 1 To NumberOfDice
   PRINT RND(NumberOfSides)
Next N

FinishRolling()

end

Function FinishRolling()
   "Are you done rolling?
   Input Answer$
   If Answer$="yes"
    Print "Thank you for rolling with the Dice Roller Module."
    Wait 5000
    End
   Else
      Goto start
Endif
Endfunction

`Dice Roller Module for Jordan Hill's RPG Client
`Programmed by: Jordan Hill


begin:
RANDOMIZE TIMER()

PRINT "Welcome to the Dice Roller Module"

INPUT "Enter how many dice you want to roll: ", NumberOfDice
INPUT "How many sides do you want to have on each die: ", NumberOfSides

PRINT "Rolling..."
WAIT 2000

Dim Numbers(NumberOfDice)

For N = 1 To NumberOfDice
	Numbers(N) = RND(NumberOfSides)
   PRINT Numbers(N)
Next N

FinishRolling(NumberOfDice)

End

Function FinishRolling(NumberOfDice)
   Input "Are you done rolling: ", Answer$
   If upper$(Answer$)="YES" or upper$(Answer$)="Y"
    	Print "Thank you for rolling with the Dice Roller Module."
    	Wait 5000
   Else
   	Undim Numbers(NumberOfDice)
      Goto begin
	Endif
Endfunction

`Dice Roller Module for Jordan Hill's RPG Client
`Programmed by: Jordan Hill

continue=1

while continue=1
CLS
RANDOMIZE TIMER()

PRINT "Welcome to the Dice Roller Module"

INPUT "Enter how many dice you want to roll: ", NumberOfDice
INPUT "How many sides do you want to have on each die: ", NumberOfSides

PRINT "Rolling..."
WAIT 2000

Dim Numbers(NumberOfDice)

For N = 1 To NumberOfDice
	Numbers(N) = RND(NumberOfSides)
   PRINT Numbers(N)
Next N

continue = FinishRolling(NumberOfDice)
endwhile

End

Function FinishRolling(NumberOfDice)
   Input "Are you done rolling: ", Answer$
   If upper$(Answer$)="YES" or upper$(Answer$)="Y"
    	Print "Thank you for rolling with the Dice Roller Module."
    	Wait 5000
	exitfunction 0
   Else
   	Undim Numbers(NumberOfDice)
   Endif
Endfunction 1