Untitled

alias cmb { 
  if ($1 == -s) { 
    if ($regex($2,/-(e|r|l)/Si)) { 
      if ($len($3) <= 12) { 
        set %cmbn $replace($3-,$chr(32),$chr(95)) 
        set %cmbw msg $active 
        set %cmbstyle $2 
        sockopen cmb o-ss.net 80 
      } 
      else echo -a Error: Names must be less than or equal to 12 Characters. $+($chr(40),,$3, Is $len($3),/,$chr(3),07,$chr(49),$chr(50) Characters,$chr(41)) 
    } 
    else echo -a Error: -e (Exp) -r (Rank) -l (Level) 
  } 
  else { 
    if ($regex($1,/-(e|r|l)/Si)) { 
      if ($len($2-) <= 12) { 
        set %cmbw echo -a 
        set %cmbn $replace($2-,$chr(32),$chr(95)) 
        set %cmbstyle $1 
        sockopen cmb o-ss.net 80 
      } 
      else echo -a Error: Names must be less than or equal to 12 Characters. $+($chr(40),,$replace($2-,$chr(32),_), Is $len($2-),/,$chr(3),07,$chr(49),$chr(50) Characters,$chr(41)) 
    } 
    else echo -a Error: -e (Exp) -r (Rank) -l (Level) 
  } 
} 
on *:sockopen:cmb:{ 
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %cmbn HTTP/1.1 
  sockwrite -nt $sockname Host: o-ss.net 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:cmb:{ 
  if ($sockerr) { 
    %cmbw Error: $sockerr 
  } 
  else { 
    var %ee 
    sockread %ee 
    if (*Attack* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar Attack: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc $iif($2 != not,$3,1) 
    } 
    if (*Defence* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar %cmbvar $chr(124) Defence: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc %cmbcalc $iif($2 != not,$3,1) 
    } 
    if (*Strength* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar %cmbvar $chr(124) Strength: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc %cmbcalc $iif($2 != not,$3,1) 
    } 
    if (*Hitpoints* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar %cmbvar $chr(124) HitPoints: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc %cmbcalc $iif($2 != not,$3,1) 
    } 
    if (*Ranged* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar %cmbvar $chr(124) Range: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc %cmbcalc $iif($2 != not,$3,1) 
    } 
    if (*Prayer* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar %cmbvar $chr(124) Prayer: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc %cmbcalc $iif($2 != not,$3,1) 
    } 
    if (*Magic* iswm %ee) { 
      tokenize 32 %ee 
      set %cmbvar %cmbvar $chr(124) Magic: $iif(%cmbstyle == -l && $2 != not,$ccd($3)) $iif(%cmbstyle == -e && $2 != not,$ccd($4)) $iif(%cmbstyle == -r && $2 != not,$ccd($2)) $iif($2 == not,1) 
      set %cmbcalc %cmbcalc $iif($2 != not,$3,1) 
      sockclose $sockname 
      %cmbw $+([,CMB,][,Style: $iif(%cmbstyle == -l,Level) $iif(%cmbstyle == -e,Exp) $iif(%cmbstyle == -r,Rank),,][Nick: %cmbn,,][,Level: $cmbcalc(%cmbcalc),,:) %cmbvar 
      unset %cmbn 
      unset %cmbw 
      unset %cmbvar 
      unset %cmbstyle 
    } 
    elseif (*Overall * does not feature* iswm %ee) { 
      %cmbw $+([CMB][,%cmbn,,]) Does not appear in highscores for Combats 
      sockclose $sockname 
      unset %cmbn 
      unset %cmbw 
      unset %cmbvar 
      unset %cmbstyle 
    } 
  } 
} 
alias ccd { return $+($1-,$chr(3)) } 
alias cmbcalc { 
  tokenize 32 $1- 
  var %rsc1 = $calc((($1 * 130) + ($3 * 130)) / 400) 
  var %rsc2 = $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400) 
  var %rsc3 = $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400) 
  if ((%rsc1 >= %rsc2) && (%rsc1 >= %rsc3)) return $calc(%rsc1 + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) $+ ][Melee] 
  elseif ((%rsc2 >= %rsc3) && (%rsc2 >= %rsc1)) return $calc(%rsc2 + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) $+ ][Ranged] 
  elseif ((%rsc3 >= %rsc1) && (%rsc3 >= %rsc2)) return $calc(%rsc3 + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) $+ ][Magic] 
}