Program New Procedure Loot var Types Array of Word Colors Array of Wor

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program New;
Procedure Loot;
var
Types : Array of Word;
Colors : Array of Word;
Locations : Array of Cardinal;
FindDistance:Integer;
begin
FindDistance:= 2;
Types := [$0E21, $0EED];//Bandages, Gold,
Colors := [$FFFF];
Locations := [$000000012, Ground];
while (FindTypesArrayEx(Types,Colors,Locations,True) > 0) do
begin
MoveItem(finditem,0,backpack,0,0,0);
Wait(500);
end;
end;
begin
//Body of Script
Loot;
end.