Различия

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

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

Both sides previous revision Предыдущая версия
faq:stealth:inscription [2019/11/14 10:43]
tsatsur
faq:stealth:inscription [2019/11/14 11:12] (текущий)
tsatsur
Строка 18: Строка 18:
 spell = '​Resurrection';​ //каст spell = '​Resurrection';​ //каст
 ebookscroll = '​103';​ //​Открываем ебук, считаем по порядку номер каста плюсуем к нему 100 и получаем цифру. 103 - Shift; 106 - Bless; 108 - Heal ebookscroll = '​103';​ //​Открываем ебук, считаем по порядку номер каста плюсуем к нему 100 и получаем цифру. 103 - Shift; 106 - Bless; 108 - Heal
 +
  
 Procedure Meditation; Procedure Meditation;
 Begin Begin
 +    ctime := Now;
   repeat   repeat
-    waitconnection(5000);​ 
     UseSkill('​Meditation'​);​     UseSkill('​Meditation'​);​
     Wait(10200);​     Wait(10200);​
-  until ( (InJournal('You enter'​) > -1) or (not(Connected)) );+  until InJournalBetweenTimes('You enter', ctime, Now<> -1;
   repeat   repeat
-    waitconnection(5000);​ 
     wait(1000);     wait(1000);
-  until ( (InJournal('You stop m|lost|some time|at peace'​) > -1) or (not(Connected)) ); +  until InJournalBetweenTimes('You stop m|lost|some time|at peace', ctime, Now<> -1;
-  ClearJournal;+
 End; End;
  
 procedure InscriptionEarthBook;​ procedure InscriptionEarthBook;​
 begin begin
 +  If TargetPresent then CancelTarget;​
   ctime := Now;   ctime := Now;
   WaitGump(ebookscroll);​   WaitGump(ebookscroll);​
Строка 52: Строка 52:
 procedure Inscription;​ procedure Inscription;​
 Begin Begin
-  waitconnection(5000);​ 
   If TargetPresent then CancelTarget;​   If TargetPresent then CancelTarget;​
   ctime := Now;   ctime := Now;
-  ClearJournal;​ 
   WaitMenu('​a circle to', '​Circle ' + circle + ' spells'​);​   WaitMenu('​a circle to', '​Circle ' + circle + ' spells'​);​
   WaitMenu('​a spell to', spell);   WaitMenu('​a spell to', spell);
Строка 73: Строка 71:
     if Connected then     if Connected then
     begin     begin
-      if sboreb = 0 then+      if Mana > 50 then
       begin       begin
-        Inscription;​+        ​if sboreb = 0 then 
 +        begin 
 +          ​Inscription
 +        end 
 +        else 
 +        begin 
 +          InscriptionEarthBook;​ 
 +        end;
       end       end
       else       else
       begin       begin
-        ​InscriptionEarthBook;+        ​Meditation;
       end;       end;
       AddToSystemJournal('​Осталось бланков:​ ' + IntToStr(GetQuantity(FindType(bsid,​ backpack))));​       AddToSystemJournal('​Осталось бланков:​ ' + IntToStr(GetQuantity(FindType(bsid,​ backpack))));​
 
faq/stealth/inscription.txt · Последние изменения: 2019/11/14 11:12 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki