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!
  unset %nickaver | unset %chanaver
}
on *:JOIN:#:{
  var %nickaver * $+ $nick $+ * | set %mask $address($nick,2)
  var %d = $read( listadenicks.txt, w, %nickaver )
  ;; si nick esta en la lista hace esto...
  if (( %d != $null )) {
    if %mask == %NOmask { msg $chan ¿Otra vez tú con nick invalido? Te llevas un ban! | mode $chan +b $address($nick,2) }
    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 | set %NOmask $address($nick,2)
  }
}