All pastes #253841 Raw Edit

Untitled

public text v1 · immutable
#253841 ·published 2006-11-21 03:55 UTC
rendered paste body
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>

<p>on $*:TEXT:/^[!@]rsf */Si:#: {<br>
if ($sock(rsf)) { halt }<br>
var %yay<br>
%yay = $regex(type,$2-,/(-s&quot;.+?&quot;)/Si)<br>
%yay = $regex(num,$2-,/(-n[0-9]+)/Si)<br>
.set %rsf.out $iif($left($1,1) == @,msg $chan,notice $nick)<br>
.set %rsf.num $iif($regml(num,1) &amp;&amp; $remove($regml(num,1),-n) &lt; 
80,$remove($regml(num,1),-n),1)<br>
if ($replace(%rsf.string,+,$chr(32)) == 
$remove($2-,$regml(num,1),$regml(type,1))) { .f.display | halt }<br>
.set %rsf.string $replace($remove($2-,$regml(num,1),$regml(type,1)),$chr(32),+)<br>
.set %rsf.styp $f.stype($remove($regml(type,1),-s,&quot;))<br>
.set %rsf.rw $false<br>
.unset %rsf.ret.*<br>
.sockopen rsf forum.runescape.com 80<br>
}<br>
alias nohtml {<br>
var %x,%i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x)<br>
%x = $replace(%x,&amp;nbsp;,$null)<br>
return %x<br>
}<br>
alias f.stype {<br>
if (!$1 || $1 == All forums) { return -1 }<br>
if ($1 == News &amp; Announcements) { return 13 }<br>
if ($1 == General) { return 14 }<br>
if ($1 == Recent Updates) { return 15 }<br>
if ($1 == Future Updates) { return 16 }<br>
if ($1 == Item Discussion) { return 17 }<br>
if ($1 == Locations) { return 18 }<br>
if ($1 == Monsters) { return 19 }<br>
if ($1 == Quests) { return 20 }<br>
if ($1 == Clue Scrolls) { return 21 }<br>
if ($1 == Skills) { return 22 }<br>
if ($1 == Off Topic) { return 23 }<br>
if ($1 == Suggestions) { return 24 }<br>
if ($1 == Tech Support) { return 25 }<br>
if ($1 == Compliments) { return 26 }<br>
if ($1 == Rants) { return 27 }<br>
if ($1 == Forum Feedback) { return 28 }<br>
if ($1 == Website Feedback) { return 29 }<br>
if ($1 == Crafting) { return 30 }<br>
if ($1 == Fletching) { return 31 }<br>
if ($1 == Farming) { return 32 }<br>
if ($1 == Food) { return 33 }<br>
if ($1 == Herblore) { return 34 }<br>
if ($1 == Ores and Bars) { return 35 }<br>
if ($1 == Construction) { return 56 }<br>
if ($1 == Discontinued Items) { return 36 }<br>
if ($1 == Runes) { return 37 }<br>
if ($1 == Weapons) { return 38 }<br>
if ($1 == Armour) { return 39 }<br>
if ($1 == Treasure Trail Items) { return 40 }<br>
if (Misc* iswm $1) { return 41 }<br>
if ($1 == Events) { return 42 }<br>
if ($1 == Forums Games) { return 55 }<br>
if ($1 == Clans Reqruitment) { return 43 }<br>
if ($1 == Clans Discussion) { return 44 }<br>
if ($1 == Duelling) { return 45 }<br>
if ($1 == Roleplaying) { return 46 }<br>
if (PK* iswm $1) { return 47 }<br>
if ($1 == Goals &amp; Achievements) { return 48 }<br>
if ($1 == Stories) { return 49 }<br>
if ($1 == RSC General) { return 50 }<br>
if (RSC Market* iswm $1) { return 51 }<br>
if (RSC PK* iswm $1) { return 52 }<br>
if ($1 == RSC Clans) { return 53 }<br>
if ($1 == RSC Rants) { return 54 }<br>
else { return -1 }<br>
}<br>
alias f.title { return $($+(%,rsf.ret.title.,$1),2) }<br>
alias f.date { return $($+(%,rsf.ret.date.,$1),2) }<br>
alias f.rel { return $($+(%,rsf.ret.sword.,$1),2) }<br>
alias f.url { return http://forum.runescape.com/lang/en/aff/runescape/ $+ 
$($+(%,rsf.ret.url.,$1),2) }<br>
alias f.qfind { return $replace($gettok($($+(%,rsf.ret.url.,$1),2),2,63),$chr(44),-) 
}<br>
alias f.loc { return $($+(%,rsf.ret.loc.,$1),2) }<br>
alias tc1 { return $+($chr(3),04,$1,$chr(3),) }<br>
alias tc2 { return $+($chr(3),07,$1,$chr(3),) }<br>
on *:SOCKOPEN:rsf: {<br>
if ($sockerr) { echo 4 -s ** SockOpen Error ** $sock($sockname).wsmsg | return }<br>
.sockwrite -n $sockname GET /lang/en/aff/runescape/searchthreads.ws?search=search&amp;srcfrm= 
$+ %rsf.styp $+ &amp;srcstr= $+ %rsf.string HTTP/1.1<br>
.sockwrite -n $sockname Host: forum.runescape.com $+ $crlf $+ $crlf<br>
}<br>
on *:SOCKREAD:rsf: {<br>
if ($sockerr) { echo 4 -s ** SockRead Error ** $sock($sockname).wsmsg | return }<br>
.sockread %rsf<br>
if ($remove(%rsf,&amp;nbsp;,$chr(32)) == $null) { halt }<br>
if (*&lt;DIV class=searchresult&gt;* iswm %rsf) { .set %rsf.rw $true | halt }<br>
if (%rsf.rw == $false) { halt }<br>
if (&lt;/DIV&gt; == %rsf) {<br>
.set %rsf.rw $false<br>
if ($var(%rsf.ret.title.*,0) == %rsf.num) { .f.display }<br>
halt<br>
}<br>
if (*/lang/en/aff/runescape/img/kbase/sword* iswm %rsf) { .set $+(%,rsf.ret.sword.,$calc($var(%rsf.ret.title.*,0) 
+1)) $gettok(%rsf,2,34) | halt }<br>
elseif (&lt;a href=* iswm %rsf) {<br>
.set $+(%,rsf.ret.url.,$calc($var(%rsf.ret.url.*,0) +1)) $gettok(%rsf,2,34)<br>
.set $+(%,rsf.ret.title.,$calc($var(%rsf.ret.title.*,0) +1)) $nohtml(%rsf)<br>
}<br>
elseif (in forum* iswm %rsf) { .set $+(%,rsf.ret.loc.,$calc($var(%rsf.ret.loc.*,0) 
+1)) $nohtml($remove(%rsf,in forum)) }<br>
else { .set $+(%,rsf.ret.date.,$calc($var(%rsf.ret.date.*,0) +1)) %rsf }<br>
}<br>
on *:SOCKCLOSE:rsf: {<br>
if ($var(%rsf.ret.title.*,0) &lt;= %rsf.num) {<br>
.f.display<br>
}<br>
}<br>
alias f.display {<br>
if ($($+(%,rsf.ret.title.,%rsf.num),2) == $null) { %rsf.out $tc2(No match to 
return.) | halt }<br>
%rsf.out $+($chr(35),%rsf.num,:) $tc2($f.title(%rsf.num)) ( $+ $tc2($f.rel(%rsf.num)) 
$+ ) $tc1(Posted on) $tc2($f.date(%rsf.num)) $tc1(In) $tc2($f.loc(%rsf.num)) - 
$tc1(QuickFind) $tc2($f.qfind(%rsf.num)) // $tc2($f.url(%rsf.num))<br>
}</p>

</body>

</html>