Someone

bind pub n|n .bh ban:host
proc ban:host { nick host handle chan text  } {
set stext "*!*@[lindex [split [getchanhost $text $chan] @] 1]"
set otherhost "[lindex [split [getchanhost $text $chan] @] 1]"
set reason "$otherhost is banned permanently"
set hmm "[lindex list]"
if [onchan $nick $chan] 
  newban $stext $handle $reason 0
else 
newban $hmm $handle $reason 0
 }