#!/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;
{
my ($line) = @_;
- return ($line =~ /\".+\.pcx\"/ ||
+ return ($line =~ /\".+\.png\"/ ||
$line =~ /UNDEFINED_FILENAME/);
}
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')
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')
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')
{
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')
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')
{
# --- 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_xoffset$/.xoffset2/;
$var =~ s/\.element$/.id/;
$var =~ s/\.draw_order$/.sort_priority/;