--- a/hedgewars/uStore.pas Sun Apr 13 12:45:30 2008 +0000
+++ b/hedgewars/uStore.pas Sun Apr 13 12:47:18 2008 +0000
@@ -33,7 +33,6 @@
procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real);
procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame: LongInt; Angle: real);
procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real);
-procedure DXOutText(X, Y: LongInt; Font: THWFont; s: string; Surface: PSDL_Surface);
procedure DrawCentered(X, Top: LongInt; Source: PTexture);
procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture);
procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);
@@ -447,26 +446,6 @@
DrawFromRect(X, Y, @r, Source)
end;
-procedure DXOutText(X, Y: LongInt; Font: THWFont; s: string; Surface: PSDL_Surface);
-var clr: TSDL_Color;
- tmpsurf: PSDL_Surface;
- r: TSDL_Rect;
-begin
-r.x:= X;
-r.y:= Y;
-clr.r:= $FF;
-clr.g:= $FF;
-clr.b:= $FF;
-tmpsurf:= TTF_RenderUTF8_Solid(Fontz[Font].Handle, Str2PChar(s), clr.value);
-if tmpsurf = nil then
- begin
- SetKB(1);
- exit
- end;
-SDL_UpperBlit(tmpsurf, nil, Surface, @r);
-SDL_FreeSurface(tmpsurf)
-end;
-
procedure DrawLand(X, Y: LongInt);
begin
DrawTexture(X, Y, LandTexture)