Someone

on *:text:!rant:#: {
  if ( %nospam > 0 ) halt
  set %nospam = 1
  timer 1 15 unset %nospam
  notice $nick The !rant script gives a listing of rants from the RS forums. Just type a word or a part of a word you are looking for... expect noob mispelling. Ex: 4!rant rev to obtain the rants about revenants.
  notice $nick Suggestions: !rant pk  -  !rant wild  -  !rant ge  -  !rant jagex  -  !rant mod -  !rant sum  -  !rant wtf  -  ....
  notice $nick Even worse! you can type 4!locked to get the list of the latest locked threads. For both of these commands, only 1 query every 4 minutes is allowed.
  notice $nick To find the best spam threads: 4!spam Wannabemods brainwork added to the electronical search, for better accuracy in the quest for spam.
}

on *:text:!rant*:#: {
  if ( %nospam2 > 0 ) { 
    notice $nick Please try again later.
    halt
  }
  if ( $2 = $null ) { halt }
  set %nospam2 = 1
  unset %rant*
  set %rantline1 0
  set %rantchan $chan
  timer 1 240 unset %nospam2
  set %word1 $2
  msg %rantchan 3Listing rants about %word1 $+ ... Please be patient.
  set %rantz 0
  set %php 1
  timer60 1 300 rantlist
  fail2

}

ALIAS rant {
  set %nospam2 = 1
  unset %rant*
  set %rantchan $active
  set %rantline1 0
  timer 1 240 unset %nospam2
  set %word1 $1
  msg %rantchan 3Listing rants about %word1 $+ ... Please be patient.
  set %rantz 0
  set %php 1
  timer60 1 300 rantlist
  fail2

}

ALIAS fail2 {
  inc %rantz
  if (%rantz > 20) {
    rantlist
    halt
  }
  if (%php > 5) { 
    rantlist
    halt
  }
  timer 1 8 sockclose $+(fail)
  timer 1 8 sockopen $+(fail) forum.runescape.com 80
}

on *:sockopen:fail: {
  sockwrite -n $sockname get /forums.ws?129,130,goto, $+ %rantz HTTP/1.1
  sockwrite -n $sockname Host: forum.runescape.com $+ $str($crlf ,2)
  fail2
}




on *:sockread:fail: {
  sockread %temp
  inc %rantline1
  ;echo -a %temp 4 %rantline1
  if (%word1 isin %temp) && (class="sticky2" isin %temp) { 
    ;echo -a 4 FOUND !!!!!!!!!!!!!!!!!!!!!!!!!!!!
    rantfound
  }
  if ( %rantline1 = %rantline2 ) {
    set %rantregex3 /class\=\"username\"\>(.*)\<\/span\>\S+/
    set %rantregex3res $regex(rantname, %temp, %rantregex3)
    set %rantname. [ $+ [ %php ] ] $regml(rantname,1)
    unset %rantline2
  }
}



<a class="sticky2" href="forums.ws?27,28,970,57057592">Old Low detail back please</a><br>  511
FOUND !!!!!!!!!!!!!!!!!!!!!!!!!!!!
rantline2  <a class="sticky2" href="forums.ws?27,28,970,57057592">Old Low detail back please</a><br>
title:
<span class="nt">created by <span class="username">Liverpol666</span></span>  512

ALIAS rantfound { 

  set %rantline2 $calc(%rantline1 + 1)
  ;echo -a 4rantline2  %temp
  set %rant. [ $+ [ %php ] ] %temp
  ;echo -a 4 %rant. [ $+ [ %php ] ] %temp
  set %rantregex /\"\>(.*)\<\/a\>\<br\/\>/
  set %rantregex2 $regex(rantitle, %rant. [ $+ [ %php ] ], %rantregex)
  ;if ($remgl(rantitle,1) != 0) echo -a 3 titre ok
  set %rantitle. [ $+ [ %php ] ] $regml(rantitle,1)
  ;echo -a 6title: %rantitle. [ $+ [ %php ] ]   $remgl(rantitle,1)
  set %ranturlregex /href\=\"(.*)\"/
  set %ranturlregex2 $regex(ranturl, %rant. [ $+ [ %php ] ], %ranturlregex)
  set %ranturl. [ $+ [ %php ] ] http://forum.runescape.com/ $+ $regml(ranturl,1)
  ;echo -a 6url: %ranturl. [ $+ [ %php ] ] http://forum.runescape.com/ $+ $regml(ranturl,1)
  inc %php

}

set %rantregex /\S+\"\>(.*)\<\/a\>\<br\>/

ALIAS rantlist {
  timer60 off
  msg %rantchan 4Top 5 rants listing the word %word1 $+ :
  if (%rantitle.1 = $null) {
    msg %rantchan Sorry noobs, no rant with the word %word1 was found. I strongly suggest you to go ranting about the lack of rants about %word1 $+ . 
  }
  if (%rantitle.1 != $null) { msg %rantchan 1 - 10 $+ %rantitle.1 7 $+ %ranturl.1 12( $+ %rantname.2 $+ ) }
  if (%rantitle.2 != $null) timer 1 1 msg %rantchan 2 - 10 $+ %rantitle.2 7 $+ %ranturl.2 12( $+ %rantname.3 $+ )
  if (%rantitle.3 != $null) timer 1 3 msg %rantchan 3 - 10 $+ %rantitle.3 7 $+ %ranturl.3 12( $+ %rantname.4 $+ )
  if (%rantitle.4 != $null) timer 1 5 msg %rantchan 4 - 10 $+ %rantitle.4 7 $+ %ranturl.4 12( $+ %rantname.5 $+ )
  if (%rantitle.5 != $null) timer 1 7 msg %rantchan 5 - 10 $+ %rantitle.5 7 $+ %ranturl.5 12( $+ %rantname.6 $+ )
  unset %rant*
  halt


}

------------------------- L O C K E D    R A N T S ----------------------------------

on *:text:!locked*:#: {
  if ( %nospam2 > 0 ) { 
    notice $nick Please try again later.
    halt
  }
  set %nospam2 = 1
  unset %rant*
  set %rantchan $chan
  timer 1 240 unset %nospam2
  msg %rantchan 3Listing latest locked rants $+ ... Please be patient.
  set %rantz 0
  set %rantline1 0
  set %php 1
  timer60 1 300 rantlist2
  fail3

}




ALIAS lock {
  unset %rant*
  set %locked 0
  set %rantline1 0
  set %nospam2 = 1
  set %rantchan $active
  timer 1 240 unset %nospam2
  msg %rantchan 3Looking for locked rants $+ ... Please be patient.
  set %rantz 0
  set %php 1
  timer60 1 300 rantlist2
  fail3
}


ALIAS fail3 {
  inc %rantz
  if (%rantz > 20) { 
    rantlist2
  halt }
  if (%php > 5) { 
    rantlist2
  halt }
  timer 1 8 sockclose $+(fail2)
  timer 1 8 sockopen $+(fail2) forum.runescape.com 80
}

on *:sockopen:fail2: {
  sockwrite -n $sockname get /forums.ws?129,130,goto, $+ %rantz HTTP/1.1
  sockwrite -n $sockname Host: forum.runescape.com $+ $str($crlf ,2)
  fail3
}

on *:sockread:fail2: {
  inc %locked
  inc %rantline1
  sockread %temp
  ;echo -a %temp 4 %rantline1
  if (locked isin %temp) { 
    set %locked2 $calc(%locked + 1)
    ;echo -a 3 locked found ! 
  }
  if (hidden<br> isin %temp) || (bugtracker isin %temp) {
    ;echo -a 4 hidden  %temp
    unset %locked2
  }  
  if (sticky" isin %temp) {
    unset %locked2
  }
  if (appeal&amp isin %temp) {
    unset %locked2
  }

  if (%locked = %locked2) && (hidden<br> !isin %temp) && (moved !isin %temp) {
    ;echo -a 11ligne 204 %temp
    rantfound2
  }
  if ( %rantline1 = %rantline2 ) && ( %locked2 != $null ) {
    set %rantregex3 /class\=\"username\"\>(.*)\<\/span\>\<\/span\>/
    set %rantregex3res $regex(rantname, %temp, %rantregex3)
    set %rantname. [ $+ [ %php ] ] $regml(rantname,1)
    ;echo -a 6 %rantname. [ $+ [ %php ] ]
    unset %rantline2
  }

}

ALIAS rantfound2 { 
  if ( hidden<br> isin %temp ) || (bugtracker isin %temp) halt
  set %rantline2 $calc(%rantline1 + 1)
  set %rant. [ $+ [ %php ] ] %temp
  set %rantregex /\S+\"\>(.*)\<\/a\>\S+/
  ;echo -a 7tentative d'extraction de titre:   %rant. [ $+ [ %php ] ]
  set %rantregex2 $regex(rantitle, %rant. [ $+ [ %php ] ], %rantregex)
  set %rantitle. [ $+ [ %php ] ] $regml(rantitle,1)
  ;echo -a 3 title %rantitle. [ $+ [ %php ] ] %rantline1 %rantline2
  set %ranturlregex /href\=\"(.*)\"/
  set %ranturlregex2 $regex(ranturl, %rant. [ $+ [ %php ] ], %ranturlregex)
  set %ranturl. [ $+ [ %php ] ] http://forum.runescape.com/ $+ $regml(ranturl,1)
  ;echo -a 3 title %ranturl. [ $+ [ %php ] ]
  inc %php
  ;echo -a 3 php incr to %php

}


</td>  1582
</tr>  1583
<tr class="thdnrml">  1584
<td class="threadtitle">  1585
<img alt="Thread is locked" title="Thread is locked" src="http://www.runescape.com/img/forum/buttons/locked.gif"/>  1586
locked found !
<a class="sticky2" href="forums.ws?129,130,598,61592078">help me!</a><br/>  1587
<span class="nt">created by <span class="username">l3eelzebub</span></span>  1588
</td>  1589
<td class="n posts">  1590
3  1591
</td>  1592
<td class="updated">  1593
27-Aug-2010 19:18:14  1594
<br/>by Mr Joel D  1595
</td>  1596

ALIAS rantlist2 {
  timer60 off
  msg %rantchan 4Top 5 locked rants $+ :
  if (%rantitle.1 = $null) {
    msg %rantchan Sorry noobs, no locked rants was found. If you want to see some locked rants, I'm sure you know what to do.
  }
  if (%rantitle.1 != $null) { msg %rantchan 1 - 10 $+ %rantitle.1 7 $+ %ranturl.1 12( $+ %rantname.2 $+ ) }
  if (%rantitle.2 != $null) timer 1 1 msg %rantchan 2 - 10 $+ %rantitle.2 7 $+ %ranturl.2 12( $+ %rantname.3 $+ )
  if (%rantitle.3 != $null) timer 1 3 msg %rantchan 3 - 10 $+ %rantitle.3 7 $+ %ranturl.3 12( $+ %rantname.4 $+ )
  if (%rantitle.4 != $null) timer 1 5 msg %rantchan 4 - 10 $+ %rantitle.4 7 $+ %ranturl.4 12( $+ %rantname.5 $+ )
  if (%rantitle.5 != $null) timer 1 7 msg %rantchan 5 - 10 $+ %rantitle.5 7 $+ %ranturl.5 12( $+ %rantname.6 $+ )
  unset %rant*
  halt


}



<td class="threadtitle">  1558
<img alt="Thread is locked" title="Thread is locked" src="http://www.runescape.com/img/forum/buttons/locked.gif"/>  1559
locked found !
<a class="sticky2" href="forums.ws?129,130,740,61592093">YOU RETURN TO ME</a><br/>  1560
<span class="nt">created by <span class="username">l3eelzebub</span></span>  1561
</td>  1562
<td class="n posts">  1563
2  1564