hedgewars/uConsts.pas
changeset 1037 63f956a6fe7f
parent 1036 551af2411980
child 1041 362b95d49cf4
equal deleted inserted replaced
1036:551af2411980 1037:63f956a6fe7f
    44                    sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,
    44                    sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,
    45                    sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
    45                    sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
    46                    sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
    46                    sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
    47                    sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
    47                    sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
    48                    sprHat, sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
    48                    sprHat, sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
    49                    sprHurrah);
    49                    sprHurrah, sprLemonade);
    50 
    50 
    51      TGearType  = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    51      TGearType  = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    52                    gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    52                    gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    53                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    53                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    54                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    54                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    78 
    78 
    79      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    79      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    80 
    80 
    81      TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs);
    81      TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs);
    82 
    82 
    83      TWave = (waveRollup, waveSad,waveWave, waveHurrah);
    83      TWave = (waveRollup, waveSad,waveWave, waveHurrah, waveLemonade);
    84 
    84 
    85      THHFont    = record
    85      THHFont    = record
    86                   Handle: PTTF_Font;
    86                   Handle: PTTF_Font;
    87                   Height: LongInt;
    87                   Height: LongInt;
    88                   style: LongInt;
    88                   style: LongInt;
   263 			'Sounds/voices',                 // ptVoices
   263 			'Sounds/voices',                 // ptVoices
   264 			'Graphics/Hats'                  // ptHats
   264 			'Graphics/Hats'                  // ptHats
   265 			);
   265 			);
   266 
   266 
   267       SpritesData: array[TSprite] of record
   267       SpritesData: array[TSprite] of record
   268                      FileName: String[12];
   268                      FileName: String[14];
   269                      Path, AltPath: TPathType;
   269                      Path, AltPath: TPathType;
   270                      Texture: PTexture;
   270                      Texture: PTexture;
   271                      Surface: PSDL_Surface;
   271                      Surface: PSDL_Surface;
   272                      Width, Height: LongInt;
   272                      Width, Height: LongInt;
   273                      saveSurf: boolean;
   273                      saveSurf: boolean;
   407                      (FileName:        'Sad'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   407                      (FileName:        'Sad'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   408                       Width:  32; Height: 32; saveSurf: false),// sprSad
   408                       Width:  32; Height: 32; saveSurf: false),// sprSad
   409                      (FileName:       'Wave'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   409                      (FileName:       'Wave'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   410                       Width:  64; Height: 32; saveSurf: false),// sprWave
   410                       Width:  64; Height: 32; saveSurf: false),// sprWave
   411                      (FileName:     'Hurrah'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   411                      (FileName:     'Hurrah'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   412                       Width:  32; Height: 32; saveSurf: false) // sprHurrah
   412                       Width:  32; Height: 32; saveSurf: false),// sprHurrah
       
   413                      (FileName:'ILoveLemonade';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
       
   414                       Width: 128; Height: 32; saveSurf: false) // sprLemonade
   413                      );
   415                      );
   414 
   416 
   415 	Wavez: array [TWave] of record
   417 	Wavez: array [TWave] of record
   416 			Sprite: TSprite;
   418 			Sprite: TSprite;
   417 			FramesCount: Longword;
   419 			FramesCount: Longword;
   418 			cmd: String[10];
   420 			cmd: String[20];
   419 			end = (
   421 			end = (
   420 			(Sprite: sprKowtow; FramesCount: 12; cmd: '/rollup'),
   422 			(Sprite:   sprKowtow; FramesCount: 12; cmd: '/rollup'),
   421 			(Sprite:    sprSad; FramesCount: 14; cmd: '/sad'),
   423 			(Sprite:      sprSad; FramesCount: 14; cmd: '/sad'),
   422 			(Sprite:   sprWave; FramesCount: 14; cmd: '/wave'),
   424 			(Sprite:     sprWave; FramesCount: 16; cmd: '/wave'),
   423 			(Sprite: sprHurrah; FramesCount: 14; cmd: '/hurrah')
   425 			(Sprite:   sprHurrah; FramesCount: 14; cmd: '/hurrah'),
       
   426 			(Sprite: sprLemonade; FramesCount: 24; cmd: '/ilovelotsoflemonade')
   424 			);
   427 			);
   425 
   428 
   426       Soundz: array[TSound] of record
   429       Soundz: array[TSound] of record
   427                 FileName: String[19];
   430                 FileName: String[19];
   428                 Path    : TPathType;
   431                 Path    : TPathType;