projects
/
rocksndiamonds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added using new screen fading option ".auto_delay_unit"
[rocksndiamonds.git]
/
build-scripts
/
create_element_defs.pl
diff --git
a/build-scripts/create_element_defs.pl
b/build-scripts/create_element_defs.pl
index c1da1dafea8bbbd6e9a5130be151d9a328faf7d9..90749c425a4adecf8f3cf0b0b1d0ecf3e10e89e5 100755
(executable)
--- a/
build-scripts/create_element_defs.pl
+++ b/
build-scripts/create_element_defs.pl
@@
-243,12
+243,12
@@
sub print_file_header
close FILE;
print "\n";
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 "\n";
print "#ifndef $filename_def\n";
print "#define $filename_def\n";
print "\n";
- print "/
* $comment */
\n";
+ print "/
/ $comment
\n";
print "\n";
}
print "\n";
}
@@
-259,7
+259,7
@@
sub print_file_footer
$filename_def =~ s/\./_/;
print "\n";
$filename_def =~ s/\./_/;
print "\n";
- print "#endif /
* $filename_def */
\n";
+ print "#endif /
/ $filename_def
\n";
}
sub get_tabs
}
sub get_tabs
@@
-1074,7
+1074,7
@@
sub get_known_action_definitions
chomp; # cut trailing newline
# process line with action definition
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;
{
$known_action{$1} = 1;
@@
-1101,7
+1101,7
@@
sub get_known_special_arg_definitions
chomp; # cut trailing newline
# process line with special arg definition
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')
{
{
if ($1 eq 'CRUMBLED')
{
@@
-1160,7
+1160,7
@@
sub get_known_font_definitions
chomp; # cut trailing newline
# process line with font definition
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;
{
$known_font{$1} = 1;
@@
-1573,7
+1573,7
@@
sub print_element_to_graphic_list
{
print_element_to_graphic_entry($element_without_action,
$gfx_action,
{
print_element_to_graphic_entry($element_without_action,
$gfx_action,
-
'-1'
,
+
$gfx_direction
,
$gfx_crumbled,
$graphic);
}
$gfx_crumbled,
$graphic);
}
@@
-1683,7
+1683,8
@@
sub print_element_to_special_graphic_list
my @elements_with_editor_graphic =
(
my @elements_with_editor_graphic =
(
- 'char_space'
+ 'char_space',
+ 'steel_char_space'
);
my @unknown_graphics = ();
);
my @unknown_graphics = ();
@@
-2406,8
+2407,8
@@
sub print_image_config_vars
$var =~ s/\.draw_order$/.sort_priority/;
$var =~ s/\.font_[a-z]+$/.font_alt/;
$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\]./;
$var =~ s/\.([A-Z]+)$/\[GFX_SPECIAL_ARG_$1\]/;
$var =~ s/\.([A-Z]+)\./\[GFX_SPECIAL_ARG_$1\]./;
@@
-2428,7
+2429,9
@@
sub print_image_config_vars
print_image_config_var_entry("\"$token\"", "&$var");
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;
$var =~ /^(titlemessage.*)\[\d\]/)
{
my $prefix = $1;