не работает WHILE

[scat]

когда выбрана переменная $r = 2  не срабатывает что то я в конструкции напутал

Code: (clickermann) [Select]

    $check = 0
   WHILE($check = 0) //
      IF(($r = 1) or ($r = 2))
         IF(PXL(460,69) = 1043800)// зеленный круг
            WAITMS(RND(1230,2660))
            $check = 1 // если найдено выходим из цикла
         ELSE // если не найдено
            WAITMS(RND(260,490))
            IF($r = 1)
               IF(PXL(18,471) = 14540253)//галка
                  LCLICK (RND(252,306),RND(352,361)) //выбрал  место 1
                  WAITMS(RND(1230,2660))
               ELSE // если не найдено
                  WAITMS(RND(260,490))
                  IF($r = 2)
                     IF(PXL(18,471) = 14540253)//галка
                        LCLICK (RND(215,227),RND(233,245)) //выбрал  место 2
                        WAITMS(RND(1230,2660))
                     ELSE // если не найдено
                        WAITMS(RND(60,90))
                        LOGWRITE("нет")
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
   END_CYC

[Иван_Васильевич]

Code: (clickermann) [Select]

$check = 0
WHILE($check = 0) //
   IF(($r = 1) or ($r = 2))
      GETSCREEN(460,69,461,70 )
      IF(PXL(460,69) = 1043800)// зеленный круг
         LOGWRITE("выходим из цикла")
         WAITMS(RND(1230,2660))
         $check = 1 // если найдено выходим из цикла
      ELSE // если не найдено
         WAITMS(RND(260,490))
         GETSCREEN(18,471,19,472)
         IF(PXL(18,471) = 14540253)//галка
            LOGWRITE("галка")
            IF($r = 1)
               LCLICK (RND(252,306),RND(352,361)) //выбрал  место 1
               LOGWRITE("выбрал  место 1")
               WAITMS(RND(1230,2660))
            ELSE // если не найдено
               IF($r = 2)
                  LCLICK (RND(215,227),RND(233,245)) //выбрал  место 2
                  LOGWRITE("выбрал  место 2")
                  WAITMS(RND(1230,2660))
               ELSE // если не найдено
                  LOGWRITE("не найдено")
                  WAITMS(RND(460,590))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_CYC


[scat]

спасибо заработало