hedgewars/uTypes.pas
changeset 5357 ec36f3d53f3c
parent 5319 51d8e4747876
child 5493 49769489af37
equal deleted inserted replaced
5354:e121d0d6823b 5357:ec36f3d53f3c
    87 
    87 
    88     // Gears that interact with other Gears and/or Land
    88     // Gears that interact with other Gears and/or Land
    89     TGearType = (gtGrenade, gtHedgehog, gtShell, gtGrave, gtBee, // 4
    89     TGearType = (gtGrenade, gtHedgehog, gtShell, gtGrave, gtBee, // 4
    90             gtShotgunShot, gtPickHammer, gtRope, gtMine, gtCase, // 9
    90             gtShotgunShot, gtPickHammer, gtRope, gtMine, gtCase, // 9
    91             gtDEagleShot, gtDynamite, gtClusterBomb, gtCluster, gtShover, // 14
    91             gtDEagleShot, gtDynamite, gtClusterBomb, gtCluster, gtShover, // 14
    92             gtFlame, gtFirePunch, gtATStartGame, gtATSmoothWindCh, // 18
    92             gtFlame, gtFirePunch, gtATStartGame, // 17
    93             gtATFinishGame, gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, // 23
    93             gtATFinishGame, gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, // 22
    94             gtGirder, gtTeleport, gtSwitcher, gtTarget, gtMortar, // 28
    94             gtGirder, gtTeleport, gtSwitcher, gtTarget, gtMortar, // 27
    95             gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 34
    95             gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 33
    96             gtHellishBomb, gtWaterUp, gtDrill, gtBallGun, gtBall, gtRCPlane, // 40
    96             gtHellishBomb, gtWaterUp, gtDrill, gtBallGun, gtBall, gtRCPlane, // 39
    97             gtSniperRifleShot, gtJetpack, gtMolotov, gtExplosives, gtBirdy, // 45
    97             gtSniperRifleShot, gtJetpack, gtMolotov, gtExplosives, gtBirdy, // 44
    98             gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 51
    98             gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 50
    99             gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 56
    99             gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 55
   100             gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis); // 62
   100             gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis); // 61
   101 
   101 
   102     // Gears that are _only_ of visual nature (e.g. background stuff, visual effects, speechbubbles, etc.)
   102     // Gears that are _only_ of visual nature (e.g. background stuff, visual effects, speechbubbles, etc.)
   103     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
   103     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
   104             vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,
   104             vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,
   105             vgtSteam, vgtAmmo, vgtSmoke, vgtSmokeWhite, vgtHealth, vgtShell,
   105             vgtSteam, vgtAmmo, vgtSmoke, vgtSmokeWhite, vgtHealth, vgtShell,
   106             vgtDust, vgtSplash, vgtDroplet, vgtSmokeRing, vgtBeeTrace, vgtEgg,
   106             vgtDust, vgtSplash, vgtDroplet, vgtSmokeRing, vgtBeeTrace, vgtEgg,
   107             vgtFeather, vgtHealthTag, vgtSmokeTrace, vgtEvilTrace, vgtExplosion,
   107             vgtFeather, vgtHealthTag, vgtSmokeTrace, vgtEvilTrace, vgtExplosion,
   108             vgtBigExplosion, vgtChunk, vgtNote, vgtLineTrail, vgtBulletHit, vgtCircle);
   108             vgtBigExplosion, vgtChunk, vgtNote, vgtLineTrail, vgtBulletHit, vgtCircle,
       
   109             vgtSmoothWindBar);
   109 
   110 
   110     TGearsType = set of TGearType;
   111     TGearsType = set of TGearType;
   111 
   112 
   112     // Damage can be caused by different sources
   113     // Damage can be caused by different sources
   113     TDamageSource = (dsUnknown, dsFall, dsBullet, dsExplosion, dsShove, dsPoison);
   114     TDamageSource = (dsUnknown, dsFall, dsBullet, dsExplosion, dsShove, dsPoison);
   272         Kind: TVisualGearType;
   273         Kind: TVisualGearType;
   273         doStep: TVGearStepProcedure;
   274         doStep: TVGearStepProcedure;
   274         Tex: PTexture;
   275         Tex: PTexture;
   275         alpha, scale: GLfloat;
   276         alpha, scale: GLfloat;
   276         Hedgehog: PHedgehog;
   277         Hedgehog: PHedgehog;
       
   278         Tag: LongInt;
   277         Text: shortstring;
   279         Text: shortstring;
   278         Tint: Longword;
   280         Tint: Longword;
   279         uid: Longword;
   281         uid: Longword;
   280         end;
   282         end;
   281 
   283