begin
if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$0C15) then
begin
if SpeedhackTimer.Enabled = true then
begin
SpeedhackTimer.Enabled := false;
buf := HStr('17 54 D4 19 00 00 00 00 00 00 00');
WriteS('SpeedHack ВЫКЛЮЧЕН!');
buf := buf + HStr('00 00');
SendToClient;
buf := HStr('42 65 D4');
WriteD(PlayerID);
buf := buf + HStr('23 01 00');
buf := buf + HStr(StartSpeed);
WriteD(PlayerID);
SendToClientEx(ConnectName);
end
else
begin
SpeedhackTimer.Enabled := true;
buf := HStr('17 54 D4 19 00 00 00 00 00 00 00');
WriteS('SpeedHack ВКЛЮЧЕН!');
buf := buf + HStr('00 00');
SendToClient;
end;
pck := '';
end;
if FromServer and (ReadC(1)=$42) and (ReadC(8)=$23) and (ReadD(4)=PlayerID) then
begin
pck := '';
end;
end.
ГДЕ Speed := ' 00 00 20 42 ';-скорость преобразуешь Single пример 44,0(с запятой)
StartSpeed := '9A 99 E9 40 ';
PlayerID := $0001752C; твой ид,пишеш в обратном порядке!пример 123456789 пишеш в скрипт 987654321 .