$details
END my %args = ( -dimensions => '550x225' , -text => $text , -title => 'Internal error' , -action_quit => "quit" , -top_space => 2 ); $args {-icon_path} = $ALERT_ICON_PATH if defined ($ALERT_ICON_PATH) && (-f $ALERT_ICON_PATH) && (-r $ALERT_ICON_PATH) && (-B $ALERT_ICON_PATH); &SimpleDialogBox (%args); undef; } #--------------------------------------------------------------------- # "CheckDirectRendering" checks the status of direct rendering and # sets the associated global flag appropriately. Note: If the flag in # question has already been set, this code simply returns. sub CheckDirectRendering { return if defined $FlagDirectRendering; my $str; # Scratch $str = `glxinfo 2>&1`; $str = "" unless defined $str; # Is direct rendering supported? if ($str =~ m@direct rendering: Yes@) { # Yes $FlagDirectRendering = TRUE; } else { # No $FlagDirectRendering = FALSE; } undef; } #--------------------------------------------------------------------- # Future change: Document this routine. sub LocateSlumpHistory { my $str; # Scratch my $HOME = $ENV {HOME}; &PanicDialog ("#$REVISION-0001") unless defined ($HOME); $str = "$HOME/.prboom-plus"; system "mkdir -p $str" unless -d $str; $SLUMPFILE = "$str/$SLUMP_HISTORY" if -d $str; if ((!-f $SLUMPFILE) || (-z $SLUMPFILE)) { open (OFD, ">>$SLUMPFILE") || &PanicDialog ("#$REVISION-0002"); $SLUMP_HEADER =~ s@\s*\z@\n\n@; print OFD $SLUMP_HEADER; @SLUMP_DEFAULT_SEEDS = sort by_number @SLUMP_DEFAULT_SEEDS; for (@SLUMP_DEFAULT_SEEDS) { print OFD "$_\n"; } close (OFD) || &PanicDialog ("#$REVISION-0003"); } undef; } #--------------------------------------------------------------------- # Future change: Document this routine. sub Load_CFG_PRFREEBOOM { my $data; # Data buffer my $str; # Scratch #--------------------------------------------------------------------- # Initial setup. my $HOME = $ENV {HOME}; &PanicDialog ("#$REVISION-0004") unless defined ($HOME); $str = "$HOME/.prboom-plus"; system "mkdir -p $str" unless -d $str; &PanicDialog ("#$REVISION-0005") unless -d $str; # Absolute pathname for config. file $CFG_PATH_PRFREEBOOM = "$str/$CFG_NAME_PRFREEBOOM"; &CheckDirectRendering(); # Check status of direct rendering # Code may override this setting at a # later point $CFG_HighRes = $FlagDirectRendering; #--------------------------------------------------------------------- # Create configuration file (if necessary). if ((!-f $CFG_PATH_PRFREEBOOM) || (-z $CFG_PATH_PRFREEBOOM)) { open (OFD, ">$CFG_PATH_PRFREEBOOM") || &PanicDialog ("#$REVISION-0006"); $CFG_DEFAULT_PRFREEBOOM =~ s@\s*\z@\n@; print OFD $CFG_DEFAULT_PRFREEBOOM; close (OFD) || &PanicDialog ("#$REVISION-0007"); } #--------------------------------------------------------------------- # Read (entire) configuration file. open (IFD, "<$CFG_PATH_PRFREEBOOM") || &PanicDialog ("#$REVISION-0008"); undef $/; binmode IFD; $data =
Use the box on the left to select a Slump level.
Left-click on a level name and press
1 to 5: Select weapon.
L-CTRL - Fire selected weapon.
Arrow keys: Move or turn.
Space: Jump. R-Shift: Open a door or activate a switch (or a lift).
Tab: Toggle Map mode. Escape: Quit.
END
$text =~ s@\b(Slump)\b@@g;
$text =~ s@__META_MAX_SLUMP_LEVELS__@100@g;
#---------------------------------------------------------------------
# Create/run selection window.
my $title_list = 'Old Slump Levels';
my $title_main = 'Replay old Slump level';
&RunSelectionWindow
(
-ref_list => \@list ,
-text => $text ,
-title_list => $title_list ,
-title_main => $title_main ,
-slump_checkbox => FALSE
);
undef;
}
#---------------------------------------------------------------------
# normal level-selection screen
#---------------------------------------------------------------------
sub NormalScreen
{
my $dirent; # Directory entry
my $str; # Scratch
#---------------------------------------------------------------------
# Initial setup.
&CheckDirectRendering(); # Check status of direct rendering
&LocateSlumpHistory(); # Locate Slump history file
#---------------------------------------------------------------------
# Build list of levels.
my $DEFAULT_PATH;
opendir (DIR, $DIR_LEVELS) ||
&PanicDialog ("#$REVISION-0034");
while (defined ($dirent = readdir (DIR)))
{
next unless $dirent =~ m@^([a-z0-9_\-]+)\.wad\z@i;
my $basename = $1;
my $path = "$DIR_LEVELS/$dirent";
next unless -f $path;
$str = $path;
$str =~ s@\.wad\z@.note@i;
my $note = "";
if (open (IFD, "<$str"))
{
$note =