Примерно так... (У мну нету ПХ так-что не исключены ошибки (Не у верен вот в этом месте:
)
Чтобы заработало:
1) Вписать свой ник в самом верху скрипта.
2) Сверху вписать кол-во пакетов (Сколько раз пошлет).
4) В игре создать макрос с таким содержанием:
# Определяет только чат (В группе за флуд не банит и без палева) можно написать просто .lol это не важно...
5) Поставить макрос на F5.
Если возникнут ошибки пиши где и что пишет... Если не корректно работает - отпиши что и как.
Сам скриптег:
delphi Код:
const
Name='Nickers'; //Ник
N=5; //Сколько раз послать пакет
Var
timer : TTimer;
packet:string; j:integer;
procedure OnTimer(Sender: TObject);
begin
inc(j);
buf:=packet;
SendToServerEx(Name);
if j=N then
begin
j:=0;
timer.enabled:=false;
end;
end;
procedure Init;
begin
packet:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // Пакет
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=200; //0.2 сек
j:=0;
end;
procedure Free;
begin
timer.free;
end;
begin
if fromclient and (pck[1]=#$38) and (ReadS(2)='.lol') then timer.enabled:=true;
end.