написал уже
'delphi' Код:
procedure AdminMsg(s:string);
begin
WriteC($17);
WriteH(54356);
WriteC(35);
WriteC(0);
WriteD(0);
WriteH(0);
WriteS(s);
SendToClient;
end;
Добавлено через 1 час 4 минуты
ну потом в процедуре разбора пакета, просто вставить в мсдж данные, лвла, ника и т.д., тока лвл не могу найти в пакете
Добавлено через 36 минут
подскажите как можно пакет обозвать
который приходит на сервер, чтоб процедуру на него написать