hedgewars/uTypes.pas
author unc0rr
Wed, 11 Apr 2012 22:47:21 +0400
changeset 6880 34d3bc7bd8b1
parent 6806 cdfb6c7099e5
child 6888 32a54322d262
permissions -rw-r--r--
Support operators declarations
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
6700
e04da46ee43c the most important commit of the year
koda
parents: 6695
diff changeset
     3
 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com>
4976
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;
5125
sheepluva
parents: 5118
diff changeset
    22
(*
sheepluva
parents: 5118
diff changeset
    23
 * This unit defines various types and enumerations for usage in different
sheepluva
parents: 5118
diff changeset
    24
 * places in the engine code.
sheepluva
parents: 5118
diff changeset
    25
 *)
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    26
interface
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    27
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
    28
uses SDLh, uFloat, GLunit, uConsts, Math;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    29
4812
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
    30
// 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
    31
// 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
    32
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    33
type
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    34
    HwColor4f = record
6277
627b5752733a A try to improve parser move (has regressions)
unc0rr
parents: 5968
diff changeset
    35
        r, g, b, a: byte;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    36
        end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    37
5125
sheepluva
parents: 5118
diff changeset
    38
    // Possible states of the game
5968
4e8bb227be9a this reintroduces the gsSuspend state to fix multitasking on ios
koda
parents: 5728
diff changeset
    39
    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
    40
5125
sheepluva
parents: 5118
diff changeset
    41
    // Game types that help determining what the engine is actually supposed to do
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    42
    TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    43
5125
sheepluva
parents: 5118
diff changeset
    44
    // Different files are stored in different folders, this enumeration is used to tell which folder to use
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    45
    TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    46
            ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,
5619
2ec22ebeb6f5 added a visual fire button, isOnFireButton check needs to be fixed though it only works on 800x480 screens
Xeli
parents: 5585
diff changeset
    47
            ptLocale, ptAmmoMenu, ptHedgehog, ptVoices, ptHats, ptFlags, ptMissionMaps, ptSuddenDeath, ptButtons);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    48
5125
sheepluva
parents: 5118
diff changeset
    49
    // Available sprites for displaying stuff
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    50
    TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    51
            sprLag, sprArrow, sprBazookaShell, sprTargetP, sprBee,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    52
            sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    53
            sprMineOn, sprMineDead, sprCase, sprFAid, sprDynamite, sprPower,
6609
5861b2cc991f minor cleanup, gather AMSlotSize in uConsts
koda
parents: 6580
diff changeset
    54
            sprClusterBomb, sprClusterParticle, sprFlame,
5861b2cc991f minor cleanup, gather AMSlotSize in uConsts
koda
parents: 6580
diff changeset
    55
            sprHorizont, sprHorizontL, sprHorizontR, sprSky, sprSkyL, sprSkyR,
6627
18cbb75aba59 add individual hog healths to team health bar
nemo
parents: 6609
diff changeset
    56
            sprAMSlot, sprAMAmmos, sprAMAmmosBW, sprAMSlotKeys, sprAMCorners,
6609
5861b2cc991f minor cleanup, gather AMSlotSize in uConsts
koda
parents: 6580
diff changeset
    57
            sprFinger, sprAirBomb, sprAirplane, sprAmAirplane, sprAmGirder,
5861b2cc991f minor cleanup, gather AMSlotSize in uConsts
koda
parents: 6580
diff changeset
    58
            sprHHTelepMask, sprSwitch, sprParachute, sprTarget, sprRopeNode,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    59
            sprQuestion, sprPowerBar, sprWindBar, sprWindL, sprWindR,
6676
21cf35a570a7 add keywords for landscape ammomenu and touch interface
koda
parents: 6637
diff changeset
    60
{$IFDEF USE_TOUCH_INTERFACE}
6685
ef706fccfb0a moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents: 6683
diff changeset
    61
            sprFireButton, sprArrowUp, sprArrowDown, sprArrowLeft, sprArrowRight,
6806
cdfb6c7099e5 first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents: 6714
diff changeset
    62
            sprJumpWidget, sprAMWidget, sprPauseButton, sprTimerButton,
6637
b4a3310f2974 show buttons on the screen, similar to the iOS overlay
Xeli
parents: 6627
diff changeset
    63
{$ENDIF}
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    64
            sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    65
            sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    66
            sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    67
            sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    68
            sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    69
            sprHurrah, sprLemonade, sprShrug, sprJuggle, sprExplPart, sprExplPart2,
6609
5861b2cc991f minor cleanup, gather AMSlotSize in uConsts
koda
parents: 6580
diff changeset
    70
            sprCakeWalk, sprCakeDown, sprWatermelon,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    71
            sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    72
            sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    73
            sprPlane, sprHandPlane, sprUtility, sprInvulnerable, sprVampiric, sprGirder,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    74
            sprSpeechCorner, sprSpeechEdge, sprSpeechTail,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    75
            sprThoughtCorner, sprThoughtEdge, sprThoughtTail,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    76
            sprShoutCorner, sprShoutEdge, sprShoutTail,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    77
            sprSniperRifle, sprBubbles, sprJetpack, sprHealth, sprHandMolotov, sprMolotov,
5065
0c2c509ccc7b mikade really likes the snow dust
nemo
parents: 5062
diff changeset
    78
            sprSmoke, sprSmokeWhite, sprShell, sprDust, sprSnowDust, sprExplosives, sprExplosivesRoll,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    79
            sprAmTeleport, sprSplash, sprDroplet, sprBirdy, sprHandCake, sprHandConstruction,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    80
            sprHandGrenade, sprHandMelon, sprHandMortar, sprHandSkip, sprHandCluster,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    81
            sprHandDynamite, sprHandHellish, sprHandMine, sprHandSeduction, sprHandVamp,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    82
            sprBigExplosion, sprSmokeRing, sprBeeTrace, sprEgg, sprTargetBee, sprHandBee,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    83
            sprFeather, sprPiano, sprHandSineGun, sprPortalGun, sprPortal,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    84
            sprCheese, sprHandCheese, sprHandFlamethrower, sprChunk, sprNote,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    85
            sprSMineOff, sprSMineOn, sprHandSMine, sprHammer,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    86
            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
    87
            sprBulletHit, sprSnowball, sprHandSnowball, sprSnow,
6025
cac1d5601d7c reviewed the build system and parts of the previous merge, performed some code cleanup
koda
parents: 6023
diff changeset
    88
            sprSDFlake, sprSDWater, sprSDCloud, sprSDSplash, sprSDDroplet, sprTardis,
6637
b4a3310f2974 show buttons on the screen, similar to the iOS overlay
Xeli
parents: 6627
diff changeset
    89
            sprSlider
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    90
            );
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    91
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    92
    // Gears that interact with other Gears and/or Land
5137
b6140f35735f rename gtBomb to gtGrenade, nerf grenade from 50 to 47 pending some flag to indicate pixels in Land[] belonging to current hog to avoid throwing grenades into hogs
nemo
parents: 5125
diff changeset
    93
    TGearType = (gtGrenade, gtHedgehog, gtShell, gtGrave, gtBee, // 4
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    94
            gtShotgunShot, gtPickHammer, gtRope, gtMine, gtCase, // 9
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
    95
            gtDEagleShot, gtDynamite, gtClusterBomb, gtCluster, gtShover, // 14
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
    96
            gtFlame, gtFirePunch, gtATStartGame, // 17
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
    97
            gtATFinishGame, gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, // 22
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
    98
            gtGirder, gtTeleport, gtSwitcher, gtTarget, gtMortar, // 27
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
    99
            gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 33
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   100
            gtHellishBomb, gtWaterUp, gtDrill, gtBallGun, gtBall, gtRCPlane, // 39
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   101
            gtSniperRifleShot, gtJetpack, gtMolotov, gtExplosives, gtBirdy, // 44
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   102
            gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 50
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   103
            gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 55
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   104
            gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis); // 61
4357
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
    // 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
   107
    TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   108
            vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,
5563
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5562
diff changeset
   109
            vgtSteam, vgtAmmo, vgtSmoke, vgtSmokeWhite, vgtShell,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   110
            vgtDust, vgtSplash, vgtDroplet, vgtSmokeRing, vgtBeeTrace, vgtEgg,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   111
            vgtFeather, vgtHealthTag, vgtSmokeTrace, vgtEvilTrace, vgtExplosion,
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   112
            vgtBigExplosion, vgtChunk, vgtNote, vgtLineTrail, vgtBulletHit, vgtCircle,
5562
8056d82b4d23 Seduction animation. New visual gear type.
nemo
parents: 5507
diff changeset
   113
            vgtSmoothWindBar, vgtStraightShot);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   114
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   115
    TGearsType = set of TGearType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   116
5125
sheepluva
parents: 5118
diff changeset
   117
    // Damage can be caused by different sources
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   118
    TDamageSource = (dsUnknown, dsFall, dsBullet, dsExplosion, dsShove, dsPoison);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   119
5125
sheepluva
parents: 5118
diff changeset
   120
    // Available sounds
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   121
    TSound = (sndNone,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   122
            sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   123
            sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,
5493
49769489af37 New sounds: mudball, mine bounce, hammer
grammickj
parents: 5357
diff changeset
   124
            sndMineImpact, sndMineTick, sndMudballImpact,
49769489af37 New sounds: mudball, mine bounce, hammer
grammickj
parents: 5357
diff changeset
   125
            sndPickhammer, sndGun, sndBee, sndJump1, sndJump2,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   126
            sndJump3, sndYesSir, sndLaugh, sndIllGetYou, sndIncoming,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   127
            sndMissed, sndStupid, sndFirstBlood, sndBoring, sndByeBye,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   128
            sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   129
            sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   130
            sndCake, sndOw1, sndOw2, sndOw3, sndOw4, sndFirePunch1, sndFirePunch2,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   131
            sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   132
            sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   133
            sndRideOfTheValkyries, sndDenied, sndPlaced, sndBaseballBat,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   134
            sndVaporize, sndWarp, sndSuddenDeath, sndMortar, sndShutter,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   135
            sndHomerun, sndMolotov, sndCover, sndUhOh, sndOops,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   136
            sndNooo, sndHello, sndRopeShot, sndRopeAttach, sndRopeRelease,
4978
0ef650ea3b12 add victory/flawless victory sounds. untested
nemo
parents: 4976
diff changeset
   137
            sndSwitchHog, sndVictory, sndFlawless, sndSniperReload, sndSteps, sndLowGravity,
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   138
            sndHellishImpact1, sndHellishImpact2, sndHellishImpact3, sndHellishImpact4,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   139
            sndMelonImpact, sndDroplet1, sndDroplet2, sndDroplet3, sndEggBreak, sndDrillRocket,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   140
            sndPoisonCough, sndPoisonMoan, sndBirdyLay, sndWhistle, sndBeeWater,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   141
            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
   142
            sndSkip, sndSineGun, sndOoff1, sndOoff2, sndOoff3, sndWhack,
5728
aca2acfba4ca *sigh* I suppose I'd best avoid those trademarks...
nemo
parents: 5706
diff changeset
   143
            sndComeonthen, sndParachute, sndBump, sndResurrector, sndPlane, sndTardis);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   144
5125
sheepluva
parents: 5118
diff changeset
   145
    // Available ammo types to be used by hedgehogs
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   146
    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
   147
            amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip, // 13
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   148
            amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch, // 18
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   149
            amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake, // 24
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   150
            amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun, // 30
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   151
            amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime, // 35
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   152
            amLaserSight, amVampiric, amSniperRifle, amJetpack, amMolotov, amBirdy, amPortalGun, // 42
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   153
            amPiano, amGasBomb, amSineGun, amFlamethrower, amSMine, amHammer, // 48
5024
1e332947147c Landgun, first pass. At sdw's request.
nemo
parents: 5022
diff changeset
   154
            amResurrector, amDrillStrike, amSnowball, amTardis, amStructure, amLandGun); // 54
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   155
5125
sheepluva
parents: 5118
diff changeset
   156
    // Different kind of crates that e.g. hedgehogs can pick up
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   157
    TCrateType = (HealthCrate, AmmoCrate, UtilityCrate);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   158
5639
ebe9858eb6a3 Removed chinese font
Xeli
parents: 5619
diff changeset
   159
    THWFont = (fnt16, fntBig, fntSmall {$IFNDEF MOBILE}, CJKfnt16, CJKfntBig, CJKfntSmall{$ENDIF});
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   160
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   161
    TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpVolume,
5118
9cfdb9bc6140 For mikade - bit more flexibility in script captions
nemo
parents: 5065
diff changeset
   162
            capgrpMessage, capgrpMessage2, capgrpAmmostate);
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   163
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   164
    TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   165
            siClanHealth, siTeamStats, siPlayerKills, siMaxTeamDamage,
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   166
            siMaxTeamKills, siMaxTurnSkips );
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   167
5125
sheepluva
parents: 5118
diff changeset
   168
    // Various "emote" animations a hedgehog can do
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   169
    TWave = (waveRollup, waveSad, waveWave, waveHurrah, waveLemonade, waveShrug, waveJuggle);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   170
4812
f924be23ffb4 merge with HEAD after 0.9.15 release, move consts and vars in their proper files
koda
parents: 4807
diff changeset
   171
    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
   172
    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
   173
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   174
    THHFont = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   175
            Handle: PTTF_Font;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   176
            Height: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   177
            style: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   178
            Name: string[21];
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   179
            end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   180
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   181
    PAmmo = ^TAmmo;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   182
    TAmmo = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   183
            Propz: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   184
            Count: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   185
(* 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
   186
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
   187
            NumPerTurn: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   188
            Timer: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   189
            Pos: LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   190
            AmmoType: TAmmoType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   191
            AttackVoice: TSound;
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   192
            Bounciness: LongWord;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   193
            end;
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
    TVertex2f = record
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6426
diff changeset
   196
            X, Y: GLfloat;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6426
diff changeset
   197
            end;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   198
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   199
    TVertex2i = record
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6426
diff changeset
   200
            X, Y: GLint;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6426
diff changeset
   201
            end;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   202
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   203
    PTexture = ^TTexture;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   204
    TTexture = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   205
            id: GLuint;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   206
            w, h, scale: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   207
            rx, ry: GLfloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   208
            priority: GLfloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   209
            vb, tb: array [0..3] of TVertex2f;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   210
            PrevTexture, NextTexture: PTexture;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   211
            end;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   212
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   213
    THogEffect = (heInvulnerable, heResurrectable, hePoisoned, heResurrected);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   214
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   215
    TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   216
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   217
    PGear = ^TGear;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   218
    PHedgehog = ^THedgehog;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   219
    PTeam     = ^TTeam;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   220
    PClan     = ^TClan;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   221
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   222
    TGearStepProcedure = procedure (Gear: PGear);
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   223
    TGear = record
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   224
            NextGear, PrevGear: PGear;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   225
            Active: Boolean;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   226
            AdvBounce: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   227
            Invulnerable: Boolean;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   228
            RenderTimer: Boolean;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   229
            AmmoType : TAmmoType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   230
            State : Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   231
            X : hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   232
            Y : hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   233
            dX: hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   234
            dY: hwFloat;
5612
2638dec1b323 This really should have been a TPoint for consistency
nemo
parents: 5585
diff changeset
   235
            Target : TPoint;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   236
            Kind: TGearType;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   237
            Pos: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   238
            doStep: TGearStepProcedure;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   239
            Radius: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   240
            Angle, Power : Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   241
            DirAngle: real;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   242
            Timer : LongWord;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   243
            Elasticity: hwFloat;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   244
            Friction  : hwFloat;
4602
ec84fb564bab added density for gears used in gfMoreWind, needs alot of tweaking
Henek
parents: 4578
diff changeset
   245
            Density   : hwFloat;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   246
            Message, MsgParam : Longword;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   247
            Hedgehog: PHedgehog;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   248
            Health, Damage, Karma: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   249
            CollisionIndex: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   250
            Tag: LongInt;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   251
            Tex: PTexture;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   252
            Z: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   253
            IntersectGear: PGear;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   254
            FlightTime: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   255
            uid: Longword;
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   256
            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
   257
            nImpactSounds: Word; // count of ImpactSounds
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   258
            SoundChannel: LongInt;
5062
e2d38329b84a Colin Rice
unc0rr
parents: 5024
diff changeset
   259
            PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
e2d38329b84a Colin Rice
unc0rr
parents: 5024
diff changeset
   260
            LastDamage: PHedgehog;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6426
diff changeset
   261
            end;
6426
2d44f6561e72 Help parser a bit
unc0rr
parents: 6328
diff changeset
   262
    TPGearArray = array of PGear;
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   263
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   264
    PVisualGear = ^TVisualGear;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   265
    TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   266
    TVisualGear = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   267
        NextGear, PrevGear: PVisualGear;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   268
        Frame,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   269
        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
   270
        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
   271
        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
   272
        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
   273
        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
   274
        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
   275
        tdY: real;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   276
        State : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   277
        Timer: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   278
        Angle, dAngle: real;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   279
        Kind: TVisualGearType;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   280
        doStep: TVGearStepProcedure;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   281
        Tex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   282
        alpha, scale: GLfloat;
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
   283
        Hedgehog: PHedgehog;
5357
ec36f3d53f3c Tiny optimization: convert smooth wind indicator change gear into visual gear
unc0rr
parents: 5319
diff changeset
   284
        Tag: LongInt;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   285
        Text: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   286
        Tint: Longword;
4422
5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation
nemo
parents: 4420
diff changeset
   287
        uid: Longword;
5585
c09f5b41644a Break visual gears list up into 4, to avoid iterating over entire list to draw a single layer. Also fix error in tag zoom.
nemo
parents: 5563
diff changeset
   288
        Layer: byte;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   289
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   290
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   291
    TStatistics = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   292
        DamageRecv,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   293
        DamageGiven: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   294
        StepDamageRecv,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   295
        StepDamageGiven,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   296
        StepKills: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   297
        MaxStepDamageRecv,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   298
        MaxStepDamageGiven,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   299
        MaxStepKills: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   300
        FinishedTurns: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   301
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   302
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   303
    TTeamStats = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   304
        Kills : Longword;
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5197
diff changeset
   305
        Suicides: Longword;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   306
        AIKills : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   307
        TeamKills : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   308
        TurnSkips : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   309
        TeamDamage : Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   310
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   311
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   312
    TBinds = array[0..cKeyMaxIndex] of shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   313
    TKeyboardState = array[0..cKeyMaxIndex] of Byte;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   314
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   315
    PVoicepack = ^TVoicepack;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   316
    TVoicepack = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   317
        name: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   318
        chunks: array [TSound] of PMixChunk;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   319
        end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   320
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5612
diff changeset
   321
    TVoice = record
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5612
diff changeset
   322
        snd: TSound;
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5612
diff changeset
   323
        voicepack: PVoicePack;
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5612
diff changeset
   324
        end;
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5612
diff changeset
   325
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   326
    PHHAmmo = ^THHAmmo;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   327
    THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   328
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   329
    THedgehog = record
6426
2d44f6561e72 Help parser a bit
unc0rr
parents: 6328
diff changeset
   330
            Name: string[192];
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   331
            Gear: PGear;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4812
diff changeset
   332
            GearHidden: PGear;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   333
            SpeechGear: PVisualGear;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   334
            NameTagTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   335
            HealthTagTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   336
            HatTex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   337
            Ammo: PHHAmmo;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   338
            CurAmmoType: TAmmoType;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   339
            AmmoStore: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   340
            Team: PTeam;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   341
            MultiShootAttacks: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   342
            visStepPos: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   343
            BotLevel  : Byte; // 0 - Human player
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   344
            HatVisibility: GLfloat;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   345
            stats: TStatistics;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   346
            Hat: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   347
            InitialHealth: LongInt; // used for gfResetHealth
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   348
            King: boolean;  // Flag for a bunch of hedgehog attributes
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   349
            Unplaced: boolean;  // Flag for hog placing mode
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   350
            Timer: Longword;
6426
2d44f6561e72 Help parser a bit
unc0rr
parents: 6328
diff changeset
   351
            Effects: array[THogEffect] of boolean;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   352
            end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   353
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   354
    TTeam = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   355
            Clan: PClan;
6426
2d44f6561e72 Help parser a bit
unc0rr
parents: 6328
diff changeset
   356
            TeamName: string[192];
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   357
            ExtDriven: boolean;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   358
            Binds: TBinds;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   359
            Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   360
            CurrHedgehog: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   361
            NameTagTex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   362
            CrosshairTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   363
            GraveTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   364
            HealthTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   365
            AIKillsTex,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   366
            FlagTex: PTexture;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   367
            Flag: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   368
            GraveName: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   369
            FortName: shortstring;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   370
            TeamHealth: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   371
            TeamHealthBarWidth,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   372
            NewTeamHealthBarWidth: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   373
            DrawHealthY: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   374
            AttackBar: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   375
            HedgehogsNumber: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   376
            hasGone: boolean;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   377
            voicepack: PVoicepack;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   378
            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
   379
            stats: TTeamStats;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   380
            end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   381
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   382
    TClan = record
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   383
            Color: Longword;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   384
            Teams: array[0..Pred(cMaxTeams)] of PTeam;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   385
            TeamsNumber: Longword;
5016
9347d82a26cc added game mode Tag Team, mostly untested, please test :)
Henek
parents: 4978
diff changeset
   386
            TagTeamIndex: Longword;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   387
            CurrTeam: LongWord;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   388
            ClanHealth: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   389
            ClanIndex: LongInt;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   390
            TurnNumber: LongWord;
4978
0ef650ea3b12 add victory/flawless victory sounds. untested
nemo
parents: 4976
diff changeset
   391
            Flawless: boolean;
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   392
            end;
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   393
4807
180dbfb13903 display caption for ammotype amNothing when switched to so that players know what just happened
sheepluva
parents: 4782
diff changeset
   394
     TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidBee, sidShotgun,
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   395
            sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   396
            sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   397
            sidParachute, sidAirAttack, sidMineStrike, sidBlowTorch,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   398
            sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   399
            sidKamikaze, sidCake, sidSeduction, sidWatermelon,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   400
            sidHellishBomb, sidDrill, sidBallgun, sidNapalm, sidRCPlane,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   401
            sidLowGravity, sidExtraDamage, sidInvulnerable, sidExtraTime,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   402
            sidLaserSight, sidVampiric, sidSniperRifle, sidJetpack,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   403
            sidMolotov, sidBirdy, sidPortalGun, sidPiano, sidGasBomb, sidSineGun, sidFlamethrower,
5024
1e332947147c Landgun, first pass. At sdw's request.
nemo
parents: 5022
diff changeset
   404
            sidSMine, sidHammer, sidResurrector, sidDrillStrike, sidSnowball, sidNothing, sidTardis, sidStructure, sidLandGun);
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   405
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   406
    TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   407
            sidConfirm, sidSuddenDeath, sidRemaining, sidFuel, sidSync,
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5202
diff changeset
   408
            sidNoEndTurn, sidNotYetAvailable, sidRoundSD, sidRoundsSD, sidReady, 
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5202
diff changeset
   409
            sidBounce1, sidBounce2, sidBounce3, sidBounce4, sidBounce5, sidBounce);
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   410
5125
sheepluva
parents: 5118
diff changeset
   411
    // Events that are important for the course of the game or at least interesting for other reasons
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   412
    TEventId = (eidDied, eidDrowned, eidRoundStart, eidRoundWin, eidRoundDraw,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   413
            eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped, eidHurtSelf,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   414
            eidHomerun, eidGone);
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   415
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   416
    TGoalStrId = (gidCaption, gidSubCaption, gidForts, gidLowGravity, gidInvulnerable,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   417
            gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   418
            gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, gidRandomMineTimer,
5022
d2a2f6c9b236 some final work and buggfix for Tag Team, it is now playable
Henek
parents: 5016
diff changeset
   419
            gidDamageModifier, gidResetHealth, gidAISurvival, gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);
4361
64ea345ab655 Move variables from uConsts to uVariables
unc0rr
parents: 4357
diff changeset
   420
4367
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   421
    TLandArray = packed array of array of LongWord;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   422
    TCollisionArray = packed array of array of Word;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   423
    TPreview  = packed array[0..127, 0..31] of byte;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   424
    TDirtyTag = packed array of array of byte;
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   425
6688
b2084a00a4cf added translate/fade animations for OnScreenWidgets
Xeli
parents: 6685
diff changeset
   426
    PWidgetMovement = ^TWidgetMovement;
b2084a00a4cf added translate/fade animations for OnScreenWidgets
Xeli
parents: 6685
diff changeset
   427
    TWidgetMovement = record
6701
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   428
        animate   : Boolean;
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   429
        source    : TPoint;
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   430
        target    : TPoint;
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   431
        startTime : Longword;
6688
b2084a00a4cf added translate/fade animations for OnScreenWidgets
Xeli
parents: 6685
diff changeset
   432
        end;
b2084a00a4cf added translate/fade animations for OnScreenWidgets
Xeli
parents: 6685
diff changeset
   433
b2084a00a4cf added translate/fade animations for OnScreenWidgets
Xeli
parents: 6685
diff changeset
   434
    POnScreenWidget = ^TOnScreenWidget;
b2084a00a4cf added translate/fade animations for OnScreenWidgets
Xeli
parents: 6685
diff changeset
   435
    TOnScreenWidget = record
6701
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   436
        show          : boolean;                      // if false widget will not be drawn
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   437
        sprite        : TSprite;                    // a convenience type
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   438
        frame         : TSDL_Rect;                   // graphical coordinates
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   439
        active        : TSDL_Rect;                  // active touch region
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   440
        fadeAnimStart : Longword;            // time the fade started, 0 means don't fade
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   441
        moveAnim      : TWidgetMovement;          // the animation associated to the widget
6685
ef706fccfb0a moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents: 6683
diff changeset
   442
        end;
4367
f4a0ec067601 uLand isn't that important to them
unc0rr
parents: 4365
diff changeset
   443
6694
48317632b3a9 and of course fix build for sdl 1.2
koda
parents: 6693
diff changeset
   444
{$IFDEF SDL13}
6693
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   445
    PTouch_Data = ^TTouch_Data;
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   446
    TTouch_Data = record
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   447
        id                       : TSDL_FingerId;
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   448
        x,y                      : LongInt;
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   449
        dx,dy                    : LongInt;
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   450
        historicalX, historicalY : LongInt;
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   451
        timeSinceDown            : Longword;
6701
58a43c2064ad the onScreenwidgets are multitouch now, frequently (alternating) tapping left and right still causes it to bug though, but you have to try hard to duplicate it, works ok for now
Xeli
parents: 6700
diff changeset
   452
        pressedWidget            : POnScreenWidget;
6693
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   453
        end;
6694
48317632b3a9 and of course fix build for sdl 1.2
koda
parents: 6693
diff changeset
   454
{$ENDIF}
6693
b6a69c0bc541 carried out some cosmetic TODOs in uTouch
koda
parents: 6688
diff changeset
   455
4357
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   456
implementation
a1fcfc341a52 Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
diff changeset
   457
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
   458
end.