hedgewars/uConsts.pas
changeset 924 227f9fcdc2f4
parent 883 07a568ba44e0
child 925 c20156328529
equal deleted inserted replaced
923:b3d097097b54 924:227f9fcdc2f4
    50                    gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    50                    gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    51                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    51                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    52                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    52                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    53                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    53                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    54                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    54                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    55                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget);
    55                    gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar);
    56 
    56 
    57      TVisualGearType = (vgtFlake, vgtCloud);
    57      TVisualGearType = (vgtFlake, vgtCloud);
    58 
    58 
    59      TGearsType = set of TGearType;
    59      TGearsType = set of TGearType;
    60 
    60 
    67                    sndEnemyDown, sndCoward, sndHurry, sndWatchIt);
    67                    sndEnemyDown, sndCoward, sndHurry, sndWatchIt);
    68 
    68 
    69      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    69      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    70                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
    70                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
    71                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    71                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    72                    amGirder, amTeleport, amSwitch);
    72                    amGirder, amTeleport, amSwitch, amMortar);
    73 
    73 
    74      THWFont    = (fnt16, fntBig, fntSmall);
    74      THWFont    = (fnt16, fntBig, fntSmall);
    75 
    75 
    76      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    76      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    77 
    77 
   801                                    TimeAfterTurn: 0;
   801                                    TimeAfterTurn: 0;
   802                                    minAngle: 0;
   802                                    minAngle: 0;
   803                                    maxAngle: 0;
   803                                    maxAngle: 0;
   804                                    isDamaging: false;
   804                                    isDamaging: false;
   805                                    PosCount: 1;
   805                                    PosCount: 1;
       
   806                                    PosSprite: sprWater),
       
   807                                   (NameId: sidMortar;
       
   808                                    NameTex: nil;
       
   809                                    Probability: 100;
       
   810                                    NumberInCase: 5;
       
   811                                    Ammo: (Propz: 0;
       
   812                                           Count: 5;
       
   813                                           NumPerTurn: 0;
       
   814                                           Timer: 0;
       
   815                                           Pos: 0;
       
   816                                           AmmoType: amMortar);
       
   817                                    Slot: 1;
       
   818                                    TimeAfterTurn: 3000;
       
   819                                    minAngle: 0;
       
   820                                    maxAngle: 0;
       
   821                                    isDamaging: true;
       
   822                                    PosCount: 1;
   806                                    PosSprite: sprWater));
   823                                    PosSprite: sprWater));
   807 
   824 
   808 var CountTexz: array[1..9] of PTexture;
   825 var CountTexz: array[1..9] of PTexture;
   809 
   826 
   810 implementation
   827 implementation