Program spirit_an_ort
;var
i : Integer;
t: Integer;
regs : Array[1..3] of word;
stime :TDateTime;

{$Include 'all.inc'}



procedure checkregs;
begin
If Connected then begin
for i:= 1 to 3 do
begin
Findtype (regs[i],backpack);
If (FindCount=0) then begin
Findtype(regs[i],ground);
If (FindCount>0) then begin Grab(finditem,30);end
else AddToSystemJournal('Nema Regoff');
end;
end;
end;
end;

Begin
AddToSystemJournal('Spirit Speak [by Magros]');
ClearJournal;
SetARStatus(true);
regs[1]:=$0F8C;
regs[2]:=$0F86;
regs[3]:=$0F84;
FindDistance:=2;
While not Dead do
begin
If Connected then 
begin
For t:= 1 to 5 do 
begin
checkregs;
wait(200);
stime:=Now;
Useskill('Spirit Speak');
wait(1000);
If (InJournalBetweenTimes('You contact|You are already in contact|you fail',stime,now)>=0) then
begin
If (Mana<=10) then 
begin
wait(10000);
While (Mana<Int) do 
begin 
Useskill('Meditation');
wait(10000); 
end;
Cast('Dispel'); 
Waittargetself; 
wait(8500);
end;
begin
Cast('Dispel');
Waittargetself;
wait(10000);
end;
end;
end;
Hungry(1,ground);
t:=5;
end;
end;
End.