hedgewars/uConsts.pas
changeset 10 edf56dca1587
parent 9 4cbf854ad095
child 13 7a5db822fd3f
equal deleted inserted replaced
9:4cbf854ad095 10:edf56dca1587
    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,
    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
    46                    sprSmokeTrace, sprRopeHook, sprExplosion50);
    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
       
    47                    sprMineOn);
    47      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    48                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    49                    gtSmokeTrace, gtExplosion);
    50                    gtSmokeTrace, gtExplosion, gtMine);
    50      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    51      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    51                    sndShotgunReload, sndShotgunFire, sndGraveImpact);
    52                    sndShotgunReload, sndShotgunFire, sndGraveImpact);
    52      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope);
    53      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
       
    54                    amMine);
    53      THWFont    = (fnt16, fntBig);
    55      THWFont    = (fnt16, fntBig);
    54      THHFont    = record
    56      THHFont    = record
    55                   Handle: PTTF_Font;
    57                   Handle: PTTF_Font;
    56                   Height: integer;
    58                   Height: integer;
    57                   Name: string[15];
    59                   Name: string[15];
   128       gm_Attack = $00000020;
   130       gm_Attack = $00000020;
   129       gm_LJump  = $00000040;
   131       gm_LJump  = $00000040;
   130       gm_HJump  = $00000080;
   132       gm_HJump  = $00000080;
   131       gm_Destroy= $00000100;
   133       gm_Destroy= $00000100;
   132 
   134 
   133       cMaxSlot            = 4;
   135       cMaxSlotIndex       = 6;
   134       cMaxSlotAmmo        = 1;
   136       cMaxSlotAmmoIndex   = 1;
   135 
   137 
   136       ammoprop_Timerable    = $00000001;
   138       ammoprop_Timerable    = $00000001;
   137       ammoprop_Power        = $00000002;
   139       ammoprop_Power        = $00000002;
   138       ammoprop_NeedTarget   = $00000004;
   140       ammoprop_NeedTarget   = $00000004;
   139       ammoprop_ForwMsgs     = $00000008;
   141       ammoprop_ForwMsgs     = $00000008;
   219                                          (FileName:   'Grenade.png'; Path: ptGraphics; Width:  32; Height: 32),// sprGrenade
   221                                          (FileName:   'Grenade.png'; Path: ptGraphics; Width:  32; Height: 32),// sprGrenade
   220                                          (FileName:   'Targetp.png'; Path: ptGraphics; Width:  32; Height: 32),// sprTargetP
   222                                          (FileName:   'Targetp.png'; Path: ptGraphics; Width:  32; Height: 32),// sprTargetP
   221                                          (FileName:       'UFO.png'; Path: ptGraphics; Width:  32; Height: 32),// sprUFO
   223                                          (FileName:       'UFO.png'; Path: ptGraphics; Width:  32; Height: 32),// sprUFO
   222                                          (FileName:'SmokeTrace.png'; Path: ptGraphics; Width:  32; Height: 32),// sprSmokeTrace
   224                                          (FileName:'SmokeTrace.png'; Path: ptGraphics; Width:  32; Height: 32),// sprSmokeTrace
   223                                          (FileName:  'RopeHook.png'; Path: ptGraphics; Width:  32; Height: 32),// sprRopeHook
   225                                          (FileName:  'RopeHook.png'; Path: ptGraphics; Width:  32; Height: 32),// sprRopeHook
   224                                          (FileName:    'Expl50.png'; Path: ptGraphics; Width:  64; Height: 64) // sprExplosion50
   226                                          (FileName:    'Expl50.png'; Path: ptGraphics; Width:  64; Height: 64),// sprExplosion50
       
   227                                          (FileName:   'MineOff.png'; Path: ptGraphics; Width:  16; Height: 16),// sprMineOff
       
   228                                          (FileName:    'MineOn.png'; Path: ptGraphics; Width:  16; Height: 16) // sprMineOn
   225                                          );
   229                                          );
   226       Soundz: array[TSound] of record
   230       Soundz: array[TSound] of record
   227                                        FileName: String[31];
   231                                        FileName: String[31];
   228                                        Path    : TPathType;
   232                                        Path    : TPathType;
   229                                        id      : PMixChunk;
   233                                        id      : PMixChunk;
   248                                    Ammo: (Propz: ammoprop_Timerable or ammoprop_Power;
   252                                    Ammo: (Propz: ammoprop_Timerable or ammoprop_Power;
   249                                           Count: AMMO_INFINITE;
   253                                           Count: AMMO_INFINITE;
   250                                           NumPerTurn: 0;
   254                                           NumPerTurn: 0;
   251                                           Timer: 3000;
   255                                           Timer: 3000;
   252                                           AmmoType: amGrenade);
   256                                           AmmoType: amGrenade);
   253                                    Slot: 0;
   257                                    Slot: 1;
   254                                    TimeAfterTurn: 3000),
   258                                    TimeAfterTurn: 3000),
   255                                   (Name: 'Bazooka';
   259                                   (Name: 'Bazooka';
   256                                    Ammo: (Propz: ammoprop_Power;
   260                                    Ammo: (Propz: ammoprop_Power;
   257                                           Count: AMMO_INFINITE;
   261                                           Count: AMMO_INFINITE;
   258                                           NumPerTurn: 0;
   262                                           NumPerTurn: 0;
   259                                           Timer: 0;
   263                                           Timer: 0;
   260                                           AmmoType: amBazooka);
   264                                           AmmoType: amBazooka);
   261                                    Slot: 1;
   265                                    Slot: 0;
   262                                    TimeAfterTurn: 3000),
   266                                    TimeAfterTurn: 3000),
   263                                   (Name: 'UFO';
   267                                   (Name: 'UFO';
   264                                    Ammo: (Propz: ammoprop_Power or ammoprop_NeedTarget;
   268                                    Ammo: (Propz: ammoprop_Power or ammoprop_NeedTarget;
   265                                           Count: 4;
   269                                           Count: 4;
   266                                           NumPerTurn: 0;
   270                                           NumPerTurn: 0;
   280                                    Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump;
   284                                    Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump;
   281                                           Count: 2;
   285                                           Count: 2;
   282                                           NumPerTurn: 0;
   286                                           NumPerTurn: 0;
   283                                           Timer: 0;
   287                                           Timer: 0;
   284                                           AmmoType: amPickHammer);
   288                                           AmmoType: amPickHammer);
   285                                    Slot: 3;
   289                                    Slot: 4;
   286                                    TimeAfterTurn: 0),
   290                                    TimeAfterTurn: 0),
   287                                   (Name: 'Skip turn';
   291                                   (Name: 'Skip turn';
   288                                    Ammo: (Propz: 0;
   292                                    Ammo: (Propz: 0;
   289                                           Count: AMMO_INFINITE;
   293                                           Count: AMMO_INFINITE;
   290                                           NumPerTurn: 0;
   294                                           NumPerTurn: 0;
   291                                           Timer: 0;
   295                                           Timer: 0;
   292                                           AmmoType: amSkip);
   296                                           AmmoType: amSkip);
   293                                    Slot: 4;
   297                                    Slot: 6;
   294                                    TimeAfterTurn: 0),
   298                                    TimeAfterTurn: 0),
   295                                   (Name: 'Rope';
   299                                   (Name: 'Rope';
   296                                    Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump;
   300                                    Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump;
   297                                           Count: 5;
   301                                           Count: 5;
   298                                           NumPerTurn: 0;
   302                                           NumPerTurn: 0;
   299                                           Timer: 0;
   303                                           Timer: 0;
   300                                           AmmoType: amRope);
   304                                           AmmoType: amRope);
       
   305                                    Slot: 5;
       
   306                                    TimeAfterTurn: 0),
       
   307                                   (Name: 'Mine';
       
   308                                    Ammo: (Propz: 0;
       
   309                                           Count: 5;
       
   310                                           NumPerTurn: 0;
       
   311                                           Timer: 0;
       
   312                                           AmmoType: amMine);
   301                                    Slot: 3;
   313                                    Slot: 3;
   302                                    TimeAfterTurn: 0)
   314                                    TimeAfterTurn: 3000)
   303                                   );
   315                                   );
   304                                   
   316                                   
   305       Resolutions: array[0..3] of String = (
   317       Resolutions: array[0..3] of String = (
   306                                            '640 480',
   318                                            '640 480',
   307                                            '800 600',
   319                                            '800 600',