// ----------------------------------------
// 王国LINK
// http://gebokusan.hp.infoseek.co.jp/
//
// 毎日違う王族メンバーの写真を表示する
// ルーチンおよびデータ ver 1.0
// JavaScript 1.3
//
// 作者：下僕さん gebokusan@mail.goo.ne.jp
// 作成日：2004年9月6日
// (c) 2004 gebokusan
// ---------------------------------------
//
//

	var total = 113;			// 画像の数。画像が増えたら変更する。
	var portrait = new MakeArray(total);	// 王族メンバーの数だけ配列作成
	set_image_data();			// データ設定

//	------------------------------------------------
//	配列作成
//	------------------------------------------------
	function MakeArray(n){			// Netscape 2.0用配列作成
		this.length = n;
	}

//
//	portraitオブジェクトの作成
//
	function portrait_object(name,filename,url){
		this.name = name;			// 名前
		this.filename = filename;		// 画像ファイル名
		this.url = url;				// 詳細ページのURL
	}

//
// 日付に応じた数値を求める
//
	function get_no(){
		var now = new Date();
		var date = now.getDate();	// 今日の日付をゲット
		var month = now.getMonth();	// 今日の月をゲット
		var year = now.getYear();	// 今年の年をゲット
		var r = (year*365+date*12+month) % total +1;		// total（画像の枚数）で割った余り
		return r;
	}


//
//	王族のデータ
//
	function set_image_data(){
	portrait[1] = new portrait_object("明仁天皇（日本）",			"japan_02",		"royal_family_japan.html#01");
	portrait[2] = new portrait_object("美智子皇后（日本）",			"japan_05",		"royal_family_japan.html#02");
	portrait[3] = new portrait_object("徳仁（なるひと)皇太子（日本）",	"japan_03a",		"royal_family_japan.html#03");
	portrait[4] = new portrait_object("雅子皇太子妃（日本）",		"japan_03b",		"royal_family_japan.html#04");
	portrait[5] = new portrait_object("愛子内親王（日本）",			"japan_04c",		"royal_family_japan.html#05");
	portrait[6] = new portrait_object("文仁親王（日本）",			"japan_07",		"royal_family_japan.html#06");
	portrait[7] = new portrait_object("清子内親王（日本）",			"japan_06",		"royal_family_japan.html#07");
	portrait[8] = new portrait_object("紀子妃（日本）",			"japan_08",		"royal_family_japan.html#08");
	portrait[9] = new portrait_object("眞子内親王（日本）",			"japan_09",		"royal_family_japan.html#09");
	portrait[10] = new portrait_object("佳子内親王（日本）",		"japan_10b",		"royal_family_japan.html#10");
	portrait[11] = new portrait_object("プミポン国王（タイ）",		"thai_01",		"royal_family_thailand.html#01");
	portrait[12] = new portrait_object("シリキット王妃（タイ）",		"thai_02",		"royal_family_thailand.html#02");
	portrait[13] = new portrait_object("ワチラロンコン皇太子（タイ）",	"thai_03",		"royal_family_thailand.html#03");
	portrait[14] = new portrait_object("シリントン王女（タイ）",		"thai_04_sirindhorn",	"royal_family_thailand.html#04");
	portrait[15] = new portrait_object("チュラポン王女（タイ）",		"thai_05_chulabhorn",	"royal_family_thailand.html#05");
	portrait[16] = new portrait_object("エリザベス2世女王（イギリス）",	"england_01_liz",	"royal_family_england.html#01");
	portrait[17] = new portrait_object("エディンバラ公（イギリス）",	"england_02_philip",	"royal_family_england.html#02");
	portrait[18] = new portrait_object("チャールズ皇太子（イギリス）",	"england_03_charls",	"royal_family_england.html#03");
	portrait[19] = new portrait_object("ウィリアム王子（イギリス）",	"england_05_william",	"royal_family_england.html#04");
	portrait[20] = new portrait_object("ヘンリー王子（イギリス）",		"england_06_harry",	"royal_family_england.html#05");
	portrait[21] = new portrait_object("アン王女（イギリス）",		"england_04_ann",	"royal_family_england.html#06");
	portrait[22] = new portrait_object("アンドリュー王子（イギリス）",	"england_07_andrew",	"royal_family_england.html#07");
	portrait[23] = new portrait_object("エドワード王子（イギリス）",	"england_08_edward",	"royal_family_england.html#08");
	portrait[24] = new portrait_object("ルイーズ王女（イギリス）",		"england_09_luise",	"royal_family_england.html#09");
	portrait[25] = new portrait_object("アルベール2世国王（ベルギー）",	"belgium00_albert",	"royal_family_belgium.html#01");
	portrait[26] = new portrait_object("パオラ王妃（ベルギー）",		"belgium01_paola",	"royal_family_belgium.html#02");
	portrait[27] = new portrait_object("ボードワン1世（ベルギー）",		"belgium05_boudewijn",	"royal_family_belgium.html#03");
	portrait[28] = new portrait_object("フィリップ皇太子（ベルギー）",	"belgium02_philip",	"royal_family_belgium.html#04");
	portrait[29] = new portrait_object("エリザベス王女（ベルギー）",	"belgium03_elisabeth",	"royal_family_belgium.html#05");
	portrait[30] = new portrait_object("マチルド皇太子妃（ベルギー）",	"belgium06_mathilde",	"royal_family_belgium.html#06");
	portrait[31] = new portrait_object("ガブリエル王子（ベルギー）",	"belgium09_gabriel",	"royal_family_belgium.html#07");
	portrait[32] = new portrait_object("アストリッド王女（ベルギー）",	"belgium04_astrid",	"royal_family_belgium.html#08");
	portrait[33] = new portrait_object("ローラン王子（ベルギー）",		"belgium08_laurent",	"royal_family_belgium.html#09");
	portrait[34] = new portrait_object("ベアトリックス女王（オランダ）",	"netherland01",		"royal_family_netherland.html#01");
	portrait[35] = new portrait_object("クラウス公（オランダ）",		"netherland02",		"royal_family_netherland.html#02");
	portrait[36] = new portrait_object("ウィレム皇太子（オランダ）",	"netherland03",		"royal_family_netherland.html#03");
	portrait[37] = new portrait_object("マキシマ皇太子妃（オランダ）",	"netherland04",		"royal_family_netherland.html#04");
	portrait[38] = new portrait_object("ヨハン・フリーゾ王子（オランダ）",	"netherland05",		"royal_family_netherland.html#05");
	portrait[39] = new portrait_object("コンスタンティン王子（オランダ）",	"netherland06",		"royal_family_netherland.html#06");
	portrait[40] = new portrait_object("ペトラ妃（オランダ）",		"netherland07",		"royal_family_netherland.html#07");
	portrait[41] = new portrait_object("エロワーズ王女（オランダ）",	"netherland08",		"royal_family_netherland.html#08");
	portrait[42] = new portrait_object("カタリナ・アメリア王女（オランダ）","netherland09_amalia",	"royal_family_netherland.html#09");
	portrait[43] = new portrait_object("ハラルド5世国王（ノルウェー）",	"norway01_king_harald5","royal_family_norway.html#01");
	portrait[44] = new portrait_object("ソニヤ王妃（ノルウェー）",		"norway02_sonja",	"royal_family_norway.html#02");
	portrait[45] = new portrait_object("ホーコン皇太子（ノルウェー）",	"norway03_haakon",	"royal_family_norway.html#03");
	portrait[46] = new portrait_object("マッタ･ルイーセ王女（ノルウェー）",	"norway04_martha_louise",	"royal_family_norway.html#04");
	portrait[47] = new portrait_object("メッテ･マーリット皇太子妃（ノルウェー）","norway06_mette-marit",	"royal_family_norway.html#05");
	portrait[48] = new portrait_object("イングリッド王女（ノルウェー）",	"norway05_ingrid",	"royal_family_norway.html#06");
	portrait[49] = new portrait_object("ファン･カルロス1世国王（スペイン）","spain01_king",		"royal_family_spain.html#01");
	portrait[50] = new portrait_object("ソフィア王妃（スペイン）",		"spain02_queen",	"royal_family_spain.html#02");
	portrait[51] = new portrait_object("フェリペ皇太子（スペイン）",	"spain03_felipe",	"royal_family_spain.html#03");
	portrait[52] = new portrait_object("レティシア皇太子妃（スペイン）",	"spain04_leticia",	"royal_family_spain.html#04");
	portrait[53] = new portrait_object("エレナ王女（スペイン）",		"spain05_elena",	"royal_family_spain.html#05");
	portrait[54] = new portrait_object("ルゴ公爵（スペイン）",		"spain06_jaime",	"royal_family_spain.html#06");
	portrait[55] = new portrait_object("フロイラン王子（スペイン）",	"spain07_froilan",	"royal_family_spain.html#07");
	portrait[56] = new portrait_object("ヴィクトリア王女（スペイン）",	"spain08_victoria",	"royal_family_spain.html#08");
	portrait[57] = new portrait_object("クリスティーナ王女（スペイン）",	"spain09_cristina",	"royal_family_spain.html#09");
	portrait[58] = new portrait_object("パルマ公爵（スペイン）",		"spain10_inaki",	"royal_family_spain.html#10");
	portrait[59] = new portrait_object("フアン・バレンティン王子（スペイン）","spain11_juan",	"royal_family_spain.html#11");
	portrait[60] = new portrait_object("ギャネンドラ国王（ネパール）",	"nepal01_king",		"royal_family_nepal.html#01");
	portrait[61] = new portrait_object("ワンチュク国王（ブータン）",	"bhutan",		"portrait1.html#bhutan");
	portrait[62] = new portrait_object("サイド・シラジュディン第12代国王（マレーシア）","malaysia",	"portrait1.html#malaysia");
	portrait[63] = new portrait_object("シハモニ国王（カンボジア）",	"cambodia",		"portrait1.html#cambodia");
	portrait[64] = new portrait_object("アブドッラー国王（サウジ・アラビア）",	"saudi02",	"portrait1.html#saudi");
	portrait[65] = new portrait_object("フセイン国王（ヨルダン）",		"jordan",		"portrait1.html#jordan");
	portrait[66] = new portrait_object("サイード国王（オマーン）",		"oman",			"portrait1.html#oman");
	portrait[67] = new portrait_object("ボルキア国王（ブルネイ）",		"brunei",		"portrait1.html#brunei");
	portrait[68] = new portrait_object("ハリーファ国王（バーレーン）",	"bahrain",		"portrait1.html#bahrain");
	portrait[69] = new portrait_object("カール16世グスタフ国王（スウェーデン）","sweden",		"portrait2.html#sweden");
	portrait[70] = new portrait_object("マルグレーテ2世女王（デンマーク）",	"denmark",		"portrait2.html#denmark");
	portrait[71] = new portrait_object("モハメッド6世国王（モロッコ）","	morocco",		"portrait2.html#morocco");
	portrait[72] = new portrait_object("レツィエ3世国王（レソト）",		"lesotho",		"portrait2.html#lesotho");
	portrait[73] = new portrait_object("ムスワティ3世国王（スワジランド）",	"swaziland",		"portrait2.html#swaziland");
	portrait[74] = new portrait_object("ジョージ･トゥポウ5世国王（トンガ）","tonga02",		"portrait3.html#tonga");
	portrait[75] = new portrait_object("トゥイアトゥア・トゥプア・タマセセ・エフィ殿下（サモア独立国）","samoa",		"portrait3.html#samoa");
	portrait[76] = new portrait_object("ヘンリック（デンマーク）",		"denmark02_henrik",	"royal_family_denmark.html#02");
	portrait[77] = new portrait_object("アンリ大公（ルクセンブルク）",	"luxenbourg",		"portrait4.html#luxenbourg");
	portrait[78] = new portrait_object("ハンス・アダム2世（リヒテンシュタイン）","liechtenstein","portrait4.html#liechtenstein");
	portrait[79] = new portrait_object("サーニ首長（カタール）",		"qatar",		"portrait4.html#qatar");
	portrait[80] = new portrait_object("サバーハ首長（クウェート）",	"kuwait",		"portrait4.html#kuwait");
	portrait[81] = new portrait_object("コマル王妃（ネパール）",		"nepal02_queen",	"royal_family_nepal.html#02");
	portrait[82] = new portrait_object("パラス皇太子（ネパール）",		"nepal03_paras",	"royal_family_nepal.html#03");
	portrait[83] = new portrait_object("ヒマニ皇太子妃（ネパール）",	"nepal04_himani",	"royal_family_nepal.html#04");
	portrait[84] = new portrait_object("プルニカ王女（ネパール）",		"nepal05_purnika",	"royal_family_nepal.html#05");
	portrait[85] = new portrait_object("フリダイェンドラ王子（ネパール）",	"nepal06_hridayendra",	"royal_family_nepal.html#06");
	portrait[86] = new portrait_object("クリティカ王女（ネパール）",	"nepal07_kritika",	"royal_family_nepal.html#07");
	portrait[87] = new portrait_object("ローレンツ大公（ベルギー）",	"belgium10_lorenz",	"royal_family_belgium.html#10");
	portrait[88] = new portrait_object("クレール妃（ベルギー）",		"belgium09_claire",	"royal_family_belgium.html#11");
	portrait[89] = new portrait_object("アルベール2世（モナコ）",		"monaco02_albert",	"royal_family_monaco.html#02");
	portrait[90] = new portrait_object("カロリーヌ王女（モナコ）",		"monaco03_caroline",	"royal_family_monaco.html#03");
	portrait[91] = new portrait_object("ステファニー王女（モナコ）",	"monaco04_stephanie",	"royal_family_monaco.html#04");
	portrait[92] = new portrait_object("アンドレア王子（モナコ）",		"monaco05_andrea",	"royal_family_monaco.html#05");
	portrait[93] = new portrait_object("シャルロット王女（モナコ）",	"monaco06_charlotte",	"royal_family_monaco.html#06");
	portrait[94] = new portrait_object("ピエール王子（モナコ）",		"monaco07_pierre",	"royal_family_monaco.html#07");
	portrait[95] = new portrait_object("アレクサンドラ王女（モナコ）",	"monaco08_alex",	"royal_family_monaco.html#08");
	portrait[96] = new portrait_object("ルイ王子（モナコ）",		"monaco09_louis",	"royal_family_monaco.html#09");
	portrait[97] = new portrait_object("ポリーヌ王女（モナコ）",		"monaco10_pauline",	"royal_family_monaco.html#10");
	portrait[98] = new portrait_object("カミーユ王女（モナコ）",		"monaco11_camille",	"royal_family_monaco.html#11");
	portrait[99] = new portrait_object("アレクシア王女（オランダ）",	"netherland10_alexia",	"royal_family_netherland.html#10");
	portrait[100] = new portrait_object("エマニュエル王子（ベルギー）",	"belgium11_emmanuel",	"royal_family_belgium.html#11");
	portrait[101] = new portrait_object("レオノール王女（スペイン）",	"spain12_leonor",	"royal_family_spain.html#12");
	portrait[102] = new portrait_object("フレデリック皇太子（デンマーク）",	"denmark03_frederik",	"royal_family_denmark.html#03");
	portrait[103] = new portrait_object("メアリー妃（デンマーク）",		"denmark04_mary",	"royal_family_denmark.html#04");
	portrait[104] = new portrait_object("クリスチャン王子（デンマーク）",	"denmark05_christian",	"royal_family_denmark.html#05");
	portrait[105] = new portrait_object("ヨアキム王子（デンマーク）",	"denmark06_joachim",	"royal_family_denmark.html#06");
	portrait[106] = new portrait_object("アレキサンドラ元妃（デンマーク）",	"denmark07_alexandra",	"royal_family_denmark.html#07");
	portrait[107] = new portrait_object("ニコライ王子（デンマーク）",	"denmark08_nikolai",	"royal_family_denmark.html#08");
	portrait[108] = new portrait_object("フェリックス王子（デンマーク）",	"denmark09_felix",	"royal_family_denmark.html#09");
	portrait[109] = new portrait_object("スヴェレ･マグヌス王子（ノルウェー）","norwey_07sverre",	"royal_family_norway.html#07");
	portrait[110] = new portrait_object("悠仁親王（日本）",			"japan_11",		"royal_family_japan.html#11");
	portrait[111] = new portrait_object("アリアーン王女（オランダ）",	"netherland11_ariane",	"royal_family_netherland.html#11");
	portrait[112] = new portrait_object("イサベラ王女（デンマーク）",	"denmark10_isabela.jpg","royal_family_denmark.html#10");
	portrait[113] = new portrait_object("ソフィア王女（スペイン）",		"spain13_sophia.jpg",	"royal_family_spain.html#13");
	}

// EOF