MouseHover()

This code has been declared by its author to be Public Domain code.

MouseHover() by asdfasdf

(Posted 1+ years ago)

Commands for checking to see if the mouse is over an image

Function MouseHover(image,x,y)

If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) Then
	Return True
Else
	Return False
EndIf

End Function

Function MouseClick(image,x,y,button=1)

If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) And MouseHit(button) Then
	Return True
Else
	Return False
EndIf

End Function

Comments

wizzlefish

(Posted 1+ years ago)

Those are some useful functions, although very simple...

it is amazing what simple If statements can do.

Yo! Wazzup?

(Posted 1+ years ago)

Cool. I changed the MouseHit() to MouseDown(), and made a demo for it.

Graphics 1280,1024,32,1
image=CreateImage(100,100)
image2=CreateImage(10,10)
SetBuffer ImageBuffer(image)
Oval 1,1,100,100,1
SetBuffer ImageBuffer(image2)
Color 255,0,0
Rect MouseX(),MouseY(),10,10,1
SetBuffer BackBuffer()
While Not KeyDown(1)
	Cls
	DrawImage image, 1,1
	DrawImage image2,MouseX(),MouseY()
	Color 255,255,255
	ishovering=MouseHover(image,1,1)
	isclicked=MouseClick(image,1,1)
	If ishovering=True Then
		Text 100,100, "Hovering!"
	EndIf
	If isclicked=True Then
		Text 100,112, "Clicked!"
	EndIf
	Flip
Wend
Function MouseHover(image,x,y)
	
	If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) Then
		Return True
	Else
		Return False
	EndIf
	
End Function

Function MouseClick(image,x,y,button=1)
	
	If RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) And MouseDown(button) Then
		Return True
	Else
		Return False
	EndIf
	
End Function

cYB0rG

(Posted 1+ years ago)

RectsOverlap already return true/false.
So, "If" is used for nothing.

Function MouseHover(image,x,y)
	
	Return RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) 
	
End Function

Function MouseClick(image,x,y,button=1)
	
	Return RectsOverlap(x,y,ImageWidth(image),ImageHeight(image),MouseX(),MouseY(),12,21) And MouseHit(button)
	
End Function

CS_TBL

(Posted 1+ years ago)

wazzup: a function that returns a value can be seen as some kinda variable, e.g. you can directly return it, do math with it, etc.

System4 Studios

(Posted 1+ years ago)

Just what I needed thanks..

Code Archives Forum