equal
deleted
inserted
replaced
268 end; |
268 end; |
269 |
269 |
270 ///////////////////////// |
270 ///////////////////////// |
271 procedure GenLandPreview; |
271 procedure GenLandPreview; |
272 var Preview: TPreview; |
272 var Preview: TPreview; |
|
273 h: byte; |
273 begin |
274 begin |
274 InitIPC; |
275 InitIPC; |
275 IPCWaitPongEvent; |
276 IPCWaitPongEvent; |
276 TryDo(InitStepsFlags = cifRandomize, |
277 TryDo(InitStepsFlags = cifRandomize, |
277 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
278 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
278 true); |
279 true); |
279 |
280 |
280 Preview:= GenPreview; |
281 Preview:= GenPreview; |
281 WriteLnToConsole('Sending preview...'); |
282 WriteLnToConsole('Sending preview...'); |
282 SendIPCRaw(@Preview, sizeof(Preview)); |
283 SendIPCRaw(@Preview, sizeof(Preview)); |
|
284 h:= MaxHedgehogs; |
|
285 SendIPCRaw(@h, sizeof(h)); |
283 WriteLnToConsole('Preview sent, disconnect'); |
286 WriteLnToConsole('Preview sent, disconnect'); |
284 CloseIPC |
287 CloseIPC |
285 end; |
288 end; |
286 |
289 |
287 //////////////////////////////////////////////////////////////////////////////// |
290 //////////////////////////////////////////////////////////////////////////////// |