alias bprofa { set %cp 0 | var %profsock $+(bprofa,$+($rand(1,99999),$rand(A,Z),$rand(a,z))) | sockopen %profsock www.buzzen.com 80 | sockmark %profsock $1 $2 $3 }
on *:sockopen:bprofa*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /chat/redirect.php?mid= $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Host: www.buzzen.com
  sockwrite -n $sockname $crlf
}
on *:sockread:bprofa*: {
  if ($sockerr > 0) return | var %bprofa | sockread %bprofa 
  if ($regex(%bprofa,/Location: (.*)/)) { 
    if ($regml(1) != /spacedom//profile.php) { gprof $regml(1) $sock($sockname).mark }
    sockclose $sockname 
  }
}
alias gprof { var %profsockb $+(gprof,$+($rand(1,99999),$rand(A,Z),$rand(a,z))) | sockopen %profsockb www.buzzen.com 80 | sockmark %profsockb $1 $2 $3 $4 }
on *:sockopen:gprof*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Host: www.buzzen.com
  sockwrite -n $sockname $crlf
}
on *:sockread:gprof*: {
  if ($sockerr > 0) return | var %gprof | sockread %gprof 
  if ($regex(%gprof,/(.*)/)) && (%cp == 1) { set %checkProf.name $chr(91) Name: $regml(1) $chr(93) | inc %cp }
  if ($regex(%gprof,/<strong>Name<\/strong>(.*)/)) { inc %cp }
  if ($regex(%gprof,/(.*)/)) && (%cp == 3) { set %checkProf.location $chr(91) Location: $regml(1) $chr(93) | inc %cp }
  if ($regex(%gprof,/<strong>Location<\/strong>(.*)/)) { inc %cp }
  if ($regex(%gprof,/(.*)/)) && (%cp == 5) { set %checkProf.age $chr(91) Age: $regml(1) $chr(93) | inc %cp }
  if ($regex(%gprof,/<strong>Age<\/strong>(.*)/)) { inc %cp }
  if ($regex(%gprof,/(.*)/)) && (%cp == 7) { set %checkProf.gender $chr(91) Gender: $regml(1) $chr(93) | inc %cp }
  if ($regex(%gprof,/<strong>Gender<\/strong>(.*)/)) { inc %cp }
  if ($regex(%gprof,/(.*)/)) && (%cp == 9) { set %checkProf.married $chr(91) Marital Status: $regml(1) $chr(93) | inc %cp }
  if ($regex(%gprof,/<strong>Marital Status<\/strong>(.*)/)) { inc %cp }
  if ($regex(pro,%gprof,/(.*)/)) && (%cp == 11) { set %checkProf.website $chr(91) Website: $iif($regex($regml(pro,1),/<a href="(.*)">(.*)<\/a>/),$regml(1),$regml(pro,1)) $chr(93) | inc %cp }
  if ($regex(%gprof,/<strong>My website<\/strong>(.*)/)) { inc %cp }
 
  if (%cp == 12) { 
    tokenize 32 $sock($sockname).mark
    echo $color(info) $4 $str($chr(160),29) [Profile] -------------------------------------------------------------------------------------------
    echo $color(other) -i21 $4 $str($chr(160),48) $2 $+ : $striphtml(%checkProf.name) %checkProf.location %checkProf.age %checkProf.gender %checkProf.married %checkProf.website %checkProf.email
    echo $color(info) $4 $str($chr(160),45) ----------------------------------------------------------------------------------------
    unset %checkProf.*
    sockclose $sockname 
    unset %cp
  }
}
 
menu channel {
  Profile Scanner
  .$iif($istok(%Prof.scan,$chan,44),$style(1)) Scan $chan : $iif($istok(%Prof.scan,$chan,44),set %Prof.scan $remtok(%Prof.scan,$chan,1,44),set %Prof.scan $addtok(%Prof.scan,$chan,44))
  -
}
on !*:JOIN:#:{ 
  if ((!$istok(%Prof.scan,$chan,44)) || (%Profileflood > 2) || ($left($nick,1) == ^) || ($left($nick,1) == >)) { halt }
  inc -u2 %Profileflood
  set %prof.ck. [ $+ [ $nick ] ] $chan
  .raw PID $nick
}
raw data:*: { 
  if ($2 == PID) { 
    if (%prof.ck. [ $+ [ $3 ] ]) {  bprofa $3 $4 %prof.ck. [ $+ [ $3 ] ]  | unset %prof.ck. [ $+ [ $3 ] ] }
  } 
  halt
}
;; Unknown author for striphtml alias
alias striphtml {
  if (!$isid) || (!$1) return
  var %H = $1 , %T = $regsub(%H,/(<[^>]+>)/g,,%H)
  if ($chr(38) isin %H) {
    set %H $replacecs(%H,&,&,"," ,<,< ,>,> ,&,& , ,$iif($prop,$chr($prop),$chr(32)) ,£,£ ,§,$chr(36) ,¨,¨ ,«,« ,»,» ,ß,ß, Ñ,Ñ ,ñ,ñ,&#39;,')
    set %H $replacecs(%H,À,À ,Á,Ã� ,Â, ,Ã,à ,Ä,Ä ,Å,Ã… ,Æ,Æ ,à,à ,á,á ,â,â ,ã,ã ,ä,ä ,å,Ã¥ ,æ,æ)
    set %H $replacecs(%H,È,È,É,É,Ê,Ê,Ë,Ë,è,è,é,é,ê,ê,ë,ë,Ì,ÃŒ,Í,Ã�,Î,ÃŽ,Ï,Ã�,ì,ì,í,í,î,î)
    set %H $replacecs(%H,ï,ï,Ò,Ã’,Ó,Ó,Ô,Ô,Õ,Õ,Ö,Ö,Ø,Ø,ò,ò,ó,ó,ô,ô,õ,õ,ö,ö,ø,ø,Ù,Ù,Ú,Ú,Û,Û,Ü,Ãœ,Ý,Ã�,ù,ù,ú,ú,û,û,ü,ü,ý,ý,ÿ,ÿ)
  }
  return %H
}