| changeset 4479 | 59e11a5a3bfa |
| parent 4465 | 743673c67d0c |
| child 4480 | fcada5d38b3d |
| 4477:63a21fac8bf7 | 4479:59e11a5a3bfa |
|---|---|
34 procedure RestoreTeamsFromSave; |
34 procedure RestoreTeamsFromSave; |
35 function CheckForWin: boolean; |
35 function CheckForWin: boolean; |
36 procedure TeamGoneEffect(var Team: TTeam); |
36 procedure TeamGoneEffect(var Team: TTeam); |
37 |
37 |
38 implementation |
38 implementation |
39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug; |
39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript; |
40 |
40 |
41 const MaxTeamHealth: LongInt = 0; |
41 const MaxTeamHealth: LongInt = 0; |
42 |
42 |
43 function CheckForWin: boolean; |
43 function CheckForWin: boolean; |
44 var AliveClan: PClan; |
44 var AliveClan: PClan; |
289 inc(TeamsNumber) |
289 inc(TeamsNumber) |
290 end; |
290 end; |
291 |
291 |
292 CurrentTeam:= team; |
292 CurrentTeam:= team; |
293 AddTeam:= team; |
293 AddTeam:= team; |
294 ScriptCall('onNewTurn'); |
|
294 end; |
295 end; |
295 |
296 |
296 procedure RecountAllTeamsHealth; |
297 procedure RecountAllTeamsHealth; |
297 var t: LongInt; |
298 var t: LongInt; |
298 begin |
299 begin |