アビリティ制度を設ける

	# 番号、名前、威力、金、戦闘時の説明
	@skill	=(
		[0,'----',		0,	0],
		[1,'ほのう',	100,	10000,	''],
		[2,'みず',		150,	20000,	'']
	);

		if($dg_a && $dg_cnt){#武具呼び出し
			$log .="$nm は $dg_data[$dg_a][1] で攻撃!!<br>$tnm に $v の傷を与えた!<br>\n";
			$abi=int(rand(10));
			if($abi==10 && $ability){
				$log .="更にアビリティ「 $skill[$ability][1] 」の効果発動!!<br>$skill[$ability][4]<br>\n";
				$Y=int(rand(2)+1);# かけてみる
				$v+=$Y*$skill[$ability][2];
			}
			$thp -= $v;
			$dg_cnt--;