equal
deleted
inserted
replaced
27 |
27 |
28 procedure initModule; |
28 procedure initModule; |
29 procedure freeModule; |
29 procedure freeModule; |
30 |
30 |
31 procedure AmmoUsed(am: TAmmoType); |
31 procedure AmmoUsed(am: TAmmoType); |
32 procedure HedgehogDamaged(Gear: PGear); |
32 procedure HedgehogDamaged(Gear, Attacker: PGear); |
33 procedure Skipped; |
33 procedure Skipped; |
34 procedure TurnReaction; |
34 procedure TurnReaction; |
35 procedure SendStats; |
35 procedure SendStats; |
36 |
36 |
37 implementation |
37 implementation |
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: PGear); |
53 procedure HedgehogDamaged(Gear, Attacker: PGear); |
54 begin |
54 begin |
55 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then |
55 if Attacker^.Hedgehog^.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 |
|
60 if bBetweenTurns then exit; |
|
61 |
59 |
62 ////////////////////////// |
60 ////////////////////////// |
63 |
61 |
64 if Gear <> CurrentHedgehog^.Gear then |
62 if Gear <> CurrentHedgehog^.Gear then |
65 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |
63 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |