> > TRPGをここでやってみる実験
> おなたは矢で射られた
> ダイス

sub dice {
	# サイコロを振る
	$dquan = $FORM{'dquan'};
	$dface = $FORM{'dface'};
	$smark = $FORM{'smark'};
	$dsyuu = $FORM{"dsyuu".($smark)};
	$dicereq = $dquan.'D'.$dface;
	$damount = "0";

	srand;
	for ( $k=0; $k < $dquan; $k++ ) {
		$number = rand($dface);
		$number = int($number) + 1;
		$damount = $damount + $number;
		if ( $k == 0 ) { $dicenote = $number; }
		else { $dicenote = $dicenote.' + '.$number; }
	}

	if ($dsyuu == 0) { $d_data = $dicereq.' → '.$dicenote.' = <B>'.$damount.'</B>'; }
	else {
		$damount = $damount + $dsyuu;
		$d_data = $dicereq.' → '.$dicenote.' + ('.$dsyuu.') = <B>'.$damount.'</B>';
	}

参考：2003/09/03(水)03時11分59秒