SCAR Code:
procedure DropItems(Items: TStringArray);
var
tx, ty, logs, i, R, R2, L, Axe: integer;
Pr: TPoint;
begin
if not(LoggedIn) then Exit;
logs := DTMFromString('78DA63FCC8C4C0D0C0C8800C9A536D19FE036' +
'990E87F20607C0E545385AA06220B2381F46FA09A72026AFE03D5' +
'B41350F306A8A68F809A1740355D04D43C06AA69C4AF0600FED91' +
'064');
Axe := DTMFromString('78DA633CC1C4C0F0870105B4A40832FC07D28' +
'C40FC1F08180F01D50832A22A6260442281F47E22D41C03AAF9C9' +
'805FCD15A09AFF04D45C06AAF94540CD45A01A26FCEE010086730' +
'FB3');
if FindDTM(logs, tx, ty, MIX1, MIY1, MIX2, MIY2) then
begin
repeat
if not(LoggedIn) then Exit;
if RMM then
MouseSpeed := (10 + random(7));
Status('Inv MouseSpeed := '+ IntToStr(MouseSpeed));
i := InvCount;
r := random(8);
r2 := random(2);
Mouse(tx, ty, 8, 8, false);
wait(100 + random(75));
case r of
0,1,2,3,4,5,6: begin
if not(LoggedIn) then Exit;
ChooseOption('rop');
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
LogsCut := LogsCut + 1;
while InvCount = i do wait(1);
end;
7: begin
if not(LoggedIn) then Exit;
ChooseOption('se');
wait(100 + random(75));
case r2 of
0: Mouse(tx, ty, 8, 8, true);
1: begin
if not(LoggedIn) then Exit;
Mouse(tx, ty, 10, 4, false);
wait(100 + random(75));
ChooseOption('ancel');
end;
end;
Continue;
end;
{8: begin
ChooseOption('xam');
Goto repeat;
end;}
end;
repeat
if not(LoggedIn) then Exit;
FindRand;
until(not(InvCount = i));
until not(FindDTM(logs, tx, ty, MIX1, MIY1, MIX2, MIY2));
end;
for L := 1 to 28 do
begin
if not(LoggedIn) then Exit;
if KeepExtraItems then Break;
if ExistsItem(L) then
begin
Pr := ItemCoords(L);
begin
MMouse(Pr.x, Pr.y, 8, 8);
wait(100 + randomrange(100, 250));
if not(IsUpTextMultiCustom(Items)) then
begin
Mouse(Pr.x, Pr.y, 8, 8, False);
Wait(170 + Random(50));
if (ChooseOption('rop')) then
Wait(500 + Random(100));
end;
end;
end;
end;
ArrangeInv;
FreeDTM(logs);
FreeDTM(Axe);
LoadsDone := LoadsDone + 1;
TotalLoads := TotalLoads + 1;
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + 1;
end;