Code: Select all
Program Ress; 
var 
ic : integer;
Ghost: array [0..5] of Word;
Begin 
Ghost[0]:=$0192;// womann
Ghost[1]:=$0190;// mann
Ghost[2]:=$025D// elf weibchen
Ghost[3]:=$025F;// elv          
Ghost[4]:=$0260;
Ghost[5]:=$025E;
While not Dead Do 
begin  
SetARStatus(true);
UseObject(Backpack);
        if not connected then
        begin
        repeat
        addtosystemjournal('reconnect');  
        Connect;
        wait(258000)
        until connected
        end;
                  
	finddistance := 3;
	ignoreReset;
	
        repeat
        FindType(Ghost[ic],Ground);
        wait(100);
        AddToSystemJournal('Naschol: '+IntToStr(Finditem));
        wait(500);
	
        If IsDead(Finditem) then
        Begin
          AddToSystemJournal('Da, mertv: '+IntToStr(Finditem)); 
          If TargetPresent Then CancelTarget;
          cast('Resurrection');
          waittargetObject(Finditem);
          wait(2000);
        End;   
         until (Findtype(Ghost[ic],Ground) <= 0);
   ignoreReset;
        If not Hidden then
           begin
           while not Hidden do
             begin
             UseSkill('Hiding');
             wait(3600);
             end;
           end; 
	
End;
End.
