Well actually what i wanted is somethink like this:
dim Left(1)
dim Top(1)
dim Right(1)
dim Bottom(1)
sync on
sync rate 60
left(1)=50
top(1)=100
right(1)=150
bottom(1)=200
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)
do
cls
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)-85
if Overarea()=1
if mouseclick()=1
left(1)=mousex()-addleft
top(1)=mousey()-addtop
right(1)=mousex()+addright
bottom(1)=mousey()+addbottom
`endif
endif
endif
sync
loop
Function OverArea()
if mousex()=>left(1) and mousex()<=right(1) and mousey()=>top(1) and mousey()<=Bottom(1)-85
Area = 1
endif
endfunction Area
thats the best i got until now to move drawed boxes with the mouse
