Something

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
 	}