Forums Scripts & Popups Old script..new site layout.

alias high.score {
  sockclose rune
  sockopen rune www.runescape.com 80
  if ($1) {
    .sockmark rune /hiscoreuser.cgi?username= $+ $replace($1-,$chr(32),_)
  }
  else {
    .sockmark rune /hiscore.html
  }
}
on *:sockopen:rune:{
  if ($sockerr) {
    echo $color(info) -s *** Socket Error (on open) \ $sockname - $sock($sockname).ip
    return
  }
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname Host: www.runescape.com
  sockwrite -n $sockname $crlf
}
on *:sockread:rune:{
  if ($sockerr) {
    echo $color(info) -s *** Socket Error (on read) \ $sockname - $sock($sockname).ip
    return
  }
  var %tmp,%ex = ^(<table>|</td>),%un = $gettok($sock($sockname).mark,-1,61)
  sockread %tmp
  if (<font size=3> isin %tmp) { 
    tokenize 62 %tmp   
    echo -s $remove($3,</b)   
    echo -s Rank Name Level XP 
  }  
  if (<b>Name</b> isin %tmp) { 
    set %rank 0
  } 
  if (<b>Level</b> isin %tmp) {
    set %rank 0
  }  
  if (<b>XP</b> isin %tmp) {
    set %rank 0
  } 
  if (<b>Rank</b> isin %tmp) { 
    set %rank 0 
  }  
  if (You do not appear in the top isin %tmp) {
    echo -s $remove(%tmp,<br>)   
    echo -s -   
  } 
  if (This user does not appear isin %tmp) {
    echo -s %tmp
  } 
  if ((%rank isnum 0-11) && ($regex(%tmp,<br>$)) && (!$regex(%tmp,%ex))) { 
    inc %rank 
    set $+(%,rune.,%rank) $($+(%,rune.,%rank),2) $remove(%tmp,<br>) 
  }  
  if (</td></tr></table> isin %tmp) {     
    if ($var(%rune.*,0)) {   
      var %n = 1     
      while (%n <= 11) {    
        if ($($+(%,rune.,%n),2)) { 
          echo -s $iif(%un == $gettok($($+(%,rune.,%n),2),2,32),) $+ $($+(%,rune.,%n),2)  
        }     
        inc %n   
      }   
      echo -s -  
    } 
    unset %rune.* 
  } 
  if (</html> isin %tmp) { 
    unset %rune.* %rank 
  }
}

alias high.score {
  sockclose rune
  sockopen rune www.runescape.com 80
  if ($1) {
    var %c 0
    .sockmark rune /hiscoreuser.cgi?username= $+ $replace($1-,$chr(32),_) $+ &category= $+ %c
  }
  else {
    .sockmark rune /hiscores.html
  }
}
on *:sockopen:rune:{
  if ($sockerr) {
    echo $color(info) -s *** Socket Error (on open) \ $sockname - $sock($sockname).ip
    return
  }
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname Host: www.runescape.com
  sockwrite -n $sockname $crlf
}
on *:sockread:rune:{
  sockread -nt %tmp
  echo -a %tmp
}