Sorry your browser is not supported!

function cbutton(x,y,string$,id)
   mx=mousex() : my=mousey()
   x1=x-(text width(string$)/2)
   x2=x+(text width(string$)/2)
   y1=y+3
   y2=y+text height(string$)
   if clicked=0 or clicked=id
      if mx>=x1 and mx<=x2 and my>=y1 and my<=y2
         if click=0
            if mouseclick()=1
               state=2
               clicked=id
               click=1
            else
               state=1
            endif
         else
            if mouseclick()=1
               state=2
            else
               state=3
               click=0
               clicked=0
            endif
         endif
      else
         state=0
         if click=1
            if mouseclick()=0
               clicked=0
               click=0
            endif
         endif
      endif
   else
      state=0
   endif
endfunction state

  For lp=1 to 10
     print Bump()
  next
  sync
  wait key

Function Bump()
   Result=Result+1
EndFunction Result

 // declaration code
 Type tMouseState
      x,y,button
 EndType

 Type tKeyBoardState
      somekey
 EndType


 Type tInputDevices
		Mouse as tMouseState
		KeyBoard as tKeyBoardState
 EndType

 // Store in a global type, protecting us from typos
 Dim Input as tInputDevices
 

  // main loop
  do
    
    // Get the mouse state
    Input.Mouse.x			=MouseX()
    Input.Mouse.y			=MouseY()
    Input.Mouse.button	=MouseButton()

	 // Call the game stuff
		DoGameStuff()
	 
	 
    sync
  loop


function DoGameStuff()

  if Input.mouse.button
     print "Fire"
    // flush the state
    Input.mouse.button=0
  endif

endfunction