hedgewars/uTypes.pas
changeset 7439 0a494f951dcf
parent 7404 38a23771ee45
child 7442 9bb6abdb5675
child 7495 2592240b7b62
equal deleted inserted replaced
7358:57a508884052 7439:0a494f951dcf
   100             gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 34
   100             gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 34
   101             gtHellishBomb, gtWaterUp, gtDrill, gtBallGun, gtBall, gtRCPlane, // 40
   101             gtHellishBomb, gtWaterUp, gtDrill, gtBallGun, gtBall, gtRCPlane, // 40
   102             gtSniperRifleShot, gtJetpack, gtMolotov, gtBirdy, // 44
   102             gtSniperRifleShot, gtJetpack, gtMolotov, gtBirdy, // 44
   103             gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 50
   103             gtEgg, gtPortal, gtPiano, gtGasBomb, gtSineGunShot, gtFlamethrower, // 50
   104             gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 55
   104             gtSMine, gtPoisonCloud, gtHammer, gtHammerHit, gtResurrector, // 55
   105             gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis, gtIceGun); // 62
   105             gtNapalmBomb, gtSnowball, gtFlake, gtStructure, gtLandGun, gtTardis, gtIceGun, gtAddAmmo, gtGenericFaller); // 62
   106 
   106 
   107     // Gears that are _only_ of visual nature (e.g. background stuff, visual effects, speechbubbles, etc.)
   107     // Gears that are _only_ of visual nature (e.g. background stuff, visual effects, speechbubbles, etc.)
   108     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
   108     TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
   109             vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,
   109             vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,
   110             vgtSteam, vgtAmmo, vgtSmoke, vgtSmokeWhite, vgtShell,
   110             vgtSteam, vgtAmmo, vgtSmoke, vgtSmokeWhite, vgtShell,
   258             SoundChannel: LongInt;
   258             SoundChannel: LongInt;
   259             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   259             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   260             LastDamage: PHedgehog;
   260             LastDamage: PHedgehog;
   261             end;
   261             end;
   262     TPGearArray = array of PGear;
   262     TPGearArray = array of PGear;
       
   263     PGearArrayS = record
       
   264         size: LongWord;
       
   265         ar: ^TPGearArray;
       
   266         end;
   263 
   267 
   264     PVisualGear = ^TVisualGear;
   268     PVisualGear = ^TVisualGear;
   265     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   269     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   266     TVisualGear = record
   270     TVisualGear = record
   267         NextGear, PrevGear: PVisualGear;
   271         NextGear, PrevGear: PVisualGear;
   334             NameTagTex,
   338             NameTagTex,
   335             HealthTagTex,
   339             HealthTagTex,
   336             HatTex: PTexture;
   340             HatTex: PTexture;
   337             Ammo: PHHAmmo;
   341             Ammo: PHHAmmo;
   338             CurAmmoType: TAmmoType;
   342             CurAmmoType: TAmmoType;
       
   343             PickUpType: LongWord;
       
   344             PickUpDelay: LongInt;
   339             AmmoStore: Longword;
   345             AmmoStore: Longword;
   340             Team: PTeam;
   346             Team: PTeam;
   341             MultiShootAttacks: Longword;
   347             MultiShootAttacks: Longword;
   342             visStepPos: LongWord;
   348             visStepPos: LongWord;
   343             BotLevel  : Byte; // 0 - Human player
   349             BotLevel  : Byte; // 0 - Human player
   398             sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,
   404             sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,
   399             sidKamikaze, sidCake, sidSeduction, sidWatermelon,
   405             sidKamikaze, sidCake, sidSeduction, sidWatermelon,
   400             sidHellishBomb, sidDrill, sidBallgun, sidNapalm, sidRCPlane,
   406             sidHellishBomb, sidDrill, sidBallgun, sidNapalm, sidRCPlane,
   401             sidLowGravity, sidExtraDamage, sidInvulnerable, sidExtraTime,
   407             sidLowGravity, sidExtraDamage, sidInvulnerable, sidExtraTime,
   402             sidLaserSight, sidVampiric, sidSniperRifle, sidJetpack,
   408             sidLaserSight, sidVampiric, sidSniperRifle, sidJetpack,
   403             sidMolotov, sidBirdy, sidPortalGun, sidPiano, sidGasBomb, sidSineGun, sidFlamethrower,
   409             sidMolotov, sidBirdy, sidPortalGun, sidPiano, sidGasBomb,
   404             sidSMine, sidHammer, sidResurrector, sidDrillStrike, sidSnowball, sidNothing, sidTardis, 
   410             sidSineGun, sidFlamethrower,sidSMine, sidHammer, sidResurrector,
   405 	    sidStructure, sidLandGun, sidIceGun);
   411             sidDrillStrike, sidSnowball, sidNothing, sidTardis,
       
   412             sidStructure, sidLandGun, sidIceGun);
   406 
   413 
   407     TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused,
   414     TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused,
   408             sidConfirm, sidSuddenDeath, sidRemaining, sidFuel, sidSync,
   415             sidConfirm, sidSuddenDeath, sidRemaining, sidFuel, sidSync,
   409             sidNoEndTurn, sidNotYetAvailable, sidRoundSD, sidRoundsSD, sidReady, 
   416             sidNoEndTurn, sidNotYetAvailable, sidRoundSD, sidRoundsSD, sidReady, 
   410             sidBounce1, sidBounce2, sidBounce3, sidBounce4, sidBounce5, sidBounce);
   417             sidBounce1, sidBounce2, sidBounce3, sidBounce4, sidBounce5, sidBounce,
       
   418             sidMute);
   411 
   419 
   412     // Events that are important for the course of the game or at least interesting for other reasons
   420     // Events that are important for the course of the game or at least interesting for other reasons
   413     TEventId = (eidDied, eidDrowned, eidRoundStart, eidRoundWin, eidRoundDraw,
   421     TEventId = (eidDied, eidDrowned, eidRoundStart, eidRoundWin, eidRoundDraw,
   414             eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped, eidHurtSelf,
   422             eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped,
   415             eidHomerun, eidGone);
   423             eidHurtSelf, eidHomerun, eidGone);
   416 
   424 
   417     TGoalStrId = (gidCaption, gidSubCaption, gidForts, gidLowGravity, gidInvulnerable,
   425     TGoalStrId = (gidCaption, gidSubCaption, gidForts, gidLowGravity, gidInvulnerable,
   418             gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,
   426             gidVampiric, gidKarma, gidKing, gidPlaceHog, gidArtillery,
   419             gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, gidRandomMineTimer,
   427             gidSolidLand, gidSharedAmmo, gidMineTimer, gidNoMineTimer, 
   420             gidDamageModifier, gidResetHealth, gidAISurvival, gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);
   428             gidRandomMineTimer, gidDamageModifier, gidResetHealth, gidAISurvival, 
       
   429             gidInfAttack, gidResetWeps, gidPerHogAmmo, gidTagTeam);
   421 
   430 
   422     TLandArray = packed array of array of LongWord;
   431     TLandArray = packed array of array of LongWord;
   423     TCollisionArray = packed array of array of Word;
   432     TCollisionArray = packed array of array of Word;
   424     TPreview  = packed array[0..127, 0..31] of byte;
   433     TPreview  = packed array[0..127, 0..31] of byte;
   425     TDirtyTag = packed array of array of byte;
   434     TDirtyTag = packed array of array of byte;