hedgewars/uConsts.pas
changeset 83 207c85fbef51
parent 82 2f4f3236cccc
child 95 1ef5e2c41115
equal deleted inserted replaced
82:2f4f3236cccc 83:207c85fbef51
    47                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
    47                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
    48                    sprMineOn, sprCase, sprFAid, sprDynamite, sprPower,
    48                    sprMineOn, sprCase, sprFAid, sprDynamite, sprPower,
    49                    sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont,
    49                    sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont,
    50                    sprSky);
    50                    sprSky);
    51      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    51      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    52                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    52                    gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope,
    53                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    53                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
    54                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    54                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
    55                    gtFirePunch);
    55                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame);
    56      TGearsType = set of TGearType;
    56      TGearsType = set of TGearType;
    57      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    57      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    58                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
    58                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
    59      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    59      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    60                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
    60                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
    61                    amBaseballBat);
    61                    amBaseballBat);
    62      THWFont    = (fnt16, fntBig);
    62      THWFont    = (fnt16, fntBig);
       
    63      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay);
    63      THHFont    = record
    64      THHFont    = record
    64                   Handle: PTTF_Font;
    65                   Handle: PTTF_Font;
    65                   Height: integer;
    66                   Height: integer;
    66                   Name: string[15];
    67                   Name: string[15];
    67                   end;
    68                   end;
   135       gstHHJumping      = $00000100;
   136       gstHHJumping      = $00000100;
   136       gsttmpFlag        = $00000200;
   137       gsttmpFlag        = $00000200;
   137       gstHHThinking     = $00000800;
   138       gstHHThinking     = $00000800;
   138       gstNoDamage       = $00001000;
   139       gstNoDamage       = $00001000;
   139 
   140 
   140       gtsStartGame      = 1;
       
   141       gtsSmoothWindCh   = 2;
       
   142 
       
   143       gm_Left   = $00000001;
   141       gm_Left   = $00000001;
   144       gm_Right  = $00000002;
   142       gm_Right  = $00000002;
   145       gm_Up     = $00000004;
   143       gm_Up     = $00000004;
   146       gm_Down   = $00000008;
   144       gm_Down   = $00000008;
   147       gm_Switch = $00000010;
   145       gm_Switch = $00000010;
   159       ammoprop_ForwMsgs     = $00000008;
   157       ammoprop_ForwMsgs     = $00000008;
   160       ammoprop_AttackInFall = $00000010;
   158       ammoprop_AttackInFall = $00000010;
   161       ammoprop_AttackInJump = $00000020;
   159       ammoprop_AttackInJump = $00000020;
   162       ammoprop_NoCrosshair  = $00000040;
   160       ammoprop_NoCrosshair  = $00000040;
   163       AMMO_INFINITE = High(LongWord);
   161       AMMO_INFINITE = High(LongWord);
   164 
       
   165       capgrpStartGame     = 0;
       
   166       capgrpAmmoinfo      = 1;
       
   167       capgrpNetSay        = 2;
       
   168 
   162 
   169       EXPLAllDamageInRadius = $00000001;
   163       EXPLAllDamageInRadius = $00000001;
   170       EXPLAutoSound         = $00000002;
   164       EXPLAutoSound         = $00000002;
   171       EXPLNoDamage          = $00000004;
   165       EXPLNoDamage          = $00000004;
   172       EXPLDoNotTouchHH      = $00000008;
   166       EXPLDoNotTouchHH      = $00000008;