equal
deleted
inserted
replaced
663 |
663 |
664 procedure ApplyDamage(Gear: PGear; Damage: Longword); |
664 procedure ApplyDamage(Gear: PGear; Damage: Longword); |
665 var s: shortstring; |
665 var s: shortstring; |
666 vampDmg, tmpDmg: Longword; |
666 vampDmg, tmpDmg: Longword; |
667 begin |
667 begin |
668 if Gear^.Kind = gtHedgehog then |
668 if (Gear^.Kind = gtHedgehog) and (Damage>=1) then |
669 begin |
669 begin |
670 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color); |
670 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), Damage, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color); |
671 tmpDmg:= min(Damage, max(0,Gear^.Health-Gear^.Damage)); |
671 tmpDmg:= min(Damage, max(0,Gear^.Health-Gear^.Damage)); |
672 if (Gear <> CurrentHedgehog^.Gear) and (CurrentHedgehog^.Gear <> nil) and (tmpDmg >= 1) then |
672 if (Gear <> CurrentHedgehog^.Gear) and (CurrentHedgehog^.Gear <> nil) and (tmpDmg >= 1) then |
673 begin |
673 begin |