Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

faq:stealth:spirit_speak [2019/11/14 15:15] (текущий)
tsatsur создано
Строка 1: Строка 1:
 +=== Spirit Speak ===
  
 +<​code>​
 +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.
 +</​code>​
 
faq/stealth/spirit_speak.txt · Последние изменения: 2019/11/14 15:15 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki