# Rocks'n'Diamonds - McDuffin Strikes Back!
# -----------------------------------------------------------------------------
# (c) 1995-2014 by Artsoft Entertainment
-# Holger Schemel
-# info@artsoft.org
-# http://www.artsoft.org/
+# Holger Schemel
+# info@artsoft.org
+# http://www.artsoft.org/
# -----------------------------------------------------------------------------
# create_element_defs.pl
# =============================================================================
{
print_element_to_graphic_entry($element_without_action,
$gfx_action,
- '-1',
+ $gfx_direction,
$gfx_crumbled,
$graphic);
}
$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)/ ||
# --- some suffix replacements ---
$var =~ s/^(menu\.main\..*)\.chars$/$1.size/;
+ $var =~ s/^(tape\.text\..*)\.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/\.2nd_offset$/.offset2/;
+ $var =~ s/\.2nd_xoffset$/.xoffset2/;
+ $var =~ s/\.2nd_yoffset$/.yoffset2/;
$var =~ s/\.element$/.id/;
$var =~ s/\.draw_order$/.sort_priority/;
$var =~ s/\.([A-Z]+)$/\[GFX_SPECIAL_ARG_$1\]/;
$var =~ s/\.([A-Z]+)\./\[GFX_SPECIAL_ARG_$1\]./;
- if ($var =~ /^(menu.(enter|leave)_screen)(.[a-z_]+)$/)
+ if ($var =~ /^(menu.(enter|leave|next)_screen)(.[a-z_]+)$/)
{
$var = $1 . "[GFX_SPECIAL_ARG_DEFAULT]" . $3;
}
$var .= "[GFX_SPECIAL_ARG_DEFAULT]";
}
- if ($var =~ /^(viewport.(playfield|door_[12]))(.[a-z_]+)$/)
+ if ($var =~ /^(viewport.(window|playfield|door_[12]))(.[a-z_]+)$/)
{
$var = $1 . "[GFX_SPECIAL_ARG_DEFAULT]" . $3;
}
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");
+ }
}
}