L2PacketHack 3.5.x

[NLObP]

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

Да, отправлял Say2 и серверу и клиенту, все работает, бана пока нету...

Подтверждаю. Раньше скрипт "радар" подвешивал клиента, теперь работает.

//**********************************************
//for Gracia
//Установка стрелки (радара) над чаром к цели, при использовании таргета
//Чтобы включить скрипт используйте в игре социальное действие - Yes
//Чтобы выключить скрипт используйте в игре социальное действие - No
//**********************************************
var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer;

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

procedure TargetRadar(CorX, CorY, CorZ: Integer);
  begin
    buf:=#$F1;
    WriteD(0);
    WriteD(1);
    WriteD(CorX);
    WriteD(CorY);
    WriteD(CorZ);
    SendToClient;
  end;

procedure TargetRadarDrop;
  begin
    buf:=#$F1;
    WriteD(1);
    WriteD(1);
    WriteD(0);
    WriteD(0);
    WriteD(0);
    SendToClient;
  end;

begin
  if FromClient and (pck[1]=#$34) then
    begin
      SocialID:=ReadD(2);
      case ord(pck[2]) of
      $06:begin
        Status:=1;
        SendMs('Радар включен');
        pck:='';
      end;
      $05:begin
        Status:=0;
        TargetRadarDrop;
        SendMs('Радар выключен');
        pck:='';
      end;
      end;
    end;
  if Status=1 then
    begin
      if FromServer and (pck[1]=#$79) then
        begin
          CorX:=ReadD(6);
          CorY:=ReadD(10);
          CorZ:=ReadD(14);
          TargetRadar(CorX, CorY, CorZ);
        end;
    end;
end.

PS: с первого раза не заходит на сервер - это наверное с пакетхаком не связано.