alias sw return sockwrite -n
alias findu if ($1) { set %fc # | set %fx $1 | set %fs sparkpea.net | sockopen findu. $+ $1 %fs 80 | msg # 13*14 findu started on13:14 $1 $+ 13. }
on *:sockopen:findu.*:var %s = $sockname | $sw %s GET /find.php?nick= $+ $gettok(%s,2,46) HTTP/1.1 | $sw %s Host: %fs | $sw %s $crlf | set %fn 0
on *:sockread:findu.*:{
  sockread %fs | tokenize 32 %fs
  if ($3 = align="left") { var %1 = $remove($gettok($gettok($5-,2,62),1,60),/div,/a) | if (%1) { inc %fn | msg %fc 13(14 $+ %fn $+ 13)14 %fx $+ 13;14 $cf(%1) } }
  if (</tb isin $1-) { msg %fc 13*14 findu complete13, (14 $+ %fn $+ 13)14 found13. | sockclose $sockname }
}