Author Topic: Вопрос по циклам  (Read 6632 times)

0 Members and 4 Guests are viewing this topic.

showtime

  • Освоившийся
  • **
  • Posts: 30
    • View Profile
Re: Вопрос по циклам
« Reply #15 on: October 30, 2014, 07:22:53 AM »
И еще. возможно ли задать IF от системного времени?
что-то вроде
Code: (Clickermann) [Select]
IF ($_system_time = 14)
halt
END_IF

 ::)

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Вопрос по циклам
« Reply #16 on: October 30, 2014, 09:28:53 AM »
Назрел вопрос. в скрипте работает такая подпрограмма:
...
осуществляется поиск текстур, в случае нахождения какой-либо - ищет еще раз такую же и только потом переходит к поиску следующей.
вопрос: возможно ли сделать так, что в случае нахождения одной и той же текстуры и попытке ее взять эдак  раз 20 - он перестанет ее искать 21-ый раз и перейдет к поиску следующей. на деле невозможно найти больше 20ти раз одну и ту же текстуру при обращении к подпрограмме и, если такое случается, имеет место тех.неполатка (игровой момент) и нужно "скипнуть" поиск этой текстуры и перейти к поиску следующей


Code: (clickermann) [Select]
SUB(search, $e, $t, $k, $u, $c, $h)
   $akk = 0
   $num_akk = 0
   $check = 1
   WHILE($check < 14) // количество текстур для поиска (n-1)
      GETSCREEN
      IF_PICTURE_IN ($e,$t, $k,$u, STRCONCAT($check, ".bmp"), -1, 85)
         WAITMS(10)
         MOVE($_return1, $_return2)
         WAITMS(50)
         LCLICK($_return1, $_return2) // выделение
         WAITMS(10)
         MOVE($c,$h)
         WAITMS(100)
         LCLICK($c,$h) // !!!ЗАБРАТЬ
         WAITMS(50)
         INC($akk)
         IF($num_akk ! $check)
            $akk = 1
            $num_akk = $check
         END_IF
         IF($akk < 20)
            INC($check, -1)
         END_IF
      END_IF
      WAITMS(50)
      INC($check)
   END_CYC
END_SUB
« Last Edit: October 30, 2014, 09:40:36 AM by Vint »


Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Вопрос по циклам
« Reply #17 on: October 30, 2014, 09:36:07 AM »
И еще. возможно ли задать IF от системного времени?
что-то вроде
Code: (Clickermann) [Select]
IF ($_system_time = 14)
halt
END_IF

 ::)

Справка



showtime

  • Освоившийся
  • **
  • Posts: 30
    • View Profile
Re: Вопрос по циклам
« Reply #18 on: October 30, 2014, 10:38:21 AM »

Code: (clickermann) [Select]
IF($num_akk ! $check)
 $akk = 1
 $num_akk = $check
END_IF
IF($akk < 20)
 INC($check, -1)
END_IF
долго понимал. вроде понял.. спасибо. едва ли бы додумался завернуть так сам