Цитата:
Сообщение от PanAm
Надо панимать что 1 скрипт работает в одном адресном пространстве на все соединения?
|
угу,
нужно сдклать типа следующее:
delphi Код:
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;