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

[NLObP]

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

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

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

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

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

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

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

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

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

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

[NLObP]

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

Как отсортировывать?

Примерно вот так должно быть

1=Short Sword
2=Long Sword
3=Broadsword
4=Club
5=Mace
6=Apprentice's Wand
7=Apprentice's Rod
8=Willow Staff
9=Cedar Staff
10=Dagger
11=Bone Dagger
12=Knife
13=Short Bow
14=Bow
15=Short Spear
16=Long Spear
17=Wooden Arrow
18=Leather Shield
19=Small Shield
20=Buckler
21=Shirt
22=Leather Shirt
...
8647=Mysterious Solvent
8648=Coffer of Shadows
8649=Demon Horns
8650=Mask of Spirits
8651=Fairy Antennae - For Event

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

SORT [/R] [/+n] [/M килобайтов] [/L язык] [/REC символов]

  [[диск1:][путь1]имя_файла1] [/T [диск2:][путь2]]

  [/O [диск3:][путь3]имя_файла3]

  /+n                         Задает число символов, n, до начала каждого

                              сравнения. /+3 показывает, что каждое

                              сравнение будет начинаться с третьего символа

                              каждой строки. Строки меньше чем n символов

                              собираются перед всеми остальными строками.

                              По умолчанию, сравнение начинается с первого

                              символа каждой строки.

  /L[OCALE] язык              Перекрывает установленные в системе по умолчанию

                              язык и раскладку заданными. Пока существует 

                              возможность только одного выбора: ""C"" - 

                              наиболее быстрый способ упорядочивания 

                              последовательности. 

                              Сортировка всегда идет без учета регистра.

  /M[EMORY] килобайтов        Задает количество основной памяти, используемой

                              для сортировки, в килобайтах. Размер памяти

                              должен быть не менее 160КБ. При явном задании

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

                              использовано невзирая на то, какое количество 

                              основной памяти доступно в системе.



                              Наилучшей производительности можно добиться, не

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

                              выполняется за один проход (без временного 

                              файла), используя максимально доступный размер

                              памяти. В остальных случаях, сортировка

                              выполняется за два прохода (с сохранением

                              частично отсортированных данных во временном

                              файле), так что количество памяти, используемой

                              для обоих проходов, - одинаково. По умолчанию,

                              максимальный объем памяти равен 90% доступной 

                              основной памяти, если входными и выходными

                              потоками являются файлы на диске, и 45% доступной

                              основной памяти - иначе.

  /REC[ORD_MAXIMUM] символов  Определяет максимальное число символов в записи

                              (по умолчанию 4096, максимальное 65535).

  /R[EVERSE]                  Обратный порядок сортировки; т.е. сортировка

                              идет от Я до А, и затем от 9 до 0.

  [диск1:][путь1]имя_файла1   Определяет имя сортируемого файла. Если оно

                              опущено, то будет использоваться стандартный

                              поток ввода. Явное задание сортируемого файла

                              работает быстрее, чем перенаправление того же

                              файла в качестве стандартного потока ввода.

  /T[EMPORARY]

    [диск2:][путь2]           Определяет путь к папке, содержащей рабочие

                              файлы сортировки, в том случае, когда данные

                              не помещаются в основной памяти. По умолчанию

                              используется системная временная папка.

  /O[UTPUT]

    [диск3:][путь3]имя_файла3 Определяет имя файла, в котором сохраняются

                              отсортированные результаты. Если оно опущено

                              данные записываются в стандартный поток вывода.

                              Явное задание файла вывода работает быстрее чем

                              перенаправление стандартного потока вывода 

                              в этот же файл.

[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

[Hworang]

ребят, подскажите что нужно изменить в скрипте, чтобы он точил блеседами (скрипт nlobp для interlude)

я ставил CurEnchLvl:=6; (блески сбрасывают до 6 энчант)
но скрипт "забывает" пушку после фейла и не возвращается к ней больше

[Fer123]

По идее должно работать если здесь вставить:
CurEnchLvl:=0;
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;

[Hworang]

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

По идее должно работать если здесь вставить:
CurEnchLvl:=0;
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;

Увы, не помогло.
Во 1х было бы полезно знать куда вставлять код (CurEnchLvl:=0 встречается несколько раз)
Ну а сама проблемма в том что функция GetItemEnchant не объявлена в скрипте

[Fer123]

Какую версию используешь? То я написал для 9, а если ниже то найди этот кусок, и где я красным написал вставь
#$6F: if ready then begin //and (readd(2)=itemid)
//ищем подходящий предмет для заточки
timer.enabled:=false; //отключаем пока не найдем предмет для заточки
CurEnchLvl:=0;
repeat
ItemOID:=GetItem(ItemID,CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;