Вот пробую напмсать скрипт автопринятие пати с задержкой
delphi Код:
Var
Timer : TTimer;
procedure Init;
begin
timer :=TTimer.Create(nil);
timer.OnTimer :=@AnswerJoinParty;
timer.enabled :=false;
timer.interval :=3000;
end;
procedure Free;
begin
timer.Free;
end;
procedure AnswerJoinParty(Sender: TObject);
begin
timer.enabled :=false;
buf:=hstr('2A 01 00 00 00');
SendToServer;
end;
begin
if FromServer and (pck[1]=#$39) then begin
pck :='';
timer.enabled :=true;
end;
end.
на вид все верно, но когда из первого окна (чар1) создаю пати со вторым окном (чар2), у чара1 пишет что чар1 принят в пати
а во втором вообще ничего не происходит. Что не так?