-See Below-
;Hawkee.com mIRC Snippet Search
;Command: /hs -t/c <search word>
;
;Parimitor -t searches Snippet Titles and -c searches Snippet Codes
;
;Ex1: /hs -t help bot
;Ex2: /hs -c alias
alias hs {
if ($sock(hsearch)) { sockclose hsearch }
sockopen hsearch www.hawkee.com 80
sockmark hsearch $+($replace($2-,$chr(32),+),:,$me,:,$iif(*t iswm $1,t,c))
echo 4 -se Processing Request...
}
on *:sockopen:hsearch: {
sockwrite -n $sockname GET /snippets.php?snippet_type=mirc&search_query= $+ $gettok($sock($sockname).mark,1,58) $+ &search_type=snippet $+ $iif($gettok($sock($sockname).mark,3,58) == t,_title,_code) HTTP/1.1
sockwrite -n $sockname Host: www.hawkee.com
sockwrite -n $sockname $crlf
%hsearch.result = 0
}
on *:sockread:hsearch: {
var %tmp
sockread %tmp
if (*<td valign=top><a href="snippet.php?snippet_id=*">*</a></td>* iswm %tmp) { echo 4 -s $+(Script Name:,$chr(3),12,$chr(32),$nohtml($v2),$chr(32),$chr(3),4,Script Link:,$chr(3),12,$chr(32),$chr(31),www.hawkee.com,/,$hawkee($v2).slink) | inc %hsearch.result }
elseif (*<td valign=top><a href='/phpBB2/profile.php?mode=viewprofile&u=*' class=''>*</a></td>* iswm %tmp) { echo 4 -s $+(Author Name:,$chr(3),12,$chr(32),$nohtml($v2),$chr(32),$chr(3),4,Author Link:,$chr(3),12,$chr(32),$chr(31),$remove($+(www.hawkee.com,$hawkee($v2).plink),$chr(32))) }
}
on *:sockclose:hsearch: { echo 4 -se Request Filled With $calc(%hsearch.result) Results }
alias -l nohtml {
var %a,%b
%b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
return %a
}
alias hawkee {
if ($prop == slink) { return $gettok($replace($1,<td valign=top><a href=",$chr(32),">,$chr(32),</a></td>,$chr(32)),1,38) }
elseif ($prop == plink) { return $remove($gettok($replace($1,<td valign=top><a href=',$chr(32)),1-2,38),$chr(9)) }
}