Program IDOCLooter var ItemList Array of Cardinal Integer begin DropDe

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Program IDOCLooter;
var
ItemList : Array of Cardinal;
a : Integer;
begin
DropDelay := 1300;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $40328F03;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $4000EE86;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $4009716B;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $400F7202;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $400F7201;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $40098055;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $40033D12;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $401E5305;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $401EA3C0;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $401CD485;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $4014B9D1;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $4032DFFB;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $40107719;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $4046D0AC;
SetLength(ItemList,Length(ItemList)+1);
ItemList[Length(ItemList) - 1] := $40083B86;
while(IsObjectExists($4032AEE9))do
begin
Wait(25);
end;
while(True)do
begin
for a := 0 to Length(ItemList) - 1 do
begin
if(IsObjectExists(ItemList[a]))and(GetDistance(ItemList[a])<=2)and(GetParent(ItemList[a])<> Backpack)then
begin
MoveItem(ItemList[a],60000,Backpack,0,0,0);
end;
end;
end;
end.