Page 1 of 1

Taming (out of range)

Posted: 14.10.2011 17:28
by 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, в теории всё правильно :?:
Заранее спасибо.

Re: Taming (out of range)

Posted: 14.10.2011 20:37
by Alex
в какой строчке?

Re: Taming (out of range)

Posted: 14.10.2011 20:45
by ligeon
Строка не указана...
19:44:50:978 [Bullseye]: Out Of Range at 0.1192
19:44:50:980 [Bullseye]: Script Animal Taming1.sc stopped successfuly
И всё

Re: Taming (out of range)

Posted: 14.10.2011 22:01
by Alex
логов в скрипте расставь что бы определить строку

AddToSystemJournal('asdasd')

Re: Taming (out of range)

Posted: 14.10.2011 22:28
by 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

Re: Taming (out of range)

Posted: 14.10.2011 23:54
by Alex
чет ты в скрипте наредачил, я только что скопировал его с форума и он у меня запустился

Code: Select all

zver[1]:=$01294C10;
zver[2]:=$0129695C;
вот такие строчки есть? так же выглядят только с твоими ид?

Re: Taming (out of range)

Posted: 15.10.2011 0:11
by ligeon
zver[1]:=$01ED7F89;
zver[2]:=$01EDA00E;
message[1]:='kosoy: 1'
message[2]:='kosoy: 2'
=)

Re: Taming (out of range)

Posted: 17.10.2011 11:46
by Fenix
После строк с

Code: Select all

for tmp:=1 to 2 do 
  begin
поставь проверку

Code: Select all

if tmp > 2 then break;

Re: Taming (out of range)

Posted: 20.10.2011 0:12
by 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 не инициализируется, точнее нулём остаётся...