Author Topic: Подскажите пожалуйста по рандомизации  (Read 1645 times)

0 Members and 1 Guest are viewing this topic.

d2_bot

  • Освоившийся
  • **
  • Posts: 85
    • View Profile
Добрый вечер.
Есть код

Code: [Select]

IF(TFCOUNT("text.txt") > $count)
   INC($count,1)
ELSE
   $count = 1
END_IF
$str = TFREAD ("text.txt", $count)
UNDEFINE($arr)
STRSEPARATE($str, ":", $arr)

wait(1)
MOVE(319,247)
wait(1)
LCLICK(319,247)
WAITMS (50)
TOCLIP($arr[0])
wait(1)
LCLICK(319,247)

wait(1)
MOVE(319,247)
wait(1)
LCLICK(319,247)
WAITMS (50)
TOCLIP($arr[1])
wait(1)
LCLICK(319,247)

wait(1)
MOVE(319,247)
wait(1)
LCLICK(319,247)
WAITMS (50)
TOCLIP($arr[3])
wait(1)
LCLICK(319,247)

И так далее, допустим у меня в текстовом документе
текст1:текст2:текст3:текст4


Как сделать так, чтобы каждый проход TOCLIP был рандомный?

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Подскажите пожалуйста по рандомизации
« Reply #1 on: February 16, 2019, 08:47:51 AM »
Code: (clickermann) [Select]
IF(TFCOUNT("text.txt") > $count)
   INC($count,1)
ELSE
   $count = 1
END_IF

$str = TFREAD ("text.txt", $count)
UNDEFINE($arr)
STRSEPARATE($str, ":", $arr)

$i = ARRSIZE($ARR)-1
WHILE($i>0)
   $j = RND(0,$i)
   IF($i ! $j)
      $tmp = $arr[$j]
      $ARR[$j] = $ARR[$i]
      $ARR[$i] = $tmp
   END_IF
   INC($i,-1)
END_CYC

FOR($a=0,$a<ARRSIZE($ARR))
   MOVE(319,247)
   wait(1)
   LCLICK(319,247)
   TOCLIP($arr[$a])
   WAITMS (50)
   LCLICK(319,247)
   wait(1)
END_CYC