Code
alias rcloakx3 {
  ;cycle between 3x and 7a
  if (%3x7a == 3x) { set -u1 %xcloackz 7a | unset %3x7a }
  elseif (%3x7a == 7a) set -u1 %xcloackz 3x | unset %3x7a }
  else { set -u1 %xcloackz $gettok(3x 7a,$rand(1,2),32) | set %3x7a %xcloackz }

  ;optimized with $str and $left
  if (%xcloakz == 3x) { vh $1  $left($str($cloakjhtyafvdl $+ -,5),-1) $+ $str(. $+ $cloakjhtyafvdXX,2) $+ .ip }
  elseif (%xcloakz == 7a) {
    ;cycle random 0-9
    if (%randomcycle09 == $null) set %randomcycle09 0 1 2 3 4 5 6 7 8 9
    var %x 6,%randomircloud,%t
    while (%x) {
      %t = $gettok(%randomcycle09,$r(1,$numtok(%randomcycle09,32)),32)
      %randomircloud = %randomircloud $+ %t
      %randomcycle09 = $remtok(%randomcycle09,%t,32)
      if (%randomcycle09 == $null) set %randomcycle09 0 1 2 3 4 5 6 7 8 9
      dec %x
    }
    ;weird $+ $+ there but i didn't touch in case there's an invisible char or because it's unfinished.
    vh $1 sid $+ - $+ %randomircloud $+ . $+ $rcloud | iden $1 sid $+  $+ %randomircloud
  }
}
Untested but should wait until all digits were chosen randomly once between it reset back to all of them, and so accross all functions, not just for the 6 iterations, meaning that when you start, if the 6 iterations gives 0 1 2 3 4 5, you can't get any of these digits for the next 6 iterations, which would get randomly 6 7 8 9 before reseting back to any 0-9 randomly for the remaining 2 iterations.

Last edited by Wims; 14/10/25 10:08 AM.
#mircscripting @ irc.swiftirc.net == the best mIRC help channel