}
combat.base {
  var %def = $1,%hp = $2,%pray = $3
  var %A = $calc(%def * 100)
  var %B = $calc(%hp * 100)
  var %C = $iif(*.* iswm $calc(%pray / 2),$calc((%pray -1) * 50),$calc(%pray * 50))
  return $calc((%a + %B + %C) / 400)
}
combat.class {
  var %att = $1,%str = $2,%range = $3,%mage = $4
  var %A = $calc(%att * 130)
  var %B = $calc(%str * 130)
  var %C = $iif(*.* iswm $calc(%range / 2),$calc(((%range - 1) + (%range * 2)) * 65),$calc(%range * 195))
  var %D = $iif(*.* iswm $calc(%mage / 2),$calc(((%mage - 1) + (%mage * 2)) * 65),$calc(%mage * 195))
  var %melee = $calc((%A + %B) / 400)
  var %range = $calc(%C / 400)
  var %mage = $calc(%D / 400)
  return $order(%melee %range %mage)
}
combat.final {
  var %base = $combat.base($iif(!$2,1,$2),$iif(!$4,10,$4),$iif(!$5,1,$5))
  var %class = $combat.class($iif(!$1,1,$1),$iif(!$3,1,$3),$iif(!$6,1,$6),$iif(!$7,1,$7))
  var %combat = $calc(%base + $gettok(%class,1,32))
  return %combat
}