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

[NLObP]

Автоматизация заточки предметов до необходимого уровня by NLObP

Возможности скрипта
--------------------
+ Панель управления;
+ Затачиваем по очереди все предметы с ItemID пока не переломаем
или не заточим. Один предмет всегда остаётся.

Необходимо затариться оружием, заточками и валерьянкой.
Name='NLObP'; //Вписать сюда имя чара
//установить константу в зависимости от типа игры (С4 или Интерлюд)
interlude=true; //Interlude - true, C4 - false

Внимание!
Из комбобокса обязательно надо выбрать вещь, чтобы скрипт узнал
ID и количество, только потом ставить напротив галочку.
Галочки снимать не надо, если кончились заточки/вещи - можно сразу идти
покупать и продолжать заточку.
В инвентаре должно быть не менее двух одинаковых затачиваемых вещей, степень заточки значения не имеет

Скрипт распространяется как есть, и я не несу ответственности за то, что ВЫ натворили у себя, его используя.

by NLObP
для С4 и Интерлюдии можно взять здесь
для Грации можно взять здесь

by Breadfan
скрипт переделанный под камаель (с автопокупкой).

by Shadow
Скрипт заточки предметов с их закупкой при необходимости

Этот скрипт помогает в рутине, когда разрешено пользователям 100% точить до большой величины, скажем до +200, ручками то замучаешься точить.

PS: скрипты - это облегчение рутинной работы человека.

[Hastelo]

неа толку ноль уже все что есть пробывал

[nneett]

Приветы всем.
Испольую скрипт NlobP версия 0.7 от 20.07.2008.(Сервер Interlude), дело в том, что вещь при сточке, стачивается не на 0, а на 15, и когда это происходит зависает пакетхак, тему читал, так и не понял как с этим бороться, значения в CurEnchLvl менял на 15, не помогает, все равно зависает, я так понял это у многих, кто-нибудь решил эту проблему?
Что никто не решил? Если нет, напишите каими скриптами пользуетесь, буду признателен.

[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
Это как раз эффективно когда точишь блесс точками.

[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)Купил заточки