[/code]function Icon_Read(spr,x1,y1)
if mousex()>x1 and mousex()<x1+sprite width(spr)
if mousey()>y1 and mousey()<y1+sprite height(spr)
value=mouseclick()
set sprite diffuse spr,20,20,250

endif
endif

endfunction value[code]