problem with mouseclick() - GameCreators Forum

Author

Message

Sickly

15

Years of Service

User Offline

Joined: 14th Jul 2009

Location: Does it matter?

Posted: 18th Jan 2010 03:48

Link

The other day, I wrote my first program, that I thought was complete. It is a simple dice roller program for dungeons and dragons. The way it works is when you click on an image of a die, it generates a random number IE: a 12 sided die would roll 1 to 12 (obviously). The problem is, I am using mouse clicks, and you can hold the mouse button down, and watch the numbers keep rolling. Is it possible to make it display only the first number the program comes across when the mouse is clicked? here is the code I used.

Sync On : Sync Rate 60

Randomize Timer()

CLS RGB(255,255,255)
Set Text Size 50

Load Image "Images\4sided_die.jpg",1,1
Load Image "Images\6sided_die.jpg",2,1
Load Image "Images\8sided_die.jpg",3,1
Load Image "Images\10sided_die.jpg",4,1
Load Image "Images\12sided_die.jpg",5,1
Load Image "Images\20sided_die.jpg",6,1
Load Image "Images\100sided_die.jpg",7,1

INK RGB(0,0,0),0

Do

Paste Image 1,0,0
Paste Image 2,100,0
Paste Image 3,180,0
Paste Image 4,280,0
Paste Image 5,50,100
Paste Image 6,140,100
Paste Image 7,240,100

If MouseX() > 0 AND MouseX() < 99 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D4 = RND(3)+1
		Text 175,250,Str$(D4)
	EndIf
EndIf

If MouseX() > 100 AND MouseX() < 179 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D6 = RND(5)+1
		Text 175,250,Str$(D6)
	EndIf
EndIf

If MouseX() > 180 AND MouseX() < 279 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D8 = RND(7)+1
		Text 175,250,Str$(D8)
	EndIf
EndIf

If MouseX() > 280 AND MouseX() < 365 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D10 = RND(9)+1
		Text 175,250,Str$(D10)
	EndIf
EndIf

If MouseX() > 50 AND MouseX() < 139 AND MouseY() > 100 AND MouseY() < 199
	If MouseClick()=1
		CLS RGB(255,255,255)
		D12 = RND(11)+1
		Text 175,250,Str$(D12)
	EndIf
EndIf

If MouseX() > 140 AND MouseX() < 239 AND MouseY() > 100 AND MouseY() < 199
	If MouseClick()=1
		CLS RGB(255,255,255)
		D20 = RND(19)+1
		Text 175,250,Str$(D20)
	EndIf
EndIf

If MouseX() > 240 AND MouseX() < 300 AND MouseY() > 100 AND MouseY() < 199
	If MouseClick()=1
		CLS RGB(255,255,255)
		D100 = RND(99)+1
		Text 175,250,Str$(D100)
	EndIf
EndIf

If Keystate(1) = 1
	Exit
Endif

Sync
Loop

+ Code Snippet

Sync On : Sync Rate 60

Randomize Timer()

CLS RGB(255,255,255)
Set Text Size 50

Load Image "Images\4sided_die.jpg",1,1
Load Image "Images\6sided_die.jpg",2,1
Load Image "Images\8sided_die.jpg",3,1
Load Image "Images\10sided_die.jpg",4,1
Load Image "Images\12sided_die.jpg",5,1
Load Image "Images\20sided_die.jpg",6,1
Load Image "Images\100sided_die.jpg",7,1

INK RGB(0,0,0),0

Do

Paste Image 1,0,0
Paste Image 2,100,0
Paste Image 3,180,0
Paste Image 4,280,0
Paste Image 5,50,100
Paste Image 6,140,100
Paste Image 7,240,100

If MouseX() > 0 AND MouseX() < 99 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D4 = RND(3)+1
		Text 175,250,Str$(D4)
	EndIf
EndIf

If MouseX() > 100 AND MouseX() < 179 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D6 = RND(5)+1
		Text 175,250,Str$(D6)
	EndIf
EndIf

If MouseX() > 180 AND MouseX() < 279 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D8 = RND(7)+1
		Text 175,250,Str$(D8)
	EndIf
EndIf

If MouseX() > 280 AND MouseX() < 365 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1
		CLS RGB(255,255,255)
		D10 = RND(9)+1
		Text 175,250,Str$(D10)
	EndIf
EndIf

If MouseX() > 50 AND MouseX() < 139 AND MouseY() > 100 AND MouseY() < 199
	If MouseClick()=1
		CLS RGB(255,255,255)
		D12 = RND(11)+1
		Text 175,250,Str$(D12)
	EndIf
EndIf

If MouseX() > 140 AND MouseX() < 239 AND MouseY() > 100 AND MouseY() < 199
	If MouseClick()=1
		CLS RGB(255,255,255)
		D20 = RND(19)+1
		Text 175,250,Str$(D20)
	EndIf
EndIf

If MouseX() > 240 AND MouseX() < 300 AND MouseY() > 100 AND MouseY() < 199
	If MouseClick()=1
		CLS RGB(255,255,255)
		D100 = RND(99)+1
		Text 175,250,Str$(D100)
	EndIf
EndIf

If Keystate(1) = 1
	Exit
Endif

Sync
Loop

The darkest minds, are often the brightest.

Back to top

Profile PM

Xyus

15

Years of Service

User Offline

Joined: 5th Sep 2009

Location:

Posted: 18th Jan 2010 04:31 Edited at: 18th Jan 2010 05:56

Link

You can have it check whether a number has been selected by having a flag variable set to one after the dice is rolled with the conditional statement requiring zero to pass, (I know that wasn't all too clear so here is an example: )

+ Code Snippet

If MouseX() > 0 AND MouseX() < 99 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1 AND FIRSTROLL = 0
		CLS RGB(255,255,255)
		D4 = RND(3)+1
		Text 175,250,Str$(D4)
		FIRSTROLL = 1
	EndIf
EndIf

(You can set it back to zero somewhere else, like when pressing the spacebar, or whatever your particular needs(when turn starts, etc))

That's the easy route.

Make sure to use a different flag variable for each dice.

Back to top

Profile PM

Sickly

15

Years of Service

User Offline

Joined: 14th Jul 2009

Location: Does it matter?

Posted: 18th Jan 2010 05:51 Edited at: 18th Jan 2010 06:15

Link

hmm. I see. I have an idea to go with that, to reset the firstroll back to 0 with out doing anything. i think...

Ha! Thanks. Got it working perfect now. and I set it up so you could use the same variable in each if statement.

+ Code Snippet

If MouseClick() = 0
	DiceRoll = 0
EndIf
	
 

If MouseX() > 0 AND MouseX() < 99 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1 and DiceRoll = 0
		CLS RGB(255,255,255)
		D4 = RND(3)+1
		DiceRoll = 1
		Text 175,250,Str$(D4)
	EndIf
EndIf

Thanks man.

The darkest minds, are often the brightest.

Back to top

Profile PM

Xyus

15

Years of Service

User Offline

Joined: 5th Sep 2009

Location:

Posted: 18th Jan 2010 06:19 Edited at: 18th Jan 2010 06:25

Link

You're welcome. Glad to help.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Jan 2010 01:26

Link

You can also do a loop that won't end till the mouse button is let go.

+ Code Snippet

randomize timer()

do

 if mouseclick()

  print rnd(100)

  ` Repeat this loop till the mouse button is let go
  repeat
  until mouseclick()=0
  
 endif

loop

Back to top

Profile PM Email

Sickly

15

Years of Service

User Offline

Joined: 14th Jul 2009

Location: Does it matter?

Posted: 19th Jan 2010 19:23

Link

yea. I like the way I set it up with mouseclick()=0. here is what I changed it to.

+ Code Snippet

If MouseClick() = 0
	DiceRoll = 0
EndIf
	
 

If MouseX() > 0 AND MouseX() < 99 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1 and DiceRoll = 0
		CLS RGB(255,255,255)
		D4 = RND(3)+1
		DiceRoll = 1
		Text 175,250,Str$(D4)
	EndIf
EndIf

If MouseX() > 100 AND MouseX() < 179 AND MouseY() > 0 AND MouseY() < 99
	If MouseClick()=1 and DiceRoll = 0
		CLS RGB(255,255,255)
		D6 = RND(5)+1
		DiceRoll = 1
		Text 175,250,Str$(D6)
	EndIf
EndIf

I like this way, because I can use the same variable for each dice image with out actually having to do anything to clear it aside letting go of the mouse, which the user will do. Thanks for all the help though seriously guys. I am pretty stoked to have written my first complete program. I would like to make a new tool for my D&D games, but I need the DarkINK DLL to make it work. I want to create a character sheet editor(generator) so I can print my own. Not really something I "need" but I would like to try and create it none the less.

The darkest minds, are often the brightest.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / problem with mouseclick()