hedgewars/uConsts.pas
changeset 1601 0cff69c8c4cf
parent 1586 2c6f1d1f43c1
child 1608 2631f5026714
equal deleted inserted replaced
1600:305e13c5f327 1601:0cff69c8c4cf
    47 			sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
    47 			sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
    48 			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
    48 			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
    49 			sprHurrah, sprLemonade, sprExplPart, sprExplPart2,
    49 			sprHurrah, sprLemonade, sprExplPart, sprExplPart2,
    50 			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
    50 			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
    51 			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
    51 			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
    52 			sprCensored, sprDrill, sprHandDrill);
    52 			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls);
    53 
    53 
    54 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3
    54 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3
    55 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8
    55 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8
    56 			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, // 14
    56 			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, // 14
    57 			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, // 19
    57 			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, // 19
    58 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, // 23
    58 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, // 23
    59 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder, // 28
    59 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder, // 28
    60 			gtTeleport, gtSwitcher, gtTarget, gtMortar, // 32
    60 			gtTeleport, gtSwitcher, gtTarget, gtMortar, // 32
    61 			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 38
    61 			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 38
    62 			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill);
    62 			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill, gtBallGun, gtBall);
    63 
    63 
    64 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
    64 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
    65 			vgtSmallDamageTag);
    65 			vgtSmallDamageTag);
    66 
    66 
    67 	TGearsType = set of TGearType;
    67 	TGearsType = set of TGearType;
    79 
    79 
    80 	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    80 	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    81 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    81 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    82 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    82 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    83 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
    83 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
    84 			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill);
    84 			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun);
    85 
    85 
    86 	THWFont = (fnt16, fntBig, fntSmall);
    86 	THWFont = (fnt16, fntBig, fntSmall);
    87 
    87 
    88 	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    88 	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    89 
    89 
   447 			(FileName:   'Censored'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   447 			(FileName:   'Censored'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   448 			Width:  64; Height: 16; saveSurf: false),// sprCensored
   448 			Width:  64; Height: 16; saveSurf: false),// sprCensored
   449 			(FileName:      'Drill'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   449 			(FileName:      'Drill'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   450 			Width:  16; Height: 16; saveSurf: false),// sprDrill
   450 			Width:  16; Height: 16; saveSurf: false),// sprDrill
   451 			(FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   451 			(FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   452 			Width:  32; Height: 32; saveSurf: false)// sprHandDrill
   452 			Width:  32; Height: 32; saveSurf: false),// sprHandDrill
       
   453 			(FileName:    'amBallgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
       
   454 			Width:  64; Height: 64; saveSurf: false),// sprHandBallgun
       
   455 			(FileName:      'Balls'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
       
   456 			Width:  32; Height: 20; saveSurf: false)// sprBalls
   453 			);
   457 			);
   454 
   458 
   455 	Wavez: array [TWave] of record
   459 	Wavez: array [TWave] of record
   456 			Sprite: TSprite;
   460 			Sprite: TSprite;
   457 			FramesCount: Longword;
   461 			FramesCount: Longword;
  1100 			minAngle: 0;
  1104 			minAngle: 0;
  1101 			maxAngle: 0;
  1105 			maxAngle: 0;
  1102 			isDamaging: true;
  1106 			isDamaging: true;
  1103 			SkipTurns: 0;
  1107 			SkipTurns: 0;
  1104 			PosCount: 1;
  1108 			PosCount: 1;
  1105 			PosSprite: sprDrill)
  1109 			PosSprite: sprDrill),
       
  1110 			(NameId: sidBallgun;
       
  1111 			NameTex: nil;
       
  1112 			Probability: 400;
       
  1113 			NumberInCase: 1;
       
  1114 			Ammo: (Propz:  ammoprop_ForwMsgs;
       
  1115 					Count: AMMO_INFINITE;
       
  1116 					NumPerTurn: 0;
       
  1117 					Timer: 5001;
       
  1118 					Pos: 0;
       
  1119 					AmmoType: amBallgun);
       
  1120 			Slot: 2;
       
  1121 			TimeAfterTurn: 0;
       
  1122 			minAngle: 0;
       
  1123 			maxAngle: 0;
       
  1124 			isDamaging: true;
       
  1125 			SkipTurns: 0;
       
  1126 			PosCount: 1;
       
  1127 			PosSprite: sprWater)
  1106 			);
  1128 			);
  1107 
  1129 
  1108 var CountTexz: array[1..9] of PTexture;
  1130 var CountTexz: array[1..9] of PTexture;
  1109 
  1131 
  1110 implementation
  1132 implementation