HelpSimba Auto looter not working

few months ago i made a autolooter it was working fine back then but same auto looter is compiling but not working properly
Here is my simba auto looter :-
(NOTE : there is no prob with coordinates or any number , the prob is it's not moving while holding)
__________________________________________________ __________________________________________________ _______________________
program rotmg_autolooter;
procedure sublooting;
begin
movemouse(640, 580);
holdmouse(640, 580, 1);
movemouse(640,490);
releasemouse(640,490, 1);
end;

procedure looting;
var
x, y:Integer;
begin
if findcolor(x, y, 5526612, 785, 640, 785, 640) then
begin
sublooting;
end;
end;

begin
repeat
looting
wait(200);
until(false)
end.

__________________________________________________ __________________________________________________ ________________________

I know exactly where it's not working , it's :-

movemouse(640, 580);
holdmouse(640, 580, 1);
movemouse(640,490); <-----------when this function happens it just move the cursor didn't hold it (this is the prb)
releasemouse(640,490, 1);

It was working properly before but IDK Y it's not working now, why it's not holding it when moving !!!

PLEASE HELP

Oh, nice - the code is similar to "Scar Divi"
Brings back some good memories

Also, your problem might be the fact that the window is different size.
It probably is holding the mouse button, but not on the right spot.

Check if the coordinate (640, 580) is actually the right one...

Well, in that case the speed might be an issue.
It might move the mouse so fast that the client skips the input from holdmouse(640, 580, 1);
and instantly goes to releasemouse(640,490, 1);

You could try putting Wait(RandomRange(50,100)); between those two.

But why don't you simply use double click? It should be faster than drag-n-drop: