Подскажите как уменьшить и облегчить код

[МистерX]

Добрый день,прошу Вас помочь начинающему пользователю,в освоении столь бесценной программы как Кликерман,код рабочий, написал сам, но очень длинный получился,кто может подскажите как его сократить,буду рад любой помощи,критике,подсказкам
[spoiler]

Code: (clickermann) [Select]

/////////////перезагрузка//////////////////////
IF($time1 < $_time_t)
   GETSCREEN(210,274,304,304)
   IF_PICTURE_IN (210,274,304,304, "островной\домой.bmp", -1, 70)
      WAIT(1)
      LCLICK($_return1+RND(5,20), $_return2+RND(1,5))
      WAITMS(1000)
      GETSCREEN
      IF_PIXEL_IN(239,210,241,212, 10547455 )
         WAITMS(200)
         LCLICK(RND(737,750), RND(45,50))
         WAITMS(200)
         LCLICK(RND(1139,1149), RND(157,235))
         WAITMS(35000)
         $time1 = $_time_t + (RND(1500,1800))
      END_IF
   END_IF
END_IF
/////////////////бой//////////////////////////
SUB(boy)
   GETSCREEN (432,144,660,249)
   IF_PICTURE_IN(503,169,624,220, "островной\ход.bmp", -1, 40)
      MOVE(RND(496,515,),RND(181,194))
      WAITMS(RND(150,370))
      $check = 0 // выключатель
      $time2 = $_time_t + 5 // таймер
      WHILE(($check = 0) & ($time2 > $_time_t)) // условие цикла
         GETSCREEN(590,642,644,692)
         IF_PICTURE_IN (590,642,644,692, "пещера\снежок5.bmp", -1, 20)
            $check = 1
         Else
            WAITMS(50)
         END_IF
      END_CYC
      GETSCREEN(590,642,644,692)
      IF_PICTURE_IN (590,642,644,692, "пещера\снежок5.bmp", -1, 20)
         LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
         $check = 0 // выключатель
         $time3 = $_time_t + 5 // таймер
         WHILE(($check = 0) & ($time3 > $_time_t)) // условие цикла
            GETSCREEN(503,175,622,215)
            IF_PICTURE_IN (503,175,622,215, "островной\победа.bmp", -1, 70)
               $check = 1
            Else
               WAITMS(50)
            END_IF
         END_CYC
         GETSCREEN (696,586,749,641)
         IF_PICTURE_IN (696,586,749,641, "пещера\снежок2.bmp", -1, 20)
            LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
            WAITMS(RND(50,70))
            GETSCREEN(749,586,802,641)
            IF_PICTURE_IN (749,586,802,641, "пещера\снежок3.bmp", -1, 20)
               LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
               WAITMS(RND(50,70))
               GETSCREEN(803,586,855,641)
               IF_PICTURE_IN (803,586,855,641, "пещера\снежок4.bmp", -1, 20)
                  LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                  WAITMS(RND(50,70))
                  GETSCREEN(645,588,697,644)
                  IF_PICTURE_IN (645,588,697,644, "пещера\снежок1.bmp", -1, 20)
                     LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                     WAITMS(RND(50,70))
                     GETSCREEN(270,641,331,695)
                     IF_PICTURE_IN (270,641,331,695, "пещера\плевок.bmp", -1, 90)
                        LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                        WAITMS(RND(3500,3700))
                        GETSCREEN(593,590,645,643)
                        IF_PICTURE_IN (593,590,645,643, "пещера\мана.bmp", -1, 90)
                           LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                           WAITMS(RND(2050,2070))
                           GETSCREEN (325,587,380,640)
                           IF_PICTURE_IN (325,587,380,640, "пещера\квадрат.bmp", -1, 90)
                              LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                              WAITMS(RND(1050,1070))
                              LCLICK(RND(471,658),RND(263,473))
                              WAITMS(RND(2050,2370))
                              GETSCREEN (327,638,382,695)
                              IF_PICTURE_IN (327,638,382,695, "пещера\печать.bmp", -1, 90)
                                 LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                                 WAITMS(RND(2050,2070))
                                 GETSCREEN(379,586,435,640)
                                 IF_PICTURE_IN (379,586,435,640, "пещера\крест.bmp", -1, 70)
                                    LCLICK($_return1+RND(5,20), $_return2+RND(1,25))
                                    WAITMS(RND(1050,1070))
                                    LCLICK(RND(471,658),RND(263,473))
                                    WAITMS(RND(1050,1070))
                                 ELSE
                                    GETSCREEN(503,175,622,215)
                                    IF_PICTURE_IN (503,175,622,215, "островной\победа.bmp", -1, 60)
                                       WAITMS(1500)
                                       LCLICK(RND(503,514), RND(182,194))
                                       WAITMS(100)
                                    END_IF
                                 END_IF
                              END_IF
                           END_IF
                        END_IF
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_SUB
//////////////////////дроп/////////////////////////
SUB(drop)
   GETSCREEN(457,408,511,469)
   IF_PICTURE_IN (457,408,511,469, "островной\лимб.bmp", -1, 100)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(570,487,710,670)
               IF_PICTURE_IN (570,487,710,670, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   IF_PICTURE_IN (457,408,511,469, "островной\нагрудник.bmp", -1, 100)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(500,416,622,500)
      IF_PICTURE_IN (500,416,622,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,619))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,619))
               WAITMS(800)
               GETSCREEN(570,487,710,625)
               IF_PICTURE_IN (570,487,710,625, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   IF_PICTURE_IN (457,408,511,469, "пещера\ветка.bmp", -1, 90)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(610,590,695,657)
               IF_PICTURE_IN (610,590,695,657, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   GETSCREEN(457,408,511,469)
   IF_PICTURE_IN (457,408,511,469, "пещера\мифрил.bmp", -1, 90)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(610,590,695,657)
               IF_PICTURE_IN (610,590,695,657, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   IF_PICTURE_IN (457,408,511,469, "пещера\купон.bmp", -1, 90)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2500)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(570,487,710,664)
               IF_PICTURE_IN (570,487,710,664, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   IF_PICTURE_IN (457,408,511,469, "пещера\озверин.bmp", -1, 90)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(570,487,710,670)
               IF_PICTURE_IN (570,487,710,670, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   IF_PICTURE_IN (457,408,511,469, "пещера\проклятие.bmp", -1, 90)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(570,487,710,670)
               IF_PICTURE_IN (570,487,710,670, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   IF_PICTURE_IN (457,408,511,469, "пещера\агония.bmp", -1, 90)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(570,487,710,670)
               IF_PICTURE_IN (570,487,710,670, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
   GETSCREEN (577,485,681,518)
   IF_PICTURE_IN (577,485,681,518, "пещера\выйти.bmp", -1, 90)
      LCLICK(RND(596,663),(RND(497,507))
      WAITMS(300)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(200)
      GETSCREEN(703,510,819,540)
      IF_PICTURE_IN (703,510,819,540, "островной\продать.bmp", -1, 90)
         LCLICK(RND(741,780),(RND(522,527))
         WAITMS(1000)
         MOVE(RND(982,1073),(RND(240,533))
         WAITMS(50)
      ELSE
         IF_PICTURE_IN (703,510,819,540, "островной\выбросить.bmp", -1, 90)
            LCLICK(RND(741,780),(RND(522,527))
            WAITMS(800)
            MOVE(RND(982,1073),(RND(240,533))
            WAITMS(50)
            IF_PICTURE_IN (577,485,681,518, "пещера\выйти.bmp", -1, 70)
               LCLICK(RND(596,663),(RND(497,507))
               WAITMS(200)
               MOVE(RND(982,1073),(RND(240,533))
            END_IF
         END_IF
      END_IF
   END_IF
   GETSCREEN (577,485,681,518)
   IF_PICTURE_IN (577,485,681,518, "пещера\выйти.bmp", -1, 90)
      LCLICK(RND(596,663),(RND(497,507))
      WAITMS(300)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(200)
   END_IF
END_SUB

[/spoiler]

[МистерX]

настолько длинный что весь не влез вот вторая половина
[spoiler]

Code: (clickermann) [Select]

///////////////клики по островам/////////////////
GETSCREEN(793,379,868,441)
IF_PIXEL_IN(793,379,868,441, 8908283)
   MOVE(RND(842,879),RND(366,384))
   WAITMS(200)
   GETSCREEN(790,290,810,310)
   IF_PICTURE_IN (790,290,810,310, "островной\кусокслострова.bmp", -1,90)
   ELSE
      LCLICK(RND(842,879),RND(366,384))
      WAITMS(50)
      $check = 0 // выключатель
      $time4 = $_time_t + 4 // таймер
      WHILE(($check = 0) & ($time4 > $_time_t)) // условие цикла
         GETSCREEN(210,274,304,304)
         IF_PICTURE_IN (210,274,304,304, "островной\домой.bmp", -1, 70)
            $check = 1
         Else
            WAITMS(50)
         END_IF
      END_CYC
      GETSCREEN(211,533,419,656)
      IF_PICTURE_IN (211,533,419,656, "островной\мобанет.bmp", -1,70)
      ELSE
         MOVE( RND(269,273),RND(618,625))   // проверка
         WAITMS(300)
      END_IF
   END_IF
END_IF

/////////////мобы///////////////
GETSCREEN(174,264,599,613)
IF_PICTURE_IN (174,264,599,613, "монстры\эльогня.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,264,599,613, "монстры\гром.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,264,599,613, "монстры\эльземли.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,264,599,613, "монстры\снежная.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\джегурдар.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
ELSE
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\матазу.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\курлык.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\защитникзла.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\стороникзла.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\лорд.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\служительзла.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
IF_PICTURE_IN (174,335,599,613, "монстры\солнечная.bmp", -1, 100)
   LCLICK(RND(281,290),RND(595,619))
   GETSCREEN(585,384,684,608)
   WAITMS(500)
   IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
      LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
      WAITMS(200)
      MOVE(RND(982,1073),(RND(240,533))
      WAITMS(RND(3500,3900))
      boy()
   END_IF
END_IF
GETSCREEN
IF_PICTURE_IN(503,169,624,220, "островной\ход.bmp", -1, 40)
   WAITMS(200)
   boy()
END_IF

GETSCREEN(503,175,622,215)
IF_PICTURE_IN (503,175,622,215, "островной\победа.bmp", -1, 60)
   WAITMS(1500)
   LCLICK(RND(503,514), RND(182,194))
   WAITMS(100)
   drop()
END_IF
///////на случай глюка///////////////////
GETSCREEN(503,175,622,215)
IF_PICTURE_IN (503,175,622,215, "островной\победа.bmp", -1, 60)
   WAITMS(500)
   GETSCREEN(703,510,819,540)
   IF_PICTURE_IN (703,510,819,540, "островной\продать.bmp", -1, 90)
      LCLICK(RND(741,780),(RND(522,527))
      WAITMS(1000)
   END_IF
END_IF
////////////ежедневный бонус////////////////
GETSCREEN(503,644,627,682)
IF_PICTURE_IN (503,644,627,682, "пещера\забрать.bmp", -1, 70)
   WAITMS(200)
   LCLICK(RND(525,602), RND(658,668))    // жмём ес
   WAIT(1)
   GETSCREEN(895,135,924,162)
   IF_PICTURE_IN (895,135,924,162, "пещера\закрыть.bmp", -1, 70)
      WAITMS(200)
      LCLICK(RND(904,915), RND(144,155))    // жмём ес
      WAITMS(200)
   END_IF
END_IF
GETSCREEN(824,189,890,246)
IF_PICTURE_IN (824,189,890,246, "островной\брюлики.bmp", -1, 70)
   WAITMS(5000)
   GETSCREEN(824,189,890,246)
   IF_PICTURE_IN (824,189,890,246, "островной\брюлики.bmp", -1, 70)
      WAITMS(1000)
      GETSCREEN(895,135,924,162)
      IF_PICTURE_IN (895,135,924,162, "пещера\закрыть.bmp", -1, 70)
         WAITMS(200)
         LCLICK(RND(904,915), RND(144,155))    // жмём ес
         WAITMS(200)
      END_IF
   END_IF
END_IF
/////проверка выскакивающих окон//////////////////
GETSCREEN(324,202,793,817)
IF_PICTURE_IN (324,202,793,817, "островной\техработы.bmp", -1, 100)
   WAIT(1)
   LCLICK(RND(737,750), RND(45,50))
   WAITMS(200)
   LCLICK(RND(1139,1149), RND(157,235))
   WAITMS(35000)
END_IF
GETSCREEN(324,202,793,817)
IF_PICTURE_IN (324,202,793,817, "островной\купить.bmp", -1, 100)
   WAIT(1)
   LCLICK(RND(737,750), RND(45,50))
   WAITMS(200)
   LCLICK(RND(1139,1149), RND(157,235))
   WAITMS(35000)
END_IF
GETSCREEN(324,202,793,817)
IF_PICTURE_IN (324,202,793,817, "пещера\попробовать.bmp", -1, 100)
   WAIT(1)
   LCLICK(RND(737,750), RND(45,50))
   WAITMS(200)
   LCLICK(RND(1139,1149), RND(157,235))
   WAITMS(35000)
END_IF
IF_PICTURE_IN (324,202,793,817, "пещера\критическая.bmp", -1, 100)
   WAIT(1)
   LCLICK(RND(737,750), RND(45,50))
   WAITMS(200)
   LCLICK(RND(1139,1149), RND(157,235))
   WAITMS(35000)
END_IF
IF_PICTURE_IN (324,202,793,817, "пещера\инфа.bmp", -1, 100)
   WAIT(1)
   LCLICK(RND(737,750), RND(45,50))
   WAITMS(200)
   LCLICK(RND(1139,1149), RND(157,235))
   WAITMS(35000)
END_IF
/////если убили напасть ещё раз///////////////////
GETSCREEN(397,140,695,334)
IF_PICTURE_IN (397,140,695,334, "островной\поражение.bmp", -1, 100)
   WAITMS(100)
   GETSCREEN(512,468,614,502)
   IF_PICTURE_IN (512,468,614,502, "островной\выйти2.bmp", -1, 100)
      LCLICK($_return1, $_return2)
      WAITMS(1000)
      LCLICK(RND(264,290), RND(590,610))
      WAITMS(1000)
   END_IF
END_IF
[/spoiler]

[Vint]

Ну ты же используешь подпрограммы, вот используй дальше. В коде тьма одинаковых участков. Выведи их в отдельные подпрограммы с параметрами.

Почему нет GETSCREEN после строк 139, 169, 199 и т.д., между основными поисками? Или всё равно может найтись только один?
Внутренние GETSCREEN не все варианты покрывают.

Ну и ближе к концу тоже, после
/////////////мобы///////////////



В 23 строке лишняя запятая

Code: (clickermann) [Select]

RND(496,515,)

[Vint]

На примере повторов в конце.
Вариант 1

Code: (clickermann) [Select]

SUB(monstr_attack, $mname)
    GETSCREEN(174,264,599,613)
    IF_PICTURE_IN(174,264,599,613, $mname, -1, 100)
        LCLICK(RND(281,290),RND(595,619))
        GETSCREEN(585,384,684,608)
        WAITMS(500)
        IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
            LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
            WAITMS(200)
            MOVE(RND(982,1073),(RND(240,533))
            WAITMS(RND(3500,3900))
            boy()
        END_IF
    END_IF
END_SUB

/////////////мобы///////////////
monstr_attack("монстры\эльогня.bmp")
monstr_attack("монстры\гром.bmp")
monstr_attack("монстры\эльземли.bmp")
monstr_attack("монстры\снежная.bmp")
monstr_attack("монстры\джегурдар.bmp")
///...  и т.д.
Вариант 2

Code: (clickermann) [Select]

// впереди 1 раз.
STRSEPARATE("эльогня,гром,эльземли,снежная,жегурдар", ",", $monstrs)  // список и т.д.

SUB(monstr_attack, $mname)
    GETSCREEN(174,264,599,613)
    IF_PICTURE_IN(174,264,599,613, $mname, -1, 100)
        LCLICK(RND(281,290),RND(595,619))
        GETSCREEN(585,384,684,608)
        WAITMS(500)
        IF_PICTURE_IN(585,384,684,608, "напасть.bmp",-1,90)// должен нажать
            LCLICK($_return1+RND(1,30), $_return2+RND(1,5))
            WAITMS(200)
            MOVE(RND(982,1073),(RND(240,533))
            WAITMS(RND(3500,3900))
            boy()
        END_IF
    END_IF
END_SUB

/////////////мобы///////////////
FOR($i=0, $i < ARRSIZE($monstrs))
    $monstrs[$i]
    STRCONCAT("монстры\", $monstrs[$i], ".bmp")
END_CYC

[МистерX]

да,в тех строках только один может появится,Большое спасибо,буду пробовать

[МистерX]

Подскажите есть картинка размером 100Х50 в ней первые и последние пиксели одинаковы(128976),как мне запомнить первый и последний найденный пиксель и нажать на них по очереди?

[МистерX]

Спасибо Огромное,да это небеса окаянные,вот только с пикселем не совсем получится,хотел обмануть судьбу,на поле с камнями всплывает подсказка,думал к её пикселям привязатся чтоб схлоп камней сделать

[МистерX]

Доброго времени суток,подскажите что сделал не так?когда доходит до выполнения этой части кода выдаёт ошибку Файл D:\Clikermann v4.9\1633 не найден

[spoiler]

Code: (clickermann) [Select]

SUB(дроп_обьединяемый,$dname1)
   GETSCREEN(457,408,511,469)
   IF_PICTURE_IN(457,408,511,469, $dname1, -1, 100)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(518,416,616,500)
      IF_PICTURE_IN (518,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,618))
            WAITMS(700)
            GETSCREEN(25,406,1010,774)
            IF_PICTURE_IN (25,406,1010,774, "пещера\обьеденить.bmp", -1, 90)
               LCLICK(RND(628,675),$_return2)
               WAITMS(2000)
               LCLICK(RND(564,591),(RND(589,618))
               WAITMS(800)
               GETSCREEN(570,487,710,670)
               IF_PICTURE_IN (570,487,710,670, "пещера\всундук.bmp", -1, 90)
                  LCLICK(RND(628,666),$_return2)
                  WAITMS(RND(3000,3200))
               ELSE
                  MOVE(RND(982,1073),(RND(240,533))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_SUB
/////////////название дропа///////////////
дроп_обьединяемый("дроп\лимб.bmp")
дроп_обьединяемый("дроп\нагрудник.bmp")
дроп_обьединяемый("дроп\ветка.bmp")
дроп_обьединяемый("дроп\мифрил.bmp")
дроп_обьединяемый("дроп\купон.bmp")
дроп_обьединяемый("дроп\озверин.bmp")
дроп_обьединяемый("дроп\проклятие.bmp")
дроп_обьединяемый("дроп\агония.bmp")
дроп_обьединяемый("дроп\лечения.bmp")
дроп_обьединяемый("дроп\защиты.bmp")
дроп_обьединяемый("дроп\разрушения.bmp")
дроп_обьединяемый("дроп\арканум.bmp")
дроп_обьединяемый("дроп\снмешок.bmp")
дроп_обьединяемый("дроп\орех.bmp")
дроп_обьединяемый("дроп\рабами.bmp")
дроп_обьединяемый("дроп\огнесфера.bmp")
дроп_обьединяемый("дроп\сила4.bmp")
дроп_обьединяемый("дроп\гарга.bmp")

//////////////////////дроп/////////////////////////
SUB(дроп_забираемый,$dname2)
   GETSCREEN(457,408,511,469)
   IF_PICTURE_IN(457,408,511,469, $dname2, -1, 100)
      LCLICK(RND(469,497),(RND(424,440))
      WAITMS(300)
      GETSCREEN(500,416,616,500)
      IF_PICTURE_IN (500,416,616,500, "забрать.bmp", -1, 70)
         LCLICK(RND(536,570),$_return2)
         WAITMS(RND(2500,2700))
         GETSCREEN(550,557,608,635)
         IF_PICTURE_IN (550,557,608,635, "пещера\пусторюк.bmp", -1, 60)
            WAITMS(300)
         ELSE
            LCLICK(RND(564,591),(RND(589,619))
            WAITMS(700)
            GETSCREEN(570,540,710,640)
            IF_PICTURE_IN (570,540,710,640, "пещера\всундук.bmp", -1, 90)
               LCLICK(RND(628,666),$_return2)
               WAIT(3)
            ELSE
               MOVE(RND(982,1073),(RND(240,533))
            END_IF
         END_IF
      END_IF
   END_IF
END_SUB
/////////////название дропа///////////////
дроп_забираемый("дроп\клинок.bmp")
дроп_забираемый("дроп\слеза.bmp")
дроп_забираемый("дроп\зеркало.bmp")
дроп_забираемый("дроп\коготь.bmp")
дроп_забираемый("дроп\рубаха.bmp")
дроп_забираемый("дроп\топор.bmp")
дроп_забираемый("дроп\клеткас.bmp")
дроп_забираемый("дроп\сокдевы.bmp")
дроп_забираемый("дроп\сокзащиты.bmp")
дроп_забираемый("дроп\сокпраздника.bmp")
дроп_забираемый("дроп\сокрухи.bmp")
дроп_забираемый("дроп\сокскорби.bmp")
дроп_забираемый("дроп\сокужаса.bmp")
дроп_забираемый("дроп\амулет.bmp")
дроп_забираемый("дроп\огкольцо.bmp")
дроп_забираемый("дроп\земкольцо.bmp")
дроп_забираемый("дроп\земамуль.bmp")
дроп_забираемый("дроп\зеленыйрец.bmp")
дроп_забираемый("дроп\синийрец.bmp")
дроп_забираемый("дроп\желтыйрец.bmp")
дроп_забираемый("дроп\красныйрец.bmp")
дроп_забираемый("дроп\фиолетрец.bmp")

[/spoiler]

[Vint]

Доброго времени суток,подскажите что сделал не так?когда доходит до выполнения этой части кода выдаёт ошибку Файл D:\Clikermann v4.9\1633 не найден

Где-то вызываешь эту подпрограмму и передаёшь ей неправильное имя файла, точнее совсем не имя.
И ты уверен что в этом месте ошибку выбивает?

И со скобками разберись
LCLICK(RND(469,497),(RND(424,440))  // лишняя
и во многих других подобных строках

[МистерX]

Вот я по пояс деревянный спасибо,действительно оставил вызовы этих подпрограмм со скобками,не осознав что вызов уже идёт по другому