# -------------ダメージ計算
sub Damagecal {
my($wp,$at,$df,$dm,$rnd);
$rnd = rand(100);
$wp = $_[0];
$df = $_[1];
$at = $weaponat[$wp];
$at += 6 if($_[3]); # 追加-近接武器投げ、攻撃力+6
$df += int(rand $rnd_def) if $_[2] == 5; # 防御
$dm = $at - $df + int(rand($rnd_atk * 2)) - $rnd_atk;
$dm = 0 if $dm < 1;
$dm = 0 if $status[3] == $lighthouse && $rnd < $rnd_light; # 灯台
$dm = 0 if $location == 3 && $rnd < $rnd_mori; # 森
$dm = 0 if $location == 4 && $rnd < $rnd_yama; # 山

	# クリティカル
if($rnd < $rnd_fatal){
	if($_[0] == 33){ # HB鉛筆
		Out('HB鉛筆は<b>'.$victims[$guestnum].'</b>の喉笛に突き立てられた。');
	$dm = $guest[2];
	}elsif($num == 11 && $wp == 43){ # 杉村弘樹&拳
		Out('<b>'.$victims[$guestnum].'</b>の腹を思いきり蹴り上げた！');
		$dm = $status[2];
	}elsif($num == 22 && $wp == 22){ # 稲田瑞穂&両刃ナイフ
		Out('<b>'.$victims[$num].'</b>のナイフから光が噴き上がると、それは伝説の剣に変化した！！');
		$dm = 10 - $status[2];
		$dm = 1 if $dm < 1;
	}elsif($num == 32 && $wp == 32){ # 相馬光子&カマ
		Out('<b>'.$victims[$num].'</b>のカマが、ばっさりと<b>'.$victims[$guestnum].'</b>の喉をかっ切った。');
		$dm = $guest[2];
	}elsif($num == 34 && $wp == 34){ # 千草貴子&アイスピック
		Out('<b>'.$victims[$num].'</b>アイスピックが<b>'.$victims[$guestnum].'</b>の口の中に突き刺さった。');
		$dm = $guest[2] - 1 || 1;
	}

}

return $dm;
}
