Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: Biotic on January 30, 2016, 01:55:45 AM

Title: Рандом без повтора
Post by: Biotic on January 30, 2016, 01:55:45 AM

Задача: Имеется 8 точек, куда можно кликнуть. Необходимо кликнуть рандомно только в 3. В одну точку 2 раза кликать нельзя. Задержками можно пренебречь.

Попробовал через SWITCH, но иногда в одну точку несколько кликов. Надо как-то их исключать.
Помогите пожалуйста, а то не слишком силён в программировании :3

Title: Re: Рандом без повтора
Post by: Золотой on January 30, 2016, 02:57:57 AM

Не буду изобретать велосипед, слишком часто  подобное спрашивают.

Code: (clickermann) [Select]

$r = "12345678"
FOR($a=0,$a<3)
   $f = INT(STRCUT($r,RND(1,STRLEN($r)),1))
   IF(STRLEN($r) > 1)
      $r = INT(STRFILTER ($r, $f, 0))
   END_IF
   SWITCH($f)
   CASE(1)
      //      LCLICK(10,10)
      LOGWRITE ("1")       
   CASE(2)
      //      LCLICK(10,10)
      LOGWRITE ("2")
   CASE(3)
      //      LCLICK(10,10)
      LOGWRITE ("3")
   CASE(4)
      //      LCLICK(10,10)
      LOGWRITE ("4")
   CASE(5)
      LOGWRITE ("5")
      //      LCLICK(10,10)
    CASE(6)
      LOGWRITE ("6")
      //      LCLICK(10,10)   
     CASE(7)
      LOGWRITE ("7")
      //      LCLICK(10,10) 
      CASE(8)
      LOGWRITE ("8")
      //      LCLICK(10,10)     
   DEFAULT
   END_SWITCH
   WAITMS(50)
END_CYC
LOGWRITE ("  ")
HALT
вырезайте символ комментария и впишите свои координаты, а коли вывод в лог ненужон, то вырезайте и его, код всё стерпит  .