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.

chan ctcp requwsts

Old posts that have not been replied to for several years.
Locked
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

chan ctcp requwsts

Post by suffering »

hi, i want a simple tcl when smone use the channel ctcp command the bot ban(chan ban) and kick him from the channel.
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

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
   }
}
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

Post by suffering »

thats one kicks also on /me actions... i only want for channel ctcp ... /ctcp #chan ping... and do not kick operators
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

/me is chan ctcp
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

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 
   } 
}
This will not kick for actions and will exempt channel ops.
Locked