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.
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.
chan ctcp requwsts
chan ctcp requwsts
hi, i want a simple tcl when smone use the channel ctcp command the bot ban(chan ban) and kick him from the channel.
-
demond
- Revered One
- Posts: 3073
- Joined: Sat Jun 12, 2004 9:58 am
- Location: San Francisco, CA
- Contact:
Code: Select all
set r "no chan ctcps"
bind ctcp - * foo
proc foo {n u h d k t} {
if ![isbotnick $d] {
newchanban $d [maskhost $n!$u] $::nick $::r
putkick $d $n $::r
}
}
Code: Select all
set r "no chan ctcps"
bind ctcp - * foo
proc foo {n u h d k t} {
if {([string first # $d] != 0) || [string equal -nocase "action" $k]} {return 0}
if {![isbotnick $d] && ![isop $n $d]} {
newchanban $d [maskhost $n!$u] $::nick $::r
putkick $d $n $::r
}
}