36 uses SDLh, uLocale; |
36 uses SDLh, uLocale; |
37 {$INCLUDE options.inc} |
37 {$INCLUDE options.inc} |
38 type TStuff = (sConsoleBG, sPowerBar, sQuestion, sWindBar, |
38 type TStuff = (sConsoleBG, sPowerBar, sQuestion, sWindBar, |
39 sWindL, sWindR, sRopeNode); |
39 sWindL, sWindR, sRopeNode); |
40 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
40 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
41 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave); |
41 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview); |
42 TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps, |
42 TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps, |
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts, |
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts, |
44 ptLocale); |
44 ptLocale); |
45 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
45 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
46 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
46 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |