--- a/hedgewars/uStore.pas	Wed Sep 10 14:37:27 2008 +0000
+++ b/hedgewars/uStore.pas	Thu Sep 11 15:30:04 2008 +0000
@@ -30,7 +30,7 @@
 procedure DrawSurfSprite(X, Y, Height, Frame: LongInt; Source: PTexture);
 procedure DrawLand (X, Y: LongInt);
 procedure DrawTexture(X, Y: LongInt; Texture: PTexture);
-procedure DrawTextureF(Texture: PTexture; X, Y, Frame, Dir, Frames: LongInt);
+procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt);
 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real);
 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real);
 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real);
@@ -357,12 +357,13 @@
 glEnd()
 end;
 
-procedure DrawTextureF(Texture: PTexture; X, Y, Frame, Dir, Frames: LongInt);
+procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt);
 var ft, fb: GLfloat;
 	hw: LongInt;
 begin
 glPushMatrix;
 glTranslatef(X, Y, 0);
+glScalef(Scale, Scale, 1.0);
 
 if Dir < 0 then
 	hw:= - 16