hedgewars/uConsts.pas
changeset 1263 24677a82531d
parent 1262 e9191c693e44
child 1270 ee024c14c904
equal deleted inserted replaced
1262:e9191c693e44 1263:24677a82531d
    45 			sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
    45 			sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
    46 			sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
    46 			sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
    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);
    51 
    52 
    52 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    53 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    53 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    54 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    54 			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    55 			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    55 			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    56 			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    56 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    57 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    57 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    58 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    58 			gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
    59 			gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
    59 			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece);
    60 			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece,
       
    61 			gtHellishBomb, gtEvilTrace);
    60 
    62 
    61 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
    63 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
    62 
    64 
    63 	TGearsType = set of TGearType;
    65 	TGearsType = set of TGearType;
    64 
    66 
    73 
    75 
    74 	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    76 	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    75 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    77 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    76 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    78 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    77 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
    79 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
    78 			amSeduction, amWatermelon);
    80 			amSeduction, amWatermelon, amHellishBomb);
    79 
    81 
    80 	THWFont = (fnt16, fntBig, fntSmall);
    82 	THWFont = (fnt16, fntBig, fntSmall);
    81 
    83 
    82 	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    84 	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    83 
    85 
   423 			(FileName:  'Cake_down'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   425 			(FileName:  'Cake_down'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   424 			Width:  64; Height: 64; saveSurf: false),// sprCakeDown
   426 			Width:  64; Height: 64; saveSurf: false),// sprCakeDown
   425 			(FileName:   'Ammos_bw'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
   427 			(FileName:   'Ammos_bw'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
   426 			Width:  32; Height: 32; saveSurf: false),// sprAMAmmosBW
   428 			Width:  32; Height: 32; saveSurf: false),// sprAMAmmosBW
   427 			(FileName: 'Watermelon'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   429 			(FileName: 'Watermelon'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   428 			Width:  32; Height: 32; saveSurf: false) // sprWatermelon
   430 			Width:  32; Height: 32; saveSurf: false),// sprWatermelon
       
   431 			(FileName:  'EvilTrace'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
       
   432 			Width:  32; Height: 32; saveSurf: false),// sprEvilTrace
       
   433 			(FileName:'HellishBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
       
   434 			Width:  16; Height: 16; saveSurf: false) // sprHellishBomb
   429 			);
   435 			);
   430 
   436 
   431 	Wavez: array [TWave] of record
   437 	Wavez: array [TWave] of record
   432 			Sprite: TSprite;
   438 			Sprite: TSprite;
   433 			FramesCount: Longword;
   439 			FramesCount: Longword;
  1010 			minAngle: 0;
  1016 			minAngle: 0;
  1011 			maxAngle: 0;
  1017 			maxAngle: 0;
  1012 			isDamaging: true;
  1018 			isDamaging: true;
  1013 			SkipTurns: 0;
  1019 			SkipTurns: 0;
  1014 			PosCount: 1;
  1020 			PosCount: 1;
       
  1021 			PosSprite: sprWater),
       
  1022 			(NameId: sidHellishBomb;
       
  1023 			NameTex: nil;
       
  1024 			Probability: 200;
       
  1025 			NumberInCase: 1;
       
  1026 			Ammo: (Propz:  ammoprop_Power or
       
  1027 							ammoprop_AltUse;
       
  1028 					Count: 1;
       
  1029 					NumPerTurn: 0;
       
  1030 					Timer: 5000;
       
  1031 					Pos: 0;
       
  1032 					AmmoType: amHellishBomb);
       
  1033 			Slot: 4;
       
  1034 			TimeAfterTurn: 3000;
       
  1035 			minAngle: 0;
       
  1036 			maxAngle: 0;
       
  1037 			isDamaging: true;
       
  1038 			SkipTurns: 0;
       
  1039 			PosCount: 1;
  1015 			PosSprite: sprWater)
  1040 			PosSprite: sprWater)
  1016 			);
  1041 			);
  1017 
  1042 
  1018 var CountTexz: array[1..9] of PTexture;
  1043 var CountTexz: array[1..9] of PTexture;
  1019 
  1044