beep() removed

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@989 b956fd51-792f-4845-bead-9b4dfca2ff2c

5 files changed, 16 insertions, 18 deletions

diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
index 4068e02b..1d3f737c 100644
--- a/Game/Code/Classes/UCovers.pas
+++ b/Game/Code/Classes/UCovers.pas
@@ -262,7 +262,8 @@ begin
 
     C := CoverNumber(FileName);
     SetLength(Data, Cover[C].Size);
-    if Length(Data) < 6 then beep;
+    if Length(Data) < 6 then
+      Log.LogStatus('Length(Data) < 6', 'TCovers.PrepareData');
     Seek(F, Cover[C].Position);
     BlockRead(F, Data[0], Cover[C].Size);
     CloseFile(F);
diff --git a/Game/Code/Classes/UJoystick.pas b/Game/Code/Classes/UJoystick.pas
index 6b4ea63f..fbbcaebd 100644
--- a/Game/Code/Classes/UJoystick.pas
+++ b/Game/Code/Classes/UJoystick.pas
@@ -57,12 +57,15 @@ begin
   {// joystick support
   SDL_JoystickEventState(SDL_IGNORE);
   SDL_InitSubSystem(SDL_INIT_JOYSTICK);
-  if SDL_NumJoysticks <> 1 then beep;
+  if SDL_NumJoysticks <> 1 then
+    Log.LogStatus('Joystick count <> 1', 'TJoy.Create');
 
   SDL_Joy := SDL_JoystickOpen(0);
-  if SDL_Joy = nil then beep;
+  if SDL_Joy = nil then
+    Log.LogError('SDL_JoystickOpen failed', 'TJoy.Create');
 
-  if SDL_JoystickNumButtons(SDL_Joy) <> 16 then beep;
+  if SDL_JoystickNumButtons(SDL_Joy) <> 16 then
+    Log.LogStatus('Joystick button count <> 16', 'TJoy.Create');
 
 //  SDL_JoystickEventState(SDL_ENABLE);
   // Events don't work - thay hang the whole application with SDL_JoystickEventState(SDL_ENABLE)
@@ -109,7 +112,7 @@ begin
     exit;
   end;
   N := SDL_JoystickNumButtons(SDL_Joy);
-  //if N < 6 then beep;
+  //if N < 6 then Log.LogStatus('Joystick button count < 6', 'TJoy.Create');
 
   for B := 0 to 5 do begin
     JoyUnit.Button[B].Enabled := true;
diff --git a/Game/Code/Classes/ULyrics_bak.pas b/Game/Code/Classes/ULyrics_bak.pas
index 7db7e0d9..0fba05d2 100644
--- a/Game/Code/Classes/ULyrics_bak.pas
+++ b/Game/Code/Classes/ULyrics_bak.pas
@@ -143,7 +143,7 @@ end;
 procedure TLyric.SetAlign(Value: integer);
 begin
   AlignI := Value;
-//  if AlignInt = 0 then beep;
+//  if AlignInt = 0 then Log.LogStatus('AlignInt = 0', 'TLyric.SetAlign');
 end;
 
 function TLyric.GetSize: real;
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index a68445b0..9459334d 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -502,12 +502,12 @@ begin
       {
       SDL_JOYAXISMOTION:
         begin
-          beep
+          // not implemented
         end;
       }
       SDL_JOYBUTTONDOWN:
         begin
-          beep
+          // not implemented
         end;
     end; // Case
   end; // While
@@ -880,8 +880,7 @@ var
   Range:  integer;
   NoteHit:boolean;
 begin
-//  Log.LogStatus('Beat ' + IntToStr(LineState.CurrentBeat) + ' HalfBeat ' + IntToStr(LineState.AktHalf), 'NewBeat');
-//  beep;
+  //  Log.LogStatus('Beat ' + IntToStr(LineState.CurrentBeat) + ' HalfBeat ' + IntToStr(LineState.AktHalf), 'NewBeat');
 
   // On linux we get an AV @ NEWNOTE,  line 600 of Classes/UMain.pas
   if not assigned( AudioInputProcessor.Sound ) then
@@ -1043,7 +1042,7 @@ begin
             Player[CP].Note[Player[CP].HighNote].Perfect := true;
           end;
         end;
-      end;// else beep; // if S = SMax
+      end; // if S = SMax
 
     end; // if moze
   end; // for CP
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;