38 	Frames: Longword = 0;

    38 	Frames: Longword = 0;

    39 	WaterColor, DeepWaterColor: TSDL_Color;

    39 	WaterColor, DeepWaterColor: TSDL_Color;

    40 

    40 

    41 implementation

    41 implementation

    42 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound,

    42 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound,

    44 	gles11,

    44 	gles11,

    45 {$ELSE}

    45 {$ELSE}

    46 	GL,

    46 	GL,

    47 {$ENDIF}

    47 {$ENDIF}

    48      uAmmos, uVisualGears, uChat, uLandTexture, uLand;

    48      uAmmos, uVisualGears, uChat, uLandTexture, uLand;

   415       FPS:= Frames;

   415       FPS:= Frames;

   416       Frames:= 0;

   416       Frames:= 0;

   417       CountTicks:= 0;

   417       CountTicks:= 0;

   418       s:= inttostr(FPS) + ' fps';

   418       s:= inttostr(FPS) + ' fps';

   419       if fpsTexture <> nil then FreeTexture(fpsTexture);

   419       if fpsTexture <> nil then FreeTexture(fpsTexture);

   421       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF);

   421       tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), $FFFFFF);

   422 {$ENDIF}

   422 {$ENDIF}

   423       fpsTexture:= Surface2Tex(tmpSurface);

   423       fpsTexture:= Surface2Tex(tmpSurface);

   424       SDL_FreeSurface(tmpSurface)

   424       SDL_FreeSurface(tmpSurface)

   425       end;

   425       end;