code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;日常系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;300,会話
;TFLAG:193(1=大成功 0=成功 -1=失敗 -2=大失敗（TARGETがMASTERより教養が4以上高い)
;TCVAR:302(0=会話可能 1>=非恋慕時会話不能)
;MARK:反発刻印(3以上=会話不能)(4以上はバグ
;TCVAR:烂醉(1=通常成功or大失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_300
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_300
;指令共通メッセージ(TRAIN_MESSAGE)
;削除すると「～说着话。」とかが消えます。また、削除した場合は自動で口上色が付きません。
CALL TRAIN_MESSAGE
;口上メイン呼出
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_300_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;ここに口上書いて下さい

	;デ背包用
	;PRINTFORML 「現在ストーリー_第{CFLAG:31:1001}章_第{CFLAG:31:1002}節」
	;CALL K31_特殊会話フラグの確認と出力("デ背包")
	;PRINTFORML 「現在ストーリー_第{CFLAG:31:1001}章_第{CFLAG:31:1002}節」

	;=======================
	;憤怒、失敗、烂醉分岐を先に書いておく、RETURNさせる
	;=======================
	;憤怒
	IF CFLAG:ブチギレ
		PRINTFORML 「…………」
		PRINTFORMDW %CALLNAME:TARGET%は怒っているようだ……
		RETURN 1
	;失敗
	ELSEIF TFLAG:193 == -1
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORML 「……なんですっ？」
			PRINTFORMW 「ごめんなさい、ぼーっとしてました」
		ELSE
			PRINTFORML 「……………あーっと……」
			PRINTFORMW 「話題がつきました……」
		ENDIF
		RETURN 1
	;烂醉
	ELSEIF TCVAR:烂醉
		PRINTFORMDL %CALLNAME:TARGET%は酔いが回りすぎたのか、気分が悪そうだ…
		PRINTFORMW 「うぅ… きもぢわるぃです…」
		RETURN 1
	ENDIF

	;===================================================================
	;ストーリーイベント発生判定、詳細はユーザー関数.ERBを参照
	;===================================================================
	CALL K31_特殊会話フラグの確認と出力("会話")
	SIF RESULT
		RETURN 1

	;==========================================================================================
	;1/3で日期会話発生、確率ちょい高めに、通常会話は発生させない（RETURN消して発生させることもできる）
	;==========================================================================================
	IF !RAND(2)
		SELECTCASE DAY:2
			CASE 1
			;元旦
				IF DAY:3 == 1
					PRINTFORML 「あけまして祝贺您！」
					PRINTFORMW 「今年もよろしくお願いしますね」
					RETURN 1
				ENDIF
			;白色情人節
				IF DAY:3 == 14
					PRINTFORML 「今日は白色情人節ですね」
					PRINTFORMW 「だから何ってわけでもないですけど」
					RETURN 1
				ENDIF
			;例大祭
				IF DAY:3 == 25
					PRINTFORML 「今日は例大祭です」
					PRINTFORMW 「これを機に信者が増えてくれればいいんですが」
					RETURN 1
				ENDIF
			CASE 2
			;七夕
				IF DAY:3 == 7
					PRINTFORML 「今日は七夕ですね」
					PRINTFORMW 「短冊には何を書きますか？」
					RETURN 1
				ENDIF
			CASE 3
			;お赏月
				IF NAME_MOON(DAY:3) == "十五夜 -中秋的名月- "
					PRINTFORML 「今日は十五夜です」
					PRINTFORMW 「お赏月でもしましょうか」
					RETURN 1
				ENDIF
			;風神「二百十日」
				IF DAY:3 == 1
					PRINTFORML 「今日は立春から二百十日目」
					PRINTFORMW 「台風など天気が荒れやすいと言われている日ですね」
					RETURN 1
				ENDIF
			;萬聖節
				IF DAY:3 == 30
					PRINTFORML 「今日は萬聖節です」
					PRINTFORMW 「お菓子かいたずらか、どっちがいいです？」
					RETURN 1
				ENDIF
			CASE 4
			;情人節
				IF DAY:3 == 14
					PRINTFORML 「今日はバレンタインです」
					PRINTFORMW 「せっかくですし、巧克力食べますか」
					RETURN 1
				ENDIF
			;節分
				IF DAY:3 == 3
					PRINTFORML 「今日は節分です」
					PRINTFORMW 「おにはーそと、ふくはーうち、って奴ですね」
					RETURN 1
				ENDIF
			;聖誕節
				IF DAY:3 == 25
					PRINTFORML 「今日は聖誕節です」
					PRINTFORMW 「蛋糕、食べたいですね」
					RETURN 1
				ENDIF
			;大晦日
				IF DAY:3 == 31
					PRINTFORML 「今日は大晦日です」
					PRINTFORMW 「一年の締めくくりですね」
					RETURN 1
				ENDIF
		ENDSELECT
	ENDIF
	;=======================
	;ここから通常会話
	;=======================
	IF TALENT:恋人 || TALENT:恋慕
		LOCAL = 10
	ELSEIF TALENT:思慕
		LOCAL = 7
	ELSE
		LOCAL = 5
	ENDIF

	SELECTCASE RAND(LOCAL)
		CASE 0
			PRINTFORML 「どうやって飛んでいるのか、ですか？」
			PRINTFORML 「まぁ…奇跡の力とでも思ってください」
		CASE 1
			PRINTFORML 「幻想郷は宴会が多いだけあって酒強い人が多いですけど、私は実は酒苦手なんです」
			PRINTFORML 「すぐ酔いつぶれない上戸の方がうらやましくなるときもあります」
			PRINTFORML 「そういえば大喝酒の表現っていろいろありますけど、%CALLNAME:MASTER%さんはどの表現を使いますか？」
			PRINTFORML 「上戸？海量？ザル？　左党やワクといった言葉もあるみたいですが」
		CASE 2
			PRINTFORML 「等身大の巨大ロボとか見てみたいです」
			PRINTFORML 「え？外の世界にはあるんですか？早く幻想入りしてほしいですね…」
		CASE 3
			PRINTFORML 「能力で天候操作をしてほしい？あまり大規模だと詠唱とか大変なんですよね…」
			PRINTFORML 「まあ、機会があったら考えときます」
		CASE 4
			PRINTFORML 「信仰は、人类にとって非常に大切なものです」
			PRINTFORML 「信仰が無ければ神の力は弱まり、人に恩恵を与えることも難しくなってしまいます」
	 ;ここから思慕以上で表示
		CASE 5
			PRINTFORML 「引っ越してきたとき是ろいろと不安もありましたが、こちらの生活も悪くないものです」
			PRINTFORML 「楽しい話相手も居ますし、ね？」
		CASE 6
			PRINTFORML 「%CALLNAME:MASTER%さんもそうですけど、私の知ってる人类って妖怪じみた方ばっかりなんです…」
			PRINTFORML 「そのうち自分もそんな風になっちゃうんですかね…」
			PRINTFORMDL もうなってるのでは？という言葉を%CALLNAME:MASTER%はすんでのところで飲み込んだ…
		CASE 7
			PRINTFORML 「%CALLNAME:MASTER%さんって会話の引き出し多いですよね」
			PRINTFORML 「秘訣とか教えてもらえませんか？信仰集めにはやっぱり話術も大切ですし」
	;ここから恋慕以上で表示
		CASE 8
			PRINTFORML 「ふふ………%CALLNAME:MASTER%さんとの会話は楽しくて好きです」
			PRINTFORML 「もちろん、%CALLNAME:MASTER%さんのことも……」
		CASE 9
			PRINTFORML 「最近、何かに夢中で時間を忘れてしまうことがあるんです」
			PRINTFORML 「%CALLNAME:MASTER%さんといるときは、特に」
	;ねんのため
		CASEELSE
			PRINTFORML 「＊＊＊＊会話口上において予期しない分岐先に到達しました＊＊＊＊」
	ENDSELECT

	PRINTFORMW
ENDIF
RETURN 1
;==================================================
;301,泡茶
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_301
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_301
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_301_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF CFLAG:ブチギレ
		PRINTFORML 「…………」
		PRINTFORMDW %CALLNAME:TARGET%は怒っているようだ……
		RETURN 1
	ELSEIF TCVAR:烂醉
		PRINTFORMDL 明らかに体調の悪そうな%CALLNAME:TARGET%は弱弱しく受け取った…
		PRINTFORMW 「ぁ… 水分……ありがとうございます…」
		RETURN 1
	ENDIF

	;５％でレアイベという名のおふざけ
	IF RAND:20 == 10
		PRINTFORMDW …時を止めて茶の用意をしていた%CALLNAME:PLAYER%は時止め解除のタイミングを失敗してしまった！
		PRINTFORMW 「あ、那个…！？今、何もないところから一瞬で茶が表れて…？」
		PRINTFORMW 「というか%CALLNAME:MASTER%さん瞬間移動しませんでしたか…？」
		PRINTFORMDW さて、どう言い訳したものか…
		PRINTFORMW 「………………？？　　　……………………！！」ﾋﾟｺｰﾝ!
		PRINTFORML 「　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＼　／
		PRINTFORML 　これぞ奇跡です！この幻想郷では常識に囚われて是けないのですね！　●　●
		PRINTFORMW 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　”▽ ”」
		PRINTFORMDW …………本人が納得してるならいいか…………
		RETURN 1
	ENDIF

	SELECTCASE TFLAG:193
		CASE -1
			PRINTFORML 「んん？………んー－－……」
			PRINTFORML 「なんだか微妙な味ですね……」
		CASE 0
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「ん…気が利きますね」
					PRINTFORML 「このお菓子、よかったらどうぞ」
				CASE 1
					PRINTFORML 「ちょうど喉が渇いていたところなんです、ありがとうございます♪」
				CASE 2
					PRINTFORML 「ん、ありがとうございます」
					PRINTFORML （……って那个？今どこから茶を……？）
			ENDSELECT

		CASE 1
			PRINTFORML 「あっ、この茶おいしい……」
			PRINTFORML 「いったいどこでこんな技術を学んだんでしょう…」
	ENDSELECT

	PRINTFORMW
ENDIF
RETURN 1
;==================================================
;302,身体接觸
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_302
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_302
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_302_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*10
	SELECTCASE TFLAG:193
		CASE -1
			IF TALENT:恋人 || TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「わっ、稍微まってください」
				PRINTFORMW 「一旦、別屋てくれませんか？」
			ELSE
				PRINTFORML 「………距離感、おかしくないですか？」
				PRINTFORMDW %CALLNAME:TARGET%は嫌そうな顔をしている……
			ENDIF
		CASE 0
			IF TALENT:恋人 || TALENT:恋慕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脚を撫でた……
						PRINTFORML 「ん…………私は別にかまいませんけど、こういうのは相手を選ばないとダメですよ♪」
						PRINTFORMDW 早苗はまんざらでもなさそうだ……
					CASE 1
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脇を撫でた……
						PRINTFORML 「ちょっ！？くすぐったいですよ、もぅ…」
						PRINTFORML 「………そんなところ撫でて楽しいんでしょうか」
						PRINTFORMW 「まあ、%CALLNAME:MASTER%さんなら構いません」
					CASE 2
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の肩を揉んだ……
						PRINTFORML 「助かります、ちょうど肩が凝ってたところなんです」
						PRINTFORML 「んああ…良いですね…疲れがふきとびます…」
						PRINTFORMW 「私もお返しに%CALLNAME:MASTER%さんの肩揉んであげますね♪」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脚を撫でた……
						PRINTFORMW 「私は別にかまいませんけど、こういうのは相手を選ばないとダメですよ？」
					CASE 1
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脇を撫でた……
						PRINTFORML 「ちょっ！？くすぐったいですって！」
						PRINTFORMW 「もう…びっくりしました…」
					CASE 2
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の肩を揉んだ……
						PRINTFORML 「助かります、ちょうど肩が凝ってたところなんです」
						PRINTFORMW 「んああ…良いですね…疲れがふきとびます…」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「………？」
						PRINTFORMW 「なんですか？」
					CASE 1
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脇を撫でた……
						PRINTFORMW 「ちょっ！？なにしてるんですか！」
					CASE 2
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の肩を揉んだ……
						PRINTFORMW 「助かります、ちょうど肩が凝ってたところなんです」
				ENDSELECT
			ENDIF
		CASE 1
			IF TALENT:恋人 || TALENT:恋慕
				SELECTCASE RAND:4
					CASE 0
						PRINTFORML 「……あ……%UNICODE(0x2665) *1%」
						PRINTFORML 「……稍微っ%UNICODE(0x2665) *1%」
						PRINTFORMW 「まったくもう……%UNICODE(0x2665) *1%」
					CASE 1
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の全身を撫でまわした……
						PRINTFORMW 「ふふ……もっと近くに来てください」
					CASE 2
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脚を撫でた……
						PRINTFORML 「私は別にかまいませんけど、こういうのは相手を選ばないとダメですよ？」
						PRINTFORMW 「んっ……%UNICODE(0x2665) *1%　もう……聞いてますか？」
					CASE 3
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脇を撫でた……
						PRINTFORML 「ちょっ！？くすぐったいですよ、もぅ…」
						PRINTFORML 「あははっ、ちょっ、やめっ……んん%UNICODE(0x2665) *1%」
						PRINTFORMW 「ん%UNICODE(0x2665) *1%………んあっ%UNICODE(0x2665) *1%」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脚を撫でた……
						PRINTFORML 「私は別にかまいませんけど、こういうのは相手を選ばないとダメですよ？」
						PRINTFORMW 「んっ……%UNICODE(0x2665) *1%　もう……聞いてますか？」
					CASE 1
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脇を撫でた……
						PRINTFORML 「ちょっ…くすぐったいですって…！」
						PRINTFORML 「あっ%UNICODE(0x2665) *1%」
						PRINTFORMW (うぅ……変な声が)
					CASE 2
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の肩を揉んだ……
						PRINTFORML 「助かります、ちょうど肩が凝ってたところなんです」
						PRINTFORML 「んああ…良いですね…疲れがふきとびます…」
						PRINTFORMW 「私もお返しに%CALLNAME:MASTER%さんの肩揉んであげますね♪」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORML 「………？」
						PRINTFORMW 「なんですか？」
					CASE 1
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の脇を撫でた……
						PRINTFORMW 「ちょっ…くすぐったいですって…！」
					CASE 2
						PRINTFORMDL %CALLNAME:PLAYER%は%CALLNAME:TARGET%の肩を揉んだ……
						PRINTFORMW 「助かります、ちょうど肩が凝ってたところなんです」
				ENDSELECT
			ENDIF
	ENDSELECT

	PRINTFORML
ENDIF
RETURN 1
;==================================================
;303,道歉
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_303
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_303
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_303_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	SELECTCASE TFLAG:193
		CASE 2
			IF TALENT:恋人 || TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「もう良いですよ、仲直りしましょうか」
				PRINTFORMW 「お菓子、いっしょに食べましょう？」
			ELSE
				PRINTFORML 「あっ、點心盒ですか……」
				PRINTFORMW 「……まあ、お菓子に免じて許してあげます」
			ENDIF
		CASE 1
			IF TALENT:恋人 || TALENT:恋慕 || TALENT:思慕
				PRINTFORMW 「もう良いですよ、仲直りしましょうか」
			ELSE
				PRINTFORMW 「……次からは気をつけてくださいね？」
			ENDIF
		CASE 0
			PRINTFORMW 「……次からは気をつけてくださいね？」
		CASE -1, -2
			PRINTFORML 「……何か言いましたか？」
			PRINTFORMW 「どいてください」

	ENDSELECT

ENDIF
RETURN 1
;==================================================
;304,幫忙干活
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:沒法幫忙(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_304
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_304
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_304_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		RETURN 1
	ENDIF

	;===================================================================
	;ストーリーイベント発生判定　詳細はユーザー関数.ERBを参照
	;===================================================================
	CALL K31_特殊会話フラグの確認と出力("幫忙干活")
	SIF RESULT
		RETURN 1

	;５％でレアイベという名のおふざけイベ　早苗さんの乗ったお立ち台欲しい
	IF RAND:20 == 11
		PRINTFORML 「仕事の手伝いですか？　　良いタイミングですっ」　　　　　　　　＼　／
		PRINTFORML 「お立ち台になるようなもの、探してもらえませんか？」　　　　　　●　●
		PRINTFORMW 「もっと目立って、今よりたくさんの人を勧誘するんです！！！」　　”▽ ”
		PRINTFORMDL %CALLNAME:PLAYER%は周囲を物色し、手ごろな箱を改造して自作のお立ち台を作成した…
		PRINTFORMDL 　　　　　　　　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
		PRINTFORMDL 　　◇お手製お立ち台◇　　　　　　　　／　　　　　　　　　　 ﾉ
		PRINTFORMDL 　　　　　　　　　　　　　　　　　　／　　　　　　　　　　 ／|
		PRINTFORMDL 　　　その辺の箱から自作した　　　ム＿＿＿＿＿＿＿＿＿＿_／　|
		PRINTFORMDL 　　　急いで作ったものだが、　　　|　　　　　　　　　　　| 　|
		PRINTFORMDL 　　　出来栄えはけして悪くない　　|　　　 守矢神社 　　　|　ノ
		PRINTFORMDW 　　　　　　　　　　　　　　　　　|＿＿＿＿＿＿＿＿＿＿＿|／
		PRINTFORML
		PRINTFORMW 「おお！良いですねこれっ！　ありがとうございますっ♪」
		RETURN 1
	ENDIF

	;通常
	SELECTCASE TFLAG:193
		CASE -1
			PRINTFORML 「たまには調子が出ないときもあります」
			PRINTFORMW 「そんなときは守矢神社にお参りに行きましょう！」
			PRINTFORMDW 手伝うというよりむしろ自分が勧誘されてしまった…
		CASE 0,1
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 神社への行き方案内などが書かれたチラシ配りを手伝った
					PRINTFORMW 「なかなかよく出来たチラシでしょう？」
				CASE 1
					PRINTFORML 「奇跡！　それはすなわち神の威光そのものなのですッ！　これを無視する者には天罰が…………
					PRINTFORMW 「………ということで、信仰するとこんなたくさんのご利益がありまして……」
					PRINTFORMDW 多くの人が足を止めて早苗の話を聞いている……
				CASE 2
					PRINTFORMDL %CALLNAME:PLAYER%は最前列争いの仲裁や通行人の邪魔にならないための人混み整理などを行った
					PRINTFORMW 「%CALLNAME:MASTER%さん、细心感謝ですっ」
			ENDSELECT
	ENDSELECT

ENDIF
RETURN 1
;==================================================
;305,索求膝枕
;TFLAG:193(-5=MASTERがTARGETよりも巨体の場合(TALENT:MASTER:体型 > TALENT:体型 + 2) 1=大成功 0=成功 -1=失敗)(-5以外は地の文分岐無し)
;ABL:親密(6以上=顔をのぞき込みながら頭を撫でてくれる 3以上=ただ頭を撫でてくれる 2以下=縮こまっている)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_305
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_305
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_305_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*10
	IF TALENT:恋人 || TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「お疲れですか？　もちろん良いですよ、ふふ%UNICODE(0x2665) *1%」
				PRINTFORMW 「寝ちゃっても大丈夫ですからね」
			CASE 1
				PRINTFORML 「いい子…いい子…%UNICODE(0x2665) *1%」
				PRINTFORMW 「ん？恥ずかしいですか？ふふっ」
			CASE 2
				PRINTFORML 「こっちを見てくさだい…それから手も出して%UNICODE(0x2665) *1%」
				PRINTFORMDL %CALLNAME:PLAYER%と%CALLNAME:TARGET%は手をつなぎ見つめあった……
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「お疲れですか？　どうぞ、ごゆっくり……」
				PRINTFORMW 「眠くなってきた？ええっどうしましょう……」
			CASE 1
				PRINTFORML 「膝枕してくれなんて言ってくるの、%CALLNAME:MASTER%さんくらいのものですよ」
				PRINTFORMW 「……まぁ、%CALLNAME:MASTER%さんなら構いません」
			CASE 2
				PRINTFORML 「どうですか？私の膝枕は」
				PRINTFORMW 「なんとか言ってください、恥ずかしくなってきます…」
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「しかたないですね、少しだけですよ………？」
			CASE 1
				PRINTFORML 「膝枕してくれなんて言ってくるの、%CALLNAME:MASTER%さんくらいのものですよ」
		ENDSELECT
	ENDIF

ENDIF
RETURN 1
;==================================================
;306,撫摸肚子
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_306
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_306_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_306_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;通常
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;307,捏臉蛋
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
	;以下は先に書いた条件が優先される
	;TALENT:恋慕(受け入れつつ笑顔でやり返す
	;ABL:親密(6以上=怯生生地やり返す
	;ABL:従順(5以上=されるがまま
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_307
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_307
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_307_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
		PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の顔を好き放題つまんで楽しんだ……
		RETURN 1
	;睡眠中
	ELSEIF CFLAG:睡眠
		PRINTFORMW 「んにぃ……うーん……うーん……」
		RETURN 1
	ENDIF

	;通常

	PRINTFORMW 「な、なんですか急に……」

ENDIF
RETURN 1
;==================================================
;308,捅臉頰
;陪睡中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_308
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_308
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_308_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:睡眠
	;通常
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;309,摸頭
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_309
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗(注、抱住模式中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_309
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_309_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*10
	;時間停止中
	IF FLAG:70
		PRINTFORMDW %CALLNAME:MASTER%は髪を引っ張ったり匂いを嗅いだりして遊んだ……
		RETURN 1
	;睡眠中
	ELSEIF CFLAG:睡眠
	PRINTFORMW 「んぁ……えへへ……ふふっ……」
		RETURN 1
	ENDIF
	;通常

	IF TALENT:恋人 || TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「あー……なんだか安心します」
				PRINTFORMW 「ふふっ%UNICODE(0x2665) *1%」
			CASE 1
				PRINTFORML 「んん……あ……%UNICODE(0x2665) *1%」
				PRINTFORMW 「那个、頭だけですか………？」
			CASE 2
				PRINTFORML 「もっと……お願いします%UNICODE(0x2665) *1%」
				PRINTFORMDW %CALLNAME:TARGET%は上目遣いでこちらを見つめてきた……
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「ん………こういうとき、どう反応するのが正解なんでしょう…」
				PRINTFORMDW %CALLNAME:TARGET%は照れくさそうにしている
			CASE 1
				PRINTFORML 「あっ……むう、なんか手馴れてませんか？」
				PRINTFORMW 「まぁ、いいですけどね」
			CASE 2
				PRINTFORML 「%CALLNAME:MASTER%さんって撫でるの好きですよね」
				PRINTFORMW 「私も、悪い気分じゃないですけど…」
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「ん、髪の毛ぐしゃぐしゃになるのでほどほどにお願いします」
			CASE 1
				PRINTFORML 「こういうのはあんまり……」
		ENDSELECT
	ENDIF

ENDIF
RETURN 1
;==================================================
;331,泡茶（下薬）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_331
;成否判定
;TFLAG:192(-2=強制失敗(注、非指令終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬冰淇淋ティーは眠気を感じていると飲まない)
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_331
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_331_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF TFLAG:193 >= 0
		IF TALENT:恋人 || TALENT:恋慕 || TALENT:恋慕
			PRINTFORML 「ん、ありがとうございます」
			PRINTFORMW 「那个？　これ……気のせいですかね…？」
		ELSE
			PRINTFORML 「……………」
			PRINTFORMDW %CALLNAME:TARGET%は黙って茶を飲んでいる…
		ENDIF
	ELSE
		IF TALENT:恋人 || TALENT:恋慕 || TALENT:恋慕
			PRINTFORML 「ごめんなさい、今は稍微…」
			PRINTFORMW （まさか……いえ、気のせいですよね…？）
		ELSE
			PRINTFORML 「……………はぁ」
			PRINTFORML 「飲みませんからね」
		ENDIF
	ENDIF

ENDIF
RETURN 1
;==================================================
;332,勸酒
;TFLAG:193(0=不會喝酒成功 -1=不會喝酒失敗 -2=不會喝酒大失敗 -5=不會喝酒あきらめ)
;TFLAG:194(51=濁酒 52=清酒 53=鬼殺酒)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_332
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_332
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_332_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;333,聽牢騷
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_333
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_333
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_333_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;大成功（酔い）
		CASE 5
		;成功（酔い）
		CASE 4
		;失敗（酔い）
		CASE 3
		;大成功
			PRINTFORMW 「もう落ち着きました、ありがとうございました」
		CASE 2
		;成功
			PRINTFORMW 「……わざわざ、ありがとうございます」
		CASE 1
		;失敗
			PRINTFORMW 「……ああダメですまた腹立ってきました……」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,碰杯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=吃飯)
;TALENT:酒耐性(-2=吃飯)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_334
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_334
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_334_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_334_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;335,照料
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_335
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_335
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_335_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_335_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 1
		;大成功
		CASE 0
		;成功
		CASE -1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;336,膝枕
;ABL:親密(4以下=居心地悪げ 9以下=恥ずかしげ それ以上=幸せそう
;TIME_PROGRESS(TFLAG:膝枕した)(44以下=失敗
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_336
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_336
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_336_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*10
	IF TFLAG:193 > 0
	;寝ちゃった
		PRINTFORML 「う……眠気が……」
		PRINTFORML 「ぐぅ……………」
	ELSE
	;それ以外
		IF TALENT:恋人 || TALENT:恋慕 ||TALENT:思慕
			PRINTFORML 「たまには、こういうのも悪くありませんね……」
			PRINTFORMW 「頭、重くないですか？」
		ELSE
			PRINTFORML 「……えと……」
			PRINTFORMW 「特に言うことは無いですね…」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;350,推倒（時姦時猥褻
;TFLAG:194 (0=成功 1=人目がある　2=野外は嫌でござりまする　3=多人数プレイは勘弁　4=合意があっても情緒が足りぬ　100=合意はあるが口上内特殊判定によって失敗）
;TCVAR:初次拥抱　1=普通に合意ゲット　2=先に接吻ぐらいしろよ　3=媚薬or発情には勝てなかったよお…　4=悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
;5=強引に迫られると断れぬ(素質膽怯持ち専用) 6=まんざらでもない　7=駄目　8=論外 98=口上内特殊判定による失敗 99=口上内特殊判定による成功
;口上内特殊判定は該当するCFLAGが0だと無効
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_350
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_350_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:時間停止
		PRINTFORMW %CALLNAME:MASTER%は止まった時の中で、%CALLNAME:TARGET%を性処理の道具として使用ことに決めた…
		RETURN 1
	ELSEIF TCVAR:烂醉
		PRINTFORML 「那个、これは何……？……うぇっぷ……」
		RETURN 1
	ENDIF

	;失敗
	IF TFLAG:194 != 0
		IF TFLAG:194 == 100
			CALL M_KOJO_早苗追加_COLOR_K31
			PRINTFORML 「本当は攻められるのが好きなんでしょう？　分かってますよ%UNICODE(0x2665) *1%」
			PRINTFORML 「ふふっ%UNICODE(0x2665) *1%　そんな期待した顔されたら私……%UNICODE(0x2665) *1%」
			PRINTL
			RESETCOLOR
			RETURN 1
		ENDIF
		PRINTFORML 「ちょっ！？別屋てくださいっ」
		SELECTCASE TFLAG:194
			CASE 1 ;人目がある
				PRINTFORMW 「人目のあるところはダメですって」
			CASE 2 ;野外は嫌
				PRINTFORMW 「ここ、外なんですけど……」
			CASE 3 ;多人数は嫌
				PRINTFORMW 「多人数でって…それは流石に…」
			CASE 4 ;情緒不足
				PRINTFORMW 「……情緒とか、考えましょうよ」
		ENDSELECT
		RETURN 1
	ELSEIF TCVAR:初次拥抱 >= 6 && TCVAR:初次拥抱 <= 8
		SELECTCASE TCVAR:初次拥抱
			CASE 6 ;まんざらでもない
				PRINTFORMW 「えっと…その……そういうのは、もう少しだけ時間を下さい…」
			CASE 7 ;ダメ
				PRINTFORML 「そういうの、あまり良くないと思いますよ」
				PRINTFORMW 「離してください」
			CASE 8 ;論外
				PRINTFORMW 「何考えてるんですか、いい加減にしてください」
		ENDSELECT
		RETURN 1
	ENDIF

	;初回成功
	IF TCVAR:初次拥抱 >= 1 && TCVAR:初次拥抱 <= 5
		SELECTCASE TCVAR:初次拥抱
			CASE 1 ;普通に合意ゲット
				IF TALENT:恋人 || TALENT:恋慕
					PRINTFORML 「あ………ようやく、ですね」
					PRINTFORMW 「私、待ってたんですよ？」
				ELSEIF TALENT:思慕
					PRINTFORML 「…あ…」
					PRINTFORMW 「よ、よろしくお願いします…？」
				ELSE
					PRINTFORML 「ん……稍微……」
					PRINTFORMDW 言葉だけで大きな抵抗もない…
				ENDIF
			CASE 2 ;先に接吻ぐらいしろよ
				IF TALENT:恋人 || TALENT:恋慕
					PRINTFORML 「あ………ようやく、ですね」
					PRINTFORMW 「段階、飛ばしすぎな気もしますけど…」
				ELSEIF TALENT:思慕
					PRINTFORML 「…あ…え…先にこっちですか…？」
					PRINTFORMW 「まあ、いいですけど…」
				ELSE
					PRINTFORML 「ん……稍微……」
					PRINTFORMDW 言葉だけで大きな抵抗もない…
				ENDIF
			CASE 3 ;媚薬or発情には勝てなかったよお…
					PRINTFORML （何か、おかしいです……どうしましょう）
					PRINTFORMW 「ん……稍微……あ……」
			CASE 4 ;悔しい…刻印さえなければﾋﾞｸﾋﾞｸﾝ
					PRINTFORML （那个…………どうして）
					PRINTFORML （体が勝手に反応して……）
					PRINTFORMW 「どうして……こんなことに……」
			CASE 5 ;強引に迫られると断れぬ(素質膽怯持ち専用)
				PRINTFORML
		ENDSELECT
		RETURN 1
	ENDIF

	;成功
	IF TALENT:恋人
		PRINTFORML 「んっ……%UNICODE(0x2665) *1%、良いですよ」
		PRINTFORML 「ちゃんと気持ち良くしてくださいね%UNICODE(0x2665) *1%」
		PRINTFORMW 「今日は、どんな風にしますか……？%UNICODE(0x2665) *1%」
	ELSEIF TALENT:恋慕
		IF TALENT:MASTER:恋人
			PRINTFORML 「あ……%UNICODE(0x2665) *1%　……へぇ……%UNICODE(0x2665) *1%」
			PRINTFORML 「恋人を置いて浮気なんて、いけない人ですね」
			PRINTFORMW （それを接受私も大概、ですけどね…）
		ELSE
			PRINTFORML 「んっ……%UNICODE(0x2665) *1%、良いですよ」
			PRINTFORML 「ちゃんと気持ち良くしてくださいね%UNICODE(0x2665) *1%」
			PRINTFORMW 「今日は、どんな風にしますか……？%UNICODE(0x2665) *1%」
		ENDIF
	ELSEIF TALENT:思慕
		IF TALENT:MASTER:恋人
			PRINTFORML 「もう…%UNICODE(0x2665) *1%恋人を置いて浮気なんて、いけない人ですね」
			PRINTFORMW （それを接受私も大概、ですけどね…）
		ELSE
			PRINTFORML 「あ……%UNICODE(0x2665) *1%　また……%UNICODE(0x2665) *1%」
			PRINTFORMW 「是、よろしくお願いします…」
		ENDIF
	ELSE
		PRINTFORML 「あ……%UNICODE(0x2665) *1%」
		PRINTFORMDL 全く抵抗様子はない…
	ENDIF

ENDIF
RETURN 1
;==================================================
;351,帯出去
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_351_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*50
	IF CFLAG:同行 == 60
		IF TALENT:恋人 || TALENT:恋慕
		PRINTFORML 「あ……%UNICODE(0x2665) *1%」
		PRINTFORMW 「どこに連れて行かれるんでしょうか…%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORML 「ついて来てほしい？」
			PRINTFORMW 「もちろん良いですよ、ちなみにどこへ行くんですか？」
		ELSE
			PRINTFORML 「ついて来てほしい？」
			PRINTFORMW 「良いでしょう、わかりました」
		ENDIF
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_352
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_352
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_352_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL && TFLAG:193 == 1

	PRINTFORML 「私のことが好き、ですか？」
	PRINTFORML 「あの、その…………ありがとうございます　うれしいですっ」
	PRINTFORML 「私も、さんのこと、好きですから………」
	PRINTFORML 「えと、今後ともよろしくお願いしみゃっ」
	PRINTFORML 「………よろしくお願いします……うぅ」
	PRINTFORMDW 緊張のせいかお互い普段より硬くなってしまったが、想いはきちんと届いたようだ…

ENDIF
RETURN 1
;==================================================
;353,猥褻
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_353
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_353_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;354,陪睡（相手は起きて被窝に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:招待(0以外=起きない
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_354
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_354_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_355
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_355_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_355_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;356,邀请去阴暗处
;ABL:露出癖 + TALENT:羞恥心で判定
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_356
;成否判定
;TFLAG:192(-1＝強制失敗、0=COM依存、1=強制成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_356
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_356_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_356_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	PRINTFORML 「こんなところで、ですか…？もう……」

ENDIF
RETURN 1
;==================================================
;360,任憑擺佈
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=裙子の中を見せる 53=乳交 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅき大堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_360
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_360_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*5
	SELECTCASE RAND:10
		CASE 0
			PRINTFORML 「……？　ずいぶん老實ですね」
			PRINTFORML 「好き放題されちゃいますよ？%UNICODE(0x2665) *1%」
		CASE 1
			PRINTFORML 「そう、それでいいんです……%UNICODE(0x2665) *1%」
			PRINTFORML 「わたしに全部任せてください%UNICODE(0x2665) *1%　力を抜いて…%UNICODE(0x2665) *1%」
		CASE 2
			PRINTFORML 「ふふ、随便いいんですね…%UNICODE(0x2665) *1%」
			PRINTFORML 「もっともっと、気持ち良くしてあげます……%UNICODE(0x2665) *1%」
		CASE 4
			PRINTFORML 「もしかして、疲れて動けないとかでしょうか…%UNICODE(0x2665) *1%」
			PRINTFORML 「たとえそうでも、関係ないですけど……%UNICODE(0x2665) *1%」
		CASE 5
			PRINTFORML 「無抵抗でもやめてあげませんよ……%UNICODE(0x2665) *1%」
			PRINTFORML 「もっとイイ顔、見せてください……%UNICODE(0x2665) *1%」
		CASE 6
			PRINTFORML 「あはは……%UNICODE(0x2665) *1%」
			PRINTFORML 「もちろん、まだまだいけますよね…？%UNICODE(0x2665) *1%」
		CASE 7
			PRINTFORML 「ほら、じっとしてないで……%UNICODE(0x2665) *1%」
			PRINTFORML 「ちゃんと動いてください……%UNICODE(0x2665) *1%」
		CASE 8
			PRINTFORML 「ふふっ……%UNICODE(0x2665) *1%」
			PRINTFORML 「覚悟してくださいね……%UNICODE(0x2665) *1%」
		CASE 9
			PRINTFORML 「あははっ……%UNICODE(0x2665) *1%」
			PRINTFORML 「抵抗気もおきませんか……？%UNICODE(0x2665) *1%」
	ENDSELECT
	CALL K31_MASTER逆転経験取得(1)
	PRINTFORMW
ENDIF
RETURN 1
;==================================================
;361,抵抗
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=裙子の中を見せる 53=乳交 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅき大堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_361
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_361_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_361_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	CFLAG:TARGET:积攒度 += CFLAG:31:K31_MASTER逆転刻印*50
	SELECTCASE RAND:9
		CASE 0
			PRINTFORML 「どうしました？　嫌ですか？」
			PRINTFORML 「へぇ…%UNICODE(0x2665) *1%　是这様吗…%UNICODE(0x2665) *1%」
			PRINTFORML 「体は正直みたいですけど……？　ふふっ%UNICODE(0x2665) *1%」
		CASE 1
			PRINTFORML 「逃がしませんよ%UNICODE(0x2665) *1%」
			PRINTFORML 「ほらっ%UNICODE(0x2665) *1%　ほらっ%UNICODE(0x2665) *1%」
		CASE 2
			PRINTFORML 「抵抗んですか…？%UNICODE(0x2665) *1%」
			PRINTFORML 「なら、抵抗気も起きなくしてあげます……%UNICODE(0x2665) *1%」
		CASE 4
			PRINTFORML 「もしかして、疲れて動けないとかでしょうか…%UNICODE(0x2665) *1%」
			PRINTFORML 「たとえそうでも、関係ないですけど……%UNICODE(0x2665) *1%」
		CASE 5
			PRINTFORML 「抵抗してもやめてあげませんよ……%UNICODE(0x2665) *1%」
			PRINTFORML 「もっとイイ顔、見せてください……%UNICODE(0x2665) *1%」
		CASE 6
			PRINTFORML 「あはは……%UNICODE(0x2665) *1%」
			PRINTFORML 「それもう、わざとやってますよね…？%UNICODE(0x2665) *1%」
		CASE 7
			PRINTFORML 「へぇ……%UNICODE(0x2665) *1%　抵抗んですね…？%UNICODE(0x2665) *1%」
			PRINTFORML 「わからせてあげます……%UNICODE(0x2665) *1%」
		CASE 8
			PRINTFORML 「あは……%UNICODE(0x2665) *1%」
			PRINTFORML 「あきらめて大人しくしてくださいね……%UNICODE(0x2665) *1%」
	ENDSELECT
	CALL K31_MASTER逆転経験取得(1)
	PRINTFORMW
ENDIF
RETURN 1

;==================================================
;363,朗読（[幼稚]持ち専用）
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;CFLAG:陪睡中(1=被窝orベッドの中で本を読む
;MASTERがTARGETより大柄の場合、膝の上にTARGETを乗せる
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_363
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_363
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_363_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_363_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;364,撒豆子(萃香、勇儀、斯喀雷特姉妹用
;TFLAG:193(撒豆子に参加してる人数
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_364
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_364_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_364_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;365,向守矢神社移動(早苗、神奈子、諏訪子用
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_365
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_365_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_365_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;368,陪同行動
;技能系の行動は技能レベルが1以上なら発生
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_368
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_368_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_368_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE Activity_Type:TARGET
		CASE 0
			;▼考え事［なに考えてるの］
			;TFLAG:193,-1=はぐらかされる
			;PRINTFORMW
		CASE 1
			;▼玩遊戲［一緒に玩遊戲］
			;※[幼稚]持ちのみ
			;TFLAG:193,1=大いに盛り上がる,-1=あまり盛り上がらない
			;PRINTFORMW
		CASE 2
			;▼吃飯［一緒に吃飯する］
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 3
			;▼つまみ食い［一緒につまみ食い］
			;※[妖精]持ちと露米亜、恋、幽幽子、紫苑のみ
			;TFLAG:193,-1=MASTERはお腹が空いてなかった
			;PRINTFORMW
		CASE 4
			;▼掃除［掃除を手伝う］
			;※[掃除係]持ちまたは汚臭耐性-1以下のみ
			;PRINTFORMW
		CASE 5
			;▼運動［一緒に運動する］
			;※[音楽知識]持ちは除く（演奏になる）
			PRINTFORMW 「体を動かして気分転換ですっ」
			PRINTFORMW 「ほら、%CALLNAME:MASTER%さんもどうです？」
		CASE 6
			;▼読書［本の感想を聞く］
			;TFLAG:193,-1=集中していて返事してくれない
			;PRINTFORMW
		CASE 7
			;▼料理［料理を手伝う］→［料理を分けてもらう］
			;TFLAG:193,2=料理を手伝う,0=作った料理を食べる,-1==MASTERはお腹が空いてなかった（食べる時）
			PRINTFORMW 「私だって料理できるんですからねっ！」
			PRINTFORMW 「手伝いですか？でしたらそこの洗い物お願いしますっ」
		CASE 8
			;▼演奏［セッションする］or［伴奏する］
			;※[音楽知識]持ちのみ（TALENT:音楽知識で変化）
			;TALENT:音楽知識,1=演奏してる,2=歌ってる,3=踊ってる
			;TFLAG:193,1=ノリノリ,0=成功,-1=失敗,-2=楽器がなくて見てるだけ
			;PRINTFORMW
		CASE 9
			;▼採集［採集を手伝う］
			;PRINTFORMW
		CASE 10
			;▼釣魚［一緒に釣魚］
			;TFLAG:193,-1=釣魚竿がなくて見てるだけ
			;PRINTFORMW
		CASE 11
			;▼実験［実験を手伝う］
			PRINTFORMW 「あんまり、手伝ってもらうこともないんですけど……とりあえず、雑用お願いします」
		CASE 12
			;▼のんびり［一緒にのんびりする］
			;PRINTFORMW
		CASE 13
			;▼晩酌［晩酌に交手］
			;※酒耐性0以上のみ
			;PRINTFORMW
		CASE 14
			;▼買い物［買い物を手伝う］
			;PRINTFORMW
		CASE 15
			;▼説教［様子をうかがう］
			;※神霊・蓬莱人は除く
			;TFLAG:193,-1
			;PRINTFORMW
		CASE 16
			;▼落とし穴［いたずらに交手］or［様子をうかがう］
			;※三月精・琪露諾・克勞恩皮絲のみ
			;それ以外は落ちる側
			;PRINTFORMW
		CASE 17
			;▼雪だるま作り［一緒に雪作り］
			;※冬之月のみ
			;PRINTFORMW
		CASE 18
			;▼炬燵でのんびり［炬燵でくつろぐ］
			;※冬之月のみ
			;PRINTFORMW
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=兒童と一緒に川の字で寝る)
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_402_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	PRINTFORMW 「ふゎぁ……おやすみなさい……」

ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_403
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_403_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL && CFLAG:TARGET:睡眠 != 1

	PRINTFORML 「お疲れですか？」
	PRINTFORMW 「無理はしないでくださいね……」

ENDIF
RETURN 1
;==================================================
;405,外出(同行時约会
;条件が厄介なので、COMF405 外出.ERBを参照のこと
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_405
;外出にTRAIN_MESSAGEは無い
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_405_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;TARGETと约会
	IF CFLAG:同行
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORML 「ふふ、约会ですね」
			PRINTFORMW 「どこに行きましょうか？」
		ELSEIF TALENT:思慕
			PRINTFORML 「……えと、二人だけでですか？」
			PRINTFORML （これは…约会ですね…）
		ELSE
			PRINTFORML 「…………」
			PRINTFORMDW 早苗は黙ってついてくる。　さて、どこへ行こうか……
		ENDIF
	;TARGET以外と约会
	ELSEIF CFLAG:MASTER:同行
		PRINTFORMW 「ふーん、约会ですか…」
	;お出かけお見送り
	ELSE
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORMW 「お出かけですか、次は一緒に連れていってくださいね」
		ELSEIF TALENT:思慕
			PRINTFORMW 「あ、私も一緒に…いや、なんでもないです」
		ELSE
			PRINTFORMW 「お出かけですか、お気をつけて」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:193(0=見てるだけ 1=一緒に掃除)
;TFLAG:194(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は扫雪
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_410
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_410_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL && !FLAG:70

	SELECTCASE TFLAG:194
		CASE 0 ;汚れ最小
			PRINTFORML 「えぇ…？十分綺麗だと思うんですけど…」
			PRINTFORMW 「まぁ止めはしませんけど、ほんと掃除大好きですね…」
		CASE 1,2
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 「掃除道具を持ち步行のなんてよほどの掃除好きと見ました」
					PRINTFORMW 「清潔を保つこと是いことです」
				CASE 1
					PRINTFORML 「疲惫から奇跡の力で綺麗にしてくれって？」
					PRINTFORMW 「ならなんで掃除始めたんですか……　　やりませんよ？」
				CASE 2
					PRINTFORML 「掃除とは、汚れを落とすことだけでなく心を磨くことも兼ねているんです」
					PRINTFORMW 「それもまた一つの信仰の形と言えるでしょう」
			ENDSELECT
		CASE 3 ;汚れ高
			PRINTFORML 「……うーん、これは酷いありさまですね」
			PRINTFORMW 「こまめな掃除は大切です」
	ENDSELECT

ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_411
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_411_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF ABL:MASTER:戦闘能力 >= ABL:TARGET:戦闘能力
		PRINTFORML 「お強いんですね……私ももっと頑張らなきゃいけませんね」
	ELSE
		PRINTFORML 「Ｂをしっかり使いつつ、粘り強く戦うことが大切ですよ」
	ENDIF

ENDIF
RETURN 1
;==================================================
;412,学习
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_412
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_412_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;国数理社　中学レベル　理科だけちょい難しく　　メタ過ぎるか？
	IF ABL:MASTER:教養 >= ABL:TARGET:教養
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「『少年の日の思い出』って本、知ってますか？エーミールの出てくる奴です」
				PRINTFORML 「外の世界で読んだアレがいまだにトラウマで…」
				PRINTFORMDL 取り返しのつかない失敗への教訓だと思えばいい、と伝えた…
			CASE 1
				PRINTFORML 「40人クラスで自分と同じ誕生日の人がいる確率はどのくらいだと思います？」
				PRINTFORML 「流石ですね、正解はおよそ1割程度です」
				PRINTFORMDL ガチャ10連SSRと同じ考え方をすればいい…
				PRINTFORML 「ガチャポンがどうかしましたか？」
			CASE 2
				PRINTFORML 「虹が七色に見えるのは色によって光の波長が違うからなんですよ」
				PRINTFORMDL 赤のような波長の長い光ほど振幅が小さく速いため屈折率が小さくなる、と補足した…
			CASE 3
				PRINTFORML 「経済という言葉は、経世済民という四字熟語の略語なんです」
				PRINTFORML 「あるいは、経世済俗や経国済民の略語という説もありますね」
				PRINTFORMDL 世を治めて民を救う、といった意味の四字熟語だ…
			CASE 4
				PRINTFORML 「外の世界、日本人の宗教観は非常に独特で、多くを接受という意味ではこの幻想郷に近いものがあります」
				PRINTFORML 「あちらで信仰の力が薄まってしまったのも仕方のないことかもしれません」
				PRINTFORMDL それもあるが、仏壇や神棚のある家が減ったように根本から信仰が薄まっている可能性もある、と指摘した…
		ENDSELECT
	ELSE
		SELECTCASE RAND:5
			CASE 0
				PRINTFORML 「『少年の日の思い出』って本、知ってますか？エーミールの出てくる奴です」
				PRINTFORML 「外の世界で読んだアレがいまだにトラウマで…」
				PRINTFORMDL エーミールってだれ…
			CASE 1
				PRINTFORML 「40人クラスで自分と同じ誕生日の人がいる確率はどのくらいだと思います？」
				PRINTFORML 「残念、正解はおよそ1割程度です、結構高い確率だと思いませんか？」
				PRINTFORMDL 40分の1じゃないんだ…
			CASE 2
				PRINTFORML 「虹が七色に見えるのは色によって光の波長が違うからなんですよ」
				PRINTFORMDL 波長……波長ってなんだっけ…
			CASE 3
				PRINTFORML 「経済という言葉は、経世済民という四字熟語の略語なんです」
				PRINTFORML 「あるいは、経世済俗や経国済民の略語という説もありますね」
				PRINTFORMDL 政治経済かと思ってた…
			CASE 4
				PRINTFORML 「外の世界、日本人の宗教観は非常に独特で、多くを接受という意味ではこの幻想郷に近いものがあります」
				PRINTFORML 「あちらで信仰の力が薄まってしまったのも仕方のないことかもしれません」
				PRINTFORMDL 聖誕節を祝ったら大晦日は除夜の鐘を聞いて、元旦には初詣！　楽しいね！
		ENDSELECT
	ENDIF

ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=甜点 2=主食 1=軽食
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_413_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF DISHNAME == "释迦年糕"
		;初回
		IF FIRSTTIME("固有料理")
			PRINTFORML 「何か料理を教えてほしい、ですか…」
			PRINTFORML 「でしたら、'释迦年糕'の作り方をお教えしますねっ」
			PRINTFORML 「米粉から作る餅菓子で、'すあま'や'ういろう'と似た和菓子です」
			PRINTFORML 「甘くて美味しいんですよ♪」
		;練習
		ELSEIF STRCOUNT(DISH_TASTE, "練習")
			PRINTFORML 「練習ですか」
			PRINTFORML 「せっかくですから、花の模様とかつけてみましょうか」
		;習得
		ELSE
			PRINTFORML 「おお、いいですね」
			PRINTFORML 「教えた甲斐がありますっ♪」
		ENDIF
		RETURN 1
	ENDIF

	IF STRCOUNT(DISH_TASTE, "跳蛋")
		PRINTFORMW 「跳蛋料理ですか…」
		PRINTFORMW 「……………………………………………………………？」
		PRINTFORMW 「………ええっ！？」
		RETURN 1
	ENDIF

	SELECTCASE ABL:MASTER:料理技能
		CASE 0
			PRINTFORML 「あわわ……これは本当に料理なんでしょうか……？」
		CASE 1
			PRINTFORML 「なんだかハラハラします……でも、思ってたより上手なんですね」
		CASE 2
			PRINTFORML 「おお……手際がいいですね…予想外です」
		CASE 3,4,5,6
			PRINTFORML 「おお……手際がいいですね…予想外です」
			PRINTFORML （私よりも上手い……！？）
	ENDSELECT

ENDIF
RETURN 1
;==================================================
;414,吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:194(1=没穿内裤涮涮锅 2=禁断のメニュー 31=興奮劑高湯 30=奶酪番茄沙拉 34=银吉獣料理
;TCVAR:MASTER:308(bit0=浓郁 bit1=薄味 bit3=超辣 bit4=超甜 bit5=芥末 bit6=激酸っぱ
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_414
;成否判定
;TFLAG:192(-2=指令終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_414
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_414_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF DISHNAME == "释迦年糕"
		PRINTFORML 「ありがとうございますっ」
		PRINTFORML 「甘くて美味しいですっ♪」
		RETURN 1
	ENDIF

	IF STRCOUNT(DISH_TASTE, "跳蛋")
		PRINTFORMW 「えっ」
		PRINTFORMW 「………？」
		PRINTFORMW 「？？？？？？」
		RETURN 1
	ENDIF

	SELECTCASE ABL:MASTER:料理技能
		CASE 0
			PRINTFORML 「これが…………暗黑物质………」
		CASE 1
			PRINTFORML 「しっかりした料理で一安心です」
			PRINTFORML 「それでは、いただきますね」
		CASE 2
			PRINTFORML 「うん、美味しいです♪」
		CASE 3,4,5,6
			PRINTFORML 「ん…すごく美味しいです………♪」
			PRINTFORML （これは……予想外の美味しさです）
	ENDSELECT

ENDIF
RETURN 1
;==================================================
;415,招待吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=浓郁 bit1=薄味 bit3=超辣 bit4=超甜 bit5=芥末 bit6=激酸っぱ
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_415
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_415
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_415_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;416,演奏
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TFLAG:使用楽器(1=電子琴 2=鋼琴 3=吉他 4=小號 5=小提琴)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_416
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_416
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_416_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	SELECTCASE TFLAG:193
		CASE -1
			PRINTFORML 「おっと……」
			PRINTFORML 「たまたま失敗しただけ………だといいんですが」
		CASE 0
			PRINTFORML 「演奏もできるとは……、多芸多才がうらやましいです」
		CASE 1
			PRINTFORML 「おぉ…上手です、とっても良い音色ですね♪」
	ENDSELECT

ENDIF
RETURN 1
;==================================================
;417,午睡をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔に接吻された 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処or阴茎揉み
;CFLAG:陪睡中(1=一緒に寝ている
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_417
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_417_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;421,祈願する
;条件が複雑なので、COMF421 祈願.ERBおよび、EVENT_MESSAGE_COM400.ERBの祈願するの項を参照のこと
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_421
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_421_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_421_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;422～430は、特殊指令なので貂プレでは対応しません
;==================================================

;==================================================
;431,在浴室里放鬆
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;TFLAG:194(1=連続入浴不可(表示しない可能性あり？
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_431
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_431_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;432,在浴室里放鬆
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_432
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_432_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_432_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;436,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=单薄的高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_436
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_436_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_436_1
;==================================================
;440,等待
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_440
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_440_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;441,聽課(慧音専用
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_441
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_441_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_441_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;442,伐採（未実装
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_442
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_442_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_442_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;445,採集
;TFLAG:193(採集物のID, 0=『何も見つからなかった…』
;TFLAG:194(今回採集した個数
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_445
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_445_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_445_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「那个、何か探し物ですか？」
ENDIF
RETURN 1
;==================================================
;448,设下罠／昆虫诱捕装置
;TFLAG:193,
;   -1=罠が损壊の
;    0=罠を仕掛けた
;    1=獲物が得られた
;   10=昆虫诱捕装置を仕掛けた
;   11=昆虫诱捕装置を破棄した
;   12=ムシを捕まえた
;FLAG:194,獲物の番号
;ムシの名前は MUSHI_NAME で表示したり判別したりできます
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_448
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_448_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_448_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;449,捕虫
;TFLAG:193,
;   -2=殺してでもうばいとる（取っ組み合いの末逃がす）
;   -1=ゆずってくれ！→拒否
;    0=捕獲失敗
;    1=MASTERが捕まえた
;    2=角色が捕まえたのをMASTERが褒めた
;    3=ゆずってくれ！→渋々オッケー
;    4=ゆずってくれ！→オールオッケー
;TRAINMESSAGEを省略する場合は虫カゴに入れる処理を忘れないように
;ムシの名前は MUSHI_NAME で表示したり判別したりできます
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_449
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_449_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_449_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;483,斗虫
;TFLAG:193,
;    1=１対１の対戦
;    2=３～４人戦
;    3=２対２のチーム戦
;TFLAG:194にMASTERの順位が入っています（MASTERが1なら角色負け）
;バトル中の口上はイベント口上ファイルに入っています
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_483
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_483_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_483_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;490,道具
;TFLAG:193(使用道具のID
;TFLAG:194(対象 0=MASTER,1=TARGET
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_490
;道具にTRAIN_MESSAGEはない
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_490_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_490_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;约会系指令
;约会系口上は文字街道外出先で発生
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;現状未実装
;==================================================
;600,约会会話
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_600
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_600_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_600_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;601,约会身体接觸
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_601
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_601_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_601_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;602,约会接吻
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_602
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_602_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_602_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;603,牽手
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗でもふりほどかれたりはしません
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_603
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_603
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_603_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF TALENT:恋人 || TALENT:恋慕
		PRINTFORMW 「えへへ…约会はこうでなくっちゃ、です%UNICODE(0x2665) *1%」
		PRINTFORMDL 早苗は%CALLNAME:MASTER%の腕に抱き着いてきた……
	ELSEIF TALENT:思慕
		PRINTFORML 「あ…手…%UNICODE(0x2665) *1%」
		PRINTFORMW 「ふふ、ありがとうございますっ♪」
	ELSE
		PRINTFORML 「……あ…えっと……」
		PRINTFORMDL 早苗は緊張して固まっている……
	ENDIF

ENDIF
RETURN 1

;==================================================
;604,散步
;约会中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_604
;散步にはTRAIN_MESSAGEが無い
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_604_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;605,繞道
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文無し
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_605
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_605
;繞道にはTRAIN_MESSAGEが無い
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_605_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「那个、寄り道ですか？」
ENDIF
RETURN 1

;==================================================
;610,請吃飯
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_610
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_610
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_610_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	PRINTFORML 「吃飯ですか？　どんなお店に入りましょうか」
	PRINTFORMW 「せっかくですし、%CALLNAME:MASTER%に一任します♪」

ENDIF
RETURN 1

;==================================================
;613,賺錢（オミットされました
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_613
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_613
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_613_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_613_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;614,採購食材
;TFLAG:193(1=購入＆約會経験UP 0=購入 -1=非購入)
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_614
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_614_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_614_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;615,吃便當
;実行可能場所　地蔵小路,倒垂的柳樹下,霧之湖,玄武之澤,大蛤蟆之池,絶景之丘,山之湖,天界
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:料理技能(2未満=微妙な出来 4未満=そこそこ美味しい 4以上=絶品)
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_615
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_615_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「これ、お弁当ですっ」
	PRINTFORMW 「お口に合うかは、わかりませんけど…」
ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_早苗追加_SUCCESS_COM_K31_617
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_COM_K31_617
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_617_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「良いですね！、甜ものは大好きです♪」
ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_618
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_618_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_618_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;620,鈴奈庵
;TFLAG:193(1=貸し出しOK 0=貸し出し不可
;ITEM:10X (X=1戦術指南書 X=2調理指南書 X=3字典 X=4御伽草子
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_620
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_620_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_620_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;621,釣魚
;TFLAG:193(0=釣れない 1～4=魚 11～15=好吃的魚 610=木材 131=守矢之守札 21=跳蛋 609=氷之鱗 606=龍之爪)
;TFLAG:194(1000以上ならTARGETが釣った)
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_621
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_621_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_621_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML 「釣魚ですか…調子はどうですか？」
ENDIF
RETURN 1
;==================================================
;626,土産屋
;TFLAG:194(行動結果(-2=ひやかし -1=ウィンドウショッピング 1=400点未満（BAD） 2=～699点（NOMAL） 3=700点以上（GOOD）
;CFLAG:性格傾向による地の文分岐あり
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_626
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_626_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_626_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:194
		;ひやかし
		CASE -2
			PRINTFORML 「こういったお店は、見てるだけでも楽しいものです」
		;果然還是放棄（見送り）
		CASE -1
			PRINTFORML 「こういったお店は、見てるだけでも楽しいものです」
		;400点未満（BAD）
		CASE 1
			PRINTFORML 「あー……一応、もらっておきますね」
		;400点～699点（NOMAL）
		CASE 2
			PRINTFORML 「禮物ですか？ありがとうございますっ♪」
		;700点以上（GOOD）
		CASE 3
			PRINTFORML 「わぁ………%UNICODE(0x2665) *1%　ありがとうございますっ♪　大切にしますねっ！」
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;660,読書
;TFLAG:193(選択肢文学(1=忍殺(文学？) 2=失敗 3=文学),選択肢実用書(4=失敗 5=実用書),選択肢エッチな本(6=单薄的高い本 7=保健体育 8=カーマスートラ))
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_660
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_660_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_660_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;698,進入房間
;TARGET的房間に入る場合のみ表示
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_698
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_698_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;699,外出
;==================================================
@M_KOJO_早苗追加_MESSAGE_COM_K31_699
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_COM_K31_699_1
RETURN RESULT

@M_KOJO_早苗追加_MESSAGE_COM_K31_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,掏耳朵
;前ターン膝枕後身体接觸指令
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_早苗追加_SUCCESS_SCOM_K31_60
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_SCOM_K31_60
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_SCOM_K31_60_1
RETURN RESULT
@M_KOJO_早苗追加_MESSAGE_SCOM_K31_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;61,抱枕
;(TARGET睡眠時間or衰弱)陪睡中、前ターン抱きつく後就寝指令
;分岐無し
;==================================================
@M_KOJO_早苗追加_MESSAGE_SCOM_K31_61
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_SCOM_K31_61_1
RETURN RESULT
@M_KOJO_早苗追加_MESSAGE_SCOM_K31_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;62,亲額頭
;前ターン頭撫で後接吻
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_早苗追加_SUCCESS_SCOM_K31_62
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_SCOM_K31_62
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_SCOM_K31_62_1
RETURN RESULT
@M_KOJO_早苗追加_MESSAGE_SCOM_K31_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL

	IF TALENT:恋慕 || TALENT:恋人 || TALENT:思慕
		IF ABL:欲望 >= 5
			PRINTFORML 「んと……そっちじゃなくてですね……」
			PRINTFORMW 「もう、言わせる気ですか？」
		ELSE
			PRINTFORML 「えっと……その………」
			PRINTFORMW 「ううぅ………」
		ENDIF
	ELSE
		PRINTFORML 「えっ……何を………」
		PRINTFORMW 「あの、えっと……」
	ENDIF

ENDIF
RETURN 1
;==================================================
;63,更多的接吻
;前ターン接吻後接吻
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_早苗追加_SUCCESS_SCOM_K31_63
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_SCOM_K31_63
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_SCOM_K31_63_1
RETURN RESULT
@M_KOJO_早苗追加_MESSAGE_SCOM_K31_63_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;80,拉手
;约会出発後目的地に着くまでの間
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_早苗追加_SUCCESS_SCOM_K31_80
;成否判定
;TFLAG:192(-2=指令終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_早苗追加_MESSAGE_SCOM_K31_80
CALL TRAIN_MESSAGE
CALL M_KOJO_早苗追加_MESSAGE_SCOM_K31_80_1
RETURN RESULT
@M_KOJO_早苗追加_MESSAGE_SCOM_K31_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/M_KOJO_K31_1_日常系コマンド.ERB


code:
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;分岐作りに有用そうな変数などのメモ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;NOWEX:Ｃ絶頂 NOWEX:Ｖ絶頂 NOWEX:Ｂ絶頂 NOWEX:Ａ絶頂 NOWEX:Ｍ絶頂
;各部位の絶頂強度。まず0~3が割り当てられ、多重絶頂により最大16倍される。つまり単部位なら最大3、5重絶頂で最大48
;NOWEX:TotalEX
;多重絶頂補正を接受前の各部位絶頂強度の合計値。1~15。この貂プレにおける分岐の基準。

;TEQUIP:50
;Ｖに誰の竿が入ってるか。TEQUIP:50 = MASTERで你が挿入中となる。
;TEQUIP:51
;Ａに誰の竿が入ってるか。TEQUIP:51 = MASTERで你が挿入中となる。
;NOWEX:射精
;射精量、最大3。たとえばIF NOWEX:MASTER:射精 > 1だと、你が大量射精以上した場合となる。
;SYNCED_ORGASM(TARGET)
;相手と你が同時に絶頂した場合真となる。絶頂の部位は問わない。

;-------------------------------------------------
;絶頂時の口上
;-------------------------------------------------
@M_KOJO_早苗追加_MESSAGE_PALAMCNG_B_K31
#DIM TotalEX
CALL PALAM_MESSAGE_B
;-------------------------------------------------
;噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;射精した
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:射精
	PRINTFORMW
ENDIF
;-------------------------------------------------
;放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:放尿
	PRINTFORMW
ENDIF
;-------------------------------------------------
;絶頂
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
;合計絶頂数で分岐
;これだけではどの部位が絶頂したかは区別されないため、書き分けたければ任意で分岐を加筆されたし。
IF LOCAL

	IF NOWEX:五重絶頂
		PRINTFORML 「～～～～～～～っ！！！！～～～～～～～っ！」
		PRINTFORML 「あ゛………ぅあ゛っ………」
		PRINTFORMDL 早苗は強すぎる絶頂で気絶しかかっている…
	RETURN 1
	ENDIF

	IF NOWEX:四重絶頂
		PRINTFORML 「んい゛ぃ！～～～～～っ！！！！　あっまっ………あ゛あ゛～～～っ！」
		PRINTFORML 「うあ゛っ…いぐっ、い゛ぐぅぅう゛っ！…体中がっ…全部…イってっ…！！%UNICODE(0x2665) *3%」

	RETURN 1
	ENDIF

	IF NOWEX:三重絶頂
		PRINTFORML 「あっふぁっ、来るっっ%UNICODE(0x2665) *3%、んんああああぁっ！%UNICODE(0x2665) *3%」
		PRINTFORML 「そんな一度にやられたらっ……戻って来られなく…っ！%UNICODE(0x2665) *2%……あ゛っ%UNICODE(0x2665) *2%い゛ぐっ！%UNICODE(0x2665) *2%
	RETURN 1
	ENDIF

	IF NOWEX:二重絶頂
		PRINTDATAL
			DATAFORM 「ん゛あぁっ%UNICODE(0x2665) *1%　イく………ダメ…止まらないっ……%UNICODE(0x2665) *1%」
			DATAFORM 「んあっ、ひぅ……%UNICODE(0x2665) *1%　あ…そんな、同時にっ…%UNICODE(0x2665) *2%！！」
			DATAFORM 「やっ、やあぁ%UNICODE(0x2665) *1%　ぁ……すごい…%UNICODE(0x2665) *1%…全部きもちいぃ……%UNICODE(0x2665) *1%」
		ENDDATA
	RETURN 1
	ENDIF

	IF NOWEX:Ｃ絶頂
		PRINTFORML 「……んんっ%UNICODE(0x2665) *1%、あぁ……イキそう……あ、んっ……%UNICODE(0x2665) *1%」
	RETURN 1
	ENDIF

	IF NOWEX:Ｖ絶頂
		PRINTFORML 「あ……なか、が………%UNICODE(0x2665) *1%…イ、くっ%UNICODE(0x2665) *1%」
	RETURN 1
	ENDIF

	IF NOWEX:Ａ絶頂
		PRINTFORML 「んんっ…%UNICODE(0x2665) *1%……お尻で…%UNICODE(0x2665) *1%……こんな……%UNICODE(0x2665) *1%」
	RETURN 1
	ENDIF

	IF NOWEX:Ｂ絶頂
		PRINTFORML 「うっ%UNICODE(0x2665) *1%…あ…胸が……んあっん！%UNICODE(0x2665) *1%ぁあ！%UNICODE(0x2665) *1%」
	RETURN 1
	ENDIF

	IF NOWEX:Ｍ絶頂
		PRINTFORML 「ん、ちゅっ……%UNICODE(0x2665) *1%んぐっ……んんっ%UNICODE(0x2665) *1%　ぷぁ……はぁ……」
	RETURN 1
	ENDIF

	[SKIPSTART]
	SELECTCASE NOWEX:TotalEX
		;強
		CASE 5 TO 15
			PRINTFORMW
		;中
		CASE 2 TO 4
			PRINTFORMW
		;弱
		CASE 1
			PRINTFORMW
	ENDSELECT
	[SKIPEND]
ENDIF

;-------------------------------------------------
;奴隷の睡眠絶頂時の口上
;-------------------------------------------------
@M_KOJO_早苗追加_MESSAGE_PALAMCNG_B2_K31
CALL PALAM_MESSAGE_B
;-------------------------------------------------
;睡眠噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;睡眠射精した
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:射精
	PRINTFORMW
ENDIF
;-------------------------------------------------
;睡眠放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:放尿
	PRINTFORMW
ENDIF
;-------------------------------------------------
;睡眠絶頂
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
;合計絶頂数で分岐
;これだけではどの部位が絶頂したかは区別されないため、書き分けたければ任意で分岐を加筆されたし。
IF LOCAL
	SELECTCASE NOWEX:TotalEX
		;強
		CASE 5 TO 15
			PRINTFORMW
		;中
		CASE 2 TO 4
			PRINTFORMW
		;弱
		CASE 1
			PRINTFORMW
	ENDSELECT
ENDIF

;-------------------------------------------------
;你が射精したときに関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_00(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;TARGETの手による射精で、射精対象が非TARGET
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;避孕套
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;深喉插入
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_22(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;六九式
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:射精 && NOWEX:MASTER:射精
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:射精
		;PLAYERについてる
		IF GETBIT(TALENT:PLAYER:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF GETBIT(TALENT:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_26(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;授乳PLAY
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_21(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳夾口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_20(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_9(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門奉仕
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_8(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;泡泡浴
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:射精 && NOWEX:MASTER:射精
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:射精
		;PLAYERについてる
		IF GETBIT(TALENT:PLAYER:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF GETBIT(TALENT:性別,1)
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW 「イっちゃったんですね……%UNICODE(0x2665) *1%」
	PRINTFORMW 「ふふ、この変態さん……%UNICODE(0x2665) *1%」
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_6(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;素股
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A_K31_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

;-------------------------------------------------
;眠姦射精に関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;避孕套
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;深喉插入
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;乳交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;口交
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;肛門
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_A2_K31_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_早苗追加_MESSAGE_PALAMCNG_F_K31(ARG)
CALL PALAM_MESSAGE_F
;-------------------------------------------------
;挑逗
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/M_KOJO_K31_1_絶頂.ERB

license: unknown


code:
eraTW4.851用、早苗口上別人版

----------------------------------------------------------------------------------------------------
◆謝辞
まず、ＴＷ製作者様及び製作に関わってきた方々、口上貂プレやヘルプを用意して頂いた方に感謝申し上げます。
また、本口上の作成にあたって舞口上、文口上、典口上、極口上、早苗口上などをはじめ、
他にも多数の口上を参考にさせていただきました。ありがとうございます。
----------------------------------------------------------------------------------------------------

◆本口上について

いちゃいちゃ路線で行こうと思って書いていたが性癖には抗えなかった
你を推倒と途端に攻めっ気が出てくる早苗さんとなっております（あと足交とか…）
この中奖了デフォ早苗口上様と解釈違いを起こしそうな雰囲気がしたので別人版として出しました
せっかく別人版として出すならストーリーも書いたろ！となってストーリーも書き始めたものの予想以上に難しく…
とりあえず完結（？）させはしましたがものすごくガバガバです、誰か加筆してください（懇願）
加筆しやすいようにストーリーフォルダにも稍微したREADMEを置きます

◆パッチについて

パッチ全く当てなくても機能します、逆転刻印がフレーバー要素になるだけです
詳細はパッチ内のREADMEに

◆逆転刻印について

パッチを当てない限りはほとんどフレーバー要素です

早苗さんに被逆推て受け身Hすると逆転経験を得ます。逆転経験が一定溜まると逆転刻印を得ます（刻印LVは露天）
一部指令でも逆転経験が入るほか直接刻印を得るものもいくつかあります
LVに応じて被逆推中に推倒できる確率が下がります
LV1ならあまり影響はないですがLV3だと被逆推たらしばらくは絞られるしかありません（たぶん）
抜け出せないわけではないですが隙を見せるとまたすぐ被逆推るかと
弾幕勝負で勝つと刻印は消えます（LV減ではなくLV0へ）
未確認ですがおそらく被掌握把柄からの犬の真似とか肛門プラグとかの诶嘿嘿終了処理は通るかも
刻印レベルが高いと性騷擾指令で欲求不満が溜まるようになり被逆推やすくなります

◆履歴
2022/06/17　Ver1.1
		逆転刻印に応じて性騷擾指令実行時欲求不満が溜まるように
		風呂場、自慰関連の口上一部追加
		5日おきに酒を購入してくれるサブイベを追加
		ストーリーラストの弾幕勝負関連を変更
		総合スレ292>>829で報告のあったバグ(日常系指令の2097行目)の修正←報告ありがとうございます

2022/06/09　Ver1.01
		4章表示の利用フラグをミスる重大バグを発見したので修正
		弾幕勝負勝利時の分岐を追加

2022/06/05　Ver1.0
		公開

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/readme.txt


code:
@K31_サブイベント1_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
	IF ARGS == "会話" && CFLAG:31:1012 >= 5 && CFLAG:31:1001 > 1
	;ストーリー2話以降で発生、発生後5日以上経つと再発生
		CFLAG:31:1012 = 0
		;CFLAG:31:1012は口上イベントERBで毎日1増える
		RETURN 1
	ENDIF
RETURN 0

@K31_サブイベント1_出力
;ストーリーはここにゴリゴリ書く
;LOCALに今の所持金を退避
	FONTSTYLE 1
	PRINTFORMDW 　　◆サブイベント◆「酒定期納入」
	PRINTL
	FONTREGULAR

	IF CFLAG:31:1011 == 0
		PRINTFORMW 「あっ、%CALLNAME:MASTER%さん」
		PRINTFORMW 「%CALLNAME:MASTER%さんの酒造りの腕はなかなかのものだとお聞きしました」
		PRINTFORMW 「もし何か酒が余っていたら定期的に買い取りますよ」
		PRINTFORMW 「もちろん余裕が無いときは断ってもらってOKです」
		PRINTFORMW 「それでは、そういうことでよろしくお願いしますねっ」
		CFLAG:31:1011 = 1
	ELSEIF CFLAG:31:1011 == 1
		PRINTFORML 「あっ、%CALLNAME:MASTER%さん」
		PRINTFORMW 「余った酒が那个ば売ってもらえませんか？」
		PRINTFORML
		PRINTFORMDL [0]-良いよ
		PRINTFORMDL [1]-また今度で
		INPUT
		PRINTFORML
		IF RESULT == 0
			PRINT 何を売ろうか…
			LOCAL = MONEY
			PRINTFORML 所持金:%金額表示(MONEY)%
			CALL 酒一覧表示(0, "売却", 70)
			IF RESULT == 0
				PRINTFORML 「やっぱりやめますか？」
				PRINTFORML 「了解ですっ」
				PRINTFORMW 「また今度お聞きしますねっ」
				RETURN -1
			ENDIF
			IF ITEM:RESULT == 0
				PRINTW 品物がないので売ろうにも売れない
				PRINTFORML 「モノがないみたいですね…」
				PRINTFORMW 「急ぎでもありませんし、また今度お聞きしますねっ」
				RETURN -1
			ENDIF
			SIF ALC_NAME(RESULT) != ""
				PRINTFORMW 「おっ、%ALC_NAME(RESULT)%ですか」
			SELECTCASE RESULT
				CASE 51,56;濁酒・甜酒
					PRINTFORMW 「これくらいなら私も飲めそうです」
				CASE 52,55;清酒・御神酒
					PRINTFORMW 「お供え物にいいですね、ありがとうございます」
				CASE 59;薬酒
					PRINTFORMW 「健康増進に効き目がありそうです」
				CASE 53,58;鬼殺酒・蒸留酒
					PRINTFORMW 「私には強いですけど、好きな人も多いですね」
				CASEELSE
					PRINTFORMW 「おお…？これはなかなか珍しいものを……」
			ENDSELECT
			ITEM:RESULT -= 1
			;CALL GET_MONEY_YEN(1000, 2)
			MONEY += ITEMPRICE:RESULT * 70 / 100
			PRINTL
			PRINTFORML 所持金:%金額表示(LOCAL)%　→　%金額表示(MONEY)%
			PRINTL
			PRINTFORMW 「ありがとうございました、またお願いしますねっ」
			CALL CHANGE_CFLAG(2, 31, 50)
			CALL CHANGE_CFLAG(4, 31, 30)
			CALL KIGEN_CHANGE(31,100,1)
		ELSEIF RESULT == 1
			PRINTFORML 「了解ですっ」
			PRINTFORMW 「また今度お聞きしますねっ」
		ENDIF
	ENDIF

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_サブイベ.ERB


code:
@K31_ストーリー_第1章_あらすじ(ARG)

	PRINTL
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆第1章◆
	RESETCOLOR
	FONTREGULAR

	PRINTFORML 早苗似乎对来自外界的人类感到好奇
	IF ARG >= 1
		PRINTFORML 虽然一瞬间感觉到了不寻常的气场，但毕竟是普通人，所以决定先征集一下他
	ENDIF
	IF ARG >= 2
		PRINTFORML 感谢%CALLNAME:MASTER%帮助我在村子里做征集信徒的工作
	ENDIF
	PRINTL

	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆提示◆
	RESETCOLOR
	FONTREGULAR

	SELECTCASE ARG
		CASE 1
			PRINTFORML 	在村子里帮助早苗征集信徒
		CASE 2
			PRINTFORML 	过了一天之后、与早苗交谈
		CASEELSE
			PRINTFORML 	意外的选择　但故事进展可能会存在问题
	ENDSELECT
	PRINTFORML

RETURN 1

@K31_ストーリー_第1章_第1節_表示条件(ARGS)
	IF ARGS == "幫忙干活"
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第1章_第1節_出力

	FONTSTYLE 1
	PRINTFORMDW 　　◆第1章 第1節◆「能这么简单地帮上忙吗？」
	PRINTL
	FONTREGULAR

	IF CFLAG:31:1111 == 0 ;初回
		PRINTFORMW 「啊、%CALLNAME:MASTER%先生、你好啊」
		PRINTFORMW 「你终于愿意来听我讲话了吗？」
		PRINTFORMW 「好吧、我们先来说一下信仰的重要性吧……还是说你更在意有什么好处呢？」
		PRINTL
		PRINTFORMDW %CALLNAME:PLAYER%告诉我他是来帮我工作的…
		PRINTL
		PRINTFORMW 「你是帮忙工作的吗……」
		PRINTFORMW 「我很高兴、毕竟征集信徒也是需要一些知识量的」
		PRINTFORMW 「所 以、让我来试一试你吧　这是一个测验哦」
		PRINTL
		IF CFLAG:31:1111 + ABL:MASTER:教養 >= 4
			PRINTFORMDW %CALLNAME:PLAYER%流利地回答了各种各样的问题…
			PRINTL
			PRINTFORMW 「哦哦，那好吧……那就拜托你了！」
			PRINTFORMW 「你似乎受过良好的教育、以后会有很多事情都会来拜托你的」
			PRINTL
			PRINTFORMDW %CALLNAME:PLAYER%决定利用自己的高教养、帮助早苗征集信徒…
			RETURN 1
		ELSE
			PRINTFORMDW %CALLNAME:PLAYER%很努力地回答了这些问题、不过说实话、这些问题太难了……
			PRINTL
			PRINTFORMW 「嗯……我承认你已经尽力了、但我还是有点担心…」
			PRINTFORMW 「对了，今天就请你帮助我说‘来听我说话’吧！」
			PRINTFORMW 「听了你的话，直接入教也没关系？」
			PRINTL
			PRINTFORMDW %CALLNAME:PLAYER%点了点头，决定这次认真地听早苗传教……
			CFLAG:31:1111 ++
		ENDIF
	ELSE
		PRINTFORMW 「你想再次帮助我工作吗？」
		PRINTFORMW 「正如我之前所说，征集信徒需要一些知识量的」
		PRINTFORMW 「不过、上次热心听我讲话的%CALLNAME:PLAYER%先生应该没问题吧…？」
		PRINTFORMW 「总之，让我再试一次吧。」
		PRINTL
		IF CFLAG:31:1111 + ABL:MASTER:教養 >= 4
			PRINTFORMDW %CALLNAME:PLAYER%流利地回答了包括上次没能回答的所有问题…
			PRINTL
			PRINTFORMW 「啊、 {CFLAG:31:1111} 只听了一次，就回答了这个问题，这太神奇了」
			PRINTFORMW 「以后会我有很多事情都会来拜托你的」
			PRINTL
			PRINTFORMDW %CALLNAME:PLAYER%决定运用自己记住的知识来帮助早苗征集信徒…
			CFLAG:31:1111 = 0 - CFLAG:31:1111
			RETURN 1
		ELSE
			PRINTFORMDW %CALLNAME:PLAYER%很努力地回答了这些问题，但是有一部分答案忘记了…
			PRINTL
			PRINTFORMW 「嗯……我还是有点担心…」
			PRINTFORMW 「但我想、你肯定是比上次更富有知识了」
			PRINTFORMW 「今回はまだ、私の話を聞いていてくださいねっ」
			PRINTL
			PRINTFORMDW %CALLNAME:PLAYER%点了点头、决定再次认真地听早苗传教……
			CFLAG:31:1111++
		ENDIF
	ENDIF

RETURN 1

@K31_ストーリー_第1章_第2節_表示条件(ARGS)
	IF ARGS == "会話"
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第1章_第2節_出力

	FONTSTYLE 1
	PRINTFORMDW 　　◆第1章 第2節◆「谢谢你的帮助」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「啊、%CALLNAME:MASTER%先生、之前的事、谢谢你」
	PRINTFORMW 「以后如果%CALLNAME:MASTER%先生还能帮忙的话、那征集信徒的工作就能继续顺利进行、那可就真是帮了大忙了」
	PRINTFORMW 「毕竟、一群人做总比一个人做的效果要好」
	PRINTL
	IF CFLAG:31:1111 == 0
		PRINTFORMW 「即便如此、我还是很惊讶%CALLNAME:MASTER%先生竟然受过如此良好的教育」
	ELSE
		PRINTFORMW 「即便如此、 {CFLAG:31:1111} 听了我的话就能记住那么多知识，将来肯定会很有希望的」
	ENDIF
	PRINTFORMW 「你真的不打算成为信徒吗？」
	PRINTFORMW 「……没有？　嗯、那好吧」
	PRINTL
	PRINTFORMW 「对了，你今天来参拜了吗？
	PRINTL
	PRINTFORMDW %CALLNAME:PLAYER%回答说、这次是来和早苗说话的…
	PRINTL
	PRINTFORMW 「是故事吗，那很好啊」
	PRINTFORMW 「%CALLNAME:MASTER%先生好像来到这里没多久，我可以告诉你很多有关这里的事情」
	PRINTL
	PRINTFORMDW 早苗和我讲了很多关于幻想乡的故事…
	PRINTL
	PRINTFORMW 「………原来是这样啊」
	PRINTL
	PRINTFORMW 「我经常在村子里或者神社里、如果有什么困难的话请告诉我」
	PRINTFORMW 「此外、我还非常欢迎你来帮忙征集信徒」
	PRINTFORMW 「顺便说一句，如果你能成为我们的信徒的话、我会很高兴、那件事以后再说吧…嗯」
	PRINTFORMW 「那么、你有意愿的时候再喊我一声吧♪」

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_第1章.ERB


code:
@K31_ストーリー_第2章_あらすじ(ARG)

	PRINTL
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆第2章◆
	RESETCOLOR
	FONTREGULAR

	PRINTFORML 感谢%CALLNAME:MASTER%帮助我在村子里做征集信徒的工作
	PRINTFORML 你好像对最近各地都有偷内衣的人的传闻很感兴趣

	PRINTFORML
	IF ARG >= 2
		;PRINTFORML まだ1節しかないのでコメントアウト
	ENDIF
	IF ARG >= 3
		;PRINTFORML
	ENDIF
	PRINTL

	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆提示◆
	RESETCOLOR
	FONTREGULAR

	SELECTCASE ARG
		CASE 1
			PRINTFORML 过了一天以后，和好感度800以上的早苗对话
		CASE 2
			;PRINTFORML 妖怪之山で早苗と会話する
		CASEELSE
			PRINTFORML 	意外的选择　但故事进展可能会存在问题
	ENDSELECT
	PRINTFORML

RETURN 1

@K31_ストーリー_第2章_第1節_表示条件(ARGS)
	IF ARGS == "会話" && CFLAG:TARGET:好感度 >= 800
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第2章_第1節_出力

	FONTSTYLE 1
	PRINTFORMDW 　　◆第2章 第1節◆「謎の内衣泥棒」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「%CALLNAME:MASTER%先生、你知道最近很热门的神秘偷内衣的传闻吗？」
	PRINTFORMW 「不留下任何痕迹、而且还不被任何人发现地抢走内衣」
	PRINTFORMW 「而且自从偷内衣的小偷出没后，内裤飞舞这种奇怪的天气也被确定存在了」
	PRINTFORMW 「这已经可以说是异变了吧？」
	IF 0
		PRINTFORMW 「事实上、我也曾受到过这样的伤害……」
	ENDIF
	PRINTFORMW 「关于偷内衣的行为我有很多话想要说…」
	PRINTFORMW 「更重要的是、连妖怪都没有注意到、更别提村子里的人类了。」
	PRINTFORMW 「我认为这是一个新妖怪的作品、或者是具有某种能力的人类的作品」
	PRINTL
	PRINTFORMW 「不过灵梦她们都没有什么反应，说明这件事没有太大的危险性就是了」
	PRINTFORMW 「以防万一，我认为应该把它抓起来惩罚一下」
	PRINTFORMW 「%CALLNAME:MASTER%先生、请问你能帮我吗？」
	PRINTL
	PRINTFORMDW %CALLNAME:PLAYER%点了点头
	PRINTL
	PRINTFORMW 「好久没退治过妖怪了，很期待♪………不是的、打起精神来吧」
	PRINTL
	PRINTFORMW 「话虽如此、我们现在没有足够的信息去实行啊、必须先收集信息才行」
	PRINTFORMW 「让我们一起加油吧」

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_第2章.ERB


code:
@K31_ストーリー_第3章_あらすじ(ARG)
;ユーザ関数のCHARA_INFO_KOJOで呼び出される紹介文

	PRINTL
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆第3章◆
	RESETCOLOR
	FONTREGULAR

	PRINTFORML 听说各地都有内衣小偷出没，于是開始展開调查了
	PRINTFORML 顺便请最近和她关系很好的%CALLNAME:MASTER%来帮忙收集情报

;2節以上ある場合で、あらすじを適宜変更追加する際に利用
	PRINTFORML
	IF ARG == 2
		PRINTFORML 听了灵梦的话
	ELSEIF ARG == 3
		;PRINTFORML 霊夢と琪露諾に話を聞いた
	ELSEIF ARG == 4
		;PRINTFORML 霊夢と琪露諾と天子に話を聞いた
	ENDIF
	PRINTL

;ヒント表示
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆提示◆
	RESETCOLOR
	FONTREGULAR

	SELECTCASE ARG
		CASE 1
			PRINTFORML 过了一天之后、灵梦在同一区域与早苗对话
		CASE 2
			PRINTFORML 过了一天之后、琪露诺在同一区域与早苗对话
		CASE 3
			PRINTFORML 过了一天之后、天子在同一区域与早苗对话
		CASE 4
			PRINTFORML 过了一天之后、和早苗说话
		CASEELSE
			;PRINTFORML 	意外的选择　但故事进展可能会存在问题
	ENDSELECT
	PRINTFORML

RETURN 1

@K31_ストーリー_第3章_第1節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
;&& CFLAG:31:現在位置 == CFLAG:[[霊夢]]:現在位置
	IF ARGS == "会話" && CFLAG:31:現在位置 == CFLAG:[[霊夢]]:現在位置
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第3章_第1節_出力
;ストーリーはここにゴリゴリ書く

	FONTSTYLE 1
	PRINTFORMDW 　　◆第3章 第1節◆「情報共有」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「先和灵梦小姐共享一下情报吧」
	PRINTFORMW 「正好她就在那里，我去跟她说一下」
	PRINTL
	PRINTFORMDW 少女会話中…
	PRINTL
	PRINTFORMDW 早苗好像在和灵梦说话
	PRINTFORMDW 但愿不要太严重…、%CALLNAME:PLAYER%如此想着
	PRINTFORML
	PRINTFORMW 「我已经掌握了部分情报了，不过好像并没什么大危害，所以就不管了…」
	PRINTFORMW 「不过，这只是一点恶作剧，也可以说是无害的吧…？」
	PRINTL
	PRINTFORMW 「对了，说到恶作剧，还有一种可能是妖精干的」
	PRINTFORMW 「下次我们来听听妖精们是怎么说的吧」
	PRINTFORMW 「琪露诺在附近，你可能会知道些什么信息吧」

RETURN 1

@K31_ストーリー_第3章_第2節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
;&& CFLAG:31:現在位置 == CFLAG:34:現在位置
	IF ARGS == "会話" && CFLAG:31:現在位置 == CFLAG:[[琪露諾]]:現在位置
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第3章_第2節_出力
;ストーリーはここにゴリゴリ書く

	FONTSTYLE 1
	PRINTFORMDW 　　◆第3章 第2節◆「妖精の悪戯？」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「你说过要去问妖精，那你怎么问呢」
	PRINTFORMW 「嗯，既然是琪露诺，那就先用弹幕胜负打赢她再问吧…？」
	PRINTFORML
	PRINTFORMDL [0]-嗯，这样也好吧……
	PRINTFORMDL [1]-妖精又不是犯人，我们可以尝试正常的问清楚？
	INPUT
	PRINTFORML
	IF !RESULT
		PRINTL
		PRINTFORMW 「好！　那我先过去了」
		PRINTFORMDW ……ｱﾀｲｯﾀﾗｻｲｷ……ﾋﾟﾁｭｰﾝ
	ELSE
		PRINTL
		PRINTFORMW 「那倒也是　那我尝试问一问吧」
		PRINTFORMW （知道犯人不是妖精…？）
	ENDIF
	PRINTL
	PRINTFORMDW 少女会話中…
	PRINTL
	PRINTFORMW 「我听到了一些情报」
	PRINTFORMW 「看来这并不是她们的恶作剧…」
	PRINTFORMW 「这次没能成功、那也是没办法的事了」
	PRINTL
	PRINTFORMW 「对了、虽然不是直接的线索、但我也还是获得了一个线索」
	PRINTFORMW 「下面我们来听听天子怎么说的吧」

RETURN 1

@K31_ストーリー_第3章_第3節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
;&& CFLAG:31:現在位置 == CFLAG:34:現在位置
	IF ARGS == "会話" && CFLAG:31:現在位置 == CFLAG:[[天子]]:現在位置
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第3章_第3節_出力
;ストーリーはここにゴリゴリ書く

	FONTSTYLE 1
	PRINTFORMDW 　　◆第3章 第3節◆「緋想の剣」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「你知道绯想之剑吗？」
	PRINTFORMW 「拥有看清对方气质的能力，据说是天人的武器」
	PRINTFORMW 「这些气质最终会变成雾，然后变成天气」
	PRINTFORMW 「我认为这种能力与内裤飞舞的气候变化有关」
	PRINTFORMW 「虽然这和偷内裤的人没有直接关系，但可能会得到一些线索…？」
	PRINTFORMW 「我想听听你怎么说」
	PRINTL
	PRINTFORMDW 少女会話中…
	PRINTL
	PRINTFORMDL [0]-老老实实地等待
	PRINTFORMDL [1]-祈祷着不要被发现之前拜托了内裤的天气
	INPUT
	IF !RESULT
		PRINTL
		PRINTFORMW 「嗯，没有发现什么特别的线索…」
	ELSE
		PRINTL
		PRINTFORMW 「听说前几天%CALLNAME:MASTER%拜托了内裤飞舞的天气…」
		PRINTFORMDW %CALLNAME:PLAYER%随便找了个借口…
	ENDIF
	PRINTL
	PRINTFORMW 「总之、没有什么偷内裤的线索」
	PRINTFORMW 「有几个人可以凭个人能力做到这一点…」
	PRINTFORMW 「我不认为你会使用能力偷内裤…」
	PRINTFORMW （据天子所说"要小心邻居"、嗯……难道…？）
	PRINTFORMW （即使不愿意……嗯……也许你值得一试）
	PRINTL
	PRINTFORMW 「总之，今天的信息收集就到这里吧，谢谢你来陪我」
	PRINTL
	PRINTFORMDW 看到早苗下定决心的表情、%CALLNAME:PLAYER%有种不祥的预感……

RETURN 1

@K31_ストーリー_第3章_第4節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
;&& CFLAG:31:現在位置 == CFLAG:34:現在位置
	IF ARGS == "会話"
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第3章_第4節_出力
;ストーリーはここにゴリゴリ書く

	FONTSTYLE 1
	PRINTFORMDW 　　◆第3章 第4節◆「真的喝光了吗？」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「啊、%CALLNAME:MASTER%先生、你好啊」
	PRINTFORMW 「我有点东西想给你、可以稍微等一下吗？」
	PRINTL
	PRINTFORMDW 早苗跟%CALLNAME:PLAYER%打了招呼就离開了、过了一会就端着茶回来了…
	PRINTL
	PRINTFORMW 「因为平时都是%CALLNAME:MASTER%给我泡的茶、所以这次换作我来泡茶吧」
	PRINTFORMW 「可能有点苦，但请你忍着点喝」
	PRINTL
	PRINTFORMDW %CALLNAME:PLAYER%喝了早苗递过来的茶…………
	PRINTL
	PRINTFORMDW …………确实很苦……………………但是，总觉得………………
	PRINTFORMDW 头…………有些晕晕的…………？
	PRINTL
	PRINTFORMW 「…………………………………………」
	PRINTFORMW 「…………好了、请你一边深呼吸一边听我说话」
	PRINTFORMW 「%CALLNAME:MASTER%先生、现在由我来提问你」
	PRINTFORMW 『请如实回答问题，不要说谎』
	PRINTFORMW 「好吗？」
	PRINTL
	PRINTFORMDW …………是…………
	PRINTL
	PRINTFORMW 『偷内裤的犯人是%CALLNAME:MASTER%先生、没错吧？』
	PRINTL
	PRINTFORML [0]-是
	PRINTFORML [1]-YES
	INPUT
	PRINTL
	PRINTFORMW 「啊……真的是吗、果然是这样啊……」
	PRINTFORMW 「说不定，我有这样的想法」
	PRINTFORMW 「她们在永远亭做了一种具有强烈催眠效果的自白剂」
	PRINTFORMW 「嗯、我知道%CALLNAME:MASTER%先生并不是从根本上无可救药的坏人……」
	PRINTFORMW 「在这里「惩罚き」了之后就原谅你吧………」
	PRINTL
	PRINTFORMW 「哦、我必须要赶在药效结束之前结束」
	PRINTFORMW 『%CALLNAME:MASTER%先生…现在我一拍手、你就会忘记刚刚发生的一切』
	PRINTFORMW 『一觉醒来、我就觉得%CALLNAME:MASTER%肯定会和我来进行一场弹幕胜负的』
	PRINTFORMDW 啪！
	PRINTL
	PRINTFORMDW ……………………嗯！？
	PRINTFORMDW %CALLNAME:PLAYER%猛然醒来，发现自己好像睡着了
	PRINTL
	PRINTFORMW 「你好像有点累了」
	PRINTFORMW 「今天早点休息可能会比较好哦？」
	PRINTFORMDW %CALLNAME:PLAYER%虽然感觉好像哪里不太对劲、但还是暂时结束了对话……

	PRINTL
	CALL K31_MASTER逆転経験取得(10)

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_第3章.ERB


code:
@K31_ストーリー_第4章_あらすじ(ARG)
;ユーザ関数のCHARA_INFO_KOJOで呼び出される紹介文

	PRINTL
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆第4章◆
	RESETCOLOR
	FONTREGULAR

	PRINTFORML 偷内裤的事好像暂时解决了

;2節以上ある場合で、あらすじを適宜変更追加する際に利用
	PRINTFORML
	IF ARG >= 2
		;PRINTFORML 1節を含むあらすじ
	ENDIF
	IF ARG >= 3
		;PRINTFORML
	ENDIF
	PRINTL

;ヒント表示
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆提示◆
	RESETCOLOR
	FONTREGULAR

	SELECTCASE ARG
		CASE 1
			PRINTFORML 不知道为什么总觉得一定要进行弹幕对决…
		CASE 2
			PRINTFORML FIN
		CASEELSE
			;PRINTFORML 	意外的选择　但故事进展可能会存在问题
	ENDSELECT
	PRINTFORML

RETURN 1

@K31_ストーリー_第4章_第1節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
	IF ARGS == "弾幕勝負"
	;IF ARGS == "会話"
		RETURN 1
	ENDIF
RETURN 0

@K31_ストーリー_第4章_第1節_出力
;ストーリーはここにゴリゴリ書く

	IF CFLAG:31:1411 == 0
		CFLAG:31:1411 = 1
		CALL K31_ストーリー_第4章_第1節_出力_開始時
		RETURN 1
	ELSE
		CALL K31_ストーリー_第4章_第1節_出力_終了後
		CFLAG:31:1411 = 2
	ENDIF

RETURN 1

@K31_ストーリー_第4章_第1節_出力_開始時
;ストーリーはここにゴリゴリ書く
	FONTSTYLE 1
	PRINTFORMDW 　　◆第4章 第1節◆「弾幕勝負開始」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「要进行弹幕胜负了吗，很好哦♪」
	;PRINTL
	;PRINTFORMDW なんだかやけにノリノリのような…？
	;PRINTL
	PRINTFORMW 「对于偷内裤的%CALLNAME:MASTER%先生、可得好 好 收拾收拾才行」
	PRINTL
	PRINTFORMDW 为什么呢……
	PRINTL
	PRINTFORMW 「我会认真的，请你做好觉悟吧」ﾆｯｺﾘ
	PRINTFORMW 「请好好反省一下吧♪」
	IF ABL:MASTER:戦闘能力 > 4
		PRINTFORML (なんだか相当の実力者な雰囲気がしますし…慢心すると負けかねません）
		ABL:31:戦闘能力 += 20
		PRINTL
		PRINTFORMDW %CALLNAME:MASTER%の高い戦闘力に早苗は一切の慢心を捨てたようだ……
	ELSE
		PRINTFORMW (まず私が負けることはないでしょうが…）
		ABL:31:戦闘能力 += 2
		PRINTFORMDW 早苗にはわずかに慢心があるようだ……
	ENDIF
	PRINTFORMDL [0]-本気で勝ちに行く
	PRINTFORMDL [1]-いつも街道戦う
	PRINTFORMDL [2]-手を抜く
	INPUT
	PRINTFORML
	IF RESULT == 0
		PRINTL
		IF CFLAG:31:K31_MASTER逆転刻印 > 0
			PRINTFORMDW 刻まれた逆転刻印により%CALLNAME:MASTER%は本気を出すことができなかった……
			CALL K31_MASTER逆転刻印取得チェック("取得")
		ELSE
			ABL:MASTER:戦闘能力 += 20
			PRINTFORMDW %CALLNAME:MASTER%の戦闘力が一時的に超大幅UPした……
		ENDIF
	ELSEIF RESULT == 1
		PRINTL
		CALL K31_MASTER逆転刻印取得チェック("取得")
	ELSE
		PRINTL
		CALL K31_MASTER逆転刻印取得チェック("取得")
		CALL K31_MASTER逆転刻印取得チェック("取得")
	ENDIF

RETURN 1

@K31_ストーリー_第4章_第1節_出力_終了後
;ストーリーはここにゴリゴリ書く
	FONTSTYLE 1
	PRINTFORMDW 　　◆第4章 第1節◆「弾幕勝負終了」
	PRINTL
	FONTREGULAR

	SIF ABL:31:戦闘能力 > 20
		ABL:31:戦闘能力 -= 20

	SIF CFLAG:31:K31_MASTER逆転刻印 == 0
		ABL:MASTER:戦闘能力 -= 20

	IF CFLAG:31:1412 == 1
		;まさかの勝利
		PRINTFORMDW 胖次収集に並々ならぬこだわりを持つ%CALLNAME:PLAYER%は必死に戦った…
		PRINTFORMDW 激しい攻防戦の末、ついに勝利したのである
		PRINTL
		PRINTFORMW 「ま、負けた……！？　信じられません………」
		PRINTFORMW 「本当に人类ですか……？」
		PRINTL
		PRINTFORMW 「ぐぬぬ……あっ！？ちょっ！？引っ張らないで……！」
		PRINTL
		PRINTFORMDW 勝利者として早苗をさんざん侮辱る%CALLNAME:PLAYER%であった…
		CFLAG:31:1412 = 0
		RETURN 1
	ENDIF

	PRINTFORMDL 被动真格的早苗 牢 牢 地 控制住了……
	CALL K31_MASTER逆転刻印取得チェック("取得")
	IF CFLAG:31:1099 < 3
		CALL K31_MASTER逆転刻印取得チェック("取得")
	ENDIF

	IF TALENT:TARGET:処女 == 0 && ABL:TARGET:親密 > 8
		PRINTFORMW 「追加惩罚%UNICODE(0x2665) *1%」
		CFLAG:TARGET:积攒度 += 800
		TCVAR:TARGET:発情 = 1
		CFLAG:MASTER:诶嘿嘿 = 2
		CFLAG:诶嘿嘿 = 2
		TFLAG:COMABLE管理 = 3
		TCVAR:31:26 = 0
	ENDIF

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_第4章.ERB


code:
@K31_ストーリー_第5章_あらすじ(ARG)
;ユーザ関数のCHARA_INFO_KOJOで呼び出される紹介文

	PRINTL
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆ストーリーはここまでです◆
	RESETCOLOR
	FONTREGULAR

	PRINTFORML

;2節以上ある場合で、あらすじを適宜変更追加する際に利用
	PRINTFORML
	IF ARG >= 2
		;PRINTFORML 1節を含むあらすじ
	ENDIF
	IF ARG >= 3
		;PRINTFORML
	ENDIF
	PRINTL

;ヒント表示
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆提示◆
	RESETCOLOR
	FONTREGULAR

	SELECTCASE ARG
		CASE 1
			PRINTFORML ストーリー加筆歓迎
		CASE 2
			;PRINTFORML
		CASEELSE
			;PRINTFORML 	意外的选择　但故事进展可能会存在问题
	ENDSELECT
	PRINTFORML

RETURN 1

@K31_ストーリー_第5章_第1節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
;	IF ARGS == "会話" && CFLAG:TARGET:好感度 >= 20000000000000000000
;		RETURN 1
;	ENDIF
RETURN 0

@K31_ストーリー_第5章_第1節_出力
;ストーリーはここにゴリゴリ書く
	FONTSTYLE 1
	PRINTFORMDW 　　◆第5章 第1節◆「ストーリー無いです」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「ストーリーないです」
	PRINTFORMW 「ENDEND」

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_第5章(無いです).ERB


code:
@K31_ストーリー_第XX章_あらすじ(ARG)
;ユーザ関数のCHARA_INFO_KOJOで呼び出される紹介文

	PRINTL
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆第XX章◆
	RESETCOLOR
	FONTREGULAR

	PRINTFORML これまでのあらすじ

;2節以上ある場合で、あらすじを適宜変更追加する際に利用
	PRINTFORML
	IF ARG >= 2
		;PRINTFORML 1節を含むあらすじ
	ENDIF
	IF ARG >= 3
		;PRINTFORML
	ENDIF
	PRINTL

;ヒント表示
	FONTSTYLE 1
	CALL M_KOJO_早苗追加_COLOR_K31
	PRINTFORML ◆提示◆
	RESETCOLOR
	FONTREGULAR

	SELECTCASE ARG
		CASE 1
			;PRINTFORML 好感度20000000000000以上で早苗と会話する
		CASE 2
			;PRINTFORML
		CASEELSE
			;PRINTFORML 	意外的选择　但故事进展可能会存在问题
	ENDSELECT
	PRINTFORML

RETURN 1

@K31_ストーリー_第XX章_第1節_表示条件(ARGS)
;IFの条件がストーリ表示条件
;ARGSは指令の名前（口上の各指令部分で引数として手動で持ってきてるので注意）（←ガバガバコーディング）
;RETURN1で表示フラグON
;	IF ARGS == "会話" && CFLAG:TARGET:好感度 >= 20000000000000000000
;		RETURN 1
;	ENDIF
RETURN 0

@K31_ストーリー_第XX章_第1節_出力
;ストーリーはここにゴリゴリ書く
	FONTSTYLE 1
	PRINTFORMDW 　　◆第XX章 第1節◆「○○○○」
	PRINTL
	FONTREGULAR

	PRINTFORMW 「ここから内容」

RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/M_KOJO_K31_1_第X章.ERB


code:
ストーリー追加の際は表示条件、内容を埋めるだけではなく、ユーザ関数内の
K31_ストーリー進行　の通常処理部分の進行条件を弄る必要がある
例えば第1章第3節を追加したなら41行目
	IF CFLAG:31:1002 == 2　を
	IF CFLAG:31:1002 == 3　に変える必要があります
また、表示条件である指令の口上書き込み部分に
	CALL K31_特殊会話フラグの確認と出力("会話")
	SIF RESULT
		RETURN 1
といった文が必要（↑は会話によって表示する）

K31_ストーリー進行　の特殊処理を追加することでいろいろ出来る

ストーリー進めないサブイベント的なものやそもそもストーリーとか関係ないけど複雑な条件付きのものも
 K31_特殊会話フラグの確認と出力　を少し弄れば実装できるはず

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/readme_ストーリー制御について.txt


code:
　仕事手伝いで仲良くなる　話友達or仕事仲間
　胖次盗み事件多発→これって異変じゃね 　　時姦要素イベントぶちこむならここ？
　話を聞いて情報収集　あとは勉強指令でイベントとか?
	琪露諾　　　冤罪、妖精のいたずら説　妖精内での人選は適当
	咲夜さん　　実は正解に近い、時間停止でいけるんじゃね説
	天子　　　　胖次天気は緋想の剣による異常気象説
	ゆかりん　　まさかの胖次大好き隙間妖怪説←ﾏﾃ
	霊夢魔理沙　主人公組に話を聞く
	覚　　　一発でアウトやんけ草
　調査でボロを出しまくる你→你が可疑のでは？からの一服盛られて自白→　弾幕勝負でおしおきです☆ED

path: ERB/口上・メッセージ関連/個人口上/【31】早苗さん別人版/ストーリーイベント/ストーリーアイデア箱.txt