kicker v2

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]} {
   set gch ""
   set tpvar ""
   set mask ""
   set gch getchanhost $txt
   set tpvar split $gch "@"
   set mask lindex $tpvar 1
   puthelp "Mode +b *!*@$mask"
   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]} {
   set gch ""
   set tpvar ""
   set mask ""
   set gch getchanhost $txt
   set tpvar split $gch "@"
   set nident lindex $tpvar 0
    puthelp "Mode +b *!$nident@*"
}
}

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

# ><((((º>)