hedgewars/uConsts.pas
changeset 78 66bb79dd248d
parent 75 d2b737858ff7
child 79 29b477319854
equal deleted inserted replaced
77:51eb4c197ec3 78:66bb79dd248d
    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,
    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
    47                    sprMineOn, sprCase, sprFAid, sprDynamite, sprPower);
    47                    sprMineOn, sprCase, sprFAid, sprDynamite, sprPower,
       
    48                    sprClusterBomb, sprClusterParticle);
    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    49      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    50                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    50                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    51                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    51                    gtTeamHealthSorter);
    52                    gtTeamHealthSorter, gtClusterBomb, gtCluster);
    52      TGearsType = set of TGearType;
    53      TGearsType = set of TGearType;
    53      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    54      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    54                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
    55                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
    55      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
    56      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
    56                    amMine, amDEagle, amDynamite);
    57                    amMine, amDEagle, amDynamite);
    57      THWFont    = (fnt16, fntBig);
    58      THWFont    = (fnt16, fntBig);
    58      THHFont    = record
    59      THHFont    = record
    59                   Handle: PTTF_Font;
    60                   Handle: PTTF_Font;
    60                   Height: integer;
    61                   Height: integer;
   244                      (FileName:   'MineOff'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOff
   245                      (FileName:   'MineOff'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOff
   245                      (FileName:    'MineOn'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOn
   246                      (FileName:    'MineOn'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOn
   246                      (FileName:      'Case'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprCase
   247                      (FileName:      'Case'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprCase
   247                      (FileName:  'FirstAid'; Path: ptGraphics; Width:  48; Height: 48; hasAlpha: false),// sprFAid
   248                      (FileName:  'FirstAid'; Path: ptGraphics; Width:  48; Height: 48; hasAlpha: false),// sprFAid
   248                      (FileName:  'dynamite'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprDynamite
   249                      (FileName:  'dynamite'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprDynamite
   249                      (FileName:     'Power'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha:  true) // sprPower
   250                      (FileName:     'Power'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha:  true),// sprPower
       
   251                      (FileName:    'ClBomb'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprClusterBomb
       
   252                      (FileName:'ClParticle'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false) // sprClusterParticle
   250                      );
   253                      );
   251       Soundz: array[TSound] of record
   254       Soundz: array[TSound] of record
   252                                        FileName: String[31];
   255                                        FileName: String[31];
   253                                        Path    : TPathType;
   256                                        Path    : TPathType;
   254                                        id      : PMixChunk;
   257                                        id      : PMixChunk;
   276                                           NumPerTurn: 0;
   279                                           NumPerTurn: 0;
   277                                           Timer: 3000;
   280                                           Timer: 3000;
   278                                           AmmoType: amGrenade);
   281                                           AmmoType: amGrenade);
   279                                    Slot: 1;
   282                                    Slot: 1;
   280                                    TimeAfterTurn: 3000),
   283                                    TimeAfterTurn: 3000),
       
   284                                   (Name: 'Cluster Bomb';
       
   285                                    Ammo: (Propz: ammoprop_Timerable or ammoprop_Power;
       
   286                                           Count: 5;
       
   287                                           NumPerTurn: 0;
       
   288                                           Timer: 3000;
       
   289                                           AmmoType: amClusterBomb);
       
   290                                    Slot: 1;
       
   291                                    TimeAfterTurn: 3000),
   281                                   (Name: 'Bazooka';
   292                                   (Name: 'Bazooka';
   282                                    Ammo: (Propz: ammoprop_Power;
   293                                    Ammo: (Propz: ammoprop_Power;
   283                                           Count: AMMO_INFINITE;
   294                                           Count: AMMO_INFINITE;
   284                                           NumPerTurn: 0;
   295                                           NumPerTurn: 0;
   285                                           Timer: 0;
   296                                           Timer: 0;