hedgewars/uTypes.pas
changeset 6580 6155187bf599
parent 6426 2d44f6561e72
child 6609 5861b2cc991f
equal deleted inserted replaced
6579:fc52f7c22c9b 6580:6155187bf599
   188             AttackVoice: TSound;
   188             AttackVoice: TSound;
   189             Bounciness: LongWord;
   189             Bounciness: LongWord;
   190             end;
   190             end;
   191 
   191 
   192     TVertex2f = record
   192     TVertex2f = record
   193         X, Y: GLfloat;
   193             X, Y: GLfloat;
   194         end;
   194             end;
   195 
   195 
   196     TVertex2i = record
   196     TVertex2i = record
   197         X, Y: GLint;
   197             X, Y: GLint;
   198         end;
   198             end;
   199 
   199 
   200     PTexture = ^TTexture;
   200     PTexture = ^TTexture;
   201     TTexture = record
   201     TTexture = record
   202             id: GLuint;
   202             id: GLuint;
   203             w, h, scale: LongInt;
   203             w, h, scale: LongInt;
   253             ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
   253             ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
   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