aboutsummaryrefslogtreecommitdiffstats
path: root/src/base
diff options
context:
space:
mode:
Diffstat (limited to 'src/base')
-rw-r--r--src/base/TextGLFreetype.pas2
-rw-r--r--src/base/UCommandLine.pas6
-rw-r--r--src/base/UCovers.pas2
-rw-r--r--src/base/UDLLManager.pas2
-rw-r--r--src/base/UDataBase.pas1
-rw-r--r--src/base/UDraw.pas18
-rw-r--r--src/base/UEditorLyrics.pas2
-rw-r--r--src/base/UGraphic.pas1
-rw-r--r--src/base/UJoystick.pas5
-rw-r--r--src/base/UMain.pas18
-rw-r--r--src/base/USong.pas4
-rw-r--r--src/base/USongs.pas4
-rw-r--r--src/base/UTexture.pas17
13 files changed, 17 insertions, 65 deletions
diff --git a/src/base/TextGLFreetype.pas b/src/base/TextGLFreetype.pas
index 6a41b5de..4f8a5068 100644
--- a/src/base/TextGLFreetype.pas
+++ b/src/base/TextGLFreetype.pas
@@ -90,7 +90,7 @@ end;
procedure BuildFont;
var
FontIni: TMemIniFile;
- BitmapFont: TBitmapFont;
+ //BitmapFont: TBitmapFont;
FontFile: string;
begin
ActFont := 0;
diff --git a/src/base/UCommandLine.pas b/src/base/UCommandLine.pas
index 17ea1a19..281a480d 100644
--- a/src/base/UCommandLine.pas
+++ b/src/base/UCommandLine.pas
@@ -301,8 +301,9 @@ end;
// GetLanguage - Get Language ID from saved String Information
//-------------
function TCMDParams.GetLanguage: integer;
-var
+{var
I: integer;
+}
begin
Result := -1;
{* JB - 12sep07 to remove uINI dependency
@@ -321,8 +322,9 @@ end;
// GetResolution - Get Resolution ID from saved String Information
//-------------
function TCMDParams.GetResolution: integer;
-var
+{var
I: integer;
+}
begin
Result := -1;
{* JB - 12sep07 to remove uINI dependency
diff --git a/src/base/UCovers.pas b/src/base/UCovers.pas
index d4b4e471..a1705674 100644
--- a/src/base/UCovers.pas
+++ b/src/base/UCovers.pas
@@ -405,7 +405,7 @@ end;
*)
function TCoverDatabase.CreateThumbnail(const Filename: WideString; var Info: TThumbnailInfo): PSDL_Surface;
var
- TargetAspect, SourceAspect: double;
+ //TargetAspect, SourceAspect: double;
//TargetWidth, TargetHeight: integer;
Thumbnail: PSDL_Surface;
MaxSize: integer;
diff --git a/src/base/UDLLManager.pas b/src/base/UDLLManager.pas
index 5e64f221..cd4b7991 100644
--- a/src/base/UDLLManager.pas
+++ b/src/base/UDLLManager.pas
@@ -162,7 +162,7 @@ function TDLLMan.LoadPluginInfo(Filename: String; No: Cardinal): boolean;
var
hLibg: THandle;
Info: pModi_PluginInfo;
- I: Integer;
+ //I: Integer;
begin
Result := False;
//Clear Plugin Info
diff --git a/src/base/UDataBase.pas b/src/base/UDataBase.pas
index 1b9e432c..0f9d88a7 100644
--- a/src/base/UDataBase.pas
+++ b/src/base/UDataBase.pas
@@ -531,7 +531,6 @@ end;
function TDataBaseSystem.GetStatReset: TDateTime;
var
Query: string;
- ResetTime: int64;
begin
Result := 0;
diff --git a/src/base/UDraw.pas b/src/base/UDraw.pas
index a92d67d4..d3f19019 100644
--- a/src/base/UDraw.pas
+++ b/src/base/UDraw.pas
@@ -254,7 +254,6 @@ var
Rec: TRecR;
Count: integer;
TempR: real;
- R,G,B: real;
PlayerNumber: Integer;
@@ -374,7 +373,7 @@ var
TempR: real;
Rec: TRecR;
N: integer;
- R, G, B, A: real;
+ //R, G, B, A: real;
NotesH2: real;
begin
//Log.LogStatus('Player notes', 'SingDraw');
@@ -463,7 +462,7 @@ begin
// Perfect note is stored
if Perfect and (Ini.EffectSing=1) then
begin
- A := 1 - 2*(LyricsState.GetCurrentTime() - GetTimeFromBeat(Start+Length));
+ //A := 1 - 2*(LyricsState.GetCurrentTime() - GetTimeFromBeat(Start+Length));
if not (Start+Length-1 = LyricsState.CurrentBeatD) then
begin
//Star animation counter
@@ -489,7 +488,6 @@ var
Rec: TRecR;
Count: integer;
TempR: real;
- R,G,B: real;
X1, X2, X3, X4: real;
W, H: real;
@@ -894,19 +892,7 @@ end;
// q'n'd for using the game mode dll's
procedure SingModiDraw (PlayerInfo: TPlayerInfo);
var
- Count: integer;
- Pet2: integer;
- TempR: real;
- Rec: TRecR;
- TexRec: TRecR;
NR: TRecR;
- FS: real;
- BarFrom: integer;
- BarAlpha: real;
- BarWspol: real;
- TempCol: real;
- Tekst: string;
- PetCz: integer;
begin
// positions
if Ini.SingWindow = 0 then begin
diff --git a/src/base/UEditorLyrics.pas b/src/base/UEditorLyrics.pas
index 3c4ddb24..d06fc891 100644
--- a/src/base/UEditorLyrics.pas
+++ b/src/base/UEditorLyrics.pas
@@ -147,8 +147,6 @@ begin
end;
procedure TEditorLyrics.SetSelected(Value: integer);
-var
- W: integer;
begin
if (SelectedI > -1) and (SelectedI <= High(Word)) then
begin
diff --git a/src/base/UGraphic.pas b/src/base/UGraphic.pas
index 75c90134..b525c170 100644
--- a/src/base/UGraphic.pas
+++ b/src/base/UGraphic.pas
@@ -760,7 +760,6 @@ begin
end;
procedure UnLoadScreens;
-var I: Integer;
begin
ScreenMain.Destroy;
ScreenName.Destroy;
diff --git a/src/base/UJoystick.pas b/src/base/UJoystick.pas
index 25d1d663..30808812 100644
--- a/src/base/UJoystick.pas
+++ b/src/base/UJoystick.pas
@@ -75,7 +75,8 @@ uses SysUtils,
constructor TJoy.Create;
var
- B, N: integer;
+ B: integer;
+ //N: integer;
begin
inherited;
@@ -137,7 +138,7 @@ begin
Log.LogError('Could not Init Joystick');
exit;
end;
- N := SDL_JoystickNumButtons(SDL_Joy);
+ //N := SDL_JoystickNumButtons(SDL_Joy);
//if N < 6 then Log.LogStatus('Joystick button count < 6', 'TJoy.Create');
for B := 0 to 5 do begin
diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index 6c77ebc0..6300f18b 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -432,7 +432,6 @@ var
const
MAX_FPS = 100;
begin
- Delay := 0;
SDL_EnableKeyRepeat(125, 125);
CountSkipTime(); // JB - for some reason this seems to be needed when we use the SDL Timer functions.
@@ -732,10 +731,7 @@ var
Count: integer;
CountGr: integer;
CP: integer;
- Done: real;
N: integer;
- CurLine: PLine;
- CurNote: PLineFragment;
begin
LyricsState.UpdateBeats();
@@ -767,20 +763,6 @@ begin
// make some operations when detecting new voice pitch
if (LyricsState.CurrentBeatD >= 0) and (LyricsState.OldBeatD <> LyricsState.CurrentBeatD) then
NewBeatDetect(Screen);
-
- CurLine := @Lines[0].Line[Lines[0].Current];
-
- // remove moving text
- Done := 1;
- for N := 0 to CurLine.HighNote do
- begin
- CurNote := @CurLine.Note[N];
- if (CurNote.Start <= LyricsState.MidBeat) and
- (CurNote.Start + CurNote.Length >= LyricsState.MidBeat) then
- begin
- Done := (LyricsState.MidBeat - CurNote.Start) / CurNote.Length;
- end;
- end;
end;
procedure NewSentence(Screen: TScreenSing);
diff --git a/src/base/USong.pas b/src/base/USong.pas
index 4793b7e9..cff56c1d 100644
--- a/src/base/USong.pas
+++ b/src/base/USong.pas
@@ -583,8 +583,8 @@ end;
function TSong.ReadXMLHeader(const aFileName : WideString): boolean;
var
- Line, Identifier, Value: string;
- Temp : word;
+ //Line, Identifier, Value: string;
+ //Temp : word;
Done : byte;
Parser : TParser;
diff --git a/src/base/USongs.pas b/src/base/USongs.pas
index 6f1f7c51..6f66bf3f 100644
--- a/src/base/USongs.pas
+++ b/src/base/USongs.pas
@@ -687,7 +687,7 @@ end;
procedure TCatSongs.ClickCategoryButton(Index: integer);
var
- Num, S: integer;
+ Num: integer;
begin
Num := CatSongs.Song[Index].OrderNum;
if Num <> CatNumShow then
@@ -703,7 +703,7 @@ end;
//Hide Categorys when in Category Hack
procedure TCatSongs.ShowCategoryList;
var
- Num, S: integer;
+ S: integer;
begin
// Hide All Songs Show All Cats
for S := 0 to high(CatSongs.Song) do
diff --git a/src/base/UTexture.pas b/src/base/UTexture.pas
index 0f0117ff..4f33b78a 100644
--- a/src/base/UTexture.pas
+++ b/src/base/UTexture.pas
@@ -251,7 +251,6 @@ end;
function TTextureUnit.LoadTexture(const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture;
var
TexSurface: PSDL_Surface;
- MipmapSurface: PSDL_Surface;
newWidth, newHeight: Cardinal;
oldWidth, oldHeight: Cardinal;
ActTex: GLuint;
@@ -299,7 +298,6 @@ begin
FitImage(TexSurface, newWidth, newHeight);
// at this point we have the image in memory...
- // scaled to be at most 1024x1024 pixels large
// scaled so that dimensions are powers of 2
// and converted to either RGB or RGBA
@@ -375,7 +373,6 @@ end;
function TTextureUnit.GetTexture(const Name: string; Typ: TTextureType; Col: LongWord; FromCache: boolean): TTexture;
var
TextureIndex: integer;
- CoverIndex: integer;
begin
if (Name = '') then
begin
@@ -386,18 +383,6 @@ begin
if (FromCache) then
begin
- (*
- // use cache texture
- CoverIndex := Covers.FindCover(Name);
-
- if TextureDatabase.Texture[TextureIndex].TextureCache.TexNum = 0 then
- begin
- // load texture
- Covers.PrepareData(Name);
- TextureDatabase.Texture[TextureIndex].TextureCache := CreateTexture(Covers.Data, Name, Covers.Cover[CoverIndex].Width, Covers.Cover[CoverIndex].Height, 24);
- end;
- *)
-
// use texture
TextureIndex := TextureDatabase.FindTexture(Name, Typ, Col);
if (TextureIndex > -1) then
@@ -432,7 +417,7 @@ end;
function TTextureUnit.CreateTexture(Data: PChar; const Name: string; Width, Height: word; BitsPerPixel: byte): TTexture;
var
- Error: integer;
+ //Error: integer;
ActTex: GLuint;
begin
glGenTextures(1, @ActTex); // ActText = new texture number