Posted to tcl by Jack at Fri Jul 02 00:15:23 GMT 2021view pretty

proc join:BadNicks { nick uhost handle channel } {
  global badnickwords opchan
  set randy [expr {int(99999*rand())}]
  set numbers [regexp -all -inline -- {[0-9]+} $nick]
  
  if {[string length $numbers] >= 7} {	
	  putserv "SANICK $nick :Invitado-$randy"
	  break
  }
  if{[regexp -- {[a-zA-Z]+[0-1][0-7][0-1][0-7]} $nick]} {
	  putserv "SANICK $nick :Invitado-$randy"
	  break
  }
}