543 procedure GenLandPreview;

   543 procedure GenLandPreview;

   544 {$IFDEF MOBILE}

   544 {$IFDEF MOBILE}

   545 var Preview: TPreview;

   545 var Preview: TPreview;

   546 {$ELSE}

   546 {$ELSE}

   547 var Preview: TPreviewAlpha;

   547 var Preview: TPreviewAlpha;

   549 begin

   549 begin

   550     initEverything(false);

   550     initEverything(false);

   551 

   551 

   552     InitIPC;

   552     InitIPC;

   553     IPCWaitPongEvent;

   553     IPCWaitPongEvent;

   556     ScriptOnPreviewInit;

   556     ScriptOnPreviewInit;

   557 {$IFDEF MOBILE}

   557 {$IFDEF MOBILE}

   558     GenPreview(Preview);

   558     GenPreview(Preview);

   559 {$ELSE}

   559 {$ELSE}

   560     GenPreviewAlpha(Preview);

   560     GenPreviewAlpha(Preview);

   562     WriteLnToConsole('Sending preview...');

   562     WriteLnToConsole('Sending preview...');

   563     SendIPCRaw(@Preview, sizeof(Preview));

   563     SendIPCRaw(@Preview, sizeof(Preview));

   564     SendIPCRaw(@MaxHedgehogs, sizeof(byte));

   564     SendIPCRaw(@MaxHedgehogs, sizeof(byte));

   565     WriteLnToConsole('Preview sent, disconnect');

   565     WriteLnToConsole('Preview sent, disconnect');

   566     freeEverything(false);

   566     freeEverything(false);