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_K55_300
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_300
;コマンド共通メッセージ(TRAIN_MESSAGE)
;削除すると「～話をした。」とかが消えます。また、削除した場合は自動で口上色が付きません。
CALL TRAIN_MESSAGE
;口上メイン呼出
CALL M_KOJO_MESSAGE_COM_K55_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
LOCAL = 1
IF LOCAL
	;うふふが解除されたのを念押しする処理
	CFLAG:1211 = 0
	;◆
	IF CFLAG:ブチギレ
		PRINTFORMW 「……お話しする気になれません」
	;一回きりの特殊会話 ※CFLAG:1001を使用(対象bitは各タイトル部分に)

	;恋慕後初会話、一回のみ
	ELSEIF TALENT:恋慕 && CFLAG:1204 == 0
		PRINTFORMW 「……」
		PRINTFORMW 白蓮はぽーっとした表情であなたを見つめている。
		PRINTFORMW 「何かあったのか、ですか……うーん…ふふ。何でしょうかね？」
		PRINTFORMW 白蓮はあなたにくるりと背を向けると、上機嫌で歩き出した。
		CFLAG:1204 = 1
	;◆デート中
	;1/2で通常会話も呼び出す
	ELSEIF CHK_DATENOW(CFLAG:TARGET:デート中) && RAND:2 == 0
;		SELECTCASE CFLAG:MASTER:現在位置
;		;人間の里
;		;博麗神社
;			;神社縁側
;			CASE 340
;
;		;迷いの竹林
;			;小雀の宿
;			CASE 460
;
;		;魔法の森
;			;香霖堂
;			CASE 520
;
;			;人形の洋館
;			CASE 550
;
;		ENDSELECT
		IF TALENT:恋人
			A = RAND:5
			IF A == 0
				PRINTFORMW 「……折角二人きりなんですから、何か特別なことでもしたいですね」
				PRINTFORMW 「とは言ってみたものの、なにか案があるわけでもないんですよねぇ」
				PRINTFORMW 「…まあ、変に気張らず、楽しむのが一番ですかね」
			ELSEIF A == 1
				PRINTFORMW 「……いえ、ちょっと考え事を」
				PRINTFORMW 「私、そこそこ顔の売れている方ではあると思いますし、私達を見た方々はどう思うかな、と」
				PRINTFORMW 「とまれ、私の心づもりは決まっていますし、誰にどう思われようと詮のないことですね」
			ELSEIF A == 2
				PRINTFORMW 「こうして外に出てお話しすると、いつもより楽しい感じがしますね」
				PRINTFORMW 「まあ、あなたと一緒なのですから、何をしていても楽しいんですけどね」
			ELSEIF A == 3
				PRINTFORMW 「あ、変な形の雲です」
				PRINTFORMW 「……あ、本当。あれも面白い形ですね」
			ELSE
				PRINTFORMW 「……封印を解かれた時には、好きな人と一緒にお出かけするなんて思ってもいませんでした」
				PRINTFORMW 「長生きはしてみるものですね」
			ENDIF
		ENDIF
	;通常会話
		;悪天候で外(山門、境内、裏庭、墓地)にいる
		;吹雪
		ELSEIF OUTROOF(CFLAG:MASTER:現在位置) && TIME:5 == 9
			IF RAND:3 == 0
				PRINTFORML 「わ、わざわざこんな天気の時に外でお話ししなくても！」
				PRINTFORMW 「早く、早く寺の中へ！」
			ELSEIF RAND:2 == 0
				PRINTFORML 「早く中に戻りましょう？」
				PRINTFORMW 「こんなところに居続けたら風邪じゃ済みませんよ」
			ELSE
				PRINTFORMW 「寒いとかいう騒ぎではありません！早く屋内に行きましょう、ね！？」
			ENDIF
		;あられ
		ELSEIF OUTROOF(CFLAG:MASTER:現在位置) && TIME:5 == 13
			;傘を持っている
			IF ITEM:561 > 0
				PRINTFORML 広げた傘にあられが当たり、派手な音を立てている
				PRINTFORML 「傘を持っていても、いつ壊れるか分からないくらいですね」
				PRINTFORMW 「早く中に入りましょう。このまま外にいては危ないですよ」
			ELSE
				PRINTFORML 「…そういえばあそこの棚にかき餅が残っていましたね」
				PRINTFORMW 「…なんてことを言っている場合ではありません。早く戻りましょう、%CALLNAME:MASTER%」
			ENDIF
		;成功
		ELSEIF TFLAG:193 == 1
			IF CFLAG:行動 == 5
				PRINTFORML 「ふふ、%CALLNAME:MASTER%とお話しするのは楽しいですね」
				PRINTFORMW 「仕事中でなければ、お話の続きといきたいところですが…」
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「ああ、なるほど…確かにそういった視点もありますね」
					PRINTFORMW 白蓮は心底感心したようだ。
				ELSEIF RAND:2 == 0
					PRINTFORML 「あはは、それは傑作ですね」
					PRINTFORMW どうやらこの冗談は正解だったようだ
				ELSE
					PRINTFORMW 「ううーん、%CALLNAME:MASTER%とお話しするのは楽しいですね」
				ENDIF
			ENDIF
		;失敗
		ELSEIF TFLAG:193 == -1
			IF RAND:5 == 0 && OUTROOF(CFLAG:MASTER:現在位置)
				PRINTFORML 「あ、変わった形の雲です」
				PRINTFORMW 「……それがなんだ、とはなんですか」
			ELSEIF RAND:4 == 0
				PRINTFORML 「……ええと、あはは……」
				PRINTFORMW 白蓮は苦笑している…
			ELSEIF RAND:3 == 0
				PRINTFORML 「そんなこと、冗談でもいうものではありませんよ？」
				PRINTFORMW たしなめられてしまった…
			ELSEIF RAND:2 == 0
				PRINTFORML 「……はあ、そうなんですね」
				PRINTFORMW あまり興味のない話題だったようだ。
			ELSE
				PRINTFORML 「…そういう言い方は感心しませんね」
				PRINTFORMW あまり触れるべき話題ではなかったようだ…
			ENDIF
		;会話累積値が閾値を超えての失敗
		ELSEIF TCVAR:302 && !TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORMW (……どうしましょうか、話題が尽きてしまいました)
			ELSE
				PRINTFORMW 「……無理にお話ししようとしなくても大丈夫ですよ？」
			ENDIF
		;普通
		ELSE
			;添い寝中
			IF CFLAG:添い寝中
				IF RAND:5 == 0
					PRINTFORMW 「ふうん…あなたもなかなか、苦労してるのねえ…」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「時々星が寝ぼけて布団に入ってくるんです。そうなったら、どうしましょうか…」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「こうして同じ布団に入ってみると、あなたの身体って結構温かいんですねえ…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「うーん…布団が少し狭いかもしれませんね。もう少し寄らないと…」
				ELSE
					;季節の話
					SELECTCASE DAY:2
					;春
					CASE 1
						IF RAND:2 == 0
							PRINTFORML 「とりわけ暑くもなく、寒くもなく。気持ちよく眠れる季節ですねえ」
							PRINTFORMW 「ふわぁ～…。あ、ごめんなさい。はしたないわね」
						ELSE
							PRINTFORMW 「…夜は少し冷えこみますかね」
							SIF TALENT:恋慕
								PRINTFORMW 「…ちょっとあなたを抱き枕代わりに…なんて言ってみたり…」
						ENDIF
					;夏
					CASE 2
						IF RAND:3 == 0
							PRINTFORML 「はぁ、…暑いです」
							PRINTFORMW 「風でもあれば幾分マシなのでしょうが…」
							SIF TALENT:恋人
								PRINTFORMW 「いっそ激しく運動すればむしろ涼しく感じられますかね…？」
						ELSEIF RAND:2 == 0
							PRINTFORML 「鵺鳥…トラツグミは夏の季語ですけれど…」
							PRINTFORMW 「うちのぬえが夜鳴きしているのは聞いたことがありませんね」
						ELSE
							PRINTFORML 「あんまり汗をかくと、襦袢が肌に張り付いてしまって…」
							PRINTFORMW 「…う、そんなにジロジロ見ないでください。恥ずかしいです」
						ENDIF
					;秋
					CASE 3
						IF RAND:4 == 0
							PRINTFORML 「夏用の布団ではいささか寒いですが、毛布では暑そうですね」
							PRINTFORMW 「うーん……もう少しこちらに寄ってもらえますか」
						ELSEIF RAND:3 == 0
							PRINTFORML 「明日の献立はどうしましょうか。なにかご要望はありますか？」
							PRINTFORMW 「味覚の秋とも言いますからね。腕の振るい甲斐があります」
						ELSEIF RAND:4 == 0
							;出現しにくいのは仕様。結構美味らしい。
							PRINTFORML 外からは虫の音が静かに聞こえてくる
							PRINTFORMW 「…コオロギも食べられるんでしょうか」
							PRINTFORML 「いえ、イナゴも見た目にさえ慣れてしまえばなかなか美味ですし、あるいは…」
							PRINTFORMW 「……艶消しに過ぎますね。この話はやめにしましょう」
						ELSE
							PRINTFORML 外からは虫の音が静かに聞こえてくる
							PRINTFORML 「秋の夜長を歌い通して、愛するものへ呼びかけ続ける…」
							PRINTFORMW 「ふふ、素敵なものですね」
						ENDIF
					;冬
					CASE 4
						IF RAND:3 == 0
							PRINTFORMW 「うーん、やはり隣に人がいると暖かいですね」
							SIF TALENT:恋慕
								PRINTFORMW 「…またお願いしていいですか？%CALLNAME:MASTER%」
						ELSEIF RAND:2 == 0
							PRINTFORML 「今夜は特に冷えますね…」
							PRINTFORMW 「…」
							SIF TALENT:恋人
								PRINTFORMW 「…抱き着いていいですよね？」
						ELSE
							PRINTFORMW 「こう冷えると、明日には霜柱が立っているかもしれないわね」
						ENDIF
					ENDSELECT
				ENDIF
			;仕事中
			ELSEIF CFLAG:行動 == 5
				IF RAND:2 == 0
					PRINTFORML 「こうやって仕事の合間にお話をするのも、気晴らしになっていいわね」
					PRINTFORMW 「……手伝ってもらえるのが一番嬉しいのだけれど」
				ELSE
					PRINTFORML 「星は優秀ですね。あの子のおかげでいつも助かっています」
					PRINTFORMW 「…もっとも、失せ物癖だけはどうにかしてほしいのだけれど」
				ENDIF
			;浴場にいる
			ELSEIF BATHROOM(CFLAG:現在位置)
				;お風呂でくつろぐの後
				IF PREVCOM == 403
					IF RAND:4 == 0
					;季節の話
						;夏
						IF DAY:2 == 2
							PRINTFORML 「ふー…やっぱり、汗を流すと気持ちいいですねえ…」
						;冬
						ELSEIF DAY:2 == 4
							PRINTFORMW 「うう～ん、冬のお風呂は最高ですね」
						ELSE
							PRINTFORMW 「はぁ～♪生き返るわぁ～」
						ENDIF
					ELSEIF RAND:3 == 0 && TALENT:恋人
						PRINTFORML 「…こういった場合、『私をスポンジ代わりに使って%UNICODE(0x2665)%』とか言うべきなのかしら」
						PRINTFORMW 白蓮はとても難しそうな顔をしながら問いかけてきた。
					ELSEIF RAND:2 == 0
						PRINTFORML 「ふう…」
						PRINTFORMW 「…肩こりが辛いです」
					ELSE
						PRINTFORMW 「うーん、こうしてまったり温まるのはいいですね…」
					ENDIF
				ELSE
					;朝
					IF TIME:2 == 1
						IF RAND:2 == 0
							PRINTFORML 「うーん、朝風呂とは贅沢ですねぇ」
						ELSE
							PRINTFORMW 「あら、あなたも朝から？」
						ENDIF
					ELSE
						IF TALENT:恋人
							IF RAND:4 == 0
								PRINTFORMW 「一緒にお風呂っていうのも、いいものですね…」
							ELSEIF RAND:3 == 0
								PRINTFORML 「そーれ、南無三っ」
								PRINTFORML 白蓮に水鉄砲をかけられた。
								PRINTFORMW 「ふふふ、この距離なら反撃は…わぷっ！？」
							ELSEIF RAND:2 == 0
								PRINTFORMW 「うーん、ぽかぽかしますね」
							ELSE
								PRINTFORMW 「…触りたかったら、触っても構いませんよ？」
							ENDIF
						ELSE
							IF RAND:3 == 0
								PRINTFORMW 「……落ち着きませんね」
							ELSEIF RAND:2 == 0
								PRINTFORMW 「私はもうすぐ上がるから、お構いなく」
							ELSE
								PRINTFORML 「そーれ、南無三っ」
								PRINTFORML 白蓮に水鉄砲をかけられた。
								PRINTFORMW 「ふふ、なかなか上手いものでしょう」
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			;添い寝中でも現在地が浴場でもない、普通の会話。
			;ひじりんの食欲はおっぱいに還元されているに違いない。そうであってほしい。
			ELSE
				IF RAND:7 == 0
				;季節の話
					SELECTCASE DAY:2
					;春
					CASE 1
						IF RAND:4 == 0
							PRINTFORML 「春ですねぇ…」
							PRINTFORML 「……」
							PRINTFORMW 「…はっ！寝てません、寝てませんよ」
						ELSEIF RAND:3 == 0 && GROUPMATCH(CFLAG:現在位置, 1, 2, 6, 21) == 0
							PRINTFORML 「桜餅食べます？」
							PRINTFORML 「塩漬けの葉を載せてみよう、と考えた人は天才ですね。見目がかわいらしいですし」
							PRINTFORMW 「あむっ…♪ちょうどいいアクセントになって美味です」
						ELSEIF RAND:2 == 0
							PRINTFORML 「この時期になると、封印を解かれた頃のことを思い出しますねえ」
							PRINTFORML 「長い時を経ていても、多くの人間は変わっていません」
							PRINTFORML 「…でも、ゆっくりと理解を深めていってもらえば、きっと世界を変えられる」
							PRINTFORMW 「私はそう信じているのです」
						ELSE
							PRINTFORML 「花見の時期ですね。この辺りでは博麗神社が有名と聞きます」
							PRINTFORMW 「出来れば皆で行きたいですが、あまり大勢だと余計な騒ぎになりそうですしねえ…」
						ENDIF
					;夏
					CASE 2
						IF RAND:3 == 0
							PRINTFORML 「暑い時分には、汲みたての井戸水がありがたいですね」
							PRINTFORMW 「汗もかきますし、水分補給は欠かせません」
						ELSEIF RAND:2 == 0
							PRINTFORML 「こう暑いと、胸の間に汗がたまって…」
							PRINTFORMW 白蓮は難しい顔をしている。
						ELSE
							PRINTFORML 「暑いですねぇ…」
							PRINTFORMW 白蓮は額の汗をぬぐった。
						ENDIF
					;秋
					CASE 3
						IF RAND:4 == 0
							PRINTFORML 「そろそろ新米の出てくる頃でしょうか」
							PRINTFORML 「檀家の方が持ってきてくださることもあるのですが、
							PRINTFORML 　人のご厚意を頼みにするのは良くありませんからね」
							PRINTFORMW 「今度里へ行ったときに市でも覗いてみましょう」
						ELSEIF RAND:3 == 0
							PRINTFORMW 「山が色づいてくると、まさしく秋と言った感じがしますね」
						ELSEIF RAND:2 == 0
							PRINTFORML 「山へ紅葉狩りにでも行ければいいのですが」
							PRINTFORMW 「あまり大所帯で行くとなると、天狗たちの説得が難しいですね」
						ELSE
							PRINTFORML 「秋は美味しいものがたくさんありますから、料理も一層楽しいですね」
							PRINTFORMW 「何か食べたいものはありますか？」
						ENDIF
					;冬
					CASE 4
						IF RAND:4 == 0
							PRINTFORML 「星が石畳を外れて歩く季節になったわね」
							PRINTFORMW 「きっと霜柱でも踏んでいるのでしょう。中々ほほえましい眺めですよ」
						ELSEIF RAND:3 == 0
							PRINTFORML 「寒い時分でも、旬の食材は美味しいものです」
							PRINTFORMW 「蓮根、大根、長芋、長ネギ、フキノトウ…あぁ、心が躍ります」
						ELSEIF RAND:2 == 0
							PRINTFORML 「ああ……寒いですね」
							PRINTFORMW 「しばらく外に出ていただけで、手がかじかんでしまいました…」
						ELSE
							PRINTFORML 「響子に集めてもらった落ち葉で、たき火でもしようかしら」
							PRINTFORMW 「ついでに焼き芋を作れば、一石二鳥ですね」
						ENDIF
					ENDSELECT
				;天気の話
				;/死にやすいが仕方ない
				ELSEIF RAND:6 == 0
					SELECTCASE DAY:5
					 ;晴れ、晴天
					CASE 0,1
						;夜
						IF TIME:2 == 3
							PRINTFORMW 「星がよく見えますね…星座の名前でも覚えれば、一層楽しいのでしょうか」
						;春、秋
						ELSEIF GROUPMATCH(DAY:2, 1, 3)
							PRINTFORMW 「気持ちの良い晴天ですね。こういう日が続けばいいのですが」
						;夏
						ELSEIF DAY:2 == 2
							PRINTFORMW 「うーん、夏らしい陽気、などと言えば聞こえはいいかもしれませんが…」
						;冬
						ELSE
							PRINTFORMW 「日差しのある分には、比較的過ごしやすいですかね」
						ENDIF
					;薄曇
					CASE 2
						;夜
						IF TIME:2 == 3
							PRINTFORMW 「夜霧の立ちておほほしく、と。こういう月もなかなか良いものですが」
						;夏
						ELSEIF DAY:2 == 2
							PRINTFORMW 「蒸しますが、日差しが強くないだけマシですね」
						ELSE
							PRINTFORMW 「薄曇り、と言ったところでしょうか。まぁ、そう悪い天気ではありませんね」
						ENDIF
					;曇
					CASE 3
						;夜
						IF TIME:2 == 3
							PRINTFORMW 「月の明かりがないと、だいぶ暗いですね」
						ELSE
							PRINTFORMW 「だいぶ曇っていますね。降らなければいいのですが」
						ENDIF
					;雨、大雨、霧雨
					CASE 4,5,6
						;外(山門、境内、裏庭、墓地)
						IF OUTROOF(CFLAG:MASTER:現在位置)
							;傘を持っている
							IF ITEM:561 > 0
								PRINTFORML 「傘があるとはいえ、濡れるときは濡れてしまうのですよね」
								PRINTFORML 「なかなか困ったものです」
								PRINTFORMW 白蓮は難しい顔をしている。
							ELSE
								PRINTFORML 白蓮は両手をかざして雨を避けている。
								PRINTFORMW 「あまり濡れると風邪をひいてしまいますから、早く屋内に入りましょう」
							ENDIF
						ELSE
							PRINTFORMW 「恵みの雨、ですね。新たな実りが地に満ちて、私たちの食卓へ…ふふ」
						ENDIF
					;霧
					CASE 7
						;外(山門、境内、裏庭、墓地)
						IF OUTROOF(CFLAG:MASTER:現在位置)
							PRINTFORML 「ずいぶんと深い霧ですねえ」
							PRINTFORMW 「足元には気を付けてくださいね、%CALLNAME:MASTER%」
						ELSE
							PRINTFORMW 「わあ、視界が効きづらいですね」
						ENDIF
					;雪、細雪、霧雪
					CASE 8,10,11
						;外(山門、境内、裏庭、墓地)
						IF OUTROOF(CFLAG:MASTER:現在位置)
							PRINTFORMW 「ううーん、雪は綺麗だけれど、寒いから中へ入って火鉢にあたりたいですね」
						ELSE
							PRINTFORML 「寒いから雪が降るのか、雪が降るから寒いのか…どっちなんでしょうね」
							PRINTFORMW 白蓮はニコニコとしながら言った。
						ENDIF
					;吹雪
					CASE 9
					;※この天候で外でのんびり話すのもおかしいので外で話すのは上に移動
						PRINTFORML 「なかなか強い吹雪ですね」
						PRINTFORMW 「屋外に出る時には十分気を付けてください、%CALLNAME:MASTER%」
					;みぞれ
					CASE 12
						;外(山門、境内、裏庭、墓地)
						IF OUTROOF(CFLAG:MASTER:現在位置)
							PRINTFORML 「中途半端に雪が混じっている分、厄介なんですよねえ」
							PRINTFORMW 「足元には気を付けてくださいね、%CALLNAME:MASTER%」
						ELSE
							PRINTFORML 「うーん、みぞれですか…」
							PRINTFORMW 「そのうちに雨になるか、それとも雪になるか…」
						ENDIF
					;あられ
					CASE 13
					;※吹雪に同じ
						PRINTFORML あられが屋根を叩いて、激しい音を立てている。
						PRINTFORMW 「言うまでもない事でしょうが、危ないから外出は控えてくださいね？」
					ENDSELECT
				;◆前コマンドがお茶淹れ＆1/2
				ELSEIF PREVCOM == 301 && RAND:2 == 0
						PRINTFORML 「うーん、やはりお茶はいいですねえ」
						PRINTFORMW 「温かくて、気持ちに余裕が出るといいましょうか」
				;ここから汎用の普通会話
				ELSEIF RAND:8 == 0
					PRINTFORMW 「はぁ。法話を考えるのも、なかなか大変なんですよね」
				ELSEIF RAND:7 == 0
					PRINTFORML 「あ、変わった形の雲です。雲山みたいですね、ふふ」
					PRINTFORMW 「あるいはあれも入道の類なのでしょうか」
				ELSEIF RAND:6 == 0
					PRINTFORML 「信仰を広げるためには、どうするべきなんでしょうかね…」
					IF RAND:4 == 0
						PRINTFORML 「親しみやすさをテーマに、和尚・オン・ステージ、とか…」
					ELSEIF RAND:3 == 0
						PRINTFORML 「”首都高最速”とかいうものになれば、あるいは…」
					ELSEIF RAND:2 == 0
						PRINTFORML 「一輪やナズーリンに頼んで、ちょっとした出し物をしてもらうとか…」
					ELSE
						PRINTFORML 「やはり地道に脚を使って檀家を増やしていくしか…」
					ENDIF
					PRINTFORMW 白蓮は真面目な顔で考えている…
				ELSEIF RAND:5 == 0
					PRINTFORML 白蓮は難しい顔をして考えている…
						IF CFLAG:2 >= 1000
							IF RAND:2 == 0
								PRINTFORMW 「ここでこのお煎餅を食べるべきか否か…」
							ELSE
								PRINTFORMW 「明日の晩御飯はどうしましょうか…」
							ENDIF
						ELSE
							PRINTFORMW あまり邪魔をしても悪いので、早々に会話を切り上げた。
						ENDIF
				ELSEIF RAND:4 == 0
					PRINTFORML 「へえ、そんなことがあったんですね」
					PRINTFORMW 白蓮はにこやかに相槌を打っている。
				ELSEIF RAND:3 == 0
					PRINTFORMW 「檀家の方に菓子折りを頂きました。ふふ、後で開けてみましょう」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「境内の清掃も仏道修行の一つですから、きちんとしなければ駄目ですよ？」
				ELSE
					PRINTFORML 「そうそう、飴とか食べますか？」
					PRINTFORMW 白蓮は懐から飴を取り出した。
				ENDIF
			ENDIF
		ENDIF

ENDIF
RETURN 1

;==================================================
;301,お茶を淹れる
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_301
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;うふふが解除されていることを念押しする処理
CFLAG:1211 = 0
	IF CFLAG:ブチギレ
		PRINTFORMW 「……お茶については、御礼を言うわ」
	;初めて
	ELSEIF FIRSTTIME(SELECTCOM)
		PRINTFORML 「ああ、お茶を淹れてくれたんですね。ありがとう、%CALLNAME:MASTER%」
		PRINTFORM そう言って受け取ったお茶を飲んだ白蓮は
			;マズー
			IF TFLAG:193 == -1
				PRINTFORML 一口飲んで、むせた。
				PRINTFORMW 「……けほけほっ。ど、独特なお味ですね」
			;ウマー
			ELSEIF TFLAG:193 == 1
				PRINTFORML 一口含んで、嬉しそうに目を細めた。
				PRINTFORMW 「ああ、お上手なんですね、%CALLNAME:MASTER%」
			;フツー
			ELSE
				PRINTFORML にっこりと微笑んだ。
				PRINTFORMW 「ふふ、美味しいです」
			ENDIF
	;二回目以降
	ELSE
		;◆睡眠薬だぜひゃっはー
		IF TFLAG:194
			IF TFLAG:194 < 0
				PRINTFORMW 「……その、なにか言い知れぬ悪意を感じます。申し訳ありませんが…」
			ELSE
				IF TFLAG:193 == 1
					PRINTFORMW 「何か隠し味でも入れたのかしら。普段とは違うけれど、美味しかったですよ」
				ELSEIF TFLAG:193 == -1
					PRINTFORMW 「……雑味、という以上にその、何か怪しげな味が」
				ELSE
					PRINTFORML 「むー？」
					PRINTFORMW 白蓮は何か違和感を感じたようだが、そのまま飲み干した…
				ENDIF
			ENDIF
		;混ぜ物なし
		ELSE
			;不味い
			IF TFLAG:193 == -1
				;4～5時(寝起きと仮定)
				IF TIME:0 >= 240 && TIME:0 <= 300
					PRINTFORMW 「…うぐっ…その、目は覚めました…」
				;◆
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 「うーん、これじゃあただの色のついたお湯ですね」
					ELSE
						PRINTFORMW 「…ど、独特なお味ね」
					ENDIF
				ENDIF
			;美味しい
			ELSEIF TFLAG:193 == 1
				;4～5時(寝起きと仮定)
				IF TIME:0 >= 240 && TIME:0 <= 300
					PRINTFORML 「起き抜けにとびきり美味しいお茶を頂く…これも一つの幸せですね」
					PRINTFORMW 「ありがとう、%CALLNAME:MASTER%」
				ELSEIF CFLAG:行動 == 5
					PRINTFORML 「ああ。美味しいわ、%CALLNAME:MASTER%」
					PRINTFORMW 「なんだか元気が出てきました。残りも頑張らないといけませんね」
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 「ああ…この茶葉、こんなに美味しく淹れられるものなんですね」
					ELSE
						PRINTFORMW 「本当に美味しいです」
						PRINTFORMW 「来客の方にお出しするときも、%CALLNAME:MASTER%にお任せしたいくらいですね」
					ENDIF
				ENDIF
			;普通
			ELSE
				;4～5時(寝起きと仮定)
				IF TIME:0 >= 240 && TIME:0 <= 300
					PRINTFORML 「ん…目覚めの一杯というのも、いいものですね」
				;縁側で、夜(19～4時)で、満月
				ELSEIF CFLAG:現在位置 == 10 && TIME:2 == 3 && DAY:4 == 15
					PRINTFORML 「ああ…ありがとうございます、%CALLNAME:MASTER%。折角だから、ご一緒にどうですか？」
					PRINTFORMW 機嫌を良くした白蓮は、自分の隣をぽんぽんと叩いた…
				;食事を取るまたは食事をふるまう の直後
				ELSEIF PREVCOM == 414 || PREVCOM == 415
					PRINTFORML 「食後のお茶ですか？ありがとうございます」
					PRINTFORMW 「んん…美味しい。本当に、有り難い人ね」
				ELSEIF CFLAG:行動 == 5
					IF RAND:2 ==0
						PRINTFORMW 「ありがとう、%CALLNAME:MASTER%。今手が離せなかったから、ちょうどいいわ」
					ELSE
						PRINTFORMW 「ん…一息つけたわ。ありがとう、%CALLNAME:MASTER%」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「美味しかったわ。ご馳走様、%CALLNAME:MASTER%」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「あ、ありがとうございます」
					ELSE
						PRINTFORMW 「ん…ふふ、ご馳走様」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;302,スキンシップ
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_302
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_302
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;デート中
	IF CHK_DATENOW(CFLAG:TARGET:デート中)

	;普段
	ELSE
		;恋人
		IF TALENT:恋人
			;失敗
			IF TFLAG:193 == -1
				PRINTFORMW 「ちょっと、流石にそれは…」
			;成功or普通
			ELSE
				;浴場
				IF BATHROOM(CFLAG:現在位置)
					IF RAND:4 == 0
						PRINTFORMW 「あぅ、ど、どこを洗ってるんですか」
						PRINTFORMW 「おイタが過ぎますよ、もう……%UNICODE(0x2665)%」
					ELSEIF RAND:3 == 0
						PRINTFORML 手のひらで直接白蓮の体を洗うと、白蓮のなめらかな肌が赤みを帯びていく…
						PRINTFORMW 「ちょっ、と…%CALLNAME:MASTER%、手つきがいやらしいです…」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「ふふ、気持ちいいわ♪　終わったら交代しましょう、ね？」
					ELSE
						PRINTFORML 「いつもありがとうございます。…洗いっこっていうのも、なかなかいいものですよね」
						PRINTFORMW 背中の流し合いのあと、白蓮は優しく微笑んだ
					ENDIF
				;縁側
				ELSEIF CFLAG:現在位置 == 110
					;流れ星
					IF TIME:7 == 3
						PRINTFORML 白蓮と一緒に流れ星を眺めた
						PRINTFORML 「ほら、あれ！見えたかしら、%CALLNAME:MASTER%」
						PRINTFORMW 「ふふ、あなたは何かお願いしたの？」
					;夏で晴れ
					ELSEIF DAY:2 == 2 && (TIME:5 == 0 || TIME:5 == 1)
						;7～11時
						IF TIME:0 >= 420 && TIME:0 <= 660
							PRINTFORML 白蓮と一緒に打ち水をする…つもりだったのだが。
							PRINTFORML 「あはは、そう簡単に当たるものですかーっ！」
							PRINTFORMW いつの間にか、水の掛け合いになっていた…
						;17～19時
						ELSEIF TIME:0 >= 1020 && TIME:0 <= 1140
							PRINTFORML 白蓮と夕涼みをした。
							PRINTFORML 「あ、風が出てきました。こうなると、比較的過ごしやすいですね」
							PRINTFORMW 白蓮は安心しきった表情であなたに身を預けている…
						ENDIF
					ELSE
						PRINTFORML 白蓮と外の景色をぼうっと眺めた
						PRINTFORMW 「この縁側からの景色だけでも、案外季節の移り変わりは分かるものですよ」
						PRINTFORMW 「ずっとこうして、%CALLNAME:MASTER%と一緒に季節の変化を楽しんでいたいものですね」
					ENDIF
				ELSE
					IF RAND:7 == 0
						PRINTFORML 白蓮の背中を指先でつつーっと撫で上げた。
						PRINTFORML 「ひゃぅ！…もう、そういう悪戯はいけませんよ？」
						PRINTFORMW 白蓮はあなたの頭を手のひらでぽふぽふと叩いた。
					ELSEIF RAND:6 == 0
						PRINTFORMW 「ふふ、あなたの手、好きですよ…%UNICODE(0x2665)%」
					ELSEIF RAND:5 == 0
						PRINTFORMW 「もう、いやらしい手つきですねぇ」
					ELSEIF RAND:4 == 0
						PRINTFORMW 「ふふっ…ねぇ…%UNICODE(0x2665)%」
					ELSEIF RAND:3 == 0
						PRINTFORML 白蓮の背後からゆっくりと近づき、脇腹に手を滑り込ませてくすぐった。
						PRINTFORMW 「ひゃあ！？」
						PRINTFORML 驚いた白蓮がとっさに身をかがめたことで、手が脇腹から離れ――
						PRINTFORML …そのまま乳房をわしづかみする形になってしまった。
						PRINTFORMW 「ん…もう。お盛んなひと…」
					ELSEIF RAND:2 == 0
						PRINTFORML あなたは白蓮の髪をふわふわと弄んだ。
						PRINTFORMW 「……ふふ%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「え？肩を揉んでくれるんですか？ありがとうございます」
						PRINTFORMW ………
						PRINTFORML
						PRINTFORML 「ふふ…きもちいいです…」
						PRINTFORMW 「…こうしてあなたと触れ合っているだけで、どうしようもなく幸せになります」
						PRINTFORMW 「これも一つの魔法かしらね…さ、今度は%CALLNAME:MASTER%の番ですよ」
					ENDIF
				ENDIF
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			;失敗
			IF TFLAG:193 == -1
				PRINTFORMW 「ちょっと…さすがに、恥ずかしいです…」
			;成功or普通
			ELSE
				;浴場
				IF BATHROOM(CFLAG:現在位置)
					IF RAND:2 == 0
						PRINTFORMW 白蓮に背中を流してもらった
						PRINTFORML 「こうしてじっくり見てみると、中々\@ TALENT:PLAYER:2 & 2 ? たくましい # きれいな \@背中してるのね」
						PRINTFORM 「え？私の背中を…？
						IF RAND:2 == 0
							PRINTFORMW うーん…それじゃ、お願いしようかしら」
						ELSE
							PRINTFORMW あはは、遠慮しておきます」
						ENDIF
					ELSE
						PRINTFORML 「昔はこういう風に星の体を洗ってあげたこともありましたねえ…」
						PRINTFORMW 「あの子はくすぐったがるから、なかなか手がかかったものです」
						PRINTFORML 「まあ、手のかかる子ほど可愛いといいましょうか」
						PRINTFORMW 「あなたも可愛いですよ、%CALLNAME:MASTER%。ふふっ」
						;お風呂に特攻かましてくるスケベニンゲンに手がかかるのはあたりまえだよなぁ？
					ENDIF
				;縁側
				ELSEIF CFLAG:現在位置 == 110
					;流れ星
					IF TIME:7 == 3
						PRINTFORML 白蓮と一緒に流れ星を眺めた
						PRINTFORML 「ほら、あれ！見えたかしら、%CALLNAME:MASTER%」
						PRINTFORMW 「私の願い事？…ふふ、内緒です」
					;夏で晴れ
					ELSEIF DAY:2 == 2 && (TIME:5 == 0 || TIME:5 == 1)
						;7～11時
						IF TIME:0 >= 420 && TIME:0 <= 660
							PRINTFORML 白蓮と一緒に打ち水をすることにした。
							PRINTFORMW 「あなたがいて助かるわ。なかなか骨が折れるんですよね、これ」
						;17～19時
						ELSEIF TIME:0 >= 1020 || TIME:0 <= 1140
							PRINTFORML 白蓮と夕涼みをした。
							PRINTFORML 「あ、風が出てきました。こうなると、比較的過ごしやすいですね」
							PRINTFORMW 白蓮はあなたにやさしく微笑みかけた。
						ENDIF
					ELSE
						PRINTFORML 白蓮と外の景色をぼうっと眺めた
						PRINTFORMW 「この縁側からの景色だけでも、案外季節の移り変わりは分かるものですよ」
					ENDIF
				ELSE
					IF RAND:6 == 0
						PRINTFORML 白蓮の背中を指先でつつーっと撫で上げた。
						PRINTFORML 「ひゃぅ！…もう、そういう悪戯はいけませんよ？」
						PRINTFORMW 困ったように微笑んでいるが、そう悪い気分でもなさそうだ。
					ELSEIF RAND:5 == 0
						PRINTFORML 「もう、お戯れが過ぎます」
						PRINTFORMW そう言いながらも、白蓮は満更でもなさそうに笑っている。
					ELSEIF RAND:4 == 0
						PRINTFORMW 「…ふふっ」
						PRINTFORMW 聖はそれとなく身体を寄せてきた…
					ELSEIF RAND:3 == 0
						PRINTFORML 白蓮の背後からゆっくりと近づき、脇腹に手を滑り込ませてくすぐった。
						PRINTFORMW 「ひゃあ！？」
						PRINTFORML 驚いた白蓮がとっさに身をかがめたことで、手が脇腹から離れ――
						PRINTFORML …そのまま乳房をわしづかみする形になってしまった。
						PRINTFORMW 「……そんなに強く掴むと、痛いです…」
					ELSEIF RAND:2 == 0
						PRINTFORML あなたは白蓮の髪をふわふわと弄んだ。
						PRINTFORMW 「ふふ、触り心地はどうかしら」
					ELSE
						PRINTFORML 「え？肩を揉んでくれるんですか？…ふふ、お願いします」
						PRINTFORMW ………
						PRINTFORML
						PRINTFORML 「…ん、中々上手ですよ」
						PRINTFORMW 「ありがとう、だいぶ楽になりました。次は私が%CALLNAME:MASTER%の肩を揉んであげる番ですね」
					ENDIF
				ENDIF
			ENDIF
		;恋人、恋慕なし
		ELSE
			;失敗
			IF TFLAG:193 == -1
				PRINTFORMW 「…もう」
			;成功or普通
			;/古き良き日本の伝統により、混浴でも特に気にされないと強引に解釈するしかない。何その理想郷
			ELSE
				;浴場
				IF BATHROOM(CFLAG:現在位置)
					IF RAND:2 == 0
						PRINTFORMW 白蓮に背中を流してもらった
						PRINTFORML 「こうしてじっくり見てみると、中々\@ TALENT:PLAYER:2 & 2 ? たくましい # きれいな \@背中してるのね」
					ELSE
						PRINTFORML 「昔はこういう風に星の体を洗ってあげたこともありましたねえ…」
						PRINTFORMW 「あの子はくすぐったがるから、なかなか手がかかったものです」
					ENDIF
				;縁側
				ELSEIF CFLAG:現在位置 == 110
					;流れ星
					IF TIME:7 == 3
						PRINTFORML 白蓮と一緒に流れ星を眺めた
						PRINTFORML 「ほら、あれ！見えたかしら、%CALLNAME:MASTER%」
					;夏で晴れ
					ELSEIF DAY:2 == 2 && (TIME:5 == 0 || TIME:5 == 1)
						;7～11時
						IF TIME:0 >= 420 && TIME:0 <= 660
							PRINTFORML 白蓮と一緒に打ち水をすることにした。
							PRINTFORMW 「そう、そうやって日陰に撒いてください」
						;17～19時
						ELSEIF TIME:0 >= 1020 || TIME:0 <= 1140
							PRINTFORML 白蓮と夕涼みをした。
							PRINTFORMW 「あ、風が出てきました。こうなると、比較的過ごしやすいですね」
						ENDIF
					ELSE
						PRINTFORML 白蓮と外の景色をぼうっと眺めた
						PRINTFORML 「…ふわぁ～。あら、失礼」
						PRINTFORMW 白蓮は欠伸をした。
					ENDIF
				ELSE
					IF RAND:6 == 0
						PRINTFORMW 「んっ…」
					ELSEIF RAND:5 == 0
						PRINTFORMW 「ちょっと、撫ですぎです…」
					ELSEIF RAND:4 == 0
						PRINTFORML あなたは白蓮の髪をふわふわと弄んだ。
						PRINTFORMW 「気になるんですか？…うーん、確かに珍しい色かもしれませんね」
					ELSEIF RAND:3 == 0
 						PRINTFORML 白蓮の背中を指先でつつーっと撫で上げた。
						PRINTFORML 「ひゃあ！？」
						PRINTFORMW …後で少しお説教された。
					ELSEIF RAND:2 == 0
						PRINTFORML 白蓮の背後からゆっくりと近づき、脇腹に手を滑り込ませてくすぐった。
						PRINTFORMW 「ひゃあ！？」
						PRINTFORML 驚いた白蓮が身をのけぞらせたことで、頭が勢いよく振られ――
						PRINTFORML ……そのまま強烈な頭突きをもらってしまった。
						PRINTFORMW 「ああっ！？%CALLNAME:MASTER%、大丈夫ですか！？」
					ELSE

						PRINTFORML 「え？肩を揉んでくれるんですか？」
						PRINTFORMW ………
						PRINTFORML
						PRINTFORML 「…ん、ちょっとくすぐったいかしらね」
						PRINTFORML 「ふふ、少し楽になったわ。ありがとう、%CALLNAME:MASTER%」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;303,謝る
;TFLAG:193(2=菓子折成功 1=大成功 0=成功 -1=失敗 -2=菓子折失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_303
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;304,仕事を手伝う
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:350(仕事内容(JOB_仕事内容.ERB参照のこと
;TCVAR:手伝えない(=2 手伝っても早くは終わらない、時間停止中不可 永琳の診察等)
;==================================================
@M_KOJO_SUCCESS_COM_K55_304
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;大成功
	IF TFLAG:193  == 1
		;恋慕
		IF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「うーん、まさしく以心伝心といった感じですね」
				PRINTFORMW 「…相性がいいんでしょうかね、私たち」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「わあ、優秀な働きぶりですよ、%CALLNAME:MASTER%」
				PRINTFORMW 「ずっとお手伝いを頼みたいくらいね」
			ELSE
				PRINTFORMW 「この分だとかなり早く片付きますね」
				PRINTFORMW 「次回もお手伝いを頼んでいいかしら？」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「うーん、まさしく以心伝心といった働きぶりですね」
				PRINTFORMW 「流石です、%CALLNAME:MASTER%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「わあ、優秀な働きぶりですよ、%CALLNAME:MASTER%」
				PRINTFORMW 「あとでなにかご褒美をあげましょう。豆大福とかお嫌いですか？」
			ELSE
				PRINTFORMW 「この分だとかなり早く片付きますね」
				PRINTFORMW 「次回もお手伝いを頼みたいわねえ」
			ENDIF
		ENDIF
	;失敗
	ELSEIF TFLAG:193  == -1
		IF RAND:3 == 0
			PRINTFORMW 「うーん、手伝おうという気持ちはありがたいのだけれど…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ああ、それはちょっとまずいかしらね…」
		ELSE
			PRINTFORML 「…うわぁ、それは面倒なことになりそうね…」
			PRINTFORMW 「ああ、気を落とさないで。私一人でどうにかできる程度の問題ですから…」
		ENDIF
	;成功
	ELSE
		IF RAND:5 == 0
			PRINTFORMW 「なかなか、頭の痛い問題ね…」
			;PRINTFORMW 「なかなか、頭の痛い問題ね…」
		ELSEIF RAND:4 == 0
			PRINTFORMW 白蓮と一緒に檀家回りをした。
			;PRINTFORMW 「色々なものが増えると、供養の仕方もいろいろになるものねえ…」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「せっかくですし、一緒にお経を唱えてみますか?」
			;PRINTFORMW 「こういった大きな企画となると、連絡をつけるべきなのは…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふふっ、おかげで沢山の人に話を聞いてもらえました。」
			;PRINTFORMW 「はい。次の書類、お願いします」
		ELSE
			PRINTFORMW 「うう～ん、これは私の手にもおえるかどうか…まあ、弱気になっても仕方ありませんかね」
		ENDIF
	ENDIF
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_K55_305
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_305
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;うふふが解除されていることを念押しする処理
CFLAG:1211 = 0
	IF ABL:TARGET:親密 > 2
		IF RAND:6 == 0 && ABL:TARGET:親密 >= 5
			PRINTFORMW 「ふふ、今度は私にもしてもらおうかしら」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「ふふ。いつもご苦労様、%CALLNAME:MASTER%」
		ELSEIF RAND:4 == 0
			PRINTFORML 肉付きがよく女性らしい、柔らかな太腿だ。
			PRINTFORMW 「…頬ずりをするみたいに頭を動かされると、流石に恥ずかしいですね」
		ELSEIF RAND:3 == 0
			PRINTFORML 「……♪」
			PRINTFORMW 白蓮はあなたの頭を優しく撫でている…
		ELSEIF RAND:2 == 0
			PRINTFORMW 「疲れたのかしら？ふふ、このまま眠っても構いませんよ」
		ELSE
			PRINTFORMW 白蓮が背筋を伸ばしていると、胸元の遮蔽物で表情が伺いづらい。
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「んー、こんな感じかしら？」
		ELSE
			PRINTFORMW 「…そろそろ満足しました？」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;306,お腹を撫でる
;TFLAG:193(1=ABL:親密6以上かつ妊娠時 0=成功 -1=ABL:親密5以下)
;==================================================
@M_KOJO_MESSAGE_COM_K55_306
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_306_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_307
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_307
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_307_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_307_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;時間停止中
	IF FLAG:70
	;睡眠中
	ELSEIF CFLAG:睡眠
	;通常
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;308,頬をつつく
;添い寝中or睡眠中限定
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_308
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		IF TFLAG:193 == 1
			IF RAND:2 == 0
				PRINTFORMW 「…んん……むふふ…」
			;◆
			ELSE
				PRINTFORMW 「んん…ふふっ……すぅ……」
			ENDIF
		ELSEIF TFLAG:193 == -1
			IF RAND:2 == 0
				PRINTFORML 「…んんっ」
			;◆
			ELSE
				PRINTFORML 「ん…やめて……すぅ……」
			ENDIF
			PRINTFORMW 白蓮は顔をしかめて寝返りを打った…
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「んん…むぐぐ……すぅ……」
				PRINTFORMW 白蓮の頬は柔らかかった…
			ELSE
				PRINTFORML 「んん…」
				PRINTFORMW 白蓮は寝息を立てている…
			ENDIF
		ENDIF
	ELSE
		;連続
		IF PREVCOM == SELECTCOM
			IF RAND:2 == 0
				PRINTFORMW 「…そんなに楽しいものなのかしら？」
			ELSE
				PRINTFORML 「うーん、まあ、痛くしないのなら構いませんかね」
			ENDIF
		;成功
		ELSEIF TFLAG:193 == 1
			;◆
			IF RAND:2 == 0
				PRINTFORMW 「……んもう、何ですかー？」
				PRINTFORMW 白蓮はニコニコとしながらあなたに頬をつつかれている…
			ELSE
				PRINTFORMW 「まったくもう。やられたら、やり返しちゃいますよー？」
				PRINTFORMW 白蓮とあなたはしばらく頬をつつきあった。
			ENDIF
		;失敗
		ELSEIF TFLAG:193 == -1
			IF RAND:3 == 0
				PRINTFORMW 「…はぁ」
				PRINTFORMW 白蓮は迷惑そうな顔だ。
			ELSEIF RAND:2 == 0
				PRINTFORMW 「…ちょっとやりすぎかしらね」
			ELSE
				PRINTFORMW 「…」
				PRINTFORMW 何のリアクションも返してくれない。どうやら機嫌を損ねたようだ…
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「もう…子供みたいなからかい方をして…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「…ふふ、柔らかいですか？」
			ELSE
				PRINTFORMW 困った表情を浮かべつつも、白蓮はされるがままにつつかれている…
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,頭を撫でる
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;ABL:親密(6以上=通常成功時分岐
;==================================================
@M_KOJO_SUCCESS_COM_K55_309
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗(注、抱きつきモード中は自動成功)、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_309
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;うふふが解除されていることを念押しする処理
	CFLAG:1211 = 0
	;眠ってる白蓮をなでなで
	IF CFLAG:TARGET:睡眠
		IF ABL:親密 > 5
			;◆
			IF RAND:2 == 0
				PRINTFORMW 「ん…ふふっ……すぅ……」
			ELSE
				PRINTFORMW 眠っている白蓮の頭をなでると、彼女は嬉しそうに目を細めた。
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「んん…」
			;◆
			ELSE
				PRINTFORMW 「…んん……すぅ……」
			ENDIF
		ENDIF
	;◆初めて
	ELSEIF FIRSTTIME(SELECTCOM)
		PRINTFORMW 「きゃっ……」
		PRINTFORMW 「…誰かに撫でられるなんてずいぶんと久しぶりだから、少し驚いてしまいました」
	;◆怒り
	ELSEIF CFLAG:ブチギレ
		PRINTFORMW 「……ご機嫌取りのつもりかしら？」
	;添い寝中
	;/添い寝中だと多少素直に
	ELSEIF CFLAG:添い寝中
		;恋人
		IF TALENT:恋人
			;◆
			IF RAND:5 == 0
				PRINTFORMW 「…ふふ。こうされていると、すぐにでも眠ってしまいそう」
				PRINTFORMW 「あなたに触れられるだけで、とても安心するの。不思議ね」
			;◆
			ELSEIF RAND:4 == 0
				PRINTFORMW 「……なんだか、子供にでもなったような気分ですね」
				PRINTFORMW 「ふふ。ねえ、もっと撫でてください。いい子、いい子って…」
			ELSEIF RAND:3 == 0
				PRINTFORML 「ん…」
				PRINTFORMW 白蓮は安らかに目を閉じてあなたに撫でられている…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「…ん…%CALLNAME:MASTER%…」
				PRINTFORMW どうやら意識を手放しかかっているようだ…
			ELSE
				PRINTFORML 「…んふふ」
				PRINTFORMW 「幸せです」
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:5 == 0
				PRINTFORMW 「なんですか……子供扱いですか」
				PRINTFORMW 「……あぁ、ちょっと、やめないでください」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「…優しく撫でてくれるんですね」
			ELSEIF RAND:3 == 0
				PRINTFORMW (ああ、…どうしても、この手が愛おしく感じられて…)
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ふわぁ……ぁ、眠くなってしまいます…」
			ELSE
				PRINTFORMW 「ねえ、もう少しだけ、このまま続けてくれませんか……」
			ENDIF
		;親密5以上
		ELSEIF ABL:親密 > 5
			IF RAND:2 == 0
				PRINTFORMW 「はぁ。少し安心してしまう自分が嫌になります…」
			ELSE
				PRINTFORMW 「…優しく撫でてくれるんですね」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「っ…もう。仕方のない人です」
			;◆
			ELSE
				PRINTFORMW 「……そんなことしなくたって寝付けますよ」
			ENDIF
		ENDIF
	;浴場にいる
	ELSEIF BATHROOM(CFLAG:現在位置)
		;お風呂でくつろぐの直後
		IF PREVCOM == 403
			;恋人
			IF TALENT:恋人
				PRINTFORMW 白蓮は黙って目を閉じ、あなたに身体を預けている…
			;恋慕
			ELSEIF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORML 「こうやって髪をまとめているとなんだか新鮮…ですか？」
					PRINTFORMW 「んー、イメチェンっていうのもいいかもしれませんね」
					PRINTFORMW 「…で、あなたはどういう髪型が好きなのかしら？」
				ELSE
					PRINTFORML 「…はぁ」
					PRINTFORML 白蓮は浴槽の中で膝を抱えた。
					PRINTFORMW 豊乳が脚に押されてむにゅりと変形した。
				ENDIF
			;親密5以上
			ELSEIF ABL:親密 > 5
				IF RAND:2 == 0
					PRINTFORML 「こうやって髪をまとめているとなんだか新鮮…ですか？」
					PRINTFORMW 「んー。たまには、イメチェンっていうのもいいかもしれませんね」
				ELSE
					PRINTFORML 「…ここでも撫でるのね」
					PRINTFORMW 「…んー、まあ、そう悪い気もしないわ」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「……はぁ。恥ずかしいわ」
				ELSE
					PRINTFORMW 「…あのね」
					PRINTFORMW 「いえ、やっぱりやめにしましょう。…何を言っても無駄ね、きっと」
					;結局超許す
				ENDIF
			ENDIF
		ELSE
			PRINTFORML 白蓮の頭を洗ってやった。
			;ランダム1/2、MASTERの技巧が5以上か器用な指
			IF RAND:2 == 0  && (ABL:MASTER:技巧 >= 5 || TALENT:MASTER:51 == 1)
				IF RAND:2 == 0
					PRINTFORMW 「んー…上手なものね。これからも時々お願いしたいくらいですね」
				ELSE
					PRINTFORMW 「わあ…これは中々気持ちいいですね。人里で理髪業でもしていたの？」
				ENDIF
			ELSEIF TALENT:恋人
				IF RAND:4 == 0
					PRINTFORMW 「耳の後ろあたりが痒いわね。……あ、そう、そこそこ。ん。気持ちいいわ、ありがとう」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「ふふ、愛をこめて洗ってくださいね？」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「長いから大変でしょう？疲れたら、交代してもいいのよ？」
				ELSE
					PRINTFORMW 「あはは、ちょっとくすぐったいわ」
				ENDIF
			ELSEIF TALENT:恋慕
				IF RAND:4 == 0
					PRINTFORMW 「…ん…くすぐったい」
					PRINTFORMW 白蓮はむずがるように身体を揺らした。
				ELSEIF RAND:3 == 0
					PRINTFORMW 「…女性が理髪師でもない人に髪を洗わせるって、なかなかな事だと思うのだけれど」
					PRINTFORMW 「……ええと、その。あなたはどう思っているのかしら」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「…長いから大変でしょう？」
					PRINTFORMW 「私は手入れしていて楽しいけれど、結構手間じゃないですか」
				ELSE
					PRINTFORMW 「ぁんっ……」
					PRINTFORMW 「…何でもないわ、続けて頂戴」
				ENDIF
			ELSEIF ABL:親密 > 5
				IF RAND:3 == 0
					PRINTFORMW 「…女性が理髪師でもない人に髪を洗わせるって、なかなかな事だと思うのだけれど」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「耳の後ろあたりが痒いわね。……あ、そう、そこそこ。ん。ありがとう、%CALLNAME:MASTER%」
				ELSE
					PRINTFORMW 「そうそう…その調子…」
				ENDIF
			ELSE
				IF RAND:3 == 0 && (ABL:MASTER:技巧 < 5 || TALENT:MASTER:51 == 0)
					PRINTFORMW 「いたた…、引っ張らないでちょうだい」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「任せて大丈夫なの？本当かしら…？」
				ELSE
					PRINTFORMW 「…なんだか不安です」
				ENDIF
			ENDIF
		ENDIF
	ELSE
		;抱き付くの直後
		IF PREVCOM == 311
			PRINTFORML 抱きしめた白蓮を優しく撫でた
			IF TALENT:恋人
				PRINTFORMW 「あっ……もう少し、このまま……」
				PRINTFORMW 白蓮はあなたの腰に両腕を回すと、体を密着させるようにしっかりと抱きしめた。
			ELSEIF TALENT:恋慕
				PRINTFORMW 「……ん」
				PRINTFORMW 白蓮はあなたの胸元に頭を預けた。
				PRINTFORMW 長い髪から、甘い香りがフワリと立ち上る。
			ELSEIF ABL:親密 > 5
				PRINTFORMW 「んん…まあ、こういうのもたまには悪くないでしょう」
			ELSE
				PRINTFORMW 「わわ…ちょっと、これは本当に恥ずかしいです」
			ENDIF
		ELSE
			;恋人
			IF TALENT:恋人
				;失敗
				;/恋人で撫でるのに失敗ってどういう状況だ
				IF TFLAG:193 == -1
					PRINTFORMW 「…撫で過ぎよ」
				;欲情Lv.3以上で、強めのランダム分岐が2つ追加される
				ELSEIF RAND:4 == 0 && PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 「…ねえ、頭でいいの…？」
				ELSEIF RAND:3 == 0 && PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 「ん……いじわるな人。こんな時にも頭を撫でるのね」
					PRINTFORMW 「ねえ。ほかにもすることがあるでしょう…？」
				ELSEIF RAND:2 == 0 && PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 白蓮はそれとなく身体を摺り寄せてきた…
				ELSEIF RAND:6 == 0
					PRINTFORMW 「あなたがそうやって撫でてくれるから、昔よりも髪の手入れに気を使っているのよ」
					PRINTFORMW 「ね、だからもっと撫でて、綺麗だって褒めてちょうだい…？」
				ELSEIF RAND:5 == 0
					PRINTFORMW 「ううーん…私、ここの長なんですけどねえ」
					PRINTFORMW 「まあ、それとこれとは話が別です。%CALLNAME:MASTER%、もっと撫でてください」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「もう。そんなに撫でまわすと、髪が乱れちゃいます」
					PRINTFORMW 「ほらほら、やり返しちゃいますよー？」
					PRINTFORMW あなたと白蓮はしばらくの間お互いの頭を撫であっていた。
				ELSEIF RAND:5 == 0
					PRINTFORML おおーよしよしよし。
					PRINTFORMW 「んふふー♪」
					PRINTFORMW 「……って、私は動物か何かですか」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「んっ…。ふふ、なんだか元気が出てきちゃいますね♪」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「ん…」
					PRINTFORMW 「きもちいい」
				ELSEIF RAND:2 == 0
					PRINTFORMW 白蓮は心地よさそうに目を閉じている…
				ELSE
					PRINTFORMW 白蓮は安心しきった表情であなたの手に身を任せている。
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				IF TFLAG:193 == -1
					PRINTFORMW 「…とと、髪が乱れちゃいます」
					PRINTFORMW 本当に髪の乱れを気にしているようなので、手をひっこめた。
				;欲情Lv.3以上で、強めのランダム分岐が3つ追加される
				ELSEIF RAND:4 == 0 && PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 「…%CALLNAME:MASTER%、その…いえ。何でもありません」
				ELSEIF RAND:3 == 0 && PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 白蓮はそれとなく身体を寄せてきた…
				ELSEIF RAND:2 == 0 && PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 「…」
					PRINTFORMW 「…もっと、お願いします…」
				ELSEIF RAND:6 == 0
 					PRINTFORMW 「髪は女の命、とも言いますし、私も結構気を使っているんです」
					PRINTFORMW 「触り心地はどうですか？」
					PRINTFORMW %CALLNAME:MASTER%が髪を褒めると、白蓮は幸せそうに微笑んだ。
					PRINTFORMW 「ふふ。良ければもっと触ってもいいんですよ？」
				ELSEIF RAND:5 == 0
					PRINTFORMW 「…そう、髪を梳くみたいに……」
					PRINTFORMW 「……ん。上手なんですね、%CALLNAME:MASTER%」
					PRINTFORMW 「とても気持ちいいです。あなたの撫で方、好きですよ」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「ううーん…私、ここの長なんですけどねえ」
					PRINTFORMW 「いえ、好意的に接してもらえるのはありがたいのですが」
					PRINTFORMW 白蓮は少し困ったように微笑んでいる。
				ELSEIF RAND:3 == 0
					PRINTFORMW 「もう。そんなに撫でまわすと、髪が乱れちゃいます」
					PRINTFORMW 白蓮は嬉しそうに目を細めている。
				ELSEIF RAND:2 == 0
					PRINTFORMW 「%CALLNAME:MASTER%は、こうやって私の頭を撫でていて楽しいんですか？」
					PRINTFORMW 「私は、うーん…秘密です」
				ELSE
					PRINTFORMW 「……ふふ」
					PRINTFORMW 白蓮はほのかに頬を染めながらあなたの手に身を任せている。
				ENDIF
			;親密5以上
			ELSEIF ABL:親密 > 5
				IF TFLAG:193 == -1
					PRINTFORMW 「…さすがに触りすぎかしらね。自重してください」
				ELSEIF RAND:7 == 0
 					PRINTFORMW 「髪は女の命、とも言いますし、私も結構気を使っているんですよ？」
					PRINTFORMW 「触り心地はどうですか？」
				ELSEIF RAND:6 == 0
					PRINTFORMW 「…そう、髪を梳くみたいに……」
					PRINTFORMW 「……ん。上手なんですね、%CALLNAME:MASTER%」
				ELSEIF RAND:5 == 0
					PRINTFORMW 「……ふふ。なかなか悪くない気分です」
					PRINTFORMW 「そのまま続けて構いませんよ」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「ううーん…私、ここの長なんですけどねえ」
					PRINTFORMW 「あるいは『親しみやすい住職』というイメージを打ち出せているという事なんでしょうか」
					PRINTFORMW 白蓮は難しい顔をして考え込んでいる。
				ELSEIF RAND:3 == 0
					PRINTFORMW 「もう。そんなに撫でまわすと、髪が乱れちゃいます」
					PRINTFORMW しかし本気で嫌がっている風ではないので、なでなでを続行した
				ELSEIF RAND:2 == 0
					PRINTFORMW 「%CALLNAME:MASTER%は、こうやって私の頭を撫でていて楽しいんですか？」
					PRINTFORMW 「私は…うーん、そう悪い気はしませんね。ふふっ」
				ELSE
					PRINTFORMW 「…ふぅ。やっぱり、気恥ずかしくはありますが」
					PRINTFORMW 「こうして頭を撫でられるのも、なかなか気持ちいいものですね」
				ENDIF
			ELSE
				IF TFLAG:193 == -1
					PRINTFORMW 「いい加減、触りすぎね」
				ELSEIF RAND:4 == 0 && ABL:親密 >= 3
					PRINTFORMW 「いえ、撫でられること自体は案外気持ちいいのですが」
					PRINTFORMW 「恥ずかしいですね。少し」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「ん…。やっぱり、少し恥ずかしいですね」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「もう。そんなに撫でまわすと、髪が乱れちゃいます」
				ELSE
					PRINTFORMW 「うーん、なんだか新鮮です…」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;331,お茶を淹れる（薬入り）
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_331
;成否判定
;TFLAG:192(-2=強制失敗(注、非コマンド終了）、-1＝強制失敗、0=COM依存、1=強制成功or大成功(注、睡眠薬アイスティーは眠気を感じていると飲まない)
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_331
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_331_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_331_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;332,お酒をふるまう
;TFLAG:193(0=下戸飲み成功 -1=下戸飲み失敗 -2=下戸飲み大失敗 -5=下戸飲みあきらめ)
;TFLAG:194(51=どぶろく 52=清酒 53=鬼殺し)
;ALCOHOL_TASTE(TFLAG:194)(15以上=気に入る 9以下=口に合わない)
;==================================================
@M_KOJO_MESSAGE_COM_K55_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_332_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;333,愚痴を聞く
;TFLAG:193(6=大成功(酔い) 5=成功(酔い) 4=失敗(酔い) 3=大成功 2=成功 1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_333
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_333
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_333_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_333_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:193
		CASE 6
		;大成功（酔い）
		CASE 5
		;成功（酔い）
		CASE 4
		;失敗（酔い）
		CASE 3
		;大成功
		CASE 2
		;成功
		CASE 1
		;失敗
	ENDSELECT
ENDIF
RETURN 1
;==================================================
;334,杯を交わす
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:妊娠自覚状態(1=食事)
;TALENT:酒耐性(-2=食事)
;==================================================
@M_KOJO_SUCCESS_COM_K55_334
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_334
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_334_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_335
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_335
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_335_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_336
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_336
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_336_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_336_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF TFLAG:193 > 0
	;寝ちゃった
	ELSE
	;それ以外
	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_K55_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;初めて
	IF CFLAG:1350 == 0
		;MASTERが押し倒された経験あり
		IF CFLAG:1200 == 2
			;押し倒されてた
			IF CFLAG:1211 == 1
				IF TALENT:恋人
					PRINTFORMW 「あっ……ふふ、やっと私を求めてくれるのね」
					PRINTFORML 「あのね、%CALLNAME:MASTER%…わたし、ずっと怖かったんですよ。
					PRINTFORMW 　あなたが本当は、私のことをなんとも思ってないんじゃないかって」
					PRINTFORMW 「…だから、さっき私があなたに迫った時だって、拒絶されちゃうんじゃ、って…」
					PRINTFORML 白蓮の肩が小さく震え、声も次第に震えていく。
					PRINTFORMW あなたは恋人の肩をかき抱くと、不安を抱かせていた非礼を詫びた。
					PRINTFORMW 「ん、もう…仕方のない人。…ふふ、今回ばかりは、ただ謝るだけじゃ許してあげません」
					PRINTFORMW 「私を全力で愛して、『好きだ』って気持ちを、沢山伝えてください…」
					PRINTFORML
					PRINTFORMW 白蓮は、あなたの背中に手を回し、ぎゅっと抱きしめた……
					PRINTFORML
				ELSEIF TALENT:恋慕
					PRINTFORML 「あっ……」
					PRINTFORML あなたに押さえつけられた白蓮は、潤んだ瞳をスッとそらした。
					PRINTFORMW その仕草は手弱女そのものであり、先ほどまでの攻め気は微塵も感じられない。
					PRINTFORML 白蓮の豊満な肢体を間近で改めて観察していると、彼女は不安げに口を開いた。
					PRINTFORMW 「その…」
					PRINTFORML 「…やっ！？」
					PRINTFORMW 続く言葉をさえぎるように、強く抱きしめる。
					PRINTFORMW 「あ…。%CALLNAME:MASTER%も、その気になってくれたのね…」
					PRINTFORMW 安堵、歓喜、恍惚…すべてが混じったため息をついて、白蓮はあなたの背中に腕を回した。
					PRINTFORMW 「いいですよ…。私に沢山、甘えてください…」
				ELSEIF MARK:不埒刻印 == 3
					PRINTFORML 「あっ……ふふ」
					PRINTFORMW あなたに押さえつけられた白蓮は、妖艶に微笑んだ。
					PRINTFORMW 「%CALLNAME:MASTER%も、その気になってくれたのね…」
					PRINTFORML 白蓮はあなたの首に腕を絡ませると、ささやくように続ける。
					PRINTFORMW 「いいですよ…。あなたの思うように、私の身体を弄んで…」
					PRINTFORMW 「私がしたみたいに…好き放題して、いいんですよ…」
				ELSE
					PRINTFORML 「あっ……！？」
					PRINTFORMW あなたが押し倒し返すと、白蓮は当惑したような表情で固まった。
					PRINTFORML 「えぇと、その…御発情なさったのでございましょうか…」
					PRINTFORMW 先ほどまでの攻め気はどこへやら、まるで全くしどろもどろになっている。
					PRINTFORML
					PRINTFORML ほどなくして、諦めがついたような面持ちで白蓮はため息を一つついた。
					PRINTFORMW 「……はぁ、これは私が全面的に悪いですね」
					PRINTFORMW 「わかりました。あなたのお好きなように、してください…」
				ENDIF
			;今回はMASTERから押し倒した
			ELSE
				IF TALENT:恋人
					PRINTFORMW 「あっ……ふふ、やっと積極的になってくれましたね」
					PRINTFORML 「あのね、%CALLNAME:MASTER%…わたし、ずっと怖かったんですよ。
					PRINTFORMW 　あなたが本当は、私のことをなんとも思ってないんじゃないかって」
					PRINTFORMW 「私がどれだけ迫っても…あなた、自分からは動いてくれないんだもの」
					PRINTFORMW 「…ふふ、そんなことは、もうどうだっていいことですね」
					PRINTFORMW 「きてください、%CALLNAME:MASTER%。私も、あなたが欲しい…」
					PRINTFORML
					PRINTFORMW 白蓮は、あなたの背中に手を回し、ぎゅっと抱きしめた……
					PRINTFORML
				ELSEIF TALENT:恋慕
					PRINTFORML 「あっ……」
					PRINTFORMW あなたに押さえつけられ、白蓮の頬が朱に染まっていく。
					PRINTFORMW 「その、%CALLNAME:MASTER%…我慢、できなくなっちゃったんですか？」
					PRINTFORML 答える代わりに、彼女の身体をぐっと抱き寄せる。
					PRINTFORML 「ん…」
					PRINTFORMW 白蓮は一瞬身を強張らせたが、ほどなくしてあなたに身を委ねた。
					PRINTFORMW 「…ふふ、以前は、私がたくさん甘えさせてもらいましたからね」
					PRINTFORMW 「いいですよ。今度は…あなたが私に、甘えてください…」
				ELSEIF MARK:不埒刻印 == 3
					PRINTFORML 「あっ……ふふ」
					PRINTFORMW あなたに押さえつけられた白蓮は、妖艶に微笑んだ。
					PRINTFORMW 「…我慢できなくなったのね、%CALLNAME:MASTER%…」
					PRINTFORML 白蓮はあなたの首に腕を絡ませると、ささやくように続ける。
					PRINTFORMW 「いいですよ…。あなたの思うように、私の身体を弄んで…」
					PRINTFORMW そう言い終えると、あなたの耳元に息をふっと吹きかけた。
				ELSE
					PRINTFORML 「あっ、やぁっ……！」
					PRINTFORMW  あなたに押さえつけられた白蓮は、頬を染めて瞳をスッとそらした。
					PRINTFORMW 「いけません、%CALLNAME:MASTER%、こんなこと…」
					PRINTFORMW 「って、以前あなたを押し倒した私が言えた義理じゃありませんね…」
					PRINTFORMW 「その、%CALLNAME:MASTER%…我慢、できなくなっちゃったんですよね」
					PRINTFORMW 「…いいですよ。今度は、あなたのお好きなように…」
				ENDIF
			ENDIF
		;うふふ未経験
		ELSE
			IF TALENT:恋人
				PRINTFORML 「あっ…」
				PRINTFORMW あなたに押さえつけられた白蓮の頬が朱に染まっていく。
				PRINTFORMW 「その。%CALLNAME:MASTER%……」
				PRINTFORMW 「……嬉しいわ」
				PRINTFORML 「……もっと気の利いた言葉が考え付けばいいんだけれど、
				PRINTFORML 　なんだかいつにもなく緊張してるみたいね、私」
				PRINTFORMW 恥ずかしそうに白蓮が笑った。
				PRINTFORMW 「ね、%CALLNAME:MASTER%。…優しく、してね？」
				PRINTFORML
				PRINTFORMW 白蓮は、あなたの背中に手を回し、ぎゅっと抱きしめた……
				PRINTFORML

			ELSEIF TALENT:恋慕
				PRINTFORML 「あっ……」
				PRINTFORMW あなたに押さえつけられ、白蓮の頬が朱に染まっていく。
				PRINTFORMW 「その、%CALLNAME:MASTER%…我慢、できなくなっちゃったんですか？」
				PRINTFORML 答える代わりに、彼女の身体をぐっと抱き寄せる。
				PRINTFORML 「ん…」
				PRINTFORMW 白蓮は一瞬身を強張らせたが、ほどなくしてあなたに身を委ねた。
				PRINTFORMW 「…わかりました。あなたの欲望を、ぜんぶ私が受け止めてあげます」
				PRINTFORMW 「さあ、%CALLNAME:MASTER%。沢山、甘えていいんですよ…」
			ELSE
				PRINTFORML 「あっ、やぁっ……！」
				PRINTFORMW  あなたに押さえつけられた白蓮は、頬を染めて瞳をスッとそらした。
				PRINTFORMW 「いけません、%CALLNAME:MASTER%、こんなこと…」
				PRINTFORML 白蓮はあなたの手首をつかんでみせるものの、本気で振り払おうという気はないようだ。
				PRINTFORML 「だめ……ぁ…」
				PRINTFORMW あなたの手が髪をそっと梳くと、白蓮は瞳を潤ませてあなたを見つめた…
			ENDIF
			;MASTERが先に押し倒して初うふふを経験　フラグ
			IF CFLAG:1200 == 0
				CFLAG:1200 = 1
				;同時に、初うふふを経験した日として記録
				CFLAG:1206 = DAY:0
			ENDIF
		ENDIF
		CFLAG:1350 = 1
	;押し倒し返し。恋人の時は余裕、恋慕のときは甘えてほしい、不埒3のときはバッチコイ、そうでもなければ一転してしおらしく。
	ELSEIF CFLAG:317 == 2
		IF TALENT:恋人
			IF RAND:3 == 0
				PRINTFORMW 「きゃ！？　…その気になってくれたのね？」
				;白蓮が奉仕（手淫、口淫、素股、パイズリ）をしていた
				IF GROUPMATCH(TCVAR:20,50,51,52,53)
					PRINTFORMW 「ふふ、気持ちよかったかしら…さあ、次はあなたが、私を気持ちよくして頂戴…」
				;白蓮が挑発（スカート捲り、股間まさぐり、スカートの中見せ、クンニ強制）していた
				ELSEIF GROUPMATCH(TCVAR:20,13,34,35,70)
					PRINTFORMW 「ふふ、興奮してくれたのかしら。…さ、存分に愛し合いましょう？」
				ELSE
					PRINTFORMW 「ね、そうやって、たくさん私を愛して…」
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORMW 「っ！…ふふっ、我慢の限界かしら？」
				;白蓮が奉仕（手淫、口淫、素股、パイズリ）をしていた
				IF GROUPMATCH(TCVAR:20,50,51,52,53)
					PRINTFORMW 「気持ちよかった？…さ、次はあなたの番よ」
				;白蓮が挑発（スカート捲り、股間まさぐり、スカートの中見せ、クンニ強制）していた
				ELSEIF GROUPMATCH(TCVAR:20,13,34,35,70)
					PRINTFORML 「ああやってあなたを煽るのって、ちょっと恥ずかしいけれど、興奮するのよね…」
					PRINTFORMW 「あはっ、あなたも興奮してくれたのよね？」
				ELSE
					PRINTFORMW 「さあ、あなたの愛をちょうだい…」
				ENDIF
			ELSE
				PRINTFORM 「あっ…　ふふ…
				;潤滑Lv.3以上
				IF PALAM:潤滑 >= PALAMLV:3
					PRINTFORMW 私のほうは、準備万端よ？」
				ELSE
					PRINTFORMW ねえ、まだあまり濡れてないから、まずは優しくして頂戴…？」
				ENDIF
				PRINTFORMW 「いつもみたいに、沢山愛を交わしましょう…」
			ENDIF
		;恋慕
		;/自分から攻めといて、いざ押し倒されたら固まる。
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORMW 「あっ…%UNICODE(0x2665)%」
				;白蓮が奉仕（手淫、口淫、素股、パイズリ）をしていた
				IF GROUPMATCH(TCVAR:20,50,51,52,53)
					PRINTFORM 懸命に奉仕していた
				;白蓮が挑発（スカート捲り、股間まさぐり、スカートの中見せ、クンニ強制）していた
				ELSEIF GROUPMATCH(TCVAR:20,13,34,35,70)
					PRINTFORM 頬を上気させながら挑発していた
				ELSE
					PRINTFORM 淫らな行為に耽っていた
				ENDIF
				PRINTFORMW 白蓮を抱きしめて、そのまま優しく横たえた…
			ELSEIF RAND:2 == 0
				PRINTFORML 「あ…」
				;ランダム1/3かつ白蓮が奉仕（手淫、口淫、素股、パイズリ）をしていた
				IF RAND:3 == 0 && GROUPMATCH(TCVAR:20,50,51,52,53)
					PRINTFORM 懸命に奉仕していた白蓮を優しく押し倒すと、
				;ランダム1/2かつ白蓮が挑発（スカート捲り、股間まさぐり、スカートの中見せ、クンニ強制）していた
				ELSEIF RAND:2 == 0 && GROUPMATCH(TCVAR:20,13,34,35,70)
					PRINTFORM 頬を上気させながら挑発していた
				ELSE
					PRINTFORM 淫らな行為に耽っていた白蓮を優しく押し倒すと、
				ENDIF
				PRINTFORMW 優しく微笑んでこちらを見上げてきた…
				PRINTFORMW 「ふふ、今度はあなたが私に甘えてください…」
			ELSE
				PRINTFORML 「いいですよ、沢山私に甘えてください…」
				PRINTFORMW 押し倒すと、白蓮は慈母のような笑みを浮かべて両手を広げた…
			ENDIF
		;不埒３
		ELSEIF MARK:不埒刻印 == 3
			IF RAND:3 == 0
				PRINTFORMW 「わっ…と、…ふふ、その気になったの？」
				;白蓮が奉仕or挑発（手淫、口淫、素股、パイズリ）をしていた
				IF GROUPMATCH(TCVAR:20,50,51,52,53,13,34,35,70)
					PRINTFORMW 「今度はあなたの番よ…気持ちよくして頂戴ね」
				ELSE
					PRINTFORMW 「さあ、私の身体を好きにしてごらんなさい？」
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORMW 「っ！…ふふっ、我慢できなくなった？」
				PRINTFORMW 「さあ、お互い楽しみましょう…？」
			ELSE
				PRINTFORM 「あっ…　ふふ…
				;潤滑Lv.4以上
				IF PALAM:潤滑 >= PALAMLV:4
					PRINTFORMW ほら、見える…？準備はもうできてるわ」
				ELSE
					PRINTFORMW 焦っちゃ駄目よ…？まずは前戯から、ね…？」
				ENDIF
				PRINTFORMW 「いつもみたいに、私を気持ちよくさせて…」
			ENDIF
		;恋人、恋慕、不埒なし
		;攻められると弱い初期サドッ気2
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「ぁ、ぅ…」
				PRINTFORMW 押し倒されると、途端にしおらしくなる白蓮であった。
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あっ……」
				PRINTFORML 淫靡な表情であなたをいたぶっていた白蓮だが、
				PRINTFORMW 組み敷かれた途端に顔を真っ赤にして固まった…
			ELSE
				PRINTFORMW 「わ……あぅ…」
				PRINTFORMW 先ほどまでの攻めから一転して大人しくなった…
			ENDIF
		ENDIF
	;こちらから押し倒した
	ELSE
		;白蓮私室かつ1/3
		IF CFLAG:現在位置 == CFLAG:初期位置 && RAND:3 == 0
			;昼（6時～19時）
			IF TIME:2 == 1 || TIME:2 == 2
				IF TALENT:恋人
					PRINTFORMW 「ちょっと…いま、お布団を敷くから待って…ぁん、せっかちな人…%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕
					PRINTFORMW 「…こんな明るいうちからだなんて。…もう、仕方のない人ですね…%UNICODE(0x2665)%」
				ELSEIF MARK:不埒刻印 == 3
					PRINTFORML 「…ん、ちょっと待ってね、今お布団敷いちゃうから」
					PRINTFORMW 「もう、がっついちゃ駄目よ。ん、ぅん…」
				ELSE
					PRINTFORMW 「もう、わざわざ私の部屋に来てまで……」
					PRINTFORMW 「…う、せめてお布団は敷かせてください…」
				ENDIF
			;夜
			ELSE
				IF TALENT:恋人
					PRINTFORML 「…ふふ、夜這いかしら。いいわよ、来て頂戴…」
					PRINTFORMW 白蓮は布団の上でしなを作ってみせた。
				ELSEIF TALENT:恋慕
					PRINTFORML 「…ふふ、こんな時間に何の用かと思ったら、そういうことだったのね」
					PRINTFORMW 「いいですよ、好きなようにして…」
				ELSEIF MARK:不埒刻印 == 3
					PRINTFORMW 「ふふ、夜這いだなんて大胆ね…」
				ELSE
					PRINTFORMW 「もう。本当に、仕方のない人…」
				ENDIF
			ENDIF
		;外
		ELSEIF OUTROOF(CFLAG:現在位置)
			;露出癖4以上
			IF ABL:露出癖 >= 4
				PRINTFORML 「ああ、こんなところ、誰かに見られたら、私は…」
				PRINTFORMW 恥ずかしがる白蓮だが、その声は欲情で上ずっていた…
			ELSE
				PRINTFORML 「…ちょっと、こんなところ…誰かに見られたら、どう…きゃっ…！」
				PRINTFORMW 抗議の声をあげる白蓮を無視して行為をはじめた…
			ENDIF
		ELSE
			IF TALENT:恋人
				IF RAND:3 == 0
					PRINTFORML 「ん、もう…我慢できなくなったの？」
					PRINTFORMW 「ふふ、いいわよ。沢山愛して頂戴…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ふふ…待ってました、%CALLNAME:MASTER%」
					PRINTFORMW 「さあ、愛し合いましょう…」
				ELSE
					PRINTFORML 「やん、がっつかないの」
					PRINTFORMW 「逃げたりなんかしないから、ゆっくり楽しみましょう？」
				ENDIF
			ELSEIF TALENT:恋慕
 				IF RAND:3 == 0
					PRINTFORML 「ふふ、私に甘えたくなったの？」
					PRINTFORMW 「いいですよ。さあ、いらっしゃい…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「%CALLNAME:MASTER%…」
					PRINTFORMW 白蓮はあなたの腕の中で恍惚としている…
				ELSE
					PRINTFORML 「あ…したいんですね…」
					PRINTFORMW 「ふふ。たくさん甘えて、たくさん気持ちよくなっていいんですよ…」
				ENDIF
			;不埒3
			ELSEIF MARK:不埒刻印 == 3
				IF RAND:3 == 0
					PRINTFORMW 「…したいの？ふふ、いいわよ…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「…ん。気持ちよくしてちょうだいね…」
				ELSE
					PRINTFORMW 「いいわよ…一緒に楽しみましょう…」
				ENDIF
			;恋人、恋慕、不埒なし
			ELSE
				IF RAND:5 == 0
					PRINTFORML 「だめです、%CALLNAME:MASTER%。こんなこと、いけません…」
					PRINTFORMW 白蓮は抗議の言葉を弱弱しく口にしたが、あなたに組み敷かれると大人しくなった…
				ELSEIF RAND:4 == 0
					PRINTFORMW 「ああ、こんなこと、本当はいけないのに…」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「あぁ…だめ、駄目ですよっ…」
				ELSEIF RAND:2 == 0
					PRINTFORMW （ああ、駄目、このままじゃ流されて…）
				ELSE
					PRINTFORMW （少しだけ、少しだけだから…）
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	;リセット
	CFLAG:1501 = 0
	;絶頂カウントリセット
	CFLAG:1502 = 0
	CFLAG:1503 = 0
	CFLAG:1504 = 0
	CFLAG:1505 = 0
ENDIF
RETURN 1
;==================================================
;351,連れ出す
;==================================================
@M_KOJO_MESSAGE_COM_K55_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K55_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGET連れ出し
	IF CFLAG:同行 == 60
	;TARGET以外連れ出し(TARGET同行中のみ
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白する
;FLAG:甲斐性無(1=失敗)
;TFLAG:193 (1=成功 0=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_352
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;353,イタズラする
;FLAG:甲斐性無(1=失敗)
;==================================================
@M_KOJO_MESSAGE_COM_K55_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;354,添い寝する（相手は起きて布団に招く感じ）
;CFLAG:衰弱(1以上=起きない
;CFLAG:お招き(0以外=起きない
;==================================================
@M_KOJO_MESSAGE_COM_K55_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF RAND:3 == 0
		PRINTFORML 「うーん…添い寝したい、ですか…」
		PRINTFORMW 「まあ、構いません。どうぞ…」
	ELSEIF RAND:2 == 0
		PRINTFORML 「ん……あなたの匂いがします」
		PRINTFORMW 布団に潜り込むと、白蓮はぽつりと呟いた…
	ELSE
		PRINTFORML 「わかりました、では、こちらに…」
		PRINTFORMW 白蓮は少し端に寄って場所を開けてくれた…
	ENDIF
ENDIF
RETURN 1
;==================================================
;355,時止め（地の文の改変程度に留めるべき
;==================================================
@M_KOJO_MESSAGE_COM_K55_355
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_355_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_355_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;360,身を任せる
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K55_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;カウンターキス
	IF TCVAR:20 == 30
		IF RAND:2 == 0
			PRINTFORML 「ちゅむ…ちゅ…%CALLNAME:MASTER%…ちゅぅ…ちゅぷ、ちゅる…」
			PRINTFORMW されるがままにしていると、白蓮は所かまわずキスの雨を降らせてきた…
		ELSE
			PRINTFORML 「ん、ちゅ、れるぅ…ねえ、あなたも、舌を出して…」
			PRINTFORMW 白蓮は誘うようにあなたの口唇に舌を這わせている。
		ENDIF
	;カウンター胸を揉ませる
	ELSEIF TCVAR:20 == 33
		IF RAND:3 == 0
			PRINTFORML 「…あ、は…%UNICODE(0x2665)% %CALLNAME:MASTER%の手、凄い…」
			PRINTFORMW 白蓮はあなたの手を自身の柔肉に食い込ませている…
		ELSEIF RAND:2 == 0
			PRINTFORML 「…ん、はぁ……こうやって乳首をぐりぐり、ってぇ…%UNICODE(0x2665)%」
			PRINTFORMW 白蓮はあなたの手を持って自ら乳房を撫でまわし、自分を慰めている…
		ELSE
			PRINTFORML 「ほら、あなたも揉んでいいんですよ…」
			PRINTFORMW 白蓮はあなたの手を胸元へ導くと、自らの手と重ねて乳房を刺激した…
		ENDIF
	;カウンター股間をまさぐる
	ELSEIF TCVAR:20 == 34
		;※TEQUIP:PLAYER:0 > 3が条件
		IF RAND:2 == 0
			PRINTFORML 動かないあなたの股はさらに激しく擦りあげられる。
			PRINTFORMW 「布越しでも、あなたの熱を感じられるものなんですね…」
		ELSE
			PRINTFORML 動かないあなたの手に、白蓮の股間が押し付けられる。
			PRINTFORMW 「ほら、あなたも休んでないで、私を楽しませてください…」
		ENDIF
	;カウンター素股
	ELSEIF TCVAR:20 == 52
		IF RAND:3 == 0
			PRINTFORMW 「ああ…%UNICODE(0x2665)%…これ、あなたのモノで慰めているみたい…はっ、ぁ%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ねぇ…これ、もどかしいでしょう…？」
			PRINTFORMW 「ふふ、いれたいっ…かしら？ぁん%UNICODE(0x2665)%でも…だーめ%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ふふ…っ、気持ちいいですか…？%CALLNAME:MASTER%」
			PRINTFORMW 「それじゃあ…もっと気持ちよくしてあげますね……んっ、はぁっ…%UNICODE(0x2665)%」
		ENDIF
	;カウンターパイズリ
	ELSEIF TCVAR:20 == 53
		IF RAND:3 == 0
			PRINTFORML 「ふふ、そう…何もしないでいいんですよ…」
			PRINTFORMW 「…そのまま、ふぁっ…%UNICODE(0x2665)%私のおっぱいとおちんちんの事だけを考えていればいいんです…」
		ELSEIF RAND:2 == 0
			PRINTFORML 「はぁ、はぁ…っ%UNICODE(0x2665)%あなたの先走りで、おっぱいがどろどろです…」
			PRINTFORMW 「あなたの匂いが、染みついてしまいそう…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「抵抗しなくていいんですか？…ほら、あなたのおちんちんがおっぱいに食べられてしまいますよ？」
			PRINTFORMW 「むぎゅーっ…ふふ%UNICODE(0x2665)%いやらしい事ばかり考えているおちんちんは、私が懲らしめてあげます…%UNICODE(0x2665)%」
		ENDIF
	;カウンターディープキス
	ELSEIF TCVAR:20 == 60
		IF RAND:3 == 0
			PRINTFORML 「んむ…！ちゅう、れる、ちゅぅ…ちゅぷ、ちゅる、れろぉ…」
			PRINTFORMW 白蓮はあなたの口内へ舌を割りいれると、歯の裏表、口蓋、舌と所かまわず蹂躙した…
		ELSEIF RAND:2 == 0
			PRINTFORML 「…じゅる…ちゅ、れろ…ちゅ…じゅぅぅ、っは、ちゅ、ちゅむ、れるぅ…」
			PRINTFORMW 白蓮はあなたの頬を押さえつけて口腔内を好き放題にしている。
		ELSE
			PRINTFORML 「ん…はぷ……ちゅる…じゅちゅぅ、ぷじゅ、ちゅうう…」
			PRINTFORMW 「ぷぁ…そう、唾液をもっと交換して…ちゅむ、れりゅ、ちゅぴ、ちゅるるぅ…%UNICODE(0x2665)%」
		ENDIF
	;カウンタークンニ強制
	ELSEIF TCVAR:20 == 70
		IF RAND:3 == 0
			PRINTFORML 「はあ、あっ%UNICODE(0x2665)%あ、あなたの息がかかってぇ…%UNICODE(0x2665)%」
			PRINTFORMW 「顔っ…擦れて、あっ%UNICODE(0x2665)%ぐりぐり、って…%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORML 「はあっ、うぁ、あなたの舌、イイ…っ」
			PRINTFORMW 「もっと、奥まで、はっぁ%UNICODE(0x2665)%あっ…%CALLNAME:MASTER%…っ！」
		ELSE
			PRINTFORML 「ふひゃっ、ああ、そ、そう、私の敏感なとこ、吸ってっ…！」
			PRINTFORMW 白蓮は腰を動かしてあなたの顔に自分の感じる場所をこすりつけている…
		ENDIF
	;カウンターアナル奉仕
	ELSEIF TCVAR:20 == 72
		IF ABL:Ａ感覚 <= 1
			PRINTFORMW 「…お尻は嫌だったかしら」
		ELSEIF ABL:Ａ感覚 <= 3
			PRINTFORMW 「ほら、あんなに弄ってくれたでしょう…？」
		ELSE
			PRINTFORML 「ぁ…っは、お尻、弄られて…っ」
			PRINTFORMW 白蓮は嬉しそうにあなたのアナル奉仕を受けている…
		ENDIF
	;カウンター騎乗位
	ELSEIF TCVAR:20 == 81
		IF RAND:3 == 0
			PRINTFORMW 「んんっ、はっ…ほら、あなたも腰を使って…！」
			PRINTFORMW 「私が満足するまで、ずっと犯し続けてあげるんだから…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふふ…ほら、見える？ん…っぅ！私たち、繋がってしまっているんですよ…」
			PRINTFORMW 白蓮は怪しく微笑みながら、結合部を見せつけてきた…
		ELSE
			PRINTFORML 「ああっ、はっ、んんっ、いい…すごくっ、いい…っ%UNICODE(0x2665)%」
			PRINTFORMW あなたが何もせずとも、白蓮は夢中になって腰を動かし続けている…
		ENDIF
	ELSE
		;MASTERの気力が0
		IF  RAND:4 == 0 && BASE:MASTER:気力 <= 0
			PRINTFORML 「…バテちゃったの？」
			PRINTFORMW 「じゃあ、そのまま大人しく私に犯されていなさい…%UNICODE(0x2665)%」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「私がぜんぶしてあげますから、あなたはそのまま楽しんで…」
		ELSEIF RAND:2 == 0
			PRINTFORML 「ん…どうしたんですか？」
			PRINTFORMW 「ふふ、何もしないなら、好きにさせてもらいますよ…」
		ELSE
			PRINTFORMW 「そうです…そのまま、なにもしないで…」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;361,抵抗する
;TCVAR:20(27=谷間を見せる 32=前から抱きつく 35=スカートの中を見せる 53=パイズリ 73=ぱふぱふ 77=乳を吸わせる 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ
;==================================================
@M_KOJO_MESSAGE_COM_K55_361
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_361_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_361_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;363,読み聞かせ（[幼稚]持ち専用）
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;CFLAG:添い寝中(1=布団orベッドの中で本を読む
;MASTERがTARGETより大柄の場合、膝の上にTARGETを乗せる
;==================================================
@M_KOJO_SUCCESS_COM_K55_363
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_363
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_363_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_363_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;364,豆まき(萃香、勇儀、スカーレット姉妹用
;TFLAG:193(豆まきに参加してる人数
;==================================================
@M_KOJO_MESSAGE_COM_K55_364
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_364_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_364_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;365,守矢神社へ移動(早苗、神奈子、諏訪子用
;==================================================
@M_KOJO_MESSAGE_COM_K55_365
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_365_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_365_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;402,就寝
;TFLAG:193(0=通常 1=子供と一緒に川の字で寝る)
;==================================================
@M_KOJO_MESSAGE_COM_K55_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K55_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;403,休憩
;CFLAG:TARGET:睡眠(1=TARGETが寝てる隣で休憩
;==================================================
@M_KOJO_MESSAGE_COM_K55_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;浴場にいる
	IF BATHROOM(CFLAG:現在位置)
		IF TALENT:恋人
			PRINTFORMW 「もう少しそちらに行ってもいいですか？ふふ…」
		ELSEIF TALENT:恋慕
			PRINTFORML …白蓮の乳房が水面に波を立てている。
			PRINTFORML 「うーん、女性の素肌をじろじろ見るのはちょっと失礼よ？」
			PRINTFORMW 白蓮は手のひらでふくよかな胸の先端を隠した。
			PRINTFORMW ……姐さん、そりゃ手ブラってやつだよ。かえって卑猥だ。
		ELSE
			PRINTFORML …白蓮の乳房が水面に波を立てている。
			PRINTFORML 「うーん、女性の素肌をじろじろ見るのはちょっと失礼よ？」
			PRINTFORMW 白蓮は両腕を組むようにしてふくよかな胸の先端を隠した。
			PRINTFORMW ……サイズが強調されて、むしろ余計いやらしい。
		ENDIF
	ELSE
		;体力800以下
		IF BASE:TARGET:体力 <= 800
			IF TALENT:恋人
				PRINTFORML 「うーん…私も疲れているみたいです」
				PRINTFORMW 「ふふ、少し寄り掛かってもいいですか？」
			ELSE
				PRINTFORML 「ふう…私も疲れているみたいです」
				PRINTFORMW 「ここで休ませてもらいますね」
			ENDIF
		ELSE
			PRINTFORMW 「無理は禁物ですよ？ゆっくりしてくださいね」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;405,出掛ける(同行時デート
;条件が厄介なので、COMF405 出掛ける.ERBを参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K55_405
;出掛けるにTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K55_405_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;TARGETとデート
	IF CFLAG:同行
	;TARGET以外とデート
	ELSEIF CFLAG:MASTER:同行
	;お出かけお見送り
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;410,掃除
;FLAG:70(1=時間停止中
;TFLAG:193(0=見てるだけ 1=一緒に掃除)
;TFLAG:194(3=汚れ高 2=汚れ中 1=汚れ低 0=汚れ最小
;OUTROOF(CFLAG:現在位置)(野外掃除（冬は雪かき
;==================================================
@M_KOJO_MESSAGE_COM_K55_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠
	IF CFLAG:TARGET:睡眠
		PRINTFORMW 白蓮を起こさないよう静かに掃除を済ませた…
	ELSE
		SELECTCASE TFLAG:194
		CASE 0
			IF RAND:2 == 0
				PRINTFORMW 「神は細部に宿る、と。どこぞの建築家の言葉でしたかね」
			ELSE
				PRINTFORML 「部屋の乱れは心の乱れ」
				PRINTFORMW 「目立つ汚れが無くとも、出来る限り綺麗にしておきたいものですね」
			ENDIF
		CASE 1
			IF RAND:2 == 0
				PRINTFORML 「自性清浄です。寺という空間も、そして心も、元来美しく清らかなものであって…」
				PRINTFORMW 掃除中にちょっとした説法が始まってしまった…
			ELSE
				PRINTFORMW 「集めてみると、なかなかな量の埃ですね」
			ENDIF
		CASE 2
			PRINTFORML 「少しずつでも、確実に片付けていきましょう」
			PRINTFORMW 「…ところで、お互いひと段落ついたらお茶でも飲みませんか？」
		CASE 3
			IF RAND:2 == 0
				PRINTFORML 「ふふふ…こうなっては、吹き飛ばしてしまった方が……いざ…」
				PRINTFORMW 白蓮の周りに怪しげな光球が浮かぶのを見て、あなたは慌てて止めに入った
			ELSE
				PRINTFORML 「ざーんげざんげろっこんしょうじょー……」
				PRINTFORMW 白蓮は念仏を唱えながらゴミの山と格闘している…
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;TFLAG:194(3=夏の昼間 2=ヤバい天気 1=悪天候 0=屋内or通常天気
;==================================================
@M_KOJO_MESSAGE_COM_K55_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;MASTERの戦闘能力3以上
	IF ABL:MASTER:戦闘能力 >= 3
		IF RAND:2 == 0
			PRINTFORML 「…なかなかやりますね」
			PRINTFORMW 「次の機会には『覇王の秘技』を使わざるを得ないかもしれません」
			;命蓮寺中で派手にやったる
		ELSE
			PRINTFORML 「ふぅ…、見事なものです」
			PRINTFORMW 「これくらいで一度切り上げましょうか。寒天ゼリーで一服いかがです？」
			;お寺においてあるお菓子って、どうしておばあちゃんちにありそうなヤツばっかりなんですかね？
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「私の勝ちですが…うーん、抱え落ちですか」
			PRINTFORMW 「無理に練達者の真似はせず、危険な状況を判断できるようになることがまず肝要ではないでしょうか」
		ELSEIF RAND:2 == 0
			PRINTFORML 「敵を知り、己を知れば百戦危うからず、です」
			PRINTFORMW 「一見避けきれないように見える弾幕にも、ある程度の法則があるはずですよ」
		ELSE
			PRINTFORMW 「弾幕避けの究極は、3つの気によって為されるのです」
			PRINTFORMW 「気合い！気合い！！気合い！！！それでAllRight！！」
			;気合い避けスキルが欲しい
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,勉強
;ABL:教養(ABL:MASTER:教養より大=MASTERが教えてもらう ABL:MASTER:教養より小=TARGETが教えてもらう
;==================================================
@M_KOJO_MESSAGE_COM_K55_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;連続
	IF PREVCOM == SELECTCOM && RAND:2 == 0
		PRINTFORML 「ずいぶんご熱心ですね」
		PRINTFORMW 「お茶でも持ってきましょうか？」
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「…なるほど、そういった解釈もあるのですね」
			PRINTFORMW 「ふふ、こちらとしても勉強になります」
		ELSEIF RAND:2 == 0
			PRINTFORML 「…ささやき ― えいしょう ― いのり ― ねんじろ！」
			PRINTFORMW 「といった具合でしょうか」
			IF RAND:2 == 0
				PRINTFORMW 「これより上位の法術として、摩波曼というものもあるのですが…」
				;マハマンってこういう当て字すると仏教っぽい気がする
			ENDIF
		ELSE
			PRINTFORMW 「質問ですか？何でしょう…」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;413,料理
;TFLAG:194(100以上=禁断のメニュー 3=デザート 2=主食 1=軽食
;==================================================
@M_KOJO_MESSAGE_COM_K55_413
;TFLAG:194が100以上の場合のみ
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF RAND:3 == 0
		PRINTFORML 「ああ、料理ですか？それなら私も手伝いますよ」
		PRINTFORMW 白蓮に手伝ってもらいながら料理をした。
	ELSEIF RAND:2 == 0
		IF ABL:MASTER:料理技能 >= 2
			PRINTFORML 「あら、中々手際が良いのね。感心しました」
			PRINTFORMW 白蓮はあなたの手元を見てうんうんと頷いている。
		ELSE
			PRINTFORML 「そうね、これにはコツがあって…」
			PRINTFORMW 白蓮はあなたに料理のコツを説いている。
		ENDIF
	ELSE
		PRINTFORML 「これでも結構、料理は得意なつもりですよ？」
		PRINTFORMW 白蓮はてきぱきと調理をこなしている。
	ENDIF
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_K55_414
;成否判定
;TFLAG:192(-2=コマンド終了(非TARGET時強制失敗)、-1＝強制失敗、0=COM依存(非TARGET時強制成功)、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;415,食事をふるまう
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;TCVAR:MASTER:308(bit0=濃い味 bit1=薄味 bit3=激辛 bit4=激甘 bit5=わさび bit6=激酸っぱ
;==================================================
@M_KOJO_SUCCESS_COM_K55_415
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_416
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_416
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_416_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_416_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;417,昼寝をする
;TFLAG:193(0=MASTERを抱き枕にして寝ている 1=MASTERの膝を枕にして寝ている 2=寝顔にキスされた 3=寝顔をのぞき込まれた 4=MASTERが膝枕されてる 5=秘処orペニス揉み
;CFLAG:添い寝中(1=一緒に寝ている
;==================================================
@M_KOJO_MESSAGE_COM_K55_417
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_417_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_417_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;421,願掛けする
;条件が複雑なので、COMF421 願掛け.ERBおよび、EVENT_MESSAGE_COM400.ERBの願掛けするの項を参照のこと
;==================================================
@M_KOJO_MESSAGE_COM_K55_421
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_421_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_431
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_431_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_431_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;432,お風呂でくつろぐ
;表示タイミングは入浴後なので、お風呂上がりでの
;TFLAG:209(4=人里の銭湯で番台ちゃんを怒らせている 1=銭湯に入った
;TFLAG:211(4=地底の温泉で番台妖怪を怒らせている 1=温泉に入った
;==================================================
@M_KOJO_MESSAGE_COM_K55_432
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_432_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_436
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_436_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_436_1
;==================================================
;440,待つ
;==================================================
@M_KOJO_MESSAGE_COM_K55_440
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_440_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_440_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;441,授業を受ける(慧音専用
;==================================================
@M_KOJO_MESSAGE_COM_K55_441
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_441_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_441_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;442,伐採する（未実装
;==================================================
@M_KOJO_MESSAGE_COM_K55_442
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_442_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_442_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;442以降のコマンドは、実行しても口上はおそらく表示されないのでテンプレでもスルー
;==================================================

;※※※※※※※※※※※※※※※※※※※※※※※※※
;デート系コマンド
;デート系口上は文字通り外出先で発生
;※※※※※※※※※※※※※※※※※※※※※※※※※
[SKIPSTART]
;現状未実装
;==================================================
;600,デート会話
;==================================================
@M_KOJO_MESSAGE_COM_K55_600
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_600_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_600_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;601,デートスキンシップ
;==================================================
@M_KOJO_MESSAGE_COM_K55_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_601_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_601_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;602,デートキス
;==================================================
@M_KOJO_MESSAGE_COM_K55_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_602_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_602_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
[SKIPEND]
;==================================================
;603,手を繋ぐ
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗でもふりほどかれたりはしません
;==================================================
@M_KOJO_SUCCESS_COM_K55_603
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;604,散策する
;デート中の場合、CFLAG:現在位置に移動先の場所が既に入ってる
;==================================================
@M_KOJO_MESSAGE_COM_K55_604
;散策するにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K55_604_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;605,寄り道する
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文無し
;==================================================
@M_KOJO_SUCCESS_COM_K55_605
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_605
;寄り道するにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K55_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;610,食事に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;==================================================
@M_KOJO_SUCCESS_COM_K55_610
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;613,お金稼ぎする（オミットされました
;==================================================
@M_KOJO_SUCCESS_COM_K55_613
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_613_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_613_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;614,食材の買い出し
;TFLAG:193(1=購入＆デート経験アップ 0=購入 -1=非購入)
;==================================================
@M_KOJO_MESSAGE_COM_K55_614
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_614_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_615
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_615_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_615_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;617,甘味処に誘う
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐は大成功のみ追加
;==================================================
@M_KOJO_SUCCESS_COM_K55_617
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_COM_K55_617
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_617_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_617_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;618,花屋（口上は表示されない模様？
;==================================================
@M_KOJO_MESSAGE_COM_K55_618
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_618_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_620
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_620_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_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_K55_621
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_621_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_621_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

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

@M_KOJO_MESSAGE_COM_K55_660_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;698,部屋に入る
;TARGETの部屋に入る場合のみ表示
;==================================================
@M_KOJO_MESSAGE_COM_K55_698
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_698_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_698_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;699,外に出る
;==================================================
@M_KOJO_MESSAGE_COM_K55_699
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K55_699_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K55_699_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,耳かき
;前ターン膝枕後スキンシップコマンド
;TFLAG:193(1=大成功 0=成功 -1=失敗)(失敗するのはTARGET
;==================================================
@M_KOJO_SUCCESS_SCOM_K55_60
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K55_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K55_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K55_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW 「このまま耳かきしてほしい？ええ、構いませんよ」
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	;IF TALENT:恋慕
	;	PRINTFORMW
	;	RETURN 1
	;それ以外
	;ELSE
		;失敗
		IF TFLAG:193 == -1
			PRINTFORML 「…おっとと、少し危なかったかしら」
			PRINTFORMW …どう危なかったのか聞くべきだろうか。
		;成功or普通
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「どうかしら？結構慣れているつもりなのだけれど…」
			ELSE
				PRINTFORMW 「気持ちいい？ふふ。良かった」
			ENDIF
		ENDIF
		RETURN 1
	;ENDIF
ENDIF
RETURN 1
;==================================================
;61,抱きまくら
;(TARGET睡眠時間or衰弱)添い寝中、前ターン抱きつく後就寝コマンド
;分岐無し
;==================================================
@M_KOJO_MESSAGE_SCOM_K55_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K55_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K55_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋人
	IF TALENT:恋人
		IF RAND:3 == 0
			PRINTFORMW 「ふふ…こういうのも、恋人らしくていいですね」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「…%CALLNAME:MASTER%…」
		ELSE
			PRINTFORML 「…ふふ、おやすみなさい。%CALLNAME:MASTER%」
			PRINTFORMW 慈しむような白蓮の手の温もりを感じていると、いつの間にか眠りに落ちていた…
		ENDIF
	ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「…%CALLNAME:MASTER%？…はぁ、眠ってしまったのね」
			PRINTFORML 「本当に仕方のない人。私をこんな気持ちにさせて、こんな思わせぶりなことして…」
			PRINTFORMW 「まあ、可愛い寝顔は見られたし、今日のところは許してあげる」
		ELSE
			PRINTFORML 「…何か怖いものでもあるのかしら？」
			PRINTFORML 白蓮はあなたの身体を優しく撫でた。
			PRINTFORML 「大丈夫、私がついています。何か困ったことがあったら、いつでも言ってくれていいから…」
			PRINTFORMW 慈しむような手の温もりを感じていると、いつの間にか眠りに落ちていた…
		ENDIF
	;それ以外
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「何か怖いものでもあるのかしら…？」
		ELSE
			PRINTFORML 「…はぁ、仕方のない人」
			PRINTFORMW 「まあ、寝顔は可愛いし、今日は許してあげましょうか」
		ENDIF
	RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;62,デコちゅー
;前ターン頭撫で後キスする
;TFLAG:193(1=大成功 0=成功 -1=失敗)(地の文分岐無し
;ABL:欲望(5以上=物足りない
;ABL:親密(5以上=照れる
;==================================================
@M_KOJO_SUCCESS_SCOM_K55_62
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K55_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K55_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K55_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FIRSTTIME(SELECTCOM)
			PRINTFORMW 「ん…ちょっとくすぐったいですね」
		RETURN 1
	ENDIF
	;恋人
	IF TALENT:恋人
		IF ABL:欲望 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「ん、もう…焦らさないでちょうだい…？」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ふふ…それじゃあ、次はこっちね…」
				PRINTFORMW 白蓮はあなたに向かって唇を突き出した…
			ELSE
				PRINTFORMW 「んっ…ふふ、くすぐったい」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「ふふ…少しくすぐったいですね」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ん…おでこでいいの？」
			ELSE
				PRINTFORMW 「ん…♪」
			ENDIF
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF ABL:欲望 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「んっ…ふふ、くすぐったい」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ん……%CALLNAME:MASTER%、そこでいいの…？」
				PRINTFORMW 白蓮はあなたにしなだれかかった…
			ELSE
				PRINTFORMW
			ENDIF
		ELSE

		ENDIF
		RETURN 1
	;それ以外
	ELSE

	ENDIF
ENDIF
RETURN 1
;==================================================
;63,もっとキスする
;前ターンキスする後キスする
;分岐条件はEVENT_MESSAGE_COM500.ERB参照
;==================================================
@M_KOJO_SUCCESS_SCOM_K55_63
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K55_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K55_63_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K55_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_K55_80
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_MESSAGE_SCOM_K55_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K55_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K55_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/聖/M_KOJO_K55_日常系コマンド.ERB