53 uAIActions in 'uAIActions.pas', |
53 uAIActions in 'uAIActions.pas', |
54 uCollisions in 'uCollisions.pas', |
54 uCollisions in 'uCollisions.pas', |
55 uLand in 'uLand.pas', |
55 uLand in 'uLand.pas', |
56 uLandTemplates in 'uLandTemplates.pas', |
56 uLandTemplates in 'uLandTemplates.pas', |
57 uLandObjects in 'uLandObjects.pas', |
57 uLandObjects in 'uLandObjects.pas', |
58 uLandGraphics in 'uLandGraphics.pas'; |
58 uLandGraphics in 'uLandGraphics.pas', |
|
59 uLocale in 'uLocale.pas'; |
59 |
60 |
60 {$INCLUDE options.inc} |
61 {$INCLUDE options.inc} |
61 |
62 |
62 // also: GSHandlers.inc |
63 // also: GSHandlers.inc |
63 // CCHandlers.inc |
64 // CCHandlers.inc |
168 for i:= 0 to ParamCount do |
169 for i:= 0 to ParamCount do |
169 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
170 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
170 {$ELSE} |
171 {$ELSE} |
171 begin |
172 begin |
172 {$ENDIF} |
173 {$ENDIF} |
173 if ParamCount=6 then |
174 if ParamCount = 7 then |
174 begin |
175 begin |
175 val(ParamStr(1), cScreenWidth, c); |
176 val(ParamStr(1), cScreenWidth, c); |
176 val(ParamStr(2), cScreenHeight, c); |
177 val(ParamStr(2), cScreenHeight, c); |
177 cBitsStr:= ParamStr(3); |
178 cBitsStr:= ParamStr(3); |
178 val(cBitsStr, cBits, c); |
179 val(cBitsStr, cBits, c); |
179 val(ParamStr(4), ipcPort, c); |
180 val(ParamStr(4), ipcPort, c); |
180 cFullScreen:= ParamStr(5) = '1'; |
181 cFullScreen:= ParamStr(5) = '1'; |
181 isSoundEnabled:= ParamStr(6) = '1'; |
182 isSoundEnabled:= ParamStr(6) = '1'; |
|
183 cLocaleFName:= ParamStr(7); |
182 end else OutError(errmsgShouldntRun, true); |
184 end else OutError(errmsgShouldntRun, true); |
183 end; |
185 end; |
184 |
186 |
185 procedure ShowMainWindow; |
187 procedure ShowMainWindow; |
186 var flags: Longword; |
188 var flags: Longword; |