hedgewars-draft: comparison hedgewars/uTypes.pas

equal deleted inserted replaced

-:c07f341adad9
+:bb95e351270c
 // Game types that help determining what the engine is actually supposed to do
 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax, gmtRecord);
 // Different files are stored in different folders, this enumeration is used to tell which folder to use
 TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,
-ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,
+ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts, ptLocale,
-ptLocale, ptAmmoMenu, ptHedgehog, ptVoices, ptHats, ptFlags, ptMissionMaps, ptSuddenDeath, ptButtons,
+ptAmmoMenu, ptHedgehog, ptVoices, ptHats, ptFlags, ptMissionMaps,
-ptShaders);
+ptSuddenDeath, ptButtons, ptShaders);
 // Available sprites for displaying stuff
 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,
 sprLag, sprArrow, sprBazookaShell, sprTargetP, sprBee,
 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
 sprCheese, sprHandCheese, sprHandFlamethrower, sprChunk, sprNote,
 sprSMineOff, sprSMineOn, sprHandSMine, sprHammer,
 sprHandResurrector, sprCross, sprAirDrill, sprNapalmBomb,
 sprBulletHit, sprSnowball, sprHandSnowball, sprSnow,
 sprSDFlake, sprSDWater, sprSDCloud, sprSDSplash, sprSDDroplet, sprTardis,
-sprSlider, sprBotlevels, sprHandKnife, sprKnife, sprStar, sprIceTexture, sprIceGun, sprFrozenHog
+sprSlider, sprBotlevels, sprHandKnife, sprKnife, sprStar, sprIceTexture, sprIceGun,
+sprFrozenHog
 );
 // Gears that interact with other Gears and/or Land
-TGearType = ({-->}gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives, // <-- these are gears which should be avoided when searching a spawn place
+TGearType = (gtFlame, gtHedgehog, gtMine, gtCase, gtExplosives, // these gears should be avoided when searching a spawn place
 gtGrenade, gtShell, gtGrave, gtBee, // 8
 gtShotgunShot, gtPickHammer, gtRope,  // 11
 gtDEagleShot, gtDynamite, gtClusterBomb, gtCluster, gtShover, // 16
 gtFirePunch, gtATStartGame, // 18
 gtATFinishGame, gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, // 23
 sndNooo, sndHello, sndRopeShot, sndRopeAttach, sndRopeRelease,
 sndSwitchHog, sndVictory, sndFlawless, sndSniperReload, sndSteps, sndLowGravity,
 sndHellishImpact1, sndHellishImpact2, sndHellishImpact3, sndHellishImpact4,
 sndMelonImpact, sndDroplet1, sndDroplet2, sndDroplet3, sndEggBreak, sndDrillRocket,
 sndPoisonCough, sndPoisonMoan, sndBirdyLay, sndWhistle, sndBeeWater,
-sndPiano0, sndPiano1, sndPiano2, sndPiano3, sndPiano4, sndPiano5, sndPiano6, sndPiano7, sndPiano8,
+sndPiano0, sndPiano1, sndPiano2, sndPiano3, sndPiano4, sndPiano5, sndPiano6, sndPiano7,
-sndSkip, sndSineGun, sndOoff1, sndOoff2, sndOoff3, sndWhack,
+sndPiano8, sndSkip, sndSineGun, sndOoff1, sndOoff2, sndOoff3, sndWhack,
-sndComeonthen, sndParachute, sndBump, sndResurrector, sndPlane, sndTardis, sndFrozenHogImpact, sndIceBeam, sndHogFreeze
+sndComeonthen, sndParachute, sndBump, sndResurrector, sndPlane, sndTardis, sndFrozenHogImpact,
+sndIceBeam, sndHogFreeze
 );
 // Available ammo types to be used by hedgehogs
 TAmmoType  = (amNothing, amGrenade, amClusterBomb, amBazooka, amBee, amShotgun, amPickHammer, // 6
 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip, // 13
 amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake, // 24
 amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun, // 30
 amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime, // 35
 amLaserSight, amVampiric, amSniperRifle, amJetpack, amMolotov, amBirdy, amPortalGun, // 42
 amPiano, amGasBomb, amSineGun, amFlamethrower, amSMine, amHammer, // 48
-amResurrector, amDrillStrike, amSnowball, amTardis, {amStructure,} amLandGun, amIceGun, amKnife); // 54
+amResurrector, amDrillStrike, amSnowball, amTardis, {amStructure,} amLandGun, amIceGun,
+amKnife // 54
+);
 // Different kind of crates that e.g. hedgehogs can pick up
 TCrateType = (HealthCrate, AmmoCrate, UtilityCrate);
 THWFont = (fnt16, fntBig, fntSmall {$IFNDEF MOBILE}, CJKfnt16, CJKfntBig, CJKfntSmall{$ENDIF});
 TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs,
 siClanHealth, siTeamStats, siPlayerKills, siMaxTeamDamage,
 siMaxTeamKills, siMaxTurnSkips, siCustomAchievement, siGraphTitle,
 siPointType);
-// Various "emote" animations a hedgehog can do
+// Various 'emote' animations a hedgehog can do
 TWave = (waveRollup, waveSad, waveWave, waveHurrah, waveLemonade, waveShrug, waveJuggle);
 TRenderMode = (rmDefault, rmLeftEye, rmRightEye);
-TStereoMode = (smNone, smRedCyan, smCyanRed, smRedBlue, smBlueRed, smRedGreen, smGreenRed, smHorizontal, smVertical);
+TStereoMode = (smNone, smRedCyan, smCyanRed, smRedBlue, smBlueRed, smRedGreen, smGreenRed,
+smHorizontal, smVertical);
 THHFont = record
 Handle: PTTF_Font;
 Height: LongInt;
 style: LongInt;
 PAmmo = ^TAmmo;
 TAmmo = record
 Propz: LongWord;
 Count: LongWord;
-(* Using for place hedgehogs mode, but for any other situation where the initial count would be needed I guess.
+// Using for place hedgehogs mode, but for any other situation where the initial count would be needed I guess.
-For example, say, a mode where the weaponset is reset each turn, or on sudden death *)
+// For example, say, a mode where the weaponset is reset each turn, or on sudden death
 NumPerTurn: LongWord;
 Timer: LongWord;
 Pos: LongWord;
 AmmoType: TAmmoType;
 AttackVoice: TSound;
 PHedgehog = ^THedgehog;
 PTeam     = ^TTeam;
 PClan     = ^TClan;
 TGearStepProcedure = procedure (Gear: PGear);
-// So, you're here looking for variables you can (ab)use to store some gear state?
+// So, you are here looking for variables you can (ab)use to store some gear state?
 // Not all members of this structure are created equal. Comments below are my take on what can be used for what in the gear structure.
 TGear = record
-// Don't ever override these.
+// Do *not* ever override these.
 NextGear, PrevGear: PGear;  // Linked list
 Z: Longword;                // Z index. For rendering. Sets order in list
 Active: Boolean;            // Is gear Active (running step code)
 Kind: TGearType;
 doStep: TGearStepProcedure; // Code the gear is running
 Elasticity: hwFloat;
 Friction  : hwFloat;
 Density   : hwFloat; // Density is kind of a mix of size and density. Impacts distance thrown, wind.
 ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
 nImpactSounds: Word; // count of ImpactSounds.
-// Don't use these if you want to take damage normally, otherwise health/damage are commonly used for other purposes
+// Do not use these if you want to take damage normally, otherwise health/damage are commonly used for other purposes
 Invulnerable: Boolean;
 Health, Damage, Karma: LongInt;
-// DirAngle is a "real" - if you don't need it for rotation of sprite in uGearsRender, you can use it for any visual-only value
+// DirAngle is a 'real' - if you do not need it for rotation of sprite in uGearsRender, you can use it for any visual-only value
 DirAngle: real;
 // These are frequently overridden to serve some other purpose
 Pos: Longword;           // Commonly overridden.  Example use is posCase values in uConsts.
 Angle, Power : Longword; // Used for hog aiming/firing.  Angle is rarely used as an Angle otherwise.
 Timer : LongWord;        // Typically used for some sort of gear timer. Time to explosion, remaining fuel...
 Tag: LongInt;            // Quite generic. Variety of uses.
 FlightTime: Longword;    // Initially added for batting of hogs to determine homerun. Used for some firing delays
 MsgParam: LongWord;      // Initially stored a set of messages. So usually gm values like Message. Frequently overriden
-// These are not used generically, but should probably be used for purpose intended. Definitely shouldn't override pointer type
+// These are not used generically, but should probably be used for purpose intended. Definitely should not override pointer type
-Tex: PTexture;          // A texture created by the gear. Shouldn't use for anything but textures
+Tex: PTexture;          // A texture created by the gear. Should not use for anything but textures
 LinkedGear: PGear;      // Used to track a related gear. Portal pairs for example.
 Hedgehog: PHedgehog;    // set to CurrentHedgehog on gear creation
 SoundChannel: LongInt;  // Used to track a sound the gear started
 end;
 TPGearArray = array of PGear;
 end;
 TClan = record
 Color: Longword;
 Teams: array[0..Pred(cMaxTeams)] of PTeam;
 TeamsNumber: LongInt;{xymeng, org:LongWord}
 TagTeamIndex: Longword;
 CurrTeam: LongWord;
 ClanHealth: LongInt;
 ClanIndex: LongInt;
 TurnNumber: LongInt;{xymeng, org:LongWord}
 Flawless: boolean;
 end;
 cdeclPtr = procedure; cdecl;
 cdeclIntPtr = procedure(num: LongInt); cdecl;
 startTime : Longword;
 end;
 POnScreenWidget = ^TOnScreenWidget;
 TOnScreenWidget = record
-show          : boolean;                      // if false widget will not be drawn
+show          : boolean;             // if false widget will not be drawn
-sprite        : TSprite;                    // a convenience type
+sprite        : TSprite;             // a convenience type
-frame         : TSDL_Rect;                   // graphical coordinates
+frame         : TSDL_Rect;           // graphical coordinates
-active        : TSDL_Rect;                  // active touch region
+active        : TSDL_Rect;           // active touch region
-fadeAnimStart : Longword;            // time the fade started, 0 means don't fade
+fadeAnimStart : Longword;            // time the fade started, 0 means do not fade
-moveAnim      : TWidgetMovement;          // the animation associated to the widget
+moveAnim      : TWidgetMovement;     // the animation associated to the widget
 end;
 {$IFDEF SDL13}
 PTouch_Data = ^TTouch_Data;
 TTouch_Data = record

branch	webgl
changeset 9244	bb95e351270c
parent 9197	e4e366013e9a
child 9248	3e8558dc285a