/*---------------------------------------------------------------------
	かんたん文スクリプト「あやりりす」
	こぴぺするならここから……
	元あったRandomTalkは消すこと
---------------------------------------------------------------------*/
RandomTalk
{
	//高速ランダムトーク処理用
	TOSTR(EVAL(CHR(0x22)+RandomTalkEx()+CHR(0x22)))
}

GetSeasonSlot
{
	//3-5,6-8,9-11,12-2……でいいよね？
	_m = month
	if _m >= 3 && _m <= 5 { '春' }
	elseif _m >= 6 && _m <= 8 { '夏' }
	elseif _m >= 9 && _m <= 11 { '秋' }
	else { '冬' }
}

GetDaySlot
{
	//10日,20日で区切りにしてみた
	_d = day
	if _d <= 10 { '上旬' }
	elseif _d <= 20 { '中旬' }
	else { '下旬' }
}

GetTimeSlotList
{
	//おおざっぱに時間判定
	//このへんは適当に書き換えるとよい。12時のところは「昼飯」にするとか。
	switch hour {
		'深夜' //0時
		'深夜' //1時
		'深夜' //2時
		'深夜' //3時
		'深夜' //4時
		'朝' //5時
		'朝' //6時
		'朝' //7時
		'朝' //8時
		'昼' //9時
		'昼' //10時
		'昼' //11時
		'昼' //12時
		'昼' //13時
		'昼' //14時
		'昼' //15時
		'夕' //16時
		'夕' //17時
		'夕' //18時
		'夜' //19時
		'夜' //20時
		'夜' //21時
		'夜' //22時
		'深夜' //23時
	}
}

GetDOWSlot
{
	//曜日
	switch GETTIME[3] {
		'日'
		'月'
		'火'
		'水'
		'木'
		'金'
		'土'
	}
}

GetMonthSlot
{
	//月をおおざっぱに
	_月 = GETTIME[1]
	_日 = GETTIME[2]
	//_曜日 = GetDOWSlot
	//_第n週 = ((_日 - 1) / 7) + 1
	
	if _月 == 8 { //8月
		'夏休み'
		return
	}
	if _月 == 3 && _日 >= 15 { //3/15以降くらい？
		'春休み'
		return
	}
	if _月 == 12 && _日 >= 24 { //12/24以降くらい？
		'冬休み'
		return
	}
	if _月 == 1 && _日 <= 3 { //正月は特別
		'正月'
		return
	}
	if _月 == 1 && _日 < 10 { //1/10以前くらい？
		'冬休み'
		return
	}
	//標準は学校
	'学校'
}


RandomTalkEval
{
	//処理用！さわるな！！
	_fname = 'ランダムトーク' + _argv[0]
	if ISFUNC(_fname) {
		EVAL(_fname)
	}
	else {
		IARRAY
	}
}

RandomTalkEx : nonoverlap
{
	/*=====かきかたの例============================
	ランダムトーク3月 : array
	{
		'ごにょごにょ'
	}
	
	1.かならず最後に : array とつけること！
	2.' 'でトークをかこむこと！ " " じゃないよ！
	=============================================*/
	
	_m = GETTIME[1]
	_d = GETTIME[2]
	_ms = GetMonthSlot
	_dayofweek = GetDOWSlot
	
	//ランダムトーク朝,昼,夕,夜,深夜etc...
	parallel RandomTalkEval(GetTimeSlotList)
	//ランダムトーク春,夏,秋,冬
	parallel RandomTalkEval(GetSeasonSlot)
	//ランダムトーク?月
	parallel RandomTalkEval("%(_m)月")
	//ランダムトーク?月?日
	parallel RandomTalkEval("%(_m)月%(_d)日")
	//ランダムトーク?月上旬,中旬,下旬
	parallel RandomTalkEval("%(_m)月%(GetDaySlot)")
	//ランダムトーク日曜,月曜...
	parallel RandomTalkEval("%(_dayofweek)曜")
	//ランダムトーク第?週日曜,月曜...
	parallel RandomTalkEval("第%(((_d - 1) / 7) + 1)週%(_dayofweek)曜")
	//ランダムトーク行事
	parallel RandomTalkEval("%(_ms)")
	//ランダムトーク行事?曜
	parallel RandomTalkEval("%(_ms)%(_dayofweek)曜")
	
	//そしてこれがふつう
	parallel ランダムトーク通常
}

/*---------------------------------------------------------------------
	こぴぺするならここまで
---------------------------------------------------------------------*/