kicker

bind pub - "-k" kicker
proc kicker { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
    puthelp "Kick $chan $txt"
}
}

bind pub - "-kb" kber
proc kber { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
    puthelp "Mode +b "
    puthelp "Kick $txt"
}
}

bind pub - "-bt" bter
proc bter { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
    puthelp "Mode +b $txt"
}
}

bind pub - "-bn" bner
proc bner { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
    puthelp "Mode +b $txt!*@*"
}
}

bind pub - "-bi" bier
proc bier { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
   $gch set ""
   $tpvar set ""
   $mask set ""
   $gch set getchanhost $txt
   $tpvar set split $gch "@"
   $nident set lindex $tpvar 0
    puthelp "Mode +b *!$nident@*"
}
}

bind pub - "-bh" bher
proc bher { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
   $gch set ""
   $tpvar set ""
   $mask set ""
   $gch set getchanhost $txt
   $tpvar set split $gch "@"
   $mask set lindex $tpvar 1
    puthelp "Mode +b *!*@$mask"
}
}

bind pub - "-ba" baer
proc bter { nick host hand chan txt } {
if {$txt!="" && isop[$nick]} {
    puthelp "Mode +b $txt!*@*"
   $gch set ""
   $tpvar set ""
   $mask set ""
   $gch set getchanhost $txt
   $tpvar set split $gch "@"
   $mask set lindex $tpvar 1
   $nident set lindex $tpvar 0
    puthelp "Mode +b *!$nident@*"
    puthelp "Mode +b *!*@$mask"
}
}

putlog "Kicker by My1 set."

# ><((((º>)