hedgewars/uTypes.pas
changeset 7335 3c6f08af7dac
parent 7272 71df899c4163
child 7347 88685fbb2679
child 7374 514138949c76
child 7389 15c3fb4882df
equal deleted inserted replaced
7333:520a16a14747 7335:3c6f08af7dac
   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;