hedgewars/hwengine.dpr
changeset 159 63909aecb0ed
parent 158 e6c3223f3bca
child 160 207f520b9e83
--- a/hedgewars/hwengine.dpr	Thu Sep 21 18:10:45 2006 +0000
+++ b/hedgewars/hwengine.dpr	Thu Sep 21 21:29:02 2006 +0000
@@ -256,12 +256,15 @@
 procedure GenLandPreview;
 begin
 InitIPC;
-SendIPCAndWaitReply('C');
+IPCWaitPongEvent;
 TryDo(InitStepsFlags = cifRandomize,
       'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')',
       true);
+WriteLnToConsole('Generating preview...');
 GenPreview;
+WriteLnToConsole('Sending preview...');
 SendIPCRaw(@Preview, sizeof(Preview));
+WriteLnToConsole('Preview sent, disconnect');
 CloseIPC
 end;