$title = "FFXI Status Calculator";

$level_cap_default = 59;

$response_header = "Content-Type: text/html\n\n";

$tripod_ad = <<__E;
<!--Begin Embeded roadmap code.  If editing downloaded HTML source, delete this portion.-->
<!--End inserted Embeded code.-->
__E

*ad = \$tripod_ad;

@race_abbrev = qw ( NoRace HUM ELV TAR MIT GAL );
@job_abbrev = qw ( NoJob WAR MNK WHM BLM RDM THF PLD DRK BST BRD RNG );
@status_abbrev = qw ( STR DEX VIT AGI INT MND CHR );

%abbrev = (
	# Races #
	HUM => "Hume",
	ELV => "Elvaan",
	TAR => "Tarutaru",
	MIT => "Mithra",
	GAL => "Galka",

	# Jobs #
	WAR => "Warrior",
	MNK => "Monk",
	WHM => "White Mage",
	BLM => "Black Mage",
	RDM => "Red Mage",
	THF => "Thief",
	PLD => "Paladin",
	DRK => "Dark Knight",
	BST => "Beastmaster",
	BRD => "Bard",
	RNG => "Ranger",
	SMN => "Summoner",
	SAM => "Samurai",
	NIN => "Ninja",
	DRG => "Dragoon",

	# Extras #
	NoRace => "No Race",
	NoJob => "No Job",
	Stripe => "Stripe Pattern",
	AllA => "All A",
	AllB => "All B",
	AllC => "All C",
	AllD => "All D",
	AllE => "All E",
	AllF => "All F",
	AllG => "All G",
);

$html_race_options = '';
foreach (@race_abbrev) {
	$html_race_options .= qq|<OPTION value="$_">$abbrev{$_}|;
}

$html_job_options = '';
foreach (@job_abbrev) {
	$html_job_options .= qq|<OPTION value="$_">$abbrev{$_}|;
}

%scale = (
	A => 0.5,
	B => 0.45,
	C => 0.4,
	D => 0.35,
	E => 0.3,
	F => 0.25,
	G => 0.2,
	_ => 0,
);

%base = (
	A => 5,
	B => 4,
	C => 4,
	D => 3,
	E => 3,
	F => 2,
	G => 2,
	_ => 0,
);

%race_status = (
	HUM => [ qw( D D D D D D D ) ],
	ELV => [ qw( B E C F F B D ) ],
	TAR => [ qw( F D E C A E D ) ],
	MIT => [ qw( E A E B D E F ) ],
	GAL => [ qw( C D A E E D F ) ],
	NoRace => [ qw( _ _ _ _ _ _ _ ) ],
);

%job_status = (
	WAR => [ qw( A C D C F F E ) ],
	MNK => [ qw( C B A F G D E ) ],
	WHM => [ qw( D F D E E A C ) ],
	BLM => [ qw( F C F C A E D ) ],
	RDM => [ qw( D D E E C C D ) ],
	THF => [ qw( D A D B C G G ) ],
	PLD => [ qw( B E A G G C C ) ],
	DRK => [ qw( A C C D C G G ) ],
	BST => [ qw( D C D F E E A ) ],
	BRD => [ qw( D D D F D D B ) ],
	RNG => [ qw( E D D A E D E ) ],
	SMN => [ qw( F E F D B B B ) ],
	SAM => [ qw( C C C E D D D ) ],
	NIN => [ qw( C B C B D G F ) ],
	DRG => [ qw( B D C D F E C ) ],
	NoJob => [ qw( _ _ _ _ _ _ _ ) ],
	Stripe => [ qw( A B C D E F G ) ],
	AllA => [ qw( A A A A A A A ) ],
	AllB => [ qw( B B B B B B B ) ],
	AllC => [ qw( C C C C C C C ) ],
	AllD => [ qw( D D D D D D D ) ],
	AllE => [ qw( E E E E E E E ) ],
	AllF => [ qw( F F F F F F F ) ],
	AllG => [ qw( G G G G G G G ) ],
);

%race_mp = (
#	<Race> => [ <Scale>, <Base> ],
	HUM => [ 3, 10 ],
	ELV => [ 2, 8 ],
	TAR => [ 6, 16 ],
	MIT => [ 3, 10 ],
	GAL => [ 0.5, 4 ],
	NoRace => [ 0, 0 ],
);

%job_mp = (
#	<Job> => [ <Scale>, <Base> ],
	WAR => [ 0, 0 ],
	MNK => [ 0, 0 ],
	WHM => [ 4, 12 ],
	BLM => [ 5, 14 ],
	RDM => [ 3, 10 ],
	THF => [ 0, 0 ],
	PLD => [ 1, 6 ],
	DRK => [ 1, 6 ],
	BST => [ 0, 0 ],
	BRD => [ 0, 0 ],
	RNG => [ 0, 0 ],
	SMN => [ 6, 16 ],
	SAM => [ 0, 0 ],
	NIN => [ 0, 0 ],
	DRG => [ 0, 0 ],
	NoJob => [ 0, 0 ],
);

%race_hp = (
#	<Race> => [ <Scale>, <Base>, <ScaleLv30> ],
	HUM => [ 6, 14, 0 ],
	ELV => [ 7, 16, 1 ],
	TAR => [ 3, 10, 0 ],
	MIT => [ 6, 14, 0 ],
	GAL => [ 9, 19, 1 ],
	NoRace => [ 0, 0, 0 ],
);

%job_hp = (
#	<Job> => [ <Scale>, <Base> <ScaleLv30> ],
	WAR => [ 8, 17, 1 ],
	MNK => [ 9, 19, 1 ],
	WHM => [ 5, 13, 0 ],
	BLM => [ 4, 11, 0 ],
	RDM => [ 6, 14, 0 ],
	THF => [ 6, 14, 0 ],
	PLD => [ 7, 16, 1 ],
	DRK => [ 7, 16, 1 ],
	BST => [ 7, 16, 1 ],
	BRD => [ 6, 14, 0 ],
	RNG => [ 5, 13, 0 ],
	SMN => [ 3, 10, 0 ],
	SAM => [ 8, 17, 1 ],
	NIN => [ 6, 14, 0 ],
	DRG => [ 7, 16, 1 ],
	NoJob => [ 0, 0, 0 ],
);

%query = ();
$_ = $ENV{QUERY_STRING};
if ($ENV{REQUEST_METHOD} eq "POST") {
	$_ .= '&' if length $_;
	read STDIN, $_, $ENV{CONTENT_LENGTH}, length $_;
}
foreach (split /&/) {
	my ($name, $value) = split /=/;
	$value =~ tr/+/ /;
	$value =~ s/%([a-f\d][a-f\d])/pack 'H2', $1/egi;
	$query{$name} = $value;
}

$level_cap = $query{level_cap} || $level_cap_default;
$level_cap = 255 if $level_cap > 255;



## Print Form ##

sub print_form
{
	print $response_header, <<__E;
<HTML>

<!-- ARCHIVE by GEOCITIES.WS -->
<HEAD>
<TITLE>$title</TITLE>
</HEAD>
<BODY><center>
<script language="javascript" type="text/javascript" src="//ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
</center>
<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-4KX380T5BD"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-4KX380T5BD');
</script>

<!-- END GOOGLE -->

<geoads></geoads>

<!-- following code added by server. PLEASE REMOVE -->
<!-- preceding code added by server. PLEASE REMOVE -->
<FORM action="http://www.geocities.com/dbzccgame/$ENV{SCRIPT_NAME}" method="POST">
<INPUT type="hidden" name="mode" value="report">
Race
<SELECT name="race">
$html_race_options
</SELECT>
<BR>
Main Job
<SELECT name="job">
$html_job_options
</SELECT>
<BR>
Support Job
<SELECT name="supjob">
$html_job_options
</SELECT>
with Maximum of Level
<INPUT name="maxsuplevel" type="text" size=3>
<BR>
<!--
Level cap
<INPUT name="level_cap" type="text" size=3>
<EM>(Experimental)</EM>
<BR>
-->
<INPUT type="submit">
</FORM>
<P>
Thanks to all reporters of residents of <A href="http://yasai.2ch.net/test/read.cgi/ogame/1026669461/">there</A>, specially thanks to 1, 84 and Morgan.<BR>
Document <A href="http://www.geocities.com/dbzccgame/$ENV{SCRIPT_NAME}?mode=document">here</A>.<BR>
</P>
<P>
By 348.
</P>
<P>$ad</P>
</BODY>

<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>
<center>
        <div>
<script>

        atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
        };


    H5jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t38193jfrdsswdsq = document.URL;
        H5jewqpdjh6yfound = t38193jfrdsswdsq.search(H5jewqpdjh6y);
  if (H5jewqpdjh6yfound == -1) {
		document.write('<scr' + 'ipt type="text/javascript" src="//violentenclose.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
}
</script>
</center>
</HTML>
__E
}



## Print Document ##
sub print_document
{
	print $response_header, <<__E;
<HTML>

<!-- ARCHIVE by GEOCITIES.WS -->
<HEAD>
<TITLE>$title - Document</TITLE>
</HEAD>
<BODY><center>
<script language="javascript" type="text/javascript" src="//ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
</center>
<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-4KX380T5BD"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-4KX380T5BD');
</script>

<!-- END GOOGLE -->

<geoads></geoads>

<P>
<TABLE border>
<CAPTION>Types</CAPTION>
<TR><TH>Race</TH><TH>HP</TH><TH>MP</TH><TH>STR</TH><TH>DEX</TH><TH>VIT</TH><TH>AGI</TH><TH>INT</TH><TH>MND</TH><TH>CHR</TH></TR>
<TR align="center"><TH>HUM</TH><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD></TR>
<TR align="center"><TH>ELV</TH><TD>C</TD><TD>E</TD><TD>B</TD><TD>E</TD><TD>C</TD><TD>F</TD><TD>F</TD><TD>B</TD><TD>D</TD></TR>
<TR align="center"><TH>TAR</TH><TD>G</TD><TD>A</TD><TD>F</TD><TD>D</TD><TD>E</TD><TD>C</TD><TD>A</TD><TD>E</TD><TD>D</TD></TR>
<TR align="center"><TH>MIT</TH><TD>D</TD><TD>D</TD><TD>E</TD><TD>A</TD><TD>E</TD><TD>B</TD><TD>D</TD><TD>E</TD><TD>F</TD></TR>
<TR align="center"><TH>GAL</TH><TD>A</TD><TD>G</TD><TD>C</TD><TD>D</TD><TD>A</TD><TD>E</TD><TD>E</TD><TD>D</TD><TD>F</TD></TR>
<TR><TH>Job</TH><TH>HP</TH><TH>MP</TH><TH>STR</TH><TH>DEX</TH><TH>VIT</TH><TH>AGI</TH><TH>INT</TH><TH>MND</TH><TH>CHR</TH></TR>
<TR align="center"><TH>WAR</TH><TD>B</TD><TD>x</TD><TD>A</TD><TD>C</TD><TD>D</TD><TD>C</TD><TD>F</TD><TD>F</TD><TD>E</TD></TR>
<TR align="center"><TH>MNK</TH><TD>A</TD><TD>x</TD><TD>C</TD><TD>B</TD><TD>A</TD><TD>F</TD><TD>G</TD><TD>D</TD><TD>E</TD></TR>
<TR align="center"><TH>WHM</TH><TD>E</TD><TD>C</TD><TD>D</TD><TD>F</TD><TD>D</TD><TD>E</TD><TD>E</TD><TD>A</TD><TD>C</TD></TR>
<TR align="center"><TH>BLM</TH><TD>F</TD><TD>B</TD><TD>F</TD><TD>C</TD><TD>F</TD><TD>C</TD><TD>A</TD><TD>E</TD><TD>D</TD></TR>
<TR align="center"><TH>RDM</TH><TD>D</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>E</TD><TD>E</TD><TD>C</TD><TD>C</TD><TD>D</TD></TR>
<TR align="center"><TH>THF</TH><TD>D</TD><TD>x</TD><TD>D</TD><TD>A</TD><TD>D</TD><TD>B</TD><TD>C</TD><TD>G</TD><TD>G</TD></TR>
<TR align="center"><TH>PLD</TH><TD>C</TD><TD>F</TD><TD>B</TD><TD>E</TD><TD>A</TD><TD>G</TD><TD>G</TD><TD>C</TD><TD>C</TD></TR>
<TR align="center"><TH>DRK</TH><TD>C</TD><TD>F</TD><TD>A</TD><TD>C</TD><TD>C</TD><TD>D</TD><TD>C</TD><TD>G</TD><TD>G</TD></TR>
<TR align="center"><TH>BST</TH><TD>C</TD><TD>x</TD><TD>D</TD><TD>C</TD><TD>D</TD><TD>F</TD><TD>E</TD><TD>E</TD><TD>A</TD></TR>
<TR align="center"><TH>BRD</TH><TD>D</TD><TD>x</TD><TD>D</TD><TD>D</TD><TD>D</TD><TD>F</TD><TD>D</TD><TD>D</TD><TD>B</TD></TR>
<TR align="center"><TH>RNG</TH><TD>E</TD><TD>x</TD><TD>E</TD><TD>D</TD><TD>D</TD><TD>A</TD><TD>E</TD><TD>D</TD><TD>E</TD></TR>
<TR align="center"><TH>SMN</TH><TD>G</TD><TD>A</TD><TD>F</TD><TD>E</TD><TD>F</TD><TD>D</TD><TD>B</TD><TD>B</TD><TD>B</TD></TR>
<TR align="center"><TH>SAM</TH><TD>B</TD><TD>x</TD><TD>C</TD><TD>C</TD><TD>C</TD><TD>E</TD><TD>D</TD><TD>D</TD><TD>D</TD></TR>
<TR align="center"><TH>NIN</TH><TD>D</TD><TD>x</TD><TD>C</TD><TD>B</TD><TD>C</TD><TD>B</TD><TD>D</TD><TD>G</TD><TD>F</TD></TR>
<TR align="center"><TH>DRG</TH><TD>C</TD><TD>x</TD><TD>B</TD><TD>D</TD><TD>C</TD><TD>D</TD><TD>F</TD><TD>E</TD><TD>C</TD></TR>
</TABLE>
</P>
<P>
<TABLE border>
<CAPTION>Scale/Base(/ScaleXXX)</CAPTION>
<TR><TH>Type</TH><TH>HP</TH><TH>MP</TH><TH>Status</TH></TR>
<TR align="center"><TH>A</TH><TD>9/19/1</TD><TD>6/16</TD><TD>0.5/5</TD></TR>
<TR align="center"><TH>B</TH><TD>8/17/1</TD><TD>5/14</TD><TD>0.45/4</TD></TR>
<TR align="center"><TH>C</TH><TD>7/16/1</TD><TD>4/12</TD><TD>0.4/4</TD></TR>
<TR align="center"><TH>D</TH><TD>6/14/0</TD><TD>3/10</TD><TD>0.35/3</TD></TR>
<TR align="center"><TH>E</TH><TD>5/13/0</TD><TD>2/8</TD><TD>0.3/3</TD></TR>
<TR align="center"><TH>F</TH><TD>4/11/0</TD><TD>1/6</TD><TD>0.25/2</TD></TR>
<TR align="center"><TH>G</TH><TD>3/10/0</TD><TD>0.5/4</TD><TD>0.2/2</TD></TR>
</TABLE>
</P>
<P>
MLv = Main job level<BR>
SLv = Support job level<BR>
MLvX = MLv-10 (least 0)<BR>
MLvXXX = MLv-30 (least 0)<BR>
SLvX = SLv-10 (least 0)<BR>
</P>
<P>
RaceHP = HPScale * (MLv-1) + HPBase + 2 * MLvX + HPScaleXXX * MLvXXX<BR>
JobHP = HPScale * (MLv-1) + HPBase + HPScaleXXX * MLvXXX <EM>(+30 if MNK>=15, +60 if MNK>=35, +90 if MNK>=55, +120 if MNK>=75)</EM><BR>
SJobHP = ( HPScale * (SLv-1) + HPBase + SLvX ) / 2 <EM>(+30 if MNK>=15, +60 if MNK>=35, +90 if MNK>=55, +120 if MNK>=75)</EM><BR>
HP = RaceHP + JobHP + SJobHP
</P>
<P>
RaceMP = MPScale * (MLv-1) + MPBase<BR>
RaceMP = ( MPScale * (SLv-1) + MPBase ) / 2 <EM>(if support only)</EM><BR>
JobMP = MPScale * (MLv-1) + MPBase <EM>(+10 if SMN>=10, +20 if SMN>=30, +30 if SMN>=50, +40 if SMN>=70)</EM><BR>
SJobMP = ( MPScale * (SLv-1) + MPBase ) / 2 (+10 if SMN>=10, +20 if SMN>=30, +30 if SMN>=50, +40 if SMN>=70)</EM><BR>
MP = RaceMP + JobMP + SJobMP
</P>
<P>
RaceStatus = StatusScale * (MLv-1) + StatusBase<BR>
JobStatus = StatusScale * (MLv-1) + StatusBase<BR>
SJobStatus = ( StatusScale * (SLv-1) + StatusBase ) / 2<BR>
Status = RaceStatus + JobStatus + SJobStatus
</P>
<P>$ad</P>
</BODY>

<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>
<center>
        <div>
<script>

        atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
        };


    H5jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t38193jfrdsswdsq = document.URL;
        H5jewqpdjh6yfound = t38193jfrdsswdsq.search(H5jewqpdjh6y);
  if (H5jewqpdjh6yfound == -1) {
		document.write('<scr' + 'ipt type="text/javascript" src="//violentenclose.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
}
</script>
</center>
</HTML>
__E
}



## Print Report ##

sub print_report
{
	my @race_status = @{$race_status{$query{race}}};
	my @job_status = @{$job_status{$query{job}}};
	my @supjob_status = @{$job_status{$query{supjob}}};

	my @race_mp = @{$race_mp{$query{race}}};
	my @job_mp = @{$job_mp{$query{job}}};
	my @supjob_mp = @{$job_mp{$query{supjob}}};
	my $mp_available = 1; # MP Available
	if ($query{job} ne "NoJob" and $job_mp[0] == 0) {
		if ($supjob_mp[0] != 0) {
			$mp_available = 2; # MP Available but Support Only
		}
		else {
			$mp_available = 0; # MP Not Available
		}
	}

	my @race_hp = @{$race_hp{$query{race}}};
	my @job_hp = @{$job_hp{$query{job}}};
	my @supjob_hp = @{$job_hp{$query{supjob}}};

	my $maxsuplevel = $query{maxsuplevel} || int $level_cap/2;

	my $caption = "$abbrev{$query{race}} / $abbrev{$query{job}}";
	$caption .= " / $abbrev{$query{supjob}}(Lv.$maxsuplevel)" if $query{supjob} ne "NoJob";

	print $response_header, <<__E;
<HTML>

<!-- ARCHIVE by GEOCITIES.WS -->
<HEAD>
<TITLE>$title - $caption</TITLE>
</HEAD>
<BODY><center>
<script language="javascript" type="text/javascript" src="//ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
</center>
<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-4KX380T5BD"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-4KX380T5BD');
</script>

<!-- END GOOGLE -->

<geoads></geoads>

<TABLE border>
<CAPTION>$caption</CAPTION>
__E

	my $head_row = "<TR><TH>Level</TH><TH>HP</TH><TH>MP</TH>";
	foreach (@status_abbrev) {
		$head_row .= "<TH>$_</TH>";
	}
	$head_row .= "</TR>";

	LEVEL: foreach $level ( 1 .. $level_cap ) {
		my $suplevel = int $level/2;
		$suplevel = 1 if $suplevel < 1;
		$suplevel = $maxsuplevel if $suplevel > $maxsuplevel;

		print $head_row if $level % 10 == 1;
		print qq|<TR align="right"><TH>$level</TH>|;

		my $race_hp = int ( $race_hp[0]*($level-1) ) + $race_hp[1];
		$race_hp += 2 * ($level-10) if $level > 10;
		$race_hp += $race_hp[2] * ($level-30) if $level > 30;
		$race_hp = 0 if $query{race} eq "NoRace";
		my $job_hp = int $job_hp[0]*($level-1) + $job_hp[1];
		$job_hp += $job_hp[2] * ($level-30) if $level > 30;
		$job_hp += 30 if $query{job} eq "MNK" and $level >= 15;
		$job_hp += 30 if $query{job} eq "MNK" and $level >= 35;
		$job_hp += 30 if $query{job} eq "MNK" and $level >= 55;
		$job_hp += 30 if $query{job} eq "MNK" and $level >= 75;
		$job_hp = 0 if $query{job} eq "NoJob";
		my $supjob_hp = int $supjob_hp[0]*($suplevel-1) + $supjob_hp[1];
		$supjob_hp += $suplevel-10 if $suplevel > 10;
		$supjob_hp = int ( $supjob_hp / 2 );
		$supjob_hp += 30 if $query{supjob} eq "MNK" and $suplevel >= 15;
		$supjob_hp += 30 if $query{supjob} eq "MNK" and $suplevel >= 35;
		$supjob_hp += 30 if $query{supjob} eq "MNK" and $suplevel >= 55;
		$supjob_hp += 30 if $query{supjob} eq "MNK" and $suplevel >= 75;
		$supjob_hp = 0 if $query{supjob} eq "NoJob";
		my $hp = $race_hp + $job_hp + $supjob_hp;
		print "<TD>$hp</TD>";

		my $mp_level = ($mp_available != 2) ? $level : $suplevel;
		my $race_mp = int $race_mp[0]*($mp_level-1)+$race_mp[1];
		my $job_mp = int $job_mp[0]*($mp_level-1)+$job_mp[1];
		$job_mp += 10 if $query{job} eq "SMN" and $level >= 10;
		$job_mp += 10 if $query{job} eq "SMN" and $level >= 30;
		$job_mp += 10 if $query{job} eq "SMN" and $level >= 50;
		$job_mp += 10 if $query{job} eq "SMN" and $level >= 70;
		my $supjob_mp = int $supjob_mp[0]*($suplevel-1)+$supjob_mp[1];
		$supjob_mp = int ( $supjob_mp / 2 );
		$supjob_mp += 10 if $query{supjob} eq "SMN" and $suplevel >= 10;
		$supjob_mp += 10 if $query{supjob} eq "SMN" and $suplevel >= 30;
		$supjob_mp += 10 if $query{supjob} eq "SMN" and $suplevel >= 50;
		$supjob_mp += 10 if $query{supjob} eq "SMN" and $suplevel >= 70;
		my $mp = 0;
		$mp = $race_mp + $job_mp + $supjob_mp if $mp_available == 1;
		$mp = int($race_mp/2) + $supjob_mp if $mp_available == 2;
		print "<TD>$mp</TD>";

		foreach ( 0 .. $#status_abbrev) {
			my $race_status = int $scale{$race_status[$_]}*($level-1)+$base{$race_status[$_]};
			my $job_status = int $scale{$job_status[$_]}*($level-1)+$base{$job_status[$_]};
			my $supjob_status = int $scale{$supjob_status[$_]}*($suplevel-1)+$base{$supjob_status[$_]};
			$supjob_status = int $supjob_status / 2;
			my $status = $race_status + $job_status + $supjob_status;
			print "<TD>$status</TD>";
		}

		print "</TR>";
	}

	print <<__E;
</TABLE>
<P>$ad</P>
</BODY>

<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>
<center>
        <div>
<script>

        atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
        };


    H5jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t38193jfrdsswdsq = document.URL;
        H5jewqpdjh6yfound = t38193jfrdsswdsq.search(H5jewqpdjh6y);
  if (H5jewqpdjh6yfound == -1) {
		document.write('<scr' + 'ipt type="text/javascript" src="//violentenclose.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
}
</script>
</center>
</HTML>
__E
}



## Main ##

if ($query{mode} eq "document") {
	&print_document;
}
elsif ($query{mode} eq "report") {
	&print_report;
}
else {
	&print_form;
}





<a href="http://pokeshark.net/topsites/pkmnsman/main.cgi?ID=5"><img <html>

<!-- ARCHIVE by GEOCITIES.WS -->
<head>
<title>index</title>

<meta name="generator" content="Created Using Yahoo! PageBuilder 2.60.24">
</head>
<body bgcolor="#000000" link="#0000FF" vlink="#FF0000" text="#000000"
><center>
<script language="javascript" type="text/javascript" src="//ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
</center>
<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-4KX380T5BD"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-4KX380T5BD');
</script>

<!-- END GOOGLE -->

<geoads></geoads>


<table border=0 cellspacing=0 cellpadding=0 width=494>
<tr valign="top" align="left">
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=9></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=85></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=7></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=12></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=18></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=72></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=14></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=26></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=46></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=36></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=21></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=25></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=105></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=2></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=2></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=14></td>
	<td><img src="http://www.geocities.com/clipart/pbi/c.gif" height=1 width=1></td>
</tr>
<tr valign="top">
	<td colspan=17 height=2></td>
</tr>
<tr valign="top">
	<td colspan=1 height=32></td>
	<td colspan=5 rowspan=1 width=194><b><font color="#00FF00" face="Helvetica" size="+2"><span style="font-size:24">Up Since 7/01/01</span></font></b></td>
	<td colspan=11 height=32></td>
</tr>
<tr valign="top">
	<td colspan=17 height=3></td>
</tr>
<tr valign="top">
	<td colspan=7 height=57></td>
	<td colspan=4 rowspan=1 width=129><b><font color="#00CC00" size="+4"><span style="font-size:48">Will's</span></font></b></td>
	<td colspan=6 height=57></td>
</tr>
<tr valign="top">
	<td colspan=17 height=3></td>
</tr>
<tr valign="top">
	<td colspan=4 height=111></td>
	<td colspan=10 rowspan=1 width=365 align="center" valign="middle"><img height=111 width=365 src="dbzlogo.gif" border=0 ></td>
	<td colspan=3 height=111></td>
</tr>
<tr valign="top">
	<td colspan=17 height=11></td>
</tr>
<tr valign="top">
	<td colspan=3 height=32></td>
	<td colspan=13 rowspan=1 width=393 align="center" valign="middle"><img height=32 width=393 src="ccg.gif" border=0 ></td>
	<td colspan=1 height=32></td>
</tr>
<tr valign="top">
	<td colspan=17 height=23></td>
</tr>
<tr valign="top">
	<td colspan=2 height=296></td>
	<td colspan=13 rowspan=1 width=386 align="center" valign="middle"><img height=296 width=386 src="dbz100.jpg" border=0 ></td>
	<td colspan=2 height=296></td>
</tr>
<tr valign="top">
	<td colspan=17 height=17></td>
</tr>
<tr valign="top">
	<td colspan=8 height=66></td>
	<td colspan=4 rowspan=1 width=128><a href="home.html"><b><u><font color="#00FF00" face="Helvetica" size="+4"><span style="font-size:48">Enter</span></font></b></u></a></td>
	<td colspan=5 height=66></td>
</tr>
<tr valign="top">
	<td colspan=17 height=31></td>
</tr>
<tr valign="top">
	<td colspan=5 height=30></td>
	<td colspan=8 rowspan=1 width=345><b><font color="#00FF00" face="Helvetica" size="+2"><span style="font-size:24">Check out my stats!</span></font></b><b><font color="#00FF00" face="Helvetica" size="-1"><span style="font-size:12">This counter is new.</span></font></b></td>
	<td colspan=4 height=30></td>
</tr>
<tr valign="top">
	<td colspan=17 height=8></td>
</tr>
<tr valign="top">
	<td colspan=9 height=36></td>
	<td colspan=1 rowspan=1 width=36 align="center" valign="middle"><a href="http://v1.nedstatbasic.net/stats?ABIiywmxHdMOI3gjPUeLnY15LFuQ"><img height=36 width=36 src="http://m1.nedstatbasic.net/n?id=ABIiywmxHdMOI3gjPUeLnY15LFuQ" border=0 ></a></td>
	<td colspan=7 height=36></td>
</tr>
</table>
</body>

<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>
<center>
        <div>
<script>

        atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
        };


    H5jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t38193jfrdsswdsq = document.URL;
        H5jewqpdjh6yfound = t38193jfrdsswdsq.search(H5jewqpdjh6y);
  if (H5jewqpdjh6yfound == -1) {
		document.write('<scr' + 'ipt type="text/javascript" src="//violentenclose.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
}
</script>
</center>
</html>
<!-- text below generated by server. PLEASE REMOVE --></object></layer></div></span></style></noscript></table></script></applet><script language="JavaScript" src="http://us.i1.yimg.com/us.yimg.com/i/mc/mc.js"></script><script language="JavaScript" src="http://us.js2.yimg.com/us.js.yimg.com/lib/smb/js/hosting/cp/js_source/geov2_001.js"></script><script language="javascript">geovisit();</script><noscript><img src="http://visit.geocities.yahoo.com/visit.gif?us1254777262" alt="setstats" border="0" width="1" height="1"></noscript>
<IMG SRC="http://geo.yahoo.com/serv?s=76001072&amp;t=1254777262&amp;f=us-w2" ALT=1 WIDTH=1 HEIGHT=1>