alias find {
  if (@ isin $1) && (!$2) {
    var %x 1,%m,%ticks $ticks
    echo -a $alert Searching4 $chan(0) channels,4 $calc($regsubex($str(~,9),/./g,$nick($chan(\n),0) +)) people..
    while (%x <= $chan(0)) {
      var %xx 1
      while (%xx <= $nick($chan(%x),0)) {
        var %nick $nick($chan(%x),%xx)
        if ($1 iswm $address($nick($chan(%x),%xx),5)) {
          if (!$istok(%ret,%nick,32)) { echo -a $alert Match found:4 %nick (4 $+ $replace($gettok($address(%nick,5),2,33),@,@4,.,.4,:,:4) $+ ) $regsubex($str(~,$comchan(%nick,0)),/./g,$+($chr(3),$iif(%nick isop $comchan(%nick,\n),4@,$iif(%nick ishop $comchan(%nick,\n),8%,$iif(%nick isvoice $comchan(%nick,\n),12+))),$chr(3),4,$comchan(%nick,\n) $chr(32)))) | inc %m }
          var %ret %ret %nick
        }
        inc %xx
      }
      inc %x
    }
    if (!%m) echo -a $alert No matches found.
    else echo -a $alert 4 $+ $bytes(%m,bd) matches found in4 $calc(($ticks - %ticks) /1000) seconds
  }
}
alias alert { return 4¤ }