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

[Murdoc]

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

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

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

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

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

[Breadfan]

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

[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 починил форум, теперь файлы скачиваются.

[NLObP]

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

Работает ли скрипт на л2пх 3.20

Да.

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

Возможно ли использовать скрипт просто как рыбалку в определенном месте без смены мест ловли

Можно. Надо PMMesto сделать большим.

  PMMesto:=50; //количество сорвавшихся рыб, для начала смены места ловли

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

я так понимаю можно просто проигнорировать ту часть где пути и фешермены

Если скрипт исправить в месте где проверяется количество крючков, то можно.

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

комп подвисает секунд на 10, потом открывает форму и вылетает ошибка

Какая именно ошибка? Может не все настроил?

При включении скрипт посылает команду:

  //$0F - RequestItemList вызываем инвентарь

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

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

нпцИД и итемсИД что шли со скриптом переписал поверх оригинальных от л2пх

А вот это ты зря сделал. Там папки специально идут, чтобы в них лежало всё. Наоборот лучше сделать из основной туда скопировать.

PS: Зачем удалил своё сообщение, сам разобрался?

[Murdoc]

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

PS: Зачем удалил своё сообщение, сам разобрался?

Да Все работает но возникло несколько других вопросов.
1) перекрафт бутылок. Или не работает или я не разобрался. Ставлю галку - в клиенте открывается окно коммон крафта с выучеными рецептами. и все. крафт не происходит.
2) репозиция после боя иногда не происходит.
3) иногда не бьет моба. т.е. берет пуху в руки и стоит лечится.