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

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

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

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

;RESULTS = _TEST_

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

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

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

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

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

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

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

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

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xf7c9ff
SETCOLOR COLOR("水色")
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K7
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
RETURN 1

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

IF CFLAG:MASTER:初期位置  == 35 && CFLAG:5:面識 == 0
	IF CFLAG:7:現在位置 == CFLAG:5:現在位置
		SETCOLOR 255,230,250
		PRINTFORML 「ちゃんとご飯だってトイレの世話だってするわ！だからお願い！」
		PRINTFORML
		RESETCOLOR
	ENDIF
	IF CFLAG:7:現在位置 == CFLAG:6:現在位置
		SETCOLOR C_CREAM
		PRINTFORML 「もうサニーったら拾ってきた犬じゃないんだから…」
		PRINTFORML
		RESETCOLOR
	ENDIF
	SETCOLOR COLOR("水色")
	IF CFLAG:7:現在位置 == CFLAG:6:現在位置 || CFLAG:7:現在位置 == CFLAG:5:現在位置
		PRINTFORMW 「まあまあ、まずは本人の話を聞いてみましょう」
		PRINTFORML
		PRINTFORML 黒い長髪の少女のセリフに、残りの少女が%CALLNAME:MASTER%へとハッと顔を向けた。
		PRINTFORML 少女とは言うが、その背には翼が生えどこか人ならざる雰囲気を感じてしまい%CALLNAME:MASTER%は息を飲む。
		PRINTFORML その硬くなった空気を緩和するかのように、にこやかに黒髪の少女が%CALLNAME:MASTER%の前へと歩み寄った。
	ENDIF
	PRINTFORML 透き通る羽根に腰まで届いた長髪に青いリボンとドレス…。その妖精は捉えどころの無い笑顔で%CALLNAME:MASTER%を見上げていた。
	PRINTFORML
	PRINTFORMW 「驚かせてごめんなさいね？私達はこの木に住んでいる妖精よ。人に危害を加えないから安心して」
	IF CFLAG:7:現在位置 == CFLAG:6:現在位置
		SETCOLOR C_CREAM
		PRINTFORML
		PRINTFORML 「どの口が言うのかしらッ(ボソッ)」
		PRINTFORML
		RESETCOLOR
	ENDIF
	SETCOLOR COLOR("水色")
	PRINTFORML 「あなたは光の三妖精の住処の前で倒れてたのをサニーが見つけたの。運が良かったわね本当に…」
	PRINTFORML 「ところで幻想郷って知ってる？…知らないの…やっぱり外来人みたいね」
	PRINTFORML 「ここは幻想郷。外の世界とは隔離された妖怪の最後の楽園」
	PRINTFORMW 「あなたは何らかの要因でここに来てしまった。もう元に戻ることは叶わないわ」
	IF CFLAG:7:現在位置 == CFLAG:5:現在位置
		SETCOLOR 255,230,250
		PRINTFORML
		PRINTFORML 「え？外来人って博霊神社に行けばムギュゥ」
		PRINTFORML
		RESETCOLOR
	ENDIF
	SETCOLOR COLOR("水色")
	PRINTFORML 「あなたの運命の選択は２つ、無謀にもここを出て妖怪のごはんになるか…私達に幻想郷の生き方を学ぶかのどちらか」
	PRINTFORML 「勿論、暇つぶ…雑よ…住み込みで教えてあげるわ。いかがかしら？」
	PRINTFORML
	PRINTFORMW %CALLNAME:MASTER%はめまぐるしい状況の判断に、とりあえず頷くしかできなかった。
	PRINTFORML
	IF CFLAG:7:現在位置 == CFLAG:6:現在位置
		SETCOLOR C_CREAM
		PRINTFORML 「部屋は地下があるからそこでいいでしょ」
		RESETCOLOR
		PRINTFORML
	ENDIF
	IF CFLAG:7:現在位置 == CFLAG:5:現在位置
		SETCOLOR 255,230,250
		PRINTFORML 「私が色々教えてあげる！お手！お座り！パシり！」
		RESETCOLOR
		PRINTFORML
	ENDIF
	SIF CFLAG:5:現在位置 == CFLAG:7:現在位置 && CFLAG:5:現在位置 == CFLAG:6:現在位置
		PRINTFORML ワイワイキャイキャイ！！
	PRINTFORML
	SETCOLOR COLOR("水色")
	PRINTFORML 「交渉成立ね。円満終了できて良かったわー。これから色々とよろしくね」
	PRINTFORMW 「じゃあ自己紹介するわ。私はスターサファイア。あなたは…%CALLNAME:MASTER%ね」
	PRINTFORML
	IF CFLAG:7:現在位置 == CFLAG:5:現在位置
		SETCOLOR 255,230,250
		SIF CFLAG:5:面識 != 0
			PRINTFORML 「私の事忘れてないよね？」
		PRINTFORML 「私はサニーミルク！」
		PRINTFORML
		RESETCOLOR
	ENDIF
	IF CFLAG:7:現在位置 == CFLAG:6:現在位置
		SETCOLOR C_CREAM
		PRINTFORML 「…ルナチャイルドよ」
		SIF CFLAG:6:面識 != 0
			PRINTFORML 「知ってるとは思うけど一応ね」
			PRINTFORML
		RESETCOLOR
	ENDIF
	SETCOLOR COLOR("水色")
	PRINTFORMW こうして、改めて%CALLNAME:MASTER%の奇妙な共同生活は始まっていく…。

ELSEIF CFLAG:MASTER:初期位置  != 35
	PRINTFORMW 「あら、貴女この辺では見たことない人間ね」
	PRINTFORML
	PRINTFORML 不意に%CALLNAME:MASTER%の真後ろから幼い少女の声がかけられる。
	PRINTFORML 突然かけられた声に振り向くと、羽根の生えた少女がひらひらと羽根を舞わせながら%CALLNAME:MASTER%の後ろに降り立っていた所だった。
	PRINTFORML 透き通る羽根に腰まで届いた長髪に青いリボンとドレス、子供に近い背丈からどうやら力の強い妖精のようだ。後ろでに%CALLNAME:MASTER%を値踏みするように見上げている。
	PRINTFORML
	PRINTFORML 「自己紹介が遅れたわね。私はスターサファイア、かくれんぼの鬼をやらせてもらえない妖精」
	PRINTFORMW 「何故だかわかる？ふふ、教えてあげない。…それにしても」
	PRINTFORML
	PRINTFORML  スターは興味深そうに%CALLNAME:MASTER%を上から下まで凝視している。
	PRINTFORML %CALLNAME:MASTER%はイタズラを恐れて追い払おうとするが、どうも手の届くギリギリの範囲で距離をとっているのか
	PRINTFORML %CALLNAME:MASTER%が進めばスターも下がり、%CALLNAME:MASTER%が引けばスターも進むと、捕らえどころがなかなか難しい。
	PRINTFORML %CALLNAME:MASTER%が悔しげに歯を軋ませると、それが可笑しかったのかクスクスとスターも笑う。全く持って妖精の術中にハマってしまっていた。
	PRINTFORML
	PRINTFORML 「やっぱり…普通の人間と変わらないわね。あ、気にしないでこちらの話」
	PRINTFORMW 「それよりも、お財布落としたわよ。ハイ」
	PRINTFORML
	PRINTFORML %CALLNAME:MASTER%に向かって弧を描きスターから投げられたものをキャッチする。
	PRINTFORML いつの間に落としたのだろうか、それはまさしく%CALLNAME:MASTER%のサイフだった。
	PRINTFORML
	PRINTFORML 「いえいえ、お礼なんていらないわ」
	PRINTFORMW 「だって既に貰っているもの。それじゃあ、またどこかで会いましょう」
	PRINTFORML
	PRINTFORML 手をヒラヒラさせてスターはどこかへ去っていく。
	PRINTFORML スターの言葉に%CALLNAME:MASTER%は首を傾げるが、ハッとしてサイフの中身を確認する。
	PRINTFORML %CALLNAME:MASTER%の財布からいくつかの外の国のお金が抜き取られていた。
	PRINTFORML ……だが慌てることはしない。
	PRINTFORML 何故ならあなたの能力の前では簡単に取り返せるのだから。
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML 「あの人の気配、あっという間に移動したり消えたりしてたけど、やっぱり普通の人間のよう…」
	PRINTFORML 「外からの侵略者だー、ってサニーが騒いでいたけど大丈夫そうね」
	PRINTFORML 「今度会ったら何かイタズラでも仕掛けようかしら。楽しみー………あれ？」
	PRINTFORMW 「%CALLNAME:MASTER%から盗んだおはじき…どこにやったのかしら？確かにポケットに入れておいたのに…」

ENDIF

PRINTFORML
PRINTFORML
PRINTFORMW スターサファイアの口上をステータスに反映させますか？(現在未実装)
;PRINTFORML (口上内でお金を使ったりスターを喜ばせると、所持金の減少や感情の変更が起きたりします)
$LOOP

PRINTFORML
PRINTFORML
PRINTFORML [0] はい
PRINTFORML [1] いいえ

INPUT
SELECTCASE RESULT
	CASE 0
		PRINTFORML
		PRINTFORML
		PRINTFORMW 口上によりステータスが変更するようになりました。(現在未実装)
	CASE 1
		PRINTFORML
	CASEELSE
		IF LCOUNT >5
			PRINTFORMW 設定されてねぇつってんだろ！
		ELSE
			PRINTFORMW 設定されていません。
			LCOUNT ++
		GOTO LOOP
		ENDIF
ENDSELECT
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K7_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
	PRINTFORML 「ここの眺めはとてもステキでしょ。ルナやサニーにしか教えてない場所よ」
	PRINTFORML 「あそこが魔法の森ね。天気がいいと私達が前に住んでいた木まで見えるの」
	PRINTFORML %CALLNAME:MASTER%とスターは、あるクスノキの上でどこまでも見渡せそうな風景を眺めていた。
	PRINTFORML 額に収めて飾りたいほど綺麗な幻想郷の姿。%CALLNAME:MASTER%が魅入ってしまう姿にスターは鈴を転がしたような声で笑う。
	PRINTFORML 「フフ、気に入ってくれて良かったわ。他の人には内緒よ」
	PRINTFORML 空を飛ぶ妖怪も、道を歩く人々も２人に気付かず通り過ぎていく。誰も邪魔する者はいない。
	PRINTFORML 暫く２人は何も言わず、真下の光景を楽しんでいた。
	PRINTFORML 「実はね、この木って外からでも見つけられにくいの」
	PRINTFORML 「…だから、私達に気付く人なんて誰もいない…何があっても」
	PRINTFORML %CALLNAME:MASTER%の頬にスターの手がのばされ、やんわりと彼女へと向かせる。
	PRINTFORML スターの丹精に整った顔立ちが視界に入る。
	PRINTFORML 薄く化粧をした彼女は日常で見る彼女よりも大人びて見え、%CALLNAME:MASTER%は目を背けるのさえ忘れてしまった。
	PRINTFORML 「%CALLNAME:MASTER%は絶世の美人でもないのに、何故魅力的なのかしら…」
	PRINTFORML スターの顔が近づく。%CALLNAME:MASTER%は両頬に手を添えられても、チェリーのような唇が近づいてもスターから逃げられない。
	PRINTFORML 「んっ…」
	PRINTFORML 数秒の妖精の口づけ…目を瞑る%CALLNAME:MASTER%とスターには、時が止まったように長く感じられた。
	PRINTFORML 「このことは誰にも内緒よ。サニーにも、ルナにも…ね」
	PRINTFORML キスを感じたばかりの暖かい唇にスターの指が触れる。
	PRINTFORML 蠱惑的に微笑む彼女のか細い目に、%CALLNAME:MASTER%はしばらく動くことができなかった…。
	PRINTFORML

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

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K7_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
		PRINTFORML 「ねぇ、%CALLNAME:MASTER%」
		PRINTFORML 帰り道、ふと前を歩くスターの足が止まる。
		PRINTFORML 「私、%CALLNAME:MASTER%のことが本当に好きよ。%CALLNAME:MASTER%は私のこと好きかしら？」
		PRINTFORML 風が吹きぬけ揺れる。スターの長髪はいつものように美しくたなびく。
		PRINTFORML %CALLNAME:MASTER%も、いつも通りの口調でスターも好きと返す。
		PRINTFORML 「…なら、こう言い返すわ」
		PRINTFORML 風になびく髪をかきあげ、スターは%CALLNAME:MASTER%へと振り向く。
		PRINTFORML そこに捉えどころのないあの笑顔はない。年相応に真剣な表情をしたスターが%CALLNAME:MASTER%を見上げていた。
		PRINTFORML 「私は%CALLNAME:MASTER%を愛しています」
		PRINTFORML 搾り出すように震える声をだすスター。自らの胸に手をあてる彼女の手はわずかに震えていた。
		PRINTFORML これがイタズラでないこと%CALLNAME:MASTER%にもわかる。
		PRINTFORML 「返事を…聞かせて」
		PRINTFORML ツバを飲み込んだ末に%CALLNAME:MASTER%は…
		PRINTFORML
		PRINTFORML
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	PRINTFORML 「…ありがとう。答えてくれて」
	PRINTFORML スターの身体が宙に浮かぶ、空に舞う羽根のように。
	PRINTFORML %CALLNAME:MASTER%の胸へと飛び込むように降り立ち、%CALLNAME:MASTER%もスターを優しく抱く。
	PRINTFORML %CALLNAME:MASTER%とスターが抱きしめあえば、病的とも言える幸福が2人を支配する。
	PRINTFORML 「あぁ…もう離れたくないわ」
	PRINTFORML 「私を裏切らないで、いつも一緒にいてちょうだい」
	PRINTFORML 「どこにいても、%CALLNAME:MASTER%を視てあげる」
	PRINTFORML 「互いの命が尽きても、地獄に落とされようとも%CALLNAME:MASTER%を見つけてあげるわ」
	PRINTFORML スターが%CALLNAME:MASTER%の唇を奪う。情熱的な深いキスに%CALLNAME:MASTER%の鼓動がドクンと鳴る。
	PRINTFORML 「これで%CALLNAME:MASTER%は私の、私は%CALLNAME:MASTER%のもの」
	PRINTFORML 唇を話した後も、妖艶なスターの唇から唾液の橋が2人をつなぐ。
	PRINTFORML 「裏切っても、いなくなっても私のもの…」
	PRINTFORML 「そう、永遠に…」
	PRINTFORML
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「そう…それが%CALLNAME:MASTER%の答えなのね…」
		PRINTFORML フッと自嘲めいた笑みがスターの口元からこぼれる。
		PRINTFORML 俯く彼女の目元は見えない。1滴だけ透明な雫が落ちたのが見えたのは幻じゃない。
		PRINTFORML 「いいえ、気にしないで。ただの妖精の戯れ言ですもの」
		PRINTFORML 「…さ、帰りましょ。風邪を引いちゃうわ」
		PRINTFORML スターは%CALLNAME:MASTER%の手を引き帰路へと急ぐ。
		PRINTFORML %CALLNAME:MASTER%はその横顔を直視することができなかった…。
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K7_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ああ、楽しい時間というのはあっという間の過ぎてしまうのね」
					PRINTFORMW 「いっそ時が止まってしまえばずっと遊べるのに…なんて、冗談よ」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「堂々と妖怪の根城や里に入れるのも%CALLNAME:MASTER%のおかげね」
					PRINTFORMW 「思う存分楽しめたし、今度も一緒にいきましょう」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あの2人と一緒じゃないのもなんだか新鮮だったわ」
					PRINTFORMW 「またお誘い願えるかしら？それじゃあね」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「私ったら忘れっぽいから菓子でも貰えればあっという間に忘れてしまいそう」
		PRINTFORMW %CALLNAME:MASTER%はニコニコ笑うスターに、後日甘味を奢る約束をとりつけた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「…あれだけの事をされておいて、%CALLNAME:MASTER%を許そうとする気持ちが沸くなんて」
		PRINTFORML 「そんな自分にほとほとあきれ返ってしまうわね…」
		PRINTFORMW スターは胸に沸く黒色の感情が薄まっていくのを、胸に手を当てながら感じていた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「…妖精百まで怨み忘れず」
		PRINTFORML 「%CALLNAME:MASTER%は私にしたこと」
		PRINTFORMW 「何があっても覚えている事をお忘れなく」
		PRINTFORML …スターサファイアの氷のような冷たい目を%CALLNAME:MASTER%の脳裏に焼きついた。
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K7_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORMW 「来てくれたのね。とっても待ち遠しかったんだから」
					PRINTFORML %CALLNAME:MASTER%の後ろにいつの間にかスターが笑顔を湛えながら見上げていた。

				CASEELSE
					PRINTFORML 「待ちぼうけしちゃったわよ、もう」
					PRINTFORMW スターは不貞腐れた仕草をして頬を膨らませた。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%、何かして遊ばない？」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「あ、遊び相手が自分から来てくれたわ」
					PRINTFORMW
				CASEELSE
					PRINTFORML スターはこちらを一瞥もせず鼻歌を歌っている。
					PRINTFORMW
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;スターの部屋に遭遇
		IF CFLAG:7:現在位置 == スター私室
			IF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					CASE 1
						PRINTFORML 「%CALLNAME:MASTER%が待っていたのならクッキーでも持ってくるべきだったわ」
						PRINTFORMW
					CASE 0
						PRINTFORML
						PRINTFORMW
					CASEELSE
						PRINTFORML 「ここにいるということは…したいの？」
						PRINTFORMW 「うふふ、冗談よ」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「今日遊ぶ約束してた？まぁいいわ、何して遊びましょうか？」
					PRINTFORMW
				CASE 0
					PRINTFORMW 「あら来てたの。何か飲む？」
				CASEELSE
					PRINTFORML 「もう、来るなら一声かけてくれないとお持て成しの用意もできないわ」
					PRINTFORMW スターはため息をついたがどこか嬉しそうだ。
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「…いつから私と%CALLNAME:MASTER%はそんな親密な関係になったのかしらね？」
						PRINTFORMW
				ENDSELECT
			ENDIF
		ENDIF
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「%CALLNAME:MASTER%に会うのに理由はいらないわ」
					PRINTFORML スターはお澄まししながら%CALLNAME:MASTER%へと寄り添ってきた。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「%CALLNAME:MASTER%がいるなら何かしてあげようかな…」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORMW 「いたわね。さて、どうしてくれようかしら？」
					PRINTFORML スターは含め笑いをしながら%CALLNAME:MASTER%を見つめている。
				CASEELSE
					PRINTFORML 「別に%CALLNAME:MASTER%に会いに来たわけじゃないから気にしなくていいわよ」
					PRINTFORMW
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「お風呂もお酒も…%CALLNAME:MASTER%との距離も」
					PRINTFORMW 「暖かいぐらいがちょうど良いのよね」
				CASEELSE
					PRINTFORML 「…お背中、流しましょうか？…なんて」
					PRINTFORMW
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「恥ずかしがらなくてもいいの。私は%CALLNAME:MASTER%と入りたいんだから」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「どうしても身体をキレイにしたいの」
					PRINTFORML 「良かったら出てってくれると助かるわ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「どれほど親密になっても%CALLNAME:MASTER%が一人でいたいなら邪魔しないわ」
					PRINTFORML 「…でも私はいつでもいいからね？」
					PRINTFORMW スターははらりとタオルを捲ってみせる。
					PRINTFORML 小さいながらも小ぶりの良い臀部を見せびらかしながら、浴場を後にした。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 突然のスターの来訪に%CALLNAME:MASTER%が慌てていると、彼女は面白そうにクスクスと笑った。
					PRINTFORML 「そう、その慌て顔が見たかったの」
					PRINTFORML 「じゃあゆっくりお風呂に浸かってね」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「……私ったら何してるのかしら。気配でわかる筈なのに」
					PRINTFORMW スターはタメ息をつきながら出て行った。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「…女の子には色々と準備が必要なの。%CALLNAME:MASTER%ならわかってくれるよね？」
					PRINTFORMW 「ありがとう。大好きよ%CALLNAME:MASTER%♪」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%だってお風呂上りの私の姿が見たいでしょう？」
					PRINTFORMW %CALLNAME:MASTER%は湯気立つスターを想像しながらその場と後にした。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%はレディファーストを重んじる紳士だと信じてるわ」
					PRINTFORMW …%CALLNAME:MASTER%はトボトボとお風呂場を後にした。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORML
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「イタズラの予定をたててるの。%CALLNAME:MASTER%も一緒にどう？」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「見つけた。気配はわかっても探すのは一苦労ね」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「こんな場所に何か用事？」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「他の気配にまみれて気付かなかったけど、%CALLNAME:MASTER%だったのね」
					PRINTFORMW 「いえ、別に用は無いの。決して何かをたくらんでるつもりはないわ…フフ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「私があえて%CALLNAME:MASTER%に会いに来たのか…」
					PRINTFORML スターは笑顔だがその口元は怒りでひくついている。
					PRINTFORMW 「お二人の逢引は忘れないから。…ええずっと」
				CASEELSE
					PRINTFORMW 「あらあら…あらあら…」
					PRINTFORML スターの長髪はまるで蛇のように恐ろしく蠢いている。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「…随分と楽しそうじゃない？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「意外と遊び人なのね%CALLNAME:MASTER%って」
					PRINTFORMW 「馬に蹴られないようにしなくちゃね。ごゆっくり…」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K7_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 FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORMW 「ふぅー…」
						PRINTFORML 夢見心地の中、%CALLNAME:MASTER%は耳元に吹きかけられるこそばゆい吐息に飛び起きる。
						PRINTFORML その様は楽しそうに見届けながら、スターは%CALLNAME:MASTER%に湯気立つコーヒーを差し出した。
						PRINTFORML 「おはよう%CALLNAME:MASTER%。今日もいい1日になりそうね」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「人生の1/3は睡眠よ」
						PRINTFORML 「つまり睡眠を削ればもっと色んなコトが可能ってこと」
						PRINTFORML 「さ、冗談はこれまでにして早く起きて支度して。貴重な%CALLNAME:MASTER%との時間を有効活用したいの」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「起きたのね。おはよう%CALLNAME:MASTER%」
						PRINTFORML スターはひょいと%CALLNAME:MASTER%のベッドから顔をだした。
						PRINTFORML 「ああこれは気にしないで。%CALLNAME:MASTER%が寝てる間に部屋を探検しているだけ」
						PRINTFORML 「結果として…%CALLNAME:MASTER%も健全な人間だというのがわかったのは大きな収穫ね。
						PRINTFORMW スターは何も持っていない。が、モノじゃない何かを手に入れたようでホクホクした笑顔を向けてきた。
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
					CASEELSE
						PRINTFORML ガンガンガンと乱暴な音楽に%CALLNAME:MASTER%は目を覚ます。
						PRINTFORML 「モーニングコールよ。おはよう%CALLNAME:MASTER%」
						PRINTFORMW スターは手に持つおたまとフライパンを隠そうともせず%CALLNAME:MASTER%に笑いかけてきた。
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML …%CALLNAME:MASTER%が目を覚ますと、可愛いスターのドアップが目の前に広がっていた。
				PRINTFORML 「おはよう%CALLNAME:MASTER%、よく眠れたかしら？」
				PRINTFORML 「いつからこうしてたかって？数十分くらいね」
				PRINTFORML 「%CALLNAME:MASTER%のあどけない寝顔についつい寝入るんじゃなくて魅入ちゃった」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「%CALLNAME:MASTER%…」
		PRINTFORML %CALLNAME:MASTER%はスターを起こさないようベッドから這い出そうとした…が
		PRINTFORML 「やぁ……%CALLNAME:MASTER%…行かないで」
		PRINTFORMW 愛らしい寝顔を湛えたままスターの手は%CALLNAME:MASTER%を放してくれない。
		PRINTFORML スターを起こさないよう、慎重に指を放しながら、%CALLNAME:MASTER%はベッドから脱出した。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW 「んん…今日もいい1日が始まりそう」
			PRINTFORML スターはめいいっぱい伸びをした後ベッドから降りる。
			PRINTFORML 「あらちょうどいいところに」
			PRINTFORML スターは%CALLNAME:MASTER%に気付くと、櫛を渡してきた。
			PRINTFORML 「髪、梳いてくれる？」
			PRINTFORMW %CALLNAME:MASTER%は彼女の髪を堪能しながら黒く生気に満ちた長髪を梳かした。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「ふぅ…よく眠れた。おはよう%CALLNAME:MASTER%」
			PRINTFORML %CALLNAME:MASTER%はスターへとあらかじめ淹れておいたコーヒーを差し出す。
			PRINTFORML スターは湯気立つコーヒーを眺めながら朝の一杯をベッドの上で味わった。
			PRINTFORML 「ありがと%CALLNAME:MASTER%。1日の最初を最高の1杯を始められるなんて良い事がありそうね」
			PRINTFORMW 「さぁ、今日は何が起きるのかしら。今から楽しみでしょうがないわ」

			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ねぇ%CALLNAME:MASTER%、ちょっと顔貸して」
					PRINTFORML 「…チュッ」
					PRINTFORML 「いい夢が見られるおまじない。それじゃあおやすみ…」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「眠ればきっと良いイタズラのアイデアが沸いて来ると思うの」
					PRINTFORML 「%CALLNAME:MASTER%も寝ている時に思いついたら教えてくれるかしら？それじゃあおやすみ」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「夜はやっぱり寝るものね」
					PRINTFORMW 「睡眠は大事よ%CALLNAME:MASTER%、おやすみ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML スターは%CALLNAME:MASTER%に寄りかかりぼんやりと宙を見つめている
					PRINTFORMW 「ん…暖かくて、きもちいい…」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ふわぁ…もうこんな時間なのね」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「……」
					PRINTFORMW スターは眠るのをガマンしているのか目が据わり始めた。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%が近くにいるのかわかるのか、スターはやんわりと微笑を湛えている。
					PRINTFORMW 「スースー…フフ…」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「スー…スー…」
					PRINTFORMW
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORMW 「グー…スー…」
				CASEELSE
					PRINTFORMW 「スー……」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内キャラがMAIN_MAPで衰弱状態になった場合か、お招き部屋で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「う…ん…」
					PRINTFORML スターは%CALLNAME:MASTER%に抱き寄せられ、青い顔で目を閉じている。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「ベッドに戻らないと…これはマズいわ…」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「はぁ…ちょっと疲れたみたい…」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あ…%CALLNAME:MASTER%…！」
					PRINTFORML スターは崩れ落ちる%CALLNAME:MASTER%を支え、必死に名前を叫ぶ。
					PRINTFORML 「%CALLNAME:MASTER%…お願い、ムリをしないで…」
					PRINTFORML 今にも泣きそうなスターを宥めながら、%CALLNAME:MASTER%はスターの手を借りて寝床へと戻った。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「おお可哀想に%CALLNAME:MASTER%。ここで%CALLNAME:MASTER%は朽ちていくのね…」
					PRINTFORMW 「それはそうとして、今2人を連れて来るからそこで寝てなさいね」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「こりゃあイタズラし放題ね」
					PRINTFORMW 「…冗談よ。知り合いのよしみで送ってあげるわ」
					PRINTFORMW 「もちろん、それ相応の報酬は頂くけど♪」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで戻ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			IF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「今日はもう遅いから先に床に入らせてもらうわ」
						PRINTFORML 「その代わり、明日はその分楽しみましょう…%UNICODE(0x2665) *1%」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「果報は寝て待てと言うんだから寝て起きたらいい事起きないかしらね」
						PRINTFORML 「ふふっ変な事言っちゃった。おやすみ%CALLNAME:MASTER%」
					ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「変な事したら私は%CALLNAME:MASTER%に大変な事をするからね」
						PRINTFORML 「それじゃおやすみ」
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「一緒にいたらサニーやルナに誤解されちゃうわ」
						PRINTFORMW 「また今度遊びましょう」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					CASE 0
						PRINTFORML
						PRINTFORMW 「おあいにく様。そこまで%CALLNAME:MASTER%に心を許してないの」
					CASEELSE
						PRINTFORML 「さぁ退室の時間よ～」
						PRINTFORMW スターは有無を言わさず%CALLNAME:MASTER%を押して部屋から押しやった。
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;他キャラとのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「…%CALLNAME:MASTER%達の気配はもう覚えたわ」
						PRINTFORMW 「この気持ちが寝て静まるのを祈るしかないわね」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「お盛んなこと…。ちゃんと後片付けしていってね」
						PRINTFORMW
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「他人の部屋でさかるなんて兎でもしないわよ」
						PRINTFORML 「それともそうゆう趣味？…」
						PRINTFORMW スターは呆れた表情で肩を竦めるとベッドへともぐりこんだ。
				ENDSELECT
			ENDIF
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ちょっと疲れただけよ。大丈夫」
					PRINTFORMW 「%CALLNAME:MASTER%を見たら少し元気が出てきたわ」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ふぅ…ここまで来れば大丈夫ね」」
					PRINTFORMW …スターは走っていたのか頬を上気させ額に汗が浮かんでいた。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ここに私がいることは内緒にして頂戴」
					PRINTFORMW 「でないとせっかくのイタズラが台無しになってしまうもの」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒の部屋にいる状態で相手が寝る（お招き部屋含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「何か用？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
			IF FLAG:時間停止
			ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「今日も%CALLNAME:MASTER%は大変そうね」
			ELSE
				PRINTFORML 「今日も面白い顔…楽しそうな顔してるわね」
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
			IF FLAG:時間停止
			ELSEIF TALENT:恋慕 || TALENT:思慕
				PRINTFORML 「慌てる妖精は貰いが少ないのよ。気をつけてね」
			ELSE
				PRINTFORML スターは軽く手を振って%CALLNAME:MASTER%を見送った。
			ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他（キャラ指定なし
	IF CFLAG:318 == 1
		PRINTFORMW
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				PRINTFORML 「私が離れても我慢できる？…そう、良い子ね」
				PRINTFORMW スターは%CALLNAME:MASTER%の股間を一撫ですると%CALLNAME:MASTER%から離れた。
			CASEELSE
				PRINTFORML 「来ることはわかってたわ。でも…」
				PRINTFORMW 「お預けされてからの方がもっと気持ちが昂ぶるでしょう？」
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			;CASE 0
				;PRINTFORML
				;PRINTFORMW
			CASEELSE
				PRINTFORML 「あら残念ね。いいところだったのに」
				PRINTFORMW しれっとスターは%CALLNAME:MASTER%から離れた。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			;CASE 1
				;PRINTFORML
				;PRINTFORMW
			CASE 0
				PRINTFORML
				PRINTFORMW
			CASEELSE
				PRINTFORML スターはそ知らぬ顔で%CALLNAME:MASTER%から距離をとった。
				PRINTFORMW
		ENDSELECT
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
				CASEELSE
					PRINTFORML 「…………」
					PRINTFORMW 「フフ、やけに気配が近いと思ったらやっぱりそうゆうことなのね」
					PRINTFORML スターの口元は笑っているが、その瞳は嫉妬の情で黒く燃え盛っているようだった
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あまり発情していると、誰かに見られるわよ」
					PRINTFORMW 「壁に仙人スキマに目ありってね…」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あら怖い怖い。そんな顔して睨まないで…」
					PRINTFORMW スターは目を細めて2人を交互に見ている。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「そうやって見せ付けられたら、こっちにも火がついちゃうんだから…」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「楽しいことは皆で分け合うべきよ。そう思わない？」
					PRINTFORMW スターは嬉しそうに胸元を肌蹴はじめた…。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「私もたまってるの。良かったら一緒に発散させて」
					PRINTFORMW スターは首元を緩めると%CALLNAME:MASTER%へと擦り寄ったきた。
					PRINTFORML 「子供みたいな見た目だからって、遠慮しなくていいんだから…」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML スターは何も言わずあきれ果てたような軽蔑の目つきを向けてその場を離れていった。
					PRINTFORMW
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ふぅん、そうするのが楽しいのね」
					PRINTFORMW スターは値踏みするように%CALLNAME:MASTER%達を一瞥した後、音も無く去っていった。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あはは、そんな鳩が豆鉄砲喰らったような顔しなくてもいいのに」
					PRINTFORMW スターは気の済むまで笑い終わるとその場をゴキゲンに後にした。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%がスターを怪訝な表情で見やると、
					PRINTFORML スターは気にもせず%CALLNAME:MASTER%との行為を続けようとする。
					PRINTFORMW 「だって…見られたほうが興奮するじゃない？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「ごめんなさい、ちょっと熱中し過ぎたみたいね」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ちょっと言うのが遅かったかしら？」
					PRINTFORMW スターは悪びれもせずチロリと舌をだした。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「誰が%CALLNAME:MASTER%に触れてもいいの」
					PRINTFORMW 「最後に私の元にいてくれるなら…」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「これは…予想外ね」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「%CALLNAME:MASTER%がいいならいいわ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「…今は私だけを見て」
					PRINTFORMW スターは潤んだ瞳をむけ、%CALLNAME:MASTER%の唇を無理やり塞いだ。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「もっと別の場所でする？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「いちいち気にしてたら身がもたないわよ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	;MASTERと同フロアでパンツを没収した
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML 「…あら%CALLNAME:MASTER%、何か落としたんじゃない？その足元」
		PRINTFORML %CALLNAME:MASTER%がサアッと顔を青くして下を見るが何も落ちていない。
		PRINTFORMW 布の摺れる音に%CALLNAME:MASTER%がハッと顔をあげた時、スターはその手に下着を持って怪訝な表情を浮かべていた。
		PRINTFORMW 「お菓子を盗み食いしたサニーそっくりな顔してると思ったら、まさかこんな物を隠していたなんて」
		PRINTFORMW 「さて、これを使って%CALLNAME:MASTER%でどんな遊びができるのかしら…ウフフフ」

		RETURN 1
	;MASTERが移動してる際にパンツを没収した
	ELSEIF LOCAL:1 && ARG:1 == 2
		PRINTFORML 「%CALLNAME:MASTER%、何か落として……あれ？」
		PRINTFORML %CALLNAME:MASTER%が振り返るより先に、スターは%CALLNAME:MASTER%が落とした戦利品を拾い上げ首を傾げていた。
		PRINTFORML 「ふぅん、そういうことね…」
		PRINTFORML 「私はボムよりも危険な爆発物を手に入れてしまったのかも…ウフフ」
		PRINTFORMW 心底楽しそうな表情でスターは崩れ落ちる%CALLNAME:MASTER%を見下ろした。
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;うふふ==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを押し倒した（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				PRINTFORML 「そろそろ溜まってくる頃じゃない？」
				PRINTFORML スターは%CALLNAME:MASTER%の腕に抱きつき、もう片手でイジらしく%CALLNAME:MASTER%の股間を撫で付ける。
				PRINTFORML これから起こる事に期待と股間を膨らませ、%CALLNAME:MASTER%はスターを押し倒そうとするが、スルリと逃げられる。
				PRINTFORML 「ダメよ、そんなに興奮しちゃ…だって」
				PRINTFORMW 「私の方がもうガマンできないんだからっ…」
				PRINTFORML スターは%CALLNAME:MASTER%に覆いかぶさり、唇を奪う。執拗に粘着質に%CALLNAME:MASTER%を貪るかのように
				PRINTFORML 「チュッ…ンッ…ぷはっ」
				PRINTFORML 「好きよ…%CALLNAME:MASTER%は私のもの、誰にも渡さない」
				PRINTFORML 「この唇もこの顔も、その心も…私が貪りつくしてあげる…」
				PRINTFORML 口についた%CALLNAME:MASTER%の膵液を舐め取るスターは、ひどく魅惑的に思えた。
			ELSEIF TALENT:思慕
				PRINTFORML 「ちょっといいかしら？」
				PRINTFORMW %CALLNAME:MASTER%が声をかけるより先に、スターはふわりと%CALLNAME:MASTER%へと抱きつく。
				PRINTFORML 「%CALLNAME:MASTER%…溜まってるでしょ？私もなの」
				PRINTFORML スターは服越しに局部をギュッと%CALLNAME:MASTER%の股間へと擦り付ける。
				PRINTFORML 「あっ…ふぅ…」
				PRINTFORML 上下に身体を動かしながら、甘い嬌声を漏らすスターと幼い太股の刺激に%CALLNAME:MASTER%のペニスが膨らみ始めていく。
				PRINTFORMW 「ねぇ…しよ？」
				PRINTFORML %CALLNAME:MASTER%は誘惑に身を任せ、なすがままに身を投げ出した。
			ELSE
				PRINTFORML ふいに片腕が引っ張られ、%CALLNAME:MASTER%はその場に尻餅をつく。
				PRINTFORML 驚いて顔を向ければスターが乱れた黒髪を気にも留めず%CALLNAME:MASTER%の腰へと跨ってきた。
				PRINTFORML 「…この関係に愛なんて煩わしいことは必要ないと思うの」
				PRINTFORML 「ただお互いに快感を気の向くまま欲しいだけ…」
				PRINTFORML 「%CALLNAME:MASTER%はただキモチ良くなっていればいいから」
				PRINTFORMW 幼いながらも頬を桃色に染めて囁いてくる妖精の甘い言葉に、%CALLNAME:MASTER%は身を任せることにした。
			ENDIF
				SELECTCASE TALENT:MASTER:形状
					CASE 1
					;未成熟
						PRINTFORML
						PRINTFORML 「フフッカワイイ形してるのね」
						PRINTFORML スターはピョコンと一丁前にそそり立つ%CALLNAME:MASTER%のペニスを指で突く。
						PRINTFORMW 「そんな顔真っ赤にしなくてもいいの。これでも私なら十分に楽しめるもの」
					CASE 2
					;粗チン
						PRINTFORML 「まぁ、私に合わせてくれたのかしら？」
						PRINTFORML 「いいじゃない小さくても、大事なのは…」
						PRINTFORMW スターは幼い手で%CALLNAME:MASTER%のペニスを絡め取る。指の腹で竿を刺激し、執拗にねぶる。
						PRINTFORML 「キモチいいかどうかなの」
					CASE 3
					;普通
						PRINTFORML
						PRINTFORML 「…おっきぃ」
						PRINTFORMW 「私の事は気にしないで。%CALLNAME:MASTER%も知ってるでしょ？」
						PRINTFORML 「私達妖精を捕まえた人間が何をされているか…」
						PRINTFORML 「された事が忘れられず、人間に手篭めにされにいくなんて噂も…」
						PRINTFORML 「本当かどうかは、これで私を泣かせてみればわかる話、ね」
					CASE 4
					;発光
						PRINTFORML
						IF FIRSTTIME("押し倒し",0)
							PRINTFORML 「そんなに恥ずかしがらなくていいじゃない」
							PRINTFORML 「どんなに小さくても…小さくても…」
							PRINTFORML 「ええ…何これ…」
							PRINTFORMW %CALLNAME:MASTER%のペニスは困惑か軽蔑かなんとも言えない表情のスターを照らし出していた。
						ENDIF
						PRINTFORML 「慣れればこれもカワイイのかもね…」
						PRINTFORMW %CALLNAME:MASTER%の光り輝くペニスをしごきながらスターは呟いた。
					CASE 5
					;イボつき
						PRINTFORML
						IF FIRSTTIME("押し倒し",0)
							PRINTFORML 「これで奥をグリグリされたら…」
							PRINTFORML スターは%CALLNAME:MASTER%のペニスが膣内を蹂躙する様を想像し、太股をモジモジと摺り合わせる。
						ENDIF
						PRINTFORML 「忘れられない夜になりそうね」
						PRINTFORML スターは%CALLNAME:MASTER%のペニスを撫でながら嬉しそうに呟いた。
					CASE 6
					;ゴンぶと
						PRINTFORML
						IF FIRSTTIME("押し倒し",0)
							PRINTFORML 「ゴクッ…」
							PRINTFORML スターが息を呑む音が%CALLNAME:MASTER%にも伝わる。
							PRINTFORML 神妙な表情に汗を垂らし、隆起している%CALLNAME:MASTER%のペニスを見下ろす。
							PRINTFORMW 「まさかここまで大きいなんて…」
						ENDIF
							PRINTFORML %CALLNAME:MASTER%に声をかけられ、スターはゆっくりと顔をあげる。
							PRINTFORML 「これぐらいなんともないわ…。任せて」
							PRINTFORML いつものマイペースを装ったスターの姿は無い。
							PRINTFORMW %CALLNAME:MASTER%のモノを呑みこむ決意を胸に、スターは幼膣を濡らした。
						PRINTFORML 「
					;馬並み
					CASE 10
						IF FIRSTTIME("押し倒し",0) && TALENT:恋慕
							PRINTFORML 「まるで金棒みたい…でも」
							PRINTFORMW 「私だって覚悟を決めてるの、泣いても痛がってもやめないで…お願い」
						ELSEIF FIRSTTIME("押し倒し",0)
							PRINTFORML ズシリと重量ある音が聞えそうな丸太とも思える男根をスターに突き出す。
							PRINTFORML 「ヒッ！？…や、やぁ…」
							PRINTFORML 想像もし得ぬ巨大な一物を目の前に、スターは理性を無くし、怯える子猫のようにガタガタと身を震わせる。
							PRINTFORMW 「お願い…こ、来ないで…」
							PRINTFORML 腰を抜かして後ずさりするスターにカリ首をもたげたペニスを頬に擦らせる。
							PRINTFORML 「ヒエッ…」
							PRINTFORMW カタカタと歯を鳴らすスターを男根に抱きつかせるように、%CALLNAME:MASTER%はスターを抱きしめた。
						ELSE
							PRINTFORML 「一回受け入れたもの、今ならなんとかなる…筈」
							PRINTFORMW スターは目の前の剛直を前に神妙な顔をして%CALLNAME:MASTER%へとカラダを預けた…。
						ENDIF
					CASEELSE
						IF TALENT:MASTER:183 == 1
					;なんと奇遇な
							PRINTFORML
							IF FIRSTTIME("押し倒し",0)
								PRINTFORML 「…………2本？」
							ENDIF
							PRINTFORML 「あは…新しい世界が見えてきそうね」
							PRINTFORMW スターは巧みに２つの竿を撫でながらニコリと笑った。
						ELSE
							PRINTFORML
							IF FIRSTTIME("押し倒し",0)
								PRINTFORMW 「言葉にできないってこういうこと言うのかしら」
							ENDIF
							PRINTFORML 「十人十色千差万別…ねぇ」
							PRINTFORMW
						ENDIF
					ENDSELECT
				PRINTFORML
			ENDIF
		RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
		RETURN 1
		ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「もう…つれないんだから」
						PRINTFORMW 「今日は引いてあげる。でも、次はその分埋め合わせをお願いするから…」
						PRINTFORMW スターが身に纏う女の香りが強くなった気がした…。
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「あなたはシたくないの？」
						PRINTFORMW スターは唇を尖らせて%CALLNAME:MASTER%を見上げる。
						PRINTFORMW 「遠慮しなくてもいいのにねぇ」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「意外と理性はあるのね。残念…」
						PRINTFORMW スターは不満げながらも大人しく%CALLNAME:MASTER%から身を引いた。
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;抜け出す失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;好きにして状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「これで終わり？そんなのってないわ！」
			PRINTFORML スターは抜け出そうとする%CALLNAME:MASTER%を押さえつけ、快楽を享受し蜜穴を濡らす。
			PRINTFORMW 「ん、ふぅ…ここまで昂ぶらせておいて抜け出そうとするなんて薄情じゃない？もっと楽しみましょ…」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML 「ダメ…まだ私が満足してないの」
			PRINTFORML 「…スイッチ入っちゃたみたい」
			PRINTFORMW 荒い熱の篭もったスターの吐息が%CALLNAME:MASTER%の思考を鈍らせる。
			PRINTFORML スターにしがみつかれた腕が抜けない。力を入れてもそれ以上の力でベッドへと引き戻されてしまう。
			PRINTFORMW 「最後まで付き合ってもらうんだから…%UNICODE(0x2665) *1%」
			RETURN 1
		ENDIF
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「今日はダーメ♪」
					PRINTFORMW スターはイジらしく笑いながら%CALLNAME:MASTER%を浴場の外へ追い出した。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 湯船に浸かったスターと目があう。
					PRINTFORML 長い黒髪をヘアバンドで纏め湯気にうっすらと見えるスターはどことなく色っぽく…
					PRINTFORML 「一目千両、はいここまで」
					PRINTFORMW 顔面に水鉄砲を打たれて名残惜しくも%CALLNAME:MASTER%は脱衣場まで退散した。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
				CASEELSE
					PRINTFORML %CALLNAME:MASTER%が浴場へ入ろうとしたが扉がビクとも動かない…。
					PRINTFORMW 「残念だけど既に対策済みよ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%も一緒に入る？」
					PRINTFORMW 「じゃあ羽根洗って！1人だと洗いにくいのよ」
				CASEELSE

					PRINTFORMW 「カラダ洗ってくれるの？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORMW
				CASEELSE
					PRINTFORMW 「一緒に入りたいなんて、今日だけよもう…」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「何かしようとしたら%CALLNAME:MASTER%が大声だすような事するからね」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（怒り）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
		ELSE
			PRINTFORMW 「………」
			PRINTFORMW 半目のスターに睨みつけられ、%CALLNAME:MASTER%はその場を逃げるように離れた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF FLAG:時間停止
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「部屋にまで来るなんてそこまして私に会いたいのね」
					PRINTFORMW スターは眠い目を擦りながらも、どこか機嫌が良さそうに口元を緩めている。
					PRINTFORMW 「そこまで思われてるなら、まぁ…やぶさかじゃないわ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF FLAG:時間停止
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「…%CALLNAME:MASTER%？」
					PRINTFORML スターは目をうっすらと明けて起き上がろうとする、そんな彼女を%CALLNAME:MASTER%は肩で押し留めた。
					PRINTFORML 「ならベッドの中から失礼するわ。こんな時間に何かあった…？それとも眠れないの？」
					PRINTFORML %CALLNAME:MASTER%は何も言わず、黙ってスターへと寄り添えば、スターは柔らかく微笑み、布団を捲くった。
					PRINTFORML 「いいよ…おいで」
					PRINTFORMW %CALLNAME:MASTER%は招かれるままにスターのベッドへと据わった。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF FLAG:時間停止
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「スゥー…スゥー…んん」
					PRINTFORML 眠るスターは死んだようにベッドで眠っている。
					PRINTFORML 「…あ、%CALLNAME:MASTER%……」
					PRINTFORML スターは重そうな瞼を開けて%CALLNAME:MASTER%を見つめていたが、また眠りへと落ちていった。
					PRINTFORMW 「きっとこれは夢の続き…ね…スゥー…」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		IF FLAG:時間停止
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				CASE 0
					PRINTFORML 「夜は1人で寝れないなんて子供じゃないでしょ？」
					PRINTFORMW
				CASEELSE
					PRINTFORML 「ごめんなさいね。別に1人寝は寂しくないの」
					PRINTFORMW
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		IF FLAG:時間停止
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あぅ…」
					PRINTFORML スターは胎児のように蹲り、ベッドで疲労を癒しているようだ。
					PRINTFORMW %CALLNAME:MASTER%は静かにその場を後にした。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K7_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている仕事量
;--------------------------------------------------
;記入チェック（=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 CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「異種ボードゲーム戦しましょう。私は将棋で%CALLNAME:MASTER%はオセロ」
				CASE 0
					PRINTFORML 「このリボンをつければもっと%CALLNAME:MASTER%は可愛らしくなるわ！」
				CASEELSE
					PRINTFORML スターはさりげなく%CALLNAME:MASTER%に寄り添っている。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「昨日チルノの背中に「⑨」って書いた紙を貼り付けたけどまだついてるのよね…」
				CASE 0
					PRINTFORML 「炎の妖精を連れて来たらチルノと対消滅するのかしら？面白いと思わない？」
				CASEELSE
					PRINTFORML 「お茶を淹れたから休憩しましょう」

			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 1
					PRINTFORML 「サニーとルナは偵察をお願いね。私は後ろから援護するわ！」
				CASE 0
					PRINTFORML 「ここをこうしてくっつけて…あ、千切れちゃった」
				CASEELSE
					PRINTFORML 「危ないって言われるとやりたくなるでしょ？だから危険な遊びはとっても熱中できるわ」
			ENDSELECT
		ENDIF

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「今日はもう終わりにした方が良さそうね」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%なら私の気持ちを理解できるって信じてるわ♪」
					PRINTFORMW %CALLNAME:MASTER%は苦笑しながらスターに料理を差し出した。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「さるお方は言いました。下着を二枚もっている者は持たない者に分けてやりなさい。
					PRINTFORML 「食物を持っている者も同様にしなさい。妖精に美味しい食事を施しをなさい…と」
					PRINTFORMW %CALLNAME:MASTER%が納得いかない顔をしているうちに、スターに料理を食べられてしまった。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あら美味しそうな料理ね。私はさらに美味しい食べ方を教えてあげるわ」
					PRINTFORML 「最初はこのソースをちょっとだけつけるの。ん、美味し♪」
					PRINTFORML 「次にこことここの部分と混ぜると味がまろやかになるの。もぐもぐ…」
					PRINTFORMW 「最後は木の実を振りかけて香ばしくしてから完食。これでいつもの倍美味しく食べられるの。…ケプッ」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋慕
				PRINTFORML 「ハァ…ハァ…%UNICODE(0x2665) *1%」
				PRINTFORMW 「やぁ、ダメ…もっと抱きしめて…%UNICODE(0x2665) *1%」
				PRINTFORML スターが落ち着くまで%CALLNAME:MASTER%は彼女を優しく抱きしめた。
			ELSEIF TALENT:思慕
				PRINTFORML 「こんなに乱暴にされたら壊れちゃう…%UNICODE(0x2665) *1%」
				PRINTFORMW 息絶え絶えに呟くスターはうっとりした%CALLNAME:MASTER%を見あげていた。
			ELSE
				PRINTFORML 「終わり？…なら先にお風呂で洗い流してくるわ」
				PRINTFORML 胸元を隠しながらスターは浴場へと歩き出す。
				PRINTFORML 「悪くなかったわ。けど次はもう少しキモチ良くしてちょうだい」
				PRINTFORML 「…この臭いだけはどうしてもガマンできないのよね」
				PRINTFORMW スターは身体にこびりついた%CALLNAME:MASTER%の体液に眉をひそめた。

		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
					SELECTCASE RAND:3
						;CASE 1
							;PRINTFORML
							;PRINTFORMW
						;CASE 0
							;PRINTFORML
							;PRINTFORMW
						CASEELSE
							PRINTFORML 「あっ、こぼれちゃう…」
							PRINTFORML スターは太股を伝う精液を指に纏わせると、幼い膣の奥へと挿入する。
							PRINTFORML 「んっ…ふぅ…」
							PRINTFORML クチュクチュと膣奥へと纏わりつかせ、いやらしい水の音を響く。
							PRINTFORMW 「大事な%CALLNAME:MASTER%の精液、勿体無いもの…ね」

					ENDSELECT
			ELSEIF TALENT:思慕
					SELECTCASE RAND:3
						;CASE 1
							;PRINTFORML
							;PRINTFORMW
						;CASE 0
							;PRINTFORML
							;PRINTFORMW
						CASEELSE
							PRINTFORML 「ふふ、いっぱい射精したのね」
							PRINTFORML スターは垂れた精液を掬う。
							PRINTFORML 粘着質な精液が、指の間でいやらしく白い糸が引く様を見せ付けてくる。
							PRINTFORMW 「この量以上の精液が私の膣内で泳いでるのね」
							PRINTFORMW 「これじゃあいつか妊娠しちゃうかもしれないわ…クスッ」
					ENDSELECT
			ELSE
					SELECTCASE RAND:3
						;CASE 1
							;PRINTFORML
							;PRINTFORMW
						;CASE 0
							;PRINTFORML
							;PRINTFORMW
						CASEELSE
							PRINTFORML 「やだ、垂れてきちゃってるじゃない…」
							PRINTFORML 「すごい臭い…%CALLNAME:MASTER%は加減って言うものしらないかしら」
					ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			IF FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「ほら見て、%CALLNAME:MASTER%が愛してくれたからもうビショビショ…」
						PRINTFORML スターが見えるように股を広げると、彼女の幼穴はテラテラと愛液に卑猥に濡れていた。
						PRINTFORML 「あのまま倒れちゃうと思ったわ。…もしこのまま続けたら」
						PRINTFORML スターは%CALLNAME:MASTER%との逢引を想像しブルリと震える。
						PRINTFORMW 幼穴から愛液が溢れ丸みをおびた尻まで伝ってぐっしょりと濡れてしまった。
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「ちゃんと気持ちよくしてくれたおかげね…」
						PRINTFORML 「どう？もう1回する？」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「んっ…」
						PRINTFORML スターがぶるりと震えると透明な液体が足元を伝う。
						PRINTFORML 「%CALLNAME:MASTER%ってテクニックだけは一人前なのね…。あれだけ感じてたもの」
						PRINTFORMW 「これでもう少し優しくしくれたらいいんだけど」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後のムード
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			IF FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML スターは%CALLNAME:MASTER%の腕に抱かれ、幸せそうに微笑む。
						PRINTFORML 「私、幸せよ。%CALLNAME:MASTER%と一緒にいられて」
						PRINTFORML 「いつまでもこうしていられたらいいのに…」
						PRINTFORMW %CALLNAME:MASTER%はスターのあどけない笑顔にどこか寂しさを感じた。
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「%CALLNAME:MASTER%とこんな関係になるとは思わなかったわ」
						PRINTFORML 「%CALLNAME:MASTER%ってただの変人かと思ってたけど…一緒にいると楽しいの。ウマが合うって言うのかしらね」
						PRINTFORMW
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORMW 「キモチよくしてくれるならこんな関係も悪くないかもね」
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			IF FLAG:時間停止
			ELSEIF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「ねぇ、服を着せてくれないかしら？」
						PRINTFORMW スターは羞恥心を隠そうとしない裸体のまま、%CALLNAME:MASTER%に自らの服を差し出す。
						PRINTFORML 「%CALLNAME:MASTER%が脱がしたんだから、着せてくれてもいいんじゃない？」
						PRINTFORMW スターの小さな身体はお人形の着せ替えごっこのような可愛らしさを彷彿させる。
						PRINTFORML 幼い子供の甘い匂いに収まりきった欲情に顔を赤くしてると、スターはコツンと%CALLNAME:MASTER%の鼻をつつく。
						PRINTFORMW 「…勝手に盗んじゃあダメよ。欲しい時はちゃーんと伝えて、ね」
				ENDSELECT
			ELSEIF TALENT:思慕
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「んー…私にはやっぱり大きいわね」
						PRINTFORML %CALLNAME:MASTER%が服を着ようとすると、スターは%CALLNAME:MASTER%の服に身を包んで寝転がっていた。
						PRINTFORML 「ふふ、%CALLNAME:MASTER%の匂い…キライじゃないわ」
						PRINTFORMW
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					;CASE 1
						;PRINTFORML
						;PRINTFORMW
					;CASE 0
						;PRINTFORML
						;PRINTFORMW
					CASEELSE
						PRINTFORML 「服なら自分で着るわ」
						PRINTFORML 「あっち向いててもらえる？今発情されて発散するハメになったら疲れちゃうもの」
						PRINTFORMW
				ENDSELECT
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 1
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF FLAG:時間停止
		ELSEIF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「いっちゃうの…？」
					PRINTFORML スターは%CALLNAME:MASTER%の服の端をつまみながら言葉をかける。
					PRINTFORML 「ねぇもう少し…一緒にいましょう…」
					PRINTFORMW 今にも眠りに落ちそうな瞼を開けてトロンとした瞳で、スターは%CALLNAME:MASTER%を見つめていた。
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「ああもう、暖房が逃げちゃうわ…」
					PRINTFORMW 「私も暖かくて%CALLNAME:MASTER%も暖かい。せっかくぬくぬくできたのに」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「これで終わり？これでゆっくり眠れるわ」
					PRINTFORMW スターは大きく伸びをしながら布団を被りなおした。
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K7_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「アっ……！？」
		PRINTFORML 時が流れだすと同時、降りかかる快感にスターは反射的に艶かしい声を漏らす。
		PRINTFORML 人前で声を出してしまった恥ずかしさと快感にスターは口を抑えながらほんのりと顔を赤く染める。
		PRINTFORML 「あ、あれ…？まさか漏らし…いえ、そんなわけないのに」
		PRINTFORML スターは目を泳がせながらスカートを抑え、モジモジと足踏みする。
		PRINTFORML 「あ、%CALLNAME:MASTER%…その、なんでもないから気にしないで…お願い…」
		PRINTFORMW そこに日頃の飄々とした姿はなく、赤面しながら快楽の残痕を必死に誤魔化すスターがいた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「ふああっ！？」
		PRINTFORML 洪水のようなオーガズムに加えて体中を走る刺激に、スターは止める術はなく、ぺたんとその場に尻餅を付いた。
		PRINTFORML 「や、いや…、来ないでっ！はう…っ%UNICODE(0x2665) *1%」
		PRINTFORML 腰砕けになりビクンビクンとスターは痙攣する。助けようと近づく%CALLNAME:MASTER%に悟られまいと無我夢中で手を突きだす。
		PRINTFORML 「とま、止まらないのっ―！？―――ンンッ%UNICODE(0x2665) *1%」
		PRINTFORML 本人の意思とは関係なく次々とはじける悦楽にスターは悶えてしまう。
		PRINTFORMW 「フーッ…%UNICODE(0x2665) *1%フーッ…%UNICODE(0x2665) *1%」
		PRINTFORMW せめて%CALLNAME:MASTER%にはしたない声を聞かれまいと、必死に口を押さえ喘ぎ声を止めようとする。
		PRINTFORMW 「…――%UNICODE(0x2665) *1%……ッ―ッ%UNICODE(0x2665) *1%」
		PRINTFORMW 顔を絶頂と恥ずかしさに真っ赤にさせ震えながら、絶頂が過ぎ去るのを涙を目の端に溜めて待つしかなかった。
	RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「―――ッ！」
		PRINTFORML スターの表情が笑顔のまま凍りつく。
		PRINTFORML いつものにこやかな表情のままだが、スカートから見える足がやけにぎこちない。
		PRINTFORML 「ん？何か用%CALLNAME:MASTER%？」
		PRINTFORML 「ううん別に体調が悪いわけじゃないわ。いつも通りよ、そういつもと同じ」
		PRINTFORML あっけらかんと答えているがスターの表情は焦りと恥ずかしさでりんごのように真っ赤になっていった。
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
			PRINTFORML 「うっ…ンンッ…ゲホッ！ゴホッ！」
			PRINTFORMW 「にがーい…何を飲んじゃったのかしら…？」
		;精液中毒低吐き出し
			PRINTFORML 「ウプッ…うぇっ…！」
			PRINTFORMW スターは口元を拭いながら、吐き出された白い液体を不愉快そうに見下ろす。
			PRINTFORMW 「まだ口に残ってる。変な虫でも潰しちゃったのかしら…うぷっ」
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
			PRINTFORML 「うっ、ゲホッ…！」
			PRINTFORMW スターは精液を手で受け止める。粘つく感触にぞわぞわと寒気を感じながら眉をひそめた。
			PRINTFORML 「うぅっ…見るものじゃないわこんなの」
			PRINTFORMW スターはハンカチで汚れを拭う。汚れたハンカチを惜しみもせず、えいっとその場に投げ捨てた。
			PRINTFORML 「はぁ…こんなの誰のイタズラよ…もう」
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
			PRINTFORML 「…ンクッ」
			PRINTFORMW 粘つく精液をスターはさして抵抗もせず一息に飲み込む。
			PRINTFORML 「フンフンフフン～♪」
			PRINTFORMW 気にも留めずに鼻歌を口ずさむスターの口元から白い液体が一滴、顎を伝い垂れ落ちていった…。
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
			PRINTFORML 「―ッ！ゴホッゴホッ！！」
			PRINTFORML 突然と口内に溜められた濃厚な精液にスターは精液を吐き出そうと激しく咳き込む。
			PRINTFORML 「ゴボッ…！カハッ…！カハッ…！」
			PRINTFORML 濃縮された精液はやたらとスターの喉に絡みつく。涙を流しながら喉元を抑え、酸素を取り込もうとスターは必死に悶える。
			PRINTFORMW 「ハッ―…ハッ―し、死ぬかと思ったわ」
			PRINTFORMW 息苦しさからやっと介抱されたスターは乱れた服装のまま、その場にへたりこんで宙を見上げていた。
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
			PRINTFORML 濃厚な精液がスターの口内を犯す。
			PRINTFORML 「ん………ンクッ、ンクッ…」
			PRINTFORML 目を見開いて驚く表情をするスター、だが次には嬉しそうな表情で喉を鳴らして精液を取り込み始める。
			PRINTFORML 頬をうっとりとしながら抑え、くちゃくちゃと下品な租借音を鳴らしながら精液は喉元を通り過ぎる。
			PRINTFORMW 「フフッ…誰だか知らないけれど、ご馳走様」
			PRINTFORML %CALLNAME:MASTER%の存在に知ってか知らずか、スターは誰とも言わずペロリと舌で唇を舐めながら呟いた。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;無知持ち＆精液経験100未満
		IF ARG:1 == 1
			PRINTFORML 「キャッ…！何！？」
			PRINTFORML 「蜘蛛の糸じゃない？何かヌルヌルしてる…いやぁ」
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
			PRINTFORML 「…これって精液みたいね」
			PRINTFORML スターはぬぐいとったハンカチについた精液を見ながら、不愉快そうに肩を竦めた。
			PRINTFORML 「お気に入りのハンカチだったのに…もう捨てるかしないのねコレ…ハァ」
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
			PRINTFORML 「スン…」
			PRINTFORMW 「んっ…ちゅ…」
			PRINTFORMW 「…癖になる味、フフ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
			PRINTFORML 「…いったい何時の間に？突然手に付いたみたいだわ」
			PRINTFORML スターが首を傾げる。しかし違和感よりも手の不快感を消そうとハンカチで精液拭い去った。
			PRINTFORML 「うぇ…こんなものじゃイタズラの材料にする気も起きないわ」
		;舐めとり
		ELSEIF ARG:1 == 2
			PRINTFORML 「チュプ…ンンッ」
			PRINTFORML 「………おいし%UNICODE(0x2665) *1%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML 「―――ッ！！」
		PRINTFORML 想像しえない箇所の痛みにスターはよろめく。
		PRINTFORML 「何、今の…」
		PRINTFORML ｽﾞｷﾘと未だに痛む下腹部を宥めるように擦る。
		PRINTFORML 湧き上がる吐き気をなんとか押しとどめ、青い表情で人気の無い場所に身を寄せる。
		PRINTFORML 「病気、かしら…。でもこんな場所が痛むなんて一度も…あれ？」
		PRINTFORML スターの視界が揺らぐ。それは涙が勝手にポロポロとこぼれていたから
		PRINTFORMW 「やだ私、何で泣いてるのかしら…これぐらいどうってことない筈なのに･･･」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
				PRINTFORML 「何これ…？」
				PRINTFORML スターはドロリと不快な感触に身体を震わせる。足元には白い液体が数滴落ちていた。
				PRINTFORML 「なんだか男の人のアレにそっくり…」
				PRINTFORML 「このキモチ悪い感触、私の中から出てるの…？」
				PRINTFORML 「違うでしょうけど、ネチョネチョして薄気味悪いったらないわ」
				PRINTFORMW 「帰ったら早くお風呂入ろう」
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
				PRINTFORML 「何これ…？」
				PRINTFORML スターはドロリと不快な感触に身体を震わせる。足元には白い液体が数滴落ちていた。
				PRINTFORML 「なんだか男の人のアレにそっくり…」
				PRINTFORML 「このキモチ悪い感触、私の中から出てるの…？」
				PRINTFORML 「……よくわからないけど、用心にとっておくことしたことはないわ」」
				PRINTFORML スターはポケットから白い錠剤を取り出すと口に含む。
				PRINTFORML 液体の存在はどうあれ、何かしら対策をとっておくことでスターの不安は薄らいだ。
				PRINTFORMW 「こんなことで使うハメになるなんて、思いもしなかったわ」
		;処女膣内射精
		ELSEIF ARG:1 == 3
				PRINTFORML 「――ッ！？」
				PRINTFORML 湧き上がる鈍痛。深いな液体な感触。次々と襲い繰る恐怖にスターは耐え切れなかった。
				PRINTFORML 口元を押さえて人気の無い場所へ駆け込む。不快感にまとわり疲れたスターは、胃の中のものを全て吐き出した。
				PRINTFORML 「ウェ…ゲホッ…ゲホッ！」
				PRINTFORML 涙交じりに足元を見やる。赤い鮮血と白い液体が混じりあったそれにに底気味悪い恐怖を感じ、また嘔吐を繰り返す。
				PRINTFORML 「ハァ…ハァ…何なの…何なのよもう」
		RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K7_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「いつも思うわ。%CALLNAME:MASTER%の赤ちゃんを産みたいって」
					PRINTFORML 「でも私達の子供を幸せにするにはまだ準備が足りないの。だから、今は…ね？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「じゃあキモチいいことしよ…の前に」
					PRINTFORML 「何か会った時のための準備をしておきましょ」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%、アレはもちろん用意してる？」
					PRINTFORML 「%CALLNAME:MASTER%と避妊に失敗した結果を残すのはゴメンだもの」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「%CALLNAME:MASTER%と愛し合う時は幸せ」
					PRINTFORMW 「だからそこから不幸が生まれるなんてこと、起きて欲しくないの。わかって？」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「いつものイタズラの威光返し？」
					PRINTFORMW 「何度言われてもダメなものはダメよ」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				;CASE 1
					;PRINTFORML
					;PRINTFORMW
				;CASE 0
					;PRINTFORML
					;PRINTFORMW
				CASEELSE
					PRINTFORML 「あらあら、春を独り占めするとこうなっちゃうのかしらね。気をつけないと」
					PRINTFORMW 「イヤよ。私にも%CALLNAME:MASTER%の春が感染したら大変だもの」
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML 「…私は%CALLNAME:MASTER%のおもちゃなんかじゃないわ」
			PRINTFORML 「こんなことするなんて%CALLNAME:MASTER%じゃない」
			PRINTFORMW 「…誰、あなたは」
			PRINTFORMW スターは氷のような瞳で%CALLNAME:MASTER%を見上げた。
		ELSEIF TALENT:思慕
			PRINTFORMW 「そんなにしたいのなら適当な妖精でも誘ったらどう？」
		ELSE
			PRINTFORML 「……ああ、そういうこと」
			PRINTFORMW 「ただ私を怒らせたいだけなのね、勉強になったわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML 「避妊しないのはちゃんと決めた日だけね」
			PRINTFORMW スターは%CALLNAME:MASTER%の股間を挑発するようにまさぐる。
			PRINTFORMW 「ほら…お預けしたからいつもより大きい。…いっぱい楽しめそう%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORML 「赤ちゃんができない日ならいいわ」
			PRINTFORMW 「私%CALLNAME:MASTER%を直に感じたいもの%UNICODE(0x2665) *1%」
		ELSE
			PRINTFORML 「はぁ…しょうがないわね」
			PRINTFORMW 「今回は私が折れるわ。だけど、危険日以外だけよ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
			IF CFLAG:318 == 1
				PRINTFORMW
			ELSEIF TALENT:恋慕
				PRINTFORML 「私がこんなにガマンしているのに、そうまでして%CALLNAME:MASTER%は私との子供が欲しいのね」
				PRINTFORMW 「ええ、私も覚悟決めた。%CALLNAME:MASTER%との赤ちゃん…私に産ませて」
			ELSEIF TALENT:思慕
				PRINTFORML 「そんなに頼まれたら何だか私も許したくなってしまいそう」
				PRINTFORML 「でも…あと一押し欲しいのよね。なんだかわかる」
				PRINTFORML スターは%CALLNAME:MASTER%にピットリと身体を寄せる。
				PRINTFORML 「忘れられない程、気持ちよくしてくれないかしら」
				PRINTFORMW 艶かしい上目遣いで見上げてくるスターを%CALLNAME:MASTER%は否応もなく押し倒した。
			ELSE
				PRINTFORML 「どうなってもいいのなら…妊娠させてもいいわ」
				PRINTFORML スターは%CALLNAME:MASTER%の耳元で微笑みかけながら囁く。
				PRINTFORML 「絶対に逃がさないから」
				PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K7_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「ありがとう%CALLNAME:MASTER%。安心して、イタズラはある程度自粛するわ」
		PRINTFORML 「…え？あの2人と離れて大丈夫かって？」
		PRINTFORML 「寂しくないなんて思ったら嘘になるわ」
		PRINTFORML 「サニーとルナの2人とはいつも一緒だったしね。始めて会った時を忘れちゃったぐらいだもの」
		PRINTFORML 「でも別に今生の別れというわけじゃないし、別れてもまた復活するし」
		PRINTFORML 「それに…今は%CALLNAME:MASTER%の傍にいたいの」
		PRINTFORMW 「さ、早く引越しを終わらせなくちゃ。%CALLNAME:MASTER%も手伝ってね」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「あーあ、やっぱり%CALLNAME:MASTER%はお見通しのようね、残念」
		PRINTFORML 頬に手をあてスターがタメ息をつく。
		PRINTFORML 「神社の近くに引越した時のように、うまくはいかないのねー」
		PRINTFORMW 「でも、もし本当に一緒に暮らしたくなったらまた声をかけるかも、ね」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K7_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML 「あらもうこんな時間。帰らないと」
			PRINTFORML 「けど大変、やり残した事があるの。%CALLNAME:MASTER%、急いで顔を貸して頂戴」
			PRINTFORML %CALLNAME:MASTER%が言われるまま顔を近づけると、頬に柔らかいスターの唇の感触が当った。
			PRINTFORMW 「お別れのキス。じゃあね%CALLNAME:MASTER%♪」
		ELSEIF TALENT:思慕
			PRINTFORML 「それじゃあね%CALLNAME:MASTER%。また明日遊びましょう」
			PRINTFORMW 「次は引っかかりたくなるようなイタズラを用意しておくわ」
		ELSE
			PRINTFORML 気がつくとスターはいつのまにかいなくなっていた。
			PRINTFORMW 恐らく住処に戻ったのだろう。
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML 「さ、デートはまだまだこれからよ！」
			PRINTFORML 「え…もう終わり？…遊び足りないけど、しょうがないわね」
			PRINTFORMW %CALLNAME:MASTER%は別れの挨拶にスターを撫でると、嬉しそうに目を細める。
			PRINTFORML 「うふふ、これなら楽しく今夜は眠れそうね」
			PRINTFORML 「じゃあね%CALLNAME:MASTER%。良かったら夢の中で会いましょう」
		ELSEIF TALENT:思慕
			PRINTFORML スターはゴキゲンに手に持った風車を回している。
			PRINTFORML 「今日行った事は他の人には内緒よ？」
			PRINTFORML 「こんな楽しい事を教えるなんて勿体無いわ！」
			PRINTFORMW 「だからまたデート行きましょうね、約束よ%CALLNAME:MASTER%」
		ELSE
			PRINTFORML 「2人と行動しないのも新鮮で良かったわ。ありがと」
			PRINTFORMW 「また誘ってもらえるかしら？それじゃあさよなら」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML スターは%CALLNAME:MASTER%の腕へ絡みつく。
			PRINTFORML 「ね…今夜は、泊まっていってもいい…？」
			PRINTFORML 切なげに見つめてくるスターに、%CALLNAME:MASTER%は息を呑み…
			PRINTFORMW 「いやねぇ、%CALLNAME:MASTER%ったら真に受けちゃって。でもそんなところがカワイイわ」
			PRINTFORML 「泊まりたくなったらちゃんと色々用意するから。バイバイ%CALLNAME:MASTER%♪」
		ELSEIF TALENT:思慕
			PRINTFORML 「今度は他の妖精も連れて遊びに来るわね」
			PRINTFORML 「%CALLNAME:MASTER%ならきっと皆気に入るはずよ」
			PRINTFORMW 「ただし…コップ一杯のミルクとビスケットがないと…%CALLNAME:MASTER%の家がアスレチックにされちゃうかも」
			PRINTFORMW 「期待しているわ。じゃあまた明日」
		ELSE
			PRINTFORML 「お見送りだなんてこの家からまだ何も盗ってないわよ」
			PRINTFORMW 「ふぅ…抜け目がないんだから…じゃ、イタズラ成功させにまた来るわね」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K7_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「…私、病気を患っちゃったみたい」
		PRINTFORMW 積み重ねられた本を前に、スターは1人ベッドにうつぶせになっている。
		PRINTFORML 口元から胸に灯った熱時折吐き出すと、気持ちのわだかまりをイヤでも感じてしまう。
		PRINTFORMW 「キノコの盆栽も手につかず…このままじゃカビまみれ」
		PRINTFORMW 「きっといつか砂糖と塩を間違えてサニーとルナに顰蹙をもらうわ」
		PRINTFORML メガネ店主の店からくすねた恋物語を綴った本を手に取る。
		PRINTFORMW スターは物語の人物に自分を重ねると、頬が燃えるように熱くなり、たまらず手に頬をあてて冷やした。
		PRINTFORML 「はぁ…らしくないわこんなの。私がこんな簡単に病気になってしまうなんて」
		PRINTFORML 「いっそ旧地獄に湯治にでもいこうかしら」
		PRINTFORML 寝返りをうてば黒髪がスターの身体を覆い隠す。ツヤの良い髪は色あせる事はない黒いダイヤのよう。
		PRINTFORML %CALLNAME:MASTER%に綺麗と言って欲しくていっそう手入れに力を入れていたおかげだ。
		PRINTFORMW 「ああ…でもこの夢うつつな病気はいつまでも味わっていたいわ…」
		PRINTFORML 「こんなに誰かを好きになったのなんて…初めてだもの」
		PRINTFORML 「ウフフ、このまま私と%CALLNAME:MASTER%は、どうなってしまうのかしら」
		PRINTFORMW 「とっても楽しみね…」
		PRINTFORML
		PRINTFORML
		PRINTFORML
		PRINTFORML
		PRINTFORML
		SIF TALENT:5:恋慕
			PRINTFORMW ［ごめんなさいね…サニー」
		SIF TALENT:6:恋慕
			PRINTFORML 「ルナはこんな私を許してくれるかしら」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「最初に会った時はただの変人だと思ったわ」
		PRINTFORML 「私達妖精に進んで会おうとするなんて、ウサ晴らし目的か如何わしい輩ばかりだもの」
		PRINTFORML 「でも実はそうじゃないみたい」
		PRINTFORML 「こっちが突っ慳貪な態度とっても気にしないしやけに優しいし」
		PRINTFORML 「…ちょっとだけイヤらしい所はあるけど、今までの人間に比べたら安心して遊べるわ」
		PRINTFORML 「今はもう%CALLNAME:MASTER%は一緒にいて楽しい変人ね」
		PRINTFORML 「だから…少しは心を許しあげてもいいかも」
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「あっ、はぁ…んっ」
		PRINTFORML ある木の陰で2人の人影が、情事に耽っていた。
		PRINTFORML 「んっ、これぇ…すごいっ%UNICODE(0x2665) *1%」
		PRINTFORML 打ち付ける肉の音に響く水音、甘美に溺れる息遣いが森のさざめきに混じる。
		PRINTFORML 「あっ、あっ、あっ、あっ、ああっ%UNICODE(0x2665) *1%」
		PRINTFORML 音の感覚が早まり2人が1つに重なった数秒後、痙攣を繰り返しながらその場に崩れ落ちた。
		PRINTFORML 「ふふ…いっぱい射精したわね…お腹がパンパン…」
		PRINTFORML 未だ快感に震えるスターは熱を持ったお腹を摩りながら呟く。
		PRINTFORML ドロリとした濃厚な液体がスターの蜜壷からとめどなく溢れた。
		PRINTFORML 「まだできるでしょ…？もっとしましょ…」
		PRINTFORML 「溶けて２人が１つになるぐらいずっとずっと…ンッ」
		PRINTFORMW 愛欲に溺れる2人の行為は、終わることは無い。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「私と%CALLNAME:MASTER%の関係ってなんなのかしら…」
		PRINTFORML 「恋人は体を重ねるけどこんな節操なくＨしないんじゃない？」
		PRINTFORML 「なら友達？いいえ、私は%CALLNAME:MASTER%を恋しいと思うもの。ちょっとしかないけど」
		PRINTFORML 「友情も愛情も足りない気がするわ。あるのは…欲情ね」
		PRINTFORML 「性欲を発散しあう関係……。きっと私は%CALLNAME:MASTER%の愛人かもしれないわ」
		PRINTFORMW 「私は%CALLNAME:MASTER%と愛しあれば…なんでもいいの%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML 「あら%CALLNAME:MASTER%、どうしたの？」
		PRINTFORML 「たまってるの？…私が動くの面倒だから、自分で動いてくれるならいいけど」
		PRINTFORML 「…はい脱いだから後はご自由に…」
		PRINTFORMW 「…ンッ」
		PRINTFORML 「んっ、ふぅ……ねぇ最近毎日じゃない？」
		PRINTFORML 「…まぁ%CALLNAME:MASTER%とシてるとキモチいいから別にいいけど…ッ%UNICODE(0x2665) *1%」
		PRINTFORML 「アッ･･･ンッ…いきそうなの…？私もそろそろ、ンンッ%UNICODE(0x2665) *1%」
		PRINTFORMW 「―――――ふぁ%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K7_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「サニーもルナももう寝たよね…？」
		PRINTFORML 「んっ……ふぅっ……」
		PRINTFORML 「こんな姿、見せられないわ…んんっ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「んっ、んふぅ…んっ、くぅん…」
		PRINTFORML 「%CALLNAME:MASTER%が近くにいるのに…」
		PRINTFORML 「んむっ……んぅ」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「ん…ふぅっ…すごい臭い…」
		PRINTFORML 「はぁっ、ぁぁぁ…」
		PRINTFORMW 「こんなに射精したら、いつかきっと妊娠しちゃう…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
			PRINTFORML 「そっか…これが…」
			PRINTFORML 「うん、人間達がいっぱい繁殖するのもわかるわ」
			PRINTFORML 「だってこんなこと…やめられないもの……あっ%UNICODE(0x2665) *1%」
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		ELSEIF LOCAL:1 >= 20
			PRINTFORML 「はっ、んぅ、ふぅっ、はぁっ%UNICODE(0x2665) *1%」
		ELSEIF LOCAL:1 >= 15
			PRINTFORML 「私…あっ…何やってるの…あんっ」
			PRINTFORML 「こんな変なこと…でもっ、キモチイイ…%UNICODE(0x2665) *1%」
		ELSEIF LOCAL:1 >= 10
			PRINTFORML 「あっ、ここ擦ると…ひゃっ！」
			PRINTFORML 「…もう一回」
		ELSEIF LOCAL:1 >= 5
			PRINTFORML 「んー…なんだか眠れない…」
			PRINTFORML 「…んっ」
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML 「うあっ！ああっ、はぁ、はぁ…あっ」
		PRINTFORML 今まで感じた事のない幸福感がスターを包み込む。
		PRINTFORML 「ああっ、やぁっ、あっ、ああ%UNICODE(0x2665) *1%」
		PRINTFORML それは引いては満ちてを繰り返し収まることはない
		PRINTFORML 「ひぅっ、んんぅぅ%UNICODE(0x2665) *1%」
		PRINTFORML ただ、本能が求めた快感を貪り堕ちていく。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML 自慰に耽っていたスターの身体がビクンと跳ねる。
		PRINTFORML 「ふぅ・・・んっ、ぅぅっ」
		PRINTFORML 夢うつつに天井を見て快楽に呆けるスター。
		PRINTFORML 「あっ、はぁ…あはぁ%UNICODE(0x2665) *1%」
		PRINTFORML 愛液まみれになった指は濡れた陰裂の溝に沿って快楽を求めるがままに動かしつづける。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K7_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML 「今日は先約があるの。…ルナやサニーとね」
			PRINTFORML 「もう２人に嫉妬しちゃダメよ」
		ELSEIF TALENT:思慕
			PRINTFORML 「エッチ、スケベ、ヘンタイ♪」
			PRINTFORMW スターに笑顔で罵られた…。
		ELSE
			PRINTFORML 「堂々と覗き宣言？あっけにとられちゃった」
			PRINTFORMW 「それともジョーク？とんでもなく面白くないわ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:318 == 1
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORML 「？そんなこと聞かなくても一緒に入るつもりよ」
			PRINTFORMW 「入ってもらえないとでも思うなんて、ふふ…カワイイわね%CALLNAME:MASTER%って」
			PRINTFORMW 「%CALLNAME:MASTER%のモノなんだから、%CALLNAME:MASTER%が私をキレイにしちょうだいね%UNICODE(0x2665) *1%」
		ELSEIF TALENT:思慕
			PRINTFORML 「私の黒髪、キレイって羨ましがられるけど洗うのとっても大変なの」
			PRINTFORMW 「%CALLNAME:MASTER%が一緒に手伝ってくれるなら助かるわー。よろしくね」

		ELSE
			PRINTFORML 「%CALLNAME:MASTER%が見ざる触れざる勃たざるの三猿を演じてくれるならお風呂一緒に入ってあげる」
			PRINTFORMW 「…え、本当に演じてくれるの？せいぜい頑張ってね」
			PRINTFORMW
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K7_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「私のお腹の中にもう１つ気配を感じるの」
		PRINTFORML 「…うん、%CALLNAME:MASTER%と私の子」
		PRINTFORML 「私がママになれるなんて…嘘みたい。でも本当のことなのね」
		PRINTFORML 「まだ小さいから動くこともできない。けどわかるわ」
		PRINTFORML 「私、幸せよ。%CALLNAME:MASTER%の子を授かれて」
		PRINTFORML 「星に願いをこめて…この子も幸せにしましょう」
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「あ、%CALLNAME:MASTER%。赤ちゃんできたわ」
		PRINTFORML 「残念だけど嘘でもチェンジリングでもないわ。正真正銘%CALLNAME:MASTER%の子」
		PRINTFORML 「だってわかるもの。私の%CALLNAME:MASTER%の中に気配が増えたから」
		PRINTFORML 「ああ私達ったら可哀想！どこの誰かとも知れない人にキズものにされて捨てられて…」
		PRINTFORML 「でもこの子は私1人で身を削ってでも育てて見せるわ。強く生きて我が子よ。ヨヨヨ…」
		PRINTFORML 「…なんて事にならないわよね？優しい%CALLNAME:MASTER%なら」
		PRINTFORML 「うん、じゃあこれから末永くよろしくお願いね%UNICODE(0x2665) *1%」
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 「一応伝えとくけど私、%CALLNAME:MASTER%の赤ちゃんできたから」
		PRINTFORML 「あ、別に育てろとは言わないわ。この子は私が育てるの」
		PRINTFORML 「最初は戸惑ったけど、うちは妖精3人いるんだから1人増えるぐらいとなんてことないわ」
		PRINTFORML 「何故って？うーん、私は%CALLNAME:MASTER%に身体を許したけどあまり信頼していないの」
		PRINTFORML 「%CALLNAME:MASTER%を愛してもいないのに夫婦にはなれないしね」
		PRINTFORML 「さ、生まれてくる私の赤ちゃんの為におくるみを用意しなくちゃ」
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 「…驚いた。妖精の赤ちゃんって花の中からできると思ったけど、別にそんなことなかったのね」
		PRINTFORML 「しかもお腹の中にできるなんて、このままじゃ不便でしょうがないわ」
		PRINTFORML 「何か宿るような物でも食べたかしら…桃？西瓜？大根？」
		PRINTFORML 「しばらくは畑泥棒やめた方がいいわねこれは」
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K7_25(ARG,ARG:1)
;口上主はLOCAL
;ARG:1	何人目の子供か
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「まぁ見て%CALLNAME:MASTER%。私があれ程産みの苦しみを味わったのに可愛らしい寝顔をしてるわ」
		PRINTFORML 「なんて薄情な子なのかしら。親の顔が見てみたいわね%CALLNAME:MASTER%」
		PRINTFORML 「%CALLNAME:MASTER%の手、私がずっと握ってたら赤くなってしまってるわね。…ごめんなさい」
		PRINTFORML 「%CALLNAME:MASTER%が近くで見てくれたから私頑張れたの。猫の手じゃこうはいかないでしょうね」
		PRINTFORML 「……とても不安だったの。この子を無事に産んであげられるか」
		PRINTFORML 「サニーやルナの前ではいつも通りの調子でいたけど、%CALLNAME:MASTER%が傍にいてくれたから気楽に不安になれたわ」
		PRINTFORMW 「ありがとう…%CALLNAME:MASTER%」
		PRINTFORML

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「あら、遅かったじゃない%CALLNAME:MASTER%」
		PRINTFORML 「ほら、赤ちゃんも無事生まれたわ。顔を見せてあげて」
		PRINTFORML 「…うん、とっっても痛かった。一回死んだ方が楽だったかもしれないわ」
		PRINTFORML 「こんな痛くしてくれたんだから頬の一つで抓っちゃおうかと思ったけど…」
		PRINTFORML 「そんな考え、この子の寝顔を見ただけで吹き飛んじゃった」
		PRINTFORML 「本当、まるで妖精みたい。私が独り占めしたいぐらいね」
		PRINTFORML 「うふふ冗談よ。この子の半分は%CALLNAME:MASTER%なんだから一緒に育てましょ」
		PRINTFORMW 「改めてよろしくお願いするわ。%CALLNAME:MASTER%…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML 巨大な大木から妖精達の慌しい声が聞える。
		PRINTFORMW だが%CALLNAME:MASTER%はその大木の中へ入ることはできない。
		PRINTFORML
		PRINTFORML
		SETCOLOR COLOR("水色")
		PRINTFORML 「……ぁ……ぅ……ッ！」
		RESETCOLOR
		PRINTFORML
		SETCOLOR 255,230,250
		PRINTFORML 「がんばってスター！もう少し…もう少しだから！」
		RESETCOLOR
		PRINTFORML
		SETCOLOR C_CREAM
		PRINTFORML 「あ、ああ、頭出てきたっ…こ、これ持って上げた方がいいわよね？」
		RESETCOLOR
		PRINTFORML
		PRINTFORML 出産の痛みに苦悶の声をあげるスター。%CALLNAME:MASTER%は傍にいることも許されず、大木の前に佇む。
		PRINTFORMW 仲間の妖精達がスター達に応援の声をかけているのがかすかに聞える。
		PRINTFORML
		PRINTFORML
		SETCOLOR COLOR("水色")
		PRINTFORML 「――――ッッ！！！」
		RESETCOLOR
		PRINTFORML
		SETCOLOR 255,230,250
		PRINTFORML 「スター！私達がついてるから大丈夫！任せなさい！」
		RESETCOLOR
		PRINTFORML
		SETCOLOR C_CREAM
		PRINTFORML 「はい、ヒッヒッフー…ヒッヒッフー…！あとちょっとよスター！」
		RESETCOLOR
		PRINTFORML
		PRINTFORML ここにいても%CALLNAME:MASTER%は何もできないもどかしさに肩を落とす。
		PRINTFORMW せめてスターにいらぬ不安を湧かせないよう、その場から立ち去る。
		PRINTFORML
		SETCOLOR 255,230,250
		PRINTFORML 「やったあ産まれた！ほら、スターそっくりだよ！」
		RESETCOLOR
		PRINTFORML
		SETCOLOR C_CREAM
		PRINTFORML 「本当にお疲れ様スター。ええと、産湯とタオルと……」
		RESETCOLOR
		PRINTFORML
		SETCOLOR COLOR("水色")
		PRINTFORML 「ッハァ…ッハァ」
		PRINTFORML 「ありがとう…サニー…ルナ…」
		RESETCOLOR
		PRINTFORML
		PRINTFORML %CALLNAME:MASTER%は遠くから聞える赤ん坊の泣き声を背に、あてもなく歩いていった。
		PRINTFORML
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML 母親になった妖精は、硝子窓から夜空を眺めていた。
		PRINTFORML
		PRINTFORML 「きらきら光る―――夜空の星よ―――」
		PRINTFORML
		PRINTFORML うぶ声をあげていた赤子は、母の腕の中で気持ち良さそうに眠りに落ちる。
		PRINTFORML
		PRINTFORML 「あなたはいったいだあれ？―――」
		PRINTFORML
		PRINTFORMW スターは我が子へ歌を紡ぐ。心地よい眠りへと誘うために
		PRINTFORML
		PRINTFORML 「はるかな空たかく―――」
		PRINTFORML
		PRINTFORML スターは我が子へと幸せそうに微笑みかける。どこか陰りのある表情で
		PRINTFORML
		PRINTFORML 「お空のダイヤモンドみたい―――」
		PRINTFORML
		PRINTFORML 夜空の星達は煌き、花束を解きほぐしたように大きな星々が燦めいていく。
		PRINTFORML
		PRINTFORML 「きらきらきらめく―――ちいさなお星さま―――」
		PRINTFORML
		PRINTFORMW スターは何故星達がどうして光っているのだろうとふと考えた。
		PRINTFORML
		PRINTFORML 「君はいったい何ものなの？―――」
		PRINTFORML
		PRINTFORML だけど、すぐに考えるのをやめた。
		PRINTFORML
		PRINTFORMW 我が子も星も、こんなにも輝いてキレイならそれでいいかな、と。
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K7_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「…%CALLNAME:MASTER%？」
				PRINTFORMW スターはどこか切なげな表情で%CALLNAME:MASTER%の顔をぼんやりと見ている。
			ELSEIF TALENT:思慕
				PRINTFORML 「あれ…ここまで来ちゃったの…」
				PRINTFORML 「せっかくいいところだったのにぃ…」
			ELSE
				PRINTFORML 「え、あ…あらどうして気付かなかったのかしら」
				PRINTFORMW 「こんな近くまで来てたのに、あ…あらあら」
				PRINTFORMW スターはいつもの澄ました調子で話そうとするが
				PRINTFORML 恥ずかしさと気持ちよさにのせいでちぐはぐな言葉しか発せなかった。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「――――――……」
				PRINTFORMW スターは何も言わない。ただその目は熱を篭もった瞳で%CALLNAME:MASTER%を見つめている。
			ELSEIF TALENT:思慕
				PRINTFORML 「%CALLNAME:MASTER%にはわからないのかしら…熱中していた時に間を刺されるのがどんなに残酷か」
				PRINTFORMW 「特に気分が高揚すればするほど辛いのに…」
			ELSE
				PRINTFORML 「…早く出てって頂戴」
				PRINTFORMW
			ENDIF
			RETURN 1

		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「%CALLNAME:MASTER%――…%CALLNAME:MASTER%――…」
				PRINTFORMW スターは%CALLNAME:MASTER%の名前を呼びながら一心腐乱に自分を慰め始めた。
			ELSEIF TALENT:思慕
				PRINTFORML 「あ、でも見られてするのも結構キモチいいかも…」
				PRINTFORMW 「ん……あはぁ……」
			ELSE
				PRINTFORML 「――…」
				PRINTFORMW スターは%CALLNAME:MASTER%を睨みつけてる。しかし身体に隠した布団の裏で手をモゾモゾと動かしいるようだ。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「……どうして来てくれないの？」
				PRINTFORMW 「%CALLNAME:MASTER%がイヤなら、さみしいけどそれでもいいわ」
			ELSEIF TALENT:思慕
				PRINTFORML 「気が散るからそろそろ出てってちょうだい」
				PRINTFORMW
			ELSE
				PRINTFORML 「でてって！はやく！でてってえぇぇ！！」
				PRINTFORMW 涙目で狼狽するスターを満足行くまで視姦した後%CALLNAME:MASTER%はその場を逃げ出した。
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML %CALLNAME:MASTER%は何も言わずスターを抱きしめ、ベッドへと押し倒す。
				PRINTFORMW 「うれしい…%UNICODE(0x2665) *1%」
				PRINTFORML 「乱暴にしちゃイヤよ。優しくしてね？」
			ELSEIF TALENT:思慕
				PRINTFORML 「%CALLNAME:MASTER%が手伝ってくれるの…？」
				PRINTFORMW 「もう、今夜だけよ？」
			ELSE
				PRINTFORML 「ちょっと、何考えてるの…？」
				PRINTFORMW 「イヤッ、ヤメッ…！」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋慕
				PRINTFORML 「%CALLNAME:MASTER%は知ってたと思うけど、来るのはわかってたの」
				PRINTFORMW 「そうでもしないと、%CALLNAME:MASTER%が私を抱いてくれないじゃない%UNICODE(0x2665) *1%」
			ELSEIF TALENT:思慕
				PRINTFORML 「無理やりされるってのも悪くないかも…」
				PRINTFORMW 「自分でするよりキモチ良かったもの%UNICODE(0x2665) *1%」
			ELSE
				PRINTFORML 「%CALLNAME:MASTER%って本当に最低ッ」
				PRINTFORMW (でもキモチ良かったなんて言えないわね…)
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K7_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「あら丁度いいところに」
			PRINTFORML 「ちょっとおでかけしたいけどサニーとルナも用事で行けないの」
			PRINTFORML 「私なんて吹けば飛ぶような妖精１人。心もとないわ」
			PRINTFORMW 「%CALLNAME:MASTER%なら身代わ…頼りになるし一緒に来てくれないかしら？」

			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「よろしくお願いするわね%CALLNAME:MASTER%」
			PRINTFORMW 「無事帰ったら甘味おごらせてあげる」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「まあ%CALLNAME:MASTER%ったら忙しいのね？」
			PRINTFORML 「狭い幻想郷そんなに急いでどこに行くのかしら」
			PRINTFORMW 「残念だけどしょうがないわね」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「お掃除をしたいのだけど人手が足りないの」
			PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれる？」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORMW 「じゃあよろしくお願いするわね」
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			PRINTFORML 「お掃除がしたくてしたくてたまらない顔してたけど…気のせいだったのかしら？」
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K7_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
			PRINTFORML 「もうせっかちなんだから…」
			PRINTFORMW 「%CALLNAME:MASTER%の前だけよ？何も着ない私を見せるなんて…%UNICODE(0x2665) *1%」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;下着姿にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				PRINTFORML 「子供っぽい下着だと思うでしょ？」
				PRINTFORML 「サニーやルナの方がもっとお子様よ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱ぎ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			;時間停止時
			IF FLAG:70
			;通常
			ELSE
				PRINTFORML 「全部脱がないほうがいい？そう…？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;パンツちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「フフ…私の下着でヘンタイさんは何をする気なのかしら？」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「…変な事に使わないでね？」
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 1
				;-------------------------------------------------
				IF LOCAL:1
					PRINTFORML 「ダメ♪」
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML 「もっとしたいけどっ…もうげんかいっ…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML 「～♪」
		PRINTFORMW スターは満足したのか上機嫌で%CALLNAME:MASTER%から離れた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML 「じゃあ次は私の番ね」
		PRINTFORMW 「%CALLNAME:MASTER%は満足してみたいけど、私はまだ%CALLNAME:MASTER%を貪りたいの」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML 「スイッチを入れたのは…%CALLNAME:MASTER%なんだからね」
		PRINTFORMW 「身も心も快楽に沈んで、底までいきましょう…%UNICODE(0x2665) *1%」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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

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

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

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

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

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

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

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

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

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

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/スターサファイア/M_KOJO_K7_イベント.erb