| changeset 11537 | bf86c6cb9341 |
| parent 11046 | 47a8c19ecb60 |
| child 11574 | 294ce0fa65d0 |
| 11536:d1cf1ff6cabb | 11537:bf86c6cb9341 |
|---|---|
36 procedure SendStats; |
36 procedure SendStats; |
37 procedure hedgehogFlight(Gear: PGear; time: Longword); |
37 procedure hedgehogFlight(Gear: PGear; time: Longword); |
38 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
38 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); |
39 |
39 |
40 implementation |
40 implementation |
41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript; |
41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uMisc, uConsole, uScript; |
42 |
42 |
43 var DamageClan : Longword = 0; |
43 var DamageClan : Longword = 0; |
44 DamageTotal : Longword = 0; |
44 DamageTotal : Longword = 0; |
45 DamageTurn : Longword = 0; |
45 DamageTurn : Longword = 0; |
46 KillsClan : LongWord = 0; |
46 KillsClan : LongWord = 0; |
97 |
97 |
98 procedure TurnReaction; |
98 procedure TurnReaction; |
99 var i, t: LongInt; |
99 var i, t: LongInt; |
100 s: ansistring; |
100 s: ansistring; |
101 begin |
101 begin |
102 TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true); |
102 //TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true); |
103 |
103 |
104 inc(FinishedTurnsTotal); |
104 inc(FinishedTurnsTotal); |
105 if FinishedTurnsTotal <> 0 then |
105 if FinishedTurnsTotal <> 0 then |
106 begin |
106 begin |
107 s:= ansistring(CurrentHedgehog^.Name); |
107 s:= ansistring(CurrentHedgehog^.Name); |