18 

    18 

    19 unit uConsts;

    19 unit uConsts;

    20 interface

    20 interface

    21 uses SDLh, uLocale;

    21 uses SDLh, uLocale;

    22 {$INCLUDE options.inc}

    22 {$INCLUDE options.inc}

    23 type TStuff     = (sConsoleBG, sPowerBar, sQuestion, sWindBar,

    24 type TStuff     = (sConsoleBG, sPowerBar, sQuestion, sWindBar,

    24                    sWindL, sWindR, sRopeNode);

    25                    sWindL, sWindR, sRopeNode);

    25      TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit);

    26      TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit);

    26      TGameType  = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview);

    27      TGameType  = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview);

    27      TPathType  = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,

    28      TPathType  = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,

    75       msgOK                = 'ok';

    76       msgOK                = 'ok';

    76       msgFailed            = 'failed';

    77       msgFailed            = 'failed';

    77       msgGettingConfig     = 'Getting game config...';

    78       msgGettingConfig     = 'Getting game config...';

    78 

    79 

    79 const

    80 const

    82       MAXNAMELEN = 32;

    81       MAXNAMELEN = 32;

    83 

    82 

    84       COLOR_LAND = $00FFFFFF;

    83       COLOR_LAND = $00FFFFFF;

    85 

    84 

    86       cifRandomize = $00000001;

    85       cifRandomize = $00000001;