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

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

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