alias ckprof { set %cp 0 | var %profsock $+(ckprof,$+($rand(1,99999),$rand(A,Z),$rand(a,z))) | sockopen %profsock www.chatcore.com 80 | sockmark %profsock $1 $2 }
on *:sockopen:ckprof*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /profile.php?user= $+ $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.chatcore.com
  sockwrite -n $sockname $crlf
}
on *:sockread:ckprof*: {
  if ($sockerr > 0) return | var %ckprof | sockread %ckprof
  if ($regex(%ckprof,/You do not have permission to view this profile/)) { mag $gettok($sock($sockname).mark,1,32) $gettok($sock($sockname).mark,2,32) has a private profile | sockclose $sockname }
  if ($regex(%ckprof,/The profile you are looking for has been deleted or does not exist/)) { msg $gettok($sock($sockname).mark,1,32) No profile information for $gettok($sock($sockname).mark,2,32) found | sockclose $sockname }
  if ($regex(%ckprof,/<&#092;/table>/)) && (%fps. [ $+ [ $sockname ] ]) { 
    msg $gettok($sock($sockname).mark,1,32) Welcome $gettok($sock($sockname).mark,2,32) : $gettok($sock($sockname).mark,2,32) $+ 's asl is $iif(!%fpa. [ $+ [ $sockname ] ],Unknown,%fpa. [ $+ [ $sockname ] ]) / $iif(!%fpg. [ $+ [ $sockname ] ],Unknown,%fpg. [ $+ [ $sockname ] ]) / $iif(!%fpl. [ $+ [ $sockname ] ],Unknown,%fpl. [ $+ [ $sockname ] ]) 
    /unset %fp*
    sockclose $sockname 
  }
  if ($regex(%ckprof,/<div class='profile_field_value'>(.*) <br &#092;/><&#092;/div>/)) && (%fp. [ $+ [ $sockname ] ] == l1) { set %fpl. [ $+ [ $sockname ] ] $regml(1) | set %fp. [ $+ [ $sockname ] ]  6  | unset %fp. [ $+ [ $sockname ] ] | set %fps. [ $+ [ $sockname ] ] 1 }
  if ($regex(%ckprof,/<b>Location:<&#092;/b>/)) { set %fp. [ $+ [ $sockname ] ]  l1 } 
  if ($regex(%ckprof,/<div class='profile_field_value'>(.*) <br &#092;/><&#092;/div>/)) && (%fp. [ $+ [ $sockname ] ] == g1) { set %fpg. [ $+ [ $sockname ] ] $regml(1) | unset %fp. [ $+ [ $sockname ] ] | set %fps. [ $+ [ $sockname ] ] 1 }
  if ($regex(%ckprof,/<b>Gender:<&#092;/b>/)) { set %fp. [ $+ [ $sockname ] ]  g1 } 
  if ($regex(%ckprof,/(.*)<&#092;/td>/)) && (%fp. [ $+ [ $sockname ] ] == a1) { set %fpa. [ $+ [ $sockname ] ] $right($gettok($regml(1),1,32),-1) | unset %fp. [ $+ [ $sockname ] ] | set %fps. [ $+ [ $sockname ] ] 1 }
  if ($regex(%ckprof,/(.*)field_id=4&field_value=(.*)'>(.*)<&#092;/a> <br /><&#092;/div>/)) { set %fp. [ $+ [ $sockname ] ]  a1 }
 
}
on !*:JOIN:#:{ 
  if ($left($nick,6) == Admin_) || ($left($nick,6) == Guide_) || ($left($nick,6) == Sysop_) halt
  if ($me isop $chan) && (!%profflood) { ckprof $chan $nick | set -eu2 %profflood on }
}