X-Git-Url: https://git.artsoft.org/?a=blobdiff_plain;f=build-scripts%2Fcreate_element_defs.pl;h=0966816ae3e717a7ba273942a36899ea2aaaf82c;hb=refs%2Fheads%2Fmaster;hp=3f5693fe4de0ab304a9b38181bd8d4adae64ae78;hpb=3f1999929dd6662da92c8f1b20c2fcbbce0c0ed7;p=rocksndiamonds.git

diff --git a/build-scripts/create_element_defs.pl b/build-scripts/create_element_defs.pl
index 3f5693fe..b75d86ac 100755
--- a/build-scripts/create_element_defs.pl
+++ b/build-scripts/create_element_defs.pl
@@ -500,6 +500,11 @@ sub print_sounds_list
 	    $sound =~ s/^/CLASS_/;	# add class identifier
  	}
 
+	# dirty hack for making "ABC[DEF]" work as a "special" suffix
+	$sound =~ s/([^_])\[/$1_/;
+	$sound =~ s/\[//;
+	$sound =~ s/\]//;
+
 	$sound = "SND_$sound";
 
 	my $define_text = "#define $sound";
@@ -558,6 +563,11 @@ sub print_music_list
 
 	my $music = $_;
 
+	# dirty hack for making "ABC[DEF]" work as a "special" suffix
+	$music =~ s/([^_])\[/$1_/;
+	$music =~ s/\[//;
+	$music =~ s/\]//;
+
 	$music = "MUS_$music";
 
 	my $define_text = "#define $music";
@@ -2509,6 +2519,7 @@ sub print_image_config_vars
 
 	    $var =~ s/^main\./menu.main./;
 	    $var =~ s/^setup\./menu.setup./;
+	    $var =~ s/^scores\./menu.scores./;
 	    $var =~ s/^\[player\]\./game.player_/;
 	    $var =~ s/^\[title_initial\]/title_initial_default/;
 	    $var =~ s/^\[title\]/title_default/;