equal
deleted
inserted
replaced
71 // proto.inc |
71 // proto.inc |
72 |
72 |
73 var isTerminated: boolean = false; |
73 var isTerminated: boolean = false; |
74 alsoShutdownFrontend: boolean = false; |
74 alsoShutdownFrontend: boolean = false; |
75 {$IFDEF HWLIBRARY} |
75 {$IFDEF HWLIBRARY} |
76 type arrayofpchar = array[0..8] of PChar; |
76 type arrayofpchar = array[0..9] of PChar; |
77 |
77 |
78 procedure initEverything(complete:boolean); |
78 procedure initEverything(complete:boolean); |
79 procedure freeEverything(complete:boolean); |
79 procedure freeEverything(complete:boolean); |
80 |
80 |
81 implementation |
81 implementation |
254 cBits:= 32; |
254 cBits:= 32; |
255 cFullScreen:= false; |
255 cFullScreen:= false; |
256 cVSyncInUse:= true; |
256 cVSyncInUse:= true; |
257 cTimerInterval:= 8; |
257 cTimerInterval:= 8; |
258 PathPrefix:= 'Data'; |
258 PathPrefix:= 'Data'; |
259 cReducedQuality:= rqBlurryLand; //FIXME |
|
260 cShowFPS:= true; |
259 cShowFPS:= true; |
261 cInitVolume:= 100; |
260 cInitVolume:= 100; |
262 |
261 |
263 UserNick:= gameArgs[0]; |
262 UserNick:= gameArgs[0]; |
264 val(gameArgs[1], ipcPort); |
263 val(gameArgs[1], ipcPort); |
267 cLocaleFName:= gameArgs[4]; |
266 cLocaleFName:= gameArgs[4]; |
268 cAltDamage:= gameArgs[5] = '1'; |
267 cAltDamage:= gameArgs[5] = '1'; |
269 val(gameArgs[6], cScreenHeight); |
268 val(gameArgs[6], cScreenHeight); |
270 val(gameArgs[7], cScreenWidth); |
269 val(gameArgs[7], cScreenWidth); |
271 recordFileName:= gameArgs[8]; |
270 recordFileName:= gameArgs[8]; |
|
271 |
|
272 if (gameArgs[9] = '2') then |
|
273 cReducedQuality:= rqLowRes or rqBlurryLand |
|
274 else |
|
275 if (gameArgs[9] = '1') then |
|
276 cReducedQuality:= rqBlurryLand |
|
277 else |
|
278 cReducedQuality:= rqNone; |
|
279 |
272 {$ENDIF} |
280 {$ENDIF} |
273 initEverything(true); |
281 initEverything(true); |
274 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
282 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
275 {$IFDEF DEBUGFILE} |
283 {$IFDEF DEBUGFILE} |
276 AddFileLog('Prefix: "' + PathPrefix +'"'); |
284 AddFileLog('Prefix: "' + PathPrefix +'"'); |
574 cFullScreen:= ParamStr(11) = '1'; |
582 cFullScreen:= ParamStr(11) = '1'; |
575 cAltDamage:= ParamStr(12) = '1'; |
583 cAltDamage:= ParamStr(12) = '1'; |
576 cShowFPS:= ParamStr(13) = '1'; |
584 cShowFPS:= ParamStr(13) = '1'; |
577 val(ParamStr(14), cTimerInterval); |
585 val(ParamStr(14), cTimerInterval); |
578 if (ParamStr(15) = '1') then //HACK |
586 if (ParamStr(15) = '1') then //HACK |
579 cReducedQuality:= $FFFFFFFF xor rqLowRes |
587 cReducedQuality:= $FFFFFFFF xor rqLowRes |
580 else |
588 else |
581 val(ParamStr(15), cReducedQuality); |
589 val(ParamStr(15), cReducedQuality); |
582 end |
590 end |
583 else GameType:= gmtSyntax; |
591 else GameType:= gmtSyntax; |
584 end; |
592 end; |