Unit Details for Faction $faction_pretty
\n"; my $overview_all = "Overview for Faction: $faction_pretty
\n\n"; $overview_html .= $overview_combat; $overview_html .= $overview_worker; $overview_html .= $overview_building; $overview_html .= $overview_upgrades; # create full-page for this faction my $html_page = "${faction}_techtree.html"; my $outfile = "$out_path/$html_page"; open (HTML, "> $outfile") || die "can't write outfile: $outfile\n"; push @all_html_pages, $html_page; my $title = "$faction_pretty Techtree of Glest - Version $version\n"; $h_all_html_pages{"$faction:techtree"} .= "$outfile:$title"; print HTML &header( $title, $faction ); print HTML &choose_faction_html( $faction )."\n"; print HTML &diagram_links_html( $faction )."
\n"; print HTML $overview_html; print HTML $full_all; print HTML $footer; close (HTML); # create overview-page for this faction $outfile = "$out_path/${faction}_overview.html"; open (HTML, "> $outfile") || die "can't write faction overview $outfile\n"; push @all_html_pages, $outfile; $title = "$faction_pretty Overview\n"; $h_all_html_pages{"$faction:overview"} = "$outfile:$title"; print HTML &header( $title, $faction ); print HTML &choose_faction_html( $faction )."
\n"; print HTML &diagram_links_html( $faction )."
\n"; print HTML &show_special_pages()."
\n"; print HTML $overview_html; print HTML $footer; close (HTML); } print "creating all and everything table\n"; my $outfile = "$out_path/all.html"; open (HTML_ALL, "> $outfile") || die "can't write all table $outfile\n"; push @all_html_pages, $outfile; my $title = "All Units of all Factions\n"; $h_all_html_pages{"all"} = "$outfile:$title"; print HTML_ALL &header( $title ); print HTML_ALL &choose_faction_html()."
\n"; print HTML_ALL &show_special_pages()."
\n"; print HTML_ALL "
| ".&format_name( $co )." | "; } print HTML_ALL "
|---|
\n"; print HTML &show_special_pages()."
Factions:
\n"; foreach my $faction_path ( @factions ) { my $faction = $faction_path; $faction =~ s/.+\///; my ( @units ) =split(/;/, $h_all_html_pages{"$faction:units"} ); print HTML "\n"; print HTML "".&format_name($faction).":
\n"; my ( $overview_page, $overview_title ) = split(/:/, $h_all_html_pages{"$faction:overview"} ); $overview_page =~ s/$out_path\///; print HTML "Overview: $overview_title\n"; my ( $full_page, $full_title ) = split(/:/, $h_all_html_pages{"$faction:techtree"} ); $full_page =~ s/$out_path\///; print HTML "All in one Page: $full_title
\n"; print HTML "
Techtree Diagrams:
\n"; print HTML "- \n";
foreach my $map ('all', 'buildings', 'buildings_units') {
if ( $cfg->val('all', 'build_clickable_map') ) {
my ( $page, $title ) = split(/:/, $h_all_html_pages{"$faction:$map"} );
$page =~ s/$out_path\///;
print HTML "
- $title\n"; } else { # do SVG-diagrams my $page = $graph_files{ "$faction:svg:$map" }; $page =~ s/$out_path\///; my $title = "Techtree Diagram for ".&format_name( $faction )." - ".&format_name($map) ; print HTML "
- $title\n"; } } print HTML "
Units, Buildings & Upgrades:
\n"; print HTML "- \n";
foreach my $unit ( @units ) {
my ( $page, $title ) = split(/:/, $unit );
$page =~ s/$out_path\///;
print HTML "
- $title\n"; } print HTML "
\n"; print HTML "
| Name | Key\n";
open (KEYS, "< $glestkeys") || die "can't read glestkeys: $glestkeys\n";
while (my $line =| $name_pretty | $key | |
|---|
\n"; print OUTHTML &diagram_links_html( $faction )."
\n";
print OUTHTML "![](\"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 "\ncalc_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 );
# here calc_cost_of_unit recusivly calls itself:
( $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 ) {
# part 1: stupid fix for thortotem (250 stone )+ thor (gold + wood) so loop again over all resources ( @resource_order )
foreach my $resource_requirement ( @{$c_resource_requirement{$u}}, @resource_order ) {
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 && (
$resource eq "gold" ||
$resource eq "wood" ||
$resource eq "stone"
)
) {
my ($amount_with_discount, $amount_total);
# part 2: stupid fix for thortotem + thor: add cost of stone in this case:
if (
!$amount &&
$resource eq $resource_now
) {
if (
$morph_cost_resource{ $resource } &&
# and check it's not in @{c_resource_requirement}, this is really stupid but i don't come up with a good solution at this
# time of the day ;)
( join(":", @{$c_resource_requirement{$u}} ) !~ /$resource/ )
) {
$amount_total = $morph_cost_resource{ $resource_now };
my ( $cost_tmp, $cost_icon_tmp, $cost_icon_overview_tmp ) = &add_costs( $resource, $amount_total );
$cost .= $cost_tmp;
$cost_icon .= $cost_icon_tmp;
$cost_icon_overview .= $cost_icon_overview_tmp;
}
}
elsif ( $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;
}
my ( $cost_tmp, $cost_icon_tmp, $cost_icon_overview_tmp ) = &add_costs( $resource, $amount_total );
$cost .= $cost_tmp;
$cost_icon .= $cost_icon_tmp;
$cost_icon_overview .= $cost_icon_overview_tmp;
}
}
}
# handle f.e. thor where
if ( $morph_cost_resource{ $resource_now } ) {
}
}
# remove trailing ","
chop $cost;
my $cost_icon_total;
if ( $method && $method eq "morph" ) {
$cost_icon_total = "$cost_icon
(Cost for ".&format_name($unit);
if ( $discount ) {
$cost_icon_total .= " with $discount % discount = $cost_icon_discount";
}
else {
$cost_icon_total .= " = $cost_icon_discount";
}
$cost_icon_total .= "
+ cost for ".&link_unit($faction, $created_by_u)." = $morph_cost_icon )";
}
else {
$cost_icon_total= $cost_icon;
}
print "cost for $u: $cost\n";
return ( $cost, $cost_icon_total, $cost_icon_overview );
}
sub add_costs {
my ( $resource, $amount_total ) = @_;
print "amount_total: $resource: $amount_total \n";
my $cost .= "$resource:$amount_total,";
my $add_nbsp = "";
if ( $amount_total < 100 && ( $resource eq "gold" || $resource eq "wood" || $resource eq "stone" ) ) {
$add_nbsp = " ";
}
my $cost_icon .= "";
}
sub html_icon_png {
my ( $u, $width, $height ) = @_;
my ( $faction, $unit ) = split(/:/, $u );
my $full_png = $icon{$u};
$full_png=~ s/\.[^.]+$//;
$full_png = $full_png."-full.png";
#print("==================> USING G3D image [$unit_full_image]\n");
return "
";
#return "
";
}
sub html_icon_command {
my ( $c, $size ) = @_;
my ( $faction, $unit, $command ) = split(/:/, $c );
if ( !$command_icon{$c} ) {
print "WARNING: no command icon for $c\n";
}
return "
";
}
sub link_unit {
# create HTML-link to a unit
my ($faction, $unit, $link_text, $link_to_single_units, $file_only ) = @_;
# default to pretty unit name if no link_text passed
if ( !$link_text ) {
$link_text = &format_name($unit);
}
my $link;
if (
$cfg->val('all', 'link_to_single_units') ||
$link_to_single_units
) {
my $file = "${faction}_${unit}_full.html";
if ( $file_only ) {
$link = $file;
}
else {
$link = "$link_text";
}
}
else {
my $file = "${faction}_techtree.html#${unit}_full";
if ( $file_only ) {
$link = $file;
}
else {
$link = "$link_text";
}
}
return $link;
}
sub link_attack_and_armor_types {
my ( $link_to ) = @_;
my $html = "".&format_name($link_to)."" if ( $link_to );
return $html;
}
sub show_attack {
my ( $c, $max_strength_vs_land, $max_strength_vs_land_var, $max_strength_vs_air, $max_strength_vs_air_var, $max_range, $max_move_speed, $skill_on_hold_position ) = @_;
my ( $faction, $unit, $command ) = split(/:/, $c );
my $command_pretty = &format_name( $command );
my $used_on_hold_position=0;
my $target;
my $full_attack_tmp = "
\n"; } elsif ( $attack_air{ $s } ) { $target .= "Only air"; $full_attack_tmp .= "Target: $target units
\n"; } elsif ( $attack_land{ $s } ) { $target .= "Only ground"; $full_attack_tmp .= "Target: $target units
\n"; } if ( $attack_range{ $s } > $max_range ) { $max_range = $attack_range{ $s }; } $full_attack_tmp .= "Strength: $attack_strenght{ $s }+-$attack_var{ $s }
\n"; # show attack as range ( 100-200) #$full_attack_tmp .= "Strength: ".($attack_strenght{ $s }-$attack_var{ $s })."-".($attack_strenght{ $s }+$attack_var{ $s })."
\n"; #$full_attack_tmp .= "Strength-Variance: ".$attack_var{ $s }."
\n"; #$full_attack_tmp .= "Strength: ".$attack_strenght{ $s }."
\n"; #$full_attack_tmp .= "Strength-Variance: ".$attack_var{ $s }."
\n"; $full_attack_tmp .= "Range: ".$attack_range{ $s }."
\n"; if ( $splash{ $s } ) { $full_attack_tmp .= "Splash-Radius: $splash_radius{ $s }
\n"; $full_attack_tmp .= "Splash also damages own units!
\n" if ($splash_damage_all{ $s }); } $full_attack_tmp .= "Type: ".&link_attack_and_armor_types($attack_type{ $s })."
\n"; $full_attack_tmp .= "Attack Speed: ".$speed{ $s }."
\n"; $full_attack_tmp .= "Start Time: ".$attack_start_time{ $s }."
\n"; $full_attack_tmp .= "Energy-Cost: ".$ep_cost{ $s }."
\n" if ( $ep_cost{ $s }); if ( $skill_on_hold_position ) { my ( $s, $requirement ) = split(/;/, $skill_on_hold_position ); if ( $skill eq $s ) { $used_on_hold_position="true"; $full_attack_tmp .= "This Attack Skill is used on \"Hold Position\"
\n"; $full_attack_tmp .= "(\"Hold Position\" requires ".&link_unit($faction, $requirement).")
\n" if ( $requirement); } } if ( $ms) { print "speed: $speed{ $ms } of $ms\n" ; if ( $speed{ $ms } > $max_move_speed ) { $max_move_speed = $speed{ $ms }; $full_attack_tmp .= "Special Move Speed: ".$speed{ $ms }." (".&format_name( $move_skill).")
\n"; } } $full_attack_tmp .= "
![\"".&format_name(](\"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 =\n"; } sub diagram_links_html { my ( $faction ) = @_; my $graph_file; my $html="
Techtree Diagrams: "; for my $type ('buildings', 'buildings_units', 'all') { #if ( $graph_files{ "$faction:click_map:$type" } ) { if ( $cfg->val('all', 'build_clickable_map') ) { $graph_file = "${faction}_techtree_clickable_map_${type}.html"; #$graph_file = $graph_files{ "$faction:click_map:$type" }; } elsif ( $graph_files{ "$faction:svg:$type" } ) { $graph_file = "${faction}_techtree_graph_${type}.svg"; } $graph_file =~ s/.+\///; $html .= "".&format_name($type)." |\n"; } chop $html; chop $html; chop $html; $html .="
\n"; return $html; } sub create_armor_vs_attack { my ( $pack_file ) = @_; my $xpath = XML::XPath->new( $pack_file ); my $armor_types_xml = $xpath->find("/tech-tree/armor-types/armor-type"); foreach my $armor_type ( $armor_types_xml->get_nodelist ) { XML::XPath::XMLParser::as_string( $armor_type ) =~ /name=\"(.+?)\"/; my $armor_type_tmp = $1; push @armor_types, $armor_type_tmp; print "armor-type: $armor_type_tmp\n"; } my $attack_types_xml = $xpath->find("/tech-tree/attack-types/attack-type"); foreach my $attack_type ( $attack_types_xml->get_nodelist ) { XML::XPath::XMLParser::as_string( $attack_type ) =~ /name=\"(.+?)\"/; my $attack_type_tmp = $1; push @attack_types, $attack_type_tmp; print "attack-type: $attack_type_tmp\n"; } my $damage_multipliers_xml = $xpath->find("/tech-tree/damage-multipliers/damage-multiplier"); foreach my $damage_multiplier_tmp ( $damage_multipliers_xml->get_nodelist ) { XML::XPath::XMLParser::as_string( $damage_multiplier_tmp ) =~ /attack=\"(.+?)\" armor=\"(.+?)\" value=\"(.+?)\"/; my $attack = $1; my $armor = $2; my $value = $3; $damage_multiplier{"$attack:$armor"} = $value; print "damage_multiplier for $attack vs $armor = $value\n"; } my $table = ""; $table .= "| \n"; foreach my $armor ( @armor_types ) { $table .= " | ".format_name($armor)." | \n"; } $table .= "||||
|---|---|---|---|---|---|
| ".&format_name( $attack)." | \n"; foreach my $armor ( @armor_types ) { my $mul = ($damage_multiplier{"$attack:$armor"} || 1); if ( $mul > 1 ) { #$table .= ""; $table .= " | "; } elsif ( $mul < 1 ) { #$table .= " | "; $table .= " | "; } else { $table .= " | "; } $table .= " ".$mul; $table .= " | "; } $table .= "
Values larger than 1 mean more damage, smaller than 1 less damage.
\n"; print HTML $table; my $pack_file_short = $pack_file; $pack_file =~ s/.+\///; print HTML "
This information is extracted from $pack_file.
\n"; print HTML $footer; close HTML; } sub do_air_ground { # show if unit is on field air,ground or both my ( $u ) = @_; my $overview_tmp .= "