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.