Stealth Client Forum

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.