;; REPLACE THE COMBAT SECTION WITH THIS: 
;; IT SHOULD WORK


  if (%skill == Combat) {
    var %att = $iif($token($hget(%hash,attack),2,32) > 0,$v1,0),%str = $iif($token($hget(%hash,strength),2,32) > 0,$v1,0), $&
      %def = $iif($token($hget(%hash,defence),2,32) > 0,$v1,0),%hit = $iif($token($hget(%hash,hitpoints),2,32) > 0,$v1,0), $&
      %ran = $iif($token($hget(%hash,ranged),2,32) > 0,$v1,0),%mag = $iif($token($hget(%hash,magic),2,32) > 0,$v1,0), $&
      %pra = $iif($token($hget(%hash,prayer),2,32) > 0,$v1,0),%sum = $iif($token($hget(%hash,Summoning),2,32) > 0,$v1,0)

    var %a = $calc(%def * 100),%b = $calc(%hit * 100),%c = $iif(*.* iswm $calc(%pra / 2),$calc((%pra -1) * 50),$calc(%pra * 50)), $&
      %d = $iif(*.* iswm $calc(%str /2),$calc((%str -1) *50),$calc(%str * 50)),%b = $calc((%a + %b + %c + %d) / 400)
    var %a = $calc(%att * 130),%b = $calc(%str * 130),%c = $iif(*.* iswm $calc(%ran / 2),$calc(((%ran - 1) + (%ran * 2)) * 65),$calc(%ran * 195)), $&
      %d = $iif(*.* iswm $calc(%mag / 2),$calc(((%mag - 1) + (%mag * 2)) * 65),$calc(%mag * 195)),%melee = $calc((%A + %B) / 400), $&
      %range = $calc(%C / 400),%mage = $calc(%D / 400),%class = $token($sorttok(%melee Melee| $+ %range Ranged| $+ %mage Magic,124,nr),1,124), $&
      %combat = $calc(%base + $token(%class,1,32)),%cmb = $calc($floor(%combat) +1))

    %display $s2(%s2,%user) $s1(%s1,is) $s2(%s2,$round(%combat,2)) $s2(%s2,%cmbstyle) $s1(%s1,based)
    %display $s1(%s1,Att:) $s2(%s2,%a) $s1(%s1,Str:) $s2(%s2,%s) $s1(%s1,Def:) $s2(%s2,%d) $s1(%s1,Hits:) $s2(%s2,%h) $&
      $s1(%s1,Range:) $s2(%s2,%r) $s1(%s1,Pray:) $s2(%s2,%p) $s1(%s1,Mage:) $s2(%s2,%m)
    %display $s1(%s1,Levels for) $s2(%s2,$int($calc(%combat +1))) $+ $s1(%s1,:) $&
      $s1(%s1,Attack) $s2(%s2,$ceil($calc((%cmb)/( 1 / 3 )))) $&
      $s1(%s1,Strength) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 3 )))) $&
      $s1(%s1,Defence) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 4 )))) $&
      $s1(%s1,HitPoints) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 4 )))) $&
      $s1(%s1,Prayer) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 8 )))) $&
      $s1(%s1,Summoning) $s2(%s2($ceil($calc((%cmb) / ( 1 / 8 ))))
    goto done
  }