hedgewars/uTypes.pas
changeset 4454 42bfc1a70968
parent 4422 5e8cfef25ccb
child 4578 f3cf226fad16
equal deleted inserted replaced
4453:15a483b2558a 4454:42bfc1a70968
     8 type
     8 type
     9     HwColor4f = record
     9     HwColor4f = record
    10         r, g, b, a: byte
    10         r, g, b, a: byte
    11         end;
    11         end;
    12 
    12 
    13     TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit);
    13     TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit, gsSuspend);
    14 
    14 
    15     TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax);
    15     TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax);
    16 
    16 
    17     TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,
    17     TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,
    18             ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,
    18             ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,