hedgewars/uConsts.pas
changeset 1573 cf88e0ace609
parent 1566 6b63c75fdc68
child 1580 971e7f057a86
equal deleted inserted replaced
1572:e1b40c3560bb 1573:cf88e0ace609
    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);
    52 			sprCensored, sprDrill, sprHandDrill);
    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);
    62 			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill);
    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);
    84 			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill);
    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 
   443 			(FileName:  'Seduction'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   443 			(FileName:  'Seduction'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   444 			Width:  32; Height: 32; saveSurf: false),// sprSeduction
   444 			Width:  32; Height: 32; saveSurf: false),// sprSeduction
   445 			(FileName:    'HHDress'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   445 			(FileName:    'HHDress'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   446 			Width:  64; Height: 64; saveSurf: false),// sprDress
   446 			Width:  64; Height: 64; saveSurf: false),// sprDress
   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: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
       
   450 			Width:  16; Height: 16; saveSurf: false),// sprDrill
       
   451 			(FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
       
   452 			Width:  32; Height: 32; saveSurf: false)// sprHandDrill
   449 			);
   453 			);
   450 
   454 
   451 	Wavez: array [TWave] of record
   455 	Wavez: array [TWave] of record
   452 			Sprite: TSprite;
   456 			Sprite: TSprite;
   453 			FramesCount: Longword;
   457 			FramesCount: Longword;
  1077 			minAngle: 0;
  1081 			minAngle: 0;
  1078 			maxAngle: 0;
  1082 			maxAngle: 0;
  1079 			isDamaging: true;
  1083 			isDamaging: true;
  1080 			SkipTurns: 0;
  1084 			SkipTurns: 0;
  1081 			PosCount: 2;
  1085 			PosCount: 2;
  1082 			PosSprite: sprAmAirplane)
  1086 			PosSprite: sprAmAirplane),
       
  1087 			(NameId: sidDrill;
       
  1088 			NameTex: nil;
       
  1089 			Probability: 0;
       
  1090 			NumberInCase: 1;
       
  1091 			Ammo: (Propz: ammoprop_Power or
       
  1092 							ammoprop_AltUse;
       
  1093 					Count: AMMO_INFINITE;
       
  1094 					NumPerTurn: 0;
       
  1095 					Timer: 0;
       
  1096 					Pos: 0;
       
  1097 					AmmoType: amDrill);
       
  1098 			Slot: 0;
       
  1099 			TimeAfterTurn: 3000;
       
  1100 			minAngle: 0;
       
  1101 			maxAngle: 0;
       
  1102 			isDamaging: true;
       
  1103 			SkipTurns: 0;
       
  1104 			PosCount: 1;
       
  1105 			PosSprite: sprDrill)
  1083 			);
  1106 			);
  1084 
  1107 
  1085 var CountTexz: array[1..9] of PTexture;
  1108 var CountTexz: array[1..9] of PTexture;
  1086 
  1109 
  1087 implementation
  1110 implementation