equal
deleted
inserted
replaced
60 procedure HedgehogDamaged(Gear: PGear); |
60 procedure HedgehogDamaged(Gear: PGear); |
61 begin |
61 begin |
62 if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then |
62 if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then |
63 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack |
63 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack |
64 else |
64 else |
65 vpHurtEnemy:= CurrentHedgehog^.Team^.voicepack; |
65 vpHurtEnemy:= PHedgehog(Gear^.Hedgehog)^.Team^.voicepack; |
66 |
66 |
67 if bBetweenTurns then exit; |
67 if bBetweenTurns then exit; |
68 |
68 |
69 ////////////////////////// |
69 ////////////////////////// |
70 |
70 |