Hawkee mIRC Snippet & Script Link Report

[coders-irc_Bot]

This is a forum request made by toclafane1 who wants a script to be able to report the info about a snippet or script's title, likes, average score, date added, and last updated via its link when posted.> check out www.hawkee.com/snippet/9097/

Title: RottenTomato Movie Search Likes: 2 like(s) Average Score: 6.5 (of 2 scores) Date Added: Oct 23, 2011 Last Updated: Oct 24, 2011> let's see about this link: http://www.hawkee.com/scripts/23905971/ Title: Password Character Picker Developer: Jonesy44 Likes: 0 like(s) Date Added: Nov 12, 2011 ```mirc on *:exit: if ($isfile(hawkee)) .remove hawkee on *:sockclose:hawkeesnippet_*:{ .play -c $token($sock($sockname).mark,4,32) hawkee 2000 } on *:sockopen:hawkeesnippet_*:{ if (!$sockerr) { write -c hawkee 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 } else $3-4 $sock($sockname).addr is having a technical difficulty. Try again later. } on $*:text:/(http\072\/\/)?w{3}\.hawkee\.com(\/s(nippet|cripts).*\/)/:#:{ if (!$play(#)) { 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) { var %d = /(?s)(Description)(\s*\K.+?(?=\s*).*)/ var %t = /(.*)-/, %l = /(\d+)<\/b>( like\(s\))<\/span>/ var %s = /px">(.*)<\/b>.*(\(.*\))<\/span>/, %a = /(.*)/ var %lu = /(?s)Last Updated <\/td>(\s*\K.+?(?=\s*).*)/ if ($regex([ [ $1 ] ],%t)) { write hawkee $3-4 $+($chr(2),Title:,$chr(2)) $regml(1) } if ($regex([ [ $1 ] ],/-bottom: 6px;">(.*)

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) }
  ;********************************************************************************************************
}