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

[QaK]

const CharName='Сюдапишешьимятвоегочара';

procedure Init;
begin
end;

procedure Free;
begin
end;

begin
//сначала пример блока от клиента с заменой
if (FromClient) and (ConnectName=CharName) then 
begin if pck=#$2F+#$06+#$00 //пример абсолютно нереальный сюда ставишь свой пакет
         then begin pck:=''; //блокируем пакет
                          buf:=#$2F+#$07 //аналогично формируем другой пакет
                          SendToServerEx(CharName); // посылаем подмененный пакет 
                end;

end;
//для блокировки со стороны сервера и замены изменить FromClient на FromServer и SendToServerEx на SendToClientEx
end.

А вообше - учись юзать поиск, таких решений уже 1000 раз просили и писали.

Поиска кoрявый ИМХО

const CharName='OrcCanFly';
begin
if (FromClient) then
begin if (pck=HStr('45 00 00 00 00 00 00 00 00 00'))
         then begin pck:='';
                end;
end;
end.

Собственно долже блокировать вот такой-то пакет, но не работает.... Тыркните носом в ошибку...

[QaK]

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

Собственно долже блокировать вот такой-то пакет, но не работает.... Тыркните носом в ошибку..

поменяй в условии
if fromClient
на
if (fromclient) and (ConnectName=CharName)

ты уверен что именно такой пакет отправляет клиент?

[PanAm]

Cowcanfly
я б написал так

const
  MyAction = 0;
begin
if FromClient and pck[1]=#$45 then
  if ReadD(2) = MyAction then
     pck:='';
end.

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

ты уверен что именно такой пакет отправляет клиент?

Это идёт расшифрованый пакет интерлюдии, это пакет, чтобы сесть...
Если нужно не расшифрованые посылать, где их посмотреть?...

[h82w8]

если часть пакета постоянно меняется, то как написать скрипт чтоб он видел этот пакет всегда?

[NLObP]

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

если часть пакета постоянно меняется, то как написать скрипт чтоб он видел этот пакет всегда?

У пакета есть идентификатор (первый байт). По нему и определяй.

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

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

[h82w8]

нет я от балды пакеты написал
как вычислить pck[1]=#$15 из обычного пакета?