Anonymous

on *:SOCKOPEN:skills.*:{
  .var %n = $gettok($sock($sockname).mark,7,58)
  if ($len($gettok($sock($sockname).mark,1,58)) > 12) || ($chr(36) isin $gettok($sock($sockname).mark,1,58)) {
    $gettok($sock($sockname).mark,2,58) $logo(%n,error) $c1(Username has to contain $+(Spaces,$chr(44)) $+(underscores,$chr(44)) $+(numbers,$chr(44)) letters and 12 characters max.)
    .sockclose $sockname | .halt
  }
  .sockwrite -nt $sockname GET $+(/lookup.php?type=stats&user=,$gettok($sock($sockname).mark,1,58)) HTTP/1.1
  .sockwrite -nt $sockname HOST: www.rscript.org
  .sockwrite -nt $sockname $+($crlf,$crlf)
}

on *:SOCKREAD:skills.*:{
  .var %n = $gettok($sock($sockname).mark,7,58)
  .var %display = $gettok($sock($sockname).mark,2,58), %rsn = $gettok($sock($sockname).mark,1,58)
  .var %display2 = $gettok($sock($sockname).mark,6,58)
  if ($sockerr) { %display ** (ERROR): Trouble connecting to www.rscript.org | .sockclose $sockname | .halt }
  .var %sockreader
  .sockread %sockreader
  if $regex(%sockreader,/not found/Si) {
    %display $logo(%n,error) $c1(The username) $+($c1,",$c2(%n,$gettok($sock($sockname).mark,1,58)),$c1,") $c1(was not found in the RuneScape hiscores.)
    .sockclose $sockname | .halt
  }
  if $regex(%sockreader,/STAT/Si) {
    .var %x = 1
    while (%x <= 28) {
      if ($remove($gettok(%sockreader,1,32),STAT:)) {
        .hadd -m $sockname $remove($gettok(%sockreader,1,32),STAT:) $remove($replace($gettok(%sockreader,2-,32),$chr(32),$chr(44)),$chr(45))
      }
      .sockread %sockreader | .inc %x
    }
    if (!$gettok($hget($sockname,$gettok($sock($sockname).mark,3,58)),2,44)) { 
      %display $logo(%n,error) $c1(The username) $+($c1,",$c2(%n,$gettok($sock($sockname).mark,1,58)),$c1,") $c1(was not found in the RuneScape hiscores for) $+($c2(%n,$gettok($sock($sockname).mark,3,58)),$c1,.)
      .sockclose $sockname | .halt
    }