X-Git-Url: https://git.artsoft.org/?p=rocksndiamonds.git;a=blobdiff_plain;f=build-scripts%2Fcreate_element_defs.pl;h=413dde563515300554e18327eeb7ff961812ab7a;hp=d935b3fed230b851a37aaa27a8d21bff7084a159;hb=abe44529b439ad39b4d8dbf19cbd67c9b9844279;hpb=94f017e57e45fae89e35a4948fe7005bdf3f13ba

diff --git a/build-scripts/create_element_defs.pl b/build-scripts/create_element_defs.pl
index d935b3fe..413dde56 100755
--- a/build-scripts/create_element_defs.pl
+++ b/build-scripts/create_element_defs.pl
@@ -1,9 +1,14 @@
 #!/usr/bin/perl -w
 
 # =============================================================================
-# create_element_defs.pl
+# Rocks'n'Diamonds - McDuffin Strikes Back!
+# -----------------------------------------------------------------------------
+# (c) 1995-2014 by Artsoft Entertainment
+#     		    Holger Schemel
+#		    info@artsoft.org
+#		    http://www.artsoft.org/
 # -----------------------------------------------------------------------------
-# 2002-09-19 holger.schemel@mediaways.net
+# create_element_defs.pl
 # =============================================================================
 
 use strict;
@@ -193,7 +198,7 @@ sub contains_image_file
 {
     my ($line) = @_;
 
-    return ($line =~ /\".+\.pcx\"/ ||
+    return ($line =~ /\".+\.png\"/ ||
 	    $line =~ /UNDEFINED_FILENAME/);
 }
 
@@ -609,7 +614,7 @@ sub print_chars_graphics_list_line
 
 	my $tabs_left = get_tabs($left, 6);
 
-	my $right = ($ext eq '' ? $basename . '.pcx' :
+	my $right = ($ext eq '' ? $basename . '.png' :
 		     $ext eq '.frames' ? '1' : '0');
 
 	if ($ext eq '.xpos')
@@ -748,8 +753,8 @@ sub print_custom_graphics_list
 
 	    my $tabs_left = get_tabs($left, 6);
 
-	    # my $right = ($ext eq '' ? 'RocksElements.pcx' :
-	    my $right = ($ext eq '' ? 'RocksCE.pcx' :
+	    # my $right = ($ext eq '' ? 'RocksElements.png' :
+	    my $right = ($ext eq '' ? 'RocksCE.png' :
 			 $ext eq '.frames' ? '1' : '0');
 
 	    if ($ext eq '.xpos')
@@ -776,8 +781,8 @@ sub print_custom_graphics_list
 
 	    my $tabs_left = get_tabs($left, 6);
 
-	    # my $right = ($ext eq '' ? 'RocksElements.pcx' : '0');
-	    my $right = ($ext eq '' ? 'RocksCE.pcx' : '0');
+	    # my $right = ($ext eq '' ? 'RocksElements.png' : '0');
+	    my $right = ($ext eq '' ? 'RocksCE.png' : '0');
 
 	    if ($ext eq '.xpos')
 	    {
@@ -829,8 +834,8 @@ sub print_group_graphics_list
 
 	    my $tabs_left = get_tabs($left, 6);
 
-	    # my $right = ($ext eq '' ? 'RocksDC.pcx' :
-	    my $right = ($ext eq '' ? 'RocksCE.pcx' :
+	    # my $right = ($ext eq '' ? 'RocksDC.png' :
+	    my $right = ($ext eq '' ? 'RocksCE.png' :
 			 $ext eq '.frames' ? '1' : '0');
 
 	    if ($ext eq '.xpos')
@@ -857,8 +862,8 @@ sub print_group_graphics_list
 
 	    my $tabs_left = get_tabs($left, 6);
 
-	    # my $right = ($ext eq '' ? 'RocksDC.pcx' : '0');
-	    my $right = ($ext eq '' ? 'RocksCE.pcx' : '0');
+	    # my $right = ($ext eq '' ? 'RocksDC.png' : '0');
+	    my $right = ($ext eq '' ? 'RocksCE.png' : '0');
 
 	    if ($ext eq '.xpos')
 	    {
@@ -2388,6 +2393,7 @@ sub print_image_config_vars
 	    $var =~ s/^(menu\.main\..*)\.chars$/$1.size/;
 	    $var =~ s/^(game\.panel\..*)\.chars$/$1.size/;
 	    $var =~ s/^(game\.panel\..*)\.tile_size$/$1.size/;
+	    $var =~ s/^(request\.button\..*)\.tile_size$/$1.size/;
 	    $var =~ s/\.digits$/.size/;
 	    $var =~ s/\.element$/.id/;
 	    $var =~ s/\.draw_order$/.sort_priority/;