hedgewars/uTypes.pas
changeset 7374 514138949c76
parent 7304 8b3575750cd2
parent 7335 3c6f08af7dac
child 11317 62287d4044e7
equal deleted inserted replaced
7304:8b3575750cd2 7374:514138949c76
   287             SoundChannel: LongInt;
   287             SoundChannel: LongInt;
   288             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   288             PortalCounter: LongWord;  // Hopefully temporary, but avoids infinite portal loops in a guaranteed fashion.
   289             LastDamage: PHedgehog;
   289             LastDamage: PHedgehog;
   290             end;
   290             end;
   291     TPGearArray = array of PGear;
   291     TPGearArray = array of PGear;
       
   292     PGearArrayS = record
       
   293         size: LongWord;
       
   294         ar: ^TPGearArray;
       
   295         end;
   292 
   296 
   293     PVisualGear = ^TVisualGear;
   297     PVisualGear = ^TVisualGear;
   294     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   298     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
   295     TVisualGear = record
   299     TVisualGear = record
   296         NextGear, PrevGear: PVisualGear;
   300         NextGear, PrevGear: PVisualGear;