Something

proc dcc:human {handle idx arg} {
 global channel
 if {$arg == ""} {
  putdcc $idx "usage: .human <nick>"
  return
 }
 set newhost [getchanhost $arg $channel]
 if { $newhost != "" } {
  set temphost [split [lindex [split $newhost @] 1] .]
  if {[testip [lindex [split $newhost @] 1]]} {
   set newhost *!*[lindex [split $newhost @] 0]@[join [lrange $temphost 0 end-1] .].*
  } else {
   if {[llength $temphost] == 3} {
    set newhost *!*[lindex [split $newhost @] 0]@*.[join [lrange $temphost end-1 end] .]
   } elseif {[llength $temphost] > 3} {
    set newhost *!*[lindex [split $newhost @] 0]@*.[join [lrange $temphost end-2 end] .]
   } else {
    set newhost *!*$newhost
   }
  }
  setuser human HOSTS $newhost
  putidx $idx "$arg added to human list"
 } else {
  putidx $idx "$arg is not in $channel"
 }
}