hedgewars/uStore.pas
changeset 1805 dd9fb4b13fd8
parent 1698 993c42413387
child 1806 3c4f0886c123
--- a/hedgewars/uStore.pas	Wed Feb 18 15:04:40 2009 +0000
+++ b/hedgewars/uStore.pas	Wed Feb 18 16:28:21 2009 +0000
@@ -28,7 +28,6 @@
 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt);
 procedure DrawSprite2(Sprite: TSprite; X, Y, FrameX, FrameY: LongInt);
 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; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt);
 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real);
@@ -492,11 +491,6 @@
 DrawFromRect(X, Y, @r, Source)
 end;
 
-procedure DrawLand(X, Y: LongInt);
-begin
-DrawTexture(X, Y, LandTexture)
-end;
-
 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 begin
 DrawTexture(X - Source^.w div 2, Top, Source)