50 vpHurtSameClan: PVoicepack = nil; |
50 vpHurtSameClan: PVoicepack = nil; |
51 vpHurtEnemy: PVoicepack = nil; |
51 vpHurtEnemy: PVoicepack = nil; |
52 |
52 |
53 procedure HedgehogDamaged(Gear: PGear); |
53 procedure HedgehogDamaged(Gear: PGear); |
54 begin |
54 begin |
55 if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then |
55 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then |
56 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack |
56 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack |
57 else |
57 else |
58 vpHurtEnemy:= PHedgehog(Gear^.Hedgehog)^.Team^.voicepack; |
58 vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack; |
59 |
59 |
60 if bBetweenTurns then exit; |
60 if bBetweenTurns then exit; |
61 |
61 |
62 ////////////////////////// |
62 ////////////////////////// |
63 |
63 |
64 if Gear <> CurrentHedgehog^.Gear then |
64 if Gear <> CurrentHedgehog^.Gear then |
65 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |
65 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |
66 |
66 |
67 if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(DamageClan, Gear^.Damage); |
67 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Gear^.Damage); |
68 |
68 |
69 if Gear^.Health <= Gear^.Damage then |
69 if Gear^.Health <= Gear^.Damage then |
70 begin |
70 begin |
71 inc(CurrentHedgehog^.stats.StepKills); |
71 inc(CurrentHedgehog^.stats.StepKills); |
72 inc(Kills); |
72 inc(Kills); |
73 inc(KillsTotal); |
73 inc(KillsTotal); |
74 inc(CurrentHedgehog^.Team^.stats.Kills); |
74 inc(CurrentHedgehog^.Team^.stats.Kills); |
75 if (CurrentHedgehog^.Team^.TeamName = |
75 if (CurrentHedgehog^.Team^.TeamName = |
76 PHedgehog(Gear^.Hedgehog)^.Team^.TeamName) then begin |
76 Gear^.Hedgehog^.Team^.TeamName) then begin |
77 inc(CurrentHedgehog^.Team^.stats.TeamKills); |
77 inc(CurrentHedgehog^.Team^.stats.TeamKills); |
78 inc(CurrentHedgehog^.Team^.stats.TeamDamage, Gear^.Damage); |
78 inc(CurrentHedgehog^.Team^.stats.TeamDamage, Gear^.Damage); |
79 end; |
79 end; |
80 if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(KillsClan); |
80 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(KillsClan); |
81 end; |
81 end; |
82 |
82 |
83 inc(PHedgehog(Gear^.Hedgehog)^.stats.StepDamageRecv, Gear^.Damage); |
83 inc(Gear^.Hedgehog^.stats.StepDamageRecv, Gear^.Damage); |
84 inc(DamageGiven, Gear^.Damage); |
84 inc(DamageGiven, Gear^.Damage); |
85 inc(DamageTotal, Gear^.Damage) |
85 inc(DamageTotal, Gear^.Damage) |
86 end; |
86 end; |
87 |
87 |
88 procedure Skipped; |
88 procedure Skipped; |