# (c) 1995-2014 by Artsoft Entertainment
# Holger Schemel
# info@artsoft.org
-# http://www.artsoft.org/
+# https://www.artsoft.org/
# -----------------------------------------------------------------------------
# create_element_defs.pl
# =============================================================================
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";
}
$filename_def =~ s/\./_/;
print "\n";
- print "#endif /* $filename_def */\n";
+ print "#endif // $filename_def\n";
}
sub get_tabs
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;
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')
{
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;
{
print_element_to_graphic_entry($element_without_action,
$gfx_action,
- '-1',
+ $gfx_direction,
$gfx_crumbled,
$graphic);
}
my @elements_with_editor_graphic =
(
- 'char_space'
+ 'char_space',
+ 'steel_char_space'
);
my @unknown_graphics = ();
# --- 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/;
+ $var =~ s/^\[titlescreen_initial\]/titlescreen_initial_default/;
+ $var =~ s/^\[titlescreen\]/titlescreen_default/;
$var =~ s/^\[titlemessage_initial\]/titlemessage_initial_default/;
$var =~ s/^\[titlemessage\]/titlemessage_default/;
- if ($var =~ /^titlemessage.*(\d)/ ||
+ if ($var =~ /^titlescreen.*(\d)/ ||
+ $var =~ /^titlemessage.*(\d)/ ||
$var =~ /^game.panel.key_(\d)/ ||
$var =~ /^game.panel.inventory_first_(\d)/ ||
$var =~ /^game.panel.inventory_last_(\d)/ ||
$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\]./;
}
print_image_config_var_entry("\"$token\"", "&$var");
+
+ if ($var =~ /^(title)_default/ ||
+ $var =~ /^(title_initial)_default/ ||
+ $var =~ /^(titlescreen.*)\[\d\]/ ||
+ $var =~ /^(titlemessage.*)\[\d\]/)
+ {
+ my $prefix = $1;
+ $var =~ s/^$prefix/${prefix}_first/;
+
+ print_image_config_var_entry("\"$token\"", "&$var");
+ }
}
}