/*
meisei.js
アルケミ名声妄想計算機

名声ポイントを計算します。

by 冬物語の人
http://winter.sgv417.jp/

原作成者：いちアルケミスト
アルケミスト・クリエイター情報交換スレ第51巻 No.521
http://gemma.mmobbs.com/test/read.cgi/ragnarok/1126537823/
*/

function Calc(){
	var Count;
	var Kakuritu=parseFloat(document.Alc.Kakuritu.value);
	var Kazu=document.Alc.Kazu.value;
	var Three=0;
	var Five=0;
	var Seven=0;
	var Ten=0;
	var Point=0;
	var Renzoku=0;
	for (Count=0; Count< Kazu; Count++) {

		if ( Kakuritu>=Math.random() ){
			Renzoku++;
			if ( Renzoku==10 ) {
				Ten++;
				Renzoku=0;
			}
		}
		else{
		
			if ( Renzoku>=7 ) {
				Seven++;
			} else if ( Renzoku>=5 ) {
				Five++;
			} else if (Renzoku>=3 ) {
				Three++;
			}
		Renzoku=0;
		}

	}
	document.Alc.athree.value=Three;
	document.Alc.bthree.value=Three;
	document.Alc.afive.value =Five;
	document.Alc.bfive.value =Five*3;
	document.Alc.aseven.value=Seven;
	document.Alc.bseven.value=Seven*10;
	document.Alc.aten.value  =Ten;
	document.Alc.bten.value  =Ten*50;
	document.Alc.apnt.value  =Three*1+Five*3+Seven*10+Ten*50;
}