#!/usr/bin/perl

require "../pagelib.pl";
header();
head();
body();
foot();

sub body {
    init();
}

sub init {
    $tl = $params{tl};
    $class = $params{class};
    $inches = $params{inches};
    $proptype = $params{proptype};
    $power = $params{power};
    $av = $params{av};
    if($class == 1) { $size = $inches/10; }
    elsif($class == 2) { $size = $inches/5; }
    elsif($class == 3) { $size = $inches*2; }
    if($size && $av) {
	$mass = $size * $avs{$av}{armorx};
	$basecp = $size * $avs{$av}{armorx};
    }
    $psource = $params{psource};
}

sub set_vars {
    %avs = (
	    1 => { av => "1d6", armorx => "0.5", tl => 0, desc => "Rope, drywall, plastic, flesh", },
	    2 => { av => "1d10", armorx => "1", tl => 1, desc => "Plywood, sheet metal, steel cables", },
	    3 => { av => "2d10", armorx => "2", tl => 1, desc => "Unmortared stone, log walls, sandbags", },
	    4 => { av => "3d10", armorx => "4", tl => 2, desc => "Concrete, mortared stone, armor plating", },
	    5 => { av => "4d10", armorx => "8", tl => 4, desc => "heavy steel, reinforced concrete", },
	    6 => { av => "5d10", armorx => "12", tl => 5, desc => "strongcrete, force fields", },
	    );
    %tls => (
	     0 => { tl => 0, pcost => "0" },
	     1 => { tl => 1, pcost => "0" },
	     2 => { tl => 2, pcost => "0" },
	     3 => { tl => 3, pcost => "3*P" },
	     4 => { tl => 4, pcost => "2*P" },
	     5 => { tl => 5, pcost => "P" },
	     6 => { tl => 6, pcost => "P/2" },
	     7 => { tl => 7, pcost => "P/5" },
	     );
    %psources = (
		1 => { tl => 0, max => "", manual => 1, desc => "", },
		2 => { tl => 1, max => "", manual => 1, desc => "", },
		3 => { tl => 2, max => "10", manual => 1, desc => "", },
		4 => { tl => 3, max => "15", manual => 1, desc => "", },
		5 => { tl => 4, max => "20", manual => 1, desc => "", },
		6 => { tl => 5, max => "30", manual => 1, desc => "", },
		7 => { tl => 6, max => "40", manual => 1, desc => "", },
		8 => { tl => 7, max => "", manual => 1, desc => "", },
		);
    %vclasses => (
		  1 => { class => 1, desc => "1-Dimensional (Pole, Wires, Flying Broomsticks)", measure => "length end-to-end", },
		  2 => { class => 2, desc => "2-Dimensional (Fence, Flying Carpets, Snowboards)", measure => "length x width", },
		  3 => { class => 3, desc => "3-Dimensional (Cars, Buildings, Airplanes)", measure => "length of widest dimension", },
		  );
}