hedgewars/uTypes.pas
changeset 7347 88685fbb2679
parent 7278 000e4543f204
parent 7335 3c6f08af7dac
child 7442 9bb6abdb5675
equal deleted inserted replaced
7306:3cff5c769509 7347:88685fbb2679
   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;