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, sWindBar, |
38 type TStuff = (sHorizont, sSky, sConsoleBG, sPowerBar, sQuestion, sWindBar, |
39 sWindL, sWindR); |
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); |
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, |
195 (FileName: 'Console.png'; Path: ptGraphics ), // sConsoleBG |
195 (FileName: 'Console.png'; Path: ptGraphics ), // sConsoleBG |
196 (FileName: 'PowerBar.png'; Path: ptGraphics ), // sPowerBar |
196 (FileName: 'PowerBar.png'; Path: ptGraphics ), // sPowerBar |
197 (FileName: 'thinking.png'; Path: ptGraphics ), // sQuestion |
197 (FileName: 'thinking.png'; Path: ptGraphics ), // sQuestion |
198 (FileName: 'WindBar.png'; Path: ptGraphics ), // sWindBar |
198 (FileName: 'WindBar.png'; Path: ptGraphics ), // sWindBar |
199 (FileName: 'WindL.png'; Path: ptGraphics ), // sWindL |
199 (FileName: 'WindL.png'; Path: ptGraphics ), // sWindL |
200 (FileName: 'WindR.png'; Path: ptGraphics ) // sWindR |
200 (FileName: 'WindR.png'; Path: ptGraphics ), // sWindR |
|
201 (FileName: 'RopeNode.png'; Path: ptGraphics ) // sRopeNode |
201 ); |
202 ); |
202 StuffPoz: array[TStuff] of TSDL_Rect = ( |
203 StuffPoz: array[TStuff] of TSDL_Rect = ( |
203 (x: 0; y: 0; w: 512; h: 256), // sHorizont |
204 (x: 0; y: 0; w: 512; h: 256), // sHorizont |
204 (x: 512; y: 0; w: 64; h:1024), // sSky |
205 (x: 512; y: 0; w: 64; h:1024), // sSky |
205 (x: 256; y: 256; w: 256; h: 256), // sConsoleBG |
206 (x: 256; y: 256; w: 256; h: 256), // sConsoleBG |
206 (x: 256; y: 768; w: 256; h: 32), // sPowerBar |
207 (x: 256; y: 768; w: 256; h: 32), // sPowerBar |
207 (x: 256; y: 512; w: 32; h: 32), // sQuestion |
208 (x: 256; y: 512; w: 32; h: 32), // sQuestion |
208 (x: 256; y: 800; w: 151; h: 17), // sWindBar |
209 (x: 256; y: 800; w: 151; h: 17), // sWindBar |
209 (x: 256; y: 817; w: 80; h: 13), // sWindL |
210 (x: 256; y: 817; w: 80; h: 13), // sWindL |
210 (x: 336; y: 817; w: 80; h: 13) // sWindR |
211 (x: 336; y: 817; w: 80; h: 13), // sWindR |
|
212 (x: 256; y: 544; w: 6; h: 6) // sRopeNode |
211 ); |
213 ); |
212 SpritesData: array[TSprite] of record |
214 SpritesData: array[TSprite] of record |
213 FileName: String[31]; |
215 FileName: String[31]; |
214 Path : TPathType; |
216 Path : TPathType; |
215 Surface : PSDL_Surface; |
217 Surface : PSDL_Surface; |
216 Width, Height: integer; |
218 Width, Height: integer; |
217 end = ( |
219 hasAlpha: boolean; |
218 (FileName: 'BlueWater.png'; Path: ptGraphics; Width: 256; Height: 48),// sprWater |
220 end = ( |
219 (FileName: 'Clouds.png'; Path: ptGraphics; Width: 256; Height:128),// sprCloud |
221 (FileName: 'BlueWater.png'; Path: ptGraphics; Width: 256; Height: 48; hasAlpha: false),// sprWater |
220 (FileName: 'Bomb.png'; Path: ptGraphics; Width: 16; Height: 16),// sprBomb |
222 (FileName: 'Clouds.png'; Path: ptGraphics; Width: 256; Height:128; hasAlpha: false),// sprCloud |
221 (FileName: 'BigDigits.png'; Path: ptGraphics; Width: 32; Height: 32),// sprBigDigit |
223 (FileName: 'Bomb.png'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprBomb |
222 (FileName: 'Frame.png'; Path: ptGraphics; Width: 4; Height: 32),// sprFrame |
224 (FileName: 'BigDigits.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: true),// sprBigDigit |
223 (FileName: 'Lag.png'; Path: ptGraphics; Width: 64; Height: 64),// sprLag |
225 (FileName: 'Frame.png'; Path: ptGraphics; Width: 4; Height: 32; hasAlpha: true),// sprFrame |
224 (FileName: 'Arrow.png'; Path: ptGraphics; Width: 16; Height: 16),// sprCursor |
226 (FileName: 'Lag.png'; Path: ptGraphics; Width: 64; Height: 64; hasAlpha: false),// sprLag |
225 (FileName: 'Grenade.png'; Path: ptGraphics; Width: 32; Height: 32),// sprGrenade |
227 (FileName: 'Arrow.png'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprCursor |
226 (FileName: 'Targetp.png'; Path: ptGraphics; Width: 32; Height: 32),// sprTargetP |
228 (FileName: 'Grenade.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprGrenade |
227 (FileName: 'UFO.png'; Path: ptGraphics; Width: 32; Height: 32),// sprUFO |
229 (FileName: 'Targetp.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprTargetP |
228 (FileName:'SmokeTrace.png'; Path: ptGraphics; Width: 32; Height: 32),// sprSmokeTrace |
230 (FileName: 'UFO.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprUFO |
229 (FileName: 'RopeHook.png'; Path: ptGraphics; Width: 32; Height: 32),// sprRopeHook |
231 (FileName:'SmokeTrace.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: true),// sprSmokeTrace |
230 (FileName: 'Expl50.png'; Path: ptGraphics; Width: 64; Height: 64),// sprExplosion50 |
232 (FileName: 'RopeHook.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprRopeHook |
231 (FileName: 'MineOff.png'; Path: ptGraphics; Width: 16; Height: 16),// sprMineOff |
233 (FileName: 'Expl50.png'; Path: ptGraphics; Width: 64; Height: 64; hasAlpha: false),// sprExplosion50 |
232 (FileName: 'MineOn.png'; Path: ptGraphics; Width: 16; Height: 16),// sprMineOn |
234 (FileName: 'MineOff.png'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprMineOff |
233 (FileName: 'Case.png'; Path: ptGraphics; Width: 32; Height: 32) // sprCase |
235 (FileName: 'MineOn.png'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprMineOn |
234 ); |
236 (FileName: 'Case.png'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false) // sprCase |
|
237 ); |
235 Soundz: array[TSound] of record |
238 Soundz: array[TSound] of record |
236 FileName: String[31]; |
239 FileName: String[31]; |
237 Path : TPathType; |
240 Path : TPathType; |
238 id : PMixChunk; |
241 id : PMixChunk; |
239 end = ( |
242 end = ( |