Sorry your browser is not supported!

[i]rem - checks mouse location, x value is used to validate current image, mt was used to validate mouse location on screen[/i]

if mx>63 and mx<287 and my>270 and my <325 and x=1:mt=2
[i]rem - performs a image rollover effect[/i]
show sprite 6
hide sprite 1
[i]rem - checks for user clicks on button[/i]
  if mouseclick()=1:mc=1
   if spv>=1: sv=1
[i]rem - short delay to seperate mouse click from the mouse click in gosub routine[/i]
Timestart = TIMER()
REPEAT
UNTIL TIMER() > Timestart + 600
[i]rem - alpha reduces program confusion of sprite display between current image and gosub routine image[/i]
     if sv=1 and mouseclick()=0 :set sprite alpha 6,0 then gosub boommenu1
 endif
  endif
   endif
 if mx<63 or mx>287 or my<270 or my>325 then hide sprite 6:show sprite 1

Function Hide_Button(BI)
   GUI(BI).Draw = 0
EndFunction

Function Show_Button(BI)
   GUI(BI).Draw = 1
EndFunction

Function Update_GUI(I)
   If I = 0 then I = 500
   For t=1 to I
      If GUI(t).Draw = 1 then Paste Image GUI(t).Image,GUI(t).Pos.X,GUI(t).Pos.Y
   Next t
EndFunction

Function Make_Button(BI,Image,X,Y,SizeX,SizeY)
   Gui(BI).ButtonIndex = BI
   Gui(BI).Image = Image
   Gui(BI).Pos.X = X
   Gui(BI).Pos.Y = Y
   Gui(BI).Size.X = SizeX
   Gui(BI).Size.Y = SizeY
   Gui(BI).Draw = 1
EndFunction

Function Position_Button(BI,X,Y)
   Gui(BI).Pos.X = X
   Gui(BI).Pos.Y = Y
EndFunction

Function Button_Clicked(t)
   MX = MouseX()
   MY = MouseY()
   If t=0 then t=500
   For BI=1 to t
      If MouseClick() = 0 then Gui(BI).Clicked = 0
      If MouseClick() = 1 and Gui(BI).Clicked = 0
         If MX>Gui(BI).Pos.X and MX<Gui(BI).Pos.X + Gui(BI).Size.X
            If MY>Gui(BI).Pos.Y and MY<Gui(BI).Pos.Y + Gui(BI).Size.Y
               ReturnValue = BI
               Gui(BI).Clicked = 1
               ExitFunction ReturnValue
            Endif
         Endif
      Endif
   Next BI
EndFunction ReturnValue

Type XYZ
   X as Integer
   Y as Integer
   Z as Integer
EndType

Type Gui
   ButtonIndex as Integer
   Image as Integer
   Pos as XYZ
   Size as XYZ
   Clicked as Boolean
   Draw as Boolean
EndType
Dim Gui(500) as Gui