Sorry your browser is not supported!

dim Left(1)
dim Top(1)
dim Right(1)
dim Bottom(1)
sync on
sync rate 60
left(1)=0
top(1)=0
right(1)=100
bottom(1)=179

blanco=rgb(255,255,255)
negro=rgb(0,0,0)
rojo=rgb(255,0,0)
verde=rgb(0,255,0)
azul=rgb(0,0,255)
morado=rgb(255,0,255)
gris=rgb(112,122,112)


do
cls

X=25
Y=10
ink blanco,negro
print "                                                     Screen FPS ",Screen FPS()
print "                                                     area ",Overarea()

if mouseclick()=0
addleft=mousex()-left(1)
addright=(mousex()-right(1))*-1
addtop=mousey()-top(1)
addbottom=(mousey()-bottom(1))*-1
endif

ink rojo,negro
box left(1),Top(1),Right(1),Bottom(1)
ink azul,negro
box left(1),Top(1),Right(1),Bottom(1)-150
ink blanco,negro
text left(1),top(1),"Test"

ink negro,blanco
box left(1)+5,top(1)+35,right(1)-5,bottom(1)-5

if Overarea()=1
if mouseclick()=1
left(1)=mousex()-addleft
top(1)=mousey()-addtop
right(1)=mousex()+addright
bottom(1)=mousey()+addbottom

endif
endif


sync
loop

Function OverArea()
if mousex()>left(1) and mousex()<right(1) and mousey()>top(1) and mousey()<Bottom(1)
Area = 1
endif
endfunction Area

do
  dot mousex(),mousey()
loop

`mouse cursor image
get image 1,0,0,1,1,1

`titlebar image
box 0,0,100,20
get image 5,0,0,100,20,1
cls

`mouse sprite
sprite 1,mousex(),mousey(),1

`titlebar sprite
sprite 5,50,50,5

`flag
move = 0

`mouse offset from topleft of sprite
offset_x = 0
offset_y = 0

do
  
  if move = 0 and sprite hit(1,5) and mouseclick() = 1
    move = 1
    offset_x = mousex() - sprite x(5)
    offset_y = mousey() - sprite y(5)
  endif
  
  if move = 1
    sprite 5, mousex() - offset_x, mousey() - offset_y, 5
    if mouseclick() = 0 then move = 0
  endif
  
  sprite 1,mousex(),mousey(),1
  
loop