[QaK]

Сообщение от PanAm

Надо панимать что 1 скрипт работает в одном адресном пространстве на все соединения?

угу,
нужно сдклать типа следующее:

If FromServer and (ConnectName='тот, кто должен принять пати') and (pck[1]=#$39) and ('тот,кто должен кинуть пати'=ReadS(2)) then Timer.Enabled:=True;

procedure AnswerJoinParty(Sender: TObject);
begin
  buf:=hstr('2A 01 00 00 00');
  SendToServerEx('тот, кто должен принимать пати');
  timer.enabled :=false;
end;