\n"; + + print HTML "
| Name | Key\n";
+
+ open (KEYS, "< $glestkeys") || die "can't read glestkeys: $glestkeys\n";
+ while (my $line =| $name_pretty | $key\n";
+ }
+
+ }
+
+ print HTML " | |
|---|
![](\"images/$faction/${faction}_techtree_graph_${map}.png\")
\n";
+ print OUTHTML $cmapx{$map};
+
+ print OUTHTML $map_legend;
+ close OUTHTML;
+ }
+
+}
+
+sub calc_cost_of_unit {
+
+ # calculate amount for morphed units, f.e. battemachine morphed from technician
+ # technician costs 150 gold
+ # battlemachine costs 150 gold, 300 wood with 40% discount = 90 gold + 180 wood
+ # = 240 gold + 180 wood total (food = 1 from battlemachine because technician is gone)
+ # note: the "discount" is actually a refund, you pay 150 gold at morphing to the battlemachine and get 60 back when it's done
+
+ my ( $u, $created_by_u, $method, $discount, $ignore_food ) = @_;
+
+ print "calc_cost_of_unit: $u\n";
+ my ( $faction, $unit ) = split(/:/, $u );
+
+ my ( $cost, $cost_icon, $cost_icon_overview );
+ my ( $morph_cost, $morph_cost_icon, $morph_cost_icon_overview );
+
+ my $cost_icon_discount;
+
+ my %morph_cost_resource;
+
+ if ( $method eq "morph" ) {
+ foreach my $created_by_unit_tmp ( @{$created_by_unit{ "$faction:$created_by_u" }} ) {
+
+ my ( $o_created_by_u, $o_method, $o_discount ) = split(/:/, $created_by_unit_tmp );
+
+ ( $morph_cost, $morph_cost_icon, $morph_cost_icon_overview ) = &calc_cost_of_unit("$faction:$created_by_u", $o_created_by_u, $o_method, $o_discount, "ignore_food" );
+
+ my (@res_amounts) = split(/,/, $morph_cost );
+ foreach my $res_amount ( @res_amounts ) {
+ my ( $res, $amount ) = split(/:/, $res_amount );
+ $morph_cost_resource{ $res } = $amount;
+ print "morph_cost_resource of $u res: $res = $amount\n";
+ }
+ }
+ }
+
+
+ # loop over @resource_order to get it in the proper order (medival programmig ;)
+ foreach my $resource_now ( @resource_order ) {
+ foreach my $resource_requirement ( reverse sort @{$c_resource_requirement{$u}} ) {
+ my ( $resource, $amount ) = split(/:/, $resource_requirement );
+
+ # ignore food, housing, energy if i have to calculate the cost of a unit morphed from
+ if (
+ !$ignore_food ||
+ $ignore_food && (
+ #$method ne "morph" ||
+ #$method eq "morph" && (
+ $resource eq "gold" ||
+ $resource eq "wood" ||
+ $resource eq "stone"
+ )
+ ) {
+
+ my ($amount_with_discount, $amount_total);
+
+ if ( $resource eq $resource_now ) {
+ # oly use 1st letter in uppercase
+ my $resource_char = $resource;
+ $resource_char =~ s/^(.).+/\u$1/;
+
+ if ( $method && $method eq "morph" ) {
+ # get discount/refund and add cost of unit morphed from
+ if ( $resource eq "gold" || $resource eq "wood" || $resource eq "stone" ) {
+ $amount_with_discount = int($amount * (100-$discount)/100);
+ }
+ else {
+ # no discount for food, energy, housing, ...
+ $amount_with_discount = $amount;
+ }
+
+ $amount_total = $amount_with_discount + ($morph_cost_resource{ $resource } || 0 );
+ $cost_icon_discount .= &html_icon_resource($resource, 16)." $amount_with_discount ";
+ }
+ else {
+ $amount_total = $amount;
+ }
+
+ print "amount_total: $amount_total\n";
+ $cost .= "$resource:$amount_total,";
+
+ my $add_nbsp = "";
+ if ( $amount_total < 100 && ( $resource eq "gold" || $resource eq "wood" || $resource eq "stone" ) ) {
+ $add_nbsp = " ";
+ }
+
+ $cost_icon .= &html_icon_resource($resource, 16)." $amount_total ";
+ $cost_icon_overview .= &html_icon_resource($resource, 16)." $add_nbsp$amount_total ";
+ }
+ }
+ }
+ }
+ # remove trailing ","
+ chop $cost;
+ print "cost: $cost\n";
+
+ my $cost_icon_total;
+
+ if ( $method && $method eq "morph" ) {
+ $cost_icon_total = "$cost_icon ![](\"images/resources/$resource.bmp\")
";
+}
+
+sub load_tip_files {
+
+ foreach my $faction_path ( @factions ) {
+ my $faction = $faction_path;
+ $faction =~ s/.+\///;
+ my $faction_pretty = &format_name( $faction );
+
+ my $tip_file = "$faction_path/lang/${faction}_en.lng";
+ print "tip-file: $tip_file\n";
+
+ open (TIPS, "< $tip_file") || die "can't read tip-file: $tip_file\n";
+ while (my $line =+Home
+EOT
+
+
+resource_order=gold:wood:stone:food:energy:housing
+
+map_legend=<
+
+EOT
diff --git a/source/tools/convert_faction_xml2html/setupDeps.sh b/source/tools/convert_faction_xml2html/setupDeps.sh
new file mode 100755
index 00000000..f6145f4d
--- /dev/null
+++ b/source/tools/convert_faction_xml2html/setupDeps.sh
@@ -0,0 +1,23 @@
+#!/bin/sh
+
+OSTYPE=`uname -m`
+echo "Detected distro: [$OSTYPE]"
+
+if [ -f /etc/fedora-release ]; then
+ echo "Fedora..."
+ #sudo yum groupinstall "Development Tools"
+ #sudo yum install subversion automake autoconf autogen jam
+elif [ -f /etc/SuSE-release ]; then
+ echo "SuSE..."
+ #sudo zypper install subversion gcc gcc-c++ automake
+else
+ echo "Debian / Ubuntu..."
+ sudo apt-get install perl
+ sudo apt-get install graphviz
+ sudo apt-get install libgraphviz-perl
+ sudo apt-get install libconfig-inifiles-perl
+fi
+
+echo "To run the techtree html builder edit mg.ini and run the script as follows:"
+echo "./convert_faction_xml2html.pl mg.ini"
+
diff --git a/source/tools/convert_faction_xml2html/xpath.pl b/source/tools/convert_faction_xml2html/xpath.pl
new file mode 100755
index 00000000..fc71dac7
--- /dev/null
+++ b/source/tools/convert_faction_xml2html/xpath.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+# show xpath in file, google xpath for syntax
+
+
+if ( !@ARGV ) {
+ die "\n\nusage $0 file xpath\n\n";
+}
+
+use strict;
+use XML::XPath;
+use XML::XPath::XMLParser;
+
+my $xpath = XML::XPath->new( filename => shift @ARGV );
+
+my $nodeset = $xpath->find( shift @ARGV );
+
+foreach my $node ( $nodeset->get_nodelist ) {
+ print XML::XPath::XMLParser::as_string( $node ) . "\n";
+}
+