alias BotId { [FW] }
alias FullBotName { [FW]Terror }

alias c1 { return 10 $+ $1- }
alias c2 { return 04 $+ $1- }
on $*:text:/^[!@](Cmb-Est)/Si:#: { 
  if (!$8) { 
    $iif($left($1,1) == @,Msg $chan,Notice $nick) $c2($nick) $c1(Invalid Format) $c1(Must Be in Format ASDHPRM) 
  }
  Else {
    $iif($left($1,1) == @,Msg $chan,Notice $nick) $c1(Combat Estimate For ASDHPRM:) $c2($2 $3 $4 $5 $6 $7 $8) $+ $c1(: Is) $c2($cmb($5,$4,$6,$2,$3,$7,$8))
  }
}


alias -l htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
  return %x 
} 
alias skills {
  if ($regex($1,/^0|overall|total/i)) { return Overall }
  elseif ($regex($1,/^1$|at(k|tack)/i)) { return Attack }
  elseif ($regex($1,/^2$|def(en[sc]e)?/i)) { return Defence }
  elseif ($regex($1,/^3$|str(ength)?/i)) { return Strength }
  elseif ($regex($1,/^4$|hp|hit(point)?s/i)) { return Hitpoints }
  elseif ($regex($1,/^5$|range[rd]?/i)) { return Ranged }
  elseif ($regex($1,/^6$|pray(er|ing?)?/i)) { return Prayer }
  elseif ($regex($1,/^7$|mag(e|ick?)?/i)) { return Magic }
  elseif ($regex($1,/^8$|cook(ing?)?/i)) { return Cooking }
  elseif ($regex($1,/^9$|wc|woodcut(ting?)?/i)) { return Woodcutting }
  elseif ($regex($1,/^10$|fletch(ing?)?/i)) { return Fletching }
  elseif ($regex($1,/^11$|f(i|ee)sh(ing?)?/i)) { return Fishing }
  elseif ($regex($1,/^12$|fm|firemake?(ing?)?/i)) { return Firemaking }
  elseif ($regex($1,/^13$|craft(ing?)?/i)) { return Crafting }
  elseif ($regex($1,/^14$|smith(ing?)?/i)) { return Smithing }
  elseif ($regex($1,/^15$|mine?(ing?)?/i)) { return Mining }
  elseif ($regex($1,/^16$|herb(lore?|al(ism)?)?/i)) { return Herblore }
  elseif ($regex($1,/^17$|agil(ity)?/i)) { return Agility }
  elseif ($regex($1,/^18$|th(ie|ei)[fv](ing?)?/i)) { return Thieving }
  elseif ($regex($1,/^19$|slay(er|ing?)?/i)) { return Slayer }
  elseif ($regex($1,/^20$|farm(er|ing?)?/i)) { return Farming }
  elseif ($regex($1,/^21$|(rc|runecraft)(ing?)?/i)) { return Runecraft } 
  elseif ($regex($1,/^22$|hunt(er|ing?)?/i)) { return Hunter }
  elseif ($regex($1,/^23$|cons(truct(io?ng?)?)?/i)) { return Construction }
}
Alias cmb { 
  Var %Def.Var = $calc($2 * 100) 
  Var %Hits.Var = $calc($1 * 100) 
  Var %Pray.var = $calc($3 * 50) 
  Var %hit.def.pray = $calc($calc(%Def.var + %hits.var + %Pray.var) / 400) 
  Var %Att.var = $calc($4 * 130) 
  Var %str.var = $calc($5 * 130) 
  If ($right($6,1) isin 02468) Var %range.var = $calc($calc($calc($6 - 1) + $calc($6 * 2)) * 65) 
  Else var %Range.var = $calc($6 * 195) 
  if ($right($7,1) isin 02468) Var %mage.var = $calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65) 
  Else var %Mage.var = $calc($7 * 195) 
  Var %Melee.Cmb = $calc($calc(%att.var + %str.var) /400) 
  Var %Range.cmb = $calc(%range.var / 400) 
  Var %mage.cmb = $calc(%mage.var /400) 
  If (%range.cmb > %melee.cmb) && (%range.cmb > %Mage.cmb) { return $c2($calc(%hit.def.pray + %range.cmb)) $c1($chr(91)) $+ $c2(Range based) $+ $c1($chr(93)) } 
  elseIf (%Mage.cmb > %melee.cmb) && (%Mage.cmb > %range.cmb) { return $c2($calc(%hit.def.pray + %Mage.cmb)) $c1($chr(91)) $+ $c2(Mage based) $+ $c1($chr(93)) }
  elseIf (%Melee.cmb > %mage.cmb) && (%melee.cmb > %range.cmb) { return $calc(%Hit.def.pray + %melee.cmb) $c1($chr(91)) $+ $c2(Melee based) $+ $c1($chr(93)) } 
}
alias statsxp { 
  var %x = 1, %level = $calc($1 - 1), %xp = 0 
  while (%x <= %level) { 
    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4) 
    inc %xp %TempXp 
    inc %x 
  } 
  return $int(%xp) 
}