equal
deleted
inserted
replaced
132 CheckForWin:= true; |
132 CheckForWin:= true; |
133 |
133 |
134 TurnTimeLeft:= 0; |
134 TurnTimeLeft:= 0; |
135 if AliveCount = 0 then |
135 if AliveCount = 0 then |
136 begin // draw |
136 begin // draw |
137 AddCaption(trmsg[sidDraw], $FFFFFF, capgrpGameState); |
137 AddCaption(trmsg[sidDraw], cWhiteColor, capgrpGameState); |
138 SendStat(siGameResult, trmsg[sidDraw]); |
138 SendStat(siGameResult, trmsg[sidDraw]); |
139 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000) |
139 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000) |
140 end else // win |
140 end else // win |
141 with AliveClan^ do |
141 with AliveClan^ do |
142 begin |
142 begin |
150 for i:= 0 to cMaxHHIndex do |
150 for i:= 0 to cMaxHHIndex do |
151 with Hedgehogs[i] do |
151 with Hedgehogs[i] do |
152 if (Gear <> nil) then |
152 if (Gear <> nil) then |
153 Gear^.State:= gstWinner; |
153 Gear^.State:= gstWinner; |
154 |
154 |
155 AddCaption(s, $FFFFFF, capgrpGameState); |
155 AddCaption(s, cWhiteColor, capgrpGameState); |
156 SendStat(siGameResult, s); |
156 SendStat(siGameResult, s); |
157 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000) |
157 AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000) |
158 end; |
158 end; |
159 SendStats |
159 SendStats |
160 end; |
160 end; |