Все вопросы по пакетхаку(l2phx) задавать только здесь.

[RichBoy]

Народ проблема!Помогите!Установил последнюю версию,настроил по инструкций перезапустил ,запустил ,зашел в л2 ввел логин и пароль ошибка что то socket,перезагрузил компьютер пропал интернет !Толи порты заблокировало,закрыло или используется ,чем то другим толи что,восстановить компьютер нет возможности.И это именно из за этой l2phx ,кто может помогите очень срочновсе нервы вытрепал.в настройках программы написано порт 7788,когда захожу постоянно пишет,что не возможно создать локальное соединение так как используется уже

Windows 7

все время стояла на мак осеи не было такого,а тут так,даже не знаю почему.

[E1emeNT]

Цитата: Сообщение от gunsrose Если посылая пакеты вылазит ссобщение что скилл выучен а он не появляется в списке скиллов что делать? Добавлено через 4 минуты На серве la2.is74.ru мне регулярно банят чат это мера наказания ? еще я не понимаю как дюпат рассскажите как ?

Если не появляется то скорее всего фикс.Это как мультиселл вещи точённые покупать,пишет что купили +++ а итоге вещь покупается чистая. О Дюпах поиск юзай. Модифицируй, экспериментируй.
http://zhyk.ru/forum/showthread.php?t=99549
http://zhyk.ru/forum/showthread.php?t=60442
http://zhyk.ru/forum/showthread.php?t=105616
http://zhyk.ru/forum/showthread.php?t=103676
http://zhyk.ru/forum/showthread.php?t=100736

Люди с форума писали что и в паблике есть дюпы только в разобранном и недаработанном виде.

[sergey20]

Ребят дайте ссылку на мультиселы плз)

[RichBoy]

Цитата: Сообщение от sergey20 Ребят дайте ссылку на мультиселы плз)

http://zhyk.org/showthread.php?t=105530

[варкупу]

народ поч когда я отправляю пакет клиент игры виснет?

[Krips]

Цитата: Сообщение от варкупу народ поч когда я отправляю пакет клиент игры виснет?

Фикс. Таких пакетов нету на сервере.

[варкупу]

я стою рядом с другом он кидает пакет и всё норм я кидаю и виснет всё

[Rivara]

народ, подскажите, я не нашел ни одного удовлетворительного ответа на жуке: врубаю прогу, врубаю игру - комп ужсно глючит и приходиться перезагружать. что делать?

[Aevisthas]

У меня по чему-то phx не видит клиента l2

Использую версию 3.5.33.164 от CoderX.ru

И еще,ребят,дайте мне пожалуйста толковый скрипт на точку оружия для Interlude, с описанием использования,т.к я чайник

Заранее Спасибо!

[KJIaHHuK]

Цитата: Сообщение от Aevisthas У меня по чему-то phx не видит клиента l2 Использую версию 3.5.33.164 от CoderX.ru И еще,ребят,дайте мне пожалуйста толковый скрипт на точку оружия для Interlude, с описанием использования,т.к я чайник Заранее Спасибо!

невидит т.к стоит защита,еще бывает что клиент просто напросто вырубается просто так.советую скачать Hide Toolz,она скроет пхк

[Krips]

Цитата: Сообщение от Aevisthas У меня по чему-то phx не видит клиента l2 И еще,ребят,дайте мне пожалуйста толковый скрипт на точку оружия для Interlude, с описанием использования,т.к я чайник

Может просто сам перехват не включен...
Вот скрины с настройками.
Если не поможет попробуй галочку поставь на Перехват: каждые 5сек.

program zatochka_IL;


const

  Name='Krips'; //Вписать сюда имя чара
  ScrollID=6577;     //ScrollID скролла заточки
  ItemID=6608;    //ItemID  затачиваемого предмета    
  MaxEnchLvl=20;//уровень заточки который требуется достич
  max=200;     //количество слотов в инвентаре чара, максимально - 250

var
  ItemBase:  array[1..2,1..max] of integer;    //ItemID ObjID, lvl
  ScrollBase:  array[1..max] of integer;    //Scroll
  add: boolean; //прошла заточка?
  timer: TTimer;
  CurEnchLvl, ColvoItem, ColvoScrl, CurItem, CurScrl: integer;
  SocialID:integer; // вспомогательная

procedure Init; //Вызывается при включении скрипта
var
  i:integer;
begin
  //Enchant:=false;
  CurEnchLvl:=0;
  timer:=TTimer.Create(nil);
  timer.OnTimer:=@OnTimerHP;
  timer.enabled:=false;
  timer.interval:=220; //время задержки(СКОРОСТЬ ЗАТОЧКИ)
  add:=false;
  for i:=1 to max do begin
    //очищаем масив
    //Say('очищаем масив');
    ItemBase[1,i]:=0;
    ItemBase[2,i]:=0;
  end;

  //Пакет RequestItemList
  buf:=hstr('0F');
  SendToServerEx(Name);
end;

//******************************************************************************
procedure Free; //Вызывается при выключении скрипта
begin
  ItemBase:=nil;
  ScrollBase:=nil;
  timer.Free;
end;

//******************************************************************************
procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

//******************************************************************************
procedure CreateItemBase; //пакет 1B, Создает базу ObjectID по ItemID
var
  i, ss, ww, j, ObjID, ItmID, lvl, ListCount: integer;
begin
  ss:=1; //индекс в массиве скроллов
  ww:=1; //индекс в массиве предметов
  j:=4; //смещение для ListCount
  ListCount:=ReadH(j); //количество итемов не должно превышать max!
  if ListCount>max then ListCount:=max;
  j:=8; //смещение для ObjectID
  //Пробегаем по Инвентарю и сохраняем ObjectID соответствующие необходимым ItemID
  for i:=1 to ListCount do begin
     ObjID:=ReadD(j);      //ObjectID
     ItmID:=ReadD(j);    //ItemID
     j:=j+14;
     Lvl:=ReadD(j);    //Level
     case ItmID of
        ScrollID: begin
            ScrollBase[ss]:=ObjID;
            inc(ss);
           ////// !!!!!!!!!!! Say('ColvoScrl='+IntToStr(ss));    !!!!!!!!!!!!!!!!!!   ////
        end;
        ItemID: begin
            ItemBase[1,ww]:=ObjID;
            ItemBase[2,ww]:=lvl;
            inc(ww);
           ///// !!!!!!!!!!!!!!! Say('ColvoItem='+IntToStr(ww));  !!!!!!!!!!!!!!!! /////
        end;
     end;
    j:=j+10;
  end;
  ColvoItem:=ww-1;
  ColvoScrl:=ss-1;
  Say('>ColvoItem='+IntToStr(ColvoItem)+' ColvoScrl='+IntToStr(ColvoScrl)+' CurEnchLvl='+IntToStr(CurEnchLvl));
end;

//******************************************************************************
procedure UpdateItemBase; //пакет 27, Создает базу ObjectID по ItemID
var
  i, ii, j, ss, ww, ObjID, ItmID, Lvl, ListCount, UpdType: integer;
begin
  ListCount:=ReadH(2); //количество итемов
  //Пробегаем по Инвентарю и сохраняем пары ObjectID - Lvl
  j:=4; //смещение для действия с предметом 1-добавлен 2-изменен 3-удален
//  Say('Апдейт базы!');
  for i:=1 to ListCount do begin
    UpdType:=ReadH(j);
    j:=j+2;
    ObjID:=ReadD(j);
    ItmID:=ReadD(j);
    j:=j+14;
    Lvl:=ReadH(j);
    Say('Предмет! ObjectID='+IntToStr(ObjID)+' ItemID='+IntToStr(ItemID));
    case UpdType of
      1:case ItmID of
          ItemID: begin
            ColvoItem:=ColvoItem+1;
            Say('Добавили предмет! ObjectID='+IntToStr(ObjID)+' ItemID='+IntToStr(ItemID));
            for ii:=1 to max do
              if ItemBase[1,ii]=0 then begin ItemBase[1,ii]:=ObjID; ItemBase[2,ii]:=lvl; end;
          end;
          ScrollID: begin
            ss:=ss+1;
            Say('Добавили скролл! ObjectID='+IntToStr(ObjID)+' ItemID='+IntToStr(ScrollID));
            for ii:=1 to max do if ScrollBase[ii]=0 then ScrollBase[ii]:=ObjID;
          end;
      end;
      2:case ItmID of
        ItemID:
          for ii:=1 to max do
            if ItemBase[1,ii]=ObjID then ItemBase[2,ii]:=lvl;
        ScrollID:
          Say('Внимание! Изменения в скролле!?');
      end;
      //удален
      3:case ItmID of
        ItemID: begin
          ColvoItem:=ColvoItem-1;
          for ii:=1 to max do
            if ItemBase[1,ii]=ObjID then begin ItemBase[1,ii]:=0; ItemBase[2,ii]:=0; end;
              Say('Удаляем предмет! ObjectID='+IntToStr(ObjID)+' ItemID='+IntToStr(ItemID));
        end;
        ScrollID: begin
          ColvoScrl:=ColvoScrl-1;
          for ii:=1 to max do
            if ScrollBase[ii]=ObjID then ScrollBase[ii]:=0;
            Say('Удаляем скролл! ObjectID='+IntToStr(ObjID)+' ItemID='+IntToStr(ScrollID));
        end;
      end;
    end;
    j:=j+10; //следующее смещение для действия с предметом 1-добавлен 2-изменен 3-удален
  end;
  Say('>>ColvoItem='+IntToStr(ColvoItem)+' ColvoScrl='+IntToStr(ColvoScrl)+' CurEnchLvl='+IntToStr(CurEnchLvl));
end;

//******************************************************************************
function GetNextItemID: integer;
//Выдает ObjID предмета, если не найден в базе, выдает -1,
//достигли макс уровня заточки -2, подбираем минимальный текущий уровень заточки -3
var
  i: integer;
begin
  Result:=-1;
  if CurEnchLvl>=MaxEnchLvl then begin
    Result:=-2;
    exit;
  end;
  for i:=1 to max do begin
    //находим первый подходящий предмет
    if (ItemBase[1,i]<>0) and (ItemBase[2,i]<=CurEnchLvl) then begin
      Result:=ItemBase[1,i];
      exit;
    end;
  end;
  inc(CurEnchLvl);
  Result:=-3;
end;

//******************************************************************************
function GetNextScroll: integer;
//Выдает ObjID скролла, если предмет не найден в базе, выдает -1
var
  i: integer;
begin
  Result:=-1;
  for i:=1 to max do begin
    //находим первый подходящий предмет
    if (ScrollBase[i]<>0) then begin
      Result:=ScrollBase[i];
      exit;
    end;
  end;
end;

//******************************************************************************
procedure UseItem(ObjectID: integer);
begin
  buf:=#$14;
  WriteD(ObjectID);
  WriteD(0);
  SendToServerEx(Name);
end;

//******************************************************************************
procedure RequestEnchantItem(ObjectID: integer);
begin
  buf:=#$58;
  WriteD(ObjectID);
  SendToServerEx(Name);
end;

//******************************************************************************
procedure OnTimerHP(Sender: TObject);
var
  Item, scrl:integer;
begin
 if ColvoScrl=0 then begin
////добавил часть для автоматической докупки скролов
////НЕ ЗАБЫВАЙ МЕНЯ ПАКЕТ ПОКУПКИ СКРОЛОВ ПРИ ИХ СМЕНЕ!!! УГРОБИШ ЧАРА! 
     timer.enabled:=false;
      Say('Покупаю скролы');
      delay(5000);
    buf:=HStr('A7 A3 5F 01 00 80 1A 06 00 64 00 00 00 00 00 00 00 00 00 00 00');
    SendToServer;
 //buf:=HStr('A7 4C 9C 00 00 20 D6 13 00 01 00 00 00 00 00 00 00 00 00 00 00 ');
 //SendToServer;
      delay(500);
      timer.enabled:=true;
      exit;
    end;
    ///if ColvoItem=1 then begin
     /// Say('Остался последний предмет! Прервано!');
     /// timer.enabled:=false;
     /// exit;
    ///end;
    Scrl:=GetNextScroll;
    if scrl=-1 then begin
      Say('Нет такой заточки! Прервано!');
      timer.enabled:=false;
      exit;
    end;
    Item:=GetNextItemID;
    case Item of
      -1: begin
          Say('Нет такого предмета! Прервано!');
          timer.enabled:=false;
          exit;
      end;
      -2: begin
          Say('Достигли максимальный уровень заточки! Прервано!');
          timer.enabled:=false;
          exit;
      end;
      -3: begin
          Say('Подбираем текущий уровень заточки!');
          timer.enabled:=true;
          exit;
      end;
    end;
    //************************************************

    UseItem(Scrl);
    RequestEnchantItem(Item);
    //************************************************
    ///Say('Заточили предмет! ItemID='+IntToStr(Item));
end;

//******************************************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
begin
  //****************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

  //****************************************************************************
  if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    SocialID:=ReadD(2);
    case SocialID of
      //социальное действие Yes для начала затачивания
      6: begin
        CurEnchLvl:=0;
        Say('Команда Старт!!!');
        timer.enabled:=true;
        exit;
      end;
      //социальное действие No для окончания
      5: begin
        Say('Команда Стоп!!!');
        timer.enabled:=false;
        exit;
      end;
    end;
  end;

  //****************************************************************************
  if FromServer then
  case pck[1] of
    //Пакет ItemList
    #$1B: CreateItemBase; //создание базы предметов
    //если удалили предметы, стираем в базе предметов пары ObjectID - ItemID
    #$27: UpdateItemBase; //Обновление базы, если принят пакет на удаление предмета
  end;

end.

Добавлено через 10 минут

Цитата: Сообщение от installrock здравствуйте ув. Администрация!! Я гамаю на сервере [Ссылки могут видеть только зарегистрированные пользователи. ] обьясните как мне получить S шмот и пухи если шоп только до Б грейда буду оч благодарен если ответите и напишете пакеты на шмот и пухи к этому серверу. Жду ответа с ув. ваш пользователь.

Почитай, может поймеш.
Там если допустим в хтмл-коде будет такая последовательность, к примеру 90001 - Д грейд оружие 90002 - Ц грейд оружие 90003 - Б грейд оружие, то логично что 90004-А оружие, 90005-Ы оружие. и т.д.
Вобщем почитай тему про мультиселлы.

[5vlad5]

народ кто нить подскажите,меня кикает с серва сразу после того,как я отправляю норм скрипт,или пакет,это защита? и если да,то есть ли способы обойти?

[smqkvova]

Здраствуйте доброго всем времени суток.
Помогите пожалуйста.
1.Проблема:Хочу отключить авто гма на сервере.
2.Через l2ini,но незнаю название натписи авто гма чтоб отключить
и желательно подскажите как точно отключить его.
3.Это я хочу чтоб посылать пакет на мульти проффу.
4.Я пытался искал немогу найти помогите подскажите как называется данная строчка был бы очень блогодарен перерыл весь инет нечего стоишего;(
5.Если что-то я не указал напишите я напишу а то немогу ужe.
6.Жду положительных ответов =)).))))

[trop]

Доброго времени суток, перечитав кучу гайдов по l2phx;pbx;ph я так и не понял, как купить вещь через пакет, или точить пушки черех них же. Помогите. И вот еще, вы выкладываете пакеты к примеру на серьгу антараса...а как ее получить то? О_О

[smqkvova]

Цитата: Сообщение от trop Доброго времени суток, перечитав кучу гайдов по l2phx;pbx;ph я так и не понял, как купить вещь через пакет, или точить пушки черех них же. Помогите. И вот еще, вы выкладываете пакеты к примеру на серьгу антараса...а как ее получить то? О_О

Короче купить вешь через пакеты "Антараса" допустим ты его не купиш если его нет в гм шопе так как всё по фикшено.Но если ты купил итем в гм шопе и хочеш его заного купить скопируй последний пакет в l2phx и закинь в процесы текст пакета и жми послать и он будет сам за тебя покупать данный итем.Нашёт того что точить:точить нельзя например купил пуху +0 и через пакет +20000 это нет.Но есть скрипты на точку которые помогают поставил допустим на сервере где безопастные заточки точится весь сет указываеш сам кокой уровень заточки и идёш пить чай с плюшками.
На шёт этого скрипта поиши его на форуме.