hedgewars/uConsts.pas
changeset 1261 903058d382c7
parent 1259 0c660c3d98a4
child 1262 e9191c693e44
equal deleted inserted replaced
1260:86318e7714c5 1261:903058d382c7
    54 			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    54 			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    55 			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    55 			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    56 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    56 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
    57 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    57 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
    58 			gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
    58 			gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
    59 			gtWhip, gtKamikaze, gtCake, gtSeduction);
    59 			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon);
    60 
    60 
    61 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
    61 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
    62 
    62 
    63 	TGearsType = set of TGearType;
    63 	TGearsType = set of TGearType;
    64 
    64 
    73 
    73 
    74 	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    74 	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    75 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    75 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    76 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    76 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
    77 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
    77 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
    78 			amSeduction);
    78 			amSeduction, amWatermelon);
    79 
    79 
    80 	THWFont = (fnt16, fntBig, fntSmall);
    80 	THWFont = (fnt16, fntBig, fntSmall);
    81 
    81 
    82 	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    82 	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
    83 
    83 
   812 			SkipTurns: 5;
   812 			SkipTurns: 5;
   813 			PosCount: 2;
   813 			PosCount: 2;
   814 			PosSprite: sprAmAirplane),
   814 			PosSprite: sprAmAirplane),
   815 			(NameId: sidMineStrike;
   815 			(NameId: sidMineStrike;
   816 			NameTex: nil;
   816 			NameTex: nil;
   817 			Probability: 400;
   817 			Probability: 300;
   818 			NumberInCase: 1;
   818 			NumberInCase: 1;
   819 			Ammo: (Propz: ammoprop_NoCrosshair or
   819 			Ammo: (Propz: ammoprop_NoCrosshair or
   820 							ammoprop_NeedTarget or
   820 							ammoprop_NeedTarget or
   821 							ammoprop_AttackingPut or
   821 							ammoprop_AttackingPut or
   822 							ammoprop_DontHold;
   822 							ammoprop_DontHold;
   851 			SkipTurns: 0;
   851 			SkipTurns: 0;
   852 			PosCount: 1;
   852 			PosCount: 1;
   853 			PosSprite: sprWater),
   853 			PosSprite: sprWater),
   854 			(NameId: sidGirder;
   854 			(NameId: sidGirder;
   855 			NameTex: nil;
   855 			NameTex: nil;
   856 			Probability: 400;
   856 			Probability: 300;
   857 			NumberInCase: 3;
   857 			NumberInCase: 3;
   858 			Ammo: (Propz: ammoprop_NoCrosshair or
   858 			Ammo: (Propz: ammoprop_NoCrosshair or
   859 							ammoprop_NeedTarget or
   859 							ammoprop_NeedTarget or
   860 							ammoprop_AttackingPut or
   860 							ammoprop_AttackingPut or
   861 							ammoprop_DontHold;
   861 							ammoprop_DontHold;
   872 			SkipTurns: 0;
   872 			SkipTurns: 0;
   873 			PosCount: 8;
   873 			PosCount: 8;
   874 			PosSprite: sprAmGirder),
   874 			PosSprite: sprAmGirder),
   875 			(NameId: sidTeleport;
   875 			(NameId: sidTeleport;
   876 			NameTex: nil;
   876 			NameTex: nil;
   877 			Probability: 400;
   877 			Probability: 300;
   878 			NumberInCase: 1;
   878 			NumberInCase: 1;
   879 			Ammo: (Propz: ammoprop_ForwMsgs or
   879 			Ammo: (Propz: ammoprop_ForwMsgs or
   880 							ammoprop_NoCrosshair or
   880 							ammoprop_NoCrosshair or
   881 							ammoprop_NeedTarget or
   881 							ammoprop_NeedTarget or
   882 							ammoprop_AttackingPut or
   882 							ammoprop_AttackingPut or
   988 			minAngle: 0;
   988 			minAngle: 0;
   989 			maxAngle: 0;
   989 			maxAngle: 0;
   990 			isDamaging: true;
   990 			isDamaging: true;
   991 			SkipTurns: 0;
   991 			SkipTurns: 0;
   992 			PosCount: 1;
   992 			PosCount: 1;
       
   993 			PosSprite: sprWater),
       
   994 			(NameId: sidWatermelon;
       
   995 			NameTex: nil;
       
   996 			Probability: 200;
       
   997 			NumberInCase: 1;
       
   998 			Ammo: (Propz: ammoprop_Timerable or
       
   999 							ammoprop_Power or
       
  1000 							ammoprop_AltUse;
       
  1001 					Count: 1;
       
  1002 					NumPerTurn: 0;
       
  1003 					Timer: 3000;
       
  1004 					Pos: 0;
       
  1005 					AmmoType: amWatermelon);
       
  1006 			Slot: 1;
       
  1007 			TimeAfterTurn: 3000;
       
  1008 			minAngle: 0;
       
  1009 			maxAngle: 0;
       
  1010 			isDamaging: true;
       
  1011 			SkipTurns: 0;
       
  1012 			PosCount: 1;
   993 			PosSprite: sprWater)
  1013 			PosSprite: sprWater)
   994 			);
  1014 			);
   995 
  1015 
   996 var CountTexz: array[1..9] of PTexture;
  1016 var CountTexz: array[1..9] of PTexture;
   997 
  1017