alias findu { set %finder $1 |   msg $active 3*14 Attempting to find $1 on the network.. |   sockopen spcn.finder www.sparkpea.net 80 }
on *:SOCKOPEN:spcn.finder: {
  sockwrite -nt $sockname GET /find.php?nick= $+ %finder HTTP/1.1
  sockwrite -nt $sockname Host: sparkpea.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:spcn.find*: {
  var %findu | sockread %findu | .tokenize 32 %findu
  if (</a></div></td> isin $1-) && (align="center" isin $1-) && ($gettok($gettok($5,2,62),1,60) != /a)  { set %frn $gettok($gettok($5,2,62),1,60) }
  if (align="left" isin $1-) && (href="chatroom.php?rhx= isin $1-) && ($gettok($gettok($5,2,62),1,60) != /a) { msg $active 7*14 Found %finder [as: %frn $+ ] on channel7:14 $+($chr(37),07,$chr(35),14,$replace($gettok($gettok($5-,2,62),1,60),$chr(32),\b))  | inc %fr }
  if ($1- == </tbody>) {   msg $active 3*14 Look-up complete, %finder was found on $iif(!%fr,07014,07 $+ %fr $+ 14) channels | unset %fr | sockclose $sockname }
}