105 if FinishedTurnsTotal <> 0 then |
105 if FinishedTurnsTotal <> 0 then |
106 begin |
106 begin |
107 inc(CurrentHedgehog^.stats.FinishedTurns); |
107 inc(CurrentHedgehog^.stats.FinishedTurns); |
108 |
108 |
109 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then |
109 if (DamageGiven = DamageTotal) and (DamageTotal > 0) then |
110 PlaySound(sndFirstBlood, false, CurrentTeam^.voicepack) |
110 PlaySound(sndFirstBlood, CurrentTeam^.voicepack) |
111 |
111 |
112 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then |
112 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then |
113 begin |
113 begin |
114 PlaySound(sndStupid, false, PreviousTeam^.voicepack); |
114 PlaySound(sndStupid, PreviousTeam^.voicepack); |
115 if DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage); |
115 if DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage); |
116 end |
116 end |
117 else if DamageClan <> 0 then |
117 else if DamageClan <> 0 then |
118 if DamageTotal > DamageClan then |
118 if DamageTotal > DamageClan then |
119 if random(2) = 0 then |
119 if random(2) = 0 then |
120 PlaySound(sndNutter, false, CurrentTeam^.voicepack) |
120 PlaySound(sndNutter, CurrentTeam^.voicepack) |
121 else |
121 else |
122 PlaySound(sndWatchIt, false, vpHurtSameClan) |
122 PlaySound(sndWatchIt, vpHurtSameClan) |
123 else |
123 else |
124 if random(2) = 0 then |
124 if random(2) = 0 then |
125 PlaySound(sndSameTeam, false, vpHurtSameClan) |
125 PlaySound(sndSameTeam, vpHurtSameClan) |
126 else |
126 else |
127 PlaySound(sndTraitor, false, vpHurtSameClan) |
127 PlaySound(sndTraitor, vpHurtSameClan) |
128 else if DamageGiven <> 0 then |
128 else if DamageGiven <> 0 then |
129 if Kills > 0 then |
129 if Kills > 0 then |
130 PlaySound(sndEnemyDown, false, CurrentTeam^.voicepack) |
130 PlaySound(sndEnemyDown, CurrentTeam^.voicepack) |
131 else |
131 else |
132 PlaySound(sndRegret, false, vpHurtEnemy) |
132 PlaySound(sndRegret, vpHurtEnemy) |
133 |
133 |
134 else if AmmoDamagingUsed then |
134 else if AmmoDamagingUsed then |
135 PlaySound(sndMissed, false, PreviousTeam^.voicepack) |
135 PlaySound(sndMissed, PreviousTeam^.voicepack) |
136 else if (AmmoUsedCount > 0) and not isTurnSkipped then |
136 else if (AmmoUsedCount > 0) and not isTurnSkipped then |
137 // nothing ? |
137 // nothing ? |
138 else if isTurnSkipped then |
138 else if isTurnSkipped then |
139 begin |
139 begin |
140 PlaySound(sndBoring, false, PreviousTeam^.voicepack); |
140 PlaySound(sndBoring, PreviousTeam^.voicepack); |
141 AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage); |
141 AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage); |
142 end |
142 end |
143 else |
143 else |
144 PlaySound(sndCoward, false, PreviousTeam^.voicepack); |
144 PlaySound(sndCoward, PreviousTeam^.voicepack); |
145 end; |
145 end; |
146 |
146 |
147 |
147 |
148 for t:= 0 to Pred(TeamsCount) do // send even on zero turn |
148 for t:= 0 to Pred(TeamsCount) do // send even on zero turn |
149 with TeamsArray[t]^ do |
149 with TeamsArray[t]^ do |