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

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[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. Например - по социальному действию.

[Weik]

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

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

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

[something]

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

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

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

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

[Byrger]

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

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

[NLObP]

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

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

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

if m3<>'kakaxa' then Time();

[LunaticCalm]

Подскажите , пожалуйста, решение проблемы :
1. как сделать привязку посылки определенного пакета к номеру соединения (шифрование неизвестно)?
2. как сделать что бы шла поочередная посылка разных пакетов по каждому перехваченному соеднинению с определенным интервалом?
сори , нашел решение

[NLObP]

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

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

IMHO, если имя соединения в списке соединений неправильно определяется, то уже не помочь ни чем. Надо разбираться с правильной шифровкой/дешифровкой трафика.

А так есть команды

ConnectNameByID(id:integer):string - возвращает имя соединения по его ID (v. 3.2.0+)
ConnectIDByName(name:string):integer - возвращает ID соединения по его имени (v. 3.2.0+)
SetName(Name:string) - устанавливает имя соединения (v. 3.2.0+)

[eiko]

Подскажите пожалуйста, можно ли как-то "ускорить" скрипт автозаточки? (в частности для Грации)
т.е., например, отправлять пакет с заточкой можно очень быстро, но смысла в этом особого нету (т.к. остановить в нужный момент никак...), а в скрипте 1 заточка занимает ~1сек... (хотя и этим в общем-то доволен, но хочется просто попробовать и понаблюдать за эффектом... ^_^)
Честно попробовал поковыряться сам - увы, ничего не вышло...