/*
----▼▼▼削除禁止（著作権及びバージョン管理部分）▼▼▼----------------------

【 ソフト名称 】  月下の神託数秘術
【 ファイル名 】  kabara.js
【  著作権者  】  nekomata
【 バージョン 】  1.09
【  作 成 日  】  2003年10月6日
【 動作可能OS 】  Windows 98+IE5.5 Windows XP+IE6.0（その他未確認）
【  取り扱い  】  フリーウェア（リンクウェア）
【  作成言語  】  JavaScript
【  連絡方法  】  メール、掲示板
【ホームページ】  http://www.aa.alpha-net.ne.jp/nekomata/
【 転載  条件 】  配布・転載の条件を厳守して下さい

----▲▲▲削除禁止（著作権及びバージョン管理部分）▲▲▲----------------------
*/
window.onerror = null;
var i = 0; //
var j = 0; //

function kbr_conv(IN_TEXT){ //カバラ変換（直訳）
	var TP3 = "";
	var TP2 = "";
	var TP1 = IN_TEXT;
	j = TP1.length;		//文字列長取得
	for(i = 0;i < j;i++){	// 文字→数字変換（直訳）
		TP2 = TP1.charAt(i);	//一文字取得
		TP2 = TP2.toUpperCase();
		switch(TP2){	//数字を文字列として積み上げ
			case "A":TP3 += "1"; break;
			case "B":TP3 += "2"; break;
			case "C":TP3 += "3"; break;
			case "D":TP3 += "4"; break;
			case "E":TP3 += "5"; break;
			case "F":TP3 += "8"; break;
			case "G":TP3 += "3"; break;
			case "H":TP3 += "5"; break;
			case "I":TP3 += "1"; break;
			case "J":TP3 += "1"; break;
			case "K":TP3 += "2"; break;
			case "L":TP3 += "3"; break;
			case "M":TP3 += "4"; break;
			case "N":TP3 += "5"; break;
			case "O":TP3 += "7"; break;
			case "P":TP3 += "8"; break;
			case "Q":TP3 += "1"; break;
			case "R":TP3 += "2"; break;
			case "S":TP3 += "3"; break;
			case "T":TP3 += "4"; break;
			case "U":TP3 += "6"; break;
			case "V":TP3 += "6"; break;
			case "W":TP3 += "6"; break;
			case "X":TP3 += "6"; break;
			case "Y":TP3 += "1"; break;
			case "Z":TP3 += "7"; break;
			case "0":TP3 += "0"; break;
			case "1":TP3 += "1"; break;
			case "2":TP3 += "2"; break;
			case "3":TP3 += "3"; break;
			case "4":TP3 += "4"; break;
			case "5":TP3 += "5"; break;
			case "6":TP3 += "6"; break;
			case "7":TP3 += "7"; break;
			case "8":TP3 += "8"; break;
			case "9":TP3 += "9"; break;
			case " ":TP3 += " "; break;
			default:TP3 += " "; break;
		}
	}
	return TP3;
}

function kbr_puls(IN_STR){ //カバラ変換（数秘計算）
	var mh1 = 0;
	var mh2 = 0;
	var mh3 = 0;
	var kp = 0;
	var b_out = "";
	var TP3 = "";
	var TP2 = "";
	var TP1 = "" + IN_STR;   
	j = TP1.length; //文字列長取得
	for(i = 0;i < j ;i++){ // 空白削除
		TP2 = TP1.charAt(i); //一文字取得
		if(TP2 == " "){TP3 += "";
		}else if(TP2 != " "){TP3 += TP2;
		}
	}
	TP3 += "P"; //文字列終了マーカー付加
	i = -1;
	j = 0;
	TP1 = "0";
	TP2 = ""
	do{
		i++;
		TP2 = TP3.charAt(i); //一文字取得
		if(TP2 != "P"){
			mh1 = eval(TP1);
			mh2 = eval(TP2);
			mh3 = mh1 + mh2;
			TP1 = "" + mh3;
		}else if(TP2 == "P"){
			kp = TP1.length;
			if(TP1 == "11"){//特別視
				break;
			}else if(TP1 == "22"){//特別視
				break;
			}else if(kp == 1){
				break;
			}
			TP3 = TP1 + "P";
			TP2 = "";
			TP1 = "0";
			i = -1;
		}
	}while(j == 0);
	return TP1; //戻り
}