эх, говорила мне бабка учи делфи, зря не послушал
Добавлено через 2 часа 17 минут
const
Name='123'; // Ник персонажа
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=2500;
timer.OnTimer:=@fireTimer;
timer.enabled:=false;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('1F 8F A0 00 10 CC 41 02 00 71 28 FF FF 53 F5 FF FF 00');
SendToServer;
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00');
SendToServer;
buf:=hstr('1F 90 A0 00 10 9B 41 02 00 65 28 FF FF 53 F5 FF FF 00');
SendToServer;
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 36 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00');
SendToServer;
buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00');
SendToServer;
timer.enabled:=false;
end;
if FromClient and (ConnectName=Name) and (pck = HStr('19 D8 4D 1D 10 00 00 00 00')) then begin
timer.enabled:=true;
end;
end.
Как сделать интетрвал например в 5 секунд между отправкой каждого пакета?
Пробовал Delay(5000); но что-то неочем
