thx guys.. now i made it even MORE smoother! the selector and the mouse it self..
sync on : sync rate 100 : hide mouse
mx as integer : my as integer
CurX as Float : CurY as Float
mmy as float : mmx as float : nmmy as float : nmmx as float
oldx as integer : oldy as integer
do : cls
text 0,0,"FPS: "+str$(Screen fps())
mx = mousex() : my = mousey()
CurX = CurveValue(mx,CurX,6) : CurY = CurveValue(my,CurY,6)
mmy = mousemovey()*2 : mmx = mousemovex()*2
nmmy = CurveValue(mmy,nmmy,6) : nmmx = CurveValue(mmx,nmmx,6)
line CurX,CurY+nmmy,CurX+15,CurY+15 : line CurX,CurY+nmmy,CurX+nmmx,CurY+18 : line CurX+15,CurY+15,CurX+nmmx,CurY+18
if mouseclick()=1
if clicked = 0 then OldX = CurX : OldY = CurY : clicked = 1
line OldX,OldY,CurX,OldY+nmmy : line OldX,OldY,OldX+nmmx,CurY
line CurX,OldY+nmmy,CurX+nmmx,CurY+nmmy : line OldX+nmmx,CurY,CurX+nmmx,CurY+nmmy
line OldX,OldY,CurX+nmmx,CurY+nmmy : line OldX+nmmx,CurY,CurX,OldY+nmmy
endif
if mouseclick()=0 and clicked = 1 then clicked =0
sync : loop
and full code (40 lines):
sync on
sync rate 100
hide mouse
mx as integer
my as integer
CurX as Float
CurY as Float
mmy as float
mmx as float
nmmy as float
nmmx as float
oldx as integer
oldy as integer
do
cls
text 0,0,"FPS: "+str$(Screen fps())
mx = mousex()
my = mousey()
CurX = CurveValue(mx,CurX,6)
CurY = CurveValue(my,CurY,6)
mmy = mousemovey()*2
mmx = mousemovex()*2
nmmy = CurveValue(mmy,nmmy,6)
nmmx = CurveValue(mmx,nmmx,6)
line CurX,CurY+nmmy,CurX+15,CurY+15
line CurX,CurY+nmmy,CurX+nmmx,CurY+18 : line CurX+15,CurY+15,CurX+nmmx,CurY+18
if mouseclick()=1
if clicked = 0 then OldX = CurX
OldY = CurY : clicked = 1
line OldX,OldY,CurX,OldY+nmmy
line OldX,OldY,OldX+nmmx,CurY
line CurX,OldY+nmmy,CurX+nmmx,CurY+nmmy
line OldX+nmmx,CurY,CurX+nmmx,CurY+nmmy
line OldX,OldY,CurX+nmmx,CurY+nmmy
line OldX+nmmx,CurY,CurX,OldY+nmmy
endif
if mouseclick()=0 and clicked = 1 then clicked =0
sync
loop