alias combat {
  ;useage $combat(Att Str Def Hp Pray Mage Range)
  tokenize 32 $1-
  var %hp $calc($4 *100)
  var %def $calc($3 * 100)
  var %pray $calc($floor($calc( $5 /2)) * 100)
  var %base $calc(( %hp + %def + %pray )/400 )
  var %stratt $calc(( $2 * 130 + $1 * 130) / 400)
  var %range $calc(($calc($floor($calc( $7 /2)) * 2) + 2* $7 ) * 65 / 400)
  var %mage $calc(($calc($floor($calc( $6 /2)) *2) + 2* $6) * 65 / 400)
  var %combat $calc(%base + $iif(%stratt > %range,$v1,$iif(%range > %mage,$v1,$v2))))
  return %combat
}