Help Taiming

[Termit]

Вот я переделал скрипт под 6 тварей ,он работает токо вот немойму чего он ждет 30 секунд перед тем как перейти таймить другую тварь вроде же задержка по журналу стоит,когда затайит тогда переходит сразу или я неправ

Code: Select all

program taming; 
var 
Char : Array[1..2] of string; 
Zver : Array[1..6] of Cardinal; 

{$Include 'all.inc'} 

procedure First(); 
var 
b : TDateTime; 
tmp,i : integer; 
lol : String; 

Begin 
lol:=Char[2]+': all release'; 

while True do 
begin 
CheckTargetError(2,2); 
Hungry(1,ground); 

i:=0; 
   while i < 7 do 
      begin 
        for tmp:=1 to 6 do 
      begin 
      WaitTargetObject(zver[tmp]); 
         UseSkill('Animal Taming'); 
   B:=Now+0.0001157407407; 
         WaitJournalLine(B,'You', 30000);
         WaitJournalLine(B,lol, 15000); 
      UOsay('all release'); 
      UOsay(IntToStr(tmp)); 
         i := i + 1; 
      end; 
      end; 
End; 
End; 






procedure Second(); 
var 
i,tmp : integer; 
f     : TDateTime; 


begin 
f:=Now; 
while true do 
begin 

CheckTargetError(2,2); 
Hungry(1,ground); 

i:=0; 
   while i < 7 do 
      begin 
      WaitJournalLine(f,Char[1]+': 1'+'|'+Char[1]+': 2'+'|'+Char[1]+': 3'+'|'+Char[1]+': 4'+'|'+Char[1]+': 5'+'|'+Char[1]+': 6',0); 
         if InJournalBetweenTimes(Char[1]+': 1',f,Now) >= 0 then tmp := 1; 
         if InJournalBetweenTimes(Char[1]+': 2',f,Now) >= 0 then tmp := 2; 
         if InJournalBetweenTimes(Char[1]+': 3',f,Now) >= 0 then tmp := 3; 
         if InJournalBetweenTimes(Char[1]+': 4',f,Now) >= 0 then tmp := 4; 
         if InJournalBetweenTimes(Char[1]+': 5',f,Now) >= 0 then tmp := 5; 
         if InJournalBetweenTimes(Char[1]+': 6',f,Now) >= 0 then tmp := 6; 

      f:=Now; 
      WaitTargetObject(Zver[tmp]); 
         UseSkill('Animal Taming'); 

      WaitJournalLine(B,'You', 30000);
        
      UOsay('all release'); 
         i := i + 1; 
      end; 
End; 
End; 





begin 
SetARStatus(true); 
FindVertical:=30; 

Char[1]:='Barsuello'; 
Char[2]:='Nissa'; 
Zver[1]:=$0129C2C9; 
Zver[2]:=$0129C2A2; 
Zver[3]:=$01299545; 
Zver[4]:=$01299514; 
Zver[5]:=$01298E29; 
Zver[6]:=$01298DA4; 

Case CharName Of 
   Char[1] : First(); 
   Char[2] : Second(); 
else AddToSystemJournal('Error'); 
End; 
End.

[ParadoX]

мы тож мучались... иногда он не видит что скажет второй, иногда слишком рано начинает тамить... вобщем кто разберется и сделает нормальный скрипт тому флаг в руки ))

[Miralex]

Code: Select all

WaitTargetObject(zver[tmp]); 
UseSkill('Animal Taming'); 
B:=Now+0.0001157407407; 

Поменяй на

Code: Select all

B:=Now; 
WaitTargetObject(zver[tmp]); 
UseSkill('Animal Taming'); 

Code: Select all

f:=Now; 
WaitTargetObject(Zver[tmp]); 
UseSkill('Animal Taming'); 
WaitJournalLine(B,'You', 30000);

Поменяй на

Code: Select all

f:=Now; 
WaitTargetObject(Zver[tmp]); 
UseSkill('Animal Taming'); 
WaitJournalLine(f,'You', 30000);