equal
deleted
inserted
replaced
197 else ParseCommand('fullscr 0') |
197 else ParseCommand('fullscr 0') |
198 end; |
198 end; |
199 |
199 |
200 /////////////// |
200 /////////////// |
201 procedure Game; |
201 procedure Game; |
|
202 var s: shortstring; |
202 begin |
203 begin |
203 WriteToConsole('Init SDL... '); |
204 WriteToConsole('Init SDL... '); |
204 SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true); |
205 SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true); |
205 WriteLnToConsole(msgOK); |
206 WriteLnToConsole(msgOK); |
206 |
207 |
215 WriteLnToConsole(msgGettingConfig); |
216 WriteLnToConsole(msgGettingConfig); |
216 |
217 |
217 LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName); |
218 LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName); |
218 |
219 |
219 SendIPCAndWaitReply('C'); // ask for game config |
220 SendIPCAndWaitReply('C'); // ask for game config |
|
221 |
|
222 s:= 'eproto ' + inttostr(cNetProtoVersion); |
|
223 SendIPCRaw(@s[0], Length(s) + 1); // send proto version |
|
224 |
220 InitTeams; |
225 InitTeams; |
221 |
226 |
222 if isSoundEnabled then InitSound; |
227 if isSoundEnabled then InitSound; |
223 InitWorld; |
228 InitWorld; |
224 |
229 |
252 //////////////////////////////////////////////////////////////////////////////// |
257 //////////////////////////////////////////////////////////////////////////////// |
253 /////////////////////////////// m a i n //////////////////////////////////////// |
258 /////////////////////////////// m a i n //////////////////////////////////////// |
254 //////////////////////////////////////////////////////////////////////////////// |
259 //////////////////////////////////////////////////////////////////////////////// |
255 |
260 |
256 begin |
261 begin |
257 WriteLnToConsole('-= HedgeWars 0.2 =-'); |
262 WriteLnToConsole('-= HedgeWars 0.8 =-'); |
258 WriteLnToConsole(' -= by unC0Rr =- '); |
263 WriteLnToConsole(' -= by unC0Rr =- '); |
259 GetParams; |
264 GetParams; |
260 Randomize; |
265 Randomize; |
261 |
266 |
262 if GameType = gmtLandPreview then GenLandPreview |
267 if GameType = gmtLandPreview then GenLandPreview |