AionPacketHack

[RayTraceR]

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

Другой вопрос: как сделать так чтобы определённый пакет отправлялся череp время и каждый раз прибавлялось +1 к четвёртому байту
5d 5e 5f и т.д. пока не дойдёт до определённого значения и обратно 5d 5e 5f...

Я делаю примерно так, только задержка в виде delay, т.к. таймер со сквозным проходом вв новых версиях не работает:

var intbyte, tmpint: integer;

Процедура ТЕСТ
for i:=0 to Определенное_Значение do
begin
buf:='';
WriteC(tmpint+i);
intbyte:=copy(buf,1,(length(buf)));
buf:=HStr('5d5e5f') + HStr(intbyte);
SendToServer;
// А тут можеш поставить delay, но я НЕ РЕКОМЕНДУЮ.
end;
Конец процедуры


Условие прихода пакета 5d
tmpint:=ReadC(4);
Вызов процедуры TEST
Конец условия