Stuff

on $*:TEXT:$(/^(\Q $+ $me $+ \E,? )?[!@.]stats/Si):#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  else {
    if ($nick !isop $.chan && $nick !ishop $.chan && $remove($1,$chr(44)) == $me) {
      notice $nick $logo This is a staff command!
      halt
    }
    else {
      var %i = $rand(10000,99999)
      set %stats.display. $+ %i $&
        $iif($left($iif($remove($1,$chr(44)) == $me,$iif($nick ison $.chan,$2),$1),1) == @,$iif($remove($1,$chr(44)) != $me && $readini(Status2.ini,$network,$chan),.notice $nick,msg $chan),.notice $nick)
      if ($chr(42) !isin $2-) {
        if ($iif($remove($1,$chr(44)) == $me,$3,$2) == -e) {
          set %stats.exp. $+ %i yes
          if ($left($iif($remove($1,$chr(44)) == $me,$4,$3),1) == <) { 
            set %stats.less. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          }
          if ($left($iif($remove($1,$chr(44)) == $me,$4,$3),1) == >) {
            set %stats.great. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          }
          set %stats.nick. $+ %i $iif($remove($1,$chr(44)) == $me,$5,$4)
          sockopen stats. $+ %i hiscore.runescape.com 80       
        }
        else {
          if ($left($iif($remove($1,$chr(44)) == $me,$3,$2),1) == <) { 
            set %stats.less. $+ %i $iif($remove($1,$chr(44)) == $me,$3,$2)
          }
          if ($iif($remove($1,$chr(44)) == $me,$3,$2) == >) {
            set %stats.great. $+ %i $iif($remove($1,$chr(44)) == $me,$3,$2)
          }
          set %stats.nick. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          sockopen stats. $+ %i hiscore.runescape.com 80
        }
      }
      else {
        var %z = 1
        while (%z <= $calc($count($1-,$chr(42)) +1)) {
          if (%z > 3) {
            var %z = $calc($count($1-,$chr(42)) +2)
          }
          else {
            var %i = $rand(10000,99999)
            if ($gettok($iif($remove($1,$chr(44)) == $me,$3,$2),%z,42) == -e) {
              set %stats.exp. $+ %i Yes
              if ($left($gettok($iif($remove($1,$chr(44)) == $me,$4,$3),%z,42),1) == <) { 
                set %stats.less. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$4,$3),%z,42)
              }
              if ($left($gettok($iif($remove($1,$chr(44)) == $me,$4,$3),%z,42),1) == >) {
                set %stats.great. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$4,$3),%z,42)
              }
              set %stats.nick. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$5,$4),%z,42)
              sockopen stats. $+ %i hiscore.runescape.com 80       
            }
            else {
              if ($left($gettok($iif($remove($1,$chr(44)) == $me,$3,$-),%z,42),1) == <) { 
                set %stats.less. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$3,$-),%z,42)
              }
              if ($left($gettok($iif($remove($1,$chr(44)) == $me,$3,$2),%z,42),1) == >) {
                set %stats.great. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$3,$-),%z,42)
              }
              set %stats.nick. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$4,$3),%z,42)
              sockopen stats. $+ %i hiscore.runescape.com 80
            }
          }
        }
      }
    }
  }
}
on *:SOCKOPEN:Stats*: {
  Sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ $($+(%,stats,.,nick,.,$gettok($sockname,2,46)),2) HTTP/1.1
  Sockwrite -nt $sockname Host: hiscore.runescape.com
  Sockwrite -nt $sockname $crlf
}