215 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);

   215 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);

   216 PixelFormat:= SDLPrimSurface.format;

   216 PixelFormat:= SDLPrimSurface.format;

   217 SDL_ShowCursor(0);

   217 SDL_ShowCursor(0);

   218 end;

   218 end;

   219 

   219 

   221 procedure Game;

   221 procedure Game;

   222 begin

   222 begin

   223 WriteToConsole('Init SDL... ');

   223 WriteToConsole('Init SDL... ');

   224 SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true);

   224 SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true);

   225 WriteLnToConsole(msgOK);

   225 WriteLnToConsole(msgOK);

   251       true);

   251       true);

   252 

   252 

   253 MainLoop

   253 MainLoop

   254 end;

   254 end;

   255 

   255 

   256 procedure GenLandPreview;

   257 procedure GenLandPreview;

   257 begin

   258 begin

   258 InitIPC;

   259 InitIPC;

   259 IPCWaitPongEvent;

   260 IPCWaitPongEvent;

   260 TryDo(InitStepsFlags = cifRandomize,

   261 TryDo(InitStepsFlags = cifRandomize,

   261       'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')',

   262       'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')',

   262       true);

   263       true);

   264 GenPreview;

   265 GenPreview;

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

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

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

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

   267 WriteLnToConsole('Preview sent, disconnect');

   268 WriteLnToConsole('Preview sent, disconnect');

   268 CloseIPC

   269 CloseIPC