Sitemap

program SpiritSpeak;
{$Include 'all.inc'}

var
ctime : TDateTime;
i : Integer;

Procedure Meditation;
Begin
  ctime := Now;
  repeat
    UseSkill('Meditation');
    Wait(10200);
  until InJournalBetweenTimes('You enter', ctime, Now) <> -1;
  repeat
    wait(1000);
  until InJournalBetweenTimes('You stop m|lost|some time|at peace', ctime, Now) <> -1;
End;

procedure AnOrt;
begin
  if TargetPresent then CancelTarget;
  checksave;
  begin
    repeat
      ctime := Now;
      WaitTargetSelf;
      Cast('Dispel');
      Wait(3000);
      If TargetPresent then TargetToObject(Self);
      if InJournalBetweenTimes('enough mana', ctime, Now) <> -1 then
      begin
        Meditation;
      end;
    until InJournalBetweenTimes('been wiped', ctime, Now) <> -1;
  end;
end;

Begin
  while (not Dead) do
  begin
    SetARStatus(true);
    ctime := Now;
    hungry(1,backpack);
    for i:= 0 to 30 do
    begin
      checksave;
      UseSkill('Spirit Speak');
      if InJournalBetweenTimes('You contact|already in contact', ctime, Now) <> -1 then
      begin
        if (mana < 21) then begin Meditation; end;
        if (mana > 21) then begin AnOrt; end;
        Wait(10100);
      end;
      if InJournalBetweenTimes('fail to', ctime, Now) <> -1 then Wait(10100);
    end;
    i := i + 1;
  end;
  AnOrt;
End.