hedgewars/uTypes.pas
changeset 7010 10a0a31804f3
parent 7007 0ccdff4ae8e9
child 7016 8b34f46e10c1
equal deleted inserted replaced
7007:0ccdff4ae8e9 7010:10a0a31804f3
   207             priority: GLfloat;
   207             priority: GLfloat;
   208             vb, tb: array [0..3] of TVertex2f;
   208             vb, tb: array [0..3] of TVertex2f;
   209             PrevTexture, NextTexture: PTexture;
   209             PrevTexture, NextTexture: PTexture;
   210             end;
   210             end;
   211 
   211 
   212     THogEffect = (heInvulnerable, heResurrectable, hePoisoned, heResurrected);
   212     THogEffect = (heInvulnerable, heResurrectable, hePoisoned, heResurrected, heFrozen);
   213 
   213 
   214     TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
   214     TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
   215 
   215 
   216     PGear = ^TGear;
   216     PGear = ^TGear;
   217     PHedgehog = ^THedgehog;
   217     PHedgehog = ^THedgehog;
   345             Hat: shortstring;
   345             Hat: shortstring;
   346             InitialHealth: LongInt; // used for gfResetHealth
   346             InitialHealth: LongInt; // used for gfResetHealth
   347             King: boolean;  // Flag for a bunch of hedgehog attributes
   347             King: boolean;  // Flag for a bunch of hedgehog attributes
   348             Unplaced: boolean;  // Flag for hog placing mode
   348             Unplaced: boolean;  // Flag for hog placing mode
   349             Timer: Longword;
   349             Timer: Longword;
   350             Effects: array[THogEffect] of boolean;
   350             Effects: array[THogEffect] of LongInt;
   351             end;
   351             end;
   352 
   352 
   353     TTeam = record
   353     TTeam = record
   354             Clan: PClan;
   354             Clan: PClan;
   355             TeamName: string[192];
   355             TeamName: string[192];