Sorry your browser is not supported!

sync on : sync rate 60
autocam off

type udt.ObjButton
   iIdelImg as integer
   iOverImg as integer
   iObj as integer
   sCaption as string
endtype

global MyButton as udt.ObjButton

MyButton.iIdelImg          = 1
MyButton.iOverImg          = 2
MyButton.iObj              = 1
MyButton.sCaption          = "BUTTON"

set text font "Arial"
set text size 64
set text to bold

iCaptionWidth = text width(MyButton.sCaption)

x1 = 0 : x2 = iCaptionWidth + 16
y1 = 0 : y2 = text size() + 6

`idel button image
ink RGB(255,255,255),0
box x1,y1,x2,y2

ink RGB(64, 94, 149),0
box x1+4,y1+4,x2-4,y2-4

ink RGB(255,255,255),0
txtx = x2/2 : txty = (y2/2)-(text size()/2)
center text txtx,txty,MyButton.sCaption

get image MyButton.iIdelImg,x1,y1,x2,y2,0

cls

`over button image
ink RGB(64, 94, 149),0
box x1,y1,x2,y2

ink RGB(255,255,255),0
box x1+4,y1+4,x2-4,y2-4

ink RGB(64, 94, 149),0
txtx = x2/2 : txty = (y2/2)-(text size()/2)
center text txtx,txty,MyButton.sCaption

get image MyButton.iOverImg,x1,y1,x2,y2,0

cls

make object plain MyButton.iObj,x2/2,y2/2
texture object MyButton.iObj,0,MyButton.iIdelImg
set object light MyButton.iObj,0
rotate object MyButton.iObj,0,180-36,0
position object MyButton.iObj,-64,0,364

do

   if pick object(mousex(),mousey(),MyButton.iObj,MyButton.iObj)>0
      texture object MyButton.iObj,0,MyButton.iOverImg
   else
      texture object MyButton.iObj,0,MyButton.iIdelImg
   endif

   sync
loop

FUNCTION Button(x1, y1, x2, y2, linecolour, buttoncolour, textcolour, text$, buttonhovercolour, hovertextcolour, hovertext$)
   INK linecolour, 0
   LINE x1, y1, x2, y1
   LINE x1, y1, x1, y2
   LINE x1, y2, x2, y2
   LINE x2, y1, x2, y2
   INK buttoncolour, 0
   BOX x1+1, y1+1, x2, y2
   INK textcolour, 0
   CENTER TEXT (x1+x2)/2, (y1+y2)/2-7, text$
   IF MOUSEX() > x1 AND MOUSEX() < x2 AND MOUSEY() > y1 AND MOUSEY() < y2
      INK buttonhovercolour, 0
      BOX x1+1, y1+1, x2, y2
      INK hovertextcolour, 0
      CENTER TEXT (x1+x2)/2, (y1+y2)/2-7, hovertext$
      IF MOUSECLICK() = 1
         `<Code for mouseclick here>
      ENDIF
   ENDIF
ENDFUNCTION

init_button(200,23,rgb(255,255,255),rgb(122,122,122),rgb(0,255,0),"Click me",rgb(200,200,200),rgb(255,0,0),"*Click me*",1)
init_button(200,23,rgb(255,255,255),rgb(122,122,122),rgb(0,255,0),"Click me",rgb(200,200,200),rgb(255,0,0),"Click me not",3)

do
if Button(35,25,200,23,1) then text 0,0,"HI!"
if Button(35,60,200,23,3) then end
sync
loop


function init_button(xsize,ysize,linecolor,buttoncolor,textcolor,text$, buttonhovercolor,hovertextcolor,hovertext$,buttonnum)

lock pixels
create bitmap 1,xsize,ysize
set current bitmap 1
x1=1
y1=1
x2=xsize
y2=ysize

INK linecolor, 0
LINE x1, y1, x2, y1
LINE x1, y1, x1, y2
LINE x1, y2, x2, y2
LINE x2, y1, x2, y2
INK buttoncolor, 0
BOX x1+1, y1+1, x2, y2
INK textcolor, 0
CENTER TEXT (x1+x2)/2, (y1+y2)/2-7, text$
get image buttonnum,1,1,xsize,ysize

cls

INK linecolour, 0
LINE x1, y1, x2, y1
LINE x1, y1, x1, y2
LINE x1, y2, x2, y2
LINE x2, y1, x2, y2
INK buttonhovercolor, 0
BOX x1+1, y1+1, x2, y2
INK hovertextcolor, 0
CENTER TEXT (x1+x2)/2, (y1+y2)/2-7, hovertext$
get image buttonnum+1,1,1,xsize,ysize

unlock pixels
set current bitmap 0
endfunction

FUNCTION Button(x1, y1, xsize, ysize,buttonnum)
   paste image buttonnum,x1,y1

   IF MOUSEX() > x1 AND MOUSEX() < x1+xsize AND MOUSEY() > y1 AND MOUSEY() < y1+ysize
      paste image buttonnum+1,x1,y1
      IF MOUSECLICK() = 1 then exitfunction 1
   ENDIF
ENDFUNCTION 0

button(382,419,638,483,"you pressed button 2"

function button(x,y,x2,y2,text$)
if MX# > 382 and MY# > 419 and MX# < 638 and MY# < 483
clear camera view RGB(0,0,0)
text 0,0,text$
endif
endfunction