42 procedure RunEngine(argc: LongInt; argv: PPChar); cdecl; export; |
42 procedure RunEngine(argc: LongInt; argv: PPChar); cdecl; export; |
43 |
43 |
44 procedure preInitEverything(); |
44 procedure preInitEverything(); |
45 procedure initEverything(complete:boolean); |
45 procedure initEverything(complete:boolean); |
46 procedure freeEverything(complete:boolean); |
46 procedure freeEverything(complete:boolean); |
47 {$IFDEF MOBILE} |
|
48 procedure GenLandPreview; cdecl; export; |
|
49 {$ENDIF MOBILE} |
|
50 |
47 |
51 implementation |
48 implementation |
52 {$ELSE} |
49 {$ELSE} |
53 procedure preInitEverything(); forward; |
50 procedure preInitEverything(); forward; |
54 procedure initEverything(complete:boolean); forward; |
51 procedure initEverything(complete:boolean); forward; |
541 uPhysFSLayer.freeModule; |
538 uPhysFSLayer.freeModule; |
542 uScript.freeModule; |
539 uScript.freeModule; |
543 end; |
540 end; |
544 |
541 |
545 /////////////////////////////////////////////////////////////////////////////// |
542 /////////////////////////////////////////////////////////////////////////////// |
546 procedure GenLandPreview;{$IFDEF MOBILE} cdecl; export;{$ENDIF MOBILE} |
543 procedure GenLandPreview; |
|
544 {$IFDEF MOBILE} |
|
545 var Preview: TPreview; |
|
546 {$ELSE} |
547 var Preview: TPreviewAlpha; |
547 var Preview: TPreviewAlpha; |
|
548 {$ENDIF MOBILE} |
548 begin |
549 begin |
549 initEverything(false); |
550 initEverything(false); |
550 |
551 |
551 InitIPC; |
552 InitIPC; |
552 IPCWaitPongEvent; |
553 IPCWaitPongEvent; |
553 TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
554 TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
554 |
555 |
555 ScriptOnPreviewInit; |
556 ScriptOnPreviewInit; |
|
557 {$IFDEF MOBILE} |
|
558 GenPreview(Preview); |
|
559 {$ELSE} |
556 GenPreviewAlpha(Preview); |
560 GenPreviewAlpha(Preview); |
|
561 {$ENDIF MOBILE} |
557 WriteLnToConsole('Sending preview...'); |
562 WriteLnToConsole('Sending preview...'); |
558 SendIPCRaw(@Preview, sizeof(Preview)); |
563 SendIPCRaw(@Preview, sizeof(Preview)); |
559 SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
564 SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
560 WriteLnToConsole('Preview sent, disconnect'); |
565 WriteLnToConsole('Preview sent, disconnect'); |
561 freeEverything(false); |
566 freeEverything(false); |