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

[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.

где я ошибся?

[NLObP]

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

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

З.Ы.: жаль, на мой вопрос так и нету ответа...

Дело в том, что функции WriteC, WriteD ... работают с переменной buf.
Потом, такой метод более унивесален. Используя переменные не надо думать как делить на байты.

[Sieg]

По мне так проще добавить пару функций для работы с pck - это если какой-то большой скрипт. А для маленьких можно обойтись и побайтным изменением пакета.
В моем представлении, чем раньше пакет покинет скрипт, тем лучше. А в случае с заменой pck на buf - так я вообще не возьмусь утверждать, что этот пустой пакет так и не выйдет за пределы л2пнх. Кто знает, может его осколки все-таки долетят до сервера, а мне такой флуд не к чему. Впрочем, тут уже вопрос к разрабочтику: как обрабатываются пустые пакеты?
Вот так мне больше нравится:

if (pck[1]=#$2E) and FromClient then 
begin
  buf:=pck;  //копируем пришедший пакет 2E 00 00 00 79 34 15 00 22 05 11 48
  //формат команды вставки данных WriteD(data, index: integer), по умолчанию index=0, index увеличивается на длину данных
  WriteC($99, 5);        //заменяем 79 на 99
  WriteD($11111111, 9); //заменяем 22051148 на 11111111
  pck:=buf;   //записываем в pck нужный пакет
  exit;
end;

[NLObP]

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

В моем представлении, чем раньше пакет покинет скрипт, тем лучше. А в случае с заменой pck на buf - так я вообще не возьмусь утверждать, что этот пустой пакет так и не выйдет за пределы л2пнх. Кто знает, может его осколки все-таки долетят до сервера, а мне такой флуд не к чему. Впрочем, тут уже вопрос к разрабочтику: как обрабатываются пустые пакеты?

При вызове метода SENDTOSERVER и т.п., пакет из переменной buf отправляется сразу, а переменная pck может долго обрабатываться в плагинах и других скриптах.

if MethodName = 'SENDTOSERVER' then begin
    buf:=TfsScript(Integer(Params[0])).Variables['buf'];
    b:=TfsScript(Integer(Params[0])).Variables['ConnectID'];
    SendPacket(Length(buf)+2,buf,b,True);
  end else

[Sieg]

У меня версия пнх без плагинов
Кстати, NLObP, раз ты такой знаток, может ответишь на мой вопрос, заданный десятком постов выше?

[zorg]

здрасте я играю набаттле форсе (интерлюд) и сегодня там сказали(XAMELuOH с этого форума ) что работает подмена покетов на точку можете мне нюбу обьеснить как и что делать

[QaK]

zorg, убейся, потом юзни поиск, потом снова убейся, это не чит-форум, если тебе хамелеон сказал - его и спрашивай!

Добавлено через 55 секунд
Sieg, ты где альтернативные потоки хочешь юзать? В скриптах? Плагинах? ПНХ перекомпилить?

[Stasrus]

Подскажите как можно добавить к существуемому пакету - 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Пробывал так, некатит
begin
if Fromclient and (pck[1]=#$2E) then
begin
buf:=pck + hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00')
pck :='';
SendToServer;
end;
end;

[NLObP]

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

Подскажите как можно добавить к существуемому пакету - 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Пробывал так, некатит

Точку с запятой в конце строки забыл и последний энд с точкой всегда.

begin
  if Fromclient and (pck[1]=#$2E) then
  begin
    buf:=pck + hstr('00 00 00 00 00 00 00 00 00 00 00 00 00 00');
    pck :='';
    SendToServer;
  end;
end.

[Sieg]

QaK, в скриптах.

[QaK]

Sieg, в скриптах - однозначно нет.