Sprite Control Lib

; create a blank sprite image (from a quad mesh)
Function CreateImage3D(w=1,h=1,par=-1)
	If par=-1 par=spritecam
	Local sprite=CreateMesh(par)
	Local s=CreateSurface(sprite)
	AddVertex s,-1,1,0 ,0,0 : AddVertex s,1,1,0 , 1,0
	AddVertex s,-1,-1,0 ,0,1 : AddVertex s,1,-1,0 , 1,1
	AddTriangle s,0,1,2 : AddTriangle s,3,2,1

        ;Here is what I added to try and get picking working
        EntityPickMode sprite,1
	EntityRadius sprite,w

	EntityFX sprite,1+16
	ResizeImage3D sprite,w,h
	Return sprite
End Function

type button
  field entity,name$
  field x,y,w,h
end type

function createButton(name$,x,y,image$)
  b.bnutton=new button
  b\name=name
  b\entity=loadimage3d(image)
  b\x=x : b\y=y
  b\w=imagewidth3d(b\entity)
  b\h=imageheight3d(b\entity)
end function

mx=mousex()
my=mousey()

if mousehit(1)
  for t.button=each button
    if mx > t\x and mx < t\x+t\w
       if my > t\y and my < t\y+t\h
          ; you've selected a button
          return t\name
       endif
    endif
  next
endif