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

NLObP · 11.01.2008, 04:07

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

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

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

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

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

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

MyICQ 402988808

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

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

NLObP · 05.07.2008, 20:21

Выложил новую версию скрипта. Пробуйте.

ЗЫЖ Два часа, полет нормальный.

Добавлено через 16 часов 50 минут

Цитата:

Сообщение от Гостььь

Такая же проблема. После нападения моба, чар его убивает - но стоит на месте и рыбалку не продолжает (это замеченно в более ранних версиях скрипта).

Вот, попробуйте так ие изменения внести:
вместо

delphi Код:

#$12: begin
        msg.Lines.Add('S>C $12 DeleteObject '+inttostr(ReadD(2)));
        DeleteNpc(ReadD(2));
        if (AttackerOID=ReadD(2)) and not isDie then begin

написать

delphi Код:

#$12: begin
        msg.Lines.Add('S>C $12 DeleteObject '+inttostr(ReadD(2)));
        DeleteNpc(ReadD(2));
        if (AttackerOID=ReadD(2)) then begin

PanAm · 26.07.2008, 15:17

fishing_manual желательно делать в TXT или RTF. чтоб MSOffice не тянуть еще за скриптом.

NLObP · 26.07.2008, 15:19

Цитата:

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

fishing_manual желательно делать в TXT или RTF. чтоб MSOffice не тянуть еще за скриптом.

В мануале немного графики есть, для пояснения процесса создания путей.

Breadfan · 07.08.2008, 04:18

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

delphi Код:

procedure OnShowInfo(Sender: TObject); //выводим в форму
begin
  ShowInfo;
  if (MyHP<but) and HPuse1 then begin //если разрешено использование бутылок, то используем
    if (iii>=5) and (colvohp>0) then begin
      UseItem(HPOID); //проверка количества бутылок
      iii:=0; //счетчик для личилок, чтобы не спамить
      giveweapon;
      TargetAttacker(AttackerOID);
      underattack:=true;
      end else inc(iii)
  end;
end;

Breadfan · 07.08.2008, 04:24

Еще хотелось бы получить помощь в модернизации скрипта для добавления опции ночной рыбалки

NLObP · 07.08.2008, 14:25

Цитата:

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

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

Спасибо. Включу в основной скрипт.
Можно еще паузу по больше между забросами сделать. Было предположение, что моб нападёт сразу, до заброса крючка.

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

Цитата:

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

Еще хотелось бы получить помощь в модернизации скрипта для добавления опции ночной рыбалки

Расскажи, что и как должно быть. Желательно по пунктам действий. Чтобы легче закодить можно было.

NLObP · 07.08.2008, 15:15

Цитата:

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

Достаточно добавить еще один комбобокс для наживок (ночных), и периодически отправлять запрос какое время дня в данный момент. Я начинающий, и сам долго делать буду)

Легко сказать добавить комбобох.

Так неудобно в готовые формы что нибудь добавлять. Вот с нуля делать гораздо легче, я даже выкладывал для Делфи компонент для работы с формой.

А еще подробнее можно? Какой пакет время в себе несет, какие такие ночные наживки (ID=название)...

NLObP · 08.08.2008, 11:50

Цитата:

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

Задам один вопрос а почему не пользуетесть для рыбалкпи волкером, может я чёто недопонял.

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

NLObP · 08.08.2008, 14:58

Цитата:

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

не проше будет написать скрипты как были на ц4:автохп,рыбалка,патрошиловка. и все норм работало...

Не понятна проблема. Я уже писал такие, можно пользоваться. Нужны? Могу выложить.

PS: А этот мне удобнее использовать.

NLObP · 08.08.2008, 19:49

Цитата:

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

в стандартных файлах на место ловли №3 после точки №25 если начать ловить то чар начинает непонятно бегать туда-сюда, ясное дело он ничего не ловит
и постоянно идет проверка на застревание

Желательно сразу под себя все пути переделать. В гиран-харборе нормальные пути, я ими пользуюсь, а в Талкин-исланд уже и не помню, нормальные или нет.

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

Код:

  RecordFilesPath='.\scripts\fishing\giran_harbor\'; //путь где хранятся наши файлы

Еще одно но. Всегда начинать с той точки ловли, которая указана первой в скрипте: здесь задана первая точка

Код:

procedure Init;
begin
...
  MestoLovli:=1; //номер места позиции ловли, всего три.
...
end;