Скрипт на заточку

[OVET]

с этим почти разобрался. но тут уже вылезло другое
все время при испольховании скрипта и не только этого ( на заточку) ла2 и пнх встает и раздуплятся не хочет. но у меня не самый хороший интернет часто часто бывают провалы в связи.

[BioDread]

Скажи плиз и как же ты разобрался с шифрацией?))

[OVET]

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

[Pilgrim]

Такая проблема, помогите!
играю на хрониках Freya. сервер rulineage.com
что уже только не пробовал, а постоянно выдает какую-то ошибку:



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

//J-Fobos: Перепишите скрипт под Freya и используйте самую свежую версию пакетхака

Добавлено через 33 минуты
Не подскажете как скрипт переписать под Freya? я в скриптах не силен...
l2phx у меня версии 3.4.1.68.

//J-Fobos: Нету скрипта под Freya в общем доступе. Последняя версия 3.5.33.164

Добавлено через 8 минут
ну и на том спасибо!)

Добавлено через 15 минут
скрипт работает!!! поставил последнюю версию... но теперь другая проблема... не найден itemsid.ini

Добавлено через 16 минут
я не могу понять, эта новая версия вообще конектится к серву или нет...
в логе ничего не происходит(

Добавлено через 7 минут
кароч вижу, что приконектился! но в боксах ничего не могу выбрать.... раздуплите нубу что дальше делать!)

Добавлено через 16 минут
помогите разобраться в комбобоксами!!!!!! срипт запускается все норм, ток ничего выбрать не могу в боксах!

Добавлено через 16 минут
может кто-нить подкинуть itemsid для freya ?

//Breadfan: вот сразу видно что человек в панике просто файл скопируй в папку к скрипту, вроде так. А если нет - то сюда, или хоть ветку полистай, обсуждали неоднократно это.

Добавлено через 4 часа 14 минут
какой файл скопировать???? и листать тут придется пол дня!)

Добавлено через 15 минут
и по фрее тут ничего не нашел!

//J-Fobos: Без шуток: пролистайте всю тему и увидите ответы на ваши вопросы

//Breadfan: http://coderx.ru/search.php?searchid=386627 - тяжело набрать уже?

[Fer123]

Pilgrim, Этот сервер вряд ли freya, по пакетам больше на эпилог похоже. Там админы покоцали структуру пакетов itemlist & inventoryupdate.
Маска для itemlist : dddqhhhdh
0 - ItemOID
1 - ItemID
3 - Amount
8 - EnchantLevel

Маска для InventoryUpdate : hdddqhhhdh
0 - UpdateType
1 - ItemOID
2 - ItemID
4 - Amount
9 - EnchantLevel

Теперь вставляем их в процедуры создания и обновления инвентаря, которые вылаживал здесь алекстим:
Оффтоп

Procedure CreateItemBase; //создание базы предметов
var i,j,count:integer;
begin
    count:=round((length(pck)-5)/ReadH(4));
    StringList.Clear;
    for j:=1 to 4 do for i:=1 to Max do ItemBase[j,i]:=0;
    for i:=0 to ReadH(4)-1 do
        begin
            readmask('dddqhhhdh',6+i*count,values);
            ItemBase[1,i+1]:=values[0];
            ItemBase[2,i+1]:=values[1];
            ItemBase[3,i+1]:=values[3];
            ItemBase[4,i+1]:=values[8];
            StringList.Add(inttostr(itembase[4,i+1])+'*'+ItemsName.Values[IntToStr(ItemBase[2,i+1])]); //записываем название вещей из инвентаря
        end;
    ComboBoxItem.Items.Clear;
    ComboBoxItem.Items.Assign(StringList);
    ComboBoxItem.ItemIndex:=0;
end;

Procedure UpdateItemBase;
var i,j,obj,count:integer;
begin
    count:=round((length(pck)-3)/ReadH(2));
    for i:=0 to ReadH(2)-1 do
        begin
            readmask('hdddqhhhdh',4+i*count,values);
            case values[0] of 
                1: obj:=0;
                2: obj:=values[1];
                3: begin
                    for i:=1 to Max do 
                        if ItemBase[1,i]=values[1] then
                            begin
                                for j:=1 to 4 do ItemBase[j,i]:=0;
                                break;
                            end;
                    continue;
                   end; 
            end;
            for i:=1 to Max do
                if ItemBase[1,i]=obj then 
                    begin
                        ItemBase[1,i]:=values[1];
                        ItemBase[2,i]:=values[2];
                        ItemBase[3,i]:=values[4];
                        ItemBase[4,i]:=values[9];
                        break;
                    end; 
        end;
end;

Вставляем заполнение комбобоксов. И все теперь можно вставлять это в свой скрипт...

[MaJIou_DoGG]

ПОпробуй другой скрипт , вот я на Епилоге этим пользуюсь, тут нет комбобоксов и т д но он сам определяет id шмоток и точит.
http://coderx.ru/showthread.php?t=5376
Ток ты его собери в кучку ) Он на 4 части разбит и обяз отпиши пойдет или нет ) если покатит то и я к вам на фрею полезу

[Pilgrim]

спс за ответ!

Добавлено через 34 секунды
теперь бы еще разобраться что и куда))))

Добавлено через 21 минуту
помогите собрать скрипт в кучу)) я то нашел все) просто если бы просто нужно было заменить чет в скрипте, исправить, то без проблем... а так надо вставить дополнение в скрипт...я хз куда его

Добавлено через 18 минут
использую enchant_by_NLObP_09.rar

как мне вставить это:

Оффтоп

Маска для itemlist : dddqhhhdh
0 - ItemOID
1 - ItemID
3 - Amount
8 - EnchantLevel

Маска для InventoryUpdate : hdddqhhhdh
0 - UpdateType
1 - ItemOID
2 - ItemID
4 - Amount
9 - EnchantLevel

и как с этим:

Оффтоп

procedure ItemList; 
{Создаем базу Items} 
//11=ItemList:h(ShowWindow)h(ListSize:Loop.01.0021)h(ItemType1)d(ObjectID) 
//   d(ItemID:Get.Func01)d(LocationSlot)d(Count)h(ItemType2)h(CustomType1) 
//   h(isEquipped)d(BodyPart)h(EnchantLevel)h(CustType2)d(AugmentationID) 
//   d(Mana)d(AttackAttrElement)d(AttackAttrElementVal)d(DefAttrFire) 
//   d(DefAttrWater)d(DefAttrWind)d(DefAttrEarth)d(DefAttrHoly)d(DefAttrUnholy) 
var 
  i, j, k: integer; 
  ListCount: integer; 
begin 
  j:=4; //смещение для ListCount 
  ListCount:=ReadH(j); //количество итемов не должно превышать max! 
  for i:=1 to maxitems do 
    if (i<=ListCount) then begin 
      BaseItems[i,1]:=ReadH(j);  //ItemType1 
      BaseItems[i,2]:=ReadD(j);  //ObjectID 
      BaseItems[i,3]:=ReadD(j);  //ItemID 
      BaseItems[i,4]:=ReadD(j);  //LocationSlot 
      BaseItems[i,5]:=ReadD(j);  //Count 
      BaseItems[i,6]:=ReadH(j);  //ItemType2 
      BaseItems[i,7]:=ReadH(j);  //CustomType1 
      BaseItems[i,8]:=ReadH(j);  //isEquipped 
      BaseItems[i,9]:=ReadD(j);  //BodyPart 
      BaseItems[i,10]:=ReadH(j); //EnchantLevel 
      BaseItems[i,11]:=ReadH(j); //CustType2 
      BaseItems[i,12]:=ReadD(j); //AugmentationID 
      //debugmsg('OID='+inttostr(BaseItems[i,2])+' ID='+inttostr(BaseItems[i,3])); 
      inc(j,40); 
    end else for k:=1 to 12 do BaseItems[i,k]:=0; // забиваем нулями 
  //вносим изменения в чекбоксы 
  StringList.Clear; 
  try 
    for i:=1 to ListCount do begin 
      try 
        //StringList.Add(ItemsName[ItemBase[2,i]-1]); //записываем название вещей из инвентаря 
        StringList.Add(ItemsName.Values[IntToStr(BaseItems[i,3])]); //записываем название вещей из инвентаря 
      except; 
        //msg.Lines.Add('Пропускаем! Нет ItemID='+inttostr(BaseItems[i,3])+' в itemsid.ini'); 
      end 
    end; 
  except; 
    //msg.Lines.Add('ошибка в CreateItemBase->StringList.Add()'); 
    //msg.Lines.Add(inttostr(BaseItems[i,3])); 
    exit; 
  end; 
  if not CheckBoxItem.Checked then begin //наполняем комбобокс 
    with ComboBoxItem do 
    begin 
      Items.Clear; 
      Items.Assign(StringList); 
      ItemIndex:=0; 
    end; 
  end; 
  if not CheckBoxScroll.Checked then begin //наполняем комбобокс 
    with ComboBoxScroll do 
    begin 
      Items.Clear; 
      Items.Assign(StringList); 
      ItemIndex:=0; 
    end; 
  end; 
end;

Помогите плз собрать!!!!

[Fer123]

Я так посмотрел в скрипте не используются LocationSlot, ItemType1,2 итд.
Т.к я в пакете разобрал только oid, itemid, amount и enchlvl то чтоб не менять весь скрипт просто пропустим все остальное. Получается:

Procedure ItemList; //создание базы предметов
var i,j,count:integer;
values : array[0..8] of variant;
begin
    count:=round((length(pck)-5)/ReadH(4));
    StringList.Clear;
    for j:=1 to 12 do for i:=1 to maxitems do BaseItems[i,j]:=0;
    for i:=0 to ReadH(4)-1 do
        begin
            readmask('dddqhhhdh',6+i*count,values);
            BaseItems[i+1,2]:=values[0];
            BaseItems[i+1,3]:=values[1];
            BaseItems[i+1,5]:=values[3];
            BaseItems[i+1,10]:=values[8];
            StringList.Add(ItemsName.Values[IntToStr(BaseItems[i+1,3])]); //записываем название вещей из инвентаря
        end;
  if not CheckBoxItem.Checked then begin //наполняем комбобокс 
    with ComboBoxItem do 
    begin 
      Items.Clear; 
      Items.Assign(StringList); 
      ItemIndex:=0; 
    end; 
  end; 
  if not CheckBoxScroll.Checked then begin //наполняем комбобокс 
    with ComboBoxScroll do 
    begin 
      Items.Clear; 
      Items.Assign(StringList); 
      ItemIndex:=0; 
    end; 
  end;
end;

А процедура обновления инвентаря:

Procedure InventoryUpdate;
var i,j,obj,count:integer;
values : array[0..9] of variant;
begin
    count:=round((length(pck)-3)/ReadH(2));
    for i:=0 to ReadH(2)-1 do
        begin
            readmask('hdddqhhhdh',4+i*count,values);
            case values[0] of 
                1: obj:=0;
                2: obj:=values[1];
                3: begin
                    for i:=1 to maxitems do 
                        if BaseItems[i,2]=values[1] then
                            begin
                                for j:=1 to 12 do BaseItems[i,j]:=0;
                                break;
                            end;
                    continue;
                   end; 
            end;
            for i:=1 to maxitems do
                if BaseItems[i,2]=obj then 
                    begin
                        BaseItems[i,2]:=values[1];
                        BaseItems[i,3]:=values[2];
                        BaseItems[i,5]:=values[4];
                        BaseItems[i,10]:=values[9];
                        break;
                    end; 
        end;
end;

Просто замени имеющиеся у тебя в скрипте процедуры на эти.

[Pilgrim]

да с itemsid.ini давно разобрался...
вот это:Оффтоп

ItemsName:=TStringList.Create;
  try
    ItemsName.LoadFromFile('itemsid.ini');
  except
    msg.Lines.Add('itemsid.ini не найден!');
    exit;
  end;

заменил на вот это:Оффтоп

ItemsName:=TStringList.Create;
  try
    ItemsName.LoadFromFile('.\settings\itemsid.ini');
  except
    msg.Lines.Add('itemsid.ini не найден!');
    exit;
  end;

а по поводу

...не хочет работать и все...

- это не полное сообщение.
ниже я по-моему подробно написал:

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

//Breadfan: это твое "подробно" подходит сразу под несколько причин (нет файла\не приходит пакет итемлист\не распознает пакет итемлист) - так что уж будь любезен - сразу полностью все сообщать, а не выдавливать из себя в день по фразе. До сих пор, кстати, нет никакого подтверждения того, что коннект нормально перехвачен, и необходимые пакеты верно расшифровываются. Из твоего скрина ниже - этого понять невозможно.
Добавлено через 59 минут
вот что выдает.. так яснее будет, я думаю:Оффтоп

Добавлено через 16 минут
итемлист приходит... а вот RequestItemList чет я не наблюдаю...
P.s. Я сразу написал эще в первых сообщениях, что не силен в этом деле... знал бы я как это все делается, не писал бы на форум!!!! войдите в положение, когда-то вы ведь тоже в этом не разбирались!
Добавлено через 6 минут
вот лог:Оффтоп

//Breadfan: судя по этому скрину - как минимум имя соединения распознается неверно, что приведет к невыполнению разных "if (connectname=name) then...", а если как обычно - то скорее всего доп.шифрация трафика, и изменениями скрипта\настроек L2phx - делу не поможешь. В любом случае тебе сначала в ветку http://coderx.ru/showthread.php?t=3791...хотя в какой-то из версий программы было такое, что на Камаэль хрониках имя соединения неверно распознавалось, хотя все последующие пакеты отслеживались и была возможность работы с траффиком по номеру соединения... мало ли что тут с этой фрейей. На вкладке Дополнительно есть минискрипт с фразой в чат "Hello!!!" - проверь работает ли он

Добавлено через 44 минуты
не работает... значит с кодировкой плохо дело?

[Fer123]

Я попробовал скрипт у тебя на сервере, инвентарь распознало верно и имя соединения тоже.
Для подключения использовал режим svn "перехват соединения", c включенной галкой Kamael-Hellbound-Gracia.
В скрипте изменил процедуры itemlist и inventoryupdate на те что я выложил раньше. Поменял местами строчки в процедуре Init, так чтобы
эта:

buf:=hstr('14');
  SendToServerEx(Name);

была ниже этой:

  try
    ItemsName.LoadFromFile('settings/ItemsID.ini');
  except
    msg.Lines.Add('itemsid.ini не найден!');
    exit;
  end;

И самое главное удали эту строчку в процедуре Free:

BaseItems:=nil; //нельзя так делать с массивом