equal
deleted
inserted
replaced
576 begin |
576 begin |
577 CheckNoDamage:= false; |
577 CheckNoDamage:= false; |
578 uStats.HedgehogDamaged(Gear); |
578 uStats.HedgehogDamaged(Gear); |
579 dmg:= Gear^.Damage; |
579 dmg:= Gear^.Damage; |
580 if Gear^.Health < dmg then |
580 if Gear^.Health < dmg then |
|
581 begin |
|
582 Gear^.Active:= true; |
581 Gear^.Health:= 0 |
583 Gear^.Health:= 0 |
|
584 end |
582 else |
585 else |
583 dec(Gear^.Health, dmg); |
586 dec(Gear^.Health, dmg); |
584 |
587 |
585 if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and |
588 if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and |
586 (Gear^.Damage <> Gear^.Karma) and |
589 (Gear^.Damage <> Gear^.Karma) and |