Prevent entering “/”, “\” and “:” in team and scheme names.
The name of teams and schems is saved in the file name itself, so these characters would cause trouble as they are used in path names in Linux and Windows.
(*
* Hedgewars, a free turn based strategy game
* Copyright (c) 2004-2015 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*)
{$INCLUDE "options.inc"}
unit uConsts;
interface
uses SDLh, uFloat, GLunit;
{$INCLUDE "config.inc"}
const
HDPIScaleFactor = 1;
// application return codes
HaltNoError = 0; // Hedgewars quits normally
// error codes are placed in range 50-99 because that way then don't overlap with run-time errors of pascal
// see https://www.freepascal.org/docs-html/user/userap4.html
HaltUsageError = 51; // Hedgewars was invoked incorrectly (e.g. bad command-line parameter)
HaltFatalError = 52; // Fatal internal error. See logs for more. Also reports error to frontend
HaltStartupError = 53; // Failure loading critical resources
HaltFatalErrorNoIPC = 54; // Fatal internal error, IPC socket is not available
HaltVideoRec = 55; // Failure while video recording
// for automatic tests
HaltTestSuccess = 0; // Test result: success
HaltTestFailed = 60; // Test result: failed
HaltTestLuaError = 61; // Lua runtime error
HaltTestUnexpected = 62; // Unexpected error
// maximum ScreenFadeValue
sfMax = 1000;
// log message constants
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';
errmsgLuaTestTerm = 'WARNING: Lua test terminated before the test was properly finished with EndLuaTest()!';
msgLoading = 'Loading ';
msgOK = 'ok';
msgFailed = 'failed';
msgFailedSize = 'failed due to size';
msgGettingConfig = 'Getting game config...';
// camera movement multipliers
cameraKeyboardSpeed : ShortInt = 10;
// color constants
cWhiteColorChannels : TSDL_Color = (r:$FF; g:$FF; b:$FF; a:$FF);
cNearBlackColorChannels : TSDL_Color = (r:$00; g:$00; b:$10; a:$FF);
cInvertTextColorAt : Byte = 64;
cWhiteColor : Longword = $FFFFFFFF; // white
cNearBlackColor : Longword = $FF000010; // nearly black
capcolDefault : Longword = $FFFFFFFF; // default caption color
capcolSetting : Longword = $FFCCCCCC; // caption color for changing client setting like volume or auto camera
cCentralMessageColor : Longword = $FFFFFF00; // color of message in center of screen like quit or pause
{$WARNINGS OFF}
cAirPlaneSpeed: hwFloat = (isNegative: false; QWordValue: 3006477107); // 1.4
cBombsSpeed : hwFloat = (isNegative: false; QWordValue: 429496729);
{$WARNINGS ON}
// reducedquality flags
rqNone = $00000000; // don't reduce quality
rqLowRes = $00000001; // use half land array
rqBlurryLand = $00000002; // downscaled terrain
rqNoBackground= $00000004; // don't draw background
rqSimpleRope = $00000008; // draw rope using lines only
rq2DWater = $00000010; // disable 3D water effect
rqAntiBoom = $00000020; // no fancy explosion effects
rqKillFlakes = $00000040; // no flakes
rqSlowMenu = $00000080; // ammomenu appears with no animation
rqPlainSplash = $00000100; // no droplets
rqClampLess = $00000200; // don't clamp textures
rqTooltipsOff = $00000400; // tooltips are not drawn
rqDesyncVBlank= $00000800; // don't sync on vblank
// image flags (for LoadImage())
// TODO: discuss whether ifAlpha and ifColorKey are actually needed and if and where we want to support which colorkeys
ifNone = $00000000; // nothing special
ifAlpha = $00000001; // use alpha channel (unused right now?)
ifCritical = $00000002; // image is critical for gameplay (exit game if unable to load)
ifColorKey = $00000004; // image uses transparent pixels (color keying)
ifIgnoreCaps = $00000008; // ignore hardware capabilities when loading (i.e. image will not be drawn using OpenGL)
// texture priority (allows OpenGL to keep frequently used textures in video memory more easily)
tpLowest = 0.00;
tpLow = 0.25;
tpMedium = 0.50;
tpHigh = 0.75;
tpHighest = 1.00;
// To allow these to layer, going to treat them as masks. The bottom byte is reserved for objects
// TODO - set lfBasic for all solid land, ensure all uses of the flags can handle multiple flag bits
// lfObject and lfBasic are only to be different *graphically* in all other ways they should be treated the same
lfBasic = $8000; // normal destructible terrain (mask.png: black)
lfIndestructible = $4000; // indestructible terrain (mask.png: red)
lfObject = $2000; // destructible terrain, land object (mask.png: white)
lfDamaged = $1000; //
lfIce = $0800; // icy terrain (mask.png: blue)
lfBouncy = $0400; // bouncy terrain (mask.png: green)
lfLandMask = $FF00; // upper byte is used for terrain, not objects.
lfCurHogCrate = $0080; // CurrentHedgehog, and crates, for convenience of AI. Since an active hog would instantly collect the crate, this does not impact playj
lfNotCurHogCrate = $FF7F; // inverse of above. frequently used
lfObjMask = $007F; // lower 7 bits used for hogs and explosives and mines
lfNotObjMask = $FF80; // inverse of above.
// breaking up hogs would makes it easier to differentiate
// colliding with a hog from colliding with other things
// if overlapping hogs are less common than objects, the division can be altered.
// 3 bits for objects, 4 for hogs, that is, overlap 7 barrels/mines before possible dents, and 15 hogs.
lfHHMask = $000F; // lower 4 bits used only for hogs
lfNotHHObjMask = $0070; // next 3 bits used for non-hog things
lfNotHHObjShift = 4;
lfNotHHObjSize = lfNotHHObjMask shr lfNotHHObjShift;
// lower byte is for objects.
// consists of 0-127 counted for object checkins and $80 as a bit flag for current hog.
lfAllObjMask = $00FF; // lfCurHogCrate or lfObjMask
lfAll = $FFFF; // everything
cMaxPower = 1500; // maximum power value for ammo that powers up
cMaxAngle = 2048; // maximum positive value for Gear angle
cPowerDivisor = 1500;
MAXNAMELEN = 192;
MAXROPEPOINTS = 3840;
{$IFNDEF PAS2C}
// some opengl headers do not have these macros
GL_BGR = $80E0;
GL_BGRA = $80E1;
GL_CLAMP_TO_EDGE = $812F;
GL_TEXTURE_PRIORITY = $8066;
{$ENDIF}
cVisibleWater : LongInt = 128;
cTeamHealthWidth : LongInt = 128;
cifRandomize = $00000001;
cifTheme = $00000002;
cifMap = $00000002; // either theme or map (or map+theme)
cifAllInited = cifRandomize or cifTheme or cifMap;
RGB_LUMINANCE_RED = 0.212671;
RGB_LUMINANCE_GREEN = 0.715160;
RGB_LUMINANCE_BLUE = 0.072169;
// hedgehog info
cMaxTeams = 8; // maximum number of teams
cMaxHHIndex = 7; // maximum hedgehog index (counting starts at 0)
// NOTE: If you change cMaxHHIndex, also change cMaxHogHealth!
cMaxHHs = cMaxTeams * (cMaxHHIndex+1); // maximum number of hogs
cClanColors = 9; // number of possible clan colors
cMaxEdgePoints = 32768;
cHHRadius = 9; // hedgehog radius
cHHStepTicks = 29;
cMaxHogHealth = 268435455; // maximum hedgehog health
// cMaxHogHealth was calculated by: High(LongInt) div (cMaxHHIndex+1);
ouchDmg = 55; // least amount of damage a hog must take in one blow for sndOuch to play
// Z levels
cHHZ = 1000;
cCurrHHZ = Succ(cHHZ);
// some gear constants
cBarrelHealth = 60; // initial barrel health
cShotgunRadius = 22; // radius of land a shotgun shot destroys
cBlowTorchC = 6; // blow torch gear radius component (added to cHHRadius to get the full radius)
cakeDmg = 75; // default cake damage
// key stuff
cKeyMaxIndex = 1600;
cKbdMaxIndex = 65536;//need more room for the modifier keys
// font stuff
cFontBorder = 2 * HDPIScaleFactor;
cFontPadding = 2 * HDPIScaleFactor;
cDefaultBuildMaxDist = 256; // default max. building distance with girder/rubber
ExtraTime = 30000; // amount of time (ms) given for using Extra Time
// do not change this value
cDefaultZoomLevel = 2.0; // 100% zoom
// game flags
gfAny = $FFFFFFFF; // mask for all possible gameflags
gfOneClanMode = $00000001; // Game does not end if there's only one clan in play. For missions
gfMultiWeapon = $00000002; // Enter multishoot mode after attack with infinite shots. For target practice
gfSolidLand = $00000004; // (almost) indestrutible land
gfBorder = $00000008; // border at top, left and right
gfDivideTeams = $00000010; // each clan spawns their hogs on own side of terrain
gfLowGravity = $00000020; // low gravity
gfLaserSight = $00000040; // laser sight for all
gfInvulnerable = $00000080; // invulerable for all
gfResetHealth = $00000100; // heal hogs health up to InitialHealth each turn
gfVampiric = $00000200; // vampirism for all
gfKarma = $00000400; // receive damage you deal
gfArtillery = $00000800; // hogs can't walk
gfSwitchHog = $00001000; // free switch hog at turn start
gfRandomOrder = $00002000; // hogs play in random order
gfKing = $00004000; // King Mode
gfPlaceHog = $00008000; // place all hogs at game start
gfSharedAmmo = $00010000; // ammo is shared per-clan
gfDisableGirders = $00020000; // disable land girders
gfDisableLandObjects = $00040000; // disable land objects
gfAISurvival = $00080000; // AI is revived
gfInfAttack = $00100000; // infinite attack
gfResetWeps = $00200000; // reset weapons each turn
gfPerHogAmmo = $00400000; // each hog has its own ammo
gfDisableWind = $00800000; // don't automatically change wind
gfMoreWind = $01000000; // wind influences most gears
gfTagTeam = $02000000; // hogs of same clan share their turn time
gfBottomBorder = $04000000; // border at bottom
gfShoppaBorder = $08000000; // Surround terrain with fancy "security border". Pure eye candy
// NOTE: When adding new game flags, ask yourself
// if a "game start notice" would be useful. If so,
// add one in uWorld.pas - look for "AddGoal".
// gear states
gstDrowning = $00000001; // drowning
gstHHDriven = $00000002; // hog is controlled by current player
gstMoving = $00000004; // moving
gstAttacked = $00000008; // after attack
gstAttacking = $00000010; // while attacking
gstCollision = $00000020; // it has *just* collided
gstChooseTarget = $00000040; // choosing target
gstHHJumping = $00000100; // hog is doing long jump
gsttmpFlag = $00000200; // temporary wildcard flag, use it for anything you want
gstHHThinking = $00000800; // AI hog is thinking
gstNoDamage = $00001000; // gear is immune to damage
gstHHHJump = $00002000; // hog is doing high jump
gstAnimation = $00004000; // hog is playing an animation
gstHHDeath = $00008000; // hog is dying
gstWinner = $00010000; // indicates if hog did well
gstWait = $00020000;
gstNotKickable = $00040000; // gear cannot be pushed by forces
gstLoser = $00080000; // indicates if hog screwed up
gstHHGone = $00100000; // hog is gone (teamgone event)
gstInvisible = $00200000; // invisible
gstSubmersible = $00400000; // can survive in water
gstFrozen = $00800000; // frozen
gstNoGravity = $01000000; // ignores gravity
// gear messages
gmLeft = $00000001; // left
gmRight = $00000002; // right
gmUp = $00000004; // up
gmDown = $00000008; // down
gmSwitch = $00000010; // switch hedgehog
gmAttack = $00000020; // attack
gmLJump = $00000040; // long jump
gmHJump = $00000080; // high jump
gmDestroy = $00000100; // request to self-destruct
gmSlot = $00000200; // slot key; with param
gmWeapon = $00000400; // direct weapon selection (SetWeapon); with param
gmTimer = $00000800; // set timer; with param
gmAnimate = $00001000; // start animation; with param
gmPrecise = $00002000; // precise aim
// gmAddToList and gmRemoveFromList are used when changing order of gears in the gear list. They are used together when changing a gear's Z (drawing order)
gmRemoveFromList = $00004000; // remove gear from gear list
gmAddToList = $00008000; // add gear to gear list
gmDelete = $00010000; // delete gear
gmAllStoppable = gmLeft or gmRight or gmUp or gmDown or gmAttack or gmPrecise;
// ammo slots
cMaxSlotIndex = 10; // maximum slot index (including hidden slot) (row in ammo menu)
cHiddenSlotIndex = cMaxSlotIndex; // slot for hidden ammo types, not visible and has no key
cMaxSlotAmmoIndex = 5; // maximum index for ammos per slot (column in ammo menu)
// AI hints to be set for any gear
aihUsualProcessing = $00000000; // treat gear as usual
aihDoesntMatter = $00000001; // ignore gear in attack calculations and don't intentionally attack it
// ammo properties
ammoprop_Timerable = $00000001; // can set timer
ammoprop_Power = $00000002; // can power up fire strength
ammoprop_NeedTarget = $00000004; // must select target
ammoprop_ForwMsgs = $00000008; // received gear messages are forwarded to the spawned gear
ammoprop_AttackInMove = $00000010; // can attack while moving / in mid-air
ammoprop_DoesntStopTimerWhileAttacking
= $00000020; // doesn't stop timer while attacker is attacking
ammoprop_NoCrosshair = $00000040; // no crosshair rendered
ammoprop_AttackingPut = $00000080; // selecting a target is considered an attack
ammoprop_DontHold = $00000100; // don't keep ammo selected in next turn
ammoprop_AltAttack = $00000200; // ammo can equip alternate ammo (ammoprop_AltUse)
ammoprop_AltUse = $00000400; // ammo can be equipped by an ammo with ammoprop_AltAttack
ammoprop_NotBorder = $00000800; // ammo is not available if map has border
ammoprop_Utility = $00001000; // ammo is considered an utility instead of a weapon
ammoprop_Effect = $00002000; // ammo is considered an effect like extra time or vampirism
ammoprop_SetBounce = $00004000; // can set bounciness
ammoprop_NeedUpDown = $00008000; // used by TouchInterface to show or hide up/down widgets
ammoprop_OscAim = $00010000; // oscillating aim
ammoprop_NoMoveAfter = $00020000; // can't move after attacking
ammoprop_Track = $00040000; // ammo follows the landscape, used by AI
ammoprop_DoesntStopTimerInMultiShoot
= $00080000; // doesn't stop timer after entering multi-shoot mode
ammoprop_DoesntStopTimerWhileAttackingInInfAttackMode
= $00100000; // doesn't stop timer while Attacking gear msg is set and inf. attack mode is on
ammoprop_ForceTurnEnd = $00200000; // always ends turn after usage, ignoring inf. attack
ammoprop_NoTargetAfter= $00400000; // disable target selection after attack
ammoprop_NoWrapTarget = $00800000; // allow to select target beyond wrap world edge limits
ammoprop_NoRoundEnd = $10000000; // ammo doesn't end turn
AMMO_INFINITE = 100; // internal representation of infinite ammo count
AMMO_FINITE_MAX = 99; // maximum possible finite ammo count
JETPACK_FUEL_INFINITE : LongInt = Low(LongInt); // internal representation of infinite jetpack fuel
BIRDY_ENERGY_INFINITE : LongInt = Low(LongInt); // as above, but for Birdy
// Special msgParam value used internally for invalid/non-existing value
// Must not be sent over the network!
MSGPARAM_INVALID = High(LongWord);
// raw probability values for crate drops
probabilityLevels: array [0..8] of LongWord = (0,20,30,60,100,200,400,600,800);
// raw bounciness values for each of the player-selectable bounciness levels
defaultBounciness = 1000;
bouncinessLevels: array [0..4] of LongWord = (350, 700, defaultBounciness, 2000, 4000);
// explosion flags
// By default, an explosion removes land, damages and pushes gears,
// spawns an explosion animation and plays no sound.
//EXPLAllDamageInRadius = $00000001; Completely unused for ages
EXPLAutoSound = $00000002; // enable sound (if appropriate)
EXPLNoDamage = $00000004; // don't damage gears
EXPLDoNotTouchHH = $00000008; // don't push hogs
EXPLDontDraw = $00000010; // don't remove land
EXPLNoGfx = $00000020; // don't spawn visual effects
EXPLPoisoned = $00000040; // poison hogs in effect radius
EXPLDoNotTouchAny = $00000080; // don't push anything
EXPLForceDraw = $00000100; // remove land even with gfSolidLand
// Pos flags for gtCase
posCaseAmmo = $00000001; // ammo crate
posCaseHealth = $00000002; // health crate
posCaseUtility = $00000004; // utility crate
posCaseDummy = $00000008; // dummy crate
posCaseExplode = $00000010; // crate explodes when touched
posCasePoison = $00000020; // crate poisons hog when touched
cCaseHealthRadius = 14;
// hog tag mask
//htNone = $00;
htTeamName = $01;
htName = $02;
htHealth = $04;
htTransparent = $08;
NoPointX = Low(LongInt); // special value for CursorX/CursorY if cursor's disabled
cTargetPointRef : TPoint = (x: NoPointX; y: 0);
kSystemSoundID_Vibrate = $00000FFF;
cMinPlayWidth = 200;
cWorldEdgeDist = 200;
cMaxLaserSightWraps = 1; // maximum number of world wraps of laser sight
cMaxTurnTime = Pred(High(LongInt)); // maximum possible turn time
implementation
end.