Sorry your browser is not supported!

set display mode 1600,900,32
`color backdrop rgb(0,0,0)
 
sync

` ===================

load image "MENUS/START.png",100000
sprite 2,0,0, 100000
PASTE sprite 2,1,0

` ===================

load image "MENUS/MAIN.png",110000
SPRITE 3,0,0, 110000
HIDE SPRITE 3

` ===================
 
Do

  Mx=MouseX(): My=MouseY(): Mc=MouseClick()

  If Mc=1 Then Gosub CheckMain
  Sync
Loop
End

CheckMain:
  If Mx > 1180 and My > 535 And Mx < 1420 And My < 630
   hide sprite 2
   PASTE sprite 3,0,0
  
endif 
return

Function Mouse_Button_Func(Button)
	Mouse(Button).Quick_Click = 0
	Mouse(Button).Press = 0
	Mouse(Button).Release = 0
	Mouse(Button).Release_Double_Click = 0
`Detects Button Depress
	If Mouse(Button).Click = Button And Mouse(Button).Hold = 0
		Mouse(Button).Press = 1
		Mouse(Button).Delay_hold = hitimer()
`Left & Right mouse conflict with press & release hold
		Mouse(Button).PosX_Cache = Mouse(Button).PosX
		Mouse(Button).PosY_Cache = Mouse(Button).PosY
	Endif 
	
`Detects Button Release
	If Mouse(Button).Click = 0 And Mouse(Button).Hold = 1
		Mouse(Button).Release = 1
		Mouse(Button).Delay_Cache = Mouse(Button).Delay
		Mouse(Button).Delay = hitimer()	
		Mouse(Button).Delay_Hold_Cache = hitimer()
		
		If Mouse(Button).Delay_Hold_Cache-Mouse(Button).Delay_Hold < 500
			Mouse(Button).Quick_Click = 1
		endif
		
`Detects Double Release ~ 250ms	
		If (Mouse(Button).Delay-Mouse(Button).Delay_Cache) > 0 And (Mouse(Button).Delay-Mouse(Button).Delay_Cache) < 250
			Mouse(Button).Release_Double_Click = 1		
		Endif 
	Endif 
	
`Hold Detect
	If Mouse(Button).Click = Button
		Mouse(Button).Hold = 1
	else
		Mouse(Button).Hold = 0
	Endif 
endfunction