Mine

on *:TEXT:!look *:#:{
  if ($2) {
    set %nick $nick
    set %channel $iif($left($2,1) == $chr(35),$2,$chan)
    set %scan4 $iif($left($2,1) == $chr(35),$3,$2)
    uhostall %channel
  }
}
alias uhostall {
  var %a = 0
  while (%a < $nick($1,0)) {
    inc %a
    userhost $nick($1,%a)
  }
}
raw 302:*:{
  haltdef
  tokenize 43 $2-
  if (@ isin $1) tokenize 45 $1
  if (%scan4 isin $2) set %matchesfound %matchesfound $remove($1,=)
  if ($remove($1,=) == $nick(%channel,$nick(%channel,0))) {
    notice %nick users with: $qt(%scan4) in their hostmasks: $iif($len(%matchesfound) < 1,None,%matchesfound)
    unset %scan4
    unset %channel
    unset %matchesfound
    unset %nick
  }
}