hedgewars/uConsts.pas
changeset 3112 f1bbe35ddb83
parent 3110 c8d7c852e26a
child 3115 831bd0f7050d
equal deleted inserted replaced
3111:38e0f05afbdb 3112:f1bbe35ddb83
   169             w, h: LongInt;
   169             w, h: LongInt;
   170             rx, ry: GLfloat;
   170             rx, ry: GLfloat;
   171             vb, tb: array [0..3] of TVertex2f;
   171             vb, tb: array [0..3] of TVertex2f;
   172             PrevTexture, NextTexture: PTexture;
   172             PrevTexture, NextTexture: PTexture;
   173             end;
   173             end;
       
   174 
       
   175     THogEffect = (heInvulnerable, hePoisoned);
   174 
   176 
   175     TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
   177     TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
   176 const sfMax = 1000;
   178 const sfMax = 1000;
   177 
   179 
   178 const
   180 const