Messages

1

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

« on: April 23, 2018, 03:36:41 PM »

Заработало спасибо.dramster да лишний end_if был

2

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

« on: April 23, 2018, 02:22:30 PM »

Code: [Select]

    IF_PICTURE_IN (530, 120, 690,690, "img\nazivka.bmp", 14342874,13880520)Это исключить фон,я так понял надо закрасить фон nazivka.bmp черным и поставить 1 цвет в исключение?

WHILE($checka = 0) Здесь так

Code: [Select]


               $checka = 0 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
               WHILE($checka = 0)
                  GETSCREEN
                  IF_PICTURE_IN (530, 120, 690,690, "img\nazivka.bmp", 14342874,13880520)
                     WAITMS(300)
                     LCLICK($_return1, $_return2+23)
                     INC ($aa, 1)
                     WAITMS(300)
                     LOGWRITE ("Наживка ОК ", $aa)
                  ELSE
                     WAITMS(500)
                     WHEELDOWN(5)
                     WAITMS(500)
                  END_IF
                  // Возвращение к рыбалке
                  IF($aa = 6)
                     WAITMS(500)
                     $checka = 1\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                     $aaa = 0
                     WAITMS(300)
                     $aa = 0
                     WAITMS(50)
                     LCLICK(782,120)
                     WAIT(8)
                  END_IF
               END_CYC


3

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

« on: April 23, 2018, 12:10:37 PM »

Добрый день чуть разобрался в программе есть проблемка 
Скрипт не зацыкливается проходит один раз после добавления
 // зарядка наживки
Вот код

Code: [Select]

// Рыбалка
THREAD(osnova,1)  // поток основного кода
   DEFINE($aa,0)
   DEFINE($aaa,0)
   WAIT(2)
   $check1 = 0
   WHILE($check1 = 0)
      WAITMS(300)
      GETSCREEN
      IF(PXL(802,479) = 6780292)
         WAITMS (500)
         INC ($aaa, 1)
         LOGWRITE ("Заброс ОК ", $aaa)
         LCLICK(RND(386,606),RND(379,447))
         WAITMS(300)
      END_IF
      WAITMS(3000)
      GETSCREEN
      IF_PICTURE_IN(350,300,780,460,"img\poplovok.bmp")
         WAITMS(1000)
         $check1 = 1
         WAITMS(50)
         MOVE($_return1+20, $_return2+15)
         WAITMS(300)
      END_IF
      WAITMS(500)
      $check2 = 0
      WHILE($check2 = 0)
         GETSCREEN
         IF_PICTURE_IN(350,300,780,460,"img\klev.bmp")
            WAITMS(100)
            LCLICK($_return1+3, $_return2-3)
            WAITMS(100)
            logwrite("Поклёвка ОК")
            WAITMS(100)
         END_IF
         WAITMS(100)
         GETSCREEN
         IF(PXL(802,479) = 6780292)
            WAITMS (100)
            $check2 = 1
         END_IF
         WAITMS(300)
         
         // зарядка наживки
         IF($aaa = 15)
            WAITMS(50)
            $checkb = 0
            WHILE($checkb = 0)
               IF(PXL(809,244) ! 1842718)
                  WAITMS(300)
                  $checkb = 1
                  WAITMS(300)
                  LCLICK(849,119)
                  WAIT(5)
                  LCLICK(611,172)
                  WAIT(3)
               END_IF
               $checka = 0
               WHILE($checka = 0)
                  GETSCREEN
                  IF_PICTURE_IN (530, 120, 690,690, "img\nazivka.bmp", 14342874,13880520)
                     WAITMS(300)
                     LCLICK($_return1, $_return2+23)
                     INC ($aa, 1)
                     WAITMS(300)
                     LOGWRITE ("Наживка ОК ", $aa)
                  END_IF
               ELSE
                  WAITMS(500)
                  WHEELDOWN(5)
                  WAITMS(500)
               END_IF
               
               // Возвращение к рыбалке
               IF($aa = 6)
                  WAITMS(500)
                  $checka = 1
                  $aaa = 0
                  WAITMS(300)
                  $aa = 0
                  WAITMS(50)
                  LCLICK(782,120)
                  WAIT(8)
               END_IF
            END_CYC
         END_CYC
      END_CYC
   END_CYC
END_THREAD

// Автобой
$check4 = 0
WHILE($check4 = 0)
   WAITMS(500)
   GETSCREEN
   IF_PICTURE_IN(673,190,696,213,"img\obnova.bmp")
      WAIT(RND(10,25))
      LCLICK($_return1, $_return2)
      WAITMS(500)
      logwrite("Обновление ОК")
      WAITMS(500)
   END_IF
   WAITMS(1500)
   GETSCREEN
   IF_PICTURE_IN(50,602,81,632,"img\zver.bmp")
      WAITMS(100)
      SETTHREAD (osnova, 2)
      WAITMS (100)
      logwrite("Поток ОФФ ОК")
      WAITMS(500)
      LCLICK($_return1, $_return2)
      WAITMS(50)
      logwrite("Призыв зверя ОК")
   END_IF
   WAITMS(1500)
   GETSCREEN
   IF_PICTURE_IN(642,358,666,387,"img\ok.bmp")
      WAITMS(500)
      LCLICK($_return1, $_return2)
      WAITMS(500)
      logwrite("Ок")
      WAITMS(300)
   END_IF
   WAITMS(1500)
   GETSCREEN
   IF_PICTURE_IN(28,539,244,565,"img\priem.bmp")
      WAITMS(500)
      LCLICK($_return1, $_return2)
      WAITMS(500)
      logwrite("Приём ОК")
      WAITMS(300)
   END_IF
   WAITMS(1500)
   GETSCREEN
   IF_PICTURE_IN(660,221,687,247,"img\boi.bmp")
      WAIT(RND(1,3))
      LCLICK($_return1, $_return2)
      WAITMS(500)
      logwrite("Удар ОК")
      WAITMS(300)
   END_IF
   WAITMS(1500)
   GETSCREEN
   IF_PICTURE_IN(625,200,730,230,"img\vernutsa.bmp")
      WAITMS(500)
      LCLICK($_return1, $_return2)
      WAITMS(500)
   END_IF
   WAITMS(500)
   GETSCREEN
   IF_PICTURE_IN(625,200,730,230,"img\vernutsa2.bmp")
      WAITMS(500)
      LCLICK($_return1, $_return2)
      WAITMS(500)
   END_IF
   WAITMS(2500)
   GETSCREEN
   IF_PICTURE_IN (360,400, 450,450, "img\vxod.bmp")
      WAITMS(150)
      $check4 = 1
      logwrite("Выход из боя ОК")
      WAITMS(150)
   END_IF
END_CYC

// Вход
$check5 = 0
WHILE($check5 = 0)
   WAITMS(1500)
   GETSCREEN
   IF_PICTURE_IN (360,400, 450,450, "img\vxod.bmp")
      WAITMS(700)
      LCLICK($_return1, $_return2)
      WAITMS(700)
      LCLICK($_return1+15, $_return2+5)
      WAITMS(700)
   END_IF
   WAITMS(5700)
   GETSCREEN
   IF(PXL(858,333) = 4735295)
      WAITMS (100)
      $check5 = 1
      WAITMS(100)
      logwrite("Вход ОК")
   END_IF
   WAITMS(100)
   SETTHREAD (osnova, 1)
   WAITMS(500)
   logwrite("Поток ОК")

вот лог

12:00:17 Заброс ОК 1
12:00:30 Поклёвка ОК
12:00:33 Заброс ОК 2
12:00:55 Поклёвка ОК
12:00:58 Заброс ОК 3
12:01:02 Поклёвка ОК
12:01:04 Заброс ОК 4
12:01:17 Поклёвка ОК
12:01:21 Заброс ОК 5
12:01:25 Поклёвка ОК
12:01:38 Поклёвка ОК
12:01:44 Заброс ОК 6
12:01:48 Поклёвка ОК
12:01:49 Заброс ОК 7
12:01:55 Поклёвка ОК
12:01:58 Заброс ОК 8
12:02:04 Поклёвка ОК
12:02:07 Заброс ОК 9
12:02:46 Заброс ОК 10
12:02:51 Заброс ОК 11
12:02:56 Заброс ОК 12
12:03:02 Заброс ОК 13
12:03:07 Заброс ОК 14
12:03:13 Заброс ОК 15
12:03:27 Наживка ОК 1
12:03:29 Наживка ОК 2
12:03:31 Наживка ОК 3
12:03:32 Наживка ОК 4
12:03:34 Наживка ОК 5
12:03:35 Наживка ОК 6
12:03:53 Выход из боя ОК
12:04:03 Поток ОК

4

Общие вопросы / Re: Перебор картинок при совпадение ввод текста.

« on: March 29, 2018, 11:44:18 PM »

На версии 13 печатает единственное "," точкой печатает и
вместо б=бр (И торжест) следующие слово а оно вместе (нную бр)
Тест:
я во храм с
овых по
ди мен
(нную брИ торжест)
Твоих лу
Прошу. вве

5

Общие вопросы / Re: Перебор картинок при совпадение ввод текста.

« on: March 29, 2018, 06:38:35 PM »

Отбор работает как надо.
Через KEYSTRING я как понял не получится.
Текст с запятыми и ! знаком большие буквы на русском. 
через нажатие клавиш кликер сможет такое напечатать?

енность,
оворю!
вершений.
роню
Неведо
мый!!! С Т
По свет
колений!
лю я для н
квозь бр
ак драго
Прослав
И торжест
Твоих лу
Прошу, вве
у пронесу, к
ценность!
во побед, с
нную б
ди мен
овых по
я во храм с
чей свяще
обою г

6

Общие вопросы / Re: Перебор картинок при совпадение ввод текста.

« on: March 27, 2018, 04:21:21 AM »

Спасибо

7

Общие вопросы / Re: Перебор картинок при совпадение ввод текста.

« on: March 26, 2018, 10:02:41 PM »

Вот написал исправте что не так.

Code: [Select]

$check = 0
LOGSHOW (1, 100,100)
WHILE($check = 0)
   $check = 0
   WHILE($check = 0)
      getscreen
      IF_PICTURE_IN (0,0, $_xmax, $_ymax, "img1.bmp" ,8512998, 100)
         TOCLIP ("Ñëîâî1")
         WAITMS(50)
         KEYDOWN (#CTRL) // Ctrl+V
         WAITMS (50)
         KEYDOWN (#V)
         WAITMS (50)
         KEYUP (#V)
         KEYUP (#CTRL)
         WAITMS (100)
         KEYPRESS(#ENTER) // Enter
         WAITMS (100)
         LOGWRITE ("Ñëîâî1")
      ELSE
         getscreen
         IF_PICTURE_IN (0,0, $_xmax, $_ymax, "img2.bmp" ,8512998, 100)
            TOCLIP ("Ñëîâî2")
            WAITMS(50)
            KEYDOWN (#CTRL) // Ctrl+V
            WAITMS (50)
            KEYDOWN (#V)
            WAITMS (50)
            KEYUP (#V)
            KEYUP (#CTRL)
            WAITMS (100)
            KEYPRESS(#ENTER) // Enter
            WAITMS (100)
            LOGWRITE ("Ñëîâî2")
         ELSE
            getscreen
            IF_PICTURE_IN (0,0, $_xmax, $_ymax, "img3.bmp" ,8512998, 100)
               TOCLIP ("Ñëîâî3")
               WAITMS(50)
               KEYDOWN (#CTRL) // Ctrl+V
               WAITMS (50)
               KEYDOWN (#V)
               WAITMS (50)
               KEYUP (#V)
               KEYUP (#CTRL)
               WAITMS (100)
               KEYPRESS(#ENTER) // Enter
               WAITMS (100)
               LOGWRITE ("Ñëîâî3")
            ELSE
               getscreen
               IF_PICTURE_IN (0,0, $_xmax, $_ymax, "img4.bmp" ,8512998, 100)
                  TOCLIP ("Ñëîâî4")
                  WAITMS(50)
                  KEYDOWN (#CTRL) // Ctrl+V
                  WAITMS (50)
                  KEYDOWN (#V)
                  WAITMS (50)
                  KEYUP (#V)
                  KEYUP (#CTRL)
                  WAITMS (100)
                  KEYPRESS(#ENTER) // Enter
                  WAITMS (100)
                  LOGWRITE ("Ñëîâî4")
               ELSE
                    $check = 1
               END_IF
           END_CYC


8

Общие вопросы / Перебор картинок при совпадение ввод текста.

« on: March 25, 2018, 05:13:32 PM »

Здравствуйте не поможете?
Есть 20 картинок для IF_PICTURE_IN(0,0,$_xmax,$_ymax,"img.bmp") с разными словами
Как сделать сканирование всех картинок при совпадении в строку вода написать слово которое, присвоен к картинке и нажать Enter.После вода всех слов с 20 картинок остановить цыкл.

9

Общие вопросы / Re: Помогите сценарий склеит для браузерной рпг

« on: March 23, 2018, 09:34:27 PM »

Code: [Select]

     
          GETSCREEN
          IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa2.bmp")
             LCLICK($_return1, $_return2)
             WAIT(1)
          END_IF
     
          GETSCREEN
          IF_PICTURE_IN(0,0,$_xmax,$_ymax,"obnova.bmp")
             LCLICK($_return1, $_return2)
             WAIT(10)
          END_IF
          WAITMS (100)
       END_CYC
       
    ELSE
           GETSCREEN
           IF_PICTURE_IN(0,0,$_xmax,$_ymax,"end.bmp")
             $check = 1 // ðàçðåøàåì âûõîä èç öèêëà
             WAITMS(100)
           END_IF
       WAITMS (50)
    END_IF

так выход из цикла добавить?

10

Общие вопросы / Re: Помогите сценарий склеит для браузерной рпг

« on: March 23, 2018, 08:56:04 PM »

Спасибо второй день с программой разбираюсь ша попробуем

11

Общие вопросы / Помогите сценарий склеит для браузерной рпг

« on: March 23, 2018, 03:20:28 PM »

Есть два сценария по оделности все работает,вмести работает толко первый
1Авто заявка на бой

Code: (clickermann) [Select]

GETSCREEN
WHILE(PXL (206,171) ! 255)
      WAITMS (100)
      GETSCREEN
END_CYC
     
      $S_CORR = 0
     
      waitms(8 + $S_CORR)
      move(808,254)
      waitms(731 + $S_CORR)
      move(808,252)
      waitms(11 + $S_CORR)
      move(807,251)
      waitms(4 + $S_CORR)
      move(807,250)
      waitms(11 + $S_CORR)
      move(807,249)
      waitms(16 + $S_CORR)
      move(807,248)
      waitms(13 + $S_CORR)
      move(807,247)
      waitms(85 + $S_CORR)
      move(807,246)
      waitms(6 + $S_CORR)
      move(807,245)
      waitms(17 + $S_CORR)
      move(807,244)
      waitms(14 + $S_CORR)
      move(807,243)
      waitms(16 + $S_CORR)
      move(807,242)
      waitms(16 + $S_CORR)
      move(807,241)
      waitms(8 + $S_CORR)
      move(807,240)
      waitms(8 + $S_CORR)
      move(807,239)
      waitms(19 + $S_CORR)
      move(808,239)
      waitms(1 + $S_CORR)
      move(808,238)
      waitms(3 + $S_CORR)
      move(808,237)
      waitms(7 + $S_CORR)
      move(809,236)
      waitms(9 + $S_CORR)
      move(810,236)
      waitms(7 + $S_CORR)
      move(810,235)
      waitms(8 + $S_CORR)
      move(811,234)
      waitms(6 + $S_CORR)
      move(811,233)
      waitms(7 + $S_CORR)
      move(812,232)
      waitms(9 + $S_CORR)
      move(813,231)
      waitms(7 + $S_CORR)
      move(814,229)
      waitms(9 + $S_CORR)
      move(814,228)
      waitms(8 + $S_CORR)
      move(815,226)
      waitms(17 + $S_CORR)
      move(816,225)
      waitms(5 + $S_CORR)
      move(817,223)
      waitms(12 + $S_CORR)
      move(818,222)
      waitms(4 + $S_CORR)
      move(818,220)
      waitms(10 + $S_CORR)
      move(820,218)
      waitms(5 + $S_CORR)
      move(822,215)
      waitms(9 + $S_CORR)
      move(825,212)
      waitms(6 + $S_CORR)
      move(827,209)
      waitms(7 + $S_CORR)
      move(831,206)
      waitms(9 + $S_CORR)
      move(834,203)
      waitms(8 + $S_CORR)
      move(838,201)
      waitms(8 + $S_CORR)
      move(842,198)
      waitms(25 + $S_CORR)
      move(844,196)
      waitms(1 + $S_CORR)
      move(846,193)
      waitms(1 + $S_CORR)
      move(849,191)
      waitms(4 + $S_CORR)
      move(851,189)
      waitms(6 + $S_CORR)
      move(852,188)
      waitms(9 + $S_CORR)
      move(852,187)
      waitms(7 + $S_CORR)
      move(853,187)
      waitms(8 + $S_CORR)
      move(338,315)
      waitms(14 + $S_CORR)
      move(338,316)
      waitms(170 + $S_CORR)
      move(339,316)
      waitms(30 + $S_CORR)
      move(340,317)
      waitms(37 + $S_CORR)
      move(341,317)
      waitms(32 + $S_CORR)
      move(341,318)
      waitms(250 + $S_CORR)
      lDown(341,318)
      waitms(136 + $S_CORR)
      lUp(341,318)
      waitms(3706 + $S_CORR)
      // deleted
      waitms(1 + $S_CORR)
      // deleted
      waitms(318 + $S_CORR)
      // deleted
      waitms(20 + $S_CORR)
      keyUp(17)
      waitms(0 + $S_CORR)
      keyUp(83)
      waitms(0 + $S_CORR)
      keyUp(162)
   END_IF
END_CYC2 Авто БОЙ

Code: (clickermann) [Select]

GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"priem.bmp")
 LCLICK($_return1, $_return2)
 WAIT(2)
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"ok.bmp")
 LCLICK($_return1, $_return2)
 WAIT(1)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"boi.bmp")
 LCLICK($_return1, $_return2)
 WAIT(4)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa.bmp")
 LCLICK($_return1, $_return2)
 WAIT(1)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"vernutsa2.bmp")
 LCLICK($_return1, $_return2)
 WAIT(1)
END_IF
GETSCREEN
IF_PICTURE_IN(0,0,$_xmax,$_ymax,"obnova.bmp")
 LCLICK($_return1, $_return2)
 WAIT(10)
END_IF
можно это в один сценарий превратить?