X-Git-Url: https://git.artsoft.org/?p=rocksndiamonds.git;a=blobdiff_plain;f=build-scripts%2Fcreate_element_defs.pl;h=0966816ae3e717a7ba273942a36899ea2aaaf82c;hp=c1da1dafea8bbbd6e9a5130be151d9a328faf7d9;hb=67f3bfab902e53e0dc24a01eb6c0e4d274030a47;hpb=61f3e4384807556f36acba1388e4b5535c583c13

diff --git a/build-scripts/create_element_defs.pl b/build-scripts/create_element_defs.pl
index c1da1daf..0966816a 100755
--- a/build-scripts/create_element_defs.pl
+++ b/build-scripts/create_element_defs.pl
@@ -6,7 +6,7 @@
 # (c) 1995-2014 by Artsoft Entertainment
 #                  Holger Schemel
 #                  info@artsoft.org
-#                  http://www.artsoft.org/
+#                  https://www.artsoft.org/
 # -----------------------------------------------------------------------------
 # create_element_defs.pl
 # =============================================================================
@@ -243,12 +243,12 @@ sub print_file_header
     close FILE;
 
     print "\n";
-    print "/* ----- $text_auto ----- */\n";
+    print "// ------- $text_auto -------\n";
     print "\n";
     print "#ifndef $filename_def\n";
     print "#define $filename_def\n";
     print "\n";
-    print "/* $comment */\n";
+    print "// $comment\n";
     print "\n";
 }
 
@@ -259,7 +259,7 @@ sub print_file_footer
     $filename_def =~ s/\./_/;
 
     print "\n";
-    print "#endif	/* $filename_def */\n";
+    print "#endif	// $filename_def\n";
 }
 
 sub get_tabs
@@ -1074,7 +1074,7 @@ sub get_known_action_definitions
 	chomp;				# cut trailing newline
 
 	# process line with action definition
-	if (/^\#define ACTION_([A-Z0-9_]+)\s/)
+	if (/^  ACTION_([A-Z0-9_]+)[, ]/)
 	{
 	    $known_action{$1} = 1;
 
@@ -1101,7 +1101,7 @@ sub get_known_special_arg_definitions
 	chomp;				# cut trailing newline
 
 	# process line with special arg definition
-	if (/^\#define GFX_SPECIAL_ARG_([A-Z0-9_]+)\s/)
+	if (/^  GFX_SPECIAL_ARG_([A-Z0-9_]+)[, ]/)
 	{
 	    if ($1 eq 'CRUMBLED')
 	    {
@@ -1160,7 +1160,7 @@ sub get_known_font_definitions
 	chomp;				# cut trailing newline
 
 	# process line with font definition
-	if (/^\#define (FONT_[A-Z0-9_]+)\s/)
+	if (/^  (FONT_[A-Z0-9_]+)[, ]/)
 	{
 	    $known_font{$1} = 1;
 
@@ -1573,7 +1573,7 @@ sub print_element_to_graphic_list
 	{
 	    print_element_to_graphic_entry($element_without_action,
 					   $gfx_action,
-					   '-1',
+					   $gfx_direction,
 					   $gfx_crumbled,
 					   $graphic);
 	}
@@ -1683,7 +1683,8 @@ sub print_element_to_special_graphic_list
 
     my @elements_with_editor_graphic =
 	(
-	 'char_space'
+	 'char_space',
+	 'steel_char_space'
 	 );
 
     my @unknown_graphics = ();
@@ -2359,6 +2360,7 @@ sub print_image_config_vars
 	    # --- some prefix replacements ---
 
 	    $var =~ s/^main\./menu.main./;
+	    $var =~ s/^setup\./menu.setup./;
 	    $var =~ s/^\[player\]\./game.player_/;
 	    $var =~ s/^\[title_initial\]/title_initial_default/;
 	    $var =~ s/^\[title\]/title_default/;
@@ -2406,8 +2408,8 @@ sub print_image_config_vars
 	    $var =~ s/\.draw_order$/.sort_priority/;
 
 	    $var =~ s/\.font_[a-z]+$/.font_alt/;
-	    $var =~ s/\.INFO\[([A-Z]+)\]$/_info\[GFX_SPECIAL_ARG_INFO_$1\]/;
-	    $var =~ s/\.SETUP\[([A-Z0-9_]+)\]$/_setup\[GFX_SPECIAL_ARG_SETUP_$1\]/;
+	    $var =~ s/\.INFO\[([A-Z]+)\](.*)$/_info\[GFX_SPECIAL_ARG_INFO_$1\]$2/;
+	    $var =~ s/\.SETUP\[([A-Z0-9_]+)\](.*)$/_setup\[GFX_SPECIAL_ARG_SETUP_$1\]$2/;
 	    $var =~ s/\.([A-Z]+)$/\[GFX_SPECIAL_ARG_$1\]/;
 	    $var =~ s/\.([A-Z]+)\./\[GFX_SPECIAL_ARG_$1\]./;
 
@@ -2428,7 +2430,9 @@ sub print_image_config_vars
 
 	    print_image_config_var_entry("\"$token\"", "&$var");
 
-	    if ($var =~ /^(titlescreen.*)\[\d\]/ ||
+	    if ($var =~ /^(title)_default/ ||
+		$var =~ /^(title_initial)_default/ ||
+		$var =~ /^(titlescreen.*)\[\d\]/ ||
 		$var =~ /^(titlemessage.*)\[\d\]/)
 	    {
 		my $prefix = $1;