alias -l kntrl { 
  var %s = 1 
  while ($read(nickler.txt,%s)) { 
    if ($regex($1,/ $+ $v1 $+ /i))) { 
      nick $+(azula,-,$r(1,999)) 
      break 
    } 
    inc %s
  }
}
on *:connect:kntrl $me