(*

 * Hedgewars, a worms-like game

 * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * Distributed under the terms of the BSD-modified licence:

 *

 * Permission is hereby granted, free of charge, to any person obtaining a copy

 * of this software and associated documentation files (the "Software"), to deal

 * with the Software without restriction, including without limitation the

 * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or

 * sell copies of the Software, and to permit persons to whom the Software is

 * furnished to do so, subject to the following conditions:

 *

 * 1. Redistributions of source code must retain the above copyright notice,

 *    this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright notice,

 *    this list of conditions and the following disclaimer in the documentation

 *    and/or other materials provided with the distribution.

 * 3. The name of the author may not be used to endorse or promote products

 *    derived from this software without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED

 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF

 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO

 * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,

 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;

 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,

 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR

 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF

 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 *)

unit uConsts;

interface

uses SDLh;

{$INCLUDE options.inc}

type TStuff     = (sHorizont, sSky, sConsoleBG, sPowerBar, sQuestion, sWindBar,

                   sWindL, sWindR);

     TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit);

     TGameType  = (gmtLocal, gmtDemo, gmtNet);

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

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

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

                   sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,

                   sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

                   sprMineOn);

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

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

                   gtSmokeTrace, gtExplosion, gtMine);

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

     TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,

                   amMine);

     THWFont    = (fnt16, fntBig);

     THHFont    = record

                  Handle: PTTF_Font;

                  Height: integer;

                  Name: string[15];

                  end;

     TAmmo = record

             Propz: LongWord;

             Count: LongWord;

             NumPerTurn: LongWord;

             Timer: LongWord;

             AmmoType: TAmmoType;

             end;

resourcestring

      errmsgCreateSurface   = 'Error creating DirectDraw7 surface';

      errmsgNoDesc          = 'Unknown error';

      errmsgTransparentSet  = 'Error setting transparent color';

      errmsgDynamicVar      = 'Error working with dynamic memory';

      errmsgUnknownCommand  = 'Unknown command';

      errmsgUnknownVariable = 'Unknown variable';

      errmsgIncorrectUse    = 'Incorrect use';

      errmsgShouldntRun     = 'This program shouldn''t be run manually';

      msgLoading           = 'Loading ';

      msgOK                = 'ok';

      msgFailed            = 'failed';

      msgGettingConfig     = 'Getting game config...';

const

      cAppName  = 'hw';

      cAppTitle = 'hw';

      cNetProtoVersion = 1;

      rndfillstr = 'hw';

      cTransparentColor: Cardinal = $000000;

      cMaxHHIndex = 9;

      cMaxHHs     = 20;

      cHHSurfaceWidth     = 512;

      cHHSurfaceHeigth    = 256;

      cHHHalfHeight = 11;

      cKeyMaxIndex = 322;

      cMaxCaptions         = 4;

      cInactDelay = 1500;

      gfForts = $00000001;

      gstDrowning       = $00000001;

      gstHHDriven       = $00000002;

      gstMoving         = $00000004;

      gstAttacked       = $00000008;

      gstAttacking      = $00000010;

      gstCollision      = $00000020;

      gstHHChooseTarget = $00000040;

      gstFalling        = $00000080;

      gstHHJumping      = $00000100;

      gsttmpFlag        = $00000200;

      gstOutOfHH        = $00000400;

      gstHHThinking     = $00000800;

      gtsStartGame      = 1;

      gtsSmoothWindCh   = 2;

      gm_Left   = $00000001;

      gm_Right  = $00000002;

      gm_Up     = $00000004;

      gm_Down   = $00000008;

      gm_Switch = $00000010;

      gm_Attack = $00000020;

      gm_LJump  = $00000040;

      gm_HJump  = $00000080;

      gm_Destroy= $00000100;

      cMaxSlotIndex       = 6;

      cMaxSlotAmmoIndex   = 1;

      ammoprop_Timerable    = $00000001;

      ammoprop_Power        = $00000002;

      ammoprop_NeedTarget   = $00000004;

      ammoprop_ForwMsgs     = $00000008;

      ammoprop_AttackInFall = $00000010;

      ammoprop_AttackInJump = $00000020;

      AMMO_INFINITE = High(LongWord);

      capgrpStartGame     = 0;

      capgrpAmmoinfo      = 1;

      capgrpNetSay        = 2;

      EXPLAllDamageInRadius = 1;

      EXPLAutoSound         = 2;

      EXPLNoDamage          = 4;

      cToggleConsoleKey     = 39;

      NoPointX = Low(Integer); // êîíñòàíòà äëÿ TargetPoint, ïîêàçûâàåò, ÷òî öåëü íå óêàçàíà

      cLandFileName = 'Land.bmp';

      cHHFileName   = 'Hedgehog.png';

      cCHFileName   = 'Crosshair.png';

      cThemeCFGFilename = 'theme.cfg';

      Fontz: array[THWFont] of THHFont = (

                                         (Height: 12;

                                          Name: 'UN1251N.TTF'),

                                         (Height: 24;

                                          Name: 'UN1251N.TTF')

                                         );

      Pathz: array[TPathType] of string[ 64] = (

                                               'Data/',                         // ptData

                                               'Data/Graphics/',                // ptGraphics

                                               'Data/Themes/',                  // ptThemes

                                               'Data/Themes/Default/',          // ptThemeCurrent

                                               'Data/Teams/',                   // ptTeams

                                               'Data/Maps/',                    // ptMaps

                                               'Data/Maps/Current/',            // ptMapCurrent

                                               'Data/Demos/',                   // ptDemos

                                               'Data/Sounds/',                  // ptSounds

                                               'Data/Graphics/Graves/',         // ptGraves

                                               'Data/Fonts/',                   // ptFonts

                                               'Data/Forts/'                    // ptForts

                                               );

      StuffLoadData: array[TStuff] of record

                                     FileName: String[31];

                                     Path    : TPathType;

                                     end = (

                                     (FileName: 'horizont.png'; Path: ptThemeCurrent ),    // sHorizont

                                     (FileName:      'Sky.png'; Path: ptThemeCurrent ),    // sSky

                                     (FileName:  'Console.png'; Path: ptGraphics     ),    // sConsoleBG

                                     (FileName: 'PowerBar.png'; Path: ptGraphics     ),    // sPowerBar

                                     (FileName: 'thinking.png'; Path: ptGraphics     ),    // sQuestion

                                     (FileName:  'WindBar.png'; Path: ptGraphics     ),    // sWindBar

                                     (FileName:    'WindL.png'; Path: ptGraphics     ),    // sWindL

                                     (FileName:    'WindR.png'; Path: ptGraphics     )     // sWindR

                                     );

      StuffPoz: array[TStuff] of TSDL_Rect = (

                                      (x:   0; y:   0; w: 512; h: 256), // sHorizont

                                      (x: 512; y:   0; w:  64; h:1024), // sSky

                                      (x: 256; y: 256; w: 256; h: 256), // sConsoleBG

                                      (x: 256; y: 768; w: 256; h:  32), // sPowerBar

                                      (x: 256; y: 512; w:  32; h:  32), // sQuestion

                                      (x: 256; y: 800; w: 151; h:  17), // sWindBar

                                      (x: 256; y: 817; w:  80; h:  13), // sWindL

                                      (x: 336; y: 817; w:  80; h:  13)  // sWindR

                                      );

      SpritesData: array[TSprite] of record

                                         FileName: String[31];

                                         Path    : TPathType;

                                         Surface : PSDL_Surface;

                                         Width, Height: integer;

                                         end = (

                                         (FileName: 'BlueWater.png'; Path: ptGraphics; Width: 256; Height: 48),// sprWater

                                         (FileName:    'Clouds.png'; Path: ptGraphics; Width: 256; Height:128),// sprCloud

                                         (FileName:      'Bomb.png'; Path: ptGraphics; Width:  16; Height: 16),// sprBomb

                                         (FileName: 'BigDigits.png'; Path: ptGraphics; Width:  32; Height: 32),// sprBigDigit

                                         (FileName:     'Frame.png'; Path: ptGraphics; Width:   4; Height: 32),// sprFrame

                                         (FileName:       'Lag.png'; Path: ptGraphics; Width:  64; Height: 64),// sprLag

                                         (FileName:     'Arrow.png'; Path: ptGraphics; Width:  16; Height: 16),// sprCursor

                                         (FileName:   'Grenade.png'; Path: ptGraphics; Width:  32; Height: 32),// sprGrenade

                                         (FileName:   'Targetp.png'; Path: ptGraphics; Width:  32; Height: 32),// sprTargetP

                                         (FileName:       'UFO.png'; Path: ptGraphics; Width:  32; Height: 32),// sprUFO

                                         (FileName:'SmokeTrace.png'; Path: ptGraphics; Width:  32; Height: 32),// sprSmokeTrace

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

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

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

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

                                         );

      Soundz: array[TSound] of record

                                       FileName: String[31];

                                       Path    : TPathType;

                                       id      : PMixChunk;

                                       end = (

                                       (FileName: 'grenadeimpact.ogg'; Path: ptSounds  ),// sndGrenadeImpact

                                       (FileName:     'explosion.ogg'; Path: ptSounds  ),// sndExplosion

                                       (FileName:  'throwpowerup.ogg'; Path: ptSounds  ),// sndThrowPowerUp

                                       (FileName:  'throwrelease.ogg'; Path: ptSounds  ),// sndThrowRelease

                                       (FileName:        'splash.ogg'; Path: ptSounds  ),// sndSplash

                                       (FileName: 'shotgunreload.ogg'; Path: ptSounds  ),// sndShotgunReload

                                       (FileName:   'shotgunfire.ogg'; Path: ptSounds  ),// sndShotgunFire

                                       );

      Ammoz: array [TAmmoType] of record

                                  Name: string[32];

                                  Ammo: TAmmo;

                                  Slot: Longword;

                                  TimeAfterTurn: Longword;

                                  end = (

                                  (Name: 'Grenade';

                                   Ammo: (Propz: ammoprop_Timerable or ammoprop_Power;

                                          Count: AMMO_INFINITE;

                                          NumPerTurn: 0;

                                          Timer: 3000;

                                          AmmoType: amGrenade);

                                   Slot: 1;

                                   TimeAfterTurn: 3000),

                                  (Name: 'Bazooka';

                                   Ammo: (Propz: ammoprop_Power;

                                          Count: AMMO_INFINITE;

                                          NumPerTurn: 0;

                                          Timer: 0;

                                          AmmoType: amBazooka);

                                   Slot: 0;

                                   TimeAfterTurn: 3000),

                                  (Name: 'UFO';

                                   Ammo: (Propz: ammoprop_Power or ammoprop_NeedTarget;

                                          Count: 4;

                                          NumPerTurn: 0;

                                          Timer: 0;

                                          AmmoType: amUFO);

                                   Slot: 0;

                                   TimeAfterTurn: 3000),

                                  (Name: 'Shotgun';

                                   Ammo: (Propz: 0;

                                          Count: AMMO_INFINITE;

                                          NumPerTurn: 1;

                                          Timer: 0;

                                          AmmoType: amShotgun);

                                   Slot: 2;

                                   TimeAfterTurn: 3000),

                                  (Name: 'Pneumatic pick';

                                   Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump;

                                          Count: 2;

                                          NumPerTurn: 0;

                                          Timer: 0;

                                          AmmoType: amPickHammer);

                                   Slot: 4;

                                   TimeAfterTurn: 0),

                                  (Name: 'Skip turn';

                                   Ammo: (Propz: 0;

                                          Count: AMMO_INFINITE;

                                          NumPerTurn: 0;

                                          Timer: 0;

                                          AmmoType: amSkip);

                                   Slot: 6;

                                   TimeAfterTurn: 0),

                                  (Name: 'Rope';

                                   Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump;

                                          Count: 5;

                                          NumPerTurn: 0;

                                          Timer: 0;

                                          AmmoType: amRope);

                                   Slot: 5;

                                   TimeAfterTurn: 0),

                                  (Name: 'Mine';

                                          Count: 5;

                                          NumPerTurn: 0;

                                          Timer: 0;

                                          AmmoType: amMine);

                                   Slot: 3;

                                   TimeAfterTurn: 3000)

                                  );

      Resolutions: array[0..3] of String = (

                                           '640 480',

                                           '800 600',

                                           '1024 768',

                                           '1280 1024'

                                           );

implementation

end.