Originally Posted by Simo
you could try this

Code


ON *:nick:{
  haltdef
  var %whloop = 1
  while ( $comchan($newnick,%whloop) != $null )  {
    var %chan $v1
    if ($istok(Dalnet undernet,$network,32) && $istok(#chan,%chan,32)) {
      if ($nick(%chan,$newnick,@&~%) || !$nick(%chan,$me,@&~%)) { halt } 
      badnick_alias %chan $newnick 
    }
    inc %whloop
  }
  halt
}



on !*:JOIN:#:{
  if ($istok(Dalnet undernet,$network,32) && $istok(#chan,$chan,32)) {
    if (!$Timer($+(CheckNicks,.,$network,.,$chan,.,$nick))) {  .Timer $+ $+(CheckNicks,.,$network,.,$chan,.,$nick)  -md 1 750 badnick_alias $unsafe($chan) $nick  } 
  }
}

alias badnick_alias {
  var %chan $1 , %nick $2
   if (MindUser* !iswm %nick || %nick !ison %chan || $nick( %chan , %nick ,@&~%)) { halt }
   if ($len( %nick ) > 3 || ($calc($regex(%nick,/[A-Z]/g) * 100 / $len(%nick)) > 30)) { kick %chan %nick please change your nick thanks you.... }  
}

Doesn't work.
Non error in status.