equal
deleted
inserted
replaced
79 for i:= 0 to cMaxHHIndex do |
79 for i:= 0 to cMaxHHIndex do |
80 with Hedgehogs[i] do |
80 with Hedgehogs[i] do |
81 if (Gear <> nil) then |
81 if (Gear <> nil) then |
82 Gear^.State:= gstWinner; |
82 Gear^.State:= gstWinner; |
83 if Flawless then |
83 if Flawless then |
84 PlaySound(sndFlawless, Teams[0]^.voicepack) |
84 AddVoice(sndFlawless, Teams[0]^.voicepack) |
85 else |
85 else |
86 PlaySound(sndVictory, Teams[0]^.voicepack); |
86 AddVoice(sndVictory, Teams[0]^.voicepack); |
87 |
87 |
88 AddCaption(s, cWhiteColor, capgrpGameState); |
88 AddCaption(s, cWhiteColor, capgrpGameState); |
89 SendStat(siGameResult, s); |
89 SendStat(siGameResult, s); |
90 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000) |
90 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000) |
91 end; |
91 end; |
255 NextClan:= false; |
255 NextClan:= false; |
256 end; |
256 end; |
257 if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then |
257 if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then |
258 begin |
258 begin |
259 if CurrentTeam^.ExtDriven then |
259 if CurrentTeam^.ExtDriven then |
260 PlaySound(sndIllGetYou, CurrentTeam^.voicepack) |
260 AddVoice(sndIllGetYou, CurrentTeam^.voicepack) |
261 else |
261 else |
262 PlaySound(sndYesSir, CurrentTeam^.voicepack); |
262 AddVoice(sndYesSir, CurrentTeam^.voicepack); |
263 if PlacingHogs or (cHedgehogTurnTime < 1000000) then ReadyTimeLeft:= cReadyDelay; |
263 if PlacingHogs or (cHedgehogTurnTime < 1000000) then ReadyTimeLeft:= cReadyDelay; |
264 AddCaption(Format(shortstring(trmsg[sidReady]), CurrentTeam^.TeamName), cWhiteColor, capgrpGameState) |
264 AddCaption(Format(shortstring(trmsg[sidReady]), CurrentTeam^.TeamName), cWhiteColor, capgrpGameState) |
265 end |
265 end |
266 else |
266 else |
267 begin |
267 begin |
268 if TurnTimeLeft > 0 then |
268 if TurnTimeLeft > 0 then |
269 PlaySound(sndIllGetYou, CurrentTeam^.voicepack); |
269 AddVoice(sndIllGetYou, CurrentTeam^.voicepack); |
270 ReadyTimeLeft:= 0 |
270 ReadyTimeLeft:= 0 |
271 end; |
271 end; |
272 |
272 |
273 uMobile.NewTurnBeginning(); |
273 uMobile.NewTurnBeginning(); |
274 ScriptCall('onNewTurn'); |
274 ScriptCall('onNewTurn'); |