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 ) );