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

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

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