equal
deleted
inserted
replaced
254 end; |
254 end; |
255 |
255 |
256 procedure GenLandPreview; |
256 procedure GenLandPreview; |
257 begin |
257 begin |
258 InitIPC; |
258 InitIPC; |
259 SendIPCAndWaitReply('C'); |
259 IPCWaitPongEvent; |
260 TryDo(InitStepsFlags = cifRandomize, |
260 TryDo(InitStepsFlags = cifRandomize, |
261 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
261 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
262 true); |
262 true); |
|
263 WriteLnToConsole('Generating preview...'); |
263 GenPreview; |
264 GenPreview; |
|
265 WriteLnToConsole('Sending preview...'); |
264 SendIPCRaw(@Preview, sizeof(Preview)); |
266 SendIPCRaw(@Preview, sizeof(Preview)); |
|
267 WriteLnToConsole('Preview sent, disconnect'); |
265 CloseIPC |
268 CloseIPC |
266 end; |
269 end; |
267 |
270 |
268 //////////////////////////////////////////////////////////////////////////////// |
271 //////////////////////////////////////////////////////////////////////////////// |
269 /////////////////////////////// m a i n //////////////////////////////////////// |
272 /////////////////////////////// m a i n //////////////////////////////////////// |