Something wrong with my mouse code

Blitz3D Forums/Blitz3D Beginners Area/Something wrong with my mouse code

bashc

(Posted 2010) [#1]

I am writting a program in which there are some code which does not work an I need help to fix it, please.

I cannot select with mouse second boxe of my code and I do not found what is wrong in my code.

This is my code bugged:


Global pnt
Global zong_x1,zong_y1 ,zong_x2, zong_y2  ,points       
zong_x1=30                        
zong_x2=20
zong_y1=50                         
zong_y2=30     
pnt=2
Dim puntos#(5)
Graphics 800,600,32,pnt
creabotonpuntos(zong_x1+231,zong_y1+280)          ;Create two  boxes
creabotonpuntos(zong_x1+231+44,zong_y1+280)


While Not KeyDown(1)  
;++++++++++++++++++++++++++++++ First box chequed	It works
	points=1
If MouseX() => zong_x1+231 And MouseX() =< zong_x2+231+45 And MouseY() =>zong_y1+280 And MouseY() <=zong_y2+280+33 And MouseHit(1) And puntos#(1) <100
	
	puntos#(points) = puntos#(points)+1.5  
	Selecbotonpuntos(zong_x1+231,zong_y1+280,150,50,50,points)
	Delay 240
	
	Selecbotonpuntos(zong_x1+231,zong_y1+280,50,50,50,points)
EndIf

If MouseX() => zong_x1+231 And MouseX() =< zong_x2+231+45 And MouseY() =>zong_y1+280 And MouseY() <=zong_y2+280+33 And MouseHit(2) And puntos#(1) >0.0
	puntos#(points) = puntos#(points)-1.5  
	Selecbotonpuntos(zong_x1+231,zong_y1+280,150,50,50,points)
	
	Delay 240
	
	Selecbotonpuntos(zong_x1+231,zong_y1+280,50,50,50,points)
EndIf


;++++++++++++++++++++++++++++++ second box chequed Why it do not work???
points=2
If MouseX() => zong_x1+231+44 And MouseX() =< zong_x2+231+45+44 And MouseY() =>zong_y1+280 And MouseY() <=zong_y2+280+33 And MouseHit(1) And puntos#(2) <100
	puntos#(points) = puntos#(points)+1.5  
	Selecbotonpuntos(zong_x1+231+44,zong_y1+280,150,50,50,points)
	Delay 240
	
	Selecbotonpuntos(zong_x1+231+44,zong_y1+280,50,50,50,points)
EndIf

If MouseX() => zong_x1+231+44 And MouseX() =< zong_x2+231+45+44 And MouseY() =>zong_y1+280 And MouseY() <=zong_y2+280+33 And MouseHit(2) And puntos#(2) >0.0
	puntos#(points) = puntos#(points)-1.5  	
	Selecbotonpuntos(zong_x1+231+44,zong_y1+280,150,50,50,points)
	
	Delay 240
	
	Selecbotonpuntos(zong_x1+231+44,zong_y1+280,50,50,50,points)
EndIf

Wend


Function creabotonpuntos(box1_x,box1_y)
	
	Color 100,200,100                         ;  Colour of border box
	Rect box1_x,box1_y,36,15,0            
	
	Color 100,100,100                     
	Rect box1_x+1,box1_y+1,34,13,1            ;  Inside  box
	
	Color 255,255,255
	Locate box1_x+1,box1_y+1                  ;  Increase o decrease points 
	Write puntos#(points)                     ; in box
	
End Function

Function Selecbotonpuntos(box1_x,box1_y,c1,c2,c3,points)
	Color 100,200,100                         ;  Colour of border box
	Rect box1_x,box1_y,36,15,0            
	
	Color c1,c2,c3                         
	Rect box1_x+1,box1_y+1,34,13,1           ;  Inside  box
	
	Color 255,255,255
	Locate box1_x+1,box1_y+1                  ;  Increase o decrease points
	Write puntos#(points)                     ; in box
End Function

I know that if someboy help me, I will save a lot of time and I apreciate any help founded in this forun, some times.

Warner

(Posted 2010) [#2]

You should only use MouseHit once each loop.
So use:

mh = MouseHit(1)

And then fill in 'mh' whereever you need to use MouseHit.

bashc

(Posted 2010) [#3]

OH! now it works correctly!

I do not knew this thing about mouse command.

Thank you very much for help Warner