alias miranick {
  if (%nickaver ison %chanaver)
  msg %nickaver El nick %nickaver es incorrecto para el canal %chanaver $+ . Entra usando otro nick!
  kick %chanaver %nickaver  El nick %nickaver es incorrecto para el canal %chanaver $+ . Entra usando otro nick!
  mode %chanaver +b %nickaver | unset %nickaver | unset %chanaver
}
on *:JOIN:#:{
  var %nickaver * $+ $nick $+ *
  var %d = $read( listadenicks.txt, w, %nickaver )
  ;; si nick esta en la lista hace esto...
  if (( %d != $null )) {
    msg $chan El nick $nick es incorrecto para el canal $chan $+ . Tienes 30seg para cambiar tu nick!
    timerMIRANICK 1 30 miranick | set %nickaver $nick | set %chanaver $chan
  }
}