code:
;-------------------------------------------------
; eraTW4.571用 エレン口上セット Ver0.67
;時止めとか少しは考慮し出した純愛口上
;-------------------------------------------------
;
;エレン先生ときゃっきゃうふふしたい人用の口上です、ラブラブからマブダチまで幅広く…対応していません
;あなたがエレン先生を攻略する感じ、あなたに魅力があろうが魅惑的だろうが一目惚れはありません、あしからず。一目惚れ実装したらゲームバランスが崩壊するし
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;前提としてオリジナル作者以外が手を入れる場合は、オリジナル作者の許可を求めること
;オリジナル作者とコンタクトが取れない場合には以下の但し書きに従ってUPできるかどうか判断してください。

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

;本口上の加筆・改変について（許可する行為のみ残してください）
;【未記入部位加筆】【ランダム分岐加筆】【記入済部位加筆】

;本口上に対するメンテナンス禁止時限について（設定しない場合、未設定のみ残してください）
;【未設定】

;本口上に対するその他但し書き
;
;--------------------------------------------------
;エレンの初期能力、素質、経験など
;--------------------------------------------------
;体力 1800　気力 1300
;□ 能力
;欲望１、清掃技能３、戦闘能力１、料理技能２
;□ 素質
;処女、気丈、素直、好奇心、陽気、貞操観念、恥薄い、習得遅い、針さばき、調合知識、汚臭敏感、献身的
;快感に素直、魅力、小柄体系、絶壁、鼓舞
;□ 経験
;なし
;□ 相性
;対　なし
;被　ナズーリン:50（実際はエレンじゃなくてソクラテスだけどね）
;□ 仕事情報
;職種　魔法屋の出張
;日時　毎月五、十五、二十五日　14時～19時（十五日かつ天気が晴れか快晴の場合14時～21時）
;場所　里の広場

;--------------------------------------------------
;いろいろとめもー（ネタバレややあり）
;--------------------------------------------------
;デート帰りキスで思慕をつけるか、思慕が付いた後に遭遇すると恥薄いが恥じらいに変化
;恋人をつけると恥じらいor恥薄いが消滅
;会話の分岐確率は、親密に応じた会話と季節、天候時間に応じた会話が25%、汎用会話が50%(色々と変更済み)
;汎用会話選択時、あなたの体力か気力どちらかが500以下だと20%で回復薬イベントが発生
;あなたの教養が３以上かつエレンに恋人or恋慕or思慕が付いてる際に会話するとたまに弟子入りイベントが発生、
;コマンド「勉強」、「戦闘訓練」でそれぞれ「魔法学習経験」、「魔法実技経験」が上がる様になる(CFLAG利用のため見えません)
;魔法を成功させると「魔法成功経験」が上昇する。上昇量は使った魔法による
;魔法学習経験が100以上、魔法実技経験が80以上、魔法成功経験が50以上になるとあなたが「調合知識」を獲得
;初めて会った日から１年後、初めて会った場所でエレンと会話するとイベント（エレンに恋人と恋慕必須）
;２周年以降も同条件で発生、ただし初回のを起こしてないと発生しない
;新妻エレン可愛い（TWに婚姻はまだ実装されていません）
;PRINTFORMW まだ暫定メッセージなり（・∀・） まだ暫定メッセージなり（・∀・）
;%UNICODE(0x2665)% ハートマーク
;******************************************************************************
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;□ 関数
;M_KOJO_MESSAGE_EVENT_K44_RICE おにぎり用関数
;M_KOJO_MESSAGE_EVENT_K44_EX_TALK 特別な日の挨拶
;M_KOJO_MESSAGE_COM_K44_300_1_HANYO 汎用会話用関数
;M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH 月見会話用関数
;M_KOJO_MESSAGE_EVENT_K44_MAGIC 弟子イベント用関数
;M_KOJO_MESSAGE_COM_K44_414_1_SYOKU 食事会話用関数
;M_KOJO_MESSAGE_EVENT_K44_NINSIN 妊娠後会話用関数
;M_KOJO_MESSAGE_EVENT_K44_OPTION 口上オプションの設定

;□ FIRSTTIME
;FIRSTTIME(1001) 名古屋のあれ
;FIRSTTIME(1002) マミドバーガー
;FIRSTTIME(1003) ボロ小屋会話
;FIRSTTIME(1021) 初エッチ
;FIRSTTIME(1022) 初めてイった際の終了時セリフ
;FIRSTTIME(1029) 初めて御香を使った
;FIRSTTIME(1030) 初めて巨乳魔法を使った
;FIRSTTIME(1031) 初めて御香を使った（終了時）
;FIRSTTIME(1032) 初めて巨乳魔法を使った（終了時）
;FIRSTTIME(1033) 御香関連
;FIRSTTIME(1051) 初めて噴乳した際の特殊処理

;□ CFLAG
;CFLAG:1001 初めて会った月
;CFLAG:1002 初めて会った日
;CFLAG:1003 初めて会った場所
;CFLAG:1004 ふられフラグ
;CFLAG:1007 弟子入りフラグ
;CFLAG:1008 魔法学習経験
;CFLAG:1009 魔法実技経験
;CFLAG:1010 魔法成功経験
;CFLAG:1011 魔法の披露が可能かどうか
;CFLAG:1012 魔法用
;CFLAG:1013 月に願いを
;CFLAG:1014 準恋慕
;CFLAG:1015 妊娠後会話
;CFLAG:1016 開店フラグ
;CFLAG:1666 嫌悪フラグ（未実装）
;CFLAG:1891 特殊エンドフラグ１
;CFLAG:1892 特殊エンドフラグ２
;CFLAG:1901 空白（旧　子供の性別（１で女の子、２で男の子））
;CFLAG:1951 UPDATE用１

;□ TCVAR
;TCVAR:350 ビデオ用
;TCVAR:351 今日出会った回数
;TCVAR:352 今日何回か出会ったフラグ兼仕事出立口上確認用
;TCVAR:353 おにぎりフラグ
;TCVAR:354 現在の客数
;TCVAR:355 本日の合計客数兼デート後フラグ
;TCVAR:356 仕事終了フラグ
;TCVAR:357 仕事用
;TCVAR:358 特別な日の挨拶
;TCVAR:359 記念会話用
;TCVAR:360 料理用
;TCVAR:361 何を作ったか
;TCVAR:362 連打防止用
;TCVAR:363 添い寝フラグ
;TCVAR:364 仕事手伝ったよ！
;TCVAR:365 子供の各種行事イベント
;TCVAR:371 犯されフラグ
;TCVAR:372 犯され後処理フラグ
;TCVAR:373 魔法の御香フラグ
;TCVAR:374 巨乳魔法フラグ
;TCVAR:375 押し倒され時前コマンド確認用
;TCVAR:376 巨乳魔法時サイズ記憶用
;TCVAR:381 二重絶頂以上回数
;TCVAR:382 C絶頂回数
;TCVAR:383 V絶頂回数
;TCVAR:384 A絶頂回数
;TCVAR:385 B絶頂回数
;TCVAR:386 あなたの射精回数
;TCVAR:387 イったフラグ
;TCVAR:388 M絶頂回数
;******************************************************************************

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

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

;RESULTS = _TEST_

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

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070
SETCOLOR 0xFFF10F
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K44
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
IF CFLAG:44:1951 < 2
	CFLAG:44:1951 = 2
	IF CFLAG:44:1007 == 1
	PRINTFORML 弟子入り後のイベント進行状況が正しくなるように修正します
		SIF CFLAG:44:1008 > 30
			CFLAG:44:1012 = 1
		SIF CFLAG:44:1008 > 40
			CFLAG:44:1012 = 2
		SIF CFLAG:44:1008 > 60 && CFLAG:44:1009 > 20 && CFLAG:44:1010 > 10
			CFLAG:44:1012 = 3
		SIF CFLAG:44:1008 > 100 && CFLAG:44:1009 > 50 && CFLAG:44:1010 > 40
			CFLAG:44:1012 = 4
		SIF CFLAG:44:1008 > 150 && CFLAG:44:1009 > 80 && CFLAG:44:1010 > 60
			CFLAG:44:1012 = 5
		SIF CFLAG:44:1008 > 200 && CFLAG:44:1009 > 120 && CFLAG:44:1010 > 100
			CFLAG:44:1012 = 6
		SIF CFLAG:44:1008 > 300 && CFLAG:44:1009 > 200 && CFLAG:44:1010 > 250
			CFLAG:44:1012 = 7
	ENDIF
ENDIF
IF CFLAG:44:1951 < 3
	CFLAG:44:1951 = 3
	CFLAG:44:1891 = 1
	PRINTFORML 新たにオプション「健全モード」が追加されました
	PRINTFORMW 説明を聞きますか？
	CALL ASK_YN("はい","いいえ")
	IF !RESULT
		PRINTFORML 「健全モード」は一部のセクハラコマンドを一度も使用しておらず、
		PRINTFORML かつ押し倒されが一度も発生していない場合にエレンの欲求不満度と欲望が大幅に抑制されます
		PRINTFORML その名の通りにエレンと健全に仲を深めたい人にお勧めです
		PRINTFORMW 注意事項として、ゲーム中でのオンオフ切り替えが不可能となっています
		;PRINTFORML 「子供の性別」はオプションの「子供の描写」をオンにしているときに表示される育児口上で登場する
		;PRINTFORML エレンとの子供の性別を指定するためのものです
		;PRINTFORMW こちらはエレンと一緒に願掛けすることで性別を変更することができます
		ENDIF
	PRINTFORML オプションを使用しますか？
	CALL ASK_YN("はい","いいえ")
	IF !RESULT
		CALL M_KOJO_MESSAGE_EVENT_K44_OPTION
	ELSE
		PRINTFORMW それではオプションを使用しません
	ENDIF
ENDIF
;出産経験、子供の誕生日で判定します
IF EXP:44:出産経験
	FOR LOCAL, 1, 11
		;UPDATE時にCHILD_SEXをリセットしています
		IF CHILD_BIRTHDAY:44:LOCAL && !CHILD_SEX:44:LOCAL
			;ここで設定しなおします
			PRINTFORML %CHILDNAME:44:LOCAL%の性別は？
			CALL ASK_M("ランダム", 1, "女の子", 1, "男の子", 1)
			IF RESULT
				CHILD_SEX:44:LOCAL = RESULT
			ELSE
				CHILD_SEX:44:LOCAL = RAND:2 + 1
			ENDIF
			PRINTFORM %CHILDNAME:44:LOCAL, 15, LEFT% は \@ CHILD_SEX:44:LOCAL == 1 ? 女 # 男 \@の子 で生年月日は
			CALL PRINT_DATE(CHILD_BIRTHDAY:44:LOCAL)
			PRINTFORML です
		ENDIF
	NEXT
	WAIT
ENDIF
RETURN 1

;口上オプションの設定
@M_KOJO_MESSAGE_EVENT_K44_OPTION
;CFLAG:1901 = 1
$OPTION
PRINTFORML どのオプションを使用しますか？
IF SELECTCOM != 421
	CALL PRINTBUTTON_EX("{健全モード}",0,!CFLAG:1891)
	SIF !CFLAG:44:1891
	PRINT [選択済み]
	PRINTL
ENDIF
;CALL PRINTBUTTON_EX("{子供の性別}",1,1)
;IF CFLAG:44:1901 == 1
;	PRINT [女の子]
;ELSEIF CFLAG:44:1901 == 2
;	PRINT [男の子]
;ENDIF
;PRINTL
;CALL PRINTBUTTON_EX("やり直し",2,)
PRINTL
PRINTL
PRINTBUTTON "[これで決定]", 999
INPUT
IF RESULT == 999
	PRINTFORMW 設定が完了しました
	RETURN 1
ELSEIF RESULT == 0
	IF SELECTCOM != 421 && CFLAG:44:1891 == 1
		CFLAG:44:1891 = 0
	ELSEIF CFLAG:44:1891 == 0
		CFLAG:44:1891 = 1
	ENDIF
ELSEIF RESULT == 1
	IF CFLAG:44:1901 == 1
		CFLAG:44:1901 = 2
	ELSEIF CFLAG:44:1901 == 2
		CFLAG:44:1901 = 1
	ENDIF
;ELSEIF RESULT == 2
;	SIF SELECTCOM != 421
;	CFLAG:44:1891 = 1
;	CFLAG:44:1901 = 0
ENDIF
GOTO OPTION

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K44
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
RESETCOLOR
;遭遇した回数を＋１する
TCVAR:351 += 1
;オプション
CFLAG:1891 = 1
PRINTFORML 口上オプションの設定を行いますか？
CALL ASK_M("はい",1,"いいえ",1,"オプションの説明",1)
IF RESULT == 0
	CALL M_KOJO_MESSAGE_EVENT_K44_OPTION
ELSEIF RESULT == 1
	PRINTFORMW それではオプションを使用しません
ELSEIF RESULT == 2
	PRINTFORML 「健全モード」は一部のセクハラコマンドを一度も使用しておらず、
	PRINTFORML かつ押し倒されも一度が発生していない場合にエレンの欲求不満度と欲望が大幅に抑制されます
	PRINTFORML その名の通りにエレンと健全に仲を深めたい人にお勧めです
	PRINTFORMW 注意事項として、ゲーム中でのオンオフ切り替えが不可能となっています
	;PRINTFORML 「子供の性別」はオプションの「子供の描写」をオンにしているときに表示される育児口上で登場する
	;PRINTFORML エレンとの子供の性別を指定するためのものです
	;PRINTFORMW こちらはエレンと一緒に願掛けすることで性別を変更することができます
	PRINTFORML オプションを使用しますか？
	CALL ASK_YN("はい","いいえ")
	IF !RESULT
		CALL M_KOJO_MESSAGE_EVENT_K44_OPTION
	ELSE
		PRINTFORMW それではオプションを使用しません
	ENDIF
ENDIF
;エレンが大家の場合
IF 拠点_大家 == 44
	PRINTFORML あなたは幻想入りした人間？
	CALL ASK_YN("はい","私は元から")
	IF !RESULT
		PRINTFORMW 「あ、ようやく目が覚めたの」
		PRINTFORMDL 少し出歩いてみると、ふわふわした金髪に大きな赤いリボンをつけた、
		PRINTFORMDW ふてぶてしい表情をした猫を連れている少女に声をかけられた
		PRINTFORML 「なんだか行き倒れてたけどもう大丈夫？　痛みとかは無い？」
		PRINTFORMDW どうやら行き倒れてたところを彼女に拾われたようだ
		PRINTFORMDL 体には問題ないことと、手当ての礼を伝えた…
		PRINTFORMW 「どういたしまして%UNICODE(0x2665)% 元気になったようで良かったわ%UNICODE(0x2665)%」
		PRINTFORMW 「……あ、自己紹介がまだだったわね」
		PRINTFORML 「わたしはエレンっていうの、エレン・ふわふわ頭・オーレウス。こっちはソクラテス」
		PRINTFORMW 「この魔法の森で魔法屋をやっているの、魔法関連で悩み事があったらよろしくね%UNICODE(0x2665)%」
		PRINTFORMDW 魔法の森…？　そんな場所は自分のいた世界には無かったはず……
		PRINTFORMW 「？　どうかしたの」
		PRINTFORMW 「……あー、なるほど。　たぶんあなたは別の世界からこの幻想郷に迷い込んできたの」
		PRINTFORMDL そんな馬鹿な、と思うもそれを否定する事はできず、
		PRINTFORMDL むしろ魔法の森の魔法屋という非現実的なワードから、
		PRINTFORMDW この世界が自分のいた世界とまったく別の世界だという事を肯定せざるを得なかった
		PRINTFORMDL そうこう考えていると、エレンが
		PRINTFORML 「もし、元の世界に戻りたいのなら博麗神社に連れてってあげるわ」
		PRINTFORMW 「まあ必ずしも戻れるとは限らないけど」
		PRINTFORMW 「それともう一つ、幻想郷に住み着く場合」
		PRINTFORML 「その場合ならどこか住む場所を探さないといけないけど、
		PRINTFORMW 　当分はわたしの家に住み込んでいいわよ」
		PRINTFORMW 「倉庫住まいになるけど危険な野宿よりはマシだわ」
		PRINTFORMDL 一応元の世界に戻れる可能性もあるようだ
		PRINTFORMDL とはいえ所詮可能性ということ、元の世界とは一風変わったこの世界で暮らしてみたいこと
		PRINTFORMDW その二つから幻想郷に住み着く事にすると伝えた
		PRINTFORMW 「そうするのね、それじゃあこれからよろしくね%UNICODE(0x2665)%」
		PRINTFORMW 「あ、まだあなたの名前を聞いてなかったわ、教えてくれる？」
		PRINTFORMW 「……%CALLNAME:MASTER%っていうのね、それじゃあこれからよろしくね、%CALLNAME:MASTER%%UNICODE(0x2665)%」
	ELSE
		GOTO ENCOUNTER
	ENDIF
ELSE
	$ENCOUNTER
	PRINTFORMW 「あら、初めて会う人ね」
	PRINTFORMW 「わたしはふわふわエレンよ、それでこの子がソクラテス」
	PRINTFORMDW %CALLNAME:MASTER%は、ふわふわした金髪に大きな赤いリボンをつけた少女から初対面の挨拶をされた
	$LOOP2
	PRINTFORMDL [0] ご丁寧な挨拶をどうも、私は%CALLNAME:MASTER%と申します。以後お見知りおきを
	PRINTDL [1] ふわふわ？
	PRINTDL [2] うっわー、はずかしい名前！
	SIF ITEM:399
	PRINTDL [9] どこかでお会いしませんでしたか？
	INPUT
	IF RESULT == 0
		PRINTFORMW 「あなたも丁寧な挨拶をどうも%UNICODE(0x2665)% これからよろしくね%UNICODE(0x2665)%」
	ELSEIF RESULT == 1
		PRINTFORMW 「おじいちゃんがつけてくれたの。　まあそれはともかく、これからよろしくね%UNICODE(0x2665)%」
	ELSEIF RESULT == 2
		PRINTFORMW 「そうかしら？　まあそれはともかく、これからよろしくね%UNICODE(0x2665)%」
	ELSEIF RESULT == 9 && ITEM:399
		PRINTFORMW 「はじめてだと思うけど……、まあそれはともかく、これからよろしくね%UNICODE(0x2665)%」
		PRINTFORMW （……本当にはじめてよね？）
	ELSE
		GOTO LOOP2
	ENDIF
ENDIF
;場所と日時の記憶
CFLAG:1001 = DAY:2
CFLAG:1002 = DAY:3
CFLAG:1003 = CFLAG:MASTER:現在位置
;初対面時は特殊会話無し
TCVAR:358 = 1
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K44_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	TCVAR:355 = -1
	IF TALENT:恋慕
		IF TCVAR:356 == 1
			PRINTFORMW 「付き合ってくれてありがとう%UNICODE(0x2665)% とっても楽しかったわ%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「今日は素敵な一日だったわ%UNICODE(0x2665)% 誘ってくれてありがとう%UNICODE(0x2665)%」
		ENDIF
		PRINTFORMDW デート先から帰る道中、%CALLNAME:MASTER%とエレンは今日の事を話しながら歩いていた…
		PRINTL
		PRINTFORMDW ……もう少しで%GET_MAPNAME(MAIN_MAP)%だ
		PRINTFORMW 「あやや、もうデートはおしまいなの」
		PRINTFORM 「…ねえ、ちょっとの間でいいから目を瞑って
		SIF TALENT:MASTER:体型 >= 0
		PRINTFORM かがんで
		PRINTFORMW くれない//」
		PRINTFORMDW 何故？　と思いつつも、%CALLNAME:MASTER%は言われたとおりにした…
		PRINTFORMW 「ありがとう%UNICODE(0x2665)% んしょ」
		PRINTL
		PRINTFORMDL 　　ちゅっ
		PRINTW
		PRINTFORMDW …
		PRINTFORMDW 唇への感触が離れた後に目を開くと、そこには顔を真っ赤にしたエレンが居た
		PRINTFORMW 「…あはははは//　そそそそそれじゃあね//」
		PRINTFORMDW 恥ずかしさの余りか、エレンは一人先に%GET_MAPNAME(MAIN_MAP)%へと駆けていった
		PRINTFORMDW そんなエレンにつられて顔を赤くした%CALLNAME:MASTER%はキスの余韻を味わいながらエレンの後を追った…
	;非恋慕だとこっちがキスする
	ELSE
		PRINTFORMDW デート先から帰る道中、%CALLNAME:MASTER%とエレンは今日の事を話しながら歩いていた…
		PRINTL
		PRINTFORMDW ……もう少しで%GET_MAPNAME(MAIN_MAP)%だ
		PRINTFORMW 「あや、もう%GET_MAPNAME(MAIN_MAP)%なの」
		PRINTFORMW 「今日は本当に楽しかったわ%UNICODE(0x2665)% また誘ってね%UNICODE(0x2665)%」
		$LOOP
		PRINTFORMDL ……
		PRINTDL [0] キスする
		PRINTDL [1] 何もしない
		INPUT
		IF RESULT == 0
			PRINTFORMDW %CALLNAME:MASTER%は突然立ち止まると、エレンを呼び止めた
			PRINTFORMW 「あら%UNICODE(0x2665)% 今度は何？」
			PRINTFORMDW 呼びかけられて立ち止まったエレンの前に進むと顔の高さを合わせ…
			PRINTFORMW 「ちょちょちょちょちょっと//　顔近いわ…」
			PRINTL
			PRINTFORMDL 　　ちゅっ
			PRINTW
			PRINTFORMW 「よ……って//　え？//え？？//」
			PRINTFORMDW いきなりキスをされたエレンの顔は瞬く間に赤くなり…
			PRINTFORMW 「……あはははははは//」
			PRINTFORMDW 逃げるように%GET_MAPNAME(MAIN_MAP)%へと走り出した…　余計なことをしたかもしれない…
			PRINTFORMDW …
			PRINTFORMW （えええええ！？//　%CALLNAME:MASTER%がききききすしてくるなんて//）
			PRINTFORMW （%CALLNAME:MASTER%からキスしてくるってことはももももしかしてわたしのことが好きなの！？//）
			PRINTFORMW （べべべべつに%CALLNAME:MASTER%のことは好きだけれどそれは友達としての好きだし//）
			PRINTFORMW （%CALLNAME:MASTER%もそう思ってると思ってたけどけどけど）
			PRINTFORMW （あーうー//）
;			PRINTFORMDW %CALLNAME:MASTER%に突然キスされたエレンは混乱しているようだ…
			PRINTFORMDL ……
			PRINTFORMDL …
			PRINTFORMDW エレンは<恥薄い>を失い、新たに<恥じらい>を得た
			CFLAG:1014 = 1
			TALENT:羞恥心 = 1
		ELSEIF RESULT == 1
			TCVAR:キスキャンセル = 1
			PRINTFORMDW …今はやめておこう
		ELSE
			GOTO LOOP
		ENDIF
	ENDIF
	TCVAR:356 = 0
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K44_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
;CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	TCVAR:355 = -1
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		IF TCVAR:356 == 1
			PRINTFORMW 「わたしに付き合ってくれてありがとう%UNICODE(0x2665)% とっても楽しかったわ%UNICODE(0x2665)%%UNICODE(0x2665)%//」
		ELSE
			PRINTFORMW 「今日も素敵な一日だったわ%UNICODE(0x2665)% 誘ってくれてありがとう%UNICODE(0x2665)%//」
		ENDIF
		PRINTFORMDW デート先から帰る道中%CALLNAME:MASTER%とエレンは今日の事を話しながら歩いていた…
		PRINTDW  …
		PRINTFORMDW %GET_MAPNAME(MAIN_MAP)%まで後半ばというところで、エレンは%CALLNAME:MASTER%を呼び止めた
		PRINTFORMW 「%CALLNAME:MASTER%に伝えたい事があるの//」
		PRINTFORMW 「わたしは%CALLNAME:MASTER%のことが好き、だから…」
		PRINTFORMW 「わたしの恋人になってくれる？//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「本当！？　うれしい%UNICODE(0x2665)%//　…えいっ%UNICODE(0x2665)%」
		PRINTFORMDL 遂に恋心が実ったエレンは、嬉しさを押さえられないのか満面の笑みを浮かべて%CALLNAME:MASTER%に抱きついてきた
		PRINTFORMDW 抱きついてきたエレンを%CALLNAME:MASTER%は優しく抱擁した…
		PRINTFORMW 「えへへ%UNICODE(0x2665)% これからよろしくね%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%%UNICODE(0x2665)%」
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		CFLAG:1014 = 0
		;恋人獲得とともに恥じらいが消える
		TALENT:羞恥心 = 0
		TALENT:機嫌 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「そう…　残念だわ……」
		PRINTFORMW 「……でもさ、まだ%CALLNAME:MASTER%には恋人は居ないのよね」
		PRINTFORMW 「それならわたしにもまだチャンスはあるってことね%UNICODE(0x2665)%」
		PRINTFORMW 「絶対に%CALLNAME:MASTER%のことを振り向かせて見せるんだから%UNICODE(0x2665)%」
		PRINTFORMDL ……
		PRINTFORMDW …
		CFLAG:1004 = 1
		RETURN 1
	ENDIF
	TCVAR:356 = 0
ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K44_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;デートしたか記憶
	TCVAR:355 = -1
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		;ムードで分岐
		IF BASE:ムード >= 1000
			;仕事終了からデート
			IF TCVAR:356 == 1
				IF TALENT:恋人
					PRINTFORMW 「今日も楽しかったわ%UNICODE(0x2665)% 次は%CALLNAME:MASTER%から誘ってね%UNICODE(0x2665)%%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
					PRINTFORMW 「わたしに付き合ってくれてありがとう%UNICODE(0x2665)% とっても楽しかったわ%UNICODE(0x2665)%%UNICODE(0x2665)%//」
				ELSE
					PRINTFORMW 「付き合ってくれてありがとう%UNICODE(0x2665)% 次も誘えたら誘うわ%UNICODE(0x2665)%」
				ENDIF
			;恋人時専用
			ELSEIF TALENT:恋人
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「今日も楽しかったわ%UNICODE(0x2665)% また一緒にデートしましょうね%UNICODE(0x2665)%%UNICODE(0x2665)%」
				CASEELSE
					PRINTFORMW 「今日も素敵な一日だったわ%UNICODE(0x2665)% 誘ってくれてありがとう%UNICODE(0x2665)%%UNICODE(0x2665)%」
				ENDSELECT
			;恋慕時専用
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「今日は素敵な一日だったわ%UNICODE(0x2665)% 誘ってくれてありがとう%UNICODE(0x2665)%//」
			;その他
			ELSE
				PRINTFORMW 「とっても楽しかったわ%UNICODE(0x2665)% また誘ってね%UNICODE(0x2665)%」
			ENDIF
		ELSE
			;恋人時専用
			IF TALENT:恋人
				PRINTFORMW 「また一緒にデートしましょうね%UNICODE(0x2665)%%UNICODE(0x2665)%」
			;恋慕時専用
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「それじゃあね%UNICODE(0x2665)%」
			;その他
			ELSE
				PRINTFORMW 「また今度出かけましょう%UNICODE(0x2665)%」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
	TCVAR:356 = 0
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K44_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL && TCVAR:362 == 0
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;遭遇した回数を＋１する
		TCVAR:351 += 1
		$SOUGUU
		;オナバレ
		IF CFLAG:オナバレ == 2 && TALENT:恋慕
			PRINTFORMW 「……%CALLNAME:MASTER%のえっち//」
		ELSEIF CFLAG:オナバレ
			IF TALENT:恋人 && TALENT:恋慕
				IF CFLAG:オナバレ == 3
					PRINTFORMW 「もう//　この前は本当に恥ずかしかったわ//」
					SIF FIRSTTIME(1021,1)
					PRINTFORMW 「えっちもまだなのにあんな姿見られるなんて……//」
					SIF ABL:欲望 >= 10 && ABL:露出癖 >= 3
					PRINTFORMW （でも、あれはあれで気持ちよかったかな//）
				ELSE
					PRINTFORMW 「%CALLNAME:MASTER%ったら//　鍵が開いてるからって勝手に入らないでよ//」
				ENDIF
			ELSEIF TALENT:恋慕 || TALENT:恋人
				PRINTFORMW 「あ、あはははは//」
			ELSEIF TALENT:思慕
				PRINTFORMW 「えっと……//」
			ELSE
				PRINTFORMW （あんな姿見られてどんな顔で話せばいいの！？//）
			ENDIF
		;新年、明けまして
		ELSEIF DAY:2 == 1 && DAY:3 == 1 && TCVAR:358 == 0 && DAY:0 != 1
			CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
		;神社住み込み時限定
		ELSEIF FLAG:住み込みキャラ == 44 && CFLAG:現在位置 == 16 && CFLAG:1016 == 0 && !FIRSTTIME(1003,1) && RAND:3 == 2 && TCVAR:358 == 0
			PRINTFORMW 「さてと、霊夢の許可はもらったし告知も済ませた」
			PRINTFORMW 「お店の掃除も商品の陳列も終わったからこれで準備完りょ…、って%CALLNAME:MASTER%じゃない%UNICODE(0x2665)%」
			PRINTFORMW 「何をしてるのかって？　お店の準備よ%UNICODE(0x2665)%」
			PRINTFORMW 「ほら、毎日神社からお店まで通うのは大変でしょ。だからまた神社でお店を開くことにしたの%UNICODE(0x2665)%」
			PRINTFORMW 「それで、何の用かしら%UNICODE(0x2665)%」
			TCVAR:358 = 1
			CFLAG:1016 = 1
			RETURN 1
		;２回目以降
		ELSEIF TCVAR:351 >= 2
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「あ、%CALLNAME:MASTER%じゃない%UNICODE(0x2665)%」
			ELSEIF TALENT:恋人 || TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「また会ったわね%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あら、また会ったわね\@ TALENT:思慕 ? %UNICODE(0x2665)% #  \@」
			ENDIF
		;朝
		ELSEIF TIME:2 == 1 || TIME:2 == 2
			IF TALENT:恋人
				PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あら%CALLNAME:MASTER%、おはよー\@ TALENT:思慕 || TALENT:恋慕 ? %UNICODE(0x2665)% #  \@」
			ENDIF
		;昼
		ELSEIF TIME:2 == 3 || TIME:2 == 4
			IF TALENT:恋人
				PRINTFORMW 「こんにちは、%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あら%CALLNAME:MASTER%、こんにちはー\@ TALENT:思慕 || TALENT:恋慕 ? %UNICODE(0x2665)% #  \@」
			ENDIF
		;夜
		ELSEIF TIME:2 >= 5 && TIME:2 <= 7
			IF TALENT:恋人
				PRINTFORMW 「こんばんは%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あら%CALLNAME:MASTER%、こんばんはー\@ TALENT:思慕 || TALENT:恋慕 ? %UNICODE(0x2665)% #  \@」
			ENDIF
		ENDIF
		SIF TALENT:機嫌 != -1 && TALENT:恋人 && TALENT:恋慕 && CFLAG:350 != 43 && CFLAG:350 != 41
		PRINTFORMDW %CALLNAME:MASTER%を見つけたエレンは嬉しそうに近寄って来た
		SIF TCVAR:351 == 1 && !TALENT:MASTER:恋人 && TALENT:恋慕
		PRINTFORMW （わー%UNICODE(0x2665)%　%CALLNAME:MASTER%に会えたー%UNICODE(0x2665)%）
		;特別な日なら追加
		IF TCVAR:358 == 0
			CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
		;同じ日に何回か出会ってれば追加
		ELSEIF TCVAR:351 >= 5 && TCVAR:352 == 0 && (TALENT:思慕 || TALENT:恋慕)
			PRINTFORMW 「ふと思ったんだけど、今日はよく%CALLNAME:MASTER%のことを見かけるわね」
			IF TALENT:恋人
				PRINTFORMW 「まあ、恋人なんだからよく顔を合わせて当然よね%UNICODE(0x2665)%」
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「なんだか嬉しいわ%UNICODE(0x2665)%」
			ENDIF
			TCVAR:352 = 1
		ENDIF
		;問題回避用
		SIF TCVAR:358 == 2
		TCVAR:358 = 1
		;おにぎり用
		SIF TCVAR:353 == 1
		CALL M_KOJO_MESSAGE_EVENT_K44_RICE
		;妊娠用
		SIF TALENT:妊娠 && CFLAG:無自覚妊娠 == 0 && CFLAG:1015 == 0 && GET_TARGETNUM() == 1 && TALENT:恋人 && TALENT:恋慕
		CALL M_KOJO_MESSAGE_EVENT_K44_NINSIN
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;遭遇した回数を＋１する
		TCVAR:351 += 1
		;新年、明けまして
		IF DAY:2 == 1 && DAY:3 == 1 && TCVAR:358 == 0 && DAY:0 != 1
			CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
		;２回目以降
		ELSEIF TCVAR:351 >= 2
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「あ、ここに居たの%UNICODE(0x2665)% 探したわ」
			ELSEIF TALENT:恋人 || TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「また会ったわね%UNICODE(0x2665)%」
			ELSEIF TALENT:思慕
				PRINTFORMW 「ああ、ここに居たの」
			ELSE
				PRINTFORM 「あら、また会ったわね」
			ENDIF
		;朝
		ELSEIF TIME:2 == 1 || TIME:2 == 2
			IF TALENT:恋人
				PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORM 「おはよー%UNICODE(0x2665)% %CALLNAME:MASTER%
				SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM %UNICODE(0x2665)%
				PRINTW 」
			ENDIF
		;昼
		ELSEIF TIME:2 == 3 || TIME:2 == 4
			IF TALENT:恋人
				PRINTFORMW 「こんにちは、%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORM 「こんにちはー%UNICODE(0x2665)% %CALLNAME:MASTER%
				SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM %UNICODE(0x2665)%
				PRINTW 」
			ENDIF
		;夜
		ELSEIF TIME:2 >= 5 && TIME:2 <= 7
			IF TALENT:恋人
				PRINTFORMW 「こんばんは%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORM 「こんばんはー%UNICODE(0x2665)%
				SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM %UNICODE(0x2665)%
				PRINTW 」
			ENDIF
		ENDIF
		SIF TALENT:機嫌 != -1 && TALENT:恋人 && TALENT:恋慕 && CFLAG:350 != 43 && CFLAG:350 != 41
		PRINTFORMDW %CALLNAME:MASTER%を見つけたエレンは嬉しそうに近寄って来た
		SIF TCVAR:351 == 1 && !TALENT:MASTER:恋人 && TALENT:恋慕
		PRINTFORMW （わー%UNICODE(0x2665)%　%CALLNAME:MASTER%に会えたー%UNICODE(0x2665)%）
		;特別な日なら追加
		SIF TCVAR:358 == 0
		CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
		;問題回避用
		SIF TCVAR:358 == 2
		TCVAR:358 = 1
		;おにぎり用
		SIF TCVAR:353 == 1
		CALL M_KOJO_MESSAGE_EVENT_K44_RICE
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;遭遇した回数を＋１する
		TCVAR:351 += 1
		IF TALENT:恋人 && TALENT:恋慕
			PRINTFORMW 「あ、%CALLNAME:MASTER%もお風呂に来てたのね%UNICODE(0x2665)%」
			PRINTFORMW 「せっかくだし一緒に入りましょ%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
			PRINTFORMW 「あや//　%CALLNAME:MASTER%もお風呂に来てたの//」
			PRINTFORMW 「……一緒に入ってもいいかしら//」
		ELSEIF TALENT:思慕
			PRINTFORMW 「あら、%CALLNAME:MASTER%じゃない」
			PRINTFORMW 「ちょっとお邪魔させてもらうわ%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「あや、先客がいたの」
			PRINTFORMW 「まあいいか、お邪魔しまーす%UNICODE(0x2665)%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;遭遇した回数を＋１する
		TCVAR:351 += 1
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORMW 「えーと……　どうぞごゆっくりー//」
		ELSEIF TALENT:思慕
			PRINTFORMW 「それじゃあごゆっくり%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「あやや、先客がいたの」
			PRINTFORMW 「しかたないから戻りましょ」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;遭遇した回数を＋１する
		TCVAR:351 += 1
		GOTO SOUGUU
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;遭遇した回数を＋１する
		TCVAR:351 += 1
		IF TALENT:恋人 && TALENT:恋慕
			PRINTFORML 「あら、二人でお出かけ？」
			IF CFLAG:MASTER:初期位置 == CFLAG:初期位置
				PRINTFORMW 「あまり遅くならないうちに帰るのよー」
				PRINTFORMW 「……そうそう、浮気は絶対に駄目だからね」
			ELSE
				PRINTFORMW 「……まあ、浮気じゃなければいいわよ」
			ENDIF
		ELSEIF TALENT:恋慕
			PRINTFORMW 「二人でデートねー、うらやましいわ」
			PRINTFORMW （今度%CALLNAME:MASTER%をデートに誘ってみようかしら//）
		ELSEIF TALENT:恋人
			PRINTFORML 「当然だけど、浮気は駄目だからね」
			PRINTFORMDW エレンに釘を刺された
		ELSEIF TALENT:思慕
			PRINTFORMW 「二人とも楽しんできてね%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「あら、もしかして二人でデート？」
			PRINTFORMW 「いいなー、いつかわたしも恋人とデートしてみたいわ」
		ENDIF
		RETURN 1
	ENDIF
ELSE
	TCVAR:362 = 0
ENDIF
RETURN 1

;おにぎり用関数、わざわざ関数にしなくてもいいかも…
@M_KOJO_MESSAGE_EVENT_K44_RICE
PRINTFORMW 「今日はお疲れみたいね」
PRINTFORMW 「そんなあなたに、はいっ%UNICODE(0x2665)%　わたしの手づくりおにぎりよ%UNICODE(0x2665)%」
PRINTFORMW 「これを食べて元気になってね%UNICODE(0x2665)%」
PRINTFORMDW %CALLNAME:MASTER%はエレンから受け取ったおにぎりを食べた
PRINTFORMDL ……
PRINTFORMDW …
IF ABL:料理技能 < 4
	PRINTFORMDW 特別な物は入っていないただの塩握りだがこれが中々美味だ、エレンの愛情が篭ってるからだろうか
ELSE
	PRINTFORMDW ！！
	PRINTFORMDW %CALLNAME:MASTER%に喜んで貰いたいと言うエレンの想いのお陰か、ただの塩握りだというのにとても美味しい！
ENDIF
PRINTL
PRINTFORMDW %CALLNAME:MASTER%はおにぎりをぺろりと平らげた
PRINTFORMW 「もう食べ終わったの！？　早いわねー」
PRINTFORMW 「それで、わたしのおにぎりはおいしかった？//」
PRINTFORMW 「…えへへ//　%CALLNAME:MASTER%に喜んでもらえて嬉しいわ%UNICODE(0x2665)%」
PRINTFORMDW ……しかしどこから塩を調達したのだろうか？
;Ａ 外から持ってきた、という事で
TCVAR:353 = 0
TIME += 5
EXP:料理経験 += 2
EXP:愛情経験 += 3
BASE:MASTER:体力 = MIN(BASE:MASTER:体力 + 100 + (ABL:料理技能 * 80) , MAXBASE:MASTER:体力)
BASE:MASTER:気力 = MIN(BASE:MASTER:気力 + 100 + (ABL:料理技能 * 60) , MAXBASE:MASTER:気力)
TCVAR:PLAYER:312 = 1440 * DAY + TIME + 180
RETURN 1

;特別な日の挨拶
@M_KOJO_MESSAGE_EVENT_K44_EX_TALK
;新年、明けまして
IF FESTIVAL() == "元日" && DAY:0 != 1
	PRINTFORMW 「明けましておめでとう、%CALLNAME:MASTER%%UNICODE(0x2665)%」
	IF TALENT:恋人
		PRINTFORMW 「今年もいっぱい一緒に過ごしましょう%UNICODE(0x2665)%」
	;ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
	;	PRINTFORMW 「今年も%CALLNAME:MASTER%と色々したいわ%UNICODE(0x2665)%//」
	ELSE
		PRINTFORMW 「今年もよろしくね%UNICODE(0x2665)%」
	ENDIF
	TCVAR:358 = 2
;セットヴァルエンチン
ELSEIF FESTIVAL() == "バレンタインデー"
	IF TALENT:恋人 || TALENT:恋慕
		PRINTFORMW 「今日はバレンタインデーよっ%UNICODE(0x2665)%」
	ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
		PRINTFORMW 「今日はバレンタインよ//」
	ELSEIF CFLAG:好感度 > 5000
		PRINTFORMW 「今日はバレンタインなのよ」
	ENDIF
	SELECTCASE CFLAG:好感度
	CASE 1000 TO 3000
		PRINTFORMW 「せっかくだからこれをあげるね」
	CASE 3001 TO 5000
		PRINTFORMW 「%CALLNAME:MASTER%には色々とお世話になったしこのチョコをあげる%UNICODE(0x2665)%」
	CASE IS > 5000
		IF TALENT:恋人 && TALENT:恋慕
			PRINTFORM 「だから、大好きな%CALLNAME:MASTER%のために
			IF EXP:愛情経験 < 100
				PRINT 奮発し
			ELSE
				PRINT とびっきりおいしいチョコを作ってき
			ENDIF
			PRINTFORMW たわ%UNICODE(0x2665)% はいっ%UNICODE(0x2665)%%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
			PRINTFORMW 「だから、%CALLNAME:MASTER%のためにおいしいチョコを用意してきたわ//　受け取って%UNICODE(0x2665)%//」
		ELSE
			PRINTFORMW 「だから、いつもお世話になっている%CALLNAME:MASTER%のために特別なチョコを用意してきたわ%UNICODE(0x2665)%」
		ENDIF
	ENDSELECT
	TCVAR:今日会ったか = 1
	RESETCOLOR
	CALL SEASONAL(44)
	TCVAR:358 = 2
;クリスマス
ELSEIF FESTIVAL() == "クリスマス" && (TALENT:思慕 || TALENT:恋慕)
	PRINTFORMW 「今日はクリスマス！　世の中が魔法で満ちる一日なのよーっ%UNICODE(0x2665)%」
	PRINTFORMW 「…ということで、いっぱい楽しみましょっ%UNICODE(0x2665)%」
	TCVAR:358 = 2
ELSE
	TCVAR:358 = 1
ENDIF
;イベントがある日は不機嫌にならない
SIF TCVAR:358 == 2 && TALENT:機嫌 == -1
TALENT:機嫌 = 0
;記念用
IF TALENT:恋人 && TALENT:恋慕 && DAY:2 == CFLAG:1001 && DAY:3 == CFLAG:1002 && DAY:0 > 124 && DAY:0 < 249
	;必ず上機嫌になる
	TALENT:機嫌 = 1
	PRINTFORMDW 何か特別な日なのだろうか、今日のエレンはいつも以上に機嫌がよさそうだ
	TCVAR:今日会ったか = 1
ENDIF
RETURN 1

;妊娠後会話用、ふたなりは考慮外
@M_KOJO_MESSAGE_EVENT_K44_NINSIN
PRINTFORMW 「ねえ、%CALLNAME:MASTER%はわたしとの子供が出来て嬉しい？」
PRINTFORMW 「……もちろんそうよね%UNICODE(0x2665)% わたしも最高に嬉しいわ%UNICODE(0x2665)%//」
;婚姻とか実装されれば分岐
;IF
;
;ELSE
	PRINTFORMW 「それとさ、前に言ったわよね、『ちゃんと責任とって』って」
	PRINTFORMW 「妊娠させた以上はちゃんと責任とってもらわないと困るわ」
	PRINTFORMW 「だから…、わたしと結婚しましょ%UNICODE(0x2665)%%UNICODE(0x2665)%//」
	PRINTFORMW 「…まあ、べつに今すぐじゃなくてもいいけどね、でも絶対よ%UNICODE(0x2665)%」
;ENDIF
CFLAG:1015 = 1
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K44_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;遭遇した回数を＋１する
TCVAR:351 += 1
IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;両方
		IF CFLAG:添い寝中
			;恋人時専用
			IF TALENT:恋人
				SELECTCASE TIME:3
				;6時以降7時前
				CASE 360 TO 419
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「むにゃ…　あ%UNICODE(0x2665)% %CALLNAME:MASTER%も起きたの%UNICODE(0x2665)%」
					CASEELSE
						PRINTFORMW 「むにゃ……　あ、おはよー%UNICODE(0x2665)%」
					ENDSELECT
					;子供も起きる
					IF FLAG:子供描写 && CFLAG:出産経過日 >= CHILD_語彙
						;幼少期
						IF CFLAG:出産経過日 < CHILD_自立前
							PRINTFORMDW 『パパ、ママ、おはよー♪』
						;自立手前
						ELSE
							PRINTFORMDW 『お母さん、お父さん、おはようございます』
						ENDIF
					ENDIF
				;それ以外
				CASEELSE
					PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%　今日も１日元気に過ごしましょ%UNICODE(0x2665)%」
				ENDSELECT
			;恋慕時専用
			ELSEIF TALENT:恋慕
				PRINTFORMW 「お、おはよう//」
			;その他
			ENDIF
		ELSE
			;恋人時専用
			IF TALENT:恋人
				SELECTCASE TIME:3
				;6時以降7時前
				CASE 360 TO 419
					PRINTFORMW 「あ%UNICODE(0x2665)% %CALLNAME:MASTER%も起きたの%UNICODE(0x2665)%」
					;子供も起きる
					IF FLAG:子供描写 && CFLAG:出産経過日 >= CHILD_語彙
						;幼少期
						IF CFLAG:出産経過日 < CHILD_自立前
							PRINTFORMDW 『パパ、ママ、おはよー♪』
						;自立手前
						ELSE
							PRINTFORMDW 『お母さん、お父さん、おはようございます』
						ENDIF
					ENDIF
				;7時以降9時以前
				CASE 420 TO 540
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「おはよう%UNICODE(0x2665)% 昨日はよく眠れたかしら？」
					CASEELSE
						PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%　今日も１日元気に過ごしましょ%UNICODE(0x2665)%」
					ENDSELECT
				;それ以外
				CASEELSE
					PRINTFORMW 「まったくこんな時間まで寝てるなんて、めっ！」
				ENDSELECT
			;恋慕時専用
			ELSEIF TALENT:恋慕
				PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ENDIF
			PRINTL
			;連打しないように
			TCVAR:362 = 1
			;特別な日なら追加
			SIF TCVAR:358 == 0
			CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
			;妊娠用
			SIF TALENT:妊娠 && CFLAG:無自覚妊娠 == 0 && CFLAG:1015 == 0 && GET_TARGETNUM() == 1 && TALENT:恋人 && TALENT:恋慕
			CALL M_KOJO_MESSAGE_EVENT_K44_NINSIN
			;問題回避用
			SIF TCVAR:358 == 2
			TCVAR:358 = 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMDW エレンはすやすやと眠っている…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			;両方
			IF CFLAG:添い寝中
				IF TALENT:恋人 && TALENT:恋慕
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「むにゃ…　あ%UNICODE(0x2665)% もう起きてたの」
					CASEELSE
						PRINTFORMW 「むにゃ……　あ、おはよー%UNICODE(0x2665)%」
					ENDSELECT
				ELSE
					PRINTFORMW 「お、おはよう//」
				ENDIF
			ELSE
				IF TALENT:恋人 && TALENT:恋慕
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「むにゃ…　あ%UNICODE(0x2665)% もう起きてたの」
					CASEELSE
						PRINTFORMW 「あ、おはよー%UNICODE(0x2665)%」
					ENDSELECT
				ELSE
					PRINTFORMW 「ふわぁ……　おはよー」
				ENDIF
				;子供も起きる
				IF FLAG:子供描写 && CFLAG:出産経過日 >= CHILD_語彙
					;幼少期
					IF CFLAG:出産経過日 < CHILD_自立前
						PRINTFORMDW 『パパ、ママ、おはよー♪』
					;自立手前
					ELSE
						PRINTFORMDW 『お母さん、お父さん、おはようございます』
					ENDIF
				ENDIF
				;連打しないように
				TCVAR:362 = 1
				;特別な日なら追加
				SIF TCVAR:358 == 0
				CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
				;妊娠用
				SIF TALENT:妊娠 && CFLAG:無自覚妊娠 == 0 && CFLAG:1015 == 0 && GET_TARGETNUM() == 1 && TALENT:恋人 && TALENT:恋慕
				CALL M_KOJO_MESSAGE_EVENT_K44_NINSIN
				;問題回避用
				SIF TCVAR:358 == 2
				TCVAR:358 = 1
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;その他
ENDIF
RETURN 1

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

IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;恋人時専用
		IF TALENT:恋人
			PRINTFORMW 「もう遅いからわたしは寝るけど、一緒に寝たいなら来てもいいわ%UNICODE(0x2665)% おやすみなさい%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%%UNICODE(0x2665)%」
		;恋慕時専用
		ELSEIF TALENT:恋慕
			PRINTFORMW 「もうこんな時間！　残念だけどもう寝なきゃ。おやすみなさい%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		SELECTCASE RAND:4
		CASE 1
			PRINTFORMW 「むにゃ……%CALLNAME:MASTER%すきぃ……すや」
		CASE 2
			PRINTFORMW 「うーん…へちまには気をつけて……」
		CASE 3
			PRINTFORMW 「わーい……赤道祭りよー…ぐぅ…」
		CASEELSE
			PRINTFORMW 「ZZZzz……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		SELECTCASE RAND:5
		CASE 1
			PRINTFORMW 「むにゃ……%CALLNAME:MASTER%すきぃ……すや」
		CASE 2
			PRINTFORMW 「うーん…へちまには気をつけて……」
		CASE 3
			PRINTFORMW 「わーい……赤道祭りよー…ぐぅ…」
		CASE 4
			PRINTFORMW 「やん…%CALLNAME:MASTER%そこは……むにゃ…」
		CASEELSE
			PRINTFORMW 「ZZZzz……」
		ENDSELECT
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;衰弱中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		IF TCVAR:371 == 1 || TCVAR:372 == 1
			PRINTFORMW 「……ちょっと、やりすぎちゃったみたい」
		ELSE
			PRINTFORMW 「きゃーっ！　大丈夫！？」
		ENDIF
		PRINTFORMDL ………
		PRINTFORMDL ……
		PRINTFORMDW …
		SIF TCVAR:374 == 1
		TALENT:バストサイズ = TCVAR:376
		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 TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「おやすみなさい%UNICODE(0x2665)%」
;			ELSEIF TALENT:恋人 || TALENT:恋慕
;				PRINTFORMW 「」
			ELSE
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K44_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
;遭遇した回数を＋１する
TCVAR:351 += 1
IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;朝
		IF TIME:2 == 1 || TIME:2 == 2
			IF TALENT:恋人
				PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORM 「あら%CALLNAME:MASTER%、おはよー
				SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM %UNICODE(0x2665)%
				PRINTW 」
			ENDIF
		;昼
		ELSEIF TIME:2 == 3 || TIME:2 == 4
			IF TALENT:恋人
				PRINTFORMW 「こんにちは、%CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORM 「あら%CALLNAME:MASTER%、こんにちはー
				SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM %UNICODE(0x2665)%
				PRINTW 」
			ENDIF
		;夜
		ELSEIF TIME:2 >= 5 && TIME:2 <= 7
			IF TALENT:恋人
				PRINTFORMW 「こんばんは%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%」
			ELSE
				PRINTFORM 「あら%CALLNAME:MASTER%、こんばんはー
				SIF TALENT:思慕 || TALENT:恋慕
				PRINTFORM %UNICODE(0x2665)%
				PRINTW 」
			ENDIF
		ENDIF
		IF TALENT:恋人
			PRINTFORMW 「なんだか忙しそうね、暇ができたら二人でのんびりと過ごしましょ%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
			PRINTFORMW 「%CALLNAME:MASTER%ってば忙しそうね、どう忙しいのか知らないけど頑張ってね%UNICODE(0x2665)%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「なんだか忙しそうね、暇になったらなんかしましょ%UNICODE(0x2665)%」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「あら%CALLNAME:MASTER%…って、ちょっとー、どこいくのー？」
		IF TALENT:恋人 && TALENT:恋慕
			;おにぎり
			IF BASE:MASTER:体力 <= 800 || BASE:MASTER:気力 <= 800
				PRINTFORMW 「…%CALLNAME:MASTER%ったら忙しそうね、それに疲れてるように見えたし…！」
				PRINTFORMW 「そうだわ！おにぎりでも作ってあげましょ%UNICODE(0x2665)%」
				TCVAR:353 = 1
			ELSE
				PRINTFORMW 「…何の用事かは知らないけど頑張ってねー！%UNICODE(0x2665)%」
			ENDIF
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
			PRINTFORMW 「…何の用事かは知らないけど頑張ってねー！%UNICODE(0x2665)%」
		ELSEIF TALENT:思慕
			PRINTFORMW 「…なんだか急いでるみたいだわね、後で声をかけなおしましょ」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	;エレンのお店の場合
	IF CFLAG:現在位置 == 534 || (CFLAG:現在位置 == 16 && FLAG:住み込みキャラ == 44 && CFLAG:1016 == 1)
		IF TALENT:恋人 && TALENT:恋慕
			PRINTFORMW 「また後でね%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 || TALENT:恋人
			PRINTFORMDL お店に人がやってくると、エレンは名残惜しげに離れた
		ELSE
			PRINTFORMDL お店に人がやってくると、エレンはすっと離れた
		ENDIF
		PRINTFORMW 「いらっしゃいませー%UNICODE(0x2665)%」
	ELSE

	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	CFLAG:1800 = 1
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORMW 「あなた達こんなところで何してるの！//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORMW 「その…ええと…//あはははは//　…それじゃあね！//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORMW 「その…ええと…//　あはははは//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORMW 「ちょっと！　何勝手に混ざろうとしてるのよ！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORMW 「その…ええと…//　あはははは//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORMW 「%CALLNAME:MASTER%がそういうならしょうがないわね……」
		PRINTFORMW （本当は二人きりが良かったなあ…）
		CFLAG:好感度 -= 50
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

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

;==================================================
;弱みを握った
;==================================================
@M_KOJO_EVENT_K44_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		CFLAG:1891 = 1
		TCVAR:371 = 1
		;恋慕も恋人もない状態で押し倒され
		IF !TALENT:恋慕 && !TALENT:恋人 && !TALENT:ヤリマン
			IF FIRSTTIME(1021)
				PRINTFORMDW %CALLNAME:MASTER%を押し倒したエレンは、真剣な表情でこちらを見ながら言葉を紡いだ
				PRINTFORML 「……この状況で言うのもなんだけど、わたしは%CALLNAME:MASTER%のことが好きだわ」
				PRINTFORMW 「好きで好きで、自分を抑えられなくてこうしちゃうぐらいにね」
				PRINTFORMW 「自分勝手でごめんね、嫌だったら『嫌』って言っていいから……」
				PRINTFORMDL …
				PRINTFORMDW エレンの[思慕]は[恋慕]になった
				CFLAG:1892 = 1
				TALENT:恋慕 = 1
				TALENT:思慕 = 0
				RETURN 1
			ENDIF
		ENDIF
		;初エッチor妊娠時押し倒され
		SIF (FIRSTTIME(1021) || TALENT:妊娠) && (TALENT:恋慕 || TALENT:恋人)
		PRINTFORML 「ちょっとはしたないかもしれないけど……」
		IF ABL:欲望 >= 10
			PRINTFORMW 「ごめんね。　わたし我慢できないの//」
		ELSEIF TALENT:恋慕 || TALENT:恋人
			PRINTFORMW 「ね、ねぇ%CALLNAME:MASTER%//　その…//　えっち…しよ//」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF ABL:欲望 >= 10
			PRINTFORMW 「そう……、分かったわ…」
		ELSEIF ABL:親密 < 10
			PRINTFORMW 「変なことしてごめんね//」
		ELSEIF TALENT:恋慕 || TALENT:恋人
			PRINTFORMW 「そそそそうよね//　勝手に押し倒したりしてごめんね//」
		ENDIF
		;絶頂とかリセ
		SIF TCVAR:374 == 1
		TALENT:バストサイズ = TCVAR:376
		TCVAR:372 = 0
		TCVAR:373 = 0
		TCVAR:374 = 0
		TCVAR:381 = 0
		TCVAR:382 = 0
		TCVAR:383 = 0
		TCVAR:384 = 0
		TCVAR:385 = 0
		TCVAR:386 = 0
		TCVAR:388 = 0
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「ええと…、帰ってくれない？」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「あら%UNICODE(0x2665)%　%CALLNAME:MASTER%と一緒に入れるなんてすてきー%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
			PRINTFORMW 「あ//　べべべべつに入りたかったら入ってもいいわよ//」
		ELSE
			PRINTFORMW 「あら、%CALLNAME:MASTER%もお風呂に入りにきたの？　せっかくだし一緒に入りましょ%UNICODE(0x2665)%」
		ENDIF
		;連打しないように
		TCVAR:362 = 1
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			PRINTFORMW 「むにゃ…、こんな時間にだれー？　…って%CALLNAME:MASTER%じゃない%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「むにゃ…、こんな時間にだれー？　…って%CALLNAME:MASTER%だったの//　何の用かしら//」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		IF TALENT:恋人
			PRINTFORMW 「ん……。　あら、%CALLNAME:MASTER%だったの。　まあ上がってちょうだい%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「ん……。　あら、%CALLNAME:MASTER%だったの//　それで何の用かしら//」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K44_13(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL && TIME:0 != TCVAR:357 && CFLAG:350 != 49 && CFLAG:350 != 51
;連打防止
TCVAR:357 = TIME:0
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1 && CFLAG:MASTER:現在位置 != 210
		IF TALENT:恋人
			PRINTFORMW 「それじゃあ行ってくるわ%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
			PRINTFORMW 「もうこんな時間…　ちょっと残念だけどはたらきに行かないと」
		ELSEIF TALENT:思慕
			PRINTFORMW 「そろそろ時間ね、それじゃあ行ってくるわ%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「そろそろ時間ね、わたしは今からはたらきに行くから後でね」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;魔法屋
		IF DAY:3 == 15 || DAY:3 == 30
			;PRINTFORMDW 現客数 {TCVAR:354}　計客数 {TCVAR:355}
			;現在の客数に応じて分岐
			IF TCVAR:354 > 30
				PRINTFORMDL エレンの魔法屋は大繁盛しているようだ…
			ELSEIF TCVAR:354 > 15
				PRINTFORMDL エレンは並んでいる人を上手く捌いている…
			ELSEIF TCVAR:354 > 5
				PRINTFORMDL 少しづつ人が集まりだして来た…
			ELSE
				PRINTFORMDL 人はあまり居ないようだ…
			ENDIF
			;接客時
			IF TCVAR:354 > 15
				SELECTCASE RAND:5
				CASE 1
					PRINTFORMW 「あなたには魔よけ！　で、あなたにはおまじない！」
				CASE 2
					PRINTFORMW 「はい薬、はいおまじない、はいこれ、はいそれ、はいあれ」
				CASE 3
					PRINTFORMW 「あなた明日は南の方向が凶よ、その代わり北に吉があるわ」
				CASE 4
					PRINTFORMW 「あなたは明日東に向かうといいわ、新しい出会いがある筈よ%UNICODE(0x2665)%」
				CASEELSE
					PRINTFORMW 「ちょっとあなた！どうしてこんなに魔法くさいの！？　見たところ魔法使いではなさそうだけど」
				ENDSELECT
			;呼び込み時
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「ふわふわエレンの魔法店、本日特別出張サービス中%UNICODE(0x2665)%」
				CASE 2
					PRINTFORMW 「えー、魔法屋さんはいらんかねー%UNICODE(0x2665)%」
				CASEELSE
					PRINTFORMW 「ちょっとそこのあなた、魔法くさいわよ。何かあったの？」
				ENDSELECT
			ENDIF
		;採集
		ELSE
			;PRINTFORMDW {TCVAR:354}
			;残りの仕事量に応じて確率で分岐
			IF (BASE:仕事量 <= (MAXBASE:仕事量 / 2)) && !RAND:3
				;残り四分の一以下
				IF BASE:仕事量 <= (MAXBASE:仕事量 / 4)
					;採取量で分岐
					SELECTCASE TCVAR:354 - BASE:仕事量
					CASE IS > 200
						PRINTFORMW 「これぐらいあればいいかしら」
					CASE 200 TO -300
						PRINTFORMW 「もう少し集めておきたいわね」
					CASEELSE
						PRINTFORMW 「うーん……、タイミングが悪かったわ」
					ENDSELECT
				;残り半分以下
				ELSE
					;採取量で分岐
					SELECTCASE TCVAR:354 - BASE:仕事量
					CASE IS > 750
						PRINTFORMW 「これだけ集まれば十分ね%UNICODE(0x2665)%」
					CASE 750 TO 200
						PRINTFORMW 「いい感じに集まってきてるわ%UNICODE(0x2665)%」
					CASE 200 TO -200
						PRINTFORMW 「順調順調%UNICODE(0x2665)%」
					CASEELSE
						PRINTFORMW 「今日は集まりがいまいちねー」
					ENDSELECT
				ENDIF
			;仕事量が半分を切る前に採集量が2000を超える
			ELSEIF TCVAR:354 > 2000 && BASE:仕事量 >= (MAXBASE:仕事量 / 2) && !RAND:2
				;あなたが500以上集めているなら
				IF TCVAR:355 >= 500
					IF TALENT:恋人 && TALENT:恋慕
						PRINTFORMW 「%CALLNAME:MASTER%のおかげでこんなに集まったわ%UNICODE(0x2665)%」
					ELSEIF TALENT:恋慕 || TALENT:恋人 || TALENT:思慕
						PRINTFORMW 「%CALLNAME:MASTER%が手伝ってくれたからそろそろ切り上げられるわ%UNICODE(0x2665)%」
					ELSE
						PRINTFORMW 「たくさん集めてくれてありがとう%UNICODE(0x2665)%」
					ENDIF
				ELSE
					PRINTFORMW 「今日は豊作ね%UNICODE(0x2665)%」
				ENDIF
			;基本
			ELSE
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMW 「ソクラテスー、何か見つかったー？」
				CASE 2
					PRINTFORMW 「確かここに……、あった%UNICODE(0x2665)%」
				CASEELSE
					PRINTFORMW 「なかなか見つからないわねー」
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;魔法屋
		IF DAY:3 == 15 || DAY:3 == 30
			;手伝ってないのなら
			IF TCVAR:364 == 0
				IF TALENT:恋人 && TALENT:恋慕
					PRINTFORMW 「おまたせ%UNICODE(0x2665)%」
;					PRINTFORMW 「おまたせ%UNICODE(0x2665)% 仕事も終わったことだし二人でデートしましょ%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
					PRINTFORMW 「ふう、後片付けはこれで終わりっと」
;					PRINTFORMW 「ねえ、仕事も終わったことだしデートでもしない？//」
				ELSEIF TALENT:思慕
					PRINTFORMW 「よし、これで後片付けは終了ね」
;					PRINTFORMW 「あ、よかったら一緒に人里でも見て周らない？　それなりに儲かったからおごるわよ%UNICODE(0x2665)%」
				ENDIF
			;今日の客数に応じて変化
			ELSEIF TCVAR:355 >= 45
				PRINTFORMW 「今日はお客さんがいっっぱい来てくれたわ%UNICODE(0x2665)%」
				IF TALENT:恋人 && TALENT:恋慕
					PRINTFORMW 「これも%CALLNAME:MASTER%のおかげよっ%UNICODE(0x2665)% ありがとう%UNICODE(0x2665)%」
;					PRINTFORMW 「さてと、仕事も終わったことだし二人でデートしましょ%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
					PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%// また手伝ってくれると嬉しいわ%UNICODE(0x2665)%//」
;					PRINTFORMW 「それと…、仕事も終わったことだしデートでもしない？//」
				ELSEIF TALENT:思慕
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)% また手伝ってくれると嬉しいわ%UNICODE(0x2665)%」
;					PRINTFORMW 「それとさ、よかったらでいいんだけど一緒に人里でも見て周らない？」
				ELSE
					;お礼は仕事手伝い報酬に含まれてるんでー
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)% これはお礼よ%UNICODE(0x2665)%」
				ENDIF
			ELSEIF TCVAR:355 >= 30
				PRINTFORMW 「今日は結構なお客さんが来てくれたわ%UNICODE(0x2665)%」
				IF TALENT:恋人 && TALENT:恋慕
					PRINTFORMW 「これも%CALLNAME:MASTER%のおかげよっ%UNICODE(0x2665)% ありがとう%UNICODE(0x2665)%」
;					PRINTFORMW 「さてと、仕事も終わったことだし二人でデートしましょ%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
					PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%// また手伝ってくれると嬉しいわ%UNICODE(0x2665)%//」
;					PRINTFORMW 「それと…、仕事も終わったことだしデートでもしない？//」
				ELSEIF TALENT:思慕
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)% また手伝ってくれると嬉しいわ%UNICODE(0x2665)%」
;					PRINTFORMW 「それとさ、よかったらでいいんだけど一緒に人里でも見て周らない？」
				ELSE
					;お礼は仕事手伝い報酬に含まれてるんでー
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)% これはお礼よ%UNICODE(0x2665)%」
				ENDIF
			ELSEIF TCVAR:355 >= 15
				PRINTFORMW 「今日はそこそこお客さんが来てくれたわね」
				IF TALENT:恋人 && TALENT:恋慕
					PRINTFORMW 「%CALLNAME:MASTER%もお疲れ様%UNICODE(0x2665)%」
;					PRINTFORMW 「さてと、仕事も終わったことだし二人でデートしましょ%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
					PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%// また手伝ってくれると嬉しいわ%UNICODE(0x2665)%//」
;					PRINTFORMW 「それと…、仕事も終わったことだしデートでもしない？//」
				ELSEIF TALENT:思慕
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)% また手伝ってくれると嬉しいわ%UNICODE(0x2665)%」
;					PRINTFORMW 「それとさ、よかったらでいいんだけど一緒に人里でも見て周らない？」
				ELSE
					;お礼は仕事手伝い報酬に含まれてるんでー
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)% これはお礼よ%UNICODE(0x2665)%」
				ENDIF
			ELSE
				PRINTFORMW 「今日はあまりお客さんが来なかったわ」
				IF TALENT:恋人 && TALENT:恋慕
					PRINTFORMW 「まあ、そんな日もあるわね。手伝ってくれてありがとう%UNICODE(0x2665)%」
;					PRINTFORMW 「さてと、仕事も終わったことだし二人で人里デートでもしましょ%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
					PRINTFORMW 「でも、そんな日もあるわ。手伝いありがとう%UNICODE(0x2665)%//」
;					PRINTFORMW 「でも、そんな日もあるわね。それはそうと…せっかくだから人里でも一緒に見て回らない？//」
				ELSE
					;お礼は仕事手伝い報酬に含まれてるんでー
					PRINTFORMW 「まあ、そんな時もあるわね、手伝ってくれてありがとう%UNICODE(0x2665)%　これはお礼よ%UNICODE(0x2665)%」
;					SIF TALENT:思慕
;					PRINTFORMW 「それとさ、よかったらでいいんだけど一緒に人里でも見て周らない？」
				ENDIF
			ENDIF
			TCVAR:356 = 1
			;恋人or恋慕or思慕であなたがデートしてなければこのままデートに移行
			;仕事後デートが実装されるとの事なのでコメントアウト
;			IF TALENT:恋人 || TALENT:恋慕 || TALENT:思慕
;				FOR LOCAL, 1, CHARANUM
;					IF CFLAG:LOCAL:同行 >= 1
;						PRINTFORMW 「…って、なんだ、先客が居たの」
;						PRINTFORMW 「それならまた今度誘うわ%UNICODE(0x2665)%」
;						;エレンが住み込んでいるなら帰宅
;						IF FLAG:住み込みキャラ == 44
;							PRINTFORMDW エレンは一人先に%GET_MAPNAME(MAIN_MAP)%へ帰ることにしたようだ…
;							CFLAG:現在位置 = 16
;						ENDIF
;						RETURN 1
;					ENDIF
;				NEXT
;				$LOOP
;				PRINTFORMDL %CALLNAME:MASTER%は…
;				IF TALENT:恋人 || TALENT:恋慕 || CFLAG:1014 == 1
;					PRINTDL [0] デートする
;				ELSE
;					PRINTDL [0] 一緒に人里を見て回る
;				ENDIF
;				PRINTDL [1] 断る
;				INPUT
;				IF RESULT == 0
;					PRINTFORMDW %CALLNAME:MASTER%はエレンの誘いを受けた
;					IF TALENT:恋人 && TALENT:恋慕
;						PRINTFORMW 「やった%UNICODE(0x2665)% それじゃあ行きましょっ%UNICODE(0x2665)%%UNICODE(0x2665)%」
;					ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
;						PRINTFORMW 「わーい%UNICODE(0x2665)%//」
;					ELSE
;						PRINTFORMW 「それじゃあ早速行きましょう%UNICODE(0x2665)%」
;					ENDIF
;					CFLAG:同行 = 60
;					CFLAG:デート中 = 2
;					CFLAG:MASTER:デート中 = 2
;					FLAG:デート相手 = 44
;				ELSEIF RESULT == 1
;					PRINTFORMDW %CALLNAME:MASTER%はエレンの誘いを断った
;					IF TALENT:恋人
;						PRINTFORMW 「それじゃあ別の日にデートしましょうね%UNICODE(0x2665)%」
;					ELSE
;						PRINTFORMW 「あやや、まあ%CALLNAME:MASTER%が乗り気じゃないならいいわ」
;					ENDIF
;					;エレンが住み込んでいるなら帰宅
;					IF FLAG:住み込みキャラ == 44
;						PRINTFORMDW デートを断られたエレンは%GET_MAPNAME(MAIN_MAP)%へ帰ることにしたようだ…
;						CFLAG:現在位置 = 16
;					ENDIF
;				ELSE
;					GOTO LOOP
;				ENDIF
;			ENDIF
		;採集
		ELSE
			PRINTFORMW 「よし、これだけ集めれば十分ね」
			IF TCVAR:364
				IF TALENT:恋人 && TALENT:恋慕
					PRINTFORMW 「これも%CALLNAME:MASTER%のおかげよ%UNICODE(0x2665)%　ありがとっ%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
					PRINTFORMW 「また手伝ってくれるとうれしいわ%UNICODE(0x2665)%//」
				ELSE
					PRINTFORMW 「%CALLNAME:MASTER%も手伝ってくれてありがとう%UNICODE(0x2665)%」
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
ENDIF
RETURN 1

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

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

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

IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;御香使った
		IF TCVAR:373 == 1
			IF FIRSTTIME(1031)
				PRINTFORMW 「はあっ//はあっ//　とんでもなかったわ…//　次使うときは効き目を弱めないと…」
				PRINTFORMW 「…えっ？　次も今日と同じぐらいのが良いって？　…やめといたほうがいいと思うけど…」
				SIF CFLAG:1007 == 1 && FIRSTTIME(1033)
				PRINTFORMW 「どうしても？　それなら%CALLNAME:MASTER%が魔法使いとしてある程度の力をつけたら、まあ…//」
				PRINTFORMW 「それはともかく、次は疲労回復の御香を焚いて体と心をリラックスしましょ%UNICODE(0x2665)%」
				BASE:MASTER:精力 = 0
				DOWNBASE:MASTER:気力 += 1000
				DOWNBASE:気力 += 200
				ABL:欲望 -= 3
				ABL:MASTER:欲望 -= 4
			ELSE
				PRINTFORMW 「はあっ、はあっ//　激しかったわね…//」
				PRINTFORMW 「…これで満足できたかしら？//　出来たのなら嬉しいわ//」
				PRINTFORMW 「さて、次は疲労回復の御香でも焚いて疲れた体を休ませましょ%UNICODE(0x2665)%」
				BASE:MASTER:精力 = 200
				DOWNBASE:MASTER:気力 += 600
				DOWNBASE:気力 += 150
				ABL:欲望 -= 2
				ABL:MASTER:欲望 -= 3
			ENDIF
			PRINTFORMDW %CALLNAME:MASTER%とエレンは行為で散らかった部屋を簡単に片付けると、二人でのんびりと普通の御香を楽しんだ…
			BASE:MASTER:勃起 = 0
			PALAM:欲情 = 0
			PALAM:潤滑 = 0
			TIME += 30
			TFLAG:押し倒せない ++
			CFLAG:ディレイ = 600
		;おっぱいぱい！
		ELSEIF TCVAR:374 == 1
			PRINTFORMDW 行為を終えると同時に魔法の効果が切れ、エレンの胸は元に戻った……
			IF FIRSTTIME(1032)
				PRINTFORMW 「ねえねえ、巨乳のわたしはどうだったかしら//」
				PRINTFORMW 「…良かった%UNICODE(0x2665)%　また材料が揃ったら作るから楽しみにしててね%UNICODE(0x2665)%//」
			ELSE
				PRINTFORMW 「また今度ふわふわおっぱいでしてあげるね%UNICODE(0x2665)%//」
			ENDIF
		;押し倒されてた
		ELSEIF TCVAR:372 == 1
			PRINTFORMW 「今日は無理やりしようとしてごめんね」
		;Ｃ絶頂回数が他の部位の絶頂回数の合計＋２以上
		ELSEIF TCVAR:382 >= (TCVAR:383 + TCVAR:384 + TCVAR:385 + TCVAR:388 + 2)
			PRINTFORMW 「あそこだけでこんなに気持ちよくなれるのね//」
		;Ｖ絶頂回数が他の部位の絶頂回数の合計＋２以上
		ELSEIF TCVAR:383 >= (TCVAR:382 + TCVAR:384 + TCVAR:385 + TCVAR:388 + 2)
			PRINTFORMW 「今度もいっぱいしましょうね//」
			PRINTFORMW 「どこでって？　もう%CALLNAME:MASTER%ったら//」
		;Ａ絶頂回数が他の部位の絶頂回数の合計＋２以上
		ELSEIF TCVAR:384 >= (TCVAR:382 + TCVAR:383 + TCVAR:385 + TCVAR:388 + 2)
			PRINTFORMW 「もう//　おしりの穴ばっかり攻めるなんて//」
		;Ｂ絶頂回数が他の部位の絶頂回数の合計＋２以上
		ELSEIF TCVAR:385 >= (TCVAR:382 + TCVAR:383 + TCVAR:384 + TCVAR:388 + 2)
			PRINTFORMW 「これだけ触ってもらえば少しは大きくなるかしら？」
			PRINTFORMW 「……少しぐらい夢を見たっていいじゃない」
		;Ｍ絶頂回数が他の部位の絶頂回数の合計＋２以上
		ELSEIF TCVAR:388 >= (TCVAR:382 + TCVAR:383 + TCVAR:384 + TCVAR:385 + 2)
			PRINTFORMW 「最後にもう一回、ちゅっ%UNICODE(0x2665)%//」
		;三重絶頂以上した
		ELSEIF TCVAR:381 >= 1
			PRINTFORMW 「…今日は本当にすごかったわ//」
			PRINTFORMW 「次もあんなふうにして欲しいな//」
			PRINTFORMDW エレンは今日受けた快楽が忘れられないようだ……
		;あなたが３回以上射精した
		ELSEIF TCVAR:386 >= 3
			PRINTFORMW 「今日はわたしでいっぱい気持ちよくなってくれてうれしいわ%UNICODE(0x2665)%//」
			;エレン絶頂していない
				IF TCVAR:387 == 0 && !TALENT:妊娠
					PRINTFORMW 「次はわたしのことも気持ちよくしてね//」
				ELSE
					PRINTFORMW 「次もいっぱい気持ちよくしてあげるね%UNICODE(0x2665)%//」
				ENDIF
		;エレンが妊娠中かつあなたが１回以上射精した
		ELSEIF TALENT:妊娠 && TCVAR:386 >= 1
			PRINTFORMW 「これで満足できたかしら//」
		;エレンが妊娠中
		ELSEIF TALENT:妊娠
			PRINTFORMW 「え？　もういいの？」
		;１回以上絶頂した
		ELSEIF TCVAR:387 >= 1
			IF FIRSTTIME(1022)
				PRINTFORMW 「えへへへ//　これがイクってことなのね//」
				PRINTFORMW 「ねえ、次もわたしのこと、イかせてほしいな…//」
				PRINTFORMDW エレンは始めて味わった快楽に味を占めたようだ…
			ELSE
				PRINTFORMW 「今日も気持ちよかったわ//」
				PRINTFORMW 「それじゃまた今度しようね//」
			ENDIF
		;エレンが妊娠中かつあなたが１回以上射精した
		ELSEIF TALENT:妊娠 && TCVAR:386 >= 1
			PRINTFORMW 「これで満足できたかしら//」
		;両者とも絶頂していない
		ELSEIF (TCVAR:387 + TCVAR:386) == 0
			PRINTFORMW 「次は二人とも気持ちよくなれるように頑張りましょう//」
		ELSE
			PRINTFORMW 「……次はわたしのことも気持ちよくして欲しいな//」
		ENDIF
	;絶頂とかリセ
	SIF TCVAR:374 == 1
	TALENT:バストサイズ = TCVAR:376
	TCVAR:372 = 0
	TCVAR:373 = 0
	TCVAR:374 = 0
	TCVAR:381 = 0
	TCVAR:382 = 0
	TCVAR:383 = 0
	TCVAR:384 = 0
	TCVAR:385 = 0
	TCVAR:386 = 0
	TCVAR:388 = 0
	;念のため
	CFLAG:ディレイ += 60
	RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		SIF !CFLAG:睡眠 || !CFLAG:衰弱
		PRINTFORMW 「あらお目覚め？　それじゃわたしも起きようかしら」
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K44_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL

	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;精液経験ありぬぐい取り
		IF ARG:1 == 1
		;精液経験なしぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K44_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORM 「ねえ%CALLNAME:MASTER%、
		IF ESTRUS_CYCLE(44) == 150
		PRINT 今日は危ない日だから
		ELSEIF ESTRUS_CYCLE(44) != 15
		PRINT 今日は安全な日じゃないから
		ENDIF
		PRINTW その…、避妊出来ないかしら//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「だめよ！　もし妊娠したらどうするの！//」
		SIF TALENT:恋人 && TALENT:恋慕 && CFLAG:2 >= 15000
		PRINTFORMW 「べべべべつに%CALLNAME:MASTER%との子供が欲しくないわけじゃないけど、まだ心の準備が出来てなくて…//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW 「まったくわからず屋ね！」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW 「もー%CALLNAME:MASTER%ってば//　…ちゃんと責任とってよね//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW 「そそそそうなの//　…わたしも%CALLNAME:MASTER%との子供欲しいかな//」
		PRINTFORMW 「だから…いいわよ%UNICODE(0x2665)%//　でも…ちゃんと責任とってね//」
		RETURN 1
	ENDIF
ENDIF
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K44_19(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「%CALLNAME:MASTER%も霊夢もありがとう%UNICODE(0x2665)% これからよろしくね%UNICODE(0x2665)%%UNICODE(0x2665)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「そう…、分かったわ……」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K44_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL && !CFLAG:ブチギレ
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;採取終了後の帰宅
		IF TIME < 1260
			;恋人かつ恋慕時専用
			IF TALENT:恋人 && TALENT:恋慕
				;仕事手伝ったなら
				SIF TCVAR:364
				PRINTFORMW 「ありがとう%UNICODE(0x2665)% おかげでたくさん採れたわ%UNICODE(0x2665)%」
				PRINTFORMW 「わたしは家に戻るけど%CALLNAME:MASTER%も暇だったら来てね%UNICODE(0x2665)%」
			;恋慕or準恋慕or恋人時専用
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
				IF TCVAR:364
					PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%// また後で会いましょう%UNICODE(0x2665)%//」
				ELSE
					PRINTFORMW （朝から%CALLNAME:MASTER%に会えるなんてしあわせー%UNICODE(0x2665)%//）
				ENDIF
			;思慕
			ELSEIF TALENT:思慕
				IF TCVAR:364
					PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%」
				ELSE
					PRINTFORMW 「採取したものを片付けてくるわ」
				ENDIF
			;特になし
			ELSE
				PRINTFORMW 「\@ TCVAR:364 ? 助かったわ%UNICODE(0x2665)% #  \@それじゃあね」
			ENDIF
		ELSE
			;恋人かつ恋慕時専用
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「もう遅いからわたしは帰るわね%UNICODE(0x2665)%　おやすみなさい%UNICODE(0x2665)%%UNICODE(0x2665)%」
			;恋慕or準恋慕or恋人時専用
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
				PRINTFORMW 「もうこんな時間！　残念だけどもう帰らなきゃ」
				PRINTFORMW 「また今度ね%UNICODE(0x2665)%」
			;その他
			ELSE
				PRINT 「あらもうこんな時間！　そろそろ家に帰らないと、
				IF TALENT:思慕
					PRINTFORMW バイバイ%UNICODE(0x2665)%」
				ELSE
					PRINTW それじゃあね」
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;仕事帰りからのデート
		IF TCVAR:356 == 1
			IF TALENT:恋人 || TALENT:恋慕
				PRINTFORMW 「もうこんな時間なの…　残念だけど明日もあるしわたしは帰るわ」
				PRINTFORMW 「誘っておいてごめんね、この埋め合わせはするから」
			ELSE
				PRINTFORMW 「もうこんな時間！　まだ一緒にいたいけどもう帰らないと」
				PRINTFORMW 「わたしから誘っておいてごめんね」
			ENDIF
		;恋人かつ恋慕時専用
		ELSEIF TALENT:恋人 && TALENT:恋慕
			PRINTFORMW 「もうこんな時間なの…　残念だけどもう遅いからわたしは帰るわ、また明日ね%UNICODE(0x2665)%」
		;恋慕or準恋慕or恋人時専用
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
			PRINTFORMW 「もうこんな時間！　まだデートしていたいけどもう帰らないと」
			PRINTFORMW 「せっかく誘って貰ったのにごめんね」
		;その他
		ELSE
			PRINTFORML 「もうこんな時間！　そろそろ家に帰らないと」
			IF TALENT:思慕
				PRINTFORMW 「バイバイ%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「それじゃあ%UNICODE(0x2665)%」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;恋人かつ恋慕時専用
		IF TALENT:恋人 && TALENT:恋慕
			PRINTFORMW 「もう遅いからわたしは帰るわ%UNICODE(0x2665)%　またね%UNICODE(0x2665)%%UNICODE(0x2665)%」
		;恋慕or準恋慕or恋人時専用
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
			PRINTFORMW 「もうこんな時間！　残念だけどもう帰らなきゃ」
			PRINTFORMW 「また今度ね%UNICODE(0x2665)%」
		;その他
		ELSE
			PRINT 「あらもうこんな時間！　そろそろ家に帰らないと、
			IF TALENT:思慕
				PRINTFORMW バイバイ%UNICODE(0x2665)%」
			ELSE
				PRINTW それじゃあね」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K44_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;恋慕ないのに恋人な人用
		IF TALENT:恋人
			PRINTFORMW （%CALLNAME:MASTER%と恋人になってから毎日がとっても楽しいわ%UNICODE(0x2665)%）
			PRINTFORMW （これからもずーっと%CALLNAME:MASTER%と一緒でいたいわ%UNICODE(0x2665)%）
		ELSEIF CFLAG:1014 == 1
			PRINTFORMW （ずっと思っていたけど、やっぱりわたしは%CALLNAME:MASTER%のことが好きみたい//）
			IF !TALENT:MASTER:恋人
				PRINTFORMW （だけど%CALLNAME:MASTER%はわたしのことをどう思っているのかしら…）
				PRINTFORMW （……決めた、次に遊びに行った帰りに告白するわ）
			ENDIF
		ELSE
			PRINTFORMW （%CALLNAME:MASTER%と一緒にいると胸がドキドキするわ//）
			PRINTFORMW （……うん、わたし%CALLNAME:MASTER%に惚れちゃったみたい//）
			SIF !TALENT:MASTER:恋人
			PRINTFORMW （だけど%CALLNAME:MASTER%はわたしのことをどう思っているのかしら……）
		ENDIF
		;あなたがエレン以外と恋人になっていると追加
		IF TALENT:MASTER:恋人 && TALENT:MASTER:恋人 != 44
			PRINTFORMW （でも、もう%CALLNAME:MASTER%には恋人が居るのよね…）
			PRINTFORMW （もっとはやく%CALLNAME:MASTER%を好きになれば違ったのかしら……）
		ENDIF
		IF !TALENT:恋人
			PRINTFORMDW エレンは<恥薄い>を失い、新たに<恥じらい>を得た
			TALENT:羞恥心 = 1
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW （%CALLNAME:MASTER%といるとなんだか楽しいわ%UNICODE(0x2665)%）
		PRINTFORMW （これからもっともっと仲良くなれるかしら%UNICODE(0x2665)%）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K44_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF LOCAL
			IF TALENT:恋慕
				IF MARK:快楽刻印 == 3
					PRINTFORML 「んっ……、あっ%UNICODE(0x2665)%//」
					PRINTFORMW （気持ちいいけど……、やっぱり%CALLNAME:MASTER%にしてもらった方が//）
				ELSEIF MARK:快楽刻印 > 0
					PRINTFORML 「ふう……、はんっ%UNICODE(0x2665)%//」
					PRINTFORMW 「…一人でするのは寂しいわね//」
				ELSE
					PRINTFORML 「好きぃ…、%CALLNAME:MASTER%好きぃ//」
					PRINTFORMW （もし、%CALLNAME:MASTER%にしてもらったらどれ位気持ちいいのかな//）
				ENDIF
			ELSE
				PRINTFORMW 「んっ……//」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW 「ふぅ……//　んっ……//」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;その他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORMW 「今日は我慢、我慢するのよ」
		RETURN 1
	ENDIF
	;その他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1

;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K44_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:1014 == 1
			PRINTFORMW 「ええーと//　それはさすがに無理かな//」
		ELSE
			PRINTFORMW 「それはちょっと…」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			PRINTFORMW 「あら%UNICODE(0x2665)%　%CALLNAME:MASTER%と一緒に入れるなんてすてきー%UNICODE(0x2665)%」
		ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
			PRINTFORMW 「べべべべつに一緒に入りたいなら入ってもいいわよ//」
		ELSE
			PRINTFORMW 「%CALLNAME:MASTER%だったらいいわよ%UNICODE(0x2665)%」
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K44_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人 && TALENT:恋慕 && CFLAG:生解禁 == 2
			PRINTFORMW 「えへへへ%UNICODE(0x2665)% まるで夢みたい%UNICODE(0x2665)%」
		ELSEIF TALENT:恋人 && TALENT:恋慕
			PRINTFORMW 「この中に%CALLNAME:MASTER%との子供がいるのよ%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「あの……、できたみたい//」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K44_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;性別を設定する　ましな文になるのは少しお待ちを
	PRINTFORML エレンとの子供の性別は？
	RESETCOLOR
	CALL ASK_M("ランダム", 1, "女の子", 1, "男の子", 1)
	IF RESULT
		CHILD_SEX:44:(ARG:1) = RESULT
	ELSE
		CHILD_SEX:44:(ARG:1) = RAND:2 + 1
	ENDIF
	TRYCALLFORM M_KOJO_COLOR_K44
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 「この子が立派になれるよう二人で頑張りましょう%UNICODE(0x2665)%」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K44_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;何もしない
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;追い出し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_EVENT_K44_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
			SELECTCASE ARG:1
			CASE 0
				LOCALS = 博麗神社
			CASE 1
				LOCALS = 命蓮寺
			CASE 2
				LOCALS = 人里
			CASE 3
				LOCALS = 霧の湖
			CASE 4
				LOCALS = 迷いの竹林
			;選ばれる事は無いんだけど一応
			CASE 5
				LOCALS = 魔法の森
			;デートで三途の川に誘われたら唖然とするよね、という事で
			CASE 6
				LOCALS = マヨヒガ
			CASE 7
				LOCALS = 妖怪の山のふもと
			CASE 8
				LOCALS = 妖怪の山
			CASE 9
				LOCALS = 地底
			CASE 10
				LOCALS = 月
			CASEELSE
				LOCALS = "これが出たらスレで報告してね"
			ENDSELECT
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「今日は二人で%LOCALS%にお出かけしましょっ%UNICODE(0x2665)%」
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「ねえ、二人でデートなんてどうかしら%UNICODE(0x2665)%//」
			;恋慕縛りが解除されたときのために
			ELSE
				PRINTFORMW 「%CALLNAME:MASTER%、もし暇だったら一緒に%LOCALS%でも行かない？」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「やった%UNICODE(0x2665)% それじゃあ行きましょっ%UNICODE(0x2665)%%UNICODE(0x2665)%」
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「やった%UNICODE(0x2665)%//」
			ELSE
				PRINTFORMW 「それじゃあ早速行きましょう%UNICODE(0x2665)%」
			ENDIF
			;デートに誘われたフラグを立てる
			TCVAR:356 = 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「それじゃあ別の日にデートしましょうね%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あやや、まあ%CALLNAME:MASTER%が乗り気じゃないならいいわ」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「わたしの家でのんびりしましょう%UNICODE(0x2665)%」
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1 || TALENT:恋人
				PRINTFORMW 「よかったらわたしの家に寄ってかない？//」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人 && TALENT:恋慕
				PRINTFORMW 「やった%UNICODE(0x2665)% それじゃあ行きましょっ%UNICODE(0x2665)%%UNICODE(0x2665)%」
			ELSEIF TALENT:恋慕 || CFLAG:1014 == 1
				PRINTFORMW 「やった%UNICODE(0x2665)%//」
			ELSE
				PRINTFORMW 「それじゃあ早速行きましょう%UNICODE(0x2665)%」
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF TALENT:恋人
				PRINTFORMW 「そうなの、それじゃあまた今度誘うわ%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あやや、まあ%CALLNAME:MASTER%が乗り気じゃないならいいわ」
			ENDIF
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF

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

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

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

IF LOCAL
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
	;疲れた
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
	;満足して解放
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
	;満足したところを押し倒された
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
	;壊れるまでしてあげる
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

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