From d3e0fcdee7bae5fe5fbf40168da624676c1b7f57 Mon Sep 17 00:00:00 2001
From: Joseph Hewitt <pyrrho12@yahoo.ca>
Date: Sun, 3 Apr 2016 07:25:28 -0700
Subject: [PATCH] Added config to disable transparent UI, fixed get items menu,
 added version to SDL title screen

---
 backpack.pp | 5 +++++
 gharena.pas | 3 ++-
 sdlgfx.pp   | 3 ++-
 ui4gh.pp    | 4 ++++
 4 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/backpack.pp b/backpack.pp
index ed2f3eb..067917f 100644
--- a/backpack.pp
+++ b/backpack.pp
@@ -561,6 +561,7 @@ implementation
 	Procedure GetItemRedraw;
 	begin
 		SDLCombatDisplay( InfoGB );
+        InfoBox( ZONE_CenterMenu.GetRect() );
 		{DisplayGearInfo( InfoGear , InfoGB );}
 	end;
 {$ENDIF}
@@ -586,7 +587,11 @@ implementation
 	{ pick one. }
 	end else if N > 1 then begin
 		DialogMsg( MsgString( 'GET_WHICH_ITEM?' ) );
+        {$IFDEF SDLMODE}
+		RPM := CreateRPGMenu( MenuItem , MenuSelect , ZONE_CenterMenu );
+        {$ELSE}
 		RPM := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );
+        {$ENDIF}
 		for t := 1 to N do begin
 			AddRPGMenuItem( RPM , GearName( GetVisibleItemAtSpot( GB , X , Y , T ) ) , T );
 		end;
diff --git a/gharena.pas b/gharena.pas
index 149c0d4..5c4bb95 100644
--- a/gharena.pas
+++ b/gharena.pas
@@ -36,7 +36,7 @@
 {$ENDIF}
 
 const
-	Version = '1.201';
+	Version = '1.300';
 
 var
 	RPM: RPGMenuPtr;
@@ -51,6 +51,7 @@
     RedrawOpening();
     InfoBox( ZONE_TitleScreenMenu.GetRect() );
     DrawSprite( MyLogo, ZONE_TitleScreenLogo.GetRect(), 0 );
+    QuickTinyText( Version, ZONE_TitleScreenVersion.GetRect(), BrightYellow );
 end;
 {$ENDIF}
 
diff --git a/sdlgfx.pp b/sdlgfx.pp
index dcd25e4..816fb5b 100644
--- a/sdlgfx.pp
+++ b/sdlgfx.pp
@@ -84,6 +84,7 @@ interface
 
     ZONE_TitleScreenMenu: DynamicRect = ( dx:-100; dy:50; w:200; h:100; anchor: ANC_middle );
     ZONE_TitleScreenLogo: DynamicRect = ( dx:-250; dy:-190; w:500; h:215; anchor: ANC_middle );
+    ZONE_TitleScreenVersion: DynamicRect = ( dx:-50; dy:-25; w:100; h:20; anchor: ANC_lowerright );
 
 	ZONE_TargetInfo: DynamicRect = ( dx:  -Right_Column_Width -10 ; dy:10; w:Right_Column_Width; h:150; anchor: ANC_upperright );
     ZONE_TargetDistance: DynamicRect = ( dx:  -Right_Column_Width -10 ; dy:176; w:Right_Column_Width; h:20; anchor: ANC_upperright );
@@ -1488,7 +1489,7 @@ initialization
 	Infobox_Border := ConfirmSprite( 'sys_boxborder.png' , '', 8 , 8 );
 	Infobox_Backdrop := ConfirmSprite( 'sys_boxbackdrop.png' , '', 16 , 16 );
 
-	SDL_SetAlpha( Infobox_Backdrop^.Img , SDL_SRCAlpha , 224 );
+	if Transparent_Interface then SDL_SetAlpha( Infobox_Backdrop^.Img , SDL_SRCAlpha , 224 );
 
 {	MIX_OpenAudio( MIX_DEFAULT_FREQUENCY , MIX_DEFAULT_FORMAT , MIX_CHANNELS , 4096 );
 	Music_List := LoadStringList( 'music.cfg' );
diff --git a/ui4gh.pp b/ui4gh.pp
index b8cf99a..7743e54 100644
--- a/ui4gh.pp
+++ b/ui4gh.pp
@@ -82,6 +82,7 @@ interface
 
 	Use_Alpha_Blending: Boolean = True;
 	Alpha_Level: Byte = 135;
+    Transparent_Interface: Boolean = True;
 
 	Names_Above_Heads: Boolean = False;
 
@@ -423,6 +424,8 @@ implementation
 
 					end else if cmd = 'NOALPHA' then begin
 						Use_Alpha_Blending := False;
+					end else if cmd = 'NO_TRANSPARENT_INTERFACE' then begin
+						Transparent_Interface := False;
 					end else if cmd = 'ALPHALEVEL' then begin
 						T := ExtractValue( S );
 						if T > 255 then T := 255
@@ -531,6 +534,7 @@ implementation
 	    AddBoolean( 'NAMESON' , Names_Above_Heads );
 
 	    AddBoolean( 'NOALPHA' , not Use_Alpha_Blending );
+	    AddBoolean( 'NO_TRANSPARENT_INTERFACE' , not Transparent_Interface );
         writeln( F, 'ALPHALEVEL ' + BStr( Alpha_Level ) );
 
         writeln( F, 'NUMPLOTS ' + BStr( Max_Plots_Per_Adventure ) );