hedgewars/hwengine.pas
changeset 7051 db17476d7a37
parent 7049 35d762458d66
child 7054 7e8fb07ef91c
equal deleted inserted replaced
7050:91199321e916 7051:db17476d7a37
   479 {$ENDIF}
   479 {$ENDIF}
   480     InitIPC;
   480     InitIPC;
   481     IPCWaitPongEvent;
   481     IPCWaitPongEvent;
   482     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
   482     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
   483 
   483 
   484     Preview:= GenPreview();
   484     GenPreview(Preview);
   485     WriteLnToConsole('Sending preview...');
   485     WriteLnToConsole('Sending preview...');
   486     SendIPCRaw(@Preview, sizeof(Preview));
   486     SendIPCRaw(@Preview, sizeof(Preview));
   487     SendIPCRaw(@MaxHedgehogs, sizeof(byte));
   487     SendIPCRaw(@MaxHedgehogs, sizeof(byte));
   488     WriteLnToConsole('Preview sent, disconnect');
   488     WriteLnToConsole('Preview sent, disconnect');
   489     freeEverything(false);
   489     freeEverything(false);