EBSで大まかな強さを計る基準として、熟練度というのがある。
熟練度＝撃破数なので、確かに大まかな強さは計れなくないのかもしれない。
ただ熟練度はカスタムに使い、カスタムすると下がってしまうので、余りアテにはならない。
ということで、ステータスから戦闘力という数値を算出し、対戦相手を選びやすくする方法。
……自分で、自分が戦える相手を探すのも楽しみだとは思うけどねー。

	if		($_[0] eq 'PL'){
		require "./$LOG_FOLDER/$HASH_DATA";
		local($WN_A,$WLV_A) = split(/!/,$PL_VALUES[9]);
		@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
		my $Battle_Point = $PL_VALUES[16] + (($PL_VALUES[18] + $PL_VALUES[19] + $PL_VALUES[20] + $PL_VALUES[21] + $PL_VALUES[22]) * 100) + ($PL_VALUES[29] * 100) + ((($WN_sA[1] * 10) + ($WN_sA[2] * 100)) * $WN_sA[3]);
	}elsif($_[0] eq 'VS'){
		require "./$LOG_FOLDER/$HASH_DATA";
		local($WN_A,$WLV_A) = split(/!/,$VS_VALUES[9]);
		@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
		my $Battle_Point = $VS_VALUES[16] + (($VS_VALUES[18] + $VS_VALUES[19] + $VS_VALUES[20] + $VS_VALUES[21] + $VS_VALUES[22]) * 100) + ($VS_VALUES[29] * 100) + ((($WN_sA[1] * 10) + ($WN_sA[2] * 100)) * $WN_sA[3]);
	}

• 最大HP
• 最大EN * 10
• (AT + GU + SP + HIT) * 100
• LEVEL * 100
• ((武器威力 * 10) + (武器命中 * 100)) * 攻撃回数

	my @PL_BATTLE_POINT = &BATTLE_POINT("PL");
	my @VS_BATTLE_POINT = &BATTLE_POINT("VS");

	my $battle_point= &BATTLE_POINT("VS");

	print "<span style=\"font-size:15px;\"><b>".&RANK($VS_VALUES[0],$VS_VALUES[5],$VS_VALUES[6])."</b></font></td>";

	print "<span style=\"font-size:15px;\"><b>".&RANK($VS_VALUES[0],$VS_VALUES[5],$VS_VALUES[6])."</b></font>(戦闘力：$battle_point)</td>";

	my $battle_point= &BATTLE_POINT("PL");
	print "<tr><td style=\"$STYL1\" align=center><b>戦闘力</b></td><td align=right nowrap $STYL2><b>$battle_point</b></td></tr>";