Can someone fix my dropping procedure please it dosen't work
It is dropping willow logs
SCAR Code:Procedure Droplogs;
var
X, Y: Integer;
I : Byte;
begin
if InvFull then
for i := 2 to 28 do
if ExistsItem(I) then
begin
MMouseItem(I);
Wait(10 + random(7));
if Pos('log', RS_GetUpText) <> 0 then
begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
ChooseOption('rop');
Wait(10 + random(7));
end;
end;
Dropped := Dropped + 1;
end;


Reply With Quote





