Кружок нубов(Вопрос-Ответ)

[NLObP]

Сообщение от something

List index out of bounds (4999)

Это означает, что выходишь за границу массива. Проверь в циклах параметры.

[Weik]

Всем добрый день. Прошу отнестись с пониманием и не судить очень строго.
Решил я написать скрипт на кач... и самое первое с чем я столкнулся, к моему сожалению, я незнаю как прописать таргет на моба ибо как оказалось в пакетах ID моба, с одним и тем же именем, разный
В инете нигде ничего такого я ненашол, я чувствую что чегото недочитал или не понимаю... но всёже прошу помочь.

Зарание благодарен.

[QaK]

Weik, не путай НПЦ ИД и обджект ид, НПЦ ИД - это идентификатор типа моба, а Обджект ИД - уникальный идентификатор, для каждой вещи/моба/непися/чара в игре он свой.

[Weik]

Сообщение от QaK

Weik, не путай НПЦ ИД и обджект ид, НПЦ ИД - это идентификатор типа моба, а Обджект ИД - уникальный идентификатор, для каждой вещи/моба/непися/чара в игре он свой.

Значит я отнёсся к скриптам слишком легкомыслено
Осмелюсь канешно спросить каким образом тогда можно прописать в скрипт отаку мобов? (если можно то маленький примерчик)
Если отвлекаю такой мелочью то извените, но хочю научится)

[something]

к сожалению такая же ошибка возникает и в простейших скриптах на отсылку пакетов, без циклов и массивов

[QaK]

Сообщение от something

к сожалению такая же ошибка возникает и в простейших скриптах на отсылку пакетов, без циклов и массивов

конкретный простейший скрипт выложи сюда, и как ты запускаешь скрипты?

[something]

const
      Name='MyName'; 
var
  timer:TTimer;
  i,j: integer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=500;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
  Say('Начали');
  i:=0; j:=0;
end;
procedure Free;
begin
  timer.Free;
end;
procedure Say(msg:string);
begin
  buf:=#$4A;
  WriteD(123);
  WriteD(10);
  WriteS('хмм');
  WriteS(msg);
  SendToClientEx(Name);
end;
procedure fireTimer(Sender: TObject);
begin
   if odd(i) then
      begin
         buf:=hstr('пакет1');
         SendToServerEx(Name);
      end
   else
      begin
         buf:=hstr('пакет2');
         SendToServerEx(Name);
      end;
   inc(i);
   inc(j);
    if j = 7 then begin
                   buf:=hstr('пакет3');
                   SendToServerEx(Name);
                   j:=0;
                  end;
  Say(IntToStr(i)); //для себя, узнать сколько циклов прошло
  end;
begin
  if i > 999 then timer.enabled:=false; //ограничение
end.

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

[QaK]

поправил твой скрипт. Вопрос: пакеты 1 и 2 полжны по-очереди выполняться?

Добавлено через 1 минуту
Да, и еще, лучше бы таймер включать не в Init. Например - по социальному действию.

[something]

Сообщение от QaK

поправил твой скрипт. Вопрос: пакеты 1 и 2 полжны по-очереди выполняться?

В других скриптах так и сделал - по соц действиям.
Ошибка связана потому что не тегами выполнены команды?

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

[Byrger]

Как написать правильно условие?

Если переменная m3 НЕ равна строке "kakaxa" то выполнять функцию Time()
Если равна то дальше гонять скрипт..