hedgewars/hwengine.pas
changeset 10176 ea022e9483c2
parent 10175 c92668840ea8
child 10266 a90a55ec5b98
equal deleted inserted replaced
10175:c92668840ea8 10176:ea022e9483c2
   568         GenLandPreview()
   568         GenLandPreview()
   569     else if GameType <> gmtSyntax then
   569     else if GameType <> gmtSyntax then
   570         Game();
   570         Game();
   571 
   571 
   572     // return 1 when engine is not called correctly
   572     // return 1 when engine is not called correctly
   573     {$IFDEF PAS2C OR HWLIBRARY}
   573     if GameType = gmtSyntax then
   574     exit(LongInt(GameType = gmtSyntax));
   574         {$IFDEF PAS2C}
   575     {$ELSE}
   575         exit(1);
   576     halt(LongInt(GameType = gmtSyntax));
   576         {$ELSE}
   577     {$ENDIF}
   577         halt(1);
       
   578         {$ENDIF}
   578 
   579 
   579 {$IFDEF HWLIBRARY}
   580 {$IFDEF HWLIBRARY}
   580 end;
   581 end;
   581 {$ENDIF}
   582 {$ENDIF}
   582 
   583