Random Color Text for Borreltje

ON !*:TEXT:!*:#: {
  tokenize 32 $strip($1-,burci)
  if ($1 == !feli) {
    if (!$2) { .msg $chan [ $+ $nick $+ ]: Error, Not enough parameters, try again and enter the nickname! | return }
    if ($2 !ison $chan) { .msg $chan [ $+ $nick $+ ]: Error, Cannot find, the $qt($2) nickname is NOT on the channel! | return }
    .msg $chan $rmsg(¸.·'´¯¯`'·.¸ $nick feliciteert $2 ¸.·'´¯¯`'·.¸)
  }
  if ($1 == !felimsg) {
    if (!$2) { .msg $chan [ $+ $nick $+ ]: Error, Not enough parameters, try again and enter the nickname! | return }
    .msg $chan $rmsg($2-)
  }
}

alias rmsg {
  if (!$1-) { return }
  var %t = $len($1-)
  var %i = 1
  while (%i <= %t) {
    var %col = 7 6 8 9 10 13 12 3 4
    var %g = $mid($1-,%i,1)
    var %c =  $+ $gettok(%col,$rand(1,$numtok(%col,32)),32) $+  $+ %g $+ 
    var %msg = %msg $+ %c
    inc %i
  }
  return %msg
}