hedgewars/uTypes.pas
author koda
Thu, 24 Mar 2011 17:28:36 +0100
changeset 5046 fc6639d56799
parent 5024 1e332947147c
child 5062 e2d38329b84a
permissions -rw-r--r--
this brings compatibility up with SDL HEAD (5504), but maybe breaks compatibility with sdl 1.2 so please test! still has problems with keyboard input and rendered ttf textures
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4976
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     1
(*
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     2
 * Hedgewars, a free turn based strategy game
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     3
 * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     4
 *
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     8
 *
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    12
 * GNU General Public License for more details.
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    13
 *
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    14
 * You should have received a copy of the GNU General Public License
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    15
 * along with this program; if not, write to the Free Software
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    17
 *)
088d40d8aba2 Happy 2011 :)
koda
parents: 4956
diff changeset
    18
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    19
{$INCLUDE "options.inc"}
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    20
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    21
unit uTypes;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    22
interface
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    23
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
    24
uses SDLh, uFloat, GLunit, uConsts, Math;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    25
4812
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
    26
// NOTE: typed const is a variable despite const qualifier
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
    27
// in freepascal you may actually use var for the same purpose
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
    28
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    29
type
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    30
    HwColor4f = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    31
        r, g, b, a: byte
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    32
        end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    33
4454
42bfc1a70968 more retina support and multitasking support
koda
parents: 4422
diff changeset
    34
    TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit, gsSuspend);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    35
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    36
    TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    37
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    38
    TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    39
            ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,
4748
ce9b48de1f52 sudden death, now with visual and audial effects :D
Henek
parents: 4611
diff changeset
    40
            ptLocale, ptAmmoMenu, ptHedgehog, ptVoices, ptHats, ptFlags, ptMissionMaps, ptSuddenDeath);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    41
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    42
    TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    43
            sprLag, sprArrow, sprBazookaShell, sprTargetP, sprBee,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    44
            sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    45
            sprMineOn, sprMineDead, sprCase, sprFAid, sprDynamite, sprPower,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    46
            sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    47
            sprHorizontL, sprHorizontR, sprSky, sprSkyL,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    48
            sprSkyR, sprAMBorderHorizontal, sprAMBorderVertical, sprAMSlot, sprAMAmmos,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    49
            sprAMSlotKeys, sprAMCorners, sprFinger, sprAirBomb,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    50
            sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    51
            sprSwitch, sprParachute, sprTarget, sprRopeNode,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    52
            sprQuestion, sprPowerBar, sprWindBar, sprWindL, sprWindR,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    53
            sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    54
            sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    55
            sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    56
            sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    57
            sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    58
            sprHurrah, sprLemonade, sprShrug, sprJuggle, sprExplPart, sprExplPart2,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    59
            sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    60
            sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    61
            sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    62
            sprPlane, sprHandPlane, sprUtility, sprInvulnerable, sprVampiric, sprGirder,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    63
            sprSpeechCorner, sprSpeechEdge, sprSpeechTail,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    64
            sprThoughtCorner, sprThoughtEdge, sprThoughtTail,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    65
            sprShoutCorner, sprShoutEdge, sprShoutTail,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    66
            sprSniperRifle, sprBubbles, sprJetpack, sprHealth, sprHandMolotov, sprMolotov,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    67
            sprSmoke, sprSmokeWhite, sprShell, sprDust, sprExplosives, sprExplosivesRoll,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    68
            sprAmTeleport, sprSplash, sprDroplet, sprBirdy, sprHandCake, sprHandConstruction,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    69
            sprHandGrenade, sprHandMelon, sprHandMortar, sprHandSkip, sprHandCluster,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    70
            sprHandDynamite, sprHandHellish, sprHandMine, sprHandSeduction, sprHandVamp,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    71
            sprBigExplosion, sprSmokeRing, sprBeeTrace, sprEgg, sprTargetBee, sprHandBee,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    72
            sprFeather, sprPiano, sprHandSineGun, sprPortalGun, sprPortal,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    73
            sprCheese, sprHandCheese, sprHandFlamethrower, sprChunk, sprNote,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    74
            sprSMineOff, sprSMineOn, sprHandSMine, sprHammer,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    75
            sprHandResurrector, sprCross, sprAirDrill, sprNapalmBomb,
4782
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated
Henek
parents: 4772
diff changeset
    76
            sprBulletHit, sprSnowball, sprHandSnowball, sprSnow,
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated
Henek
parents: 4772
diff changeset
    77
            sprSDFlake, sprSDWater, sprSDCloud, sprSDSplash, sprSDDroplet
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    78
            );
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    79
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    80
    // Gears that interact with other Gears and/or Land
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    81
    TGearType = (gtBomb, gtHedgehog, gtShell, gtGrave, gtBee, // 4
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    82
            gtShotgunShot, gtPickHammer, gtRope, gtMine, gtCase, // 9
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    83
            gtDEagleShot, gtDynamite, gtClusterBomb, gtCluster, gtShover, // 14
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    84
            gtFlame, gtFirePunch, gtATStartGame, gtATSmoothWindCh, // 18
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    85
            gtATFinishGame, gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, // 23
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    86
            gtGirder, gtTeleport, gtSwitcher, gtTarget, gtMortar, // 28
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    87
            gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 34
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    88
            gtHellishBomb, gtWaterUp, gtDrill, gtBallGun, gtBall, gtRCPlane, // 40
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    89
            gtSniperRifleShot, gtJetpack, gtMolotov, gtExplosives, gtBirdy, // 45
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    90
            gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 51
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    91
            gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 56
5024
1e332947147c Landgun, first pass. At sdw's request.
nemo
parents: 5022
diff changeset
    92
            gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun); // 61
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    93
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    94
    // Gears that are _only_ of visual nature (e.g. background stuff, visual effects, speechbubbles, etc.)
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    95
    TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    96
            vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    97
            vgtSteam, vgtAmmo, vgtSmoke, vgtSmokeWhite, vgtHealth, vgtShell,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    98
            vgtDust, vgtSplash, vgtDroplet, vgtSmokeRing, vgtBeeTrace, vgtEgg,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    99
            vgtFeather, vgtHealthTag, vgtSmokeTrace, vgtEvilTrace, vgtExplosion,
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4379
diff changeset
   100
            vgtBigExplosion, vgtChunk, vgtNote, vgtLineTrail, vgtBulletHit, vgtCircle);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   101
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   102
    TGearsType = set of TGearType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   103
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   104
    TDamageSource = (dsUnknown, dsFall, dsBullet, dsExplosion, dsShove, dsPoison);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   105
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   106
    TSound = (sndNone,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   107
            sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   108
            sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   109
            sndMineTick, sndPickhammer, sndGun, sndBee, sndJump1, sndJump2,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   110
            sndJump3, sndYesSir, sndLaugh, sndIllGetYou, sndIncoming,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   111
            sndMissed, sndStupid, sndFirstBlood, sndBoring, sndByeBye,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   112
            sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   113
            sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   114
            sndCake, sndOw1, sndOw2, sndOw3, sndOw4, sndFirePunch1, sndFirePunch2,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   115
            sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   116
            sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   117
            sndRideOfTheValkyries, sndDenied, sndPlaced, sndBaseballBat,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   118
            sndVaporize, sndWarp, sndSuddenDeath, sndMortar, sndShutter,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   119
            sndHomerun, sndMolotov, sndCover, sndUhOh, sndOops,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   120
            sndNooo, sndHello, sndRopeShot, sndRopeAttach, sndRopeRelease,
4978
0ef650ea3b12 add victory/flawless victory sounds. untested
nemo
parents: 4976
diff changeset
   121
            sndSwitchHog, sndVictory, sndFlawless, sndSniperReload, sndSteps, sndLowGravity,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   122
            sndHellishImpact1, sndHellishImpact2, sndHellishImpact3, sndHellishImpact4,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   123
            sndMelonImpact, sndDroplet1, sndDroplet2, sndDroplet3, sndEggBreak, sndDrillRocket,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   124
            sndPoisonCough, sndPoisonMoan, sndBirdyLay, sndWhistle, sndBeeWater,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   125
            sndPiano0, sndPiano1, sndPiano2, sndPiano3, sndPiano4, sndPiano5, sndPiano6, sndPiano7, sndPiano8,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   126
            sndSkip, sndSineGun, sndOoff1, sndOoff2, sndOoff3, sndWhack,
4956
48e1f9a04c28 usound: added function for loops with fade in and out
koda
parents: 4883
diff changeset
   127
            sndComeonthen, sndParachute, sndBump, sndResurrector, sndPlane);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   128
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   129
    TAmmoType  = (amNothing, amGrenade, amClusterBomb, amBazooka, amBee, amShotgun, amPickHammer, // 6
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   130
            amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip, // 13
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   131
            amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch, // 18
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   132
            amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake, // 24
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   133
            amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun, // 30
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   134
            amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime, // 35
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   135
            amLaserSight, amVampiric, amSniperRifle, amJetpack, amMolotov, amBirdy, amPortalGun, // 42
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   136
            amPiano, amGasBomb, amSineGun, amFlamethrower, amSMine, amHammer, // 48
5024
1e332947147c Landgun, first pass. At sdw's request.
nemo
parents: 5022
diff changeset
   137
            amResurrector, amDrillStrike, amSnowball, amTardis, amStructure, amLandGun); // 54
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   138
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   139
    TCrateType = (HealthCrate, AmmoCrate, UtilityCrate);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   140
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   141
    THWFont = (fnt16, fntBig, fntSmall {$IFNDEF IPHONEOS}, CJKfnt16, CJKfntBig, CJKfntSmall{$ENDIF});
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   142
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   143
    TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpVolume,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   144
            capgrpMessage, capgrpAmmostate);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   145
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   146
    TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   147
            siClanHealth, siTeamStats, siPlayerKills, siMaxTeamDamage,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   148
            siMaxTeamKills, siMaxTurnSkips );
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   149
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   150
    TWave = (waveRollup, waveSad, waveWave, waveHurrah, waveLemonade, waveShrug, waveJuggle);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   151
4812
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
   152
    TRenderMode = (rmDefault, rmLeftEye, rmRightEye);
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
   153
    TStereoMode = (smNone, smRedCyan, smCyanRed, smRedBlue, smBlueRed, smRedGreen, smGreenRed, smHorizontal, smVertical, smAFR);
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
   154
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   155
    THHFont = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   156
            Handle: PTTF_Font;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   157
            Height: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   158
            style: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   159
            Name: string[21];
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   160
            end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   161
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   162
    PAmmo = ^TAmmo;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   163
    TAmmo = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   164
            Propz: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   165
            Count: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   166
(* Using for place hedgehogs mode, but for any other situation where the initial count would be needed I guess.
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   167
For example, say, a mode where the weaponset is reset each turn, or on sudden death *)
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   168
            NumPerTurn: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   169
            Timer: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   170
            Pos: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   171
            AmmoType: TAmmoType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   172
            AttackVoice: TSound;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   173
            end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   174
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   175
    TVertex2f = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   176
        X, Y: GLfloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   177
        end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   178
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   179
    TVertex2i = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   180
        X, Y: GLint;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   181
        end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   182
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   183
    PTexture = ^TTexture;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   184
    TTexture = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   185
            id: GLuint;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   186
            w, h, scale: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   187
            rx, ry: GLfloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   188
            priority: GLfloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   189
            vb, tb: array [0..3] of TVertex2f;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   190
            PrevTexture, NextTexture: PTexture;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   191
            end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   192
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   193
    THogEffect = (heInvulnerable, heResurrectable, hePoisoned, heResurrected);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   194
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   195
    TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   196
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   197
    PGear = ^TGear;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   198
    PHedgehog = ^THedgehog;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   199
    PTeam     = ^TTeam;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   200
    PClan     = ^TClan;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   201
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   202
    TGearStepProcedure = procedure (Gear: PGear);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   203
    TGear = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   204
            NextGear, PrevGear: PGear;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   205
            Active: Boolean;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   206
            AdvBounce: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   207
            Invulnerable: Boolean;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   208
            RenderTimer: Boolean;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   209
            AmmoType : TAmmoType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   210
            State : Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   211
            X : hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   212
            Y : hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   213
            dX: hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   214
            dY: hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   215
            Kind: TGearType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   216
            Pos: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   217
            doStep: TGearStepProcedure;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   218
            Radius: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   219
            Angle, Power : Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   220
            DirAngle: real;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   221
            Timer : LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   222
            Elasticity: hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   223
            Friction  : hwFloat;
4602
ec84fb564bab added density for gears used in gfMoreWind, needs alot of tweaking
Henek
parents: 4578
diff changeset
   224
            Density   : hwFloat;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   225
            Message, MsgParam : Longword;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   226
            Hedgehog: PHedgehog;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   227
            Health, Damage, Karma: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   228
            CollisionIndex: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   229
            Tag: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   230
            Tex: PTexture;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   231
            Z: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   232
            IntersectGear: PGear;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   233
            FlightTime: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   234
            uid: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   235
            ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   236
            nImpactSounds: Word; // count of ImpactSounds
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   237
            SoundChannel: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   238
            PortalCounter: LongWord  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   239
        end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   240
    TPGearArray = Array of PGear;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   241
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   242
    PVisualGear = ^TVisualGear;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   243
    TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   244
    TVisualGear = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   245
        NextGear, PrevGear: PVisualGear;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   246
        Frame,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   247
        FrameTicks: Longword;
4379
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4367
diff changeset
   248
        X : real;
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4367
diff changeset
   249
        Y : real;
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4367
diff changeset
   250
        dX: real;
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4367
diff changeset
   251
        dY: real;
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4367
diff changeset
   252
        tdX: real;
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency
unC0Rr
parents: 4367
diff changeset
   253
        tdY: real;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   254
        State : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   255
        Timer: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   256
        Angle, dAngle: real;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   257
        Kind: TVisualGearType;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   258
        doStep: TVGearStepProcedure;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   259
        Tex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   260
        alpha, scale: GLfloat;
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
   261
        Hedgehog: PHedgehog;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   262
        Text: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   263
        Tint: Longword;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   264
        uid: Longword;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   265
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   266
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   267
    TStatistics = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   268
        DamageRecv,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   269
        DamageGiven: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   270
        StepDamageRecv,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   271
        StepDamageGiven,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   272
        StepKills: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   273
        MaxStepDamageRecv,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   274
        MaxStepDamageGiven,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   275
        MaxStepKills: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   276
        FinishedTurns: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   277
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   278
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   279
    TTeamStats = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   280
        Kills : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   281
        AIKills : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   282
        TeamKills : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   283
        TurnSkips : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   284
        TeamDamage : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   285
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   286
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   287
    TBinds = array[0..cKeyMaxIndex] of shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   288
    TKeyboardState = array[0..cKeyMaxIndex] of Byte;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   289
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   290
    PVoicepack = ^TVoicepack;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   291
    TVoicepack = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   292
        name: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   293
        chunks: array [TSound] of PMixChunk;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   294
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   295
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   296
    PHHAmmo = ^THHAmmo;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   297
    THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   298
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   299
    THedgehog = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   300
            Name: string[MAXNAMELEN];
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   301
            Gear: PGear;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4812
diff changeset
   302
            GearHidden: PGear;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   303
            SpeechGear: PVisualGear;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   304
            NameTagTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   305
            HealthTagTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   306
            HatTex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   307
            Ammo: PHHAmmo;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   308
            CurAmmoType: TAmmoType;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   309
            AmmoStore: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   310
            Team: PTeam;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   311
            MultiShootAttacks: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   312
            visStepPos: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   313
            BotLevel  : Byte; // 0 - Human player
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   314
            HatVisibility: GLfloat;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   315
            stats: TStatistics;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   316
            Hat: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   317
            InitialHealth: LongInt; // used for gfResetHealth
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   318
            King: boolean;  // Flag for a bunch of hedgehog attributes
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   319
            Unplaced: boolean;  // Flag for hog placing mode
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   320
            Timer: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   321
            Effects: Array[THogEffect] of boolean;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   322
            end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   323
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   324
    TTeam = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   325
            Clan: PClan;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   326
            TeamName: string[MAXNAMELEN];
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   327
            ExtDriven: boolean;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   328
            Binds: TBinds;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   329
            Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   330
            CurrHedgehog: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   331
            NameTagTex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   332
            CrosshairTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   333
            GraveTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   334
            HealthTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   335
            AIKillsTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   336
            FlagTex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   337
            Flag: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   338
            GraveName: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   339
            FortName: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   340
            TeamHealth: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   341
            TeamHealthBarWidth,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   342
            NewTeamHealthBarWidth: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   343
            DrawHealthY: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   344
            AttackBar: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   345
            HedgehogsNumber: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   346
            hasGone: boolean;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   347
            voicepack: PVoicepack;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   348
            PlayerHash: shortstring;   // md5 hash of player name. For temporary enabling of hats as thank you. Hashed for privacy of players
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   349
            stats: TTeamStats;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   350
            end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   351
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   352
    TClan = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   353
            Color: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   354
            Teams: array[0..Pred(cMaxTeams)] of PTeam;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   355
            TeamsNumber: Longword;
5016
9347d82a26cc added game mode Tag Team, mostly untested, please test :)
Henek
parents: 4978
diff changeset
   356
            TagTeamIndex: Longword;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   357
            CurrTeam: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   358
            ClanHealth: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   359
            ClanIndex: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   360
            TurnNumber: LongWord;
4978
0ef650ea3b12 add victory/flawless victory sounds. untested
nemo
parents: 4976
diff changeset
   361
            Flawless: boolean;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   362
            end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   363
4807
180dbfb13903 display caption for ammotype amNothing when switched to so that players know what just happened
sheepluva
parents: 4782
diff changeset
   364
     TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidBee, sidShotgun,
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   365
            sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   366
            sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   367
            sidParachute, sidAirAttack, sidMineStrike, sidBlowTorch,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   368
            sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   369
            sidKamikaze, sidCake, sidSeduction, sidWatermelon,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   370
            sidHellishBomb, sidDrill, sidBallgun, sidNapalm, sidRCPlane,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   371
            sidLowGravity, sidExtraDamage, sidInvulnerable, sidExtraTime,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   372
            sidLaserSight, sidVampiric, sidSniperRifle, sidJetpack,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   373
            sidMolotov, sidBirdy, sidPortalGun, sidPiano, sidGasBomb, sidSineGun, sidFlamethrower,
5024
1e332947147c Landgun, first pass. At sdw's request.
nemo
parents: 5022
diff changeset
   374
            sidSMine, sidHammer, sidResurrector, sidDrillStrike, sidSnowball, sidNothing, sidTardis, sidStructure, sidLandGun);
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   375
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   376
    TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   377
            sidConfirm, sidSuddenDeath, sidRemaining, sidFuel, sidSync,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   378
            sidNoEndTurn, sidNotYetAvailable, sidRoundSD, sidRoundsSD, sidReady);
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   379
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   380
    TEventId = (eidDied, eidDrowned, eidRoundStart, eidRoundWin, eidRoundDraw,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   381
            eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped, eidHurtSelf,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   382
            eidHomerun, eidGone);
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   383
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   384
    TGoalStrId = (gidCaption, gidSubCaption, gidForts, gidLowGravity, gidInvulnerable,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   385
            gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   386
            gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, gidRandomMineTimer,
5022
d2a2f6c9b236 some final work and buggfix for Tag Team, it is now playable
Henek
parents: 5016
diff changeset
   387
            gidDamageModifier, gidResetHealth, gidAISurvival, gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   388
4367
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   389
    TLandArray = packed array of array of LongWord;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   390
    TCollisionArray = packed array of array of Word;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   391
    TPreview  = packed array[0..127, 0..31] of byte;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   392
    TDirtyTag = packed array of array of byte;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   393
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   394
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   395
implementation
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   396
4420
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created.
nemo
parents: 4379
diff changeset
   397
end.