Simple Dice Roller - GameCreators Forum

Author

Message

Drunken Wookie

19

Years of Service

User Offline

Joined: 18th Apr 2005

Location:

Posted: 18th Apr 2005 17:18

Link

This is the first DrakBasic program i created and since it's 20 lines exactly i thought i would post it here.

I used the MIDI "Rain Again" by the Eurithmics, but as you know it can be changed in the programming for whatever song you want to use.

Plz give any comments or suggestions for the program.

Duct tape is like the force...there is a light side and a dark side and it binds the universe together.

Attachments

Login to view attachments

Back to top

Profile PM

Robot

20

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 19th Apr 2005 00:07

Link

please may you repost your source as all i get is

Quote: "Error obtaining Source Code, invalid ID. Sorry but I've given up."

if possible use a code box like this

+ Code Snippet

insert code here

The happenings of tommorow are behind us now

Back to top

Profile PM

Drunken Wookie

19

Years of Service

User Offline

Joined: 18th Apr 2005

Location:

Posted: 20th Apr 2005 09:47

Link

oops....let me try again

+ Code Snippet

HIDE MOUSE

PRINT "WELCOME TO DRUNKEN WOOKIE'S DICE ROLLER":PRINT " ":PRINT " "

S=0:D=0:N=0:R=0:T=0

LOAD MUSIC "RAINAGAIN.MID",1:PLAY MUSIC 1

DICECHOICE:

INPUT "HOW MANY SIDES? ",S:S=S-1:INPUT "HOW MANY DICE? ",D

FOR N=1 TO D
CLS:R=RND(S)+1:T=T+R
PRINT "YOUR ROLL WAS "; R:PRINT "YOUR CURRENT TOTAL IS "; T:PRINT "PRESS A KEY TO CONTINUE"
SUSPEND FOR KEY
NEXT N

CLS:SET CURSOR 255,240:INPUT "ROLL AGAIN? ",Q$
IF Q$ = "YES":GOTO DICECHOICE:ELSE:IF Q$ = "Y":GOTO DICECHOICE:ENDIF:ENDIF

CLS
SET CURSOR 270,240:PRINT "EXITING":SLEEP 1500
SET CURSOR 270,240:PRINT "EXITING.":SLEEP 1500
SET CURSOR 270,240:PRINT "EXITING..":SLEEP 1500
SET CURSOR 270,240:PRINT "EXITING...":SLEEP 1500:STOP MUSIC 1
SET CURSOR 270,240:PRINT "EXITING....":SLEEP 1500:CLS
END

let me know if you have any other probs.

Duct tape is like the force...there is a light side and a dark side and it binds the universe together.

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Simple Dice Roller

Attachments