From 5b7e8043571bb959891c06a6dd5c7e9ef87d42e5 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 31 Mar 2008 15:17:09 +0000
Subject: beep() removed

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@989 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UTexture.pas | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'Game/Code/Classes/UTexture.pas')

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 48628176..1047ebd3 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -297,7 +297,6 @@ begin
       Log.LogStatus( '       '+inttostr( integer( Result ) ), '  LoadImage' );
     except
       Log.LogStatus( 'ERROR Could not load from file' , Identifier);
-      beep;
       Exit;
     end;
   end
@@ -323,7 +322,6 @@ begin
             TexRWops.type_   := 2;
           except
             Log.LogStatus( 'ERROR Could not assign resource ('+Identifier+')' , Identifier);
-            beep;
             Exit;
           end;
         
@@ -342,7 +340,6 @@ begin
       if dHandle=0 then
       begin
         Log.LogStatus( 'ERROR Could not find resource' , '  '+ Identifier);
-        beep;
         Exit;
       end;
 
@@ -352,7 +349,6 @@ begin
         TexStream        := TResourceStream.Create(HInstance, Identifier, 'TEX');
       except
         Log.LogStatus( 'ERROR Could not load from resource' , Identifier);
-        beep;
         Exit;
       end;
 
@@ -368,7 +364,6 @@ begin
           TexRWops.type_   := 2;
         except
           Log.LogStatus( 'ERROR Could not assign resource' , Identifier);
-          beep;
           Exit;
         end;
 
@@ -559,7 +554,6 @@ begin
   if not assigned(TexSurface) then
   begin
     Log.LogStatus( 'ERROR Could not load texture' , Identifier +' '+ Format +' '+ TextureTypeToStr(Typ) );
-    beep;
     Exit;
   end;
   
@@ -861,7 +855,8 @@ begin
   glTexImage2D(GL_TEXTURE_2D, 0, 3, W, H, 0, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);
   if Mipmapping then begin
     Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, W, H, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);
-    if Error > 0 then beep;
+    if Error > 0 then
+      Log.LogError('gluBuild2DMipmaps() failed', 'TTextureUnit.CreateTexture');
   end;
 
   Result.X := 0;
-- 
cgit v1.2.3