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

NLObP · 29.05.2008, 19:29

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

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

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

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

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

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

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

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

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

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

NLObP · 06.07.2008, 13:32

Цитата:

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

Packets.ini поставил от YuLaw, пробовал с l2ph 3.1.8, 3.1.9, 3.2.0.
3.1.8 и 3.2.0 выдают такую ошибку

3.1.9 просто виснет...

В списке соединений я не вижу имени чара. Обычно такая ошибка выскакивает из-за несоответствия соединения и настроек скрипта.
К тому же скрипт проверялся на С4 и Интерлюдии.
Для Камаэля есть несоответсвия в пакетах.
В Интерлюдии 58=RequestEnchantItem:d(ObjectID), а в Камаэле 5F=RequestEnchantItem:d(ObjectID).

eGoIST · 15.07.2008, 04:14

Цитата:

Для С4, надо внести изменения в procedure CreateItemBase;
...
было --> if interlude then inc(j,12) else inc(j,8);
надо --> if interlude then inc(j,12) else inc(j,4); //для С4 проверено, спасибо Mulder

Изменил все как указано выше, все точит отлично до +4, после этого пишет заточка прервана, а все из-за того что оно видит в моем инвентаре неправильное количество заточек и оружия. Хотя в инвентаре 60 шт. заточек и 40 шт. оружия, программа видит только 4 шт. заточек и 3 шт. оружия, хотелось бы узнать с чем может быть это связано и как исправить, что бы программа видела правильное количество предметов в инвентаре.
PS: Заранее спасибо

Breadfan · 19.07.2008, 00:24

Уважаемы NLObP, а как изменить скрипт чтобы перс докупал точи? Пробовал банально добавить проц-ру

PHP код:


			
procedure Skupka;

begin

//-------------------------------------------------------------------------------------------------

buf:='21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 32 00 34 00 37 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 36 00 38 00 39 00 00 00';

sendtoserver;

buf:='A7 B1 02 00 00 60 E3 16 00 01 00 00 00 00 00 00 00 00 00 00 00';

SendToServer;

end;

и потом её вызов

PHP код:


			
msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));

      RequestEnchantItem(ItemOID);

      skupka;

      ready:=false;

Но результата нет

NLObP · 19.07.2008, 14:31

Цитата:

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

Уважаемый NLObP, а как сделать чтоб перс сам докупал заточки?

Сделать что бы покупал можно, но это для каждого сервера будет немного по своему, поэтому делать не буду.
Посмотреть, как это сделать самому, можно в рыбалке и в теме алгоритмов.
Немного подскажу. Надо знать ID продавцов. Знать как продается - обычный магазин/мультиселл. Знать bypass из html-менюшки, который посылать для покупки. Нужно запоминать ListID в ответе продавца.

покупка состоит из следующих шагов:
1. таргет на продавце, пауза, снова таргет (c04=Action, c04=Action)
2. приходит s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d) - берем из него bypass требуемого пункта меню
3. шлем выбранный пункт из меню c21=RequestBypassToServer:s(Cmd)
4. приходит s11=BuyList:d(Money)h(ListID)w(ListCount)w(ItemTyp e1)h(ObjectID)i(ItemID)d(maxcnt)w(ItemType2)w(h)d( ItemBodyPart)... - берем ListID
5. FindItem(ID) найдем OID, Count нужной вещи по ID - это отдельная процедура поиска в инвентаре и здесь не требуется!
6. шлем c1F=RequestBuyItem:h(ListID)d(BuyCount)i(ItemID)d( Count)i(ItemID)d(Count)

На некоторых серверах не обязятельно подходить к продавцу, на других обязательно. Тоже самое с ListID - на некоторых можно 0 ставить.

raid · 19.07.2008, 17:17

Цитата:

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

Сделать что бы покупал можно, но это для каждого сервера будет немного по своему, поэтому делать не буду.
Посмотреть, как это сделать самому, можно в рыбалке и в теме алгоритмов.

Как вариант:
Делаешь функцию настройки скрипта:
В ПМ пишеться: выдели нпц, выбери пункт меню, купи 5 точек, используй одну точку на любом оружие...

Всё довольно просто

после чего сохраняешь параметры в стринглист тот же и в файл.

PS: Жаль что на l2r.ru сложная шифрация пакетов, которую я одолеть не могу, так бы было много скриптов от меня(автокачающийся ВК был бы точно) ну и карту бы закончил в dll.

NLObP · 19.07.2008, 17:49

Цитата:

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

А я могу услышать ответ на свой вопрос, или оно настолько сложный, что даже нечего ответить ?

Скрипт писался под Интерлюд. Пакеты отличаются в С4 и в Интерлюде (в конце вроде 8 байт и 4 байт лишних). Я проверить не могу, так как на сервере сменили защиту (lagam.net). Чем я еще могу помочь? Для всех я тоже не могу проверять и так 9 разных клиентов. Только если ты сам будешь ковыряться и проверишь, какие надо внести изменения в скрипт, чтобы заработало.

Скорее всего это в

Код:

procedure CreateItemBase; //пакет 1B, Создает базу ObjectID по ItemID
...
    if interlude then inc(j,12) else inc(j,8);

и в

Код:

procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
...
    if interlude then inc(j,10) else inc(j,2);

PS: какой у тебя сервер?

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

Цитата:

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

Как вариант:
Делаешь функцию настройки скрипта:
В ПМ пишеться: выдели нпц, выбери пункт меню, купи 5 точек, используй одну точку на любом оружие...

Всё довольно просто

после чего сохраняешь параметры в стринглист тот же и в файл.

Может сделаешь? Я ведь не всё умею.

raid · 19.07.2008, 18:08

Цитата:

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

Может сделаешь? Я ведь не всё умею.

http://coderx.ru/showpost.php?p=11661&postcount=545
Для тебе больше важен BufferBot.txt именно сам процес бафа и использования переменной BS - BuffStep.

Идея довольно простая... Учись.

NLObP · 20.07.2008, 14:28

Цитата:

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

Играю я на С4, вообщем изменил значения в procedure CreateItemBase и procedure InventoryUpdate, а именно:

Код:

procedure CreateItemBase; //пакет 1B, Создает базу ObjectID по ItemID
..............
if C4 then inc(j,4) else inc(j,8);

Код:

procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
..............
if C4 then inc(j,2) else inc(j,10);

И все стало работать отлично

Вроде именно так я и предлагал поменять.
CreateItemBase;
if interlude then inc(j,12) else inc(j,4); //для С4 проверено, спасибо Mulder

Эта процедура была правильной:
procedure InventoryUpdate;
if interlude then inc(j,10) else inc(j,2);

NLObP · 28.07.2008, 23:29

Цитата:

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

а как сделать чтоб скрипт точил предмет до определённого уровня и если он ломался то начинал точить следующий?

Как сейчас сделано, больше шанс, что по максимуму заточится. Теоритически можно и по одному сделать, только я уже не буду делать. Посмотри в теме, выложены еще два скрипта, может там как раз то, что надо?

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

Цитата:

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

а есть для камельки такая штука??

Для Камаеля другие пакеты нужны, если напишешь, какие там используются, могу и поправить.

NeRv1k · 02.08.2008, 03:23

Что делать ??? Запуска на С6 имя прописал