118 			NumPerTurn: LongWord;

   118 			NumPerTurn: LongWord;

   119 			Timer: LongWord;

   119 			Timer: LongWord;

   120 			Pos: LongWord;

   120 			Pos: LongWord;

   121 			AmmoType: TAmmoType;

   121 			AmmoType: TAmmoType;

   122 			end;

   122 			end;

   123 	TTexture = record

   128 	TTexture = record

   124 			id: GLuint;

   129 			id: GLuint;

   125 			w, h: LongInt;

   130 			w, h: LongInt;

   126 			rx, ry: GLfloat;

   131 			rx, ry: GLfloat;

   127 			end;

   133 			end;

   128 	PTexture = ^TTexture;

   134 	PTexture = ^TTexture;

   129 

   135 

   133 const

   136 const

   134 	errmsgCreateSurface   = 'Error creating SDL surface';

   137 	errmsgCreateSurface   = 'Error creating SDL surface';

   135 	errmsgTransparentSet  = 'Error setting transparent color';

   138 	errmsgTransparentSet  = 'Error setting transparent color';

   136 	errmsgUnknownCommand  = 'Unknown command';

   139 	errmsgUnknownCommand  = 'Unknown command';

   137 	errmsgUnknownVariable = 'Unknown variable';

   140 	errmsgUnknownVariable = 'Unknown variable';