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

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

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;イベント;CFLAG:100:1100 アプデ処理
;イベント;CFLAG:100:1101 初回恋慕妊娠口上
;イベント;CFLAG:100:1200~1206 時間停止解除時に使用
;日常系;CFLAG:100:1001 コーヒーを飲ませた回数
;日常系;CFLAG:100:1002 押し倒し論外
;日常系;CFLAG:100:1003 初回川の字で寝る
;日常系;CFLAG:100:1004 一周で一回だけ表示される会話
;
;日常系;TCVAR:100:350 一日一回お茶淹れ口上
;日常系;TCVAR:100:351 一日一回休憩時に桃くれる
;日常系;TCVAR:100:360 その日二回目以降部屋を訪ねた時
;
;******************************************************************************

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

;RESULTS = _TEST_

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

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

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

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

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

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

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

;恋慕かつ欲求不満度８０％以上じゃないと押し倒してこない
IF TALENT:100:恋慕 && CFLAG:100:溜まってる度 >= 800
	CFLAG:100:押し倒し禁止 = 0
ELSE
	CFLAG:100:押し倒し禁止 = 1
ENDIF

;日記用。KOJO_DAIRY_K100.ERBを使うならコメントアウトを外すこと。
;CALL DAIRY_BEFORE_CHECK_K100

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

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

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

IF CFLAG:100:1100 == 0
	PRINTL
	PRINTFORML レイセンからの呼び名を変更しますか？
	PRINTL
	CALL ASK_M("はい",1 , "いいえ",1 , "もう変更しない",1)
	SELECTCASE RESULT
		CASE 0
			CALL NAME_SET_K100
			RETURN 1
		CASE 1
			PRINTFORMW 呼び名を変更する際はもう一度[UPDATE]を押してください
			RETURN 1
		CASE 2
			PRINTFORMW 了解しました
			CFLAG:100:1100 = 1
			RETURN 1
	ENDSELECT
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K100
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します

;月で遭遇
IF (CFLAG:MASTER:現在位置 / 100) == 10
	PRINTFORMW 「えっと、あなたは…地上の人間、ですよね？どうしてこんなところに…」
	;月に住んでる
	IF MAIN_MAP == 10
		PRINTFORMDW %CALLNAME:MASTER%は最近ここに住むようになった者だと挨拶した
	;それ以外
	ELSE
		PRINTFORMDW %CALLNAME:MASTER%は目の前の少女に事情を説明した
	ENDIF
	PRINTFORMW 「……あっ！あなたが綿月様の仰っていた方ですね。すっかり忘れてました」
	PRINTFORMW 「確かお名前は……」
	CALL NAME_SET_K100
	PRINTFORMW 「そう、%MASTERNAME:100%でしたね。私は%CALLNAME:TARGET%といいます 月の使者に所属する兎です」
	PRINTFORMW 「%MASTERNAME:100%が月に滞在している間は身の回りのお世話をするよう、綿月様から指示されているので…」
	PRINTFORMW 「なにかあれば、私に仰せ付けください」
	PRINTFORMDW ペコリとお辞儀をする%CALLNAME:TARGET%に、%CALLNAME:MASTER%は『そんなに畏まらなくてもいい』と声を掛ける
	PRINTFORMW 「そうですか？それなら私も楽ですけど……」
	PRINTFORMW 「……綿月様には、私がちゃんとやってるって言ってくださいね？」
	PRINTFORMDW なんとも調子の良いことだ……%CALLNAME:MASTER%はそんなことを思いながら、この少女とどう接していくかの算段を立て始めた……
;それ以外
ELSE
	;あなたが女
	IF TALENT:MASTER:性別 != 2
		PRINTFORMDW %CALLNAME:MASTER%が道を歩いていると、誰かが行き倒れているのを発見した
		PRINTFORMDW まさか死体だろうか……恐る恐る近付いてみる。どうやら生きているようだ
		PRINTFORMDW 外の世界の学生を思わせる制服、そして兎の耳と尻尾
		PRINTFORMDW 似たような子を見たことがある。この子もそれと同類なのだろうか
		PRINTFORMDW もしそうだとしたら人喰い妖怪ではなさそうなので、%CALLNAME:MASTER%は暫く看病してあげることにした
		PRINTFORMDW ………
		PRINTFORMW 「……うーん……あれ、ここは……」
		PRINTFORMDW 数十分経った頃だろうか、ようやく妖怪の少女が目を覚ました
		PRINTFORMW 「あ、え、私、膝枕されてる……？」
		PRINTFORMDW %CALLNAME:MASTER%が事情を説明すると、彼女は『あー』と間の抜けた声を上げた
		PRINTFORMW 「はぁ……またスペースデブリに当たっちゃったのかなぁ……」
		PRINTFORMW 「えっと、ありがとうございます。……看病、してくれたんですよね？」
		PRINTFORMW 「あなたのお名前は……」
		CALL NAME_SET_K100
		PRINTFORMW 「%MASTERNAME:100%ですね。私の名前は%CALLNAME:TARGET%といいます」
		PRINTFORMDW それはそうと、いつまで膝枕すればいいのだろうか
		PRINTFORMW 「……っあ、す、すみませんっ！」
		PRINTFORMDW ようやく状況に気付いたらしい%CALLNAME:TARGET%がガバッと飛び起きる
		PRINTFORMDW 顔を真っ赤にして恥ずかしがる姿を、%CALLNAME:MASTER%はとても可愛らしく思った
	;あなたが男
	ELSE
		PRINTFORMDW 道を歩いていた%CALLNAME:MASTER%が不意に空を見上げると、光る何かが動いているのが見えた
		PRINTFORMDW 流れ星か何かだろうか…いや、こっちに近付いてきてないか…？…そう呑気に観察していると…
		PRINTL
		SETCOLOR 0xFF0000
		PRINTFORML ゴッ
		RESETCOLOR
		PRINTW
		PRINTFORMDW ………
		PRINTFORMDW ……
		PRINTFORMDW …
		SETCOLOR 0xCCDFFF
		PRINTFORMW 「……ぁ…気が付きましたか？」
		PRINTFORMDW %CALLNAME:MASTER%が目を覚ますと、兎の妖怪？に膝枕をされていた
		PRINTFORMDW なにが起きたのだろうか…記憶が曖昧で思い出せない
		PRINTFORMW 「すみません…着地する時に、あなたを踏ん付けてしまったみたいで…」
		PRINTFORMW 「ええっと、あなたのお名前は…」
		CALL NAME_SET_K100
		PRINTFORMW 「%MASTERNAME:100%ですね。私は%CALLNAME:TARGET%といいます。月に住んでいる兎です」
		PRINTFORMDW 月に住む兎…ということは、空から降って来たのはこの少女なのだろう
		PRINTFORMDW よく見れば可愛らしい顔をしている。こんな出会い方でなければきっと……
		PRINTFORMDW ………
		PRINTFORMW 「あっ………また気絶しちゃった…どうしよう」
		PRINTFORMDW %CALLNAME:TARGET%は途方に暮れながらも、%CALLNAME:MASTER%が再び意識を取り戻すまで介抱を続けた……
		RESETCOLOR
		BASE:MASTER:体力 -= 500
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K100_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;地の文
;キスをキャンセルしたい場合は以下を開放
;TCVAR:キスキャンセル = 1
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
IF LOCAL
	IF TALENT:恋慕
		PRINTFORMW 「ふぅ…今日も楽しかったなぁ」
		PRINTFORMDW 『そう思ったならお礼にキスの一つでも欲しい』%CALLNAME:MASTER%は冗談を言ってみる
		PRINTFORMW 「…%MASTERNAME:100%」
		PRINTFORMDW 『冗談』%CALLNAME:MASTER%がそう言おうとすると……
		PRINTFORMW 「……ん…ちゅ…」
		PRINTFORMDW %CALLNAME:TARGET%が唇を重ねてきた
		PRINTFORMW 「…ふぁ…えへへ、キス…しちゃった」
		PRINTFORMDW 頬を紅潮させる%CALLNAME:TARGET%
		PRINTFORMDW %CALLNAME:MASTER%は頭が真っ白になってしまって、言葉を紡げない
		PRINTFORMW 「本当はね、ずっとこうしたかったんだよ？」
		PRINTFORMW 「でも、やっぱり恥ずかしかったし…」
		PRINTFORMW 「……今も逃げ出したいくらい恥ずかしいけど」
		PRINTFORMW 「…だから………って、これじゃあ告白みたいだよね♪」
		PRINTFORMDW %CALLNAME:TARGET%は恥ずかしさを隠すように前を向くと、さっさと歩いて行ってしまった
		PRINTFORMDW ……呆然と立ち尽くす%CALLNAME:MASTER%を残して
	ELSE
		PRINTFORMW 「今日は…その、楽しかったです。とても」
		PRINTFORMW 「それで、その……」
		PRINTFORMW 「………ん…ちゅ……」
		PRINTFORMW 「…ふぁ…えへへ、キス…しちゃいました」
		PRINTFORMW 「…デートの、お礼です」
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		PRINTFORMW 「……よし、これでいこう」
		PRINTFORMDW デートの帰り道、なにやらブツブツと独り言を言っている%CALLNAME:TARGET%が心配になった%CALLNAME:MASTER%は顔を覗き込む
		PRINTFORMW 「ひゃあっ！？ど、どどど、どうしたんですか！？」
		PRINTFORMDW 『それはこちらの台詞』%CALLNAME:MASTER%がそう言うと%CALLNAME:TARGET%は顔を真っ赤にしてしまった
		PRINTFORMW 「あ、あの、その、えっと…きょ、今日はその…た、たた、楽ッ」
		PRINTFORMDW %CALLNAME:MASTER%は%CALLNAME:TARGET%の言葉を黙って聞いている
		PRINTFORMW 「……う、受け取ってください！」
		PRINTFORMDW %CALLNAME:TARGET%はギュッと目を瞑ると、%CALLNAME:MASTER%の唇に自らのものを重ねた
		PRINTFORMW 「～～～っ」
		PRINTFORMDW 『ちゅっ』というより『ぶちゅっ』といった感じのロマンチックとは程遠いキス
		PRINTFORMDW それでも、%CALLNAME:TARGET%が自ら唇を捧げてくれたことが%CALLNAME:MASTER%は嬉しかった
		PRINTFORMW 「…ぷはっ…はぁ…はぁ…」
		PRINTFORMW 「………」
		PRINTFORMW 「…キス、しちゃいましたね…私達」
		PRINTFORMDW 『うん』%CALLNAME:MASTER%はただ頷く
		PRINTFORMW 「……その、どうしましょう」
		PRINTFORMDW 『帰ろうか』
		PRINTFORMW 「……そうですね」
		PRINTFORMDW %CALLNAME:MASTER%が手を差し出すと、%CALLNAME:TARGET%は頬を染めながらそれを握り返す
		PRINTFORMDW 何はともあれ、関係は進展したようだ……
	ENDIF
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K100_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORMW 「…ねえ、ちょっといい？」
		PRINTFORMDW デートからの帰り道、どこか思い詰めた様子の%CALLNAME:TARGET%に呼び止められた
		PRINTFORMDW いったいどうしたのだろうか…%CALLNAME:MASTER%は%CALLNAME:TARGET%の次の言葉を待つ
		PRINTFORMW 「……%MASTERNAME:100%と一緒に居ると、とても楽しくて」
		PRINTFORMW 「%MASTERNAME:100%の笑顔を見てると、胸が熱くなって」
		PRINTFORMW 「でも、私なんかがっていう気持ちもあるし」
		PRINTFORMW 「それに月に戻れなくなるかもって…思ったりもしたけど」
		PRINTFORMW 「でも、やっぱり自分の気持ちからは逃げたくなくて」
		PRINTFORMW 「……あはは、上手く纏めれないや…」
		PRINTFORMW 「えっと…ね」
		PRINTFORMW 「だから…その……」
		PRINTFORMW 「………」
		PRINTFORMW 「…あなたのことが……%MASTERNAME:100%のことが、好きです」
		PRINTFORMW 「ずっと一緒に居たいんです」
		PRINTFORMW 「……お願いします……」
		PRINTFORMDW それきり涙を浮かべ俯いてしまった%CALLNAME:TARGET%
		PRINTFORMDW 黙って告白を聞いていた%CALLNAME:MASTER%は……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「ほ、本当？」
		PRINTFORMDW 『嘘じゃない』%CALLNAME:MASTER%は%CALLNAME:TARGET%の瞳を真っ直ぐに見つめ想いを伝える
		PRINTFORMW 「…両想い…だったんだ…」
		PRINTFORMW 「…ぐすっ」
		PRINTFORMW 「……よかった…よかったよぉ……」
		PRINTFORMDW ポロポロと涙を零す%CALLNAME:TARGET%の身体をギュッと抱き締める
		PRINTFORMDW %CALLNAME:MASTER%は最愛の人が落ち着くまで、優しく背中を擦り続けた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「っ……」
		PRINTFORMW 「………」
		PRINTFORMW 「…そう、だよね…私なんか…」
		PRINTFORMDW 『そういうわけじゃない』%CALLNAME:MASTER%はその言葉が出てこない
		PRINTFORMW 「さ、先に帰るね！それじゃあまた！」
		PRINTFORMDW 結局、%CALLNAME:MASTER%が止める間もなく%CALLNAME:TARGET%は走り去ってしまった……
		PRINTFORMDW ………
		PRINTFORMW 「はぁ…はぁ…」
		PRINTFORMW （言うんじゃなかった言うんじゃなかった言うんじゃなかった）
		PRINTFORMW （やっぱり……私なんかじゃ無理だよね）
		PRINTFORMW （………）
		PRINTFORMW （明日からどんな顔して会えばいいんだろう…）
		PRINTFORMW 「………はぁ」
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K100_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 TALENT:恋慕
			PRINTFORML 「…あ、もう着いちゃった…」
			PRINTFORML 「%MASTERNAME:100%と一緒だと、時間があっという間に過ぎちゃうなぁ」
			PRINTFORMDL どこか名残惜しそうにしている%CALLNAME:TARGET%の頭をポンポンと撫でてやる
			PRINTFORMW 「ん…また行こうね」
		ELSE
			PRINTFORML 「今日はありがとうございました」
			PRINTFORMW 「また誘ってくれると…その、嬉しいです」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「……もう、いいよね」
			PRINTFORML 「私、%MASTERNAME:100%と喧嘩してるの…辛くなってきちゃった」
			PRINTFORMDL 『同じく』%CALLNAME:MASTER%がそう言うと%CALLNAME:TARGET%はクスリと笑みを浮かべた
			PRINTFORML 「もう、それならあんなことしなければよかったのに…でも、そういう所が%MASTERNAME:100%らしいよね」
			PRINTFORMDW 二人で笑い合いながら、帰路についた……
		ELSE
			PRINTFORML 「あの」
			PRINTFORML 「…今日は、ありがとうございました」
			PRINTFORMW 「……また、デート…してください」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML 「…ねえ、どうしてあんなことしたの？」
			PRINTFORMDL 『どうかしていたのかもしれない』%CALLNAME:MASTER%はそう言うしかなかった
			PRINTFORMW 「あの時の%MASTERNAME:100%、凄く怖かったから……でも…そっか。うん、わかった」
		ELSE
			PRINTFORML （…%MASTERNAME:100%、今日は優しかったなぁ…）
			PRINTFORMW 「…あのっ……いえ、なんでもないです…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF TALENT:恋慕
			PRINTFORML 「…今日は、ありがとう」
			PRINTFORMDL %CALLNAME:MASTER%は『楽しかった？』と%CALLNAME:TARGET%に聞いてみた
			PRINTFORMW 「………うん」
		ELSE
			PRINTFORML 「……えっと、それじゃあ…また」
			PRINTFORMDW (またって言っちゃった…もう一緒に居たくないって思ってたのに…）
		ENDIF
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇共通関数
;==================================================
@REISEN_ENCOUNTER
IF TALENT:恋慕
	IF !RAND:5
		PRINTFORMDL どうやら%CALLNAME:TARGET%はまだこちらに気付いていないようだ
		PRINTFORMDL %CALLNAME:MASTER%は背後からそっと近付くと、%TEXTR("ギュッとレイセンを抱き締めた/うなじに息を吹きかけた/『ワッ』と大きな声で驚かした/")%
		PRINTFORML 「ひゃああっ？！！ あ、%MASTERNAME:100%…？」
		PRINTFORML 「もう、急に驚かすなんて酷いよっ」
		PRINTFORMDW %CALLNAME:MASTER%は『ごめんごめん』と謝りながら、次はいつ悪戯してやろうかと考えを巡らせていた
	ELSE
		PRINTFORML 「あ、%MASTERNAME:100%！」
		PRINTFORMDL %CALLNAME:TARGET%は%CALLNAME:MASTER%に気付くと、頬を染め嬉しそうに駆け寄ってきた
		PRINTFORMDL その様があまりにも可愛らしかったので、%CALLNAME:MASTER%はペットにするように優しく頭を撫でてやった
		PRINTFORMW 「あぅ…くすぐったいよぉ…」
	ENDIF
ELSEIF TALENT:思慕
	SELECTCASE RAND:2
		CASE 0
			PRINTFORML 「あ、%MASTERNAME:100%。元気してます？」
			PRINTFORMDW %CALLNAME:MASTER%を見かけた%CALLNAME:TARGET%が気さくに挨拶してきた
		CASE 1
			PRINTFORML 「%MASTERNAME:100%、来てくれたんですか？」
			PRINTFORMDL %CALLNAME:TARGET%は%CALLNAME:MASTER%を視止めると、パッと顔を輝かせた
			PRINTFORMDL %CALLNAME:MASTER%は、『そんなに会いたかった？』と彼女を揶揄った……
			PRINTFORMW 「そ、そういうわけじゃあないですけど……でも、嬉しいです」
	ENDSELECT
ELSE
	PRINTFORM 「あ、%MASTERNAME:100%
	;TIME:2で朝昼晩を選択
	SELECTCASE TIME:2
	;朝
	CASE 1,2
		PRINTFORML おはようございます」
	;昼
	CASE 3,4
		PRINTFORML こんにちは」
	;夜
	CASE 5,6,7
		PRINTFORML こんばんわ」
	ENDSELECT
	PRINTFORMDW %CALLNAME:TARGET%はこちらに気付くと、ぺこりとお辞儀をしてきた
ENDIF

;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K100_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF !TCVAR:100:今日会ったか
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;MASTERが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			CALL REISEN_ENCOUNTER
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが入ってきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			CALL REISEN_ENCOUNTER
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて一緒に入る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 3
			IF TALENT:恋慕
				PRINTFORML 「あ、%MASTERNAME:100%。お風呂入ってたの？」
				PRINTFORMDL %CALLNAME:MASTER%が湯舟でくつろいでいると、%CALLNAME:TARGET%が入ってきた
				PRINTFORMDL 『すぐに上がるから』%CALLNAME:MASTER%はそう言い立ち上がろうとするが……
				PRINTFORML 「背中流してあげるね♪」
				PRINTFORMDW 結局、二人で入ることになってしまった
			ELSE
				PRINTFORML 「あ…その……一緒に入っても、いいですか？」
				PRINTFORMDL まさか%CALLNAME:TARGET%がそんなことを言ってくるとは……
				PRINTFORMDW %CALLNAME:MASTER%は意外に思いながらも、彼女の為にスペースを空けた
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて出て行った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 4
			PRINTFORML 「きゃあっ！？す、すみませんっ！」
			PRINTFORMDL %CALLNAME:MASTER%が呼び止めるより早く%CALLNAME:TARGET%は戸を閉めてしまった
			PRINTFORMDW ……誰かが風呂に入っているのに気が付かないとは、よほど疲れていたのだろうか
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;TARGETが風呂に入ってきて追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 5
			PRINTFORML 「あ、あの～」
			PRINTFORMDL %CALLNAME:MASTER%が風呂でくつろいでいると、戸の向こうから%CALLNAME:TARGET%の声が聞こえてきた
			PRINTFORML 「後がつかえてるので…その、早めにお願いします」
			PRINTFORMDW どうやら待たせてしまっていたようだ。しょうがないので、%CALLNAME:MASTER%はさっさと風呂から出た
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;外出先で遭遇した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 6
			CALL REISEN_ENCOUNTER
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとデート中に遭遇した
		;ARG:1にデート相手
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 7
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MAIN_MAP上で一日最初の挨拶
		;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 8
			PRINTFORML
			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
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:恋慕
				PRINTFORML 「あ、おはよう。もう少ししたら起こそうと思ってたんだけど…はい、お水」
				PRINTFORMDL 目を覚ますと、%CALLNAME:TARGET%は既に身支度を整えていた
				PRINTFORMDW %CALLNAME:MASTER%は渡された水を一気に呷ると、布団から這い出た……
			ELSE
				PRINTFORML 「あ、おはようございます。もう少ししたら起こそうと思っていたんですけど…」
				PRINTFORMDW 目を覚ますと、%CALLNAME:TARGET%は既に身支度を整えていた
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋慕
				PRINTFORML 「あ、おはよう」
				PRINTFORMDL 目を覚ますと、%CALLNAME:TARGET%と目が合った
				;月在住時の初対面繋がりで。別の場所から月に移住した場合は知らん
				IF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && MAIN_MAP == 10
					PRINTFORML 「お着替え、ここに置いておくね」
					PRINTFORMDW 甲斐甲斐しく世話を焼いてくれる彼女を%CALLNAME:MASTER%は有難いなぁと思った
				ELSE
					PRINTFORMDL ……なぜ彼女が自分の部屋にいるのだろうか
					PRINTFORML 「えっとね、その…%MASTERNAME:100%に会いたくなって、きちゃった」
					PRINTFORMW 「……迷惑…だったかな…？」
				ENDIF
			ELSE
				PRINTFORML 「あ、おはようございます」
				PRINTFORMDL 目を覚ますと、%CALLNAME:TARGET%と目が合った
				;上に同じ
				IF GET_MAPID(CFLAG:MASTER:現在位置) == MAIN_MAP && MAIN_MAP == 10
					PRINTFORML 「お着替え、ここに置いておきますね」
					PRINTFORMDW 甲斐甲斐しく世話を焼いてくれる彼女を%CALLNAME:MASTER%は有難いなぁと思った
				ELSE
					PRINTFORMDL ……なぜ彼女が自分の部屋にいるのだろうか
					PRINTFORML 「…えっと、その…道に迷っちゃって…彷徨っていたらここに」
					PRINTFORMDW そういうことにしておこう
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「あ、おはよう。もう少ししたら起こそうと思ってたんだけど…はい、お水」
				PRINTFORMDL 目を覚ますと、%CALLNAME:TARGET%は既に身支度を整えていた
				PRINTFORMDW %CALLNAME:MASTER%は渡された水を一気に呷ると、布団から這い出た……
			CASE 1
				PRINTFORMDL %CALLNAME:MASTER%が目を覚ますと、%CALLNAME:TARGET%が机に向かって何かをしていた
				PRINTFORML 「……ぁ、起きた？ごめんね、すぐに片付けちゃうから」
				PRINTFORMDW どうやら銃のメンテナンスをしていたようだ
			CASE 2
				PRINTFORMDL %CALLNAME:MASTER%が目を覚ますと、目の前に%CALLNAME:TARGET%の顔があった
				PRINTFORML 「……おはよう♪」
				PRINTFORMDW どうやら寝顔を観察されていたようだ……
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「……くぅ…」
		PRINTFORMDW %CALLNAME:MASTER%が目を覚ますと、%CALLNAME:TARGET%はまだ寝息を立てていた
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	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
		;共通
		IF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					;トランペットを持ってる
					IF ITEM:33 == 1
						PRINTFORMDL %CALLNAME:TARGET%は涎を口の端から垂らしぐっすりと眠っている
						PRINTFORMDL ふと悪戯心が湧いた%CALLNAME:MASTER%は、彼女の横で起床ラッパを吹いてみた
						PRINTFORMW 「ッ！………って、あれ…？」
					ELSE
						PRINTFORML 「……んん…ぁ…おはよう…%MASTERNAME:100%…」
						PRINTFORMW 「…えへへ、起きて最初に見るのが%MASTERNAME:100%の顔って…なんだかいいね」
					ENDIF
				CASE 1
					PRINTFORML 「……んーっ…はぁ…おはよー…」
					PRINTFORMDW 寝惚け眼の%CALLNAME:TARGET%に、%CALLNAME:MASTER%は顔を洗ってくるように促した……
				CASE 2
					PRINTFORML 「ふぁぁ…」
					PRINTFORMDL %CALLNAME:MASTER%が座って本を読んでいると、ようやく%CALLNAME:TARGET%が目を覚ました
					PRINTFORMDW いつまでもパジャマでぽけーっとしている彼女に、%CALLNAME:MASTER%は早く着替えるよう促した……
					IF TALENT:109:恋慕
						PRINTFORML 「……んー…夢の中に誰か出てきて…よく眠れなかったんだよね…」
						PRINTFORMDW ……あいつめ……
					ENDIF
			ENDSELECT
		ELSE
			PRINTFORML 「………」
			PRINTFORMDL 目を覚ました%CALLNAME:TARGET%は、ぽけーっとしている
			PRINTFORMDL よく眠れなかったのだろうか。%CALLNAME:MASTER%は彼女に水を差しだした
			PRINTFORML 「…あ、ありがとうございます……って、あれ？どうしてここに…」
			PRINTFORMDW ……どうやらまだ寝惚けているようだ
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K100_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_K100_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕
			PRINTFORML 「%MASTERNAME:100%、どうしたの？」
			PRINTFORMDW %CALLNAME:MASTER%が立ち止まると、%CALLNAME:TARGET%が嬉しそうに寄ってきた
		ELSE
			PRINTFORMDL %CALLNAME:TARGET%に用があったことを思い出した%CALLNAME:MASTER%は、彼女の前で立ち止まった
			PRINTFORMW 「どうされたんですか？」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「%MASTERNAME:100%、どこか\@ TALENT:恋慕 ? 行くの？ # 行かれるんですか？ \@」
		PRINTFORMDL 『ちょっとそこまで』%CALLNAME:MASTER%がそう言うと、%CALLNAME:TARGET%は小さく手を振って見送ってくれた
		PRINTFORMW 「\@ TALENT:恋慕 ? 気を付けてね # 気を付けてくださいね \@」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMDL %CALLNAME:TARGET%はこちらに気付いていないようだ
		PRINTFORMDW 特に用も無いので、%CALLNAME:MASTER%はそのまま通り過ぎた……
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K100_5(ARG,ARG:1)
;口上主はTARGET
;ARGに入ってきたキャラ（人数が膨大なので、自己把握自己責任で
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;依姫が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 98
		PRINTFORML 「あ、依姫様…」
		PRINTFORMDL 依姫が来ると、%CALLNAME:TARGET%はサッと身体を離しお辞儀をした
		PRINTFORMDW 主人の手前、イチャイチャすることは憚られたようだ
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;豊姫が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 99
		PRINTFORML 「あ、豊姫様…」
		PRINTFORMDL 豊姫が来ると、%CALLNAME:TARGET%はサッと身体を離しお辞儀をした
		PRINTFORMDW 主人の手前、イチャイチャすることは憚られたようだ
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	PRINTFORML 「あ、誰か\@ TALENT:恋慕 ? 来ちゃったみたい # 来ましたね \@…」
	PRINTFORMDW %CALLNAME:TARGET%は恥ずかしいのかサッと身体を離してしまった
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K100_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_K100_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_K100_8(ARG,ARG:1)
RETURN 1

;==================================================
;パンツ没収された
;==================================================
@M_KOJO_EVENT_K100_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_K100_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		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 = 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
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「……ふぇ……？」
		PRINTFORMDL %CALLNAME:MASTER%が風呂に入ると、ちょうど%CALLNAME:TARGET%が%TEXTR("頭を洗おう/身体を洗おう/湯舟に浸かろう/")%としているところだった
		PRINTFORMDW ……%CALLNAME:MASTER%は%CALLNAME:TARGET%が思考停止している間に、そっと風呂の戸を閉めた……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
			PRINTFORML 「きゃっ……って、よかった…%MASTERNAME:100%かぁ…」
			PRINTFORMDL 風呂へ入って来たのが%CALLNAME:MASTER%だったことに、%CALLNAME:TARGET%はホッとしているようだ
			PRINTFORMW 「…せっかくだし、一緒に入る？」
		ELSE
			PRINTFORML 「あっ……」
			PRINTFORMDL 風呂の戸を開けると、くつろいでいた%CALLNAME:TARGET%と目が合った
			PRINTFORMDL %CALLNAME:MASTER%は一言謝り、出ていこうとするが……
			PRINTFORML 「…その、よかったら一緒に入りませんか？良いお湯ですよ」
			PRINTFORMDW せっかくの申し出を断る理由を、%CALLNAME:MASTER%は持っていなかった
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K100_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_K100_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_K100_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_K100_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_K100_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_K100_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
		;時姦絶頂カウント２５回以上＆時姦刻印３
		IF CFLAG:100:1200 >= 25 && MARK:時姦刻印 == 3
			CALL HPH_PRINT,@"「ひぁあっHPH ッッ、ふぅう……っHPH」","L"
			PRINTFORMDL 慣れ親しんだ感覚に%CALLNAME:TARGET%が恍惚の表情を浮かべる
			PRINTFORMDL 最近の彼女には密かな楽しみがある。それがこれだった
			CALL HPH_PRINT,@"「はぁ……ふぅ……っHPH」","L"
			CALL HPH_PRINT,@"「……気持ち良かった……HPH」","W"
		;時姦絶頂カウント１０回以上
		ELSEIF CFLAG:100:1200 >= 10
			CALL HPH_PRINT,@"「ぁ、くる……っHPH」","L"
			PRINTFORMDL 突如走った謎の快感に%CALLNAME:TARGET%がブルッと身を震わせる
			PRINTFORMDL 自慰では味わえない快楽を与えれくれるこの現象を彼女は受け入れつつあった
			CALL HPH_PRINT,@"「ん、はぁ……っHPH はぁぁ……はぁ……っHPH」","W"
		;時姦絶頂カウント１回以上
		ELSEIF CFLAG:100:1200 >= 1
			CALL HPH_PRINT,@"「ッあ……HPH」","L"
			PRINTFORMDL 思わず口から漏れそうになった喘ぎ声を寸でのところで飲み込む
			PRINTFORMDL 突如走った謎の快感に『まただ』と%CALLNAME:TARGET%は思った
			CALL HPH_PRINT,@"「はぁ……はぁ……っHPH 私、どうしちゃったんだろう……」","W"
		;初回
		ELSE
			CALL HPH_PRINT,@"「んん……っHPH」","L"
			PRINTFORMDL 突如走った謎の快感にゾクゾクッと身を震わせる%CALLNAME:TARGET%
			CALL HPH_PRINT,@"「ぅぅ……なんで、いきなり……っHPH」","L"
			PRINTFORMDW 絶頂の余韻に%CALLNAME:TARGET%は顔を赤くして太腿を擦り合わせている……
		ENDIF
		;時姦絶頂カウント
		CFLAG:100:1200 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;時姦絶頂カウント２５回以上＆時姦刻印３
		IF CFLAG:100:1200 >= 25 && MARK:時姦刻印 == 3
			CALL HPH_PRINT,@"「ぁ―――ん、ん゛ん゛ッHPH HPH HPH」","L"
			PRINTFORMDL 強烈な快楽に襲われた瞬間、%CALLNAME:TARGET%が慌てて口を押さえる
			CALL HPH_PRINT,@"「ふ―――ッHPH ふぅぅ―――ッHPH んぅ……っHPH」","L"
			CALL HPH_PRINT,@"（これなんなんだろう……まあ気持ち良いからいっか……HPH）","L"
			PRINTFORMDW ひとしきり絶頂感を楽しんだ後、%CALLNAME:TARGET%は何事もなかったかのようにハンカチで愛液を拭った
		;時姦絶頂カウント１０回以上
		ELSEIF CFLAG:100:1200 >= 10
			CALL HPH_PRINT,@"「―――ぁ、ひっHPH んにゃあぁあっHPH HPH HPH」","L"
			PRINTFORMDL 時が動き出した瞬間、%CALLNAME:MASTER%に弄ばれた%CALLNAME:TARGET%の体が強烈な絶頂感に襲われる
			CALL HPH_PRINT,@"（気持ち良いHPH 気持ち良いHPH 気持ち良いよぉ……HPH HPH HPH）","L"
			PRINTFORMDW 理性ごと押し流すような快楽の波に%CALLNAME:TARGET%はすっかり呑まれてしまっていた
		;時姦絶頂カウント１回以上
		ELSEIF CFLAG:100:1200 >= 1
			CALL HPH_PRINT,@"「―――ッHPH ふぁああっ！？HPH HPH HPH」","L"
			PRINTFORMDL 時間停止を解除した瞬間、%CALLNAME:TARGET%の秘所からプシャッと潮が噴き上がる
			CALL HPH_PRINT,@"「やらっHPH とまってっHPH とまってぇっHPH HPH HPH」","L"
			PRINTFORMDW またしても体を襲った異変に%CALLNAME:TARGET%はすっかり錯乱状態に陥っている……
		;初回
		ELSE
			CALL HPH_PRINT,@"「ふぇ……ひゃあああっ！？HPH HPH HPH」","L"
			PRINTFORMDL 止まっていた時が動き出した瞬間、濁流のように快楽が押し寄せる
			CALL HPH_PRINT,@"「はひっHPH やぁっHPH なに、これぇっHPH」","L"
			PRINTFORMDW 欲望という名の穢れを叩き付けられ、%CALLNAME:TARGET%は意識を保つのがやっとといった有様だ
		ENDIF
		;時姦絶頂カウント
		CFLAG:100:1200 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;パンツ紛失カウント２５回以上
		IF CFLAG:100:1201 >= 25
			PRINTFORML 「んっ……？」
			PRINTFORML （なんだかアソコが涼しいような……あれ、今日穿いてきたっけ……？）
			PRINTFORML （……ま、いっか。いつものことだし……）
			PRINTFORMDW 突然パンツを剥ぎ取られたにも関わらず、%CALLNAME:TARGET%は努めて平静を装っている……
		;パンツ紛失カウント１０回以上
		ELSEIF CFLAG:100:1201 >= 10
			PRINTFORML 「……あっ！？」
			PRINTFORMDL パンツを穿いていないことに気付いた%CALLNAME:TARGET%は慌ててスカートを押さえた
			PRINTFORML （どうして……今日はちゃんと確認してきたのに）
			PRINTFORML （ぅー……スース―する……）
			PRINTFORMDW %CALLNAME:TARGET%は顔を赤くしてモジモジしている……
		;パンツ紛失カウント１回以上
		ELSEIF CFLAG:100:1201 >= 1
			PRINTFORML 「ひゃっ！？」
			PRINTFORMDL パンツを穿いていないことに気付いた%CALLNAME:TARGET%は顔を赤くして挙動不審になっている
			PRINTFORML （私、また穿き忘れちゃった……）
			PRINTFORMW （ぅぅ……恥ずかしいよぉ……）
		;初回
		ELSE
			PRINTFORML 「………え？」
			PRINTFORMDL 違和感を感じた%CALLNAME:TARGET%が太腿を擦り合わせると、そこにあるはずの下着が消え去っていた
			PRINTFORML （う、嘘っ！？ 穿いてない！？）
			PRINTFORML （もしかして私、穿き忘れてきちゃった……？）
			PRINTFORMDW %CALLNAME:TARGET%はスカートを押さえ恥ずかしそうにしている……
		ENDIF
		;パンツ紛失カウント
		CFLAG:100:1201 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			;無自覚口内射精カウント１０回以上
			IF CFLAG:100:1202 >= 10
				PRINTFORML 「っ……けほっ、けほっ」
				PRINTFORMDL 突然口内に現れた精液に%CALLNAME:TARGET%は驚いているものの取り乱している様子はない
				PRINTFORMDL 何度も注がれたことで慣れてしまったのか、前ほど嘔吐くこともなくなった
				PRINTFORMW （はぁ……私病気になっちゃったのかな……でも、誰に相談したらいいんだろう……）
			;無自覚口内射精カウント１回以上
			ELSEIF CFLAG:100:1202 >= 1
				PRINTFORML 「うっ！？ ゲホッ！ゴホッ！」
				PRINTFORMDL 口内一杯に広がる不快な精液の味に%CALLNAME:TARGET%が激しくむせ込む
				PRINTFORML 「ぅぅ……すこし、のんじゃっ……う゛ッ」
				PRINTFORMDW %CALLNAME:TARGET%はついに耐え切れず、胃液混じりの精液を嘔吐してしまった
			;初回
			ELSE
				PRINTFORML 「ッう！？ ゲホッゲホッ！ かはっ！」
				PRINTFORMDL 突如口内に現れた精液と鼻に付くような生臭さに%CALLNAME:TARGET%がむせかえる
				PRINTFORMDL 歯茎の裏にまでへばりついた精液を必死になって吐き出すが、少量はむせた反動で飲み込んでしまった
				PRINTFORMW 「はぁ……はぁ……っ、ぅぅ……きもちわるい……」
			ENDIF
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
			$REISEN_GERO
			;無自覚口内射精カウント１０回以上
			IF CFLAG:100:1202 >= 10
				PRINTFORML 「ん……っ、けほっけほっ」
				PRINTFORMDL 突然口内に精液が出現した精液を%CALLNAME:TARGET%は慣れた様子でちり紙に吐き出した
				PRINTFORML （はぁ……今朝はなんともなかったのにどうしてだろ……）
				PRINTFORMW （……%MASTERNAME:100%は何か知ってるかな……？ でも相談しづらいなぁ……）
			;無自覚口内射精カウント１回以上
			ELSEIF CFLAG:100:1202 >= 1
				PRINTFORML 「ぅっ……ゲホッゲホッ！ はぁ……はぁ……」
				PRINTFORMDL %CALLNAME:TARGET%は手の平に吐き出した唾液混じりの白濁を不快そうに見つめている
				PRINTFORML （これ、なんなんだろう……生臭くて変な味するし……）
				PRINTFORMW （風邪だと思ってたけど、違うのかな……？）
			;初回
			ELSE
				PRINTFORML 「ぅぷっ……ゲホッゲホッ！」
				PRINTFORMDL %CALLNAME:TARGET%は激しくむせながらもなんとか精液を吐き出すことができた
				PRINTFORMW 「ぅぅ……まだ喉に残ってるみたい……」
			ENDIF
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
			;無自覚口内射精カウント１０回以上
			IF CFLAG:100:1202 >= 10
				PRINTFORML 「っぷ……ぅぅ……ごくっ」
				PRINTFORMDL %CALLNAME:TARGET%は口内の精液を嘔吐寸前で飲み込んだ
				PRINTFORML 「はぁ……はぁ……危なかったぁ……」
				PRINTFORMW （最近おえってなることが増えたなぁ……はぁ、稽古休みたい……）
			;無自覚口内射精カウント１回以上
			ELSEIF CFLAG:100:1202 >= 1
				PRINTFORML 「っぷ……ッッ！？」
				PRINTFORMDL 突如強い吐き気に襲われた%CALLNAME:TARGET%が慌てて口を押さえた
				PRINTFORML 「ぅ゛、え゛、え゛ぇ゛……ゲホッ！ゲホッ！ はぁ……はぁ……」
				PRINTFORMDL ……が、我慢できず嘔吐してしまった……
				PRINTFORMW （ぅぅ……ご飯全部吐いちゃった……こっそり食べた桃が痛んでたのかな……）
			;初回
			ELSE
				PRINTFORML 「うっぷ……っ」
				PRINTFORMDL %CALLNAME:TARGET%は先程までオナホとして使われていた口を手で覆い吐き気をこらえている
				PRINTFORMW （ぅぅ……なに、これ……吐きそう……っ）
			ENDIF
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			$REISEN_GOKKUN
			;無自覚口内射精カウント１０回以上
			IF CFLAG:100:1202 >= 10
				PRINTFORML 「……！」
				PRINTFORMDL 口内の違和感に%CALLNAME:TARGET%はまた精液を飲まされたことに気付いたようだ
				PRINTFORML 「………ごくっ」
				IF TALENT:MASTER:濃厚精液
					CALL HPH_PRINT,@"（ぁ、今日の濃い……HPH きっと今、私の口すっごく臭くなっちゃってる……HPH）","L"
				ELSE
					CALL HPH_PRINT,@"（ぁぁ……知らない人の精液なのに飲んじゃった……HPH）","L"
				ENDIF
				PRINTFORMDW すっかり精液の味の虜になってしまった%CALLNAME:TARGET%は恍惚の表情を浮かべている……
			;無自覚口内射精カウント１回以上
			ELSEIF CFLAG:100:1202 >= 1
				PRINTFORML 「んん……っ！？ ん、んく……っ」
				PRINTFORMDL またしても口内に突如出現した精液に%CALLNAME:TARGET%が目を見開く
				PRINTFORMDL 吐き出そうか、どうしようか……迷った挙句、彼女は飲み込むことを選択した
				PRINTFORML 「……ごくんっ……はぁ……また飲んじゃった……」
				PRINTFORMW （誰の……かも分からないのに……私、変態なのかな……）
			;初回
			ELSE
				PRINTFORML 「んむ……っ！？ ん、ん……こくんっ」
				PRINTFORML （飲んじゃったけど……これ、もしかして……）
				PRINTFORMDW %CALLNAME:TARGET%は手の平に息を吐いてニオイを確認している……
			ENDIF
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			GOTO REISEN_GERO
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			GOTO REISEN_GOKKUN
		ENDIF
		;無自覚口内射精カウント
		CFLAG:100:1202 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			;無自覚顔面射精カウント１０回以上
			IF CFLAG:100:1203 >= 10
				PRINTFORML 「あっ……もう、また顔に……」
				PRINTFORMDL 『いつものように』顔面にぶっかけられた精液をちり紙で拭っていく%CALLNAME:TARGET%
				PRINTFORMDW ……そういえば最近、%CALLNAME:TARGET%の肌が妙にツヤツヤしてきたような……
			;無自覚顔面射精カウント１回以上
			ELSEIF CFLAG:100:1203 >= 1
				PRINTFORML 「ひゃっ！？ ま、またっ！？」
				PRINTFORMDL %CALLNAME:TARGET%は顔を伝い落ちる精液を慌てて拭っている
				PRINTFORMW 「……あっ、服で拭っちゃった……どうしよう」
			;初回
			ELSE
				PRINTFORML 「ふぇっ！？ な、なにこれっ！？」
				PRINTFORMDL 時間を止められている間にぶっかけられた精液が%CALLNAME:TARGET%の可愛らしい顔を白く穢している
				PRINTFORMW 「ネバネバしてるし変なニオイ……はぁ……顔洗わないと……」
			ENDIF
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			;無自覚顔面射精カウント１０回以上
			IF CFLAG:100:1203 >= 10
				PRINTFORML 「ひゃっ……ま、また顔に付いてる……」
				PRINTFORMDL %CALLNAME:TARGET%は顔に付いた精液を拭いながら辺りをキョロキョロと見回し……
				CALL HPH_PRINT,@"「……ん……ちゅぱ……HPH」","L"
				PRINTFORMDW どこかうっとりとした表情で拭った精液を舐め取っていった……
			;無自覚顔面射精カウント１回以上
			ELSEIF CFLAG:100:1203 >= 1
				PRINTFORML 「あっ、もうティッシュが無い……」
				PRINTFORML 「……ハンカチで拭いたら汚れちゃうし、しょうがないよね」
				PRINTFORML 「……ちゅ……ぺろ……」
				PRINTFORMDW %CALLNAME:TARGET%はそう自分に言い訳をすると、拭った精液を舌で舐め取っていった……
			;初回
			ELSE
				PRINTFORML 「ぇ……あっ！？」
				PRINTFORMDL 顔面にぶっかけられた精液に気付いた%CALLNAME:TARGET%が慌てて顔を拭う
				PRINTFORML （こ、これ……もしかして男の人の……？）
				PRINTFORML （………少しだけ……ちょっと舐めるだけだから……）
				PRINTFORMDW 少しの沈黙の後、%CALLNAME:TARGET%は精液の付着した指を恐る恐る口に含んだ……
			ENDIF
		ENDIF
		;無自覚顔面射精カウント
		CFLAG:100:1203 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			;無自覚手淫射精カウント１０回以上
			IF CFLAG:100:1204 >= 10
				PRINTFORML 「……私、何もしてないのに……」
				PRINTFORML 「綿月様のお役に立てるように稽古だって……」
				PRINTFORML 「なのに、なんでこんな目に合わなきゃいけないの……？」
				PRINTFORMDW %CALLNAME:TARGET%は涙目でボソボソと呟きながら穢れを拭っている
			;無自覚手淫射精カウント１回以上
			ELSEIF CFLAG:100:1204 >= 1
				PRINTFORML 「……ぅぅ、また付いてる……」
				PRINTFORML （誰かが悪戯してるのかな……でも、そんな人見たことないし……）
				PRINTFORML （……もしかして、私が鈍臭いから気付いてないだけ……？）
				PRINTFORML 「……………はぁ」
				PRINTFORMDW %CALLNAME:TARGET%は手の平の精液を拭いながら溜息を吐いた
			;初回
			ELSE
				PRINTFORML 「……へ？ ひゃああっ！？」
				PRINTFORMDL 手の平にべっとりと付着した精液に気付いた%CALLNAME:TARGET%が悲鳴を上げた
				PRINTFORMW 「さ、さっきまでこんなの無かったのに……ぅぅ、気持ち悪い……」
			ENDIF
		;舐めとり
		ELSEIF ARG:1 == 2
			;無自覚手淫射精カウント１０回以上
			IF CFLAG:100:1204 >= 10
				PRINTFORML （……すごい……こんなに沢山……）
				PRINTFORML （……誰かが私でエッチな気分になって、それで……）
				PRINTFORMDL %CALLNAME:TARGET%は太腿を擦り合わせながら手の平の精液を舐め取っている
				PRINTFORMW （そう考えたら、意外と悪い気しないかも……♪）
			;無自覚手淫射精カウント１回以上
			ELSEIF CFLAG:100:1204 >= 1
				PRINTFORML 「また手に付いてる……」
				PRINTFORML 「……れろ……ちゅぷ……」
				PRINTFORMDL %CALLNAME:TARGET%は頬を上気させながら手の平の精液を舐め取っている
				PRINTFORMW （こんなことしてるって誰かに知られたら、私……）
			;初回
			ELSE
				PRINTFORML 「……こ、これって……」
				PRINTFORML （……精液、だよね……？）
				PRINTFORMDL %CALLNAME:TARGET%は手の平に付着した精液をまじまじと見つめ……
				PRINTFORML 「……ぺろ……ちゅ……」
				PRINTFORMDW 好奇心を抑えきれず舐めてしまった……
			ENDIF
		ENDIF
		;無自覚手淫射精カウント
		CFLAG:100:1204 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;無自覚アナル射精カウント２５回以上＆時姦刻印３
		IF CFLAG:100:1205 >= 25 && MARK:時姦刻印 == 3
			CALL HPH_PRINT,@"「お゛ッHPH ―――ッHPH はぁ……はぁぁ……HPH」","L"
			CALL HPH_PRINT,@"（ぁぁ……変な声でちゃった……HPH 誰かに聞かれてたらどうしよう……HPH）","L"
			;時間停止解除.ERB覗いたらロックされてたのでもったいないから地の文を借用
			PRINTFORMDL 急にお尻にもたらされる熱い感覚すら
			PRINTFORMDL %CALLNAME:TARGET%にとっては快楽のスパイスでしかないのだろう
			PRINTFORMDW 蕩けた顔を隠すことなく甘い吐息を吐き出した
		;無自覚アナル射精カウント１０回以上
		ELSEIF CFLAG:100:1205 >= 10
			PRINTFORML 「―――ッひ、ぐ―――ッ」
			PRINTFORMDL ギュルギュルと鳴るお腹を押さえ%CALLNAME:TARGET%が蹲る
			PRINTFORML （やぁ……お腹……また熱くなって……ッ）
			PRINTFORMDW 額に脂汗を浮かべ必死に耐える少女の姿に%CALLNAME:MASTER%は奇妙な興奮を覚えた
		;無自覚アナル射精カウント１回以上
		ELSEIF CFLAG:100:1205 >= 1
			PRINTFORML 「ひぁんっ！？」
			PRINTFORML （やぁ……なにこれ……お腹、熱い……ッ）
			PRINTFORMDL %CALLNAME:TARGET%は必死の形相で辺りを見回している
			PRINTFORMDW トイレでも探しているのだろうか……
		;初回
		ELSE
			PRINTFORML 「はぐぅっ！？」
			PRINTFORMDL 突然アナルに走った痛みに%CALLNAME:TARGET%が尻を押さえ蹲る
			PRINTFORML 「はっ、はっ、はっ……はぁッ」
			PRINTFORMW （なんで、急にお尻……ぅぅ、痛い……ッ）
		ENDIF
		;無自覚アナル射精カウント
		CFLAG:100:1205 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「痛ッ……え！？」
		PRINTFORMDL 下腹部の痛みに%CALLNAME:TARGET%が視線を落とすと、流れ出た破瓜の血が太腿を伝っていた
		PRINTFORML 「ぁ……ぁぁ……っ、ど、どうしよう……」
		PRINTFORML 「……そ、そうだ。とりあえず拭かないと……」
		PRINTFORML 「えっと、えっと……あれ？ どうすればいいんだっけ……？」
		PRINTFORMDW %CALLNAME:TARGET%は完全に混乱してしまっている……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;無自覚膣内射精カウント２５回以上＆時姦刻印３
		IF CFLAG:100:1206 >= 25 && MARK:時姦刻印 == 3
			CALL HPH_PRINT,@"「ぁ……私、また中に出されちゃった……HPH」","L"
			PRINTFORMDL いつものように中出しされた精液を指で掬い、そっと口に含む
			CALL HPH_PRINT,@"（誰も助けてくれないし……もうどうでもいいや……HPH）","L"
			PRINTFORMDW 『知らない誰か』に穢され続けたことで、%CALLNAME:TARGET%は少しだけ変わってしまった
			;解放の素質が無い場合に解放を取得
			SIF TALENT:自己愛 <= 0
				TALENT:自己愛 = 1
		;無自覚膣内射精カウント１０回以上
		ELSEIF CFLAG:100:1206 >= 10
			PRINTFORML 「ぅぅ……また、私……」
			PRINTFORMDL %CALLNAME:TARGET%は啜り泣きながら溢れ出る精液を拭っている
			PRINTFORMDL 知らず知らずの内に穢されているという事実に%CALLNAME:TARGET%の心は押し潰されそうになっていた
			PRINTFORMW 「ぐすっ……助けて……\@ TALENT:恋慕 ? %MASTERNAME:100% # 豊姫様……依姫様 \@……」
		;無自覚膣内射精カウント１回以上
		ELSEIF CFLAG:100:1206 >= 1
			PRINTFORML 「ひっ……こ、これ……」
			PRINTFORMDL %CALLNAME:TARGET%の膣内から溢れ出た精液がツーっと太腿を伝っている
			PRINTFORMDL それがなんであるか気付いた瞬間、%CALLNAME:TARGET%はへなへなと座り込んでしまった
			PRINTFORML 「は、早く掻き出さないと……妊娠……っ」
			PRINTFORMDW 必死に膣内から精液を掻き出す姿を見て、%CALLNAME:MASTER%は少しだけ申し訳ない気持ちになった
		;初回
		ELSE
			PRINTFORML 「ぅ……んん……っ」
			PRINTFORML （なに、これ……？ アソコがジンジンして……熱い……）
			PRINTFORML 「……まさか、そんなわけないよね……？」
			PRINTFORMDW %CALLNAME:MASTER%は下腹部を押さえ不安そうにしている
		ENDIF
		;無自覚膣内射精カウント
		CFLAG:100:1206 += 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K100_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_K100_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_K100_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_K100_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMDW ある日――
		PRINTFORMDW %CALLNAME:TARGET%は、こっそりと稽古を抜け出し静かの海に来ていた
		PRINTFORMDW 宙には、青々とした地球が浮かんでいる
		PRINTFORMW 「最近、%MASTERNAME:100%のことばかり考えてる気がするなぁ…」
		PRINTFORMW 「……今、何してるのかな」
		PRINTFORMDW あの人も、私を想って地上から月を見てくれているのだろうか
		PRINTFORMDW だとしたら、それはとても素敵なことだと思う
		PRINTFORMW 「…そういえば、地上では月が綺麗ですねって言葉があるんだっけ」
		PRINTFORMW 「……確か意味は…」
		PRINTL
		CALL COLORMESSAGE(@"――あなたのことが好きです――",C_PINK,1,1)
		PRINTW
		PRINTFORML 「………」
		PRINTW
		PRINTFORML 「…%MASTERNAME:100%…」
		PRINTW
		CALL COLORMESSAGE(@"――月が綺麗ですね――",C_PINK,1,1)
		PRINTW
		PRINTFORMDW ………
		PRINTFORMDW ……
		PRINTFORMDW …
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMDW ある日の稽古中……
		PRINTFORMDW 『ねえ、地上人と逢引してるって本当？』
		PRINTFORMW 「へ？ だ、誰がそんな事を…！？」
		PRINTFORMDW 『みんな噂してるよ …それで、実際のところどうなの？』
		PRINTFORMW 「…ぅぅ」
		PRINTFORMDW 『教えて！誰にも言わないから！』
		PRINTFORMW 「…ね、根も葉もない噂だよ」
		PRINTFORMDW 『なんだー つまんないの』
		PRINTFORMW 「確かにあの人は頼り甲斐あるし、優しいけど…あっ」
		PRINTFORMDW 『へえ、詳しく聞かせ……やばっ依姫様が来る…やぁッ、たーッ』
		PRINTFORMW 「や、やーっ」
		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_K100_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
		;恋慕
		IF TALENT:恋慕
			CALL HPH_PRINT,@"「ぁ…んん…っHPH %MASTERNAME:100%…HPH」","L"
			PRINTFORMDL 膣の浅い所を指で掻き回しながら、想い人の名を呼び続ける%CALLNAME:TARGET%
			CALL HPH_PRINT,@"「イッちゃう…っHPH あ、ぁあ……っHPH」","L"
			PRINTFORMDL いくら自身を慰めても、%CALLNAME:MASTER%のことを思うだけで身体が疼く
			PRINTFORMDW 気が付けば、絶頂の余韻も抜けきらない内に%CALLNAME:TARGET%は再び自慰を始めていた……
		;思慕
		ELSEIF TALENT:思慕
			CALL HPH_PRINT,@"「ん…ん、ん……っHPH」","L"
			PRINTFORMDL %CALLNAME:TARGET%は好きな人に抱かれる妄想をしながら、敏感なクリトリスを指の腹で捏ね回している
			CALL HPH_PRINT,@"「こんなこと、いけないのに……HPH」","L"
			CALL HPH_PRINT,@"「ひぁ、ん…っHPH %MASTERNAME:100%、すき……HPH」","W"
			PRINTFORMDW 達するまでの十数分、静かな空間に%CALLNAME:MASTER%を呼ぶ声と蜜音が響き続けた……
		;それ以外
		ELSE
			CALL HPH_PRINT,@"「……っ…ん……ふぅ……HPH」","L"
			PRINTFORMDL %CALLNAME:TARGET%は誰にも聞かれないよう声を押し殺しながら一人遊びをしている
			PRINTFORML （鍵も掛けたし……誰にも聞かれないよね……）
			CALL HPH_PRINT,@"「ん、ぅ……っHPH ふぁ、ぁぁ……っHPH」","W"
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL HPH_PRINT,@"「ん……んぅ……っHPH ふぅ……ぅう……っHPH」","L"
		PRINTFORMDL 最愛の人が目の前に居るにも拘わらず抱いて貰えないもどかしさを感じながら、%CALLNAME:TARGET%は一人自らを慰める
		CALL HPH_PRINT,@"（ぁぁ…起きちゃうかもしれないのに……ダメ、止まらない……っHPH）","L"
		PRINTFORMDL %CALLNAME:MASTER%を起こさないように声を押し殺しながら、しかし心のどこかで起きるのを期待しながら
		PRINTFORMDW %CALLNAME:TARGET%はクチュクチュと音を立てて蜜穴を指で掻き回していった……
		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_K100_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=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
		IF TALENT:恋慕
			PRINTFORML 「ごめんね、ちょっと遅くなっちゃった」
			PRINTFORMDL %CALLNAME:MASTER%が一足先に湯舟に浸かっていると、遅れて%CALLNAME:TARGET%がやって来た
			PRINTFORMW 「あ、お着替え置いておいたよ。%MASTERNAME:100%ったら、何も用意せずに行っちゃうんだから」
		ELSE
			PRINTFORML 「一緒にお風呂……ですか？」
			PRINTFORMW 「恥ずかしいので…その、あまり見ないでくださいね？」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K100_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMDW 月の兎達の間である噂が立っていた
		PRINTFORMDW 『誰かは知らないが、地上の人間の子を孕んだやつがいるらしい』
		PRINTFORMDW 好奇心旺盛で噂好きの兎達である。当然、それが誰であるかを探る者もいた
		PRINTFORMDW しかし、ある日を境に探る者はパッタリと居なくなってしまう
		PRINTFORMDW 大方、飽きたのだろう。噂はすぐに風化していった……
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		PRINTFORMW 「～♪」
		PRINTFORMDW %CALLNAME:MASTER%は%CALLNAME:TARGET%の隣に座り、彼女のお腹を撫でている
		PRINTFORMDW まだ膨らんでもいないが、確かに二人の子がここにいるのだ
		PRINTFORMW 「私、良いお母さんになれるように頑張るね」
		PRINTFORMW 「もちろん、%MASTERNAME:100%も頑張らないとダメだよ？」
		PRINTFORMDW 『当然』%CALLNAME:MASTER%は任せろとばかり胸を張る
		PRINTFORMW 「だって、よかったね♪」
		PRINTFORMDW 優しくお腹の子に語り掛ける%CALLNAME:TARGET%の表情は、母親のそれだった
		;エンディング風
		IF CFLAG:100:1101 == 0
			PRINTFORMDL ………
			PRINTFORMDL ……
			PRINTFORMDW …
			PRINTFORMW （退屈な毎日に嫌気が差して、地上に逃げて……）
			PRINTFORMW （綿月様に拾ってもらった恩も返しきれてないのに……）
			PRINTFORMW （本当に、いいのかな）
			PRINTFORMW （……まぁ、いっか。だって…）
			PRINTL
			PRINTFORML （こんなに幸せなんだから）
			PRINTW
			PRINTFORMW 「%MASTERNAME:100%…大好き♪」
			CFLAG:100:1101 = 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMDW 月の兎達の間である噂が立っていた
		PRINTFORMDW 『誰かは知らないが、地上の人間の子を孕んだやつがいるらしい』
		PRINTFORMDW 好奇心旺盛で噂好きの兎達である。当然、それが誰であるかを探る者もいた
		PRINTFORMDW しかし、ある日を境に探る者はパッタリと居なくなってしまう
		PRINTFORMDW 大方、飽きたのだろう。噂はすぐに風化していった……
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		PRINTFORMW 「……はぁ…こうなるって、分かってたはずなのになぁ…」
		PRINTFORMDW %CALLNAME:TARGET%は、そっと自らの下腹部に手を添える
		PRINTFORMDW ここに、%CALLNAME:MASTER%との子供が居るのだ
		PRINTFORMW 「依姫様は稽古を休んでいいって言ってくれたけど、きっと怒ってるだろうなぁ…」
		PRINTFORMW 「豊姫様は喜んでくれたけど……兎だからしょうがないって、どういう意味だろう」
		PRINTFORMW 「………」
		PRINTFORMW 「……えへへ」
		PRINTFORMW 「%MASTERNAME:100%との子供かぁ…」
		PRINTFORMW 「私、良いお母さんになれるかなぁ」
		PRINTFORMDW %CALLNAME:TARGET%は、母性に満ちた笑みを浮かべ我が子の宿るお腹を撫でる
		PRINTFORMDW 臆病な兎の少女が、母親になった瞬間だった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMDW 月の兎達の間である噂が立っていた
		PRINTFORMDW 『誰かは知らないが、地上の人間の子を孕んだやつがいるらしい』
		PRINTFORMDW 好奇心旺盛で噂好きの兎達である。当然、それが誰であるかを探る者もいた
		PRINTFORMDW しかし、ある日を境に探る者はパッタリと居なくなってしまう
		PRINTFORMDW 大方、飽きたのだろう。噂はすぐに風化していった……
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		PRINTFORMW 「……はぁ…こうなるって、分かってたはずなのになぁ…」
		PRINTFORMDW %CALLNAME:TARGET%は、そっと自らの下腹部に手を添える
		PRINTFORMDW ここに、%CALLNAME:MASTER%との子供が居るのだ
		PRINTFORMW 「依姫様は稽古を休んでいいって言ってくれたけど、きっと怒ってるだろうなぁ…」
		PRINTFORMW 「豊姫様は喜んでくれたけど……兎だからしょうがないって、どういう意味だろう」
		PRINTFORMW 「………」
		PRINTFORMW 「……%MASTERNAME:100%は、喜んでくれるかな」
		PRINTFORMW 「…くれると…いいな」
		PRINTFORMDW %CALLNAME:TARGET%は、いつの間にか自分が泣いていることに気付いた
		PRINTFORMDW それが嬉しいのか、悲しいのか、それとも怖いのか…彼女には分からなかった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚妊娠で曇らせ隊
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMDW どうにも最近、体調が悪い
		PRINTFORMDW そう思った%CALLNAME:TARGET%は、こっそりと地上に降り八意永琳を頼った
		PRINTFORMDW 軽い検査が終わり、無表情の永琳に対して%CALLNAME:TARGET%はいつもの調子で話し掛ける
		PRINTFORMW 「あの…どうでした？」
		PRINTFORMDW 『おめでとう、と言ったほうが良いかしら』
		PRINTFORMW 「え？どういう意味ですか？」
		PRINTFORMDW 『………最近、性行為は？』
		PRINTFORMW 「そ、そんなことしたことないですけど…」
		PRINTFORMDW 『……そう』
		PRINTFORMDW 『あなた、妊娠してるわ』
		PRINTFORMDW ………
		PRINTFORMDW ……
		PRINTFORMDW …
		PRINTFORMDW そこからは覚えていなかった
		PRINTFORMDW 気が付いたら、自室のベッドに横になっていた
		PRINTFORMDW 悪い夢でも見ていたのかもしれない
		PRINTFORMDW そうであってほしい
		PRINTFORMW 「……夢、だよね？」
		PRINTFORMW 「そうに決まってるよね」
		PRINTFORMW 「………」
		PRINTFORMW 「………」
		PRINTFORMW 「………」
		PRINTFORMDW ………
		PRINTFORMDW ……
		PRINTFORMDW …
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K100_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「ふふ、可愛いなぁ」
		PRINTFORMDW %CALLNAME:TARGET%は生まれたばかりの我が子に母乳を与えている
		PRINTFORMDW 夢中になって吸い付く姿に……ふと自分もこんな風に見られていたのだろうかと気恥ずかしくなってくる
		PRINTFORMW 「どうしたの？……あ、%MASTERNAME:100%も飲みたくなっちゃったとか…？」
		PRINTFORMW 「……こっちなら、空いてるよ？」
		PRINTFORMDW %CALLNAME:TARGET%が服をはだけ、ミルクを蓄え膨らんだ乳房を差し出してくる
		PRINTFORMDW ……我が子の手前、そのようなことは……
		PRINTFORMDW しかし、欲望には勝てず、%CALLNAME:MASTER%は一も二も無くむしゃぶりついた
		PRINTFORMW 「あぅっ、もう…赤ちゃんの分も残しておかないとダメだよ？」
		PRINTFORMDW そう言う%CALLNAME:TARGET%の表情は、少しだけ楽しそうだった
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕※素質無しと共通ですまんな
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「…ぁ、来てくれたんですか？」
		PRINTFORMDW %CALLNAME:MASTER%が病室の戸を開けると、%CALLNAME:TARGET%が赤子に母乳を与えていた
		PRINTFORMW 「見てください…二人の赤ちゃんです」
		PRINTFORMDW 我が子は%CALLNAME:MASTER%のことなど気にした様子もなく、夢中になって母乳を飲んでいる
		PRINTFORMW 「良い母親になれるかはまだ分かりませんけど…でも、精一杯頑張ります」
		PRINTFORMW 「この子の為にも……」
		PRINTFORMDW 『出来るだけ協力する』%CALLNAME:MASTER%がそう言うと%CALLNAME:TARGET%は笑みを浮かべた
		PRINTFORMW 「はい、よろしくお願いしますね …あなた♪」
		PRINTFORMDW その言葉が、%CALLNAME:MASTER%は少しだけ気恥ずかしかった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「…ぁ、来てくれたんですか？」
		PRINTFORMDW %CALLNAME:MASTER%が病室の戸を開けると、%CALLNAME:TARGET%が赤子に母乳を与えていた
		PRINTFORMW 「見てください…二人の赤ちゃんです」
		PRINTFORMDW 我が子は%CALLNAME:MASTER%のことなど気にした様子もなく、夢中になって母乳を飲んでいる
		PRINTFORMW 「良い母親になれるかはまだ分かりませんけど…でも、精一杯頑張ります」
		PRINTFORMW 「この子の為にも……」
		PRINTFORMDW 『出来るだけ協力する』%CALLNAME:MASTER%がそう言うと%CALLNAME:TARGET%は笑みを浮かべた
		PRINTFORMW 「はい、よろしくお願いしますね …あなた♪」
		PRINTFORMDW その言葉が、%CALLNAME:MASTER%は少しだけ気恥ずかしかった……
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚妊娠で曇らせ隊
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「………」
		PRINTFORMDW しんと静まり返った病室で、%CALLNAME:TARGET%はぼんやりとベッドに座っている
		PRINTFORMDW 暫くそうしていると、お腹を空かせたのか子供が泣き始めた
		PRINTFORMW 「………」
		PRINTFORMW 「………」
		PRINTFORMW 「……ぁ」
		PRINTFORMW 「……おっぱい、あげないと…」
		PRINTFORMDW 子供が泣いたら母乳を飲ませ、ベッドに戻す単純な作業
		PRINTFORMDW 餅を搗く仕事よりは楽だなぁ、と%CALLNAME:TARGET%は漠然と考えていた
		PRINTFORMW 「……これから、どうしたらいいんだろう」
		PRINTFORMW 「この子は、どうなっちゃうんだろう」
		PRINTFORMW 「私がしっかりしないといけないのに……」
		PRINTFORMW 「……でも、こんなのってないよ……」
		PRINTFORMDW 病室に、%CALLNAME:TARGET%のすすり泣く声が響く
		PRINTFORMDW ……結局、%CALLNAME:MASTER%は病室の戸を開けることができず、その場で踵を返した……
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K100_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_K100_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_K100_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_K100_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_K100_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_K100_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_K100_ONABARE_1(ARG)
;-------------------------------------------------
:口上色を付けるならコメントアウトを外しXをキャラ番号に
;CALL M_KOJO_COLOR_K100

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

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

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

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

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

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

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

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

;-------------------------------------------------
;名前を教えるイベント（関数）
;ナズーリン口上からお借りしました
;-------------------------------------------------
@NAME_SET_K100
PRINTL 名前を入力してください(例; 先輩 兄さん ご主人様 地上の蚤)
IF NAME:MASTER != "あなた"
	LOCALS = %CALLNAME:MASTER%
ELSE
	LOCALS = %NAME:MASTER%
ENDIF
PRINTBUTTON @"[%LOCALS%と名乗る]", @"%LOCALS%"
PRINTL
;名前を入力するループ
$INPUT_LOOP_ONAMAE
INPUTS
; 行頭行尾の空白文字削除
LOCALS = %RESULTS%
REPLACE LOCALS, "\(\^\\s\+\|\\s\+\$)", ""
;10文字以上は受け付けない
IF STRLENS(LOCALS) > 10
	CLEARLINE 1
	REUSELASTLINE 名前が長すぎます
	GOTO INPUT_LOOP_ONAMAE
;空白は受け付けない
ELSEIF RESULTS == ""
	PRINTL 名前を入力してください
	GOTO INPUT_LOOP_ONAMAE
ELSE
	PRINTFORML %RESULTS%で決定しますか？
	PRINTL [0] はい
	PRINTL [1] いいえ
	;入力した名前を確定するループ
	$INPUT_LOOP_KAKUTEI_1
	INPUT
	IF RESULT == 0
		;あなたの名前を%MASTERNAME:100%に格納
		MASTERNAME:100 = %RESULTS%
		PRINTFORML
	ELSEIF RESULT == 1
		PRINTL 名前を入力してください
		GOTO INPUT_LOOP_ONAMAE
	ELSE
		PRINTL 名前を入力してください
		GOTO INPUT_LOOP_ONAMAE
	ENDIF
ENDIF

repo_name: akadiya/eratw

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

license: unknown