Kilatif, та читал чота у меня не то получаетса серавно
Код:
var
typ,a:integer;
msg,nik:string;
begin
if fromserver and (pck[1]=#$4A) then
begin
typ:=ReadD(6)
a:=10;
nik:=ReadS(a);
msg:=ReadS(a);
begin
buf := pck;
writed(0)
writed(typ)
writes(nik);
writes('___'+msg+#0+#0+#0+#0+#0);
pck := buf;
end;
end;
end.
ну вот и что не так я проста толком ищо не понел как все роботает