19 unit uConsts; |
19 unit uConsts; |
20 interface |
20 interface |
21 uses SDLh, uLocale; |
21 uses SDLh, uLocale; |
22 {$INCLUDE options.inc} |
22 {$INCLUDE options.inc} |
23 {$INCLUDE proto.inc} |
23 {$INCLUDE proto.inc} |
24 type TStuff = (sPowerBar, sWindBar, |
24 type |
25 sWindL, sWindR); |
|
26 |
25 |
27 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
26 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
28 |
27 |
29 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview); |
28 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview); |
30 |
29 |
39 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
38 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
40 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
39 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
41 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb, |
40 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb, |
42 sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask, |
41 sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask, |
43 sprSwitch, sprParachute, sprTarget, sprRopeNode, sprConsoleBG, |
42 sprSwitch, sprParachute, sprTarget, sprRopeNode, sprConsoleBG, |
44 sprQuestion); |
43 sprQuestion, sprPowerBar, sprWindBar, |
|
44 sprWindL, sprWindR); |
45 |
45 |
46 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
46 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
47 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
47 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
48 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
48 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
49 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
49 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
228 'Forts', // ptForts |
228 'Forts', // ptForts |
229 'Locale', // ptLocale |
229 'Locale', // ptLocale |
230 'Graphics/AmmoMenu' // ptAmmoMenu |
230 'Graphics/AmmoMenu' // ptAmmoMenu |
231 ); |
231 ); |
232 |
232 |
233 StuffLoadData: array[TStuff] of record |
|
234 FileName: String[31]; |
|
235 Path : TPathType; |
|
236 end = ( |
|
237 (FileName: 'PowerBar'; Path: ptGraphics ), // sPowerBar |
|
238 (FileName: 'WindBar'; Path: ptGraphics ), // sWindBar |
|
239 (FileName: 'WindL'; Path: ptGraphics ), // sWindL |
|
240 (FileName: 'WindR'; Path: ptGraphics ) // sWindR |
|
241 ); |
|
242 StuffPoz: array[TStuff] of TSDL_Rect = ( |
|
243 (x: 256; y: 768; w: 256; h: 32), // sPowerBar |
|
244 (x: 256; y: 800; w: 151; h: 17), // sWindBar |
|
245 (x: 256; y: 817; w: 80; h: 13), // sWindL |
|
246 (x: 336; y: 817; w: 80; h: 13) // sWindR |
|
247 ); |
|
248 SpritesData: array[TSprite] of record |
233 SpritesData: array[TSprite] of record |
249 FileName: String[31]; |
234 FileName: String[31]; |
250 Path, AltPath: TPathType; |
235 Path, AltPath: TPathType; |
251 Surface : PSDL_Surface; |
236 Surface : PSDL_Surface; |
252 Width, Height: LongInt; |
237 Width, Height: LongInt; |
333 (FileName: 'RopeNode'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
318 (FileName: 'RopeNode'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
334 Width: 6; Height: 6; hasAlpha:false),// sprRopeNode |
319 Width: 6; Height: 6; hasAlpha:false),// sprRopeNode |
335 (FileName: 'Console'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
320 (FileName: 'Console'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
336 Width: 256; Height:256; hasAlpha:false),// sprConsoleBG |
321 Width: 256; Height:256; hasAlpha:false),// sprConsoleBG |
337 (FileName: 'thinking'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
322 (FileName: 'thinking'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
338 Width: 32; Height: 32; hasAlpha:false) // sprQuestion |
323 Width: 32; Height: 32; hasAlpha:false),// sprQuestion |
|
324 (FileName: 'PowerBar'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
|
325 Width: 256; Height: 32; hasAlpha:false),// sprPowerBar |
|
326 (FileName: 'WindBar'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
|
327 Width: 151; Height: 17; hasAlpha:false),// sprWindBar |
|
328 (FileName: 'WindL'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
|
329 Width: 80; Height: 13; hasAlpha:false),// sprWindL |
|
330 (FileName: 'WindR'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
|
331 Width: 80; Height: 13; hasAlpha:false) // sprWindR |
339 ); |
332 ); |
340 |
333 |
341 Soundz: array[TSound] of record |
334 Soundz: array[TSound] of record |
342 FileName: String[31]; |
335 FileName: String[31]; |
343 Path : TPathType; |
336 Path : TPathType; |