Part kill

crux · Post by **crux** » Sat Jan 13, 2007 1:09 pm

hello
I want a little code to kill users, who r trying to part from a specified channel.

metroid · Post by **metroid** » Sat Jan 13, 2007 1:26 pm

bind part -|- * part:kill

proc part:kill {nickname hostname handle channel reason} {
  if {[string equal $channel #mylamechannel]} {
    putquick "KILL $nickname :Don't part $channel."
  }
}

crux · Post by **crux** » Sat Jan 13, 2007 6:11 pm

Thanks alot ..

then bro.. I'm bot owner and I wanna control this tcl from public command...
example !kill on/off
how to bro? .. please help me.

Post by **Sir_Fz** » Sat Jan 13, 2007 6:38 pm

Code: Select all

bind pub n|n !kill kill:onoff
bind part -|- * part:kill

set killon 1

proc part:kill {nickname hostname handle channel reason} {
  if {$::killon && [string equal $channel #mylamechannel]} {
    putquick "KILL $nickname :Don't part $channel."
  }
}

proc kill:onoff {nick uhost hand chan arg} {
 set s [string tolower [lindex [split $arg] 0]]
 set ::killon [expr {($s == "on")}]
}

Edit: Just removed useless code.

crux · Post by **crux** » Sat Jan 13, 2007 9:36 pm

Thanks you much.