Показать сообщение отдельно
Старый 20.04.2008, 13:10   #5
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
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)
Короче что-то здесь не так)

Последний раз редактировалось Emocean, 20.04.2008 в 13:14.
Emocean вне форума   Ответить с цитированием