code:
;-------------------------------------------------
; eraTheWorld 4.576用 お空口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

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

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

;### 口上存在判定 ###################################
@M_KOJO_K37(ARG)
;別人版を作成する際はこのテンプレではなく別人版用口上テンプレをご利用ください

;口上存在判定です、けしてコメントアウトしないでください
;他の処理は一切行わないように
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K37
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;Xにはキャラ番号を入れてください

;眠姦口上有、時間停止口上有、なりきりに1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません
;CFLAG:X:眠姦口上有 = 0
;CFLAG:X:時間停止口上有 = 0
;CFLAG:X:なりきり口上有 = 0

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_KX_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
;CFLAG:X:破瓜キャンセル口上有 = 0

;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れると、M_KOJO_EVENT_KX_PERMISSIONで押し倒しの成否を操作できます
;CFLAG:X:口上内抱き寄せ判定_初回 = 0
;CFLAG:X:口上内抱き寄せ判定_通常 = 0

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

;来訪不能に1を入れると、来訪してこなくなります
;以下は面識があるまで来訪してこなくなる使用例
;IF !CFLAG:X:面識
;	CFLAG:X:来訪不能 = 1
;ELSE
;	CFLAG:X:来訪不能 = 0
;ENDIF

;### 口上色判定 ###################################
@M_KOJO_COLOR_K37

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

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K37
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
PRINTL
PRINTFORMW 「이상한 인물-응！！」
PRINTFORMW 「너는 어디에서 왔어！?적！？」
PRINTFORMW 그렇게 말하면(자)%CALLNAME:MASTER%주변의 열이 갑자기 튀었다！
PRINTFORMW %마스터는% 자신은 이상한 인물이 아니면 열심히 전했다
PRINTL
PRINTFORMW 「-응이다-린이나 깨닫아 모양의 아는 사람이야！」
PRINTFORMW 「적이 아니면…잘 부탁해―！」
PRINTFORMW 「언제나 지저에서 핵을 제어하고 있으니！」
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K37_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;地の文
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
IF LOCAL
	PRINTFORML
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:키스캔슬 = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K37_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		PRINTFORMW 「」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		PRINTFORMW
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K37_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
		IF TALENT:연인
		PRINTFORMW
		ELSEIF TALENT:연모
		PRINTFORML 「」
		ELSEIF TALENT:사모
		PRINTFORML 「
		ELSE
		PRINTFORML 「」
		ENDIF

	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_K37_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:연인
			PRINTDATA
				DATALIST
					DATAFORM 「%CALLNAME:MASTER%-♪」
					DATAFORM 우츠호는%CALLNAME:MASTER%에 달려들어 꼭 껴안았다
					DATAFORM 무겁다……
					DATAFORM 「응실마리…와！유―♪」
				ENDLIST
				DATALIST
					DATAFORM 「……하！？」
					DATAFORM %마스터는% 멍한 우츠호의 어깨에 손을 두면(자)
					DATAFORM 놀라%CALLNAME:MASTER%(으)로부터 멀어지도록(듯이) 회전해 뒤로 물러났다
					DATAFORM %CALLNAME:MASTER%(이)라고 알았다고 보는이나%CALLNAME:MASTER%에 달려들었다
				ENDLIST
			ENDDATA
		ELSEIF TALENT:연모
			PRINTDATA
				DATALIST
					DATAFORM 「！」
					DATAFORM 「놀러 왔군요♪」
					DATAFORM 우츠호는%CALLNAME:MASTER%에 접근해 왔다
				ENDLIST
				DATALIST
					DATAFORM 「응실마리…」
					DATAFORM 우츠호는 스트렛치를 하고 있었다
					DATAFORM 「응--！―, 어？%CALLNAME:MASTER%있었어！？」
				ENDLIST
			ENDDATA
			ELSE
			PRINTDATA
				DATALIST
					DATAFORM 「원！？놀랐다―…왜？」
				ENDLIST
				DATALIST
					DATAFORM 「%CALLNAME:MASTER%？놀러 왔어？」
					DATAFORM 우츠호는 눈썹을 올려 그렇게 말했다
				ENDLIST
			ENDDATA
		ENDIF
		RETURN 0
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:연인
			PRINTFORML 「아찾아냈다…♪」
			PRINTFORML 우츠호는 기분인 모습으로%CALLNAME:MASTER%에 가까워져 왔다
		ELSEIF TALENT:연모
			PRINTFORML 「%CALLNAME:MASTER%찾아냈다！」
			PRINTFORML 말하지만 빠른가 이쪽을 향해 날아 왔다
			PRINTFORML 「유―♪」
		ELSEIF TALENT:사모
		ELSE
			PRINTFORML 「아！최근 지저에 오고 있는 사람！」
			PRINTFORML 우츠호는%CALLNAME:MASTER%에 가까워지면서 그렇게 말했다
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		IF TALENT:연인
			PRINTFORML 「」

		ELSEIF TALENT:연모
			PRINTFORML 「」

		ELSEIF TALENT:사모
			PRINTFORML 「」

		ELSE
			PRINTFORML 「」

		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		IF TALENT:연인
			PRINTFORML 「」
		ELSEIF TALENT:연모
			PRINTFORML 「」
		ELSEIF TALENT:사모
			PRINTFORML 「」

		ELSE
			PRINTFORML 「」
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		IF TALENT:연인
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ELSEIF TALENT:연모
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ELSEIF TALENT:사모
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ELSE
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		IF TALENT:연인
			PRINTFORML 「%CALLNAME:MASTER%--！」
			PRINTFORML %마스터는% 우츠호를 보려고 한 순간에는
			PRINTFORML 신체 전부 안아 도착해 왔다
			PRINTFORML 「%CALLNAME:MASTER%(을)를 만날 수 있어 행복―♪」
		ELSEIF TALENT:연모
			PRINTFORML 「아♪」
			PRINTFORML %CALLNAME:MASTER%(을)를을 찾아낸다고 날면서%CALLNAME:MASTER%에 가까워져, 꼭 껴안아 왔다
			PRINTFORML 「언제라도 지저에 놀러 와♪」
		ELSEIF TALENT:사모
			PRINTFORML 「아%CALLNAME:MASTER%(이)다！」
			PRINTFORML %CALLNAME:MASTER%(을)를 알아차리면(자) 날개를은 끊을까 키라고 날아 왔다
			PRINTFORML %CALLNAME:MASTER%의 전까지 가까워지면(자), 두야--와 다리로 급브레이크를 해,
			PRINTFORML 「이번 또 지저에 와1！또 이야기 하고 싶다～」
			PRINTFORMW 이렇게 말하면(자) 겨우 침착한 것 같다
		ELSE
			PRINTFORML 「어？만난 적 있었던가？」
			PRINTFORMW 우츠호는 생각해 낼 수 없다
		ENDIF

		RETURN
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		IF TALENT:연인
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ELSEIF TALENT:연모
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ELSEIF TALENT:사모
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ELSE
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORML
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K37_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
		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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		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
		PRINTFORMW
		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
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K37_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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_K37_5(ARG,ARG:1)
;口上主はTARGET
;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
	;その他（キャラ指定なし
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=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
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=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
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:연인
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「우우…ｷﾞｭｰ」
				PRINTFORMW 우츠호는%CALLNAME:MASTER%(을)를 강하게 꼭 껴안아
				PRINTFORMW %CALLNAME:MASTER%하지만 이제 괴로워라고 말해도 멈추어 주지 않는다
				PRINTFORMW
				PRINTFORMW 서서히 몸이 저려 감각이 희미해져 있고 구…
				PRINTFORMW
				PRINTFORMW 우츠호는%CALLNAME:MASTER%(을)를 꼭 껴안은 채로 넘어지고 넣었다！
				PRINTFORMW 「……！무저항으로 넘어져 준다는 것 파리통치해도 좋지요！？」
				PRINTFORMW 우츠호는%CALLNAME:MASTER%에 상기 한 얼굴로 그렇게 말해 발했다
				PRINTFORMW %마스터는% 자주(잘) 모르는 채 우츠호와 를 시작했다
			CASE 1
				PRINTFORMW 「이군요-해―」
				PRINTFORMW 그렇게 웃는 얼굴로 말했다
				PRINTFORMW %CALLNAME:MASTER%하지만 무엇인가 말하려고 하면(자)
				PRINTFORMW %CALLNAME:MASTER%에 승빌려 팔과 다리를 얽히게 할 수 있어 안아 붙어 있는…
				PRINTFORMW 「무슨 말해도 멈추지 않아―♪」
				PRINTFORMW 그렇게 말해%CALLNAME:MASTER%(을)를 억지로 밀어 넘어뜨렸다！
			CASEELSE
				PRINTFORMW 「응 뒤가 있어라고 무엇－？」
				PRINTFORMW 이렇게 말해졌으므로 뒤를 향하면(자) 돌연 뒤로부터 밀어 넘어뜨려졌다！
				PRINTFORMW 우츠호는%CALLNAME:MASTER%의 귓전에 구를 가까워져, 속삭여 소리로
				PRINTFORMW
				PRINTFORMW 「경계하지 않으면 이렇게 되어버린다…♪」
			ENDSELECT
		ELSEIF TALENT:연모
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW  우츠호는 어쩐지 험한 얼굴을 하고 있다
				PRINTFORMW  「득도함님으로부터 에 대해 한 잔 주의받았어！」
				PRINTFORMW  「별로 나쁜 일도 아니면서！」
				PRINTFORMW  %마스터는% 아래를 향해, 우메보시와 같은 얼굴을 띄웠다
				PRINTFORMW  득도함씨는 다른 사람에게는 너그롭지만 가족은 허락하지 않기 때문에…
				PRINTFORMW  「이라도 좋은 걸！이번은 반대해버리는 것！」
				PRINTFORMW  그렇게 말하면(자)%CALLNAME:MASTER%의 어깨를 잡으면(자) 부서진 얼굴로
				PRINTFORMW
				PRINTFORMW  「해―♪」
				PRINTFORMW
			CASE 1
				PRINTFORMW 「이군요-여기 벗겨―」
				PRINTFORMW 말해진 대로%마스터는% 뒤돌아 보려고 하면(자) 돌연
				PRINTFORMW 「―！응―…」
				PRINTFORMW 우츠호는%CALLNAME:MASTER%에 열렬한 키스를 걸어 왔다！
				PRINTFORMW
				PRINTFORMW 「…하,…응？」
				PRINTFORMW %마스터는% 키스로 황홀하게 되어 있으면(자)
				PRINTFORMW 「…각오 해♪」
				PRINTFORMW

			CASEELSE
				PRINTFORMW 「%CALLNAME:MASTER%라는 를 좋아해？」
				PRINTFORMW %마스터는% 아래를 향해, 눈을인가 열어 굳어지고 있다
				PRINTFORMW
				PRINTFORMW 「우츠호는 좋아해～♪」
				PRINTFORMW 우츠호는%CALLNAME:MASTER%의 일을 가만히 보면서 그렇게 말했다
				PRINTFORMW %마스터는% 침착해, 조금 전의 물음에 답하려고 하면(자)
				PRINTFORMW 「%CALLNAME:MASTER%의 말하고 싶은 일은 알아～♪」
				PRINTFORMW 그렇게 말하면서%CALLNAME:MASTER%(을)를 밀어 넘어뜨렸다
				PRINTFORMW
			ENDSELECT
		ELSEIF TALENT:사모
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「･･･저기～」
				PRINTFORMW 우츠호의 모습이 무엇인가 이상하다
				PRINTFORMW 「일전에린에 말이야～여러가지 가르쳐 주었다―」
				PRINTFORMW
				PRINTFORMW
				PRINTFORMW 「인 일」
				PRINTFORMW
				PRINTFORMW 「 그렇지만 너무 몰라서…」
				PRINTFORMW %마스터는% 우츠호로부터 그런 말이 나온다고는 무심코
				PRINTFORMW 몇초간 굳어지고 있었다
				PRINTFORMW
				PRINTFORMW
				PRINTFORMW 「%CALLNAME:MASTER%라는 우츠호보다 영리하지요？」
				PRINTFORMW 「그러니까……」
				PRINTFORMW
				PRINTFORMW 「가르쳐 줘？음란한 일…♪」
			CASE 1
				PRINTFORMW 「득도함님으로부터？는 안된다는 것은 말해졌어」
				PRINTFORMW 「그런데…뜨거운이라는 느낌 없는 신체인데 신체가 뜨거운거야」
				PRINTFORMW 「컨디션도 뛰어나지 않은거야…」
				PRINTFORMW 「린에 들은 것, 그것은 신체가 를 요구하고 있어는
				PRINTFORMW 그렇게 뚝 툭하고우츠호인것 같지 않은 말을 말해
				PRINTFORMW 「응……」
				PRINTFORMW
				PRINTFORMW 「해！」
				PRINTFORML 조금 전까지의 분위기는 어디네든지
				PRINTFORMW %CALLNAME:MASTER%의 어깨를 잡아 밀어 넘어뜨려 왔다
			CASEELSE
				PRINTFORMW 「-신체가 뜨겁게…」
				PRINTFORMW 우츠호는 열에 대한 감각이 꽤 둔할 것이지만…
				PRINTFORMW 「응%CALLNAME:MASTER%」
				PRINTFORMW 뭐야라고 하기 전에 우츠호는%CALLNAME:MASTER%에 가까워 짐
				PRINTFORMW %CALLNAME:MASTER%(을)를 꼭 껴안고
				PRINTFORMW 「열을 받게 해―！」
				PRINTFORMW 그렇게 말해 꼭 껴안은 채로 밀어 넘어뜨렸다
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「･･･저기～」
				PRINTFORMW 우츠호의 모습이 무엇인가 이상하다
				PRINTFORMW 「일전에린에 말이야～여러가지 가르쳐 주었다―」
				PRINTFORMW
				PRINTFORMW
				PRINTFORMW 「인 일」
				PRINTFORMW
				PRINTFORMW 「 그렇지만 너무 몰라서…」
				PRINTFORMW %마스터는% 우츠호로부터 그런 말이 나온다고는 무심코
				PRINTFORMW 몇초간 굳어지고 있었다
				PRINTFORMW
				PRINTFORMW
				PRINTFORMW 「%CALLNAME:MASTER%라는 우츠호보다 영리하지요？」
				PRINTFORMW 「그러니까……」
				PRINTFORMW
				PRINTFORMW 「가르쳐 줘？음란한 일…♪」
			CASE 1
				PRINTFORMW 「득도함님으로부터？는 안된다는 것은 말해졌어」
				PRINTFORMW 「그런데…뜨거운이라는 느낌 없는 신체인데 신체가 뜨거운거야」
				PRINTFORMW 「컨디션도 뛰어나지 않은거야…」
				PRINTFORMW 「린에 들은 것, 그것은 신체가 를 요구하고 있어는
				PRINTFORMW 그렇게 뚝 툭하고우츠호인것 같지 않은 말을 말해
				PRINTFORMW 「응……」
				PRINTFORMW
				PRINTFORMW 「해！」
				PRINTFORML 조금 전까지의 분위기는 어디네든지
				PRINTFORMW %CALLNAME:MASTER%의 어깨를 잡아 밀어 넘어뜨려 왔다
			CASEELSE
				PRINTFORMW 「-신체가 뜨겁게…」
				PRINTFORMW 우츠호는 열에 대한 감각이 꽤 둔할 것이지만…
				PRINTFORMW 「응%CALLNAME:MASTER%」
				PRINTFORMW 뭐야라고 하기 전에 우츠호는%CALLNAME:MASTER%에 가까워 짐
				PRINTFORMW %CALLNAME:MASTER%(을)를 꼭 껴안고
				PRINTFORMW 「열을 받게 해―！」
				PRINTFORMW 그렇게 말해 꼭 껴안은 채로 밀어 넘어뜨렸다
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに抱きついた（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 우츠호는%CALLNAME:MASTER%(이)가 말하고 있는 일을 무시했다
			PRINTFORML 우츠호의 욕구 불만도가 상승
			CFLAG:TARGET:욕구불만도  += 1000
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------ここ
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------ここ
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------ここ
		IF LOCAL:1 && !ARG:1
			PRINTFORML ―！………　---！！
			PRINTFORML 욕구 불만인 같다
			CFLAG:TARGET:욕구불만도  += 700
			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 우츠호는%CALLNAME:MASTER%(이)가 말하고 있는 일을 무시했다
			CFLAG:TARGET:신뢰도  += 100
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「안 됨！우츠호 자제는 할 수 없다！」
			PRINTFORMW 우츠호의 성욕이 높아진다
			CFLAG:TARGET:욕구불만도  += 500
			CFLAG:TARGET:호감도  += 200
			RETURN 1
		ENDIF
	ENDIF
ENDIF

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K37_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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 = 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
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K37_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_K37_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=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
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=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
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=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_37_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_K37_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=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
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K37_18(ARG,ARG:1)
;口上主は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
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=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
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K37_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_K37_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=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
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K37_21(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
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K37_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;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
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=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 = 0
	;-------------------------------------------------
	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
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	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
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K37_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_K37_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_K37_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_K37_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			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_K37_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K37_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_K37_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_K37_30(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=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
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;一日の終了時(AFTERTRAニーの前)、面識がなければ呼び出されない
;==================================================
@M_KOJO_EVENT_K37_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_K37_ONABARE_1(ARG)
;-------------------------------------------------
:구상색を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K84

IF ARG
	PRINTFORML A만지작거리고 있는 경우
ELSE
	PRINTFORML V만지작거리고 있는 경우
ENDIF
;-------------------------------------------------
[SKIPEND]

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

IF ARG
	PRINTFORML A만지작거리고 있는 경우
ELSE
	PRINTFORML V만지작거리고 있는 경우
ENDIF
;-------------------------------------------------
[SKIPEND]

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

:구상색を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K84

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_K37_LOST_VIRGIN_STOP
;-------------------------------------------------
PRINTFORML
RETURN 1

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

;-------------------------------------------------
;CFLAG:구상내껴안기판정_통상がオンになっている場合のみ有効。
;合意付きで押し倒した時、ここでRETURN -1すると押し倒しを強制的にキャンセルします。
;RETURN 0なら通常通り成功させます。
;合意があっても何らかの理由でうふふできないようにしたいときなどにどうぞ。
;-------------------------------------------------
@M_KOJO_EVENT_K37_PERMISSION_2
;-------------------------------------------------
PRINTFORML
RETURN 0
;RETURN -1
;-------------------------------------------------

license: mit


code:
;-------------------------------------------------
;코이시용 랜덤 키스효과 생성기
;-------------------------------------------------
@KOISHI_RANDKISS(ARG)
PRINTFORM 「
CALL KOISHI_RANDKISS_MAIN(ARG)
PRINTFORML 」

@KOISHI_RANDKISS_MAIN(ARG)
IF 1
	LOCAL:1 = ARG + 1
	REPEAT LOCAL:1
		SELECTCASE RAND:11
			CASE 0
				PRINTFORM 쪽
			CASE 1
				PRINTFORM 츕
			CASE 2
				PRINTFORM 츄웁
			CASE 3
				PRINTFORM 낼름
			CASE 4
				PRINTFORM 푸하
			CASE 5
				PRINTFORM 쯉
			CASE 6
				PRINTFORM 하읍
			CASE 7
				PRINTFORM 츄우
			CASE 8
				PRINTFORM 쪼옥
			CASE 9
				PRINTFORM 쮸웁
			CASE 10
				PRINTFORM 으응
		ENDSELECT
		SELECTCASE RAND:21
			CASE 0 TO 10
				PRINTFORM ...
			CASE 11 TO 19
				PRINTFORM ..
			CASE 20
				PRINTFORM
		ENDSELECT
	REND
ENDIF

;---------------------------------------------
;코이시용 랜덤 만취 대사
;---------------------------------------------
@KOISHI_DRUNKEN
IF 1
    SELECTCASE RAND:5
        CASE 0
            PRINTFORML 「에헤헤~...기분죠아아~」
        CASE 1
            PRINTFORML 「우흐흐...」
        CASE 2
            PRINTFORML 「아하핫...마시써어...」
        CASE 3
            PRINTFORML 「...머리 아파아...무울...」
        CASE 4
            PRINTFORML 「으으응...언니이...」
    ENDSELECT
ENDIF

;코이시용 랜덤 신음 발생기
;AUTO_AEGI가 있지만 그런건 가볍게 무시하자
@KOISHI_CLIMAX(ARG)
#DIM POST_CURR
#DIM NOW_CURR
IF 1
	POST_CURR = -1
	REPEAT ARG + 1
		$절정리롤
		NOW_CURR = RAND:16
		IF NOW_CURR == POST_CURR
			GOTO 절정리롤
		ELSE
			POST_CURR = NOW_CURR
		ENDIF
		SELECTCASE NOW_CURR
			CASE 0
				PRINTFORM 읏
			CASE 1
				PRINTFORM 앗
			CASE 2
				PRINTFORM 흐읏
			CASE 3
				PRINTFORM 히잇
			CASE 4
				PRINTFORM 히극
			CASE 5
				PRINTFORM 응히잇
			CASE 6
				PRINTFORM 응
			CASE 7
				PRINTFORM 으읏
			CASE 8
				PRINTFORM 하앙
			CASE 9
				PRINTFORM 으긋
			CASE 10
				PRINTFORM 하아
			CASE 11
				PRINTFORM 으응
			CASE 12
				PRINTFORM 흐으읏
			CASE 13
				PRINTFORM 하아아
			CASE 14
				PRINTFORM 후읏
			CASE 15
				PRINTFORM 힛
		ENDSELECT
		SELECTCASE RAND:6
			CASE 0
				PRINTFORM ...
			CASE 1
				PRINTFORM !
			CASE 2
				PRINTFORM ..
			CASE 3
				PRINTFORM ...!
			CASE 4
				PRINTFORM ,
			CASE 5
				IF TALENT:연인
					PRINTFORM ♥
				ELSE
					PRINTFORM ,
				ENDIF
		ENDSELECT
	REND
ENDIF

;################################################################
; 코이시 전용 거절 함수
; 근데 몇번 안씀
;
;################################################################
@KOISHI_REFUSE
;커맨드 실패시 나오게 할 대사
	IF MARK:반발각인 == 3
		IF TALENT:연인
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「읏...저리가...」
					PRINTFORMW 코이시는 몸을 떼어놓았다
				CASE 1
					PRINTFORMW 「하지말라구...」
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 「...뭐하는짓이야...」
				CASE 1
					PRINTFORMW 「...기분나빠, 저리가줘...」
					PRINTFORMW 코이시는 %마스터를% 노려보았다
			ENDSELECT
		ENDIF
	ELSEIF TALENT:연인
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「...음, 나중에 하면 안될까?」
			CASE 1
				PRINTFORMW 「...왠지 싫은걸, 다음에 해줘...」
			CASE 2
				PRINTFORMW 「싫어...그건 싫다구」
		ENDSELECT
	ELSEIF TALENT:연모||TALENT:사모||TALENT:애욕
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「......어...음...그런건 좀...」
			CASE 1
				PRINTFORMW 「에에...」
				PRINTFORMW 코이시는 싫어하고 있다
		ENDSELECT
	ELSEIF TALENT:섹프
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「...그런건 재미없는걸」
			CASE 1
				PRINTFORMW 「...다른거 하면 안될까?」
			CASE 2
				PRINTFORMW 「아무리 그래도 이건 싫어」
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「...어...음...」
				PRINTFORMW 코이시는 곤란한듯한 표정을 지었다
			CASE 1
				PRINTFORMW 「싫은걸? 그런거 말고 다른건 없는거야?」
		ENDSELECT
	ENDIF

;-----------------------------------
;코이시용 펠라치오 소리 생성기
;-----------------------------------
@KOISHI_ORALSEX_MAIN(ARG)
#DIM POST_CURR
#DIM NOW_CURR
POST_CURR = -1
REPEAT ARG+RAND:2
	$펠라리롤
	NOW_CURR = RAND:8
	IF NOW_CURR == POST_CURR
		GOTO 펠라리롤
	ELSE
		POST_CURR = NOW_CURR
	ENDIF
	SELECTCASE NOW_CURR
		CASE 0
			PRINTFORM 츄읍
		CASE 1
			PRINTFORM 츕
		CASE 2
			PRINTFORM 하압
		CASE 3
			PRINTFORM 낼름
		CASE 4
			PRINTFORM 하읍
		CASE 5
			PRINTFORM 흐읍
		CASE 6
			PRINTFORM 츄웁
		CASE 7
			PRINTFORM 쪽
	ENDSELECT
	SELECTCASE RAND:3
		CASE 0
			PRINTFORM ...
		CASE 1
			PRINTFORM ,
		CASE 2
			PRINTFORM
	ENDSELECT
REND

@KOISHI_ORALSEX(ARG)
PRINTFORM 「
CALL KOISHI_ORALSEX_MAIN(ARG)
PRINTFORML  」

;------
;절정 아닌 신음
;------
@KOISHI_SCREAM(ARG)
LOCAL:1 = ARG+1
IF 1
	IF MARK:반발각인 == 3&&!TALENT:연인
		SELECTCASE RAND:2
			CASE 0
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+3)
				PRINTFORM 시럿, 조금만 천천히...
				PRINTFORML 」
			CASE 1
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+2)
				PRINTFORM 잠까안...너무 격렬, 해...
				PRINTFORML 」
		ENDSELECT
	ELSEIF TALENT:연인
		SELECTCASE RAND:2
			CASE 0
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+4)
				PRINTFORM 좀 더어...%UNICODE(0x2764)%
				PRINTFORML 」
			CASE 1
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+3)
				PRINTFORM 흐에에...%UNICODE(0x2764)%
				PRINTFORML 」
		ENDSELECT
	ELSEIF TALENT:섹프
		SELECTCASE RAND:2
			CASE 0
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+3)
				PRINTFORM 더어...더 세게 해줘어...%UNICODE(0x2764)%
				PRINTFORML 」
			CASE 1
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+3)
				PRINTFORM 너무 기분죠아앗...!
				PRINTFORML 」
		ENDSELECT
	ELSE
		SELECTCASE RAND:2
			CASE 0
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+2)
				PRINTFORM 기분 좋아아...
				PRINTFORML 」
			CASE 1
				PRINTFORM 「
				CALL KOISHI_CLIMAX(RAND:(LOCAL:1)+2)
				PRINTFORM 하으으...
				PRINTFORML 」
		ENDSELECT
	ENDIF
ENDIF

;----------------------------------------------------
;코이시 중복 회화 처리용 함수
;ARGS로 상황 불러옴
;----------------------------------------------------
@KOISHI_DUP_TALK(ARGS,ARG=0)
SELECTCASE ARGS
	CASE "회임첫대사-고개숙인코이시" ;회임 첫대사 + 무지 + 무자각임신 + 연인
		PRINTFORMW 코이시는 고개를 숙였다...
		PRINTFORML [1] %마스터의% 능력을 밝힌다
		PRINTFORML [2] 그저 위로해줄뿐
		INPUT
		IF RESULT == 1
			CALL KOISHI_DUP_TALK("회임첫대사-능력시범",1)
			PRINTFORMW 「...으으, 그런건 좀 빨리 말해주지...」
			PRINTFORMW 「괜시리 걱정했다구우...버려질까봐...」
			PRINTFORMW 코이시는 희미하게 웃으며 눈물을 닦았다...
			PRINTFORMW 「...%마스터의% 아이라아...분명 귀엽겠지...히힛...」
			CFLAG:2506 = 1 ;시간정지 자각
			CFLAG:5502 = 0 ;이번 아이 책임 X
		ELSE
			PRINTFORMW %마스터는% 울고 있는 코이시를 토닥토닥 다독여줬다
			PRINTFORMW ...재밌는게 생각났다, 내 애라곤 안할거지만, 책임은 져주겠다고 말하면 어떨까?
			PRINTFORML [1] 나쁘지 않은데?
			PRINTFORML [2] 그래도 책임지긴 싫은데...
			INPUT
			IF RESULT == 1
				PRINTFORMW %마스터는% 코이시의 눈물을 닦아주며, 그 아이를 책임져 주겠다고 말했다
				PRINTFORMW 「...어..? 책임져 주는거야...?」
				PRINTFORMW 「그 말은...버리지 않겠다는거야...?」
				PRINTFORMW 코이시는 놀란 눈으로 %마스터를% 바라봤다
				PRINTFORMW 「...흐윽...기뻐...그리고 미안해...\@ARG ? 처음엔#\@ %마스터의% 아이를 꼭 낳아주고 싶었는데...」
				PRINTFORMW \@ARG ? ...사실 #\@뱃속에 %마스터의% 아이가 있단걸 알면 무슨 생각을 할까...
				CFLAG:호감도 += 50
				CFLAG:신뢰도 += 25
			ELSE
				PRINTFORMW 관두자, 애초에 그럴거면 코이시한테 그런짓 하지 말았어야지
				CFLAG:5502 = 1 ;이번 아이 책임 X
				CFLAG:6000++ ;배드엔딩 플래그
			ENDIF
		ENDIF
	CASE "회임첫대사-능력시범"
		IF ARG == 1 ;무지 + 무자각임신 + 연인
			PRINTFORMW %마스터는% 코이시에게 시간정지의 시범을 보여주었다
			PRINTFORMW 고개를 들게 하고, 시간정지로 등 뒤로 간뒤 뒤에서 포옹해주자 깜짝 놀란 표정을 했다...
			PRINTFORMW 「...그러니까, 이 애는 %마스터의% 애라구?」
			PRINTFORMW 「......」
			PRINTFORMW %마스터가% 자신의 아이임을 알려주자 코이시는 얼굴을 붉혔다
		ENDIF
		;일단 능력의 시범을 보였으니 시간정지 자각을 합니다
		CFLAG:2506 = 1
	CASE "회임첫대사-연모취득" ;TODO 조건확인요망
		;0b1 = 깨끗한교제 생성여부 0b10 애욕 변동 여부 0b100 연인까지 가는지 여부
		IF ARG & 0b10 && TALENT:애욕 ;애욕이 있으면 사모가 없는것으로 상정
			PRINTFORMW 코이시는 몸도 마음도 %CALLNAME:MASTER%에게 채워지는 것에 즐거움을 느끼고 있다...
			PRINTFORMW 문란한 관계속에 여문 연정, 그것도 또 하나의 사랑의 형태...
			PRINTFORMW 코이시의 [애욕]은 [연모]로 변했습니다
			PRINTFORML
			TALENT:애욕 = 0
		ENDIF
		IF TALENT:사모||!TALENT:연인
			PRINTFORMW 코이시는 %마스터와% 보내는 시간에 행복을 느끼고 있는것 같다...
			PRINTFORMW 코이시의 [사모]는 [연모]가 되었다
			PRINTFORML
			IF ARG & 1 && !MARK:시간각인
				CFLAG:깨끗한교제 = 1
			ENDIF
			TALENT:사모 = 0
		ENDIF
		TALENT:연모 = 1

		IF ARG & 0b100
			PRINTFORMW 코이시는 뺨을 발그레하게 물들이며 %마스터를% 받아들였다...
			PRINTFORMW 코이시와 %마스터는% [연인]이 되었다
			TALENT:연인 = 1
		ENDIF
	CASE "회임첫대사-누군가의해코지"
		PRINTFORMW %마스터는% 아마도 누군가가 코이시가 자는동안 해코지 했던가 한 것 같다고 답했다
		PRINTFORMW 「...흑...싫은데...얼굴도 모르는 사람의 아이같은건...」
		PRINTFORMW 「...차라리 %CALLNAME:MASTER% 애면 기쁠텐데...흑...」
		PRINTFORMW 코이시는 낙담한듯 고개를 숙이곤 흘끔흘끔 %마스터를% 바라봤다
		PRINTFORMW 「...저기, %CALLNAME:MASTER%...나 얘 어떻게 해야해...? 낳아야해..?」
		PRINTFORML [1] 같이 길러줄테니 낳자
		PRINTFORML [2] 뭐 그럴수밖에, 잘해봐
		INPUT
		IF RESULT == 1
			PRINTFORMW 「...어? 같이 길러준다고...? 왜..?」
			PRINTFORMW %마스터는% 코이시를 안아주며 그 아이도 내 아이인 셈 치고 같이 키우자고 말했다
			PRINTFORMW 코이시는 얼굴을 붉혔다...
			PRINTFORMW 「으응...미안해...폐 끼쳐서...흐윽...%마스터의% 애면 좋을텐데...」
			PRINTFORMW 「...저기, 이 애 낳은 뒤에...%마스터의% 애도 만들어주면 안될까...? 적어도 또 모르는 사람의 애는 갖고 싶지 않은걸...」
			PRINTFORMW 「차라리 %마스터가% 아빠인 아이가 훨씬 나아...그러니깐...」
			PRINTFORMW 코이시는 부끄러운지 말을 끝맺지 못했다...
			PRINTFORML
			CALL KOISHI_DUP_TALK("회임첫대사-연모취득", 0b10) ;TODO 조건확인요망
			CFLAG:6000 -= 2
			CFLAG:5502 = 0
		ELSE
			PRINTFORMW 「...훌쩍...으읏...우에에엥...」
			PRINTFORMW 코이시는 훌쩍훌쩍 울었으나 %마스터는% 애써 그것을 듣지 않았다
			CFLAG:6000++ ;배드엔딩 플래그
			CFLAG:5502 = 1 ;이번 아이 책임 X
		ENDIF
	CASE "회임첫대사-같이길러줄래"
		PRINTFORMW 「근데...얘 어떻게 해야해...? 낳아야 해? ...같이 길러줄거야?」
		PRINTFORML [1] 당연하지
		PRINTFORML [2] 아니, 기를 생각은 없는데...
		INPUT
		IF RESULT == 1
			PRINTFORMW 「...으으음...그러며언..나도 좋아! 같이 기르자~」
			PRINTFORMW 「아이 이름은 어떻게 할래? 다음에 또 만들래? 아니아니 일단 사귀는거부터 해야하나? 응?」
			PRINTFORMW 코이시는 왠지 들떠보인다
			PRINTFORMW 「앗...그렇지이...일단은...이렇게...%UNICODE(0x2764)%」
			PRINTFORMW 코이시는 얼굴을 들어 %마스터의% 볼에 진한 키스를 했다
			PRINTFORMW 「히히...좋아해...%CALLNAME:MASTER%...」
			CALL KOISHI_DUP_TALK("회임첫대사-연모취득", 0b11) ;TODO 조건확인요망
			PRINTFORMW 코이시는 뺨을 발그레하게 물들이며 %마스터를% 받아들였다...
			PRINTFORMW 코이시와 %마스터는% [연인]이 되었다
			TALENT:연인 = 1
			CFLAG:6000 -= 2
		ELSE
			PRINTFORMW 「에에...방금까진 %마스터가% 아빠라며?」
			PRINTFORMW 「...책임지긴 싫다구? 으으...그럼 얜 어쩌라구우...」
			PRINTFORMW %마스터는% 알아서 하라며 손을 내저었다
			PRINTFORMW 「...우으읏...너무해...어째서 그러는거야...응?」
			PRINTFORMW 「...훌쩍...으읏...멋대로 아기만들어놓곤...왜에...책임은 안져주는데...」
			PRINTFORMW 코이시는 훌쩍훌쩍 울었으나 %마스터는% 애써 그것을 듣지 않았다
			CFLAG:6000++ ;배드엔딩 플래그
			CFLAG:5502 = 1 ;이번 아이 책임 X
		ENDIF
	CASE "회임첫대사-애아빠할래"
		PRINTFORMW 「...\@ARG == 1 ? 우우...#\@저기, %CALLNAME:MASTER%~...%마스터가% 얘 아빠 해주면 안돼?」
		PRINTFORML [1] 그러지 뭐
		PRINTFORML [2] 미쳤어?
		INPUT
		IF RESULT == 1
			PRINTFORMW 「앗- 고마워~」
			PRINTFORMW 「후후...그럼 이제 뭐 할까 여보? 에헷...」
			PRINTFORMW 소꿉놀이하는 아이마냥 싱글벙글 다가왔다...
			PRINTFORMW ...것보다 딱히 아이가 생긴건 신경쓰지 않는것 같다...
			CFLAG:5502 = 0
			CFLAG:호감도 += 300
			CFLAG:신뢰도 += 100
			ABL:친밀 += 1
		ELSE
			PRINTFORMW 「...칫...야박해...」
			PRINTFORMW 코이시는 볼을 부풀렸다
			PRINTFORMW 「뭐어, 어쩔수 없나...언니보고 키워달래야지...」
			IF CFLAG:49:현재위치 == CFLAG:현재위치
				PRINTFORMW 『아니, 어째서...』
				PRINTFORMW 사토리는 어이없다는 표정으로 코이시를 바라봤다
			ENDIF
			CFLAG:5502 = 1
			CFLAG:호감도 -= 1
		ENDIF
	CASE "회임첫대사-모르는사람아이"
		PRINTFORMW 「...미안해, 또...」
		PRINTFORMW 코이시는 잔뜩 움츠러든채 말했다
		PRINTFORMW 「...또, 모르는 사람의 아이가 생겨버렸어...」
		PRINTFORMW 「미안해...흐흑...나, %마스터의% 연인인데...」
		PRINTFORMW 코이시는 서러운지 엉엉 울기 시작했다
		PRINTFORMW ...그런데, 얘는 어떻게 할까
		PRINTFORML [1] 책임져 준다
		PRINTFORML [2] 알 게 뭐람
		INPUT
		IF RESULT == 1
			PRINTFORMW 「...어...? %마스터의% 아이로 해주겠다고...?」
			PRINTFORMW 코이시는 눈물을 그치고 놀란 눈으로 %마스터를% 바라봤다
			PRINTFORMW 그리곤 이내 달려들어 %마스터를% 와락 껴안았다
			PRINTFORMW ...애초에 원래 내 아이지만...아직은 모르니깐 상관 없겠지...
			CFLAG:호감도 += 50
		ELSE
			PRINTFORMW 「흐흑...미안해...버리지 말아줘...」
			PRINTFORMW 「나...난 %CALLNAME:MASTER%밖에 없어...응? 알잖아...그러니깐...」
			PRINTFORMW 딱히 별 말 안해도 혼자 겁에질려 있었다...
			PRINTFORMW 적당히 안아줘서 달래주고 버리지 않을거라고 해주고 나서야 겨우겨우 진정했다...
			PRINTFORMW ...그래도 책임은 질 수 없다고 선을 단단히 그어주자 고개를 숙였다...
			PRINTFORMW 「...으응...아..알았어...%마스터의% 애도 아니니깐, 당연...하지..」
			IF ARG == 1
				PRINTFORMW 「응응...나 혼자서 기를테니깐...그건 걱정하지 말아줘...그러니깐...」
				PRINTFORMW 코이시는 눈물을 닦으며 말했다
				PRINTFORMW 진실을 알게되면 과연 무슨 표정을 보일까...
			ELSE
				PRINTFORMW 「응응...나 혼자서 기를테니깐...그건 걱정하지 말아줘...」
			ENDIF
			CFLAG:5502 = 1
		ENDIF
	CASE "회임첫대사-또임신버리기"
		;생해금 >= 2 ARG 1 반발3+연인 2 반발3 3 연인 4 사모/연모/애욕 5 섹프 제외 기타
		;생해금 아님 ARG 6 반발3+연인 7 반발3 8 연인/연모/사모/애욕 9 섹프 제외 기타
		PRINTFORML [1] 아니, 안 버릴거야
		PRINTFORML [2] 응, 버릴거야
		INPUT
		IF RESULT == 1
			SELECTCASE ARG
				CASE 1
					PRINTFORMW 「...책임져 주는거야? 고마워...」
					PRINTFORMW 「......근데, 얘만 보살펴주면...전의 아이가 너무 불쌍해지잖아...어떻게 안될까...?」
					PRINTFORMW 「책임져 달라고는 안할게, 그저 아빠 행세라도 해주면...안될까?」
				CASE 2
					PRINTFORMW 「...책임져 준다고? 고마워」
					PRINTFORMW 「......근데, 얘만 보살펴주면...전의 아이가 너무 불쌍해지잖아?」
					PRINTFORMW 「책임져 달라곤 안해, 하지만 아빠 행세라도 해주면 안될까?」
				CASE 3,4
					PRINTFORMW 「...안 버리는거야? 정말이지?」
					PRINTFORMW 「......하지마안... 얘만 보살펴주면...전의 아이가 너무 불쌍해지잖아?」
					PRINTFORMW 「책임져 달라는건 아닌데... 하지만 적어도 아빠 행세라도... 해주면 안될까?」
				CASE 5
					PRINTFORMW 「...안 버리는거야? 정말이지?」
					PRINTFORMW 「......하지마안... 얘만 보살펴주면 전의 아이가 너무 불쌍한데...」
					PRINTFORMW 「...걔를 책임져 달라는건 아닌데... 하지만 적어도 아빠 행세라도... 해주면 안될까?」
					PRINTFORMW 「아빠없이 자라는건 너무 불쌍하지 않아...?」
				CASE 6,7
					PRINTFORMW 「...안 버리는거야? 정말이지?」
					PRINTFORMW 「...근데 그러면 전의 아이들도 책임져 주면 안될까?」
					PRINTFORMW 「...돈이나 그런게 아냐... 적어도 아빠 행세라도\@ARG == 6?...#\@ 해주면 안될까?」
					PRINTFORMW 「아빠없이 자라는건 너무 불쌍하지 않아...? \@ARG == 6?더군다나 엄마는 나고, #\@애들한테 무척이나 괴롭혀질걸...」
				CASE 8,9
					PRINTFORMW 「...안 버리는거야? 정말이지?」
					PRINTFORMW 「...근데... 그러면 전의 아이들도 책임져 주면 안될까?」
					PRINTFORMW 「...돈이나 그런거 말고... 같이 놀아주고, 사랑해주고... 그래주면 안될까?」
					PRINTFORMW 「아빠없이 자라는건 너무 불쌍하잖아...? 더군다나 엄마는 나고, 애들한테 무척이나 괴롭혀질걸...」
			ENDSELECT
			IF GROUPMATCH(ARG, 1,2)
				PRINTFORMW 말은 저렇게 하지만, 기대도 안하는 눈빛이다...
			ENDIF
			IF GROUPMATCH(ARG, 1,2,3,4,5)
				PRINTFORML [1] 아니, 걔넨 아니야
			ELSEIF GROUPMATCH(ARG, 6,7,8,9)
				PRINTFORML [1] 그건 싫어
			ENDIF
			PRINTFORML [2] ...알았어
			INPUT
			IF RESULT == 1
				IF ARG == 1
					PRINTFORMW 「...응, 알았어...」
					PRINTFORMW 코이시는 침울한 표정으로 고개를 숙였다
					PRINTFORMW 「...그럼 얘는 어떻게 기를까? 일단 이름부터 정해둬야 하나..?」
					PRINTFORMW 애써 웃어보이지만 표정에서 슬픔이 미처 감춰지지 않고 드러났다...
				ELSE ;ARG != 1
					PRINTFORMW 「하아...그래, 알았어...」
					PRINTFORMW 코이시는 한숨을 쉬며 고개를 숙였다
					SELECTCASE ARG
						CASE 3
							PRINTFORMW 「...으응 아냐, 괜찮아...나 안운다구?」
							PRINTFORMW 말은 그렇게 해도 눈가가 촉촉하다...
						CASE 4
							PRINTFORMW 「...뭐어, %마스터의% 사정도 있을테지...」
						CASE 5,6,8,9
							PRINTFORMW 「그래두...애 크면 보러는 와줘...?」
						CASE 7
							PRINTFORMW 「...딱히 기대도 안했어...」
					ENDSELECT
				ENDIF
			ELSE
				;버린 아이의 성장을 기록하는게 화나서 그냥 지움
				IF GROUPMATCH(ARG, 1,2,3,4)
					PRINTFORMW 「...어?」
					PRINTFORMW 예상외의 대답이어서 놀란 눈치다
				ENDIF
				SELECTCASE ARG
					CASE 1
						PRINTFORMW 「고..고마워...애들도 기뻐할거야...에헤헤...」
						PRINTFORMW 코이시는 %CALLNAME:MASTER%에게 달려들어 와락 끌어안곤 눈물을 글썽였다...
					CASE 2
						PRINTFORMW 「...응, 그래...애들도 분명 좋아하겠지...」
						PRINTFORMW 코이시는 무덤덤한 척 하고 있지만 꽤나 기뻐보이는 눈치다
					CASE 3,4
						PRINTFORMW 「...고마워...! 애들도 분명히 기뻐할거야...!」
						PRINTFORMW 코이시는 해맑은 미소를 띄며 %마스터를% 껴안았다...
						TFLAG:103 = 1
					CASE 5,6
						PRINTFORMW 「앗... 고마워...」
						PRINTFORMW 「...애들도 분명히 기뻐할거야!」
						PRINTFORMW 코이시는 \@ARG == 5 ?해맑은#희미한\@ 미소를 띄며 %마스터를% 바라봤다...
						TFLAG:103 = 1
					CASE 7,8,9
						PRINTFORMW 「...그래, 고마워...」
						PRINTFORMW 코이시는 담담하게 말했으나 조금 기뻐보인다
						TFLAG:103 = 1
				ENDSELECT
				CFLAG:MASTER:아이인원수 += CFLAG:5501
				CFLAG:5501 = 0 ;책임 안 진 아이수
			ENDIF

			CFLAG:5502 = 0 ;이번 아이는 책임지지 않음
		ELSE
			IF ARG == 1
				PRINTFORMW 「그...그렇구나...알겠어...」
				PRINTFORMW 코이시는 침울한 표정으로 고개를 끄덕였다...
			ELSE ;ARG != 1
				PRINTFORMW 「...뭐어...그럴거라곤 생각했어」
				PRINTFORMW 코이시는 어쩐지 조금 슬퍼보인다...
			ENDIF
			CFLAG:5502 = 1
			TFLAG:193 = -1
		ENDIF
	CASE "회임첫대사-길러줄거야"
		;생해금 >= 2 ARG 1 반발3+연인 2 반발3 3 연인 4 사모/연모/애욕 5 섹프 제외 기타
		;생해금 아님 ARG 6 반발3+연인 7 반발3 8 연인/연모/사모/애욕 9 섹프 제외 기타
		PRINTFORML [1] 싫은데
		PRINTFORML [2] 좋아
		INPUT
		IF RESULT == 1
			SELECTCASE ARG
				CASE 1 TO 5
					PRINTFORMW 「..뭐?」
					PRINTFORMW %마스터는% 책임지기 싫다고 말했다
					IF GROUPMATCH(ARG, 1,2,3,4)
						PRINTFORMW 「잠깐..농담이 지나치잖아......진심이야?」
					ELSEIF ARG == 5
						PRINTFORMW 「잠깐..농담두 참......설마 진심?」
					ENDIF
					PRINTFORMW %마스터가% 재차 강하게 밀어붙이자 코이시는 화난 표정을 지었으나
					IF MARK:고통각인 == 3
						PRINTFORMW %마스터가% 주먹을 들어올리자 \@ GROUPMATCH(ARG, 1,2,3,4) ? 바들바들 떨며# 얼굴이 창백해지며 곧바로\@ 움츠러들었다
					ELSE
						PRINTFORMW 싫다면 지금당장 떼 주겠다며 주먹을 들어올리자 곧바로 움츠러들었다
					ENDIF
					PRINTFORMW 「...아..알았어...책임져달라 안할테니깐...\@ GROUPMATCH(ARG, 1,2,3,4)? 그러지마..응?#\@」
					IF ARG == 5
						PRINTFORMW 「그러니까 그거 치워...」
					ENDIF
					SELECTCASE ARG
						CASE 1,2
							PRINTFORMW 코이시는 눈물을 글썽였다...
						CASE 3,4,5
							PRINTFORMW 코이시는 파르르 떨며 눈물을 글썽였다
					ENDSELECT
				CASE 6
					PRINTFORMW 「...응?」
					PRINTFORMW %마스터는% 책임지기 싫다고 말했다
					PRINTFORMW 「...왜 그러는거야...?」
					PRINTFORMW 코이시의 눈에 눈물이 맺혔다
					PRINTFORMW 「...흐윽...어째서...」
				CASE 7,8
					PRINTFORMW 「...어?」
					PRINTFORMW %마스터는% 책임지기 싫다고 말했다
					PRINTFORMW 「...왜...왜 그러는거야...내가 뭘 잘못했길래...」
					PRINTFORMW 코이시의 눈에 눈물이 맺혔다
					PRINTFORMW 그러나 %마스터는% 들은채도 하지 않았다...
				CASE 9
					PRINTFORMW 「...어?」
					PRINTFORMW %마스터는% 책임지기 싫다고 말했다
					PRINTFORMW 「...으..못됐어, %마스터는% 싸면 끝이지만 난 계속 힘들단 말야...」
					PRINTFORMW 코이시는 화를 냈다
					PRINTFORMW 그러나 %마스터는% 들은채도 하지 않았다...
			ENDSELECT
			CFLAG:5502 = 1
			TFLAG:193 = -1
		ELSE
			PRINTFORMW 코이시는 희미한 웃음을 띄며 배를 만졌다
			PRINTFORMW 「...근데 애는 몇명까지 만들 생각\@ GROUPMATCH(ARG, 1,2) ?인거야#\@?」
			PRINTFORM 「...뭐? 이 세상을 가득 채울만큼...?
			SELECTCASE ARG
				CASE 1,2
					PRINTFORMW 그건 좀 봐줘어...」
				CASE 3
					PRINTFORMW 그럼 힘내야겠네에...태어나면 또 열심히 하자?」
				CASE 4
					PRINTFORMW 정말...그건 좀 봐줘~」
				CASE 5
					PRINTFORMW 으으...아무리 그래도 그건 무리...」
				CASE 6,7,8
					PRINTFORMW 으으...아무리 그래도 그건 좀 봐줘...」
				CASE 9
					PRINTFORMW 으으...그건 좀 무리...」
			ENDSELECT
		ENDIF
	CASE "회임첫대사-같이기르자"
		PRINTFORMW 「...나 또 애 생겼어...」
		PRINTFORMW 코이시는 침울한 표정으로 다가왔다
		PRINTFORMW 「근데...%마스터의% 애가 아냐\@ARG==1?,#...\@ 미안해...」
		PRINTFORMW 「...믿기진 않겠지만...어째선지 보이지 않는 누군가한테 범해져서 잔뜩 뿌려졌어...」
		PRINTFORMW 「그리고 그 결과가 이거...」
		PRINTFORMW 코이시는 울음을 터뜨릴것만 같은 표정으로 임신사실을 알려왔다
		PRINTFORMW 「미안해...버리지 말아줘...흐윽...」
		PRINTFORMW 「아이는...내가 어떻게든 할테니깐...」
		PRINTFORML [1] 그러지말고 같이 기르자
		PRINTFORML [2] 그저 위로해줄뿐
		INPUT
		IF RESULT == 1
			PRINTFORMW 울고 있는 코이시를 다독여주며 같이 아이를 키우자고 전했다
			PRINTFORMW 「에...? 정말로...?」
			PRINTFORMW 뜻 밖에 대답에 크게 놀란듯하다..
			PRINTFORMW 「...고마워...고마워...흐흑...」
			PRINTFORMW 코이시는 연신 눈물을 흘리며 %마스터를% 껴안았다...
		ELSE
			PRINTFORMW %마스터는% 조용히 코이시를 안아주며 울지말라고 했다...
			PRINTFORMW 「흐윽...흐에에에엥...」
			PRINTFORMW 그러나 코이시는 충격이 컸는지 엉엉 울기 시작했다...
			CFLAG:5502 = 1
			TALENT:기분 = -1
		ENDIF
	CASEELSE
		THROW 상정되지 않은 상황 %ARGS%
ENDSELECT
RETURN 1


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;加虐系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;100,스팽킹
;==================================================
@M_KOJO_MESSAGE_COM_K38_100
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K38_100_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K38_100_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	;基本セット
	;時姦中
	IF FLAG:70
		PRINTFORMW 멈춘 시간 속에서 코이시의 엉덩이를 하염없이 두들겼다
		PRINTFORMW 나중에 몰아쳐올 고통에 울부짖는 코이시의 모습을 상상하며 더욱더 세게 엉덩이를 때려나갔다
		RETURN 1
	ELSE
		;PRINTFORMW 「」
		IF FLAG:시간정지
			RETURN 1
		ENDIF
		IF ABL:마조끼 <= 5
			IF MARK:반발각인 == 3
				IF TALENT:연인
					SELECTCASE RAND:3
						CASE 0
							PRINTFORMW 「윽...뭐..뭐하는거야아...」
						CASE 1
							PRINTFORMW 「아...파아...! 그만해줘어...」
						CASE 2
							PRINTFORMW 「으으읏...싫어어...」
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「읏...아아악...」
						CASE 1
							PRINTFORMW 「잠...하지마아아...!」
						CASE 2
							PRINTFORMW 「으으읏...싫어어...」
					ENDSELECT
				ENDIF
			ELSEIF TALENT:연인
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「으읏...아..아파아...용서해줘어...」
					CASE 1
						PRINTFORMW 「히이잇...그..그만해에...」
					CASE 2
						PRINTFORMW 「으으읏...싫어어...」
				ENDSELECT
			ELSEIF TALENT:연모||TALENT:사모
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「아흣...아파...그..그만...」
					CASE 1
						PRINTFORMW 「으윽...왜...왜 그래에...」
					CASE 2
						PRINTFORMW 「으으읏...싫어어...」
				ENDSELECT
			ELSEIF TALENT:섹프||TALENT:애욕
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「으아아....아파아...전혀 기분 안좋으니까...그만해...」
					CASE 1
						PRINTFORMW 「히끅...아파...왜 그러는거야...」
					CASE 2
						PRINTFORMW 「으으읏...싫어어...」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「으...아파...! 그만해줘어...」
					CASE 1
						PRINTFORMW 「흐읏...그...그만해...아프단말야...」
					CASE 2
						PRINTFORMW 「으으읏...싫어어...」
				ENDSELECT
			ENDIF
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 코이시는 고통에 울먹이고 있다...
				CASE 1
					PRINTFORMW 갑작스런 고통에 코이시는 몸을 덜덜 떨었다
				CASE 2
					PRINTFORMW 코이시는 울먹이며 용서를 빌어왔다
				CASE 3
					PRINTFORMW 고통에 몸부림치며 어떻게든 벗어나려 하고있다...
			ENDSELECT
		ELSE
			IF MARK:반발각인 == 3&&!TALENT:연인
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「흐으읏...아...아픈데도오...」
					CASE 1
						PRINTFORMW 「히극...내 몸...어째서 기분 좋은거야아...」
					CASE 2
						PRINTFORM 「
						CALL KOISHI_CLIMAX(RAND:3)
						PRINTFORM ...%UNICODE(0x2764)%
						PRINTFORML 」
				ENDSELECT
			ELSEIF TALENT:연인
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「흐으읏...찌릿찌릿한거어...기분좋아아...」
					CASE 1
						PRINTFORMW 「아...마리가 멍해...」
					CASE 2
						PRINTFORM 「
						CALL KOISHI_CLIMAX(RAND:3)
						PRINTFORM ...%UNICODE(0x2764)%
						PRINTFORML 」
				ENDSELECT
			ELSEIF TALENT:섹프
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「...찌릿찌릿해에...머리속이 하얘져...」
					CASE 1
						PRINTFORMW 「아픈데에...기분 좋아...」
					CASE 2
						PRINTFORM 「
						CALL KOISHI_CLIMAX(RAND:3)
						PRINTFORM ...%UNICODE(0x2764)%
						PRINTFORML 」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 0
						PRINTFORMW 「...기분 좋아...찌릿찌릿...따끔따끔...」
					CASE 1
						PRINTFORMW 「흐으윽...아파...좀더 쓰다듬어줘어엇...읏...쓰라려...」
					CASE 2
						PRINTFORM 「
						CALL KOISHI_CLIMAX(RAND:3)
						PRINTFORM ...%UNICODE(0x2764)%
						PRINTFORML 」
				ENDSELECT
			ENDIF
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 고통과 함께 찾아오는 쾌감에 코이시는 몸을 배배 꼬고 있었다
				CASE 1
					PRINTFORMW 코이시는 고통스러워 하는 한편 쾌감에 몸을 바르르 떨고 있다
				CASE 2
					PRINTFORMW 분명 고통스러운 행위인데도 코이시는 쾌감을 느끼며 부들부들 떨었다
				CASE 3
					PRINTFORMW 고통으로 느끼고 있는 코이시는 맞으면서도 작게 신음소리를 냈다
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;104,아이마스크
;==================================================
@M_KOJO_MESSAGE_COM_K38_104
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K38_104_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K38_104_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF FLAG:70
			RETURN 1
		ENDIF
		PRINTFORMW 「뭐...뭐야 이거...안보여...거기 있는거야...?」
		PRINTFORMW 앞이 보이지 않는다는 두려움에 코이시는 필사적으로 %마스터를% 찾았다
		RETURN 1
	ENDIF
	;基本セット
	;장착
	IF TEQUIP:눈가리개
		;時姦中
		IF FLAG:70
			RETURN 1
		ELSE
			IF ABL:마조끼 <= 5
				IF MARK:반발각인 == 3
					IF TALENT:연인
						SELECTCASE RAND:2
							CASE 0
								PRINTFORMW 「...거..거기 있는거 맞지..? 버리고 간거 아니지...?」
								PRINTFORMW 코이시는 필사적으로 %마스터를% 찾아 나섰지만 허사였다
							CASE 1
								PRINTFORMW 「...%CALLNAME:MASTER%...? 어디 가지 마...? 버리면 안돼...?」
								PRINTFORMW %마스터가% 자신을 버릴까 노심초사 하고있는것 같다
						ENDSELECT
					ELSE
						SELECTCASE RAND:2
							CASE 0
								PRINTFORMW 「...안보여...어디 간거야...?」
								PRINTFORMW 코이시는 고개를 갸웃거렸다
							CASE 1
								PRINTFORMW 「...갔어...? 아무도 없는거야?」
								PRINTFORMW 「...아직 있는거야...?」
						ENDSELECT
					ENDIF
				ELSEIF TALENT:연인
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「에...어..어디간거야...?」
							PRINTFORMW 코이시는 무서운지 파르르 떨었다
						CASE 1
							PRINTFORMW 「잠...안보여~...나 버리고 가는거 아니지...?」
							PRINTFORMW 코이시는 불안한듯 주위를 살펴보았지만 역시나 허사였다
					ENDSELECT
				ELSEIF TALENT:연모||TALENT:사모
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「에...이..이제 뭐하려고...?」
							PRINTFORMW 「...저기~? 나 버리고 간거야...?」
							PRINTFORMW %마스터가% 대답을 않자 코이시는 무척 불안해 했다...
						CASE 1
							PRINTFORMW 「히이...자...잠깐...버리고 가는거 아니지? 응?」
							PRINTFORMW 코이시는 무서운지 몸을 덜덜 떨고 있다
					ENDSELECT
				ELSEIF TALENT:섹프||TALENT:애욕
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「이..이제 뭐하려는거야...?」
							PRINTFORML 미지에 대한 공포심으로 덜덜 떠는 코이시였지만
							PRINTFORMW 한편으론 %마스터가% 또 어떤 쾌락을 보여줄지 기대하고 있는것 같다
						CASE 1
							PRINTFORMW 「...안 보여...이거 정말 기분 좋아지는거 맞아...?」
							PRINTFORMW 코이시는 입술을 삐죽였다
							PRINTFORMW 그러나 그 끝이 바들바들 떨리는것을 누구나 알아볼수 있었다...
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「이게 뭐가 좋은거야아...?」
						CASE 1
							PRINTFORMW 「...이거 싫어...빨리 벗겨줘...」
					ENDSELECT
					PRINTFORMW 코이시는 눈가리개가 마음에 안 드는것 같다
				ENDIF
			ELSE
				;마조끼 높아
				IF MARK:반발각인 == 3&&!TALENT:연인
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「...하아...안보여...이제 뭐하려고...?」
							PRINTFORMW 「심한짓은 하지마...」
						CASE 1
							PRINTFORMW 「으...이런게 뭐가 좋은지 참...」
							PRINTFORMW 그렇게 말하면서도 기대감에 얼굴이 새빨게 지고 있었다
					ENDSELECT
				ELSEIF TALENT:연인
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「하아아...이제 뭐할거야...?」
							PRINTFORMW 시야가 차단되는 상황에 코이시는 무척 기대하고 있다
						CASE 1
							PRINTFORMW 「흐으으...빨리이~ 빨리 뭔가 해줘어~...♥」
					ENDSELECT
				ELSEIF TALENT:섹프
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「이제 뭐할거야? 응?」
							PRINTFORMW 눈가리개를 씌우자마자 바로 다음 행위를 조르고 있다
						CASE 1
							PRINTFORMW 「에헤헤...다음은 뭐야?」
							PRINTFORMW 「온 몸이 민간해져서...뭘 해줘도 기쁘지만♥」
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「눈 가리는것도 재밌으니까 좋아...」
							PRINTFORMW 「그러고보니 난 눈 세 개를 다 닫아버렸네? 후후...」
						CASE 1
							PRINTFORMW 「이제 뭐 할려구?」
							PRINTFORMW 「뭐어...재밌으니 뭐든 좋지만~」
					ENDSELECT
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	;해제
	ELSE
		IF ABL:마조끼 <= 5
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW 「흐으으...무서웠어...」
					PRINTFORMW 코이시는 안도의 한숨을 쉬었다
				CASE 1
					PRINTFORMW 「이젠 이런거 하지마...」
				CASE 2
					PRINTFORMW 「...나 이거 싫어...」
			ENDSELECT
		ELSE
			IF MARK:반발각인 == 3&&!TALENT:연인
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「...어라, 벌써 끝...?」
					CASE 1
						PRINTFORMW 「아읏...눈 부셔...」
				ENDSELECT
			ELSEIF TALENT:연인
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「에...? 끝이야...?」
						PRINTFORMW 「므...어쩔수 없지..」
					CASE 1
						PRINTFORMW 「읏...눈 부셔어...! 갑자기 벗기지 말아줘...」
					CASE 2
						PRINTFORMW 「...앗, %CALLNAME:MASTER%~♥」
						PRINTFORMW 코이시는 싱글벙글 웃으며 %마스터를% 바라보았다
				ENDSELECT
			ELSEIF TALENT:섹프
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「히잇...눈 부셔라...」
					CASE 1
						PRINTFORML 「...응? 끝이야...?」
						PRINTFORML 코이시는 무척 아쉬워했다
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
					CASE 0
						PRINTFORMW 「으으...눈부셔...! 갑자기 벗기면 어떡해...」
					CASE 1
						PRINTFORMW 「어라, 이제 안대는 끝이야...?」
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;105,밧줄
;미실장
;==================================================
@M_KOJO_MESSAGE_COM_K38_105
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K38_105_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K38_105_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF FLAG:70
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;장착
	IF TEQUIP:밧줄
		;時姦中
		IF FLAG:70
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;해제
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

path: ERB/대사_메시지관련/개인대사/038 코이시/M_KOJO_K38_가학계커맨드.ERB


code:
;-------------------------------------------
;각인취득
;-------------------------------------------
;PRINTFORMW 「」

@M_KOJO_MESSAGE_MARKCNG_K38
;このままだと地の文が表示されません
;地の文を表示したい方は、下記のコメントアウトを削除して下さい
;CALL MARK_MESSAGE
;고통각인
IF TFLAG:22 == 1
	PRINTFORMW 「힛...아...아파...」
	PRINTFORMW 「조금만...살살...」
	PRINTFORMW 코이시의 눈에 눈물이 약간 맺혔다...
ELSEIF TFLAG:22 == 2
	PRINTFORMW 「익?! 으깃...아..아파아악...」
	PRINTFORMW 진심으로 아픈지 코이시는 바들바들 떨며 비명질렀다...
ELSEIF TFLAG:22 == 3
	PRINTFORMW 「아아아아악...!」
	PRINTFORMW 지나친 고통에 코이시는 바들바들 떨다 축 늘어졌다...
	PRINTFORMW 눈물을 뚝뚝 떨어뜨리며 그저 힘없는 신음 소리만 간간히 나올뿐이다...
ENDIF

;시간각인
IF TFLAG:시간각인취득 == 1
	IF CFLAG:2506 == 1
		PRINTFORMW 「하아..하아...이거...어쩐지 마음에 들지도...%UNICODE(0x2764)%」
	ELSE
		PRINTFORMW 「힛...누군지도 모르는 사람일텐데...어째서어...」
		PRINTFORMW 「응읏...안돼...는데두...」
	ENDIF
ELSEIF TFLAG:시간각인취득 == 2
	IF CFLAG:2506 == 1
		PRINTFORMW 「응흐읏...좀 더어...좀만 더 해줘어...아직 더 기분좋아지고 싶단 말야아앗...%UNICODE(0x2764)%」
		PRINTFORMW 코이시는 녹아내린 표정으로 %마스터를% 바라봤다
	ELSE
		PRINTFORMW 「안돼는데에에...%UNICODE(0x2764)% 이런거, 계속 당해버리면...흐읏..평범한거론 못 느껴...버리는데에...%UNICODE(0x2764)%」
	ENDIF
ELSEIF TFLAG:시간각인취득 == 3
	IF CFLAG:2506 == 1
		PRINTFORMW 「아하...이..이젠 평범한거론 못 가아...%UNICODE(0x2764)%」
		PRINTFORMW 「좀 더어... 잔뜩 범해줘어...시간정지 없으면 만족못해...%UNICODE(0x2764)%」
	ELSE
		PRINTFORMW 「아하...하...이젠 누구든 상관없어...기분좋은거 더줘...」
	ENDIF
ENDIF

;쾌락각인
IF TFLAG:23 == 1
	PRINTFORMW 「하아...하아...기분좋아...」
	PRINTFORMW 「조금만 더...응읏...」
ELSEIF TFLAG:23 == 2
	PRINTFORMW 「히이이...안돼에에...%UNICODE(0x2764)% 이런거 더하면 나 이상해져어어%UNICODE(0x2764)%」
ELSEIF TFLAG:23 == 3
	PRINTFORMW 「아...아아아..아아아...%UNICODE(0x2764)%」
	PRINTFORMW 코이시는 뇌를 녹여버릴것만 같은 쾌감에 굴복해버렸다...
	PRINTFORMW 혀를 내밀고 그저 몸을 휩쓸고 있는 쾌감에 몰두하며 파들파들 떨뿐 아무런 말도 코이시에겐 들리지 않았다
ENDIF

;괘씸각인?
;쾌락에의한각인
;LV1
IF TFLAG:24 == 11
	PRINTFORMW 「우으으...」
	PRINTFORMW 어쩐지 불만스러운 표정으로 %마스터를% 바라보고 있다...
;LV2
ELSEIF TFLAG:24 == 12
	PRINTFORMW 「후우우...어째서야....」
	PRINTFORMW 코이시는 약간 실망스러운것 같은 표정으로 %마스터를% 바라보고 있다
;LV3
ELSEIF TFLAG:24 == 13
	PRINTFORMW 「...너무해, 이제 슬슬 알아줬음 했는데...」
	PRINTFORMW 코이시는 어째서인지 짜증을 냈다...
;굴복、공순에의한각인
;LV1
ELSEIF TFLAG:24 == 31
	PRINTFORMW 「...」
	PRINTFORMW 코이시는 %마스터를% 물끄러미 바라보고 있다
;LV2
ELSEIF TFLAG:24 == 32
	PRINTFORMW 「있지..나, 할말이...」
	PRINTFORMW 「...아무것도 아냐...」
	PRINTFORMW 코이시는 무어라 말하려다 말고 얼굴을 붉혔다
;LV3
ELSEIF TFLAG:24 == 33
	PRINTFORMW 「...이젠 말해볼까...아..아니야...」
	PRINTFORMW 코이시는 무언가 말하려다 말고 고개를 푹 숙였다...
ENDIF

;반발각인
IF TFLAG:21 == 1
	IF TALENT:연인
		PRINTFORMW 「...조금 심하잖아...」
	ELSEIF TALENT:연모||TALENT:사모||TALENT:애욕
		PRINTFORMW 「...왜 그러는거야...」
	ELSE
		PRINTFORMW 「...너무해...」
	ENDIF
ELSEIF TFLAG:21 == 2
	IF TALENT:연인
		PRINTFORMW 「...내가 미워진거야...?」
	ELSEIF TALENT:연모||TALENT:사모||TALENT:애욕
		PRINTFORMW 「...어...어째서 그러는거야...나, 뭐 잘못했어...?」
	ELSE
		PRINTFORMW 「...아무리 그래도 이건 좀 심하잖아...」
	ENDIF
ELSEIF TFLAG:21 == 3
	IF TALENT:연인
		PRINTFORMW 「...싫어어...흐흑...왜그러는거야 도대체...」
		PRINTFORMW 「...내가, 미워진거야...? 응?」
		PRINTFORMW 코이시는 결국 울음을 터뜨렸다...
	ELSEIF TALENT:연모||TALENT:사모||TALENT:애욕
		PRINTFORMW 「......」
		PRINTFORMW 코이시는 우울해 보이는 표정을 지었다...
	ELSE
		PRINTFORMW 「...있지, 나라도 참는덴 한계가 있어...」
		PRINTFORMW 「아무리 내가 바보같아도 그런 짓은 하지 말아달라구」
		PRINTFORMW 코이시는 굉장히 화를 내고 있다...
	ENDIF
ENDIF

path: ERB/대사_메시지관련/개인대사/038 코이시/M_KOJO_K38_각인취득.ERB