а в чем проблема то ? %)
как то так.
delphi Код:
offset := 2;
Text := reads(offset);//текст
chattype := readd(offset);//тип чата
target := reads(offset);//кому
buf := #$49;//собираем свой пакет
for i := 1 to length(text) do
begin
writes(text[i]);//пишем символ + 0000
writeh($08,length(buf)-2)//меняем последние 0000 на 0800
end;
writeh(0);//final 0000
writed(chattype);//тип чата
if target <> '' then
writes(target); //кому писали. если есть.
pck := buf; //магическая строчка.