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