tcl or not?

K · Post by K » Wed Feb 25, 2004 6:19 am

do somebody nows a tcl that kick/ban users that user excesive "!" and "?" on a chennel during a time.like they have on #eggdrop

Post by **caesar** » Wed Feb 25, 2004 1:42 pm

Code: Select all

setudef flag annoy

bind pubm - {*\?\?\?\?*} pubm:questions
bind pubm - {*\!\!\!\!*} pubm:exclamation

proc 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.