equal
deleted
inserted
replaced
529 uScript.freeModule; |
529 uScript.freeModule; |
530 end; |
530 end; |
531 |
531 |
532 /////////////////////////////////////////////////////////////////////////////// |
532 /////////////////////////////////////////////////////////////////////////////// |
533 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
533 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF}; |
534 var Preview: TPreview; |
534 var Preview: TPreviewAlpha; |
535 begin |
535 begin |
536 initEverything(false); |
536 initEverything(false); |
537 {$IFDEF HWLIBRARY} |
537 {$IFDEF HWLIBRARY} |
538 WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
538 WriteLnToConsole('Preview connecting on port ' + inttostr(port)); |
539 ipcPort:= port; |
539 ipcPort:= port; |
542 InitIPC; |
542 InitIPC; |
543 IPCWaitPongEvent; |
543 IPCWaitPongEvent; |
544 TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
544 TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true); |
545 |
545 |
546 ScriptOnPreviewInit; |
546 ScriptOnPreviewInit; |
547 GenPreview(Preview); |
547 GenPreviewAlpha(Preview); |
548 WriteLnToConsole('Sending preview...'); |
548 WriteLnToConsole('Sending preview...'); |
549 SendIPCRaw(@Preview, sizeof(Preview)); |
549 SendIPCRaw(@Preview, sizeof(Preview)); |
550 SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
550 SendIPCRaw(@MaxHedgehogs, sizeof(byte)); |
551 WriteLnToConsole('Preview sent, disconnect'); |
551 WriteLnToConsole('Preview sent, disconnect'); |
552 freeEverything(false); |
552 freeEverything(false); |