delphi Код:
if FromServer and (ConnectName=PPbafer) and (pck[1]=#$4A) and (ReadD(6)=s)
then begin i:=10;
if ReadS(i)=BuffHunter then //say('iaa!!! Iieo?eeinu');
begin
if ReadS(i)='афф' then begin buf:=#$04;
WriteD(TargetID);
WriteD(tx);
WriteD(ty);
WriteD(tz);
buf:=buf+#$00;
SendToServerEx(PPbafer);
Timer1.Enabled:=True;
end;
if ReadS(i)='офф' then begin buf:=#$09;
SendToClientEx(PPbafer);
end;
end;
end;
где S константа чата
ну тут всё понятно (с)
QaK
Добавлено через 1 минуту
ну месагу как отправить когда что то надо думаю проблем нет?