Posted to tcl by Jack at Fri Jul 02 00:15:29 GMT 2021view raw

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