Untitled

on *:TEXT:*:#:{
  if ($StatsID($1)) {
    inc %sc
    var %info = $+($iif($regex($2-,/#([0-9]+)/S),$regml(1),00),$,$iif($gettok($1-,2,64),$v1,00))
    var %info = $+($iif($remove($regsubex($2-,/#[0-9]+/S,),$gettok($1-,2,64),@,$chr(35)),$v1,$nick),$,%info)
    sockopen $+(Stats.,%sc) o-ss.net 80
    sockmark $+(Stats.,%sc) $+($iif($regex($1,/^@/S),msg $chan,notice $nick),$,%info,$,$StatsID($1))
  }
  elseif (($1-2 == Invite from:) && ($chan == #MSCR) && ($nick == MightScript)) {
    msg $chan Channels: $chan(0)
  }
  elseif (($1-2 == $me join) && ($chan == #MSCR) && ($nick == MightScript) && ($me !ison $3)) {
    join $3
    .timer 1 1 msg $3 $+($c1,[,$c2,I have been invited by,$c1 $4,$c2,. $c1,!commands,$c2 to view my commands,$chr(44) $c1,!part $me,$c2 to make me part.,$c1,])
    .timer 1 2 msg $3 $+($c1,[,$c2,MightScript,$c1 V1.1,$c2 - Scripted by,$c1 Patje`,$c2 and,$c1 DoucheBag])
  }
  elseif ($1 == !part) {
    if ($nick isop $chan) {
      if (*MightScript iswm $2) part $chan Part requested by $nick $+ . Thank you for using me!
      elseif (!$2) notice $nick To make me part, please type !part $me
    }
    else notice $nick You need to be op to make me part!
  }
  elseif ($regex($1,/^[@!.]asc(ii)?$/Si)) {
    $iif($regex($1,/^@/S),msg $chan,notice $nick) $+($qt($2-),: $,+,$chr(40),$left($regsubex($2-,/(.)/g,$+($,chr,$chr(40),$asc(\1),$chr(41),$chr(44))),-1),$chr(41))
  }
}
on *:SOCKOPEN:stats.*:{
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $hr($gettok($sock($sockname).mark,2,36)) HTTP/1.1
  sockwrite -nt $sockname Host: $+(o-ss.net,$str($crlf,2))
}
on *:SOCKREAD:stats.*:{
  var %rs | sockread %rs
  while ($sockbr) {
    if ((*does not feature* iswm %rs) && ($sockname)) {
      $gettok($sock($sockname).mark,1,36) $+($c1,[,$flc($gettok($sock($sockname).mark,2,36)) $c2,does not feature in the highscores for $c1,any skill])
      sockclose $sockname
    }
    if (($+($gettok($sock($sockname).mark,5,36),*) iswm %rs) && (!$regex($gettok($sock($sockname).mark,5,36),/overall|combat/i)) && ($sockname)) {
      var %goal = $iif($gettok($sock($sockname).mark,3,36),$v1,$calc($gettok(%rs,3,32) + 1))
      if ($gettok(%rs,3,32) == ranked) $gettok($sock($sockname).mark,1,36) $+($c1,[,$flc($gettok($sock($sockname).mark,2,36)) $c2,does not feature in the highscores for $c1,$gettok($sock($sockname).mark,5,36),])
      else $gettok($sock($sockname).mark,1,36) $+($c1,[,$c2,$gettok($sock($sockname).mark,5,36) for,$c1 $flc($gettok($sock($sockname).mark,2,36)),] [,$c2,Level:,$c1 $gettok(%rs,3,32) |,$c2 Rank:,$c1 $gettok(%rs,2,32) |,$c2 Exp:,$c1 $gettok(%rs,4,32),$iif($gettok(%rs,3,32) != 99,$+($c1 |,$c2 Exp till,$c1 %goal,$c2,:,$c1 $bytes($calc($getxp(%goal) - $remove($gettok(%rs,4,32),$chr(44))),b) $chr(40),$c2,$round($calc(($remove($gettok(%rs,4,32),$chr(44)) / $getxp(%goal)) * 100),2),$c1,%,$chr(41))),])
      sockclose $sockname
    }
    if (($StatsID(! $+ $gettok(%rs,1,32))) && ($regex($gettok($sock($sockname).mark,5,36),/overall|combat/i)) && ($sockname)) {
      if ($regex($gettok(%rs,1,32),/^(att|str|def|hit|mag|pra|ran)/i)) var %cmb = %cmb $iif($gettok(%rs,3,32) != ranked,$v1,$iif($gettok(%rs,1,32) == hitpoints,10,1))
      if ($gettok(%rs,1,32) == overall) var %overall = %rs
      if (($gettok(%rs,3,32) != ranked) && ($gettok(%rs,1,32) != overall)) var %all = %all $+($c2,$gettok(%rs,1,32),:,$c1 $gettok(%rs,3,32) |)
      if (($regex($gettok(%rs,1,32),/^(att|str|def|hit|mag|pra|ran)/i)) && (combatp == $gettok($sock($sockname).mark,5,36))) var %txp = $calc(%txp + $remove($gettok(%rs,4,32),$chr(44)))
      if (($gettok(%rs,1,32) == magic) && (combat == $gettok($sock($sockname).mark,5,36))) {
        tokenize 32 %cmb | var %acmb = $cmb(%cmb)
        $gettok($sock($sockname).mark,1,36) $+($c1,[,$c2,Combat for,$c1 $flc($gettok($sock($sockname).mark,2,36)),] [,$c2,Combat:,$c1 %acmb,] [,$c2,Att:,$c1 $1 |,$c2 Def:,$c1 $2 |,$c2 Str:,$c1 $3 |,$c2 Hits:,$c1 $4 |,$c2 Ranged:,$c1 $5 |,$c2 Pray:,$c1 $6 |,$c2 Magic:,$c1 $7,$c1,])
        $gettok($sock($sockname).mark,1,36) $+($c1,[,$c2,Levels till,$c1 $ceil(%acmb) $c2,combat,$c1,] [,$iif($gettok(%acmb,2,32) == melee,$c2 $+ Att/Str: $+ $c1 $cc1(%acmb)),$iif($gettok(%acmb,2,32) == magic,$c2 $+ Magic: $+ $c1 $cc3(%acmb)),$iif($gettok(%acmb,2,32) == ranged,$c2 $+ Ranged: $+ $c1 $cc3(%acmb)),$chr(32),|,$c2 Hitpoints:,$c1 $cc2(%acmb) |,$c2 Prayer:,$c1 $cc4(%acmb),])
        sockclose $sockname
      }
      if (($gettok(%rs,1,32) == magic) && (combatp == $gettok($sock($sockname).mark,5,36))) {
        $gettok($sock($sockname).mark,1,36) $+($c1,[,$c2,Combat Percentage for,$c1 $flc($gettok($sock($sockname).mark,2,36)),] [,$c2,Combat:,$c1 $cmb(%cmb),] [,$c2,Combat Exp:,$c1 $bytes(%txp,b) |,$c2 Total Exp:,$c1 $gettok(%overall,4,32) |,$c2 Combat Percentage:,$c1 $round($calc((%txp / $remove($gettok(%overall,4,32),$chr(44))) * 100),2),%,])
        sockclose $sockname
      }
      if ($gettok(%rs,1,32) == construction) {
        tokenize 32 %overall
        $gettok($sock($sockname).mark,1,36) $+($c1,[,$c2,Stats for,$c1 $flc($gettok($sock($sockname).mark,2,36)),] [,$c2,Combat:,$c1 $cmb(%cmb) |,$c2 Overall:,$c1 $iif($3 == ranked,Not Ranked,$+($3 |,$c2 Rank:,$c1 $2 |,$c2 Exp:,$c1 $4)),])
        $gettok($sock($sockname).mark,1,36) $+($c1,[,$left(%all,-2),$c1,])
        sockclose $sockname
      }
    }
    if ($sockname) sockread %rs
  }
}