Скрипт на рыбалку

[NLObP]

Не пишите по несколько раз вопросы. Тема премодерируемая и пока модератор не посмотрит, сообщение не появиться.

Выкладываю мою версию рыбалки: fishing_by_NLObP.zip

//Автоматизация ловли рыбы by NLObP для L2PacketHack v.3.5+ by Xkor
//version 0.10.11 от 26.07.2009г.

Возможности скрипта:
Оффтоп

+ Контроль рыбалки с панели управления;
+ Статистика ловли;
+ Может работать одновременно несколько скриптов для разных чаров;
+ При нападении моба может атаковать его и может лечиться бутылками;
+ Потрошит пойманную рыбу;
+ Подбирает выпавшие предметы из убитого моба;
+ Возвращается на место рыбалки после смерти;
+ Когда закончатся крючки, бежит к фишермэну и продает/покупает/обменивает предметы
(продажа Fish Oil и Great Fish Oil не производится, см. ниже);
+ Меняет место ловли при неудачных попытках (в скрипте три места ловли);
+ В процессе рыбалки преобразует Fish Oil в Great Fish Oil, Great Fish Oil в Premium
Fish Oil (требуются соответствующие рецепты);
+ проверка на то, что мы действительно рыбачим, с репозицией;
+ проверка на застревание с возвратом на одну позицию назад;
+ возобновляет рыбалку если моб исчез сам;
+ показывает количество HP напавшего моба;
+ добавил отключение клиента (социал YES);

Спасибо Xkor за пакетхак!
Спасибо участникам форума CoderX.ru за идеи для скрипта!

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

MyICQ 402988808

by APXAHGEJI
Вот попробуй этот, на моем ХБэшном серве работает.
Единственно что, не переделал отключение клиента.
Скрипт не универсален, то есть работает тока под ХБ.

Ниже прикреплены скрипты
Так выглядит панель управления скриптом

[Imperial2008]

Поле того, как инвентарь обновлен все равно не отображаются правильно вещей в этом инвентаре. Как вы думаете: это проблема, связанна с неправильной дешифровкой пакетов или неправильными id предметов. Предметы отображаются, но только 1й из всех правильный.
Хроники: Hellbound

[NLObP]

Imperial2008, наверное с неправильной обработкой пакета инвентаря и изменения инвентаря.

[Breadfan]

Раз 1ый верен, то идет сбой считывания в описании 1го же итема - обычно это тип байта указывающего количество...Постоянно встречается разброс типов на разных серверах - то dword то qword...Рассмотри сам пакет ИтемЛист и танцуя от него уже поправь процедуры создания\апдейта итемлиста

[Murdoc]

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

Imperial2008, наверное с неправильной обработкой пакета инвентаря и изменения инвентаря.

Ну да. Причем скорее всего проблема в смещении с предмента на предмет. Но почему то у меня не вышло ни вычислить это значение ни подобрать. первый предмет определяется, а остальные или пустые строчки или вещи которых реально нет да еще в нереальных количествах. Подскажите пожалуйста что я делаю не так.

Отчет о проделанной работе Вобщем таки пришлось чуть подредактировать процедуры по обработке пакетов ItemList и InventoryUpdate. Вчастности длину блока описывающего 1 вещь. Например в моем случае в процедуре procedure ItemList пришлось поменять inc(j,24) на inc(j,30). В процедуре procedure InventoryUpdate то же самое. Если нет желания разбиратся с форматом пакета под свой серв и искать в нем смещение, можно попробовать и просто перебором значений от 20 до 34(при условии что в пакете (Amount) таки qword если нет то можно столкнуться с тем что предметы определяются правильно, но не правильно определяется признак надетости). Но это для извращенцев

ЗЫ. Да-да я сначала тоже пошел путем извращений
ЗЫЫ мои значения смещения годятся для сборки от http://www.l2jserver.com/

[alxumuk]

подскажите пожалуйста
пакет ExFishingEnd
не вычитывается последний 8й байт из-за чего постоянно "сорвалась"
перепробовал всё..
tempi:=1;
msg.Lines.Add('S>Пакет ExFishingEnd #$FE1F00'+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi))+' Rez:'+IntToStr(ReadC(tempi)));
для
FE 1F 00 9A 76 70 48 01
возвращает
$FE1F00 Rez:254 Rez:31 Rez:0 Rez:154 Rez:118 Rez:112 Rez:72 Rez:0 Rez:0
... как обойти?

[Murdoc]

та же фигня. причем "сорвалось" не всегда а 3 раза из 4х. И при этом рыбу таки вылавливает. полтергейст какой то. жаль у меня сейчас сервак потушен не могу поковырять скрипт, разобраться

[NLObP]

Xkor починил форум, теперь файлы скачиваются.