Anonymous

alias charms {
  if (!$2 || $1 == help) { //echo -at [7C14harms7 H14elp] 7/Charms $bkt2(say/echo) $bkt2(level) $&
      $bkt2(No. Crimsons) $bkt2(No. Gold) $bkt2(No. Blue) $bkt2(No. Green)
  }
  else {
    var %crim = $crim($2), %gold = $gold($2), %grn = $grn($2), %blu = $blu($2)
    var %crim2 = $calc(%crim * $3), %gold2 = $calc(%gold * $4), %blu2 = $calc(%blu * $5), %grn2 = $calc(%grn * $6)
    var %msg = $iif($1 == say,//say,//echo -at)
    %msg [7C14harms] 4Crimson:14 $3 $bkt(%crim) $&
      7Gold:14 $4 $bkt(%gold) $&
      12Blue:14 $5 $bkt(%blu) $&
      3Green:14 $6 $bkt(%grn)
    $iif($3,%msg [7C14harms]14 Total Experience at [7L14evel7 $2] 7 $calc(%crim2 + %gold2 + %blu2 + %grn2) $+ xp) 
  }
}
alias bkt { return $+(7[14,$1-,xp7]14) }
alias bkt2 { return $+([14,$1-,]) }
alias bet { return $iif($1 >= $2 && $1 < $3,true) }
alias crim { var %x = $1
  if ($bet(%x,0,19)) { return 0 } | elseif ($bet(%x,19,31)) { return 83.2 }
  elseif (%x == 31) { return  136 } | elseif ($bet(%x,32,42)) { return 140.8 }
  elseif ($bet(%x,42,49)) { return 184.8 } | elseif ($bet(%x,49,61)) { return 215.2 }
  elseif ($bet(%x,61,63)) { return 268 } | elseif (%x == 63) { return 276.8 }
  elseif ($bet(%x,64,74)) { return 281.6 } | elseif (%x == 74) { return 325.6 }
  elseif ($bet(%x,75,82)) { return 329.6 } | elseif ($bet(%x,82,92)) { return 364.8 }
  elseif ($bet(%x,92,96)) { return 404.8 } | elseif (%x >= 96) { return 422.4 }
}
alias gold { var %x = $1
  if (%x == 0) { return 0 } | elseif ($bet(%x,1,4)) { return 4.8 }
  elseif ($bet(%x,4,10)) { return 9.3 } | elseif ($bet(%x,10,13)) { return 12.6 }
  elseif ($bet(%x,13,16)) { return 12.6 } | elseif ($bet(%x,26,40)) { return 21.6 }
  elseif ($bet(%x,40,52)) { return 52.8 } | elseif ($bet(%x,52,66)) { return 68.4 }
  elseif (%x == 66) { return 87 } | elseif ($bet(%x,67,71)) { return 58.6 }
  elseif (%x >= 71) { return 93.2 }
}
alias blu { var %x = $1
  if ($bet(%x,0,23)) { return 0 } | elseif ($bet(%x,23,25)) { return 202.4 }
  elseif ($bet(%x,25,36)) { return 220 } | elseif ($bet(%x,36,46)) { return 316.8 }
  elseif ($bet(%x,46,55)) { return 404.8 } | elseif (%x == 55) { return 484 }
  elseif ($bet(%x,56,58)) { return 492.8 } | elseif ($bet(%x,58,66)) { return 510.4 }
  elseif ($bet(%x,66,76)) { return 580.8 } | elseif ($bet(%x,76,86)) { return 666.8 }
  elseif (%x >= 86) { return 756.8 }
}
alias grn { var %x = $1
  if ($bet(%x,0,18)) { return 0 } | elseif ($bet(%x,18,28)) { return 31.2 }
  elseif ($bet(%x,28,33)) { return 49.8 } | elseif ($bet(%x,33,41)) { return 57.6 }
  elseif ($bet(%x,41,43)) { return 72.4 } | elseif ($bet(%x,43,47)) { return 75.2 }
  elseif ($bet(%x,47,54)) { return 83.2 } | elseif ($bet(%x,54,56)) { return 94.8 }
  elseif ($bet(%x,56,62)) { return 98.8 } | elseif ($bet(%x,62,68)) { return 109.6 }
  elseif (%x == 68) { return 119.2 } | elseif ($bet(%x,69,78)) { return 121.2 }
  elseif ($bet(%x,78,80)) { return 136.8 } | elseif ($bet(%x,80,88)) { return 140.8 }
  elseif (%x >= 88) { return 154.4 }
}