Бот для Fantastic Fishing

[BigGul]

Исправил ошибки. Строки всегда пишутся в кавычках, и не нужно оставлять мусор ввиде ";"
Код: Clickermann

Спасибо!

[Роман1]

Исправил ошибки. Строки всегда пишутся в кавычках, и не нужно оставлять мусор ввиде ";"
Код: Clickermann

Спасибо!

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

[BigGul]

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

1) запускаем скрипт
2) щелчек левойкнопкой в месте заброса
3) все!

[Роман1]

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

1) запускаем скрипт
2) щелчек левойкнопкой в месте заброса
3) все!

Такое дело зашел в игру, потом зашел в кликерман загрузил в редактор вот это:

Code: (clickermann) [Select]

//Определяем координаты

While($x=0)
   if(iskeydown(1)=1)
      $x=$_xmouse
      $y=$_ymouse
      LOGWRITE ("Координаты: ",$x," ",$y)
   Else
      WAITMS(50)
   end_if
end_cyc

//Заброс удочки
LCLICK($x,$y)
LOGWRITE ("Забросили")
wait(3)

b:
GETSCREEN
COLORMODE(8, $x+21,503,$x+23,505)
IF(PXL($x+23,504)=16777215)
   //LOGWRITE ("Не клюет")
   wait(1)
   goto(b)
Else
   LOGWRITE ("Клюнула")
   LCLICK($x+23,505) // по иконке
   wait(8)
   KEYDOWN(#SPACE)
   WAITMS(50)
   KEYUP(#SPACE)
   wait(1)
   
   // Цикл тянем
   GETSCREEN
   COLORMODE(8, $x+21,503,$x+23,505)
   $check = 0
   while((PXL($x+23,503)=16777215) & ($check = 0))
      LOGWRITE ("Тянем")
      WAITMS(50)
      KEYDOWN(#H)
      WAITMS(300)
      KEYUP(#H)
      WAITMS(50)
      KEYDOWN(#G)
      WAITMS(280)
      KEYUP(#G)
      WAITMS(200)
     
      GETSCREEN
      COLORMODE(7, 10,30,981,518)
      IF(PXL(415,448)=8388607)
         INC($myvar, 1)
         LOGWRITE ("Поймали ",$myvar)
         wait(2)
         LCLICK(411,476)
         wait(1)
         keypress(#SPACE)
         $check = 1
      END_IF
      GETSCREEN
      COLORMODE(8, $x+21,503,$x+23,505)
   end_cyc
END_IF
после нажал значок плэй прямо в редакторе, потом закинул удочку.. после этого кликерман начал повторять заброс гдето каждые 2 секунды и все..
подскажите что я не так сделал? Это я был тупанул и не все скопировал, сечас все скопировал, но всеравно не получается почмуто, закинул удочку кликермэн начал закидывать удочку и подсикать с определенным  интервалом т.е. тогда когда это того не требуется в игре использую кликерман версии 4.10, подскажите пожалуйста что не так я делаю может надо чтото еще вписать?

[BigGul]

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

[Роман1]

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

7      LOGWRITE ("Координаты: ",$x," ",$y)
написал в эту строчку координаты примерно вот так       LOGWRITE ("Координаты: ",512," ",611)  все тоже самое, может я не туда вписал или еще что надо сделать?

[Роман1]

ну подскажите кто, как пользоваться по пунктам, а то я в этом деле не понимаю..

[Роман1]

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

ну подскажите если у вас все получилось как вы делали, а то у меня чтото не получается

[Роман1]

что всех жаба душит чтоли? жалко 5 минут объяснить человеку?

[ssanarhist]

Немного переделал. Работает база Неро, лока Львы. Одна донка. Сам продает и возвращается. Есть шероховатости, но работает.

Code: [Select]

//Îïðåäåëÿåì êîîðäèíàòû

While($x=0)
   if(iskeydown(1)=1)
      $x=$_xmouse
      $y=$_ymouse
      LOGWRITE ("Êîîðäèíàòû: ",$x," ",$y)
   Else
      WAITMS(50)
     
      //Çàáðîñ óäî÷êè
      LCLICK(783,389)
      LOGWRITE ("Çàáðîñèëè")
      wait(1)
     
      b:
       hgGETSCREEN
      IF_PICTURE_IN (0,505, 1025, 546, "ne kl.bmp")
         //LOGWRITE ("Íå êëþåò")
         wait(5)
         goto(b)
      Else
         LOGWRITE ("Êëþíóëà")
         wait(1)
         KEYDOWN(#SPACE)
         WAITMS(50)
         KEYUP(#SPACE)
         wait(1)
         LOGWRITE ("Òÿíåì")
         WAITMS(10)
         KEYDOWN(#H)
         WAITMS(600)
         KEYUP(#H)
         WAITMS(20)
         KEYDOWN(#G)
         WAITMS(400)
         KEYUP(#G)
         WAITMS(30)
         
         GETSCREEN
         IF_PICTURE_IN (60,583, 112, 617, "sadok.bmp")
            wait(2)
         Else
            LCLICK($x+972,51) // ïâåðíóòüñÿ íà áàçó
            wait(2)
            LCLICK($x+60,604) // ñàäîê
            wait(2)
            LCLICK($x+745,492) // ïðîäàòü âñå
            wait(2)
            LCLICK($x+399,438) // ïî èêîíêå
            wait(2)
            LCLICK($x+523,440) // ïî èêîíêå
            wait(2)
            LCLICK($x+63,630) // ïî èêîíêå
            wait(2)
            LCLICK($x+393,338) // ïî èêîíêå
           
            GETSCREEN
            COLORMODE(7, 10,30,981,518)
            IF(PXL(415,448)=8388607)
               LOGWRITE ("Ïîéìàëè ",$myvar)
               wait(2)
               LCLICK(411,490)
               wait(1)
               keypress(#SPACE)
               
            end_cyc
         END_IF

[Oraven]

Немного переделал. Работает база Неро, лока Львы. Одна донка. Сам продает и возвращается. Есть шероховатости, но работает.

Как оно может работать если в коде куча ошибок?!

Исправленный код

Code: (clickermann) [Select]

if(iskeydown(1)=1)
   $x=$_xmouse
   $y=$_ymouse
   LOGWRITE ("Координаты: ",$x," ",$y)
Else
   WAITMS(50)
   
   //Заброс удочки
   LCLICK(783,389)
   LOGWRITE ("Забросили")
   wait(1)
   
   b:
   GETSCREEN
   IF_PICTURE_IN (0,505, 1025, 546, "ne kl.bmp")
      //LOGWRITE ("Не клюет")
      wait(5)
      goto(b)
   Else
      LOGWRITE ("Клюнула")
      wait(1)
      KEYDOWN(#SPACE)
      WAITMS(50)
      KEYUP(#SPACE)
      wait(1)
      LOGWRITE ("Тянем")
      WAITMS(10)
      KEYDOWN(#H)
      WAITMS(600)
      KEYUP(#H)
      WAITMS(20)
      KEYDOWN(#G)
      WAITMS(400)
      KEYUP(#G)
      WAITMS(30)
     
      GETSCREEN
      IF_PICTURE_IN (60,583, 112, 617, "sadok.bmp")
         wait(2)
      Else
         LCLICK($x+972,51) // пвернуться на базу
         wait(2)
         LCLICK($x+60,604) // садок
         wait(2)
         LCLICK($x+745,492) // продать все
         wait(2)
         LCLICK($x+399,438) // по иконке
         wait(2)
         LCLICK($x+523,440) // по иконке
         wait(2)
         LCLICK($x+63,630) // по иконке
         wait(2)
         LCLICK($x+393,338) // по иконке
         waitms(50)
         
         GETSCREEN
         COLORMODE(7, 414,447,416,449)
         IF(PXL(415,448)=8388607)
            LOGWRITE ("Поймали")
            wait(2)
            LCLICK(411,490)
            wait(1)
            keypress(#SPACE)
         END_IF
      END_IF
   END_IF
END_IF

[ssanarhist]

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

[Тихон]

   IF_PICTURE_IN (0,505, 1025, 546, "ne kl.bmp")
   IF_PICTURE_IN (60,583, 112, 617, "sadok.bmp")

Уважаемый Oraven, а что это за картинки ? откуда их взять ?
Спасибо.

[Vint]

   IF_PICTURE_IN (0,505, 1025, 546, "ne kl.bmp")
   IF_PICTURE_IN (60,583, 112, 617, "sadok.bmp")

Уважаемый Oraven, а что это за картинки ? откуда их взять ?
Спасибо.

А это нужно у ssanarhist спросить. Ведь это его код здесь: http://crapware.aidf.org/forum/index.php?topic=320.msg7297#msg7297
А лучше написать самому.

[ssanarhist]

   IF_PICTURE_IN (0,505, 1025, 546, "ne kl.bmp")
   IF_PICTURE_IN (60,583, 112, 617, "sadok.bmp")

Уважаемый Oraven, а что это за картинки ? откуда их взять ?
Спасибо.

А это нужно у ssanarhist спросить. Ведь это его код здесь: http://crapware.aidf.org/forum/index.php?topic=320.msg7297#msg7297
А лучше написать самому.

ne kl.bmp - индикатор удочки
sadok.bmp - проверяет садок на заполнение