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

[L2.exe]

Сообщение от Nickers

buf:=#$00; //Пакет, который посылаем

Это в какую систему счислений нужно преобразовать вот этот

39 63 00 00 00 00 00 00 00 00

пакет?

[Nickers]

пакет вот так:

buf:=#$39#$63#$00#$00#$00#$00#$00#$00#$00#$00;

(Если пакет не меняется)

По хорошему нада так делать:
(Удобно, если пакет изменяется)

buf:=#$39; //ID пакета (1я пара)
ReadD(99); //63 00 00 00
ReadD(0);  //00 00 00 00
ReadC(0);  //00
SendToServerEx(Name);

[L2.exe]

Сообщение от Nickers

пакет вот так:

buf:=#$39#$63#$00#$00#$00#$00#$00#$00#$00#$00;

По хорошему нада так делать:

buf:=#$39;
ReadD([Сюды число - десятичный эквивалент 63 00 00 00]);
ReadD(0);
ReadC(0);
SendToServerEx(Name);

Спасибо ещё раз,я бы не догадался

[Nickers]

L2.exe, Обращайся))

[Elees]

Nickers, помоги плис написать скрипт, что б в игре при нажатии кнопки "5" отправлялись пакеты 4-5шт с паузой между пакетами в 0.2сек, или такой скрипт невозможен?

[dyh9l]

ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы)
p.s: при нажатии 5, или допустим в чат писалось 5?)

[Nickers]

Elees, Могу тока на F5 сделать... (Но там буит пару мелких неудобств) Почти уверен, что можно настроить на любую клавишу, но я не умею и это наверняка потребует другие языки, кроме паскаля))

[Elees]

Сообщение от Nickers

Elees, Могу тока на F5 сделать... (Но там буит пару мелких неудобств) Почти уверен, что можно настроить на любую клавишу, но я не умею и это наверняка потребует другие языки, кроме паскаля))

ну на Ф5 тоже пойдёт

[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.

[L2.exe]

Полезный скриптик

Добавлено через 16 часов 48 минут

var act:integer; me1:char; me2:char; me3:char; me4:char; nm:integer; t1:char; t2:char; t3:char; t4:char; nt:integer; shade:integer; mz:integer; pz:integer; tz:integer; hz:integer;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;

begin


//анализ ИД себя

if nm<>1 then
begin
if FromServer and (pck[1]=#$04) then
begin
me1:=pck[18];
me2:=pck[19];
me3:=pck[20];
me4:=pck[21];
nm:= 1;
end;
end;


//защитная часть

if FromClient and (pck[1]=#$1B) and (pck[2]=#$06) then
begin
act:=1;
SendMsg('AT system on');
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$05) then
begin
act:=0;
SendMsg('AT system off');
end;

if FromClient and (pck=#$38#$3C#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
mz:=1;
SendMsg('Advanced m.def on')
end;

if FromClient and (pck=#$38#$3C#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
mz:=0;
SendMsg('Advanced m.def off')
end;

if FromClient and (pck=#$38#$3F#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
pz:=1;
SendMsg('Advanced p.def on')
end;

if FromClient and (pck=#$38#$3F#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
pz:=0;
SendMsg('Advanced p.def off')
end;

if FromClient and (pck=#$38#$42#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
tz:=1;
SendMsg('Anti-target on')
end;

if FromClient and (pck=#$38#$42#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
tz:=0;
SendMsg('Anti-target off')
end;

if FromClient and (pck=#$38#$45#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then
begin
hz:=1;
SendMsg('Hit"n"Hide on')
end;

if FromClient and (pck=#$38#$45#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then
begin
hz:=0;
SendMsg('Hit"n"Hide off')
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$03) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;

if act=1 then
begin

if tz=1 then
begin
if FromServer and (pck[1]=#$29) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

if mz=1 then
begin
if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

if pz=1 then
begin
if FromServer and (pck[1]=#$05) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

if hz=1 then
begin
if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then
begin
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end;

end;


//часть таргета

if FromClient and (pck[1]=#$04) then
begin
nt:=1;
t1:=pck[2];
t2:=pck[3];
t3:=pck[4];
t4:=pck[5];
end;

if FromClient and (pck[1]=#$37) then
begin
nt:=0;
end;

if nt=1 then
begin
if FromClient and (pck[1]=#$30) then
begin
buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
buf:=#$A6+t1+t2+t3+t4+#$00#$00;
SendToClient;
end;
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$04) then
begin
buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
buf:=#$A6+t1+t2+t3+t4+#$00#$00;
SendToClient;
end;

//shadowmelt

if FromClient and (pck[1]=#$1B) and (pck[2]=#$07) then
begin
shade:=1;
buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;
SendToServer;
SendMsg('Skipped to Shadows');
end;

if FromClient and (pck[1]=#$1B) and (pck[2]=#$08) then
begin
shade:=0;
buf:=#$30#$00#$00;
SendToServer;
SendMsg('Reveal from Darkness');
end;

if shade = 1 then
begin
if FromClient and (pck[1]=#$30) then pck:='';
end;

end.

Что тут не так?