Code:

...[maskhost "$whom![getchanhost $whom chan]"]...

Code:

# Setting:set maskhostDefaultType 0# The proc:proc maskhost [list name [list type $maskhostDefaultType]] {   if {[scan $name {%[^!]!%[^@]@%s} nick user host]!=3} {      error "Usage: maskhost <nick!user@host> \[type\]"   }   if [string match {[3489]} $type] {      if [string match {*[0-9]} $host] {         set host [join [lrange [split $host .] 0 2] .].*      } elseif {[string match *.*.* $host]} {         set host *.[join [lrange [split $host .] end-1 end] .]      }   }   if [string match {[1368]} $type] {      set user *[string trimleft $user ~]   } elseif {[string match {[2479]} $type]} {      set user *   }   if [string match {[01234]} $type] {      set nick *   }   set name $nick!$user@$host 

Code:

bind pub o|o !kb user_reason proc user_reason {nick host hand chan text} {  set list [split $text]  set whom [lindex $list 0]  set reason [join [lrange $list 1 end]]    if {$whom == ""} {       putserv "PRIVMSG $chan :You must specify a nick to kickban."    } elseif {![onchan $whom $chan]} {       putserv "PRIVMSG $chan :$whom is not here."    } else {       putserv "MODE $chan +b [maskhost [getchanhost $whom $chan] 0]"    if {$reason == ""} {       puthelp "KICK $chan $whom :Requested by $nick."    } else {       puthelp "KICK $chan $whom :$reason"    }  }}

Code:

...} elseif {![onchan $whom $chan]} {...

Code:

putserv "MODE $chan +b [maskhost $whom 0]"