hedgewars/uTypes.pas
changeset 5062 e2d38329b84a
parent 5024 1e332947147c
child 5065 0c2c509ccc7b
equal deleted inserted replaced
5060:7d0f6e5b1c1c 5062:e2d38329b84a
   233             FlightTime: Longword;
   233             FlightTime: Longword;
   234             uid: Longword;
   234             uid: Longword;
   235             ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
   235             ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
   236             nImpactSounds: Word; // count of ImpactSounds
   236             nImpactSounds: Word; // count of ImpactSounds
   237             SoundChannel: LongInt;
   237             SoundChannel: LongInt;
   238             PortalCounter: LongWord  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   238             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
       
   239             LastDamage: PHedgehog;
   239         end;
   240         end;
   240     TPGearArray = Array of PGear;
   241     TPGearArray = Array of PGear;
   241 
   242 
   242     PVisualGear = ^TVisualGear;
   243     PVisualGear = ^TVisualGear;
   243     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   244     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);