Someone

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 {
      if ($chr(42) !isin $2-) {
        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 (($iif($remove($1,$chr(44)) == $me,$3,$2) == -e) && ($left($iif($remove($1,$chr(44)) == $me,$3,$2),1) == <) || ($iif($remove($1,$chr(44)) == $me,$3,$2) == >)) {
          set %stats.exp. $+ %i yes
          if ($left($iif($remove($1,$chr(44)) == $me,$4,$3),1) == <) { 
            set %stats.sign. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          }
          if ($left($iif($remove($1,$chr(44)) == $me,$4,$3),1) == >) {
            set %stats.sign. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          }
          set %stats.nick. $+ %i $iif($remove($1,$chr(44)) == $me,$5,$4)
          sockopen stats. $+ %i www.o-ss.net 80       
        }
        elseif (($left($iif($remove($1,$chr(44)) == $me,$3,$2),1) == <) || ($iif($remove($1,$chr(44)) == $me,$3,$2) == >)) {
          if ($left($iif($remove($1,$chr(44)) == $me,$3,$2),1) == <) { 
            set %stats.sign. $+ %i $iif($remove($1,$chr(44)) == $me,$3,$2)
          }
          elseif ($iif($remove($1,$chr(44)) == $me,$3,$2) == >) {
            set %stats.sign. $+ %i $iif($remove($1,$chr(44)) == $me,$3,$2)
          }
          set %stats.nick. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          sockopen stats. $+ %i www.o-ss.net 80
        }
        elseif ($iif($remove($1,$chr(44)) == $me,$3,$2) == -e) {
          set %stats.exp. $+ %i yes
          set %stats.nick. $+ %i $iif($remove($1,$chr(44)) == $me,$4,$3)
          sockopen stats. $+ %i www.o-ss.net 80
        }
        else {
          set %stats.nick. $+ %i $iif($remove($1,$chr(44)) == $me,$3,$2)
          sockopen stats. $+ %i www.o-ss.net 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)
            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 ($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.sign. $+ %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.sign. $+ %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 www.o-ss.net 80
              inc %z      
            }
            elseif (($left($gettok($iif($remove($1,$chr(44)) == $me,$3,$-),%z,42),1) == <) || ($left($gettok($iif($remove($1,$chr(44)) == $me,$3,$-),%z,42),1) == >)) {
              if ($left($gettok($iif($remove($1,$chr(44)) == $me,$3,$-),%z,42),1) == <) { 
                set %stats.sign. $+ %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.sign. $+ %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 www.o-ss.net 80
              inc %z  
            }
            else {
              set %stats.nick. $+ %i $gettok($iif($remove($1,$chr(44)) == $me,$3,$2),%z,42)
              sockopen stats. $+ %i www.o-ss.net 80
              inc %z  
            }
          }        
        }
      }
    }
  }
}
on *:SOCKOPEN:Stats*: {
  Sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $($+(%,stats,.,nick,.,$gettok($sockname,2,46)),2) HTTP/1.1
  Sockwrite -nt $sockname Host: www.o-ss.net
  Sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Stats*: {
  var %sockread
  sockread %sockread
  if (*mining* Iswm %sockread) {
    set %stats.yes. $+ $gettok($sockname,2,46) kindof
  }
  if (*overall* iswm %sockread) {
    set %stats.yes. $+ $gettok($sockname,2,46) yes
  }
  if (($($+(%,stats,.,yes,.,$gettok($sockname,2,46)),2) == yes) && (*end* !iswm %sockread)) {
    if ($gettok(%sockread,3,32) $left($($+(%,stats,.,sign,.,$gettok($sockname,2,46)),2),1) $right($($+(%,stats,.,sign,.,$gettok($sockname,2,46)),2),1-)) {
      Set %stats.msg. $+ $gettok($sockname,2,46) $($+(%,stats,.,msg,.,$gettok($sockname,2,46)),2) $c1($gettok(%sockread,1,32) $+ :) $c2($gettok(%sockread,$iif($($+(%,stats,.,exp,.,$gettok($sockname,2,46)),2) == yes,4,3),32))
    }
  }
  if ($gettok(%sockread,3,32 $($+(%,stats,.,display,.,$gettok($sockname,2,46)),2)) {
    if (($($+(%,stats,.,yes,.,$gettok($sockname,2,46)),2) == kindof) && (*end* !iswm %sockread)) {
      Set %stats.msg2. $+ $gettok($sockname,2,46) $($+(%,stats,.,msg2,.,$gettok($sockname,2,46)),2) $c1($gettok(%sockread,1,32) $+ :) $c2($gettok(%sockread,$iif($($+(%,stats,.,exp,.,$gettok($sockname,2,46)),2) == yes,4,3),32))
    }
  }
  if (*END* Iswm %sockread) {
    $($+(%,stats,.,display,.,$gettok($sockname,2,46)),2) $logo $c1(Stats For:) $c2($($+(%,stats,.,nick,.,$gettok($sockname,2,46)),2))
    $($+(%,stats,.,display,.,$gettok($sockname,2,46)),2) $($+(%,stats,.,msg,.,$gettok($sockname,2,46)),2)
    $($+(%,stats,.,display,.,$gettok($sockname,2,46)),2) $($+(%,stats,.,msg2,.,$gettok($sockname,2,46)),2)
  }

}