(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 *)

unit uConsts;

interface

uses SDLh, GL, uLocale;

{$INCLUDE options.inc}

{$INCLUDE proto.inc}

type

	TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit);

	TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview);

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

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

			ptLocale, ptAmmoMenu, ptHedgehog, ptVoices, ptHats);

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

			sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,

			sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

			sprMineOn, sprCase, sprFAid, sprDynamite, sprPower,

			sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont,

			sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos,

			sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb,

			sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask,

			sprSwitch, sprParachute, sprTarget, sprRopeNode,

			sprQuestion, sprPowerBar, sprWindBar, sprWindL, sprWindR,

			sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,

			sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,

			sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,

			sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,

			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,

			sprHurrah, sprLemonade, sprExplPart, sprExplPart2,

			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,

			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,

			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,

			sprPlane, sprHandPlane);

	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3

			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8

			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, // 14

			gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, // 19

			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, // 23

			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder, // 28

			gtTeleport, gtSwitcher, gtTarget, gtMortar, // 32

			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 38

			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill, gtBallGun, gtBall,gtRCPlane);

	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,

			vgtSmallDamageTag);

	TGearsType = set of TGearType;

	TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,

			sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,

			sndMineTick, sndPickhammer, sndGun, sndUFO, sndJump1, sndJump2,

			sndJump3, sndYesSir, sndLaugh, sndIllGetYou, sndIncoming,

			sndMissed, sndStupid, sndFirstBlood, sndBoring, sndByeBye,

			sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,

			sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,

			sndCake, sndOw1, sndOw4, sndFirePunch1, sndFirePunch2,

			sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,

			sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,

			sndRideOfTheValkyries);

	TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,

			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,

			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,

			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,

			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun, amRCPlane);

	THWFont = (fnt16, fntBig, fntSmall);

	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);

	TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs,

			siClanHealth);

	TWave = (waveRollup, waveSad,waveWave, waveHurrah, waveLemonade);

	THHFont = record

			Handle: PTTF_Font;

			Height: LongInt;

			style: LongInt;

			Name: string[19];

			end;

	PAmmo = ^TAmmo;

	TAmmo = record

			Propz: LongWord;

			Count: LongWord;

			NumPerTurn: LongWord;

			Timer: LongWord;

			Pos: LongWord;

			AmmoType: TAmmoType;

			end;

	TTexture = record

			id: GLuint;

			w, h: LongInt;

			end;

	PTexture = ^TTexture;

const

	errmsgCreateSurface   = 'Error creating SDL surface';

	errmsgTransparentSet  = 'Error setting transparent color';

	errmsgUnknownCommand  = 'Unknown command';

	errmsgUnknownVariable = 'Unknown variable';

	errmsgIncorrectUse    = 'Incorrect use';

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

	errmsgWrongNumber     = 'Wrong parameters number';

	msgLoading           = 'Loading ';

	msgOK                = 'ok';

	msgFailed            = 'failed';

	msgGettingConfig     = 'Getting game config...';

const

	cMaxPower     = 1500;

	cMaxAngle     = 2048;

	cPowerDivisor = 1500;

	MAXNAMELEN = 192;

    LAND_HEIGHT = 2047;  // could these be variable instead of const?

    LAND_HEIGHT_MASK = $FFFFF800; // derive from LAND_HEIGHT?

    LAND_WIDTH = 4095;

    LAND_WIDTH_MASK = $FFFFF000;

	COLOR_LAND = $00FFFFFF;

	COLOR_INDESTRUCTIBLE = $0000F00D;

	cifRandomize = $00000001;

	cifTheme     = $00000002;

	cifMap       = $00000002; // either theme or map (or map+theme)

	cifAllInited = cifRandomize or

					cifTheme or

					cifMap;

	cTransparentColor: Longword = $000000;

	cMaxTeams        = 6;

	cMaxHHIndex      = 7;

	cMaxHHs          = 30;

	cMaxSpawnPoints  = 1024;

	cMaxEdgePoints = 16384;

	cHHRadius = 9;

	cHHStepTicks = 29;

	cUsualZ = 500;

	cSmokeZ = 499;

	cHHZ = 1000;

	cCurrHHZ = Succ(cHHZ);

	cOnHHZ = 2000;

	cShotgunRadius = 22;

	cBlowTorchC    = 6;

	cKeyMaxIndex = 1023;

	cMaxCaptions = 4;

	gfForts       = $00000001;

	gfMultiWeapon = $00000002;

	gfSolidLand   = $00000004;

	gfDivideTeams = $00000010;

	gfOneClanMode = $10000000;

	gstDrowning       = $00000001;

	gstHHDriven       = $00000002;

	gstMoving         = $00000004;

	gstAttacked       = $00000008;

	gstAttacking      = $00000010;

	gstCollision      = $00000020;

	gstHHChooseTarget = $00000040;

	gstHHJumping      = $00000100;

	gsttmpFlag        = $00000200;

	gstHHThinking     = $00000800;

	gstNoDamage       = $00001000;

	gstHHHJump        = $00002000;

	gstAnimation      = $00004000;

	gstHHDeath        = $00008000;

	gstWinner         = $00010000;

	gstWait           = $00020000;

	gstNotKickable    = $00040000;

	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;

	gm_Slot   = $00000200; // with param

	gm_Weapon = $00000400; // with param

	gm_Timer  = $00000800; // with param

	gm_Animate= $00001000; // with param

	gm_Precise= $00002000;

	gmAllStoppable = gm_Left or gm_Right or gm_Up or gm_Down or gm_Attack or gm_Precise;

	cMaxSlotIndex       = 8;

	cMaxSlotAmmoIndex   = 3;

	ammoprop_Timerable    = $00000001;

	ammoprop_Power        = $00000002;

	ammoprop_NeedTarget   = $00000004;

	ammoprop_ForwMsgs     = $00000008;

	ammoprop_AttackInMove = $00000010;

	ammoprop_NoCrosshair  = $00000040;

	ammoprop_AttackingPut = $00000080;

	ammoprop_DontHold     = $00000100;

	ammoprop_AltAttack    = $00000200;

	ammoprop_AltUse       = $00000400;

	AMMO_INFINITE = 9;

	EXPLAllDamageInRadius = $00000001;

	EXPLAutoSound         = $00000002;

	EXPLNoDamage          = $00000004;

	EXPLDoNotTouchHH      = $00000008;

	EXPLDontDraw          = $00000010;

	posCaseAmmo    = $00000001;

	posCaseHealth  = $00000002;

	NoPointX = Low(LongInt);

	cHHFileName   = 'Hedgehog';

	cCHFileName   = 'Crosshair';

	cThemeCFGFilename = 'theme.cfg';

	Fontz: array[THWFont] of THHFont = (

			(Handle: nil;

			Height: 12;

			style: TTF_STYLE_NORMAL;

			Name: 'DejaVuSans-Bold.ttf'),

			(Handle: nil;

			Height: 24;

			style: TTF_STYLE_NORMAL;

			Name: 'DejaVuSans-Bold.ttf'),

			(Handle: nil;

			Height: 10;

			style: TTF_STYLE_NORMAL;

			Name: 'DejaVuSans-Bold.ttf')

			);

	FontBorder = 2;

	PathPrefix: string = './';

	Pathz: array[TPathType] of String = (

			'',                              // ptNone

			'',                              // ptData

			'Graphics',                      // ptGraphics

			'Themes',                        // ptThemes

			'Themes/avematan',               // ptCurrTheme

			'Teams',                         // ptTeams

			'Maps',                          // ptMaps

			'',                              // ptMapCurrent

			'Demos',                         // ptDemos

			'Sounds',                        // ptSounds

			'Graphics/Graves',               // ptGraves

			'Fonts',                         // ptFonts

			'Forts',                         // ptForts

			'Locale',                        // ptLocale

			'Graphics/AmmoMenu',             // ptAmmoMenu

			'Graphics/Hedgehog',             // ptHedgehog

			'Sounds/voices',                 // ptVoices

			'Graphics/Hats'                  // ptHats

			);

	SpritesData: array[TSprite] of record

			FileName: String[14];

			Path, AltPath: TPathType;

			Texture: PTexture;

			Surface: PSDL_Surface;

			Width, Height: LongInt;

			saveSurf: boolean;

			end = (

			(FileName:  'BlueWater'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;

			Width: 125; Height: 32; saveSurf: false),// sprWater

			(FileName:     'Clouds'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;

			Width: 256; Height:128; saveSurf: false),// sprCloud

			(FileName:       'Bomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; saveSurf: false),// sprBomb

			(FileName:  'BigDigits'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprBigDigit

			(FileName:      'Frame'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   4; Height: 32; saveSurf: false),// sprFrame

			(FileName:        'Lag'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  65; Height: 65; saveSurf: false),// sprLag

			(FileName:      'Arrow'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprCursor

			(FileName:    'Grenade'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprGrenade

			(FileName:    'Targetp'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprTargetP

			(FileName:        'UFO'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprUFO

			(FileName: 'SmokeTrace'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprSmokeTrace

			(FileName:   'RopeHook'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprRopeHook

			(FileName:     'Expl50'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprExplosion50

			(FileName:    'MineOff'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; saveSurf: false),// sprMineOff

			(FileName:     'MineOn'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; saveSurf: false),// sprMineOn

			(FileName:       'Case'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprCase

			(FileName:   'FirstAid'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  48; Height: 48; saveSurf: false),// sprFAid

			(FileName:   'dynamite'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprDynamite

			(FileName:      'Power'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprPower

			(FileName:     'ClBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprClusterBomb

			(FileName: 'ClParticle'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprClusterParticle

			(FileName:      'Flame'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprFlame

			(FileName:   'horizont'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   0; Height:  0; saveSurf: false),// sprHorizont

			(FileName:        'Sky'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   0; Height:  0; saveSurf: false),// sprSky

			(FileName:  'BrdrLines'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 202; Height:  1; saveSurf: false),// sprAMBorders

			(FileName:       'Slot'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 202; Height: 33; saveSurf: false),// sprAMSlot

			(FileName:   'AmmoName'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 202; Height: 33; saveSurf: false),// sprAMSlotName

			(FileName:      'Ammos'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprAMAmmos

			(FileName:   'SlotKeys'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprAMSlotKeys

			(FileName:  'Selection'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprAMSelection

			(FileName:     'Finger'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 48; saveSurf: false),// sprFinger

			(FileName:    'AirBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprAirBomb

			(FileName:   'Airplane'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 125; Height: 42; saveSurf: false),// sprAirplane

			(FileName: 'amAirplane'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 32; saveSurf: false),// sprAmAirplane

			(FileName:   'amGirder'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 160; Height:160; saveSurf:  true),// sprAmGirder

			(FileName:     'hhMask'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf:  true),// sprHHTelepMask

			(FileName:     'Switch'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprSwitch

			(FileName:  'Parachute'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  48; Height: 48; saveSurf: false),// sprParachute

			(FileName:     'Target'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprTarget

			(FileName:   'RopeNode'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   6; Height:  6; saveSurf: false),// sprRopeNode

			(FileName:   'thinking'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprQuestion

			(FileName:   'PowerBar'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 256; Height: 32; saveSurf: false),// sprPowerBar

			(FileName:    'WindBar'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 151; Height: 17; saveSurf: false),// sprWindBar

			(FileName:      'WindL'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  80; Height: 13; saveSurf: false),// sprWindL

			(FileName:      'WindR'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  80; Height: 13; saveSurf: false),// sprWindR

			(FileName:      'Flake'; Path:ptCurrTheme; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprFlake

			(FileName:     'amRope'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHandRope

			(FileName:  'amBazooka'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHandBazooka

			(FileName:  'amShotgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprHandShotgun

			(FileName:   'amDEagle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprHandDEagle

			(FileName:'amAirAttack'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHandAirAttack

			(FileName: 'amBaseball'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHandBaseball

			(FileName:     'Hammer'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 64; saveSurf: false),// sprPHammer

			(FileName: 'amBTorch_i'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHandBlowToch

			(FileName: 'amBTorch_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprBlowToch

			(FileName:   'Teleport'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 32; saveSurf: false),// sprTeleport

			(FileName:    'HHDeath'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 64; saveSurf: false),// sprHHDeath

			(FileName:'amShotgun_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprShotgun

			(FileName: 'amDEagle_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprDEagle

			(FileName:       'Idle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHHIdle

			(FileName:     'Mortar'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprMortar

			(FileName:  'TurnsLeft'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprTurnsLeft

			(FileName: 'amKamikaze'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 256; Height: 32; saveSurf: false),// sprKamikaze

			(FileName:     'amWhip'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 128; Height: 32; saveSurf: false),// sprWhip

			(FileName:     'Kowtow'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprKowtow

			(FileName:        'Sad'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprSad

			(FileName:       'Wave'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 32; saveSurf: false),// sprWave

			(FileName:     'Hurrah'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHurrah

			(FileName:'ILoveLemonade';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width: 128; Height: 32; saveSurf: false),// sprLemonade

			(FileName:   'ExplPart'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprExplPart

			(FileName:  'ExplPart2'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprExplPart2

			(FileName:  'Cake_walk'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprCakeWalk

			(FileName:  'Cake_down'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprCakeDown

			(FileName:   'Ammos_bw'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprAMAmmosBW

			(FileName: 'Watermelon'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprWatermelon

			(FileName:  'EvilTrace'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprEvilTrace

			(FileName:'HellishBomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprHellishBomb

			(FileName:  'Seduction'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprSeduction

			(FileName:    'HHDress'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprDress

			(FileName:   'Censored'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 16; saveSurf: false),// sprCensored

			(FileName:      'Drill'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; saveSurf: false),// sprDrill

			(FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprHandDrill

			(FileName:    'amBallgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; saveSurf: false),// sprHandBallgun

			(FileName:      'Balls'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 20; saveSurf: false),// sprBalls

			(FileName:      'RCPlane'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false),// sprPlane

			(FileName:    'amRCPlane'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; saveSurf: false) // sprHandPlane

			);

	Wavez: array [TWave] of record

			Sprite: TSprite;

			FramesCount: Longword;

			cmd: String[20];

			end = (

			(Sprite:   sprKowtow; FramesCount: 12; cmd: '/rollup'),

			(Sprite:      sprSad; FramesCount: 14; cmd: '/sad'),

			(Sprite:     sprWave; FramesCount: 16; cmd: '/wave'),

			(Sprite:   sprHurrah; FramesCount: 14; cmd: '/hurrah'),

			(Sprite: sprLemonade; FramesCount: 24; cmd: '/ilovelotsoflemonade')

			);

	Soundz: array[TSound] of record

			FileName: String[25];

			Path    : TPathType;