egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-07-12T05:31:31-04:00 https://forum.eggheads.org/app.php/feed/topic/1940 2002-07-12T05:31:31-04:00 2002-07-12T05:31:31-04:00 https://forum.eggheads.org/viewtopic.php?p=8817#p8817 <![CDATA[capital ident]]>

Code: 

proc join:capindentkick {nick uh hand chan} {  regsub -all -- [lindex [split $uh @] 0] {[A-Z]} {} uh2  if {$uh != $uh2} {    puthelp "KICK $chan $nick :No capc allowed in ident"  }}bind join - "*" join:capindentkick

Statistics: Posted by ppslim — Fri Jul 12, 2002 5:31 am

]]> 2002-06-13T10:37:00-04:00 2002-06-13T10:37:00-04:00 https://forum.eggheads.org/viewtopic.php?p=7924#p7924 <![CDATA[capital ident]]> please help me.

Statistics: Posted by Guest — Thu Jun 13, 2002 10:37 am

]]>