equal
deleted
inserted
replaced
313 |
313 |
314 procedure initEverything (complete:boolean); |
314 procedure initEverything (complete:boolean); |
315 begin |
315 begin |
316 Randomize(); |
316 Randomize(); |
317 |
317 |
318 uConsts.initModule; |
318 // uConsts does not need initialization as they are all consts |
319 uMisc.initModule; |
319 uMisc.initModule; |
320 uConsole.initModule; // MUST happen after uMisc |
320 uConsole.initModule; // MUST happen after uMisc |
321 |
321 |
322 uLand.initModule; |
322 uLand.initModule; |
323 uIO.initModule; |
323 uIO.initModule; |
384 uIO.freeModule; //stub |
384 uIO.freeModule; //stub |
385 uLand.freeModule; |
385 uLand.freeModule; |
386 |
386 |
387 uConsole.freeModule; |
387 uConsole.freeModule; |
388 uMisc.freeModule; // uMisc closes the debug log. |
388 uMisc.freeModule; // uMisc closes the debug log. |
389 uConsts.freeModule; //stub |
|
390 end; |
389 end; |
391 |
390 |
392 ///////////////////////// |
391 ///////////////////////// |
393 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
392 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
394 var Preview: TPreview; |
393 var Preview: TPreview; |
444 GameType:= gmtSyntax |
443 GameType:= gmtSyntax |
445 else |
444 else |
446 if (ParamCount = 3) then |
445 if (ParamCount = 3) then |
447 internalSetGameTypeLandPreviewFromParameters() |
446 internalSetGameTypeLandPreviewFromParameters() |
448 else |
447 else |
449 if (ParamCount = 18) then |
448 if (ParamCount = cDefaultParamNum) then |
450 internalStartGameWithParameters() |
449 internalStartGameWithParameters() |
451 else |
450 else |
452 playReplayFileWithParameters(); |
451 playReplayFileWithParameters(); |
453 end; |
452 end; |
454 |
453 |