hedgewars/uTypes.pas
changeset 6426 2d44f6561e72
parent 6328 d14adf1c7721
child 6580 6155187bf599
equal deleted inserted replaced
6425:1ef4192aa80d 6426:2d44f6561e72
   254             nImpactSounds: Word; // count of ImpactSounds
   254             nImpactSounds: Word; // count of ImpactSounds
   255             SoundChannel: LongInt;
   255             SoundChannel: LongInt;
   256             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   256             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   257             LastDamage: PHedgehog;
   257             LastDamage: PHedgehog;
   258         end;
   258         end;
   259     TPGearArray = Array of PGear;
   259     TPGearArray = array of PGear;
   260 
   260 
   261     PVisualGear = ^TVisualGear;
   261     PVisualGear = ^TVisualGear;
   262     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   262     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   263     TVisualGear = record
   263     TVisualGear = record
   264         NextGear, PrevGear: PVisualGear;
   264         NextGear, PrevGear: PVisualGear;
   322 
   322 
   323     PHHAmmo = ^THHAmmo;
   323     PHHAmmo = ^THHAmmo;
   324     THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
   324     THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
   325 
   325 
   326     THedgehog = record
   326     THedgehog = record
   327             Name: string[MAXNAMELEN];
   327             Name: string[192];
   328             Gear: PGear;
   328             Gear: PGear;
   329             GearHidden: PGear;
   329             GearHidden: PGear;
   330             SpeechGear: PVisualGear;
   330             SpeechGear: PVisualGear;
   331             NameTagTex,
   331             NameTagTex,
   332             HealthTagTex,
   332             HealthTagTex,
   343             Hat: shortstring;
   343             Hat: shortstring;
   344             InitialHealth: LongInt; // used for gfResetHealth
   344             InitialHealth: LongInt; // used for gfResetHealth
   345             King: boolean;  // Flag for a bunch of hedgehog attributes
   345             King: boolean;  // Flag for a bunch of hedgehog attributes
   346             Unplaced: boolean;  // Flag for hog placing mode
   346             Unplaced: boolean;  // Flag for hog placing mode
   347             Timer: Longword;
   347             Timer: Longword;
   348             Effects: Array[THogEffect] of boolean;
   348             Effects: array[THogEffect] of boolean;
   349             end;
   349             end;
   350 
   350 
   351     TTeam = record
   351     TTeam = record
   352             Clan: PClan;
   352             Clan: PClan;
   353             TeamName: string[MAXNAMELEN];
   353             TeamName: string[192];
   354             ExtDriven: boolean;
   354             ExtDriven: boolean;
   355             Binds: TBinds;
   355             Binds: TBinds;
   356             Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
   356             Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
   357             CurrHedgehog: LongWord;
   357             CurrHedgehog: LongWord;
   358             NameTagTex: PTexture;
   358             NameTagTex: PTexture;