Sorry your browser is not supported!

sync rate 60 : sync on

for i = 1 to 5
    box rnd(800),rnd(640),rnd(800),rnd(640),rgb(rnd(255),rnd(255),rnd(255))
NEXT
sync

get image 1,0,0,800,600
sprite 1,-1110,-1110,1
do

paste sprite 1,300,300
scale sprite 1,25

if rgbr(point(mousex(),mousey())) > 0 then print "CLICKABLE"
if rgbr(point(mousex(),mousey())) > 0 and mouseclick() then print "CLICKED"

sync
cls
    
    
LOOP

sync rate 60 : sync on

for i = 1 to 5
    box rnd(800),rnd(640),rnd(800),rnd(640),rgb(rnd(255),rnd(255),rnd(255))
    line rnd(800),rnd(640),rnd(800),rnd(640),rgb(rnd(255),rnd(255),rnd(255))
NEXT
sync

get image 1,0,0,800,600
sprite 1,-1110,-1110,1
create bitmap 1,800,600
do
    
set current bitmap 1
paste sprite 1,100,100
scale sprite 1,50
c = 0
if rgbr(point(mousex(),mousey())) > 0 then c = 1
if c = 1 and mouseclick() = 1 then c = 2
cls

set current bitmap 0

if c= 1 then print "clickable"
if c= 2 then print "clicked"
paste sprite 1,100,100
scale sprite 1,50
sync
cls rgb(10,20,10)
    
    
LOOP

sync rate 60 : sync on

for i = 1 to 5
    box rnd(800),rnd(640),rnd(800),rnd(640),rgb(rnd(255),rnd(255),rnd(255))
    line rnd(800),rnd(640),rnd(800),rnd(640),rgb(rnd(255),rnd(255),rnd(255))
NEXT
sync

get image 1,0,0,800,600
sprite 1,-1110,-1110,1
create bitmap 1,800,600
do

if mouseonsprite(1) = 1 then print "clickable"   
if mouseonsprite(1) = 2 then print "clicked"   

sprite 1,100,100,1
scale sprite 1,50
sync
cls rgb(10,20,10)
    
    
LOOP

function mouseonsprite(number)
    set current bitmap 1
    paste sprite 1,100,100
    scale sprite 1,50
    c = 0
    if rgbr(point(mousex(),mousey())) or rgbg(point(mousex(),mousey())) > 0 or rgbb(point(mousex(),mousey()))then c = 1
    if c = 1 and mouseclick() = 1 then c = 2
    cls
    set current bitmap 0
ENDFUNCTION c

` Grab a small image for a mouse sprite
get image 1,0,0,1,1,1
` Make it a sprite
sprite 1,0,0,1

` Make some other sprites
for t=2 to 20
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 box 0,0,50,50
 get image t,0,0,50,50,1
 sprite t,rnd(screen width()),rnd(screen height()),t
next t

ink rgb(255,255,255),0

do

 cls
 
 ` Show the mouse sprite at the mouse coordinates
 sprite 1,mousex(),mousey(),1
 
 ` Make a equal the current sprite colliding with the mouse sprite
 a=sprite collision(1,0)
 
 ` Check if the mouse sprite is colliding with another sprite
 if a>0
  text 0,0,"Sprite #"+str$(a)+" is being hit."
 endif

loop

function mouseonsprite(sprnum)


   ` Save current bitmap number.
   oldbmp = current bitmap()

   ` Get free bitmap number for temporary bitmap.
   tmpbmp = freebmp()

   ` Create bitmap the size of the sprite and paste sprite centered on temporary bitmap.
   create bitmap tmpbmp, sprite width(sprnum), sprite height(sprnum)
   paste sprite sprnum, sprite offset x(sprnum), sprite offset y(sprnum)

   ` Get mouse position on screen and convert it to a position on the temporary bitmap.
   mx = mousex(): my = mousey()
   mx = mx - sprite x(sprnum) + sprite offset x(sprnum)
   my = my - sprite y(sprnum) + sprite offset y(sprnum)

   ` Get color at mx,my on temporary bitmap and set the functions return value.
   ` If the mouse is on the sprite but on the transparency the function will return 0(false) regardless of the backdrop color.
   ` If the mouse is on the non transparent part of the sprite the function will return true(any value other then zero).
   lock pixels
   returnvalue = point(mx, my)
   unlock pixels

   ` Restore current bitmap and delete temporary bitmap.
   set current bitmap oldbmp
   delete bitmap tmpbmp

endfunction returnvalue