/* -----------------------------------------
	code: utf-8
	date: 2009-10-28	edit: 2009-11-23
	LengthRoll728x90_sub.js

	adStart()の呼び出しでスタート
	adStart()		画像設定準備
	moveLR()			クロージャ作成用 → cR_m()：移動処理
	rndmNumber()	クロージャ作成用 → cR_rnd()：ランダム数値発生
	xySize()			スクロールバー移動量取得
	wSize()			ウインドウサイズ取得
	dataAd()			データ
-------------------------------------------- */

/* ----- id名用数値設定 ----- */
var idNameNumber = (new Date()).getTime();

/* ----- クロージャ設定 ----- */
var cR_m = moveTB();
var cR_rnd = rndmNumber();


function adStart(idn){
	//alert(idn);
	obj = document.getElementById(idn);
	if(obj.childNodes.length > 1){ return; }	//ボタン２重押しチェック用

	//表示判定
	var a = xySize();	//スクロールバー移動量取得
	var b = wSize();	//ウインドウ内部表示サイズ取得
	var y = obj.offsetTop;
	if( a[1] > y || (y+60) > (a[1]+b[1])){
		var SRT = "adStart('"+idn+"')";
		setTimeout(SRT, 1000);
		return;
	}	//表示不可なら抜ける

	objDiv = document.createElement('div');
	obj.appendChild(objDiv);

	objDiv.style.top = '100px';
	objDiv.style.width = '728px';
	objDiv.style.height = '90px';
	objDiv.style.textAlign = 'center';
	objDiv.style.position = 'absolute';
	objDiv.innerHTML = dataAd(cR_rnd(66));

	var SRT = "cR_m('"+idn+"',135)";
	setTimeout(SRT,15);
}


function moveTB(){

	var i = 1;
	var ry = 45;	//円の垂直方向の半径
	var cy = 45		//円の中心(y座標、Top位置)

	var objZ = 0;		//オブジェクトのz-index値

	return function (idn,dat){
		//alert('x'+idn);
		var i = dat;
		var ra = 2 * Math.PI * i/180;	//radian値

		objB = document.getElementById(idn);

		objB.firstChild.style.top = cy + ry * Math.sin(ra) +"px";
		objB.firstChild.style.left = 0 + "px";

		objB.lastChild.style.zIndex = objZ;
		objB.lastChild.style.top = cy + ry * Math.sin(ra) - 90 +"px";
		objB.lastChild.style.left = 0 + "px";
		i++;

		if(i >= 225){
			//終了処理
			objZ++;	//z-index
			if(objB.childNodes.length > 1){
				objB.removeChild(objB.firstChild);
			}
			var SRT = "adStart('"+idn+"')";
			setTimeout(SRT,12000);	//12秒
			return;
		}

		var SRT = "cR_m('"+idn+"',"+i+")";
		setTimeout(SRT,15);
	}
}


function rndmNumber(){
	var rndmM = 50;		//総AD数：初期値
	var sec =(new Date()).getMilliseconds();	//ランダム種
	var pastNumber = 0;	//前回数値
	var viewCount = 1;	//巡回数
	var dummyArray = [0,0,0,0,0];

	return function (dat){
		rndmM = dat;
		var i = Math.floor(Math.random(sec)*rndmM)+1;
		if(viewCount == 1){ var i = 49; }		//１回目固定値(任意)
		if(viewCount == 3){ var i = 33; }		//２回目固定値(任意)

		var checkFlag = 1;
		while(checkFlag == 1){
			checkFlag = 0;
			for(var j=0; j<dummyArray.length; j++){
				if(dummyArray[j] == i){
					checkFlag = 1;
				}
			}
			if(checkFlag == 1){
				var i = Math.floor(Math.random(sec)*rndmM)+1;
			}else{
				dummyArray[pastNumber] = i;
				pastNumber++;
				if(pastNumber >= dummyArray.length){ pastNumber = 0; }
			}
		}

		viewCount++;
		return i;
	}
}

function xySize(){

	var xy = [0,0];

	/* 標準モード */
	if(document.documentElement.scrollLeft){
		xy[0] = document.documentElement.scrollLeft;
	}else{
		xy[0] = document.body.scrollLeft;
	}

	if(document.documentElement.scrollTop){
		xy[1] = document.documentElement.scrollTop;
	}else{
		xy[1] = document.body.scrollTop;
	}
		return xy;
}

function wSize(){

	var ws = [0,0];
	//IE6判定
	if(typeof document.documentElement.style.maxHeight != "undefined"){
		//IE6以外
		ws[0] = document.documentElement.clientWidth;
		ws[1] = document.documentElement.clientHeight;
	}else{
		//IE6
		ws[0] = document.body.clientWidth;
		ws[1] = document.body.clientHeight;
	}
	return ws;
}


function dataAd(i){

switch(i){

case 1:	//デコオンライン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004tet0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004tet0022nd" alt="" border="0" /></a>';
 break;
case 2:	//NAVYFIELD NEO
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004ml20022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004ml20022nd" alt="" border="0" /></a>';
 break;
case 3:	//アラド戦記
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004j6u0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004j6u0022nd" alt="" border="0" /></a>';
 break;
case 4:	//エースオンライン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004bcx0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004bcx0022nd" alt="" border="0" /></a>';
 break;
case 5://Heroes in the sky
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003zfe0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003zfe0022nd" alt="" border="0" /></a>';
 break;
case 6://BLACK SHOT
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010045wf0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010045wf0022nd" alt="" border="0" /></a>';
 break;
case 7://プリストンテール
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010044hh0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010044hh0022nd" alt="" border="0" /></a>';
 break;
case 8://三国ヒーローズ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004w2t0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004w2t0022nd" alt="" border="0" /></a>';
 break;
case 9://リネージュ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010045yp0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010045yp0022nd" alt="" border="0" /></a>';
 break;
case 10://ペーパーマン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003t1b0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003t1b0022nd" alt="" border="0" /></a>';
 break;
case 11://リヴリーアイランド
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003o6r0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003o6r0022nd" alt="" border="0" /></a>';
 break;
case 12://君主
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004dhg0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004dhg0022nd" alt="" border="0" /></a>';
 break;
case 13://ルーセントハート
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003iql0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003iql0022nd" alt="" border="0" /></a>';
 break;
case 14://The Soul Partner
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003e2k0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003e2k0022nd" alt="" border="0" /></a>';
 break;
case 15://ラグナロク
adDat = '<a href="http://click.j-a-net.jp/119029/83709/" target="_blank"><img src="http://image.j-a-net.jp/119029/83709/" width="468" height="60"  border="0"></a>';
 break;
case 16://デカロン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010040160022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010040160022nd" alt="" border="0" /></a>';
 break;
case 17://ゼネピックオンライン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010032yz0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010032yz0022nd" alt="" border="0" /></a>';
 break;
case 18://シャイヤ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010030ht0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010030ht0022nd" alt="" border="0" /></a>';
 break;
case 19://ベルアイル
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004d3v0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004d3v0022nd" alt="" border="0" /></a>';
 break;
case 20://Soul of the Ultimate Nation
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010032hq0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010032hq0022nd" alt="" border="0" /></a>';
 break;
case 21://クロスファイア
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010031py0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010031py0022nd" alt="" border="0" /></a>';
 break;
case 22://鬼魂
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002x9z0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002x9z0022nd" alt="" border="0" /></a>';
 break;
case 23://真・三國無双
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002vjj0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002vjj0022nd" alt="" border="0" /></a>';
 break;
case 24://信長の野望
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002uup0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002uup0022nd" alt="" border="0" /></a>';
 break;
case 25://大航海時代
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002rfu0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002rfu0022nd" alt="" border="0" /></a>';
 break;
case 26://モンスターハンターフロンティア
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002fdx0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002fdx0022nd" alt="" border="0" /></a>';
 break;
case 27://ブライトシャドウ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004rdy0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004rdy0022nd" alt="" border="0" /></a>';
 break;
case 28://Catch　The　Sky
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003xgc0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003xgc0022nd" alt="" border="0" /></a>';
 break;
case 29://RF online
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010029f70022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010029f70022nd" alt="" border="0" /></a>';
 break;
case 30://ROHAN
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002wf30022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002wf30022nd" alt="" border="0" /></a>';
 break;
case 31://チョコットランド
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002ccm0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002ccm0022nd" alt="" border="0" /></a>';
 break;
case 32://ラテール
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004fi50022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004fi50022nd" alt="" border="0" /></a>';
 break;
case 33://ウォーロック
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010024qd0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010024qd0022nd" alt="" border="0" /></a>';
 break;
case 34://ショットオンライン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010027ay0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010027ay0022nd" alt="ゴルフゲーム - ショットオンライン" border="0" /></a>';
 break;
case 35://フリフオンライン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003pqs0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003pqs0022nd" alt="MMORPG - フリフオンライン" border="0" /></a>';
 break;
case 36://シールオンライン
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002rc60022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002rc60022nd" alt="" border="0" /></a>';
 break;
case 37://ゲットアンプドＸ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=0100430w0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=0100430w0022nd" alt="" border="0" /></a>';
 break;
case 38://真・三国無双
adDat = '<a href="http://click.j-a-net.jp/119029/222177/" target="_blank"><img src="http://image.j-a-net.jp/119029/222177/" width="728" height="90"  border="0"></a>';
 break;
case 39://パーフェクト ワールド
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010036k50022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010036k50022nd" alt="" border="0" /></a>';
 break;
case 40://競馬伝説Live!
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010018ls0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010018ls0022nd" alt="　" border="0" /></a>';
 break;
case 41:// バルビレッジ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01001k730022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01001k730022nd" alt="" border="0" /></a>';
 break;
case 42://WYD
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01001n3y0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01001n3y0022nd" alt="　" border="0" /></a>';
 break;
case 43://グラナド・エスパダ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004vtd0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004vtd0022nd" alt="" border="0" /></a>';
 break;
case 44://アルテイル
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003o8z0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003o8z0022nd" alt="" border="0" /></a>';
 break;
case 45://ホーリービースト
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004sam0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004sam0022nd" alt="" border="0" /></a>';
 break;
case 46://ＯＺＷｏｒｌｄ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01001oow0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01001oow0022nd" alt="急ごうＯＺＷｏｒｌｄへ" border="0" /></a>';
 break;
case 47://エミルクロニクル
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01001m1a0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01001m1a0022nd" alt="" border="0" /></a>';
 break;
case 48://トリックスター
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004keg0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004keg0022nd" alt="" border="0" /></a>';
 break;
case 49://女神転生IMAGINE
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003ldv0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003ldv0022nd" alt="" border="0" /></a>';
 break;
case 50://ラペルズ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002sd10022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002sd10022nd" alt="" border="0" /></a>';
 break;
case 51://眠らない大陸クロノス
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01000zp20022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01000zp20022nd" alt="" border="0" /></a>';
 break;
case 52://ミュー奇蹟の大地
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010027ug0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010027ug0022nd" alt="" border="0" /></a>';
 break;
case 53://RED STONE
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010050250022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010050250022nd" alt="" border="0" /></a>';
 break;
case 54://飛天online
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004sap0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004sap0022nd" alt="" border="0" /></a>';
 break;
case 55://SiLKROAD
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01004jsd0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01004jsd0022nd" alt="" border="0" /></a>';
 break;
case 56://ネオスチーム
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01001n3z0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01001n3z0022nd" alt="　" border="0" /></a>';
 break;
case 57://ミックスマスター
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003xai0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003xai0022nd" alt="" border="0" /></a>';
 break;
case 58://メイプルストーリー
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010009b10022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010009b10022nd" alt="" border="0" /></a>';
 break;
case 59://テイルズウィーバー
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=010015xu0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=010015xu0022nd" alt="" border="0" /></a>';
 break;
case 60://マビノギ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01000kod0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01000kod0022nd" alt="" border="0" /></a>';
 break;
case 61://新・天上碑
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01000zms0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01000zms0022nd" alt="" border="0" /></a>';
 break;
case 62://Fantasy Earth Zero
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01003g9w0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01003g9w0022nd" alt="" border="0" /></a>';
 break;
case 63://Angel Love Online
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=01002sae0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=01002sae0022nd" alt="" border="0" /></a>';
 break;
case 64://戦場のカルマ
adDat = '<a href="http://www.accesstrade.net/at/c.html?rk=0100539d0022nd" target="_blank"><img src="http://www.accesstrade.net/at/r.html?rk=0100539d0022nd" alt="" border="0" /></a>';
 break;
case 65://パンドラサーガ
adDat = '<a href="http://click.j-a-net.jp/119029/386582/" target="_blank"><img src="http://image.j-a-net.jp/119029/386582/" width="468" height="60"  border="0"></a>';
 break;
case 66://ドルアーガの塔
adDat = '<a href="http://click.j-a-net.jp/119029/385649/" target="_blank"><img src="http://image.j-a-net.jp/119029/385649/" width="468" height="60"  border="0"></a>';
 break;



default:
adDat = null;
}
	return adDat;
}