48 SkippedTurns: LongWord = 0; |
48 SkippedTurns: LongWord = 0; |
49 isTurnSkipped: boolean = false; |
49 isTurnSkipped: boolean = false; |
50 vpHurtSameClan: PVoicepack = nil; |
50 vpHurtSameClan: PVoicepack = nil; |
51 vpHurtEnemy: PVoicepack = nil; |
51 vpHurtEnemy: PVoicepack = nil; |
52 |
52 |
53 procedure HedgehogDamaged(Gear, Attacker: PGear); |
53 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog); |
54 begin |
54 begin |
55 if Attacker^.Hedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then |
55 if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then |
56 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack |
56 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack |
57 else |
57 else |
58 vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack; |
58 vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack; |
59 |
59 |
60 ////////////////////////// |
60 ////////////////////////// |
61 |
61 |
62 if Gear <> CurrentHedgehog^.Gear then |
62 if Gear <> Attacker^.Gear then |
63 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |
63 inc(Attacker^.stats.StepDamageGiven, Gear^.Damage); |
64 |
64 |
65 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Gear^.Damage); |
65 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Gear^.Damage); |
66 |
66 |
67 if Gear^.Health <= Gear^.Damage then |
67 if Gear^.Health <= Gear^.Damage then |
68 begin |
68 begin |