// -*- Mode: Javascript -*-
/***************************************
 *  [ctrl.txt]
 *   
 *  概要	セッション管理、ファイル読み込み、flag管理、(キー処理)を担当する。
 *   
 *  参照ファイル settion.txt、jslb_dynamicload.txt、(input.txt)
 *  	
 *  作成	2006-06-07 	by	yoshida
 *  更新	2006-06-07 	by	yoshida		エラー処理が入っていない。たとえばシナリオファイルに間違いがある場合のModel::initの処理とか。
 *  更新	2006-06-07 	by	yoshida		TODOが7つ残っている。
 *  更新	2006-06-11 	by	yoshida		nextの位置を考え直す。現在の仕様では、連続クリックをすると、どんどんnextが実行される。Update done後にnextし、onGO時にはUpdateだけするようにすれば良いのでは？
 *  更新	2006-06-21 	by	yoshida		2重にメッセージが出る問題は、update前にnextが発行され、一つ後ろのコマンドが実行された結果だった。
 *  更新	2006-06-21 	by	yoshida		フラグの自動テストを作成する。T_NWとFSELECTを使えば自動テストが可能なはず。
 *  更新	2006-09-26 	by	yoshida		フラグがチェックされない問題は、RANDAMの返し値がWnovCtrl_ENDになっている事が問題だった。WnovCtrl_ENDなのでキー入力可。なので、別ファイル読込み時にmodelがnextされ、結果先頭のコマンドが処理されない結果になっていた。新しい返し値「FILELOAD」を定義し、これが返ってきた時は、キー入力可にしないよう修正。ファイル読込み系のコマンド処理(GOTOENDING・FSELECT・RANDAM)は「FILELOAD」を返す。

<end-of-comment>
***************************************/

////////////////////////////////////////////////////////////
// 定数
////////////////////////////////////////////////////////////
var WnovCtrl_WAITING = 0;
var CONTINUE = 1;
var FILELOAD = 2;
////////////////////////////////////////////////////////////
// ユーティリティ
////////////////////////////////////////////////////////////
/**
 * 関数に引数を結びつけたクロージャを作成する
 * @param func	関数オブジェクト(thisを必要とするものは不可)
 * @param arg	関数に渡す引数
 * @return		関数を引数付きで呼び出す関数を返す。
 */
function makeClosure(func, arg){
	var _func   = func;
	var _arg    = arg;
	var closure = function() {
		_func.apply(this, _arg);
	}
	return closure;
}
/**
 * 処理系がアイドルになったら呼び出したい関数を登録。
 * @param func	関数オブジェクト(thisを必要とするものは不可)
 * @param arg	関数に渡す引数
 * @return		なし
 */
function setEvent(func, arg){
	setTimeout(makeClosure(func, arg), 0);
}
////////////////////////////////////////////////////////////
// コンストラクタ
////////////////////////////////////////////////////////////
/**
 * コントロールオブジェクトのコンストラクタ
 * @param model	モデル部分(WnovModel)のインスタンス
 * @param view	ビュー部分(WnovView)のインスタンス
 * @param fnDone	終了完了通知関数
 * @return		なし
 */
function WnovCtrl(model, view, fnDone){
	this.model    = model;
	this.view     = view;
	this.flag     = new Array;
	this.page     = 0;
	this.filename = "";
	this.fnDone   = fnDone;
	this.bAccept  = true;
	this.bSelecting  = false;
}
////////////////////////////////////////////////////////////
// メンバメソッド
////////////////////////////////////////////////////////////
/**
 * WnovCtrlのエントリーポイント
 * @param it	WnovCtrlのインスタンス
 * @retval なし
 */
function WnovCtrl_restore(it){
	var json = Wnov_getSession();

	if(undefined == json.flag){
		it.flag      = new Array(512);
		for(var i=0;i<it.flag.length; i++){
			it.flag[i] = false;
		}
		it.flag[255] = true;
	} else {
		it.flag      = Base64ToTable(json.flag);
	}
	var filename = json.file;
	var page     = json.page;

	// viewの復元
	var env = new Array;
	env[HGRAPH] = json.H;
	env[LGRAPH] = json.L;
	env[RGRAPH] = json.R;
	env[MUSIC]  = json.M;
	it.view.init(env);

	WnovCtrl_fileLoad(it, filename, page);
}
/**
 * ファイルの読込開始。このファイルを抜けてもファイル読込みは終了していない。
 * @param it	WnovCtrlのインスタンス
 * @param filename	読み込むファイル名
 * @param page	初期ページ
 * @retval なし
 */
function WnovCtrl_fileLoad(it, filename, page){
	// modelの初期化
	Wnov_onLoaded = makeClosure(WnovCtrl_cbFileLoadComp, [it, filename, page]);
	dynamicLoad("txt/"+filename);
}
/**
 * ファイルの読込完了コールバック
 * @param it	WnovCtrlのインスタンス
 * @param filename	読み込んだファイル名
 * @param page	初期ページ
 * @retval なし
 */
function WnovCtrl_cbFileLoadComp(it, filename, page){
	// modelの初期化
	var data = dynamicLoadData;
	it.model.init(data, page);
	// viewの文字を消去
	if(0 == page){
		it.view.textClear();
	}
	// ctrlの初期化
	it.page     = page;
	it.filename = filename;
	// URLをページタイトルを更新
	WnovCtrl_updateURL(it);
	document.title = WevNovTitle;
	// viewの更新
	var cmd = it.model.getCmd();
	setEvent(WnovCtrl_updateView, [it, cmd]); // 状態遷移イベント発生。
}
/**
 * Viewのアップデート
 * @param it	WnovCtrlのインスタンス
 * @param cmd	実行するコマンド
 * @retval なし
 */
function WnovCtrl_updateView(it, cmd){
	it.view.update(cmd, makeClosure(WnovCtrl_cbViewUpdateComp, [it]));
}
/**
 * アップデート完了通知
 * @param it	WnovCtrlのインスタンス
 * @param cmd	実行するコマンド
 * @retval なし
 */
function WnovCtrl_cbViewUpdateComp(it){
	var cmd = it.model.getCmd();
	if(undefined == cmd){return;}
	// 評価関数取得
	var result = WnovCtrl_EvalCommand(it, cmd);	// コマンド評価結果

	// 後処理
	if(FILELOAD == result){
		it.bAccept = false;
		return;
	}
	if(CONTINUE == result){
		it.bAccept = false;
		it.model.next();
		cmd = it.model.getCmd();
		setEvent(WnovCtrl_updateView, [it, cmd]);
		return;
	}
	if(WnovCtrl_WAITING == result){
		it.bAccept = true;
		return;
	}
	return;
}
/**
 * ウェイトを抜けて次の処理へ
 * @param it	WnovCtrlのインスタンス
 * @retval なし
 */
function WnovCtrl_Go(it){
	if(!it.bAccept){
		return;
	}
	it.bAccept = false;

	var cmd = it.model.getCmd();
	if(PSELECT == cmd[0]){return;};
	if(NOACT == cmd[0]){return;};
	it.model.next();

	cmd = it.model.getCmd();
	setEvent(WnovCtrl_updateView, [it, cmd]);
}

function aTj(env, tag)
{
	if(undefined == env[tag]){
		return "";
	}
	return env[tag];
}
/**
 * URL表示を更新
 * @param it	WnovCtrlのインスタンス
 * @retval なし
 */
function WnovCtrl_updateURL(it){
	var env = it.view.getEnv();
	var envHGRAPH = aTj(env, HGRAPH);
	var envLGRAPH = aTj(env, LGRAPH);
	var envRGRAPH = aTj(env, RGRAPH);
	var envMUSIC  = aTj(env, MUSIC);
	
	var json = {ver:"01.00", file:it.filename, page:it.page, flag:TableToBase64(it.flag),
				H:envHGRAPH, L:envLGRAPH, R:envRGRAPH, M:envMUSIC};
	var text = objectToJSONString(json);
	text =  base64encode(zip_deflate(text));	//圧縮

	SetHash("d", text);
	SetHash("s", CalcCheckSum(text));
}
////////////////////////////////////////////////////////////
// 入力ハンドラ
////////////////////////////////////////////////////////////
/**
 * 右クリックハンドラ
 * @param it	WnovCtrlのインスタンス
 * @retval なし
 */
function WnovCtrl_onClick(it){
	WnovCtrl_Go(it);
}
/**
 * キー押下ハンドラ
 * @param it	WnovCtrlのインスタンス
 * @retval なし
 */
function WnovCtrl_onKeyDown(it, code){
	if(VK_SPACE == code){
		WnovCtrl_Go(it);
	}
}
/**
 * 選択肢ハンドラ
 * @param it	WnovCtrlのインスタンス
 * @retval なし
 */
function WnovCtrl_onSelect(it, idx){
	it.bSelecting = false;
	var cmd = it.model.getCmd();
	if(undefined == cmd){return;}

	var filename = cmd[5+2*idx];
	setEvent(WnovCtrl_fileLoad, [it, filename, 0]);
}

function WnovCtrl_EvalCommand(it, cmd){
	if(undefined == cmd){
		return CONTINUE;
	}
	// 評価関数取得
	var func = WnovCtrl_ACTIONMAP[cmd[0]];
	if(undefined == func){
		return CONTINUE;
	}
	// コマンド評価
	return func(it, cmd);
}
////////////////////////////////////////////////////////////
// コマンド評価関数
////////////////////////////////////////////////////////////
/**
 * 評価関数の型
 * @param it	WnovCtrlのインスタンス
 * @param cmd	コマンド
 * @retval CONTINUE			処理継続
 * @retval WnovCtrl_WAITING	入力待ち
 * @retval FILELOAD			ファイル読込
 */
/// コマンド評価関数の連想配列
var WnovCtrl_ACTIONMAP = new Array();
/// [WAIT]の評価。高速モードの場合は無視、それ以外の場合は待ち状態に。
WnovCtrl_ACTIONMAP[ WAIT ] = function(it, cmd){
	var Obj = document.getElementById( "fastmode" );
	if(Obj.checked){
		return CONTINUE;
	}
	return WnovCtrl_WAITING;
}
/// [PSELECT]の評価。選択中のフラグを立てる。
WnovCtrl_ACTIONMAP[ PSELECT ] = function(it, cmd){
	it.bSelecting = true;
	return WnovCtrl_WAITING;
}
/// [NOACT]の評価。何もしない。
WnovCtrl_ACTIONMAP[ NOACT ]   = function(it, cmd){
	return WnovCtrl_WAITING;
}
/// [ENDING]の評価。ファイル読込み。
WnovCtrl_ACTIONMAP[ ENDING ] = function(it, cmd){
	setEvent(WnovCtrl_fileLoad, [it, cmd[1], 0]);
	return FILELOAD;
}
/// [GOTOENDING]の評価。ファイル読込み。
WnovCtrl_ACTIONMAP[ GOTOENDING ] = function(it, cmd){
	setEvent(WnovCtrl_fileLoad, [it, cmd[1], 0]);
	return FILELOAD;
}
/// [NEXTPAGE]の評価。URLの更新を行う。
WnovCtrl_ACTIONMAP[ NEXTPAGE ] = function(it, cmd){
	it.page++;
	WnovCtrl_updateURL(it);
	return CONTINUE;
}
/// [FLAG]の評価。指定フラグを更新。
WnovCtrl_ACTIONMAP[ FLAG ] = function(it, cmd){
	it.flag[cmd[1]] = cmd[2];
	Wnov_showFlag(it.flag);
	return CONTINUE;
}
/// [FSELECT](フラグ分岐)の評価
WnovCtrl_ACTIONMAP[ FSELECT ] = function(it, cmd){
	var arg = cdr(cmd);
	var filename = "";
	for(var i=0;i<(arg.length-1);i+=2){
		if(255 == arg[i]){	// flag[255]は常に真。
			filename = arg[i+1];
			break;
		}
		if(it.flag[arg[i]]){
			filename = arg[i+1];
			break;
		}
	}

	setEvent(WnovCtrl_fileLoad, [it, filename, 0]);
	return FILELOAD;
}
/// [RANDAM](ランダム分岐)の評価
WnovCtrl_ACTIONMAP[ RANDAM ] = function(it, cmd){
	var filelist = cdr(cmd);
	var idx = Math.floor( Math.random() * filelist.length );
	var filename = filelist[idx];

	setEvent(WnovCtrl_fileLoad, [it, filename, 0]);

	return FILELOAD;
}
/// [LFCLEAR](ローカルフラグ消去)の評価
WnovCtrl_ACTIONMAP[ LFCLEAR ] = function(it, cmd){
	for(var i=0;i<256; i++){
		it.flag[i] = false;
	}
	Wnov_showFlag(it.flag);
	return CONTINUE;
}
/// [AFCLEAR](全フラグ消去)の評価
WnovCtrl_ACTIONMAP[ AFCLEAR ] = function(it, cmd){
	for(var i=0;i<it.flag.length; i++){
		it.flag[i] = false;
	}
	Wnov_showFlag(it.flag);
	return CONTINUE;
}