Ultima Online Antares

Program loot;

const
knife=$13F6; //Type бутчер кнайфа
scissors=$0F9E; //Type ножницы

var
grabmas, bodymonstro:array of word;

procedure Init;
begin
grabmas:=[$0EED,$1BFB,$0F3F,$1078,$09F1,$1BD1,$0F26,$0F25,$0F11,$0F13,$0F18,$0F16]; // предметы, которые лутим, первым ставим более нужные
bodymonstro:=[$2006];// типы трупов монстров которые надо обыскивать
SetPauseScriptOnDisconnectStatus(True);
SetARStatus(True);
end;

procedure find_body;
var
k,hhh: integer;
telo: cardinal;
begin
     for k:=0 to (GetArrayLength(bodymonstro)-1) do
     begin
     FindType(bodymonstro[k],Ground);  
        if (Findcount > 0) then  
            begin
                telo:=finditem; //telo - ИД убитый монстр  
                checklag(60000);
                WaitTargetObject(telo);
                UseObject(FindType(knife,Backpack));
                checklag(60000);
                UseObject(telo);
                checklag(60000);
                for hhh:=0 to (GetArrayLength(grabmas)-1)  do
                  begin
                  if  CountEx(grabmas[hhh],$FFFF,telo)>0 then
                      begin  
                        checklag(60000);
                        Grab(findItem,telo);  
                        wait(600);
                      end;  
                  end;
                ignore(telo);
            end;
     end;
end;

procedure cut;
    var
    hides: cardinal;
    begin
        FindType($1078,Backpack);
        if (Findcount > 0) then
            begin
                hides:=finditem;
                checklag(60000);
                WaitTargetObject(hides);
                UseObject(FindType(scissors,Backpack));
                checklag(60000);
            end;
    end;

begin
    init;
    while not dead do
        begin
            find_body;
            cut;
        end;
end.