Messages

1

Использование / Re: Бот для Fantastic Fishing

« on: April 05, 2015, 04:25:51 PM »

Вариант спиннинга каким то чудом после обновы ФФ работает.
Наверняка в есть кое какие ошибки в скрипте, строго не судите, это мой первый скрипт, написанный с легкой подачи BubukaBomb )

usb клавиатура
координаты для второго монитора ( во весь экран )
к окну clickermann не привязывал
Снасти на 70 кг.
База Дунай
Локация Западная Дельта

Code: (clickermann) [Select]

// проверяем садок 
SUB (sadok)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN (1406, 532, 1519, 570, "sadok.bmp", -1, 100)
         $check = 1
         LCLICK (RND(2640,2649), RND(44,46)) // возврат на базу
         WAIT   (RND(3,5))
         LOGWRITE ("Переход на базу")
         
         LCLICK (RND(1406,1477), RND(549,553)) // открытие садка
         sound("blin.wav")
         WAIT   (RND(3,5))
         LCLICK (RND(2321,2359), RND(447,451)) // продажа рыбы
         WAIT   (RND(3,5))
         LCLICK (RND(1857,1900), RND(396,401)) // подтверждение продажи
         WAIT   (RND(3,5))
         LCLICK (RND(2015,2049), RND(401,397)) // рыба продана
         WAIT   (RND(3,5))
         LOGWRITE ("Удачная сделка")
         LCLICK (RND(1414,1439), RND(572,570)) // переход на локальную карту
         WAIT   (RND(3,5))
         LCLICK (1939,296) // переход на локацию
         WAIT   (RND(3,5))
         WAITMS(1)
         
         // заброс удочки 2
         keyDown(98)
         WAIT (RND(0.1, 0.2))
         keyUp(98)
         WAIT (RND(0.1, 0.2))
         
         LOGWRITE ("заброс удочки ")
         LCLICK (RND(1835,1835), RND(273,295))
         WAIT (RND(4, 5))
         goto (go)
      ELSE
         goto (go)
         WAITMS(50)
      END_IF
   END_IF
END_SUB


SUB(skan)
   waitms(100)
   GETSCREEN
   IF_PICTURE_IN (1699,450, 2189,495, "2kl.bmp", -1, 100)
      $check1 = 1
     
      // Подсечка
     
      LOGWRITE ("Клюнула")
     
      keyDown(32)
      WAIT (RND(0.1, 0.2))
      LOGWRITE ("Подсечка")
      keyUp(32)
      WAIT (RND(0.1, 0.2))
     
      // Вываживание
      keyDown(71)
      WAITMS (RND(100, 600))
      keyUp(71)
      WAITMS (RND(100, 250))
     
      LOGWRITE ("Вываживаю")
     
      keyDown(72)
      WAITMS (RND(200, 400))
      keyUp(72)
      WAITMS (RND(50, 100))
      LOGWRITE ("Вываживаю2")
     
      keyDown(71)
      WAITMS (RND(500, 600))
      keyUp(71)
      WAITMS (RND(50, 100))
     
      LOGWRITE ("Вываживаю3")
      keyDown(72)
      WAITMS (RND(200, 400))
      keyUp(72)
      WAITMS (RND(100, 200))
     
      LOGWRITE ("Вываживаю4")
      keyDown(71)
      WAITMS (RND(500, 600))
      keyUp(71)
      WAITMS (RND(100, 300))
     
      LOGWRITE ("Вываживаю5")
      keyDown(72)
      WAITMS (RND(200, 400))
      keyUp(72)
      WAITMS (RND(100, 200))
     
      LOGWRITE ("Вываживаю6")
      keyDown(71)
      WAITMS (RND(500, 600))
      keyUp(71)
      WAITMS (RND(100, 300))
     
      LOGWRITE ("Вываживаю7")
      keyDown(72)
      WAITMS (RND(200, 400))
      keyUp(72)
      WAITMS (RND(100, 200))
     
      LOGWRITE ("Вываживаю8")
      keyDown(71)
      WAITMS (RND(500, 600))
      keyUp(71)
      WAITMS (RND(100, 250))
     
      LOGWRITE ("Вываживаю 9")
      keyDown(72)
      WAITMS (RND(200, 300))
      keyUp(72)
      WAITMS (RND(100, 300))
     
      LOGWRITE ("Вываживаю 10")
      keyDown(71)
      WAITMS (RND(400, 600))
      keyUp(71)
      WAITMS (RND(100, 300))
     
      LOGWRITE ("Вываживаю 11")
      keyDown(72)
      WAITMS (RND(200, 300))
      keyUp(72)
      WAITMS (RND(100, 200))
     
      LOGWRITE ("Вываживаю 12")
      keyDown(71)
      WAITMS (RND(500, 600))
      keyUp(71)
      WAITMS (RND(100, 250))
     
      LOGWRITE ("Успех")
      keyDown(84) //  Клавиша T
      WAIT (RND(0.1, 0.2))
      keyUp(84)
      LOGWRITE ("Клавиша T")
      WAIT (RND(2, 5))
     
      sadok ()
     
      waitms(500)
   ELSE
   END_SUB
   
   $check1 = 0
   WHILE($check1 = 0)
      waitms(300)
      // заброс удочки 2
      keyDown(98)
      WAIT (RND(0.1, 0.2))
      keyUp(98)
      WAIT (RND(0.1, 0.2))
     
      LOGWRITE ("заброс удочки ")
      LCLICK (RND(1835,1835), RND(273,295))
      WAIT (RND(4, 5))
     
      go:
      LOGWRITE ("Прит")
      keyDown(71)
      WAIT(3)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("1")
      keyDown(71)
      WAIT(3)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("2")
      keyDown(71)
      WAIT(2)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("3")
      keyDown(71)
      WAIT(2)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("4")
      keyDown(71)
      WAIT(2)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("5")
      keyDown(71)
      WAIT(2)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("6")
      keyDown(71)
      WAIT(2)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("7")
      keyDown(71)
      WAIT(2)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      LOGWRITE ("8")
      keyDown(71)
      WAIT(1)
      keyUp(71)
      waitms(5)
     
      skan ()
     
      keyDown(84) //  Клавиша T
      waitms(152)
      keyUp(84)
      LOGWRITE ("Клавиша T")
      WAIT (RND(4, 5))
     
      goto (go)
     
     
   ELSE
      WAITMS(50)
   END_IF
END_IF
END_CYC