iLike :D

EDiT:
Here is a small edit of original code
[18:42:15] <~MashhitDK> http://www.hawkee.com/scripts/23905971/
[18:42:16] <~SRU> [TiTLE] Password Character Picker Added: Nov 12, 2011 by: Jonesy44

[18:42:20] <~MashhitDK> http://www.hawkee.com/snippet/9146/
[18:42:21] <~SRU> [TiTLE] Hawkee mIRC Snippet & Script Link Report (8.7/10 -#- 5 likes) Added: Nov 19, 2011

on *:sockclose:hawkeesnippet_*:{
  .msg %HawkeeC [14TiTLE] $+(7,%Hawkee_Title,) $+($iif(%Hawkee_Score,$+(15,$chr(40),,$v1)),$iif(%Hawkee_Likes,$+($chr(32),14-4#14-) $v1 $+(3like,$iif($v1 > 1,s),15,$chr(41),))) 14Added: $iif(%Hawkee_DateA != %Hawkee_DateU,$v1 5Updated: $v2,$v1) $iif(%Hawkee_Devl,14by: $v1) | unset %Hawkee*
}
on *:sockopen:hawkeesnippet_*:{
  if ($sockerr) { $3-4 $sock($sockname).addr is having a technical difficulty. Try again later. | return }
  tokenize 32 $sock($sockname).mark 
  var %hawkee = sockwrite -nt $sockname
  %hawkee GET $2 HTTP/1.0
  %hawkee Host: $+($sock($sockname).addr,$str($crlf,2))
  %hawkee Connection: close
}
on $*:text:/(http\072\/\/)?w{3}\.hawkee\.com(\/s(nippet|cripts).*\/)/:#:{
  if (!%Hawkee) { set -u30 %HawkeeC #
    var %hawkeee = $+(hawkeesnippet_script,$site,$str($ticks,3)) 
    var %hawkeeinfo = $remove($+($regml(1),$regml(2)),http://)
    sockopen %hawkeee www.hawkee.com 80
    sockmark %hawkeee $!bvar(&hawkee,1-).text %hawkeeinfo .msg #
  }
}
on *:sockread:hawkeesnippet_*:{
  tokenize 32 $sock($sockname).mark | sockread &hawkee 
  if ($sockerr) { $3-4 $sock($sockname).addr is having a technical difficulty. Try again later. | return }
  ;********************************************************************************************************
  var %d = /(?s)(Description)</h1>(\s*\K.+?(?=\s*).*)/
  var %t = /<title>(.*)-/, %l = /<b>(\d+)<\/b>( like\(s\))<\/span>/
  var %s = /px"><b>(.*)<\/b>.*(\(.*\))<\/span>/, %a = /(.*)</b></td>/
  var %lu = /(?s)Last Updated&nbsp;<\/td>(\s*\K.+?(?=\s*).*)/
  ;********************************************************************************************************
  if ($regex([ [ $1 ] ],%t)) { set %Hawkee_Title $regml(1) }
  if ($regex([ [ $1 ] ],/-bottom: 6px;">(.*)</div>/)) { set %Hawkee_Devl $regml(1) }
  if ($regex([ [ $1 ] ],%l)) { set %Hawkee_Likes $regml(1) }
  if ($regex([ [ $1 ] ],%s)) { set %Hawkee_Score $+($regml(1),14/10) }
  if (date added isin [ [ $1 ] ]) && ($regex($v2,%a)) { set %Hawkee_DateA $token($regml(1),-1,62) }
  if ($regex([ [ $1 ] ],%lu)) { set %Hawkee_DateU $token($token($regml(1),3,62),1,60) }
  if ($regex([ [ $1 ] ],/6px;"><b>(\S+ \d+, \d{4})/)) { set %Hawkee_DateA $regml(1) }
  if ($regex([ [ $1 ] ],/center;">(\S+ \d+, \d{4})/)) { set %Hawkee_DateU $regml(1) }
  ;********************************************************************************************************
}