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

[Breadfan]

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

про размерность - правильно.. за исключением
word = 2 байта
DWord/integer = 4 байта...
инт64 = 8 байт...

- да я вроде так и написал - используется простое DWord - 4 байта - это ты писать рано бросился я поправил потом ))
- и вообще, я слесарь по профессии технологиям не обучен

[alexteam]

ну, я архитектор как бы... %)
зы. для таких вот вещей и придуман readmask...

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

Обявление процедур вызываюбщихся при разборке пакета:

procedure ItemListBegin;
procedure ItemListItem(ItemType1:Word;ObjectId, ItemId, LocationSlot : integer;Count : int64;ItemType2, IsEquipped:word;BodyPart:integer;EnchantLevel:word;AugmentId,mana :integer);
procedure ItemListEnd;

основное тело (разборка пакета):

case pck[1] of
  #$11 : //(ItemList)
    begin
        count := round((length(pck)-5)/ReadH(4));
        ItemListBegin();
          for d:=0 to ReadH(4)-1 do
            begin
              readmask('hdddqhhhdhhdd',6+d*count,values);
              ItemListItem(values[0], values[1], values[2], values[3], values[4], values[5], values[7], values[8], values[9], values[11], values[12]);
            end;
        ItemListEnd();
    end;
end;

[Breadfan]

Оффтоп

че то на ум вдруг пришло из детства: "...коль сапоги начнет тачать пирожник..." ))

Не,не...я настаиваю на простой вставке сдвига указателя - так там проще будет А то ты сгоряча налетел, всех озадачил прям

[IceFloe]

ты пакет ItemPacket выложил бы уж свой...только не с ".... кучей итемов", достаточно несколько штук в сумке оставить и все.

Вот это имееш в виду?

11 01 00 04 00 00 00 71 2E 02 10 B7 19 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF 04 00 06 2A 02 10 39 00 00 00 01 00 00 00 F0 6E 06 95 08 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF 04 00 04 EB 00 10 BF 03 00 00 02 00 00 00 AD 03 00 00 00 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF 00 00 4A 2E 02 10 B7 19 00 00 03 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF

А я вобще инженер по охранно сигнализации =) , а от того что вы описываете просто закипает мозг...

вариант - можешь просто вставить пустые сдвиги:
---------
ReadD(j); -----> сдвиг указателя на 4 байта
BaseItems[i,5]:=ReadD(j); //Count

есле не затруднит напишите всю процедуру ItemList и InventoryUpdate с исправлениями, все што для это нужно я постораюсь предоставить. Совсем я нубка оказывается =(

[Breadfan]

Ну и как бе хотелось бы собсно узнать сразу че там искать то??Что в сумке блин???Только не ложи уникальные итемы в сумку, наподобие "Нагибаторные штаны админа" и прочую чушь. А то сейчас видно - да, есть фб, а что дальше там - хз, и наугад искать тож как-то не совсем приятно

[Breadfan]

to ICEFLOE
Оффтоп

PHP код:

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);  //!!! 36 


- вот тут - у меня с каких то недавних серверов осталось - смени на inc(j,36);
...черт его знает насколько верно будет - ето полуночная теоретика все
P.S - это только в наИтемЛист пакет...на апдейт - не смотрел...
Если сумка начнет нормально отображать итемы, то вариант Итемапдейт:
Оффтоп

PHP код:

procedure InventoryUpdate; //пакет 21, Создает базу ObjectID по ItemID
var
  i, ii, j, k, ListCount, UpdType : integer;
  ItemType1, ObjectID, ItemID, LocationSlot, Count, ItemType2, CustomType1,
  isEquipped, BodyPart, EnchantLevel, CustType2, AugmentationID :integer;
  additem : boolean;
begin
  additem:=true;
  ListCount:=ReadH(2); //количество итемов
//  debugmsg('ListCount='+inttostr(ListCount));
  j:=4; //смещение для действия с предметом 1-добавлен 2-изменен 3-удален
  for i:=1 to ListCount do begin
    UpdType:=ReadH(j);
    ItemType1:=ReadH(j);
    ObjectID:=ReadD(j);
    ItemID:=ReadD(j);
    LocationSlot:=ReadD(j);
    Count:=ReadD(j);
    ItemType2:=ReadH(j);
    CustomType1:=ReadH(j);
    isEquipped:=ReadH(j);
    BodyPart:=ReadD(j);
    EnchantLevel:=ReadH(j);
    CustType2:=ReadH(j);
    AugmentationID:=ReadD(j);
    case UpdType of
      1: k:=0;         //добавлен новый предмет
      2: k:=ObjectID; //изменен предмет в инвентаре
      3: begin       //удален
        for ii:=1 to maxitems do
          if (BaseItems[ii,2]=ObjectID) then begin
            //debugmsg('удаляем OID='+inttostr(BaseItems[ii,2])+' ID='+inttostr(BaseItems[ii,3]));
            for k:=1 to 12 do BaseItems[ii,k]:=0;
            break;
          end;
      end;
    end;
    for ii:=1 to maxitems do begin
      if (BaseItems[ii,2]=k) then begin
        BaseItems[ii,1]:=ItemType1;
        //BaseItems[ii,2]:=ObjectID;
        BaseItems[ii,3]:=ItemID;
        BaseItems[ii,4]:=LocationSlot;
        BaseItems[ii,5]:=Count;
        BaseItems[ii,6]:=ItemType2;
        BaseItems[ii,7]:=CustomType1;
        BaseItems[ii,8]:=isEquipped;
        BaseItems[ii,9]:=BodyPart;
        BaseItems[ii,10]:=EnchantLevel;
        BaseItems[ii,11]:=CustType2;
        BaseItems[ii,12]:=AugmentationID;
        //debugmsg('доб/изм OID='+inttostr(BaseItems[ii,2])+' ID='+inttostr(BaseItems[ii,3]));
        break;
      end;
    end;
    inc(j,38);
  end;
end; 


[IceFloe]

Если не ошибаюсь команда SORT есть, которая сортирует тестовые файлы.

есть. только вот сортирует она вот так =(

//для L2PacketHack 3.4.1+
; by (c) Xelat
1=Короткий Меч
10=Кинжал
100=Кукла Вуду
1000=Перчатки-010
10000=Зелье Ветра
10001=Зелье Тьмы
10002=Зелье Святости
10003=Острая Рапира
10004=Двойной Меч Династии
10005=Теневой Предмет: Острая Рапира
10006=Теневой Предмет: Военный Тальвар
10007=Теневой Предмет: Ручной Арбалет
10008=Теневой Предмет: Истребитель
10009=Теневой Предмет: Вечный Клинок
1001=Книга Аклантота, ч. 4
10010=Теневой Предмет: Татлум
10011=Теневой Предмет: Топор Войны

exel тож не помог..может есть какаето програмка?

- вот тут - у меня с каких то недавних серверов осталось - смени на inc(j,36);

ноль реакции, на такое изменение =(
отчаение уже близко... =((

[Breadfan]

что за сервер то? в аську напиши если хочешь

ЗЫ: да сортировка ни при чем - постоянно на ГФШ полукривые структуры пакетов - не соответствующие описанному стандарту - то с сумкой намутят, то с таблицей скилов - считая это (как пишут на сайте сервера) - "100% защитой от ботоводства"...хотя на многих лишь разница в типе (int64\Dword) количества итемов

[someonce1]

На сервере грация парт2
Скрипт на заточку для грации работает, но проблема есть. Дело в том что на сервере безопасная точка равна 3 если точить выше небезопасной точкой, то сломается, НО если точить блесс точкой...то оружие при фэйле становится заточено на 5! И если оружие на 6 точнуть блеской и если будет фэил то оружие не изменится, так и останется на 5.
ПРОБЛЕМА В ТОМ, что я точу блесками...и после пары фэйлов...когда оружие становиться снова 5...скрипт и сама программа L2PacketHack зависает...и клиент окна тоже виснет. Что можно сделать?

[SeregaZ]

а мы обсуждали похожую проблему в
http://coderx.ru/showthread.php?t=3601