code:
;-------------------------------------------------
; eraTheWorld ユキ口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。
;
;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K104 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K104 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;
;
;******************************************************************************

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

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K104_1() とかで呼ばれる…はず。（未テスト機能）

;ここでCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります

;コメントアウトを外して眠姦口上有、時間停止口上有に1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_K104_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れるとM_KOJO_EVENT_K104_PERMISSIONで押し倒しの成否を操作できます

;Xにはキャラ番号を入れてください

;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:なりきり口上有 = 0
;CFLAG:X:破瓜キャンセル口上有 = 0
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

;CFLAG:押し倒し禁止に1を入れると自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:セフレ
;	CFLAG:X:押し倒し禁止 = 1
;ELSE
;	CFLAG:X:押し倒し禁止 = 0
;ENDIF

;口上存在判定です、けしてコメントアウトしないでください
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K104
SETCOLOR 0xAA8888

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K104
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K104
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
	PRINTFORML
	PRINTFORMW 「ちょっと、そこの人～」
	PRINTFORMDL
	PRINTFORMDL どうやら自分の事のようだ。
	PRINTFORMDW 声のした方に目をやると、金髪の少女が笑顔で近づいてきた。
	PRINTFORML
	PRINTFORML 「はじめまして、異世界からのお客さん%UNICODE(0x2665) *1%」
	PRINTFORMW 「わたしはユキ！　魔界の魔法使いなの」
	PRINTFORML
	CALL ASK_YN("異世界？","はじめまして")
	IF !RESULT
		PRINTFORML 「あれ、違った？」
		PRINTFORML 「この辺に、謎の外来人がいるって聞いて……なんとなく、そうかなと思ったんだけど」
		PRINTFORMW 「人違いだったみたい！　ごめんね」
		PRINTFORML
		PRINTFORML 「あ～、いきなり魔界とか言われると不安かもしれないけど、怪しい者じゃないから」
		PRINTFORMW 「仲良くしてくれると嬉しいわ！　よろしくね%UNICODE(0x2665) *1%」
	ELSE
		PRINTFORML 「うん、よろしくね」
		PRINTFORML 「わたし、ずっと魔界にいたんだけど……最近はいろんな世界に興味があってね、調べてるんだ」
		PRINTFORMW 「貴方のいた所のことも、色々教えてくれると嬉しいわ」
		PRINTFORML 「代わりに、魔界のことなら何でも聞いて！」
		PRINTFORMW 「せっかくの縁だし、仲良くしましょ%UNICODE(0x2665) *1%」
	ENDIF
	PRINTFORMDL
	PRINTFORMDL こちらを特に警戒する様子もない……人懐っこく明るい娘のようだ。
	PRINTFORMDW 魔界出身の魔法使い、ユキ。覚えておこう……
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K104_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMW 「特別だからね！」
	PRINTFORML
	PRINTFORMW 「楽しかったから……また誘ってよね%UNICODE(0x2665) *1%」

	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K104_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
		IF FIRSTTIME("告白")
			PRINTFORML 「%CALLNAME:MASTER%……%CALLNAME:MASTER%っ！」
			PRINTFORMW 「その～……我慢できなくなったから、言うね」
			PRINTFORML
			PRINTFORMW 「わたし、%CALLNAME:MASTER%のことが好き」
			PRINTFORMW 「もっともっと仲良くなって、ずっと一緒にいられたらって……」
			PRINTFORMW 「まぁ、その～……恋人、みたいな」
			PRINTFORMW 「わたしのまわりだけでも、他にたくさん可愛い子いるから……なかなか難しいかもしれないけど」
			PRINTFORMW 「それでも……」
			PRINTFORML
			PRINTFORMW 「ね、%CALLNAME:MASTER%」
			PRINTFORMW 「わたしのことだけ見て……？」
		ELSE
			PRINTFORML 「ね～、わたしを振ったこと後悔してない？」
			PRINTFORMW 「今ならまだまだオッケーなんだけど……」
			PRINTFORMW 「どう？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
			PRINTFORML 「やったっ%UNICODE(0x2665) *1%　ありがと、%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
			PRINTFORML 「後で他の人が良いって言っても、もう駄目だからね！」
			PRINTFORMW 「大丈夫、退屈させないから%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			PRINTFORML 「う～っ、ダメ？　どうしてよ～」
			PRINTFORMW 「ねぇ、どういうのが好みなの？」
			PRINTFORMW 「これぐらいじゃ諦めないからね！」
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K104_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
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORMW 「今日は楽しかったわ！　次も楽しみにしてるからねっ」
			PRINTFORMW 「……で、この後はどうする？……%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORML 「%CALLNAME:MASTER%といるの、結構好きよ」
			PRINTFORMW 「また、どこか連れて行ってね%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「やっぱり、魔界以外もなかなか新鮮で面白いわ！」
			PRINTFORMW 「他にも、どこか良いところ知ってたら教えてね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K104_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF CFLAG:104:オナバレ == 1
			PRINTFORML 「あ、%CALLNAME:MASTER%……あのさ、この前の……」
			PRINTFORML 「あ～……何でもないわ」
			PRINTFORMW 「はぁ……」
		ELSEIF CFLAG:104:オナバレ
			IF (TALENT:恋慕 || TALENT:愛欲 || TALENT:セフレ)
				PRINTFORML 「%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
				PRINTFORMW 「次も、ちょうどよく来てくれたら……相手してあげるからね」
			ELSE
				PRINTFORML 「っ、%CALLNAME:MASTER%……」
				PRINTFORML 「この前は流されちゃったけど、次はこうはいかないから！」
				PRINTFORMW 「気を付けてよね！」
			ENDIF
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「あっ、%CALLNAME:MASTER%！」
			PRINTFORML 「待ってたわ%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORML 「あ、%CALLNAME:MASTER%！」
			PRINTFORMW 「今日は何してるの？」
		ELSE
			PRINTFORMW 「あら、%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF CFLAG:104:オナバレ == 1
			PRINTFORML 「あ、%CALLNAME:MASTER%……あのさ、この前の……」
			PRINTFORML 「あ～……何でもないわ」
			PRINTFORMW 「はぁ……」
		ELSEIF CFLAG:104:オナバレ
			IF (TALENT:恋慕 || TALENT:愛欲 || TALENT:セフレ)
				PRINTFORML 「%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
				PRINTFORMW 「次も、ちょうどよく来てくれたら……相手してあげるからね」
			ELSE
				PRINTFORML 「っ、%CALLNAME:MASTER%……」
				PRINTFORML 「この前は流されちゃったけど、次はこうはいかないから！」
				PRINTFORMW 「気を付けてよね！」
			ENDIF
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「あっ、いたいた！」
			PRINTFORMW 「ね～、わたしの相手してよ」
		ELSEIF TALENT:思慕
			PRINTFORML 「あ、%CALLNAME:MASTER%……」
			PRINTFORMW 「あ～……暇なら、一緒にどこか行かない？」
		ELSE
			PRINTFORMW 「あら、%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「あっ、入ってたんだ？」
			PRINTFORML 「背中でも流してあげよっか～」
		ELSEIF TALENT:思慕
			PRINTFORML 「わっと、%CALLNAME:MASTER%」
			PRINTFORMW 「え～と、一緒に入っていい？」
		ELSE
			PRINTFORML 「%CALLNAME:MASTER%じゃない」
			PRINTFORMW 「あはは、なんか照れ臭いね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「%CALLNAME:MASTER%が一緒じゃ、落ち着いてお風呂は無理ね」
			PRINTFORML 「ドキドキしちゃうし……%UNICODE(0x2665) *1%」
			PRINTFORMW 「後にしようかな」
		ELSEIF TALENT:思慕
			PRINTFORML 「あれ、誰か……%CALLNAME:MASTER%！？」
			PRINTFORMW 「え～っと、あ～……また来るわ」
		ELSE
			PRINTFORML 「ありゃ、先客？」
			PRINTFORMW 「ごゆっくりどうぞ～」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「%CALLNAME:MASTER%が一緒じゃ、落ち着いてお風呂は無理ね」
			PRINTFORML 「ドキドキしちゃうし……%UNICODE(0x2665) *1%」
			PRINTFORMW 「一人で先に入っていい？」
		ELSEIF TALENT:思慕
			PRINTFORML 「あれ、誰か……%CALLNAME:MASTER%！？」
			PRINTFORMW 「え～っと、あ～……ちょっと待っててくれない？」
		ELSE
			PRINTFORMW 「ごめんね、入ってるから……ちょっと待っててもらえる？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF CFLAG:104:オナバレ == 1
			PRINTFORML 「あ、%CALLNAME:MASTER%……あのさ、この前の……」
			PRINTFORML 「あ～……何でもないわ」
			PRINTFORMW 「はぁ……」
		ELSEIF CFLAG:104:オナバレ
			IF (TALENT:恋慕 || TALENT:愛欲 || TALENT:セフレ)
				PRINTFORML 「%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
				PRINTFORMW 「次も、ちょうどよく来てくれたら……相手してあげるからね」
			ELSE
				PRINTFORML 「っ、%CALLNAME:MASTER%……」
				PRINTFORML 「この前は流されちゃったけど、次はこうはいかないから！」
				PRINTFORMW 「気を付けてよね！」
			ENDIF
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「%CALLNAME:MASTER%じゃない%UNICODE(0x2665) *1%」
			PRINTFORMW 「折角だし、二人で過ごそうよ～」
		ELSEIF TALENT:思慕
			PRINTFORML 「あ、%CALLNAME:MASTER%……」
			PRINTFORMW 「あ～……暇なら、一緒にどこか行かない？」
		ELSE
			PRINTFORMW 「あら、%CALLNAME:MASTER%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			IF FLAG:デート相手 == 105
				PRINTFORML 「あ、%CALLNAME:MASTER%%UNICODE(0x2665) *1%……と、マイ……」
					IF TALENT:104:恋人
						PRINTFORML 「あ、はは……二人、結構仲いいよね」
						PRINTFORMW （マイなら、大丈夫……だよね……？）
					ELSEIF TALENT:105:恋人
						PRINTFORML （……わたしも……）
						PRINTFORMW （だめだめ……何考えてるのよ、マイの恋人なんだから）
					ELSE
						PRINTFORMW 「うう～、なんか複雑……」
					ENDIF
			ELSE
				PRINTFORML 「あら、デート？」
				PRINTFORMW 「良いなぁ～、今度わたしともしてよ」
			ENDIF
		ELSEIF TALENT:思慕
			IF FLAG:デート相手 == 105
				PRINTFORML 「%CALLNAME:MASTER%と、マイ？　もしかしてデート？」
				PRINTFORMW 「……ふ～ん……そう、なんだ……」
			ELSE
				PRINTFORML 「あら、デート？」
				PRINTFORMW 「%CALLNAME:MASTER%って、そういう感じの子が好みなんだね」
			ENDIF
		ELSE
			IF FLAG:デート相手 == 105
				PRINTFORML 「わっ、マイがデートしてる！」
				PRINTFORMW 「%CALLNAME:MASTER%、マイに変なことしないでよ！」
			ELSE
				PRINTFORML 「あ、%CALLNAME:MASTER%……っと、デート中なんだ！」
				PRINTFORMW 「意外とやるのね、%CALLNAME:MASTER%！」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1にデート相手、ARG:1が0の場合は非デート
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ARG:1とデート中
		IF ARG:1
		;一人で外出
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K104_2(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	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
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
			PRINTFORML 「あれっ、行っちゃうの～？」
		ELSEIF TALENT:思慕
			PRINTFORML 「やっ、%CALLNAME:MASTER%」
			PRINTFORML 「あら、忙しいの？」
		ELSE
			PRINTFORML 「あ～、%CALLNAME:MASTER%」
			PRINTFORML 「元気そうね！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K104_5(ARG,ARG:1)
;口上主はTARGET
;ARGに入ってきたキャラ（人数が膨大なので、自己把握自己責任で
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SIF TCVAR:泥酔 == 1
		RETURN 1
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;神綺が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 102
		PRINTFORML 「ひえ、神綺様！」
		PRINTFORMW 「っ、その～……どうも……あはは」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;夢子が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 103
		IF (TALENT:恋慕 || TALENT:愛欲) && (TALENT:103:恋慕 || TALENT:103:愛欲)
			PRINTFORML 「んん、夢子さん……もしかして、%CALLNAME:MASTER%に用？」
			PRINTFORMW 「いや～、今日のところはわたしの番ってことで……わっわっ、怒らないで～」
		ELSE
			PRINTFORML 「っ……なんだ、夢子さんか～」
			PRINTFORMW 「こんにちは！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;マイが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 105
		PRINTFORML 「わっ、マイ」
		PRINTFORMW 「も～、いいところだったのに……何か用？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF ARG == 105
			PRINTFORML 「あっ、ごめんなさ……え、マイ……？」
			PRINTFORML 「うっそぉ……」
			PRINTFORMW 「え～っと……とりあえず、退散するね……」
		ELSE
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「あらら、タイミング悪かったみたい？」
				PRINTFORML 「いいな～、わたしも……じゃない、失礼しましたっ！」
			ELSE
				PRINTFORML 「わぁっ、やば！」
				PRINTFORMW 「な、何も見てませ～ん……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF ARG == 105
			PRINTFORML 「マイ！　ちょっと、何してんの！」
			PRINTFORML 「%CALLNAME:MASTER%に関しては、わたしも負けるわけにはいかないわ」
			PRINTFORMW 「本気だしちゃうから！」
		ELSE
			PRINTFORML 「あらら、タイミング悪かったみたい？」
			PRINTFORML 「いいな～、わたしもするっ！」
			PRINTFORMW 「よろしくね！！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF ARG == 105
			PRINTFORML 「あっ、ごめんなさ……え、マイ……？」
			PRINTFORML 「うっそぉ……」
			PRINTFORMW 「え～っと……とりあえず、退散するね……」
		ELSE
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「あらら、タイミング悪かったみたい？」
				PRINTFORML 「いいな～、わたしも……じゃない、失礼しましたっ！」
			ELSE
				PRINTFORML 「わぁっ、やば！」
				PRINTFORMW 「な、何も見てませ～ん……」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「えへ、バレちゃったね」
			PRINTFORMW 「さ……続きしよっか%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「うわ～、見られちゃった」
			PRINTFORMW 「ヤバいかな……まぁ、良いよね？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「あっ、一緒にしちゃう？」
			PRINTFORMW 「なるほど、ちょっと面白いかも%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「わわ、多人数プレイ」
			PRINTFORMW 「……よ～し、何事も勉強！　どんと来い！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「えへ、バレちゃったね」
			PRINTFORMW 「さ……続きしよっか%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「うわ～、見られちゃった」
			PRINTFORMW 「ヤバいかな……まぁ、良いよね？」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める（現在無し
;==================================================
@M_KOJO_EVENT_K104_8(ARG,ARG:1)
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「どうやって手に入れたかは置いとくとしても、懐に入れて持ち歩くだけでどうかと思うな～」
		PRINTFORMW 「とにかく、バレたからにはアウト！」
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TCVAR:発情 || TCVAR:媚薬
				PRINTFORML 「……もうダメ、体があつくて……」
				PRINTFORMW 「%CALLNAME:MASTER%も悪いんだからね……我慢してたのに、わたしの前にいてさぁ」
				PRINTFORMW 「しばらく、付き合ってもらうからね……%UNICODE(0x2665) *1%」
			ELSEIF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「そろそろ、良いよね？」
					PRINTFORMW 「えへへ、我慢できなくって……%UNICODE(0x2665) *1%」
				CASE 2
					PRINTFORML 「ねぇ、しようよ～」
					PRINTFORMW 「ダメって言っても、しちゃうから%UNICODE(0x2665) *1%」
				CASEELSE
					PRINTFORML 「ごめんね……でも、%CALLNAME:MASTER%もしたいよね？」
					PRINTFORMW 「ね、一緒に気持ち良くなっちゃお」
				ENDSELECT
			ELSE
				PRINTFORML 「ねぇ、わたし……その……したくて」
				PRINTFORMW 「良いでしょ？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「それはないでしょ～」
			PRINTFORMW 「まだまだ、これからよ……逃がしてあげない%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「だめ、まだ……これくらいじゃ足りないの」
			PRINTFORMW 「もうちょっと付き合ってよ……いいでしょ？」
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;誘ってきた（人目につかない場所に行きたがるやつ）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;ARG:1=TARGETの欲求不満度（最高1000）
		;必要ならばこれで分岐を作ってください
			SELECTCASE ARG:1
			CASE 1000
				IF TALENT:恋慕 || TALENT:愛欲
					PRINTDATAL
						DATALIST
							DATAFORM 「あ～あ、ぐちゃぐちゃ……%CALLNAME:MASTER%といると、すぐこれだわ」
							DATAFORM 「責任とってよね！」
						ENDLIST
						DATAFORM 「ねぇっ、これ……%CALLNAME:MASTER%が濡らしたんだからね？　この先も、もちろん……ね%UNICODE(0x2665) *1%」
						DATAFORM 「う～っ、もう他のこと考えられない……%CALLNAME:MASTER%……お願い……%UNICODE(0x2665) *1%」
					ENDDATA
					PRINTFORMW
				ELSE
					PRINTDATAL
						DATAFORM 「あはは、見てこれ……どうも、我慢できなさそう……はやく」
						DATAFORM 「ああもう、無理！　ねぇ、ちょっと今からさ……すぐ済むから」
					ENDDATA
					PRINTFORMW
				ENDIF
			CASE 800 TO 999
				PRINTDATAL
					DATAFORM 「うん、なんとなく触りたくなったというか……どうかな？」
					DATAFORM 「%CALLNAME:MASTER%、どう？　溜まってない？」
				ENDDATA
				PRINTFORMW
			CASEELSE
				PRINTDATAL
					DATAFORM 「%CALLNAME:MASTER%、ちょっと来てくれない……大丈夫、悪いようにはしないから%UNICODE(0x2665) *1%」
					DATAFORM 「……あ～、一旦二人きりになれる場所にいきましょ！　……ね%UNICODE(0x2665) *1%」
				ENDDATA
				PRINTFORMW
			ENDSELECT
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「あっ、%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
			PRINTFORML 「ほらほら、こっち！　折角だから、一緒に入ろうよ」
		ELSE
			PRINTFORML 「っ、誰……あ、%CALLNAME:MASTER%」
			PRINTFORML 「え～、一緒に入るの？　まあ、いいけどさ……」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「ん～……なぁに、マイ……」
		PRINTFORMW 「……わぁ！　%CALLNAME:MASTER%！　どしたの、急用？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML 「貰うね～」
		PRINTFORMW 「いただきま～す%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
			PRINTFORMDL
		ELSEIF TCVAR:泥酔 == 1
			PRINTFORML 「んっ、おわり……？」
			PRINTFORMW 「ふ～っ……そっかぁ」
		ELSEIF CFLAG:溜まってる度 > 200 || EX:ARG:Ｃ絶頂 + EX:ARG:Ｖ絶頂 + EX:ARG:Ａ絶頂 + EX:ARG:Ｂ絶頂 + EX:ARG:Ｍ絶頂 < 1
			IF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE RAND:2
				CASE 1
					PRINTFORML 「え～、終わっちゃうの？」
					PRINTFORMW 「ねぇ、もうちょっとだけ……ダメ？」
				CASEELSE
					PRINTFORML 「ん……まだ、して欲しいなぁ」
					PRINTFORMW 「最近は、もう自分じゃ収まりつかないから……ね、%CALLNAME:MASTER%」
				ENDSELECT
			ELSE
				PRINTFORML 「あ……終わり？」
				PRINTFORMW 「ん～、ちょっと物足りなかったかも？」
			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「ん、えへへ……気持ちよかった～%UNICODE(0x2665) *1%」
				PRINTFORMW 「またしようね%UNICODE(0x2665) *1%　%CALLNAME:MASTER%なら、いつでもいいから」
			ELSE
				PRINTFORML 「う～ん、満足！」
				PRINTFORMW 「おつかれさま～」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE RAND:2
				CASE 1
					PRINTFORML 「あ、はは……収まりきらないわ」
					PRINTFORMW 「出ちゃった分は、また今度入れなおしてもらおっかな……%UNICODE(0x2665) *1%」
				CASEELSE
					PRINTFORML 「すごい量……なんか、達成感あるかも%UNICODE(0x2665) *1%」
					PRINTFORMW 「ご馳走様%UNICODE(0x2665) *1%」
				ENDSELECT
			ELSE
				PRINTFORML 「あちゃあ、出てきちゃった」
				PRINTFORMW 「収まんないほど出したの？　すっごいね」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K104_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
		PRINTFORML 「んっ%UNICODE(0x2665) *1%　……っと」
		PRINTFORML 「こほん……あはは、なんか変な声出ちゃったぁ」
		PRINTFORMW （も～、何なの今の……まいったなぁ）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF MARK: 時姦刻印 > 2
			PRINTFORMW 「ひぁあああん%UNICODE(0x2665) *1%　来、たぁ……っ%UNICODE(0x2665) *1%」
			PRINTDATAW
				DATAFORM 「あは……こんなの、我慢できるわけないじゃん……%UNICODE(0x2665) *1%」
				DATAFORM （どういう現象か知らないけど……できれば一人の時にして欲しいな～）
			ENDDATA
		ELSE
			PRINTFORML 「っ、あぁ……っ%UNICODE(0x2665) *1%」
			PRINTFORMW 「うそでしょ～……何これぇ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF FIRSTTIME("パンツ紛失")
			PRINTFORML 「んぇ？　なんか……」
			PRINTFORMW 「あっ！　わたしのパン、ッ……！」
			PRINTFORMW 「パン……あ～、なんでもありませ～ん……えへへ……」
			PRINTFORMW （絶対穿いてた！　なんなのよ～、なんかの魔法？）
		ELSE
			PRINTFORML 「っ、また……！」
			PRINTDATAW
				DATAFORM 「なんなのっ、むかつく～！」
				DATAFORM 「どうやってんの……わたしが鈍いのかなぁ……」
			ENDDATA
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			PRINTFORML 「んくっ、んげ……何？　飲んじゃった……」
			PRINTFORMW 「とりあえず、体調は問題ない、かな？　もうっ、なんだったのよ！」
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			PRINTFORML 「うぐっ、けほ……んぇ」
			PRINTFORMW 「うえぇ、何これ……気持ち悪い……」
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			PRINTFORML （！　なに……？なんか急に……あったかくて、ドロッとしたの）
			PRINTFORMW （うう～……どっかで、こっそり出そ）
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORML 「！？　……んぐっ」
			PRINTFORMW （つい飲んじゃったけど……精液？　何で？）
			PRINTFORMW 「……まぁ、いっか……%UNICODE(0x2665) *1%」
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORML 「うぐっ、けほ……んぇ」
			PRINTFORMW 「うえぇ、何これ……気持ち悪い……」
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORML 「っ、ごぼっ……ん、んっ！」
			PRINTFORMW 「はぁっ、すっごい濃い……%UNICODE(0x2665) *1%」
			PRINTFORMW （誰が、どうやってるのか知らないけど……ちゃんと飲んだよ、ごちそうさま%UNICODE(0x2665) *1%）
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORML 「わぁっ、なになに！？　なんかついてる！」
			PRINTFORMW 「って、これ……う～ん、何でだろ？」
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORML 「う～ん、間違いなく%SAMEN_DESCRIPTION(PLAYER)%ね」
			PRINTFORMW 「……あはっ、良い趣味してる%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORML 「うわっ、きったない」
			PRINTFORMW 「んん……拭いてもちょっと臭いなぁ」
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORML 「ありゃ、いつの間に？　……れろ」
			PRINTFORMW 「しまった、つい舐めちゃった……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
			PRINTFORML 「うぇぇ……なんかお尻の方が……」
			PRINTFORMW 「なんともないかなぁ……どうしよ、人に相談しにくいし」
		;ソレ以外
		ELSEIF ARG:1 == 2
			PRINTFORML 「っ、お尻……急に何なの……%UNICODE(0x2665) *1%」
			PRINTFORMW 「まぁ……悪くないけど%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「いっ……たぁっ！」
		PRINTFORMW 「なんかヤバい気がする……なんなの～」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			PRINTFORML 「う……この感触、まさか」
			PRINTFORMW 「……まぁ、大丈夫……だよね？　きっと……多分」
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
			PRINTFORML 「う……この感触、まさか」
			PRINTFORMW 「ふっ、こんなこともあろうかと！　きっちり避妊してるし大丈夫！」
			PRINTFORMW 「……こんなこと気軽にあってたまるか！　なんなのよこれぇ～」
		;処女膣内射精
		ELSEIF ARG:1 == 3
			PRINTFORML 「！？　なんか……入ってきた？」
			PRINTFORMW 「なんだろ、良くないことな気がする……」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K104_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「ダメダメっ、子供なんて困るよ」
		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
		PRINTFORML 「うるさ～い！」
		PRINTFORMW 「ダメなものはダメだから！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「え～……まぁ、今日は……ギリギリ良いけど～」
		PRINTFORMW 「でも、ほんとにダメな時はやめてよ？」
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「……まぁ、いっか！　%CALLNAME:MASTER%なら」
			PRINTFORMW 「いざってときは、よろしくね%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「あ～……そんなに言われるとぉ、なんか……」
			PRINTFORMW 「まぁ、一回くらいなら……？　多分、大丈夫だと思うし」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K104_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K104_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K104_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORMW 「マイ！　わたし、好きな人ができたわ！」
		PRINTFORML
		SETCOLOR 0xFFDDEE
		PRINTFORMW 『……見てれば、わかるわ』
			IF TALENT:105:恋人
				PRINTFORMW 『あげないよ』
				PRINTFORMW 『……わたしのものだから』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORML 「う、いつにない迫力……わかってるよ」
				PRINTFORMW 「でも、一応報告しなきゃと思って」
				PRINTFORMW 「諦めたくないから……一緒にいられるだけで、十分なんだけど」
				PRINTFORML
				SETCOLOR 0xFFDDEE
				PRINTFORMW 『そう……』
				PRINTFORMW 『まぁ……好きにしたら』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORMW 「ありがと、マイ」
				PRINTFORMW 「これで、後ろめたいことはないわ！」
				PRINTFORML
			ELSEIF TALENT:105:恋慕 || TALENT:105:愛欲
				PRINTFORMW 『……それで、どうするの』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORML 「もちろん、わたしのことも好きになってもらうわ！」
				PRINTFORMW 「一緒にやりたいことがいっぱいあるの」
				PRINTFORML 「マイも、かなり仲良いみたいだけど……」
				PRINTFORMW 「ひょっとして、おなじ気持ち？」
				PRINTFORML
				SETCOLOR 0xFFDDEE
				PRINTFORML 『……さぁ』
				PRINTFORMW 『わからないわ……気持ちなんて』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORML 「？　どういうこと？」
				PRINTFORML 「まぁ、いずれにせよ……%CALLNAME:MASTER%には、振り向いてもらわなきゃ」
				PRINTFORMW 「よ～し……」
				PRINTFORML
			ELSE
				PRINTFORMW 『……それで、どうするの』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORML 「もちろん、わたしのことも好きになってもらうわ！」
				PRINTFORMW 「一緒にやりたいことがいっぱいあるの」
				PRINTFORML
				PRINTFORML 「こんな気持ちになれる人がいるなんて、今まで思ってもみなかったわ」
				PRINTFORML 「わたしたち、魔法のことばっかりだったけど……」
				PRINTFORMW 「せっかくだし、マイも色んな人と接してみると刺激あるかも？」
				PRINTFORML
				SETCOLOR 0xFFDDEE
				PRINTFORMW 『…………』
				PRINTFORMW 『……そう』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORMW 「うん！　きっとそうよ！」
				PRINTFORMW 「よ～し、やると決めたら！　絶対振り向いてもらわなきゃ！」
				PRINTFORML
			ENDIF
		PRINTFORMW 「本気だしちゃうから！！」
		PRINTFORML
		SETCOLOR 0xFFDDEE
		PRINTFORMW 『……』
		PRINTFORMW 『……はぁ、馬鹿』
		PRINTFORML
		RESETCOLOR
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORMW 「それでね～、その時%CALLNAME:MASTER%が……」
		PRINTFORMW 「……マイ？　どうかした？」
		PRINTFORML
		SETCOLOR 0xFFDDEE
		PRINTFORMW 『……べつに』
		PRINTFORML 『ずいぶん、入れ込んでるみたいだね』
		PRINTFORMW 『%CALLNAME:MASTER%の話、最近多いから……』
		PRINTFORML
		SETCOLOR 0xAA8888
		PRINTFORMW 「え！　そ、そうかな……？」
		PRINTFORMW 「……やめてよ～、そんなこと言われたら意識しちゃうじゃない」
		PRINTFORMW 「態度に出ちゃうかも……どうしよ」
		PRINTFORML
			IF TALENT:105:恋慕
				SETCOLOR 0xFFDDEE
				PRINTFORMW 『……ユキ"も"か……面倒だわ』
				PRINTFORML
				SETCOLOR 0xAA8888
				PRINTFORMW 「ん、何か言った？」
				PRINTFORML
				SETCOLOR 0xFFDDEE
				PRINTFORMW 『……なんでもない……』
				RESETCOLOR
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		PRINTFORML 「う～っ、ムラムラする……」
		PRINTFORMW 「あぁ……%CALLNAME:MASTER%とエッチしたいなぁ」
		PRINTFORML
		SETCOLOR 0xFFDDEE
		PRINTFORML 『ユキ……少し冷静になったら』
		PRINTFORMW 『最近、そればっかり……』
		PRINTFORML
		SETCOLOR 0xAA8888
		PRINTFORMW 「あは、マイ……真面目」
		PRINTFORMW 「マイも、本当に気持ちいいこと知ったらそんなこと言えなくなるわ」
		PRINTFORMW 「可哀想……なんなら、わたしが教えてあげよっか」
		PRINTFORMW 「いつでも良いよぉ……気が向いたら、呼んで%UNICODE(0x2665) *1%」
		PRINTFORMW 「あははは……」
		PRINTFORML
		PRINTFORML
		SETCOLOR 0xFFDDEE
		PRINTFORML 『…………』
		PRINTFORMW 『あの子、もう駄目かな』
		PRINTFORML
			SIF TALENT:105:愛欲
				PRINTFORMW 『……まぁ、わたしも他人のこと言えないけど……%UNICODE(0x2665) *1%』
		RESETCOLOR
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		PRINTFORML 「う～ん、%CALLNAME:MASTER%とするのハマっちゃったな～」
		PRINTFORMW 「身体だけの付き合いみたいで、良くないかも？」
		PRINTFORMW 「……」
		PRINTFORMW 「……でも、気持ちいいし……」
		PRINTFORMW 「ま、いっか%UNICODE(0x2665) *1%」
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K104_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「はぁっ、はぁ……んん……ぁ、あっ！」
		PRINTFORML 「……ふぅっ、すっきり%UNICODE(0x2665) *1%」
		PRINTFORML 「ふぁ……寝ちゃうか」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「……ん、んっ……」
		PRINTFORML 「……あっ%UNICODE(0x2665) *1%」
		PRINTFORML 「はっ……%UNICODE(0x2665) *1%　おやすみ、%CALLNAME:MASTER%%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「ん、あ……あはは、ぐちゃぐちゃ」
		PRINTFORML 「えへへ、%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
			PRINTFORML 「はぁーっ、はぁー……イ、くっ……！」
			PRINTFORML 「……ダメ……足りない……」
			PRINTFORML 「%CALLNAME:MASTER%……%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
			PRINTFORML 「はぁっ、はぁ……んん……ぁ、あっ！」
			PRINTFORML 「……ふぅっ、すっきり%UNICODE(0x2665) *1%」
			PRINTFORML 「ふぁ……寝ちゃうか」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
		PRINTFORML 「う～っ、欲求不満！　……だけど」
		PRINTFORML 「我慢して、めいっぱい溜めて……%CALLNAME:MASTER%に、してもらったら」
		PRINTFORML 「……絶対、最高に気持ちいいよね……%UNICODE(0x2665) *1%」
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K104_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K104_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K104_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K104_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「わぁっ、%CALLNAME:MASTER%！？　なんでっ……み、見てた？」
			PRINTFORMW 「やだっ……もう、かんべんしてよ～……」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「えっ、帰っちゃうの！？」
				PRINTFORMW 「せっかくなら、一緒にさ……」
				PRINTFORMW 「あ～あ……もう」
			ELSE
				PRINTFORML 「本当よ！」
				PRINTFORMW 「気を付けてよね～っ！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「……あはは、そういうのもいいかもね」
				PRINTFORMW 「わたしも、このままじゃ終われないし」
				PRINTFORMW 「よ～し、いくよ……%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORML 「うぇぇ～……見られちゃったとはいえ、わざと見せるのは違うような……」
				PRINTFORMW 「でも、まぁ……それはそれで面白いかも……？」
				PRINTFORMW 「……よしっ！　やっちゃうね！　よく見てて……%UNICODE(0x2665) *1%」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「出てって～っ！　もうっ！」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORML 「……うん、同感%UNICODE(0x2665) *1%」
				PRINTFORML 「%CALLNAME:MASTER%も、言ったからにはちゃんと気持ちよくしてよね%UNICODE(0x2665) *1%」
				PRINTFORMW 「ほらっ、はやく%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORML 「言ったな～？」
				PRINTFORMW 「よ～し、じゃあバッチリ満足させてくれたら許してあげる%UNICODE(0x2665) *1%」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K104_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕 ;宴会以外？
				PRINTFORML 「二人っきりで出かけたいな～」
				PRINTFORMW 「ダメ？」
			ELSE ;宴会同行？
				PRINTFORML 「そうだっ、宴会に誘われてるんだけど」
				PRINTFORMW 「一緒にどう？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「やった%UNICODE(0x2665) *1%」
				PRINTFORMW 「ふふん、今日は独り占めだねっ%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORML 「そう来なくっちゃ！」
				PRINTFORMW 「よ～し、楽しくなってきたわ！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「そっかぁ～……残念だわ、%CALLNAME:MASTER%と一緒にいたかったんだけど」
				PRINTFORMW 「じゃあ、また今度誘うね！」
			ELSE
				PRINTFORML 「あらら、忙しかった？」
				PRINTFORMW 「それじゃあ、またの機会ってことで！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;恋慕だけ、多分
			PRINTFORML 「ねぇ、%CALLNAME:MASTER%……わたしの部屋、来ない？」
			PRINTFORMW 「すぐ済むから……ねっ、お願い」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「……やった%UNICODE(0x2665) *1%　じゃ、来て」
			PRINTFORMW 「まぁ、何もないところだけど……何もいらないか、あはは……%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「ダメ？　え～……そんなぁ」
			PRINTFORMW 「あのさ、別にわたしの部屋じゃなくても……そのぉ」
			PRINTFORMW 「あ～……なんでもないわ！　あはは」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K104_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;怒り口上
;==================================================
@M_KOJO_EVENT_K104_29(ARG,ARG:1)
;口上主はTARGET
;ARGはTARGETの度胸で分岐
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;怒らせてしまった
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;泣かせてしまった　[臆病]持ち
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;相手が押し倒しを解除
;==================================================
@M_KOJO_EVENT_K104_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「う～っ、もうダメ……ちょっと、一休みさせてぇ」
			PRINTFORMW 「また今度、続きしよっ%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「あ～っ、張り切りすぎたぁ……疲れた～」
			PRINTFORMW 「ここまでにしとこっ」
		ENDIF
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「ふふん、堪能させてもらっちゃった%UNICODE(0x2665) *1%」
			PRINTFORMW 「やっぱり、%CALLNAME:MASTER%じゃないと……またよろしくね%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「う～ん、気持ちよかった%UNICODE(0x2665) *1%」
			PRINTFORMW 「もういいよ～、お疲れっ！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「あは%UNICODE(0x2665) *1%　まだ足りないんだ～？」
			PRINTFORMW 「良いよ、好きなだけやって？　いくらでも付き合ってあげる……%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「わっ、ちょっと！？　……おお、まだまだ元気いっぱい」
			PRINTFORMW 「よしっ、わたしも付き合ってもらったわけだし……相手してあげよっか！」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		IF TALENT:恋慕 || TALENT:愛欲
			PRINTFORML 「へえ……好きにしていいんだ……%CALLNAME:MASTER%のこと」
			PRINTFORMW 「ああ、楽しくなってきた……%UNICODE(0x2665) *1%　さ～、何から始めよっか」
		ELSE
			PRINTFORML 「あはは……%UNICODE(0x2665) *1%　折角だし、ちょっと遊んじゃおっか」
			PRINTFORMW 「あとで文句言わないでよね！」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K104_31(ARG,ARG:1)
;口上主はTARGET
;ARGは会ってない日数
;何日以上会ってなかったら愚痴を言うとかできます
;CFLAG:オナバレで分岐入れてもよさそう
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;今日会っていない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今日会っている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K104_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K104

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K104_ONABARE_2(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K104

IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレなし崩しックスの地の文をデフォルトのものから変更したい場合用。
;その場合は上下のSKIPSTART~SKIPENDを外してください。
;CFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります。
;-------------------------------------------------
@M_KOJO_EVENT_K104_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K104

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

;-------------------------------------------------
;処女・無自覚非処女に挿入する直前の口上
;RETURN 1するとコマンドをキャンセルします
;RETURN 0なら通します
;CFLAG:破瓜キャンセル口上有がオンになってないと読み込まれないので注意
;-------------------------------------------------
@M_KOJO_EVENT_K104_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_初回がオンになっている場合のみ有効。
;初めて押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常の判定を行い、RETURN 1すると無条件に成功させます。
;特定のイベント（デート帰りキスなど）を見るまでうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K104_PERMISSION_1
;-------------------------------------------------
PRINTFORML
;RETURN -1
RETURN 0
;RETURN 1
;-------------------------------------------------

;-------------------------------------------------
;CFLAG:口上内抱き寄せ判定_通常がオンになっている場合のみ有効。
;合意付きで押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常通り成功させます。
;合意があっても何らかの理由でうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K104_PERMISSION_2
;-------------------------------------------------
PRINTFORML
RETURN 0
;RETURN -1
;-------------------------------------------------

;-------------------------------------------------
;部屋描写用関数
;口上キャラのOMANEKIBEYAか拠点の描写に使います
;記入する際はコメントアウトを外してください
;-------------------------------------------------
;@K104_ROOM_DESCRIPTION
;PRINTFORML 例）生活感のない殺風景な部屋だ
;-------------------------------------------------

;==================================================
;贈り物イベント
;==================================================
@M_KOJO_EVENT_K104_GIFT(ARG, GIFT_ID, 評価点, GIFT_NAME, SENSE)
#DIM GIFT_ID
#DIM 評価点
#DIMS GIFT_NAME
#DIMS SENSE
;---------------------------------------------------------------------------------------------------
;評価点       贈り物の評価点（1～999）,口上主があげた場合でも口上主の評価点
;GIFT_NAME    贈り物の名称
;SENSE        贈り物に設定された属性。STRCOUNT(DISH_TASTE, "ほげほげ/")を使うと特定の属性を判定できます。
;GIFT_ID      これ単体では使いません。以下の式内関数を使うとデータを抽出できます（こだわりたい人用）
;　GET_GIFTDATA(GIFT_ID, "回数")    貰った（あげた）回数
;　GET_GIFTDATA(GIFT_ID, "得点")    得点（1～999）,口上テンプレ内では用意されてます。
;　GET_GIFTDATA(GIFT_ID, "日付")    貰った（あげた）日付（1～9999）
;　GET_GIFTDATA(GIFT_ID, "場所")    買った場所（デートの行き先）
;　GET_GIFTDATA(GIFT_ID, "形容詞")  形容詞番号（贈り物_形容詞.erb参照）
;　GET_GIFTDATA(GIFT_ID, "本体")    本体番号（贈り物_本体.erb参照）
;--------------------------------------------------------------------------------------------------
;デート帰りに口上主があなたに贈り物を渡す（陥落や好感度に関わらず親密5以上から発生）
;評価点は701～999（渡すキャラ本人の評価）
;--------------------------------------------------------------------------------------------------
IF ARG == 1

	PRINTFORML 「そうそうっ、%CALLNAME:MASTER%にあげようと思ってたものがあるんだ！」
	PRINTFORMW 「じゃーん、これ！　えーと……%GIFT_NAME%！　……だったかな？」
	IF TALENT:恋慕 || TALENT:愛欲
		PRINTDATAW
			DATAFORM 「いつもお世話になってるもんね！　その……今後とも、よろしくね」
			DATAFORM 「わたしなりに、ちゃんと選んだつもりだけど……どう？　その、気に入ってくれたら嬉しいわ！」
		ENDDATA
	ELSE
		PRINTFORML 「なんか、なんとなく%CALLNAME:MASTER%に合うと思って！」
		PRINTFORMW 「大事にしてね？」
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物を大事にする（700点以上）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 2
	IF TALENT:恋慕 || TALENT:愛欲
		PRINTFORML 「う～ん、何度見てもいいわ～……これ」
		PRINTFORML 「しかも、%CALLNAME:MASTER%からの……%UNICODE(0x2665) *1%」
		PRINTFORMW 「うあぁ～！　やばいやばいっ%UNICODE(0x2665) *1%」
		PRINTFORML
	ELSE
		PRINTFORML 「そうそうっ、プレゼントを貰ったんだった！」
		PRINTFORMW 「これこれっ……ふふ～ん%UNICODE(0x2665) *1%　良い物貰っちゃったわ～%UNICODE(0x2665) *1%」
		PRINTFORMW 「やるなぁ～、あいつ……」
		PRINTFORML
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をお気に入りにする（↑の大事にするから続き）（700点以上かつ最高得点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 3
	IF TALENT:恋慕 || TALENT:愛欲
		PRINTFORMW 「うへへ、%CALLNAME:MASTER%の愛を感じるわ～%UNICODE(0x2665) *1%」
	ELSE
		PRINTFORML 「こいつは殿堂入りね～」
		PRINTFORMW 「ふふふっ、マイにも自慢しちゃお～っと」
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をとりあえず保管する（400～699点）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 4
	IF TALENT:恋慕 || TALENT:愛欲
		PRINTFORML 「%CALLNAME:MASTER%からのプレゼントか～……うん、なんとなく味があるというか」
		PRINTFORMW 「えへへへ……%UNICODE(0x2665) *1%」
	ELSE
		PRINTFORML 「そうそうっ、プレゼントを貰ったんだった！」
		PRINTFORML 「うんっ、何か使い道があるかも……？」
		PRINTFORMW 「まぁ……そのうち考えよっと」
	ENDIF
	RETURN 1
;--------------------------------------------------------------------------------------------------
;一日の終わりに今日貰った贈り物をこっそり質に入れる（400点未満）
;--------------------------------------------------------------------------------------------------
ELSEIF ARG == 5
	IF TALENT:恋慕 || TALENT:愛欲
		PRINTFORML 「大事な%CALLNAME:MASTER%からのプレゼント、なんだけど……くぅ」
		PRINTFORMW 「ま、まぁ……持て余して忘れ去るよりは健全だよね！　……きっと」
		PRINTFORMW 「うっ、罪悪感が……」
	ELSE
		PRINTFORML 「そうそうっ、プレゼントを貰ったんだった……う～ん、でもなぁ」
		PRINTFORML 「まぁ、全然いらないし……最大限有効活用することにしようっと」
		PRINTFORMW 「整理整頓、ヨシ！」
	ENDIF
ENDIF
RETURN 1

;==================================================
;ムシバトル
;ムシバトルの口上は少し特殊で、PRINTを使うのではなく、
;台詞一行のみをRESULTSに入れてください
;ムシの名前は %MUSHI_NAME% で表示できます
;ムシの名前の最長はアレキサンドラトリバネアゲハの全角14文字です
;文字数制限があります。はみ出ないように気をつけてください
;ARGは残りムシ数か順位です
;==================================================
@M_KOJO_MESSAGE_COM_K104_MUSHI_BATTLE(ARGS, ARG)
#DIM 残りムシ数
#DIM 順位
SELECTCASE ARGS
CASE "試合前"
	;-------------------------------------------------
	;キャラセレクト時,ARGは使えません
	;全角50文字くらいまで
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「さぁっ、勝負ね！　わたしが相手をしてあげるわ！」
	ENDIF
CASE "戦場に出した"
	;-------------------------------------------------
	;"【（キャラ）】は《（ムシ）》を戦場に出した！」"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		SELECTCASE ARG
		CASE 3
			RESULTS = 「まずはこいつよ！　魔界の！%MUSHI_NAME%！」
		CASE 2
			RESULTS = 「やったな～？　次はこいつ！　真紅の！%MUSHI_NAME%！」
		CASEELSE
			RESULTS = 「本気出しちゃうから！！　行け、禁断の！%MUSHI_NAME%！」
		ENDSELECT
	ENDIF
CASE "攻撃時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》の『（攻撃名）』！」"の直前
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		SELECTCASE RAND:3
		CASE 0
			RESULTS = 「行け～、必殺技よ！　クリムゾン・デッド・メテオバースト！」
		CASE 1
			RESULTS = 「頑張ってよぉ、%MUSHI_NAME%！　ご褒美あげるから！」
		CASEELSE
			RESULTS = 「%MUSHI_NAME%！　あいつの弱点は目よ！　狙い打て～！」
		ENDSELECT
	ENDIF
CASE "倒れた時"
	;-------------------------------------------------
	;"【（キャラ）】《（ムシ）》は倒れた！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		SELECTCASE RAND:3
		CASE 0
			RESULTS = 「立て、%MUSHI_NAME%！　……あ、ダメそうね……お疲れ様」
		CASE 1
			RESULTS = 「なんでそんなに強いのよ～！　さては、ムシバトルやりこんでるな～？」
		CASEELSE
			RESULTS = 「ああっ、わたしの%MUSHI_NAME%！　……い、生きてる？」
		ENDSELECT
	ENDIF
CASE "敗退時"
	;-------------------------------------------------
	;"【（キャラ）】敗退！！"の直後
	;全角40文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	残りムシ数 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「うう、めちゃくちゃ悔しい……ごめんね、わたしのムシたち」
	ENDIF
CASE "タイマン：勝ち"
	;-------------------------------------------------
	;順位は1位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「勝った……わたし、才能あるかも？」
	ENDIF
CASE "タイマン：負け"
	;-------------------------------------------------
	;順位は2位
	;全角20文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「負けた、このわたしが……やるな～」
	ENDIF
CASE "バトルロイヤル：優勝"
	;-------------------------------------------------
	;順位は1位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「1位……わたし、才能あるかも？」
	ENDIF
CASE "バトルロイヤル：２位以下"
	;-------------------------------------------------
	;順位は2～4位
	;全角30文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「バトルロイヤル、奥が深いわ……！」
	ENDIF
CASE "チーム戦：勝ち"
	;-------------------------------------------------
	;順位は1位（やられていても）
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「チームワークの差ね！　名コンビの予感がする！」
	ENDIF
CASE "チーム戦：負け"
	;-------------------------------------------------
	;順位は2位
	;全角32文字まで（カギカッコ含む）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	順位 = ARG
	;-------------------------------------------------
	IF LOCAL:1
		RESULTS = 「チームワークの差ね……もっとお互いを知りましょ」
	ENDIF
ENDSELECT
SIF RESULTS != ""
	RETURN 1

repo_name: akadiya/eratw

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

license: unknown