Sorry your browser is not supported!

set window on
sync on
sync rate 0
hide mouse
get image 1050,0,0,100,100
load image "MUDFMenu.bmp",1000
load image "DFPlay.bmp",1001
load image "DFControls.bmp",1002
load image "DFmouse.bmp",1003
paste image 1000,0,0
do
sprite 999,selx,sely,1050
sprite 998,50,375,1001
size sprite 998,200,80
sprite 997,375,370,1002
size sprite 997,200,80
sprite 30,mousex(),mousey(),1003
if mouseclick()
   selx=mousex()
   sely=mousey()


endif
if sprite collision(998,999) then goto play

if sprite collision(999,997) then goto controls

sync
loop



play:
cls
sync
end
controls:

cls
sync
end

hide mouse
sync on
`make a image that will be used for a mouse
load image "mouse.bmp",1
`load the button
load image "button.bmp",2
do
sprite 1,mousex(),mousey(),1
sprite 2,100,100,2

if mouseclick()=1 and sprite collision(1,2)>0 then gosub click

sync
loop

end

click:
PRINT "You Clicked a Button"
return

sync rate 0
sync on
` Make a small box for the end of the mouse
ink rgb(255,255,255),0
box 0,0,1,1
get image 1000,0,0,1,1,1

` Make a "button" for testing
ink rgb(150,150,150),0
box 0,0,50,20
get image 1,0,0,50,20,1

cls
` Make two "buttons" from image 1
sprite 1,10,10,1
sprite 2,10,50,1
` Make the 2x2 image a sprite at the mouse location and hide the sprite
sprite 100,mousex(),mousey(),1000
hide sprite 100

do
 ` Always keep the small 2x2 box at the mouse location
 sprite 100,mousex(),mousey(),1000
 ` Check for mouse button being clicked
 if mouseclick()
  ` Check both buttons for clicking
  for t=1 to 2
  ` Check if the 2x2 image is touching the "button" sprite
   if sprite collision(100,t)
    text 0,100,"Mouse clicked on sprite "+str$(t)+"!"
    a=timer()
   endif
  next t
 endif
 if timer()>=a+50
  cls
  a=0
 endif
 sync
loop

function spritebutton(sprite)
   pressed = 0
   sx = sprite width(sprite)
   sy = sprite height(sprite)
   x = sprite x(sprite)
   y = sprite y(sprite)
   if mousex() < x + sx and mousex() > x
      if mousey() < y + sy and mousey() > y
         if mouseclick() = 1 then pressed = 1
      endif
   endif
endfunction pressed