hedgewars/uConsts.pas
changeset 13463 f1d349a52bc7
parent 13454 794dcf69a5aa
child 13464 7b4643ff60ea
equal deleted inserted replaced
13462:4c47a480009b 13463:f1d349a52bc7
   118     lfDamaged        = $1000;  //
   118     lfDamaged        = $1000;  //
   119     lfIce            = $0800;  // blue
   119     lfIce            = $0800;  // blue
   120     lfBouncy         = $0400;  // green
   120     lfBouncy         = $0400;  // green
   121     lfLandMask       = $FF00;  // upper byte is used for terrain, not objects.
   121     lfLandMask       = $FF00;  // upper byte is used for terrain, not objects.
   122 
   122 
   123     lfCurrentHog     = $0080;  // CurrentHog.  It is also used to flag crates, for convenience of AI.  Since an active hog would instantly collect the crate, this does not impact play
   123     lfCurHogCrate    = $0080;  // CurrentHedgehog, and crates, for convenience of AI.  Since an active hog would instantly collect the crate, this does not impact playj
   124     lfNotCurrentMask = $FF7F;  // inverse of above. frequently used
   124     lfNotCurHogCrate = $FF7F;  // inverse of above. frequently used
   125     lfObjMask        = $007F;  // lower 7 bits used for hogs and explosives and mines 
   125     lfObjMask        = $007F;  // lower 7 bits used for hogs and explosives and mines 
   126     lfNotObjMask     = $FF80;  // inverse of above.
   126     lfNotObjMask     = $FF80;  // inverse of above.
   127 
   127 
   128 // breaking up hogs would makes it easier to differentiate 
   128 // breaking up hogs would makes it easier to differentiate 
   129 // colliding with a hog from colliding with other things
   129 // colliding with a hog from colliding with other things
   134     lfNotHHObjShift  = 4;
   134     lfNotHHObjShift  = 4;
   135     lfNotHHObjSize   = lfNotHHObjMask shr lfNotHHObjShift;  
   135     lfNotHHObjSize   = lfNotHHObjMask shr lfNotHHObjShift;  
   136 
   136 
   137     // lower byte is for objects.
   137     // lower byte is for objects.
   138     // consists of 0-127 counted for object checkins and $80 as a bit flag for current hog.
   138     // consists of 0-127 counted for object checkins and $80 as a bit flag for current hog.
   139     lfAllObjMask     = $00FF;  // lfCurrentHog or lfObjMask
   139     lfAllObjMask     = $00FF;  // lfCurHogCrate or lfObjMask
   140 
   140 
   141 
   141 
   142 
   142 
   143     cMaxPower     = 1500;
   143     cMaxPower     = 1500;
   144     cMaxAngle     = 2048;
   144     cMaxAngle     = 2048;