Author Topic: Рандом без повтора  (Read 1696 times)

0 Members and 1 Guest are viewing this topic.

Biotic

  • Зашел в гости
  • *
  • Posts: 1
    • View Profile
Рандом без повтора
« on: January 30, 2016, 01:55:45 AM »
Задача: Имеется 8 точек, куда можно кликнуть. Необходимо кликнуть рандомно только в 3. В одну точку 2 раза кликать нельзя. Задержками можно пренебречь.

Попробовал через SWITCH, но иногда в одну точку несколько кликов. Надо как-то их исключать.
Помогите пожалуйста, а то не слишком силён в программировании :3
« Last Edit: January 30, 2016, 02:00:40 AM by Biotic »

Золотой

  • Оплот сообщества
  • ****
  • Posts: 312
    • View Profile
Re: Рандом без повтора
« Reply #1 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
вырезайте символ комментария и впишите свои координаты, а коли вывод в лог ненужон, то вырезайте и его, код всё стерпит  .
« Last Edit: January 30, 2016, 03:04:32 AM by Золотой »