Get rid of DXOutText call
authorunc0rr
Sun, 13 Apr 2008 12:47:18 +0000
changeset 842 fae2fae2fe8d
parent 841 0700e3d3474d
child 843 27b5180d0988
Get rid of DXOutText call
hedgewars/uStore.pas
hedgewars/uWorld.pas
--- 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)
--- a/hedgewars/uWorld.pas	Sun Apr 13 12:45:30 2008 +0000
+++ b/hedgewars/uWorld.pas	Sun Apr 13 12:47:18 2008 +0000
@@ -132,9 +132,9 @@
      if (Pos >= 0) then
         if Ammo^[Slot, Pos].Count > 0 then
            begin
-           DXOutText(AMxCurr + 10, cScreenHeight - 68, fnt16, trAmmo[Ammoz[Ammo^[Slot, Pos].AmmoType].NameId], Surface);
+           //DXOutText(AMxCurr + 10, cScreenHeight - 68, fnt16, trAmmo[Ammoz[Ammo^[Slot, Pos].AmmoType].NameId], Surface);
            if Ammo^[Slot, Pos].Count < 10 then
-              DXOutText(AMxCurr + 175, cScreenHeight - 68, fnt16, chr(Ammo^[Slot, Pos].Count + 48) + 'x', Surface);
+              //DXOutText(AMxCurr + 175, cScreenHeight - 68, fnt16, chr(Ammo^[Slot, Pos].Count + 48) + 'x', Surface);
            if bSelected then
               begin
               bShowAmmoMenu:= false;