aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UCovers.pas3
-rw-r--r--Game/Code/Classes/UJoystick.pas11
-rw-r--r--Game/Code/Classes/ULyrics_bak.pas2
-rw-r--r--Game/Code/Classes/UMain.pas9
-rw-r--r--Game/Code/Classes/UTexture.pas9
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;