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.