hedgewars/uConsts.pas
changeset 2599 c7153d2348f3
parent 2588 da9e986713d4
child 2602 3deb9ff104da
equal deleted inserted replaced
2598:e118329666ff 2599:c7153d2348f3
    14  * You should have received a copy of the GNU General Public License
    14  * You should have received a copy of the GNU General Public License
    15  * along with this program; if not, write to the Free Software
    15  * along with this program; if not, write to the Free Software
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    17  *)
    17  *)
    18 
    18 
    19 {$INCLUDE options.inc}
    19 {$INCLUDE "options.inc"}
    20 
    20 
    21 unit uConsts;
    21 unit uConsts;
    22 interface
    22 interface
    23 
    23 
    24 uses
    24 uses
    28 {$ELSE}
    28 {$ELSE}
    29 	GL,
    29 	GL,
    30 {$ENDIF}
    30 {$ENDIF}
    31 	uLocale;
    31 	uLocale;
    32 
    32 
    33 {$INCLUDE proto.inc}
    33 {$INCLUDE "proto.inc"}
    34 type
    34 type
    35 
    35 
    36 	TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit);
    36 	TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit);
    37 
    37 
    38 	TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview);
    38 	TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview);