Author Topic: Поиск нескольких картинок поочередно  (Read 1374 times)

0 Members and 1 Guest are viewing this topic.

olejek85

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Привет всем! Нужен скрипт при котором при неудачном поиске одной картинки искал следующую, задача казалась бы простая, но с моим опытом, приходит в голову только цикл в цикле, при том не факт что сработает, а хочется компактности и красоты для эстетического удовлетворения!) Спасибо!

olejek85

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Re: Поиск нескольких картинок поочередно
« Reply #1 on: September 17, 2018, 12:00:33 AM »
для наглядности:

$check = 0
WHILE($check = 0)
   GETSCREEN (790, 365, 1110, 390)
    COLORMODE(6, 790, 365, 1110, 390)
   IF_PICTURE_IN (790, 365, 1110, 390, "Image_11.bmp", -1, 60)  //если Image_11.bmp не находиться искать Image_12.bmp, если
                                                                                                 //любая из картинок найдется продолжать скрипт
      $check = 1
      $S_CORR = 0
#ps2_keyboard
  keyDown(76)
waitms(141 + $S_CORR)
  keyUp(76)
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(1500 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83)
waitms(400 + $S_CORR)
  keyDown(83)
waitms(141 + $S_CORR)
  keyUp(83) 
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(400 + $S_CORR)
  FOR($a=0,$a<$n)
         keyDown(83)
         waitms(141 + $S_CORR)
         keyUp(83)
      END_CYC
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(400 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
waitms(1500 + $S_CORR)
  keyDown(75)
waitms(141 + $S_CORR)
  keyUp(75)
      WAITMS(100)
   ELSE
      WAITMS(1000)
   END_IF
END_CYC
inc($n,1)

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Поиск нескольких картинок поочередно
« Reply #2 on: September 17, 2018, 02:58:40 AM »
Обычно все делают вот так
Code: (clickermann) [Select]
$check = 0
FOR($a = 11, ($a < 13) & ($check = 0))
   GETSCREEN
   IF_PICTURE_IN (790, 365, 1110, 390, STRCONCAT("Image_", $a, ".bmp"), -1, 60)  //если Image_11.bmp не находиться искать Image_12.bmp
      $check = 1
   END_IF
END_CYC

«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Поиск нескольких картинок поочередно
« Reply #3 on: September 17, 2018, 07:03:53 AM »
Code: (clickermann) [Select]
#ps2_keyboard

$check = 0
WHILE($check = 0)
   GETSCREEN (790, 365, 1110, 390)
   COLORMODE(6, 790, 365, 1110, 390)
   FOR($i = 11, ($i < 13) & ($check = 0))
      IF_PICTURE_IN (790, 365, 1110, 390, STRCONCAT("Image_",$i,".bmp"), -1, 60)  //если Image_11.bmp не находиться искать Image_12.bmp
         $check = 1
         KEYPRESS(#L)
         waitms(400)
         
         KEYPRESS(#K)
         waitms(1500)
         
         KEYPRESS(#S)
         waitms(400)
         
         KEYPRESS(#S)
         waitms(400)
         
         KEYPRESS(#S)
         waitms(400)
         
         KEYPRESS(#S)
         waitms(400)
         
         KEYPRESS(#K)
         waitms(400)
         
         FOR($a=0,$a<$n)
            KEYPRESS(#S)
            WAITMS(50)
         END_CYC
         waitms(400)
         
         KEYPRESS(#K)
         waitms(400)
         
         KEYPRESS(#K)
         waitms(1500)
         
         KEYPRESS(#K)
         WAITMS(100)
      ELSE
         WAITMS(100)
      END_IF
   END_CYC
END_CYC
inc($n,1)