Что нужно знать для написания скриптов

[h82w8]

ну вот пример скрипта
begin
if FromClient and (ConnectName='name')
and (pck=HStr('15 55 B0 F1)) then begin //B0 F1 постоянно меняются
buf:=HStr('51 55 B0 F1'); // но мне надо чтобы пакет изменялся всегда на этот
SendToServerEx('name);
pck:='';
end;
end.
что надо изменить чтобы всегда работало? не писать целый пакет а токо ту часть которая не меняется или как?

[Emocean]

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

что надо изменить чтобы всегда работало?

По идее надо так:

begin
if FromClient and (ConnectName='name')
and pck[1]=#$15 then begin
buf:=HStr('51 55 B0 F1');
SendToServerEx('name);
pck:='';
end;
end.

Но ты уверен, что тебе нужны именно эти пакеты?

15=TradeRequest:h(ObjectID)
51=RequestSurrenderPledgeWar:s(PledgeName)

Короче что-то здесь не так)

[VORON]

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

ну вот пример скрипта
begin
if FromClient and (ConnectName='name')
and (pck=HStr('15 55 B0 F1)) then begin //B0 F1 постоянно меняются
buf:=HStr('51 55 B0 F1'); // но мне надо чтобы пакет изменялся всегда на этот
SendToServerEx('name);
pck:='';
end;
end.
что надо изменить чтобы всегда работало? не писать целый пакет а токо ту часть которая не меняется или как?

прочитал- вдумался ответ: сервак не шифрован?
че за куйня ак могут 3-4 байты меняться? таково не должно быть...
если сервак шифрован то ждем тебя в теме "ДЕШИРИРУЕМ ТРАФИК"
хотя гонево какоето вапще выходит с твоим случаем.. явно кто то ковото не понимает- (наверно я)
когда перехвачен пакет- ты его насильно переправляеш на другой...
в скрипте
я етого не понима. ваще какие причины тябя заставили делать так?