code:
;-------------------------------------------------
; eraTheWorld proto4.15用 華扇口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;華扇ちゃんぺろぺろ
;とりあえずコマンドを少しだけ
;謎が多いキャラだし、口調も敬語だったりタメ口だったりで安定しないから難しい、突っ込みどころがあったらどうぞ
;茨歌仙のネタばれがあるけど問題ないよね
;今後の流れとしては
;華扇ちゃんが生粋の善人→死ぬほど書く
;華扇ちゃんが元悪人現善人→普通に書く
;華扇ちゃんが生粋の悪人→死ぬ
;実はJ+用に書き溜めてたやつなので完成したらJ+用も作ります
;元気があったらYMで純愛する用のも……は書かないことにしましためんどくさい＆新ヴァリ作りたい
;加筆改変はいまんとこNGで
;修正、再配布はオッケーです

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K43 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K43 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** Copyright ****************************************************************
;本口上の修正について（許可する行為のみ残してください）
;【誤字・脱字修正】【分岐条件・erb構文に関する修正】【本体Ver・Rev変更対応】【フラグの管理・修正】

;本口上の加筆・改変について（許可する行為のみ残してください）
;

;本口上に対するメンテナンス禁止時限について（設定しない場合、未設定のみ残してください）
;【未設定】【設定：期間 YY-MM-DDからYY-MM-DDまでオリジナル作者のみ修正可】【期限延長 有】

;本口上に対するその他但し書き
;【 】【 】
;******************************************************************************
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:1000　華扇ちゃんネタバレ話用　1:仙人になった理由を聞いた　2:腕の話を聞いた
;CFLAG:1010　パイズリ日課用　1:日課にする宣言　2:寝起きでパイズリ済み　3:断った
;CFLAG:1020　どの体位が初めてだったか　1:正常位　2:対面座位　3:後背位　4:背面座位　5:騎乗位　6:華扇から騎乗位　7:立位　8:バイブ
;CFLAG:1021　プレイヤーと性交した事があるか否か
;CFLAG:1022　ゴムなし生セックスで絶頂した回数(未実装)
;CFLAG:1023　プレイヤーの精液を膣内に出されたことがあるか否か
;
;
;
;
;
;
;
;
;
;******************************************************************************

;PS 寅の人
;オリジナル作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
;また本体処理・他口上処理等に干渉する異常処理がある場合でオリジナル作者による修正が
;行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
;その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい

;### 口上存在判定 ###################################
@M_KOJO_K43(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K43_1() とかで呼ばれる…はず。（未テスト機能）
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K43

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K43
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K43
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
SELECTCASE CFLAG:300
CASE 仙人の屋敷
	PRINTFORMW 「あら、貴方は？」
	PRINTFORML %CALLNAME:MASTER%は目の前の女性に自己紹介をした
	PRINTFORMW 「%CALLNAME:MASTER%と言うのですか、私は茨木華扇、只の行者です」
	PRINTFORMW 「それで、私の家に何か御用ですか？」
	PRINTFORMW 「適当に進んだらここに着いた？……おかしいわね」
	PRINTFORMW 「……少し、貴方の事を聞かせて下さいな」
	PRINTFORML ………………
	PRINTFORML …………
	PRINTFORML ……
	PRINTFORMW 「成程、博麗神社で……」
	PRINTFORMW 「あそこには私もよく顔を出します」
	PRINTFORMW 「貴方の事にも少し興味が湧いてきましたし、これから縁がありそうですね」
	PRINTFORMW そう言って華扇は%CALLNAME:MASTER%に微笑んだ
CASE 0 TO 55
	PRINTFORMW 「あら、貴方は？」
	PRINTFORML %CALLNAME:MASTER%は目の前の女性に自己紹介をし、身の上を話した
	PRINTFORMW 「%CALLNAME:MASTER%と言うのですか、私は茨木華扇、只の行者です」
	PRINTFORMW 「外の世界から来たのであれば、ここで暮らすのは大変でしょう」
	PRINTFORML 「ここには、私もよく顔を出します」
	PRINTFORMW 「貴方の事にも少し興味が湧いてきましたし、若し宜しければ助言しますよ」
	PRINTFORMW そう言って華扇は%CALLNAME:MASTER%に微笑んだ
CASEELSE
	PRINTFORMW 「あら、貴方は？」
	PRINTFORML %CALLNAME:MASTER%は目の前の女性に自己紹介をし、身の上を話した
	PRINTFORMW 「%CALLNAME:MASTER%と言うのですか、私は茨木華扇、只の行者です」
	PRINTFORMW 「外の世界から来たのであれば、ここで暮らすのは大変でしょう」
	PRINTFORML 「博麗神社には、私もよく顔を出します」
	PRINTFORMW 「貴方の事にも少し興味が湧いてきましたし、若し宜しければ助言しますよ」
	PRINTFORMW そう言って華扇は%CALLNAME:MASTER%に微笑んだ
ENDSELECT
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K43_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMW 「待って、%CALLNAME:MASTER%」
	PRINTFORMW デートの帰り道、突然華扇に呼び止められて振り向くと、目の前まで華扇が迫っていた
	PRINTFORMW 次いで唇に触れる柔らかな感触―――
	PRINTFORMW あまりに唐突な出来事に、%CALLNAME:MASTER%は軽い眩暈を覚えた……
	PRINTFORML …………………………
	PRINTFORML …………………
	PRINTFORML …………
	PRINTFORMW 「ごめんなさい、行き成りこんな事をして……」
	PRINTFORMW 「でも……今した事が、私の正直な気持ちです」
	PRINTFORML それだけ言うと、華扇は顔を真赤にして俯いてしまった
	PRINTFORMW %CALLNAME:MASTER%は何か言葉をかけようとしたが、口から出たのは息だけだった
	PRINTFORML 「…………」
	PRINTFORML 「う、う…………」
	PRINTFORMW 「うわあああああああああああぁぁぁぁぁぁぁ………………」
	PRINTFORMW 空気に耐え切れなかったのか、華扇は土煙を上げながら彼方へすっ飛んでいった……
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K43_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORMW 「%CALLNAME:MASTER%、少しお話、よろしいですか？」
		PRINTFORML デートの帰り道、急に華扇に呼び止められた
		PRINTFORMW 「まずは、今日一日ありがとうございました」
		PRINTFORML 目を閉じ、改まって頭を下げる華扇
		PRINTFORML 動きに合わせてサラリとした桃色の髪が揺れる
		PRINTFORMW 顔を上げた華扇は、丁寧な物言いを崩さず話し始めた……
		PRINTFORMW 「それで本題なのですが……」
		PRINTFORML 「……コホン」
		PRINTFORMW 「少し前から、私の中でよく判らない感情が渦巻いていまして」
		PRINTFORML 「落ち着いてるような、落ち着かないような……」
		PRINTFORMW 「なんと言葉にすればいいかも、わかりませんが……」
		PRINTFORML 「えーっと……」
		PRINTFORMW 「常日頃から……そう、貴方と一緒にいたい、と思っていました」
		PRINTFORMW 「それで……今日貴方と共に過ごして出した結論は……」
		PRINTFORML
		PRINTFORML 「『恋』ですね」
		PRINTFORMW
		PRINTFORMW 「私は……%CALLNAME:MASTER%に恋をしたようです」
		PRINTFORML
		DRAWLINE
		PRINTFORML
		PRINTFORMW 華扇に告白された
		PRINTFORML 瞬きをする度に、華扇が近づいて来ている気がする
		PRINTFORMW 華扇は何時もの凛とした表情に、ほんの少しだけ羞恥を混ぜて、%CALLNAME:MASTER%の返答を待っている
		PRINTFORMW %CALLNAME:MASTER%の返答は……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW %CALLNAME:MASTER%は華扇に自分の思いを告げた
		PRINTFORMW 華扇の表情が緩み、%CALLNAME:MASTER%ににこやかな笑みが向けられる
		PRINTFORMW 「よかった……こんなに緊張したのは久しぶりだわ」
		PRINTFORMW 「えーっと、その、だっ……だー……」
		PRINTFORMW 「抱きついても……いいかしら？」
		PRINTFORML %CALLNAME:MASTER%は腕を広げ、華扇を受け入れた
		PRINTFORML 「%CALLNAME:MASTER%……」
		PRINTFORMW 「これから、よろしくお願いします」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW %CALLNAME:MASTER%は謝罪の言葉を口にし、首を横に振った
		PRINTFORMW 「っ！！」
		PRINTFORML 「……そ、そう……」
		PRINTFORMW 「それは…………残念ね…………」
		PRINTFORML 「…………………」
		PRINTFORMW 「恋人は……いるんですか？」
		PRINTFORMW 「……そうですか、それなら……まだ私にも希望はあると」
		PRINTFORMW 「今日は退散します、いつかきっと、私のほうを振り向いてくれると信じて」
		PRINTFORML 「では、失礼します」
		PRINTFORMW 華扇は再度頭を下げ、甘い香りだけを残して去っていった……
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K43_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K43_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K43_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		;共通
		IF CFLAG:1010 == 1 && GET_TARGETNUM() < 2
			IF TALENT:マゾ
				PRINTFORML 「おはようございます、%CALLNAME:MASTER%♪」
				PRINTFORMW 下半身の衣服が脱がされ、華扇が%TINKO(PLAYER)%を胸で擦り上げていた
				PRINTFORML 「え？……何って、日課ですよ、日課」
				PRINTFORML 「この前言いいましたよね？パイズリを日課にすると」
				PRINTFORML 「いいじゃないですか、これくらい」
				PRINTFORMW 華扇はウキウキ顔で乳房を揺さぶり、射精を促している
				PRINTFORML 「気持ちいいですか？」
				PRINTFORML 「何時でも出していいですからね」
				PRINTFORML 「あん……腰振らないでくださいよっ」
				PRINTFORMW 「今は私が奉仕する番なんですから%UNICODE(0x2661)%」
				PRINTFORML
				PRINTFORML %CALLNAME:MASTER%は華扇の%OPPAI_DESCRIPTION(TARGET)%で奉仕され、寝起きから大量の精液を放ってしまった
				PRINTFORMW 華扇は精液を全て口で受け止め、美味しそうに飲み込んだ……
				PRINTFORML 「ご馳走様です♪」
				PRINTFORMW 「さ、顔を洗って、身だしなみを整えて、行動開始ですよ」
			ELSE
				PRINTFORML 「おはよう、%CALLNAME:MASTER%♪」
				PRINTFORMW 下半身の衣服が脱がされ、華扇が%TINKO(PLAYER)%を胸で擦り上げていた
				PRINTFORML 「え？……何って、日課ですよ、日課」
				PRINTFORML 「この前言いいましたよね？パイズリを日課にすると」
				PRINTFORML 「ほら、大人しくしてなさい」
				PRINTFORMW 華扇は乳房を交互に上下に動かしてペニスを擦り、射精を促している
				PRINTFORML 「気持ちいいでしょう？出していいわよ」
				PRINTFORML 「ほーらほら、次は押し潰してあげる」
				PRINTFORML 「先っぽも……ちゅっ……ん……」
				PRINTFORMW 「うふっ、ピクピクしてるわよ%UNICODE(0x2661)%」
				PRINTFORML
				PRINTFORML %CALLNAME:MASTER%は華扇の%OPPAI_DESCRIPTION(TARGET)%で責め立てられ、寝起きから大量の精液を放ってしまった
				PRINTFORMW 華扇は精液を全て口で受け止め、美味しそうに飲み込んだ……
				PRINTFORML 「ご馳走様♪」
				PRINTFORMW 「さ、顔を洗って、身だしなみを整えて、行動開始ですよ」
			ENDIF
			CFLAG:1010 = 2
		ELSEIF CFLAG:1010 == 2 && GET_TARGETNUM() < 2 && RAND:3 == 0
			IF TALENT:マゾ
				PRINTFORML 「おはようございます%CALLNAME:MASTER%、今日も例のアレを始めますよ」
				PRINTFORMW %CALLNAME:MASTER%が下半身を露出させると、華扇は嬉しそうに%TINKO(PLAYER)%に%OPPAI_DESCRIPTION(TARGET)%を擦り付けてきた
				PRINTFORML 「はっ……ん……こうやって、夜の間に溜まった悪い気を排出するんです」
				PRINTFORML 「だから、我慢せずにいっぱい出してくださいね」
				PRINTFORML 華扇は上目遣いで甘えるような視線をこちらに向けている
				PRINTFORMW %CALLNAME:MASTER%はあっという間に射精へと追い込まれてしまった……
				PRINTFORML 「うん……すごくたくさん出しましたね、健康な証拠です」
				PRINTFORMW 「さあ、行動開始しましょうか」
			ELSE
				PRINTFORML 「おはよう%CALLNAME:MASTER%、良く眠れたかしら？」
				PRINTFORMW 既に華扇が%CALLNAME:MASTER%の%TINKO(PLAYER)%を%OPPAI_DESCRIPTION(TARGET)%で挟み込んでいた
				PRINTFORML 「%CALLNAME:MASTER%の寝顔、可愛かったわよ」
				PRINTFORML 「そのせいでちょっと興奮しちゃって……」
				PRINTFORML 「はぁっ、ん……%CALLNAME:MASTER%っ……すごいわっ、本当にっ……」
				PRINTFORML 華扇は興奮し切った表情で激しく胸を動かしている
				PRINTFORMW %CALLNAME:MASTER%はあっという間に射精へと追い込まれてしまった……
				PRINTFORML 「熱っ……%UNICODE(0x2661)%もう、出しすぎよ%UNICODE(0x2661)%」
				PRINTFORMW 「さあ、スッキリしたところで行動開始よ」
			ENDIF
		ELSE
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「おはよう%CALLNAME:MASTER%」
				PRINTFORML 「はい、着替え」
				PRINTFORML 「はい、手拭」
				IF DAY:2 == 4
					PRINTFORML 「はい、お湯」
				ELSE
					PRINTFORML 「はい、お水」
				ENDIF
				PRINTFORMW 「身嗜みを整えたら朝食ですよ」
			ELSEIF TALENT:思慕
				PRINTFORML 「おはようございます、%CALLNAME:MASTER%」
				PRINTFORML 「ふふっ、寝癖がついていますよ」
				PRINTFORMW 「今、蒸した手拭を持ってきますね」
			ELSE
				PRINTFORML 「おはようございます、%CALLNAME:MASTER%」
				PRINTFORML 「はい、起きたらまず顔を洗う！」
				PRINTFORMW 「ついでに寝癖も直してきなさい、みっともないですよ」
			ENDIF
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:1010 == 1 && GET_TARGETNUM() < 2
			IF TALENT:マゾ
				PRINTFORML 「おはようございます、%CALLNAME:MASTER%♪」
				PRINTFORMW 下半身の衣服が脱がされ、華扇が%TINKO(PLAYER)%を胸で擦り上げていた
				PRINTFORML 「え？……何って、日課ですよ、日課」
				PRINTFORML 「この前言いいましたよね？パイズリを日課にすると」
				PRINTFORML 「いいじゃないですか、これくらい」
				PRINTFORMW 華扇はウキウキ顔で乳房を揺さぶり、射精を促している
				PRINTFORML 「気持ちいいですか？」
				PRINTFORML 「何時でも出していいですからね」
				PRINTFORML 「あん……腰振らないでくださいよっ」
				PRINTFORMW 「今は私が奉仕する番なんですから%UNICODE(0x2661)%」
				PRINTFORML
				PRINTFORML %CALLNAME:MASTER%は華扇の%OPPAI_DESCRIPTION(TARGET)%で奉仕され、寝起きから大量の精液を放ってしまった
				PRINTFORMW 華扇は精液を全て口で受け止め、美味しそうに飲み込んだ……
				PRINTFORML 「ご馳走様です♪」
				PRINTFORMW 「さ、顔を洗って、身だしなみを整えて、行動開始ですよ」
			ELSE
				PRINTFORML 「おはよう、%CALLNAME:MASTER%♪」
				PRINTFORMW 下半身の衣服が脱がされ、華扇が%TINKO(PLAYER)%を胸で擦り上げていた
				PRINTFORML 「え？……何って、日課ですよ、日課」
				PRINTFORML 「この前言いいましたよね？パイズリを日課にすると」
				PRINTFORML 「ほら、大人しくしてなさい」
				PRINTFORMW 華扇は乳房を交互に上下に動かしてペニスを擦り、射精を促している
				PRINTFORML 「気持ちいいでしょう？出していいわよ」
				PRINTFORML 「ほーらほら、次は押し潰してあげる」
				PRINTFORML 「先っぽも……ちゅっ……ん……」
				PRINTFORMW 「うふっ、ピクピクしてるわよ%UNICODE(0x2661)%」
				PRINTFORML
				PRINTFORML %CALLNAME:MASTER%は華扇の%OPPAI_DESCRIPTION(TARGET)%で責め立てられ、寝起きから大量の精液を放ってしまった
				PRINTFORMW 華扇は精液を全て口で受け止め、美味しそうに飲み込んだ……
				PRINTFORML 「ご馳走様♪」
				PRINTFORMW 「さ、顔を洗って、身だしなみを整えて、行動開始ですよ」
			ENDIF
			CFLAG:1010 = 2
		ELSEIF CFLAG:1010 == 2 && GET_TARGETNUM() < 2 && RAND:3 == 0
			IF TALENT:マゾ
				PRINTFORML 「おはようございます%CALLNAME:MASTER%、今日も例のアレを始めますよ」
				PRINTFORMW %CALLNAME:MASTER%が下半身を露出させると、華扇は嬉しそうに%TINKO(PLAYER)%に%OPPAI_DESCRIPTION(TARGET)%を擦り付けてきた
				PRINTFORML 「はっ……ん……こうやって、夜の間に溜まった悪い気を排出するんです」
				PRINTFORML 「だから、我慢せずにいっぱい出してくださいね」
				PRINTFORML 華扇は上目遣いで甘えるような視線をこちらに向けている
				PRINTFORMW %CALLNAME:MASTER%はあっという間に射精へと追い込まれてしまった……
				PRINTFORML 「うん……すごくたくさん出しましたね、健康な証拠です」
				PRINTFORMW 「さあ、行動開始しましょうか」
			ELSE
				PRINTFORML 「おはよう%CALLNAME:MASTER%、良く眠れたかしら？」
				PRINTFORMW 既に華扇が%CALLNAME:MASTER%の%TINKO(PLAYER)%を%OPPAI_DESCRIPTION(TARGET)%で挟み込んでいた
				PRINTFORML 「%CALLNAME:MASTER%の寝顔、可愛かったわよ」
				PRINTFORML 「そのせいでちょっと興奮しちゃって……」
				PRINTFORML 「はぁっ、ん……%CALLNAME:MASTER%っ……すごいわっ、本当にっ……」
				PRINTFORML 華扇は興奮し切った表情で激しく胸を動かしている
				PRINTFORMW %CALLNAME:MASTER%はあっという間に射精へと追い込まれてしまった……
				PRINTFORML 「熱っ……%UNICODE(0x2661)%もう、出しすぎよ%UNICODE(0x2661)%」
				PRINTFORMW 「さあ、スッキリしたところで行動開始よ」
			ENDIF
		ELSE
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「おはよう%CALLNAME:MASTER%」
				PRINTFORML 「はい、着替え」
				PRINTFORML 「はい、手拭」
				IF DAY:2 == 4
					PRINTFORML 「はい、お湯」
				ELSE
					PRINTFORML 「はい、お水」
				ENDIF
				PRINTFORMW 「身嗜みを整えたら朝食ですよ」
			ELSEIF TALENT:思慕
				PRINTFORML 「おはようございます、%CALLNAME:MASTER%」
				PRINTFORML 「ふふっ、寝癖がついていますよ」
				PRINTFORMW 「今、蒸した手拭を持ってきますね」
			ELSE
				PRINTFORML 「おはようございます、%CALLNAME:MASTER%」
				PRINTFORML 「はい、起きたらまず顔を洗う！」
				PRINTFORMW 「ついでに寝癖も直してきなさい、みっともないですよ」
			ENDIF
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K43_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K43_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K43_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K43_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K43_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める
;==================================================
@M_KOJO_EVENT_K43_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;二人とも説教
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K43_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORML 「……%CALLNAME:MASTER%、懐に何か入れてますね？」
			PRINTFORMW 「何故固まるのです？……それを出しなさい」
			PRINTFORML ……………………
			PRINTFORMW 華扇にくすねたパンツを没収された……
			IF EXP:20 >= 30 && EXP:26 >= 30 && EXP:15 >= 10 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORML %CALLNAME:MASTER%は華扇の口で{RAND:2+1}回、胸で{RAND:3+1}回、膣で{RAND:4+1}回射精させられた
				PRINTFORMW 華扇も胸で{RAND:4+5}回、膣で{RAND:7+5}回絶頂に達したようだ(前の文含め、能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSEIF EXP:20 >= 30 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORML %CALLNAME:MASTER%は華扇に騎乗位攻めを喰らい、{RAND:5+3}回射精させられた
				PRINTFORMW その途中で華扇も{RAND:7+2}回絶頂に達したようだ(前の文含め、能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSEIF EXP:26 >= 30 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORMW ……………………
				PRINTFORMW …………
				PRINTFORMW ……
				PRINTFORML %CALLNAME:MASTER%は華扇にパイズリ攻めを喰らい、{RAND:5+3}回射精させられた
				PRINTFORMW その途中で華扇も{RAND:7+2}回絶頂に達したようだ(前の文含め、能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSEIF EXP:15 >= 10 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORMW %CALLNAME:MASTER%は華扇にフェラチオ攻めを喰らい、{RAND:5+3}回射精させられた(能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSE
				PRINTFORML 「何て事を……」
				PRINTFORML 「私は……%CALLNAME:MASTER%の事を信じていました」
				PRINTFORMW 「それが……どうして……」
				PRINTFORML 華扇は目に一杯の涙を浮かべている
				PRINTFORMW 何かアクションを起こしたほうが良いだろう
				PRINTFORML [0]誠心誠意謝る
				PRINTFORML [1]逃げる
				PRINTFORML [2]代わりのパンツを強請る
				$INPUT_LOOP_1
				INPUT
				IF RESULT != 0 && RESULT != 1 && RESULT != 2
				GOTO INPUT_LOOP_1
				ELSEIF RESULT == 0
					PRINTFORML  %CALLNAME:MASTER%はありったけの言葉で、華扇に謝罪した
					PRINTFORMW 手と額を地面につけ、泣きながら反省の言葉を述べた……
					PRINTFORML 「…………もう、いいですよ」
					PRINTFORML 「今回は許してあげます、ただ……」
					PRINTFORML 「偶には、私の方を向いてくださいね……」
					PRINTFORMW 華扇は涙を拭って%CALLNAME:MASTER%に背を向けた……
				ELSEIF RESULT == 1
					PRINTFORMW %CALLNAME:MASTER%は恐怖に駆られ、一目散に逃げ出した
					PRINTFORMW しかし、まわりこまれてしまった！
					PRINTFORMW 「……正座しなさい」
					PRINTFORML ………………
					PRINTFORML …………
					PRINTFORML ……
					PRINTFORML 華扇にたっぷりとお説教を喰らった……
					PRINTFORMW %CALLNAME:MASTER%の気力が200減りました
					BASE:MASTER:気力 -= 200
				ELSEIF RESULT == 2
					PRINTFORMW %CALLNAME:MASTER%は華扇に代わりのパンツを要求した
					PRINTFORML 「…………」
					PRINTFORMW 「こんの……」
					PRINTFORMW 「ばかものーーーーーーーーーーー！！！！！！！！！」
					PRINTFORMW %CALLNAME:MASTER%の体力が500減りました
					BASE:MASTER:体力 -= 500
				ENDIF
			ENDIF
		ELSEIF TALENT:思慕
			PRINTFORML 「……%CALLNAME:MASTER%、懐に何か入れてるますね？」
			PRINTFORMW 「何故固まるのです？……さあ、私に見せてください」
			PRINTFORML ……………………
			PRINTFORMW 華扇にくすねたパンツを没収された……
			PRINTFORMW 「……これは一体どういうことですか？」
			PRINTFORML
			PRINTFORMW %CALLNAME:MASTER%は華扇の迫力に押され、正座して説教を聞くことになった
			PRINTFORMW 「年頃の男性が女性物の下着を持ち歩くなんて……」
			PRINTFORMW 「その風紀を著しく乱す行為、許すことはできません、これは没収します」
			PRINTFORMW 「何ですかその顔は！」
			PRINTFORMW 「下着を持ち歩くことに正当な理由があるというのですか？」
			PRINTFORMW 「それなら言って見なさい、さあ」
			PRINTFORMW 「……言えないでしょう？まあ詳しい理由なんて聞きたくも無いですが」
			PRINTFORMW 「盗んだ物であるなら、次は無いと思って心を入れ替えなさい！」
			PRINTFORMW 「譲り受けた物であるなら、今度からは断りなさい！」
			PRINTFORMW 「これは%CALLNAME:MASTER%のために言っているんです！」
			PRINTFORMW 「それとも、博麗神社を追い出されたいんですか？」
			PRINTFORMW 「あそこの関係者は女性ばかりですよ？知らないわけは無いでしょう！」
			PRINTFORMW 「集団の中で生活しているという自覚が足りないんです！自覚が！」
			PRINTFORMW 「はいぃ？足が痺れた？知りません！正座続行です！」
			PRINTFORMW 「性的嗜好は人其々、それはわかっています！しかし」
			PRINTFORMW 「%CALLNAME:MASTER%の場合、それを人目につくような状況で楽しんでいる事が問題なんです！」
			PRINTFORMW 「自分の部屋の中でこっそり楽しむだけなら私だって何も言いませんよ！」
			PRINTFORMW 「クリック連打しない！私の話をちゃんと聞きなさい！」
			PRINTFORMW 「もし%CALLNAME:MASTER%が街中でこれを落とした時、目撃した人がどういう気持ちになるか考えたことはありますか？」
			PRINTFORMW 「反省できないようなら、うちで修行させることも考えてますから！」
			PRINTFORMW 「霊夢でさえ(一時的に)心を入れ替えた、厳しい修行を！」
			PRINTFORMW 「っ……！！どうして%CALLNAME:MASTER%はさっきから人の胸ばかり見てるんですか！」
			PRINTFORMW 「気付かないわけはないでしょう！さっきもうちで修行と言った時に口を緩ませて！」
			PRINTFORMW 「%CALLNAME:MASTER%のそういうところが……！」
			PRINTFORMW 「それが周りの人に……！」
			PRINTFORMW 「ガミガミ……！」
			PRINTFORMW 「……！」
			PRINTFORMW
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW 「……このくらいにしておきましょう」
			PRINTFORMW 凄まじく長い説教が、今、終わった……
		ELSE
			PRINTFORML 「……%CALLNAME:MASTER%？懐に何か入れてますね？」
			PRINTFORMW 「何故固まるのです？……さあ、私に見せてください」
			PRINTFORML ……………………
			PRINTFORMW 華扇にくすねたパンツを没収された……
			PRINTFORML 「……貴方は霊夢のところで世話になっているのでしたね」
			PRINTFORML 「今回は私の胸中に納めておくつもりですが……」
			PRINTFORML 「告げ口されたくないのなら、これから真っ当に生きることです」
			PRINTFORMW 「そうする事が、貴方のためでもあります」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人 || TALENT:恋慕
			PRINTFORML 「……待ちなさい」
			PRINTFORMW 「懐に入ってるものは何かしら？」
			PRINTFORML ……………………
			PRINTFORMW 華扇にくすねたパンツを没収された……
			IF EXP:20 >= 30 && EXP:26 >= 30 && EXP:15 >= 10 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORML %CALLNAME:MASTER%は華扇の口で{RAND:2+1}回、胸で{RAND:3+1}回、膣で{RAND:4+1}回射精させられた
				PRINTFORMW 華扇も胸で{RAND:4+5}回、膣で{RAND:7+5}回絶頂に達したようだ(前の文含め、能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSEIF EXP:20 >= 30 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORMW %CALLNAME:MASTER%は華扇に騎乗位攻めを喰らい、{RAND:5+3}回射精させられた
				PRINTFORML その途中で華扇も{RAND:7+2}回絶頂に達したようだ(前の文含め、能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSEIF EXP:26 >= 30 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORMW %CALLNAME:MASTER%は華扇にパイズリ攻めを喰らい、{RAND:5+3}回射精させられた
				PRINTFORML その途中で華扇も{RAND:7+2}回絶頂に達したようだ(前の文含め、能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSEIF EXP:15 >= 10 && ABL:11 >= 5
				PRINTFORML 「ふーん……貴方、こういう趣味があったのね」
				PRINTFORML 「それとも、欲求不満なだけかしら？」
				PRINTFORML 「ま、どちらにせよ修行が必要ね、付いてきなさい」
				PRINTFORMW %CALLNAME:MASTER%は華扇に、人気のないところに連れて行かれた……
				PRINTFORML ……………………
				PRINTFORML …………
				PRINTFORML ……
				PRINTFORMW %CALLNAME:MASTER%は華扇にフェラチオ攻めを喰らい、{RAND:5+3}回射精させられた(能力に変化はありません)
				PRINTFORML 「こんなに溜まってたなんて……私にも責任の一環はありそうね」
				PRINTFORML 「次からちゃんと言いなさい、相手してあげるから」
				PRINTFORMW 満足した華扇は %CALLNAME:MASTER%のことを許してくれたようだ……
			ELSE
				PRINTFORML 「何て事を……」
				PRINTFORML 「私は……%CALLNAME:MASTER%の事を信じていました」
				PRINTFORMW 「それが……どうして……」
				PRINTFORML 華扇は目に一杯の涙を浮かべている
				PRINTFORMW 何かアクションを起こしたほうが良いだろう
				PRINTFORML [0]誠心誠意謝る
				PRINTFORML [1]逃げる
				PRINTFORML [2]代わりのパンツを強請る
				$INPUT_LOOP_2
				INPUT
				IF RESULT != 0 && RESULT != 1 && RESULT != 2
				GOTO INPUT_LOOP_2
				ELSEIF RESULT == 0
					PRINTFORMW  %CALLNAME:MASTER%はありったけの言葉で、華扇に謝罪した
					PRINTFORML 「…………もう、いいですよ」
					PRINTFORML 「今回は許してあげます、ただ……」
					PRINTFORML 「偶には、私の方を向いてくださいね……」
					PRINTFORMW 華扇は涙を拭って%CALLNAME:MASTER%に背を向けた……
				ELSEIF RESULT == 1
					PRINTFORMW %CALLNAME:MASTER%は恐怖に駆られ、一目散に逃げ出した
					PRINTFORMW が、当然の如く、華扇に捕まってしまった
					PRINTFORMW 「……正座しなさい」
					PRINTFORML ………………
					PRINTFORML 華扇にたっぷりとお説教を喰らった……
					PRINTFORMW %CALLNAME:MASTER%の気力が300減りました
					BASE:MASTER:気力 -= 300
				ELSEIF RESULT == 2
					PRINTFORMW %CALLNAME:MASTER%は華扇に代わりのパンツを要求した
					PRINTFORML 「…………」
					PRINTFORMW 「こんの……」
					PRINTFORMW 「ばかものーーーーーーーーーーー！！！！！！！！！」
					PRINTFORMW %CALLNAME:MASTER%の体力が500減りました
					BASE:MASTER:体力 -= 500
				ENDIF
			ENDIF
		ELSEIF TALENT:思慕
			PRINTFORML 「……待ちなさい」
			PRINTFORMW 「貴方、なにか盗んでますね？出しなさい」
			PRINTFORML ……………………
			PRINTFORMW 華扇にくすねたパンツを没収された……
			PRINTFORMW 「……これは一体どういうことですか？」
			PRINTFORML
			PRINTFORMW %CALLNAME:MASTER%は華扇の迫力に押され、正座して説教を聞くことになった
			PRINTFORMW 「年頃の男性が女性物の下着を持ち歩くなんて……」
			PRINTFORMW 「その風紀を著しく乱す行為、許すことはできません、これは没収します」
			PRINTFORMW 「何ですかその顔は！」
			PRINTFORMW 「下着を持ち歩くことに正当な理由があるというのですか？」
			PRINTFORMW 「それなら言って見なさい、さあ」
			PRINTFORMW 「……言えないでしょう？まあ詳しい理由なんて聞きたくも無いですが」
			PRINTFORMW 「盗んだ物であるなら、次は無いと思って心を入れ替えなさい！」
			PRINTFORMW 「譲り受けた物であるなら、今度からは断りなさい！」
			PRINTFORMW 「これは%CALLNAME:MASTER%のために言っているんです！」
			PRINTFORMW 「それとも、博麗神社を追い出されたいんですか？」
			PRINTFORMW 「あそこの関係者は女性ばかりですよ？知らないわけは無いでしょう！」
			PRINTFORMW 「集団の中で生活しているという自覚が足りないんです！自覚が！」
			PRINTFORMW 「はいぃ？足が痺れた？知りません！正座続行です！」
			PRINTFORMW 「性的嗜好は人其々、それはわかっています！しかし」
			PRINTFORMW 「%CALLNAME:MASTER%の場合、それを人目につくような状況で楽しんでいる事が問題なんです！」
			PRINTFORMW 「自分の部屋の中でこっそり楽しむだけなら私だって何も言いませんよ！」
			PRINTFORMW 「クリック連打しない！私の話をちゃんと聞きなさい！」
			PRINTFORMW 「もし%CALLNAME:MASTER%が街中でこれを落とした時、目撃した人がどういう気持ちになるか考えたことはありますか？」
			PRINTFORMW 「反省できないようなら、うちで修行させることも考えてますから！」
			PRINTFORMW 「霊夢でさえ(一時的に)心を入れ替えた、厳しい修行を！」
			PRINTFORMW 「っ……！！どうして%CALLNAME:MASTER%はさっきから人の胸ばかり見てるんですか！」
			PRINTFORMW 「気付かないわけはないでしょう！さっきもうちで修行と言った時に口を緩ませて！」
			PRINTFORMW 「%CALLNAME:MASTER%のそういうところが……！」
			PRINTFORMW 「それが周りの人に……！」
			PRINTFORMW 「ガミガミ……！」
			PRINTFORMW 「……！」
			PRINTFORMW
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW 「……このくらいにしておきましょう」
			PRINTFORMW 「さあ、もう行きなさい」
			PRINTFORMW 凄まじく長い説教が、今、終わった……
		ELSE
			PRINTFORML 「……待ちなさい」
			PRINTFORMW 「貴方、何か盗んでますね？懐に入ってるものを出しなさい」
			PRINTFORML ……………………
			PRINTFORMW 華扇にくすねたパンツを没収された……
			PRINTFORML 「……貴方は霊夢のところで世話になっているのでしたね」
			PRINTFORML 「今回は私の胸中に納めておくつもりですが……」
			PRINTFORML 「告げ口されたくないのなら、これから真っ当に生きることです」
			PRINTFORML 「そうする事が、貴方のためでもあります」
			PRINTFORMW 「さあ、もう行きなさい」
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K43_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K43_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:思慕
			PRINTFORML 「な゛っ！？」
			PRINTFORML 素っ頓狂な声が聞こえ、湯気の向こうに一糸纏わぬ華扇の姿が見えた
			PRINTFORMW 華扇は絶妙な腕の配置と太ももの角度で、性的な部分をすべて隠している
			PRINTFORML 見えない事がかえって%CALLNAME:MASTER%の劣情を駆り立てる、が―――
			PRINTFORMW 「……出て行ってください」
			PRINTFORML 「早く出て行ってください！」
			PRINTFORMW 風呂桶が飛来する前に、%CALLNAME:MASTER%はすばやく風呂場から脱出した……
		ELSEIF ABL:9 >= 4
			PRINTFORML %CALLNAME:MASTER%が風呂場に入ると、湯気の向こうから華扇の声が聞こえた
			PRINTFORML 「ここは混浴ではありませんよ、わかっていますか？」
			PRINTFORMW 「それとも……もしかして出歯亀でしょうか」
			PRINTFORML 暑い風呂場に、氷の様な声が響く
			PRINTFORML それは刹那の猶予も許さず、即座に%CALLNAME:MASTER%に退出するよう警告していた
			PRINTFORMW %CALLNAME:MASTER%は華扇から逃げ出した……
		ELSE
			PRINTFORMW 「……………………」
			PRINTFORML %CALLNAME:MASTER%と華扇は裸のまま、しばらく見つめ合った
			PRINTFORMW 互いに異性だという事を認識し、恋に落ちるステップの第一歩を踏み出す
			PRINTFORMW ……という妄想は、%CALLNAME:MASTER%のすぐ横の壁に、桶が直撃して木っ端微塵に砕かれた……
			PRINTFORML 「っ……何をしているのですか貴方はっ！」
			PRINTFORML 「早く出て行きなさいっ！！」
			PRINTFORMW 烈火の如く怒る華扇に背を向け、一目散に逃げ出した……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「あら%CALLNAME:MASTER%…………」
			PRINTFORML 「……………………コホン」
			PRINTFORML 「えーっと、一緒に入りますか？」
			PRINTFORMW 「恋人同士だし……別に構いませんよね」
			PRINTFORML %CALLNAME:MASTER%と華扇は触れ合いながら湯船に浸かった
			PRINTFORMW 華扇の滑らかな肌の感触が悩ましい……
		ELSEIF TALENT:恋慕
			PRINTFORMW 「きゃっ！？……って、%CALLNAME:MASTER%か、驚かさないで」
			PRINTFORML 「……………………コホン」
			PRINTFORML 「えーっと、一緒に入りますか？」
			PRINTFORMW 「少し恥ずかしいですけど、貴方とならいいですよ」
			PRINTFORML %CALLNAME:MASTER%と華扇は隣り合って湯船に浸かった
			PRINTFORMW 時折触れる華扇の滑らかな肌の感触が悩ましい……
		ELSEIF TALENT:思慕
			PRINTFORMW 「な゛っ！？」
			PRINTFORML 素っ頓狂な声が聞こえ、湯気の向こうに一糸纏わぬ華扇の姿が見えた
			PRINTFORML 華扇は絶妙な腕の配置と太ももの角度で、性的な部分をすべて隠している
			PRINTFORMW 見えない事がかえって%CALLNAME:MASTER%の劣情を駆り立てる、そして―――
			PRINTFORML 「あー、あのー……一緒に入りますか？」
			PRINTFORMW 「そんな所で裸では寒いでしょう、ほ、ほら、早く湯船に浸からないと」
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML %CALLNAME:MASTER%は華扇と少し距離を開けて入浴した
			PRINTFORMW 華扇は顔を真赤にして俯いている……
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K43_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K43_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K43_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K43_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K43_16(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K43_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;精液経験ありぬぐい取り
		IF ARG:1 == 1
		;精液経験なしぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K43_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			PRINTFORML 「待ってください%CALLNAME:MASTER%、避妊をお願いします」
			PRINTFORML 「一歩間違えれば取り返しの付かない事になりますし」
			PRINTFORMW 「恋仲であるからこそ、節度を持つ事は大切です」
		ELSEIF TALENT:恋慕
			PRINTFORML 「待ってください%CALLNAME:MASTER%、避妊をお願いします」
			PRINTFORML 「一歩間違えれば取り返しの付かない事になりますし」
			PRINTFORMW 「親しい仲であるからこそ、節度を持つ事は大切です」
		ELSE
			PRINTFORML 「待ってください%CALLNAME:MASTER%、避妊をお願いします」
			PRINTFORMW 「正直に言うと、貴方との間に子供を作るつもりはありません」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「駄目です」
			PRINTFORML 「貴方の事を愛していないと言っているのではありません」
			PRINTFORML 「まだ子供を作るべき時ではないと言ってるんです」
			PRINTFORMW 「それほど大変なんですよ、子育てというのは」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「駄目です」
			PRINTFORML 「もし妊娠したらどう責任を取るつもりですか？」
			PRINTFORMW 「一時の快楽に感けて行動すると、自分だけでなく他人も不幸になりますよ」
		ELSE
			PRINTFORMW 「嫌です」
			PRINTFORML 「貴方と私は夫婦でもないし、そもそも恋仲ですらありません」
			PRINTFORML 「愛し合っていない者達の間に生まれた子が、どんな人生を歩むと思います？」
			PRINTFORMW 「……もう少し、思慮深い行動をお願いしたいものですね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋人
			PRINTFORMW 「駄目だと言っているでしょう！」
			PRINTFORML 「子供を作るという事は、貴方が考えてるような簡単な事ではないんです」
			PRINTFORML 「少しは真剣に考えてください、育てる場所も無いというのに」
			PRINTFORML 「……気分が削がれました、今日はもうお終いにしましょう」
			PRINTFORMW 華扇は%CALLNAME:MASTER%に背を向けて服を着始めた……
		ELSEIF TALENT:恋慕
			PRINTFORMW 「駄目だと言っているでしょう！」
			PRINTFORML 「子供を作るという事は、貴方が考えてるような簡単な事ではないんです」
			PRINTFORML 「少しは真剣に考えてください、身篭るのは私なんですから」
			PRINTFORML 「……気分が削がれました、今日はもうお終いにしましょう」
			PRINTFORMW 華扇は%CALLNAME:MASTER%に背を向けて服を着始めた……
		ELSE
			PRINTFORMW 「いい加減にしてください！駄目だといったら駄目です！」
			PRINTFORML 「一時の気の迷いとは言え、貴方と体を重ねたのはやはり間違いでした」
			PRINTFORML 「私はこれにて失礼します、貴方も早く服を着なさい」
			PRINTFORMW 華扇は%CALLNAME:MASTER%に背を向けて服を着始めた……
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF TALENT:恋人
			PRINTFORML 「……わかりました、避妊はしなくていいです」
			PRINTFORMW 「私も、%CALLNAME:MASTER%とより深く繋がりたいと思っていますし」
			PRINTFORML 「ただ、本当に危ない日にはちゃんと避妊してください」
			PRINTFORMW 「それなら納得してくれますよね？」
		ELSE
			PRINTFORML 「……わかりました、避妊はしなくていいです」
			PRINTFORMW 「私も、%CALLNAME:MASTER%との間に一枚隔たりがあるのは好ましくないですから」
			PRINTFORML 「ただ、本当に危ない日にはちゃんと避妊してください」
			PRINTFORMW 「それなら納得してくれますよね？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋人
			PRINTFORML 「そんなに私との子供が欲しいのですか」
			PRINTFORML 「え、ええ、確かにもう随分長い付き合いになりますし」
			PRINTFORMW 「そろそろ、あー……次の段階に進んでもいいかもしれませんね」
			PRINTFORML 「………………」
			PRINTFORML 「わかりました、%CALLNAME:MASTER%の好きな様にして下さい」
			PRINTFORMW 「その代わり……ちゃんと愛してくれないと怒るわよ？」
		ELSE
			PRINTFORML 「……わかりました、避妊はしなくていいです」
			PRINTFORML 「その代わり、もし身篭った場合はキッチリ責任とってもらいます」
			PRINTFORMW 「わかりましたね？」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K43_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「条件は家賃と家事……ですか、霊夢らしいですね」
		PRINTFORML 「まあ、それくらいならお安い御用です」
		PRINTFORML 「炊事洗濯、なんでも来いですよ」
		PRINTFORMW 華扇はそう言ってドヤ顔で胸を叩いた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「駄目、ですか……残念です」
		PRINTFORML 「もっと貴方と共に過ごす時間を増やしたいと思ったのですが」
		PRINTFORMW 「貴方も住み込みの身ですし、こればかりはしょうがないですね」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K43_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K43_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 深夜―――
		PRINTFORMW 茨木華扇は布団に潜り込んで考え事をしていた
		PRINTFORML (はぁ～やっぱりあの人のことばっかり考えちゃうわ)
		PRINTFORMW (寝れない…………)
		PRINTFORMW その胸中は%CALLNAME:MASTER%によって乱れに乱れ―――
		PRINTFORML (どんな食べ物が好きなんだっけ)
		PRINTFORML (香水の趣味は？服装の趣味は？髪型は此の侭で大丈夫？)
		PRINTFORML (一緒に出かける場所とかも……)
		PRINTFORMW (……………………)
		PRINTFORML 「本当に、なんなのよこの気持ちは」
		PRINTFORMW 「……恋、とか？」
		PRINTFORML 暗闇に漏れた独り言は誰にも届く事は無く
		PRINTFORMW ただ虫の声だけが静寂を揺らしていた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 深夜―――
		PRINTFORMW 茨木華扇はいつもの様に屋根の上で瞑想をしていた
		PRINTFORMW しかし、その胸中は瞑想とは程遠く
		PRINTFORML (どうして……)
		PRINTFORML (どうしてあの人の顔ばかりが……)
		PRINTFORMW ある一人の人間……%CALLNAME:MASTER%によって乱されていた
		PRINTFORML (次あの人は何時私の家に来てくれるのかしら)
		PRINTFORML (いや……自分から神社を訪ねた方が確実よね)
		PRINTFORML (人里で美味しいお煎餅でも買って行って……)
		PRINTFORML (一緒にお茶を…………)
		PRINTFORMW (……………………)
		PRINTFORMW 「こんなの瞑想じゃなーーーーーーーーーーい！！！！！！！！！」
		PRINTFORML 山中に響き渡るような大声に、寝惚けた一匹の大鷲が木から墜落したが、
		PRINTFORMW 暴走した華扇の頭は、それを気遣う余裕すら持ち合わせていなかった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K43_22(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF ABL:TARGET:自慰中毒 >= 3
		PRINTFORML 「私が……このような物をっ……」
		PRINTFORML 「も、もう止めないと、止め、ない……とっ…………」
		PRINTFORML 「―――っ！！！」
		PRINTFORML 「……………………」
		PRINTFORMW 「ふー……」
		PRINTFORML ほぼ日課となりつつある自慰を終え、華扇はため息をついた
		PRINTFORML その手には幾度と無く使われたピンク色の球体と新品のままの張型
		PRINTFORML 「勢いで買っちゃったけど……」
		PRINTFORMW 「流石にこれを挿入るのは駄目よねえ」
		PRINTFORML 「えいっ」
		PRINTFORMW 華扇は独り言と共に、張型を新品のままゴミ箱に投げ入れた……
	ELSE
		PRINTFORML 「んっ……んん……あっ、%CALLNAME:MASTER%……あ、ああぁっ！」
		PRINTFORMW 「はあっ……はあっ……わ、私とした事が、何と言う事を……」
		PRINTFORML 「仙人になってからあの人に合うまで、自慰なんてしようとも思わなかったのにどうして……」
		PRINTFORMW 「……これじゃ駄目だわ、気を静めなきゃ」
	ENDIF
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K43_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K43_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K43_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/華扇/M_KOJO_K43_イベント.ERB