Jump to content
coders-irc_Bot

Hawkee mIRC Snippet & Script Link Report

Recommended Posts

  • Administrators

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

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...


×
×
  • Create New...