Hawkee User Profile Lookup (Search by Nicknames)

[chain]

irst off, I'd like to give credit to jaytea who's contributed the idea of using Google's "I'm Feeling Lucky" search engine in conjunction with locating Hawkee's user profiles. Secondly, I'd like to thank Aha2y for giving me the inspiration to write up a socket script to check up upon users' profiles via mIRC. Finally, this script is, as always, self-explanatory at its simplest.

 

*** ATTENTION ***

Please take note that there's a glitch that you might get from time to time. As per jaytea's mention about indexing issues, some Hawkee users who registered and never posted anything may return an incorrect result. This script does not do a direct searching at Hawkee but borrowing Google's search engine as a gateway, so sometimes the glitch may include, but is not limited to, partial profile info or embedded html codes. When that occurs, simply trigger the script again and you may get, 4 out of 5 times, a completely correct user profile info.

 

 

 

>[/size][/color][/font][font="monospace"][color="#000000"][size=2]alias hawkeeuser {  if (userpro* iswm $sock($sockname).name) sockclose $v2  var %hawkee = $+(hawkeeuser,$str($+($ticks,$r(1,9999)),6))  sockopen %hawkee www.google.com 80  sockmark %hawkee $regsubex($1,/^(.)/,$upper(1)) $&	$iif($event != text,echo -ag,.msg $iif(#,#,$nick))  set %huser_chan $token($sock(%hawkee).mark,2-3,32)}on $*:sockopen:/(hawkeeuser|userpro)d+/:{  tokenize 32 $sock($sockname).mark  if (hawkeeuser* iswm $sock($sockname).name)  {	if ($sockerr) { $2-3 I'm having trouble connecting! | halt }	var %h = sockwrite -nt $sockname, %s = $sock($sockname).addr	%h GET $+(/search?sclient=psy-ab&hl=en&site=&source=hp&q=$&	  $+ site%3Ahawkee.com+%22,$1,%,27s+profile%22&btnI=I%27m$&	  $+ +Feeling+Lucky) HTTP/1.0 | %h Host: %s	%h Referer: %s | %h Connection: close | %h | return  }  var %h2 = sockwrite -nt $sockname | %h2 GET %huser HTTP/1.0  %h2 Host: $+($sock($sockname).addr,$str($crlf,2)) | %h2 Connection: close}on $*:sockread:/(hawkeeuser|userpro)d+/:{  tokenize 32 $sock($sockname).mark  if (hawkeeuser* iswm $sock($sockname).name)  {	if ($sockerr) { $2-3 I'm having trouble reading the websites! | halt }	var %data | sockread %data | if (%data == HTTP/1.0 302 Found) {	  sockread %data | noop $regex(%data,/(d+)/)	  set %huser $+(/,profile/,$regml(1)) | sockclose $sockname	  var %hawkee2 = $+(userpro,$str($+($ticks,$r(1,9999)),6))	  sockopen %hawkee2 www.hawkee.com 80 | sockmark %hawkee2 %huser_chan	  return	}	$2-3 No such user named $qt($1) found at Hawkee.com	sockclose $sockname | halt  }  sockread &userpro | var %hawkee = /.*> (.+'s Profile.*)sLatest.*/  if ($regsubex($bvar(&userpro,1-).text,/<[^>]*>|s|amp;/g,$chr(32))) {	var %v1 = $v1 | if ($regex(%v1,%hawkee)) {	  var %i = $regsubex($token($regml(1),3-,32),/(Home >|About Me.*In)/i,)	  set %huser_x1 $+(-[,$chr(160),$replace($+($token(%i,1-2,32),$&		$chr(32)),'s profile,$+($chr(2),'s Profile,$chr(2))),$chr(160),-,$chr(160) $&		$replace($token(%i,3-6,32),joined:,$+($chr(2),Joined:,$chr(2))),$chr(160),]-) $&		$iif($regex(%i,/(Occupation:.*).*L/),$replace($regml(1),$&		occupation:,$+($chr(2),Occupation:,$chr(2)))) $&		$iif($regex(%i,/(?<=^|s)((?>[a-z]{3,6}://|w{3}.)S+)/g),$&		$+($chr(2),Website:,$chr(2),$chr(32),$regml(1))) $chr(160) $&		$iif($regex(%i,/(Interests.*)/),$replace($regml(1),$&		interests,$+($chr(2),Interests:,$chr(2))))	}	if ($regex(%v1,%hawkee)) {	  set %huser_x3 $regsubex($iif($regex($regml(1),/(Location:.*).*Inte/),$&		$replace($regml(1),Location:,$+($chr(2),Location:,$chr(2)))),/website.*/i,)	}	elseif ($regex(%v1,/.*(s.*+d+.*)/)) { var %1 = $regml(1)	  set %huser_x2 $+($chr(2),Gains:,$chr(2)) $chr(160) $token(%1,1-2,32)) $&		$chr(160) $+($chr(2),Last Seen On:,$chr(2)) $chr(160) $&		$token($remove($token(%1,3-,32),last seen),1-3,32) $chr(160) $&		$iif($regex(%1,/.*(Likes)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160) $&		$iif($regex(%1,/.*(Scripts)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160) $&		$iif($regex(%1,/.*(Snippets)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160) $&		$iif($regex(%1,/.*(Images)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160) $&		$iif($regex(%1,/.*(Reviews)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160) $&		$iif($regex(%1,/.*(Comments)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160) $&		$iif($regex(%1,/.*(Forum Posts)(.*)/),$+($chr(2),$regml(1),:,$&		$chr(2)) $chr(160) $token($regml(2),1,32)) $chr(160)	}	:error | if (socket unavailable isin $error) { reseterror }  }}on $*:text:/^[!@=.]hawkee( |$)/iS:*:{  if (!$($+(%,fcon,$site,#,$network,$cid),2)) {	inc -u3 $+(%,fcon,$site,#,$network,$cid)	if (!$strip($2)) { .notice $nick Usage: !, @, =, or .hawkee <User Name> }	else {	  .msg $iif(#,#,$nick) Searching for $strip($2) $+ 's Profile....	hawkeeuser $strip($2) } | return  }  .notice $nick Please wait at least 3 seconds before using me again!  .ignore -cpu5 $nick 2}on $*:sockclose:/(hawkeeuser|userpro)d+/:{  if (hawkeeuser* !iswm $sock($sockname).name)  {	%huser_chan $+(%huser_x1,$chr(160),%huser_x2 $chr(160),%huser_x3)	unset %huser*  }}