Код:
const
name='brbr';
var
enchant:TTimer;
procedure Init;
begin
enchant:=TTimer.Create(nil);
enchant.OnTimer:=@Onenchant;
enchant.enabled:=true;
enchant.interval:=3000;
end;
procedure Onenchant(Sender: TObject);
begin
if FromClient and (pck[1]=hstr('49')) then begin
pck:='';
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServerEx(name);
end;
end;
procedure Free;
begin
enchant.Free;
end;
begin
end.
Вот то что под процедурой не работает, но если убрать в процедуре эту строку:
if FromClient and (pck[1]=hstr('49')) then то он каждые 3 секунды нормально садиться и встаёт тоесть всё отлично с таймером.
Ну а если же всё что под процедурой засунуть в тело скрипта тоесть вот так:
Код:
const
name='brbr';
var
enchant:TTimer;
procedure Init;
begin
enchant:=TTimer.Create(nil);
enchant.OnTimer:=@Onenchant;
enchant.enabled:=true;
enchant.interval:=3000;
end;
procedure Onenchant(Sender: TObject);
begin
end;
procedure Free;
begin
enchant.Free;
end;
begin
if FromClient and (pck[1]=hstr('49')) then begin
pck:='';
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServerEx(name);
end;
end.
То работает отлично я пишу чтолибо в чат и он тутже садиться.
Ну и вот собствена проблема как сделать чтоб всё работало с условием тоесть с этой строкой - if FromClient and (pck[1]=hstr('49')) then
и именно в процедуре:
procedure Onenchant(Sender: TObject);
begin
end;
Вот).