This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.

For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

tcl or not?

Old posts that have not been replied to for several years.
Locked
User avatar
K
Voice
Posts: 34
Joined: Wed Jan 28, 2004 7:31 pm
Location: Romania @sibiu
Contact:
Contact K

tcl or not?

Post by K »

do somebody nows a tcl that kick/ban users that user excesive "!" and "?" on a chennel during a time.like they have on #eggdrop
Top
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

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.
Once the game is over, the king and the pawn go back in the same box.
Top
Locked

Return to “Archive”