Help implementing dice rolls - GameCreators Forum

Author

Message

dab

20

Years of Service

User Offline

Joined: 22nd Sep 2004

Location: Your Temp Folder!

Posted: 15th Aug 2005 20:46

Link

I am making a monopoly game and I need help making the dice roll when its your turn. I've tried this:

+ Code Snippet

dim dice(1)
....
..
if mouselick()=1 and gonce#=0
dice(0)=rnd(6)
dice(1)=rnd(6)
click=1
endif

if mouselick()=0 and click=1
gonce#=1
endif

if upkey()=1
gonce#=0
and click=0
endif

My problem is I don't konw how to take turns and add the dice to a position. I already have everything worked out. I just need to have something add the dice total to p1pos# if the turn#=1 and then add the dice to p2pos# when turn#=2 and so on. Can somebody help me please?

Thanks in advanced!

------------------------
Visit my website of Games!
http://dabip.stonerocket.net

Back to top

Profile PM Email Website

Drew Cameron

21

Years of Service

User Offline

Joined: 30th Jan 2004

Location: Scotland

Posted: 15th Aug 2005 21:41 Edited at: 15th Aug 2005 21:43

Link

I assume there are two players, right?

+ Code Snippet

If turn=1
if mouselick()=1 and gonce=0
dice=rnd(6)
inc p1pos#,dice
turn=2
click=1
endif
endif

if turn=2
if mouselick()=1 and gonce=0
dice=rnd(6)
inc p2pos#,dic
turn=1
click=1
endif
endif

if mouselick()=0 and click=1
gonce=1
endif

if upkey()=1
gonce=0
and click=0
endif

I changed 'turn#' to 'turn' and 'gonce#' to 'gonce' because adding the # just means it takes up more memory. You also don't need to have the dice as an array.

Good luck!
Reply if this isn't what you meant.

Katie Holmes does not endorse D&C or Drew Cameron.

Back to top

Profile PM Email Website

dab

20

Years of Service

User Offline

Joined: 22nd Sep 2004

Location: Your Temp Folder!

Posted: 16th Aug 2005 02:11

Link

Actually! That will work! Thank you! When I tried, I made all sort of strange things and none of it worked properly.

I will add you to my thanks in the credits of my game.
Here is the code I will be using. I changed what you gave me slightly to make it work better (more the way I wanted it to). But thank you! :

+ Code Snippet

sync on
turn=1
doub$=""

do
cls

print p1pos#;"  ";p2pos#
print dice1;"  ";dice2
print dice;doub$
if turn=1
while mouseclick()=1 and unclick=0
rundice=1
unclick=1
endwhile

if mouseclick()=0 and unclick=1
if dice1=0 then dice=rnd(6)
if dice2=0 then dice=rnd(6)
dice=dice1+dice2
if dice1=dice2 then doub$="  double" else doub$=""
inc p1pos#,dice
unclick=0
rundice=0
turn=2
endif
endif

if rundice=1
dice1=rnd(6)
dice2=rnd(6)
endif


if turn=2
if mouseclick()=1 and unclick=0
rundice=1
unclick=1
endif

if mouseclick()=0 and unclick=1
if dice1=0 then dice=rnd(6)
if dice2=0 then dice=rnd(6)
dice=dice1+dice2
if dice1=dice2 then doub$="  double" else doub$=""
inc p2pos#,dice
unclick=0
rundice=0
turn=1
endif
endif

sync
loop

------------------------
Visit my website of Games!
http://dabip.stonerocket.net

Back to top

Profile PM Email Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 16th Aug 2005 19:18

Link

Are you remembering that rnd(6) gives you 0-6 (I think, can't check right now) and a dice gives you 1-6?

Might be better to use rnd(5)+1.

Back to top

Profile PM

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 16th Aug 2005 19:48

Link

Maybe if the dice rolls of the table you get a 0?

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

oDCo

20

Years of Service

User Offline

Joined: 11th May 2005

Location:

Posted: 16th Aug 2005 21:41 Edited at: 16th Aug 2005 21:42

Link

I was doing stuff with dice rolls and found the RND isn't actually random. Use this handy code snippet to generate a "random" number to seed the RANDOMIZE command . . . not my work though, it's Mentor's.

+ Code Snippet

rem RANDOMIZE the RND command using the date/time to create a unique number
rem each time the program is run . . . thanks Mentor :o)
date$=""
time$=""
newdate$=""
newtime$=""
date$=get date$()
time$=get time$()
for i=1 to 8
a$=mid$(date$,i)
b$=mid$(time$,i)
if left$(a$,1)<>"/"
   newdate$=newdate$+a$
endif
if b$<>":"
   newtime$=newtime$+b$
endif
next i
randomizenumber=val(newtime$)+val(newdate$)
RANDOMIZE randomizenumber

You only need to add it once at the top of your code mind you.

David

Back to top

Profile PM

blanky

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 17th Aug 2005 23:20

Link

@SvenB: ROFL...

@oDCo: Well, you've got to hand it to Mentor - You can't get much more of a random seed number than THAT ^_^

[Insert extremely witty comment here] :: Add me to MSN if you like, but don't expect any big favours [unless you like VB6]. ... IDK!!

Back to top

Profile PM Email Website

dab

20

Years of Service

User Offline

Joined: 22nd Sep 2004

Location: Your Temp Folder!

Posted: 18th Aug 2005 02:43

Link

TinkerGirl:

I know that it goes 0 to 6 I put in the code

Sven B:
Good idea but not something I was aiming at.

oDCo:
Thanks, but the regular (I think I spelled it wrong) rnd command works for me.

Thanks everyone for helping me!!

------------------------
Visit my website of Games!
http://dabip.stonerocket.net

Back to top

Profile PM Email Website

oDCo

20

Years of Service

User Offline

Joined: 11th May 2005

Location:

Posted: 18th Aug 2005 11:08 Edited at: 18th Aug 2005 11:10

Link

You are aware that the RND command will produce the same sequence of "random" numbers each time you run the program aren't you?

This thread ( http://forum.thegamecreators.com/?m=forum_view&t=54246&b=10 ) explains alot.

Either way, good luck with your game

Back to top

Profile PM

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 18th Aug 2005 13:09

Link

Look at oDCo's reply. He should know it by now...

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

dab

20

Years of Service

User Offline

Joined: 22nd Sep 2004

Location: Your Temp Folder!

Posted: 18th Aug 2005 17:50

Link

Hmmm, that is interesting. I certainly don't want 32,000 repeating numbers. So, I gues I'll do two versions of dice rolls. I'll try each one and see which one produces better random numbers.

So in my code I should do this:

+ Code Snippet

function dice_roll(turn#,dicetote#,doubles#......)

randomize timer()
if turn=1
while mouseclick()=1 and unclick=0
randomize timer()
rundice=1
unclick=1
endwhile

if mouseclick()=0 and unclick=1
if dice1=0 then dice=rnd(6)
if dice2=0 then dice=rnd(6)
dice=dice1+dice2
if dice1=dice2 then doub$="  double" else doub$=""
inc p1pos#,dice
unclick=0
rundice=0
turn=2
endif
endif

if rundice=1
dice1=rnd(6)
dice2=rnd(6)
endif


if turn=2
if mouseclick()=1 and unclick=0
randomize timer()
rundice=1
unclick=1
endif

if mouseclick()=0 and unclick=1
if dice1=0 then dice=rnd(6)
if dice2=0 then dice=rnd(6)
dice=dice1+dice2
if dice1=dice2 then doub$="  double" else doub$=""
inc p2pos#,dice
unclick=0
rundice=0
turn=1
endif
endif
endfunction

I would just have to do that?

------------------------
Visit my website of Games!
http://dabip.stonerocket.net

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Help implementing dice rolls