Sorry your browser is not supported!

type TButton
	id as integer
	x as integer
	y as integer
	w as integer
	h as integer
	text$ as string

	onclick_callback$ as string // possible?

	image_up$ as string
	image_down$ as string

	_img_up as integer
	_spr_up as integer
	_img_down as integer
	_spr_down as integer
endtype

type button
   id //sprite id
   state //button state
   //Normally have a few more things here
endtype

bts as button[99]

function MakeButton(x,y,xsize,ysize,img)
   for k=1 to 99
      if GetSpriteExists(bts[k].id)=0
          c=k
          exit
      endif
   next

   bts[c].id=CreateSprite(img)
   //Finish making sprite here
endfunction c //return array position

function DoButtons()
   for k=1 to 99
      if GetSpriteExists(bts[c].id)
         //Do Sprite hit test stuff here
         //set bts[k].s to 1 if button is down, 2 if button is released
      endif
   next
endfunction

function State(i)
   ret=bts[i].s
endfunction ret


//START MAIN CODE, above code is normally in a different file
start=MakeButton(20,20,30,10,LoadImage("startButton.png"))

do
   print(state(start))
   sync()
loop