Показать сообщение отдельно
Старый 29.09.2011, 02:38   #27
Пользователь
 
Регистрация: 01.08.2010
Сообщений: 82
Сказал Спасибо: 49
Имеет 5 спасибок в 4 сообщенях
semiromid пока неопределено
По умолчанию

if FromServer and (ConnectName=Name) and (pck[1]=#$39) then begin
mana:= ReadS(2);
buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 37 04 30 04 20 00 3C 04 30 04 3D 04 43 04 20 00 3D 00 29 00 00 00 02 00 00 00');
WriteS(mana);
buf := buf + HStr('');
SendToServer;
end;
end.
semiromid вне форума   Ответить с цитированием