33 |
33 |
34 unit uConsts; |
34 unit uConsts; |
35 interface |
35 interface |
36 uses SDLh; |
36 uses SDLh; |
37 {$INCLUDE options.inc} |
37 {$INCLUDE options.inc} |
38 type TStuff = (sHorizont, sSky, sConsoleBG, sPowerBar, sQuestion); |
38 type TStuff = (sHorizont, sSky, sConsoleBG, sPowerBar, sQuestion, sWindBar, |
|
39 sWindL, sWindR); |
39 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
40 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
40 TGameType = (gmtLocal, gmtDemo, gmtNet); |
41 TGameType = (gmtLocal, gmtDemo, gmtNet); |
41 TPathType = (ptData, ptGraphics, ptThemes, ptThemeCurrent, ptTeams, ptMaps, |
42 TPathType = (ptData, ptGraphics, ptThemes, ptThemeCurrent, ptTeams, ptMaps, |
42 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts); |
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts); |
43 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
44 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
184 end = ( |
185 end = ( |
185 (FileName: 'horizont.png'; Path: ptThemeCurrent ), // sHorizont |
186 (FileName: 'horizont.png'; Path: ptThemeCurrent ), // sHorizont |
186 (FileName: 'Sky.png'; Path: ptThemeCurrent ), // sSky |
187 (FileName: 'Sky.png'; Path: ptThemeCurrent ), // sSky |
187 (FileName: 'Console.png'; Path: ptGraphics ), // sConsoleBG |
188 (FileName: 'Console.png'; Path: ptGraphics ), // sConsoleBG |
188 (FileName: 'PowerBar.png'; Path: ptGraphics ), // sPowerBar |
189 (FileName: 'PowerBar.png'; Path: ptGraphics ), // sPowerBar |
189 (FileName: 'thinking.png'; Path: ptGraphics ) // sQuestion |
190 (FileName: 'thinking.png'; Path: ptGraphics ), // sQuestion |
|
191 (FileName: 'WindBar.png'; Path: ptGraphics ), // sWindBar |
|
192 (FileName: 'WindL.png'; Path: ptGraphics ), // sWindL |
|
193 (FileName: 'WindR.png'; Path: ptGraphics ) // sWindR |
190 ); |
194 ); |
191 StuffPoz: array[TStuff] of TSDL_Rect = ( |
195 StuffPoz: array[TStuff] of TSDL_Rect = ( |
192 (x: 0; y: 0; w: 512; h: 256), // sHorizont |
196 (x: 0; y: 0; w: 512; h: 256), // sHorizont |
193 (x: 512; y: 0; w: 64; h:1024), // sSky |
197 (x: 512; y: 0; w: 64; h:1024), // sSky |
194 (x: 256; y: 256; w: 256; h: 256), // sConsoleBG |
198 (x: 256; y: 256; w: 256; h: 256), // sConsoleBG |
195 (x: 256; y: 768; w: 256; h: 32), // sPowerBar |
199 (x: 256; y: 768; w: 256; h: 32), // sPowerBar |
196 (x: 256; y: 512; w: 32; h: 32) // sQuestion |
200 (x: 256; y: 512; w: 32; h: 32), // sQuestion |
|
201 (x: 256; y: 800; w: 151; h: 17), // sWindBar |
|
202 (x: 256; y: 817; w: 80; h: 13), // sWindL |
|
203 (x: 336; y: 817; w: 80; h: 13) // sWindR |
197 ); |
204 ); |
198 SpritesData: array[TSprite] of record |
205 SpritesData: array[TSprite] of record |
199 FileName: String[31]; |
206 FileName: String[31]; |
200 Path : TPathType; |
207 Path : TPathType; |
201 Surface : PSDL_Surface; |
208 Surface : PSDL_Surface; |