changeset 3624 | 304c6d32383a |
parent 3617 | 1df21e06b8ba |
child 3625 | 9f1d79e01a60 |
3623:f14db208f2fa | 3624:304c6d32383a |
---|---|
196 end; |
196 end; |
197 |
197 |
198 /////////////// |
198 /////////////// |
199 {$IFDEF HWLIBRARY} |
199 {$IFDEF HWLIBRARY} |
200 procedure Game(gameArgs: arrayofpchar); cdecl; export; |
200 procedure Game(gameArgs: arrayofpchar); cdecl; export; |
201 var tmp_quality: LongInt; |
|
201 {$ELSE} |
202 {$ELSE} |
202 procedure Game; |
203 procedure Game; |
203 {$ENDIF} |
204 {$ENDIF} |
204 var p: TPathType; |
205 var p: TPathType; |
205 s: shortstring; |
206 s: shortstring; |
211 cBits:= 32; |
212 cBits:= 32; |
212 cFullScreen:= false; |
213 cFullScreen:= false; |
213 cVSyncInUse:= true; |
214 cVSyncInUse:= true; |
214 cTimerInterval:= 8; |
215 cTimerInterval:= 8; |
215 PathPrefix:= 'Data'; |
216 PathPrefix:= 'Data'; |
217 {$IFDEF DEBUGFILE} |
|
216 cShowFPS:= true; |
218 cShowFPS:= true; |
219 {$ELSE} |
|
220 cShowFPS:= false; |
|
221 {$ENDIF} |
|
217 cInitVolume:= 100; |
222 cInitVolume:= 100; |
218 |
223 |
219 UserNick:= gameArgs[0]; |
224 UserNick:= gameArgs[0]; |
220 val(gameArgs[1], ipcPort); |
225 val(gameArgs[1], ipcPort); |
221 isSoundEnabled:= gameArgs[2] = '1'; |
226 isSoundEnabled:= gameArgs[2] = '1'; |
224 cAltDamage:= gameArgs[5] = '1'; |
229 cAltDamage:= gameArgs[5] = '1'; |
225 val(gameArgs[6], cScreenHeight); |
230 val(gameArgs[6], cScreenHeight); |
226 val(gameArgs[7], cScreenWidth); |
231 val(gameArgs[7], cScreenWidth); |
227 recordFileName:= gameArgs[8]; |
232 recordFileName:= gameArgs[8]; |
228 |
233 |
229 if (gameArgs[9] = '2') then |
234 val(gameArgs[9], tmp_quality); |
230 cReducedQuality:= rqLowRes or rqBlurryLand |
235 case tmp_quality of |
231 else |
236 0: cReducedQuality:= rqNone; |
232 if (gameArgs[9] = '1') then |
237 1: cReducedQuality:= rqBlurryLand; |
233 cReducedQuality:= rqBlurryLand |
238 2: cReducedQuality:= rqBlurryLand or rqKillFlakes; |
234 else |
239 3: cReducedQuality:= rqBlurryLand or rqKillFlakes or rqLowRes; |
235 cReducedQuality:= rqNone; |
240 end; |
236 |
241 {$ENDIF} |
237 {$ENDIF} |
242 |
238 initEverything(true); |
243 initEverything(true); |
239 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
244 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
240 {$IFDEF DEBUGFILE} |
245 {$IFDEF DEBUGFILE} |
241 AddFileLog('Prefix: "' + PathPrefix +'"'); |
246 AddFileLog('Prefix: "' + PathPrefix +'"'); |
242 for i:= 0 to ParamCount do |
247 for i:= 0 to ParamCount do |