Miscellany

on $*:TEXT:/^[!@.]cmb-est/Si:#: {
  if ($2 == $null) || ($3 == $null) || ($4 == $null) || ($5 == $null) || ($6 == $null) || ($7 == $null) || ($8 == $null) || ($9 == $null) {
    notice $nick Syntax: do !cmb-calc A S D H R P M SU
  }
  else {
    set %dispp $iif($left($1,1) == @, msg $chan, notice $nick)
    Var %Def $calc($4 * 100)
    Var %Hits $calc($5 * 100)
    Var %Pray $calc($7 * 50)
    var %summon $calc($9 * 50)
    Var %hit.def.pray.summon $calc((%Def + %hits + %Pray + %summon) / 400)
    Var %hit.def.pray $calc((%Def + %hits + %Pray) / 400)
    Var %Att $calc($2 * 130)
    Var %str $calc($3 * 130)
    if (!$and($6,1)) { Var %range $calc((($6 - 1) + ($6 * 2)) * 65) }
    Else var %Range $calc($6 * 195)
    if (!$and($8,1)) { Var %mage $calc((($8 - 1) + ($8 * 2)) * 65) }
    Else var %Mage $calc($8 * 195)
    Var %Melee $calc((%att + %str) /400), %Ranger $calc(%range / 400), %mager $calc(%mage / 400)
    If (%ranger > %melee) && (%ranger > %Mager) {
      set %return $calc(%hit.def.pray.summon + %ranger)
      set %f2p $calc(%hit.def.pray + %ranger)
      set %based Ranged
    }
    elseIf (%mager > %melee) && (%mager > %ranger) {
      set %return $calc(%hit.def.pray.summon + %mager)
      set %f2p $calc(%hit.def.pray + %mager)
      set %based magic
    }
    elseIf (%Melee > %mager) && (%melee > %ranger) {
      set %return $calc(%Hit.def.pray.summon + %melee)
      set %f2p $calc(%Hit.def.pray + %melee)
      set %based Melee
    }
    %dispp 12*** (14COMBAT12) 14with:   12Attack:14 $2 12Strength:14 $3 12Defence:14 $4 12Hitpoints:14 $5 12Ranged:14 $6 12Prayer: 14 $7 12Magic:14 $8 12Summon:14 $9 12[14P2P:12 %Return $+ 12] 12[14F2P:12 %f2p $+ 12]
    unset %based
    unset %return
unset %f2p
  }