Taming (out of range)

[ligeon]

Доброго времени суток.
Хочу юзать данный скриптик : http://stealth.od.ua/forum/viewtopic.php?t=49
При запуске получаю мсг у 1го чара

16:25:17:433 [Bullseye]: Out Of Range at 0.1192
16:25:17:435 [Bullseye]: Script Animal Taming1.sc stopped successfuly

Собственно, что не так? Массив из двух элементов 1 и 2, в теории всё правильно
Заранее спасибо.

[Alex]

в какой строчке?

[ligeon]

Строка не указана...

19:44:50:978 [Bullseye]: Out Of Range at 0.1192
19:44:50:980 [Bullseye]: Script Animal Taming1.sc stopped successfuly

И всё

[Alex]

логов в скрипте расставь что бы определить строку

AddToSystemJournal('asdasd')

[ligeon]

Сделал вот так:

UseSkill('Animal Taming');
AddToSystemJournal('Useskill');
WaitForTarget(5000);
AddToSystemJournal('5sec');
b:=Now;
if TargetPresent then TargetToObject(zver[tmp]);
AddToSystemJournal('target');

tim:=0;
repeat
wait(500);
tim := tim + 1;
until (InJournalBetweenTimes('You successfully tame',b,Now)>0) or (InJournalBetweenTimes('You fail',b,Now)>0) or (tim > 40);

Вот, что в уожурнале:

[21:25:36:532] System: You are stuffed
[21:26:02:243] System: What do you want to tame?

Вот, что в системжурнале:

21:25:36:514 [Bullseye]: Compiling
21:25:36:529 [Bullseye]: Compiled succesfully
21:26:02:232 [Bullseye]: Useskill
21:26:02:234 [Bullseye]: 5sec
21:26:02:236 [Bullseye]: Out Of Range at 0.1222
21:26:02:238 [Bullseye]: Script Animal Taming1.sc stopped successfuly

[Alex]

чет ты в скрипте наредачил, я только что скопировал его с форума и он у меня запустился

Code: Select all

zver[1]:=$01294C10;
zver[2]:=$0129695C;

вот такие строчки есть? так же выглядят только с твоими ид?

[ligeon]

zver[1]:=$01ED7F89;
zver[2]:=$01EDA00E;
message[1]:='kosoy: 1'
message[2]:='kosoy: 2'
=)

[Fenix]

После строк с

Code: Select all

for tmp:=1 to 2 do 
  begin

поставь проверку

Code: Select all

if tmp > 2 then break;

[grundick]

Code: Select all

for c := 1 to 2 do 
            if InJournalBetweenTimes(message[c],f,Now) >= 0 then 
              begin 
              tmp := c; 
              c:=2; 
      end; 

Если это условие не выполнилось, tmp не инициализируется, точнее нулём остаётся...