36 uses SDLh; |
36 uses SDLh; |
37 {$INCLUDE options.inc} |
37 {$INCLUDE options.inc} |
38 type TStuff = (sHorizont, sSky, sConsoleBG, sPowerBar, sQuestion, sWindBar, |
38 type TStuff = (sHorizont, sSky, 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); |
41 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave); |
42 TPathType = (ptData, ptGraphics, ptThemes, ptThemeCurrent, ptTeams, ptMaps, |
42 TPathType = (ptData, ptGraphics, ptThemes, ptThemeCurrent, ptTeams, ptMaps, |
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts); |
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts); |
44 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
44 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
45 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
45 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
46 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
46 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |