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

[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
Вот попробуй этот, на моем ХБэшном серве работает.
Единственно что, не переделал отключение клиента.
Скрипт не универсален, то есть работает тока под ХБ.

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

[NLObP]

Поправил код под Грацию Финал (специально для Final_World.ru (java server)). И packetsT1.ini для Грации Финал.
Тестируйте.

[LiS]

NLObP, у тебя в коде есть такое место:

//сюда вписываем ItemID предметов для автообмена
  TradeMultiItem=[6908,6909,6910,6911,6912,6913,6914,6915,6916]; //нельзя изменять, собъется обмен!
  //количество предметов в массиве TradeMultiItem
  TradeMultiItemCount=9;//нельзя изменять, собъется обмен!

Но я не хочу продавать Fish Gem'ы и Shiny Fish Gem'ы.
Что нужно для этого сделать?
Почему нельзя изменять?
Если убрать 6913 и 6914, а TradeMultiItemCount поставить равным 7, не будет работать?
Поясни, пожалуйста.

[NLObP]

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

NLObP, у тебя в коде есть такое место:

//сюда вписываем ItemID предметов для автообмена
  TradeMultiItem=[6908,6909,6910,6911,6912,6913,6914,6915,6916]; //нельзя изменять, собъется обмен!
  //количество предметов в массиве TradeMultiItem
  TradeMultiItemCount=9;//нельзя изменять, собъется обмен!

Но я не хочу продавать Fish Gem'ы и Shiny Fish Gem'ы.
Что нужно для этого сделать?
Почему нельзя изменять?
Если убрать 6913 и 6914, а TradeMultiItemCount поставить равным 7, не будет работать?
Поясни, пожалуйста.

Поставь вместо ID предметов, которые хочешь оставить, любое заведомо неподходящее под другие ID предметов число (например 999999 или 1) и оно просто будет пропущено. Причина в вычислении EntryId в пакете MultiSellChoose. ID предметов для обмена идут по порядку и пропускать их нельзя.

[LiS]

Совет: Добавьте строчку в скрипте, чтобы во время обмена у фишермена очищался контрол msg. Иначе через несколько часов происходит его переполнение и скрипт падает с ошибкой "List index out of bounds (4999)"

//***************************************************************
// Вся торговля здесь!!!
//***************************************************************
procedure OnTrade(Sender: TObject);
begin
     msg.Lines.Clear();
  case trade of
    //-------------------------------------------------
    //продаем фишерману из массива TradeSellItem
    //-------------------------------------------------
    200: begin

[LiS]

Добавление строчки очистки Memo-эдита не помогло.
Все также через несколько часов вылетает ошибка "List index out of bounds (4999)".

Знатоки, подскажете куда смотреть?
Не приходит ничего путного на ум.
Где что может переполняться?

//nlobp: лог сообщений и лог пакетов давай. Выход за пределы массива вроде. Что там у нас на 5000 записей есть?

//LiS: Как только опять упадет - дам. А лог пакетов. Он же нереально большой. Может что-то конкретное надо?

[LiS]

Сейчас переделываю бота на версию пакетхака 3.5.13.122
Ругается на вот это:

  //отключение клиента
  //YesFreeOnClientDisconnect;
  //YesFreeOnServerDisconnect;

Почему?

//nlodp: по другому называются. Поищи на форуме уже писали.

[LiS]

Вот скрины при работе в версии пакетхака 3.4.1.83:
Окно бота:

http://coderx.ru/attachment.php?atta...1&d=1250982845

Лог сообщение в самом боте (после очистки лога при покупке наживки):
MemoLog.txt
http://coderx.ru/attachment.php?atta...1&d=1250982845

Сообщение об ошибке:

http://coderx.ru/attachment.php?atta...1&d=1250982845

Сообщение об ошибке полностью:
ErrorLog.txt
http://coderx.ru/attachment.php?atta...1&d=1250982845

Извиняюсь, если ссылки и картинки вставил не так, как надо, но с этим "предмодерированием" одни проблемы

[LiS]

Вот часть кода:
В версии 3.4.1.83 работает нормально, а в версии 3.5.13.122 падает на выделенной синим цветом строке.
Если комментирую эту строку, то падает в следующей.
В чем причина? Подскажите, плиз.

//***************************************************************
//Вызывается при выключении скрипта
//***************************************************************
procedure Free;
begin
  ItemBase:=nil;  ItemBase2:=nil;

  //таймеры
  ShowInf.Enabled:=false;  ShowInf.Interval:=0;  ShowInf.Free; ShowInf.OnTimer:=nil;
  fishin.Enabled:=false;  fishin.Interval:=0;  fishin.Free; fishin.OnTimer:=nil;
  trade1.Enabled:=false;  trade1.Interval:=0;  trade1.Free; trade1.OnTimer:=nil;
  createpfo.Enabled:=false;  createpfo.Interval:=0;  createpfo.Free; createpfo.OnTimer:=nil;
  movetimer.Enabled:=false;  movetimer.Interval:=0;  movetimer.Free; movetimer.OnTimer:=nil;

[LiS]

Хм. Видимо проблема была в этом:

ShowInf.OnTimer:=nil;
fishin.OnTimer:=nil;
trade1.OnTimer:=nil;
createpfo.OnTimer:=nil;
movetimer.OnTimer:=nil;

Убрал, и больше не падает при вызове Free.

Но есть другой вопрос.

Компилирую скрипт. Ставлю галочку на запуск скрипта. Все отлично.
Снимаю галочку, форма исчезает. Еще раз ставлю галочку. Скрипт запускается, форма появляется, но в логах пишет:

ошибка в CreateItemBase->StringList.Add()

И еще ошибка такая (вернее не понятная мне вещь).
В версии 3.5.13.122 уже есть встроенный метод SendMsg(string).
В этом скрипте он почему-то не шлет сообщения в клиент.
Пришлось вставить такой метод в скрипт:

//.....................
procedure SendMsg_to_CL(msg:string);    // отправка системных сообщений клиенту
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(Name);
end;

и использовать его.

[alexteam]

Убрал, и больше не падает при вызове Free.

Смотрим порядок действий

ShowInf.Enabled:=false; ShowInf.Interval:=0; ShowInf.Free; ShowInf.OnTimer:=nil;

по русски: отключаем таймер, устанавливаем интервал = 0 (зачем?), высвобождаем таймер (что в принципе подразумевает его останов), пытаемся обнулить привязку процедуры к событию онтаймер.
последний шаг производиться на уже не существующем обьекте, что явно приведет к рантайм эррору.
в принципе, все эти 4 действия сводятся к банальному ShowInf.Free; больше ничего и не надо.

ошибка в CreateItemBase->StringList.Add()

что в статусбаре/еррорлоге написано, и код инит функции с подствеченой строкой на которой выбивает ошибку в студию.

В версии 3.5.13.122 уже есть встроенный метод SendMsg(string).
В этом скрипте он почему-то не шлет сообщения в клиент.

SendMsg встроенный в пх шлет сообщения в ЛОГ пх.