42      TPathType  = (ptData, ptGraphics, ptThemes, ptThemeCurrent, ptTeams, ptMaps,

    42      TPathType  = (ptData, ptGraphics, ptThemes, ptThemeCurrent, ptTeams, ptMaps,

    43                    ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts);

    43                    ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts);

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

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

    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,

    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,

    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,

    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,

    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,

    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,

    50                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite);

    50                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite);

    51      TGearsType = set of TGearType;

    51      TGearsType = set of TGearType;

    52      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,

    52      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,

    67              AmmoType: TAmmoType;

    67              AmmoType: TAmmoType;

    68              end;

    68              end;

    69 

    69 

    70 

    70 

    71 resourcestring

    71 resourcestring

    73       errmsgNoDesc          = 'Unknown error';

    73       errmsgNoDesc          = 'Unknown error';

    74       errmsgTransparentSet  = 'Error setting transparent color';

    74       errmsgTransparentSet  = 'Error setting transparent color';

    75       errmsgUnknownCommand  = 'Unknown command';

    75       errmsgUnknownCommand  = 'Unknown command';

    76       errmsgUnknownVariable = 'Unknown variable';

    76       errmsgUnknownVariable = 'Unknown variable';

    77       errmsgIncorrectUse    = 'Incorrect use';

    77       errmsgIncorrectUse    = 'Incorrect use';

   235                      (FileName:  'RopeHook.png'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprRopeHook

   235                      (FileName:  'RopeHook.png'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprRopeHook

   236                      (FileName:    'Expl50.png'; Path: ptGraphics; Width:  64; Height: 64; hasAlpha: false),// sprExplosion50

   236                      (FileName:    'Expl50.png'; Path: ptGraphics; Width:  64; Height: 64; hasAlpha: false),// sprExplosion50

   237                      (FileName:   'MineOff.png'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOff

   237                      (FileName:   'MineOff.png'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOff

   238                      (FileName:    'MineOn.png'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOn

   238                      (FileName:    'MineOn.png'; Path: ptGraphics; Width:  16; Height: 16; hasAlpha: false),// sprMineOn

   239                      (FileName:      'Case.png'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprCase

   239                      (FileName:      'Case.png'; Path: ptGraphics; Width:  32; Height: 32; hasAlpha: false),// sprCase

   241                      );

   242                      );

   242       Soundz: array[TSound] of record

   243       Soundz: array[TSound] of record

   243                                        FileName: String[31];

   244                                        FileName: String[31];

   244                                        Path    : TPathType;

   245                                        Path    : TPathType;

   245                                        id      : PMixChunk;

   246                                        id      : PMixChunk;