Author Topic: можно это как то скоротить упростить ?  (Read 2221 times)

0 Members and 2 Guests are viewing this topic.

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN (512,161, 1000,313, "место.bmp", -1, 70)
   GETSCREEN
   IF_PICTURE_IN (689,336, 1068,490, "отмена.bmp", -1, 70)
      m_move($_return1+RND(-5,5), $_return2+RND(-5,5))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(100)
     
     
      //
      m_move(1097+RND(-2,2), 507+RND(-2,2))
      LCLICK($_xmouse,$_ymouse)
      $time7 = $_time_t + 10
      WHILE($time7 > $_time_t)
         GETSCREEN
         IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
            $time7 = 0
            m_move($_return1-90+RND(-2,2), $_return2+40+RND(-2,2))
            LCLICK($_xmouse,$_ymouse)
            WAITMS(100)
            $time8 = $_time_t + 3
            WHILE($time8 > $_time_t)
               GETSCREEN
               IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
                  $time8 = 0
                  m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                  LCLICK($_xmouse,$_ymouse)
                  WAITMS(100)
               ELSE
                  WAITMS(500)
               END_IF
            END_CYC
           
         ELSE
            WAITMS(500)
         END_IF
      END_CYC
      m_move(1097+RND(-2,2), 507+RND(-2,2))
      LCLICK($_xmouse,$_ymouse)
      $time7 = $_time_t + 10
      WHILE($time7 > $_time_t)
         GETSCREEN
         IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
            $time7 = 0
            m_move($_return1-35+RND(-2,2), $_return2+40+RND(-2,2))
            LCLICK($_xmouse,$_ymouse)
            WAITMS(100)
            $time8 = $_time_t + 3
            WHILE($time8 > $_time_t)
               GETSCREEN
               IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
                  $time8 = 0
                  m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                  LCLICK($_xmouse,$_ymouse)
                  WAITMS(100)
               ELSE
                  WAITMS(500)
               END_IF
            END_CYC
           
         ELSE
            WAITMS(500)
         END_IF
      END_CYC
     
   END_IF
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1-90+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1-35+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   //
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+20+RND(-2,2), $_return2+40+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   //
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+20+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+80+RND(-2,2), $_return2+40+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+120+RND(-2,2), $_return2+40+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   
   
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+80+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+120+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)   
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
END_IF

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Какой смысл вы вкладываете в термин упростить?
сделать более доступным для понимания новичками, добавить коментарии?

извини что запутал про  первый вариант даж мысль не приходила  ::) " или уменьшить число строк кода, применив подпрограммы?" уменьшить нужно а то что то слишком много :)

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Тут похоже фразу - "можно это как то скоротить упростить ?" нужно читать как - "переписать всё, чтобы работало". ;D
Ну да ладно, без обид, можно например укоротить скрипт на 31 строку. Для этого достаточно просто удалить из него все строки вида "m_move(бла, бла, бла)". Это то, что на первый взгляд видно, не вникая так сказать в красоты алгоритма. А так как мы знаем, что совершенству нет предела, думаю можно и еще найти где что ужать и оптимизировать. :)
все работает как нужно в таком виде но просто 300+ строк занимает чет слишком много  ???
m_move(бла, бла, бла) это подпрограма для плавного передвежения курсора  бла бла бла там просто относительно от одной картинки в разные точки .....
кто понимает как это дело уменшить облегчить для кликера пожалуйста облегчите  :-[

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Code: (clickermann) [Select]
SUB(prog1, $cor_x, $cor_y)
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+$cor_x+RND(-2,2), $_return2+$cor_y+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
END_SUB

GETSCREEN
IF_PICTURE_IN (512,161, 1000,313, "место.bmp", -1, 70)
   GETSCREEN
   IF_PICTURE_IN (689,336, 1068,490, "отмена.bmp", -1, 70)
      m_move($_return1+RND(-5,5), $_return2+RND(-5,5))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(100)
      prog1(-90,40)
      prog1(-35,40)
   END_IF
   prog1(-90,100)
   prog1(-35,100)
   prog1(20,40)
   prog1(20,100)
   prog1(80,40)
   prog1(80,100)
   prog1(120,100)
END_IF

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Кликеру все равно, а вот тебе будет куда проще редактировать.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Только учти что описание подпрограммы prog1 должно быть ниже m_move

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
...m_move(бла, бла, бла) это подпрограма для плавного передвежения курсора  бла бла бла там просто относительно от одной картинки в разные точки .....
кто понимает как это дело уменшить облегчить для кликера пожалуйста облегчите  :-[
Это не подпрограммы, а начальные куски описаний подпрограмм. Нормальное описание подпрограммы заканчивается на END_SUB. Но в скрипте их нет, как нет и вызова этой подпрограммы, вида "m_move()". Так что смело удалять можно, либо дописать, чтобы они работали.
это просто вызов подпрограмы вбей на форуме реалистичное передвижения и увидишь там все...

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Code: (clickermann) [Select]
SUB(prog1, $cor_x, $cor_y)
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+$cor_x+RND(-2,2), $_return2+$cor_y+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
END_SUB

GETSCREEN
IF_PICTURE_IN (512,161, 1000,313, "место.bmp", -1, 70)
   GETSCREEN
   IF_PICTURE_IN (689,336, 1068,490, "отмена.bmp", -1, 70)
      m_move($_return1+RND(-5,5), $_return2+RND(-5,5))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(100)
      prog1(-90,40)
      prog1(-35,40)
   END_IF
   prog1(-90,100)
   prog1(-35,100)
   prog1(20,40)
   prog1(20,100)
   prog1(80,40)
   prog1(80,100)
   prog1(120,100)
END_IF
очень вам благодарен спасибо за помощь

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
это просто вызов подпрограмы вбей на форуме реалистичное передвижения и увидишь там все...
А где тогда описание этой подпрограммы m_move? Есть только вызовы.
ну так я же не весь код выставил а только кусок который меня больше всего напрягал и очень не удобный мне был

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN (512,161, 1000,313, "место.bmp", -1, 70)
   GETSCREEN
   IF_PICTURE_IN (689,336, 1068,490, "отмена.bmp", -1, 70)
      m_move($_return1+RND(-5,5), $_return2+RND(-5,5))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(100)
     
     
      //
      m_move(1097+RND(-2,2), 507+RND(-2,2))
      LCLICK($_xmouse,$_ymouse)
      $time7 = $_time_t + 10
      WHILE($time7 > $_time_t)
         GETSCREEN
         IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
            $time7 = 0
            m_move($_return1-90+RND(-2,2), $_return2+40+RND(-2,2))
            LCLICK($_xmouse,$_ymouse)
            WAITMS(100)
            $time8 = $_time_t + 3
            WHILE($time8 > $_time_t)
               GETSCREEN
               IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
                  $time8 = 0
                  m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                  LCLICK($_xmouse,$_ymouse)
                  WAITMS(100)
               ELSE
                  WAITMS(500)
               END_IF
            END_CYC
           
         ELSE
            WAITMS(500)
         END_IF
      END_CYC
      m_move(1097+RND(-2,2), 507+RND(-2,2))
      LCLICK($_xmouse,$_ymouse)
      $time7 = $_time_t + 10
      WHILE($time7 > $_time_t)
         GETSCREEN
         IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
            $time7 = 0
            m_move($_return1-35+RND(-2,2), $_return2+40+RND(-2,2))
            LCLICK($_xmouse,$_ymouse)
            WAITMS(100)
            $time8 = $_time_t + 3
            WHILE($time8 > $_time_t)
               GETSCREEN
               IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
                  $time8 = 0
                  m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                  LCLICK($_xmouse,$_ymouse)
                  WAITMS(100)
               ELSE
                  WAITMS(500)
               END_IF
            END_CYC
           
         ELSE
            WAITMS(500)
         END_IF
      END_CYC
     
   END_IF
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1-90+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1-35+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   //
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+20+RND(-2,2), $_return2+40+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   //
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+20+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+80+RND(-2,2), $_return2+40+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+120+RND(-2,2), $_return2+40+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //5
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
   
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   
   
   
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+80+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)    //4
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   m_move(1097+RND(-2,2), 507+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $time7 = $_time_t + 10
   WHILE($time7 > $_time_t)
      GETSCREEN
      IF_PICTURE_IN (786,491, 936,560, "рюкзак.bmp", -1, 70)
         $time7 = 0
         m_move($_return1+120+RND(-2,2), $_return2+100+RND(-2,2))
         LCLICK($_xmouse,$_ymouse)
         WAITMS(100)
         $time8 = $_time_t + 3
         WHILE($time8 > $_time_t)
            GETSCREEN
            IF_PICTURE_IN (710,492, 1158,696, "обеденить.bmp", -1, 70)   
               $time8 = 0
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               WAITMS(100)
            ELSE
               WAITMS(500)
            END_IF
         END_CYC
         
      ELSE
         WAITMS(500)
      END_IF
   END_CYC
   
END_IF

Я дал конкретный ответ, на конкретно поставленный и правильно оформленный вопрос - "Тема: можно это как то скоротить упростить ?".
Надеюсь я тебя не обидел? Я дал правильный ответ? Что скажешь?
ты меня чем мог обидеть то :o ;D  нз насчет правильного ответа но мне вот дали( Oraven ) ответ выше который я и ожидал  :) все работает как часики и очень удобно редактировать если что то не так   8)