86     cInitVolume     : LongInt = 50;

    86     cInitVolume     : LongInt = 50;

    87     cTimerInterval  : LongInt = 8;

    87     cTimerInterval  : LongInt = 8;

    88     //pathPrefix is in uConsts

    88     //pathPrefix is in uConsts

    89     cShowFPS        : boolean = false;

    89     cShowFPS        : boolean = false;

    90     cAltDamage      : boolean = true;

    90     cAltDamage      : boolean = true;

    92 

    92 

    93     recordFileName  : shortstring = '';

    93     recordFileName  : shortstring = '';

    94     

    94     

    95     cCaseFactor     : Longword;

    95     cCaseFactor     : Longword;

    96     cLandAdditions  : Longword;

    96     cLandAdditions  : Longword;

   295 FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue))

   295 FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue))

   296 end;

   296 end;

   297 

   297 

   298 procedure SetTextureParameters(enableClamp: Boolean);

   298 procedure SetTextureParameters(enableClamp: Boolean);

   299 begin

   299 begin

   301     if enableClamp and ((cReducedQuality and rqClampLess) = 0) then

   300     if enableClamp and ((cReducedQuality and rqClampLess) = 0) then

   302     begin

   301     begin

   303         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

   302         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

   304         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE)

   303         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE)

   305     end;

   304     end;