:改変詳細/神のメッセージ差し替え

変更履歴

2013/01/07T(人柱)版の変更内容

・神のメッセージの差し替えでtxtファイル内に未指定のタグは差し替え前のメッセージを表示するように
・神のメッセージの差し替えでdefaultが使用できるように

2012/12/17T(人柱)版の変更内容

・user\talk\godフォルダにカスタムゴッドと同じ書式の(神の識別子).txtファイルを配置することで神のメッセージ(既存の神、カスタムゴッド問わず)を差し替えられるように

変更箇所

(11133行目付近:txtgod関数)差し替えファイルがある場合に神のメッセージをカスタムゴッドのメッセージ処理に振り替える

// MMA 20121020OO START
//#deffunc txtgod int prm_V20120618_445, int prm_V20120618_446
//	if ( prm_V20120618_445 == 0 ) {
#deffunc txtgod str prm_V20120618_445, int prm_V20120618_446
	if ( prm_V20120618_445 == "eyth" ) {
// MMA 20121020OO END
		return
	}
	txtef 5
	procid = (procid + 1) \ 4
	proclist(procid) = "god text" + " ct:" + ct
// MMA 20121217T START
	godtxtfile = ""
	exist exedir + "user\\talk\\god\\" + prm_V20120618_445 + ".txt"
	if ( strsize != (-1) ) {
		godtxtfile = exedir + "user\\talk\\god\\" + prm_V20120618_445 + ".txt"
		txtcgod 0, prm_V20120618_446
// MMA 20130106T START
		if ( stat != 0 ) {
// MMA 20130106T END
		return
// MMA 20130106T START
		}
// MMA 20130106T END
	}
// MMA 20121217T END
// MMA 20121020OO START
	if ( findcgodno(prm_V20120618_445) != (-1) ) {
		txtcgod stat, prm_V20120618_446
		return
	}
// MMA 20121020OO END

(txtcgod関数)差し替えファイルが指定された場合はカスタムゴッドtxtの代わりにロードする

#deffunc txtcgod int prm_OO20120909_N031, int prm_OO20120909_N032
	notesel buff
// MMA 20121217T START
	if ( godtxtfile != "" ) {
		noteload godtxtfile
// MMA 20130106T START
		godtxtfile = ""
// MMA 20130106T END
	}
	else {
// MMA 20121217T END
	buff = "" + usergodtxt(prm_OO20120909_N031)
// MMA 20121217T START
	}
// MMA 20121217T END
	_switch_val = prm_OO20120909_N032
	if ( 0 ) {
		_switch_sw++
	}
	if ( _switch_val == 5 | _switch_sw ) {
		_switch_sw = 0
		sline = "%txtBelieve"

(txtcgod関数)defaultが指定された時に既定のメッセージを表示する

	if ( hajime != (-1) ) {
		buff = strmid(buff, hajime, instr(buff, hajime + 1, "%"))
		notedel 0
		if ( noteinfo(0) > 0 ) {
			noteget serifutxt, rnd(noteinfo(0))
			buff = serifutxt
			if ( buff != "" & buff != "default" ) {
				convert_word 0, 0
				tcolbk = tcol@txtfunc(0), tcol@txtfunc(1), tcol@txtfunc(2)
				tcolfixbk = tcolfix@txtfunc
				split buff, "|", splitbuff
				repeat stat

				noteunsel
				return 1
			}
		}
	}
// MMA 20130106T START
	if ( buff == "default" ) {
		noteunsel
		return 0
	}
// MMA 20130106T END
	if ( buff == "" ) {
		noteunsel
		return 1
	}
	noteunsel
	return 0