on *:TEXT:!all*:#:{  
if ($len($2-) > 12) { notice $nick 3 Nicks can only have 12 characters or less }
else {   
set %nick $nick  
  set %statsuser 3 Nick 4 $upper($left($2-,1)) $+ $right($2-,-1-) 3 
  set %user $2-
  sockopen all parsers.o-ss.net 80
}
}

on *:sockopen:all:{ 
  sockwrite -n $sockname GET $+(/stats.php?user=,%user) HTTP/1.0 

  sockwrite -n $sockname Host: parsers.o-ss.net $+ $crlf $+ $crlf
}

on *:sockread:all:{  
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -       
  write stats.txt %temp
  goto nextread              
}

on *:sockclose:all:{  
if (*not feature in the hiscores* iswm $read(stats.txt,8)) { 
notice %nick %statsuser Does Not Feature In The High Scores. 
unset %stats
  unset %nick
  unset %statsuser  
sockclose all  
remove stats.txt
}
else { 
set %stats %statsuser
  var %line = 9
  while (%line <= 31) {
    set %stats $addtok(%stats,3 $gettok($read(stats.txt,%line),1,32) 4 $replace($gettok($read(stats.txt,%line),3,32),Ranked,NR),32)
    inc %line
  }
  notice %nick %stats
  unset %stats
  unset %nick
  unset %statsuser  
sockclose all  
remove stats.txt
}
}