an any sided dice program - GameCreators Forum

Author

Message

Gisbit

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location:

Posted: 30th Dec 2005 09:03

Link

the program is designed to recieve user input on the number of sides a dices should have and then rolls the dice and returns the randomn value.
the program also loops around for easy reuse, it asks a question after the first use where you must type in yes for it to loop agian.

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 31st Dec 2005 14:37

Link

Please put your code between [[/b]code] and [[b]/code]. No source code...

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 31st Dec 2005 19:27

Link

you need to write your code like this.

+ Code Snippet

You see

Do not use the code box

Mysteries Surround You

Back to top

Profile PM

Gisbit

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location:

Posted: 3rd Jan 2006 21:52

Link

sorry about that I am new to this
thanks for the correction

+ Code Snippet

randomize timer
a = 0
answer$ = "yes"
do
if a <> 0 then input "would you like to go agian YES or NO: ", answer$
a = 20
if answer$ = "yes"
   cls
   input "Please enter number of sides for the dice: ",  dice_sides
   if dice_sides > 0
      dice_num = rnd(dice_sides - 1)+1
      print "Your roll is: ", dice_num
   else
      print "<<invalid number>>"
   endif
else
   end
endif
wait key
loop

Back to top

Profile PM

SAnTA

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location:

Posted: 16th Mar 2006 19:57

Link

seems a little complicated try this:

+ Code Snippet

randomize timer()

do

input "Please enter number of sides for the dice: ",  dice_sides

if dice_sides > 0
   dice_num = rnd(dice_sides - 1)+1
   print "Your roll is: ", dice_num
else
   print "<<invalid number>>"
endif

input "would you like to go agian YES or NO: ", answer$

if answer$ = "no" then end
cls
loop

Back to top

Profile PM Website

Sorry your browser is not supported!

The 20 Line Challenge / an any sided dice program