egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-02-25T13:42:13-04:00 https://forum.eggheads.org/app.php/feed/topic/6940 2004-02-25T13:42:13-04:00 2004-02-25T13:42:13-04:00 https://forum.eggheads.org/viewtopic.php?p=33980#p33980 <![CDATA[tcl or not?]]>

Code: 

setudef flag annoybind pubm - {*\?\?\?\?*} pubm:questionsbind pubm - {*\!\!\!\!*} pubm:exclamationproc pubm:questions {nick uhost hand chan text} {  if {![channel get $chan annoy] || [matchattr $hand of|fo $chan] || [isop $nick $chan] ![botisop $chan]} {    return  }  scan $uhost {%*[^@]@%s} host  newchanban $chan *!*@$host annoy "5 minutes for using so many question marks within $chan channel.." 5}proc pubm:exclamation {nick uhost hand chan text} {  if {![channel get $chan annoy] || [matchattr $hand of|fo $chan] || [isop $nick $chan] || ![botisop $chan]} {    return  }  newchanban $chan *!*@$host annoy "5 minutes for using so many exclamations marks within $chan channel.." 5}
To enable it on a specific channel just do.chanset #channel +annoy and .chanset #channel -annoy to disable it. haven't tested it but should be working smoothly.

Statistics: Posted by caesar — Wed Feb 25, 2004 1:42 pm

]]> 2004-02-25T06:19:07-04:00 2004-02-25T06:19:07-04:00 https://forum.eggheads.org/viewtopic.php?p=33973#p33973 <![CDATA[tcl or not?]]> Statistics: Posted by K — Wed Feb 25, 2004 6:19 am

]]>