Писать скрипты для phx.

[Nickers]

Примерно так... (У мну нету ПХ так-что не исключены ошибки (Не у верен вот в этом месте:

ReadS(2)='.lol'

)

Чтобы заработало:
1) Вписать свой ник в самом верху скрипта.
2) Сверху вписать кол-во пакетов (Сколько раз пошлет).
4) В игре создать макрос с таким содержанием:

#.lol

# Определяет только чат (В группе за флуд не банит и без палева) можно написать просто .lol это не важно...

5) Поставить макрос на F5.

Если возникнут ошибки пиши где и что пишет... Если не корректно работает - отпиши что и как.


Сам скриптег:

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.