Something

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-est 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 %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 %based Ranged
    }
    elseIf (%mager > %melee) && (%mager > %ranger) {
      set %return $calc(%hit.def.pray.summon + %mager)
      set %based magic
    }
    elseIf (%Melee > %mager) && (%melee > %ranger) {
      set %return $calc(%Hit.def.pray.summon + %melee)
      set %based Melee
    }
    %dispp 5[1« 5 Attack:1 $2 5Strength:1 $3 5Defence:1 $4 5Hitpoints:1 $5 5Ranged:1 $6 5Prayer:1 $7 5Magic:1 $8 5Summon:1 $9 5is:1 %return 5-1 %based 5Based. 1»5]
    unset %based
    unset %return
  }