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

[Fer123]

nneett, естественно я же написал что curenchlvl получаю из пакета InventoryUpdate. В нем после каждой заточки приходит изменения предмета, в том числе и уровень заточки

[xakep14]

Что нужно изменить в скрипте для того,чтобы он точил 1 вещь,а не по очереди? Хроники Interlude.Вроде версия скрипта 0.5 должна точить 1 вещь?Если да,то прошу выложить эту версию.

Добавлено через 18 минут
Все разобрался,теперь проблема со сбросом заточки.Сбрасывает на 3,после этого программа зависает.Вобщем проблема такая же как у nneett

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

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

nneett,
я вместо этого

repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;

CurEnchLvl получаю в InventoryUpdate для определенного ItemOID
Это как раз эффективно когда точишь блесс точками.

Обьясни пожалуйста поподробнее,что нужно сделать,чтобы все работало нормально?

[Fer123]

Я не знаю как правильно объяснить и тут надо полностью просмотреть скрипт но в общем для 9 скрипта
в процедуре InventoryUpdate:
после строчек

  EnchantLevel:=ReadH(j);
    CustType2:=ReadH(j);
    AugmentationID:=ReadD(j)

;
вставь
if (UpdType=2) and (ObjectID=ItemOID) then CurEnchLvl:=EnchantLevel;
в процедуре CheckBoxItem_Click и ComboBoxItem после

    ItemOID:=BaseItems[ComboBoxItem.ItemIndex+1,2];
    ItemID:=BaseItems[ComboBoxItem.ItemIndex+1,3];

вставь CurEnchLvl:=BaseItems[ComboBoxItem.ItemIndex+1,10];
По убирай везде где есть

repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;

и другие присвоения CurEnchLvl. А также всякие проверки на сломанность оружия, все равно блессами точишь.

[xakep14]

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

Я не знаю как правильно объяснить и тут надо полностью просмотреть скрипт но в общем для 9 скрипта
в процедуре InventoryUpdate:
после строчек

  EnchantLevel:=ReadH(j);
    CustType2:=ReadH(j);
    AugmentationID:=ReadD(j)

;
вставь
if (UpdType=2) and (ObjectID=ItemOID) then CurEnchLvl:=EnchantLevel;
в процедуре CheckBoxItem_Click и ComboBoxItem после

    ItemOID:=BaseItems[ComboBoxItem.ItemIndex+1,2];
    ItemID:=BaseItems[ComboBoxItem.ItemIndex+1,3];

вставь CurEnchLvl:=BaseItems[ComboBoxItem.ItemIndex+1,10];
По убирай везде где есть

repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;

и другие присвоения CurEnchLvl. А также всякие проверки на сломанность оружия, все равно блессами точишь.

09 это для Грации,а мне для Interlude нужно.Но щас попробую.

Добавлено через 17 минут
Попробывал,в итоге ошибку в скрипте какую-то выбивало,короче скрипт испортился.Есть еще какие-то предложения или может ты сам попробуешь исправить?А то у меня может просто не получается.

[Fer123]

if Getitem(57,3,4)=2000000000 then begin
buf:=Пакет на юзание скила;
SendToServerEx(Name);
end;

Вставь напимер в процедуре InventoryUpdate

[xakep14]

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

if Getitem(57,3,4)=2000000000 then begin
buf:=Пакет на юзание скила;
SendToServerEx(Name);
end;

Вставь напимер в процедуре InventoryUpdate

Я вставил,оно ошибку выделяет в скрипте,выделяет начало пакета на использование скилла.

[TAMBIK]

if Getitem(57,3,4)=2000000000 then begin
buf:=hstr('39 1B 01 00 00 00 00 00 00 00');
SendToServerEx(Name);
end;

пакет скила
39 1B 01 00 00 00 00 00 00 00
замени на свой

[xakep14]

Все работает,спасибо.

Добавлено через 13 часов 5 минут
Возник еще 1 вопрос,как к этому прилепить еще использование МР?Нужно вот что:
1)Использовал банку МР
2)Заюзал скилл
3)Использовал банку МР
4)Купил заточки

[Hisom]

у меня ненаходит вещ и заточку что сделать?

[TAMBIK]

Hisom,
прочитать тему.
вопрос задавали 1000000000000000000000000000 раз