diff -r 8e2dedaa01b4 -r e4d1fb310a66 hedgewars/uConsts.pas --- a/hedgewars/uConsts.pas Wed Dec 26 22:18:34 2007 +0000 +++ b/hedgewars/uConsts.pas Sun Dec 30 15:24:02 2007 +0000 @@ -21,8 +21,8 @@ uses SDLh, uLocale; {$INCLUDE options.inc} {$INCLUDE proto.inc} -type TStuff = (sConsoleBG, sPowerBar, sQuestion, sWindBar, - sWindL, sWindR, sRopeNode); +type TStuff = (sPowerBar, sWindBar, + sWindL, sWindR); TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); @@ -40,7 +40,8 @@ sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb, sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask, - sprSwitch, sprParachute, sprTarget); + sprSwitch, sprParachute, sprTarget, sprRopeNode, sprConsoleBG, + sprQuestion); TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, @@ -233,22 +234,16 @@ FileName: String[31]; Path : TPathType; end = ( - (FileName: 'Console'; Path: ptGraphics ), // sConsoleBG (FileName: 'PowerBar'; Path: ptGraphics ), // sPowerBar - (FileName: 'thinking'; Path: ptGraphics ), // sQuestion (FileName: 'WindBar'; Path: ptGraphics ), // sWindBar (FileName: 'WindL'; Path: ptGraphics ), // sWindL - (FileName: 'WindR'; Path: ptGraphics ), // sWindR - (FileName: 'RopeNode'; Path: ptGraphics ) // sRopeNode + (FileName: 'WindR'; Path: ptGraphics ) // sWindR ); StuffPoz: array[TStuff] of TSDL_Rect = ( - (x: 256; y: 256; w: 256; h: 256), // sConsoleBG (x: 256; y: 768; w: 256; h: 32), // sPowerBar - (x: 256; y: 512; w: 32; h: 32), // sQuestion (x: 256; y: 800; w: 151; h: 17), // sWindBar (x: 256; y: 817; w: 80; h: 13), // sWindL - (x: 336; y: 817; w: 80; h: 13), // sWindR - (x: 256; y: 544; w: 6; h: 6) // sRopeNode + (x: 336; y: 817; w: 80; h: 13) // sWindR ); SpritesData: array[TSprite] of record FileName: String[31]; @@ -257,86 +252,92 @@ Width, Height: LongInt; hasAlpha: boolean; end = ( - (FileName: 'BlueWater'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 256; Height: 48; hasAlpha: false),// sprWater - (FileName: 'Clouds'; Path: ptCurrTheme; AltPath: ptGraphics; Surface: nil; - Width: 256; Height:128; hasAlpha: false),// sprCloud - (FileName: 'Bomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprBomb - (FileName: 'BigDigits'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: true),// sprBigDigit - (FileName: 'Frame'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 4; Height: 32; hasAlpha: true),// sprFrame - (FileName: 'Lag'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 65; Height: 65; hasAlpha: true),// sprLag - (FileName: 'Arrow'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprCursor - (FileName: 'Grenade'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprGrenade - (FileName: 'Targetp'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprTargetP - (FileName: 'UFO'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprUFO - (FileName:'SmokeTrace'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: true),// sprSmokeTrace - (FileName: 'RopeHook'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprRopeHook - (FileName: 'Expl50'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 64; Height: 64; hasAlpha: false),// sprExplosion50 - (FileName: 'MineOff'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprMineOff - (FileName: 'MineOn'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprMineOn - (FileName: 'Case'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprCase - (FileName: 'FirstAid'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 48; Height: 48; hasAlpha: false),// sprFAid - (FileName: 'dynamite'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprDynamite - (FileName: 'Power'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: true),// sprPower - (FileName: 'ClBomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprClusterBomb - (FileName:'ClParticle'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprClusterParticle - (FileName: 'Flame'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 16; Height: 16; hasAlpha: false),// sprFlame - (FileName: 'horizont'; Path: ptCurrTheme; AltPath: ptNone; Surface: nil; - Width: 0; Height: 0; hasAlpha: false),// sprHorizont - (FileName: 'Sky'; Path: ptCurrTheme; AltPath: ptNone; Surface: nil; - Width: 0; Height: 0; hasAlpha: false),// sprSky - (FileName: 'BrdrLines'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; - Width: 202; Height: 1; hasAlpha: false),// sprAMBorders - (FileName: 'Slot'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; - Width: 202; Height: 33; hasAlpha: false),// sprAMSlot - (FileName: 'AmmoName'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; - Width: 202; Height: 33; hasAlpha: false),// sprAMSlotName - (FileName: 'Ammos'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprAMAmmos - (FileName: 'SlotKeys'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprAMSlotKeys - (FileName: 'Selection'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprAMSelection - (FileName: 'Finger'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 48; hasAlpha: false),// sprFinger - (FileName: 'AirBomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprAirBomb - (FileName: 'Airplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 125; Height: 42; hasAlpha: false),// sprAirplane - (FileName:'amAirplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 64; Height: 32; hasAlpha: true),// sprAirplane - (FileName: 'amGirder'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 160; Height:160; hasAlpha: false),// sprAmGirder - (FileName: 'hhMask'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprHHTelepMask - (FileName: 'Switch'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha: false),// sprSwitch - (FileName: 'Parachute'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 48; Height: 48; hasAlpha: true),// sprParachute - (FileName: 'Target'; Path: ptGraphics; AltPath: ptNone; Surface: nil; - Width: 32; Height: 32; hasAlpha:false) // sprTarget + (FileName: 'BlueWater'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 256; Height: 48; hasAlpha: false),// sprWater + (FileName: 'Clouds'; Path: ptCurrTheme; AltPath: ptGraphics; Surface: nil; + Width: 256; Height:128; hasAlpha: false),// sprCloud + (FileName: 'Bomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprBomb + (FileName: 'BigDigits'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: true),// sprBigDigit + (FileName: 'Frame'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 4; Height: 32; hasAlpha: true),// sprFrame + (FileName: 'Lag'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 65; Height: 65; hasAlpha: true),// sprLag + (FileName: 'Arrow'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprCursor + (FileName: 'Grenade'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprGrenade + (FileName: 'Targetp'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprTargetP + (FileName: 'UFO'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprUFO + (FileName: 'SmokeTrace'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: true),// sprSmokeTrace + (FileName: 'RopeHook'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprRopeHook + (FileName: 'Expl50'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 64; Height: 64; hasAlpha: false),// sprExplosion50 + (FileName: 'MineOff'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprMineOff + (FileName: 'MineOn'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprMineOn + (FileName: 'Case'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprCase + (FileName: 'FirstAid'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 48; Height: 48; hasAlpha: false),// sprFAid + (FileName: 'dynamite'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprDynamite + (FileName: 'Power'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: true),// sprPower + (FileName: 'ClBomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprClusterBomb + (FileName: 'ClParticle'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprClusterParticle + (FileName: 'Flame'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 16; Height: 16; hasAlpha: false),// sprFlame + (FileName: 'horizont'; Path: ptCurrTheme; AltPath: ptNone; Surface: nil; + Width: 0; Height: 0; hasAlpha: false),// sprHorizont + (FileName: 'Sky'; Path: ptCurrTheme; AltPath: ptNone; Surface: nil; + Width: 0; Height: 0; hasAlpha: false),// sprSky + (FileName: 'BrdrLines'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; + Width: 202; Height: 1; hasAlpha: false),// sprAMBorders + (FileName: 'Slot'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; + Width: 202; Height: 33; hasAlpha: false),// sprAMSlot + (FileName: 'AmmoName'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; + Width: 202; Height: 33; hasAlpha: false),// sprAMSlotName + (FileName: 'Ammos'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprAMAmmos + (FileName: 'SlotKeys'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprAMSlotKeys + (FileName: 'Selection'; Path: ptAmmoMenu; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprAMSelection + (FileName: 'Finger'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 48; hasAlpha: false),// sprFinger + (FileName: 'AirBomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprAirBomb + (FileName: 'Airplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 125; Height: 42; hasAlpha: false),// sprAirplane + (FileName: 'amAirplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 64; Height: 32; hasAlpha: true),// sprAirplane + (FileName: 'amGirder'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 160; Height:160; hasAlpha: false),// sprAmGirder + (FileName: 'hhMask'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprHHTelepMask + (FileName: 'Switch'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha: false),// sprSwitch + (FileName: 'Parachute'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 48; Height: 48; hasAlpha: true),// sprParachute + (FileName: 'Target'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha:false),// sprTarget + (FileName: 'RopeNode'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 6; Height: 6; hasAlpha:false),// sprRopeNode + (FileName: 'Console'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 256; Height:256; hasAlpha:false),// sprConsoleBG + (FileName: 'thinking'; Path: ptGraphics; AltPath: ptNone; Surface: nil; + Width: 32; Height: 32; hasAlpha:false) // sprQuestion ); - + Soundz: array[TSound] of record FileName: String[31]; Path : TPathType;