425 end;

   425 end;

   426 

   426 

   427 procedure Game;

   427 procedure Game;

   428 begin

   428 begin

   429     initEverything(true);

   429     initEverything(true);

   430     GameRoutine;

   431     GameRoutine;

   431     // clean up all the memory allocated

   432     // clean up all the memory allocated

   432     freeEverything(true);

   433     freeEverything(true);

   433 end;

   434 end;

   434 ///////////////////////////////////////////////////////////////////////////////

   435 ///////////////////////////////////////////////////////////////////////////////

   546         GenPreview(Preview);

   547         GenPreview(Preview);

   547     {$ELSE}

   548     {$ELSE}

   548         GenPreviewAlpha(Preview);

   549         GenPreviewAlpha(Preview);

   549     {$ENDIF}

   550     {$ENDIF}

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

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

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

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

   552         SendIPCRaw(@MaxHedgehogs, sizeof(byte));

   554         SendIPCRaw(@MaxHedgehogs, sizeof(byte));

   553         WriteLnToConsole('Preview sent, disconnect');

   555         WriteLnToConsole('Preview sent, disconnect');

   554     end;

   556     end;

   555 

   557