equal
deleted
inserted
replaced
45 KillsClan : LongWord = 0; |
45 KillsClan : LongWord = 0; |
46 Kills : LongWord = 0; |
46 Kills : LongWord = 0; |
47 KillsTotal : LongWord = 0; |
47 KillsTotal : LongWord = 0; |
48 AmmoUsedCount : Longword = 0; |
48 AmmoUsedCount : Longword = 0; |
49 AmmoDamagingUsed : boolean = false; |
49 AmmoDamagingUsed : boolean = false; |
|
50 FinishedTurnsTotal: LongInt = -1; |
50 |
51 |
51 procedure HedgehogDamaged(Gear: PGear); |
52 procedure HedgehogDamaged(Gear: PGear); |
52 begin |
53 begin |
53 if Gear <> CurrentHedgehog^.Gear then |
54 if Gear <> CurrentHedgehog^.Gear then |
54 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |
55 inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage); |
70 |
71 |
71 procedure TurnReaction; |
72 procedure TurnReaction; |
72 var Gear: PGear; |
73 var Gear: PGear; |
73 i, t: LongInt; |
74 i, t: LongInt; |
74 begin |
75 begin |
|
76 inc(FinishedTurnsTotal); |
|
77 if FinishedTurnsTotal = 0 then exit; |
|
78 |
75 inc(CurrentHedgehog^.stats.FinishedTurns); |
79 inc(CurrentHedgehog^.stats.FinishedTurns); |
76 |
80 |
77 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then |
81 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then |
78 PlaySound(sndFirstBlood, false) |
82 PlaySound(sndFirstBlood, false) |
79 |
83 |
94 PlaySound(sndEnemyDown, false) |
98 PlaySound(sndEnemyDown, false) |
95 else |
99 else |
96 PlaySound(sndRegret, false) |
100 PlaySound(sndRegret, false) |
97 |
101 |
98 else if AmmoDamagingUsed then |
102 else if AmmoDamagingUsed then |
99 PlaySound(sndMissed, false); |
103 PlaySound(sndMissed, false) |
|
104 else if AmmoUsedCount > 0 then |
|
105 // nothing ? |
|
106 else |
|
107 PlaySound(sndCoward, false); |
|
108 |
100 |
109 |
101 for t:= 0 to Pred(TeamsCount) do |
110 for t:= 0 to Pred(TeamsCount) do |
102 with TeamsArray[t]^ do |
111 with TeamsArray[t]^ do |
103 for i:= 0 to cMaxHHIndex do |
112 for i:= 0 to cMaxHHIndex do |
104 with Hedgehogs[i].stats do |
113 with Hedgehogs[i].stats do |