hedgewars/uGears.pas
changeset 2741 7a84ce33f52f
parent 2730 f56592281526
child 2745 11fce231f24a
equal deleted inserted replaced
2740:03df0573a9fd 2741:7a84ce33f52f
  2064    Not without a new damage machine.
  2064    Not without a new damage machine.
  2065    King check should be in here instead of ApplyDamage since Tiy wants them kicked less
  2065    King check should be in here instead of ApplyDamage since Tiy wants them kicked less
  2066 *)
  2066 *)
  2067 i:= _1;
  2067 i:= _1;
  2068 if (CurrentHedgehog <> nil) and CurrentHedgehog^.King then i:= _1_5;
  2068 if (CurrentHedgehog <> nil) and CurrentHedgehog^.King then i:= _1_5;
  2069 if (PHedgehog(Gear^.Hedgehog) <> nil) and (PHedgehog(Gear^.Hedgehog)^.King) then
  2069 if (Gear^.Hedgehog <> nil) and (PHedgehog(Gear^.Hedgehog)^.King) then
  2070    ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent * _0_5)
  2070    ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent * _0_5)
  2071 else
  2071 else
  2072    ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent)
  2072    ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent)
  2073 end;
  2073 end;
  2074 
  2074