equal
deleted
inserted
replaced
49 {$ELSE} |
49 {$ELSE} |
50 procedure preInitEverything(); forward; |
50 procedure preInitEverything(); forward; |
51 procedure initEverything(complete:boolean); forward; |
51 procedure initEverything(complete:boolean); forward; |
52 procedure freeEverything(complete:boolean); forward; |
52 procedure freeEverything(complete:boolean); forward; |
53 {$ENDIF} |
53 {$ENDIF} |
54 |
|
55 // TODO localization support |
|
56 procedure ShowCredits(); |
|
57 var themeCredits, mapCredits: shortstring; |
|
58 begin |
|
59 if Length(cMapName) > 0 then |
|
60 begin |
|
61 mapCredits:= read1stLn(cPathz[ptMapCurrent] + '/credits.txt'); |
|
62 if Length(mapCredits) > 0 then |
|
63 AddChatString(char(#11) + '© Map: ' + mapCredits); |
|
64 end; |
|
65 |
|
66 themeCredits:= read1stLn(cPathz[ptCurrTheme] + '/credits.txt'); |
|
67 if Length(themeCredits) > 0 then |
|
68 AddChatString(char(#12) + '© Theme: ' + themeCredits); |
|
69 end; |
|
70 |
54 |
71 /////////////////////////////////////////////////////////////////////////////// |
55 /////////////////////////////////////////////////////////////////////////////// |
72 function DoTimer(Lag: LongInt): boolean; |
56 function DoTimer(Lag: LongInt): boolean; |
73 var s: shortstring; |
57 var s: shortstring; |
74 t: LongWord; |
58 t: LongWord; |
110 ScriptCall('onGameStart'); |
94 ScriptCall('onGameStart'); |
111 for t:= 0 to Pred(TeamsCount) do |
95 for t:= 0 to Pred(TeamsCount) do |
112 with TeamsArray[t]^ do |
96 with TeamsArray[t]^ do |
113 MaxTeamHealth:= TeamHealth; |
97 MaxTeamHealth:= TeamHealth; |
114 RecountAllTeamsHealth; |
98 RecountAllTeamsHealth; |
115 //if not cOnlyStats then ShowCredits; |
|
116 GameState:= gsGame; |
99 GameState:= gsGame; |
117 end; |
100 end; |
118 gsConfirm, gsGame, gsChat: |
101 gsConfirm, gsGame, gsChat: |
119 begin |
102 begin |
120 // disable screenshot flash effect when about to make another screenshot |
103 // disable screenshot flash effect when about to make another screenshot |