42     TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax, gmtRecord);

    42     TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax, gmtRecord);

    43 

    43 

    44     // Different files are stored in different folders, this enumeration is used to tell which folder to use

    44     // Different files are stored in different folders, this enumeration is used to tell which folder to use

    45     TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,

    45     TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,

    46             ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,

    46             ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,

    48 

    49 

    49     // Available sprites for displaying stuff

    50     // Available sprites for displaying stuff

    50     TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,

    51     TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,

    51             sprLag, sprArrow, sprBazookaShell, sprTargetP, sprBee,

    52             sprLag, sprArrow, sprBazookaShell, sprTargetP, sprBee,

    52             sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

    53             sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

   198 

   199 

   199     TVertex2i = record

   200     TVertex2i = record

   200             X, Y: GLint;

   201             X, Y: GLint;

   201             end;

   202             end;

   202 

   203 

   203     PTexture = ^TTexture;

   206     PTexture = ^TTexture;

   204     TTexture = record

   207     TTexture = record

   205             id: GLuint;

   208             id: GLuint;

   206             w, h, scale: LongInt;

   209             w, h, scale: LongInt;

   207             rx, ry: GLfloat;

   210             rx, ry: GLfloat;

   388             end;

   391             end;

   389 

   392 

   390     TClan = record

   393     TClan = record

   391             Color: Longword;

   394             Color: Longword;

   392             Teams: array[0..Pred(cMaxTeams)] of PTeam;

   395             Teams: array[0..Pred(cMaxTeams)] of PTeam;

   394             TagTeamIndex: Longword;

   397             TagTeamIndex: Longword;

   395             CurrTeam: LongWord;

   398             CurrTeam: LongWord;

   396             ClanHealth: LongInt;

   399             ClanHealth: LongInt;

   397             ClanIndex: LongInt;

   400             ClanIndex: LongInt;

   399             Flawless: boolean;

   402             Flawless: boolean;

   400             end;

   403             end;

   401 

   404 

   402      TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidBee, sidShotgun,

   405      TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidBee, sidShotgun,

   403             sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,

   406             sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,

   428             gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,

   431             gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,

   429             gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, 

   432             gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, 

   430             gidRandomMineTimer, gidDamageModifier, gidResetHealth, gidAISurvival, 

   433             gidRandomMineTimer, gidDamageModifier, gidResetHealth, gidAISurvival, 

   431             gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);

   434             gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);

   432 

   435 

   433     TLandArray = packed array of array of LongWord;

   437     TLandArray = packed array of array of LongWord;

   434     TCollisionArray = packed array of array of Word;

   438     TCollisionArray = packed array of array of Word;

   435     TPreview  = packed array[0..127, 0..31] of byte;

   441     TPreview  = packed array[0..127, 0..31] of byte;

   438     PWidgetMovement = ^TWidgetMovement;

   443     PWidgetMovement = ^TWidgetMovement;

   439     TWidgetMovement = record

   444     TWidgetMovement = record

   440         animate   : Boolean;

   445         animate   : Boolean;

   441         source    : TPoint;

   446         source    : TPoint;

   442         target    : TPoint;

   447         target    : TPoint;