--- a/hedgewars/uStore.pas	Fri Mar 26 17:34:58 2010 +0000
+++ b/hedgewars/uStore.pas	Fri Mar 26 17:43:21 2010 +0000
@@ -80,6 +80,7 @@
 procedure RenderWeaponTooltip(atype: TAmmoType);
 procedure ShowWeaponTooltip(x, y: LongInt);
 procedure FreeWeaponTooltip;
+procedure Tint(r, g, b, a: Single);
 
 implementation
 uses uMisc, uConsole, uLand, uLocale, uWorld{$IFDEF IPHONEOS}, PascalExports{$ENDIF};
@@ -90,6 +91,11 @@
     MaxTextureSize: Integer;
     cGPUVendor: TGPUVendor;
 
+procedure Tint(r, g, b, a: Single);
+begin
+glColor4f(r, g, b, a);
+end;
+
 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean);
 var r: TSDL_Rect;
 begin