罪罰改造板２/300

	# $dh =int(rand(20)) ;
	$dh =int(rand(100)) ;
	# if($dh <= 3){
	if($dh < 15){
		$log .="秘奥義 魂砕き！！$tnm は心を粉々に砕かれた!<br>\n";
		$thp=0;
	# }elsif($dh == 4){
	}elsif($dh < 20){
		$v = int($hp*0.9);
		$hp -= $v;
		$log .="秘奥義 魂砕き！！<b>自爆！！</b> $nm は心が粉々に砕けちった!<br>\n";
	# }elsif($dh >= 5 && $dh <= 12){
	}elsif($dh < 55){
		$v = int(($tud+$tua)*2-$tud);
		$thp -= $v;
		$log .="秘奥義 魂砕き！！失敗した！！<br>しかし $tnm に $v のダメージを与えることに成功!<br>\n";						
	}else{
		$log .="失\敗\した…しかし最悪の事態だけは免れた。<br>\n";
	}