Messages

1

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

« on: December 03, 2014, 11:48:12 PM »

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

2

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

« on: October 09, 2014, 12:04:55 AM »

Сделать.

3

Общие вопросы / Re: Помогите составить скрипт

« on: October 08, 2014, 10:43:00 PM »

Заработало. Решение найдено. Спасибо за помощь.

4

Общие вопросы / Re: Помогите составить скрипт

« on: October 08, 2014, 08:56:50 PM »

Это часть кода. Большинство END_IF в конце всего кода. Или они должны быть именно после каждой операции IF?

5

Общие вопросы / Re: Помогите составить скрипт

« on: October 08, 2014, 08:32:25 PM »

Code: [Select]

1. if(iskeydown(1)=1)
   $x=$_xmouse
   $y=$_ymouse
   LOGWRITE ("Êîîðäèíàòû: ",$x," ",$y)
Else
   WAITMS(RND(50,74))
   
   GETSCREEN
   IF_PICTURE_IN (331,241, 586, 326, "svr.bmp")
      goto(e)
   END_IF
   
   GETSCREEN
   IF_PICTURE_IN (194,631, 393, 797, "ne.bmp")
      e:
      WAITMS(RND(3580,5011))
      KEYDOWN(#ALT)
      WAITMS(60)
      KEYPRESS(#S)
      WAITMS(60)
      KEYUP(#ALT)
      LOGWRITE ("Îñòàíîâèëè ïðîãðàììó")
   Else
     
      GETSCREEN
      IF_PICTURE_IN (905,9, 1019, 68, "pr.bmp")
         WAITMS(RND(1376,2604))
         KEYPRESS(#T)
         LOGWRITE ("Çàáðîñèëè")
         WAITMS(RND(1376,6604))
         
         b:
         GETSCREEN
         IF_PICTURE_IN (1,267,945,487,"k.bmp")
            WAITMS(RND(176,4604))
            KEYPRESS(#SPACE)
            WAITMS(RND(188,1102))
           LOGWRITE ("Êëþíóëà")
            LOGWRITE ("Òÿíåì")
            Goto(c)
         Else
            Goto(b)
           
 2.           c:
            GETSCREEN
            IF_PICTURE_IN (13,460, 970, 542, "sh.bmp")
               KEYDOWN(#H)
               LOGWRITE ("H")
               WAITMS(100)
               $check1 = 0
               WHILE($check1 = 0)
                  GETSCREEN
                  COLORMODE(6)
                  IF_PIXEL_IN (0,486, 1024,512, 4145151, 4161471)
                     $check1 = 1
                     KEYUP(#H)
                     LOGWRITE ("H")
                     WAITMS(50)
                     KEYDOWN(#G)
                     LOGWRITE ("G")
                     WAITMS(100)
                     $check2 = 0
                     WHILE($check2 = 0)
                        GETSCREEN
                        COLORMODE(6)
                        IF_PIXEL_IN (0,513, 1024,546, 4145151, 4161471)
                           $check2 = 1
                           KEYUP(#G)
                           LOGWRITE ("G")
                           WAITMS(100)
                        ELSE
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
                     WAITMS(50)
                  END_IF
               END_CYC
            END_IF
            goto(c)
         Else
           
 3.           GETSCREEN
            IF_PICTURE_IN (382,332, 750, 497, "so.bmp")
               WAITMS(RND(2353,2975))
               screenshot
               KEYPRESS(#ENTER)
               LOGWRITE ("Âû ÷åãî-òî âûïîëíèëè")
            END_IFЭто часть кода. Ваш код в чистом виде работает, но не совсем так как хотелось бы. Объясню.
 мне пришлось заменить второе и третье изображение проверкой цвета - это была моя ошибка, изображения все время меняются. С проверкой цвета работает.
При запуске с Вашим кодом действует до END_CYC  END_IF один раз и переходит в самое начало кода (1). С помощью Goto(c) я этот вопрос решил, но Else после Goto не срабатывает. Код полностью зацикливает от с: до Goto(c).  Не переходит к пункту 3. Как это побороть?

6

Общие вопросы / Re: Помогите составить скрипт

« on: October 08, 2014, 10:16:18 AM »

Спасибо, работает. Но проходит только один раз, а как его зациклить на повторение? И если не нашло изображение 1 - пропустить эти операции и перейти по коду дальше?

7

Общие вопросы / Помогите составить скрипт

« on: October 08, 2014, 01:35:00 AM »

Сценарий такой. При нахождении заданного изображения (1) нажимается клавиша (1) и держится. Ищется следующее изображение (2), при нахождении клавиша (1) отпускается и нажимается клавиша (2), если не нашло - клавиша (1) удерживается.
Для второй клавиши: при нажатии клавиши (2) ищется изображение (3), если находит - клавиша отпускается и переходит к изображению (1), если нет - держится дальше.
Помогите составить, пожалуйста. Замучился уже.

8

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

« on: October 01, 2014, 08:24:46 PM »

   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 - проверяет садок на заполнение

9

Общие вопросы / Re: Помогите пожалуйста сделать скрипт при увеличении шкалы

« on: September 21, 2014, 09:37:06 AM »

Спасибо!!!! Все заработало. Ты гений!!!!

Все вроде понятно. Но как выглядит файл I5?

10

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

« on: September 20, 2014, 09:21:50 PM »

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

11

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

« on: September 20, 2014, 01:14:32 AM »

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

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