Подскажите пожалуйста по рандомизации

[d2_bot]

Добрый вечер.
Есть код

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]

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