;$combat(A,S,D,H,R,P,M)
;Properties: .style
combat {
  if (($isid) && ($7)) {
    var %a = $3 * 100, %b = $4 * 100, %c = $calc(($6 $iif($and($6,1),- 1)) * 50),  %bcl = $calc((%a + %b + %c) / 400), %d = $1 * 130, %e = $2 * 130, %f = $iif($and($5,1),$calc((($5 - 1) + ($5 * 2)) * 65),$5 * 195), %g = $iif($and($7,1),$calc((($5 - 1) + ($7 * 2)) * 65),$7 * 195), %mccl = $calc((%d + %e) / 400), %rccl = %f / 400, %maccl = %g / 400, %flev = $gettok($sorttok(%mccl %rccl %maccl,32,nr),1,32)
    return $iif($prop == style,$iif(%flev == %mccl,Melee,$iif(%flev == %rccl,Range,Mage)),$floor($calc(%flev + %bcl)))
  }
}