Program Anatomy;
var
IsCasting:Boolean;
enemy,corpse,i,CorpseCount,EnemyCount, c, cc, scoordx, scoordy: Integer;

const
Pers = $0021B0E1;
CorpesType = $2006;

procedure checkcorpes;
begin
if not Dead then
  begin
  If TargetPresent Then CancelTarget;
    if (CountGround(CorpesType) > 0) then
    begin
    repeat
    FindType(CorpesType,Ground);
    corpse:=Finditem;
    SetGlobal('stealth','TestVar2','Трупов: '+IntToStr(FindCount));
    SetGlobal('stealth','TestVar1','Лутим Х:'+IntToStr(GetX(corpse))+' Y:'+IntToStr(GetY(corpse))); 
    If TargetPresent Then CancelTarget;
    NewMoveXY(GetX(corpse),GetY(corpse), True, 0, True);
    UseObject(Finditem); 
    Wait(350);
    //WaitTargetObject(corpse);
    //UseObject(FindType(DaggerType,Backpack));
    //WaitJournalLine(Now, 'You plase|You cannot', 3000);
    FindType($1012,corpse);
    if (Findcount > 0 ) then 
     begin
      MoveItem(Finditem,FindQuantity,Backpack,0,0,0);
      Wait(350);

     end;
     Wait(250);
     
    
    Ignore(corpse);
    CorpseCount := CorpseCount + 1;
    //SetGlobal('stealth','TestVar2','Залучено: '+IntToStr(CorpseCount)+'['+IntToStr(Count(Silver))+']'); 
    until (CountGround(CorpesType) = 0);
    //SetGlobal('stealth','TestVar5','Трупов больше нет'); //
    //SetGlobal('stealth','TestVar2','BG:'+ IntToStr(Count($0E21))+'['+IntToStr(Count(Silver))+']'); //
    end; 
  end;
end;


Begin

SetARStatus(true);
SetPauseScriptOnDisconnectStatus(true);
SetBadLocation(137,1916); 


  while not Dead do
    begin 
    newmovexy(GetX(Pers),GetY(Pers),true,1,true);
    if GetHP(Pers) < GetMaxHP(Pers)-1 then   
     begin
        IsCasting:=True;    
        if IsPoisoned(Pers) then 
            begin
                CancelTarget;
                CancelWaitTarget;
                Cast('Cure');
                WaitForTarget(750);
                if targetpresent then
                begin
                    TargetToObject(Pers);
                    IsCasting:=False;
                end;        
            end
        else
            begin
                CancelTarget;
                CancelWaitTarget;
                cast ('Heal');
                WaitForTarget(750);
                if targetpresent then
                    begin
                        TargetToObject(Pers); 
                        IsCasting:=False;
                    end;
            end;        
     end; 
        if GetHP(self) < GetMaxHP(self)-1 then   
     begin
        IsCasting:=True;    
        if IsPoisoned(self) then 
            begin
                CancelTarget;
                CancelWaitTarget;
                Cast('Cure');
                WaitForTarget(750);
                if targetpresent then
                begin
                    TargetToObject(self);
                    IsCasting:=False;
                end;        
            end
        else
            begin
                CancelTarget;
                CancelWaitTarget;
                cast ('Heal');
                WaitForTarget(750);
                if targetpresent then
                    begin
                        TargetToObject(self); 
                        IsCasting:=False;
                    end;
            end;        
     end;  
     
    wait(250);
    checkcorpes;
    end;

End.