code:
;--------------------------------------------------------------------------------------------------
; era命蓮寺OvDr!!用 ふわっと寅丸 星口上 ver5.0　に他人が勝手に加筆したもの、つまりver.6.1
;--------------------------------------------------------------------------------------------------
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;前提としてオリジナル作者以外が手を入れる場合は、オリジナル作者の許可を求めること
;オリジナル作者とコンタクトが取れない場合には以下の但し書きに従ってUPできるかどうか判断してください。

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

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

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

;本口上に対するその他但し書き
;【era命蓮寺OvDr!!用口上テンプレート Ver1.1を使用しています (命蓮寺OD1.1に同梱されていたテンプレを使用して作っていたものを1.2同梱の物に移植した形なのでバグあるかも)】【】
;
;「era命蓮寺OvDr!!用 寅丸 星口上」の範囲で加筆・改変を行う場合は許可不要です
;ただし、加筆・改変されたものをうpする場合、「別人加筆版であること」を明記し、その加筆・改変部分の改変可否を新たに設定してください
;改変部分に関するreadmeがあるととてもうれしいです

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

;いじるCFLAG　同梱の「CFLAGいろいろ」も参照
;CFLAG:1001 特殊会話発生済みか否かの判定　対応bitは「300,会話」の項目内に
;CFLAG:1002 出会い判定 ※0bit=ミスティア　1=朱鷺子　2=アリス
;CFLAG:1003 一緒にアイテム購入履歴、アイテムID0～49　対応bitはItem.csvのアイテムIDを参照
;CFLAG:1004 一緒にアイテム購入履歴、アイテムID50～99　対応bitはItem.csvのアイテムIDから50引いた数で表現
;CFLAG:1005 一緒にアイテム購入履歴、アイテムID500～549　対応bitはItem.csvのアイテムIDから500引いた数で表現
;CFLAG:1006 一緒にアイテム購入履歴、アイテムID550～599　対応bitはItem.csvのアイテムIDから550引いた数で表現
;CFLAG:1007 一緒にアイテム購入履歴、アイテムID600～649　対応bitはItem.csvのアイテムIDから600引いた数で表現　SETBITでは0～63までしか使えないらしいので泣く泣くこうしました…

;ここから先は別人加筆した人がいじったCFLAG。素質や経験、履歴ごとの初・二回目以降口上を分けるために使用（YM用口上的使い方）
;例えばデートなら、非恋慕時にデートしたことあるけど恋慕取ってからは初めてのデートだねウフフ的な口上が表現できるようになる
;番号はコマンド番号＋1000となっております。コマンド以外の口上（EVENT系とか）は、コマンドに使われてないっぽい200番代＋1000を適当に使用します
;元作者様のと被ったらその時考える（適当）
;
;CFLAG:1603　手を繋ぐ　で使用
;CFLAG:1405　デート　で使用
;CFLAG:1181　媚薬　で使用
;CFLAG:1200　MASTERが押し倒して初うふふ:1　MASTERが押し倒されて初うふふ:2
;CFLAG:1201　部屋で遭遇　で使用　恋慕取得後初めて遭遇:1キスしてから初めて遭遇:2うふふしてから初めて遭遇:3恋人後初めて遭遇:4
;CFLAG:1202　デート帰りイベントで使用　星ちゃんからファーストキス:1　星ちゃんから告白された:2星ちゃんの告白を断った経験あり！悪魔！外道！:3

;使用TCVAR
;TCVAR:20 カウンター行動
;TCVAR:302 会話不能

;星ちゃんの初期ステータス
;能力
;C感覚1、技巧2、奉仕精神3、レズっ気2、清掃技能1、話術技能3、戦闘能力4、教養3、料理技能2
;素質
;処女、キス未経験、素直、一線超えない、貞操観念、猫舌、V敏感、動物耳、禁断の知識、人気
;経験
;C経験5レズ経験10料理経験70

;******************************************************************************
;その他

;コメント・注釈文について。 「;」  …分岐条件などのラベル。あるいは元からテンプレにあった注意文
;							「;※」…状況の解釈や構文の説明、今後の目標などのメモ
;							「;/」 …大変どうでもいい妄言。主に深夜のテンションの産物。無視するなり消すなりお好きにどうぞ
;というふうに勝手に使い分けています

;******************************************************************************
;PS 寅の人
;オリジナル作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
;また本体処理・他口上処理等に干渉する異常処理がある場合でオリジナル作者による修正が
;行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
;その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい
;### 口上存在判定 ###################################
@M_KOJO_K87(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K87
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAGを使う場合、キャラ番号の指定が必要になります
IF FIRSTTIME("U87-1",0,87) && CFLAG:87:面識
	PRINTFORML 呼び名が変わってしまった場合の救済措置です
	PRINTFORML 呼び名が変わって居ない方には手数をおかけします、申し訳ありません
	MASTERNAME:87 =
	PRINTFORMW 「では、あなたの名前を教えて下さい」
	PRINTL 名前を入力してください(直接入力するか、ボタンで選択してください)
	IF NAME:MASTER != "あなた"
		LOCALS = %NAME:MASTER%
	ELSE
		LOCALS = %CALLNAME:MASTER%
	ENDIF
	PRINTBUTTON @"[名前(%LOCALS%)を名乗る]", @"%LOCALS%"
	PRINTL
	;名前を入力するループ
	$INPUT_LOOP_ONAMAE
	INPUTS
	;/見事な響子口上の丸パクだと感心するがどこもおかしくはない
	; 行頭行尾の空白文字削除
	LOCALS = %RESULTS%
	REPLACE LOCALS, "\(\^\\s\+\|\\s\+\$)", ""
	;10文字以上は受け付けない
	IF STRLENS(LOCALS) > 10
		CLEARLINE 1
		REUSELASTLINE 「…ちょっと長すぎますね。通称とかニックネームはお持ちですか？」
		GOTO INPUT_LOOP_ONAMAE
	;空白は受け付けない
	ELSEIF RESULTS == ""
		PRINTL 名前を入力してください
		GOTO INPUT_LOOP_ONAMAE
	ELSE
		; 同姓同名
		IF FLAG:なりきり != 87 && STRCOUNT(LOCALS, "\(寅丸\)\*\\s\*星")
			CLEARLINE 1
			REUSELASTLINE 「…からかってますよね」
			GOTO INPUT_LOOP_ONAMAE
		; 白蓮が主人ではなく、白蓮というフレーズが含まれている。もしくは
		; 響子が主人ではなく、幽谷もしくは響子というフレーズが含まれている
		ELSEIF (FLAG:なりきり != 55 && STRCOUNT(LOCALS, "聖\*\\s\*白蓮")) || (FLAG:なりきり != 88 && STRCOUNT(LOCALS, "\(幽谷\)\*\\s\*響子\$"))
			CLEARLINE 1
			REUSELASTLINE 「…あのですねえ」
			GOTO INPUT_LOOP_ONAMAE
		; 命蓮寺勢はじき
		; うんそうだね多々良勝五郎とか教える人もいるかもしれないもんね
		ELSEIF (FLAG:なりきり != 39 && LOCALS == "ナズーリン") || (FLAG:なりきり != 40 && STRCOUNT(LOCALS, "\(多々良\)\*\\s\*小傘")) || (FLAG:なりきり != 85 && STRCOUNT(LOCALS, "\(雲居\)\*\\s\*一輪")) || (FLAG:なりきり != 86 && STRCOUNT(LOCALS, "\(\(村紗\)*\\s\*水蜜\|ムラサ\)"))
			CLEARLINE 1
			REUSELASTLINE 「…うちの者と紛らわしいので、出来れば他のに」
			GOTO INPUT_LOOP_ONAMAE
		ELSEIF (FLAG:なりきり != 41 && STRCOUNT(LOCALS, "\(封獣\)\*\\s\*ぬえ")) || (FLAG:なりきり != 69 && STRCOUNT(LOCALS, "\(二ツ岩\)\*\\s\*マミゾウ"))
			CLEARLINE 1
			REUSELASTLINE 「え…もしかしていたずらですか？」
			GOTO INPUT_LOOP_ONAMAE
		; 道教勢力はじき
		ELSEIF (FLAG:なりきり != 89 && STRCOUNT(LOCALS, "\(宮古\)\*\\s\*芳香")) || (FLAG:なりきり != 90 && STRCOUNT(LOCALS, "\^霍\*\\s\*青娥")) || (FLAG:なりきり != 91 && STRCOUNT(LOCALS, "\(蘇我\)\*\\s\*屠自古")) || (FLAG:なりきり != 92 && STRCOUNT(LOCALS, "\(物部\)\*\\s\*布都")) || (FLAG:なりきり != 56 && STRCOUNT(LOCALS, "\(\(豊聡耳\)\*\\s\*神子\|聖徳太子\)"))
			CLEARLINE 1
			REUSELASTLINE
			GOTO INPUT_LOOP_ONAMAE
		; 博麗霊夢というフレーズが含まれてる。もしくは
		; 東風谷早苗というフレーズが含まれている
		ELSEIF STRCOUNT(LOCALS, "\(博麗\)\*\\s\*霊夢") || STRCOUNT(LOCALS, "\(東風谷\)\*\\s\*早苗")
			PRINTFORML 「あなたは見た感じ、彼女ほどはっちゃけてませんが…それでいいんですか？」
		; 霧雨魔理沙というフレーズが含まれてる。
		ELSEIF STRCOUNT(LOCALS, "\(霧雨\)\*\\s\*魔理沙")
			PRINTFORML 「まっすぐより曲がるレーザーのが強いんです！…それでいいんですか？」
		; 直接入力ならいけると思ったか？弾くぜ！
		ELSEIF FIRSTTIME("U87-1") && ABL:親密 < 4 && STRCOUNT(LOCALS, "\(お\(\(兄\|にい\)\|\(姉\|ねえ\)\)\(さん\|ちゃん\)\)\$")
			CLEARLINE 1
			REUSELASTLINE 「さすがにそれはちょっと…」
			GOTO INPUT_LOOP_ONAMAE
		ELSEIF FIRSTTIME("U87-1") && ABL:親密 < 7 && STRCOUNT(LOCALS, "\(お\(\(兄\|にい\)\|\(姉\|ねえ\)\)\(様\|さま\)\)\$")
			CLEARLINE 1
			REUSELASTLINE 「さすがにそれはちょっと…」
			GOTO INPUT_LOOP_ONAMAE
		ELSEIF FIRSTTIME("U87-1") && (ABL:従順 < 7 || ABL:奉仕精神 < 7) && STRCOUNT(LOCALS, "\(\(御\|ご\)\(主人\|しゅじん\)\(様\|さま\)\)$")
			CLEARLINE 1
			REUSELASTLINE 「さすがにそれはちょっと…」
			GOTO INPUT_LOOP_ONAMAE
		ELSEIF FIRSTTIME("U87-1") && (!TALENT:恋人 || !TALENT:恋慕) && STRCOUNT(LOCALS, "\(\(旦那\|だんな\)\(様\|さま\)\)\$")
			CLEARLINE 1
			REUSELASTLINE 「さすがにそれはちょっと…」
			GOTO INPUT_LOOP_ONAMAE
		ELSE
			PRINTFORML 「%RESULTS%…ですね」
		ENDIF
		PRINTL [0] はい
		PRINTL [1] いいえ
		;入力した名前を確定するループ
		$INPUT_LOOP_KAKUTEI
		INPUT
		IF RESULT == 0
			;あなたの名前を%MASTERNAME:87%に格納
			MASTERNAME:87 = %RESULTS%
			PRINTFORML
		ELSEIF RESULT == 1
			PRINTL 名前を入力してください
			GOTO INPUT_LOOP_ONAMAE
		ELSE
			PRINTL 名前を入力してください
			GOTO INPUT_LOOP_ONAMAE
		ENDIF
	ENDIF
ENDIF
SIF TALENT:87:プライド == -1
	TALENT:87:プライド = 1
IF TALENT:87:舌使い && ABL:87:舌 < 6
	TALENT:87:舌使い = 0
	TALENT:87:猫舌 = 1
ENDIF
SIF ABL:87:舌 == 6 && TALENT:87:舌使い == 0
	TALENT:87:舌使い = 1
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K87
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;ついでに名前登録も

	PRINTFORML 「ああ！聞いてますよ、あなたが新しい入門者の方ですね。ようこそ命蓮寺へ！」
	PRINTFORMW 「私は寅丸 星、この寺で奉られている毘沙門天様の代理をしています」
	PRINTFORML 「とはいってもこれから同じ場所で寝食を共にするのですから、
	PRINTFORML 　なにかありましたら気楽に話しかけていただいて構いませんよ？　その方が私も気が楽ですから」
	PRINTFORMW そう言うと彼女は柔らかくほほ笑んだ
	PRINTFORMW 「では、あなたの名前を教えて下さい」
		SIF FIRSTTIME("U87-1")
			PRINTL 名前を入力してください(直接入力するか、ボタンで選択してください)
		IF NAME:MASTER != "あなた"
			LOCALS = %NAME:MASTER%
		ELSE
			LOCALS = %CALLNAME:MASTER%
		ENDIF
		PRINTBUTTON @"[名前(%LOCALS%)を名乗る]", @"%LOCALS%"
		PRINTL
		;名前を入力するループ
		$INPUT_LOOP_ONAMAE
		INPUTS
		;/見事な響子口上の丸パクだと感心するがどこもおかしくはない
		; 行頭行尾の空白文字削除
		LOCALS = %RESULTS%
		REPLACE LOCALS, "\(\^\\s\+\|\\s\+\$)", ""
		;10文字以上は受け付けない
		IF STRLENS(LOCALS) > 10
			CLEARLINE 1
			REUSELASTLINE 「…ちょっと長すぎますね。通称とかニックネームはお持ちですか？」
			GOTO INPUT_LOOP_ONAMAE
		;空白は受け付けない
		ELSEIF RESULTS == ""
			PRINTL 名前を入力してください
			GOTO INPUT_LOOP_ONAMAE
		ELSE
			; 同姓同名
			IF STRCOUNT(LOCALS, "\(寅丸\)\*\\s\*星")
				CLEARLINE 1
				REUSELASTLINE 「…からかってますよね」
				GOTO INPUT_LOOP_ONAMAE
			; 白蓮が主人ではなく、白蓮というフレーズが含まれている。もしくは
			; 響子が主人ではなく、幽谷もしくは響子というフレーズが含まれている
			ELSEIF (NO:MASTER != 5 && STRCOUNT(LOCALS, "聖\*\\s\*白蓮")) || (NO:MASTER != 4 && STRCOUNT(LOCALS, "\(幽谷\)\*\\s\*響子\$"))
				CLEARLINE 1
				REUSELASTLINE 「…あのですねえ」
				GOTO INPUT_LOOP_ONAMAE
			; 命蓮寺勢はじき
			; うんそうだね多々良勝五郎とか教える人もいるかもしれないもんね
			ELSEIF (NO:MASTER != 1 && LOCALS == "ナズーリン") || (NO:MASTER != 2 && STRCOUNT(LOCALS, "\(多々良\)\*\\s\*小傘")) || (NO:MASTER != 3 && STRCOUNT(LOCALS, "\(雲居\)\*\\s\*一輪")) || (NO:MASTER != 4 && STRCOUNT(LOCALS, "\(\(村紗\)*\\s\*水蜜\|ムラサ\)"))
				CLEARLINE 1
				REUSELASTLINE 「…うちの者と紛らわしいので、出来れば他のに」
				GOTO INPUT_LOOP_ONAMAE
			ELSEIF (NO:MASTER != 7 && STRCOUNT(LOCALS, "\(封獣\)\*\\s\*ぬえ")) || (NO:MASTER != 9 && STRCOUNT(LOCALS, "\(二ツ岩\)\*\\s\*マミゾウ"))
				CLEARLINE 1
				REUSELASTLINE 「え…もしかしていたずらですか？」
				GOTO INPUT_LOOP_ONAMAE
			; 道教勢力はじき
			ELSEIF STRCOUNT(LOCALS, "\(宮古\)\*\\s\*芳香") || STRCOUNT(LOCALS, "\^霍\*\\s\*青娥") || STRCOUNT(LOCALS, "\(蘇我\)\*\\s\*屠自古") || STRCOUNT(LOCALS, "\(物部\)\*\\s\*布都") || STRCOUNT(LOCALS, "\(\(豊聡耳\)\*\\s\*神子\|聖徳太子\)")
				CLEARLINE 1
				REUSELASTLINE
				GOTO INPUT_LOOP_ONAMAE
			; 博麗霊夢というフレーズが含まれてる。もしくは
			; 東風谷早苗というフレーズが含まれている
			ELSEIF STRCOUNT(LOCALS, "\(博麗\)\*\\s\*霊夢") || STRCOUNT(LOCALS, "\(東風谷\)\*\\s\*早苗")
				PRINTFORML 「あなたは見た感じ、彼女ほどはっちゃけてませんが…それでいいんですか？」
			; 霧雨魔理沙というフレーズが含まれてる。
			ELSEIF STRCOUNT(LOCALS, "\(霧雨\)\*\\s\*魔理沙")
				PRINTFORML 「まっすぐより曲がるレーザーのが強いんです！…それでいいんですか？」
			; 直接入力ならいけると思ったか？弾くぜ！
			ELSEIF ABL:親密 < 4 && STRCOUNT(LOCALS, "\(お\(\(兄\|にい\)\|\(姉\|ねえ\)\)\(さん\|ちゃん\)\)\$")
				CLEARLINE 1
				REUSELASTLINE 「さすがにそれはちょっと…」
				GOTO INPUT_LOOP_ONAMAE
			ELSEIF ABL:親密 < 7 && STRCOUNT(LOCALS, "\(お\(\(兄\|にい\)\|\(姉\|ねえ\)\)\(様\|さま\)\)\$")
				CLEARLINE 1
				REUSELASTLINE 「さすがにそれはちょっと…」
				GOTO INPUT_LOOP_ONAMAE
			ELSEIF (ABL:従順 < 7 || ABL:奉仕精神 < 7) && STRCOUNT(LOCALS, "\(\(御\|ご\)\(主人\|しゅじん\)\(様\|さま\)\)$")
				CLEARLINE 1
				REUSELASTLINE 「さすがにそれはちょっと…」
				GOTO INPUT_LOOP_ONAMAE
			ELSEIF (!TALENT:恋人 || !TALENT:恋慕) && STRCOUNT(LOCALS, "\(\(旦那\|だんな\)\(様\|さま\)\)\$")
				CLEARLINE 1
				REUSELASTLINE 「さすがにそれはちょっと…」
				GOTO INPUT_LOOP_ONAMAE
			ELSE
				PRINTFORML 「%RESULTS%…ですね」
			ENDIF
			PRINTL [0] はい
			PRINTL [1] いいえ
			;入力した名前を確定するループ
			$INPUT_LOOP_KAKUTEI
			INPUT
			IF RESULT == 0
				;あなたの名前を%MASTERNAME:87%に格納
				MASTERNAME:87 = %RESULTS%
				PRINTFORML
			ELSEIF RESULT == 1
				PRINTL 名前を入力してください
				GOTO INPUT_LOOP_ONAMAE
			ELSE
				PRINTL 名前を入力してください
				GOTO INPUT_LOOP_ONAMAE
			ENDIF
		ENDIF
	PRINTFORMW 「改めまして、%MASTERNAME:87%さん」
	PRINTFORMW 「これから、よろしくお願いしますね」

RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント　CFLAG:1202
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;地の文
;PRINTFORML …デートからの帰り道で%CALLNAME:TARGET%はふと立ち止まると
;PRINTFORMW 振り返って%MASTERNAME:87%の口唇を奪った…
;==================================================
@M_KOJO_SPEVENT_K87_1(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;記入スイッチ
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMW 「…」
	PRINTFORMW 「！　ご、ごごごめんなさい、私ったら何してるんでしょう！？」
	PRINTFORMW 「ああ、あのあの、すみません忘れて下さいぃ！」
	PRINTFORML
	PRINTFORMW 星は耐え切れず走り去ってしまった
	;星ちゃんからキスされたフラグ
	CFLAG:1202 = 1
	;※このイベント以外で星ちゃんからファーストキスもらう可能性ってあるのか？

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

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K87_2(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;-------------------------------------------------
;小分岐
;-------------------------------------------------
;告白内容
;この告白内容表示後に受けるかどうかの選択分が表示されます
;地の文
;PRINTFORML デートからの帰り道で%CALLNAME:TARGET%は%MASTERNAME:87%を呼び止めた
;PRINTFORMW 僅かに声を震わせ、%CALLNAME:TARGET%は%MASTERNAME:87%への想いを告げた…
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 0
	;星の告白を断った経験あり
	;/断ったのにデートに誘うとか鬼畜か
	IF CFLAG:1202  ==  3
		PRINTFORMW 「あ、あのっ…%MASTERNAME:87%…」
		PRINTFORMW 「今日は、どうして私などを誘ったのでしょうか…」
		PRINTFORMW 「その気がないのに誘わないでと、以前あなたに申し上げたはずです。からかってるだけなんですか？それとも―」
		PRINTFORMW 「私、期待していいんですか…？」
	;初回
	ELSE
		PRINTFORMW 「あのっ…%MASTERNAME:87%！」
		PRINTFORMW 「私…%MASTERNAME:87%が好きです…！」
		PRINTFORMW 「わかってます…仏教徒なのに愛欲に走るなんて、不甲斐ないです。聖や毘沙門天様に申し訳ありません…でも」
		PRINTFORMW 「どうしても、抑えられませんでしたっ…」
		PRINTFORMW 「%MASTERNAME:87%…受け止めて、いただけないでしょうか…！」
	;星ちゃんから告白されたフラグ
	CFLAG:1202 = 2
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;告白オッケー（恋人が付く）
;記入チェック
;地の文
;PRINTFORML %MASTERNAME:87%が想いを受け入れると%CALLNAME:TARGET%は
;PRINTFORMW 喜びに頬を緩ませた…
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 1
	PRINTFORMW 「…！本当、ですか…！」
	PRINTFORMW 「良かった…本当に…仏の教えに背いてしまった私には、もう、%MASTERNAME:87%しかっ…」
	PRINTFORMW 俯いて嗚咽を漏らす星を優しく抱きとめる
	PRINTFORMW 「ありがとう、ございますっ…こんな、深刻な話を背負わせてしまって、すみませっ…」
	PRINTFORMW 「%MASTERNAME:87%…ありがとう、ございます…！」
	RETURN 1
ENDIF
;-------------------------------------------------
;告白失敗
;告白を拒絶しても再度デート帰りで告白される可能性アリ
;地の文
;PRINTFORML %CALLNAME:TARGET%は%MASTERNAME:87%の言葉に気を落とすと
;PRINTFORMW 寂しそうにうつむいた…
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 2
	PRINTFORMW 「そう、ですよね…」
	PRINTFORMW 「こんな、仏門にふさわしくない妖怪なんて、軽蔑されて当然です…忘れてください」
	PRINTFORMW 「%MASTERNAME:87%…見ての通り、私は欲に溺れてしまった弱い動物です」
	PRINTFORMW 「です、から…もう、今日みたいな、構わないで、下さい…私、もう、もしかしたら、って、思っ…」
	PRINTFORMW さめざめと泣く星を
	PRINTL [0] 落ち着くまで待ってから、黙って手を引き、寺に連れ帰った…
	PRINTL [1] 一人にするため、黙って寺に帰った…
	$INPUT_LOOP_OKOTOWARI
	INPUT
	;/構うなって言ってるのに優しくしちゃうあなたマジ外道
	IF RESULT == 0
		PRINTFORML
	;/何故この口上を入れたし
	ELSEIF RESULT == 1
		;二度と告白イベントが起こらなくなる
		PRINTW ―星から告白されなくなりました―
		SETBIT CFLAG:13 , 1
	ELSE
		GOTO INPUT_LOOP_OKOTOWARI
	ENDIF
	;告白を断ったフラグ
	CFLAG:1202 = 3
	RETURN 1
ENDIF
RETURN 1

;==================================================
;デート反発刻印消去共通イベント
;==================================================
@M_KOJO_SPEVENT_K87_3(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;記入スイッチ
LOCAL = 0
;-------------
IF LOCAL
	;消えた反発刻印はARGで取れます（例：Lv3 -> Lv2の場合、ARG=3）
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;朝イベント（うふふ）
;==================================================
@M_KOJO_SPEVENT_K87_4(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
;CALL SPEVENT_MESSAGE_4(ARG,ARG:1)
;-------------------------------------------------
;フェラ、クンニで起こされる
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 1
	IF RAND:5 == 0
		PRINTFORML 「ぷちゅ、ん、ちゅうっ、んむ…あ、ようやく起きましたね」
		PRINTFORMW 「ふふっ、寝てる間にあなたにえっちなコトするの、意外に楽しいですね…とっても可愛かったですよ♪」
	ELSEIF RAND:4 == 0
		PRINTFORML 「ん、ちゅ、じゅるる、んくっ…ぷぁ、おはようございます」
		PRINTFORMW 「%MASTERNAME:87%のお布団の中、%MASTERNAME:87%の熱とニオイでいっぱいで、凄く興奮しちゃいました%UNICODE(0x2665)%」
	ELSEIF RAND:3 == 0
		PRINTFORML 「んふう、はぁ、ちゅうう、んく、ちゅぱっ」
		PRINTFORMW 目が覚めると、布団の中であなたの性器を貪りながら、下着越しに陰核をあなたの足に擦り付けてオナニーする星の姿があった
		PRINTFORMW 「…もうちょっと続けさせてください、もう少しでイケそうなんです…ちゅぱっ、んはぁっ、んんっ…！」
	ELSEIF RAND:2 == 0
		PRINTFORML 「んくっ、は、んちゅう、あむ、ちゅうぅぅ…あ、おはようございます」
		PRINTFORMW 「あの、%MASTERNAME:87%を起こそうとしたら、%MASTERNAME:87%のココがとっても苦しそうでしたので…続き、いいですか？」
	ELSE
		PRINTFORML 「ちゅむ、んふぅ、んんっ…れるれる、ぷぁ、あ、そのままでいて下さいね」
		PRINTFORMW 「たっぷり我慢して、朝一番の濃いのをいっぱい出してください%UNICODE(0x2665)%」
	ENDIF
	RETURN 1
ENDIF
;--------------------------------------------------
;パイズリで起こされる
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 2
	;精液中毒Lv.3以上でランダム分岐1つ追加
	IF RAND:3 == 0 && ABL:精液中毒 >= 3
		PRINTFORML 「んっ…ふ、あっ、ん…あ、起こしちゃいましたかね」
		PRINTFORML 「一日が始まる前に、私の体にあなたのニオイを付けておこうかと…思いまして%UNICODE(0x2665)%」
		PRINTFORMW 「変態だなんて言わないでくださいよ？誰が私をこんな風にしたと思ってるんです？」
	ELSEIF RAND:2 == 0
		PRINTFORML 「はむ……ちゅるっ…ぷぁっ…」
		PRINTFORMW 「おはようございます、%MASTERNAME:87%%UNICODE(0x2665)%」
	ELSE
		PRINTFORML 「じゅ…　ん、おはようございます、もう起きる時間ですよ」
		PRINTFORML 「こっちはもうとっくに起きてお元気さんですけどね…%UNICODE(0x2665)%」
		PRINTFORMW そう言うと星は再びその胸で%MASTERNAME:87%の陰茎を擦り始めた
	ENDIF
	RETURN 1
ENDIF
;--------------------------------------------------
;騎乗位、貝合わせ (ARG:1が１の場合、ウフフに突入するか否か回答後の口上)
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 3
	;騎乗位、貝合わせ描写
	IF ARG:1 == 0
		PRINTFORML 「はっ、あっ、お、おはようございます…っ」
		PRINTFORMW 「寝てる%MASTERNAME:87%のあそこを弄ってたら、ぅうんっ、私、我慢できなくなっちゃってっ…」
	;そのままウフフモードに突入するか
	ELSE
		;そのまま押し倒した
		IF TFLAG:193 == 1
			PRINTFORMW  「あはっ、朝だからって容赦しませんよ♪お腹いっぱいになるまで食べちゃいますからねっ%UNICODE(0x2665)%」
		;押しのけて朝の準備
		ELSE
			PRINTFORML 「…もうっ、自分勝手なんだからっ」
			PRINTFORMW  すねる星を何とか宥めて朝の準備を始めた…
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

;==================================================
;朝イベント（日常）
;※恋慕持ちで、朝イベント（うふふ）が起こらなかった場合のみ起こる…という理解でいいのだろうか
;==================================================
@M_KOJO_SPEVENT_K87_5(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
;CALL SPEVENT_MESSAGE_5(ARG,ARG:1)
;--------------------------------------------------
;キスで起こされる
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 1
	;恋人状態
	IF TALENT:恋人
		IF RAND:5 == 0
			PRINTFORMW 「…起きちゃいましたか？寝てる%MASTERNAME:87%の唇、とっても美味しかったですよ♪」
		ELSEIF RAND:4 == 0
			PRINTFORML 「おはようございます…もうちょっと寝てる振りしてても、良かったんですよ？」
			PRINTFORMW 「起きるまでずっと、キスしてあげられますから…%UNICODE(0x2665)%」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「…おはようございます。ふふっ♪%MASTERNAME:87%の寝顔がとっても可愛かったので、思わずキスしちゃいました%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ん……　ふふ、おはようございます%UNICODE(0x2665)%」
		ELSE
			PRINTFORMW 「おはようございます。　目覚めのキス…　どうでしたか%UNICODE(0x2665)%」
		ENDIF
	;恋慕のみ
	;/ウブな星ちゃんがやりたかった
	ELSE
		IF RAND:5 == 0
			PRINTFORMW 「ひゃっ！？ややややだなー起きてるんならへ返事してくださいよー」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「っ！？お、おはようございます…っ」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「！？すっすみませんっ、ほんの出来心でっ！」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「こここれはですねぇ、わ、忘れて下さいっ！すみませんでしたぁ！」
		ELSE
			PRINTFORMW 「あ…っ、そ、その、そういう、ことです…」
		ENDIF
	ENDIF
		RETURN 1
ENDIF
;--------------------------------------------------
;揺さぶり起こされる
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 2
	IF RAND:5 == 0
		PRINTFORMW 「こらー！早く起きないと虎がたべちゃいますよー！」
	ELSEIF RAND:4 == 0
		PRINTFORML 「目は覚めましたか？　では今日も頑張っていきましょう！」
		PRINTFORMW 機嫌がいいのか星はにこやかだ
	ELSEIF RAND:3 == 0
		PRINTFORMW 「おはようございます。　よく眠れましたか？」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「おはようございます♪　もう起きる時間ですよ」
	ELSE
		PRINTFORMW 「まだ眠いですか？　でも生活のリズムは大事ですからね」
	ENDIF
	RETURN 1
ENDIF
;--------------------------------------------------
;起こしに来たけど寝てる
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 3
	IF RAND:5 == 0
		PRINTFORML 少し惜しい気もしたが、星を起こすことにした…
		PRINTFORMW 「うう、面目ない…聖や村紗たちには内緒にしてて下さいね…」
	ELSEIF RAND:4 == 0
		PRINTFORML 動けないほど星にがっちりと腕を抱きこまれてしまっている
		PRINTFORMW 大声で起こすしかなさそうだ…
	ELSEIF RAND:3 == 0
		PRINTFORML 起こしに来たであろう星を起こそうとすると、唇に指を当てられた
		PRINTFORMW 「もう少し…このままで居させてください…」
	ELSEIF RAND:2 == 0
		PRINTFORML このままではどうしようもないのでとりあえず星を起こすことにした…
		PRINTFORML
		PRINTFORMW
		PRINTFORML 「えっと…ここには%MASTERNAME:87%を起こそうと思って来たんです」
		PRINTFORML 「でもその…\@ DAY:2 == 4 ? 朝起きるとき寒かったなー # 気持ちよさそうに寝てるなー \@お布団気持ちよさそうだなーと思って…」
		PRINTFORML 「それで気が付いたら………　　…ごめんなさい」
		PRINTFORML 星は一通り弁明した後しょんぼりとうつむいている
		PRINTFORMW とは言えもともと善意で起こしに来たのだしそこまで目くじらを立てる必要はないかもしれない
	ELSE
		PRINTFORML 「ん……%MASTERNAME:87%…%UNICODE(0x2665)%」
		PRINTFORMW どうやらあなたの今日最初の仕事は、星を起こすことのようだ…
	ENDIF
	RETURN 1
ENDIF
;--------------------------------------------------
;起きるまでじっと見てる
;記入チェック
LOCAL:1 = 1
;-------------------------------------------------
IF LOCAL:1 && ARG == 4
	IF TALENT:恋人
		IF RAND:4 == 0
			PRINTFORML 「あ、起きましたね」
			PRINTFORMW 「起こしに来たんですけど、寝顔があんまり可愛かったので♪」
		ELSEIF RAND:3 == 0
			PRINTFORML 「ふふ、おはようございます♪」
			PRINTFORMW 「あーあ、もうちょっと寝てたらキスで起こしてあげたのになー♪」
		ELSEIF RAND:2 == 0
			PRINTFORML 「ふふー♪やっと起きましたね」
			PRINTFORMW 「さて、可愛いものも見れたことだし、今日一日がんばりましょう！」
		ELSE
			PRINTFORML 「ふふ、びっくりしましたか？」
			PRINTFORMW 「それともチューで起こした方が良かったですかね♪」
		ENDIF
	ELSE
		IF RAND:4 == 0
			PRINTFORML 「お、起きましたね」
			PRINTFORMW 「え？私は、そ、その、ここにいただけです、よ？」
		ELSEIF RAND:3 == 0
			PRINTFORML 「あ、お目覚めですか？」
			PRINTFORMW 「あんまりお寝坊さんだと、そのうち猛獣に食べられちゃいますよ♪」
		ELSEIF RAND:2 == 0
			PRINTFORML 「お、おはようございます…」
			PRINTFORMW 「いえ、今来たばかりです…あの、ほんとですよ？」
		ELSE
			PRINTFORML 「えと、おはようございます%MASTERNAME:87%」
			PRINTFORML 「そ、その、ちょうど起こそうと思っていたところで…！」
			PRINTFORML 「別にキスしようとしていたとかそんなことはなくてですね！」
			PRINTFORMW もう少し寝ているべきだったようだ
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;--------------------------------------------------
;イタズラで起こされる
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 5
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1

;==================================================
;夜イベント（うふふ）
;==================================================
@M_KOJO_SPEVENT_K87_6(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
;CALL SPEVENT_MESSAGE_6(ARG,ARG:1)
;--------------------------------------------------
;夜這いキス
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 1
	PRINTFORML
	RETURN 1
ENDIF
;--------------------------------------------------
;夜這い
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 2
	PRINTFORML
	RETURN 1
ENDIF
;--------------------------------------------------
;自慰
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 3
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1

;==================================================
;夜イベント（日常）
;==================================================
@M_KOJO_SPEVENT_K87_7(ARG,ARG:1)
;口上主はTARGET
;共通メッセージ出力
;CALL SPEVENT_MESSAGE_7(ARG,ARG:1)
;--------------------------------------------------
;晩酌
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 1
	PRINTFORML
	RETURN 1
ENDIF
;--------------------------------------------------
;夜風に当たる、お月見（分岐条件はEVENT_MESSAGE.ERB 377行目あたりを参照下さい）
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 2
	PRINTFORML
	RETURN 1
ENDIF
;--------------------------------------------------
;添い寝
;記入チェック
LOCAL:1 = 0
;-------------------------------------------------
IF LOCAL:1 && ARG == 3
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇　CFLAG:1201
;==================================================
@M_KOJO_EVENT_K87_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;恋人取得後初遭遇、一回のみ
		IF TALENT:恋人 && CFLAG:1201 < 5
			;恋慕
			IF TALENT:恋慕
				;星から告白されて恋人
				IF CFLAG:1202  ==  2
					PRINTFORMW 「あ、%MASTERNAME:87%…%UNICODE(0x2665)%」
					PRINTFORMW 「あの、言い忘れてたことがありまして」
					PRINTFORMW 星は「こほん」と咳払いしてから、%CALLNAME:MASTER%の目を真っ直ぐ見て微笑んだ
					PRINTFORML
					PRINTFORMW 「改めまして、%MASTERNAME:87%さん」
					PRINTFORMW 「これから、よろしくお願いしますね」
					PRINTFORMW それは、最初に彼女と出会った時と同じ言葉で、しかし違う意味を持つ言葉だった…
				;MASTERが告白して恋人
				ELSE
					PRINTFORMW 「あ、%MASTERNAME:87%…%UNICODE(0x2665)%」
					PRINTFORMW 「あの、言い忘れてたことがありまして」
					PRINTFORMW 星は「こほん」と咳払いしてから、%CALLNAME:MASTER%の目を真っ直ぐ見て微笑んだ
					PRINTFORML
					PRINTFORMW 「改めまして、%MASTERNAME:87%さん」
					PRINTFORMW 「これから、よろしくお願いしますね」
					PRINTFORMW それは、最初に彼女と出会った時と同じ言葉で、しかし違う意味を持つ言葉だった…
				ENDIF
			ELSE
				PRINTFORMW 「あ…%MASTERNAME:87%…お、お疲れ様です」
				PRINTFORMW 部屋で遭遇した星は、少し俯きながらも挨拶してきた
				PRINTFORMW うっすらと頬に朱が差しているのが可愛らしい
				PRINTFORMW 「…なんというか、やっぱり照れますね、ははは…」
				PRINTFORMW 「いきなりこ…恋人というのもなかなか実感が湧きませんが、少しずつ慣らしていきますね」
			ENDIF
			;恋人後初遭遇済みフラグ
			CFLAG:1201 = 5
		;星の告白を断ったあと初遭遇、一回のみ
		ELSEIF CFLAG:1202 == 3 && CFLAG:1201 < 4
			PRINTFORMW 「あ、%MASTERNAME:87%…お疲れ様、です」
			PRINTFORMW 星はあなたを見て一瞬怯んだものの、いつもと同じように挨拶して微笑んだ
			;星の告白を断ったあと初遭遇済みフラグ
			CFLAG:1201 = 4
		ELSEIF CFLAG:1202  == 2
		;うふふ初体験後初遭遇、どちらか一回のみ表示
		ELSEIF ( CFLAG:1200 == 1 || CFLAG:1200 == 2 ) && CFLAG:1201 < 3
			;MASTERが押し倒されてうふふ
			;/女の子から押し倒すなんてなんてはしたないとか、勢いで押し倒してしまって申し訳ないとかそんな後悔
			;※昨日やったとかさっきやったとか分岐する方法あるかなあ
			IF CFLAG:1200 == 2
				PRINTFORMW 「あ…%MASTERNAME:87%…」
				PRINTFORMW 「そ、その、私、とんでもないことしちゃいました…すみません、あなたの気持ちも考えずに」
				PRINTFORMW 必要以上に罪悪感と恥ずかしさを感じている星に、そんなに気にすることじゃないよと伝えた
				;/押し倒させるまで自分からムード高めといて「押し倒すなんてサイテー」とか言って星ちゃん涙目にさせるとかどんな鬼畜…あれなんか興奮しｔ(ry
				PRINTFORMW 「いえ…到底許されることではありません。修行不足の我が身、より一層の自制を課してぇっ！？」
				PRINTFORMW セリフの途中で星を抱きしめ、また”とんでもないこと”をしてくれると嬉しい、と囁いた
				PRINTFORMW ひぅ、と小さく悲鳴を上げて固まる星
				PRINTFORMW (ああ、聖、毘沙門天様、御免なさい…私、この人を振り払えそうもありません…)
			;MASTERが押し倒してうふふ
			ELSEIF CFLAG:1200 == 1
				PRINTFORMW 「～～～！」
				PRINTFORMW 星と目が合うと、顔を真っ赤にしてそっぽを向かれてしまった
				PRINTFORMW 睦事に慣れるにはまだ時間がかかりそうだ…
			ELSE
				RETURN 1
			ENDIF
			;うふふ初体験後初遭遇済みフラグ
			CFLAG:1201 = 3
		;キス未経験を失ってからの初遭遇、どちらか一回のみ表示
		ELSEIF TALENT:キス未経験 == 0 && CFLAG:1201 < 2
			;星ちゃんからキス、つまりデート帰りのファーストKissイベントを起こした
			IF CFLAG:1202 == 1
				PRINTFORMW 「…」
				PRINTFORMW 星は顔を赤らめながらこちらをチラチラと見ている
				PRINTFORMW どうやらキスの件、無かった事にはなってないようだ…
			;MASTERからキスした
			ELSE
				IF TALENT:恋慕
					PRINTFORMW 「あ、%MASTERNAME:87%…」
					PRINTFORMW 星は若干顔を赤らめながら、あなたにはにかんだ
					PRINTFORMW どうやらキスは成功だったようだ…
				ELSE
					PRINTFORMW 「！」
					PRINTFORMW 部屋にいる星と目が合うと、顔を真っ赤にしてうつむいてしまった
					PRINTFORMW やはり、キスしたことを気にしているのだろうか…
				ENDIF
			ENDIF
			;ファーストキス後初遭遇済みフラグ
			CFLAG:1201 = 2
		;恋慕取得後の初遭遇（一回のみ表示）
		ELSEIF TALENT:恋慕 && CFLAG:1201 < 1
			PRINTFORM 「あ…
			;朝
			IF TIME:2 == 1
				PRINTFORML お、おはようございます、%MASTERNAME:87%…」
			;昼
			ELSEIF TIME:2 == 1
				PRINTFORML こ、こんにちは、%MASTERNAME:87%…」
			ELSE
				PRINTFORML こ、こんばんは、%MASTERNAME:87%…」
			ENDIF
			PRINTFORMW （うう、今まで普通に挨拶できていたのに…顔をまともに見れません…）
			;恋慕後初遭遇済みフラグ
			CFLAG:1201 = 1
		;MASTERの体力が800以下
		ELSEIF BASE:MASTER:体力 <= 800
			PRINTFORML 星はあなたの姿を見ると心配そうな顔で近付いてきた
			IF RAND:3 == 0
				PRINTFORML 「なんだかお疲れのようですよ？働きすぎず、怠けすぎずが全ての生活の基本です」
				PRINTFORMW 確かに、この体力では何をするにも少々心許ないだろう…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「お疲れモードですね。ほら、さっさと寝て明日に引きずらないこと！いいですか？」
			ELSE
				PRINTFORML 「大丈夫ですか%MASTERNAME:87%…なんだか疲れているような顔をしています」
				PRINTFORMW 確かに休憩くらいはとったほうがいいかもしれない…
			ENDIF
		;MASTERの気力が0
		ELSEIF BASE:MASTER:気力 <= 0
			IF RAND:3 == 0
				PRINTFORMW 「そんなフラフラでは何にも出来ませんよ？ほら、部屋に戻って休息してください」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あらあら、何ですかその顔は。気力がないならさっさと寝ること！ね？」
			ELSE
				PRINTFORML 「え、えっと………」
				PRINTFORML やってきた星はこちらに話しかけるのをためらっているようだ
				PRINTFORMW 確かに今は彼女の相手をするだけの気力は残っていない…
			ENDIF
		;21時から24時 ※普通22時には寝てしまうので実質1時間だけ。忍び込みして起きてきた時も出る
		ELSEIF TIME:0 >= 1260
			PRINTFORML 「あ、%MASTERNAME:87%…ふ、ふあぁぁ～」
			PRINTFORML あなたに話しかけようとした星は大きな口をあけて欠伸をした
			PRINTFORMW 「す、すみません…って笑わないでくださいよおっ！　恥ずかしいんですから！」
		;恋慕
		ELSEIF TALENT:恋慕
			;仕事中
			IF CFLAG:325 == 5
				IF RAND:5 == 0
					PRINTFORML 「あら、いらっしゃい。お仕事手伝っていただけます？」
					PRINTFORMW （実を言うと、貴方に手伝ってもらうと仕事が手に付かないんですが…そんなこと言えませんからね）
				ELSEIF RAND:4 == 0
					PRINTFORML 「あ、%MASTERNAME:87%！逢いに来てくれたんですか？」
					PRINTFORML 「申し訳ないですけど、お勤め中ですからあまりあなたのお相手を出来ないのです」
					PRINTFORMW 「いえ、でも、その…私としては、その、いてくれるだけでも、ありがたい、のですが…」
				ELSEIF RAND:3 == 0
					PRINTFORML 「あ、いらっしゃい%MASTERNAME:87%。お勤め中なのであまり構えませんけど」
					PRINTFORMW 「あ、でも、帰らないで下さい…な、何言ってるんですかね私は」
				ELSEIF RAND:2 == 0
					PRINTFORML 「あらいらっしゃい。少し待っててくださいね、今日の分、がんばってやっつけちゃいますから」
					PRINTFORMW 星はなんだか張り切っているようだ
				ELSE
					PRINTFORML 星はあなたに気がつくと優しくほほ笑んだ
					PRINTFORMW 「会いに来てくれたんですか？　だとしたら嬉しいです」
				ENDIF
			ELSE
				;場所限定
				SELECTCASE CFLAG:現在位置
				;居間
				CASE 108
					IF RAND:4 == 0
						;/BGM：虎柄の毘沙門天
						PRINTFORML 「でーっででー、でーでーででー…♪」
						PRINTFORMW 星は何やら鼻歌を歌っていたが、あなたに気が付くとうつむいて黙ってしまった…
					ELSEIF RAND:3 == 0
						PRINTFORML 「これは直進させて、ここで意表をついて曲げれば…」
						PRINTFORMW 星は難しい顔で何やらぶつぶつ呟いている。弾幕の研究だろうか…
					ELSEIF RAND:2 == 0
						PRINTFORML 「♪～……」
						PRINTFORMW 星は居間でくつろいでいる
					ELSE
						PRINTFORMW 星は何かの本を読んでいたが、あなたに気がつくと本を閉じほほ笑んだ
					ENDIF
				;台所
				;/ハングリータイガー
				CASE 111
					IF RAND:3 == 0
						PRINTFORML 「おや%MASTERNAME:87%、お疲れ様です」
						PRINTFORMW 「私ですか？　ちょっと喉が渇いたもので…決してつまみぐいではありません、ええ」
					ELSEIF RAND:2 == 0
						PRINTFORML 「あの、%MASTERNAME:87%…その、一緒に何か作りませんか？」
						PRINTFORMW 「い、いや、だって、誰かと一緒に食べた方が美味しいじゃないですか…」
					ELSE
						PRINTFORML 「あ、%MASTERNAME:87%。何かちょっと食べていきませんか？お腹空いてないですか？」
						PRINTFORMW 「いえ、私は別に空いてないですが、%MASTERNAME:87%が空いてるなら、ご相伴に預かりたいなーって…」
					ENDIF
				;星私室
				CASE 115
					IF RAND:4 == 0
						PRINTFORML 「い、いらっしゃい%MASTERNAME:87%。お茶でも、入れましょうか…？」
						PRINTFORMW 星は明らかに緊張している…
					ELSEIF RAND:3 == 0
						PRINTFORML 「あ…%MASTERNAME:87%…」
						PRINTFORMW 星はそわそわと目線を動かしている…
					ELSEIF RAND:2 == 0
						PRINTFORML 「いらっしゃい、なにかご用ですか？」
						PRINTFORMW 「それとも…%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「あ、お掃除ですか？」
						;汚れ度合いで分岐
						SELECTCASE YOGORE:(CFLAG:MASTER:現在位置)
							;清潔度:高
							CASE IS < 500
								PRINTFORMW 「でもそれほど汚れてはいませんよ、ちゃんと片付けていますから」
							;清潔度:中
							CASE IS < 2000
								PRINTFORMW 「少々ゴミがありますが…これならすぐ片付くかと」
							;清潔度:低
							CASE IS < 5000
								PRINTFORML 「うーん、ちょっと整頓を怠っていましたから結構散らかってしまっていますね…」
								PRINTFORMW 「片づけるの手伝ってもらえますか？」
							;ゴミの山
							CASEELSE
								PRINTFORML 「えーと…あはは、ちょっと探し物をしていたところなので…」
								PRINTFORMW 星の部屋は様々な物が乱雑に転がり壮絶に散らかっている…
								;/たぶんぱんつをなくしたんだろう、星ちゃんをどこかに置いてきた後でゆっくり探すのです
						ENDSELECT
					ENDIF
				;白蓮私室 ※普通はここに来ないみたいだがまあ思いついた以上はということで
				CASE 118
					PRINTFORMW 「%MASTERNAME:87%？　聖に用ですか？」
					;聖が私室にいない
					;※他キャラに触るのは危ないのでせいぜい状態を参照する程度にとどめておきたい
					SIF CFLAG:55:現在位置 != 118
						PRINTFORMW 「でも部屋にはいませんよ、探すなら他のところですね」
				;他
				CASEELSE
					IF RAND:5 == 0
						PRINTFORML 「あら%MASTERNAME:87%、最近良く会いますね」
						PRINTFORMW 「これも愛の力…すみません、忘れてください…」
					ELSEIF RAND:4 == 0
						PRINTFORML 「…%UNICODE(0x2665)%」
						PRINTFORMW 星は潤んだ目線を投げかけてきた…
					ELSEIF RAND:3 == 0
						PRINTFORML 「…」
						PRINTFORMW 星は目線をそらしたまま、さりげなくあなたの傍に寄ってきた…
					ELSEIF RAND:2 == 0
						PRINTFORML 「！！…いえ、何でもないです、何でも」
						PRINTFORMW 星と目が合ったとたん、なぜか激しく動揺された。
					ELSE
						PRINTFORML 「お疲れ様です%UNICODE(0x2665)%」
						PRINTFORMW 星はあなたの姿を見るとにっこりと笑いかけた
					ENDIF
				ENDSELECT
			ENDIF
		ELSE
			;仕事中
			IF CFLAG:325 == 5
				IF RAND:5 == 0
					PRINTFORMW 「あら、いらっしゃい。お仕事手伝っていただけます？」
				ELSEIF RAND:4 == 0
					PRINTFORML 「あら、%MASTERNAME:87%。何か御用ですか？」
					PRINTFORMW 「申し訳ないですけど、お勤め中ですのであまりあなたのお相手を出来ないのです」
				ELSEIF RAND:3 == 0
					PRINTFORMW  「あ、いらっしゃい%MASTERNAME:87%。お勤め中なのであまり構えませんけど」
				ELSEIF RAND:2 == 0
					PRINTFORML 「あらいらっしゃい。すみませんが、お勤めが終わるまでお待ちくださいね」
					PRINTFORMW 「もし手伝っていただければ、その分早く終わりますよ」
				ELSE
					PRINTFORML 星はあなたに気がつくと優しくほほ笑んだ
					PRINTFORMW 「会いに来てくれたんですか？　だとしたら嬉しいです」
				ENDIF
			ELSE
				;場所限定
				SELECTCASE CFLAG:現在位置
				;居間
				CASE 108
					IF RAND:4 == 0
						;/BGM：虎柄の毘沙門天
						PRINTFORML 「でーっででー、でーでーででー…♪」
						PRINTFORMW 星は何やら鼻歌を歌っていたが、あなたに気が付くとうつむいて黙ってしまった…
					ELSEIF RAND:3 == 0
						PRINTFORML 「これは直進させて、ここで意表をついて曲げれば…」
						PRINTFORMW 星は難しい顔で何やらぶつぶつ呟いている。弾幕の研究だろうか…
					ELSEIF RAND:2 == 0
						PRINTFORML 「♪～……」
						PRINTFORMW 星は居間でくつろいでいる
					ELSE
						PRINTFORMW 星は何かの本を読んでいたが、あなたに気がつくと本を閉じほほ笑んだ
					ENDIF
				;台所
				CASE 111
					IF RAND:3 == 0
						PRINTFORML 「おや%MASTERNAME:87%、お疲れ様です」
						PRINTFORMW 「私ですか？　ちょっと喉が渇いたもので…決してつまみぐいではありません、ええ」
					ELSEIF RAND:2 == 0
						PRINTFORML 「あの、%MASTERNAME:87%…その、一緒に何か作りませんか？」
						PRINTFORMW 「い、いや、だって、誰かと一緒に食べた方が美味しいじゃないですか…」
					ELSE
						PRINTFORML 「あ、%MASTERNAME:87%。何かちょっと食べていきませんか？お腹空いてないですか？」
						PRINTFORMW 「いえ、私は別に空いてないですが、%MASTERNAME:87%が空いてるなら、ご相伴に預かりたいなーって…」
					ENDIF
				;星私室
				CASE 115
					IF RAND:4 == 0
						PRINTFORMW 「あら%MASTERNAME:87%。どうしたんですか？」
					ELSEIF RAND:3 == 0
						PRINTFORMW 「あ、%MASTERNAME:87%ですか。なんでしょう？」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「いらっしゃい、なにかご用ですか？」
					ELSE
						PRINTFORML 「あ、お掃除ですか？」
						;汚れ度合いで分岐
						SELECTCASE YOGORE:(CFLAG:MASTER:現在位置)
							;清潔度:高
							CASE IS < 500
								PRINTFORMW 「でもそれほど汚れてはいませんよ、ちゃんと片付けていますから」
							;清潔度:中
							CASE IS < 2000
								PRINTFORMW 「少々ゴミがありますが…これならすぐ片付くかと」
							;清潔度:低
							CASE IS < 5000
								PRINTFORML 「うーん、ちょっと整頓を怠っていましたから結構散らかってしまっていますね…」
								PRINTFORMW 「片づけるの手伝ってもらえますか？」
							;ゴミの山
							CASEELSE
								PRINTFORML 「えーと…あはは、ちょっと探し物をしていたところなので…」
								PRINTFORMW 星の部屋は様々な物が乱雑に転がり壮絶に散らかっている…
								;/たぶんぱんつをなくしたんだろう、星ちゃんをどこかに置いてきた後でゆっくり探すのです
						ENDSELECT
					ENDIF
				;白蓮私室 ※普通はここに来ないみたいだがまあ思いついた以上はということで
				CASE 118
					PRINTFORMW 「%MASTERNAME:87%？　聖に用ですか？」
					;聖が私室にいない
					;※他キャラに触るのは危ないのでせいぜい状態を参照する程度にとどめておきたい
					SIF CFLAG:55:現在位置 != 118
					PRINTFORMW 「でも部屋にはいませんよ、探すなら他のところですね」
				;他
				CASEELSE
					IF RAND:5 == 0
						PRINTFORMW 「あら%MASTERNAME:87%、最近良く会いますね」
					ELSEIF RAND:4 == 0
						PRINTFORMW 「あ、お掃除ですか？　手伝いますよ」
					ELSEIF RAND:3 == 0
						PRINTFORMW 「あ、こんにちは」
					ELSEIF RAND:2 == 0
						PRINTFORML 「？何ですか？」
						PRINTFORMW 星と目が合うと、優しく微笑まれた
					ELSE
						PRINTFORML 「お疲れ様です」
						PRINTFORMW 星はあなたの姿を見るとにっこりと笑いかけた
					ENDIF
				ENDSELECT
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;料理の直後 ※SELECTCOMかも。入ってきたでPREVCOMは無茶か？
		IF PREVCOM == 413
			PRINTFORML ちょうど調理が終わるころ星が台所に顔をのぞかせた
			PRINTFORML 「良いにおいがするなって思ったら…%MASTERNAME:87%がお料理していたんですね」
			PRINTFORML 「………いえ！？　おいしそうだなー、とは思いましたけど！」
			PRINTFORMW …食べたいのだろう
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「あ、%MASTERNAME:87%。　調子はどうですか」
			ELSEIF RAND:2 == 0
				PRINTFORML 「どうですか？　お掃除は捗っています？」
				PRINTFORMW 「大変そうならお手伝いしますから」
			ELSE
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		CALL M_KOJO_MESSAGE_SCOM_K87_6300
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラとデート中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K87_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時添い寝中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:恋慕
				IF !RAND:2
					LOCAL:2 = RAND:5 + 1
					CALL M_KOJO_SPEVENT_K87_5(LOCAL:2)
				ELSE
					LOCAL:2 = RAND:3 + 1
					CALL M_KOJO_SPEVENT_K87_4(LOCAL:2)
				ENDIF
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋慕
				IF !RAND:2
					LOCAL:2 = RAND:5 + 1
					CALL M_KOJO_SPEVENT_K87_5(LOCAL:2)
				ELSE
					LOCAL:2 = RAND:3 + 1
					CALL M_KOJO_SPEVENT_K87_4(LOCAL:2)
				ENDIF
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !RAND:2
			LOCAL:2 = RAND:5 + 1
			CALL M_KOJO_SPEVENT_K87_5(LOCAL:2)
		ELSE
			LOCAL:2 = RAND:3 + 1
			CALL M_KOJO_SPEVENT_K87_4(LOCAL:2)
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or添い寝中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			IF TALENT:恋慕
				IF CFLAG:イタズラ
					PRINTFORML 「ん…おはようございます……」
					PRINTFORML 「起きたのか、みたいな顔してますねー…　あんなにぷにぷに触られたら目も覚めますよー…」
					PRINTFORMW 何だかまだ眠そうな顔をしながら星は起き上がった
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「おはようございます%UNICODE(0x2665)%」
						SIF TALENT:恋人
							PRINTFORMW ただ挨拶を告げるだけでも星は小さな幸せを感じているようだ
					ELSEIF RAND:2 == 0
						PRINTFORMW あなたを見つめながら星は優しく笑った
					ELSE
						PRINTFORML 「ふふっ、おはようございます♪」
						PRINTFORMW (%MASTERNAME:87%の顔を見ながらおはようの挨拶…　それだけなのになんだか素敵な一日になりそうな気がします♪)
					ENDIF
				ENDIF
			ELSE
				;MASTERの自室で起床した
				IF CFLAG:MASTER:現在位置 == CFLAG:MASTER:311
					PRINTFORML
					PRINTFORMW （言えない…起こそうと思ってたらそのまま寝ちゃってたなんて…）
				;TARGETの自室で起床した
				ELSEIF CFLAG:MASTER:現在位置 == CFLAG:TARGET:311
					PRINTFORML
					PRINTFORMW 「え、えっと…　おはようございます？」
				ENDIF
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF TALENT:恋慕
				IF CFLAG:イタズラ
					PRINTFORML 「ん…おはようございます……」
					PRINTFORML 「起きたのか、みたいな顔してますねー…　あんなにぷにぷに触られたら目も覚めますよー…」
					PRINTFORMW 何だかまだ眠そうな顔をしながら星は起き上がった
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 「おはようございます%UNICODE(0x2665)%」
						SIF TALENT:恋人
							PRINTFORMW ただ挨拶を告げるだけでも星は小さな幸せを感じているようだ
					ELSEIF RAND:2 == 0
						PRINTFORMW あなたを見つめながら星は優しく笑った
					ELSE
						PRINTFORML 「ふふっ、おはようございます♪」
						PRINTFORMW (%MASTERNAME:87%の顔を見ながらおはようの挨拶…　それだけなのになんだか素敵な一日になりそうな気がします♪)
					ENDIF
				ENDIF
			ELSE
				;MASTERの自室で起床した
				IF CFLAG:MASTER:現在位置 == CFLAG:MASTER:311
					PRINTFORML
					PRINTFORMW （言えない…起こそうと思ってたらそのまま寝ちゃってたなんて…）
				;TARGETの自室で起床した
				ELSEIF CFLAG:MASTER:現在位置 == CFLAG:TARGET:311
					PRINTFORML
					PRINTFORMW 「え、えっと…　おはようございます？」
				ENDIF
			ENDIF
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K87_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;MASTERが押し倒したうふふ中
		;※うふふ中は就寝時間を過ぎても自室に戻らない？
		IF CFLAG:うふふ
			IF RAND:3 == 0
				PRINTFORMW 「あ…%MASTERNAME:87%…そろそろ、就寝時間です…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%MASTERNAME:87%…私、そろそろ寝ないといけません…」
			ELSE
				PRINTFORMW 「ま、待って%MASTERNAME:87%…そろそろ、戻らないといけません…」
			ENDIF
			IF TALENT:恋人
				IF RAND:3 == 0
					PRINTFORMW 「もっと愛し合っていたいですけれど、私がしっかりしていないと示しが付きませんからね…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「私もまだちょっと、満足できていませんが…」
				ELSE
					PRINTFORMW 「ふふ…睦み合っていると時間を忘れてしまいますね…」
				ENDIF
				PRINTFORML 「それでは%MASTERNAME:87%、また明日…%UNICODE(0x2665)%」
				PRINTFORMW 星は妖艶な笑みと香りを残して、自室に戻って行った…
			ELSEIF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「あ、あの、%MASTERNAME:87%…」
					PRINTFORMW 「私、嫌じゃありませんでした、よ…？」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あの、%MASTERNAME:87%、私その…また、待ってますから…」
				ELSE
					PRINTFORMW 「その…今度は、もっと時間があるときに…」
				ENDIF
				PRINTFORML ぎりぎり聞き取れる小さな声で告げたあと、
				PRINTFORML 「そ、それではっ！%MASTERNAME:87%、また明日っ！」
				PRINTFORMW 星は小走りに去っていった…
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「戻らないと、怪しまれてしまいます…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ばれたら大変ですからね…」
				ELSE
					PRINTFORML 「%MASTERNAME:87%も仕事があるんでしょう…？」
				ENDIF
				PRINTFORMW 星は挨拶もそこそこに、逃げるように去って行った…
			ENDIF
			RETURN 1
		;星が押し倒したうふふ中
		ELSEIF CFLAG:うふふ == 2
			IF RAND:3 == 0
				PRINTFORMW 「あ…%MASTERNAME:87%…そろそろ、就寝時間です…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%MASTERNAME:87%…私、そろそろ寝ないといけません…」
			ELSE
				PRINTFORMW 「%MASTERNAME:87%…そろそろ、戻らないといけません…」
			ENDIF
			IF TALENT:恋人
				IF RAND:3 == 0
					PRINTFORMW 「もっと愛し合っていたいですけれど、私がしっかりしていないと示しが付きませんからね…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「私もまだちょっと、満足できていませんが…」
				ELSE
					PRINTFORMW 「ふふ…睦み合っていると時間を忘れてしまいますね…」
				ENDIF
				PRINTFORML 「それでは%MASTERNAME:87%、また明日…%UNICODE(0x2665)%」
				PRINTFORMW 星は妖艶な笑みと香りを残して、自室に戻って行った…
			ELSEIF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「あ、あの、%MASTERNAME:87%…」
					PRINTFORMW 「嫌じゃなかったら、今度また、その…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あの、%MASTERNAME:87%…また今度、私と…」
				ELSE
					PRINTFORMW 「その…今度は、もっと時間があるときに…」
				ENDIF
				PRINTFORML ぎりぎり聞き取れる小さな声で告げたあと、
				PRINTFORML 「そ、それではっ！%MASTERNAME:87%、また明日っ！」
				PRINTFORMW 星は小走りに去っていった…
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「戻らないと、怪しまれてしまいます…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ばれたら大変ですからね…」
				ELSE
					PRINTFORML 「%MASTERNAME:87%も仕事があるんでしょう…？」
				ENDIF
				PRINTFORMW 星は挨拶もそこそこに、逃げるように去って行った…
			ENDIF
			RETURN 1
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「それでは%MASTERNAME:87%、また明日」
			ELSEIF RAND:2 == 0
				PRINTFORMW 星は小さく欠伸をするとあなたに挨拶をして自室に戻って行った
			ELSE
				PRINTFORMW 「ん…　そろそろ休むことにします。　%MASTERNAME:87%、おやすみなさい」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;眠そうにしている【毎ターン出力】
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）【毎ターン出力】
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF RAND:8 == 0
			PRINTFORMW 「…すぅ……む」
		ELSEIF RAND:7 == 0
			PRINTFORMW 星は寝がえりを打ちそうになったがそのまま元に戻った
		ELSEIF RAND:6 == 0
			PRINTFORMW ときどきぽりぽりと首を掻いている
		ELSEIF RAND:5 == 0
			PRINTFORMW 「…………ん、うにゃ…」
		ELSEIF RAND:4 == 0
			PRINTFORML 「くー……くー……」
			PRINTFORMW 星はかわいい寝息を立てている
		ELSEIF RAND:3 == 0
			PRINTFORMW 「すー…んん…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ん…むにゃ…えへへ…こんなにいっぱい…たべきれませんよぉ%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「すぅ…あう…ん……ごめんなさいぃ」
			PRINTFORML 星は涙を浮かべながら何かをしきりに謝っている
			PRINTFORMW 夢の中で何をしてしまったのだろう…
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中【毎ターン出力】
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETがダウン（衰弱）
	;※恋慕でないと部屋には運ばない
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;浴場にいる
		IF BATHROOM()
			PRINTFORML 「うー……　のぼせちゃったみたいです…」
			IF TALENT:恋慕
				PRINTFORML あなたは水に濡らした手拭いを取ると星の額に乗せた
				PRINTFORML 「ありがとうございます…しばらく眠れば良くなると思いますから…」
				PRINTFORMW 「心配掛けてごめんなさい%MASTERNAME:87%…」
			ELSE
				PRINTFORMW 「とりあえずお水を飲んだら横になってきます…」
			ENDIF
		ELSE
			IF CFLAG:うふふ
				;恋慕
				IF TALENT:恋慕
					PRINTFORML
					IF RAND:4 == 0
						PRINTFORML 星を横にさせたあなたが立ち去ろうとすると引っ張られるような感覚がした
						PRINTFORMW 見ると星があなたの服の裾を掴んだまま見上げてきている
						PRINTFORML 「ご、ごめんなさい%MASTERNAME:87%…」
						PRINTFORML 「でも…もうちょっとだけ一緒にいてくれませんか…？」
						PRINTFORMW 「そしたらきっと安心して眠れますから…」
						PRINTFORML 星のお願いを聞いたあなたは腰を下ろすと星が眠るまで待つと約束した
						PRINTFORML 「ありがとう…ございます…これで……」
						PRINTFORML
						PRINTFORML しばらくすると星の寝息が聞こえてきた
						PRINTFORMW その寝顔は安心しきった幸せそうなものだった
					ELSEIF RAND:3 == 0
						PRINTFORML 「すみません、部屋まで送らせてしまって…」
						PRINTFORMW 「はい、ちゃんと休みますから…　お休みなさい%MASTERNAME:87%…」
					ELSEIF RAND:2 == 0
						PRINTFORML 「あはは…ちょっと張り切り過ぎてしまいました」
						PRINTFORMW 「本当はもっと%MASTERNAME:87%と愛し合っていたかったんですけどね」
					ELSE
						PRINTFORML 「身体はこんなに疲れきっているのに…」
						PRINTFORML 「私の中の女の部分がまだ%MASTERNAME:87%を求めているんです…」
						PRINTFORMW 「だから%MASTERNAME:87%…　また、しましょうね…%UNICODE(0x2665)%」
					ENDIF
				ELSE
					PRINTFORML
					PRINTFORML 「はぁ、はぁ……　今はここまでにしておきましょう？」
					PRINTFORMW 「これ以上するときっと私倒れてしまいますので…」
				ENDIF
			ELSE
				PRINTFORMW 「ちょっと疲れているみたいですね…少し休むことにします」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
			PRINTFORML
		;浴場にいる
		IF BATHROOM()
			PRINTFORML 「大丈夫ですか%MASTERNAME:87%」
			PRINTFORML 「うーん、のぼせているみたいではないようですし…湯疲れですかね？」
			PRINTFORMW 「お水を汲んできますから…とりあえずそれを飲んで今日のところは休んでください」
		ELSEIF CFLAG:うふふ
			PRINTFORML 「ごめんなさい%MASTERNAME:87%…」
			PRINTFORMW 「私、夢中になってしまって…　いけませんね、交合は相手のことも思いやってあげなければいけないのに…」
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「大丈夫ですか%MASTERNAME:87%」
				PRINTFORMW 「眠るまで傍にいますから…安心して眠ってくださいね」
			ELSE
				PRINTFORML 「だいぶお疲れだったみたいですね…」
				PRINTFORMW 「今日はこのまま休んでしまっていいですよ」
			ENDIF
		ENDIF
			PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K87_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;恋人
		IF TALENT:恋人
			IF RAND:2 == 0
				PRINTFORML 「あ、お疲れ様です。　　　あ…」
				PRINTFORMW 通りがかりに優しく髪を梳いてやると星は嬉しそうに目を細めた
			ELSE
				PRINTFORMW こちらの視線に気付くと星も小さく手を振った
			ENDIF
		ELSE
			;MASTERの気力が0
			IF BASE:MASTER:気力 <= 0
				PRINTFORMW 力なく会釈して通り過ぎていくあなたを星は心配そうに見送った
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 星は鼻歌交じりに何かをしていたがあなたに気付くと頭を下げた
				ELSE
					PRINTFORMW 「あ、お疲れ様です」
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K87_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ナズーリンが入ってきた
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一輪が入ってきた
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K87_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML 「お、お邪魔しましたっ……」
		PRINTFORMW 星は顔を真っ赤にしながらぎくしゃくとした動きで離れていった…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K87_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める
;==================================================
@M_KOJO_EVENT_K87_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

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

;==================================================
;弱みを握った
;==================================================
@M_KOJO_EVENT_K87_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;（TARGETが）押し倒した
;室外では押し倒されない&仕事中も自重
;==================================================
@M_KOJO_EVENT_K87_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;初めて
		;記入チェック
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
			;恋人
			IF TALENT:恋人
				PRINTFORMW 「ねえ…%MASTERNAME:87%　私って、あんまり魅力無いですか…？」
				PRINTFORMW あなたに覆いかぶさった星が、耳元で囁く
				PRINTFORMW 「こういう関係になったのに…私、これでも結構覚悟してたんですよ？」
				PRINTFORMW 「それなのに貴方は何時まで経っても…自信、無くなっちゃうじゃないですか…」
				PRINTFORMW 「もし、こういうことがお嫌いなら、私を押し退けて下さい…もう、しませんから」
				;/もうしませんとか言うけど、ここで逢引終了しても今後押し倒さなくなるとかそういう処理はありませーん
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW 「…あ、あれ…？どうして%MASTERNAME:87%が私の下にいるんですか…？」
				PRINTFORMW どうしてと言われても。
				PRINTFORMW 「ご、ごめんなさい、すぐどきます、から…」
				PRINTFORMW そう言いつつも、一向に動く気配は無い。むしろ、顔がどんどん近づいてくる…
			ELSE
				PRINTFORMW 「んふー♪」
				PRINTFORMW 押し倒したまま、上気した顔で星が笑う
				PRINTFORMW 「あのですねえ、私、こう見えても虎の妖怪ですよ？」
				PRINTFORMW 「こんなにいろんなトコ触ったり、ちゅーしたり、ちょっと調子に乗ってやしませんか？」
				PRINTFORMW 「すっかり体が火照ってしまったじゃないですか。つまり、私に食べて欲しいってことですよね」
				PRINTFORMW 星の目に捕食者の光が宿る。その瞳を覗くだけで、抵抗することができなくなる…
				PRINTFORMW 「お望みどおり、私が食べてあげます…%UNICODE(0x2665)%」
			ENDIF
			;MASTERが押し倒されたことがある　経験アリに
			CFLAG:1200 = 2
		RETURN 1
		;恋慕
		ELSEIF TALENT:恋慕
			;キスするの直後
			IF PREVCOM == 312
				IF RAND:2 == 0
					PRINTFORML 「キスだけじゃ…物足りなくなっちゃいました…%UNICODE(0x2665)%」
					PRINTFORMW 「わるい子、なんて思わないでくださいね…？」
				ELSE
					PRINTFORML 「唇だけじゃなくて全身で…%MASTERNAME:87%のこと、もっと感じていたいんです…」
					PRINTFORMW 星はあなたの首に腕を回すと甘えるようにしなだれかかってきた
				ENDIF
			;尻を撫でる、胸愛撫、秘所愛撫、アナル愛撫の直後
			ELSEIF GROUPMATCH(PREVCOM, 310, 313, 314, 315)
				IF RAND:2 == 0
					PRINTFORML 「先にえっちなことしてきたのは%MASTERNAME:87%なんですから…」
					PRINTFORMW 「火を点けた責任…取ってくださいね…%UNICODE(0x2665)%」
				ELSE
					PRINTFORML あなたの愛撫に火が点いた星は熱のこもった瞳であなたを見つめている…
					PRINTFORML 「今度は私の番ですよ？」
					PRINTFORMW 「いっぱい気持ちよくしてあげますからね%UNICODE(0x2665)%」
				ENDIF
			;食事をとるの直後
			ELSEIF PREVCOM == 414
				IF RAND:2 == 0
					PRINTFORML 「お腹も膨らんだことですし…」
					PRINTFORMW 「腹ごなしの甘ーい運動、なんてどうですか%UNICODE(0x2665)%」
				ELSE
					PRINTFORMW 「食後のデザート…　おひとついかがですか…？」
				ENDIF
			;浴場にいる
			ELSEIF BATHROOM()
				PRINTFORML 「んぅ……%MASTERNAME:87%の身体見ていたら…お腹の奥が熱くなってきちゃいました」
				PRINTFORML 「このままここでしちゃいましょう…？」
				PRINTFORMW 星はその裸体をあなたに押し付けている…
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「んん…すぅ……　%MASTERNAME:87%の…におい…」
					PRINTFORMW 星はあなたの香りを胸一杯に吸い込んでいる
				ELSEIF RAND:2 == 0
					PRINTFORML 「%MASTERNAME:87%…　私…」
					PRINTFORMW 星は火照った身体をあなたに摺り寄せている
				ELSE
					PRINTFORML 「%MASTERNAME:87%…　いけないこと…しましょう？」
					PRINTFORMW 星の瞳は劣情に潤んでいる…
				ENDIF
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「ごめんなさい%MASTERNAME:87%…」
				PRINTFORMW 「身体が、熱くなって…がまん、できないんですっ…！」
			ELSE
				PRINTFORML 「本当は…こんなこと駄目なんです…」
				PRINTFORMW 「でも…抑えきれなくって…」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K87_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF RAND:2 == 0
			PRINTFORMW 「わわわ！　入ってます、入ってますよおっ！！」
		ELSE
			PRINTFORMW 風呂場に入るとちょうど星が体を流しているところだった
			PRINTFORMW 「……」
			PRINTFORML しばしの沈黙
			PRINTFORML 「…ひゃああっ！？」
			PRINTFORMW そして星の悲鳴が寺中に響き渡った
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;恋人
		IF TALENT:恋人
			IF RAND:2 == 0
				PRINTFORMW 「あ、%MASTERNAME:87%♪ お背中流しましょうか♪」
			ELSE
				PRINTFORMW 「%MASTERNAME:87%もお風呂ですか？　それではご一緒しましょう」
			ENDIF
		;恋慕のみ
		;/恋人同士じゃなくても一緒に入浴できちゃう命蓮寺の人々はとてもおおらかな価値観なのだろう…幻想郷行きてぇ
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「わわわ、%MASTERNAME:87%ですか…その、お背中流しましょう、か？」
			ELSE
				PRINTFORMW 「あ、あなたですか…そ、その、一緒のお風呂でも、私は気にしません、よ？」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K87_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;寝床に侵入
	;※眠ったままだったり怒って追い出されたり。恋慕でも出る。
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		IF CFLAG:LOCAL:ブチギレ
				PRINTFORML 「何か用ですか。　私は眠るところなのですが」
				PRINTFORMW 言葉にも凄味というか棘がある
		ELSEIF CFLAG:睡眠
			IF RAND:2 == 0
				PRINTFORMW 星は気持ちよさそうに眠っている
			ELSE
				PRINTFORML 「すぅ……すぅ……」
				PRINTFORMW 星を起こさずに侵入できた
			ENDIF
		ELSE
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		IF TALENT:恋人
			IF RAND:2 == 0
				PRINTFORMW 「ああ、%MASTERNAME:87%だったのですか…　泥棒かと思っちゃったじゃないですか」
			ELSE
				PRINTFORMW 「ぬえがまたイタズラに来たのかと思いましたが…　%MASTERNAME:87%なら歓迎しますよ」
			ENDIF
		;/付き合ってもないのに恋慕相手がいきなり布団の中に入ってきたら超緊張するってレベルじゃねーだろjk
		ELSE
			IF RAND:3 == 0
				PRINTFORML （えっ！？えっ！？えっ！？こここれはももしや、夜這いってやつですか！？）
				PRINTFORMW （わわわ、私は、どっどうすれば、いいんでしょうか！？）
			ELSEIF RAND:2 == 0
				PRINTFORML 「んー、えへへー%MASTERNAME:87%といっしょにねれるなんていいゆめですねー」
				PRINTFORMW 「だきついちゃったりーしちゃってもーへへー…ふふ…すぅ…」
			ELSE
				PRINTFORML 「あ、そ、その、こんばんは」
				PRINTFORMW 「え、えっと、えっと、私は寝ます！」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中（現在、本体のみの場合 星・白蓮・響子のみ有効）
;※星ちゃん本堂で何してるんだろう

;==================================================
@M_KOJO_EVENT_K87_13(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;※既に本堂にいる場合は出ない
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;※現状、このタイミングではCFLAG:うふふは使用できないらしい。
		;※IF ARG:1 == -1　でうふふに入っていたかを判定できるそうなので、暫定的にそれで代用。ただし、うふふ１かうふふ２は判別できないらしい
		;うふふを中断して向かう
		;IF CFLAG:うふふ == 1
		IF ARG:1 == -1
			IF RAND:3 == 0
				PRINTFORMW 「っは、っは、%MASTERNAME:87%、仕事の時間です、行かないとばれてしまいます…」、
			ELSEIF RAND:2 == 0
				PRINTFORMW 「は、ああ、駄目、時間です、私、もう行かないと…」
			ELSE
				PRINTFORMW 「はあ、はあ、もう、こんな時間、ですか…私、行かないと…」
			ENDIF
			PRINTFORML 星はフラフラと立ち上がり、後始末もそこそこに仕事場に向かった
			PRINTFORMW 全身から発情した香りを漂わせたまま――
		;ELSEIF CFLAG:うふふ == 2
		;	IF RAND:3 == 0
		;		PRINTFORMW 「っは、っは、%MASTERNAME:87%、仕事の時間です、行かないとばれてしまいます…」、
		;	ELSEIF RAND:2 == 0
		;		PRINTFORMW 「は、ああ、駄目、時間です、私、もう行かないと…」
		;	ELSE
		;		PRINTFORMW 「はあ、はあ、もう、こんな時間、ですか…私、行かないと…」
		;	ENDIF
		;	PRINTFORML 星はフラフラと立ち上がり、後始末もそこそこに仕事場に向かった
		;	PRINTFORMW 全身から発情した香りを漂わせたまま――
		;雨天で講堂にいない
		ELSEIF GROUPMATCH(TIME:5, 4, 5, 6) && CFLAG:MASTER:現在位置 != 104
			PRINTFORMW 「そろそろお仕事ですけど…　この雨\@ TIME:5 <= 5 ? だと傘が必要ですね # なら走ればそんなに濡れませんかね \@」
		;浴場にいる
		ELSEIF BATHROOM()
			PRINTFORMW 「よし、お風呂に入って目も覚めましたしお仕事いってきます！」
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「さて、今日のお勤め、がんばりますか！」
			ELSE
				PRINTFORMW 「おっと、もうこんな時間ですね」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF RAND:3 == 0
			PRINTFORMW 「よし、今日の分、終わり！」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふー、これでよし、っと」
		ELSE
			PRINTFORMW 「終わりましたー！」
		ENDIF
		;早く終わった
		IF TIME:0 <= 1020
			;※17時より早い=手伝った　という解釈
			;※でもコマンド実行後の時間なので直前のコマンドによる時間経過で17時超えてしまうと出ない。手伝いは一回で1時間もかかるので注意
			;※バッタはどうするか考え中
			PRINTFORML 「%MASTERNAME:87%のおかげで早く片付きました、ありがとうございます」
			PRINTFORMW そう言って星はあなたにぺこりと頭を下げた
			;恋人
			IF TALENT:恋人
				PRINTFORML 「…これで二人の時間、少し長く作れますね」
				PRINTFORMW 少しして顔を上げた彼女の頬は赤く染まっていた
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW 「…それで、仕事は終わりましたけど、もうちょっといてくれても…ほら、お礼もしたいですし…」
			ENDIF
		ELSE
			PRINTFORMW 仕事を終えた星は大きく伸びをして身体をほぐしている
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K87_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

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

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K87_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが押し倒した（ウフフ開始時）
	;※CALL KOJO_MESSAGE_SEND("EVENT",15,LOCAL,1,0)はないみたいだけどどこで出力されるんだろう
	;※↑出力場所は現在無いらしい。MASTERが押し倒した時の口上は「押し倒した」にてどうぞ。なお、下の「逢瀬終了」は正常に表示される模様
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF TALENT:恋人
			;今回一度も絶頂してない
			IF CFLAG:1502 + CFLAG:1503 + CFLAG:1504 + CFLAG:1505 == 0
				PRINTFORML 「あの、ほんとに終わりなんですか？」
				PRINTFORML 「えっと、あの、その……　うー…」
				PRINTFORMW どうも星はまだ満足していないようだ…
			ELSE
				IF RAND:2 == 0
					;Ｃ絶頂ばかりさせた
					IF CFLAG:1502 >= 8 && CFLAG:1503 + CFLAG:1504 + CFLAG:1505 <= 8
						PRINTFORML 「はーっ、はーっ…%UNICODE(0x2665)%　んっ、はーっ…」
						PRINTFORML 秘所を責め続けられた星はいまだ心ここに在らずといった風に虚空を見つめている
					PRINTFORMW その陰唇はぷっくりと充血し陰核はいまだ萎えることなく張りつめている…
					;Ｖ絶頂ばかりさせた
					ELSEIF CFLAG:1503 >= 8 && CFLAG:1502 + CFLAG:1504 + CFLAG:1505 <= 8
						PRINTFORML 「うあぁ……おなか、とろとろです…ぅ…%UNICODE(0x2665)%」
						PRINTFORMW 膣肉をほじくられ続けた星はいまだ消えぬ膣内絶頂の余韻に身を震わせている…
					;Ｂ絶頂ばかりさせた
					ELSEIF CFLAG:1504 >= 8 && CFLAG:1502 + CFLAG:1503 + CFLAG:1505 <= 8
						PRINTFORML 「おっぱいがぁ…%UNICODE(0x2665)%　すご、ぃい……%UNICODE(0x2665)%」
						PRINTFORML たっぷりと胸を愛撫された星は蕩けた顔で行為の余韻に浸っている
						PRINTFORMW その先端は行為を終えてしばらくたっても硬く反り立っていた…
					;Ａ絶頂ばかりさせた
					ELSEIF CFLAG:1505 >= 8 && CFLAG:1502 + CFLAG:1503 + CFLAG:1504 <= 10
						PRINTFORML 「お尻ぃ……　まだ、気持ちいいぃ……%UNICODE(0x2665)%」
						PRINTFORMW 尻穴ばかりを責められた星は緩んだアヌスを収縮させながら身悶えている…
					;四ヶ所の合計で10回以上絶頂させた
					ELSEIF CFLAG:1502 + CFLAG:1503 + CFLAG:1504 + CFLAG:1505 >= 10
						PRINTFORML 「は…ぁ……いっぱい、気持ちよくされちゃいました…%UNICODE(0x2665)%」
						PRINTFORMW 星は甘い顔で熱の籠った吐息をこぼしている
					ENDIF
				ELSEIF RAND:4 == 0
					PRINTFORML 「ふう…とっても良かったですよ、%MASTERNAME:87%」
					PRINTFORMW 「結局、二人とも猛獣でしたね…%UNICODE(0x2665)%」
				ELSEIF RAND:3 == 0
					PRINTFORML 「ん…♪お腹も心も%MASTERNAME:87%でいっぱいです」
					PRINTFORMW 「ご馳走様でした♪また食べさせてくださいね…%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ふふ…気持ちよかったです…」
					PRINTFORMW 「また、しましょうね…%MASTERNAME:87%…%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「ここまで、ですか？」
					PRINTFORML 「分かりました…また、しましょうね%UNICODE(0x2665)%」
					PRINTFORMW 星はあなたの頬に優しく口づけをした…
				ENDIF
			ENDIF
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORML 「あ、あのっ…その、気持よく、出来てたでしょうか…」
				PRINTFORMW 「私、まだもうちょっと、がんばれます、よ？」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ど、どうでした、か…？私、上手くできてましたか？」
				PRINTFORMW 「私はその…すごく、良かった、です…」
			ELSE
				PRINTFORML 「結局、私がされっぱなしでしたね…すみません」
				PRINTFORMW 「今度までに、私、べ、勉強、しておきますっ」
			ENDIF
		;恋人、恋慕なし
		ELSE
			IF RAND:3 == 0
				PRINTFORMW （はぁ…またやってしまいました…）
			ELSEIF RAND:2 == 0
				PRINTFORMW （うう…この方相手だと色欲を抑えられません…どうしましょう）
			ELSE
				PRINTFORMW （また流されてしまいました…仏教徒失格です…）
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K87_16(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋人
			IF RAND:3 == 0
				PRINTFORML 「寝るときも一緒って、とっても素敵です」
				PRINTFORMW 「手、繋いでください…%UNICODE(0x2665)%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ん…一緒に寝てくださるのですか？嬉しいです…♪」
				PRINTFORMW 「…おやすみのキス、頼んでいいですか…？」
			ELSE
				PRINTFORML 「あの…%MASTERNAME:87%…」
				PRINTFORMW 「抱きついて寝ても、いいですか…？」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW （添い寝してくれるなんて…やややっぱり、き、期待しても、いいんでしょうか…）
			ELSEIF RAND:2 == 0
				PRINTFORMW （うう…緊張して逆に寝れませんよお…）
			ELSE
				PRINTFORML 「そ、添い寝ですか！？だだ大丈夫ですよ、一人で寝られます！」
				PRINTFORMW 「いえそのっ…嫌ではない、のです、が…その、よろしくお願いします…」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;服脱がし
;==================================================
@M_KOJO_EVENT_K87_28(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;全裸にした（MASTERも全裸になる）
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
			PRINTFORML 星は今着ている服を全て脱ぎ去り一糸纏わぬ姿になった
			PRINTFORML
			IF RAND:3 == 0
				PRINTFORMW 透き通るような彼女の肌はほんのりと桜色に染まっている…
			ELSEIF RAND:2 == 0
				PRINTFORML (%MASTERNAME:87%に…私の全部見られて…)
				PRINTFORMW 星は頬を染めてじっとしている
			ELSE
				PRINTFORML 「%MASTERNAME:87%…私の身体、どうですか…？」
				PRINTFORMW 星は潤んだ瞳であなたを見つめている
			ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;服を一部脱がした(CASE番号はEquip.csv参照)
	;記入チェック
	LOCAL:1 = 0
	;TWとは脱衣構造が別なので、勿体ないけど非表示
	;※星ちゃんの基本は起床時 2,髪飾り 3,靴(外にいるとき) 4,靴下 6,今日のぱんつ 7,ズボン 9,スカート 10,ブラジャー 13,ブラウス
	;				 　就寝時 6,今日のぱんつ 16,襦袢
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;イタズラ中　※これ以降も過激なイタズラ中に喋ってしまわないよう気をつけないと…
		IF CFLAG:イタズラ && CFLAG:睡眠
		ELSE
			SELECTCASE ARG:1
				;上半身上着（ワンピース等もこっち）
				;CASE 12,13,14,15,16,17
					;ブラウス
					CASE 13
					;※あの服は前が開くか分からんので　1.リボン緩めて首が通るようにする　2.はい、ばんざーい　3.赤いのごと脱がす　といったプロセスで脱がすことに
						PRINTFORML あなたは星に万歳の体勢を取らせると引き抜くように服を脱がした
						PRINTFORML
						;ブラジャーあり
						IF TEQUIP:1 & 4
							IF RAND:3 == 0
								PRINTFORML 「あ…」
								PRINTFORMW 星は素肌の大部分を晒されて上気している…
							ELSEIF RAND:2 == 0
								PRINTFORMW 「誰かに脱がせてもらうって、ちょっと新鮮です…%UNICODE(0x2665)%」
							ELSE
								PRINTFORML 「んーっ」
								PRINTFORMW 星は頭をふるふると振り乱れた髪を直している
							ENDIF
						ELSE
							IF RAND:3 == 0
								PRINTFORML 「やぁ…っ」
								PRINTFORMW 上半身を晒された星は、おもわず両腕で乳房を隠した…
							ELSEIF RAND:2 == 0
								PRINTFORMW 「なんで下着を先にぬ、脱がしたんですか…？」
								;/趣味（ｷﾘｯ
							ELSE
								PRINTFORML 「は、うっ…%UNICODE(0x2665)%」
								PRINTFORMW 敏感な部分が擦られたのか星は小さく声をあげた
							ENDIF
						ENDIF
					;襦袢
					CASE 16
					;※襦袢には種類がありますがとりあえずここでは白の長襦袢の柔らかいのと考えて
					;/でも薄めの肌襦袢もいいなぁ。よく見るとちょっと桜色が透けててね、弄られて先っぽ尖っちゃったのを指摘すると星ちゃん顔真っ赤にしちゃってね、それで
						PRINTFORML あなたは星の襦袢の紐を解くと大きく前をはだけさせた
						PRINTFORML
						IF RAND:2 == 0
							PRINTFORML 「ん……ぁ…%MASTERNAME:87%……っ」
							PRINTFORMW %CALLNAME:MASTER%は星の身体をまさぐりながらゆっくりと襦袢を脱がしていった…
						ELSE
							PRINTFORMW 「ふぁ……う……ん…%UNICODE(0x2665)%」
						ENDIF
					;残り
					CASE 12,14,15,17
				;下半身上着
				;CASE 7,8,9
					;ズボン
					CASE 7
						PRINTFORML あなたは星のズボンを掴むと少しずつずり下ろして行った
						PRINTFORML
						;スカート履いたまま
						IF TEQUIP:0 & 1
							IF RAND:3 == 0
								PRINTFORMW 「あ…やぁ…」
							ELSEIF RAND:2 == 0
								PRINTFORMW 星は顔を赤らめて、脱がされるのをじっと待っている…
							ELSE
								PRINTFORMW 脱がされて恥ずかしいのか星はスカートで押さえつけるように下着を隠した
							ENDIF
						;スカートなし
						ELSE
							;潤滑5以上
							IF PALAM:潤滑 >= PALAMLV:5
								PRINTFORMW 露わになった下着は濡れそぼっており既にその役目を果たしてはいなかった
							;潤滑2以上
							ELSEIF PALAM:潤滑 >= PALAMLV:2
								PRINTFORMW 露わになった%PANTSNAME(EQUIP:下半身下着２, TARGET)%には染み込んだ愛液がうっすらと筋を作り上げている
							ELSE
								PRINTFORML 「ど、ドキドキします…」
								PRINTFORMW 下着姿を見られるだけでも恥ずかしさがあるようだ
							ENDIF
						ENDIF
					;スカート
					CASE 9
						PRINTFORML あなたは星のスカートをするりと外した
						PRINTFORML
						;ズボン履いたまま
						IF TEQUIP:0 & 8
							;潤滑5以上
							IF PALAM:潤滑 >= PALAMLV:5
								PRINTFORML 「っ！　…あ、こ、これは…その……や、ぁ…」
								PRINTFORML ズボンには下着からすら溢れ出した蜜が小さな染みを作り出している
								PRINTFORMW それに気付いた星は顔を顔を真っ赤にして恥じ入っている
							ELSE
							ENDIF
						;ズボンなし、パンツあり
						ELSEIF TEQUIP:0 & 2
							;潤滑5以上
							IF PALAM:潤滑 >= PALAMLV:5
								PRINTFORMW 露わになった下着は濡れそぼっており既にその役目を果たしてはいなかった
							;潤滑2以上
							ELSEIF PALAM:潤滑 >= PALAMLV:2
								PRINTFORMW 露わになった下着には染み込んだ愛液がうっすらと筋を作り上げている
							ELSE
								PRINTFORML 「ど、ドキドキします…」
								PRINTFORMW 下着姿を見られるだけでも恥ずかしさがあるようだ
							ENDIF
						;スカートのみ
							ELSE
							PRINTFORML 「あ、あまり見ないでくださいぃ…」
							PRINTFORMW 下半身を隠す最後の一枚を剥ぎ取られ星は羞恥に身をよじった
						ENDIF
					;残り
					CASE 8
					PRINTFORML
				;上半身下着
				;CASE 10,11
					;ブラジャー
					CASE 10
						;ブラウスあり
						IF TEQUIP:1 & 1
							PRINTFORML あなたは星のブラジャーを外すと服の隙間から抜き取った
							PRINTFORML
							IF RAND:3 == 0
								PRINTFORMW 「き、器用ですね…」
							ELSEIF RAND:2 == 0
								PRINTFORMW 「先に中から外すんですか…？」
							ELSE
								PRINTFORMW 「下着がないと…その、先っぽが…擦れて……」
							ENDIF
						;ブラのみ
						ELSE
							PRINTFORML あなたは星のブラジャーのホックに手をかけるとすっと脱がした
							PRINTFORML
							IF RAND:3 == 0
								PRINTFORML 「っ」
								PRINTFORMW 星は羞恥のあまり目を逸らした…
							ELSEIF RAND:2 == 0
								PRINTFORML 「ぁ…%MASTERNAME:87%…」
								PRINTFORMW 星は切なそうに潤んだ目を向けてきた…
							ELSE
								PRINTFORML 「あぅ……や…」
								PRINTFORMW 身をよじる星の胸がふるりと微かに揺れた
							ENDIF
						ENDIF
					CASE 11
				;下半身下着
				CASE 5,6
					PRINTFORML あなたは星の下着に手をかけゆっくりと脱がしていった
					PRINTFORML
							;潤滑5以上
							IF PALAM:潤滑 >= PALAMLV:5
								IF RAND:3 == 0
									PRINTFORML 性快楽により小陰唇は充血してぼってりと開き、蠢く膣口まで露わになっている…
									PRINTFORMW 「%MASTERNAME:87%…早く…早くぅ…」
								ELSEIF RAND:2 == 0
									PRINTFORML 愛液でトロトロになった女性器が露わになり、膣口が物欲しげに蠢いた…
									PRINTFORMW 「はぁっ…早く…%MASTERNAME:87%のが欲しいです…」
								ELSE
									PRINTFORML 晒された星の秘所は淫液に濡れ光り、膣穴から溢れた白く濁った蜜がとろりと流れている
									PRINTFORMW 「ああ…私、こんなに濡れて…ぇ」
								ENDIF
							;潤滑2以上
							ELSEIF PALAM:潤滑 >= PALAMLV:2
								IF RAND:3 == 0
									PRINTFORML 下着には愛液の染みがくっきりと付いている…
									PRINTFORMW 「やぁ…っ！そんな事言わないでっ…」
								ELSEIF RAND:2 == 0
									PRINTFORML 濡れ光る星の女性器が露わになった…
									PRINTFORMW 「だって…%MASTERNAME:87%があんなことするから…！」
								ELSE
									PRINTFORML 「ん…は、ぁ」
									PRINTFORMW 脱がせた下着と星の秘所の間には細く水糸がかかっている
								ENDIF
							ELSE
								IF RAND:3 == 0
									PRINTFORMW 「やぁっ…そんなにまじまじと見ないで下さい…！」
								ELSEIF RAND:2 == 0
									PRINTFORMW 「ああ…%MASTERNAME:87%…」
								ELSE
									PRINTFORMW 「%MASTERNAME:87%…そんなに見つめられたら…私…」
								ENDIF
							ENDIF
				;その他（アクセサリ、帽子等）
				;CASE 1,2,3,4
					;髪飾り
					CASE 2
						PRINTFORML あなたに言われ、星は髪飾りを取り外した
						PRINTFORML
						PRINTFORMW 「そうですね。　…私も今は毘沙門天様の代理ではなく、一人の女の子としてあなたに愛されたいですから」
					;靴
					CASE 3
					;靴下
					CASE 4
					;残り
					CASE 1
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;----------------------------
;EVENT18は避妊口上なんだが、寺だとTWに該当箇所のない買い物なので非表示にする
;----------------------------
;==================================================
;買い物する
;==================================================
@M_KOJO_EVENT_K87_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

IF LOCAL
	PRINTFORML
	DRAWLINE
	PRINTFORML
	SELECTCASE ARG
			;ITEM番号はItem.csv参照, 買った個数はARG:1
			;CASE ITEM番号
			;PRINTFORML
		;※二つ以上の売り場で売っている物もある
	;人里
		;商家町
			;14,針 裏路地でも買える
			CASE 14
				PRINTFORML 「裁縫針とは違うみたいですけどなんの針ですか？」
				PRINTFORML 星は糸通しの穴がない針の正体が気になるようだ
				PRINTFORMW 一応針治療用の医療針ということだが…本来の用途で使うことはないだろう
				SETBIT CFLAG:1003,14
			;16,縄 裏路地でも買える
			CASE 16
				PRINTFORML いくつか並んでいる縄のうち手頃な太さで手触りのよい物を選んだ
				PRINTFORML
				PRINTFORML 「あれ、縄ですか？　寺に結構あったと思うんですけど」
				PRINTFORML 星は不思議そうにこちらを見ている
				PRINTFORMW 清潔なものが必要な理由は黙っていた方が面白いだろうか
				SETBIT CFLAG:1003,16
			;23,エプロン 裏路地でも買える
			CASE 23
				PRINTFORML 「ふわー…ふりふりがいっぱいついてて…」
				PRINTFORML いかにも新妻用といったような可愛らしいデザインのエプロンに星は目を丸くしている
				;MASTERが女性かふたなり
				IF TALENT:PLAYER:2 & 1
					PRINTFORML 「うん、%MASTERNAME:87%に似合うと思いますよ」
					PRINTFORMW どうやら星は何か勘違いをしているようだ…
				ELSE
					PRINTFORML 「誰かへのプレゼントですか？」
					PRINTFORMW 確かに自分が着るわけではないが…
				ENDIF
				;恋人
				IF TALENT:恋人
					PRINTFORMW
					PRINTFORML 「え？　私のため…？」
					PRINTFORML 「それってその、毎日お味噌汁をとかそういう……ふわぁ…%UNICODE(0x2665)%」
					PRINTFORML 星はすっかり顔を赤くしてうつむいてしまった
					PRINTFORMW プレイ用であると伝えたら怒るか泣くかされそうだ…
					;/他の人もつけるとかいったら尚更
				ENDIF
				SETBIT CFLAG:1003,23
			;500 煎茶
			CASE 500
				PRINTFORML
			;501,ほうじ茶 お茶汲みLv1
			;502,玉露 お茶汲みLv4
			CASE 502
				;/プーアール茶、シルベスタギムネマ茶、梅こぶ茶、玉露
			;503,抹茶 お茶汲みLv4
		;呑屋小道
			;520,銘酒「マメ狸」
			;521,銘酒「月天子」
			;522,銘酒「カミナリ親父」
			;523,古酒「鬼殺し」
			;524,宝酒「多聞天」
			;/多聞天は毘沙門天の別名らしいよ
		;裏路地
			;12,ペニスバンド 麓の大滝でも買える
			CASE 12
				PRINTFORML 「な、なんですかこの履き物っ！」
				PRINTFORML あなたが手に取ったモノを見て星は顔を真っ赤にしている
				PRINTFORM 「女性同士が愛し合う時に使うって…
				;MASTERが女性
				IF TALENT:PLAYER:2 == 1
					;合意あり
					IF CFLAG:1 > 0
						PRINTFORML 　それってつまり…うー……」
						PRINTFORML 星は言葉に詰まってあなたを見つめている
						PRINTFORMW その目には少しだけ期待が混じっているようにも見える…
					ELSE
						PRINTFORML 　%MASTERNAME:87%にはそういう相手がいるんですか…？」
						PRINTFORML 星は驚いたようだったが目を閉じて少し思案するとあなたに向き合った
						PRINTFORML 「分かりました、そういうことなら……　その人のこと、大事にしてあげてくださいね」
						PRINTFORMW 「えと、でもあまりそういうことに耽ってはいけませんよ？」
					ENDIF
				;男性
				ELSEIF TALENT:PLAYER:2 == 2
					PRINTFORML 　それ%MASTERNAME:87%には必要ないじゃないですかっ」
					PRINTFORML 「だって……あれ？　え？　まさか……自分で自分に…？」
					PRINTFORMW 割ととんでもない想像をしたのか星の顔色が凄いことになっている…
				;ふたなり
				ELSE
					PRINTFORML 　%MASTERNAME:87%がしてもらう時に使うんですか…？」
					PRINTFORMW 「そう言われるとあまり追求できないんですけど…」
				ENDIF
				SETBIT CFLAG:1003,12
			;13,鞭
			CASE 13
				PRINTFORML 「私もう猛獣じゃないんですけどー…」
				PRINTFORML あなたが鞭を買うのをたちの悪い冗談ととったのか星は不服そうにしている
				PRINTFORML 確かに調教用という点では間違っていない
				PRINTFORMW 言うことを聞かせるためというよりはいい声を聞くためのものだが
				SETBIT CFLAG:1003,13
			;14,針
			;15,アイマスク
			CASE 15
				PRINTFORML 「目隠しですね、%MASTERNAME:87%って真っ暗でないと眠れないとかありましたっけ」
				PRINTFORMW 着けるのはこちらではないのだが…
				SETBIT CFLAG:1003,15
			;16,縄
			CASE 16
				PRINTFORML 「…なんでしょう…普通の道具のはずなのに、これらの品々に混じっているということは…」
				PRINTFORMW まあ、そういう目的で使うものだ
				SETBIT CFLAG:1003,16
			;17,ボールギャグ
			CASE 17
				PRINTFORML 「口にかませて喋れなくする…そこはかとなく淫靡な雰囲気が…」
				PRINTFORMW 星はボールギャグをじっと見つめている
				SETBIT CFLAG:1003,17
			;20,プレイマット
			CASE 20
				PRINTFORML 「お風呂で使うんですか、でも足元滑るのが嫌ならすのこ有りますよ？」
				PRINTFORMW 星は単なる滑り止めだと思い込んでいるようだ…
				SETBIT CFLAG:1003,20
			;23,エプロン
			CASE 23
				PRINTFORML 「これって…エプロンですよね？どうしてこんなところに…」
				PRINTFORMW エロの世界は広く深いのだ
				SETBIT CFLAG:1003,23
			;40,ローション
			CASE 40
				;ローション買った・使ったことがない
				IF !GETBIT(CFLAG:1003,40)
					PRINTFORML 「んー？　普通の水じゃないですね」
					PRINTFORML 星はローションの容器をぐるぐる回している
					PRINTFORMW 「飲みものではないんですか、なら塗り薬…？」
					SETBIT CFLAG:1003,40
				ELSE
					PRINTFORML 「またこのぬるぬる買うんですか？」
					PRINTFORMW 「%MASTERNAME:87%はそういうの好きなんでしょうか」
					;欲望6以上
					IF ABL:欲望 >= 6
						PRINTFORML 「私は…ぬるぬるするの…嫌いじゃない、です…」
						PRINTFORMW ためらいがちに小さな声で星は呟いた…
					ENDIF
				ENDIF
			;42,利尿剤 永遠亭でも買える
			;45,コンドーム,設置自体は未実装
	;迷いの竹林
		;永遠亭
			;41,媚薬
			CASE 41
				;媚薬買った・使ったことがない
				IF !GETBIT(CFLAG:1003,41)
					PRINTFORML 「誰に使うおつもりですか」
					PRINTFORMW ジト目で睨まれた
					SIF TALENT:恋人
						PRINTFORMW 「…私以外には許しませんよ？」
					SETBIT CFLAG:1003,41
				;使ったことはある
				ELSEIF CFLAG:1181 == 1
					PRINTFORML 「アレの出処はここだったんですか…」
					PRINTFORMW 星は複雑な顔をしている
					SETBIT CFLAG:1003,41
				ELSE
					PRINTFORML 「この薬ですか…」
					;星ちゃんに使用経験あり
					IF CFLAG:1181 == 1
						PRINTFORML 「確かに気持ちよくなれるんですけど…効き目が切れるとすごく恥ずかしいというか…」
						PRINTFORMW 「…うー…」
					;星ちゃんに使用経験なし。星ちゃんに使ったこと無いのにまた買うとこ見られるのはどう考えてもまずいだろ
					ELSE
						PRINTFORML 「以前も買ってましたよね？アレはどうしたんです？」
						PRINTFORMW 疑惑の眼差しを向けられる。何とか誤魔化すしかないだろう…
					ENDIF
				ENDIF
			;42,利尿剤
			;61,調合知識
			;93,昏睡の丸薬
			;540,ポカン薬
			;怒り状態をポカンと忘れるすごいくすり
			CASE 540
				PRINTFORML 永琳から薬を購入した
				PRINTFORML
				PRINTFORML 「…そういう解決法、私は良くないと思いますけど」
				PRINTFORMW 便利だからしょうがない
				SETBIT CFLAG:1005,40
			;541,エビ♂錠
			;精力回復
			CASE 541
				PRINTFORML 永琳から薬を購入した
				PRINTFORML
				PRINTFORML 「精力回復、ですか」
				;うふふ経験有り
				IF CFLAG:1 & 2
					PRINTFORML 「%MASTERNAME:87%には不要では？いつも私のほうが先にダウンするじゃないですか」
					PRINTFORMW 医者の前とはいえ星はえらい事を口にしている…
				ELSE
					PRINTFORML 「お掃除ってそんなに神経を使うんですか？」
					PRINTFORMW よく分からないが星は何か勘違いをしているようだ…
				ENDIF
				SETBIT CFLAG:1005,41
			;542,マカビンビン
			;アレが有頂天になる
			CASE 542
				PRINTFORML 永琳から薬を購入した
				PRINTFORML
				PRINTFORML 「%MASTERNAME:87%、下半身に何か悩みでも…？」
				;うふふ経験有り
				IF CFLAG:1 & 2
					PRINTFORML 「私は%MASTERNAME:87%のはものすごく元気だと思うんですけど…」
					PRINTFORMW 医者の前とはいえ星はえらい事を口にしている…
				ELSE
					PRINTFORMW よく分からないが星は何か勘違いをしているようだ…
				ENDIF
				SETBIT CFLAG:1005,42
			;543,睡眠薬
			CASE 543
				PRINTFORML 永琳から薬を購入した
				PRINTFORML
				PRINTFORML 「？眠れないのですか？」
				PRINTFORMW 用途を言えば確実に怒られるのでそういうことにしておいた
				SETBIT CFLAG:1005,43
			;544,笹茶,お茶汲みLv2
	;魔法の森
		;香霖堂
			;560,櫛
			CASE 560
				PRINTFORML 「あ、その櫛綺麗ですね」
				PRINTFORML あなたが櫛を選んでいるとそのうちのひとつを星が気に入ったようだ
				PRINTFORMW 「それにこの花の装飾も可愛らしいです♪」
				PRINTFORML 『それは恐らくイワウチワを象った物だよ、花言葉は…"春の使者"だったかな？』
				PRINTFORMW そばにいた霖之助がその櫛を覗き込んで言った
				PRINTFORMW 「確かに櫛全体の色合いも明るくて…きっと春のイメージを持たせて作られたものなんでしょうね」
				PRINTFORML 『いや、それだけという訳でもないだろう』
				PRINTFORML 『そもそも櫛という言葉は"奇(く)し"という語から来ている、とすれば呪術に使われていた考えてもおかしくはない
				PRINTFORML 他の春の花ではなくこの花を選んだのも花言葉だけでなく団扇を冠する名から冬の寒気を払うという意からだろう
				PRINTFORML 別れの呪力を持つとされる櫛に刻まれていることからもこれは何処か小さな村で春呼びの神事で使われていて――』
				;参考― Wikipedia
				PRINTFORML
				PRINTFORMW 「他にも綺麗なのがいっぱいありますね、%MASTERNAME:87%はどの櫛がいいんですか？」
				PRINTFORMW 星はとりあえず霖之助を置いておくことにしたようだ…
				SETBIT CFLAG:1006,10
			;561,雨傘
			CASE 561
				PRINTFORML 「おや、傘ですか？」
				PRINTFORMW あなたが唐傘を手に取ると霖之助が新聞を閉じてこちらにやってきた
				PRINTFORMW 『ああ、それかい？　その傘は不思議なものでね、結構な年代物なのに綻びが見つからないんだ』
				PRINTFORMW 「へぇ……でも特殊な加工をしているようにも妖怪化しているようにも見えませんね」
				PRINTFORMW 『神霊や精霊の類が宿っているのかもしれない。　どちらにしても大切に使っている分には問題は起きないだろう』
				;信頼度800以上
				IF CFLAG:TARGET:4 >= 800
					PRINTFORML 「それなら大丈夫です。　ね、%MASTERNAME:87%！」
					PRINTFORMW 星はあなたに信頼の目を向けている…
				ENDIF
				SETBIT CFLAG:1006,11
			;562,炬燵,設置自体は未実装
			CASE 562
				PRINTFORMW 「炬燵買うんですね、\@ DAY:2 == 4 ? 寒い日が続くので嬉しいです # 冬に備えてですか？ \@」
				PRINTFORMW 『ちゃんとお金を払って買ってくれたのは有難いが注意することがあるんだ』
				PRINTFORMW 「何でしょう、何か憑いていたりとかするんですか」
				PRINTFORMW 『火鉢にかなりガタがきていてね、このまま使うのは勧めない』
				PRINTFORMW 『別の火鉢を使うか直すかしてから使ってほしい』
				PRINTFORMW 「それは炬燵として売る必要があったのでしょうか…」
				PRINTFORMW 『そう言わないでくれ、だから台も掛け布団もかなり良いものなのにこの値段にしたんだ』
				SETBIT CFLAG:1006,12
		;霧雨魔法店
			;580,魔法の灯籠
			CASE 580
				PRINTFORML 『お、こいつが欲しいのか、じゃあ少し点けてみようか』
				PRINTFORMW 魔理沙が灯籠に明かりを灯すと室内を幻想的な光が包んだ
				PRINTFORML 「わあ…綺麗…それに身体が暖かくなって…」
				PRINTFORMW 『凄いだろ、苦労したのもあって気に入っているんだ』
				PRINTFORML 「これだけのものなら作るのも大変でしょうからね」
				PRINTFORML 『ああ、香霖から材料たかったり、パチュリーから借りたいくつもの本を参考にしてだな』
				PRINTFORMW 「さ、帰りましょうか%MASTERNAME:87%、途中で湖にでも寄って」
				PRINTFORMW 『なんだ、つれない奴だな』
				SETBIT CFLAG:1006,30
			;581,気付けのお香
			CASE 581
				;複数買った
				IF ARG:1 >= 2
					IF RAND:2 == 0
						PRINTFORML 「んー、いろいろあるんですねえ」
						PRINTFORML 『この森って香木として使えるものが意外と多くてな、
						PRINTFORMW 　おまけに魔力の籠っている木もあるから普通より効果が強いんだ』
						PRINTFORML 「ああ、だから嗅いでいるだけでも何だか元気が出てくるんですね」
						PRINTFORMW 『強くなると服用しなくてもって辺りは魔法薬に近いものがあるな』
					ELSE
						PRINTFORML 「一つ一つ匂いが違うんですね、どれもいい香りです」
						PRINTFORMW 『混ぜる比率だけでも結構変わるからな、作ってて結構楽しいぜ』
					ENDIF
				ELSE
					IF RAND:4 == 0
						PRINTFORML 「ふふ、焚かなくてもいい香り♪」
						PRINTFORML 「ほらほら、%MASTERNAME:87%も嗅いでみてください」
						PRINTFORMW 星は楽しそうにあなたにお香を差し出してきた
					ELSEIF RAND:3 == 0
						PRINTFORML 『そういや新作があるんだ、試してくれないか？』
						PRINTFORMW 魔理沙は一度奥へと引っ込むといくつかの香を持ってきた
						PRINTFORML 「いいですね、どんなものですか？」
						PRINTFORML 『端から幻覚作用の香、苦い物がしょっぱく感じる香、催淫効果の香…』
						PRINTFORMW 「やっぱりいいです」
					ELSEIF RAND:2 == 0
						PRINTFORML 『(そうだ、今度マタタビ風の香でも作ってみよう、どうなるかな)』
						PRINTFORMW 魔理沙は星を眺めながら怪しい笑みを浮かべている…
					ELSE
						PRINTFORML 『そうだ、寺の線香も私が作ってやろうか？　面白いの作ってやるから』
						PRINTFORML 「わざわざ面白くする必要なんてないんですけど」
						PRINTFORMW 『修行も葬儀も少しくらいは楽しい方がいいと思うんだがなぁ』
					ENDIF
				ENDIF
				SETBIT CFLAG:1006,31
			;582,粉末きのこ,お茶汲みLv2
			CASE 582
				IF RAND:2 == 0
					PRINTFORML 「茸はやっぱり茸のような…」
					PRINTFORMW 『そう言うなって、この茶の味は慣れると病みつきだぜ？』
					PRINTFORML 「むう、まあ美味しいならいいんでしょう…かね？」
					PRINTFORMW 『そうそう、いーい出汁が出るんだこれが』
					PRINTFORMW 「今出汁って言いましたね、自分で」
				ELSE
					PRINTFORML 「やっぱりこれ食材に振りかけて焼き物にでもした方がよさそうな…」
					PRINTFORML 『そりゃ茶葉は料理にも使えるが…やっぱり茶は淹れて飲むもんだと私は思うぜ』
					PRINTFORMW 「なぜそこまで頑なにお茶であることにしようとするんですか…？」
				ENDIF
				SETBIT CFLAG:1006,32
	;霧の湖
		;紅魔館
			;/詳しくないのでネット知識
			;600,烏龍茶,お茶汲みLv2
				;/東方美人茶というのがあるとか
			;601,ダージリン,お茶汲みLv3
			CASE 601
				PRINTFORML 咲夜に頼んで有償で茶葉を分けてもらった
				PRINTFORML
				;/旬が三回あるらしい　口上で表すのは無理だが
				SELECTCASE DAY:2
				;春　ファーストフラッシュ
				CASE 1
					PRINTFORML 『ダージリン？　うん、新しいのがあるわ』
					PRINTFORML 「あ…なんかこの香り…」
					PRINTFORMW 『さわやかな香りが春って感じよね。　緑茶っぽいとも言うけど』
				;夏　セカンドファーストフラッシュ
				CASE 2
					PRINTFORML 『ダージリンね。　香りはこの時期が一番だものね』
					PRINTFORML 「匂いは甘いのに渋いんですよね……」
					IF RAND:2 == 0
						PRINTFORMW 『ミルクはあまり合わないから止めときなさいよ？』
						PRINTFORML 「え、何で分かったんですか…？」
						PRINTFORMW 『別に当てようとしたつもりはないんだけど』
					ELSE
						PRINTFORML 『甘いお菓子でも一緒に食べたら？』
						PRINTFORMW 「和菓子の横に紅茶のカップを置くのはちょっと抵抗が…」
						PRINTFORML 『洋菓子がいいなら材料費さえ貰えれば作ってあげるわ』
						PRINTFORMW 「本当ですかっ！？」
						PRINTFORMW 咲夜の言に星は目を輝かせている…
					ENDIF
				;秋　オータムナル
				CASE 3
					PRINTFORML 『今採れるのはもう渋みも消えてるからそういうのが苦手でも大丈夫ね』
					PRINTFORML 「もしかして甘くなってるんですか？」
					PRINTFORMW 『そういう訳じゃないけど…』
				;冬　オータムナルの残り
				CASEELSE
					PRINTFORML 『残り物しかないけどいい？』
					PRINTFORML 『この時期になるともういい茶葉はみんな出しちゃってるから』
					PRINTFORMW 『それでもいいなら　はい、どうぞ』
				ENDSELECT
				SETBIT CFLAG:1007,1
			;602,アールグレイ,お茶汲みLv3
			;603,アッサム,お茶汲みLv3
	;妖怪の山 山麓
		;麓の大滝
		;※店にいるのがにとりかモブ河童かは考えてない。　でもとりあえずエロガッパ少女
			;0,ローター
			CASE 0
				PRINTFORML 「あー…　これは……」
				PRINTFORML 「%MASTERNAME:87%も欲しいんですか…」
				PRINTFORMW 星は顔を赤らめながら視線を落とした
				SETBIT CFLAG:1003,0
			;1,Ｅマッサージャ
			;某YMではチート道具
			CASE 1
				PRINTFORML 「なんですか、これ」
				PRINTFORMW 『電気で動く按摩器ってとこ、試してみる？』
				PRINTFORML 「肩に当てればいいんですか？　……あー、結構効きますねぇ、これ」
				PRINTFORMW 『太陽光充電式で何度でも使えるよ。　ま、凝りを解すのに使うことはあんまりないだろうけどね』
				PRINTFORML 「他にも使い道があるんですか」
				PRINTFORML 『それはそっちの連れがそのうち教えてくれるさ、
				PRINTFORMW 　あんまり感じない人もいるけど効く人はものすごい気持ちいいらしいよ？』
				PRINTFORMW 店の河童は含みのある笑顔でこちらを見ている…
				SETBIT CFLAG:1003,1
			;2,クリキャップ
			CASE 2
				PRINTFORML 『えっとね、これがブラシ付き、これがローター付き、スイッチここね。　でこれが ――』
				PRINTFORMW 「あの、これは一体…」
				PRINTFORML クリキャップセットの内容説明を受けている横から星がこちらを覗き込んできた
				PRINTFORML 『えー、女の子の口からそれ言わせるのー？　意外といい趣味してるんだねぇ』
				PRINTFORMW 「…はい？」
				PRINTFORMW からかうように笑いかけられるが意味の分かっていない星はポカンとしている
				SETBIT CFLAG:1003,2
			;3,オナホール
			CASE 3
				PRINTFORML 『お、いい目してるね。　この"リバースプライトちゃん２型"は今期の売れ筋商品だよ』
				PRINTFORML 『門外不出の技術を使ったローション要らずの名器さ！』
				;欲望3以下
				IF ABL:欲望 <= 3
					PRINTFORMW 「こ、こんな卑猥なもの本当に買うんですか？」
					PRINTFORMW 女性器を模した性具を目の当たりにして星は顔を赤らめている
				ELSE
					PRINTFORMW 「女性器を模した筒…ですか。　意外とよくできてますね…」
					PRINTFORML 少し興味があるのか星は顔を赤らめながらもオナホールを観察している
					PRINTFORMW 「もしかしてモデルとかいるんですか？」
					PRINTFORML 『……それは内緒』
					PRINTFORMW 店の河童は恥ずかしそうに目を逸らすとぽつりと呟いた
				ENDIF
				SETBIT CFLAG:1003,3
			;4,バイブ
			CASE 4
				PRINTFORML 「これ…どう見ても男性の…」
				PRINTFORM バイブレーターの生々しい造形に星は
				;欲望3以下
				IF ABL:欲望 <= 3
					PRINTFORMW 恥ずかしそうに顔を赤らめている
					PRINTFORML 『よくできてるでしょー』
					PRINTFORMW 「し、知りません！」
					PRINTFORMW 顔を背ける星を河童はにやにやと見続けている…
				ELSE
					PRINTFORMW 思わず喉を鳴らした
					PRINTFORML 『お、気に入ってくれた？　よくできてるでしょー、しかも動くんだよ』
					;うふふ経験有り
					IF CFLAG:1 & 2
						PRINTFORML 「っ！　作り物は作り物ですし！」
						;MASTERが女性
						IF TALENT:PLAYER:2 == 1
							PRINTFORMW 「それにその、直接触って貰う方がっ」
						;ついてる
						ELSE
							PRINTFORMW 「そんなのより\@ EXP:TARGET:Ｖ性交経験 == 0 ? 直接してあげる方が # 本物の方が気持ち \@いいですしっ」
						ENDIF
						PRINTFORML 『ふーん』
						PRINTFORMW 慌ててとんでもないことを捲し立てる星を店の河童はにやにやと見続けている…
					ELSE
						PRINTFORMW 「そ、そんなことないですっ！」
						PRINTFORML 『そーお？』
						PRINTFORMW 店の河童は慌てる星を見て楽しそうにしている…
					ENDIF
				ENDIF
				SETBIT CFLAG:1003,4
			;5,アナルバイブ
			CASE 5
				PRINTFORML 「不思議な形ですね、これは何ですか？」
				PRINTFORMW 『お尻いじめる用のおもちゃ』
				PRINTFORMW 先端をいじくりまわしていた星は河童の言葉で固まってしまった
				PRINTFORML 『未使用なんだから汚くないって』
				PRINTFORMW 「そのあたりは気分の問題と言うか…」
				SETBIT CFLAG:1003,5
			;6,アナルビーズ
			CASE 6
				PRINTFORML 「数珠……ではないですね」
				PRINTFORMW 『それ？　お尻に挿入れて遊ぶの』
				PRINTFORML 「お、お尻に……！？」
				PRINTFORMW 『そ、ゆっくり入れたり一気に引き抜いたりね』
				;Ａ感覚4以上
				IF ABL:Ａ感覚 >= 4
					PRINTFORML 「一気にって…だってこんなにいっぱいついて……あぁ…」
					PRINTFORMW 自分に使われるときのことを想像しているのか星は尻の方を気にしながらもじもじしている
					PRINTFORMW 『…もっと大きいのにしようか？』
				ELSE
					PRINTFORML 「そんな、ダメですっ！　法具をそんなことに使うなんてっ！」
					PRINTFORMW 『数珠じゃないって自分でいったじゃんか』
					PRINTFORMW 星は混乱している
				ENDIF
				SETBIT CFLAG:1003,6
			;8,拡張バルーン
			CASE 8
				PRINTFORML 「風船…」
				PRINTFORMW あなたが河童から使い方を聞いている横で星は不思議そうに器具を眺めている…
				PRINTFORML 『ポンプの使い方は分かるよね？　じゃ洗い方なんだけど ――』
				PRINTFORMW 「え？　洗い方？」
				PRINTFORML 『―― そうそう、相手の子が人間にしろ妖怪にしろあまり無茶はしちゃだめだよ？』
				PRINTFORML 「え、無茶って…%MASTERNAME:87%、いったい何に使うつもりなんですか…？」
				PRINTFORMW 時々入る明らかに風船と無関係な単語に星は不安そうにしている…
				SETBIT CFLAG:1003,8
			;9,浣腸器＋プラグ
			;10,二プルキャップ
			CASE 10
				PRINTFORML 「この小さいのは…わっ、動いた」
				PRINTFORMW 『最先端技術を駆使した超小型ローターが入ってるからね、小さいけれど威力はお墨付きだよ』
				PRINTFORML 「そんな技術もあるんですねー」
				PRINTFORML 『これで乳首に負担をかけずに気持ちよくなれるのさ』
				PRINTFORMW 「って、最先端技術の向かう先がそれですか！」
				PRINTFORML 『形や大きさに合わせたオーダーメイドもできるよ、測ってく？』
				PRINTFORMW 「いりません！」
				SETBIT CFLAG:1003,10
			;11,搾乳器
			CASE 11
				PRINTFORML 『はい、手を離しても落ちないから何かしながらでも搾乳できるよ』
				PRINTFORMW 「搾乳器ですか、あんまり強く吸いつくのって痛くないんでしょうか」
				PRINTFORML 『大丈夫！　綿密な計算により実現した絶妙な吸引で痛いどころか気持ちよくなっちゃうよ』
				;TARGETが母乳体質
				IF TALENT:母乳体質
				;※青いキャンディは未実装なので直接TALENTをいじらないとならない
					PRINTFORML 「気持ちいい…ですか　……あ」
					PRINTFORMW 星は急にまごつきながら胸元を気にしだした
					PRINTFORMW どうやら吸われる感覚を想像して少し母乳が滲んでしまったようだ…
				ELSE
					PRINTFORML 「ううん、想像がつきませんね」
					PRINTFORMW 『ま、それは出るようになってから試してみれば？』
				ENDIF
				SETBIT CFLAG:1003,11
			;12,ペニスバンド
			CASE 12
				SETBIT CFLAG:1003,12
			;620,おぷてぃかるまんと,設置自体は未実装
			;部屋に人がいてもぱんつ収集できるようになるらしい
			CASE 620
				PRINTFORML 『あーこれ未完成品で効果ないんだけど…』
				PRINTFORMW 「未完成なのに陳列しているんですか」
				PRINTFORML 『いーじゃんかよう、大きさとか持った感じとかモニターしてほしいんだよう』
				PRINTFORMW 『完成したら無料で届けといてあげるからさ、今度意見聞かせてね』
				SETBIT CFLAG:1007,20
			;621,代打バッター
			;仕事量が0に
			CASE 621
				PRINTFORML 『はいまいどっ　タイミングを逃さないようにつかってね！』
				PRINTFORMW 「タイミング？」
				SETBIT CFLAG:1007,21
			;622,超妖怪そうじき
			;お寺全域の清潔度がMAXに
			CASE 622
				PRINTFORML 『ほい、大事に使ってね』
				PRINTFORML 『あと保存場所には注意して、暴走の原因になってひどいことになるから』
				PRINTFORMW 「ひどいこと…」
				SETBIT CFLAG:1007,22
	ENDSELECT
	PRINTFORML
	DRAWLINE
ENDIF
RETURN 1

;==================================================
;デート先に到着
;==================================================
@M_KOJO_EVENT_K87_19(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入スイッチ
LOCAL = 0
;-------------

IF LOCAL
	SELECTCASE ARG
		;2 人間の里
		CASE 2
			PRINTFORML
		;デート先番号は出掛けるコマンド表示NO
;		CASE デート先番号
;			PRINTFORML
	ENDSELECT
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;日常系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;300,会話
;==================================================
@M_KOJO_MESSAGE_COM_K87_300
;コマンド共通メッセージ(TRAIN_MESSAGE)
;削除すると「～話をした。」とかが消えます
	SIF !(TCVAR:302 && !TALENT:恋慕 || CHK_DATENOW(CFLAG:TARGET:デート中))
		CALL TRAIN_MESSAGE
	;※会話累積値が閾値を超えての失敗、デート中のとき表示しないように変更
;口上メイン呼出
CALL M_KOJO_MESSAGE_COM_K87_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;一回きりの特殊会話 ※CFLAG:1001を使用(対象bitは各タイトル部分に)
		;神霊廟キャラ解放(マミゾウ解放まで) 0bit
		IF FLAG:14 == 1 && !GETBIT(CFLAG:1001,0)
			PRINTFORML 星に自分が見たふわふわについて尋ねてみた
			PRINTFORML
			PRINTFORMW 「%MASTERNAME:87%もご覧になりましたか」
			PRINTFORML 「あれは神霊。もしかしたら神様となるかもしれない思いの結晶といったところでしょうか」
			PRINTFORML 「でも今漂っているような神霊ではおそらく神格を得る前に消えてしまうでしょう」
			PRINTFORMW 「それに神霊自体に害はありませんから気にしなくても大丈夫ですよ」
			PRINTFORML
			PRINTFORML それを聞いて安心していると少しだけ星は顔を曇らせた
			PRINTFORML
			PRINTFORML 「ただ…あの神霊が目指しているものが…もし……」
			PRINTFORMW 「それに……ぬえもなにか考えているようですし…」
			PRINTFORML
			PRINTFORML 「%MASTERNAME:87%」
			PRINTFORML 少しの間うつむいて何やらつぶやいていた星だったが
			PRINTFORMW 顔を上げると真剣な表情であなたに呼びかけた
			PRINTFORML 「もし神霊を多く見かける日に寺を訪ねてくる人物がいたら一応注意しておいてください」
			PRINTFORML 「万が一貴方や寺のみんなに危害を与えるようでしたら逃げるか相応の対応も…」
			PRINTFORMW 「もしものときは私もそばにいればお手伝いしますから…」
			PRINTFORMW 星に了承の意を示すと彼女は軽くほほ笑んだ
		SETBIT CFLAG:1001,0
		;マミゾウ解放 (20日目まで) 1bit
		ELSEIF FLAG:14 == 2 && DAY:0 <= 20 && !GETBIT(CFLAG:1001,1)
			PRINTFORML 星とマミゾウについて話した
			PRINTFORMW
			PRINTFORML 「ぬえが言っていた切り札とはあのひとのことだったんですね」
			PRINTFORML 「私も少しお話しましたがとても気さくな方でしたから
			PRINTFORMW 　%MASTERNAME:87%もすぐに仲良くなれると思いますよ」
			PRINTFORML 「警戒していた霊廟の方々もすぐに何かをする、というわけではないようですし…」
			PRINTFORML 「できれば大きな争いの起きる前に人妖が共に生きるという聖の考えを双方に理解していただきたいですね」
			PRINTFORMW 「そのためにも日々の努力で一歩一歩進んでいきましょう！」
			PRINTFORMW そういって星は小さくガッツポーズをした
		SETBIT CFLAG:1001,1
		;45日経過 (65日目まで) 2bit
		ELSEIF DAY:0 >= 45 && DAY:0 <= 65 && !GETBIT(CFLAG:1001,2)
			PRINTFORML 「貴方がこの寺に来てからだいぶ経ちましたね」
			PRINTFORML 「こうして話しているとなんだかずっと昔から一緒に過ごしているような気になります」
			PRINTFORMW そう言うと星は目を閉じ思いを馳せるように溜息をついた
			PRINTFORML 「これからも…」
			PRINTFORML 「これからもみんなで仲良くしていけたら、それはとても素敵なことだと思います」
			PRINTFORML 「永遠というわけにはいきませんが……それでも」
			PRINTFORMW
			PRINTFORML 「ふふっ、なんだか気恥ずかしくなってしまいました」
			PRINTFORML 「言うべきは、『これからもよろしくお願いします』だけでよかったんですよね」
			PRINTFORMW 照れ笑いを浮かべる彼女にあなたは優しく笑いかけた
		SETBIT CFLAG:1001,2

	;デート中
	ELSEIF CHK_DATENOW(CFLAG:TARGET:デート中)
		SELECTCASE CFLAG:MASTER:現在位置
		;人間の里
		;博麗神社
			;神社縁側
			CASE 40
				PRINTFORML
				PRINTFORMW 霊夢にお茶を淹れて出した
				PRINTFORML 『あら、気が利くじゃない』
				PRINTFORML 「%MASTERNAME:87%の淹れるお茶は美味しいですよ」
				PRINTFORMW 『ん…本当ね、美味しいわ』
				PRINTFORMW 霊夢の言葉に星は自分のことのように喜んだ
		;迷いの竹林
			;小雀の宿
			;竹林入り口（ミスチー屋台存在位置）
			CASE 410
				PRINTFORML
				;ミスティアに会ってない
				IF !GETBIT(CFLAG:1002,0)
					PRINTFORML 「あれ？　こんなところに…屋台、ですか？」
					PRINTFORMW 竹林の中、少し開けた場所に小さな屋台があった
					PRINTFORML
					PRINTFORML 『おや、お客さん？　今日はいいの入ってるよ～』
					PRINTFORML 屋台では夜雀の少女…ミスティアが何かを調理していた
					PRINTFORMW 厨房からはタレの焼ける良い匂いが漂ってきている
					PRINTFORML 「わあ、ウナギですか、美味しそうですね」
					PRINTFORML 『ただのウナギじゃないわ、鳥目によく効くヤツメウナギよ。おひとつどう？』
					PRINTFORML 「どうしましょうか、%MASTERNAME:87%」
					PRINTFORML そんな食べたそうな顔でどうしましょうかと言われても
					PRINTFORMW 『二名様ご案な～い？』
					SETBIT CFLAG:1002,0
				;ミスティアに会った
				ELSE
					PRINTFORMW 屋台を切り盛りしているミスティアと話をした
					PRINTFORML

					IF RAND:2 == 0
						PRINTFORML 『お店始めてから結構たつけど最近常連さんばかりで
						PRINTFORML 　あんまり新しいお客さんこなくなっちゃったのよね』
						PRINTFORML 『一気に増えたのって一度ナントカ新聞に載った時くらいかなぁ』
						PRINTFORMW 「幻想郷でお店を流行らせるのは大変でしょうからね」
						PRINTFORML 『うーん…雀を増やした方がいいかもしれないわね』
						PRINTFORMW 「はい？　雀…ですか？」
						PRINTFORML 『そ、雀たちに広報をお願いしてるの。
						PRINTFORML 　誰かが住んでいるところに行く子たちだから有効だと思うんだけど』
						PRINTFORMW 「それは雀の言葉が分からない人には意味がないのでは…」
						PRINTFORML 『え！？　そんな人居るの！？』
						PRINTFORML 「結構居るかと…」
						PRINTFORMW 『うう…新しい手を考えないと…』
					ELSE
						PRINTFORML 『羽ばたけ～大空へ～大地を蹴って～～～ええ～～っ♪』
						;/アリスは殺せない
						PRINTFORMW ミスティアは気持ちよさそうに歌っている
						PRINTFORML
						PRINTFORML 「いつもいろんな歌を歌っていますけどやっぱり自作とかしているんですか？」
						PRINTFORML 『ん？　そうね、古い詩を歌うよりは性に合ってるし。
						PRINTFORMW 　後は外の世界の歌を見つけてきたりかな』
						PRINTFORML 「外の歌って手に入るものなんですか」
						PRINTFORML 『ときどき落ちてるのよ、外の詩が書いてある紙が。
						PRINTFORML 　一緒に落ちてる銀色の輪っかはなんか怖くて捨てちゃうけど。
						PRINTFORMW 　後はそれにしっくり来る音程をつけるのよ』
						PRINTFORML 「へえ…それじゃあ貴女は歌手だけでなく作曲家でもあるんですね」
						PRINTFORMW 『あ、そう言われると気分いいかも♪』
					ENDIF
				ENDIF
		;魔法の森
			;香霖堂
			CASE 520
				PRINTFORML
				;朱鷺子に会ってない
				IF !GETBIT(CFLAG:1002,1)
					IF RAND:2 == 0
						PRINTFORMW 霖之助を交えて話をした
						PRINTFORML
						PRINTFORMW 『ああそうだ、君の部下の少女に伝えておいてほしいことがあるんだ』
						PRINTFORML 「はい、何でしょう」
						PRINTFORML 『今週は宝塔の入荷なし』
						PRINTFORMW 「………」
					ELSE
						PRINTFORML 『お邪魔するわよ』
						PRINTFORMW 霖之助と話をしているとその背に朱鷺色の翼を広げた少女が店内に入ってきた
						PRINTFORML 『また本を読みに来たのかい？　いい加減読みたいなら買っていけばいいじゃないか』
						PRINTFORML 『どうせ売ってくれない癖に』
						PRINTFORMW 少女は棚から何かの本を取り出すと座りごこちのいい場所を探し始めた
						PRINTFORMW そこで丁度こちらと目があった
						PRINTFORML 「あの、こ、こんにちは」
						PRINTFORMW 『こんにちは。　初めて見る顔ね、買い物？』
						PRINTFORML 「まあ、欲しいものがあれば…」
						PRINTFORML 『そう、でもここはやめた方がいいわよ。　意地悪な店長が法外な値段で売りつけようとしてくるんだから』
						PRINTFORML 『そういうことはその店の中で言うことじゃないと思うがね』
						PRINTFORMW 『何よ、拾ったら人のものでも商品にしちゃう癖に』
						PRINTFORML 「あはは…」
						PRINTFORMW 少女の暴言に心当たりがある星は笑うしかないようだ…
						PRINTFORML
						PRINTFORMW 朱鷺子と知り合った
						SETBIT CFLAG:1002,1
					ENDIF
				;朱鷺子に会った
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 霖之助を交えて話をした
						PRINTFORML
						PRINTFORML 「日記をつけているんですか。　少し見せていただいても？」
						PRINTFORML 『構わないよ。　いずれ万人に見てもらうつもりで書いているものだからね』
						PRINTFORMW 「それでは失礼して…」
						PRINTFORML
						PRINTFORML 「ふむ…成程………ええ？」
						PRINTFORMW 日記を読む星は感心したり納得したり混乱したりとせわしなく表情を変えている
						PRINTFORML 『どうだい？』
						PRINTFORML 「これはなかなか深いというか難解というか…」
						PRINTFORML 『ひとまず流し読みするくらいだとそうだろうね
						PRINTFORMW 　もう少ししたら一纏めにして本にするから、その時にまた読んでゆっくりと考察してみるといい』
						PRINTFORML 『発売したら是非買って読んでくれ』
						PRINTFORMW 「そうですね…考えておきます」
						;/2010年春発売予定
					ELSE
						PRINTFORMW 朱鷺子を交えて話をした
						PRINTFORML
						PRINTFORML 「そうだ、紅魔館に行くのはどうでしょう。　あそこなら本もたくさん…」
						PRINTFORML 『嫌よ。　あそこおっかないのしか居ないじゃない
						PRINTFORMW 　意地悪でも怖くないだけまだこっちの方がましよ』
						PRINTFORML 「悪い人たちではないと思うのですが…」
						PRINTFORMW 『悪魔やらその友人やら使用人やらをいい人って方がないでしょ…』
					ENDIF
				ENDIF
			;人形の洋館
			CASE 550
				PRINTFORML
				;アリスに会ってない
				IF !GETBIT(CFLAG:1002,2)
					PRINTFORML 森の中の開けた土地には一軒の洋館が建っている
					PRINTFORML 「見た目は普通の洋風家屋ですね。　誰が住んでいるのでしょう」
					PRINTFORMW 「この森に住んでいるからには魔法使いだとは思うのですが」
					PRINTFORML
					PRINTFORML 星と話していると近くの草むらががさりと揺れ、そこから小さな影が飛び出した
					PRINTFORML 「おっと！　…？　これは…人形？」
					PRINTFORML 現れた人形は何やら小袋を抱えとてとてと歩いている
					PRINTFORMW 一生懸命なその姿は何だかほほえましい
					PRINTFORML 『あら、こんな森の中に誰かが来るのは珍しいわね』
					PRINTFORMW 突如聞こえた声に振り向くといつの間にか開いていた扉の前に金髪の少女が立っていた
					PRINTFORML 『ん、お使いありがとうね』
					PRINTFORMW その少女は傍までやってきた人形から荷物を受け取るとその腕に人形を抱きあげた
					PRINTFORML 「その子は貴女の…？」
					PRINTFORMW 『そうよ。　可愛いでしょう』
					PRINTFORML 『それで、あなた達はこんな日にこんな辛気臭い所に何の用かしら。　まさかデート？』
					PRINTFORML 「ええ、そんなところです」
					PRINTFORML 『そうなの、どっちが誘ったか知らないけどデートスポット選びのセンスはもっと磨いた方がいいわね』
					PRINTFORMW 『ま、ここで会ったも何かの縁。　お茶でも淹れるわ、休んで行きなさい』
					PRINTFORML 「えと、急に休めと言われましても…」
					PRINTFORML 『今日は瘴気が少しきついのよ。　あんまり外にいると大方の人妖には良くないわ
					PRINTFORML 　もうしばらくしたら瘴気も引くと思うからそれまで、ね』
					PRINTFORML 「そう、なんですか？　ありがとうございます。　…ええと」
					PRINTFORMW 『？　…ああ。　アリスよ。　アリス・マーガトロイド。　この森に住むごく普通の人形遣いよ』
					PRINTFORML 「…どこかで聞いたような自己紹介ですね」
					PRINTFORML 『あらそう？どこかで真似されちゃったのかしら』
					PRINTFORML 愉しげに笑いながら人形遣いは洋館の中へと入っていく
					PRINTFORML あなたと星は少し迷ったが結局アリスについていく事にした
					PRINTFORMW 彼女のふるまいや雰囲気から純粋な親切心からの誘いだと思えたからだ
					PRINTFORMW …ナズーリンに話せば人を無条件に信用しすぎだと呆れられそうな話だが
					PRINTFORML
					PRINTFORMW アリスと知り合った
					SETBIT CFLAG:1002,2
				;アリスに会った
				ELSE
					PRINTFORML 『～♪　～♪』
					PRINTFORML アリスは鼻歌交じりに人形の髪を梳いている
					PRINTFORMW 表情に乏しいはずの人形たちもなんだか気持ちよさそうに見える
					PRINTFORML 「はー…」
					PRINTFORMW 星はと言えばアリスのその流れるようなブラシ捌きを見とれるように見つめている
					PRINTFORML 『はいおしまい。次、来なさい。　　…ねえ、貴女もやってみる？』
					PRINTFORML 突如アリスに声をかけられ星が驚きに目を見開いた
					PRINTFORML 「へ！？　いえ私はその子たちみたいに長くて綺麗な髪なんて持っていませんし
					PRINTFORMW 　そもそも人の家にお邪魔しておいて髪を梳いてもらうというのも気恥しいというかなんというかっ」
					PRINTFORML 『そうじゃなくてこの子たちのお手入れ。　一緒にする？』
					PRINTFORML 「あ、ああそっちですか…　そうですね、それなら%MASTERNAME:87%もいっしょにやりましょう」
					PRINTFORMW 急にこちらに話を振られて驚く
					PRINTFORML 辞退しようと立ち上がろうとしたところでいつの間にかこちらの膝の上に人形が一体座り込んでいることに気付いた
					PRINTFORML 『あら、その子は%MASTERNAME:87%が気に入ったみたいね。　…はい、綺麗にしてあげて』
					PRINTFORMW すかさずアリスにブラシを手渡され断るに断れなくなってしまった
					PRINTFORML 『もつれないように毛先のあたりからゆっくりと…そう、優しくね』
					PRINTFORML 「こ…こうですか」
					PRINTFORML 二人は既に作業を始めてしまっている
					PRINTFORMW あなたも一緒にやるしかないだろう…
					PRINTFORML
					PRINTFORML
					PRINTFORML 『これで一通り終わりかしら。　お疲れ様』
					PRINTFORML 『それじゃあ次は貴女の番ね、人用のブラシを持ってくるわ』
					PRINTFORMW 「ふぇ！？」
					PRINTFORML
					PRINTFORMW 星の毛づやがよくなった！
				ENDIF
		ENDSELECT

	;通常会話
		;悪天候で外(山門、境内、裏庭、墓地)にいる
		;吹雪
		ELSEIF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121) && TIME:5 == 9
			IF RAND:3 == 0
				PRINTFORML 吹雪の中星は自身を抱くようにして縮こまっている
				PRINTFORML 「さ、寒いどころじゃなくてっ！　と、とても外にはいられないですっ！！」
				PRINTFORMW 「早く寺の中に戻りましょうっ！！」
			ELSEIF RAND:2 == 0
				PRINTFORML 「わ、私はもともと南国の生き物なんですよおっ！」
				PRINTFORMW 「寒いのは苦手なんです、早く中に入りましょう！」
			ELSE
				PRINTFORML 「と、とても外に出れる天気じゃないですね」
				PRINTFORMW 「早く中に戻りましょうよお」
			ENDIF
		;あられ
		ELSEIF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121) && TIME:5 == 13
			;傘を持っている
			IF ITEM:561 > 0
				PRINTFORML 広げた傘にあられが当たりべしべしと大きな音がする
				PRINTFORML 「いくら傘があっても…　このままじゃ壊れちゃうんじゃないでしょうか」
				PRINTFORMW 「%MASTERNAME:87%、屋根のあるところに行きましょう。　話の続きはそこで」
			ELSE
				PRINTFORML 星と話しているとひと際大きなあられが突如降ってきた
				PRINTFORML 「わっとと、　これは大きいですね…」
				PRINTFORMW 「このまま外にいて直撃なんてしたら怖いですから…早く寺の中に戻りましょう」
			ENDIF
		;成功
		ELSEIF TFLAG:193 == 1
			;お仕事中
			IF CFLAG:行動 == 5
				PRINTFORML 「ふふ、%MASTERNAME:87%とお話していたらなんだか元気が出てきました♪」
				PRINTFORMW 「さて、もうひと頑張りです！」
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「そ、それは知りませんでした。%MASTERNAME:87%は博識ですね！」
					PRINTFORMW あなたの繰り広げる英知の世界に星は目を輝かせている
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あははっ、なるほどそれはなかなかとんちがきいていますね」
				ELSE
					PRINTFORMW 「ふう、%MASTERNAME:87%と話していると時間を忘れてしまいそうです♪」
				ENDIF
			ENDIF
		;失敗
		ELSEIF TFLAG:193 == -1
			IF RAND:4 == 0
				PRINTFORML 「………………………えぅ」
				PRINTFORMW 話が少し露骨過ぎたか星は顔を真っ赤にして黙り込んでしまった
			ELSEIF RAND:3 == 0
				PRINTFORML 「…え？　は、はい！知ってます！美味しいですよねそれ！」
				PRINTFORMW どうやらよく知らない話題を振ってしまったようだ
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ええ？本当ですか？　それは……ちょっと……」
				;/なに？それは本当かね？　それは……気の毒に……。
			ELSE
				PRINTFORML 「えっと…その…」
				PRINTFORMW どうやら反応に困る話題だったようだ
			ENDIF
		;会話累積値が閾値を超えての失敗
		ELSEIF TCVAR:302 && !TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORML 「えと、えと、その……」
				PRINTFORMW 　星も必死に話題を探してくれているが上手く出てこないようだ…
			ELSE
				PRINTFORMW あれは…以前話した。あの話は…今すべきではない。ならとっておきの…ええと……
			ENDIF
		;普通
		ELSE
			;添い寝中
			IF CFLAG:添い寝中
				IF RAND:4 == 0
					PRINTFORMW 「お布団の中はやっぱり気持ちいいですねー…」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「へー、そんなことがあったんですかぁ…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 話をしながら星は布団の中であなたにすり寄っている
				ELSE
					;季節の話
					SELECTCASE DAY:2
					;春
					CASE 1
						IF RAND:3 == 0
							PRINTFORML 「だんだんお布団から出るのが辛くない季節になってきましたねぇ」
							PRINTFORMW 「でも暖かければ暖かいで、いつまでも寝ていたい気分になっちゃいます」
						ELSEIF RAND:2 == 0
							PRINTFORMW 「ふう…夜はまだ冷えますね」
						ELSE
							PRINTFORML 「春眠暁を覚えずと言いますが…全くその通りだと思います」
							PRINTFORMW 「だってこんなに気持ちいいんですから…」
							SIF TALENT:恋人
							PRINTFORMW 「愛する人と一緒ならなおさら…です%UNICODE(0x2665)%」
						ENDIF
					;夏
					CASE 2
						IF RAND:4 == 0
							PRINTFORML 「蛙の声がすごいですね」
							PRINTFORMW 「蛙の言葉が分かる方は中てられちゃって大変だって聞きますよ。これって全部、求愛と睦みあいの鳴き声だそうですから…」
						ELSEIF RAND:3 == 0
							PRINTFORML 「風が気持ち良いですねー…風鈴も心地よいです」
							PRINTFORMW 「でも、あんまり夜風に当たりすぎると風邪引いちゃいますよ」
						ELSEIF RAND:2 == 0
							PRINTFORML 「%MASTERNAME:87%、暑くないですか？」
							PRINTFORMW 「私体温が高い方なので…寝苦しかったら言ってください」
							;/犬猫の平均は38～9度。虎はどうだっけ
						ELSE
							PRINTFORML 「汗かいてますね…寝冷えしないように気をつけないと」
							PRINTFORMW 星はあなたのこめかみを伝う汗を軽く拭った
						ENDIF
					;秋
					CASE 3
						IF RAND:3 == 0
							PRINTFORML 「だんだん冷え込むようになってきましたね…」
							PRINTFORMW 「そろそろ毛布を出さなきゃいけませんね」
						ELSEIF RAND:2 == 0
							PRINTFORML 「皆で紅葉狩りなんてのもいいかも知れませんねぇ」
							PRINTFORMW 「まぁ、私としてはその、あなたと二人でもいいのですが…」
						ELSE
							PRINTFORML 外からは虫の音が静かに聞こえてくる
							PRINTFORML 「鈴虫…ですかね」
							PRINTFORMW 「いえ、詳しくないので違うかもしれないですが」
						ENDIF
					;冬
					CASE 4
						IF RAND:3 == 0
							PRINTFORML 「うう…毛皮がなくなってからこっち、この季節は憂鬱です…」
							PRINTFORMW 「まぁ…今はこうして、一緒に寝てくださる方がいますけどね…%UNICODE(0x2665)%」
						ELSEIF RAND:2 == 0
							PRINTFORML 「今夜は冷えますね…」
							PRINTFORMW 「%MASTERNAME:87%…もう少しそっちに寄ってもいいですか」
						ELSE
							PRINTFORML 「朝になると本堂の周りにけっこう大きな霜柱ができるんですよ」
							PRINTFORMW 「お仕事に行くとき踏んでみるのがちょっとした楽しみだったり…」
						ENDIF
					ENDSELECT
				ENDIF
			;お仕事中
			ELSEIF CFLAG:行動 == 5
				IF RAND:3 == 0
					PRINTFORML 「仕事が大変じゃないか、ですか」
					PRINTFORML 「ええ、楽ではありません。でもこれも修行の一環ですから」
					PRINTFORMW 「…手伝ってもらえるなら、うれしいですけど」
				ELSEIF RAND:2 == 0
					PRINTFORML 「これですか？毘沙門天様への報告書です」
					PRINTFORMW 「最近立て続けで事件が起こってますからねー、書くことがいっぱいですよ」
					SIF TALENT:恋人
						PRINTFORMW 「でも%MASTERNAME:87%とのことは、ばれたら大変ですね…%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「毘沙門天様の教えにも、毎日しっかり目を通さないと」
					PRINTFORMW 「聖から任されている事ですからね。大事な仕事です」
				ENDIF
			;浴場にいる
			ELSEIF BATHROOM()
				;お風呂でくつろぐの後
				IF PREVCOM == 403
					IF RAND:3 == 0
					;季節の話
						;夏
						IF DAY:2 == 2
							PRINTFORML 「今日みたいに蒸し暑い日にお風呂に入っていると水風呂ならもっと気持ちいいかなって思ったり…」
							PRINTFORMW 「流石に煩悩に捕らわれ過ぎですかね、これは」
							;/えっちなこといっぱいするのにねぇ
						;冬
						ELSEIF DAY:2 == 4
							PRINTFORMW 「寒い日のお風呂はじんわりと身にしみますねぇ」
						ELSE
							PRINTFORML 「ふぅ…極楽気分…♪」
							PRINTFORMW 星はのんびりと湯船にたゆたっている…
						ENDIF
					ELSEIF RAND:2 == 0
						PRINTFORML 「%MASTERNAME:87%はお風呂好きですか？」
						PRINTFORMW 「私は好きですよ、綺麗になるのは気分がいいですし」
					ELSE
						PRINTFORML 「んー♪　温まりますねー」
						PRINTFORMW 星は湯船の中で大きく伸びをしている
					ENDIF
				ELSE
					;朝
					IF TIME:2 == 1
						PRINTFORMW 「朝風呂で目もすっきりですね♪」
					ELSE
						PRINTFORML 「汚れも疲れも洗い流してしまいましょう。　身を清めるのは大事なことです」
						PRINTFORMW 星は丁寧に身体を洗っている…
					ENDIF
				ENDIF
			ELSE
				IF RAND:7 == 0
				;季節の話
					SELECTCASE DAY:2
					;春
					CASE 1
						IF RAND:4 == 0
							PRINTFORML 「目に優しい季節ですねぇ～」
							PRINTFORMW 「白一色だったのが色とりどりの新緑に覆われていくのは毎年のことながら感動します」
						ELSEIF RAND:3 == 0
							PRINTFORML 「解けかけの雪を見ていると、聖が復活したときのことを思い出します」
							PRINTFORMW 「あの時は大変でした…魔法使いはともかく、巫女たちの言い分はメチャクチャでしたね」
						ELSEIF RAND:2 == 0
							PRINTFORML 「博麗神社ではほとんど毎日お花見をしているみたいです」
							PRINTFORMW 「機を見て行ってみるのもいいかもしれませんね」
						ELSE
							PRINTFORML 「そう言えば今年%MASTERNAME:87%は春告精を見ましたか？」
							PRINTFORMW 「冬から春への変わり目ではあの妖精が通った瞬間春になるんです。　一見の価値ありですよ」
						ENDIF
					;夏
					CASE 2
						IF RAND:3 == 0
							PRINTFORML 「%MASTERNAME:87%、体調管理は出来てますか？」
							PRINTFORMW 「私はもともと暑いところの出身なんで、むしろ心地いいですね。まぁ、ずうっと昔の話ですけど」
						ELSEIF RAND:2 == 0
							PRINTFORML 「例え曇っていても雨が降っても蒸し暑いのはなかなか変わらないんですよねー…」
							PRINTFORMW 星はぱたぱたと手のひらで自らを煽いでいる
						ELSE
							PRINTFORML 「だいぶ蒸しますね…」
							PRINTFORMW 「倉庫から風鈴でも出して気分だけでも涼しくしましょうか」
						ENDIF
					;秋
					CASE 3
						IF RAND:4 == 0
							PRINTFORML 「収穫の秋、食欲の秋です」
							PRINTFORMW 「おっと、欲はほどほどにしないといけませんね。悟りへの道は険しいです」
						ELSEIF RAND:3 == 0
							PRINTFORML 「山もだんだん色づいてきましたねぇ」
							PRINTFORML 「知ってます？紅葉って、紅葉の神様が葉っぱを一枚ずつ塗って回ってるそうですよ」
							PRINTFORMW 「だから一度に全部の木が紅葉しないし、一枚一枚色が違うんですって」
						ELSEIF RAND:2 == 0
							PRINTFORML 「山の辺りは紅葉が見事に色づいていますね」
							PRINTFORMW 「不用心に近付くと天狗たちに警戒されてしまいかねませんが」
						ELSE
							PRINTFORML 「この間檀家の方から頂いたお芋、%MASTERNAME:87%はもう食べました？」
							PRINTFORMW 「私はもう頂いたのですがこれが本当に美味しくて美味しくて…正に秋は実りの季節、です♪」
						ENDIF
					;冬
					CASE 4
						IF RAND:4 == 0
							PRINTFORML 「朝になると、本堂の陰に霜柱ができるんですよ」
							PRINTFORMW 「お勤めへの途中に踏むのがささやかな楽しみなんです」
						ELSEIF RAND:3 == 0
							PRINTFORML 「うう…南国出身の身にはこの寒さは堪えます…」
							PRINTFORMW 「本堂は特に寒いんですよねー…」
						ELSEIF RAND:2 == 0
							PRINTFORML 「寒い日が続きますね…」
								;炬燵を持っている
								IF ITEM:562 > 0
									PRINTFORMW 「%MASTERNAME:87%が買ってきた炬燵はまだ壊れているんでしたっけ」
									;※実装されたら修正せねば
								ELSE
									PRINTFORMW 「炬燵があれば……いや、入ったら出れなくなっちゃいそうです…」
								ENDIF
						ELSE
							PRINTFORML 「朝冷え込んでるとお布団から出るのが辛くて辛くて…」
							PRINTFORMW 「いえ！　これも一つの精神鍛練、すっぱり起きて寒さに慣れるようにしなければ！」
						ENDIF
					ENDSELECT
				ELSEIF RAND:6 == 0
				;天気の話
				;/死にやすいが仕方ない
					SELECTCASE TIME:5
					 ;晴れ、晴天
					CASE 0,1
						;夜　　2018/08/08 TIME:2の詳細化に対応してなかった部分の修正
						;IF TIME:2 == 3
						IF TIME:0 >= 1140 || TIME:0 <= 240
							PRINTFORMW 「今夜は空が晴れているので月や星がよく見えますね」
						;春、秋
						ELSEIF GROUPMATCH(DAY:2, 1, 3)
							PRINTFORMW 「今日はよく晴れていて気持ちがいいですね。　勤行も心地よく行えるというものです♪」
						;夏
						ELSEIF DAY:2 == 2
							PRINTFORMW 「今日は日差しも強くて暑いですね…　洗濯物は良く乾きそうですけど…」
						;冬
						ELSE
							PRINTFORMW 「冬晴れ…といったところでしょうか。　少しは寒さも和らぐといいんですけどね」
						ENDIF
					;薄曇
					CASE 2
						;夜　　2018/08/08 TIME:2の詳細化に対応してなかった部分の修正
						;IF TIME:2 == 3
						IF TIME:0 >= 1140 || TIME:0 <= 240

							PRINTFORML 「%MASTERNAME:87%、空は見ましたか？」
							PRINTFORMW 「月にかかった雲がぼんやりと輝いていますよ」
						;夏
						ELSEIF DAY:2 == 2
							PRINTFORML 「今日はちょっと曇っていますね」
							PRINTFORMW 「このくらい雲がかかっていれば少しは過ごしやすくなるでしょうか」
						ELSE
							PRINTFORML 「今日はちょっと曇っていますね」
							PRINTFORML 「ところで雲間から日差しが帯を描くように通っているのをみると何だか不思議な気分になりますよね」
							PRINTFORMW 「…なりませんか？」
						ENDIF
					;曇
					CASE 3
						;夜　　2018/08/08 TIME:2の詳細化に対応してなかった部分の修正
						;IF TIME:2 == 3
						IF TIME:0 >= 1140 || TIME:0 <= 240
							PRINTFORMW 「今夜は随分と曇っていますね。　明日は雨でしょうか」
						ELSE
							PRINTFORMW 「今日は雲が厚いですね…　急に降られないように気をつけないと」
						ENDIF
					;雨、大雨、霧雨
					CASE 4,5,6
						;外(山門、境内、裏庭、墓地)
						IF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121)
							;傘を持っている
							IF ITEM:561 > 0
								PRINTFORML 星は傘の中で空を見上げている
								PRINTFORMW 「恵みの雨とは言いますが…　濡れるのはあまり嬉しくありませんね」
							ELSE
								PRINTFORML 星は両手をかざして雨を避けている
								PRINTFORMW 「早く屋根のあるところに行きましょう。　このまま外にいると風邪をひいてしまいます」
							ENDIF
						ELSE
							PRINTFORMW 「今は雨が降っていますから外に出るときは傘を忘れないようにしてくださいね」
						ENDIF
					;霧
					CASE 7
						;外(山門、境内、裏庭、墓地)
						IF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121)
							PRINTFORML 「ん…霧が深いですね」
							PRINTFORMW 「前をよく見ないと危ないですよ…っとぉ！？」
							PRINTFORML つまづいてすっ転びそうになった星を慌てて受け止めた
							PRINTFORMW 足元も滑りやすくなっているようだ
						ELSE
							PRINTFORML 「今は霧が張っているので遠出は控えた方がいいと思いますよ」
							PRINTFORMW 「え？　霧天狗…？　そんな妖怪いましたっけ」
						ENDIF
					;雪、細雪、霧雪
					CASE 8,10,11
						;外(山門、境内、裏庭、墓地)
						IF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121)
							PRINTFORML 「ととと、話し込んでいたらいつの間にか髪飾りに雪が…」
							PRINTFORMW 星は頭にかかった雪を払っている
						ELSE
							PRINTFORMW 「それにしても雪が降るほどとは…道理で寒いはずです」
						ENDIF
					;吹雪
					CASE 9
					;※この天候で外でのんびり話すのもおかしいので外で話すのは上に移動
						PRINTFORML 「外、かなり強く吹雪いていますね…」
						PRINTFORMW 「危ないので外出はしないでくださいね」
					;みぞれ
					CASE 12
						;外(山門、境内、裏庭、墓地)
						IF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121)
							PRINTFORML 「みぞれ…　降っているぶんにはほとんど雨と変わりませんね」
							PRINTFORMW 「地面が滑りやすくなっているのには気をつけないと…」
						ELSE
							PRINTFORML 「みぞれが降っていますね」
							PRINTFORML 「みぞれと言えばかき氷を思い出します」
							PRINTFORMW 「え？　いえ流石にこんな時に食べたいわけでは…」
							PRINTFORML
							PRINTFORMW 「……作ってくれるならみぞれ鍋がいいです」
						ENDIF
					;あられ
					CASE 13
					;※吹雪に同じ
						PRINTFORML 「ばらばらばらばら、あられが当たってすごい音がしてますね」
						PRINTFORMW 「…屋根、抜けたりしませんよね？」
					ENDSELECT
				ELSEIF RAND:9 == 0
					PRINTFORML 「牙ですか？そりゃ昔はありましたけど、今はありませんよ。妖怪ってばれちゃだめでしたから」
					PRINTFORMW 「もっとも、今の幻想郷ならその心配もないですけどね。ふふっ」
				ELSEIF RAND:8 == 0
					PRINTFORML 「宝塔ですか？ええ、きちんと仕舞ってますよ」
					PRINTFORMW 「…仕舞ってるはずです…なんだか不安になってきたじゃないですか…」
				ELSEIF RAND:7 == 0
					PRINTFORML 「うん、これで良しっと」
					PRINTFORMW 「これでもこのお寺の顔ですからね。身だしなみは大切です」
				ELSEIF RAND:6 == 0
					PRINTFORML 「聖は優しい方ですけど、厳しいところはきっちり厳しいですよ」
					PRINTFORMW 「私たちはそんなところに惹かれて集まったのです」
				ELSEIF RAND:5 == 0
					PRINTFORML 「はい、それでまたナズーリンにお小言をもらってしまって…」
					PRINTFORMW 「もっとしっかりしないといけませんね」
				ELSEIF RAND:4 == 0
					PRINTFORML 「現状、信仰の取り合いのようになってしまっていますが…」
					PRINTFORMW 「本当は博麗の巫女とも洩矢の方々とも仲良くしたいんですよね」
				ELSEIF RAND:3 == 0
					PRINTFORML 特に里のお店について盛り上がった
					PRINTFORMW 「あのお店のどら焼きは逸品です、今度%MASTERNAME:87%も召し上がってみてください」
				ELSEIF RAND:2 == 0
					PRINTFORML 「片方との距離が開くと警告音を出す道具…ですか」
					PRINTFORMW 「…なんだか両方まとめて無くしてしまいそうです」
				ELSE
					PRINTFORML 話題はそのうち仏門の修行の話になった
					PRINTFORMW 「ええ、%MASTERNAME:87%の仕事である境内の清掃も立派な修行の一つだと思いますよ」
				ENDIF
			ENDIF
		ENDIF

ENDIF
RETURN 1
;==================================================
;301,お茶を淹れる
;==================================================
@M_KOJO_MESSAGE_COM_K87_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_301_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;初めて
	IF FIRSTTIME(SELECTCOM)
		PRINTFORML 「あ、%MASTERNAME:87%、お茶淹れてくれたんですか」
		PRINTFORML そう言って受け取ったお茶を飲んだ星は\@ TFLAG:193 == -1 ? そのまま固まってしまった # 満足したような溜息をついた \@
			IF TFLAG:193 != -1
				PRINTFORMW 「美味しかったです♪　よければまたご馳走になってもいいですか？」
			ENDIF
	;二回目以降
	ELSE
		;不味い
		IF TFLAG:193 == -1
			;5～6時(寝起きと仮定)
			IF TIME:0 >= 300 && TIME:0 <= 360
				PRINTFORMW 「…目は、覚めました……」
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「……？　白湯？」
					PRINTFORMW どうやら上手く淹れられなかったようだ
				ELSEIF RAND:2 == 0
					PRINTFORMW 「うう、にがいです…」
				ELSE
					PRINTFORML 「！？　あふっ、あふいっ！　おみ、おみずっ！」
					PRINTFORMW どうも星には熱すぎたようだ
				ENDIF
			ENDIF
		;美味しいor普通
		ELSE
			;5～6時(寝起きと仮定)
			IF TIME:0 >= 300 && TIME:0 <= 360
				PRINTFORML 「ふう…。目覚めの一杯、美味しかったですよ♪」
				PRINTFORMW 「さて、今日も一日、張り切っていきますよ！」
			;縁側で、夜(19～4時)で、満月　　2018/08/08 TIME:2の詳細化に対応してなかった部分の修正
			;ELSEIF CFLAG:現在位置 == 110 && TIME:2 == 3 && DAY:4 == 15
			ELSEIF CFLAG:現在位置 == 110 && TIME:0 >= 1140 || TIME:0 <= 240 && DAY:4 == 15
				PRINTFORML 「満月を眺めながらの一服……風流ですね」
				PRINTFORMW あなたの期を見た粋な計らいに星は満足してくれたようだ
			;お仕事中
			ELSEIF CFLAG:行動 == 5
				IF RAND:3 == 0
					PRINTFORMW 「ありがとうございます。忙しくて自分で淹れる暇がなかったんですよ」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「お、ありがたいです。では遠慮なく…」
				ELSE
					PRINTFORMW 「ふう、一息つけました。では頑張って残りをやっつけちゃいますね」
				ENDIF
			;食事をふるまう の直後
			ELSEIF PREVCOM == 415
					PRINTFORML 「食事だけでなく食後のお茶まで淹れてくれるなんて…」
					PRINTFORMW 「%MASTERNAME:87%は本当に気の付く方ですね♪」
			ELSE
				;MASTERが茶淹技能3以上
				;IF ABL:MASTER:茶淹技能 >= 3
				;	IF RAND:3 == 0
				;		PRINTFORML 「%MASTERNAME:87%、ずいぶんお茶を淹れるのが上手くなりましたよね」
				;		PRINTFORMW 「動線が綺麗、というんですかね。　すごくさまになっていますよ」
				;	ELSEIF RAND:2 == 0
				;		PRINTFORML 「%MASTERNAME:87%の淹れるお茶は本当に美味しいです」
				;		PRINTFORML 「これなら何杯でも飲めちゃいます♪」
				;		PRINTFORMW 星の満足したような表情にあなたも思わず顔をほころばせた
				;	ELSE
				;		PRINTFORMW 「美味しいです。　なんというか落ち着く味ですね」
				;	ENDIF
					IF RAND:4 == 0
						PRINTFORML 「ふーっ　ふーっ　……ん」
						PRINTFORMW 熱かったのか星はお茶を冷ましながら飲んでいる
					ELSEIF RAND:3 == 0
						PRINTFORMW 「頂きます。　うん、味も香りもいいですね」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「ふう、ご馳走様でした」
					ELSE
						PRINTFORMW 「え、湯呑みも片づけてくれるんですか？　なんだか悪いですね」
						;/湯呑みぺろぺろすんなよ！いいか、絶対だぞ！！
					ENDIF
				;ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;302,スキンシップ
;==================================================
@M_KOJO_MESSAGE_COM_K87_302
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_302_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;デート中
	IF CHK_DATENOW(CFLAG:TARGET:デート中)

	;普段
	ELSE
		;恋人
		IF TALENT:恋人
			;失敗
			IF TFLAG:193 == -1
				PRINTFORMW 「ち、ちょっと、さすがにそれはまずいですってば…」
			;成功or普通
			ELSE
				;浴場
				IF BATHROOM()
					IF RAND:4 == 0
						PRINTFORMW 「やん、もうどこ洗ってるんですか%UNICODE(0x2665)%」
						PRINTFORMW 「ダメ…ですよっ、変な気分になっちゃう…」
					ELSEIF RAND:3 == 0
						PRINTFORML 手のひらで直接星の体を洗うと、星のなめらかな肌が赤みを帯びていく…
						PRINTFORMW 「ん、ふうんっ、%MASTERNAME:87%、手つきがえっちですっ…」
					ELSEIF RAND:2 == 0
						PRINTFORMW 「ありがとうございます♪　終わったら今度は私がお背中流しますね」
					ELSE
						PRINTFORML 「いつもありがとうございます。…こういうのって、いいですね」
						PRINTFORMW 背中の流し合いのあと、星は優しく微笑んだ
					ENDIF
				;縁側
				ELSEIF CFLAG:現在位置 == 110
					;流れ星
					IF TIME:7 == 3
						PRINTFORML 星と一緒に流れ星を眺めた
						PRINTFORML 「あ！　今流れましたよ！」
						PRINTFORMW 「%MASTERNAME:87%は上手くお願い事できましたか？」
					;夏で晴れ
					ELSEIF DAY:2 == 2 && (TIME:5 == 0 || TIME:5 == 1)
						;10～16時
						IF TIME:0 >= 600 || TIME:0 <= 960
							PRINTFORML 冷水を注いだタライに二人で足を突っ込んだ
							PRINTFORML 「ふー…　これで少しは涼しくなりました」
							PRINTFORMW 星はパタパタと団扇で涼をとっている
						;17～19時
						ELSEIF TIME:0 >= 1020 || TIME:0 <= 1140
							PRINTFORML 星と夕涼みをした
							PRINTFORML 「さすがにこのくらいの時間になると昼間よりは暑さも和らぎますね」
							PRINTFORMW 星は気持ちよさそうにあなたに頭を預けている…
						ENDIF
					ELSE
						PRINTFORML 星と外の景色をぼうっと眺めた
						PRINTFORMW 「季節の移ろいをただ眺めるのも結構いいものですね」
						PRINTFORMW 「%MASTERNAME:87%がいれば、なお結構です♪」
					ENDIF
				ELSE
					IF RAND:8 == 0
						PRINTFORML なぜか衝動的に星に寄りかかりたくなったので実行した
						PRINTFORMW 「なんですかー甘えちゃってもう♪」
					ELSEIF RAND:7 == 0
						PRINTFORMW 「ん…♪あなたに触られるの、結構好きです…%UNICODE(0x2665)%」
					ELSEIF RAND:6 == 0
						PRINTFORMW 星に手のひらをぐにぐにと触られた
						PRINTFORMW 「ふふっ、優しくて大きな手です…%UNICODE(0x2665)%」
					ELSEIF RAND:5 == 0
						PRINTFORMW 「こらー、手つきがなんかやらしいですよー？」
					ELSEIF RAND:4 == 0
						PRINTFORMW 「ふふっ…ねぇ、今日、どうですか…%UNICODE(0x2665)%」
					ELSEIF RAND:3 == 0
						;居間にいる
						IF CFLAG:現在位置 == 108
							PRINTFORML 星と将棋崩しをして遊んだ
							PRINTFORMW 星はなかなかにリアクション豊富で見ているだけでも楽しめた
						ELSE
							;/爆発しろ
							PRINTFORML 星の後ろに回り込んだあなたは彼女の背中に人差し指を立てるとつつーっと指を滑らせた
							PRINTFORMW 「わっひゃあ！？　…もー、なにするんですかっ」
							PRINTFORML 「そんな悪い人はこうですっ♪」
							PRINTFORMW 星に飛びつかれ、くすぐり倒された…
						ENDIF
					ELSEIF RAND:2 == 0
						PRINTFORML あなたは星にくすぐり攻撃を試みた
						;/ぬえの　しょうたいが　つかめない　！
						PRINTFORML 「く、んんっ…は、あううっ…あ…」
						PRINTFORMW 効果は抜群だった　…いろんな意味で
					ELSE
						PRINTFORML 「え？肩を揉んでくれるんですか？ありがとうございます」
						PRINTFORMW ………
						PRINTFORML
						PRINTFORML 「ふあぁ…きもちいいです…♪」
						PRINTFORMW 「…私、こういうの好きです。%MASTERNAME:87%にしてあげるのも」
						PRINTFORMW 「ずっと、こういう時間が続けばいいですね…さ、今度は%MASTERNAME:87%の番ですよ」
					ENDIF
				ENDIF
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			;失敗
			IF TFLAG:193 == -1
				PRINTFORMW 「～～～もうっ」
			;成功or普通
			ELSE
				;浴場
				IF BATHROOM()
					IF RAND:2 == 0
						PRINTFORMW 星に背中を流してもらった
						PRINTFORML 「こっ、こんな感じでしょうかっ」
						PRINTFORM 「わ、わたしですかぁっ！？
						IF RAND:2 == 0
							PRINTFORMW あ、その…お、お願いしますっ…」
						ELSE
							PRINTFORMW け、結構ですっ！」
						ENDIF
					ELSE
						PRINTFORML 「背中を流すのはいいんですけど…」
						PRINTFORMW 「あ、あんまりこっち見ないでくださいね…」
					ENDIF
				;縁側
				ELSEIF CFLAG:現在位置 == 110
					;流れ星
					IF TIME:7 == 3
						PRINTFORML 星と一緒に流れ星を眺めた
						PRINTFORML 「あ！　今流れましたよ！」
						PRINTFORMW 「%MASTERNAME:87%は上手くお願い事できましたか？」
						PRINTFORMW 「私の願い事は…内緒です♪」
					;夏で晴れ
					ELSEIF DAY:2 == 2 && (TIME:5 == 0 || TIME:5 == 1)
						;10～16時
						IF TIME:0 >= 600 || TIME:0 <= 960
							PRINTFORML 星が冷水を注いだタライを用意してくれた
							PRINTFORML 「これに足を浸せば、少しは涼しくなりますよ」
							PRINTFORMW 「…えと、私もご一緒してよろしいでしょうか」
							PRINTFORMW 遠慮がちに星も足を突っ込んだ
						;17～19時
						ELSEIF TIME:0 >= 1020 || TIME:0 <= 1140
							PRINTFORML 星と夕涼みをした
							PRINTFORML 「さすがにこのくらいの時間になると昼間よりは暑さも和らぎますね」
							PRINTFORMW 星は気持ちよさそうに伸びをしている
							PRINTFORMW （でも、こうしてると心は熱くなりますね…%UNICODE(0x2665)%）
						ENDIF
					ELSE
						PRINTFORML 星と外の景色をぼうっと眺めた
						PRINTFORMW 「季節の移ろいをただ眺めるのも結構いいものですね…♪」
					ENDIF
				ELSE
					IF RAND:8 == 0
						PRINTFORML なぜか衝動的に星に寄りかかりたくなったので実行した
						PRINTFORMW 「ひぅ…！　な、なんですかっ」
					ELSEIF RAND:7 == 0
						PRINTFORMW 星は緊張させながらも大人しく撫でられた…
					ELSEIF RAND:6 == 0
						;/掃除職人にしてパンツハンターあなた
						PRINTFORMW 星に手のひらをぐにぐにと触られた
						PRINTFORMW 「ふふっ、働き者の手ですね…」
					ELSEIF RAND:5 == 0
						PRINTFORMW 「ちょっ、そ、そこはぁっ…」
					ELSEIF RAND:4 == 0
						PRINTFORMW 「…」
						PRINTFORMW 星はさり気なくすり寄ってきた…
					ELSEIF RAND:3 == 0
						;居間にいる
						IF CFLAG:現在位置 == 108
							PRINTFORML 星と将棋崩しをして遊んだ
							PRINTFORMW 星はなかなかにリアクション豊富で見ているだけでも楽しめた
						ELSE
							PRINTFORML 星の後ろに回り込んだあなたは彼女の背中に人差し指を立てるとつつーっと指を滑らせた
							PRINTFORMW 「わっひゃあ！？　…もー、なにするんですかっ」
						ENDIF
					ELSEIF RAND:2 == 0
						PRINTFORML あなたは星にくすぐり攻撃を試みた
						;/ぬえの　しょうたいが　つかめない　！
						PRINTFORML 「く、ふふふふ、あはははっ、そこっ、だめ、あんんっ」
						PRINTFORMW 効果は抜群だった　…なにか違うものが混じっている気もするが
					ELSE
						PRINTFORML 「え？肩を揉んでくれるんですか？わ、わざわざどうも…」
						PRINTFORMW ………
						PRINTFORML
						PRINTFORML 「…♪」
						PRINTFORML 「うん、だいぶほぐれました。あ、あの、今度は私がしてあげます…」
						PRINTFORMW その後、星は終始ご機嫌だった
					ENDIF
				ENDIF
			ENDIF
		;恋人、恋慕なし
		ELSE
			;失敗
			IF TFLAG:193 == -1
				PRINTFORMW 「ちょ、ちょっと…」
			;成功or普通
			;/古き良き日本の伝統により、混浴でも特に気にされないと強引に解釈するしかない。何その理想郷
			ELSE
				;浴場
				IF BATHROOM()
					IF RAND:2 == 0
						PRINTFORMW 「ありがとうございます。　終わったら今度は私がお背中流しますね」
					ELSE
						PRINTFORML 「助かります。　自分じゃなかなか見れないところですから綺麗になってるか分からなくって」
						PRINTFORMW 水をはじく星の肌はきめ細かい、綺麗かどうかで問われれば間違いなく綺麗だと返せるほどだ
					ENDIF
				;縁側
				ELSEIF CFLAG:現在位置 == 110
					;流れ星
					IF TIME:7 == 3
						PRINTFORML 星と一緒に流れ星を眺めた
						PRINTFORML 「あ！　今流れましたよ！」
					;夏で晴れ
					ELSEIF DAY:2 == 2 && (TIME:5 == 0 || TIME:5 == 1)
						;10～16時
						IF TIME:0 >= 600 || TIME:0 <= 960
							PRINTFORML 星が冷水を注いだタライを用意してくれた
							PRINTFORML 「これに足を浸せば、少しは涼しくなりますよ」
							PRINTFORMW 星はパタパタと団扇で涼をとっている
						;17～19時
						ELSEIF TIME:0 >= 1020 || TIME:0 <= 1140
							PRINTFORML 星と夕涼みをした
							PRINTFORML 「さすがにこのくらいの時間になると昼間よりは暑さも和らぎますね」
							PRINTFORMW 星は気持ちよさそうに伸びをしている
						ENDIF
					ELSE
						PRINTFORML 星と外の景色をぼうっと眺めた
						PRINTFORMW 「季節の移ろいをただ眺めるのも結構いいものですね」
					ENDIF
				ELSE
					IF RAND:8 == 0
						PRINTFORML なぜか衝動的に星に寄りかかりたくなったので実行した
						PRINTFORMW 「？どうしたんですか？」
					ELSEIF RAND:7 == 0
						PRINTFORMW 「んんっ」
					ELSEIF RAND:6 == 0
						PRINTFORMW 星に手のひらをぐにぐにと触られた
					ELSEIF RAND:5 == 0
						PRINTFORMW 「ちょっと、撫ですぎですよ…」
					ELSEIF RAND:4 == 0
						PRINTFORMW 星の特徴的な縞模様の髪の毛を撫でた
					ELSEIF RAND:3 == 0
						;居間にいる
						IF CFLAG:現在位置 == 108
							PRINTFORML 星と将棋崩しをして遊んだ
							PRINTFORMW 星はなかなかにリアクション豊富で見ているだけでも楽しめた
						ELSE
							PRINTFORML 星の後ろに回り込んだあなたは彼女の背中に人差し指を立てるとつつーっと指を滑らせた
							PRINTFORMW 「わっひゃあ！？　…もー、なにするんですかっ」
						ENDIF
					ELSEIF RAND:2 == 0
						PRINTFORML あなたは星にくすぐり攻撃を試みた
						;/ぬえの　しょうたいが　つかめない　！
						PRINTFORML 「くあ、あ、あははははっ、あは、ひや、あはははっ」
						PRINTFORMW 効果は抜群だった　…後で少し怒られたが
					ELSE
						PRINTFORML 「え？肩を揉んでくれるんですか？」
						PRINTFORMW ………
						PRINTFORML
						PRINTFORML 「ふあぁ…きもちいいです…♪」
						PRINTFORMW 軽い労いのつもりで始めたが…気付けば思っていたより長い時間揉んでいた
						PRINTFORML 「うん、だいぶほぐれました。ありがとうございます%MASTERNAME:87%」
						PRINTFORMW まあ星はだいぶ気持ちよさそうだったので良しとしよう
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;303,謝る
;==================================================
@M_KOJO_MESSAGE_COM_K87_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_303_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;304,仕事を手伝う
;※事務仕事とかのイメージ。命蓮寺の経営や経典の管理を任されてそう
;10％で大成功、10～1％で失敗、残りは成功
;==================================================
@M_KOJO_MESSAGE_COM_K87_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_304_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋慕
	IF TALENT:恋慕
		;大成功
		IF TFLAG:193  == 1
			IF RAND:3 == 0
				PRINTFORMW 「うん、良い感じです。やっぱりあなた、この仕事向いてますよ」
				PRINTFORMW 「…ですから、これからも一緒に…い、いえ、何でもありません」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「…すごい。どうして私のやってほしいことが分かるんですか？」
				PRINTFORMW （ちょっと…いやかなり嬉しいです♪）
			ELSE
				PRINTFORMW 「いやあ、有能ですね%MASTERNAME:87%は。この分だとかなり早く片付きますよ」
				PRINTFORMW 「ですから、次回も来てくださいね♪」
			ENDIF
		;失敗
		ELSEIF TFLAG:193  == -1
			IF RAND:3 == 0
				PRINTFORMW 「…」
				PRINTFORMW 「ま、まぁこういうこともありますよ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あー、ちょっとそれはやっちゃまずかったですね…」
			ELSE
				PRINTFORMW 「…これやるときは、私の目を通してからって言ったじゃないですか…」
			ENDIF
		;成功
		ELSE
			IF RAND:6 == 0
				PRINTFORMW 「また例の騒音バンドへの苦情ですか…はぁ」
			ELSEIF RAND:5 == 0
				PRINTFORMW 「これは聖への要連絡事項ですねぇ…」
			ELSEIF RAND:4 == 0
				PRINTFORM 「そこの
				IF RAND:5 == 0
					PRINTFORM 書類のNo.6から10を
				ELSEIF RAND:4 == 0
					PRINTFORM 資料を
				ELSEIF RAND:3 == 0
					PRINTFORM 経典を
				ELSEIF RAND:2 == 0
					PRINTFORM 名簿を
				ELSE
					PRINTFORM お悩み相談の束を
				ENDIF
				IF RAND:3 == 0
					PRINTFORMW 取っていただけます？」
				ELSEIF RAND:2 == 0
					PRINTFORMW あそこの棚に片付けてください」
				ELSE
					PRINTFORMW 揃えて綴じてください」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「よし、一丁上がり。次の書類、お願いします」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「えっと、ここチェック済みの奴をまとめちゃってください」
			ELSE
				PRINTFORMW 「そうそう、そのページを開いて持っててください」
			ENDIF
		ENDIF
	ELSE
		;大成功
		IF TFLAG:193  == 1
			IF RAND:3 == 0
				PRINTFORMW 「うん、良い感じです。やっぱりあなた、この仕事向いてますよ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「…すごい。どうして私のやってほしいことが分かるんですか？」
			ELSE
				PRINTFORMW 「いやあ、有能ですね%MASTERNAME:87%は。この分だとかなり早く片付きますよ」
				PRINTFORMW 「これからも毎回来て欲しいですね」
			ENDIF
		;失敗
		ELSEIF TFLAG:193  == -1
			IF RAND:3 == 0
				PRINTFORMW 「…」
				PRINTFORMW 「ま、まぁこういうこともありますよ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あーちょっと、それはやっちゃまずかったですね…」
			ELSE
				PRINTFORMW 「…これやるときは、私の目を通してからって言ったじゃないですか…」
			ENDIF
		;成功
		ELSE
			IF RAND:6 == 0
				PRINTFORMW 「また例の騒音バンドへの苦情ですか…はぁ」
			ELSEIF RAND:5 == 0
				PRINTFORMW 「これは聖への要連絡事項ですねぇ…」
			ELSEIF RAND:4 == 0
				PRINTFORM 「そこの
				IF RAND:5 == 0
					PRINTFORM 書類のNo.6から10を
				ELSEIF RAND:4 == 0
					PRINTFORM 資料を
				ELSEIF RAND:3 == 0
					PRINTFORM 経典を
				ELSEIF RAND:2 == 0
					PRINTFORM 名簿を
				ELSE
					PRINTFORM お悩み相談の束を
				ENDIF
				IF RAND:3 == 0
					PRINTFORMW 取っていただけます？」
				ELSEIF RAND:2 == 0
					PRINTFORMW あそこの棚に片付けてください」
				ELSE
					PRINTFORMW 揃えて綴じてください」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「よし、一丁上がり。次の書類、お願いします」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「えっと、ここチェック済みの奴をまとめちゃってください」
			ELSE
				PRINTFORMW 「そうそう、そのページを開いて持っててください」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;305,膝枕してもらう
;==================================================
@M_KOJO_MESSAGE_COM_K87_305
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_305_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_305_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF ABL:TARGET:親密 > 2
		;食事 の直後
		IF PREVCOM == 414
			PRINTFORML 「食べた後すぐ横になるのは良くないですよ？」
			PRINTFORMW そうは言うものの星の目つきは優しげだった
		ELSE
			IF RAND:7 == 0
				PRINTFORML 「ナズーリンは嫌がるんですよねぇこれ。耳かき自体は嫌いじゃないみたいなんですけど」
				PRINTFORMW 「なぜなんでしょうねぇ…すっきりするのに」
			ELSEIF RAND:6 == 0
				PRINTFORMW 「実を言うと、聖にもたまにしてあげるんですよ。してもらうこともありますけどね♪」
			ELSEIF RAND:5 == 0
				PRINTFORMW 「そうですねー、今度は私がやってもらおうかなー♪」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「ふふっ、こうしていると何だか恋人どうしみたいですね」
			ELSEIF RAND:3 == 0
				PRINTFORMW 少しばかりこそばゆい穏やかな時間はゆっくりと過ぎていった
			ELSEIF RAND:2 == 0
				PRINTFORML 「～♪」
				PRINTFORMW 膝枕をする星も何だか嬉しそうに見えた
			ELSE
				PRINTFORMW 星の優しい手つきと柔らかな寝心地に思わず眠ってしまいそうになった
			ENDIF
		ENDIF
	ELSE
		PRINTFORMW 「こ、こういうのはなかなか慣れませんね…」
	ENDIF
ENDIF
RETURN 1

;==================================================
;332,お酒をふるまう
;お酒の番号はFLAG:19に入ってる
;==================================================
@M_KOJO_MESSAGE_COM_K87_332
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_332_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_332_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;宴会
	IF GET_TARGETNUM() > 3
		PRINTFORML
	;その他
	ELSE
		PRINTFORML
	ENDIF
ENDIF
RETURN 1

;==================================================
;308,頬をつつく
;==================================================
@M_KOJO_MESSAGE_COM_K87_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_308_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		IF TFLAG:193 == 1
			PRINTFORML 「むに…むに……ふふ……」
			PRINTFORMW つつくたびに面白い声が出る。　癖になりそうだ
		ELSEIF TFLAG:193 == -1
			PRINTFORMW 「うー？　………むう…」
		ELSE
			IF RAND:2 == 0
				PRINTFORML 星の頬はつきたての餅のようにやわらかい
				PRINTFORMW 引っ張ったらよく伸びそうだ
			ELSE
				PRINTFORML 「……はむ」
				PRINTFORML 星は首を微かに動かしあなたの指を咥えてきた
				PRINTFORMW 動く舌にちろりと指先が舐められる…
			ENDIF
		ENDIF
	ELSE
		IF TFLAG:193 == 1
			PRINTFORML 「それじゃあ私も……　えいっ」
			PRINTFORMW 星も負けじとこちらの頬をつついてきた
			PRINTFORMW さらにこちらがやり返すと星もさらにつつき返してくる
			PRINTFORMW よくわからない意地の張り合いはしばらく続いた…
		ELSEIF TFLAG:193 == -1
			PRINTFORMW 「もう、あんまり強くされると痛いです」
		ELSE
			;連続
			IF PREVCOM == SELECTCOM
				IF RAND:2 == 0
					PRINTFORMW 「んにゅ…私のほっぺたつつくのそんなに気に入ったんですかぁ？」
				ELSE
					PRINTFORML 「えいっ」
					PRINTFORMW 頬をつつく指をはっしと掴まれてしまった
					PRINTFORMW 「捕まえましたよー　悪さをするのはこの指ですかー？」
				ENDIF
			ELSE
				IF RAND:4 == 0
					PRINTFORML 「あんまり強くしたら痛くなっちゃいますよー」
					PRINTFORMW 星は嬉しそうな表情でいやいやをしている…
				ELSEIF RAND:3 == 0
					PRINTFORML 「ふふっ、楽しそうですね」
					PRINTFORML 星はあなたの頬に手を添えて笑っている
					PRINTFORMW 「私もつんつんしちゃいましょうか♪」
				ELSEIF RAND:2 == 0
					PRINTFORML 「うに……　もう、なんですか？」
					PRINTFORMW 星は嫌がる様子もなくあなたのされるがままになっている
				ELSE
					PRINTFORMW 「あはは、ちょっとくすぐったいです♪」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;309,頭を撫でる
;==================================================
@M_KOJO_MESSAGE_COM_K87_309
;浴場にいるときは情景カット
;SIF CFLAG:現在位置 != BATHROOM()
SIF !BATHROOM()
	CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_309_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CHK_DATENOW(CFLAG:TARGET:デート中)
	ELSEIF CFLAG:TARGET:睡眠
		IF ABL:親密 > 5
			PRINTFORMW 「んに……えへー…」
		ELSE
			PRINTFORMW 「くー……」
		ENDIF
	ELSEIF CFLAG:添い寝中
			;恋慕
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORML 「…………」
					PRINTFORMW 「ふぁっ……　あ、気持ちよくてちょっと寝ちゃってました」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ふふ…%MASTERNAME:87%…%UNICODE(0x2665)%」
					PRINTFORMW 星は手を伸ばすとあなたの頬を撫でつけてきた
				ELSE
					PRINTFORMW 夜の静寂の中星の髪をなでる音だけが聞こえてくる…
				ENDIF
			ELSEIF ABL:親密 > 5
				IF RAND:2 == 0
					PRINTFORML 「…………」
					PRINTFORMW 「ふぁっ……　あ、気持ちよくてちょっと寝ちゃってました」
				ELSE
					PRINTFORMW 「んー…%MASTERNAME:87%の手…暖かくてすごく…」
				ENDIF
			ELSE
				PRINTFORMW 「むー…なんだか寝かしつけられてるみたいで…」
			ENDIF
	;浴場にいる
	ELSEIF BATHROOM()
		;お風呂でくつろぐの直後
		IF PREVCOM == 403
			PRINTFORML あなたは星に肩を寄せると彼女の頭を優しく撫でた…
				;恋慕
				IF TALENT:恋慕
					IF RAND:2 == 0
						PRINTFORML 「%MASTERNAME:87%……」
						PRINTFORMW 星は目を閉じてあなたの肩に頭を乗せてきた
					ELSE
						PRINTFORML 「こうしていると心も体もぽかぽかしてきます♪」
						PRINTFORMW 湯の中で星がもう片方の手を握ってきた
					ENDIF
				;親密5以上
				ELSEIF ABL:親密 > 5
					IF RAND:2 == 0
						PRINTFORML 「ふふ、どうしたんですか急に」
						PRINTFORMW 星は笑ってあなたの好きなようにさせている
					ELSE
						PRINTFORMW 撫でつけられるその髪は湯に濡れて光を反射し輝いている
					ENDIF
				ELSE
					PRINTFORML 照れているのか星は少し顔を赤らめてうつむいている
					PRINTFORMW 「…なんだか恥ずかしいです」
				ENDIF
		ELSE
			PRINTFORML あなたは星の頭を洗ってあげた…
				;MASTERの技巧が5以上か器用な指
				IF ABL:MASTER:技巧 >= 5 || TALENT:MASTER:51 == 1
					IF RAND:2 == 0
						PRINTFORML 「%MASTERNAME:87%は髪を洗うのが上手で気持ちいいです」
						PRINTFORMW 「切るのも上手だったら床屋さんになれるくらいですよ」
						;/髪結いって言わせた方がいいか？
					ELSE
						PRINTFORMW 「%MASTERNAME:87%に洗ってもらうと髪が綺麗になるような気がします♪」
					ENDIF
				ELSE
					PRINTFORML あなたの指が星の頭皮に触れるたび星の首がぴくぴくと動く…
					PRINTFORML 「あ、ごめんなさい。　洗いにくいですよね」
					PRINTFORMW 「でも私、人に洗ってもらうとなんだかちょっとくすぐったくなってしまいまして…」
				ENDIF
		ENDIF
	ELSE
		IF ABL:親密 > 5
			;抱き付くの直後
			IF PREVCOM == 311
				PRINTFORMW 「こうやってぎゅってされながらなでなでされるの、すごく好きなんです%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 星の少し癖のあるふわふわな髪を撫でた…
				IF RAND:4 == 0
					PRINTFORMW 「ひゃっ！？ちょ、ちょっと…あんまり耳を触らないで下さい、くすぐったいですよ…」
				ELSEIF RAND:3 == 0
					PRINTFORML 「…♪」
					PRINTFORMW 星は無言で撫でられながら、頭をこてんとあなたの肩に預けた…
				ELSEIF RAND:2 == 0
					PRINTFORMW 「ふわあ…%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「いい子いい子、って子供じゃないんですから…」
					PRINTFORMW そうは言うものの星の表情はふにゃふにゃと緩んでいる
				ENDIF
			ENDIF
		ELSEIF ABL:親密 > 2
			IF RAND:3 == 0
			;/ひじりんに嫉妬しちゃだめですよ
				PRINTFORMW 「昔はよく聖にやってもらいました…懐かしいです」
			ELSEIF RAND:2 == 0
				PRINTFORML 「いい子いい子、って子供じゃないんですから…」
				PRINTFORMW そう言って恥ずかしがってはいるものの嫌がってはいないようだ
			ELSE
				PRINTFORMW 「ちょっと恥ずかしいですけど、何だか気持ちいいです」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;310,尻を撫でる
;==================================================
@M_KOJO_MESSAGE_COM_K87_310
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_310_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_310_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:TARGET:睡眠
		IF ABL:親密 > 5
			PRINTFORML 「んん…　ふ…」
			PRINTFORMW 尻を伝うかすかな感覚に星は腰をくねらせている
		ELSE
			PRINTFORML 「………すぅ」
			PRINTFORMW 尻を触られる感触が無くなると再び星は寝息をたてはじめた
		ENDIF
	ELSEIF CFLAG:添い寝中
	;押し倒された
	ELSEIF CFLAG:うふふ == 2
		;カウンター前から抱きつく
		IF TCVAR:20 == 32
			PRINTFORML 「あっ……ふ、ぁあっ……」
			PRINTFORMW 身体越しに尻を揉みしだかれた星は目を閉じあなたにしがみつくようにしたまま喘ぎ声をあげた
		;カウンターパイズリ
		ELSEIF TCVAR:20 == 53
			;シックスナイン体勢
			IF TEQUIP:シックスナイン
				IF RAND:2 == 0
					PRINTFORML 「あんっ　もぅ…　ん…お返しです%UNICODE(0x2665)%」
					PRINTFORMW 星はあなたの怒張を挟んだまま先端に舌を這わせてきた
				ELSE
					PRINTFORMW 「やん…　お尻いじらないでください…」
				ENDIF
			ELSE
			;※非シックスナイン時は尻は揉めるが穴は不可。　体勢は深く考えずに「尻をこちらに向けていない」程度の認識で良いか
				IF RAND:2 == 0
					PRINTFORMW 「ん…っ　じっとしててくれないと…やっ…%UNICODE(0x2665)%　上手くできないじゃないですか…」
				ELSE
					PRINTFORMW 「ひゃうっ！　…もー手持無沙汰だからってお尻で遊ばないでくださいよぉ…」
				ENDIF
			ENDIF
		;カウンタークンニ強制
		ELSEIF TCVAR:20 == 70
			;パンツ～ズボンを履いている
			IF TEQUIP:0 > 1
					PRINTFORMW 布越しでも彼女の尻の柔らかさが手のひらに伝わってくる…
			;ノーパン～ノーパンスカート
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「ひ、ひゃぁ……んっ…」
					PRINTFORML 秘所を舐めあげられた星は思わずうずくまる
					PRINTFORMW そうして突き出された臀部をあなたはゆっくりと揉みほぐしていった
				ELSE
					PRINTFORML 「ふわあっ！」
					PRINTFORMW 陰唇と尻たぶへの同時攻撃に星は堪らず腰を跳ねさせた
				ENDIF
			ENDIF
		;カウンターアナル奉仕
		ELSEIF TCVAR:20 == 72
			IF TEQUIP:0 > 1
				PRINTFORML 尻穴のあたりを舌先で突くとピクリと反応するのが分かった
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「んっ、は、あぁあああぁぁ……っ」
					PRINTFORMW 肛内を行き来する湿った熱に星は荒く息をついている
				ELSE
					PRINTFORML 肛門がひくひくと収縮するのが舌に伝わってくる…
					PRINTFORMW 「ひう、あ、っつ、あ、うぁあ」
				ENDIF
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「ああ、お尻……が、あっ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 尻の割れ目に沿うように撫でられると星はぶるりと身体を震わせた
			ELSE
				PRINTFORML 「ふぅっ、ん…」
				PRINTFORMW 星は尻を突き出すようにして腰をくねらせている
			ENDIF
		ENDIF
	ELSE
		IF ABL:親密 > 5
			IF RAND:3 == 0
				PRINTFORML 「や、ん…」
				PRINTFORMW 星は甘い声をあげるのを我慢しているようだ
			ELSEIF RAND:2 == 0
				PRINTFORML 「あ……、%MASTERNAME:87%…駄目ですよお…」
				PRINTFORMW 星の許しを乞うような上目づかいはあなたの嗜虐心を刺激するだけだった…
			ELSE
				PRINTFORMW 「もう…%MASTERNAME:87%はえっちなんですから…」
			ENDIF
		ELSEIF ABL:親密 > 2
			IF RAND:3 == 0
				PRINTFORMW 「駄目ですよもう！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ひゃわ！？　な、何するんですかっ！」
			ELSE
				PRINTFORMW だが恥ずかしげに顔を赤らめる星はなかなかに可愛らしかった
			ENDIF
		ELSE
			PRINTFORMW 「あんまりおいたが過ぎると怒りますよ？」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;311,抱き付く
;==================================================
@M_KOJO_MESSAGE_COM_K87_311
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_311_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_311_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠中
	IF CFLAG:TARGET:睡眠
		IF ABL:親密 >= 8
			IF RAND:2 == 0
				PRINTFORMW 「うにゅ……%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「すぅ…すぅ………ふふっ」
			ENDIF
		ELSE
			PRINTFORMW 「んー……むぅ…」
		ENDIF
	;添い寝中
	ELSEIF CFLAG:添い寝中
		IF ABL:親密 >= 8
			IF RAND:3 == 0
				PRINTFORML 「それじゃあ私は…よいしょっと」
				PRINTFORML 星はあなたの腕をとるとその胸に抱きこんだ
				PRINTFORMW 「あったかい…　このまま寝ちゃいたいくらい…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ふふ…　ぬくぬくです%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「えへへー、%MASTERNAME:87%っ%UNICODE(0x2665)%」
			ENDIF
		ELSE
			PRINTFORML 「お布団の中で抱き合っていると…なんというか…その……」
			PRINTFORMW 星の頬はほんのりと染まっている
		ENDIF
	;押し倒された
	ELSEIF CFLAG:うふふ == 2
		;カウンターキス
		IF TCVAR:20 == 30
			PRINTFORML 「んんっ！？　……ん、ふっ…」
			PRINTFORML 唇を離そうとしたところを押さえつけられた星は一瞬びくりとしたが
			PRINTFORMW 続くあなたの口づけに安心したように身を委ねた…
		;カウンター素股
		ELSEIF TCVAR:20 == 52
			IF RAND:2 == 0
				PRINTFORML あなたが星を抱きしめることで二人の秘所はさらに強く押し付けられた
				PRINTFORMW 「あ…はっ、擦れて…%UNICODE(0x2665)%　%MASTERNAME:87%…%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 「んんぅ……くっ…あぁ…熱いぃ…%UNICODE(0x2665)%」
				PRINTFORMW 星は倒れこむようにあなたと折り重なり緩やかに腰を動かしている
			ENDIF
		;カウンターディープキス
		ELSEIF TCVAR:20 == 60
			PRINTFORML 「ちゅるっ…んく…んん、%MASTERNAME:87%…%UNICODE(0x2665)%」
			PRINTFORMW 互いを求め合うあなたと星は舌も身体も押し付けあい絡めあっている
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「もっ、と……%MASTERNAME:87%の…」
				PRINTFORMW 星は少しでも多くの部分をあなたに触れさせようと身体を擦りつけている
			ELSEIF RAND:2 == 0
				PRINTFORMW 「もっと強く、抱いてください…」
			ELSE
				PRINTFORML 「～～～っ」
				PRINTFORMW 星を抱きしめると、星も精一杯体を押し付けてきた…
			ENDIF
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		IF RAND:8 == 0
			PRINTFORMW 「ね、%MASTERNAME:87%」
			PRINTFORMW 「私、今すごく幸せです…%UNICODE(0x2665)%」
		ELSEIF RAND:7 == 0
			PRINTFORMW 「…こうしてるだけで、貴方の全てが欲しくなっちゃいます…」
			PRINTFORMW 「欲張りですね、私…」
		ELSEIF RAND:6 == 0
			PRINTFORML 「ん…もっと……ぎゅって、してください…」
			PRINTFORMW 星の可愛らしいお願いにあなたはしっかりと応えてやった
		ELSEIF RAND:5 == 0
			PRINTFORML 「ん…♪」
			PRINTFORMW 星も、抱きつくあなたの体に顔をすり寄せた…
		ELSEIF RAND:4 == 0
			PRINTFORMW 「あの、%MASTERNAME:87%…その、手が、変なとこ触って…んんっ%UNICODE(0x2665)%」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「こうしてると…だんだん、変な気分になっちゃいますね…%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「もう、甘えんぼさんですね…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 星はあなたの胸に顔をうずめ大きく息を吸い込んだ
			PRINTFORMW 「はあ…　%MASTERNAME:87%の匂い、私好きです♪」
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		IF ABL:親密 >= 8
			IF RAND:5 == 0
				PRINTFORML （この優しい人に、私の気持ちを伝えたい…でも）
				PRINTFORMW （これ以上を求めたら…この関係も崩れてしまうのでしょうか）
			ELSEIF RAND:4 == 0
				PRINTFORML （好きな人に抱きしめられて、私は幸せ者です…でも）
				PRINTFORMW （いつまでもこの立場に甘んじていては、いけませんね…）
			ELSEIF RAND:3 == 0
				PRINTFORML 「ん…もっと……ぎゅって、してください…」
				PRINTFORMW 星の可愛らしいお願いにあなたはしっかりと応えてやった
			ELSEIF RAND:2 == 0
				PRINTFORML 星はあなたの胸に顔をうずめ大きく息を吸い込んだ
				PRINTFORMW 「はあ…　%MASTERNAME:87%の匂い…何だか落ち着きます♪」
			ELSE
				PRINTFORML （%MASTERNAME:87%が何を思ってこうしてくれるのかはわかりませんが）
				PRINTFORMW （ずっと、こうしていたいです…%UNICODE(0x2665)%）
			ENDIF
		ELSEIF ABL:親密 >= 4
			IF RAND:2 == 0
				PRINTFORMW 「～～～」
				PRINTFORMW あなたが抱擁すると、星は固まってしまった…
			ELSE
				PRINTFORMW 「きゅ、急にそういう事しないでくださいよ…」
				PRINTFORMW 「あ、いえ、その…嫌ではないん、ですよ？」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「あ、あう………」
			ELSE
				PRINTFORMW あなたの抱擁に星は混乱している
			ENDIF
		ENDIF
	ELSE
		IF ABL:親密 >= 8
			IF RAND:3 == 0
				PRINTFORMW 「どうしたんですか、もう…」
				PRINTFORMW 星はクスクスと笑っている
			ELSEIF RAND:2 == 0
				PRINTFORML 星はあなたの胸に顔をうずめ大きく息を吸い込んだ
				PRINTFORMW 「はあ…　%MASTERNAME:87%の匂い…何だか落ち着きます♪」
			ELSE
				PRINTFORMW あなたの温もりに包まれ、星は幸せそうに目を細めている
			ENDIF
		ELSEIF ABL:親密 >= 4
			IF RAND:2 == 0
				PRINTFORMW 「もう…どうしたんですか急に」
			ELSE
				PRINTFORMW 「ちょ、ちょっと…%MASTERNAME:87%…」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「あ、あう………」
			ELSE
				PRINTFORMW あなたの抱擁に星は混乱している
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;312,キスする
;==================================================
@M_KOJO_MESSAGE_COM_K87_312
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_312_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_312_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;失敗
	IF TFLAG:193 == 99
		PRINTFORMW 「やあ……止めてください…っ」
	;成功
	ELSE
		;睡眠
		IF CFLAG:TARGET:睡眠
			IF ABL:親密 >= 5
				PRINTFORMW 「ん…ふふ…」
			ELSE
				PRINTFORMW 「うう……むー…」
			ENDIF
		;ファーストキス
		ELSEIF EXP:TARGET:キス経験 == 1
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW 「初めてのキスはレモンの味、なんて聞きましたけど…」
				PRINTFORMW 「レモンなんかよりもずっとずっと素敵でした%UNICODE(0x2665)%」
				PRINTFORMW 星は幸せそうにはにかんでいる…
			ELSEIF ABL:親密 >= 5
				PRINTFORMW 「ファーストキス…」
				PRINTFORMW 「%MASTERNAME:87%が相手なら悪くないですね♪」
				PRINTFORMW 星はどことなく嬉しそうだ
			ELSE
				PRINTFORMW 「い、いきなり何ですかぁ…？」
				PRINTFORMW 「誰かとキスだなんて初めてだったんですからね…　もう…」
			ENDIF
		;うふふ
		;押し倒された
		ELSEIF CFLAG:うふふ == 2
			;カウンターキス
			IF TCVAR:20 == 30
				IF RAND:2 == 0
					PRINTFORML あなたのキスのお返しに火が点いた星はさらに口づけを求めてきた
					PRINTFORML 「ん…ちゅ…っ……ちゅ……ちゅうっ」
					PRINTFORMW 星とあなたはお互いの唇の先を何度も何度も押しつけ合った
					;/ちゅっちゅ！
				ELSE
					PRINTFORML 「%MASTERNAME:87%……　もう一回ぃ…」
					PRINTFORMW もっともっとと星はあなたの口づけを求めてくる
				ENDIF
			;カウンター手淫
			ELSEIF TCVAR:20 == 50
				IF RAND:2 == 0
					PRINTFORML 星はあなたと唇を合わせたままゆっくりと体勢を変えると
					PRINTFORMW あなたの股の間に足を差し込み太腿であなたの秘所を擦りあげた
				ELSE
					PRINTFORML 「んぷ、あ……ちゅ……んっ」
					PRINTFORMW あなたの情熱的な口づけに星も負けじと手の動きを速めた
				ENDIF
			;カウンターディープキス
			ELSEIF TCVAR:20 == 60
				IF RAND:3 == 0
					PRINTFORML 「じゅる……ん…　ぷぁっ%UNICODE(0x2665)%」
					PRINTFORMW 情熱的なキスを終えて離したお互いの舌の間には唾液の橋がかかっている…
				ELSEIF RAND:2 == 0
					PRINTFORML 「ちゅ、む……ちゅるっ……ちゅる………んく」
					PRINTFORMW あなたの唾液を受け取り嚥下していく星の喉は艶めかしく動いている
				ELSE
					PRINTFORML 「…んむ……ふふ、………れろ…」
					PRINTFORMW 星は捕まえたあなたの舌を唇で挟み込むとその先端をちろちろと舐め始めた
				ENDIF
			ELSE
				IF ABL:欲望 >= 5
					IF RAND:2 == 0
						PRINTFORML 「ん……りゅ…れる……ちゅ」
						PRINTFORMW 絡めあう舌が立てる水音が周りに響いている
					ELSE
						PRINTFORML 「ちゅ、む…れろ…　ふふ…♪」
						PRINTFORMW お互いに貪りあうように舌を絡めあった
					ENDIF
				ELSEIF ABL:親密 >= 5
					IF RAND:2 == 0
						PRINTFORML 「ああ…%MASTERNAME:87%…」
						PRINTFORMW あなたを見つめるその瞳は愛欲に潤んでいる
					ELSE
						PRINTFORML 「えへへ…　%MASTERNAME:87%…」
						PRINTFORMW 星は嬉しそうにほほ笑んでいる
					ENDIF
				ELSE
					PRINTFORML 「いきなりですからびっくりしちゃいましたけど…」
					PRINTFORMW 「今はそういうこと、してるんです、よね…」
				ENDIF
			ENDIF
		;押し倒した
		ELSEIF CFLAG:うふふ == 1
			IF ABL:欲望 >= 5
				IF RAND:5 == 0
					PRINTFORML 「んふ…ちゅうっ、はぁ、んんっ…」
					PRINTFORMW 「キス…愉しいです…」
				ELSEIF RAND:4 == 0
					PRINTFORML 「…ん、ちゅ、ぷは、はぁ、はむぅっ…」
					PRINTFORMW 星の欲望の炎はキスでさらに煽られている…
				ELSEIF RAND:3 == 0
					PRINTFORML 「あむ、っふ、んん、っちゅ、ぷは、はぁ、はぷ…」
					PRINTFORMW 星は飽きもせずにあなたの唾液を吸い続けている…
				ELSEIF RAND:2 == 0
					PRINTFORML 「んふう…ん、ちゅう…」
					PRINTFORMW 星は負けじと舌を絡め、唾液を送り込んでくる…
				ELSE
					PRINTFORMW 「ん、にゅる、ちゅぷ、ぷぁ…%MASTERNAME:87%の味がします…」
				ENDIF
			ELSEIF ABL:親密 >= 5
				IF RAND:2 == 0
					PRINTFORMW 「ちゅ、ぁむ、んんっ、素敵です…」
				ELSE
					PRINTFORMW 「んっ…はぁっ、キスって愉しいんですね…%UNICODE(0x2665)%」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「ちゅ…ちゅ…ん、は…」
					PRINTFORMW （ここでキスは卑怯です…）
				ELSEIF RAND:2 == 0
					PRINTFORMW （駄目です…ここでキスされたら、抵抗できなくなっちゃいます…）
				ELSE
					PRINTFORML 「ちゅ…は、あむぅっ、んんっ…」
					PRINTFORMW （ああ…頭がしびれちゃって、何にも考えられないです…）
				ENDIF
			ENDIF
		ELSE
			IF ABL:親密 >= 5
				IF RAND:4 == 0
					PRINTFORML 「はむ、ちゅ……はぁ……」
					PRINTFORMW  あなたとの口づけに星は陶酔している…
				ELSEIF RAND:3 == 0
					PRINTFORML 「はあ…ん、もっと…」
					PRINTFORMW あなたの寵愛を求め星はさらに強く唇を押しつけてきた
				ELSEIF RAND:2 == 0
					PRINTFORML 「ん…%MASTERNAME:87%……」
					PRINTFORMW 唇を離した星は目をつむりあなたの胸に額を当てた
				ELSE
					PRINTFORMW 「んん…………ふ…」
				ENDIF
			ELSE
				PRINTFORMW 「%MASTERNAME:87%……今のは、その…」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;313,胸愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K87_313
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_313_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_313_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠
	IF CFLAG:TARGET:睡眠
		IF ABL:Ｂ感覚 <= 1
			PRINTFORMW 「ん…う」
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「は…ぁ……ぁ」
			ELSE
				PRINTFORML 「んっ……はっ…んっ…」
				PRINTFORMW 胸の先端にあたりをつけて指先でかくと詰まるような喘ぎが聞こえてきた
			ENDIF
		ENDIF
	;うふふ
	;押し倒された
	ELSEIF CFLAG:うふふ == 2
		IF ABL:Ｂ感覚 <= 1
			IF RAND:2 == 0
				PRINTFORML 「ふ、やっ、あは、ひゃっ」
				PRINTFORMW 星は胸に触れられるくすぐったさにその背をぴくぴくと震わせている
			ELSE
				PRINTFORMW 「んん…やぁ……ん」
			ENDIF
		ELSE
			;カウンター胸を揉ませる
			IF TCVAR:20 == 33
				IF RAND:3 == 0
					PRINTFORML 「あっ…　%MASTERNAME:87%……　そこ、良いですっ…！」
					PRINTFORMW 星は自らも胸を揉みしだき重なる刺激に感じ入っている
				ELSEIF RAND:2 == 0
					PRINTFORMW 「ふ、ぁあ…そこ…もっと揉んでください…」
				ELSE
					PRINTFORML 「あ、くあ……はんっ…んん…」
					PRINTFORMW 星に導かれるままに胸を揉みこんでやると甘い声が上がった
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 星の胸はあなたの手の中で柔らかく形を変えていく
				ELSEIF RAND:2 == 0
					PRINTFORMW 「あ…あ…はっ…ぁ」
				ELSE
					PRINTFORML 「あっはぁ……んっ」
					PRINTFORMW 胸の先端を指先で転がすと星の声は一段と高くなり、身の震えも大きくなった
				ENDIF
			ENDIF
		ENDIF
	;押し倒した
	ELSEIF CFLAG:うふふ == 1
		IF ABL:Ｂ感覚 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「だ、駄目です、%MASTERNAME:87%に触られたら、イっちゃいます、あ、はあぁっ…%UNICODE(0x2665)%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「んふ…♪ここ、%MASTERNAME:87%のせいですごく敏感になっちゃったんですよ…」
				PRINTFORMW 「責任とって、たくさん可愛がってくださいね…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あはぁ…そこ、すごく気持ち良くなっちゃいます、あ、はぁんっ、いい、いいですっ…」
			ENDIF
		ELSEIF ABL:Ｂ感覚 >= 3
			IF RAND:3 == 0
				PRINTFORMW 「んはっ、は、あっ、ふ、くぅんっ、はあっ、あ、ふぅうんっ、は、ふ、んんっ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「はい…たくさん触ってください…ん、んんっ、そう、そうです…あっふ、んんっ…」
			ELSE
				PRINTFORMW 「ん…そこ、触られると、良くなっちゃうんです…もっと…触ってください…」
			ENDIF
		ELSEIF PALAM:欲情 >= PALAMLV:3
			IF RAND:3 == 0
				PRINTFORMW 「ふ、あ…%MASTERNAME:87%の手、熱いです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 星はトロンとした目で胸が愛撫される様を見つめている…
			ELSE
				PRINTFORMW 「ん…ふあ、あ…はぁっ、はんっ…」
			ENDIF
		ELSEIF ABL:親密 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「はい、いいですよ…や、優しくお願いします…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「やあ…そういうこと、口に出して言わないで下さいよっ…」
			ELSE
				PRINTFORMW 「あ、やぁっ、手つき、すごくやらしいです…」
			ENDIF
		ELSE
		ENDIF
	ELSE
		IF ABL:Ｂ感覚 <= 1
			IF RAND:2 == 0
				PRINTFORML 「急に触られるとびっくりしちゃうじゃないですか」
				PRINTFORMW 怒られてしまった
			ELSE
				PRINTFORML 「ひゃっ！　なんですか、もう！」
				PRINTFORMW いきなり胸に触られ星は驚いたようだ
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「駄目…ですよぉ…」
			ELSEIF RAND:2 == 0
				PRINTFORML 「や、いきなり…そんな」
				PRINTFORMW 恥ずかしがってはいるようだが振り払われるようなことはなかった
			ELSE
				PRINTFORMW 「ちょ、ちょっと……ぁ…」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;-------------------------------------------------
;314,アナル愛撫
;-------------------------------------------------
@M_KOJO_MESSAGE_COM_K87_314
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_314_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_314_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;うふふ
	;押し倒された
	IF CFLAG:うふふ == 2
		;カウンターパイズリ
		IF TCVAR:20 == 53
				PRINTFORML 「ひゃあっ！　や、いたずらしないでくださいよぉ…」
				PRINTFORMW あなたへの奉仕に夢中になっていた星はアヌスへの不意打ちに思わずのけぞった
		;カウンターアナル奉仕
		ELSEIF TCVAR:20 == 72
			IF ABL:Ａ感覚 <= 1
				PRINTFORMW 「思わずこんなことしちゃいましたけど…　ん…舐められると不思議な感じです」
			ELSEIF ABL:Ａ感覚 <= 3
				IF RAND:2 == 0
					PRINTFORMW 「もう少し慣れれば…気持ちよくなれるかもしれません…　んっ」
				ELSE
					PRINTFORML 「あ、あの…　 %MASTERNAME:87%…」
					PRINTFORMW 「もし私がお尻で気持ちよくなるようになってしまっても…　変態、とか思わないでくださいね…？」
				ENDIF
			ELSE
				IF TEQUIP:0 > 1
					PRINTFORMW 「あ、いいっ！　布越しでもお尻の穴つつかれるの素敵ですっ…」
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 「あくっ、うう、ん……　あっ！？　そんな、吸うなんて…っ%UNICODE(0x2665)%」
						PRINTFORMW あなたの不意打ちに星は喉を震わせ嬌声をあげた
					ELSE
						PRINTFORMW 「あぁ…もっとぺろぺろって舐めてください…っ」
					ENDIF
				ENDIF
			ENDIF
		ELSE
			IF ABL:Ａ感覚 <= 1
				IF RAND:2 == 0
					PRINTFORMW 「%MASTERNAME:87%はお尻に興味があるんですか…？」
				ELSE
					PRINTFORMW 「ひゃっ！　そんな…　ところ…」
				ENDIF
			ELSEIF ABL:Ａ感覚 <= 3
				IF RAND:2 == 0
					PRINTFORMW 「んうっ……まだ、ちょっと慣れませんね…」
				ELSE
					PRINTFORMW 「嫌じゃないですけど…　その、他の所触ってくれた方が嬉しいかなって…」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「ああっ、はあぁあっ…！　お尻…があっ%UNICODE(0x2665)%」
					PRINTFORMW あなたの指に肛内をこねくり回され星は涎を垂らし喘いでいる
				ELSE
					PRINTFORML 「くうっ…　あ、もっと…っ　もっとぉ…！」
					PRINTFORMW 星の肛門はあなたの指に吸いつくように収縮している…
				ENDIF
			ENDIF
		ENDIF
	;押し倒した
	ELSEIF CFLAG:うふふ == 1
	ELSE
		IF ABL:Ａ感覚 <= 1
			IF RAND:2 == 0
				PRINTFORMW 「変なところ触らないでくださいよ…」
			ELSE
				PRINTFORMW 「うー…　そこはちょっと痛いです…」
			ENDIF
		ELSEIF ABL:Ａ感覚 <= 3
				PRINTFORMW 「お尻を触るだけならまだしも…　ぁ、穴までなんて…」
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「こんなところでお尻ほじくられて気持ちよくなっちゃうなんて…%UNICODE(0x2665)%」
				PRINTFORMW 「%MASTERNAME:87%のせいですからねえ…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あん…あ、そんな、くりくりしちゃダメです…」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;315,クリ愛撫
;※普段とうふふ == 2時は「秘所愛撫」表記
;==================================================
@M_KOJO_MESSAGE_COM_K87_315
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_315_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_315_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠
	IF CFLAG:TARGET:睡眠
	;うふふ
	;押し倒された
	ELSEIF CFLAG:うふふ == 2
		IF ABL:Ｃ感覚 <= 1
			IF RAND:5 == 0
				PRINTFORMW 「はぁ…う、あ…そんなに擦らないでくださいぃ…」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「びりって、そこ、あ、んんっ…」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「や、やさしくしてください、ね」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ひんっ！そ、そこ触るときは、もっとゆっくり、ん、ん…」
			ELSE
				PRINTFORMW 「あんまり強くこすっちゃダメです…」
			ENDIF
		;カウンター後ろから抱きつく
		ELSEIF TCVAR:20 == 31
			PRINTFORML 「はあう！　あ…ん、ン…ああぁ…%UNICODE(0x2665)%」
			PRINTFORML 後ろ手で責めあげると背中の方から星の荒い息遣いが聞こえてきた
			PRINTFORMW 顔は良く見えないが甘い表情をしているのだろう
		;カウンター股間をまさぐる
		ELSEIF TCVAR:20 == 34
		;※TEQUIP:PLAYER:0 > 3が条件　つまりスパッツかズボン必須
			PRINTFORML 「あんっ、　うふふ…お返し、ということですか？」
			PRINTFORMW 「それなら…負けませんよ♪」
		;カウンタークンニ強制
		ELSEIF TCVAR:20 == 70
			IF RAND:3 == 0
				PRINTFORML 「はあぁっ%UNICODE(0x2665)%　きもちいいで、す…っ」
				PRINTFORMW 星は腰を浮かせてのけぞっている
			ELSEIF RAND:2 == 0
				PRINTFORML 「あぁ…っ　もっと…ぉ%UNICODE(0x2665)%」
				PRINTFORMW 押しつけられる股間からは発情した女の香りが漂ってくる
			ELSE
				PRINTFORML さらにあなたは舌を星の陰核へと伸ばした
				PRINTFORML 「ひ、あぁっ、は……あくぅっ！」
				PRINTFORMW 舌と指先で同時に秘所を責められ星は嬌声に喉を震わせた
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「%MASTERNAME:87%にされるのっ、すごく、気持ちいい…っ！」
			ELSEIF RAND:2 == 0
				PRINTFORML 「あく、ん…　お豆、そんなにいじられたら…ぁっ」
				PRINTFORMW 陰核をこねくり回され星の声も蕩け始めている
			ELSE
				PRINTFORML 「お豆、こりこりされて……　ひうっ…%UNICODE(0x2665)%」
				PRINTFORMW 星はあなたに触れられるまま身悶えている
			ENDIF
		ENDIF
	;押し倒した
	ELSEIF CFLAG:うふふ == 1
	ELSE
		IF ABL:Ｃ感覚 <= 1
			PRINTFORML 「ひゃ！？　…駄目ですよ%MASTERNAME:87%！」
			PRINTFORMW 「そこはみだりに触るような所じゃないんですから…」
		ELSE
			PRINTFORML 「ぁ…はぁ…っ」
			PRINTFORMW 「こんな…所で…んっ%UNICODE(0x2665)%」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;316,指挿入れ
;==================================================
@M_KOJO_MESSAGE_COM_K87_316
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_316_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_316_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TALENT:処女
		IF TALENT:恋慕
			PRINTFORML 「急に脚を閉じてごめんなさい…」
			PRINTFORMW 「でも、その…　初めては\@ TALENT:MASTER:2 == 2 ? %MASTERNAME:87%のもの # もっと違う形 \@で…貰って欲しいんです…」
		ELSE
			PRINTFORMW 「こ、怖いのであまり奥まで挿入れないでください…」
		ENDIF
	ELSEIF ABL:Ｖ感覚 < 1
		PRINTFORMW 「んう…　まだちょっと慣れません…」
	ELSE
		;カウンタークンニ強制
		IF TCVAR:20 == 70
			;潤滑4以上
			IF PALAM:潤滑 >= PALAMLV:4
				IF RAND:3 == 0
					PRINTFORML 「あう、は、奥っ……ああぁあっ%UNICODE(0x2665)%！！」
					PRINTFORMW 軽く達してしまったのか星の膣穴から小さな飛沫が散った
				ELSEIF RAND:2 == 0
					PRINTFORML 「んっ%UNICODE(0x2665)%　はああぁっ…　あんっ」
					PRINTFORMW 溢れだす蜜がぽたぽたとあなたの顔に落ちてくる
				ELSE
					PRINTFORMW 「くぁあ……%UNICODE(0x2665)%　おつゆ、止まらないぃ…っ」
				ENDIF
			ELSE
				PRINTFORML 「あっ、ん…私のあそこが…　%MASTERNAME:87%の指…食べちゃってますぅ…」
				PRINTFORMW あなたの目の前で星の膣穴がひくひく蠢いている…
			ENDIF
		ELSE
			;潤滑4以上
			IF PALAM:潤滑 >= PALAMLV:4
				IF RAND:3 == 0
					PRINTFORML 「ひゃああんっ%UNICODE(0x2665)%　指、引っかけちゃだめですっ%UNICODE(0x2665)%」
					PRINTFORMW 膣内の少し膨らんだところを指先で掻いてやるとひと際甘い声が響いた
				ELSEIF RAND:2 == 0
					PRINTFORML 「あう、あっ、あっ……ああっ%UNICODE(0x2665)%」
					PRINTFORMW あなたが指を動かすたび愛液がとぷとぷ掻き出されてくる
				ELSE
					PRINTFORMW 星の膣から指を引き抜くとねっとりとした露が絡みついて光っていた
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「あぁっ…　は、あ…」
					PRINTFORMW 星が喘ぐたびきゅうきゅうとあなたの指が締めつけられる
				ELSE
					PRINTFORMW 「いい、ですよ…　もっと、強くしても…ぉ」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;350,押し倒す
;==================================================
@M_KOJO_MESSAGE_COM_K87_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_350_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
		;恋人
		IF TALENT:恋人
			;初めて
			IF FIRSTTIME(SELECTCOM)
				IF RAND:2 == 0
					PRINTFORML 「%MASTERNAME:87%……」
					PRINTFORMW 「優しく…してくださいね……」
				ELSE
					PRINTFORML 「…ぁ…%MASTERNAME:87%…%UNICODE(0x2665)%」
					PRINTFORMW 星は極度の緊張と不安と期待が綯い交ぜになった真っ赤な顔で行為を待っている…
				ENDIF
				;MASTERが先に押し倒して初ウフフを経験フラグ
				SIF CFLAG:1200 == 0
					CFLAG:1200 = 1
			;うふふ == 2 から
			;/ここから奇跡の逆転劇だ！
			ELSEIF CFLAG:1501 == 10
				IF TALENT:恋人
					PRINTFORML 「ふふっ、その気になってくれました？」
					PRINTFORMW 「いいですよ……いっぱい愛しあいましょうね%UNICODE(0x2665)%」
				ELSEIF TALENT:恋慕
					PRINTFORML 「あ…%UNICODE(0x2665)%」
					PRINTFORMW 「お、お願いします…」
				ELSE
					PRINTFORML 「ふふっ、その気になってくれました？」
					PRINTFORMW 「いいですよ……いっぱい愉しいこと、しましょう…♪」
				ENDIF
			ELSE
				;星私室
				IF CFLAG:現在位置 == 115
					;6時～22時
					IF TIME:0 >= 360 && TIME:0 <= 1320
						PRINTFORML 「やんっ、がっつかないでください%UNICODE(0x2665)%」
						PRINTFORMW 「今お布団敷きますから……」
					ELSE
						PRINTFORML 「いいですよ%UNICODE(0x2665)%　来てください…」
						PRINTFORMW 星は布団の上に仰向けになると両腕を伸ばしてあなたを迎え入れた
					ENDIF
				;外(山門、境内、裏庭、墓地)
				ELSEIF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121)
					;露出癖4以上
					IF ABL:露出癖 >= 4
						PRINTFORML 「誰か知らない人に見られたらと思うと……やぁ…っ」
						PRINTFORMW 星は恥かしがるような素振りを見せるがその声にはどこか期待も混じっているようにも聞こえる
					ELSE
						PRINTFORML 「こんなところで…誰かに見つかっちゃったらどうするんですか……！？」
						PRINTFORMW 野外での行為に星はしきりに周りを気にしている
					ENDIF
				ELSE
					IF RAND:5 == 0
						PRINTFORMW 「もうっ、これじゃどっちが猛獣だか分かりませんね…%UNICODE(0x2665)%」
					ELSEIF RAND:4 == 0
						PRINTFORML 「ふふっ、いいですよ%UNICODE(0x2665)%ちょうど私もお腹が空いてきたところですので」
						PRINTFORMW 「…いーっぱい、%MASTERNAME:87%を食べさせてくださいね…%UNICODE(0x2665)%」
					ELSEIF RAND:3 == 0
						PRINTFORML 「ん…いいですよ、来て、下さい…」
						PRINTFORMW 「一緒に、良いコトたくさんしましょうね%UNICODE(0x2665)%」
					ELSEIF RAND:2 == 0
						PRINTFORML 「ふふ、したくなっちゃったんですか？　いいですよ…%UNICODE(0x2665)%」
						PRINTFORMW 星は頬を染めるとあなたに身を任せるように体の力を抜いた
					ELSE
						PRINTFORML 「もう、しょうがないひとですね……%UNICODE(0x2665)%」
						PRINTFORMW 呆れたような物言いだがその目は熱く潤んでいる…
					ENDIF
				ENDIF
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			;初めて
			IF FIRSTTIME(SELECTCOM)
				IF RAND:2 == 0
					PRINTFORML 「%MASTERNAME:87%……」
					PRINTFORMW 「優しく…してくださいね……」
				ELSE
					PRINTFORML 「…ぁ…%MASTERNAME:87%…%UNICODE(0x2665)%」
					PRINTFORMW 星は極度の緊張と不安と期待が綯い交ぜになった真っ赤な顔で行為を待っている…
				ENDIF
				;MASTERが先に押し倒して初ウフフを経験フラグ
				SIF CFLAG:1200 == 0
					CFLAG:1200 = 1
			;うふふ == 2 から
			;/ここから奇跡の逆転劇だ！
			ELSEIF CFLAG:1501 == 10
				PRINTFORML 「っ…！」
				PRINTFORMW 押し倒すと、積極的に攻めていた星も一転余裕をなくし大人しくなった…
				PRINTFORMW 「ぁ…その…よろしくお願いします…」
			ELSE
				;星私室
				IF CFLAG:現在位置 == 115
					;6時～22時
					IF TIME:0 >= 360 && TIME:0 <= 1320
						PRINTFORMW 「あ…%MASTERNAME:87%、お布団…」
					ELSE
						PRINTFORML 「…っ」
						PRINTFORMW 押し倒された星は真っ赤な顔で目をきゅっと瞑り、あなたの行為を待っている…
					ENDIF
				;外(山門、境内、裏庭、墓地)
				ELSEIF GROUPMATCH(CFLAG:現在位置, 101, 102, 106, 121)
					;露出癖4以上
					IF ABL:露出癖 >= 4
						PRINTFORML 「こんなところで…誰かに見つかっちゃったらどうするんですか……？」
						PRINTFORMW 星は恥かしがるような素振りを見せるがその声にはどこか期待も混じっているようにも聞こえる
					ELSE
						PRINTFORML 「こんなところで…誰かに見つかっちゃったらどうするんですか……？」
						PRINTFORMW 野外での行為に星はしきりに周りを気にしている
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORML 「あ、そ、その…よろしく、お願いします…」
						PRINTFORMW 星を抱き寄せると、とても小さな声で囁いた…
					ELSEIF RAND:2 == 0
						PRINTFORML 「せ、精一杯やらせていただきますっ…」
						PRINTFORMW とても緊張しているようだ…
					ELSE
						PRINTFORML 「あ…%MASTERNAME:87%がしてくれるのですか…？」
						PRINTFORMW 「なんだか、ちょっと申し訳ないです…そ、そのっ、私も私なりに、がんばりますっ…！」
					ENDIF
				ENDIF
			ENDIF
		;恋人、恋慕なし
		ELSE
			;初めて
			IF FIRSTTIME(SELECTCOM)
				IF RAND:2 == 0
					PRINTFORML 「そ、その……　よろしくお願いします……」
					PRINTFORMW しかしやはり緊張しているようだ…
				ELSE
					PRINTFORMW 「！？だ、駄目ですよ、こんな、ことっ…」
				ENDIF
				;MASTERが先に押し倒して初ウフフを経験フラグ
				SIF CFLAG:1200 == 0
					CFLAG:1200 = 1
			ELSE
				IF RAND:6 == 0
					PRINTFORMW 「あっ……」
				ELSEIF RAND:5 == 0
					PRINTFORMW 「だ、駄目ですよぉ…！」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「また、こんな、ところで…誰か来たらどうするんですかぁ…っ」
				ELSEIF RAND:3 == 0
					PRINTFORMW （うう…私としたことが、こんなことに流されてしまうなんて…）
				ELSEIF RAND:2 == 0
					PRINTFORMW （ちょっとだけ…ちょっとだけです…）
				ELSE
					PRINTFORMW （聖、毘沙門天様…すみません…）
				ENDIF
				PRINTFORML あなたの行動に星は驚いたようだったが
				PRINTFORMW すぐに力を抜いてあなたに身を任せた
			ENDIF
		ENDIF
	;リセット
	CFLAG:1501 = 0
	;絶頂カウントリセット
	CFLAG:1502 = 0
	CFLAG:1503 = 0
	CFLAG:1504 = 0
	CFLAG:1505 = 0
ENDIF
RETURN 1
;==================================================
;351,連れ出す
;==================================================
@M_KOJO_MESSAGE_COM_K87_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K87_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_351_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;欲情3以上で発情しちゃった星ちゃん
	IF PALAM:欲情 >= PALAMLV:3
		IF RAND:3 == 0
			PRINTFORMW 「あ…%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふふ…♪」
		ELSE
			PRINTFORMW 「ん…♪」
		ENDIF
		PRINTFORML 上気した星の手を引くと、素直にあなたの後を付いてきた…
	;恋人
	ELSEIF TALENT:恋人
		IF RAND:3 == 0
			PRINTFORMW 「ふふ…いいですよ」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ん、何でしょう」
		ELSE
			PRINTFORMW 「何か御用ですか？」
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORMW 「な、なにかご用でしょうか…？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「一緒に来てほしい、ですか？　え、ええ、いいですよ」
		ELSE
			PRINTFORMW 「な、何でしょう」
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「なにかご用ですか？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「一緒に来てほしい、ですか？　いいですよ」
		ELSE
			PRINTFORMW 「ん、何でしょう」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;352,告白する
;==================================================
@M_KOJO_MESSAGE_COM_K87_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_352_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;成功
	IF TFLAG:193 == 1
		IF TALENT:恋慕
			;うふふ中
			IF CFLAG:うふふ
				PRINTFORMW 「もう……こんな時に愛の告白なんて…」
				PRINTFORMW 「でも…すごく嬉しいです」
				PRINTFORML 「なんだか思い描いていたのとは順序が違っちゃいましたけど…」
				PRINTFORMW 「これで私は%MASTERNAME:87%のもので…%MASTERNAME:87%は私のものです」
				PRINTFORML 「だから…私の身体…もっと好きにしていいんですよ」
				PRINTFORMW そう言って星はあなたの股間に手を伸ばした
				PRINTFORMW 「ああ…すごく熱い……%UNICODE(0x2665)%　私に、欲情してくれているんですね…」
				PRINTFORML 「恋人どうしでしたいこと…沢山ありますけれど…」
				PRINTFORMW 「今はこのまま…二人で肉欲に溺れてしまいましょう？」
			;他に恋慕持ちがいる
			ELSEIF TALENT:(NO:1):恋慕 || TALENT:(NO:2):恋慕 || TALENT:(NO:3):恋慕 || TALENT:(NO:5):恋慕 || TALENT:(NO:6):恋慕 || TALENT:(NO:7):恋慕 || TALENT:(NO:8):恋慕 || TALENT:(NO:9):恋慕
				PRINTFORMW 「駄目…ですよ」
				PRINTFORML 「だって…あなたが…大好きなひとが…他にもいるんですから…」
				PRINTFORMW 「だから私…諦めようって…　ときどき、一緒に遊べれば十分だって…思おうと、したのに…」
				PRINTFORML 「なのに…なんで、私を選んじゃったんですか」
				PRINTFORML 「どうして…私、嬉しいって、思っちゃったんですか」
				PRINTFORMW 「もう、どうしたらいいのか分からなくなっちゃったじゃないですかぁ…」
				PRINTFORML 涙を流す星をあなたは静かに抱きしめ、
				PRINTFORMW 自分の想いをひとつひとつゆっくりと星に伝えていった
				PRINTFORML
				PRINTFORMW 「本当に…私で…いいんですか？」
				PRINTFORML
				PRINTFORMW 「わかりました…　もう…我慢なんてしません」
				PRINTFORML 「私も、あなたが大好きだって…皆に、言います」
				PRINTFORML 「皆に私の気持ちを認めてもらえるように頑張ります」
				PRINTFORML 「だから…」
				PRINTFORML 「%MASTERNAME:87%、一緒に…頑張ってくださいね」
				PRINTFORMW 迷いの吹っ切れた星は晴れやかな表情をしていた
			ELSE
				PRINTFORMW 「あ………」
				PRINTFORML 「夢じゃない…ですよね…？」
				PRINTFORML 「本当に、%MASTERNAME:87%が…私の、事を…？」
				PRINTFORML 「嬉しい、です…%MASTERNAME:87%…わた、しも…っ、%MASTERNAME:87%が…だい、すきです…」
				PRINTFORMW 星は瞳を潤ませながらあなたの告白を受け入れた
			ENDIF
		ELSE
			PRINTFORML あなたの突然の告白に星はしばらく呆けていたが
			PRINTFORMW 我に返ると少し考えてから言葉を紡ぎ出した
			PRINTFORMW 「%MASTERNAME:87%のことは好きです。　でも…」
			PRINTFORMW 「私…今まで誰かと恋仲になったことが無いんです」
			PRINTFORML 「毘沙門天様の代理としての使命もあります」
			PRINTFORMW 「だからもしもの時に、私はあなたを傷つけてしまうかもしれない」
			PRINTFORMW 「それでも…私を愛してくれると言うのなら…」
			PRINTFORML 星は頬を赤く染めてあなたを見つめながら言葉を繋いだ
			PRINTFORML 「私もあなたのことがもっともっと好きになれるように、頑張ります」
			PRINTFORMW 「まずは…不束者ですがよろしくお願いします、ですね」

		ENDIF
			PRINTFORML
			PRINTFORMW 星が%CALLNAME:MASTER%の【恋人】になりました
	;失敗
	ELSE
		PRINTFORML 「？」
		PRINTFORML 星は不思議そうにこちらを見ている
		PRINTFORMW 今はうまく誤魔化すしかないだろう
	ENDIF
ENDIF
RETURN 1
;==================================================
;353,イタズラする
;==================================================
@M_KOJO_MESSAGE_COM_K87_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_353_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML あなたは眠っている星の顔を覗き込んだ
	PRINTFORML 「すぅ……んー…」
	PRINTFORMW 今のところ起きる気配はないようだ
ENDIF
RETURN 1
;==================================================
;354,添い寝する（相手は起きて布団に招く感じ）
;==================================================
@M_KOJO_MESSAGE_COM_K87_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_354_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:衰弱
		PRINTFORML 「んー…」
		PRINTFORMW これは添い寝してもいいということなのだろうか
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「ふあい……いいですよ…」
			PRINTFORMW 開ききっていない目を擦りながら星は布団を少しめくりあげた
		ELSEIF RAND:2 == 0
			PRINTFORML 「ん……ふふ%UNICODE(0x2665)%」
			PRINTFORMW 星は布団に入ったあなたの腕にすり寄ると幸せそうに目を細めた
		ELSE
			PRINTFORML 「%MASTERNAME:87%…一緒に、寝たいんですか？」
			PRINTFORML 「それでは…こちらにどうぞ」
			PRINTFORMW 星が少し端に寄ってくれたのであなたもそれに合わせて布団の中央に移動した
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;360,身を任せる
;/恋慕とか考えずに書いてしまった。発情してるんだしいいよね
;==================================================
@M_KOJO_MESSAGE_COM_K87_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_360_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;カウンターキス
	IF TCVAR:20 == 30
		IF RAND:2 == 0
			PRINTFORML 「あむ…ちゅ…ん…ちゅ」
			PRINTFORMW 身を任せるあなたの瞼に頬に唇にとキスの雨が降りかかった
		ELSE
			PRINTFORML 「んー…%MASTERNAME:87%が何もしてくれないならこのままいっぱいキスしちゃいますよ？」
			PRINTFORMW 「それでもいいなら…じっとしててくださいね…　ん…ちゅ……%UNICODE(0x2665)%」
		ENDIF
	;カウンター胸を揉ませる
	ELSEIF TCVAR:20 == 33
		IF RAND:3 == 0
			PRINTFORML 「は…♪%MASTERNAME:87%の手、あっつい…%UNICODE(0x2665)%」
			PRINTFORMW 星はあなたの手を自身の柔肉に食い込ませている…
		ELSEIF RAND:2 == 0
			PRINTFORML 「はぁっ…はぁっ…あなたの、手でっ…乳首が、つぶれてぇっ…%UNICODE(0x2665)%」
			PRINTFORMW 星はあなたの手を持って自ら乳房を撫でまわし、自分を慰めている…
		ELSE
			PRINTFORML 「ん…揉んで、くれないんですか？」
			PRINTFORMW 星は片手をあなたの手に重ねると回すように動かして自分の胸を刺激した
		ENDIF
	;カウンター股間をまさぐる
	ELSEIF TCVAR:20 == 34
		;※TEQUIP:PLAYER:0 > 3が条件
		PRINTFORML 動かないあなたの股はさらに激しく擦りあげられる
		PRINTFORMW 「布越しに%MASTERNAME:87%の熱が伝わってきます…」
	;カウンター素股
	ELSEIF TCVAR:20 == 52
		IF RAND:3 == 0
			PRINTFORML 「ひあっ♪これ、敏感なとこ、%MASTERNAME:87%の熱いので擦るのいいっ…%UNICODE(0x2665)%」
			PRINTFORMW 「%MASTERNAME:87%のおちんちんで、ふやっ…%UNICODE(0x2665)%シてるみたい…ああっ%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ね、えっ…私のぬるぬるのあそこ、気持ちいいですか…」
			PRINTFORMW 「私は、気持ちいいけどっ…あなたにしてもらえば、ふぅんっ…もっと気持ちいいんですよ…？」
		ELSE
			PRINTFORML 「気持ちいいですか…%MASTERNAME:87%」
			PRINTFORMW 「それじゃあ…もっと激しくしてあげますね……んっ%UNICODE(0x2665)%」
		ENDIF
	;カウンターパイズリ
	ELSEIF TCVAR:20 == 53
		IF RAND:3 == 0
			PRINTFORML 「ふふ…私に任せてくれるんですね…それじゃあ、この元気な子をおっぱいで犯してあげます…%UNICODE(0x2665)%」
			PRINTFORMW 「乳首でいっぱい擦ってあげますから、私のおっぱいにやらしい匂いが染みついちゃいますね…」
		ELSEIF RAND:2 == 0
			PRINTFORML 「ふにふに…　ふふ、先っぽぴくぴくしてます…%UNICODE(0x2665)%　気持ちいいんですね%UNICODE(0x2665)%」
			PRINTFORMW 柔らかな胸を使った星の奉仕にあなたの肉棒はなすがままだ…
		ELSE
			PRINTFORML 「んっ、私の胸…気持ちいいですか？」
			PRINTFORMW 「このまま…出しちゃってもいいんですよ」
		ENDIF
	;カウンターディープキス
	ELSEIF TCVAR:20 == 60
		IF RAND:3 == 0
			PRINTFORML 「ん…ん…ぷぁ…はぁ、はぁぷ…ん…んちゅ…じゅうぅぅ…」
			PRINTFORMW こちらが身を任せているのをいいことに、星はあなたの口を犯し尽くした…
		ELSEIF RAND:2 == 0
			PRINTFORML 「はあ…じゅる…ちゅ、れろ…」
			PRINTFORMW 一通り舌を絡め合った星は今度はあなたの歯をなぞるように舌を動かした
		ELSE
			PRINTFORML 「ん…はぷ……ちゅる…」
			PRINTFORMW 「もっと…%MASTERNAME:87%の舌…感じて…ん、りゅ…」
		ENDIF
	;カウンタークンニ強制
	ELSEIF TCVAR:20 == 70
		IF RAND:3 == 0
			PRINTFORML 「ね…舌…舌出してください…はああっ%UNICODE(0x2665)%そ、そうですぅぅ…」
			PRINTFORMW 「%MASTERNAME:87%の、顔っ…こしゅれ、ひぅっ…お豆が、ぞりぞりってぇ…%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORML 「はあっ、ああっ、もっと、奥まで、舐めてくださいっ…」
			PRINTFORMW 「ああ…私のっ、%MASTERNAME:87%、に、飲まれちゃってます…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「%MASTERNAME:87%がしてくれないなら…自分でしちゃいます……んっ」
			PRINTFORMW 星は腰を動かしてあなたの顔に秘所を擦りつけている
		ENDIF
	;カウンターアナル奉仕
	ELSEIF TCVAR:20 == 72
		IF ABL:Ａ感覚 <= 1
			PRINTFORML 「え、えと…　お尻は…嫌、でしたか…？」
			PRINTFORMW 星は不安そうにあなたを見ている…
		ELSEIF ABL:Ａ感覚 <= 3
			PRINTFORML 「えっと…　その…」
			PRINTFORMW 星はあなたに跨ったまま困っている…
		ELSE
			PRINTFORML 「%MASTERNAME:87%…　お尻…いじってください…」
			PRINTFORMW 星は腰を揺らして尻穴を押しつけてきている
		ENDIF
	ELSE
		;MASTERの気力が0
		IF BASE:MASTER:気力 <= 0
			PRINTFORML 「疲れちゃいましたか？」
			PRINTFORMW 「分かりました。　後は私に任せて…たっぷり気持ちよくなってください%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「あ…疲れちゃいました…？」
			PRINTFORMW 「気持ちよくて動けない…だと嬉しいんですけど」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;402,就寝（添い寝時）
;==================================================
@M_KOJO_MESSAGE_COM_K87_402
;就寝にTRAIN_MESSAGEは無い
;※抱きまくらで眠る描写がかぶるのを防ぐため
SIF PREVCOM != 311
CALL M_KOJO_MESSAGE_COM_K87_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_402_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF CFLAG:睡眠
		PRINTFORMW 星の寝顔を見ながらゆっくりと瞼を閉じた…
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「もう休まれますか？　それじゃあ私も…」
			PRINTFORMW 「おやすみなさい、%MASTERNAME:87%…」
		ELSEIF RAND:2 == 0
			PRINTFORMW あなたは瞼を閉じ眠りについた
			PRINTFORMW
			PRINTFORMW
			PRINTFORMW
			PRINTFORML 「%MASTERNAME:87%…もう眠ってしまいましたか…？」
			PRINTFORMW ………
			PRINTFORMW 「そうですか……　なら、ちょっとだけ…　いいです、よね？」
		ELSE
			PRINTFORML そろそろ眠ろうと身体を眠気に任せることにした
			PRINTFORMW 眠りに落ちる意識の中で星がおやすみなさいと言うのが聞こえた気がした…
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;403,休憩（風呂場だと湯船に浸かる）
;==================================================
@M_KOJO_MESSAGE_COM_K87_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_403_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;浴場にいる
	IF BATHROOM()
		;お風呂でくつろぐの直後(つまり連続)
		IF PREVCOM == 403
			IF RAND:4 == 0
				PRINTFORML 星は手拭いを小さくたたむと頭の上にのせた
				PRINTFORMW 「癖でやってしまうんですけど、これをやるとやっぱりのぼせにくくなったりするんですかね？」
			ELSEIF RAND:3 == 0
				PRINTFORML 「%MASTERNAME:87%は手でやる水鉄砲ってできます？」
				PRINTFORMW 「私は指を組む方ができないんです、どうも水がこぼれてしまって」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「この寺のお風呂は広くていいですよね、のんびり足も伸ばせますよ」
			;/結構な人数で入れるんだから広いよね？
			ELSE
				PRINTFORML 「ふー…　っぱぁ…」
				PRINTFORMW 星は両手にすくった湯で軽く顔を洗っている
			ENDIF
		ELSE
			PRINTFORML 「それでは私も失礼して…」
			PRINTFORMW あなたに続いて星も湯船に浸かった
		ENDIF
	ELSE
		;星の体力800以下
		IF BASE:TARGET:体力 <= 800
			PRINTFORML 「んん…私も疲れているみたいですね」
			PRINTFORMW 「私も少し休憩させてもらいます。　隣、いいですか？」
		ELSE
			PRINTFORMW 「お疲れですか？　無理はしないでくださいね」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;404,追い払う
;==================================================
@M_KOJO_MESSAGE_COM_K87_404
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_404_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_404_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;405,デート
;==================================================
@M_KOJO_MESSAGE_COM_K87_405
;デートにTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K87_405_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_405_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;デート（星ちゃんと二人でお出かけ）
	IF CFLAG:TARGET:同行
		IF TALENT:恋人
			;恋人になってからは初めて
			IF CFLAG:1405 < 3
				PRINTFORML 「ふふふ、楽しみです」
				;恋慕時にデートしたことある
				IF CFLAG:1405 == 2
					PRINTFORMW 「以前の時は緊張してて、あんまり風景を楽しめてなかったんですよ」
				ELSE
					PRINTFORMW 「やっぱりこれって…逢引、ですよね♪私、初めてで」
					;/非恋慕時のデートは星ちゃん的にはデートだと認識されてない（笑）
					SIF CFLAG:1405 == 1
						PRINTFORMW 「…え、以前一緒に行ったことがある？そ、そうでしたっけ…？」
				ENDIF
				;恋人になってから初デート済みフラグ
				CFLAG:1405 = 3
			ELSE
				IF RAND:4 == 0
					PRINTFORMW 「はいっ♪行きましょう%MASTERNAME:87%」
					PRINTFORMW 「今回も期待してますよ%UNICODE(0x2665)%」
				ELSEIF RAND:3 == 0
					PRINTFORML 「ふふ、楽しみです…」
					PRINTFORM 「ね、
					;※ランダムで分けてるだけなので、要望通りのデートでも特に何も変わらない
					IF RAND:4 == 0
						PRINTFORMW 甘味屋さん寄っていきましょうよ♪」
					ELSEIF RAND:3 == 0
						PRINTFORMW 香霖堂さんを冷やかしましょう♪」
					ELSEIF RAND:2 == 0
						PRINTFORMW 商家町に行きたいです♪」
					ELSE
						PRINTFORMW 魔理沙さんのところとかどうです？」
					ENDIF
				ELSEIF RAND:2 == 0
					PRINTFORMW 「今度はどこに連れて行ってくれるんですか♪」
				ELSE
					PRINTFORML 「さ、いきましょう%MASTERNAME:87%！」
					PRINTFORMW 星も今日のデートを楽しみにしてくれているようだ
				ENDIF
			ENDIF
		ELSEIF TALENT:恋慕
		;/デートなどのイベントは恋人状態より恋慕状態のがドキドキ度が高い説
			;恋慕ついてからは初めて
			IF CFLAG:1405 < 2
				PRINTFORMW 「%MASTERNAME:87%と外にお出掛けですか。なんだか逢引みたい―」
				PRINTFORMW 「い、いえっ！その、い、行きましょうか！」
				;恋慕取得後の初デート済みフラグ
				CFLAG:1405 = 2
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「ふ、二人きりでお出かけですか…？」
					PRINTFORMW 「いえっ！全然嫌じゃないです！さあ行きましょう%MASTERNAME:87%！」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「私でよければぜひご一緒させてください♪」
				ELSE
					PRINTFORMW 「！は、はい！行きましょう%MASTERNAME:87%！」
				ENDIF
			ENDIF
		ELSE
		;/星ちゃんはこれがデートであることなどぜーんぜん気が付いてません
			;初めて
			IF CFLAG:1405 < 1
				PRINTFORMW 「一緒にお出掛けですか。　いいですよ、お付き合いします」
				;初デート…もとい初お出かけ済みフラグ
				CFLAG:1405 = 1
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「あ、またどこかに連れて行ってくれるんですか？」
				ELSE
					PRINTFORML 「さ、いきましょう%MASTERNAME:87%！」
					PRINTFORMW 星も今日のお出かけを楽しみにしてくれているようだ
				ENDIF
			ENDIF
		ENDIF
	;出掛ける（一人で）
	ELSE
		PRINTFORML
		PRINTFORML 外出するあなたを星が門前で見送ってくれた
		PRINTFORML
		;16時以降
		IF TIME:0 >= 960
			PRINTFORMW 「今から出掛けるんですか？　あまり遅くならない様にしてくださいね」
		ELSE
			;恋人
			IF TALENT:恋人
				PRINTFORML 「一人でですか？なんか怪しいですねぇ」
				IF RAND:3 == 0
					PRINTFORMW 「別の娘と逢引なんてしたら承知しませんからねー」
					;/やだなぁそんな事するわけ無いじゃないですか
				ELSEIF RAND:2 == 0
					PRINTFORMW 「何か秘密の買い物とかですか？」
				ELSE
					PRINTFORMW 「今度は私も連れてってくださいねー」
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「あ、その…行ってらっしゃい…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「お気をつけて…」
					PRINTFORMW 「あ、あのっ…今度、私も一緒にっ…」
				ELSE
					PRINTFORMW 星は少し寂しそうに送り出してくれた…
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「あら、出かけるんですか。お気をつけて」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「お出掛けですか？　いってらっしゃい」
				ELSE
					PRINTFORMW 「気をつけていってくださいね」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;410,掃除
;==================================================
@M_KOJO_MESSAGE_COM_K87_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_410_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;睡眠
	IF CFLAG:TARGET:睡眠
		PRINTFORMW 星を起こさないように掃除をするのは少々骨が折れた
	ELSE
		SELECTCASE TFLAG:194
		CASE 0
			IF RAND:2 == 0
				PRINTFORML 「綺麗にしたつもりでも意外と汚れって残ってしまうものなんですよね」
				PRINTFORMW すっかり汚れてしまった雑巾を絞りながら星が言った
			ELSE
				PRINTFORML 「あと一息ですかね。　一度水を取り替えてきましょう」
				PRINTFORMW 星は桶を持ちあげると水を汲みに向かった
			ENDIF
		CASE 1
			IF RAND:2 == 0
				PRINTFORML 「はい、いきますよー」
				PRINTFORMW あなたはちりとりをしっかりと握り星の掃くゴミを受け取った
			ELSE
				PRINTFORMW 「わー…　結構な埃の山が…」
			ENDIF
		CASE 2
			PRINTFORML 「なかなか片付きませんねー」
			PRINTFORMW 確かにゴミはまだまだあるが確実に綺麗になってきている…はずだ
		CASE 3
			IF RAND:2 == 0
				PRINTFORML 「ほんとに多い……もう、いっそのこと…」
				PRINTFORMW 何か力を溜め始めた星を見て あなたは慌てて止めに入った
			ELSE
				PRINTFORMW 「とりあえず大きな物から片づけていきましょうか…」
			ENDIF
		ENDSELECT
	ENDIF
ENDIF
RETURN 1
;==================================================
;411,戦闘訓練
;==================================================
@M_KOJO_MESSAGE_COM_K87_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_411_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;MASTERの戦闘能力3以上
	IF ABL:MASTER:戦闘能力 >= 3
		IF RAND:3 == 0
			PRINTFORML 「今のは…あぶなかったですね」
			PRINTFORML 軽い模擬戦を行ってみたがあと一歩のところで星の弾幕を受けてしまった
			PRINTFORMW 「素晴らしい動きでした。　これなら私より強くなれるかもしれません」
		ELSEIF RAND:2 == 0
			PRINTFORML 「そうだ%MASTERNAME:87%、新しくスペルカードを作ってみるのはどうでしょう」
			PRINTFORML 「自分の知識と技術を詰め込んで美しい弾幕を創るのは弾幕ごっこの醍醐味ですから」
			PRINTFORMW 「%MASTERNAME:87%ならきっと面白いものが作れるはずですよ」
		ELSE
			PRINTFORML 「ふう…いい汗をかきました」
			PRINTFORMW 「一度終わりにしましょう。　タオルを持ってきますね」
		ENDIF
	ELSE
		IF RAND:4 == 0
			PRINTFORML 「私の勝ちですね」
			PRINTFORML 軽い模擬戦を行ってみたが星のばらまく弾幕に追い詰められてしまった
			PRINTFORMW 星に勝つにはまだ実力が足りないか
			PRINTFORMW 「ふふ、曲がりくねる弾幕はまだ難しいですか？」
			;/へにょり弾幕苦手やねん
		ELSEIF RAND:3 == 0
			PRINTFORML 「弾幕にはわざとこちらから狙いを外した物が来ることがあります」
			PRINTFORMW 「でもそれは“本命”のための伏線です。油断はしないでくださいね」
		ELSEIF RAND:2 == 0
			PRINTFORML 「上手くなってくれば道が見えたり弾が来ない場所がある程度分かるようになるのですが…」
			PRINTFORMW 「かなり感覚的なことなので直接言葉にして教えるのは難しいですね」
		ELSE
			PRINTFORML 「大体の人はスペルに何らかのコンセプトを持っています」
			PRINTFORMW 「それを見極めることができれば攻略の糸口になる……かも」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;412,勉強
;==================================================
@M_KOJO_MESSAGE_COM_K87_412
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_412_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;連続
	IF PREVCOM == SELECTCOM
		PRINTFORML 「随分と張り切っていますね」
		PRINTFORMW 「でもあまり根をつめては駄目ですよ？」
	ELSE
		IF RAND:4 == 0
			PRINTFORML 「これは自然の力を取り込む術を記した法術書です」
			PRINTFORMW 「これをマスターすれば巨石をも破壊し天も驚くような一撃を繰り出せるようになるかもしれません」
			;/東方は赤く燃えている
		ELSEIF RAND:3 == 0
			PRINTFORMW 「その通りです。　ここまでは完璧ですね」
		ELSEIF RAND:2 == 0
			PRINTFORML 「ふむ、今ある書物だけでは足りないかもしれませんね」
			PRINTFORMW 「ちょっと待っていてください。　物置きからいくつか持ってきますから」
		ELSE
			PRINTFORMW 「ああ、この辺りはですね…」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;413,料理
;==================================================
@M_KOJO_MESSAGE_COM_K87_413
;料理にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K87_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_413_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
		IF RAND:3 == 0
			PRINTFORML 星と共に料理をした
			PRINTFORML
			;MASTERが料理技能2以上か否かで分岐
			IF ABL:MASTER:料理技能 >= 2
				PRINTFORML 「わぁ…見事な手際ですね…まるで魔法みたいです！」
				PRINTFORMW 見る見るうちに料理が出来上がっていく様に星は感心しきりだ
			ELSE
				PRINTFORML 「あ、それはお塩じゃなくて重曹ですよ」
				PRINTFORMW 星に注意されたおかげで危険物を作らずに済んだ
			ENDIF
		ELSEIF RAND:2 == 0
			PRINTFORML 「%MASTERNAME:87%、お料理するんですか？」
			PRINTFORMW 「丁度いいです、一緒に作りましょう！」
			PRINTFORMW 星と一緒に和気あいあいと料理した
		ELSE
			PRINTFORML 「お料理ですか、なにか手伝いましょうか？」
			PRINTFORMW
			PRINTFORMW 星に手伝ってもらったおかげで調理がはかどった
		ENDIF
ENDIF
RETURN 1
;==================================================
;414,食事
;==================================================
@M_KOJO_MESSAGE_COM_K87_414
;CALL TRAIN_MESSAGE
;※「食事をふるまう」の口上を使用する関係でCALLを閉じる
CALL M_KOJO_MESSAGE_COM_K87_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_414_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 達 # \@を食事に誘った
	PRINTFORML
	;料理を作るの直後
	IF PREVCOM == 413
		PRINTFORMW 「ここで食べるんですか？　まあ作りたてが一番美味しいと言いますからね」
		PRINTFORML
	;食事休憩
	ELSEIF CFLAG:325 == 5
		PRINTFORML 「差し入れですか。　わざわざありがとうございます」
		PRINTFORMW 「それでは、少し休憩するとしましょう」
		PRINTFORML
	ELSE
		PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%\@ GET_TARGETNUM() > 1 ? 達 # \@を食事に誘った
		PRINTFORMW 「え？私\@ GET_TARGETNUM() > 1 ? 達 # \@もいただいてよろしいんですか？」
		PRINTFORMW 「それでは、お言葉に甘えてご相伴にあずからせてもらいますね」
		PRINTFORML
	ENDIF
	;「食事をふるまう」の口上呼び出し
	CALL MESSAGE_EAT_DISH_DRG(87)
	CALL M_KOJO_MESSAGE_COM_K87_415_1
ENDIF
RETURN 1
;==================================================
;415,食事をふるまう
;==================================================
@M_KOJO_MESSAGE_COM_K87_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_415_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF TCVAR:MASTER:308 < 8
			;414,食事から呼び出された時
			IF SELECTCOM == 414
				SIF CFLAG:TARGET:味覚嗜好 & TCVAR:MASTER:308
					PRINTFORML %CALLNAME:TARGET%はこの味付けを気に入ったようだ
				IF TFLAG:193 == 1
					PRINTFORML %CALLNAME:TARGET%と%CALLNAME:PLAYER%は%DISHNAME%を食べながら楽しいひとときを過ごした…
				ELSEIF TFLAG:193 == -1
					PRINTFORML …どうやら%CALLNAME:TARGET%の口に合わなかったようだ
				ELSE
					PRINTFORML %CALLNAME:TARGET%は出された%DISHNAME%を美味しそうに平らげた
				ENDIF
			ENDIF
		;成功
		IF TFLAG:193 == 1
			PRINTFORMW 「うん、すごく美味しいですよ%UNICODE(0x2665)%」
			;好みの味付け
			SIF CFLAG:TARGET:味覚嗜好 & TCVAR:MASTER:308
				PRINTFORMW 「それにこの味付け、すごく私好みです♪」
		;失敗
		ELSEIF TFLAG:193 == -1
				PRINTFORMW 「う～ん、何か一味足りないような…？」
				;好みの味付け
				SIF CFLAG:TARGET:味覚嗜好 & TCVAR:MASTER:308
				PRINTFORMW 「全体の味付け自体は良いと思うのですが…」
		ELSE
			PRINTFORMW 「ご馳走様でした。　美味しかったですよ」
		ENDIF
	;激辛
	ELSEIF TASTE_REACTION("辛い")
		IF RAND:2 == 0
			PRINTFORMW 「か、辛いっ！　み、水っ！！」
		ELSE
			PRINTFORML 辛みが治まらないのか台所から戻ってきても星は舌を出していた
			PRINTFORMW 「うう…　まだ舌がぴりぴりします……」
		ENDIF
	;激甘
	ELSEIF TASTE_REACTION("甘い") >= 3
		;デザート
		IF TCVAR:MASTER:305 & 4
			PRINTFORMW 「口の中がとろけるような甘～いデザート…こういうの大好きです%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「はぁ…♪　まるでお菓子を食べているみたいです♪」
			PRINTFORMW およそ料理とは言えないほど甘くしたのだが…星は気に入ってしまったようだ
		ENDIF
	;わさび
	ELSEIF TASTE_REACTION("わさび")
		PRINTFORMW 「～～～～～～～～～っ！？」
	;レモン
	ELSEIF TASTE_REACTION("すっぱい") >= 3
		PRINTFORML 「～～～…っ　……ぱあっ」
		PRINTFORMW 「もう…酸っぱすぎますよ%MASTERNAME:87%…　口が固まるかと思ったじゃないですか」
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;デート系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;603,手を繋ぐ　CFLAG:1603
;==================================================
@M_KOJO_MESSAGE_COM_K87_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_603_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;失敗(?)
	IF TFLAG:193 == -1
		PRINTFORMW どうも星は少し照れ臭いようだ
	;成功or普通
	ELSE
		;恋人
		IF TALENT:恋人
			;恋人になってからは初めて
			IF CFLAG:1603 < 3
				PRINTFORML 「そういえば、恋人になって初めてですね」
				;恋慕時に手を繋ぐをしたことがある
				IF CFLAG:1603 == 2
					PRINTFORMW 「今まですっごい緊張してたんですよ？」
				ELSE
					PRINTFORMW 「これ、恋人っぽくて楽しいです…♪」
				ENDIF
				CFLAG:1603 = 3
			ELSE
				IF RAND:3 == 0
					PRINTFORMW 「巷には恋人繋ぎってのがあるらしいですよ」
					PRINTFORML そう言って星はお互いの手のひらを合わせて指を絡めた
					PRINTFORMW 「こんなふうにするそうです%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORMW そして自然とお互いの指を絡めあっていった
				ELSE
					PRINTFORML 「んー、ちょっといいですか」
					PRINTFORML そう言うと星は一度手を離しその腕をあなたの腕に絡めてから
					PRINTFORMW 改めて手を握ってきた
					PRINTFORMW 「こっちの方が、いいかなって思いまして…%UNICODE(0x2665)%」
				ENDIF
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			;恋慕取ってからは初めて
			IF CFLAG:1603 < 2
				PRINTFORML 「…！」
				PRINTFORMW 手を繋ぐと、星は明らかに硬い顔をした
				PRINTFORMW 「！いえっ、別に嫌とかじゃないです」
				PRINTFORMW 「むしろ、できればそのままで…ごにょ」
				CFLAG:1603 = 2
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「…！はい、どうぞ！」
					PRINTFORMW 手を繋ごうと言うと、形容しがたい笑顔とともにビッと手を差し出してきた
					PRINTFORMW …それは握手だ
				ELSEIF RAND:2 == 0
					PRINTFORML 「は、はヒ」
					PRINTFORMW 手を繋ごうと言うと、裏返った声とともに手が伸びてきた
				ELSE
					PRINTFORML 「ど、どうぞっ！」
					PRINTFORMW 手を繋ごうと言うと、お辞儀とともに手を差し出してきた
					PRINTFORMW …両手を出されても困る
				ENDIF
			ENDIF
		ELSE
			;初めて
			IF CFLAG:1603 < 1
				PRINTFORMW 「？手を繋ぐ？よくわかりませんがいいですよ」
				CFLAG:1603 = 1
			ELSE
				IF RAND:3 == 0
					;/呑気
					PRINTFORMW 「仲良しさんですね♪」
				ELSEIF RAND:2 == 0
					PRINTFORMW 星の手はとても暖かかった
				ELSE
					PRINTFORMW 「%MASTERNAME:87%、行きましょうか」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;604,散策する
;==================================================
@M_KOJO_MESSAGE_COM_K87_604
;散策するにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K87_604_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_604_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;605,寄り道する
;==================================================
@M_KOJO_MESSAGE_COM_K87_605
;散策するにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K87_605_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_605_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;610,食事に誘う
;==================================================
@M_KOJO_MESSAGE_COM_K87_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_610_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;失敗
	IF TFLAG:193 == -1
	SELECTCASE CFLAG:MASTER:現在位置
	;人里
		;呑屋小道(現在食事場所は220、ただし酒は出ない（と思うので変更せず）
		CASE 230
			PRINTFORML さすがに飲みすぎたのか星はふらふらしている
			PRINTFORML 「ん～？　ふふふ～大丈夫酔ってません酔ってませんよ～♪」
			PRINTFORMW それは酔っている者の口癖のようなものなのだが
	;博麗神社
		;神社縁側
		CASE 40
			IF RAND:2 == 0
				PRINTFORML 「……ぅ…………………気持ち、悪い、です」
				PRINTFORML 星は青ざめた顔で横になっている
				PRINTFORMW 天狗に勧められるままに呑むなど自殺行為だと言ったのだが
			ELSE
				PRINTFORMW 酔いつぶれた星はあろうことかこちらの膝にしがみつくようにして眠っている
				PRINTFORML
				PRINTFORML 『あらあら、随分お熱いのね』
				PRINTFORML 『酒の肴にするにゃ甘すぎるけどねえ』
				PRINTFORMW 周りの人妖もいい余興とばかりに囃したててくる
				PRINTFORML 「ん……むにゃ…%MASTERNAME:87%……%UNICODE(0x2665)%」
				PRINTFORMW だからそこで嬉しそうに名前をつぶやかれると
			ENDIF
		;妖精の大樹
		CASE 50
			;※光の三妖精以外もいるつもりで書いている
			IF RAND:2 == 0
				PRINTFORML 突然星が黙り込んでしまったので不審に思いその目の前にあった茶菓子をかじってみると
				PRINTFORMW 苦いような甘酸っぱいような何とも言えない味が口の中に広がった
				PRINTFORML 『うわ、マズっ！　…ってちょっと、これ失敗したから捨てるって言ったやつじゃない！！
				PRINTFORML 　誰よテーブルに置いたの！』
				PRINTFORMW …あの笑いを堪えてる子のイタズラか
			ELSE
				;どう見ても魔法陣グルグルの妖精です、本当に(ry
				PRINTFORML 『ねえねえキスとかもうしたの？』
				PRINTFORML 『デートとかもいくのかなっ！』
				PRINTFORML 『何言ってるのよ　今まさにデートしてるんでしょ！』
				PRINTFORMW 『じゃ、じゃあもしかしたらこの後二人きりで……きゃーっ！』
				PRINTFORML
				PRINTFORML 妖精たちのあけすけな質問責めに星は顔を真っ赤にして俯いており
				PRINTFORMW とてもお茶を楽しむどころではないようだ
				PRINTFORML とはいえ下手に助け船を出そうとすると
				PRINTFORMW 今度はこっちに矛先が向いてきそうなのであなたは見ているしかできない
				PRINTFORML
				PRINTFORML 仕方ないので今は恥ずかしげに一つ一つの質問に答えようとする
				PRINTFORMW 彼女の姿を目に焼き付けることにした
			ENDIF
	ENDSELECT
	;成功or普通
	ELSE
	SELECTCASE CFLAG:MASTER:現在位置
	;人里
		;呑屋小道(現在食事場所は220、ただし酒は出ない（と思うので変更せず）
		CASE 230
			IF RAND:2 == 0
				PRINTFORMW 星はビールを美味しそうに飲んでいる
				PRINTFORML
				PRINTFORMW 「初めて飲んだ時は苦手かな、と思ったんですけど」
				PRINTFORMW 「麦酒も慣れるといいものですね」
			ELSE
				PRINTFORML 「このお通し美味しいですね。　え？無料なんですか？　太っ腹ですねご主人！」
				PRINTFORMW 星はとても楽しげだ
			ENDIF
	;博麗神社
		;神社縁側
		CASE 40
			PRINTFORMW 少し休もうと星と一緒に宴の中心から少し離れて飲むことにした
			PRINTFORML しばらくどんちゃん騒ぎを眺めていると星がぽつりとつぶやいた
			PRINTFORML 「霊夢や魔理沙さんのような人間と妖怪たちが共に酒の席を楽しむ…
			PRINTFORMW 　これがこの神社だけでなく幻想郷中に広まるといいですね」
			PRINTFORMW 優しい目つきで宴を見る星は静かに決意を固めているようだった
		;妖精の大樹
		CASE 50
			PRINTFORML 「あ、この飲み物すごく甘くて美味しいです」
			PRINTFORMW 『それは花の蜜に林檎の果汁を混ぜたものよ。　気に入ってくれた？』
			PRINTFORML
			PRINTFORML 微かに花の香りのするジュースは木の実のクッキーに良く合っている
			PRINTFORMW 聞けば花の蜜を絞って集める機械もあるらしい
			PRINTFORMW 妖精の食文化もなかなか面白い。
			PRINTFORML
			PRINTFORMW 『そちらの彼も気に入ってくれたみたいね。よかったわ』
			PRINTFORMW 『……で、ふたりはどこまでいってる関係なの？』
			PRINTFORMW …しかしさっきからこういう質問ばかりされるのはどうにかならないものか
			;/妖精の大樹殺人事件 ～わきみこは見ていた～　に続く
	;迷いの竹林
		;小雀の宿
		CASE 410
			;ミスティアに会ってない
			IF !GETBIT(CFLAG:1002,0)
				PRINTFORML 途中で買ってきていた弁当を広げて食べた
				PRINTFORML 「この混ぜご飯のおにぎりすごく美味しいです♪」
				PRINTFORMW 星も気に入ってくれたようだ。流石最高級の米をふんだんに使用しただけはある
			ELSE

			ENDIF
	ENDSELECT
	ENDIF
ENDIF
RETURN 1

;==================================================
;613,お金稼ぎする
;※1時間かかる
;==================================================
@M_KOJO_MESSAGE_COM_K87_613
;CALL TRAIN_MESSAGE
;※各仕事後に移動
CALL M_KOJO_MESSAGE_COM_K87_613_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_613_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE CFLAG:MASTER:現在位置
	;博麗神社
		;神社境内
		CASE 320
			;※木鳥居のつもりで書いているけど公式で何製かってないよね？
			DRAWLINE
			PRINTFORML
			PRINTFORML 『仕事？そうねえ…　あ、鳥居の修繕をお願いしようかしら』
			PRINTFORMW 大工仕事かと思ったが塗装のはげの塗り直しや小さな傷のやすりがけ程度のようだ
			PRINTFORML
			PRINTFORML 「はい、%MASTERNAME:87%、新しい塗料の缶です　…あ」
			PRINTFORML 受け取るときに星と手が重なり合ってしまい思わず二人で見つめあってしまった
			PRINTFORMW 「%MASTERNAME:87%……」
			PRINTFORML 『ほらほら、いちゃついてないで作業作業！』
			PRINTFORMW 霊夢が手を叩く音で我に返り慌てて作業を再開した…
			CALL TRAIN_MESSAGE
		;神社本堂
		CASE 330
			DRAWLINE
			PRINTFORML
			PRINTFORMW 霊夢に何か仕事は無いか尋ねると丁度良いとお札や御守りの整頓を任された
			PRINTFORML
			PRINTFORML 「それで、私は何をすればいいんですか？」
			PRINTFORML 『ああ、あんたはそこにいるだけでいいわ。　財宝の集まる毘沙門天なんて素敵じゃない』
			PRINTFORML 『そうだ、一日御神体とかやってみない？　物見遊山だけでも結構な参拝客がくるかも！』
			PRINTFORMW 「いえ…それはちょっと……」
			PRINTFORML
			PRINTFORMW 結局二人で整頓をすることにした
			CALL TRAIN_MESSAGE
	;迷いの竹林
		;永遠亭
		CASE 450
			DRAWLINE
			PRINTFORML
			IF RAND:3 == 0
				PRINTFORMW 調剤に必要な薬草を採りに永遠亭内の菜園にやって来た
				PRINTFORML
				PRINTFORML 『はい、じゃあこれつけて』
				PRINTFORML なぜか鈴仙に耳栓を渡された
				PRINTFORML 『これが無いと死んじゃうわよ？』
				PRINTFORMW 「…薬草採りじゃありませんでしたっけ」
				PRINTFORML
				PRINTFORMW 永遠亭で調剤手伝いをして${TFLAG:200}の収入を得た
			ELSEIF RAND:2 == 0
				PRINTFORML 新型の胡蝶夢丸の試験ということで永琳に渡された薬を飲んで横になると
				PRINTFORMW だんだんとやってくる眠気に身を任せて瞼を閉じた
				PRINTFORML
				PRINTFORML あれは…花畑に大きな木？
				PRINTFORML 木の下では女の人がもう一人の女性に怒鳴られている
				PRINTFORMW 喧嘩じゃないだろうか。仲裁に入った方がいいかもしれない
				PRINTFORMW
				PRINTFORMW
				PRINTFORMW 「%MASTERNAME:87%！　%MASTERNAME:87%ー！？　しっかりしてくださーい！」
				PRINTFORML 『うどんげ！　直ぐにこのリストの薬をもってきて！　それと心肺蘇生用機器！　急いで！』
				PRINTFORML 『わ、分かりましたっ！！』
				PRINTFORMW 「%MASTERNAME:87%！ お願いします目を開けてください！　%MASTERNAME:87%ーっ！！」
				PRINTFORML
				PRINTFORMW 新薬の試験アルバイトをして${TFLAG:200}の収入を得た
			ELSE
				PRINTFORMW 兎たちの世話をして${TFLAG:200}の収入を得た
			ENDIF
		;小雀の宿
		CASE 460
			DRAWLINE
		;ミスティアに会ってない
		IF CFLAG:1002 == 0
			PRINTFORMW 星と食材になりそうなものを探した
			PRINTFORML
			PRINTFORML 「あれ？　あのあたりの地面…何か光っていますね」
			PRINTFORML 星の言うとおり、ひときわ太い竹の根元で不自然に土が盛り上がっており
			PRINTFORML そこから小さく光が漏れている
			PRINTFORMW 掘り起こしてみるとなんと金色に輝くタケノコが出てきた
			PRINTFORML 「こ、これはこの竹林で稀に見つかるという幻のタケノコ『兎の角』じゃないですか！」
			PRINTFORML 「食用には向きませんがタケノコは勢い良く成長するということで商売繁盛の御守りにされているそうです」
			PRINTFORMW 「商家に持っていけばきっと喜ばれますよ！　やりましたね%MASTERNAME:87%！」
			PRINTFORML
			PRINTFORMW 珍しい物を見つけて${TFLAG:200}の収入を得た
		ELSE
			PRINTFORMW ミスティアの屋台の手伝いをして${TFLAG:200}の収入を得た
		ENDIF
	;魔法の森
		;霧雨魔法店
		CASE 540
			DRAWLINE
			PRINTFORML
			IF RAND:4 == 0
				PRINTFORMW 魔法店でアルバイトして${TFLAG:200}の収入を得た
			ELSEIF RAND:3 == 0
				PRINTFORML 魔理沙に依頼されて魔法道具の整理をすることになった
				PRINTFORML
				PRINTFORMW 曲がりなりにも清掃を生業とする者としては腕が鳴ると言うべきか
				PRINTFORML 「しかし、改めて見ずとも随分と散らかってますね」
				PRINTFORML 『魔法使いなら普通だぜ』
				PRINTFORML 「聖はきちんと整理整頓してますが」
				PRINTFORMW 『研究者かどうかの違いだな』
				PRINTFORML
				PRINTFORMW 魔法道具の整理を手伝って${TFLAG:200}の収入を得た
			ELSEIF RAND:2 == 0
				PRINTFORMW 魔理沙の魔導書の整頓を手伝うことにした
				PRINTFORML
				PRINTFORML 『そうだ、本は開かずに表紙だけで確認してくれないか
				PRINTFORMW 　中に何が憑いているか分からんからな』
				PRINTFORML 「…え？」
				PRINTFORML 『すまん。言うのが遅すぎた』
				PRINTFORML 星が開いた魔導書からは黒い靄のようなものがもくもくと立ち上っている
				PRINTFORMW 異変にならない程度の事件の幕が切って落とされたのである
				PRINTFORML
				PRINTFORMW 魔法道具の整理を手伝って${TFLAG:200}の収入を得た
				;星は鼻に2のダメージを受けた！
			ELSE
				PRINTFORMW 魔理沙の実験を手伝って${TFLAG:200}の収入を得た
			ENDIF
	;霧の湖
		;紅魔館
		CASE 650
			DRAWLINE
			PRINTFORML
			IF RAND:3 == 0
				PRINTFORMW 美鈴と共に中庭の花の世話をすることになった
				PRINTFORML
				PRINTFORML 「わあ…綺麗ですね」
				PRINTFORML 『ありがとうございます。丁寧に育ててあげると花もちゃんと応えてくれるんですよ』
				PRINTFORML 「ええ、それは此処にある花一輪一輪を見れば十分に分かります」
				PRINTFORML 『あはは、そういう風に言われると何か照れますね。
				PRINTFORMW 　さ、まずは雑草処理からいきましょうか』
				PRINTFORML
				PRINTFORMW 紅魔館でアルバイトして${TFLAG:200}の収入を得た
			ELSEIF RAND:2 == 0
				PRINTFORMW 咲夜の手伝いをすることになった
				PRINTFORML
				PRINTFORML 『少しの間とはいえ紅魔の使用人として働いてもらうからには
				PRINTFORMW 　紅魔館の制服を着用していただくわ』
				PRINTFORML
				PRINTFORML 咲夜に渡された\@ TALENT:MASTER:2 == 2 ? 執事 # メイド \@服に袖を通す
				PRINTFORMW サイズはぴったり、あのメイド長の目は確かなようだ
				PRINTFORML
				PRINTFORML 部屋を出ると丁度隣の部屋の前に咲夜がいた
				PRINTFORML 『着替え終わったようね。ほら、貴方もそんなところに隠れてないで、こっちに来なさい』
				PRINTFORMW 「でも、その…」
				PRINTFORML 『別に恥ずかしがる必要なんてないわよ。よっと』
				PRINTFORMW 隣の部屋からメイド服に身を包んだ星が引きずり出された
				PRINTFORML 「やぁ…%MASTERNAME:87%…あんまり見ないでください、恥ずかしいです…」
				PRINTFORML 慣れない服が恥ずかしいと星は身を縮めている
				PRINTFORMW ふむ、これは…なかなか…
				PRINTFORML 『悪くないと思うんだけど。全く困ったものね…あら%MASTERNAME:87%、どうしたの？
				PRINTFORMW 　え？何？このまま持ち帰ってもいいか？　駄目よ制服はちゃんと返して頂戴』
				PRINTFORML
				PRINTFORMW 咲夜の仕事を手伝って${TFLAG:200}の収入を得た
			ELSE
				PRINTFORMW パチュリーが人手を求めているというので図書館に向かった
				PRINTFORML
				PRINTFORML 『…おおまかな説明は以上。後は小悪魔の指示に従って頂戴』
				PRINTFORMW 一通り説明を終えるとパチュリーは部屋に戻っていった。　喘息の調子が悪いとのことだ
				PRINTFORML
				PRINTFORML
				PRINTFORML 『こちらの棚はこれで全部ですね。今度はこの山をあっちの棚にもっていきましょう』
				PRINTFORMW 「分かりました。それにしても…この量の本を全て把握しているんですか？」
				PRINTFORML 『はい、私は司書ですからね！　ちゃんと把握してますよ
				PRINTFORML 　もしかしたらパチュリー様より詳しいんじゃないかもと密かに思っていたり…
				PRINTFORMW 　あ、今の他の人には内緒ですよ！？』
				PRINTFORMW 「ふふ、大丈夫ですよ♪」
				PRINTFORMW 『ほ、ほんとに内緒ですからねー！？』
				PRINTFORMW 小悪魔と談笑しながら作業を続けた
				PRINTFORML
				PRINTFORMW 図書館の整理を手伝って${TFLAG:200}の収入を得た
			ENDIF
		;その他
		CASEELSE
		CALL TRAIN_MESSAGE
	ENDSELECT
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;派生コマンド（日常系）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,耳かき
;「膝枕してもらう」から「スキンシップ」
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_60_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_60_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	;IF TALENT:恋慕
	;	PRINTFORMW
	;	RETURN 1
	;それ以外
	;ELSE
		;失敗
		IF TFLAG:193 == -1
			PRINTFORML 「あわわ、大丈夫ですか！？」
			PRINTFORMW 突然の痛みにあなたは一瞬血の気が引いた…
		;成功or普通
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「どうです？　気持ちいいですかー？」
			ELSE
				PRINTFORMW 「こちらは終わりましたよ。　さ、今度は反対側を向いてくださいな♪」
			ENDIF
		ENDIF
		RETURN 1
	;ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN RESULT

;==================================================
;61,抱きまくら
;※抱きつくから就寝
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_61_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_61_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;失敗
	IF TFLAG:193 == -1
	;成功or普通
	ELSE
		;恋慕
		IF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORML 体を撫でる星の手が心地よい…
				PRINTFORMW 明日は気分よく起きれるだろう…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「%MASTERNAME:87%に抱かれて眠る…　ふふっ、すごくいい夢が見れそうです」
			ELSE
				PRINTFORML 「暖ったかい……　幸せ……%UNICODE(0x2665)%」
				PRINTFORMW 星は蕩けるような表情のままゆっくりと瞼を閉じた…
			ENDIF
		RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			PRINTFORML
			PRINTFORML
			PRINTFORML 「うう…なんだかどきどきして眠れません…」
			PRINTFORMW 「%MASTERNAME:87%のせい…でしょうか」
		RETURN 1
		ENDIF
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN RESULT

;==================================================
;62,デコちゅー
;※頭をなでるからキスする
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_62_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_62_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN RESULT

;==================================================
;63,一緒にお風呂
;※CFLAG:TARGET:同行が必要なので同行が解けていたり片方が後から入ってきたときは403,休憩の方が出る
;地の文の分岐条件は、
;ABL:欲望 >= 5
;	 %CALLNAME:TARGET%は%CALLNAME:PLAYER%に寄り添いながら身体を触っている…
;ABL:親密 >= 5
;	 %CALLNAME:TARGET%は%CALLNAME:PLAYER%に背をもたれながら恥ずかしげにうつむいている…
;ELSE
;	 %CALLNAME:TARGET%は目を背けながら後ろを向き小さく縮こまっている…
;こんな感じ。
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_6300
;CALL TRAIN_MESSAGE
;※情景移動
CALL M_KOJO_MESSAGE_SCOM_K87_6300_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_6300_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;恋人
	IF TALENT:恋人
		PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%を連れてお風呂に浸かった…
		PRINTFORML
		IF ABL:親密 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「ふふ…お疲れ様、%MASTERNAME:87%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ねえ%MASTERNAME:87%、上がったら、その…」
				PRINTFORMW 星がぴったりと体を寄せて、おねだりをしてきた…
			ELSE
				PRINTFORMW 「ふふ…あっという間にのぼせちゃいそうですね…%UNICODE(0x2665)%」
			ENDIF
		ELSE
			PRINTFORML 「や、やっぱりまだちょっと慣れませんね…」
			PRINTFORMW 気恥ずかしいのか星はうつむいている
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%を連れてお風呂に浸かった…
		PRINTFORML
		IF ABL:親密 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「いいお湯…暖まりますね」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ふー…　疲れが取れますー」
				PRINTFORMW 星は浴槽の縁に顎を乗せてリラックスしている
			ELSE
				PRINTFORMW 星はあなたに寄り添うようにして湯船に浸かっている
			ENDIF
		ELSE
			PRINTFORML 「い、良い湯加減ですね…」
			PRINTFORMW 気恥ずかしいのか星はうつむいている
		ENDIF
		RETURN 1
	;それ以外
	;/一緒にお風呂入ろうと言われてホイホイ入っちゃう命蓮寺の住人って…まぁ連れ歩きはある程度好感度無いとできないけど
	ELSE
		CALL TRAIN_MESSAGE
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN RESULT

;==================================================
;64,櫛で梳かす
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_64
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_64_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_64_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN RESULT

;※※※※※※※※※※※※※※※※※※※※※※※※※
;デート派生コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;80,手を引く
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;==================================================
;81,プレゼントする
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_81
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_81_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_81_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	SELECTCASE TFLAG:192
		;プレゼントアイテムNOはItem.csv参照
;		CASE ITEMナンバー
	;人里
		;商家町
			;510,和菓子
			;511,生活雑貨 香霖堂のものとは違う扱い
			;514,和装小物
			;517,和服
		;呑屋小道
			;530,鯖寿司
			;531,串おでん
			CASE 531
				IF DAY:2 == 4
					PRINTFORML 「んー、冬のおでんは格別ですー♪」
					PRINTFORMW 星はほっこりしている
				ELSE
					PRINTFORML 「はふ、はむ、ん……」
					PRINTFORMW 星は熱そうにしながらおでんを頬張っている
				ENDIF
	;迷いの竹林
		;永遠亭
			;550,笹団子
			CASE 550
				IF RAND:2 == 0
					PRINTFORML 「ん～～%UNICODE(0x2665)%　笹の香りが広がります～♪」
					PRINTFORML さっそく笹団子をひとつ食べた星は頬に手を当てて幸せそうにしている
					PRINTFORMW 「まだありますし寺に戻ったらまたゆっくり食べましょうか…　ふふ、楽しみです♪」
				ELSE
					PRINTFORML 「いっぱいありますからね、%MASTERNAME:87%もおひとつどうぞ」
					;恋人
					IF TALENT:恋人
						PRINTFORML 「はい、あーん」
						PRINTFORML 星は笹団子をひとつ広げるとあなたの口元へと持ってきた
						PRINTFORMW 周りに人(兎？)がいる状況でこのまま食べるのは勇気が要りそうだ…
					ELSE
						PRINTFORML 星は笹団子をひとつ手渡してきた
						PRINTFORMW プレゼントしたものを自分で食べるというのも変だが星が嬉しそうなので問題ないのだろう…
					ENDIF
				ENDIF
			;551,うさぎ饅頭
			CASE 551
				PRINTFORML 「わー♪　可愛いです♪」
				PRINTFORML 玉兎を模った饅頭に星は目を輝かせている
				PRINTFORMW 「ありがとうございます%UNICODE(0x2665)%　でもなんだか食べるのがもったいないですね」
			;552,月見餅
			CASE 552
				PRINTFORML つきたての月見餅をひとつ頬張った星は驚きに目を見開いた
				PRINTFORML 「%MASTERNAME:87%！　凄い！　このお餅凄いです！」
				PRINTFORMW 「柔らかな舌触りに硬すぎず柔らかすぎずの絶妙な食感、ほのかな甘み…どれをとっても素晴らしくて♪」
				PRINTFORML 「そうだ、寺でお月見をするときはこのお餅でお団作りましょう♪」
				PRINTFORMW 相当に美味しかったのか星ははしゃいでいる
	;魔法の森
		;香霖堂
			;570,生活雑貨
			;574,アクセサリ
			;577,洋服
			CASE 577
				PRINTFORML 「ど、どうでしょう%MASTERNAME:87%…」
				PRINTFORMW 星は受け取った洋服を広げ自分の前に合わせた
				PRINTFORML 「え、可愛い、ですか？　ありがとうございます！　…えへへ」
				PRINTFORMW 星は嬉しそうに洋服を抱えている、どうやら相当気に入ってくれたようだ
		;霧雨魔法店
			;590,きのこ汁
			CASE 590
				PRINTFORML 「あ…美味しい、変わった味なのにしっくり来るというか」
				PRINTFORMW 魔理沙に振舞われたきのこ汁の意外な美味しさに星は少し驚いているようだ
				PRINTFORML 『知ってるか？　ベニテングダケって毒成分がそのままうまみ成分なんだぜ』
				PRINTFORML 「何故今それを…」
				PRINTFORML 『なんとなくだ。　そういや人間には効かないがハエは死ぬキノコとかもあるらしいんだ
				PRINTFORMW 　もしかしたら妖怪にしか効かない毒キノコとかもあるかもな』
				PRINTFORML 「だから何故今それを…」
				PRINTFORMW 『なんとなくだ』
	;霧の湖
		;紅魔館
			;610,朱色の紅茶
				CASE 610
					PRINTFORML 『お茶が入りましたー、こちらでいいんですよね』
					PRINTFORMW しばらくしてメイド妖精が朱に染まった紅茶を持ってきた
					PRINTFORML 「はい、ありがとうございます。　……ふぅ…」
					PRINTFORML 紅茶を受け取った星は一口啜ると落ち着いたような溜息をついた
					PRINTFORMW 「あまり飲んだことのない味ですけど良いお茶ですね、上品な味わいと言うか」
					PRINTFORML 『お嬢様のお気に入りですからねー、でもメイド長ったらこの茶葉のレシピ教えてくれないんですよー』
					PRINTFORML 『上手く淹れられるようになったらお嬢様のご機嫌取りに使えそうなんだけどなー、サボリが見つかったときとか』
					PRINTFORMW 「さぼらないようにしましょうよ…」
			;611,ケーキセット
				CASE 611
					PRINTFORML 「わぁ…ケーキがこんなにいっぱい…」
					PRINTFORMW 「どれも美味しそうです%UNICODE(0x2665)%　%MASTERNAME:87%、ありがとうございます♪」
			;614,琥珀色のジャム
				CASE 614
					PRINTFORML 「うわぁ…美味しいです…%UNICODE(0x2665)%」
					PRINTFORML メイド妖精から受け取ったジャムを試しに舐めてみた星の顔がぱぁっと明るくなった
					PRINTFORMW 彼女が作ったものなのかジャムを持ってきたメイド妖精は誇らしげにしている
	;妖怪の山 山麓
		;麓の大滝
			;634,懐中時計
			CASE 634
				PRINTFORML 「凄い…時計なのに宝石みたいに綺麗……」
				PRINTFORML 星の言うとおり河童作の懐中時計は光を細やかに反射し美しく輝いている
				PRINTFORMW 外装を彩る精巧な細工だけでなく内側で透けて見える機構も装飾の一部となり見る者を圧倒させる
				PRINTFORML 『喜んでくれて嬉しいな、これは自信作なんだ』
				PRINTFORML 「はい…こんな素敵なものを頂いて……%MASTERNAME:87%…凄く、嬉しいです…」
				PRINTFORMW 星は花のような笑顔であなたにほほ笑みかけた
			IF TALENT:恋人
				PRINTFORML 『……大事にしなよ？』
				PRINTFORML 「あ、はい！　こんなに良いものですもんね」
				PRINTFORMW 『はははっ…両方に言ったんだけどねぇ～？』
				PRINTFORML 「…えぅ」
				PRINTFORMW ニヤつく視線を向けられて二人して黙ってしまった
			ENDIF
	ENDSELECT
	PRINTFORMW
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;愛撫系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;0,愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K87_0
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_0_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_0_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;※うふふ == 2のことも考えるとこのあたりのFIRSTTIMEは難しい
	;↑ほら、相手に押し倒されたときはまた別な心境になるじゃん？
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW 緊張で小刻みに震える星の全身を、解きほぐすように優しく愛撫した…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;挿入中
	;※どっちかに挿入、もう片方にバイブの状態で自慰や愛撫は四重絶頂狙いでよくやると思われる。留意しておきたい
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	;V挿入
	IF LOCAL:1 && TEQUIP:50 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			IF RAND:3 == 0
				PRINTFORML 「は、はぅ、は、は、あ…」
			ELSEIF RAND:2 == 0
				PRINTFORML 「あ、あぅ、ふぅんっ、はぁ、っ、あぅ…」
			ELSE
				PRINTFORML 「ひぅ、んんっ、ぁ、き、きてますっ…」
			ENDIF
			PRINTFORMW ペニスが精液を吐き出す度に震える星の体を感じながら、懸命に撫で続けた…
			RETURN 1
		;これで絶頂する
		ELSEIF NOWEX:0 || NOWEX:1 || NOWEX:2 || NOWEX:3
			PRINTFORMW あなたに押さえつけられ快感を逃がせなくなった星に絶頂の衝撃が襲いかかる
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「だ、だめです、そんな、はいっ…てるのに、そんな、とこっ…はぅっ…！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「そんな、入ったまま、されたらっ…わけわかんなく、なっちゃいますっ…」
			ELSE
				PRINTFORMW 「やぁ、今、そんなとこ、撫でられちゃっ、ああっ、は、はぁっ…」
			ENDIF
			RETURN 1
		ENDIF
	;A挿入
	ELSEIF LOCAL:1 && TEQUIP:51 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF

	;-------------------------------------------------
	;ふたなり
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && (TALENT:2 & 3) == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	;恋慕
	IF TALENT:恋慕
		;手淫してもらった直後
		IF PREVCOM == 80
			IF TALENT:恋人
				PRINTFORM お返しとばかりに、星の
				SIF PALAM:潤滑 >= PALAMLV:4
					PRINTFORM 濡れそぼった
				PRINTFORML 秘部をたっぷり愛撫した…
				IF RAND:3 == 0
					PRINTFORMW 「あ、はっ…%UNICODE(0x2665)%　%MASTERNAME:87%もしてくれるんですね、嬉しいです…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「んふっ…♪気持ちよくするのも、気持ちよくされるのも、素敵…%UNICODE(0x2665)%」
					PRINTFORMW 「ね…次はキスして欲しいです…あの、舌を絡めるの…とっても気持ちいいんです…」
				ELSE
					PRINTFORML 「ふふっ、気持ちよくさせあいっこ、ですね…%UNICODE(0x2665)%」
					PRINTFORMW 「激しく愛してくれるのもいいけど、こういうのも大好きです…%UNICODE(0x2665)%」
				ENDIF
			;恋人なし
			;/ハイパー手抜き
			ELSE
				PRINTFORM お返しとばかりに、星の
				SIF PALAM:潤滑 >= PALAMLV:4
					PRINTFORM 濡れそぼった
				PRINTFORML 秘部をたっぷり愛撫した…
				IF RAND:3 == 0
					PRINTFORMW 「あ、はっ…%UNICODE(0x2665)%　%MASTERNAME:87%もしてくれるんですね、嬉しいです…」
				ELSEIF RAND:2 == 0
					PRINTFORML 「んふっ…♪気持ちよくするのも、気持ちよくされるのも、素敵…%UNICODE(0x2665)%」
					PRINTFORMW 「ね…次はキスして欲しいです…あの、舌を絡めるの…とっても気持ちいいんです…」
				ELSE
					PRINTFORMW 「ふふっ、気持ちよくさせあいっこ、ですね…%UNICODE(0x2665)%」
				ENDIF
			ENDIF
		;これで絶頂する
		ELSEIF NOWEX:0 || NOWEX:1 || NOWEX:2 || NOWEX:3
			;キスもした
			IF RAND:2 == 0 && EXP_UP(27,TARGET)
				IF RAND:2 == 0
					PRINTFORML 「んむ、んっ…ちゅ、ふんんっ！　……ぷぁっ、あっはああぁっ%UNICODE(0x2665)%！」
					PRINTFORML あなたの愛撫を受けながらも口づけを続けていた星だったが
					PRINTFORMW 襲いかかる絶頂の波に思わず唇を離し嬌声を上げた
				ELSE
					PRINTFORML 「ふぁあっ、キス、しながらがいいですっ%UNICODE(0x2665)%」
					PRINTFORMW 星はあなたの頬に手を伸ばすとより激しく口づけしてきた
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「あっ、そこっ、つままれたら、きちゃいますっ%UNICODE(0x2665)%」
					PRINTFORML 「んっ、あっあぁっ、こするのもっ、んっ、やっ、ああぁっ%UNICODE(0x2665)%」
					PRINTFORMW 絶頂が近づいているのか星の声は高く掠れるようになり、息も荒くなっていく…
				ELSE
					PRINTFORML 「あはっ、気持ちいいのがどんどん強くなって…っ%UNICODE(0x2665)%」
					PRINTFORMW 星はうっとりとした顔で高まる悦楽に感じ入っている
				ENDIF
			ENDIF
		;前のコマンドが手淫以外で絶頂もしなかった
		ELSE
			;キスもした
			IF RAND:2 == 0 && EXP_UP(27,TARGET)
				IF RAND:2 == 0
					PRINTFORML 「んんうっ%UNICODE(0x2665)%　んむ…んん……ふ、む…」
					PRINTFORMW 敏感な部分への責めに身体を震わせながも星は唇を離さない
				ELSE
					PRINTFORML 「んー、ちゅるっ……れろ……んっ」
					PRINTFORMW 愛撫に身を委ねながら星はあなたの唇を貪っている
				ENDIF
			ELSE
				IF RAND:5 == 0
					PRINTFORML 「は、あぁぁ……っ　あ、そこ…ぉ%UNICODE(0x2665)%」
					PRINTFORMW あなたの丁寧な愛撫に星は切なそうな声を上げた
				ELSEIF RAND:4 == 0
					PRINTFORML 「優しく触られるの……すごく気持ちいいです…%UNICODE(0x2665)%」
					PRINTFORMW 星は甘えるようにあなたにしなだれかかった
				ELSEIF RAND:3 == 0
					PRINTFORMW 「ああ…%MASTERNAME:87%の手、すごくいいです…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「ふあ…は、あん…ふ、ふふっ、そこ、くすぐったいです…%UNICODE(0x2665)%」
				ELSE
					PRINTFORMW 「ふふっ…たくさん、たくさん触ってくださいね…%UNICODE(0x2665)%」
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF RAND:4 == 0
			PRINTFORML 「あくっ、んぅ……っ」
			PRINTFORMW 「いいですよ…もっと強くしても……あっ」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んっ、%MASTERNAME:87%の手、すごくやらしいですよ…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「駄目ですよお…この手、気持ちよすぎます…」
		ELSE
			PRINTFORMW あなたの手が這うたびに、星は熱く甘い吐息を漏らしている…
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:4 == 0
			PRINTFORML 「ん…ふっ……あははっ」
			PRINTFORMW しかし上がる声には笑い声も混じっている…くすぐったいようだ
		ELSEIF RAND:3 == 0
			PRINTFORMW 「駄目です…こんなこと、駄目なんです…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ひぅっ！？やあ…そんなとこ、触っちゃ駄目です…」
		ELSE
			PRINTFORMW 「あ、っはぅ…や、やめてください…」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;1,クンニ
;==================================================
@M_KOJO_MESSAGE_COM_K87_1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_1_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_1_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORML 「…っ、ま、まじまじと見ないでください…恥ずかしくて、死にそうです…」
		PRINTFORMW 「あっ！？や、舐めっ…なんて、ひゃうっ…駄目、ですよお…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;膣内射精直後
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		IF TCVAR:102
			PRINTFORML 先ほど注ぎ込んだ精液が星の愛液と混ざって、膣口からあふれ出している…
			IF TALENT:恋人
				IF RAND:3 == 0
					PRINTFORML 「あはっ…%UNICODE(0x2665)%　私たちのが混ざって、出てきちゃってます…」
					PRINTFORMW 「きっと、とってもえっちな味がしますよね…%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「どうです…？私達のえっちなジュース、美味しいですか…？」
				ELSE
					PRINTFORMW 「は、あぁっ…こんなに、ナカで出されちゃったんですね…%UNICODE(0x2665)%」
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORML 「う、わぁ…」
					PRINTFORMW あまりに淫靡な光景に、星は絶句してしまった…
				ELSEIF RAND:2 == 0
					PRINTFORMW 「こんなに、出されちゃって、私っ…」
				ELSE
					PRINTFORMW 「や、ぁっ…見せないでください…！」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;絶頂した
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && NOWEX:0
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		ELSE
			;欲情3以上　※で、地の文にクリトリス吸い上げが入る
			IF PALAM:欲情 >= PALAMLV:3
				IF RAND:3 == 0
					PRINTFORML 「あう、ん、ひゃうっ！　あそこも、お豆もすごいぃいっ%UNICODE(0x2665)%！」
					PRINTFORML 震える星の秘所にあなたのさらに容赦ない責めが続く…
					PRINTFORMW 「だめだめ駄目ですッ！　そんなことしたらもう、来ちゃ……あああぁッ%UNICODE(0x2665)%！！」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ふやあぁああぁっ%UNICODE(0x2665)%　お豆、そんなに吸われたらあっ！」
					PRINTFORMW 陰核への強烈な刺激に星は両手を頬に当て激しく首を振った
				ELSE
					PRINTFORML 「あうっ、あ…ふぁあっ！　それ以上は、舌っ　だめです……っ　やああんっ%UNICODE(0x2665)%」
					PRINTFORMW  あなたの舌技にクリトリスを翻弄され星は快楽に悶えている
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「ひうっ！？今、舐め、られちゃっ…は…ゃっ…」
				ELSE
					PRINTFORML 「～～っ%UNICODE(0x2665)%！！」
					PRINTFORMW 強い快感に押された星はぱくぱくと空気を求めるように口を開閉している
				ENDIF
			ENDIF
		ENDIF

		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		;欲情3以上
		IF PALAM:欲情 >= PALAMLV:3
			IF RAND:5 == 0
				PRINTFORML 「ひゃああん…%UNICODE(0x2665)%　そこ、吸っちゃ駄目ですぅ…」
				PRINTFORMW 「…そ、その…止めるのも駄目です…」
			ELSEIF RAND:4 == 0
				PRINTFORML 「ひ、ひぃんっ%UNICODE(0x2665)%　%MASTERNAME:87%の舌、ざらざらって、敏感なとこ…」
				PRINTFORMW 星の甘い悲鳴を聞いて、あなたはさらに星のぷっくり膨れた淫豆を責めまくった…
				PRINTFORMW 「やあっ%UNICODE(0x2665)%　舌で押しつぶすの、びりって、きちゃいますっ…♪」
			ELSEIF RAND:3 == 0
				PRINTFORML 「あ…ふうっ…%UNICODE(0x2665)%　舐められるの、好きです…%UNICODE(0x2665)%」
				PRINTFORMW 「私を気持ちよくしたいって、%MASTERNAME:87%の気持ちが、とっても嬉しいです…♪」
			ELSEIF RAND:2 == 0
				PRINTFORML 「や、お豆も、ですかぁ？　……っ！　ひゃああんっ%UNICODE(0x2665)%！！」
				PRINTFORMW 「あっ、お口の中で…っ　くひぃっ！　あんっ%UNICODE(0x2665)%　うぁっ、あああっ%UNICODE(0x2665)%」
				PRINTFORML
				PRINTFORML 「はーっ、はーっ……　お豆…吸い過ぎですよぉ……%UNICODE(0x2665)%」
				PRINTFORMW あなたの舌から解放された星の陰核はふるふると小さく震えながら反り立っている
			ELSE
				PRINTFORML 「んんっ、そこ、ちゅうってしちゃ…はぁあっ！」
				PRINTFORMW クリトリスを強く吸い上げられ、星は大きくのけぞった
			ENDIF
		ELSE
			IF RAND:5 == 0
				PRINTFORML 「あくっ、ん……あんっ…あっ、う…」
				PRINTFORMW 舌が秘唇に触れるたびに星は小さく喘ぎ声を上げる
				IF PALAM:潤滑 >= PALAMLV:2
					PRINTFORML
					PRINTFORML 「ふああ……　私のあそこ…%MASTERNAME:87%に舐められてとろとろになっちゃいました…ぁ」
					PRINTFORMW あなたが口を離すころにはすっかり出来上がり秘穴から蜜が溢れだしてきていた…
				ENDIF
			ELSEIF RAND:4 == 0
				PRINTFORML 「あの…舌が、ちょっと入って……　ひゃうっ%UNICODE(0x2665)%」
				PRINTFORMW 星の膣穴からは唾液とも愛液ともつかない液が垂れ落ちている…
			ELSEIF RAND:3 == 0
				PRINTFORMW 「あっは、ふぅんっ、あ、いい、ですっ…そこ、はうっ、気持ちいいですっ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「そこ、舐められると、あ、たま、ふわふわって、は、ああ…！」
			ELSE
				PRINTFORMW 「っあ、%MASTERNAME:87%の舌がっ…大事な場所、舐めちゃってますよう…」
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF RAND:5 == 0
			PRINTFORML 「あはっ…ゆっくり…いじってくださいね……」
			PRINTFORMW くすぐるように舐められるのも好きなようだ…
		ELSEIF RAND:4 == 0
			PRINTFORMW 「んっ、もっと舐めてもいいですよ%UNICODE(0x2665)%」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「ひうっ、あ、%MASTERNAME:87%の舌がっ…ん、んんっ」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「や、ああ…っ、あ、あんっ、そんな、音立てないで下さい…」
		ELSE
			PRINTFORMW 舌が秘芯に触れるたびに、星の腰がびくり、びくりと浮き上がる…
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:5 == 0
			PRINTFORMW 「あう……音立てないでください…」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「あの、汚くないですか……？」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「そんな、穢いところ、舐めてはいけません…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふ、ん…っ、あ、だめですよう…」
		ELSE
			PRINTFORMW 星は目をぎゅっと瞑って羞恥に耐えている…
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;あとは適当な分岐を追加してください
;==================================================
;2,フェラする
;==================================================
@M_KOJO_MESSAGE_COM_K87_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_2_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_2_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;3,指挿入れ
;※処女膜は破らない
;==================================================
@M_KOJO_MESSAGE_COM_K87_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_3_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_3_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;初めて
		PRINTFORMW
		RETURN 1
	ENDIF
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;処女
	ELSEIF TCVAR:破瓜 == 1
		IF TALENT:恋慕
			PRINTFORML 「ん…ぅ……　ふっ……うー…」
			PRINTFORML 「だ、大丈夫ですよね？　指でなんて…なりませんよね？」
			PRINTFORMW 星は不安げに あなたを見つめている
		ELSE
			PRINTFORMW 「んく…　ら、乱暴にしないでくださいね…」
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;バイブ有り
		IF TEQUIP:バイブ
			;Ｖ感覚3以上
			IF ABL:Ｖ感覚 >= 3
				PRINTFORML 「そんなに押しこんだら…　やっ、ああっ！」
				PRINTFORMW 膣内を掻きまわす無機質な感触に星は感じ入っている
			ELSE
				PRINTFORML 「うあ、振動、きついいぃいっ」
				PRINTFORMW バイブに膣内を掻きまわされる感覚にはまだ慣れないようだ…
			ENDIF
		ELSE
			IF ABL:Ｖ感覚 >= 3
				IF RAND:2 == 0
					PRINTFORML 「あうっ、ん…もっと、奥まで……っ%UNICODE(0x2665)%」
					PRINTFORMW 星の恥肉があなたの指に絡みつく…
				ELSE
					PRINTFORML 「あは…　いっぱい掻きまわされて…熱くなっちゃいます♪」
					PRINTFORMW 星は身体を震わせながら荒く息をついている
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「あ…ぅ……　なんだかじりじりします…」
					PRINTFORMW しかしまだ違和感を感じているようだ…
				ELSE
					PRINTFORML 「ふ……んっ　…く、ぁ」
					PRINTFORMW まだ苦しさが残るのか星は時々眉をひそめている
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF ABL:Ｖ感覚 >= 3
			PRINTFORMW 「いいですよ…もう少し奥まで…」
		ELSE
			PRINTFORMW 「ん…もう少しで慣れると思いますから……」
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF ABL:Ｖ感覚 >= 3
			PRINTFORMW 「あっ……捏ねまわされて…」
		ELSE
			PRINTFORMW 「んっ、まだちょっときつい…です」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;4,アナル舐め
;==================================================
@M_KOJO_MESSAGE_COM_K87_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_4_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_4_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;5,アナル愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K87_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_5_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_5_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;6,胸愛撫
;==================================================
@M_KOJO_MESSAGE_COM_K87_6
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_6_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_6_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORML 「あ…」
		PRINTFORMW あなたの手が触れると星は小さく悲鳴を上げ、形の良い双丘をふるりと震わせた…
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;挿入中
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	;V挿入
	IF LOCAL:1 && TEQUIP:50 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORML 星の形の良い双丘に指を食い込ませ、膣内射精の快楽に堪えた…
			IF RAND:3 == 0
				PRINTFORMW 「は、はぅ、は、は、あ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あ、あぅ、ふぅんっ、はぁ、っ、あぅ…」
			ELSE
				PRINTFORMW 「ひぅ、んんっ、ぁ、き、きてますっ…」
			ENDIF
			RETURN 1
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「そ、そんな、はいっ…てるのに、胸、さわられちゃっ…！」
				PRINTFORMW 「どっちで感じていいか、分からなくなっちゃいますよう…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「今、乳首触られちゃっ、すぐ、イっちゃいますっ…」
			ELSE
				PRINTFORMW 「やぁ、今、そんなとこ、撫でられちゃっ、ああっ、は、はぁっ…」
			ENDIF
			RETURN 1
		ENDIF
	;A挿入
	ELSEIF LOCAL:1 && TEQUIP:51 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF ABL:Ｂ感覚 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「だ、駄目です、%MASTERNAME:87%に触られたら、イっちゃいます、あ、はあぁっ…%UNICODE(0x2665)%」
			ELSEIF RAND:2 == 0
				PRINTFORML 「んふ…♪ここ、%MASTERNAME:87%のせいですごく敏感になっちゃったんですよ…」
				PRINTFORMW 「責任とって、たくさん可愛がってくださいね…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あはぁ…そこ、すごく気持ち良くなっちゃいます、あ、はぁんっ、いい、いいですっ…」
			ENDIF
		ELSEIF ABL:Ｂ感覚 >= 3
			IF RAND:3 == 0
				PRINTFORMW 「んはっ、は、あっ、ふ、くぅんっ、はあっ、あ、ふぅうんっ、は、ふ、んんっ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「はい…たくさん触ってください…ん、んんっ、そう、そうです…あっふ、んんっ…」
			ELSE
				PRINTFORMW 「ん…そこ、触られると、良くなっちゃうんです…もっと…触ってください…」
			ENDIF
		ELSEIF PALAM:欲情 >= PALAMLV:3
			IF RAND:6 == 0
				PRINTFORML 「%MASTERNAME:87%の手…ふふっ%UNICODE(0x2665)%」
				PRINTFORMW 星はあなたの手に自らの手を重ねて目を細めている
			ELSEIF RAND:5 == 0
				PRINTFORML 「胸、そんなに強く揉まれたら良くなっちゃいます…んっ%UNICODE(0x2665)%」
				PRINTFORMW 「先っぽも…ぉ、捏ねちゃだめ…ですっ%UNICODE(0x2665)%」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「んぅ…あ、おっぱい気持ちいいです…ふあぁ…」
				;上半身裸
				IF TEQUIP:1 == 0
					PRINTFORMW 柔らかな乳房はあなたの掌に吸い付くように馴染む
				ELSE
					PRINTFORMW 「服の上からなのに、凄くて……あ、はぁ…%UNICODE(0x2665)%」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ふ、あ…%MASTERNAME:87%の手、熱いです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 星はトロンとした目で胸が愛撫される様を見つめている…
			ELSE
				PRINTFORMW 「ん…ふあ、あ…はぁっ、はんっ…」
			ENDIF
		ELSEIF ABL:親密 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「はい、いいですよ…や、優しくお願いします…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「やあ…そういうこと、口に出して言わないで下さいよっ…」
			ELSE
				PRINTFORMW 「あ、やぁっ、手つき、すごくやらしいです…」
			ENDIF
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORML 「こうすれば…触りやすいですか？」
			PRINTFORMW 星はその手で胸を寄せるとあなたに向かって突き出した
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「ひぅっ…だ、駄目ですよう…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「駄目です…誰か来ちゃったらどうするんですかぁ…」
			ELSE
				PRINTFORMW 「あ…そこ、ひゃぅっ…」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;7,乳首責め
;==================================================
@M_KOJO_MESSAGE_COM_K87_7
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_7_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_7_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW 「やぁぁっ…そんなとこ弄っちゃ駄目です…」
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;挿入中
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	;V挿入
	IF LOCAL:1 && TEQUIP:50 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORML 星の乳首を強く押しつぶして、膣内射精の快楽に堪えた…
			IF RAND:3 == 0
				PRINTFORMW 「は、はぅ、は、は、あ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あ、あぅ、ふぅんっ、はぁ、っ、あぅ…」
			ELSE
				PRINTFORMW 「ひぅ、んんっ、ぁ、き、きてますっ…」
			ENDIF
			RETURN 1
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「そこっ、コリコリしちゃ、あっ、我慢できません…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ああっ！？今、そこ弄るのはっ…は、はうっ！反則ですっ…」
			ELSE
				PRINTFORMW 硬くしこった乳首を弄るたびに、星の柔肉が痙攣し子種を催促している…
			ENDIF
			RETURN 1
		ENDIF
	;A挿入
	ELSEIF LOCAL:1 && TEQUIP:51 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF ABL:Ｂ感覚 >= 5
			IF RAND:7 == 0
				PRINTFORML 「そんな、先っぽ虐められたら……　は、あんっ%UNICODE(0x2665)%」
				PRINTFORMW 先端を指で弾くごとに星の口から嬌声が漏れだす…
			ELSEIF RAND:6 == 0
				PRINTFORML 「んぅ、あ……やんっ%UNICODE(0x2665)%」
				IF PALAM:欲情 >= PALAMLV:3
					PRINTFORMW 硬くなった先端の程よい弾力が あなたを楽しませる
				ELSE
					PRINTFORMW あなたに捏ねまわされ先端が少しずつ硬さを増していく…
				ENDIF
			ELSEIF RAND:5 == 0
				PRINTFORML 「あっ、そんなのっ%UNICODE(0x2665)%　ああぁん%UNICODE(0x2665)%」
				PRINTFORMW つまみ上げた先端をさらに軽く捻ってやると甘い声が飛び出した
			ELSEIF RAND:4 == 0
				PRINTFORML 「ああ…　先っぽ、引っ張っちゃ…」
				SIF ABL:MASTER:技巧 >= 2
					PRINTFORMW 「うあぅっ%UNICODE(0x2665)%！　潰すのも駄目っ%UNICODE(0x2665)%」
				SIF ABL:MASTER:技巧 >= 4
					PRINTFORMW 「吸うのはもっとダメです～～っ%UNICODE(0x2665)%%UNICODE(0x2665)%！
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ああ、それっ、良過ぎですっ♪背中が、びりびりってしますっ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「それっ…！指に挟んでクリクリするのがいいんですっ…あ、ああっ…！」
			ELSE
				PRINTFORMW 「はぁぅっ%UNICODE(0x2665)%も、もっと、強くして下さいっ…あ、はうぅっ…%UNICODE(0x2665)%」
			ENDIF
		ELSEIF ABL:Ｂ感覚 >= 3
			IF RAND:3 == 0
				PRINTFORMW 「あはぁっ%UNICODE(0x2665)%それ、刺激が強過ぎっ、は、あううっ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「っっ…%UNICODE(0x2665)%それはぁっ…だめ、ですっ…っあ、ああっ…」
			ELSE
				PRINTFORMW 「はひゃっ…そ、それ、くぅんっ！わ、割と、好き、なんですっ…」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「…っは、も、もっと優しく…くぅ、んっ、そ、そうです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ふあっ、それ、びりって来ます…」
			ELSE
				PRINTFORMW 「ふはっ、あ、ん、んんっ…はんっ！は、ううんっ…」
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF ABL:Ｂ感覚 <= 1
			PRINTFORMW 「ふ、あ…　つまむなら優しくしてくれた方が…」
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「あ、強く引っ張られるのも、いいかも…%UNICODE(0x2665)%」IF RAND:3 == 0
				PRINTFORMW 「そ、そこばっか、いじめちゃだめです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あんっ…そ、そこ、ひうっ…」
			ELSE
				PRINTFORMW 「あんっ！？そ、そこだめ…あうっ！」
			ENDIF
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF ABL:Ｂ感覚 <= 1
			PRINTFORMW 「あんまり引っ張ると伸びちゃいます…」
		ELSE
			IF RAND:4 == 0
				PRINTFORMW 「んん…　はぅッ%UNICODE(0x2665)%」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ひっ！？い、今の…はうっ！そ、それは駄目で…ひぃんっ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「あうっ！？な、そんなとこ、ひあうっ」
			ELSE
				PRINTFORMW 「駄目ですっ、そこは…は、はふうっ！、んん、く、ううんっ！」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;8,秘貝開帳
;※地の文だと区切りが細かい　おおざっぱにすると露出1以下で恥ずかしがり、4以上で膣口も広げる
;==================================================
@M_KOJO_MESSAGE_COM_K87_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_8_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_8_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;露出癖4以上
		IF ABL:露出癖 >= 4
			PRINTFORML 「ひ、広げて見せて欲しいって…！そんな、恥ずかしい…」
			PRINTFORMW 星は真っ赤になって俯きながらもチラチラとこちらを見ている
			PRINTFORMW 「そんなに、見たいんなら、少しだけなら、いいです、よ？」
		ELSE
			PRINTFORML 「ひ、広げて見せっ！？ほ、本当に%MASTERNAME:87%はバカでえっちですねっ…！」
			PRINTFORMW 「そんなことしたら、恥ずかしさで死んでしまいます…」
			SIF TALENT:恋慕
				PRINTFORMW 「…でも、%MASTERNAME:87%が見たい、なら…ちょっとだけ、です、よ？」
		ENDIF
		RETURN 1
	ENDIF
	;2回目以降
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;Ｖ中出しの直後
		IF TCVAR:102
			IF ABL:露出癖 >= 2
				IF RAND:2 == 0
					PRINTFORML 「ほらあ…　%MASTERNAME:87%がいっぱい出すから、こんなに…んっ」
					PRINTFORMW 星が下腹部に力を込めると精液が音を立てて膣口から飛び出した
				ELSE
					PRINTFORML 「あはぁ……%UNICODE(0x2665)%　%MASTERNAME:87%の子種って本当に濃いですよね」
					PRINTFORMW 星は垂れてきた白濁を指ですくい取るとにちゃにちゃと指先で捏ねまわした
					PRINTFORML 「ほんとに…ぷりぷりしてて、おもちみたいです…%UNICODE(0x2665)%」
				ENDIF
			ELSE
				PRINTFORML 「あ…%MASTERNAME:87%の子種…こんなに出てたんですか…」
				PRINTFORMW 「なんだかすごく恥ずかしいです…」
			ENDIF
		ELSEIF ABL:露出癖 >= 4
			;後背位、背面座位から
			IF TEQUIP:体位２ == 2 || TEQUIP:体位２ == 5
				PRINTFORML 星はうつ伏せ\@ TEQUIP:体位２ == 2 ? のまま # になり \@高く尻を上げて陰唇を広げている
				PRINTFORMW 「ほらぁ……こんなに広げちゃいましたよお……%UNICODE(0x2665)%」
				IF RAND:2 == 0 && ABL:Ａ感覚 >= 4
					PRINTFORML 「お尻の穴も広げちゃいましょうかぁ？」
					PRINTFORMW さらに片手で陰唇を広げたままもう片方の手を尻の窄まりへと伸ばした…
				ELSE
					PRINTFORML 「もっと顔を近づけてもいいんですよ♪」
					PRINTFORMW 星はあなたを誘うように膣口を開閉している…
				ENDIF
			ELSE
				IF RAND:5 == 0
				PRINTFORMW 「私の大事なところの一番奥、見えていますか%UNICODE(0x2665)%」
					SIF TALENT:恋人
					PRINTFORMW 「ここはもう%MASTERNAME:87%のものですから…欲しくなったらいつでもどうぞ%UNICODE(0x2665)%」
				ELSEIF RAND:4 == 0
					PRINTFORMW 「あは、すごいところまで見られちゃってます♪」
					SIF PALAM:潤滑 >= PALAMLV:4
						PRINTFORML 広げられた星の膣内ではあちらこちらで濃い粘液が糸を引いている…
					PRINTFORMW 「視線がちくちく刺さるみたいで…んぅっ%UNICODE(0x2665)%」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「ほら、ここ…ここがいつも%MASTERNAME:87%に舐められて、こすられて、気持ち良くなってしまう所です…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「み、見てください…わたしの、%MASTERNAME:87%専用の、大切な場所、全部見せちゃいます…」
				ELSE
					PRINTFORMW 星はあなたに見られること自体をオカズにして、自らを慰め始めた…
				ENDIF
			ENDIF
		ELSEIF ABL:露出癖 >= 2
			;後背位、背面座位から
			IF TEQUIP:体位２ == 2 || TEQUIP:体位２ == 5
				PRINTFORML 星はうつ伏せ\@ TEQUIP:体位２ == 2 ? のまま # になり \@高く尻を上げて陰唇を広げている
				IF RAND:2 == 0
					PRINTFORML 「どうですか？　よく、見えますか…？」
					PRINTFORMW 「さっきまでここに%MASTERNAME:87%の…入っていたんですよ%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「は、ぁ……ふふっ」
					PRINTFORMW 「お尻の方まで見られちゃってます♪」
				ENDIF
			ELSE
				IF RAND:4 == 0
					PRINTFORML 「どうですか？　よく、見えますか…？」
					PRINTFORMW 「ふふ…♪　欲しくなったらいつでもどうぞ♪」
				ELSEIF RAND:3 == 0
					PRINTFORML 「まるで%MASTERNAME:87%の視線にいじられてるみたいです♪」
					PRINTFORMW 「はあっ…%UNICODE(0x2665)%　私の、%MASTERNAME:87%に全部見られてますっ…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「見せるだけなんてヤですっ…%MASTERNAME:87%に、触って欲しいですっ…」
				ELSE
					PRINTFORMW 星は顔を羞恥で染めながらも、何かを訴えるようにあなたを濡れた瞳で見つめている…
				ENDIF
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORML 「いくら身体を重ねるような関係だからってこんな…恥ずかしい真似……」
			ELSEIF RAND:3 == 0
				PRINTFORML 「や、やあ…見ないで、見ないで下さいっ…！」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ひ、ひうっ…」
			ELSE
				PRINTFORML 「～～～っっ…！」
			ENDIF
			PRINTFORMW 星はぎゅっと目を瞑ったまま、震える指で秘所を広げている…
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF ABL:露出癖 >= 4
			IF RAND:4 == 0
				PRINTFORMW 「ん…ほら、奥まで見えますか…？」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ほら、ここ…ここが私の、弄って、気持ち良くなってしまう所です…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「み、見てください…わたしの、大切な場所、全部見せちゃいます…」
			ELSE
				PRINTFORMW 星は他人に見られること自体をオカズにして、自らを慰め始めた…
			ENDIF
		ELSEIF ABL:露出癖 >= 2
			IF RAND:4 == 0
				PRINTFORMW 「尼僧の秘所を見たいなんて…罰あたりさんですね♪」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「はあっ…%UNICODE(0x2665)%　私の、%MASTERNAME:87%に全部見られてますっ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「見せるだけなんてヤですっ…触って欲しいですっ…」
			ELSE
				PRINTFORMW 星は顔を羞恥で染めながらも、何かを訴えるようにあなたを濡れた瞳で見つめている…
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORML 「うー…　じろじろ見られるのはちょっと……」
			ELSEIF RAND:3 == 0
				PRINTFORML 「や、やあ…見ないで、見ないで下さいっ…！」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ひ、ひうっ…」
			ELSE
				PRINTFORML 「～～～っっ…！」
			ENDIF
			PRINTFORMW 星はぎゅっと目をつぶったまま、震える指で秘所を広げている…
		ENDIF
		RETURN 1
	ELSE
		IF ABL:露出癖 >= 2
			PRINTFORML (こんな、痴女みたいに大事なところ見せつけるようにして…　なのに身体が熱くなってきてる…)
			PRINTFORMW (私、おかしくなってしまったんでしょうか…？)
		ELSE
			PRINTFORML 「やっぱり駄目、恥ずかしいです！」
			PRINTFORMW 星は恥ずかしがってすぐに足を閉じてしまった…
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;9,自慰
;==================================================
@M_KOJO_MESSAGE_COM_K87_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_9_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_9_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;/星ちゃんはきっと「自慰」という言葉を知らないに違いない。でもオナニー自体は知ってるに違いない！
		PRINTFORMW 「…？「じい」って何ですか…？」
		PRINTFORMW 「！じ、自分を慰めるって…っ　そ、そんなことできません！悪趣味ですよっ…！」
		SIF TALENT:恋慕
			PRINTFORMW （%MASTERNAME:87%を想像してしてるなんて、死んでも言えませんっ…）
		PRINTFORMW
		PRINTFORMW 「…そ、そんなに見たいんですか…？」
		RETURN 1
	ENDIF
	;2回目以降
	;二穴
	IF TEQUIP:バイブ && TEQUIP:アナルバイブ
		;恋慕
		IF TALENT:恋慕
			IF ABL:Ｖ感覚 >= 3 && ABL:Ａ感覚 >= 3
				IF RAND:2 == 0
					PRINTFORML 「ふぁあっ%UNICODE(0x2665)%　あぁっ、う、ん゛～～っ%UNICODE(0x2665)%」
					PRINTFORMW 星は快楽に緩んだ顔で二本のバイブを滅茶苦茶に動かしている
					PRINTFORMW こぼれ出す粘液が少しずつ股全体へと広がっていく…
					PRINTFORMW 「あはっ、おつゆ止まりません%UNICODE(0x2665)%　私のあそこ、おかしくなっちゃいましたぁ♪」
				ELSE
					PRINTFORML 「はぁ、あ、はっ…　お尻もあそこもいっぱいですごいっ%UNICODE(0x2665)%」
					PRINTFORMW 星はより強い快感を得ようとさらに出し入れを加速させた
					PRINTFORML 「はぁああぁあっ！　強くするの好きになっちゃいそうです！　あん、あっ、あぁああっ%UNICODE(0x2665)%！」
					PRINTFORMW 星はその目に涙すら浮かべて嬌声を上げている…
				ENDIF
			ELSE
				PRINTFORMW 「んっ…　両方、いっぺんは、苦しいです…っ」
				SIF ABL:Ｖ感覚 >= 3 || ABL:Ａ感覚 >= 3
				PRINTFORMW 「でもちょっとだけ気持ちいいかも…」
			ENDIF
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			IF ABL:Ｖ感覚 >= 3 && ABL:Ａ感覚 >= 3
				PRINTFORMW 「ふっ、あぁ…%UNICODE(0x2665)%　苦しいのに、すごく、いいです…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「いぅ…　きつい、ぃ…」
				SIF ABL:Ｖ感覚 >= 3 || ABL:Ａ感覚 >= 3
				PRINTFORMW 「まだ片方だけの方が良いかもしれません…」
			ENDIF
		;それ以外
		ELSE
			IF ABL:Ｖ感覚 >= 3 && ABL:Ａ感覚 >= 3
				PRINTFORML 「一人で両方掻きまわすの……すごく恥ずかしいです…」
				PRINTFORMW 「でも…体が…　熱くなって…っ%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「うぅ…　両方一緒にはきつい…です」
				SIF ABL:Ｖ感覚 >= 3 || ABL:Ａ感覚 >= 3
				PRINTFORMW 「まだ\@ ABL:Ｖ感覚 >= 3 ? あそこ # お尻 \@だけの方がましですよぉ…」
			ENDIF
		ENDIF
		RETURN 1
	;バイブのみ
	ELSEIF TEQUIP:バイブ
		;恋慕
		IF TALENT:恋慕
			;Ａ挿入中
			IF TEQUIP:51 >= 0
				IF ABL:Ｖ感覚 >= 3 && ABL:Ａ感覚 >= 2
					IF RAND:2 == 0
						PRINTFORML 「お尻でされながら…ぁ%UNICODE(0x2665)%　あそこ、自分で虐めて…っ」
						PRINTFORMW 「私%MASTERNAME:87%にえっちな子にされちゃいましたぁ……%MASTERNAME:87%」
					ELSE
						PRINTFORMW 「両方、気持ちいいっ%UNICODE(0x2665)%　あ…んんぅっ！」
					ENDIF
				ELSE
					PRINTFORMW 「どっちも…いっぱいになって…ふぅっ」
				ENDIF
			ELSE
				IF ABL:Ｖ感覚 >= 3
					IF RAND:2 == 0
						PRINTFORML 「はぅ、あ…すご、い……んあぁっ！」
						PRINTFORMW 星は膣内を掻きまわすようにバイブを出し入れしている…
						;MASTERについている
						IF TALENT:PLAYER:2 & 2
							PRINTFORML 「はああ…　気持ちいいです、けど…」
							PRINTFORMW 星は少しだけ動きを止めるとあなたを潤んだ瞳で見つめてきた…
							PRINTFORMW 「でも…ぉ　やっぱり%MASTERNAME:87%のが…欲しいです%UNICODE(0x2665)%」
						ENDIF
					ELSE
						PRINTFORML 「奥まで…したら、きっと……　ん、く…ふあああぁッ！」
						PRINTFORMW 星はバイブの端を握ると限界まで膣内へと押しこんだ
						PRINTFORMW 「ぐりっ…てぇ……　奥、きついけど…いい、ですっ%UNICODE(0x2665)%　あ、うあっ！」
					ENDIF
				ELSE
					PRINTFORMW 「私の中…じんわりと熱くなってきて…　ん…」
				ENDIF
			ENDIF
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			IF ABL:Ｖ感覚 >= 3
				PRINTFORMW 「あっ、あちこちにぶつけるみたいにすると…じんじんしてっ%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「きつい…　けど、慣れたら気持ちいいかも…っ」
			ENDIF
		;それ以外
		ELSE
			IF ABL:Ｖ感覚 >= 3
				PRINTFORML 「あく、あ……はぁっ！」
				PRINTFORMW 星はゆっくりとした動きでバイブの感触を味わっている…
			ELSE
				PRINTFORMW 「こういうので広がりすぎちゃったりとかしませんよね…？」
			ENDIF
		ENDIF
		RETURN 1
	;アナルバイブのみ
	ELSEIF TEQUIP:アナルバイブ
		;恋慕
		IF TALENT:恋慕
			;Ｖ挿入中
			IF TEQUIP:50 >= 0
				IF ABL:Ｖ感覚 >= 2 && ABL:Ａ感覚 >= 3
					IF RAND:2 == 0
						PRINTFORML 「んっ、は……ああッ、ふ…んん～ッ%UNICODE(0x2665)%」
						PRINTFORMW 「お腹の中で、あくっ、%MASTERNAME:87%のが…%UNICODE(0x2665)%　それにお尻の中でも…っ%UNICODE(0x2665)%」
						PRINTFORML 星はさらに体中で快楽を得ようとより激しく陰核と乳首を捻りあげた…
						PRINTFORMW 「あ%UNICODE(0x2665)%、これすごいっ！　体中にビリって来ますっ…ああっ、あ…はあぁあっ%UNICODE(0x2665)%！！」
					ELSE
						PRINTFORML 「はぁ、あっ、は……ん、くぅっ！」
						PRINTFORMW 両方の媚穴を埋められての快感に星は腰を震わせながら自慰を続ける
						;これで絶頂する
						IF NOWEX:0 || NOWEX:1 || NOWEX:2 || NOWEX:3
							PRINTFORML 「あ、そろそろ……　…！？　駄目っ！　今激しくされたらっ！　あ、ああっ、ふあぁああぁっ%UNICODE(0x2665)%！！」
							PRINTFORMW 星の絶頂が近いと感じ取ったあなたは激しくスパートをかけ星を一気に追いたてた…
						ENDIF
					ENDIF
				ELSE
					PRINTFORMW 「は、く…んぅ……んっ！　中で擦れて…」
				ENDIF
			ELSE
				IF ABL:Ａ感覚 >= 3
					IF RAND:2 == 0
						PRINTFORML 星はあなたに向かって突き出すように尻を上げ、アナルバイブを動かしている
						PRINTFORMW 「よく見てください…　私がお尻でこんなに太いの咥えこんで悦んでいるところ…%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「あ……ふっ…んん、くぅ…あ、あぅっ、んっ…」
						PRINTFORMW アナルバイブを抜き差しする手が少しずつ速くなっていく
						PRINTFORMW 「お尻…なのにぃ……手が、止まらないんですっ%UNICODE(0x2665)%」
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORMW 「んんぅ…ちょっと苦しいですけど……　でも…　ふっ、あ…」
					ELSE
						PRINTFORMW 「は、ぅ……　お尻、きつい…です」
					ENDIF
				ENDIF
			ENDIF
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			IF ABL:Ａ感覚 >= 3
				PRINTFORML 「ん、お尻でするのも…結構いいかもしれないです」
				PRINTFORMW 「今度一人でするとき……　え！？　いえなんでもないですッ！」
			ELSE
				PRINTFORML 「んん……ぅ、う……う」
				PRINTFORMW まだ肛内を責める圧迫感には慣れないようだ…
			ENDIF
		;それ以外
		ELSE
			IF ABL:Ａ感覚 >= 3
				PRINTFORMW 「お尻でなんて、本当はおかしいのに…んッ%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 「んん……ぅ、う……う」
				PRINTFORMW まだ肛内を責める圧迫感には慣れないようだ…
			ENDIF
		ENDIF
		RETURN 1
	;バイブなし
	;恋慕
	ELSEIF TALENT:恋慕
		;合体してる
		IF TEQUIP:50 >= 0 || TEQUIP:51 >= 0
			;Ｖ挿入中ならＶ感覚、Ａ挿入中ならＡ感覚が2以上
			IF ( TEQUIP:50 >= 0 && ABL:Ｖ感覚 >= 2 ) || ( TEQUIP:51 >= 0 && ABL:Ａ感覚 >= 2)
				;体位ごと
				IF RAND:3 == 0
					SELECTCASE TEQUIP:体位
					;後背系
					CASE 2
						PRINTFORML 「はーっ、あ、んっ……あっ、ああぁっ　ん、はあっ%UNICODE(0x2665)%」
						PRINTFORMW こちらに背を向けているため自慰に耽る星が今どんな表情をしているかは分からない
						PRINTFORMW しかし荒い息と上気した肌、それを伝う汗が彼女がどれだけの快感を受けているのか教えてくれる…
					;騎乗系
					CASE 3
						PRINTFORML 「あく、あっ、あっ、あーっ%UNICODE(0x2665)%」
						PRINTFORMW 星はあなたの上で腰を動かしながら艶めかしく動いている
					CASEELSE
						PRINTFORML 「先っぽもお豆も…中も…蕩けるみたいに熱くて…」
						PRINTFORMW 星はうっとりとした表情で快感に浸っている
					ENDSELECT
				ELSEIF RAND:2 == 0
					PRINTFORMW 「はぁっ♪　お腹の中ごりごりされながらいじると変になっちゃいそうです」
				ELSE
					PRINTFORMW 「ん…　%MASTERNAME:87%に貫かれながら自分でして……　だらしない顔になっちゃいます…ぅ%UNICODE(0x2665)%」
				ENDIF
			ELSE
				PRINTFORML 「ん……　くっ、ぅう……　ふ…」
				PRINTFORMW どうやらまだ慣れない挿入の苦しさを自慰で紛らわせているようだ…
			ENDIF
		;ぱんつかズボンあり
		ELSEIF TEQUIP:0 & 2 || TEQUIP:0 & 8
			PRINTFORMW 「擦るの…きもち、いいっ…　んっ、あ…はあぁ……」
			IF ABL:自慰中毒 >= 3
				PRINTFORML 「ん…でも……もっと…　んんっ！」
				PRINTFORML 布の上からでは刺激が足りないのか星は\@ TEQUIP:0 & 8 ? ズボン # 下着 \@の中に手を入れて直に秘所を弄りまわし始めた…
				PRINTFORMW 「あは…%UNICODE(0x2665)%　やっぱりこっちの方がいいです…　ふあっ%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 星は\@ TEQUIP:0 & 8 ? ズボンの上から指を押しこむようにして # 下着の上から陰核を引っかくようにして \@快楽を貪っている…
			ENDIF
		ELSEIF ABL:露出癖 >= 5
		;本家では露出癖3以上の部分をここに移動してます
			IF RAND:8 == 0
				PRINTFORML 「ほら…見えますか？　私の、恥ずかしいところ…」
				PRINTFORMW 星は二本の指で陰唇を閉じたり開いたりして快感を得ている
				IF PALAM:潤滑 >= PALAMLV:4
					PRINTFORML 指が閉じられるたび粘つく水音とともに愛液が飛び散っている…
					PRINTFORMW 「ふふ…っ　もうこんなにとろとろなんですよ…？」
				ENDIF
			ELSEIF RAND:7 == 0
				PRINTFORML 「きゃうっ！　ん……くぁッ%UNICODE(0x2665)%　……ひうっ！」
				PRINTFORMW 「ああ……　先っぽとお豆、一緒に引っ張るの、すごくいいかもしれません…%UNICODE(0x2665)%」
			ELSEIF RAND:6 == 0
				PRINTFORML 「あぅ…あぁ……%UNICODE(0x2665)%　はっ、あぁあっ！」
				PRINTFORMW 星が秘所を捏ねまわす度に小さな水音が聞こえてくる
				IF PALAM:潤滑 >= PALAMLV:4
					PRINTFORMW
					PRINTFORML 「%MASTERNAME:87%…見てください…　私、自分でいじってこんなになっちゃいました…ぁ%UNICODE(0x2665)%」
					PRINTFORML 星は陰唇を擦っていた手をあなたの顔の前に持ってくると指を広げてみせた
					PRINTFORMW 広げられた指の間には幾筋もの淫蜜の橋がかかっている…
				ENDIF
			ELSEIF RAND:5 == 0
				PRINTFORML 「もう、我慢できません…　%MASTERNAME:87%…してくださいぃ……」
				PRINTFORMW 自分で慰めるだけでは物足りないのか星は誘うように腰を揺すっている
				PRINTFORMW 「してくれないんですかぁ……？　据え膳喰わぬは、ですよぉ…？」
			ELSEIF RAND:4 == 0
				PRINTFORML 星は指の腹全体を使って秘所を擦りあげている
				PRINTFORMW 「おっぱいも…　ん、あ、ふ…%UNICODE(0x2665)%」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「わ、私、シてるとこ、見られてるのにっ…興奮しちゃってます…」
			ELSEIF RAND:2 == 0
				PRINTFORML 「あ、はぁっ%UNICODE(0x2665)%　%MASTERNAME:87%の指っ…気持ちいいですよっ…」
				PRINTFORMW 星はあなたの目の前で、あなたをオカズにして自慰をしている…
			ELSE
				PRINTFORMW 「興奮しますか…？私は、んんっ…いつもこうやって、あなたを想って、はぁっ、シてるんですよ…？」
			ENDIF
		ELSEIF ABL:露出癖 >= 3
			IF RAND:6 == 0
				PRINTFORMW 「どう…ですか？　私が自分でするの見て…興奮してくれてますか？」
			ELSEIF RAND:5 == 0
				PRINTFORMW 「一人でするときはこんな風にしてますって教えてるみたいで…恥ずかしいです」
			ELSEIF RAND:4 == 0
				PRINTFORML 星はまだ少し恥ずかしそうにしているが膣口に指を少しだけ入れてみるなど
				PRINTFORMW その動きには快楽を得ようとするものがあった
			ELSEIF RAND:3 == 0
				PRINTFORMW 「%MASTERNAME:87%、に、見られてるのに、いいっ、気持ちいいんです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「み、見るだけじゃなくて、%MASTERNAME:87%に触って欲しいんですよう…」
			ELSE
				PRINTFORMW 星は顔を羞恥で染めながらも、何かを訴えるようにあなたを濡れた瞳で見つめている…
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「やっぱり無理ですっ、%MASTERNAME:87%の見てる前でなんて、恥ずかしすぎて…！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「っくは、はっ、ああっ、や、やあ…っ」
			ELSE
				PRINTFORMW 「やあ…私がするより、%MASTERNAME:87%にしてもらった方がいいです…」
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF ABL:自慰中毒 >= 3
			PRINTFORML 「ん、あぁ……　気持ちいい…」
			PRINTFORMW 「ふふ…　本当に見ているだけでいいんですか…？」
		ELSE
			PRINTFORMW 「一人でするときはこんな風にしてますって教えてるみたいで…恥ずかしいです」
		ENDIF
	;それ以外
	ELSE
		IF ABL:自慰中毒 >= 3
			PRINTFORML 星はまだ少し恥ずかしそうにしているが膣口に指を少しだけ入れてみるなど
			PRINTFORMW その動きには快楽を得ようとするものがあった
		ELSEIF ABL:露出癖 >= 5
			IF RAND:3 == 0
				PRINTFORMW 「わ、私、シてるとこ、見られてるのにっ…興奮しちゃってます…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「見られてる、のに、指が、止まりませんっ…」
			ELSE
				PRINTFORMW 「興奮しますか…？わ、私も、あなたに見られてっ…燃えちゃいますっ…」
			ENDIF
		ELSEIF ABL:露出癖 >= 3
			IF RAND:3 == 0
				PRINTFORMW 「%MASTERNAME:87%、に、見られてるのに、いいっ、気持ちいいんです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「自分でするより、触って欲しいんですよう…」
			ELSE
				PRINTFORMW 星は顔を羞恥で染めながらも、何かを訴えるようにあなたを濡れた瞳で見つめている…
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORMW 「見られながら一人でするのは…ちょっと恥ずかしいです」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「やっぱり無理ですっ、人前でなんて、恥ずかしすぎて…！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「っくは、はっ、ああっ、や、やあ…っ」
			ELSE
				PRINTFORMW 「やあ…%MASTERNAME:87%にして欲しいです…」
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;※※※※※※※※※※※※※※※※※※※※※※※※※
;ソフト系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;20,キスする
;==================================================
@M_KOJO_MESSAGE_COM_K87_20
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_20_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_20_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		;ファーストキス
		ELSEIF EXP:TARGET:キス経験 == 1
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「初めてのキスはレモンの味、なんて聞きましたけど…」
				PRINTFORML 「レモンなんかよりもずっとずっと素敵でした%UNICODE(0x2665)%」
				PRINTFORMW 星は幸せそうにはにかんでいる…
			ELSEIF ABL:親密 >= 5
				PRINTFORML 「ファーストキス…」
				PRINTFORML 「%MASTERNAME:87%が相手なら悪くないですね♪」
				PRINTFORMW 星はどことなく嬉しそうだ
			ELSE
				PRINTFORML 「い、いきなり何ですかぁ…？」
				PRINTFORMW 「誰かとキスだなんて初めてだったんですからね…　もう…」
			ENDIF
		;ファーストキスは経験済み
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW 「ちゅ…ん…」
				PRINTFORMW 「はぁっ…！%MASTERNAME:87%…%UNICODE(0x2665)%」
			;恋慕なし恋人
			ELSEIF TALENT:恋人
				PRINTFORMW 「ちゅ…ん…」
				PRINTFORMW 「やはりこういう時でも、キスは欠かせないものなんですね」
			ELSE
				PRINTFORMW 「ちゅ…ん、や、ん…」
				PRINTFORMW （やあ…キスされたら、力抜けちゃう…）
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		;Ｖ挿入中
		IF TEQUIP:50 >= 0
			;これでMASTERが射精する
			IF NOWEX:PLAYER:11
				PRINTFORMW 「！　んん…む、んっ、んっ、んっ……んーっ%UNICODE(0x2665)%」
				PRINTFORML あなたの絶頂が近いことを感じ取ったのか
				PRINTFORMW 星も腰を\@ ABL:腰 >= 3 ? くねらせるように動かし # 動かすのを速め \@あなたの射精を促した
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「あむ…ん……っ%UNICODE(0x2665)%　…ぱぁっ、ふふっ♪」
					PRINTFORML 「両方のお口で%MASTERNAME:87%と繋がれて…幸せです♪」
					PRINTFORMW 「だから…もっとしましょう…%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「%MASTERNAME:87%っ%UNICODE(0x2665)%　ちゅ、ん…ちゅ、じゅるっ」
					PRINTFORMW あなたと星は互いに求め合い身体と舌を絡めあった…
				ENDIF
			ENDIF
		ELSE
			IF RAND:6 == 0
				PRINTFORML 「%MASTERNAME:87%……%UNICODE(0x2665)%」
				PRINTFORMW 唇を離した星はあなたを愛おしそうに見つめている
			ELSEIF RAND:5 == 0
				PRINTFORML 「はふ…　ん、む…んん……」
				PRINTFORML 星はあなたの背に腕を回し強く抱きすくめるとより激しく口づけてきた
				PRINTFORMW 「んっ……はむ、ちゅ、ちゅうっ……！　ん…」
			ELSEIF RAND:4 == 0
				PRINTFORMW （ここでキスするの、反則ですよお…）
			ELSEIF RAND:3 == 0
				PRINTFORMW 「んふ…ちゅるっ、ちゅぱ、はぁっ、はぁ…･%MASTERNAME:87%の優しいキス、好きです…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「んん…っ、ちゅぷ、じゅ、ん…ふふっ、キスってすごく愉しいですね…」
			ELSE
				PRINTFORML 「もっと、%MASTERNAME:87%と繋がりたいです…ん、ちゅっ、んんっ…」
				PRINTFORMW 「ぷあ…っ、もっと、もっとです…あむぅ、じゅりゅぅ、んんん…！」
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		;従順3以上　※でTARGETからも舌を絡めてくる
		IF ABL:従順 >= 3
			PRINTFORML 「ちゅる、はむ……れろ、む……」
			PRINTFORMW 目を閉じあなたの舌を受け入れる星の頬には朱が差している
		ELSE
			IF RAND:4 == 0
				PRINTFORML 「ん…んん……む」
				PRINTFORMW 「ふふっ、何だか楽しくなってきてしまいました♪」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ん…ちゅっ、ちゅるっ、ぁむっ、んんっ…」
			ELSEIF RAND:2 == 0
				PRINTFORML 「ぁ…んっ、んちゅ、は、ちゅ…！？っんんっ、んふ、んんっ…！」
				PRINTFORMW 星の口腔内に舌を侵入させると、星は目を白黒させた…
			ELSE
				PRINTFORMW 「ちゅ、ちゅぷ、ちゅぱっ、はぁ…優しいキス、ですね…」
			ENDIF
			RETURN 1
		ENDIF
	;それ以外
	ELSE
		IF ABL:従順 >= 3
			PRINTFORMW 「ふあ……　舌を絡ませただけなのに…なんだか普通のキスよりもどきどきします…」
		ELSE
			IF RAND:4 == 0
				PRINTFORMW 「んく……ん、むー…」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「あ…キスは駄目、駄目ですっ…っぁ、ふむぅ、ちゅっ、ちゅぷ、んんっ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW （ああ、キスされたらっ…頭が痺れて、抵抗できなくなっちゃいます…）
			ELSE
				PRINTFORMW 言葉だけの拒否を遮り、星の唇を優しく啄ばんだ…
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;21,何もしない
;※インサートは外れてしまう。 効率のいいプレイが特に必要ない紅魔系だと道具を使っての放置プレイがメインになるか
;※命蓮寺なので過激なイタズラ時の半覚醒解除にも使う
;==================================================
@M_KOJO_MESSAGE_COM_K87_21
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_21_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_21_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;道具で四ヶ所責め
		IF ( TEQUIP:クリキャップ || TEQUIP:オナホール ) && TEQUIP:バイブ && ( TEQUIP:アナルバイブ || TEQUIP: アナルビーズ ) && TEQUIP:ニプルキャップ
			PRINTFORML 「ふぎっ、あ……ふう゛っ　くっ、ふーっ、うーっ%UNICODE(0x2665)%」
			PRINTFORMW あなたが指一本触れずとも体中の敏感な部分に付けられた淫具が星を責めたてる…
			PRINTFORMW 「う、あ゛……　…な…る…　おかひく、なっちゃ……っ%UNICODE(0x2665)%」
		;二穴
		ELSEIF TEQUIP:バイブ && TEQUIP:アナルバイブ
			IF RAND:2 == 0
				PRINTFORML 「あ、やぁ……　このままなんて嫌ですよぉ…%UNICODE(0x2665)%」
				PRINTFORMW 「%MASTERNAME:87%…して、くださ…い」
				PRINTFORMW 星は腰を揺らして両穴への刺激に悶えている…
			ELSE
				PRINTFORML 「は、ぁ……　前も後ろも…熱い…です……」
				PRINTFORMW 星は両穴を埋める感覚に熱の籠った溜息をついた…
			ENDIF
		;なんかつけてる
		;※個別にできたらここから削って上に
		ELSEIF TEQUIP:クリキャップ || TEQUIP:オナホール || TEQUIP:バイブ || TEQUIP:アナルバイブ || TEQUIP: アナルビーズ || TEQUIP:ニプルキャップ || TEQUIP:搾乳機
			PRINTFORML 「休むならこれ、外してくれないと……んうっ%UNICODE(0x2665)%」
			PRINTFORMW 取り付けた性具のもたらす刺激に星は身を震わせている…
		ELSE
		;欲情3以上　※で、息を荒げ始める
			IF PALAM:欲情 >= PALAMLV:3
				IF RAND:2 == 0
					PRINTFORML 「少し休んだらいっぱいして下さいね♪」
					PRINTFORMW 星は赤みのさした顔であなたにほほ笑みを見せた
				ELSE
					PRINTFORMW 「はっ、あ……　何もしてくれないんですか…？」
				ENDIF
			ELSEIF RAND:3 == 0
				PRINTFORMW 「ん…ギュってしてください…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「手、繋いでください…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「あ…休憩ですか？」
			ENDIF
		ENDIF
		RETURN 1
	;欲情3以上
	ELSEIF PALAM:欲情 >= PALAMLV:3
		IF RAND:4 == 0
			PRINTFORMW 「ん…からだ、熱い……」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「あ…？ど、どうしたのですか…？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「そ、その…うう」
		ELSE
			PRINTFORMW 「あ、その…止めないで下さい…」
		ENDIF
		RETURN 1
	;それ以外
	;/自らの痴態を省みてあわてる星ちゃん可愛い
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「や、やっぱり駄目ですよこんなこと…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「うう…恥ずかしさで死にそうです…」
		ELSE
			PRINTFORMW 「きゅ、急にものすごく恥ずかしくなってきました…」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;道具系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;40,ローター
;==================================================
@M_KOJO_MESSAGE_COM_K87_40
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_40_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_40_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,0)
			PRINTFORML 「それ、い、今使うんですか」
			PRINTFORML 「んんぅ、く…ああっ%UNICODE(0x2665)%」
			PRINTFORMW ローターの振動に星は嬌声をあげた…
		ELSE
			PRINTFORML 「もう…いつの間にそんなもの買ってきたんですか…んっ」
			PRINTFORMW 咎めるような物言いだったがローターを押し当てると星は眉を寄せて息を詰まらせた
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;ふたなり
		IF TALENT:2 == 3
			PRINTFORML 「ふあ、入口ぃ…　びりびりして…っ」
			PRINTFORMW 膣口をなぞるようにローターを動かすと星は震えるような喘ぎ声を漏らした
			PRINTFORMW 秘唇の上で陰茎が力強く脈動している…
		ELSE
			;Ｃ感覚3以上
			IF ABL:Ｃ感覚 >= 3
				IF RAND:4 == 0
					PRINTFORML 「あはぁ…痺れてるみたいなのに気持ちいいです…%UNICODE(0x2665)%」
					PRINTFORML 星は荒く息を吐きながら感じ入っている
					PRINTFORMW さらに陰核をローターと指で挟んで揉み込むと嬌声をあげて身悶えた
					PRINTFORMW 「そんな、お豆潰しちゃ…ひあ゛ぁっ%UNICODE(0x2665)%」
				ELSEIF RAND:3 == 0
					PRINTFORML 「ふうあっ、くあ%UNICODE(0x2665)%　お豆、震え…激しいっ%UNICODE(0x2665)%」
					PRINTFORMW 星の肉芽はローターの激しい振動に翻弄されている
					PRINTFORML 「強いぃ…%UNICODE(0x2665)%　これ以上はぁ…%UNICODE(0x2665)%」
					PRINTFORMW ローターを離すころにはその顔はすっかり緩んでいた…
				ELSEIF RAND:2 == 0
					PRINTFORML 「ひう、ああぁあっ%UNICODE(0x2665)%　ふあ、ああんっ%UNICODE(0x2665)%」
					PRINTFORMW 連続して襲いかかる快感の波に星は涙を浮かべて悶えている
				ELSE
					PRINTFORML 「ああ…うぁあ…駄目…です…っ%UNICODE(0x2665)%」
					PRINTFORML 「ほんとは修行に使うんですぅ…エッチなことに使うんじゃないんですぅ…%UNICODE(0x2665)%」
					PRINTFORMW 星は何か訴えているがぐずぐずに溶けた声ではよく聞こえない
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「んっ、うぁ…ふ、あ……%UNICODE(0x2665)%」
					PRINTFORMW ローターが陰核の先端に触れるだけでも星は声を震わせている
				ELSE
					PRINTFORML 「やあっ！　そんなに強く押しつけられたらっ」
					PRINTFORMW 星は強すぎる刺激に首を振りたくって悶えた
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		;Ｃ感覚3以上
			IF ABL:Ｃ感覚 >= 3
				IF RAND:2 == 0
					PRINTFORML 「ふう、ん、んん～～っ%UNICODE(0x2665)%」
					PRINTFORMW 星は結んだ唇を震わせながら目を潤ませている
					PRINTFORMW 強すぎる快楽に打ち震えているようだ…
				ELSE
					PRINTFORML 「あは、早く当ててください%UNICODE(0x2665)%」
					PRINTFORMW 星はあなたの手に握られているローターをうっとりした目で見つめている…
				ENDIF
			ELSE
				PRINTFORML 「な、何だかくすぐったいような……ひゃうっ」
				PRINTFORML 星は時々小さく色づいた声をあげている
				PRINTFORMW まだ強い快感を得られてはいないようだが感じているのも確かのようだ
			ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;41,Ｅマッサージャ
;==================================================
@M_KOJO_MESSAGE_COM_K87_41
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_41_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_41_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,1)
			PRINTFORML 「あ…それはこの間のマッサージ機い゛ぃっ！？」
			PRINTFORMW 星の股間に電気あんまを押しつけてスイッチを入れるとその刺激に星の声が跳ねあがった
			PRINTFORMW 「お店のひとが言ってた別の使い方ってこれのことだったんですかぁ！？」
		ELSE
			PRINTFORML %CALLNAME:TARGET%の秘所に\@ TEQUIP:0 > 1 ? %SHOW_BOTTOM(TARGET)%の上から # \@振動している電気あんまを押しつけた
			PRINTFORMW 「ふ、うあっ…くあっ…」
			PRINTFORMW 「こんな、やらしい道具なんてどこから持ってきたんですかぁ…？」
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;なんか履いてる
		IF TEQUIP:0 > 1
			IF RAND:2 == 0
				PRINTFORML 「あぁ……%UNICODE(0x2665)%　上からじゃ……」
				PRINTFORMW 直接的な刺激でないもどかしさに星は腰を揺らして悶えている…
			ELSE
				PRINTFORML 星は両手を頬に当てて快楽に打ち震えている
				PRINTFORMW 「うああっ、震えて、え…っ%UNICODE(0x2665)%」
				;潤滑4以上
				SIF PALAM:潤滑 >= PALAMLV:4
				PRINTFORMW 布越しにぐちぐちと愛液のかき混ざる音が聞こえてくる…
			ENDIF
		;Ｃ感覚3未満＋欲情3未満
		ELSEIF ABL:Ｃ感覚 < 3 && PALAM:欲情 < PALAMLV:3
			PRINTFORML 「ふあっ、ふ…あは、ちょっと、くすぐったいですよお」
			PRINTFORMW まだマッサージャの感覚には慣れないようだ
		;Ｃ感覚3未満＋欲情3以上
		ELSEIF ABL:Ｃ感覚 < 3 && PALAM:欲情 >= PALAMLV:3
			PRINTFORML 「あ……く……」
			PRINTFORMW 秘所を激しく揺すられる感覚に少しずつ感じてきているようだ
		;Ｃ感覚4以上＋欲情の3未満
		ELSEIF ABL:Ｃ感覚 >= 4 && PALAM:欲情 < PALAMLV:3
			PRINTFORML 「あはぁっ%UNICODE(0x2665)%　すごいぃ…%UNICODE(0x2665)%」
			PRINTFORMW 「もっと、もっとえっちな按摩かけてください……」
			PRINTFORMW 星はマッサージャに押しつけるように腰を突き出した…
		;Ｃ感覚4以上＋欲情3以上＋欲情5未満
		ELSEIF ABL:Ｃ感覚 >= 4 && PALAM:欲情 >= PALAMLV:3 && PALAM:欲情 < PALAMLV:5
			IF RAND:2 == 0
				PRINTFORML 「%MASTERNAME:87%、%MASTERNAME:87%…っ　強いの、どんどんきて…っ%UNICODE(0x2665)%」
				PRINTFORMW 脚はだらしなく広がり時折思い出したように痙攣させている…
			ELSE
				PRINTFORML 「%MASTERNAME:87%…　もっと、強くしてください…%UNICODE(0x2665)%」
				PRINTFORMW 「あふうっ、あ、あんっ！　あぁ…いいですぅ……%UNICODE(0x2665)%」
			ENDIF
		;Ｃ感覚4以上＋欲情5以上
		ELSEIF ABL:Ｃ感覚 >= 4 && PALAM:欲情 >= PALAMLV:5
			IF RAND:3 == 0
				PRINTFORML 「ひう゛っ%UNICODE(0x2665)%！　今ぐりって押しつけちゃダメですうっ%UNICODE(0x2665)%！」
				PRINTFORML 軽い絶頂感を得ている星に追い打ちをかけてやると身体を激しく揺らして反応した
				PRINTFORMW 噴き出した愛液がマッサージャの先に絡みついている…
			ELSEIF RAND:2 == 0
				PRINTFORML 「あんぅ…%UNICODE(0x2665)%　\@ GETBIT(CFLAG:1003,1) ? お店のひとが言ってた通り…っ # 止まらないっ！ \@　すごく気持ちいいんですっ%UNICODE(0x2665)%」
				PRINTFORMW 「このお腹の中までが震わされるような感じ%UNICODE(0x2665)%　癖になりそうですっ%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 「ふあ、%MASTERNAME:87%…っ　あっ、くああぁあっ%UNICODE(0x2665)%！？」
				PRINTFORMW 無意識に脚を閉じてしまった星は強まる性感に嬌声をあげた
				PRINTFORML 「うあ゛あぁあ…　動けな、いいぃ……%UNICODE(0x2665)%%UNICODE(0x2665)%」
				PRINTFORMW 驚いて固まったのか身体が快楽を逃すまいとしているのか星は脚をとじたまま秘所を刺激され続けている…
			ENDIF
		;Ｃ感覚3＋欲情3未満
		ELSEIF ABL:Ｃ感覚 == 3 && PALAM:欲情 < PALAMLV:3
			PRINTFORMW 「んふ…、く、あぁ…ぶるぶる…します%UNICODE(0x2665)%」
		;Ｃ感覚3＋欲情3以上5未満
		ELSEIF ABL:Ｃ感覚 == 3 && PALAM:欲情 >= PALAMLV:3 && PALAM:欲情 < PALAMLV:5
			PRINTFORML 「あそこがじりじりして…%UNICODE(0x2665)%　あぁ…%UNICODE(0x2665)%」
			PRINTFORMW 星の口からは時折熱い溜息が漏れだしている…
		;Ｃ感覚3＋欲情5以上
		ELSEIF ABL:Ｃ感覚 == 3 && PALAM:欲情 >= PALAMLV:5
			PRINTFORML 今にも絶頂に達してしまいそうな様子だ…
			PRINTFORMW 「ひううっ%UNICODE(0x2665)%　あそこのじりじりが…どんどん強くなってぇ…っ」
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		;Ｃ感覚3未満
		IF ABL:Ｃ感覚 < 3
			PRINTFORMW 「はう、ん……んんぅ…」
		ELSE
			PRINTFORML 「あそこがじりじりして…%UNICODE(0x2665)%　あぁ…%UNICODE(0x2665)%」
			PRINTFORMW 星の口からは時折熱い溜息が漏れだしている…
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;42,クリキャップ
;==================================================
@M_KOJO_MESSAGE_COM_K87_42
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_42_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_42_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,2)
			PRINTFORML 「あ、それは山で買っていた…」
			PRINTFORML 「え？　お豆につけ……ふいぃ！？」
			PRINTFORMW 取りつけたクリキャップのスイッチを入れると星はすぐさま腰を跳ねさせた
			IF ABL:Ｃ感覚 >= 3
				PRINTFORML 「ひ、あっ%UNICODE(0x2665)%　これ、すごいっ%UNICODE(0x2665)%」
				PRINTFORML 「他にも色々あったから…っ　ふああぁ%UNICODE(0x2665)%」
				PRINTFORMW 様々なタイプのクリキャップがあったことを思い出した星は期待に身体を震わせた
			ENDIF
		ELSE
			PRINTFORML 「お豆につける器具…こんなの誰が思いつくんでしょうね…」
			PRINTFORMW 「んん…く、ふ…っ」
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:クリキャップ
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		;恋慕
		ELSEIF TALENT:恋慕
			;Ｃ感覚3以上
			IF ABL:Ｃ感覚 >= 3
				IF RAND:4 == 0
					PRINTFORML 「んう、あ、くあぁっ%UNICODE(0x2665)%」
					PRINTFORMW 紐のようなパーツに星の陰核の先端が何度も撫でつけられている
					PRINTFORMW 「一番先っぽだけ擦られるなんて…こんなの…っ%UNICODE(0x2665)%」
				ELSEIF RAND:3 == 0
					PRINTFORML 「ひう…%UNICODE(0x2665)%　吸われ……んあう%UNICODE(0x2665)%！？」
					PRINTFORMW 吸い上げられた肉豆をイボ付きの電動ゴムキャップが迎え入れて捏ねまわす
					PRINTFORMW 「こんな小さい道具のどこにこんなに機械が…うああぁっ%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORML 「あふあっ%UNICODE(0x2665)%　これ、強すぎ……ふえ！？　%MASTERNAME:87%！？」
					PRINTFORML 電動クリキャップの強烈な刺激に星は思わず手を伸ばすがあなたに手を取られて取り外すことができない
					PRINTFORMW どうにかして快楽を逃そうと腰を引かせるもしっかり張り付いたクリキャップの快楽から逃れることはできない…
					PRINTFORMW 「や、駄目、%MASTERNAME:87%、離してぇ…っ%UNICODE(0x2665)%」
				ELSE
					PRINTFORML クリキャップに付属した小型ブラシが皮を剥かれた無防備な肉芯を挟み込んで擦りあげる
					PRINTFORMW 「ひう゛うぅ%UNICODE(0x2665)%　お豆、磨かれてますぅっ%UNICODE(0x2665)%」
					PRINTFORMW 星は口の端から涎をこぼしながら陰核ブラシ責めに悶えている
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「うあ、中、動いてる…」
					PRINTFORMW クリキャップの収縮するような動きに星は身をよじった
				ELSE
					PRINTFORML 「んっ…吸われて…ひあっ%UNICODE(0x2665)%」
					PRINTFORMW 皮の中から敏感な肉芽を吸い出され星は小さく喘ぎ声を漏らした
				ENDIF
			ENDIF
			RETURN 1
		;それ以外
		ELSE
			;Ｃ感覚3以上
			IF ABL:Ｃ感覚 >= 3
				IF RAND:2 == 0
					PRINTFORML 「ふ、あ…激し…%UNICODE(0x2665)%」
					PRINTFORML 手持ちのうち最も振動の強いものを陰核へと取りつけた
					PRINTFORMW 星は顔を緩ませて快楽に喘いでいる…
				ELSE
					PRINTFORML 「あはぁ%UNICODE(0x2665)%　思い切り吸われるの、気持ちいいです%UNICODE(0x2665)%」
					PRINTFORMW 星は秘芯を吸われる感触に鼻にかかった声をあげた
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「くあ、中、動いてる…」
					PRINTFORMW クリキャップの収縮するような動きに星は身をよじった
				ELSE
					PRINTFORML 「んっ…吸われて…ひあっ%UNICODE(0x2665)%」
					PRINTFORMW 皮の中から敏感な肉芽を吸い出され星は小さく喘ぎ声を漏らした
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	;解除
	ELSE
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;Ｃ感覚3以上
		ELSEIF ABL:Ｃ感覚 >= 3
			;連続
			IF PREVCOM == SELECTCOM
				PRINTFORML 「あ…ん…%UNICODE(0x2665)%　え？　もう取っちゃうんですか…？」
				PRINTFORMW 「いえ、取っちゃ嫌、というわけじゃないですけど…」
			ELSEIF RAND:3 == 0
				PRINTFORML 「ふあうっ%UNICODE(0x2665)%！」
				PRINTFORMW 「電源切らずに取らないでくださいよぉ…」
			ELSEIF RAND:2 == 0
				PRINTFORML 「まだお豆苛められてるみたいに痺れて…%UNICODE(0x2665)%」
				PRINTFORMW クリキャップを外されても星の秘芯はいまだ責められる快感を星に伝えているようだ
				;Ｖ挿入してない、バイブつけてない
				SIF !(TEQUIP:50 >= 0 || TEQUIP:バイブ)
				PRINTFORMW その下では蕩けた膣口が白く濁った蜜を湛えている…
			ELSE
				PRINTFORML 「ああ…お豆…がぁ……%UNICODE(0x2665)%」
				PRINTFORMW 星は快楽に虚ろになりながら熱い吐息をこぼしている
				PRINTFORMW その秘所では充血しきった陰核が硬く尖りながら震えている…
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「は…ぁ…」
				PRINTFORMW 「休まずに動かれ続けるのはさすがに辛いですね」
				PRINTFORMW 「気持ちよくない…わけじゃないですけど…」
			ELSE
				PRINTFORML 「んっ…ふ…」
				PRINTFORMW 「外すだけでもちょっと気持ちいいのはずるい…です」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;43,オナホール
;※封印コマンド、しかもただ解除するだけでは正常動作しない　COMF43.ERBの着脱の処理をTEQUIP:オナホール = !TEQUIP:オナホールにすれば一応は動く
;==================================================
@M_KOJO_MESSAGE_COM_K87_43
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_43_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_43_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:オナホール
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
	ENDIF
ENDIF
RETURN 1

;==================================================
;44,バイブ
;==================================================
@M_KOJO_MESSAGE_COM_K87_44
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_44_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_44_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		ELSEIF TCVAR:破瓜 == 1
			IF TALENT:恋慕
				;MASTERが女性
				IF TALENT:PLAYER:2 == 1
					PRINTFORML 「%MASTERNAME:87%…私……」
					PRINTFORMW 「いえ…仕方がないですもんね」
				ELSE
					PRINTFORML 「初めては%MASTERNAME:87%にしてほしかったのに…」
					PRINTFORML 「私が相手じゃ…嫌なんですか……？」
					PRINTFORMW その目にはうっすらと涙が浮かんでいる…
				ENDIF
			ELSE
			;※一線越えないを持っている
				PRINTFORML 「こんな…こんなのってないです…」
				PRINTFORMW 「でも…%MASTERNAME:87%がそれで良いなら…」
			ENDIF
			RETURN 1
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,4)
			PRINTFORML 「んん……ふ、うっ…」
			;Ｖ経験20以下
			IF EXP:Ｖ経験 <= 20
				PRINTFORMW 「よくできてるって言ってましたけど…やっぱり苦しいです…」
			ELSE
				PRINTFORML 「確かに、言うだけあって…結構、すごい、です…っ%UNICODE(0x2665)%」
				PRINTFORMW 初めてのバイブのもたらす刺激に星は感じ入っている…
			ENDIF
			RETURN 1
		ELSE
			;Ｖ経験20以下
			IF EXP:Ｖ経験 <= 20
				PRINTFORML 「こんなものまで用意して…やらしい人ですね…」
				PRINTFORMW 少し非難の混じった表情で星は自らの内に沈むバイブを眺めている
			ELSE
				PRINTFORML 「作り物なのに…ふうっ%UNICODE(0x2665)%　なかなか…%UNICODE(0x2665)%」
				PRINTFORMW 初めてのバイブのもたらす刺激に星は感じ入っている…
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:バイブ
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		;恋慕
		ELSEIF TALENT:恋慕
			;Ｖ挿入していた
			IF TCVAR:100 == PLAYER
				;Ｖ経験20以下
				IF EXP:Ｖ経験 <= 20
					PRINTFORML 「んぅ……きつ、い…止めてくださいぃ…」
					PRINTFORMW 星は眉をひそめているがその頬は微かに染まり快感を感じていることを示している…
				;Ｖ中出しの直後
				ELSEIF TCVAR:102
					PRINTFORML 「ふあぁ…%UNICODE(0x2665)%　蓋されちゃいましたぁ…%UNICODE(0x2665)%」
					PRINTFORMW たっぷりと白濁を注ぎ込んだ膣内へとバイブを押しこむと星は表情を緩ませて溜息をこぼした…
				ELSE
					PRINTFORML 「あっ抜いちゃ…くああぁあっ！」
					PRINTFORMW 新たに突き込まれたバイブの感覚に星は目をつむり声を震わせた
				ENDIF
			ELSE
				;Ｖ感覚1以下
				IF ABL:Ｖ感覚 <= 1
					PRINTFORML 「まだ、慣れてないんですから…っ　そんな突き込まないでください」
					PRINTFORMW 星は眉をひそめているがその頬は微かに染まり快感を感じていることを示している…
				ELSE
					IF RAND:4 == 0
						PRINTFORML 「あ、はっ…%UNICODE(0x2665)%　中でうねって…」
						PRINTFORMW 「こんなに激しく動いてると…すぐに来ちゃいそうです%UNICODE(0x2665)%」
					ELSEIF RAND:3 == 0
						PRINTFORML 「んもう、またですか%UNICODE(0x2665)%」
						PRINTFORML 「いいですよ…奥まで差し込んでください…」
						PRINTFORMW 星は力を抜いてバイブレーターを受け入れた…
					ELSEIF RAND:2 == 0
						PRINTFORML 「ひう、あ…ぐりぐり動いて…%UNICODE(0x2665)%」
						PRINTFORMW 男根では不可能な動きに星は腰を震わせて悶えている…
					ELSE
						PRINTFORML 「ん…もっと上…っ」
						PRINTFORMW 星はバイブの端を持つと自ら奥へと押し上げた
						PRINTFORMW 「ああぁ…きもちいいところに当たります%UNICODE(0x2665)%」
					ENDIF
				ENDIF
			ENDIF
			RETURN 1
		;それ以外
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				PRINTFORML 「んぅ……きつ、い…止めてくださいぃ…」
				PRINTFORMW 星は眉をひそめているがその頬は微かに染まり快感を感じていることを示している…
			ELSE
				IF RAND:2 == 0
					PRINTFORML 「こんなに硬くて太いのに、咥えこんじゃってます…」
					PRINTFORMW 星はうっとりとした声で呟いた…
				ELSE
					PRINTFORML 「は、あ、あ……」
					PRINTFORMW バイブの振動が星の秘所を責め立てる…
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	;解除
	ELSE
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		;恋慕
		ELSEIF TALENT:恋慕
			;Ｖ経験200以上
			IF EXP:Ｖ経験 > 200
				IF RAND:2 == 0
					PRINTFORML 「うあぁっ…　早く、次、ください…っ」
					PRINTFORML 「指でも棒でも、もう、なんでもいいですからぁ…っ！」
					PRINTFORMW 星はねだるようにひくつく秘所を突き出している…
				ELSE
					;MASTERについている
					IF TALENT:PLAYER:2 & 2
						PRINTFORML 「もう我慢、できません…っ」
						PRINTFORMW 「%MASTERNAME:87%のおっ、欲しいですっ！」
						PRINTFORMW 「奥まで突き込んで、滅茶苦茶にして……気持ちよくしてくださいいぃっ！！」
					ELSE
						PRINTFORML 「うう…く、あぁ…っ」
						PRINTFORMW 「%MASTERNAME:87%、もっとぉ…%UNICODE(0x2665)%」
						PRINTFORMW 「%MASTERNAME:87%がしてくれないとおかしくなっちゃいますよぉ…」
					ENDIF
				ENDIF
			;Ｖ経験120以上
			ELSEIF EXP:Ｖ経験 > 120
				IF RAND:2 == 0
					PRINTFORML 「あは…おつゆ止まらなくなっちゃいましたぁ…」
					PRINTFORMW 星はすっかり蕩けきった表情で蜜を散らす自分の秘所を眺めている…
				ELSE
					PRINTFORML 「私のここ…もうすっかりどろどろです%UNICODE(0x2665)%」
					PRINTFORMW 「ほらぁ、指がこんなに…%UNICODE(0x2665)%」
					PRINTFORMW 星は幾本もの指を膣口へと差し込み淫液を絡めている…
				ENDIF
			;Ｖ経験70以上
			ELSEIF EXP:Ｖ経験 > 70
				IF RAND:2 == 0
					PRINTFORML 「あの、%MASTERNAME:87%…」
					;MASTERについている
					IF TALENT:PLAYER:2 & 2
						PRINTFORML 「次は本物が欲しいです……%UNICODE(0x2665)%」
						PRINTFORMW 星は物欲しそうな瞳で見つめてきている
					ELSE
						PRINTFORML 「今度は直接触れ合いたいです…」
						PRINTFORMW 星はあなたを求めるように身体を摺り寄せてきた…
					ENDIF
				ELSE
					PRINTFORML 「これで終わりじゃないですよね…？」
					PRINTFORML 星は甘えるような声色で訪ねてきた
					PRINTFORMW どうやら続きを期待しているようだ…
				ENDIF
			;Ｖ経験40以上
			ELSEIF EXP:Ｖ経験 > 40
				IF RAND:2 == 0
					PRINTFORML 「あ、はぁ……」
					PRINTFORML 「今度はどんなことしてくれるんですか…%UNICODE(0x2665)%」
					PRINTFORMW 星は淫蕩な視線をあなたに向けている
				ELSE
					PRINTFORML 「ふぁ、まだ中で動いているみたいです%UNICODE(0x2665)%」
					PRINTFORMW 星はバイブの余韻に浸っている…
				ENDIF
			;Ｖ経験20以上
			ELSEIF EXP:Ｖ経験 > 20
				PRINTFORML 「ああ…こんなにぽっかり…」
				PRINTFORMW 「元に戻らなくなったらどうするんですかぁ…？」
			;それ以外
			ELSE
				PRINTFORML 「んっ……ふう…」
				PRINTFORMW 「やっぱりあんまりきついのは…ですね」
			ENDIF
		;それ以外
		ELSE
			;Ｖ経験20以下
			IF EXP:Ｖ経験 <= 20
				PRINTFORML 「んっ……ふう…」
				PRINTFORMW 「やっぱりあんまりきついのは…ですね」
			ELSE
				PRINTFORML 「あは…%UNICODE(0x2665)%」
				PRINTFORMW 「引き抜くだけでもこんなに気持ちいいなんて…%UNICODE(0x2665)%」
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;45,アナルバイブ
;==================================================
@M_KOJO_MESSAGE_COM_K87_45
;※Ａ感覚4以上かつ淫乱でないときは地の文を呼ばないが初めてのときは呼ぶ
SIF !(ABL:Ａ感覚 >= 4 && !TALENT:淫乱) || FIRSTTIME(SELECTCOM)
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_45_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_45_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,5)
			PRINTFORML 「う…それは…この間の…」
			PRINTFORML 「あう、く…ふあ……」
			;Ａ経験40以上
			IF EXP:Ａ経験 > 40
				PRINTFORMW 「あ…見た目よりもずっと太い…っ%UNICODE(0x2665)%」
			;Ａ経験20以上
			ELSEIF EXP:Ａ経験 > 20
				PRINTFORMW 「お尻、広がって…恥ずかしい…」
			;それ以外
			ELSE
				PRINTFORMW 「こんな、のお…っ」
			ENDIF
		ELSE
			PRINTFORML 「お尻に入れる道具ってそんな…」
			PRINTFORMW 「あう…不思議な、感じ、です…」
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:アナルバイブ
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		;恋慕
		ELSEIF TALENT:恋慕
			;Ａ感覚4以上、淫乱でない
			IF ABL:Ａ感覚 >= 4 && !TALENT:淫乱
				DRAWLINE
				PRINTFORM %CALLNAME:TARGET%の
				SIF TEQUIP:0 & 2
				PRINTFORM %SHOW_BOTTOM(TARGET,2)%をずらし、
				;潤滑LV4以上
				SIF PALAM:潤滑 >= PALAMLV:4
				PRINT 粘液にまみれた
				PRINTFORML アヌスにバイブを挿し込んだ
				PRINTFORML
				IF RAND:2 == 0
					PRINTFORML 「っひあ゛ぁあ……%UNICODE(0x2665)%　奥まで…きてます%UNICODE(0x2665)%」
					PRINTFORMW 星はバイブを深々と挿入され思わず甘い声をあげた
					PRINTFORMW 「まだ動かしちゃ…んいぃっ！%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「あはぁ…お尻…いっぱい…%UNICODE(0x2665)%」
					PRINTFORML アナルバイブに肛内を押し広げられる感覚に星は恍惚としている
					PRINTFORMW さらなる快感を得ようと手をアナルバイブへと伸ばしている…
				ENDIF
			;Ａ経験40以上
			ELSEIF EXP:Ａ経験 > 40
				IF RAND:2 == 0
					PRINTFORML 「私のお尻…こんな、咥えこむみたいに…」
					PRINTFORML 星は深々と挿入されたバイブを眺めている
					PRINTFORMW バイブを突き立てられているアヌスが吸い付くような水音をたてた…
				ELSE
					PRINTFORMW 「お尻で気持ちよくなんて本当は駄目…駄目なんですけどぉ……」
					PRINTFORML 星は困ったように挿入される様を見つめていたが
					PRINTFORMW アナルバイブに腸壁を押し分けられると切なそうな声を漏らした
				ENDIF
			;Ａ経験20以上
			ELSEIF EXP:Ａ経験 > 20
				PRINTFORML 「あ…は、ふ…ぅっ」
				PRINTFORMW 絞り出すように吐かれる息には熱が籠っている…
			;それ以外
			ELSE
				PRINTFORML 「こんなものをお尻に入れられて…っ」
				PRINTFORMW 「気持ちいいなんてあるわけないじゃないですかっ」
			ENDIF
			RETURN 1
		;それ以外
		ELSE
			;Ａ経験40以上
			IF EXP:Ａ経験 > 40
				PRINTFORML 「う…またこの道具ですか…」
				PRINTFORMW 「嫌かって……分かってるくせに…」
			;Ａ経験20以上
			ELSEIF EXP:Ａ経験 > 20
				PRINTFORML 「あ…は、ふ…ぅっ」
				PRINTFORMW 絞り出すように吐かれる息には熱が籠っている…
			;それ以外
			ELSE
				PRINTFORML 「こんなものをお尻に入れられて…っ」
				PRINTFORMW 「気持ちいいなんてあるわけないじゃないですかっ」
			ENDIF
			RETURN 1
		ENDIF
	;解除
	ELSE
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;Ａ感覚4以上、淫乱でない
		ELSEIF ABL:Ａ感覚 >= 4 && !TALENT:淫乱
			DRAWLINE
			PRINTFORML %CALLNAME:TARGET%のアヌスからアナルバイブを抜いた
			PRINTFORML
			IF RAND:3 == 0
				PRINTFORMW 「ふ、ぁ……まだ中に入っているみたいです」
				PRINTFORMW 荒く息をつく星のアヌスは開いたまま震えるようにひくついている
			ELSEIF RAND:2 == 0
				PRINTFORML 「～～～っ%UNICODE(0x2665)%！！」
				PRINTFORMW 星は口元に手をやり快楽の絶叫を抑えようとしている
				PRINTFORMW しかし下半身の両穴は我慢できずに粘液の飛沫を散らした…
			ELSE
				PRINTFORML 「んんぅっ！　あ…は…ぁ」
				PRINTFORML 引き抜く際の衝撃だけで星は軽く達したようだ…
				PRINTFORMW (もう私のお尻、すっかり…%UNICODE(0x2665)%)
			ENDIF
		;Ａ経験40以上
		ELSEIF EXP:Ａ経験 > 40
			PRINTFORML 「終わり…でいいんですよね…？」
			PRINTFORMW (抜かれるときにびりっ、て気持ちよくなっちゃいました……これに慣れてしまったら私…)
		;Ａ経験20以上
		ELSEIF EXP:Ａ経験 > 20
			IF RAND:2 == 0
				PRINTFORMW 「お腹の中、全部引き抜かれちゃうかと思いました…」
			ELSE
				PRINTFORMW 「うう…お尻の感じ、まだおかしくなってます…」
			ENDIF
		;それ以外
		ELSE
			PRINTFORML 「ふ、う…くっ…」
			PRINTFORMW 星は肩を震わせながら荒い息をついている
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;46,アナルビーズ
;※封印コマンド
;==================================================
@M_KOJO_MESSAGE_COM_K87_46
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_46_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_46_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,6)
			;Ａ感覚4以上
			IF ABL:Ａ感覚 >= 4
				PRINTFORML 「あぁ…それ、入れてもらえるんですね…%UNICODE(0x2665)%」
				PRINTFORMW 星の瞳からはいつかアナルビーズを使われることを期待していたのが見てとれる
				PRINTFORMW 「あは、はいってくる…」
			ELSE
				PRINTFORMW 「本当に、使うんですか…？」
				PRINTFORMW 「ダメじゃないですけど……　ふ、う……っ　くっ…」
				PRINTFORMW 星は肛内に入りこむ異物感に息を詰まらせている…
			ENDIF
		ELSE
			PRINTFORML 「そのつぶつぶは一体…」
			PRINTFORM 「え、お尻！？　ちょっと待ってくださ…
			IF ABL:Ａ感覚 >= 4
				PRINTFORML んああうっ！」
				PRINTFORMW 尻穴へと強く押しこまれた星は思わず甘い声をあげた
			ELSE
				PRINTFORML いうっ、くあ…っ」
				PRINTFORMW 尻穴へと強く押しこまれた星は顔をしかめて異物感を堪えている…
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:アナルビーズ
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;恋慕
		ELSEIF TALENT:恋慕
			;Ａ感覚4以上
			IF ABL:Ａ感覚 >= 4
				IF RAND:4 == 0
					PRINTFORML 「ん…くぅっ%UNICODE(0x2665)%　全部、入りましたか…？」
					PRINTFORMW 「あぁ…まだ、残ってる…%UNICODE(0x2665)%」
					PRINTFORMW まだ全ての粒が入りきっていない事を知った星はうっとりとした声で呟いた
				ELSEIF RAND:3 == 0
					PRINTFORML 星の体内では腸の動きに合わせて体内のビーズが擦りつけられている
					PRINTFORML 「はぁ、はぁ…んくっ、お腹の中でごりってして…」
					PRINTFORMW 「あは、すごい…%UNICODE(0x2665)%　一個一個が気持ちいい…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「どんどん入れてください…　お尻、いっぱいに…%UNICODE(0x2665)%」
					PRINTFORML すっかり開発された星のアヌスは大粒の玉を難なく飲みこんでいく
					PRINTFORMW 「うあ゛うっ%UNICODE(0x2665)%　ふ、大っきいっ%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 「ふいっ、あ、ふ、ああんっ%UNICODE(0x2665)%！」
					PRINTFORMW ビーズがひとつ入る度に媚びるような声があがる
					PRINTFORMW 全てのビーズを入れ終わるころにはその表情はすっかり緩み切っていた…
				ENDIF
			;Ａ感覚2以上
			ELSEIF ABL:Ａ感覚 >= 2
				IF RAND:2 == 0
					PRINTFORML 「全部、入りましたか…？」
					PRINTFORMW 「あぁ…まだ、残ってる…」
				ELSE
					PRINTFORML 「んう……ふ、う…」
					PRINTFORMW 「こんなに入りませんってばぁ…」
					PRINTFORMW 次々と入りこむビーズの圧迫感に星は身体を震わせている…
				ENDIF
			ELSE
				PRINTFORML 直腸の押し返そうとする動きを堪能しながらアナルビーズを押しこんでいく…
				PRINTFORMW 「は…う…無理ですって、くう……」
			ENDIF
			RETURN 1
		;それ以外
		ELSE
			;Ａ感覚4以上
			IF ABL:Ａ感覚 >= 4
				PRINTFORML 「う、あっ%UNICODE(0x2665)%　ひ、うぁあ…%UNICODE(0x2665)%」
				PRINTFORMW 尻に入りこむビーズの感触に星は息を荒げている…
				PRINTFORMW (これ以上されたらお尻じゃないと駄目になっちゃいますっ…)
			;Ａ感覚2以上
			ELSEIF ABL:Ａ感覚 >= 2
				IF RAND:2 == 0
					PRINTFORML 「全部、入りましたか…？」
					PRINTFORMW 「あぁ…まだ、残ってる…」
				ELSE
					PRINTFORML 「んう……ふ、う…」
					PRINTFORMW 「こんなに入りませんってばぁ…」
					PRINTFORMW 次々と入りこむビーズの圧迫感に星は身体を震わせている…
				ENDIF
			ELSE
				PRINTFORML 直腸の押し返そうとする動きを堪能しながらアナルビーズを押しこんでいく…
				PRINTFORMW 「は…う…無理ですって、くう……」
			ENDIF
			RETURN 1
		ENDIF
	;解除
	ELSE
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;Ａ感覚4以上
		ELSEIF ABL:Ａ感覚 >= 4
			IF RAND:3 == 0
				PRINTFORMW 「う゛あっ%UNICODE(0x2665)%　ああぁーっ%UNICODE(0x2665)%　こんな、すごすぎますっ%UNICODE(0x2665)%！」
				PRINTFORMW 「お尻のなか滅茶苦茶なのにっ、溶けてるみたいに気持ちいいんです…っ%UNICODE(0x2665)% 」
				PRINTFORMW 「もう気持ちよすぎて分かんないぃ…　ふえぇ……」
				PRINTFORMW 星は尻穴を突きぬける快楽に咽び泣いている…
			ELSEIF RAND:2 == 0
				PRINTFORML 「ふいい゛ぃいぃっ%UNICODE(0x2665)%%UNICODE(0x2665)%！！」
				PRINTFORMW 敏感になっているアヌスから乱暴にビーズを引き抜かれ星は快感に大きくのけぞった
				PRINTFORMW 「お尻、弱くされちゃったのにぃ…そんなことしちゃ、だめですよぉ…%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 「あ…か、はっ…%UNICODE(0x2665)%　は…あっ…%UNICODE(0x2665)%」
				PRINTFORMW 直腸を走り抜けた激感に星は酸素を求めるように口を開閉させている
				PRINTFORMW そして尻の窄まりも続きを求めるかのように収縮を繰り返している…
			ENDIF
		;Ａ感覚2以上
		ELSEIF ABL:Ａ感覚 >= 2
			PRINTFORML 「うあ、ああああぁあっ！」
			PRINTFORMW アヌスビーズが次々に抜けて行き星は上を向いて嬌声をあげた
			PRINTFORMW 「一気に抜くのは駄目ですってばぁ…」
		ELSE
			PRINTFORML 「ひいうっ！！」
			PRINTFORMW アヌスから乱暴にビーズを引き抜かれ星は顔をしかめた…
			PRINTFORMW 「そんな無理したら、お尻、壊れちゃいますってぇ…」
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;47,二プルキャップ
;==================================================
@M_KOJO_MESSAGE_COM_K87_47
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_47_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_47_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;一緒に買いに行った
		ELSEIF GETBIT(CFLAG:1003,10)
			PRINTFORM 「んんっ、
			;Ｂ感覚4以上
			IF ABL:Ｂ感覚 >= 4
				PRINTFORML ふぅっ！　ふぁ、ああぅ！」
				PRINTFORMW 「や、これほんとに強、あくぁああぁ%UNICODE(0x2665)%」
				PRINTFORMW 乳首を激しく刺激され星は顎を反らして悶えている…
			ELSE
				PRINTFORML ん…んー？」
				PRINTFORMW 星は不思議そうにニプルキャップを眺めている
				PRINTFORML 「なんというかその、付けている感じがしっくり来るんですけど…」
				PRINTFORMW 「オーダーメイドなんてしていないのに…」
			ENDIF
		ELSE
			PRINTFORM 「もう、そんな変なもの買ってきてー…
			;Ｂ感覚4以上
			IF ABL:Ｂ感覚 >= 4
				PRINTFORMW ひゃう！？」
				PRINTFORML 「あ、ちょっと、これ、激し…やああっ%UNICODE(0x2665)%」
				PRINTFORMW あなたを窘めようとした星は二プルキャップの強烈な振動に思わず甘い声をあげた
			ELSE
				PRINTFORML 」
				PRINTFORMW 星は困ったように笑いながら取りつけられたニプルキャップを眺めている
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:ニプルキャップ
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
		;恋慕
		ELSEIF TALENT:恋慕
			;Ｂ感覚4以上
			IF ABL:Ｂ感覚 >= 4
				IF RAND:4 == 0
					PRINTFORML 「くぅっ！　あ、んんっ、あはぁっ%UNICODE(0x2665)%！」
					PRINTFORMW スイッチを押しこみ振動を強くするごとに星の喘ぎ声が高く甘くなっていく
					PRINTFORMW 「あぁ…すごい、先っぽ…あんっ%UNICODE(0x2665)%　取れちゃいます…っ%UNICODE(0x2665)%」
				ELSEIF RAND:3 == 0
					PRINTFORML 「またこれで先っぽいじめられちゃうんですね…」
					PRINTFORMW 「ふふ、考えただけで胸の先が熱くなっちゃいます%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORML 「んんぅ…　動くの、いい…あふっ%UNICODE(0x2665)%」
					PRINTFORMW 星は自ら二プルキャップを引っ張り快感を得ようとしている…
				ELSE
					PRINTFORML 「早く…スイッチ、入れてください%UNICODE(0x2665)%」
					PRINTFORMW 星は胸を突き出すようにして身体を揺らした
					PRINTFORMW その乳頭は期待に硬く尖っている…
				ENDIF
			;Ｂ感覚2以上
			ELSEIF ABL:Ｂ感覚 >= 2
				IF RAND:2 == 0
					PRINTFORML 「はふ…あ、んぅ%UNICODE(0x2665)%」
					PRINTFORMW 「先っぽだけこんなに動かされるのはなんだか不思議な感じですね」
				ELSE
					PRINTFORML 「はあぁ%UNICODE(0x2665)%　じんじん…します」
					PRINTFORMW 星の胸の突起はさらに硬く尖っていく…
				ENDIF
			ELSE
				PRINTFORML 「またこれですか……もう…」
				PRINTFORMW 「ん、く……あっ」
			ENDIF
			RETURN 1
		;それ以外
		ELSE
			;Ｂ感覚4以上
			IF ABL:Ｂ感覚 >= 4
				IF RAND:2 == 0
					PRINTFORML 「先っぽの痺れがどんどん強くなって…%UNICODE(0x2665)%」
					PRINTFORMW 「このおもちゃお気に入りになっちゃいそうです♪」
				ELSE
					PRINTFORML 「もっと……あ、ふ、くあ…」
					PRINTFORMW クリップローターだけでは物足りないのか星は胸を揉み込んで快楽を得ている
				ENDIF
			;Ｂ感覚2以上
			ELSEIF ABL:Ｂ感覚 >= 2
				IF RAND:2 == 0
					PRINTFORML 「はあぁ%UNICODE(0x2665)%　じんじん…します」
					PRINTFORMW 星の胸の突起はさらに硬く尖っていく…
				ELSE
					PRINTFORMW 「これも…慣れると結構…%UNICODE(0x2665)%」
				ENDIF
			ELSE
				PRINTFORML 「またこれですか……もう…」
				PRINTFORMW 「ん、く……あっ」
			ENDIF
			RETURN 1
		ENDIF
	;解除
	ELSE
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		;Ｂ感覚4以上
		ELSEIF ABL:Ｂ感覚 >= 4
			IF RAND:3 == 0
				PRINTFORML 「ふあぁんっ%UNICODE(0x2665)%！」
				PRINTFORML 「取るだけで気持ちいいなんて…」
				PRINTFORMW 星は艶めかしい吐息をこぼしている
			ELSEIF RAND:2 == 0
				PRINTFORML 「くあっ……ん、んぅ…」
				PRINTFORMW 「あは…%UNICODE(0x2665)%　先っぽ、まだくっついているみたいです…%UNICODE(0x2665)%」
				PRINTFORMW 乳頭に残る甘い痺れに星はうっとりとしている
			ELSE
				PRINTFORML 「あ、ん…ふふ%UNICODE(0x2665)%」
				PRINTFORMW 「ん…今度は先っぽ、直に触ってほしいです%UNICODE(0x2665)%」
				PRINTFORMW 星は物欲しげにあなたを見つめている
			ENDIF
		;Ｂ感覚2以上
		ELSEIF ABL:Ｂ感覚 >= 2
			IF RAND:2 == 0
				PRINTFORML 「ん、取るんですか…？」
				PRINTFORMW 「もうちょっと付けたままでもよかったんですけど…」
			ELSE
				PRINTFORML 「先っぽこんなに尖っちゃいました…%UNICODE(0x2665)%」
				PRINTFORMW 星は自由になった乳首を労わるように優しく擦っている…
			ENDIF
		ELSE
			PRINTFORML 「は、ぁ…やっと終わりました…」
			PRINTFORMW 「%MASTERNAME:87%…私の先っぽ、変になってませんか？」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;48,搾乳機
;==================================================
@M_KOJO_MESSAGE_COM_K87_48
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_48_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_48_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:搾乳機
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
	ENDIF
ENDIF
RETURN 1
;※※※※※※※※※※※※※※※※※※※※※※※※※
;性交系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;60,正常位
;==================================================
@M_KOJO_MESSAGE_COM_K87_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_60_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_60_1

;-------------------------------------------------
;立位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL && TFLAG:193
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW 「つっ……ぁ…っふ…」
			PRINTFORMW 「ん…まさか初めてが立ったままでとは思いませんでした…」
			PRINTFORMW 「大丈夫ですよ、まだちょっと痛いですけど…」
			SIF TALENT:恋慕
			PRINTFORMW 「今はそれ以上に幸せでいっぱいですから……」
			RETURN 1
		ELSE
			PRINTFORMW 「とと……　これ、結構難しいですね…」
			PRINTFORMW 「%MASTERNAME:87%がちゃんと支えてくれないと倒れちゃいますよ…%UNICODE(0x2665)%？」
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		;※TCVAR:102だけだと構文上MASTERが射精する時の口上が出せない
		IF TCVAR:102 && NOWEX:MASTER:11 == 0
			SIF TALENT:恋慕
			PRINTFORML 「あうっ…！　出したばかりなのに、元気なんですから…%UNICODE(0x2665)%」
			PRINTFORMW 掻き出された精液が足元にぽたぽた音を立てて落ちていく…
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;対面立位のまま
				IF TEQUIP:体位２ == 1
					PRINTFORML 「んん…ふぅ、あ……くぁっ」
					PRINTFORMW 星はあなたに脚を抱えられたままゆっくり腰を揺らしている…
				ELSE
					PRINTFORML 「ん…今度は前向くんですか…」
					PRINTFORMW 「ふぁ……あ、う…%UNICODE(0x2665)%」
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				;これでMASTERが射精する
				IF NOWEX:MASTER:11
					PRINTFORML 「ああっ%UNICODE(0x2665)%！　%MASTERNAME:87%、出そうなんですねっ？」
					PRINTFORMW 星は持ち上げられていた脚をあなたの腰に回すと射精の瞬間に合わせ強く締め付けてきた…
					PRINTFORMW 「全部、私に下さ……ふあぁああっ%UNICODE(0x2665)%！！」
				;対面立位のまま
				ELSEIF TEQUIP:体位２ == 1
					IF RAND:2 == 0
						PRINTFORMW 「あっ、さっきより激し…ああっ%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「ずっと突き上げられてると、奥、痺れるみたいに気持ちよくなって…%UNICODE(0x2665)%」
						PRINTFORMW 「あ、あはっ%UNICODE(0x2665)%　は－っ、あ、ああぁ…%UNICODE(0x2665)%」
					ENDIF
				;背面立位から
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「今度は前からですね、ふあっ%UNICODE(0x2665)%」
						PRINTFORMW 「は…ぁ　ぎゅって、してください…%UNICODE(0x2665)%」
					ELSE
						PRINTFORMW 「んっ、あ、はっ……ああんっ%UNICODE(0x2665)%」
						PRINTFORML 「やっぱり%MASTERNAME:87%の顔が見れる方がいいです♪」
						PRINTFORMW 星はあなたを見つめながらほほ笑んでいる
						IF !TALENT:キス未経験
							PRINTFORML 「こっちの方がキスしやすいですしね…んっ」
							PRINTFORMW さらに星は顔を寄せ唇を重ねてきた…
						ENDIF
					ENDIF
				ENDIF
			ELSE
				PRINTFORMW 「くっ、あ、はっ……うぁ%UNICODE(0x2665)%」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;Ｖ感覚1以下
	IF ABL:Ｖ感覚 <= 1
		PRINTFORML 星はうまくバランスがとれず時々ふらついている…
		PRINTFORMW 「脚をこんな風に持たれることって他にないので…んっ」
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORML あなたは腰を落とすとその剛直をより深く星の膣内へと沈めていった…
			PRINTFORMW 「奥まで来て…ふあっ%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORML 「あっ、んっ……む…れろ……」
			PRINTFORMW 星はあなたの首筋に口づけし、舌を這わせている…
		ELSE
			PRINTFORMW 星はあなたの背に腕を回しより密着するようにと身体を押しつけてきた
			PRINTFORML 「ん…このまま、支えていてください…」
			PRINTFORMW そのまま体をあなたに預けながら腰を小刻みに動かし始めた…
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		PRINTFORML 「しっかり支えていてくださいね…ふっ、あ…%UNICODE(0x2665)%」
		PRINTFORMW 星は体をあなたに預けながら腰を小刻みに動かしている…
		RETURN 1
	ENDIF
ENDIF
;-------------------------------------------------
;正常位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			;恋慕
			IF TALENT:恋慕
				PRINTL
				PRINTL …
				PRINTL ……
				PRINTFORML 「！」
				PRINTFORMW そそり立つ怒張を星の純潔にあてがうと、星はびくりと体を震わせた
				PRINTFORMW 「あの、私… 媾合の経験が無くて… その…」
				PRINTFORMW 「多分上手くはできないですし、%MASTERNAME:87%を気持ちよくすることも出来ないでしょう…」
				PRINTFORMW 「それでも、あの、私は…%MASTERNAME:87%に…して、もらいたいです」
				PRINTFORMW 「私のワガママ…聞いていただけますか…？」
				PRINTFORMW 返答の代わりにあなたは星を抱きしめ、ゆっくり、ゆっくりと腰を進める…
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「ぜん、ぶ、入りましたか…？」
				PRINTFORMW 「嬉しい、です…%MASTERNAME:87%が今、私の中に入っているのですね…」
				PRINTFORMW 「ねえ、%MASTERNAME:87%…このまま、ぎゅってしてください…」
				PRINTFORML
				PRINTFORMW 「…あと、キスもしてください…」
			;非恋慕
			;寝取り感を出したかった
			ELSE
				PRINTFORML 「！」
				PRINTFORMW そそり立つ怒張を星の純潔にあてがうと、星はびくりと体を震わせた
				PRINTFORMW 「駄目、です…それは、それだけは、しちゃ、いけないんです…」
				PRINTFORMW 拒否の言葉だけで実際に抵抗されないことをいいことに、ゆっくり、ゆっくりと腰を進める……
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「あ…あ…？」
				PRINTFORMW 「私…奪われちゃいました…もう、戻れなくなっちゃいました…」
				PRINTFORMW 「毘沙門天様…寺の皆…聖…すみ、ませ、っく、うう…」
				PRINTFORMW 「う…っく、ふぅぅ…っ、っく、う、ううぅぅ…」
				PRINTFORMW あなたは声を殺して泣く星を強く抱きしめ、涙を舐め取った…
				PRINTFORMW まるで「お前にはもう俺しかいない」と主張するように――
			ENDIF
			RETURN 1
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「…この体勢…」
				PRINTFORMW 「！っなな、何でも、ありませんよっ…」
				PRINTFORMW （今から%MASTERNAME:87%に無理やり犯されるみたい、なんて言えませんっ…）
			ELSE
				PRINTFORMW 「…この体勢、%MASTERNAME:87%に覆いかぶされて、まるで…」
				PRINTFORMW 「無理やりされるみたいで、少し怖いです…」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
			RETURN 1
		;前回射精した
		ELSEIF TCVAR:102
			PRINTFORML 直前に射精したにもかかわらず硬さを失わないペニスで、星の内壁を抉り続けた…
			IF RAND:4 == 0
				PRINTFORML 「あぅっ！　あ…休まず、ですかぁ…？」
			ELSEIF RAND:3 == 0
				PRINTFORML 「あっ、はっ、そんな、射精したのにっ、あはあっ！」
			ELSEIF RAND:2 == 0
				PRINTFORML 「やっ、そんなっ、そのまま、なんてっ、精液、膣内に擦り付けられちゃってますっ！」
			ELSE
				PRINTFORML 「そんな、あっ、だめですっ！膣内射精されたまま、されたら、膣内に子種が馴染んじゃいますっ…！」
			ENDIF
			PRINTFORMW 結合部では先ほど注ぎ込んだ精液が掻き出されて泡立ち星の秘所を白く彩っている…
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;正常位のまま
				IF TEQUIP:体位２ == 1
					PRINTFORML 「はーっ、あ、はっ、あっ…%UNICODE(0x2665)%」
					PRINTFORMW 星は頬を染めてあなたの突き込みを受けている…
				ELSE
					PRINTFORMW 「ん…優しくしてくださいね♪」
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				;これでMASTERが射精する
				IF NOWEX:MASTER:11
					PRINTFORML 「あ、はぁっ！　%MASTERNAME:87%っ%UNICODE(0x2665)%」
					PRINTFORML 星は手足をあなたの背に絡めると強く抱きしめてきた
					PRINTFORMW 「いっぱい、出していいですからねっ%UNICODE(0x2665)%」
					;これでＶ絶頂する
					SIF NOWEX:0
					PRINTFORMW 「わた、しも…一緒にっ……あぁああぁっ%UNICODE(0x2665)%！！」
				ELSE
					;正常位のまま
					IF TEQUIP:体位２ == 1
						IF RAND:3 == 0
							PRINTFORML 「あっあっ、ああっ！」
							PRINTFORML 「中、熱くなって…すご、いぃ……」
							PRINTFORMW 星は口の端から涎をこぼしながら喘いでいる…
						ELSEIF RAND:2 == 0
							PRINTFORML 「こつこつ、気持ちいい所にあたって…」
							PRINTFORML 「んっ、すごく、いいですよ…ぉ%UNICODE(0x2665)%」
							PRINTFORMW 星の目は甘く蕩けるようにあなたを見つめている
						ELSE
							PRINTFORMW \@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@が出入りするたびに濡れた音が響く…
							PRINTFORML 「んーっ、…はァ、あ、んっ%UNICODE(0x2665)%」
							PRINTFORMW 「そこ、ぐりぐりされるの、好きっ、ですっ%UNICODE(0x2665)%」
						ENDIF
					;後背位、背面座位から
					ELSEIF TEQUIP:体位２ == 2 || TEQUIP:体位２ == 5
						PRINTFORML 「んぅっ%UNICODE(0x2665)%　お腹の中でくるって、ひあぅっ%UNICODE(0x2665)%！」
						PRINTFORMW 「今、軽く……%UNICODE(0x2665)%　…ん、もう動いてもいいですよ♪」
						PRINTFORMW 「でもこれじゃ…すぐに果ててしまいそうですけど、ね%UNICODE(0x2665)%」
					;騎乗位、対面座位から
					ELSE
						PRINTFORML 仰向けに寝かせた星に覆いかぶさるようにして交わりを再開した
						PRINTFORMW 「ん…%MASTERNAME:87%……%UNICODE(0x2665)%」
						PRINTFORMW 星は両腕を伸ばしてあなたを迎え入れた…
					ENDIF
					;これでＶ絶頂する
					IF NOWEX:0
						PRINTFORMW
						IF RAND:2 == 0
							PRINTFORML 「あっ、そこ…んっ、うぁ%UNICODE(0x2665)%」
							PRINTFORMW 高まる性感に星の瞳はさらに潤んでいく…
							PRINTFORMW 「あ、もう……くあぁっ%UNICODE(0x2665)%！」
						ELSE
							PRINTFORML 「ん…きちゃ…う…っ」
							PRINTFORMW 星の膣内を小突くうちに絶頂が近づいてきたのか膣肉の収縮が激しくなってきた
							PRINTFORMW 「ふあっ%UNICODE(0x2665)%　%MASTERNAME:87%といっしょがいいのに…っ！」
							PRINTFORMW 「もう、だめ……ふ、あぁああ%UNICODE(0x2665)%%UNICODE(0x2665)%」
						ENDIF
					ENDIF
				ENDIF
			ELSE
				;正常位のまま
				IF TEQUIP:体位２ == 1
					PRINTFORML 「あ、はっ、んん……ぅ%UNICODE(0x2665)%」
					PRINTFORMW 「ふっ、そ、こ……」
				ELSE
					PRINTFORMW 「やっぱりこの体勢が……一番安心します…%UNICODE(0x2665)%」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;Ｖ感覚1以下
	ELSEIF ABL:Ｖ感覚 <= 1
		PRINTFORML 「ん……く、ぅ…あ…」
		PRINTFORMW 「はー……　ん、大丈夫ですよ…動いて、ください…」
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:6 == 0
			PRINTFORML 「ん……ゆっくり、はいって…」
			PRINTFORMW 「あ、は…気持ちいい…っ」
		ELSEIF RAND:5 == 0
			SIF ABL:Ｖ感覚 >= 4
			PRINTFORML 「ああ…入れられただけで、こんなに…%UNICODE(0x2665)%」
			PRINTFORMW 挿入した\@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@を、膣肉が柔らかに迎え入れる…
			PRINTFORMW 「動いていいですよ…いっぱい、可愛がってください%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0
			PRINTFORML 「んっ、ふ、ん、んんーっ%UNICODE(0x2665)%」
			PRINTFORMW 星は人差し指を軽く咥えて喘ぎ声を抑えている…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「あはあっ、あっ、やっ、%MASTERNAME:87%の、が、ぐりぐり、って、きてますっ」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「やあ、ぎゅって、ぎゅってして下さいっ…！」
		ELSE
			PRINTFORMW 「ふうううんっ！いいっ、は、あ、いいですっ！」
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF RAND:3 == 0
			PRINTFORMW 「んんっ…はぁ、あんっ、んんっ、あ、んんっ…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「あ…んっ、ふ、んんっ、あ、ん、はっ、くんっ…」
		ELSE
			PRINTFORMW 「ふぅ…んっ、あんっ、あ、声、出ちゃっ、は、ああっ…」
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「あっ、入って…んんぅ%UNICODE(0x2665)%」
			PRINTFORMW 星は頬に手を当てて顔を緩ませている…
		ELSEIF RAND:2 == 0
			PRINTFORMW 「あ…はっ…んんっ…」
		ELSE
			PRINTFORMW 「ううっ…あ、そんなところまで…」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;61,後背位
;==================================================
@M_KOJO_MESSAGE_COM_K87_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_61_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_61_1
;-------------------------------------------------
;立位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL && TFLAG:193
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW 「くっ…あ……つ、ぅ…」
			PRINTFORMW 「ん…まさか初めてが立ったままでとは思いませんでした…」
			IF TALENT:恋慕
				PRINTFORMW 「でも…なんだか%MASTERNAME:87%の所有物にされているみたいって考えたら…」
				PRINTFORMW 「お腹の奥、きゅん、てしちゃいました…%UNICODE(0x2665)%」
				PRINTFORMW こちらを振り向いた星の顔は赤く上気している…
			ENDIF
			RETURN 1
		ELSE
			PRINTFORMW 「壁に手をついてって……こうですか？」
			PRINTFORMW 「ひゃわっ！　ん、なんか…これ……」
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR:102 && NOWEX:MASTER:11 == 0
			PRINTFORMW 「あうっ、あ、このまま、続けて…ですか？」
			PRINTFORML 「んぅう%UNICODE(0x2665)%　中で、掻き混ざって…っ%UNICODE(0x2665)%」
			PRINTFORMW 二人の結合部からこぼれ出した精液が星の太腿をゆっくりと伝っていく…
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;背面立位のまま
				IF TEQUIP:体位２ == 2
					PRINTFORML 「はっ、あっ、あっ、はぁあっ」
					PRINTFORMW あなたに突き込まれるたび星の口から甘い声が漏れだす
				;対面立位から
				ELSE
					PRINTFORML 星はぼうっとした顔で後ろからの挿入を始めたあなたを眺めている…
					PRINTFORMW しかしあなたが動き始めるとすぐに快楽に眉を寄せた
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				;背面立位のまま
				IF TEQUIP:体位２ == 2
					IF RAND:3 == 0
						PRINTFORMW 「うぁあ、あっ…はあぁっ！　お腹、ずんずん来て……っ」
					ELSEIF RAND:2 == 0
						PRINTFORML 「あんっ%UNICODE(0x2665)%　あ、もう足に力、入らないですっ！」
						PRINTFORMW あなたに膣奥を小突かれ続け、星は脚をがくがくと揺らして悶えている…
					ELSE
						PRINTFORML 「はあ、あっ、んんんっ%UNICODE(0x2665)%　はーっ、あっ…うあんっ%UNICODE(0x2665)%」
						PRINTFORMW 崩れ落ちない様にするので精いっぱいの星はあなたの思うがままに嬲られている…
					ENDIF
				;対面立位から
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「んん……はやく、してくださいぃ…%UNICODE(0x2665)%」
						PRINTFORMW 星は尻を揺らしてあなたを催促している…
					ELSE
						PRINTFORMW 「後ろからですね…さ、どうぞ」
						PRINTFORMW 「んん、ん、んんぅっ%UNICODE(0x2665)%」
						PRINTFORMW  あなたに挿入されると星は結んだ唇をわななかせて顔を蕩けさせた
					ENDIF
				ENDIF
				;これでＶ絶頂する
				IF NOWEX:0
					PRINTFORMW
					IF RAND:2 == 0
						PRINTFORML 「ん、く…ああ%UNICODE(0x2665)%　く、る……っ！」
						PRINTFORMW 星はあなたに掴まれている腰をくねらせ絶頂の感覚に身を震わせた
					ELSE
						PRINTFORML 「はあ、あっ…ん、くっ、あっ、は、ああっ」
						PRINTFORMW 限界の近くなった星はだんだんと切羽詰まったような声を上げ始めた
						PRINTFORML 「ふう…っあ、来ちゃいま、す……　あっ！？」
						PRINTFORMW そして絶頂の正にその瞬間に\@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@の先端が膣内の特に敏感な部分に当たり――
						PRINTFORMW 「あ、あぁ…あぁああぁーっ%UNICODE(0x2665)%！！」
					ENDIF
				ENDIF
			ELSE
				;背面立位のまま
				IF TEQUIP:体位２ == 2
					PRINTFORML 「ふっ、あっ、んぁ、あっ、ああっ%UNICODE(0x2665)%」
					PRINTFORMW 肌を伝う汗が星の興奮を表している…
				;対面立位から
				ELSE
					PRINTFORML 「んんぅ、あ……く、あ…」
					PRINTFORMW 「後ろからも…ふあぁっ！」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;Ｖ感覚1以下
	IF ABL:Ｖ感覚 <= 1
		PRINTFORML 「んっ、は、あ、ふーっ…」
		PRINTFORMW まだ慣れないのか星は壁に額を当てて挿入の感覚に肩を震わせている…
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORML 「後ろからだといつされるのか分からなくて緊張します……うくあぁっっ%UNICODE(0x2665)%！」
			PRINTFORMW 星は脚をピンと張り挿入の感触に打ち震えている…
		ELSEIF RAND:2 == 0
			PRINTFORML 「んんっ、は……あぁ%UNICODE(0x2665)%」
			PRINTFORMW \@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@が全て収まりきると星は恍惚とした溜息をついた
		ELSE
			PRINTFORML 「入って、来ま…んあぅっ%UNICODE(0x2665)%！？」
			PRINTFORMW 挿入の際に弱いところに擦れたのか星は甘い声を上げ背筋を震わせた
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORML 「んん……はやく、してくださいぃ…%UNICODE(0x2665)%」
		PRINTFORMW 星は尻を揺らしてあなたを催促している…
		RETURN 1
	;それ以外
	ELSE
		PRINTFORML 「ひぁ……うぁっ%UNICODE(0x2665)%」
		PRINTFORMW 大分解れた膣内に挿入され星は頤を上げて喘ぎ声をこぼした
		RETURN 1
	ENDIF
ENDIF
;-------------------------------------------------
;後背位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			;恋慕
			IF TALENT:恋慕
				PRINTL
				PRINTL …
				PRINTL ……
				PRINTFORML 「！」
				PRINTFORMW 四つんばいにさせた星を後ろから覆いかぶさるように抱きしめ、挿入することを告げると、星はびくりと体を震わせた
				PRINTFORML 「あの、私… 媾合の経験が無くて、こんなこと聞くのもアレなんですけども…」
				PRINTFORMW 「こういう格好でその…交わるのは、普通なんでしょうか…？」
				PRINTL [0] 普通だよ(ﾆｺｯ
				PRINTL [1] いや、まぁ…
				;あなたの常識はどっち！？ループ
				$INPUT_LOOP_jousikidotch
				INPUT
				;/後背位は古今東西に存在する普遍的な体位(ｷﾘｯ
				IF RESULT == 0
					PRINTFORML 「そ、そうなのですか…？私はてっきり、正面から抱き合って…その…するものかと」
					PRINTFORMW 「それに…あなたが見えなくて、ちょっと怖いです…いきなりは、止めてくださいね…」
					PRINTFORMW 「そ、それではっ…よろしくお願いします…！」
				;/処女貫くのに後背位とかレベルたけーな
				ELSEIF RESULT == 1
					PRINTFORMW 「―うう、やっぱり…こんな、獣みたいな…いや、そりゃ私は獣でしたけども」
					PRINTFORMW 「…でも、私は、その、%MASTERNAME:87%にしてもらいたいのです…その%MASTERNAME:87%が、そう言うのなら…」
					PRINTFORMW 「せめて、いきなりは止めてくださいね…そ、それではっ…よろしくお願いします…！」
				ELSE
					GOTO INPUT_LOOP_jousikidotch
				ENDIF
				PRINTFORML
				PRINTFORMW 返答の代わりにあなたは星を抱きしめ、ゆっくり、ゆっくりと腰を進める…
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「ぜん、ぶ、入りましたか…？」
				PRINTFORMW 「嬉しい、です…%MASTERNAME:87%が今、私の中に入っているのですね…」
				PRINTFORMW 「ねえ、%MASTERNAME:87%…このまま、ぎゅってしてください…」
				PRINTFORML
				PRINTFORMW 「…あと、キスもしてください…」
			;非恋慕
			;手抜き
			ELSE
				PRINTFORML 星を四つん這いにし、尻を突き出すよう命じた
				PRINTFORML 「え…？何を―」
				PRINTFORMW そそり立つ怒張を星の純潔にあてがうと、星はびくりと体を震わせた
				PRINTFORMW 「駄目、です…それは、それだけは、しちゃ、いけないんです…」
				PRINTFORMW 拒否の言葉だけで実際に抵抗されないことをいいことに、ゆっくり、ゆっくりと腰を進める……
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「あ…あ…？」
				PRINTFORMW 「私…奪われちゃいました…もう、戻れなくなっちゃいました…」
				PRINTFORMW 「毘沙門天様…寺の皆…聖…すみ、ませ、っく、うう…」
				PRINTFORMW 「う…っく、ふぅぅ…っ、っく、う、ううぅぅ…」
				PRINTFORMW あなたは声を殺して泣く星を強く抱きしめ、涙を舐め取った…
				PRINTFORMW まるで「お前にはもう俺しかいない」と主張するように――
			ENDIF
			RETURN 1
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「四つん這いになって、お尻を…？」
				PRINTFORMW 星は素直に命令に従った。あなたの眼前に星の可愛い菊穴と肉襞に覆われた膣口が露になる
				PRINTFORML そのことを星に囁くと、
				PRINTFORML 「！？っやああっ！」
				PRINTFORMW あわてて両手で隠した。もっとも、あまり隠れていなかったが
				PRINTFORMW あなたは苦笑しながら隠した両手を愛撫し引き剥がして、星の秘部を再び詳らかにし―
				PRINTFORML 「あ…！？ふひゃん！あ、やあ、そんな、はぁんっ！」
				PRINTFORMW 後ろから星の尻肉に顔を埋めて、性器を舌で丁寧に愛撫して準備を整えた
				PRINTFORMW クンニのショックで脱力している星の膣にペニスをあてがい、ゆっくりと挿入していく…
				PRINTFORML 「は…あ…%UNICODE(0x2665)%　%MASTERNAME:87%が入って、くるぅ…」
			ELSE
				PRINTFORMW 「あ…こんな、獣みたいな格好で…」
				PRINTFORML ペニスを膣口にあてがい、ゆっくりと挿入していく…」
				PRINTFORML 「ん、んんんん…！これ、深、いいっ…」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
		;前回射精した
		ELSEIF TCVAR:102
			PRINTFORML 直前に射精したにもかかわらず硬さを失わないペニスで、星の内壁を抉り続けた…
			IF RAND:4 == 0
				PRINTFORMW 「ふあぅっ！　まだ、出し足りないんですか…？」
				SIF TALENT:恋慕
				PRINTFORMW 「いいですよ…心ゆくまで私で気持ちよくなってください%UNICODE(0x2665)%」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「あっ、はっ、そんな、射精したのにっ、あはあっ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「やっ、そんなっ、そのまま、なんてっ、精液、膣内に擦り付けられちゃってますっ！」
			ELSE
				PRINTFORMW 「そんな、あっ、だめですっ！膣内射精されたまま、されたら、膣内に子種が馴染んじゃいますっ…！」
			ENDIF
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;後背位のまま
				IF TEQUIP:体位２ == 2
					PRINTFORML 「ふ、あ、あっ、んっ」
					PRINTFORMW 「激しくしたらだめ、です…っ」
				ELSEIF RAND:4 == 0
					PRINTFORML 「んぅっ！　お腹の中で…ぐりっ、て…」
					PRINTFORMW 「や、そんなすぐに動かしたら…っ」
				ELSEIF RAND:3 == 0
					PRINTFORMW 「はあぅ、%MASTERNAME:87%のが、さっきと違うとこ擦って、んくっ、奥、とんとんってぇ…」
				ELSEIF RAND:2 == 0
					PRINTFORMW 星は先ほどまでと違う、あなたが見えない姿勢で犯されることに不安を感じているようだ…
				ELSE
					PRINTFORMW 「んんっ…あっく、ぅぅんっ、これも、ふぅぅっ、いいっ…！」
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				;後背位のまま
				IF TEQUIP:体位２ == 2
					IF RAND:3 == 0
						PRINTFORMW \@ TALENT:PLAYER:2 & 2 ? 星の膣内は心地よく、自然と腰の動きも早まる # あなたはより星を感じさせるため腰の動きを速めた \@
						PRINTFORML 「あっ%UNICODE(0x2665)%　すごい、激しい…　わた、しも…っ%UNICODE(0x2665)%」
						PRINTFORMW 星も腰を打ちつけるように動かしてあなたに応えた
					ELSEIF RAND:2 == 0
						PRINTFORML 「ふぐっ、ん、んん……っ　ふ……ぅうぅっ%UNICODE(0x2665)%」
						PRINTFORMW 肘をついた星は\@ BATHROOM() ? マットに顔をうずめて #  \@\@ GROUPMATCH(CFLAG:現在位置, 115, 119) ? 枕に顔をうずめて # 床に額をあてて \@身を震わせている
						PRINTFORMW その顔が甘く蕩けているだろうことは想像に難くない…
					ELSE
						PRINTFORML 「獣みたいにするのなんて本当は浅ましくて恥ずかしい事なのに…っ」
						PRINTFORMW 「でも…でもぉ……%UNICODE(0x2665)%」
					ENDIF
				;正常位、騎乗位、対面座位から
				ELSEIF GROUPMATCH(TEQUIP:体位２, 1, 3, 4)
					IF RAND:2 == 0
						PRINTFORML 「後ろから…ですか？　分かりました、私が動きますから…」
						PRINTFORMW 星は体勢を変えるために腰を捻り始めた…
						PRINTFORML 「はぅ%UNICODE(0x2665)%　体勢…もっとゆっくり変えないと変に擦れて…ひぅ%UNICODE(0x2665)%」
						PRINTFORMW 「あ、や、ちょっといたずらしないでくださいよう…　くぁっ%UNICODE(0x2665)%」
						PRINTFORML 体勢を変え終わるころには星はすっかり快楽に緩んだ顔になっていた…
						PRINTFORMW 「はーっ、はーっ……もー…」
					ELSE
						PRINTFORML 「はーっ……あっ、当たるところが、変わって……んんっ%UNICODE(0x2665)%」
						PRINTFORMW 体勢を変えたため\@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@の与える刺激が新鮮なものとなり星の声が一段と高くなった
					ENDIF
				;背面座位から
				ELSE
					PRINTFORML あなたは星を後ろから抱き留めながらゆっくりと押し倒した
					PRINTFORMW 「うあぁ…%UNICODE(0x2665)%　あっ、はっ、あぁ、あ、んぅうっ%UNICODE(0x2665)%」
					PRINTFORMW 続く激しい突き込みに星は顔を横たえながら喘ぎを漏らしている…
				ENDIF
			ELSE
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋人
	;/恋人になると後背位に積極的になる星ちゃんとか素敵だと思わないか
	ELSEIF TALENT:恋人
		IF RAND:4 == 0
			PRINTFORMW 「あ、あの、お願いがあるのですが…後ろからするとき、全体重を私に預けて抱きしめながらして欲しいんです」
			PRINTFORMW 「大丈夫です。これでも妖怪ですから、潰れちゃったりはしません…さ、遠慮なくどうぞ」
			PRINTFORMW そういって尻を突き出す星に、あなたは要望どおりのしかかりながら挿入した
			PRINTFORML 「そ、そうですっ…%UNICODE(0x2665)%そのまま、たくさん膣内で動いて下さいっ…」
			PRINTFORMW 「あはあっ…%UNICODE(0x2665)%　いいですっ、%MASTERNAME:87%が私を信頼してくれてるのが、とても嬉しいです…っ」
			PRINTFORMW 「わ、たしが全部支えてあげますからっ…私をあなたで包んで下さいっ…」
		ELSEIF RAND:3 == 0
			PRINTFORML 「ん…後ろからですね…%UNICODE(0x2665)%」
			PRINTFORMW 「これ、獣の頃に戻ったみたいで、その、なんか…ドキドキします」
			PRINTFORMW 「んはぁ…っ%UNICODE(0x2665)%　%MASTERNAME:87%と、こーびしちゃってます…%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORML 「あ、あの…後ろからするんなら、いつもより激しくしていただけますか…？」
			PRINTFORML 「見えない姿勢でむちゃくちゃにされると…その…興奮するんです…」
			PRINTFORMW 星は消え入りそうな声で欲望をリクエストしてきた
			PRINTFORMW その欲望に応えるべく星の蜜壷を一気に貫いて、本能の赴くまま激しく星を貪った…
			PRINTFORMW 「ふううんっ！　あっ、あんっ、そう、んんっ、もっと、して、はぁっ%UNICODE(0x2665)%　そ、そうですっ、ひぃんっ！」
		ELSE
			PRINTFORML 「ふふ…後ろからですね？ホラ、どうぞ…%UNICODE(0x2665)%」
			PRINTFORMW 星は自ら尻を突き出し、小陰唇を割り開いてヒクヒクと蠢く膣口を見せ付けた
			PRINTFORMW その痴態に中てられたあなたは、ほとんど無意識に怒張をそこにあてがい、欲望のまま突き入れた…
			PRINTFORMW 「あはあっ…%UNICODE(0x2665)%　そ、そうですっ！好きなだけ、犯していいんですよっ%UNICODE(0x2665)%」
			PRINTFORMW 「むちゃくちゃにしてっ…んんっ、中に%MASTERNAME:87%の精を、たっぷり注いで下さいっ…%UNICODE(0x2665)%」
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;Ｖ感覚1以下
		IF ABL:Ｖ感覚 <= 1
			PRINTFORML 「またこの恰好ですかぁ…？」
			PRINTFORMW 「嫌じゃない、とは言いましたけど……むー…」
		ELSEIF RAND:6 == 0
			PRINTFORML 星は肩越しにあなたを見つめている…
			PRINTFORMW 「%MASTERNAME:87%のお好きなように動いて…私を、素敵なところに連れて行ってください…%UNICODE(0x2665)%」
			PRINTFORMW 「私も気持ち良くなってもらえるよういっぱい頑張りますから…」
		ELSEIF RAND:5 == 0
			PRINTFORML 「はぁ、あ…ああ…っ！」
			PRINTFORMW 「後ろからだと%MASTERNAME:87%に支配されているみたいで…%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0
			PRINTFORML 「ん…ふあぁ%UNICODE(0x2665)%！」
			PRINTFORMW あなたが力強く挿入すると星は嬌声とともに尻を高く跳ねあげた
			PRINTFORMW 「ああ…奥に…ずんっ、て…きましたぁ……%UNICODE(0x2665)%」
		ELSEIF RAND:3 == 0
			PRINTFORML 「うう…この姿勢、獣みたいでやっぱり恥ずかしいです…」
			PRINTFORMW 「で、でも実は、それはそれで愉しかったり…ふふ%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORML 「は、はい…ではどうぞ…」
			PRINTFORMW 星は命令に従って四つん這いになり、おずおずと秘所と菊穴を曝け出した
			PRINTFORMW 「うう…あまり見ないでくださいぃ…」
		ELSE
			PRINTFORML 「ふあっ…%UNICODE(0x2665)%そんな、いきなり…ひゃうっ！」
			PRINTFORMW 濡れそぼった星の肉穴に後ろから突き入れ、円を描くようにぐりぐりと膣内をかき回した…
			PRINTFORML 「あ、はうっ、あ、そ、な、かき混ぜちゃっ…いろんなとこ、こしゅれて、ひゃあうっ…%UNICODE(0x2665)%」
			PRINTFORML 「いい、ですっ…それ、すごくきもひいいですっ…あはあっ%UNICODE(0x2665)%%MASTERNAME:87%とこーびっ…%UNICODE(0x2665)%」
			PRINTFORMW 思いのほか気に入ってもらえたようだ…
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF ABL:Ｖ感覚 <= 1
			PRINTFORML 「あの…やっぱりこの体勢恥ずかしいんですけど…」
			PRINTFORMW 「それがいい、とか思ってないですよね…？」
		ELSEIF RAND:4 == 0
			PRINTFORML 「ん、はぁ…っ%UNICODE(0x2665)%　…うー」
			PRINTFORMW 「この体勢でするの、思ったより早く慣れちゃったような…」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「うう…後ろからですか…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふ、ううんっ、は、んんっ、はっ、は、うううんっ」
		ELSE
			PRINTFORMW 「う、あ…%MASTERNAME:87%が、入ってっ…あ、あっ、あうっ…」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;62,正常位アナル
;==================================================
@M_KOJO_MESSAGE_COM_K87_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_62_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_62_1
;-------------------------------------------------
;立位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && TFLAG:193
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;-------------------------------------------------
;正常位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;63,後背位アナル
;==================================================
@M_KOJO_MESSAGE_COM_K87_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_63_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_63_1
;-------------------------------------------------
;立位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && TFLAG:193
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;-------------------------------------------------
;後背位
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;64,逆レイプ
;==================================================
@M_KOJO_MESSAGE_COM_K87_64
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_64_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_64_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;調教者が処女
		IF TCVAR:PLAYER:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:PLAYER:100 == TARGET
		;前回射精した
		IF TCVAR:PLAYER:102
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;65,騎乗位
;/羽衣で首引き恋慕とかやりたいなァ
;==================================================
@M_KOJO_MESSAGE_COM_K87_65
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_65_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_65_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		;/処女騎乗位は紳士の嗜み
		IF TCVAR:破瓜 == 1
			IF TALENT:恋慕
				PRINTFORML 「わ、私がまたがって入れる…ですか！？」
				PRINTFORMW 「えっとその…わ、わたしっ… 媾合の経験が無くて… その…」
				PRINTFORML 「それでも、ですか…？うう、分かりましたよ！やってあげようじゃないですか！
				PRINTFORML 「私が%MASTERNAME:87%を食べちゃいますから！腹ペコの猛獣だってこと、判らせてあげます！」
				PRINTFORMW 半ばヤケクソ気味であなたにまたがった星だったが、やはり無理があったのか怒張を秘所にあてがったまま固まってしまった
				PRINTFORMW あなたは震える星の手を自分の胸板に導き、少しずつでいいと優しく励ます
				PRINTFORML 「はい…で、では、いきます…！」
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「ぜん、ぶ、入りましたか…？」
				PRINTFORMW 「嬉しい、です…%MASTERNAME:87%が今、私の中に入っているのですね…」
				PRINTFORML 仕事をやりおおせた星がそのままこちらに倒れこみ、耳元でそっと囁く…
				PRINTFORML 「ふふっ…%MASTERNAME:87%の味、忘れませんよ…これから何回でも、食べてやりますから。覚悟してくださいね」
				PRINTFORMW 「ねえ、%MASTERNAME:87%…このまま、ぎゅってしてください…」
				PRINTFORML
				PRINTFORMW 「…あと、キスもしてください…」
			ELSE
			;/どう見ても騎乗位というより対面座位です。本当に(ry
				PRINTFORML 星に自分にまたがって、自ら挿入するよう命じた
				PRINTFORML 「むむむ無理ですそんなのっ！したこともないのにっ」
				PRINTFORMW 渋る星を無理やり正面から抱きしめ、半ば強引に腰の上に―ペニスの上に座らせた
				PRINTFORML 「！あ、当たって…」
				PRINTFORML 抱き上げた星を少しずつ、少しずつ沈めてベニスを食い込ませていく…
				PRINTFORMW 「駄目、です…それは、それだけは、しちゃ、いけないんです…」
				PRINTFORMW 拒否の言葉だけで実際に抵抗されないことをいいことに、ゆっくり、ゆっくりと腰を進める……
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「あ…あ…？」
				PRINTFORMW 「私…やってしまいました…もう、戻れなくなっちゃいました…」
				PRINTFORMW 「毘沙門天様…寺の皆…聖…すみ、ませ、っく、うう…」
				PRINTFORMW 「う…っく、ふぅぅ…っ、っく、う、ううぅぅ…」
				PRINTFORMW あなたは声を殺して泣く星を強く抱きしめ、涙を舐め取った…
				PRINTFORMW まるで「お前にはもう俺しかいない」と主張するように――
			ENDIF
			RETURN 1
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「あなたの上にまたがって入れる…ですか？」
				PRINTFORML 「ふふっ…わかりました。私に食べられたいってことですよね？いいですよ…ちょっと緊張しますけど」
				PRINTFORMW 星は妖艶な笑みを浮かべてあなたの腰にまたがり、男根に手を添えた
				PRINTFORML 「では、いただきますね…ん…ん、ん、は、入って…っ%UNICODE(0x2665)%　は、はあっ%UNICODE(0x2665)%」
				PRINTFORMW 「あは…%MASTERNAME:87%のでおナカいっぱいになっちゃいました…%UNICODE(0x2665)%」
				PRINTFORML 「でも、足りないです。もっと食べちゃいますね…ん、んんっ、あはっ%UNICODE(0x2665)%」
				PRINTFORMW 「これいい%UNICODE(0x2665)%自分でいいトコ、抉れてっ、ああっ、%MASTERNAME:87%の気持ちいいっ%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 「あなたの上にまたがって入れる…ですか」
				PRINTFORML 「…判りました。あまり気が進みませんが…やってみましょう」
				PRINTFORMW 星はしぶしぶながらあなたの腰またがり、男根に手を添えた
				PRINTFORML 「ん…く、ううう…は、はあっ！はっ、は…入りました…」
				PRINTFORMW まだ慣れない異物感に耐えながら、星は健気に腰を動かし始めた…
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	;恋慕
	IF LOCAL:1 && TCVAR:100 == PLAYER && TALENT:恋慕
		;前回射精した
		IF TCVAR:102
			PRINTFORML 結合部からは今しがたたっぷりと注ぎ込んだ精液が愛液と混ざって逆流し、ぐちゅぐちゅと泡立っている…
			IF RAND:4 == 0
				PRINTFORMW 「あふっ、ああ…お腹の中で%MASTERNAME:87%の子種が揺れて…%UNICODE(0x2665)%」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「あっ、はっ、そんな、射精されたのにっ、腰が止まりません…っ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「やっ、そんなっ、射精されたまま、私っ、精液、膣内に擦り付けちゃってますっ！」
			ELSE
				PRINTFORMW 「そんな、あっ、だめなのにっ！膣内射精されたまま、しちゃったら、膣内に子種が馴染んじゃいますっ…！」
			ENDIF
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;騎乗位のまま
				IF TEQUIP:体位２ == 3
					PRINTFORML 「その…ゆっくりでいいですか…？」
					PRINTFORMW 「まだ…きつくて……」
				ELSE
					PRINTFORML 「う、上になるんですか？」
					PRINTFORMW 「分かりました…ん、く……」
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				;騎乗位のまま
				IF TEQUIP:体位２ == 3
					IF RAND:2 == 0
						PRINTFORML 「んくっ%UNICODE(0x2665)%　あっ、はっ…はっ…%UNICODE(0x2665)%」
						PRINTFORMW 星はあなたに覆いかぶさるようにして腰を動かしている
						PRINTFORMW 微かに揺れる胸が目も楽しませてくれる…
					ELSE
						PRINTFORML 「あ、腰っ、勝手に跳ねちゃいますっ%UNICODE(0x2665)%」
						PRINTFORMW 背筋を張り体を揺らす星。　その動きは少しずつ速くなっていく…
					ENDIF
				;正常位から
				ELSEIF TEQUIP:体位２ == 1
					IF RAND:3 == 0
						PRINTFORML 「ふふ…わかりました。じゃあ今度は私がしてあげますね…」
						PRINTFORMW 星は繋がったままあなたに抱きつき馬乗りになった
						PRINTFORML 「いっぱい気持ちよくしてあげますから、覚悟してくださいね%UNICODE(0x2665)%　ん…」
						PRINTFORMW 星は腰を卑猥にグラインドさせて、あらゆる角度でペニスを締め付けてきた…
						PRINTFORML 「ん、んはぁっ、んっ%UNICODE(0x2665)%　どう、ですか、あんっ、私のおまんこ、気持ちいいですか？」
						PRINTFORMW 「わたしは、はあっ%UNICODE(0x2665)%　とっても、きもちいいです、よ？ふ、ああっ」
					ELSEIF RAND:2 == 0
						PRINTFORMW 繋がったままの星を持ち上げ、あなたの体に跨らせた…
						PRINTFORMW 「はぅっ%UNICODE(0x2665)%！　そんな思い切り突きあげたっらぁ…っ」
						PRINTFORMW 「へんな、へんなところにあたっちゃうぅ%UNICODE(0x2665)%うあっ%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「ん…っ　私が上になるんですか？」
						PRINTFORMW 「分かりました…\@ TALENT:PLAYER:2 & 2 ? さっきまでの分、お返ししちゃいます # 私が動くところ見ててください \@ね♪」
						PRINTFORMW \@ ABL:欲望 >= 4 ? 妖艶な # 優しい \@ほほ笑みを見せて星は腰を動かし始めた
					ENDIF
				;後背位か背面座位から
				ELSEIF TEQUIP:体位２ == 2 || TEQUIP:体位２ == 5
					IF RAND:3 == 0
						PRINTFORML 「次は私が上で、ですか？ふふっ♪いいですよ…」
						PRINTFORMW 騎乗位を求めると、星は妖艶な笑顔で繋がったままあなたを押し倒した
						PRINTFORMW 感触を楽しむように男根を淫靡に撫で上げた後、舐るようにゆっくりと秘部で飲み込んでいく…
						PRINTFORML 「ん…んはっ、はぁ…んっ、んんんっ♪%MASTERNAME:87%のおちんちん、美味し…あんんっ♪」
						PRINTFORML 「ちょっとずつ、ちょっとずつ食べてあげます…それまでイッちゃ駄目ですよ…？」
						PRINTFORMW 膣肉が啄ばむようにキュンキュンと締め上げるたび、射精感がこみ上げてくる…
					ELSEIF RAND:2 == 0
						PRINTFORML 星は後ろに倒れこんだあなたに振り向くと少し言いにくそうに言葉を紡いだ
						PRINTFORML 「あの、このまま動くとその…お尻の方が見えすぎちゃうんですけど…」
						IF ABL:Ａ感覚 <= 3
							PRINTFORMW 「それがいい、ですか？　もぅ…」
						ELSE
							PRINTFORMW 「それとも…この%MASTERNAME:87%好みに開発されちゃったお尻をいじるのつもりなんですか%UNICODE(0x2665)%？」
						ENDIF
					ELSE
						PRINTFORML 「はー……」
						PRINTFORMW 星は視線を落として結合部の辺りを見つめている
						IF ABL:欲望 >= 3
							;MASTERが男性
							IF TALENT:PLAYER:2 == 2
								PRINTFORMW すると突然あなたの陰嚢を指先でいじり始めた
							;MASTERがふたなり
							ELSE
								PRINTFORMW すると突然あなたの陰唇\@ TALENT:PLAYER:2 & 2 ? を指で軽く撫であげた # の辺りを強くつついた \@
							ENDIF
							PRINTFORML 「ふふっ、びっくりしました？　今度は気持ちよくしてあげますからね…♪」
							PRINTFORMW こちらに振り返った星は楽しそうに笑いながら腰を動かし始めた…
						ELSE
							PRINTFORML 「！　なんでもありません！　う、動きますね…」
							PRINTFORMW あなたの視線に気付いた星は何故か慌てている
						ENDIF
					ENDIF
				;対面座位から
				ELSE
					IF RAND:3 == 0
						PRINTFORML 「クスッ♪じゃあ、今度は私が気持ちよくしてあげますね…」
						PRINTFORML 「おナカいっぱいになるまで食べちゃいますよ%UNICODE(0x2665)%」
						PRINTFORMW 星は獲物を見る目つきであなたを見据え、繋がったままあなたの上半身を押し倒した
						PRINTFORML 「んふ…はぁ…っ%UNICODE(0x2665)%　い、いいっ…」
						PRINTFORMW 「%MASTERNAME:87%の、美味し…はぁっ%UNICODE(0x2665)%　あ、あん…ふあっ…♪」
					ELSEIF RAND:2 == 0
						PRINTFORML 「あ……少し休むんです…かぁっ%MASTERNAME:87%！？」
						PRINTFORML 抱き合うような体勢から寝そべる形になったあなたを眺めていた星だったが
						PRINTFORMW あなたからの催促するような突きあげに慌てて自分も腰を動かし始めた
						PRINTFORML 「あんっ！　分かりましたっ！　今度は私がしますからっ！」
						PRINTFORMW 「だから奥つつくの止めてくださいぃいっ%UNICODE(0x2665)%%UNICODE(0x2665)%！」
					ELSE
						PRINTFORML 星はあなたとともに体を倒すとあなたの頬に口づけをして体を起こした
						PRINTFORMW 「ふふ…今度は私の番ですよ」
						PRINTFORMW 「気持ちよく…なってくださいね」
					ENDIF
				ENDIF
			ELSE
				;騎乗位のまま
				IF TEQUIP:体位２ == 3
					PRINTFORML 「はっ、あっ…ん…くはっ%UNICODE(0x2665)%」
					PRINTFORMW 星は肩で息をつきながら腰を動かしている
				ELSE
					PRINTFORML 「今度は私が上ですか？」
					PRINTFORMW 「いいですよ、頑張りますね♪」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;Ｖ感覚1以下
	IF ABL:Ｖ感覚 <= 1
		IF RAND:2 == 0
			PRINTFORMW 「ん、ぅ…押し広げられて……」
		ELSE
			PRINTFORMW 「うう…自分から動くのは恥ずかしいです…」
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORML 「ん……あっ！？　～～～～～っ%UNICODE(0x2665)%%UNICODE(0x2665)%！！」
			PRINTFORMW しかし挿入中に足を滑らせそのまま一気に根元まで\@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@を飲み込んでしまった
			PRINTFORMW 膣内を貫くような強烈な衝撃に星は頤を上げて痙攣している…
		ELSEIF RAND:2 == 0
			PRINTFORML 「はあ、あ……全部、入りましたあ…」
			PRINTFORMW 星はあなたの上で荒く息をついている
			PRINTFORMW 「それじゃあ動きますね……はっ、ふ……あ…」
		ELSE
			PRINTFORMW 「んん……う……ふぁっ%UNICODE(0x2665)%　……ん…っ%UNICODE(0x2665)%」
			PRINTFORML ぴくりぴくりと止まりながらゆっくりと腰を落としていく星
			PRINTFORMW 本人は意識していないだろうがそれはまるであなたを焦らしているかのようだった
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORML 「ん…あ、ふ…っ」
		PRINTFORMW 「ふふ…どうですか……？」
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW 「ふぁ…自分からするの…よくなっちゃいましたぁ…」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;66,騎乗位アナル
;==================================================
@M_KOJO_MESSAGE_COM_K87_66
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_66_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_66_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;67,対面座位
;==================================================
@M_KOJO_MESSAGE_COM_K87_67
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_67_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_67_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF TCVAR:破瓜 == 1
			IF TALENT:恋慕
				PRINTFORMW 「このまま入れる…です、か？」
				PRINTFORMW 星を抱きしめたまま、繋がることを伝えた
				PRINTFORMW 「あ…とうとう、ですね…%MASTERNAME:87%、少し怖いので、ゆっくりお願いします…」
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「ぜん、ぶ、入りましたか…？」
				PRINTFORMW 「嬉しい、です…%MASTERNAME:87%が今、私の中に入っているのですね…」
				PRINTFORML 固く抱擁し合ったまま、星が耳元でそっと囁く…
				PRINTFORML 「ふふっ…、私、%MASTERNAME:87%が初めての相手ですごく嬉しいです…」
				PRINTFORMW 「ねえ%MASTERNAME:87%…このまま、ぎゅってしてください…」
				PRINTFORML
				PRINTFORMW 「…あと、キスもしてください…」
			ELSE
				PRINTFORML 星に自分にまたがって、自ら挿入するよう命じた
				PRINTFORML 「むむむ無理ですそんなのっ！したこともないのにっ」
				PRINTFORMW 渋る星を無理やり正面から抱きしめ、半ば強引に腰の上に―ペニスの上に座らせた
				PRINTFORML 「！あ、当たって…」
				PRINTFORML 抱き上げた星を少しずつ、少しずつ沈めてベニスを食い込ませていく…
				PRINTFORMW 「駄目、です…それは、それだけは、しちゃ、いけないんです…」
				PRINTFORMW 拒否の言葉だけで実際に抵抗されないことをいいことに、ゆっくり、ゆっくりと腰を進める……
				PRINTFORML
				PRINTFORML 「っ」
				PRINTFORMW ペニスが、星の充血した小陰唇を掻き分け―
				PRINTFORML
				PRINTFORML 「っう、ううっ…」
				PRINTFORMW 膣口をこじ開け―
				PRINTFORML
				PRINTFORML 「くうっ…あ、ああっ…」
				PRINTFORMW 処女膜を引き裂き―
				PRINTFORML
				PRINTFORML 「あ…あ…っは、はうっ！はっ、はっ、あ…」
				PRINTFORMW 遂に最奥に到達した…
				PRINTFORML
				PRINTFORMW 「あ…あ…？」
				PRINTFORMW 「私…やってしまいました…もう、戻れなくなっちゃいました…」
				PRINTFORMW 「毘沙門天様…寺の皆…聖…すみ、ませ、っく、うう…」
				PRINTFORMW 「う…っく、ふぅぅ…っ、っく、う、ううぅぅ…」
				PRINTFORMW あなたは声を殺して泣く星を強く抱きしめ、涙を舐め取った…
				PRINTFORMW まるで「お前にはもう俺しかいない」と主張するように――
			ENDIF
			RETURN 1
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「この体勢で、ですか…？わ、分かりました、見えなくてちょっと怖いですけど…」
				PRINTFORMW 「はい、そこです…　っ！は、入ってきますっ…！く、ううっ…」
				PRINTFORMW 抱きしめた星の秘部にペニスをあてがい、ゆっくりと星を貫いていく…
				PRINTFORMW 「…っ、全部、入りました、か？　…あ、でも、これ、私好きかも知れません」
				PRINTFORMW 「だって、全身で%MASTERNAME:87%を感じられますから…%UNICODE(0x2665)%　んーっ%UNICODE(0x2665)%」
				PRINTFORMW 星はそう囁き、より一層強くあなたを抱きしめた…
			ELSE
				PRINTFORML 「あなたに抱きついて挿入する…ですか」
				PRINTFORML 「…判りました。やってみましょう」
				PRINTFORMW 星はおずおずとあなたの腰またがり、男根に手を添えた
				PRINTFORML 「ん…く、ううう…は、はあっ！はっ、は…入りました…」
				PRINTFORMW まだ慣れない異物感に耐えながら、星は健気に腰を動かし始めた…
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR:102  && NOWEX:MASTER:11 == 0
			PRINTFORML 二人が動くごとに鈍い水音とともに精液が溢れだす…
			PRINTFORMW 「あ…やっ、漏れてきちゃってます」
			SIF TALENT:恋慕
			PRINTFORMW 「せっかく%MASTERNAME:87%に注いでもらったのに…っ」
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				PRINTFORMW 「ふ、ぅ……あんまり、揺らしたら…っ」
			;恋慕
			ELSEIF TALENT:恋慕
				;対面座位のまま
				IF TEQUIP:体位２ == 4
					IF RAND:3 == 0
						PRINTFORML 「あっ、んんっ、ふ、あ、あっ、うぁっ%UNICODE(0x2665)%」
						PRINTFORMW あなたの手を離れた星は後ろに手をついて細かく喘ぎ声を漏らしている
						PRINTFORMW 星が後ろに傾いているおかげで淫液にまみれた結合部がよく見える…
					ELSEIF RAND:2 == 0
						PRINTFORML 「はっ、あっ、はっ…ああっ%UNICODE(0x2665)%」
						PRINTFORMW 星はあなたの肩に手をかけながら腰を振りたくっている
						PRINTFORMW 「ふ、あ…気持ち、いいです…っ」
					ELSE
						PRINTFORML 「%MASTERNAME:87%…こういうのはどうでしょう…」
						PRINTFORMW 星は腰を押し付けて擦りつけるような動きに変えてきた
						SIF ABL:膣 >= 3
							PRINTFORMW まるでそれに合わせるように膣肉も締め付けるような動きから纏わりつくような動きに変わった…
						SIF TALENT:PLAYER:2 & 2 && PALAM:欲情 >= PALAMLV:4
							PRINTFORMW 「あはっ、びくって膨らみました…%UNICODE(0x2665)%　効果覿面、ですね♪」
					ENDIF
				;正常位から
				ELSEIF TEQUIP:体位２ == 1
					PRINTFORML あなたに抱きかかえられた星は積極的に腰を動かしてきた
					PRINTFORMW 「さっきいっぱいされた分のお返しです♪」
					PRINTFORMW 「気持ちよくなってくださいね…　出そうになっちゃったらいつでもどうぞ%UNICODE(0x2665)%」
				;騎乗位から
				ELSEIF TEQUIP:体位２ == 3
					PRINTFORMW 起き上がったあなたを星は抱きすくめるように迎え入れる
					PRINTFORML 「どうぞ…可愛がってくださいね♪」
					PRINTFORMW そしてお互い貪りあうように腰を動かし始めた…
				;後背位、背面座位から
				ELSE
					PRINTFORML 「やっぱり顔が見える方が好きです」
					PRINTFORMW 「この体勢はぎゅってすることもキスすることもできますしね%UNICODE(0x2665)%」
				ENDIF
			ELSE
				PRINTFORML 「あくっ、あ、は…あっ」
				PRINTFORMW 「気持ち、いいです……んっ」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;Ｖ感覚1以下
	IF ABL:Ｖ感覚 <= 1
		PRINTFORMW 「まだ慣れてないので…あまり激しくはしないでくださいね」
		SIF TALENT:恋慕
		PRINTFORMW 「その…刺激が強すぎて……%UNICODE(0x2665)%」
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORML 「ちゅ……ふふっ%UNICODE(0x2665)%」
			PRINTFORMW 星は頬に軽く口づけをするとゆっくりと動き始めた…
		ELSEIF RAND:2 == 0
 			PRINTFORML 「ん…奥まで来てます…」
			PRINTFORMW 「お腹の中いっぱいで……素敵…%UNICODE(0x2665)%」
			PRINTFORMW 星は目を瞑りうっとりとした声でつぶやいた…
		ELSE
			PRINTFORML 「はぁ…%MASTERNAME:87%…」
			PRINTFORMW 星は腕を伸ばすとあなたの背に回して抱きついてきた
			PRINTFORMW 体も\@ TALENT:PLAYER:2 & 2 ? 陰茎 # ペニスバンド \@も星に優しく包まれる…
		ENDIF
		RETURN 1
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「ああ…奥の方、来てます…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 星はあなたの肩に手をかけながらゆっくりと腰を下ろした…
			PRINTFORMW 「はぁ……はいり、ましたぁ…」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;68,背面座位
;==================================================
@M_KOJO_MESSAGE_COM_K87_68
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_68_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_68_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORML 「痛っ……ぅ　はー……」
			PRINTFORMW 「もぅ…初めてなのに後ろからなんて……」
			IF TALENT:恋慕
				PRINTFORML 星はあなたの手を取ると自分の前に持ってきて手を重ねた
				PRINTFORMW 「罰として、しばらくぎゅっとしていてくださいね%UNICODE(0x2665)%」
			ENDIF
			RETURN 1
		ELSE
			PRINTFORML 星は目を閉じてあなたに寄りかかっている
			PRINTFORMW 「こういうのもなんだかいいですねー……」
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR:102  && NOWEX:MASTER:11 == 0
			PRINTFORMW 「はふ…ぁ　お腹、どろどろ…」
			SIF TALENT:恋慕
			PRINTFORMW 「いっぱい、出たんですね…%UNICODE(0x2665)%」
			RETURN 1
		ELSE
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				PRINTFORMW 「う、ぁ…つよ、いぃ……」
			ELSEIF TALENT:恋慕
				;背面背面座位のまま
				IF TEQUIP:体位２ == 5
					IF RAND:3 == 0
						PRINTFORML 「ふっ、あ、んっ…あぁ……すごいぃ…」
						PRINTFORMW 星はあなたに突き上げられるまま身体を跳ねさせている
						PRINTFORMW 「お腹、熱いです……　うあっ、ぐりってしたらぁ…%UNICODE(0x2665)%」
					ELSEIF RAND:2 == 0
						PRINTFORML 「あんっ、あっ、ふあぁっ！」
						PRINTFORMW 前に倒れこみそうになる星を腰を掴んで押し留める
						PRINTFORMW もちろんそれで突きあげを止めることなどなく膣奥を責め続けた…
					ELSE
						PRINTFORML 「ふ、あっ…顔、見えないですけれど…っ」
						PRINTFORMW 「%MASTERNAME:87%の息遣いは感じられます…\@ TALENT:PLAYER:2 & 2 ? 気持ちよくなってくれてるんですね # そばに、居るって \@…%UNICODE(0x2665)%」
					ENDIF
				;正常位、後背位から
				ELSEIF TEQUIP:体位２ == 1 || TEQUIP:体位２ == 2
					PRINTFORML 抱きかかえた星を\@ TEQUIP:体位 == 1 ? 後ろ向きにし # そのまま \@腰の上に下ろして突きあげ始める
					PRINTFORMW 「うあっ、あ%UNICODE(0x2665)%　さっきまで横になってたからか身体、ふわふわしますっ」
				;騎乗位、対面座位から
				ELSE
					PRINTFORML 後ろを向かせた時の余韻か、星は蕩けた表情で身体を震わせている
					PRINTFORMW 「うあぁ…%UNICODE(0x2665)%　いきなりぐりんて回さないでくださいぃ…」
					PRINTFORMW 「あ、だから、そんなすぐに動いたら…ふあうっ%UNICODE(0x2665)%！」
				ENDIF
			ELSE
				PRINTFORMW 「ふうっあ…あくっ、押し上げられて…っ%UNICODE(0x2665)%」
			ENDIF
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;Ｖ感覚1以下
	IF ABL:Ｖ感覚 <= 1
		PRINTFORMW 「ん…まだぴりぴりします……」
		SIF TALENT:恋慕
		PRINTFORMW 「早く気持ちよくなれるようにしてくださいね%UNICODE(0x2665)%」
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORML 「ああ…ふ…あ…%UNICODE(0x2665)%」
			PRINTFORMW 星は首を傾けて脱力している
			PRINTFORMW どうやら挿入の刺激だけで軽く達してしまったようだ
		ELSEIF RAND:2 == 0
			PRINTFORML 星はあなたに寄りかかり下腹の辺りを撫でまわしている
			PRINTFORMW 「\@ TALENT:PLAYER:2 & 2 ? %MASTERNAME:87%の熱が伝わってくるみたいです # 本物じゃなくても、%MASTERNAME:87%と繋がってるんですよね \@…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ん…こんな感じですか。　それじゃあ動きますね…」
			PRINTFORMW 挿入が終わり落ち着くと星もゆっくりと腰を動かし始めた
			PRINTFORMW 目の前で揺れる寅柄の髪から良い匂いが漂ってくる…
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORML 「ん…全部入りました…？」
		PRINTFORMW 「じゃ…始めましょうか%UNICODE(0x2665)%」
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW 「ふ…ぁ……は、あ…」
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;69,対面座位アナル
;==================================================
@M_KOJO_MESSAGE_COM_K87_69
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_69_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_69_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;70,背面座位アナル
;==================================================
@M_KOJO_MESSAGE_COM_K87_70
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_70_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_70_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;アナル処女
		IF TCVAR:Ａ破瓜
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;挿入継続
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && TCVAR:101 == PLAYER
		;前回射精した
		IF TCVAR:104
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;71,二穴挿し
;==================================================
@M_KOJO_MESSAGE_COM_K87_71
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_71_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_71_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;考えうる分岐が多すぎるので地の文の大まかな分岐だけ
	;連続
	IF PREVCOM == SELECTCOM
		PRINTFORMW
		RETURN 1
	;主人V挿入→助手A挿入
	ELSEIF TCVAR:100 == MASTER
		PRINTFORMW
		RETURN 1
	;主人A挿入→助手V挿入
	ELSEIF TCVAR:101 == MASTER
		PRINTFORMW
		RETURN 1
	;助手V挿入→主人A挿入
	ELSEIF TCVAR:100 == ASSI
		PRINTFORMW
		RETURN 1
	;助手A挿入→主人V挿入
	ELSEIF TCVAR:101 == ASSI
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;奉仕系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;80,手淫
;==================================================
@M_KOJO_MESSAGE_COM_K87_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_80_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_80_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋人
	IF TALENT:恋人
		;これでMASTERが射精する
		IF NOWEX:MASTER:11
			;技巧3以上
			IF ABL:技巧 >= 3
				;精液中毒3以上
				IF ABL:精液中毒 >= 3
					IF RAND:2 == 0
						PRINTFORML 「ここです、全部、舌にのせてください…」
						PRINTFORMW 星は舌を突き出すとそちらへと陰茎の先端を向けた…
					ELSE
						PRINTFORML 「ああ…早く、はやく私の口、%MASTERNAME:87%の子種でどろどろにしてください%UNICODE(0x2665)%」
						PRINTFORMW 星は待ちきれないといった風に手の動きを速めた…
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「ほら、ぐりぐりーってしてあげます」
						PRINTFORMW 「いっぱい出していいですよ%UNICODE(0x2665)%」
					ELSE
						PRINTFORMW 「激しくいきますよ、思い切り噴き出すくらいにお願いしますね♪」
					ENDIF
				ENDIF
			ELSE
				PRINTFORML (びくびくしてる…出るんですね…)
				PRINTFORMW 射精の予兆を感じ取った星は小さく喉を鳴らした…
			ENDIF
		ELSE
			DRAWLINE
			PRINTFORML 星は手を使っ\@ PREVCOM == SELECTCOM ? た奉仕を続けている # てあなたに奉仕を始めた \@…
			PRINTFORML
			;勃起しきっていない
			IF BASE:MASTER:勃起 < 1000
				IF RAND:2 == 0
					PRINTFORMW 「ん、まだ柔らかいですね」
					PRINTFORMW 「でもすぐに元気にしてあげますから%UNICODE(0x2665)%」
				ELSE
					PRINTFORML 星は完全には勃起していない陰茎をやわやわと揉みこんでいる
					PRINTFORMW 「ふふ、大っきくなってきました♪」
					PRINTFORMW 「それに指を弾くみたいに硬くなって…%UNICODE(0x2665)%」
				ENDIF
			ELSE
				;指のLv2以上か技巧4以上
				IF ABL:指 >= 2 || ABL:技巧 >= 4
					;※指のLv4以上で分岐追加
					SIF ABL:指 >= 4
						LOCAL:0 = 8
					SELECTCASE RAND(3 + LOCAL:0)
					;追加される分岐
					CASE 11
						PRINTFORMW 「ふふ、いいですよ…%UNICODE(0x2665)%　今まで愛してもらった分、たっぷりしてあげますね…%UNICODE(0x2665)%」
					CASE 10
						PRINTFORML 星の熱くて細い指が、あなたの\@ TALENT:PLAYER:2 == 1 ? 肉棒に絡みつき # 陰唇を \@ゆっくりと撫で上げる…
						PRINTFORMW 「ふふ、すごく熱くて、硬い…こんなに私で興奮してくれてるんですね、嬉しい…」
						PRINTFORMW 「クスッ…私と同じ、ですね…%UNICODE(0x2665)%」
					CASE 9
						PRINTFORMW 星はあなたの\@ TALENT:PLAYER:2 == 1 ? 肉棒を # 陰唇を \@やわやわと揉みながら、あなたの手を取り耳元で囁いた…
						PRINTFORMW 「ね…私のここにも、して欲しいです…」
					CASE 8
						PRINTFORMW 「あ…ここに私への「好き」がいっぱい詰まってるんですね…♪」
						PRINTFORMW 「どこに出したいですか…？このままですか？お口に出しますか？それとも…%UNICODE(0x2665)%」
					CASE 7
						PRINTFORML 「%MASTERNAME:87%のここ…ぴくぴくしてますよ…」
						PRINTFORMW 「これって『中に出したい、星を孕ませたい』って言ってるんですよね？くすくす…♪」
						PRINTFORMW 「でもね…私も、そうして欲しいって、そう思ってるんですよ…？」
					CASE 6
						PRINTFORML 片方の手で陰茎を刺激しながら空いた手で指の輪を作りカリ首を擦っている
						PRINTFORMW 「ここも敏感なんですね…%UNICODE(0x2665)%」
						PRINTFORML 「では強くするのと優しくするの、どっちがいいですか？」
						PRINTFORMW 星は巧みな愛撫であなたを悶えさせながら熱の籠った瞳で見つめてくる…
					CASE 5
						PRINTFORML 「こんなふうに一部分だけしてあげるのも好きでしょう？」
						PRINTFORMW 星は親指の腹を擦りつけるようにして亀頭や鈴口のみを刺激している
						PRINTFORMW 「あは…%MASTERNAME:87%のお汁…指先にとろぉって…%UNICODE(0x2665)%」
					CASE 4
						PRINTFORML 「この辺り…えいっ」
						PRINTFORMW 「ふふっ、この筋みたいな部分いじられるとびくってなるんですよね%UNICODE(0x2665)%」
					;元からの分岐
					CASE 3
						PRINTFORMW 「私の指、気持ちいいですか？」
						PRINTFORMW 「ひゃう♪　ふふ、こっちでお返事されちゃいました」
						PRINTFORMW あなたの陰茎が震え先走りが僅かに飛ぶと星は楽しそうに笑った…
					CASE 2
						;MASTERが男性
						IF TALENT:PLAYER:2 == 2
							PRINTFORML 陰茎だけでなく陰嚢にも指を絡めて優しく揉みこんでいる…
							PRINTFORMW 「ここに%MASTERNAME:87%の子種が詰まってるんですね…%UNICODE(0x2665)%」
							SIF ABL:精液中毒 >= 3
							PRINTFORMW 「あはぁ…早く私に恵んでください…%UNICODE(0x2665)%」
						;MASTERがふたなり
						ELSE
							PRINTFORML 陰茎だけでなく陰唇にも手を伸ばして擦りあげている…
							PRINTFORMW 「両方気持ちよくしてあげます%UNICODE(0x2665)%」
						ENDIF
					CASE 1
						PRINTFORML 「ああ…%MASTERNAME:87%の…熱い…%UNICODE(0x2665)%」
						PRINTFORMW 「それに…匂いも強い…%UNICODE(0x2665)%　手に染みついちゃいそう…」
					CASEELSE
						PRINTFORML 星は緩急をつけながら陰茎を擦りあげている…
						PRINTFORMW 「ほら…今度は速くしちゃいますよ%UNICODE(0x2665)%」
						PRINTFORMW あなたの虚を突きながら翻弄することが楽しいようだ
					ENDSELECT
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「両手の方がいいかな…」
						PRINTFORMW 星は手で挟み込むようにしてペニスを刺激し始めた
						PRINTFORMW あなたの陰茎が温かかな感触に包まれる…
					ELSE
						PRINTFORML 星は一所懸命に手を動かしてあなたの陰茎を刺激している…
						PRINTFORMW 「ん、どうですか…？」
						PRINTFORMW 「あ…先っぽからお汁……よかった、気持ちよくなってくれてるんですね%UNICODE(0x2665)%」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	;恋慕
		IF RAND:5 == 0
			PRINTFORML 「ん…じゃあしてもらった分、してあげますね…」
			PRINTFORMW 「どう、ですか？私、気持ちよく出来てるでしょうか…？」
		ELSEIF RAND:4 == 0
			PRINTFORML 星の火照った指が、あなたの\@ TALENT:PLAYER:2 == 1 ? 肉棒を # 陰唇を \@遠慮がちに撫で上げる…
			PRINTFORMW 「うわ、わ…こんなに熱くて、ぬるぬるしてて…」
		ELSEIF RAND:3 == 0
			PRINTFORML 星はあなたの\@ TALENT:PLAYER:2 == 1 ? 肉棒を # 陰唇を \@やわやわと揉みながらあなたに擦り寄る…
			PRINTFORMW 心なしか、自らの秘部を擦り付けて来るように感じる…
		ELSEIF RAND:2 == 0
			PRINTFORMW （私、今、%MASTERNAME:87%の…を愛撫してあげてるんですね…）
			PRINTFORMW （%MASTERNAME:87%がしてくれてたときも、こんな気持ちなんでしょうか…？）
		ELSE
			PRINTFORMW 「あ…すご…%MASTERNAME:87%の、ぴくっぴくってしてます…」
			PRINTFORMW （興奮してるときの私の…と、同じ、ですよね…ふふっ♪）
		ENDIF
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF RAND:3 == 0
			PRINTFORMW 「手で、ですね…いいですよ」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ふふっ、私の番ですね」
		ELSE
			PRINTFORMW 「では失礼して…こんな感じでしょうか」
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「わ、私が手で…ですか」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「わ、私がやるんですか…？」
		ELSE
			PRINTFORMW 「あ…その…こ、こんな感じでしょうか…？
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;81,フェラチオ
;==================================================
@M_KOJO_MESSAGE_COM_K87_81
;※MASTERが射精する時だけ元の地の文を呼ぶように変更
SIF NOWEX:MASTER:11
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_81_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_81_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;お掃除フェラ
	ELSEIF TCVAR:MASTER:112 == 1 || TCVAR:MASTER:112 == 2
		;お掃除用のLOCAL取得
		IF TCVAR:MASTER:112 == 1
			LOCAL = MASTER_POSE(SET_V,SET_P,1)
		ELSEIF TCVAR:MASTER:112 == 2
			LOCAL = MASTER_POSE(SET_A,SET_P,1)
		ENDIF
		DRAWLINE
		PRINTFORML 引き抜いたペニスに付着した精液を%CALLNAME:TARGET%に舐め取らせた…
		PRINTFORML
		;恋人
		IF TALENT:恋人
			;※EVENT_MESSAGE_ORGASM.ERBに合わせて精飲経験で分岐
			IF TCVAR:精飲経験 > 20
				IF RAND:3 == 0
					PRINTFORMW 「ん…れろ……ちゅるっ」
					PRINTFORML 星は精液のこびりついた男根を丁寧に舐めあげ、尿道に残る精液まできちんと吸い取った
					PRINTFORMW 「終わりましたよ♪　…お掃除だけでまた大っきくなってきたみたいですけどね…%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORML 「ちゅ…ん…ふう…ぷぁ…」
					PRINTFORMW 星は精液を味わいながら掃除を続けている…
					;中出しされたのはTARGET
					IF TCVAR:102 || TCVAR:104
						PRINTFORMW 「ん…%MASTERNAME:87%と私の味が混ざってる…%UNICODE(0x2665)%」
					;中出しされたのは他の人
					ELSE
						PRINTFORM 「ふふ…%MASTERNAME:87%と%CALLNAME:LOCAL%
							;呼称変。　響子なら「ちゃん」、マミゾウなら「さん」
							SIF NO:LOCAL == 8
							PRINT ちゃん
							SIF NO:LOCAL == 9
							PRINT さん
						PRINTFORMW の味が混ざって…%UNICODE(0x2665)%」
					ENDIF
				ELSE
					PRINTFORML 「ぷぁっ…はい、綺麗になりましたよ」
					PRINTFORMW 「どうします？　このままお口で続けます？」
					PRINTFORM 「それとも
					;中出しされたのはTARGET
					IF TCVAR:102 || TCVAR:104
						PRINTFORML また挿入れちゃいますか…%UNICODE(0x2665)%？」
						PRINTFORMW 星は今出した精液が滴る\@ TCVAR:102 ? 秘所 # アヌス \@に手を伸ばしあなたに見せつけるようにしてぐちぐちと掻きまわしている…
					;中出しされたのは他の人
					ELSE
						PRINTFORML 今度は私にしてくれるんですか…%UNICODE(0x2665)%？」
						PRINTFORMW 星は期待の籠った瞳であなたを見つめている…
					ENDIF
				ENDIF
			ELSE
				PRINTFORML 「ん…けふっ、ん…れろ…」
				PRINTFORMW まだ精液の味に慣れない星はときどき咽ながら掃除を続けている…
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF TCVAR:精飲経験 > 20
				PRINTFORML 「では、綺麗にしてあげますね…♪」
				PRINTFORMW 星は精液を味わいながら掃除を続けている…
			ELSE
				PRINTFORMW 「ん…ん…ぷはっ、綺麗に、なりましたよ…」
				PRINTFORMW （%MASTERNAME:87%…の味…♪）
			ENDIF
		;その他
		ELSE
			IF TCVAR:精飲経験 > 20
				PRINTFORML 「ちゅ…ん…ふう…ぷぁ…」
				PRINTFORMW 星は精液を味わいながら掃除を続けている…
			ELSE
				PRINTFORML 「ん…けふっ、ん…れろ…」
				PRINTFORMW まだ精液の味に慣れない星はうっすらと涙を浮かべながら掃除を続けている…
			ENDIF
		ENDIF
	;普通のフェラ
	;恋人
	ELSEIF TALENT:恋人
		;これでMASTERが射精する
		IF NOWEX:MASTER:11
			;技巧3以上
			IF ABL:技巧 >= 3
				;精液中毒3以上
				IF ABL:精液中毒 >= 3
					IF RAND:3 == 0
						PRINTFORMW 「じゅぢゅぅぅぅ～っ、ちゅぱ、ん、じゅるるるぅぅ～っ、ちゅぴ、ちゅぷ、ちゅぅぅぅ～っ」
						PRINTFORMW もはや奉仕ではなくご褒美と化したフェラチオを、一心不乱に続ける星
						PRINTFORMW その強烈な快感に蕩けた星は、射精を始めた肉棒にもお構いなしに吸い付いている…
					ELSEIF RAND:2 == 0
						PRINTFORMW 「ふあ、ぷ、ん、ちゅるっ、ちゅううっ」
						PRINTFORML (ああ…もうすぐ、なんですね…)
						PRINTFORML (欲しい…%MASTERNAME:87%の子種、口いっぱいに…っ)
						PRINTFORMW ひと際激しくなった口淫があなたを射精へと導く…
					ELSE
						PRINTFORMW 「じゅるるる、じゅぷぅ、じゅぅぅぅ、んく、ちゅぷ、ちゅぷ、じゅぷ、ん～～ちゅぅぅぅ！」
						PRINTFORMW あなたの限界を悟った星がわざと淫らな水音を響かせ、ラストスパートをかける
						PRINTFORMW その射精に特化した動きに、あなたのペニスは簡単に決壊した…
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORML 「んく…ちる…ん…ちゅ、ちろ…」
						PRINTFORMW 執拗に鈴口を舌先で責められあなたに限界が近づく…
					ELSEIF RAND:2 == 0
						PRINTFORMW 「ふふ、とどめさしちゃいますよ♪」
						PRINTFORMW 「れろ…んんんんんんっ」
						PRINTFORMW 根元から先端まで一気に舐めあげられあなたは限界を迎えた…
					ELSE
						PRINTFORMW 「激しくいきますよ、思い切り噴き出すくらいにお願いしますね♪」
					ENDIF
				ENDIF
			ELSE
				IF RAND:3 == 0
					PRINTFORML （私の、あんまりうまくないフェラ…チオでも、%MASTERNAME:87%を悦ばせられるみたい）
					PRINTFORMW （でも、もっともっと気持ちよくなって欲しい…もっと頑張らないと）
				ELSEIF RAND:2 == 0
					PRINTFORML 「じゅちゅ、ん、ぺろ、んぷ、ん…イきそうなんですか？」
					PRINTFORMW 「じゅぷ、いいれすよ、んっ、遠慮なく出してくださいね…」
				ELSE
					PRINTFORML 「はむ、ん…れろ……」
					PRINTFORMW （私が頑張ったら、そのぶん気持ちよく出せるんですよね…？)
				ENDIF
			ENDIF
		ELSE
			DRAWLINE
			PRINTFORML 星は口を使っ\@ PREVCOM == SELECTCOM ? た奉仕を続けている # てあなたに奉仕を始めた \@…
			PRINTFORML
			;勃起しきっていない
			IF BASE:MASTER:勃起 < 1000
				IF RAND:3 == 0
					PRINTFORMW 「ん…ふ…れろ…れ…ちゅ…」
					PRINTFORMW (口の中で少しずつ大きくなっていくこの感じ…すごく好きです%UNICODE(0x2665)%)
				ELSEIF RAND:2 == 0
					PRINTFORML 「すぐに大っきくしてあげますね…あむ」
					PRINTFORMW 星はあなたの亀頭を口に含み舌を這わせ始めた
					PRINTFORMW 先端だけのもどかしさに陰茎が硬くなっていく…
				ELSE
					PRINTFORML 「ん…れ……れろ……」
					PRINTFORMW 星はまだ柔らかい陰茎にゆっくりと舌を這わせている
					PRINTFORMW 優しい奉仕にあなたの怒張が少しずつ反りかえっていく…
				ENDIF
			ELSE
				;舌のLv2以上か技巧4以上
				IF ABL:舌 >= 2 || ABL:技巧 >= 4
					;精液中毒Lv.3以上で追加される分岐
					IF RAND:10 == 0 && ABL:精液中毒 >= 3
						PRINTFORML 「ホラ、ここ…ここに入れてください…」
						PRINTFORMW 星はあなたの足元にぺたんと座り、怒張の目の前で口を開けた
						PRINTFORMW 熱い吐息があなたの欲望にかかり、口内では唾液に塗れた舌がてらてらと光っている…
						PRINTFORMW 「はぁ、ほらぁ…いっぱいちゅっちゅしてあげますから…奥でせーえきびゅーって出してください…」
					ELSEIF RAND:9 == 0 && ABL:精液中毒 >= 3
						PRINTFORML 「私、知ってるんですよ…？焦らせば焦らした分だけ、気持ちよくてたくさんしゃせーしちゃうんですよね%UNICODE(0x2665)%」
						PRINTFORMW 星は妖艶な笑みを浮かべながら、あなたの肉棒を口内で蹂躙する
						PRINTFORML 大量射精させることに特化したその動きは、あなたの性興奮を昂ぶらせつつ安易な射精を許さない程度の刺激を与え続ける…
						PRINTFORMW 「んふ…♪えっちなせーえき、たくさんたくさん出してくださいね…%UNICODE(0x2665)%」
					ELSEIF RAND:8 == 0 && ABL:精液中毒 >= 3
						PRINTFORML 「あ…%UNICODE(0x2665)%　%MASTERNAME:87%のここ、いっぱい溜まってますね…♪」
						PRINTFORMW 星は勃起したペニスを優しく擦り上げながら、陰嚢に唇を這わせあなたの興奮を煽っている…
						PRINTFORML 男性器全体へのキスで散々焦らした後、双方が心待ちにしていた、星のねっとりと絡みつくフェラチオが始まる…
						PRINTFORMW 「ちゅぷ…んん…にゅぷぅ、ぬちゅ…ほら、たっぷり溜めた精を、私の中に吐き出してくださいな…♪」
					ELSEIF RAND:7 == 0 && ABL:精液中毒 >= 3
						PRINTFORML 「あ…おちんちん…」
						PRINTFORMW 目の前にペニスを差し出すと、星はほとんど反射的にそれを咥え、蕩けた表情でしゃぶり始めた
						PRINTFORML 「ん…んんっ、んちゅっ、ちゅぷちゅぷ、ちゅぴ、はぁっ%UNICODE(0x2665)%、ああっ、あむ…じゅちゅぅぅ…」
						PRINTFORMW 「はぁ、口の中で、びゅく、びゅくってしてください…それとも…顔にかけるほうが好きですか…？」
					ELSEIF RAND:6 == 0 && ABL:精液中毒 >= 3
						PRINTFORMW 「ね…私、最近気づいたんですけど…%MASTERNAME:87%の精液ですごくいやらしくなれるんです…」
						PRINTFORMW 「臭いだけでじゅんっ…って濡れちゃいますし、おクチの中に出されたら、もう…%UNICODE(0x2665)%」
						PRINTFORMW 「ふふ…興奮しますか？じゃあたくさん出してくださいね…♪ちゅ、ん、ちゅ、ぬちゅっ、ちゅぷっ、んんっ…」
						PRINTFORMW 星の柔らかい頬肉が、熱くぬめった舌が、慈愛の篭もった動きで射精への興奮を高めていく…
					ELSEIF RAND:13 == 0
						PRINTFORML 星はあなたのペニスにキスと頬ずりを繰り返し、男性器の熱と臭いに陶然となっている…
						PRINTFORMW 「ふふ…ちゅ、%MASTERNAME:87%のここ、ぺろ、がちがちです…あはぁ、すごい臭い…♪」
						PRINTFORMW 「では、頂きます…あむ、ん…ちゅぷ、にゅぷっ…は、あっ♪おいし…ぢゅぷぅ、ぷちゅっ、ちゅぱっ…｣
					ELSEIF RAND:12 == 0
						PRINTFORMW 「ちゅぷ、ちゅぴ、んふっ…お口の中で、びくっびくってしてます…とっても可愛いですよ…｣
						PRINTFORMW 「もう出ちゃいますよね？%MASTERNAME:87%のここ、『お口の中に出したい、出したいっ』って言ってますよ？」
						PRINTFORMW 星はあなたの股座に顔を埋め、夢中でペニスを貪っている…
					ELSEIF RAND:11 == 0
						PRINTFORML 「ちょっとずつ、ちょっとずつ食べてあげますね…♪」
						PRINTFORMW ペニスの先端に星の柔らかい唇が触れ、ゆっくりとゆっくりと、その熱く潤った肉の間に侵入していく…
						PRINTFORMW 大量に分泌された唾液が飲み込まれた肉棒に塗り付けられ、先走りと混じり合い、嚥下されていく…
						PRINTFORMW 「ん…♪おふひのなひゃ、おひんひんのにおい、いっひゃい…%UNICODE(0x2665)%」
					ELSEIF RAND:10 == 0
						PRINTFORML 「じゅ、ぢゅううぅ、ぷちゅぅ、はっ、はっ…あむん、ちゅぷっ、にゅぷ、ぢゅるるぅ…」
						PRINTFORMW わざと淫靡な水音を立てて、熱くぬめる星の舌が肉棒に絡みついて蠢く…
					ELSEIF RAND:9 == 0
						PRINTFORML 「んふ…じゃあ、いっぱいいっぱい可愛がってあげますね…%UNICODE(0x2665)%　ちゅ、ちゅ、ん、ぺろ、ちゅっ」
						PRINTFORMW 完全に愛情の篭もった眼差しであなたのペニスにキスの雨を降らせる星…
						PRINTFORMW バードキスから少しずつ少しずつ舌を絡める動きが増え、ディープキスに変化していく…
						PRINTFORMW 「ちゅぷ、んっ、じゅっぷ、じゅっぷ、ぢゅるるる、んんっ、ちゅく…、ぬぷ…、はぁむ……ん…」
					ELSEIF RAND:8 == 0
						PRINTFORML 「もっと、欲しいです…む、ぁ…ちゅるるっ！」
						PRINTFORMW 星は陰茎を深く咥えこむと口をすぼめて吸いあげてきた
						PRINTFORMW あまりの快感に思わず腰が引けるが星は逃すまいとあなたの腰に腕をまわして抱き留めてきた
						PRINTFORML 「んく、ちゅうっ、じゅる、ちぅっ」
						PRINTFORMW 熱烈な吸引奉仕はあなたの腰が抜ける寸前まで続いた…
					ELSEIF RAND:7 == 0
						PRINTFORML 「先っぽいきますね…ちゅ」
						PRINTFORMW 亀頭に口づけた星は細かく吸い上げながら時々ちろりと舌を這わせる
						PRINTFORML 「お汁も…ちゅるっ…ん……」
						PRINTFORMW 偶に鈴口にも唇をつけて先汁を吸い取っていく…
					ELSEIF RAND:6 == 0
						PRINTFORML 「それじゃ……はむ」
						PRINTFORMW 星は陰茎の横から顔を寄せて幹を唇で挟み込んできた
						PRINTFORML 「んむ…んっ、れろ…ちゅ…」
						PRINTFORMW 柔らかな唇の感触を与えながら舌を動かしてあなたを感じさせてくれる…
					ELSEIF RAND:5 == 0
						PRINTFORML 「あぁ…、%MASTERNAME:87%…%UNICODE(0x2665)%」
						PRINTFORMW 星はあなたを見上げるようにしながら奉仕している
						PRINTFORMW (お口の中で大きくなって…気持ちいいんですね…？)
					ELSEIF RAND:4 == 0
						PRINTFORML 「それじゃいきますよー…んむっ%UNICODE(0x2665)%」
						PRINTFORMW 星は大きく口を開けて陰茎を咥えこんだ
						PRINTFORML 「じゅ、ちゅく、ちゅ…じゅるっ、ちゅ、ちる…ちゅく」
						PRINTFORMW うねる舌があなたの陰茎を這いずり回る…
					ELSEIF RAND:3 == 0
						PRINTFORML 「はぁ…こんなに大きくなって…それに、熱い…%UNICODE(0x2665)%」
						PRINTFORMW 一度口を離した星は蕩けた顔であなたの陰茎に頬ずりしている
					ELSEIF RAND:2 == 0
						PRINTFORML 「ちゅる、じゅ、はぷ……」
						PRINTFORMW 星はうっとりとした表情で口淫に夢中になっている
						PRINTFORMW (お口の中%MASTERNAME:87%の匂いでいっぱい…クラクラしちゃいます%UNICODE(0x2665)%)
					ELSE
						PRINTFORML 「はふ、ぁう……ふー…あむ」
						PRINTFORMW 星は頬の内側で亀頭を擦りあげている
						PRINTFORMW 舌ともまた違う感触があなたを楽しませる…
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 星はあなたを見上げるようにしながら奉仕している
						PRINTFORMW 「あの…気持ちいいですか…？」
						PRINTFORMW 不安の混じった視線にあなたの心に潜む何かが満たされる…
					ELSE
						PRINTFORML 「はふ、む……れぅ…」
						PRINTFORMW まだ拙さの残る奉仕だがそれもまた快感のスパイスになる
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;精液中毒Lv.3以上でランダム分岐3個追加
		IF RAND:7 == 0 && ABL:精液中毒 >= 3
			PRINTFORML 「ふふ…じゃあ私が気持ちよくしてあげますから、口の中でいっぱい出してくださいね…%UNICODE(0x2665)%」
			PRINTFORMW 星は口内と体内を精液で犯されることに全く抵抗がなくなったようだ…
		ELSEIF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORML 「ちゅぷ、ぺろ、んんっ…ちゅ、ぺろ、ふふ、おちんちんぴくぴくしてます…出そうですか？」
			PRINTFORMW 「あむ、ぬぷっ、は、いいですよ…ぢゅちゅぅぅ、ぢゅぷ、ん、たくさん出してください…ちゅ、んくっ…んんっ…」
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORML 「あ、あの…出そうになったら言ってくださいね？その瞬間に吸い出してあげますから」
			PRINTFORMW 「遠慮しなくていいんですよ？気持ちよくなってもらえるのは私も嬉しいですし…精液も…その…ちょっと興奮しますから%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0
			PRINTFORML 「ちゅぷ、ん、ちゅく、ぷあ、は、れるれる、んんっ…」
			PRINTFORMW （私、今、殿方の…%MASTERNAME:87%のっ…を、舐めてるん、です、ね…）
			PRINTFORMW （何て淫らで、気持ちよくて、幸せなんでしょうか…）
		ELSEIF RAND:3 == 0
			PRINTFORML 「んっく、ふぅんっ、ちゅぱっ、はぁ、気持ちいいですか…？んんっ、ちゅく…ちゅぴ…」
			PRINTFORMW 奉仕の喜びに目覚めた星は、積極的に優しいフェラチオを続けている…
		ELSEIF RAND:2 == 0
			PRINTFORML 「…ちゅ、ん、ぺろ、んんっ…ふふ、%MASTERNAME:87%の顔、とっても可愛いですよ…もっと気持ちよくなってくださいね…」
			PRINTFORMW 星はあなたの腰に抱きついて、慈愛に満ちた表情で口内のペニスを弄んでいる…
		ELSE
			PRINTFORML 「ちゅる、じゅ、ふぁ、ん、んぶぅ、ちゅぷ、ちゅっ……じゅるるるるっ！」
			PRINTFORMW 星の舌遣いから、あなたを悦ばせようという意思がダイレクトに伝わり、あなたの性的興奮をさらに高めていく…
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		;これでMASTERが射精する
		IF NOWEX:MASTER:11
			PRINTFORML 「む…出そうなんですか？」
			PRINTFORMW 「大丈夫ですよ、このまま…」
		ELSE
			DRAWLINE
			PRINTFORML 星は口を使っ\@ PREVCOM == SELECTCOM ? た奉仕を続けている # てあなたに奉仕を始めた \@…
			PRINTFORML
			IF RAND:5 == 0
				PRINTFORMW 「ん…ふ……れる…」
				PRINTFORMW 星はゆっくりと陰茎に舌を這わせている…
			ELSEIF RAND:4 == 0
				PRINTFORML 「ちゅ…む…」
				PRINTFORMW 星はときどき吸いあげるようにして刺激を咥えてきている
			ELSEIF RAND:3 == 0
				PRINTFORMW 「あ…舐めるんですか？いいですよ…ちゅ、ぺろ、はぁ、んんっ…」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「咥えた方がいいんですか？ぱく、ん、んんっ…こうれふか？」
			ELSE
				PRINTFORMW 星は「男性器を舐めている」という背徳行為自体に興奮しているようだ…
			ENDIF
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「ま、また舐める、んですか…？」
		ELSEIF RAND:2 == 0
			PRINTFORMW （私、今、男の人の…を、舐めちゃってます…）
		ELSE
			PRINTFORMW 「や、やっぱりこれは私にはハードル高いです…」
		ENDIF
	ENDIF
ENDIF
RETURN 1

;==================================================
;82,パイズリ
;==================================================
@M_KOJO_MESSAGE_COM_K87_82
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_82_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_82_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;恋人
		IF TALENT:恋人
			PRINTFORMW 「挟んで擦る…ですか？ふふっ、いいですよ%UNICODE(0x2665)%%MASTERNAME:87%って私のおっぱい大好きですもんね%UNICODE(0x2665)%」
			PRINTFORMW 「私も…ふふっ%UNICODE(0x2665)%%MASTERNAME:87%のおちんちん大好きですから」
			PRINTFORMW 「私のおっぱいで気持ちよくなって射精してくれるって考えるだけで…興奮しちゃいます%UNICODE(0x2665)%」
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW 「おっぱいで挟んで擦る…ですか…？うわ、わっ…」
			PRINTFORMW 星は行為を想像して真っ赤になっている
			PRINTFORMW 「す、すごくえっちですね…で、では失礼して…」
		ELSE
			PRINTFORMW 「む、胸に挟んで…ですか…！？む、睦み事にもいろいろあるのですね…」
			PRINTFORMW 「よくわからないですけど…%MASTERNAME:87%がして欲しいなら…」
		ENDIF
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋人
	ELSEIF TALENT:恋人
		;これでMASTERが射精する
		IF NOWEX:MASTER:11
			IF RAND:2 == 0
				PRINTFORML 「ふふ…%MASTERNAME:87%のおちんちん、びくびくって…　出そうなんですね」
				PRINTFORMW 「いいですよ…私の顔とおっぱいに、あっついのいっぱいかけて…」
				PRINTFORMW 星は挟む力を強めてあなたの射精を待っている…
			ELSE
				PRINTFORMW 「ん…ん、ちゅ、ふう、んんっ…はぁ、そろそろですね♪どこに出したいですか？」
				PRINTFORMW 溜め込んだ精が放出される気配を悟って、それを心待ちにする星が淫靡に問いかける…
				PRINTFORMW 「乳首に直接かけますか？挟んだまま顔に？それとも…谷間に閉じ込めたまま、中出し…しちゃいます？」
			ENDIF
		ELSE
			;精液中毒Lv.3以上でランダム分岐3つ追加
			IF RAND:8 == 0 && ABL:精液中毒 >= 3
				PRINTFORML 「ふふ、おっぱいで、ですか？いいですよ、私もしてあげたいなって思ってたところです」
				PRINTFORMW 「んしょ…え？だって、私のやらしいおっぱいで%MASTERNAME:87%が悦んでくれるの、とっても嬉しいですし、それに」
				PRINTFORMW 「…私、%MASTERNAME:87%がおっぱいに出してくれた日は毎晩、その匂いでオナニーしちゃうんです…%UNICODE(0x2665)%」
				PRINTFORMW 「ふふ…私も立派な変態さんですね%UNICODE(0x2665)%ですから、遠慮なく顔にも、おっぱいにも精液かけてくださいね%UNICODE(0x2665)%」
			ELSEIF RAND:7 == 0 && ABL:精液中毒 >= 3
				PRINTFORMW 「あら…また私の胸に出したいんですか？」
				PRINTFORMW 「これ、なかなか臭いが取れないんですよ…皆と喋ってるときも、お勤め中も…寝るときも…%UNICODE(0x2665)%」
				PRINTFORMW 「ふふっ…でも、いいんですよ？ホラ、たっぷり出して、私に%MASTERNAME:87%の臭いを付けてください…%UNICODE(0x2665)%」
			ELSEIF RAND:6 == 0 && ABL:精液中毒 >= 3
				PRINTFORML 「ほら…私のおっぱいで搾り取ってあげます%UNICODE(0x2665)%　あ…あっつい…%UNICODE(0x2665)%」
				PRINTFORMW 汗ばんだ星の乳肉が竿に吸い付き、射精させない絶妙な刺激であなたの怒張を扱き上げている
				PRINTFORMW 「たっぷり焦らしてあげますから、いっぱいせーえき出してくださいね…期待してますよ%UNICODE(0x2665)%」
			ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
				PRINTFORML 「あ、はぁ…%UNICODE(0x2665)%　%MASTERNAME:87%の、ん、ちゅ、おちんちん、熱くてびくびくしてます…」
				PRINTFORMW 柔肉で陰茎をこねながら、星が亀頭にキスを繰り返す。先走りが唾液と混じり、ねちゃねちゃと淫靡な音を立てる…
				PRINTFORMW 「あ、でもまだ出しちゃダメですよ？私、限界まで溜めたおちんちんを射精させるのが好きなんです%UNICODE(0x2665)%」
				PRINTFORMW 「たくさん出してる%MASTERNAME:87%とおちんちんって、とっても可愛いんです。だから…まだまだ我慢してくださいね？」
			;元からの分岐
			ELSEIF RAND:4 == 0
				PRINTFORML 「おっぱいでですか？ふふっ、いいですよ？準備をしますから、すこぉしの間、待っててくださいね…%UNICODE(0x2665)%」
				PRINTFORML 星は意味深な表情でそう言うと、ペニスのすぐ上まで顔を近づけ、舌を出して唾液を垂らし始めた…
				PRINTFORMW 熱い吐息がかかる距離から延々と分泌液を肉棒に垂れ流し、一向にパイズリを始めない星…
				PRINTFORMW 「くすっ、ちゃぁんと濡らしておかないと、おちんちん痛くなっちゃいますからね…♪」
				PRINTFORMW 「どうしたんですかぁ？とっても可愛くて、切なそうな顔してますよ？くすくすっ…♪」
				PRINTFORMW 散々焦らした後、星は限界まで膨らんだペニスの上に覆いかぶさり、思う存分乳肉でペニスを犯し始めた…
			ELSEIF RAND:3 == 0
				PRINTFORML 「ふふ…おっぱいでいっぱい擦って、%MASTERNAME:87%のおちんちんの臭い、マーキングしちゃいますね…%UNICODE(0x2665)%」
				PRINTFORMW 星は形の整った双丘をペニスに擦りつけながら、先端にキスして男性器の臭いに陶然となっている…
				PRINTFORMW 「ふぅ…んっ、はっ、ちゅぴ、あはっ%UNICODE(0x2665)%　やらしい臭いですね…%UNICODE(0x2665)%」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ん…ふっ、んんっ、あ%UNICODE(0x2665)%ち、乳首がっ、おちんちんに当たってますっ…」
				PRINTFORMW 「私までっ…はぁっ、きちゃいますよぅっ、ふあっ%UNICODE(0x2665)%　あ、ああっ、ちゅる、ちゅ…」
				PRINTFORMW 星は充血した乳首をペニスに擦り付けて、性快楽を貪っている…
			ELSE
				PRINTFORML 「私のおっぱい気持ちいいですか？…クスッ、気持ちいいですよね？ナカでぴくっぴくってしてますもんね♪」
				PRINTFORMW 星は媚乳で肉棒をやわやわと包みながら、上目遣いであなたを見つめている
				PRINTFORMW 「私もですよ♪%MASTERNAME:87%のあっついおちんちんに密着してるだけで、興奮しちゃいます…%UNICODE(0x2665)%」
			ENDIF
		ENDIF
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;これでMASTERが射精する
		IF NOWEX:MASTER:11
			IF RAND:2 == 0
				PRINTFORML 「ん、膨らんで…　出そうなんですね」
				PRINTFORMW 「ふふ、このまま胸の中でどうぞ…」
				PRINTFORMW 星は挟む力を強めてあなたの射精を待っている…
			ELSE
				PRINTFORML 「%MASTERNAME:87%、切なそうな顔して…」
				PRINTFORMW 「いいですよ。　いっぱい出していっぱい気持ちよくなってくださいね%UNICODE(0x2665)%」
				PRINTFORMW 絞り出すように亀頭を押し上げられてあなたに限界が近づく…
			ENDIF
		;精液中毒レベル3以上でランダム分岐3つ追加
		ELSEIF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORML 「あら…また私の胸に出したいんですか？…ええ、いいですよ」
			PRINTFORMW （%MASTERNAME:87%の臭いを付けられちゃうみたいで…ちょっと興奮するんですよね…%UNICODE(0x2665)%）
			PRINTFORMW 星は精液で肢体を汚されることに、全く抵抗がなくなったようだ…
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORML 粘液をまとった、肌理の細かい乳肉があなたのペニスを扱き上げている…
			PRINTFORMW 「はっあ、ふうっ、ん、は、どう、ですか…？時間をかけてじっくりやる方が、たくさん出るんですよね…？」
			PRINTFORMW 「遠慮せずに、いっぱい射精してくださいね…その方が私も嬉しいです…%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
			PRINTFORML 「ん…ん、ちゅ、ふう、んんっ…はぁ、そろそろですね♪どこに出したいですか？」
			PRINTFORMW 溜め込んだ精が放出される気配を悟って、それを心待ちにする星が淫靡に問いかける…
		;胸のLv2以上か技巧4以上でランダム分岐4つ追加
		ELSEIF RAND:7 == 0 && (ABL:胸 >= 2 || ABL:技巧 >= 4)
			PRINTFORML 「手も使いましょうか…よいしょっと…」
			PRINTFORMW 星は掌で胸を軽く寄せて余った指を亀頭へと伸ばした…
			PRINTFORMW 「おっぱいで挟まれながら指で触られるの、どうですか%UNICODE(0x2665)%？」
		ELSEIF RAND:6 == 0 && (ABL:胸 >= 2 || ABL:技巧 >= 4)
			PRINTFORML 「ああ…胸の間で%MASTERNAME:87%のが…」
			PRINTFORMW 星はあなたの脈動に夢中になりながら胸を擦りつけている
			PRINTFORMW 「もっと強くしますね……ふ、う、あ…」
		ELSEIF RAND:5 == 0  && (ABL:胸 >= 2 || ABL:技巧 >= 4)
			PRINTFORML 「れぅ……ん、ふっ」
			PRINTFORMW 星は口に溜めた唾液を陰茎に垂らし滑りを良くして再び動き始めた
			PRINTFORMW 「滑りがいいとまた違った感じで気持ちいいでしょう%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0  && (ABL:胸 >= 2 || ABL:技巧 >= 4)
			PRINTFORML 「先っぽどうしで……んっ%UNICODE(0x2665)%」
			PRINTFORMW 乳首を亀頭に擦り合わせ星は甘い声を上げた
			PRINTFORMW 「これ、私もすごく気持ちよくなれて好きなんです%UNICODE(0x2665)%」
		;元からの分岐
		ELSEIF RAND:3 == 0
			PRINTFORML 「ん、ふ…んちゅ、ふぅっ、は…んんっ、ちゅ、あ、はぁっ…」
			PRINTFORMW 星は双丘から顔をだすペニスの鈴口にキスを繰り返し、奉仕の快楽に酔っている…
			PRINTFORMW 「%MASTERNAME:87%の、あっつくて、ん、はぁ、おっぱいが、じんじんしますっ…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ん…どう、ですか？ゆっくりやわやわする方がいいですか？それとも激しく擦る方が好きですか？」
			;射精ゲージで見分けるのが賢いと思うがどうやるのかわからん
			IF RAND:2 == 0
				PRINTFORMW 「ふふっ、わかりました…じゃあ、おっぱいでじっくりたっぷり可愛がってあげますね%UNICODE(0x2665)%」
				PRINTFORMW 星はそう言うと、ペニスを胸で包み込んでゆっくりと責め始めた…
			ELSE
				PRINTFORMW 「ふふっ、もう出そうなんですね…じゃあ、ラストスパート、いきますね…%UNICODE(0x2665)%」
				PRINTFORMW 星はそういうと、ペニスの先端にキスを繰り返しながら懸命に動き始めた…
			ENDIF
		ELSE
			PRINTFORML 「ん…%UNICODE(0x2665)%じゃあ、今度は私が気持ちよくしてあげる番ですね…♪」
			PRINTFORMW 星は微笑を浮かべながら、あなたの怒張を胸に挟んだ…」
			PRINTFORMW 「ふふ…気持ちよさそうな顔、してますね…もっと悦ばせてあげます…」
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		IF RAND:3 == 0
			PRINTFORML 「ん、んんっ…はぁ、あ、んっ…」
			PRINTFORMW 「どうでしょうか？気持ちいいですか…？」
		ELSEIF RAND:2 == 0
			PRINTFORML 「んー…結構難しいですね、これ」
			PRINTFORMW 「…それより、擦れるたびに、乳首が潰れちゃうのが、その…」
		ELSE
			PRINTFORML 「は、はい、わかりました…」
			PRINTFORMW （男性の…%MASTERNAME:87%の、を、おっぱいにこすりつける、なんて…なんて淫らな行為でしょう…）
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:2 == 0
			PRINTFORML 柔らかい胸に挟まれ陰茎が硬度を増していく
			PRINTFORMW 「あ…すごい、どんどん硬くなって…」
		ELSE
			PRINTFORML 「優しくした方がいいんですよね…？」
			PRINTFORMW 「ん、しょ…んー……」
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;83,素股
;==================================================
@M_KOJO_MESSAGE_COM_K87_83
;正常位からのときは地の文を呼ばない
SIF !(TEQUIP:体位２ == 1 || CFLAG:1501 == 1)
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_83_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_83_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;正常位から
		IF TEQUIP:体位２ == 1
			DRAWLINE
			PRINTFORML 膣から\@ NOWEX:MASTER:11 ? 射精寸前の #  \@ペニスを引き抜くと星の両脚を抱え込んで秘所へと擦りつけた…
			PRINTFORML
			;これでMASTERが射精する
			IF NOWEX:MASTER:11
				PRINTFORMW 「え？　出るって…このまま、ですか？」
				PRINTFORMW 「わざわざ外に出さなくても別に%MASTERNAME:87%だったら…その…」
				PRINTFORMW 「私にかけたい？　うー……いいですよ別にー…」
				PRINTFORMW まだ少し納得がいかないようだが結局星はあなたに身体を委ねた…
			ELSE
				IF RAND:2 == 0
					PRINTFORMW 「中から抜いたのに結局そこにつけるんですかぁ…？」
					PRINTFORML 「それは…気持ち、いいですけどぉ…ひゃうっ」
					PRINTFORMW 星は納得がいかないようだったがあなたが動きを速めてやるとすぐに快楽に眉を寄せた
				ELSE
					PRINTFORML 「あ…ふぁっ……んっ」
					PRINTFORMW 「先っぽで、お豆つついちゃ…%UNICODE(0x2665)%」
					PRINTFORMW あなたの思うままに秘唇と陰核を擦られ星は顔を蕩けさせている…
				ENDIF
			ENDIF
			CFLAG:1501 = 1
		;これでMASTERが射精する
		ELSEIF NOWEX:MASTER:11
			IF CFLAG:1501 == 1
			DRAWLINE
				PRINTFORML 射精寸前のあなたの陰茎が激しく脈打った…
				PRINTFORML
			ENDIF
			CFLAG:1501 = 0
			IF RAND:2 == 0
				PRINTFORMW 「あっ、すごい、%MASTERNAME:87%のが震えてるの直に、きますっ%UNICODE(0x2665)%」
				PRINTFORMW 「もっとくっつけますからっ、いっぱい、感じさせてくださいっ%UNICODE(0x2665)%！」
				PRINTFORMW 星はあなたの射精の脈動を感じ取ろうと陰唇と陰茎をより密着させた
			ELSE
				PRINTFORML 射精の予兆を感じ取った星は熱の籠った瞳であなたを見つめている
				PRINTFORMW 「あ、はっ…出るん、ですね？」
				PRINTFORMW 「我慢なんてしなくていいですから、このまま…出してください…%UNICODE(0x2665)%」
				PRINTFORMW 星は腰の動きを速めあなたを射精へと導いた…
			ENDIF
		;腰のLv2以上か技巧4以上
		ELSEIF ABL:腰 >= 2 || ABL:技巧 >= 4
			;正常位の後で連続
			IF CFLAG:1501 == 1
				CFLAG:1501 = 0
				DRAWLINE
				PRINTFORML 「今度は私の番ですからね」
				PRINTFORMW 星はあなたを仰向けにさせ、その上に跨った…
				PRINTFORML
			ENDIF
			IF RAND:4 == 0
				PRINTFORML 「いきますよ…あ、くぁ…んんぅ%UNICODE(0x2665)%」
				PRINTFORMW 星は腰を大きくスライドさせて陰茎に刺激を与えている
				PRINTFORMW 溢れだした愛液が陰茎に絡みついては引き延ばされる…
			ELSEIF RAND:3 == 0
				PRINTFORMW 時々腰を軽く捻り少し違った刺激も加えてくる
				PRINTFORML 「んっ、あ…く…熱いぃ…%UNICODE(0x2665)%」
				PRINTFORMW 彼女自身も擦れあう快感に蕩けているようだ
			ELSEIF RAND:2 == 0
				PRINTFORML 「んん…は、ぁ…%UNICODE(0x2665)%」
				PRINTFORMW 熱く火照った秘肉が陰茎をなぞる…
			ELSE
				PRINTFORML 星は覆いかぶさるようにして腰を動かしている
				PRINTFORMW 「ふぁ…%MASTERNAME:87%…%UNICODE(0x2665)%　ん…ちう…」
				PRINTFORMW さらにあなたの胸元に顔を寄せて吸い付いてきた
				PRINTFORMW 彼女が口を離す頃にはくっきりと跡が付いているだろう…
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「あ…お豆も、擦れて…っ%UNICODE(0x2665)%」
			ELSE
				PRINTFORML 「ふやぁっ%UNICODE(0x2665)%！　急に動いちゃダメですよお…」
				PRINTFORMW 我慢できずに体を動かすと星は驚いて嬌声を上げた
			ENDIF
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「あ…お豆も、擦れて…っ%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ふやぁっ%UNICODE(0x2665)%！　急に動いちゃダメですよお…」
			PRINTFORMW 我慢できずに体を動かすと星は驚いて嬌声を上げた
		ENDIF
		RETURN 1
	ENDIF
ENDIF

;==================================================
;84,泡踊り
;==================================================
@M_KOJO_MESSAGE_COM_K87_84
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_84_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_84_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;85,足扱き
;==================================================
@M_KOJO_MESSAGE_COM_K87_85
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_85_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_85_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORML 「足でするなんて…こんなの本当に気持ちいいんですか？」
		PRINTFORMW 「あ…でも\@ BASE:MASTER:勃起 < 1000 ? 硬くなってき # びくびくし \@てる…」
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		;これでMASTERが射精する
		IF NOWEX:MASTER:11
			IF RAND:2 == 0
				PRINTFORML 「びくってなった…ということは…」
				PRINTFORMW 「出しちゃうんですか？　本当に？」
				;欲情3以上
				IF PALAM:欲情 >= PALAMLV:3
					PRINTFORML 「分かりました、%MASTERNAME:87%が足で達するところ、全部見ててあげますっ！」
					PRINTFORMW とどめとばかりに陰茎にかかる圧力が強くなりあなたは限界に達した…
				ELSE
					PRINTFORMW 「分かりました…このまま出しちゃってください…」
				ENDIF
			ELSE
				PRINTFORML 「あ…もう限界、ですか？」
				PRINTFORMW 「我慢できずに出しちゃうくらい足でされるのが好きなんですね」
				PRINTFORML 「いいですよ…%MASTERNAME:87%の好きな足の中で思い切り出してください%UNICODE(0x2665)%」
				PRINTFORMW 星は足で優しく陰茎を擦りながらじわじわとあなたを射精へと導いていった…
			ENDIF
		;勃起しきっていない
		ELSEIF BASE:MASTER:勃起 < 1000
			IF RAND:2 == 0
				PRINTFORML 「踏まれるみたいにするの好きになっちゃったんですか？」
				PRINTFORMW 「どんどん硬くなってる…やっぱり好きなんですね…」
			ELSE
				PRINTFORML 星はまだ柔らかな陰茎に足を軽く押しこんでいる
				PRINTFORMW 「ふにふにして…不思議な感触ですね」
				PRINTFORMW 「大きくなってだんだん感じが変わってくるのも…」
			ENDIF
		ELSE
			;靴下履いてない
			;※後半は「全部脱がす」で脱がした時も反応させるため。もっといい方法があるかもしれない
			IF EQUIP:4 == 0 || (!TEQUIP:0 && !TEQUIP:1)
				;技巧3以上
				IF ABL:技巧 >= 3
					IF RAND:4 == 0
						PRINTFORML 「くりくり…ふふっ%UNICODE(0x2665)%」
						PRINTFORMW 「指先でくすぐるようにするのも効くでしょう？」
						PRINTFORMW 敏感な部分へのピンポイントな責めにもどかしくも強い快感が走る…
					ELSEIF RAND:3 == 0
						PRINTFORML 奉仕の途中で星は亀頭へと足を伸ばした…
						PRINTFORMW 「先っぽもごしごししてあげますね」
						PRINTFORML 「ん、ふ…ん、っと……　あ…ふふ…足にお汁付いちゃいました%UNICODE(0x2665)%」
						PRINTFORMW 星が足を上げると鈴口と足指の間で先汁が糸を引いた…
					ELSEIF RAND:2 == 0
						PRINTFORMW 星は片足を陰茎に乗せそのまま上下に擦っている
						PRINTFORML 「少しだけ体重をかけるようにするのがいいんですよね…%UNICODE(0x2665)%」
						PRINTFORMW 「円を描くようにするのも…」
						PRINTFORMW 足で巧みに愛撫されあなたの腰が何度も跳ねそうになる…
					ELSE
						PRINTFORMW 星は両足で挟むようにして愛撫をかけてくる
						PRINTFORML 「ん…ふふっ、どうですか？」
						PRINTFORMW それぞれの足を互い違いに動かしながらあなたを翻弄してきている
						PRINTFORMW 「足の間でこんなにお汁撒き散らして…気持ちいいんですね%UNICODE(0x2665)%」
					ENDIF
				ELSE
					IF RAND:3 == 0
						PRINTFORMW 奉仕の途中で星は亀頭へと足を伸ばした…
						PRINTFORML 「先っぽは柔らかいんですよねー」
						PRINTFORMW 「あ…ふふ…足にお汁付いちゃいました」
					ELSEIF RAND:2 == 0
						PRINTFORMW 星は片足を陰茎に乗せそのまま上下に擦っている
						PRINTFORML 「ん、しょっ……こ、こうですか…？」
						PRINTFORMW 加減がよくわからないのかしきりにあなたに目をやっている…
					ELSE
						PRINTFORML 星は両足で挟むようにして愛撫をかけてくる
						PRINTFORMW 「こ、これ結構難しいですね…」
						PRINTFORMW 手間取りながらも一生懸命に足を動かしている…
					ENDIF
				ENDIF
			;靴下を履いている
			ELSE
				;Ｖ、Ａ中出しの直後
				;/普通来ないだろうけど後悔はしない
				IF TCVAR:102 || TCVAR:104
					PRINTFORML 「全く…%MASTERNAME:87%はー……」
					PRINTFORMW 「靴下で拭き取って欲しい、なんて普通考えませんよ」
					PRINTFORMW 「それは…いいかなって思っちゃった私も私ですけど…」
					PRINTFORMW 陰茎にこびりついた精液が拭き取られ星の靴下を染めていく…
				ELSE
					IF RAND:3 == 0
						PRINTFORML 星は亀頭\@ ABL:技巧 >= 3 ? を指で包みこむ # に擦りつける \@ようにして足を動かしている
						PRINTFORMW 「うあ…%MASTERNAME:87%のお汁が染み込んで…」
						PRINTFORMW 先汁を吸いこんだ星の靴下が卑猥な水音を立てはじめる…
					ELSEIF RAND:2 == 0
						PRINTFORML 陰茎に擦りつく布の感触が心地よい
						PRINTFORMW 「靴下越しなのに…%MASTERNAME:87%の熱…伝わってきます」
					ELSE
						PRINTFORMW 「靴下履いたままで…痛くないですか？」
						PRINTFORMW 「その方がいい？　うーん……」
						PRINTFORMW あなたの返答に星は少し困っているようだ
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		RETURN 1
	;それ以外
	ELSE
		IF RAND:3 == 0
			PRINTFORML 奉仕の途中で星は亀頭へと足を伸ばした…
			PRINTFORMW 「先っぽは柔らかいんですよねー」
			PRINTFORMW 「…ちょっと面白いかも」
		ELSEIF RAND:2 == 0
			PRINTFORMW 星は片足を陰茎に乗せそのまま上下に擦っている
			IF ABL:技巧 >= 3
				PRINTFORML 「どうでしょう、こんな感じですか？」
				PRINTFORMW 「踏まれるようにされるのがいいというのはやっぱりよく分かりませんけどね…」
			ELSE
				PRINTFORML 「ん、しょっ……こ、こうですか…？」
				PRINTFORMW 加減がよくわからないのかしきりにあなたに目をやっている…
			ENDIF
		ELSE
			PRINTFORMW 星は両足で挟むようにして愛撫をかけてくる
			IF ABL:技巧 >= 3
				PRINTFORML 「強すぎたら言ってくださいね」
				PRINTFORMW 「痛いよりは気持ちいい方がいいと思いますし」
			ELSE
				PRINTFORML 「こ、これ結構難しいですね…」
				PRINTFORMW 手間取りながらも一生懸命に足を動かしている…
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;加虐系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;100,スパンキング
;==================================================
@M_KOJO_MESSAGE_COM_K87_100
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_100_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_100_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;101,鞭
;==================================================
@M_KOJO_MESSAGE_COM_K87_101
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_101_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_101_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;102,蝋燭
;==================================================
@M_KOJO_MESSAGE_COM_K87_102
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_102_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_102_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;103,針
;==================================================
@M_KOJO_MESSAGE_COM_K87_103
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_103_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_103_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;104,アイマスク
;==================================================
@M_KOJO_MESSAGE_COM_K87_104
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_104_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_104_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:アイマスク
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;105,縄
;==================================================
@M_KOJO_MESSAGE_COM_K87_105
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_105_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_105_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:縄
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;106,ボールギャグ
;==================================================
@M_KOJO_MESSAGE_COM_K87_106
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_106_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_106_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:ボールギャグ
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;助手によるコマンド、及びレズプレイ
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;120,クンニ強制
;==================================================
@M_KOJO_MESSAGE_COM_K87_120
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_120_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_120_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;121,貝あわせ
;==================================================
@M_KOJO_MESSAGE_COM_K87_121
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_121_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_121_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;123,足コキする
;==================================================
@M_KOJO_MESSAGE_COM_K87_123
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_123_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_123_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;126,乳の揉み合い
;==================================================
@M_KOJO_MESSAGE_COM_K87_126
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_126_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_126_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;ハードな調教コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;140,イラマチオ
;==================================================
@M_KOJO_MESSAGE_COM_K87_140
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_140_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_140_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;141,フィストファック
;==================================================
@M_KOJO_MESSAGE_COM_K87_141
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_141_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_141_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;142,アナルフィスト
;==================================================
@M_KOJO_MESSAGE_COM_K87_142
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_142_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_142_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;143,両穴フィスト
;==================================================
@M_KOJO_MESSAGE_COM_K87_143
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_143_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_143_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;144,放尿
;==================================================
@M_KOJO_MESSAGE_COM_K87_144
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_144_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_144_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;145,アナル奉仕強制
;==================================================
@M_KOJO_MESSAGE_COM_K87_145
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_145_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_145_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;146,浣腸器＋プラグ
;==================================================
@M_KOJO_MESSAGE_COM_K87_146
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_146_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_146_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;浣腸液注入
	IF TEQUIP:浣腸
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;147,拡張バルーン
;==================================================
@M_KOJO_MESSAGE_COM_K87_147
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_147_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_147_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:拡張バルーン
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;148,アナル電極
;==================================================
@M_KOJO_MESSAGE_COM_K87_148
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_148_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_148_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;装着
	IF TEQUIP:アナル電極
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;解除
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;=================================================
;特殊コマンド
;=================================================
;-------------------------------------------------
;180,ローション
;-------------------------------------------------
@M_KOJO_MESSAGE_COM_K87_180
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_180_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_180_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;181,媚薬,
;==================================================
@M_KOJO_MESSAGE_COM_K87_181
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_181_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_181_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		CFLAG:1181 = 1
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;182,利尿剤,
;==================================================
@M_KOJO_MESSAGE_COM_K87_182
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_182_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_182_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;183,ビデオカメラ,
;==================================================
@M_KOJO_MESSAGE_COM_K87_183
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_183_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_183_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;開始
	IF TEQUIP:ビデオ撮影
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;終了
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;187,お風呂場プレイ
;==================================================
@M_KOJO_MESSAGE_COM_K87_187
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_187_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_187_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;開始
	IF TEQUIP:お風呂場プレイ
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;終了
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;188,シャワー
;==================================================
@M_KOJO_MESSAGE_COM_K87_188
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_188_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_188_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;開始
	IF TEQUIP:シャワー
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;終了
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;189,新妻プレイ
;==================================================
@M_KOJO_MESSAGE_COM_K87_189
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K87_189_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K87_189_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;開始
	IF TEQUIP:新妻プレイ
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
			RETURN 1
		;不埒3
		ELSEIF MARK:不埒刻印 == 3
			PRINTFORMW
			RETURN 1
		;それ以外
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;終了
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※
;派生コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;1,シックスナイン
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_1_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_1_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;2,岩清水
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_2_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_2_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;3,Gスポット刺激
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_3_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_3_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	;恋慕
	ELSEIF TALENT:恋慕
		;Ｖ経験30以下
		IF EXP:Ｖ経験 <= 30
			PRINTFORMW 「そこ、刺激…強すぎてっ……」
		ELSEIF TEQUIP:バイブ
			PRINTFORML 「いぅうっ%UNICODE(0x2665)%　だめ、それ、やめてくださひっ%UNICODE(0x2665)%」
			PRINTFORMW バイブの振動にザラつきを的確に捕らえられて揺さぶられ、星は顔を蕩けさせている…
		ELSE
			IF RAND:4 == 0
				PRINTFORML 「あうっ%UNICODE(0x2665)%　そこ、つよぃい……ひゃうっ%UNICODE(0x2665)%」
				PRINTFORMW 星は首をいやいやと左右に振りながらGスポットへの刺激に身体を震わせている
				SIF EXP:Ｖ経験 > 120
				PRINTFORMW しかし言葉とは裏腹に膣肉は貪欲に指に絡みつき、その顔は歓喜に満ちている…
			ELSEIF RAND:3 == 0
				PRINTFORMW 「あ！？、お、くっ%UNICODE(0x2665)%　ふぃいっ、ひ、ぃいっ%UNICODE(0x2665)%」
				PRINTFORMW 「そこ、ばっかりっ%UNICODE(0x2665)%！　いじめないで、くださいよぉっ%UNICODE(0x2665)%！」
				PRINTFORMW 敏感な箇所を責められ続け、星はすっかり息も絶え絶えになってしまっている
			ELSEIF RAND:2 == 0
				PRINTFORML 「あぁーっ%UNICODE(0x2665)%　そこ、押しちゃだめですっ%UNICODE(0x2665)%！」
				PRINTFORMW ザラつきを刺激するたびに星の嬌声が響きわたる…
			ELSE
				PRINTFORML 「ふああぁんっ%UNICODE(0x2665)%！　かりって、しちゃ…だ、めぇ……%UNICODE(0x2665)%」
				PRINTFORMW 傷つけないよう優しく爪で擦ってやると星は大きく身体を跳ねさせた
			ENDIF
		ENDIF
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1
;==================================================
;4,乱れ牡丹
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_4_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_4_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;5,手淫フェラ
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_5_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_5_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;6,挿入Ｇスポ責め
;※挿入子宮口責めになるかはランダム
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_6
;口上分岐
IF RAND:2 == 0
	CFLAG:1501 = 1
ELSE
	CFLAG:1501 = 0
ENDIF
;※早い話が1/2でＧスポ責めの地の文を呼ばない
SIF CFLAG:1501 == 1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_6_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_6_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		SIF CFLAG:1501 == 0
		DRAWLINE
		PRINTFORMW 「ひぁっ！？　今、びりって…きました…」
		PRINTFORMW 「%MASTERNAME:87%…なに、したんですかぁ…？」
		RETURN 1
	ENDIF
	;基本セット
	;※CFLAG:1501 == 1でＧスポ責めしている時、0で選んだコマンドで継続して突いている時の口上
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	ELSE
		;挿入Ｇスポ責め
		IF CFLAG:1501 == 1
			CFLAG:1501 = 0
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;/Ｖ敏感！
				PRINTFORMW 「う、ぁ……%UNICODE(0x2665)%　これ、ダメです…っ」
				PRINTFORMW 「これ、覚えちゃったら…私っ……」
			;恋慕
			ELSEIF TALENT:恋慕
				;これでMASTERが射精
				IF NOWEX:PLAYER:11
					;これでTARGETがＶ絶頂する
					IF NOWEX:1
						PRINTFORML 「奥、きゅーって…あぁ……%UNICODE(0x2665)%　もう、きちゃ…」
						PRINTFORMW 「ふぁっ！？　膨らんで…！？　だめです！今そこに出されたら…っ」
					ELSE
						PRINTFORML 「%MASTERNAME:87%…出そう、なんですね…」
						PRINTFORMW 「私の中に、%MASTERNAME:87%の…いっぱい、ください%UNICODE(0x2665)%」
					ENDIF
				ELSE
					IF RAND:2 == 0
						PRINTFORML 「そ、こ……っ　痺れてるみたいに…っ%UNICODE(0x2665)%」
						PRINTFORMW 「ふぃい…%UNICODE(0x2665)%　強くしちゃ…うぁあ…%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「うあっ%UNICODE(0x2665)%！　また、すごいのきましたぁ……」
						PRINTFORMW 「ほんとに、癖に、なっちゃいます…　我慢できない子になっちゃいますぅ…%UNICODE(0x2665)%」
					ENDIF
				ENDIF
			;不埒3
			ELSEIF MARK:不埒刻印 == 3
				PRINTFORMW 「そこ…もっと擦ってください…%UNICODE(0x2665)%」
			;それ以外
			ELSE
				PRINTFORMW 「んっ…　じりじりして、気持ちいい…」
			ENDIF
		;連続
		ELSE
			DRAWLINE
			;正常位、対面立位
			IF TEQUIP:体位 == 1
				;MASTERについている
				IF TALENT:PLAYER:2 & 2
					PRINTFORMW %CALLNAME:TARGET%の膣内の感触を味わいながら、再び腰を動かし始めた…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の膣内から抜かずに、再び腰を動かし始めた…
				ENDIF
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_60_1
			;後背位、背面立位
			ELSEIF TEQUIP:体位 == 2
				;MASTERについている
				IF TALENT:PLAYER:2 & 2
					PRINTFORMW %CALLNAME:TARGET%の膣内の感触を味わいながら、再び腰を動かし始めた…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の膣内から抜かずに、再び腰を動かし始めた…
				ENDIF
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_61_1
			;騎乗位
			ELSEIF TEQUIP:体位 == 3
				PRINTFORMW %CALLNAME:TARGET%は挿入されたままのペニスを締め付け、再び腰を動かし始めた…
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_65_1
			;対面座位
			ELSEIF TEQUIP:体位 == 4
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%とキスをし、舌を絡めながら再び腰を揺すり始めた…
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_67_1
			;背面座位
			ELSE
				PRINTFORMW %CALLNAME:TARGET%を背後から抱きしめ、再び%CALLNAME:TARGET%の身体を揺らし始めた…
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_68_1
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;7,挿入子宮口責め
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_7
;口上分岐
IF RAND:2 == 0
	CFLAG:1501 = 1
ELSE
	CFLAG:1501 = 0
ENDIF
SIF CFLAG:1501 == 1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_7_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_7_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
	ELSE
		;※CFLAG:1501 == 1で挿入子宮口責めしている時、0で選んだコマンドで継続して突いている時の口上
		;挿入子宮口責め
		IF CFLAG:1501 == 1
			;Ｖ感覚1以下
			IF ABL:Ｖ感覚 <= 1
				;/Ｖ敏感！
				PRINTFORMW 「すごいところまで来てる……これ、大丈夫なんですか…？」
				PRINTFORMW 「ひあっ%UNICODE(0x2665)%　確かに、気持ちいいですけど…っ」
			;恋慕
			ELSEIF TALENT:恋慕
				;前回射精した
				IF TCVAR:102  && NOWEX:MASTER:11 == 0
					IF RAND:2 == 0
						PRINTFORMW 「うあぁ…入口ぃ……子種、こすりつけちゃ駄目ですぅ……%UNICODE(0x2665)%」
					ELSE
						PRINTFORML 「出されたばかりなのに…そんな、いじめられたら…っ」
						PRINTFORMW 「また、欲しくなっちゃいます…っ%UNICODE(0x2665)%」
					ENDIF
				ELSE
					;これでMASTERが射精する
					IF NOWEX:PLAYER:11
						PRINTFORML 「ふあ、あっ…ん…くあぁ…%UNICODE(0x2665)%」
						PRINTFORMW 「あ、%MASTERNAME:87%の、び、びくびくしてます…」
						PRINTFORMW 「出るんですか…？　赤ちゃんのお部屋に直接種付け、されちゃうんですかぁ…%UNICODE(0x2665)%？」
					ELSE
						IF RAND:2 == 0
							PRINTFORMW 「ひっ、あ…あぁ…%UNICODE(0x2665)%」
							PRINTFORMW 「赤ちゃんのお部屋、そんなにこりこりしちゃダメです……%UNICODE(0x2665)%」
						ELSE
							PRINTFORML 「奥で…%MASTERNAME:87%のと、キスしてる…」
							PRINTFORMW 「ふあっ%UNICODE(0x2665)%！　激しくしたら、よくなっちゃいます…っ」
						ENDIF
					ENDIF
				ENDIF
			;不埒3
			ELSEIF MARK:不埒刻印 == 3
				PRINTFORMW 「赤ちゃんのお部屋…ほんとは大事なところなのに…」
				PRINTFORMW 「もうすっかり気持ちよくなるところにされちゃいましたね♪」
			;それ以外
			ELSE
				PRINTFORMW 「ふ…奥…これ以上はダメですよお……」
			ENDIF
		;連続
		ELSE
			DRAWLINE
			;正常位、対面立位
			IF TEQUIP:体位 == 1
				;MASTERについている
				IF TALENT:PLAYER:2 & 2
					PRINTFORMW %CALLNAME:TARGET%の膣内の感触を味わいながら、再び腰を動かし始めた…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の膣内から抜かずに、再び腰を動かし始めた…
				ENDIF
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_60_1
			;後背位、背面立位
			ELSEIF TEQUIP:体位 == 2
				;MASTERについている
				IF TALENT:PLAYER:2 & 2
					PRINTFORMW %CALLNAME:TARGET%の膣内の感触を味わいながら、再び腰を動かし始めた…
				ELSE
					PRINTFORMW %CALLNAME:TARGET%の膣内から抜かずに、再び腰を動かし始めた…
				ENDIF
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_61_1
			;騎乗位
			ELSEIF TEQUIP:体位 == 3
				PRINTFORMW %CALLNAME:TARGET%は挿入されたままのペニスを締め付け、再び腰を動かし始めた…
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_65_1
			;対面座位
			ELSEIF TEQUIP:体位 == 4
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:PLAYER%とキスをし、舌を絡めながら再び腰を揺すり始めた…
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_67_1
			;背面座位
			ELSE
				PRINTFORMW %CALLNAME:TARGET%を背後から抱きしめ、再び%CALLNAME:TARGET%の身体を揺らし始めた…
				PRINTFORML
				CALL M_KOJO_MESSAGE_COM_K87_68_1
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;8,６９パイズリ
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_8_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K87_8_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;509,ダブルフェラ
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_9_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目はいらない場合はここで処理
;二人目
LOCAL = MASTER_POSE(SET_M,SET_P,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_9_2
TARGET = LOCAL:2
RETURN LOCAL:1

;一人目口上
@M_KOJO_MESSAGE_SCOM_K87_9_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;二人目口上
@M_KOJO_MESSAGE_SCOM_K87_9_2
VARSET LOCAL
;一人目
LOCAL:101 = MASTER_POSE(SET_M,SET_P)
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF

;==================================================
;10,ダブル素股
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_10
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_10_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目はいらない場合はここで処理
;二人目
LOCAL = MASTER_POSE(SET_C,SET_P,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_10_2
TARGET = LOCAL:2
RETURN LOCAL:1

@M_KOJO_MESSAGE_SCOM_K87_10_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

@M_KOJO_MESSAGE_SCOM_K87_10_2
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF

;==================================================
;11,ダブルパイズリ
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_11
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_11_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目はいらない場合はここで処理
;二人目
LOCAL = MASTER_POSE(SET_B,SET_P,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_11_2
TARGET = LOCAL:2
RETURN LOCAL:1

@M_KOJO_MESSAGE_SCOM_K87_11_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

@M_KOJO_MESSAGE_SCOM_K87_11_2
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF

;==================================================
;12,パイズリフェラ
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_12
CALL TRAIN_MESSAGE
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

;==================================================
;13,交互挿入
;==================================================
@M_KOJO_MESSAGE_SCOM_K87_13
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K87_13_1
;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
;二人目はいらない場合はここで処理
;二人目
LOCAL = MASTER_POSE(SET_V,SET_P,1)
LOCAL:1 = RESULT
LOCAL:2 = TARGET
TARGET = LOCAL
TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_13_2
TARGET = LOCAL:2
RETURN LOCAL:1

@M_KOJO_MESSAGE_SCOM_K87_13_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
;未記入
;CALLFORM M_KOJO_MESSAGE_COM_K87_{SELECTCOM}_1
RETURN 1

@M_KOJO_MESSAGE_SCOM_K87_13_2
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;不埒3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF

;SOURCEやNOWEXを使ってSELECTCOMに依存しない口上があってもいいんじゃない
@M_KOJO_MESSAGE_COM_K87_00
;性交処女喪失をRETURN 100して
;IF RESULT == 100 でまとめるとか
;苦痛や快楽のSOURCEをトリガーとして汎用あえぎ口上を作るとか
;いろいろ利用方法は考えられますが適当にやってください

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"COUNTER"系口上
;※常に出るよりはある程度条件があった方が興奮する…のか？
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;-------------------------------------------------
;ソフト
;-------------------------------------------------
;==================================================
;色っぽい仕草
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_10
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_10_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_10_1
RETURN 1

;==================================================
;見つめる
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_11
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_11_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_11_1
		;浴場にいる
		IF BATHROOM()
			IF PALAM:欲情 >= PALAMLV:4
				PRINTFORMW …特にあなたの下半身に熱い視線が注がれているような気がする
				SIF BASE:MASTER:勃起 >= 1000
				PRINTFORMW (ああ…素敵…　あんなに大きくなって…%UNICODE(0x2665)%)
			ELSE
			ENDIF
		ELSE
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「…………%UNICODE(0x2665)%%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORMW （%MASTERNAME:87%を見つめてるだけで幸せな気分です%UNICODE(0x2665)%）
				ELSE
				ENDIF
			ELSE
			ENDIF
		ENDIF
RETURN 1

;==================================================
;体を摺り寄せる
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_12
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_12_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_12_1
		;浴場にいる
		IF BATHROOM()
			;スキンシップの直後
			IF SELECTCOM == 302
					PRINTFORML 「今度は私がお背中流しますね…」
					PRINTFORMW あなたの背になにかとても柔らかいものが当たっている…
			;休憩の直後
			ELSEIF SELECTCOM == 403
				IF RAND:2 == 0
					PRINTFORML 「%MASTERNAME:87%っ♪」
					PRINTFORMW 湯船の中で星はその身体を押しつけてくる…
					SIF TALENT:PLAYER:2 & 2
					PRINTFORMW 正直身体の一部に良くない
				ELSE
					PRINTFORMW 「気持ちいいですねー♪」
					PRINTFORMW こちらも柔らかくて気持ちいい
				ENDIF
			ENDIF
		ELSE
			;キスするの直後で恋慕
			IF SELECTCOM == 312 && TALENT:恋慕
				PRINTFORMW 「キス、もう一回してもいいですか…？」
			ELSE
			ENDIF
		ENDIF
RETURN 1

;==================================================
;スカートめくり
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_13
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_13_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_13_1
RETURN 1

;==================================================
;息を吹きかける
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_14
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_14_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_14_1
RETURN 1

;==================================================
;尻を撫でる
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_15
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_15_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_15_1
RETURN 1

;-------------------------------------------------
;セクハラ
;-------------------------------------------------
;==================================================
;キス
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_30
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_30_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_30_1
	IF CFLAG:うふふ
		IF RAND:4 == 0
			PRINTFORMW 「はぁ、む……んむ……」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「ちゅ……ぷ…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「ん…………%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ちゅ、んー……ちゅ%UNICODE(0x2665)%」
			PRINTFORMW さらにあなたの頬に口づけをするともう一度唇を合わせてきた
		ENDIF
	ELSE
	ENDIF
RETURN 1

;==================================================
;後ろから抱きつく
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_31
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_31_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_31_1
	IF CFLAG:うふふ
		IF RAND:3 == 0
			PRINTFORML 「んー…」
			PRINTFORMW 星はあなたの肩に頬を寄せて目を細めている
		ELSEIF RAND:2 == 0
			PRINTFORML 「%MASTERNAME:87%……%UNICODE(0x2665)%」
			;上半身裸
			SIF TEQUIP:1 == 0
				;/おっきくない=張りで勝負とは限らないと思うんだ
				PRINTFORMW 柔らかな双丘があなたの背でふにゅりと潰される…
		ELSE
		ENDIF
	ELSE
		PRINTFORMW 星はあなたの背に額を当ててほう、と落ち着くような溜息をついた
	ENDIF
RETURN 1

;==================================================
;前から抱きつく
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_32
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_32_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_32_1
	IF CFLAG:うふふ
		;星ちゃんのほうが体が大きい
		IF TALENT:TARGET:体型 > TALENT:PLAYER:体型
			;その胸で%CALLNAME:PLAYER%の顔を包んだ…
		ELSE
			;息を荒らげながら体を摺り寄せてきた…
			IF RAND:2 == 0
				PRINTFORMW 「はぁ、ん……はぁ……あ、はっ%UNICODE(0x2665)%」
				;上半身裸
				SIF TEQUIP:1 == 0
				PRINTFORMW 剥き出しの乳房があなたの身体をなぞっている…
			ELSE
				PRINTFORMW 「すりすり……ふふっ%UNICODE(0x2665)%」
			ENDIF
		ENDIF
	ELSE
	ENDIF
RETURN 1

;==================================================
;胸を揉ませる
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_33
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_33_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_33_1
	IF CFLAG:うふふ
		IF RAND:3 == 0
			PRINTFORMW 「%MASTERNAME:87%…触ってくださいぃ……っ%UNICODE(0x2665)%」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「私の胸、こんなにどきどきしているんです…」
			PRINTFORMW 「鎮めて…くれますか？」
		ELSE
			PRINTFORMW 押し当てられる星の胸があなたの掌にその柔らかさを伝えてくる
			SIF PALAM:欲情 >= PALAMLV:5
			PRINTFORMW しかしその先端はグミのように硬く星が欲情していることを示していた…
		ENDIF
	ELSE
	ENDIF
RETURN 1

;==================================================
;股間をまさぐる
;地の文
;PRINTFORML %CALLNAME:TARGET%は%CALLNAME:PLAYER%の\@ TALENT:PLAYER:2 & 2 ? 股間に # 秘所に \@手を伸ばしまさぐり始めた…
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_34
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_34_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_34_1
IF CFLAG:うふふ
	IF RAND:3 == 0
		;MASTERが女性
		IF TALENT:PLAYER:2 == 1
			PRINTFORMW 侵入してくる指の感触に、あなたの秘裂は否応なく反応する…
		;MASTERについてる
		ELSE
			PRINTFORMW 這いまわる指の感触に、あなたの陰茎は否応なく反応する…
		ENDIF
	ELSEIF RAND:2 == 0
		PRINTFORMW 「ね…脱がして…」
	ELSE
		PRINTFORMW 「ん…♪大きくなってます…」
	ENDIF
ENDIF
RETURN 1

;==================================================
;スカートの中を見せる
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_35
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_35_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_35_1
RETURN 1

;==================================================
;後ろから胸もみもみ
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_36
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_36_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_36_1
RETURN 1

;-------------------------------------------------
;愛撫
;-------------------------------------------------
;==================================================
;手淫
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_50
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_50_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_50_1
IF CFLAG:うふふ
	;MASTERについている
	IF TALENT:PLAYER:2 & 2
		;勃ち上がれ！僕の分身！
		IF BASE:MASTER:勃起 >= 1000
			IF RAND:2 == 0
				PRINTFORMW 「ん…%MASTERNAME:87%はもう準備できてますね…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「ふふ、こんなになって…ね、%MASTERNAME:87%…手だけでいいんですか…%UNICODE(0x2665)%」
			ENDIF
		ELSE
			PRINTFORMW 「実は、柔らかいおちんちんも結構好きだったり…%UNICODE(0x2665)%」
		ENDIF
	ELSE
	ENDIF
ENDIF
RETURN 1

;==================================================
;口淫
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_51
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_51_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_51_1
	;MASTERについている
	IF TALENT:PLAYER:2 & 2
		;勃ち上がれ！僕の分身！
		IF BASE:MASTER:勃起 >= 1000
			IF RAND:2 == 0
				PRINTFORMW 「じゅりゅ…ん……あぁ…味、すごく濃いです…」
			ELSE
				PRINTFORMW 「ふふ、こんなに元気にして…もっと気持ちよくしてあげますね…」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「あ…まだ小さいんですね…全部口の中に入れてしゃぶってあげます…%UNICODE(0x2665)%」
			ELSE
				PRINTFORMW 「すぐに元気にしてあげますから……ん、ちゅ…ちゅるっ」
			ENDIF
		ENDIF
	ELSE
	ENDIF
RETURN 1

;==================================================
;素股
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_52
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_52_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_52_1
	IF RAND:4 == 0
		PRINTFORMW 「あはっ…%UNICODE(0x2665)%　気持ちよくて溶けちゃいそう、です…%UNICODE(0x2665)%」
	ELSEIF RAND:3 == 0
		PRINTFORMW 「一緒に、気持ちよく…っ　あ…くぁっ…」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「ふっ、ぁ…　擦れるの、いいですっ%UNICODE(0x2665)%」
	ELSE
		PRINTFORMW 「あっ…んっ…　お豆がぁ…%MASTERNAME:87%のと…っ%UNICODE(0x2665)%」
	ENDIF
RETURN 1

;==================================================
;パイズリ
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_53
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_53_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_53_1
	IF RAND:3 == 0
		PRINTFORML 「こんなのはどうですか…？」
		PRINTFORMW 星は少し身を引くと乳首をあなたの亀頭に擦りつけてきた
	ELSEIF RAND:2 == 0
		PRINTFORMW 「しょっ…と　…んぅ…ん%UNICODE(0x2665)%」
	ELSE
		PRINTFORMW 「ん…　結構難しいですね…」
	ENDIF
RETURN 1

;==================================================
;足コキ
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_54
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_54_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_54_1
RETURN 1

;==================================================
;アナル愛撫
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_55
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_55_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_55_1
RETURN 1

;==================================================
;アナル舐め
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_56
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_56_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_56_1
RETURN 1

;==================================================
;指挿入
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_57
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_57_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_57_1
RETURN 1

;==================================================
;胸愛撫
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_58
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_58_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_58_1
RETURN 1

;==================================================
;乳首吸い
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_59
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_59_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_59_1
RETURN 1

;==================================================
;ディープキス
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_60
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_60_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_60_1
	IF RAND:3 == 0
		PRINTFORML 「ちゅるっ、ん……む…　ふふっ%UNICODE(0x2665)%」
		PRINTFORMW 星は目を閉じてあなたとのディープキスに陶酔している
	ELSEIF RAND:2 == 0
		PRINTFORMW 「んんむっ……ちゅ、れろ…」
	ELSE
		PRINTFORMW 「はふ……じゅる……ぷぁっ…りゅ…」
	ENDIF
RETURN 1

;-------------------------------------------------
;奉仕
;-------------------------------------------------
;==================================================
;クンニ強制
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_70
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_70_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_70_1
	IF RAND:3 == 0
		PRINTFORMW 「んぅ…　熱、いぃ……っ」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「その…奥の方が疼くんです…　いじって…ください…%UNICODE(0x2665)%」
	ELSE
		PRINTFORMW 「息が当たって……んっ%UNICODE(0x2665)%」
	ENDIF
RETURN 1

;==================================================
;フェラチオ強制
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_71
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_71_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_71_1
RETURN 1
;==================================================
;アナル奉仕
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_72
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_72_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_72_1
RETURN 1
;==================================================
;ぱふぱふ
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_73
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_73_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_73_1
RETURN 1
;==================================================
;乳合わせ
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_74
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_74_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_74_1
RETURN 1
;==================================================
;タワシ洗い
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_75
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_75_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_75_1
RETURN 1

;-------------------------------------------------
;性交
;-------------------------------------------------
;==================================================
;挿入される（MASTER受け）
;==================================================
@M_KOJO_MESSAGE_COUNTER_K87_80
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K87_80_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K87_80_1
RETURN 1

;-------------------------------------------------
;うふふカウンター
;-------------------------------------------------
;まだ

;-------------------------------------------------
;奴隷の絶頂時の口上
;NOWEX:0～3 CVAB絶頂
;NOWEX:二重絶頂 二重絶頂
;NOWEX:三重絶頂 三重絶頂
;NOWEX:四重絶頂 四重絶頂
;NOWEX:噴乳 噴乳
;NOWEX:11 射精
;NOWEX:12 放尿
;適当に組み合わせて使ってください
;-------------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_B_K87
CALL PALAM_MESSAGE_B
;-------------------------------------------------
;噴乳
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF
;-------------------------------------------------
;射精
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:11
	PRINTFORMW
ENDIF
;-------------------------------------------------
;放尿
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL && NOWEX:12
	PRINTFORMW
ENDIF
;-------------------------------------------------
;絶頂
;/場合分け多すぎワロリン
;/最低でもtntn・MASTERの指や舌・オモチャ・自分の指　のどれでイッてるかを分けないとセリフと状況が一致しないおそれがある
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;過激なイタズラ中
IF CFLAG:イタズラ && CFLAG:睡眠
		RETURN 1
ELSE
	;-------------------------------------------------
	;/【クアドラプル・クライマックス】
	;四重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF NOWEX:四重絶頂
		;過激なイタズラ中
		IF CFLAG:イタズラ && CFLAG:睡眠
		ELSE
			;恋慕
			IF TALENT:恋慕
				PRINTFORMW 「～～～～～っ！！？」
				PRINTFORML 一瞬その身体に訪れた衝撃が理解できなかった星だったが、
				PRINTFORMW 理解できる頃には穴という穴から体液を垂れ流し、四重絶頂の快感に打ちのめされていた
				PRINTFORML 「ひっ！？　あっ、あああぁっ%UNICODE(0x2665)% すごいっ、こんなの、こんなのおっ、だめっ%UNICODE(0x2665)%　ふあぁあっ%UNICODE(0x2665)%！！」
				PRINTFORML 体中の皮膚という皮膚を煌めくような快感に飲み込まれて、星の意識が混濁し始める
				PRINTFORML 「全部っ%UNICODE(0x2665)%、きちゃうっ！ 先っぽもお豆お尻もあそこもぐちゃぐちゃされてっ、バラバラになっちゃうっ%UNICODE(0x2665)%！
				PRINTFORML 　はあぁあぁっ　おつゆ噴いちゃいますううううぅぅ%UNICODE(0x2665)%　ふえぇえぇぇええっ%UNICODE(0x2665)%
				PRINTFORMW 　だってこんなに凄いの耐えられないぃ！　ダメになるダメになるダメになっちゃいますぅうう～～～%UNICODE(0x2665)%%UNICODE(0x2665)%！！」
				PRINTFORMW 絶頂から戻ってこれず半狂乱状態の星の液汁まみれの顔は淫らで、無様で、そして愛おしかった
			ENDIF
		ENDIF
		CFLAG:1502 ++
		CFLAG:1503 ++
		CFLAG:1504 ++
		CFLAG:1505 ++
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;三重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF NOWEX:三重絶頂
	;過激なイタズラ中
	IF CFLAG:イタズラ && CFLAG:睡眠
	ELSE
		SELECTCASE NOWEX:三重絶頂
			;Ｃ＆Ｖ＆Ａ絶頂
			CASE 1
				PRINTFORML 「はああっ！ ああっ、はあぁあぁっ、ああ゛あぁぁあ～っ%UNICODE(0x2665)% 凄いっ、うぁっ、凄いいいぃぃっ！」
				PRINTFORMW 下半身に一度に訪れた快楽に星はなすすべもなく腰をがくがくと揺らして絶頂した
				PRINTFORML 「はあ、はあ…凄かったです…腰から下、溶けて無くなっちゃうかとおもいましたあ…」
				PRINTFORMW しばらくして快楽の波が収まってもその息は荒く、瞳は情欲に蕩けていた
				CFLAG:1502 ++
				CFLAG:1503 ++
				CFLAG:1505 ++
				RETURN 1
			;Ｂ＆Ｖ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				CFLAG:1503 ++
				CFLAG:1504 ++
				CFLAG:1505 ++
				RETURN 1
			;Ｃ＆Ｂ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				CFLAG:1502 ++
				CFLAG:1504 ++
				CFLAG:1505 ++
				RETURN 1
			;Ｃ＆Ｖ＆Ｂ絶頂
			;背面座位/立位により使用頻度はそこそこ多いと思われ
			CASE 4
				PRINTFORML 「はあぅ、はっ、あ、だめですっ、そこつまんじゃ駄目っ…っあああぁぁっ…」
				PRINTFORMW 星の蜜壺をかき回しながら肉豆と乳首を指で押し潰すと、長い嬌声とともに星の全身が緊張し、崩れ落ちる
				PRINTFORML 「%MASTERNAME:87%のばかぁ…これされると、はぁっ、たてなくなるって、なんろもいってるひゃにゃいれすかぁ…%UNICODE(0x2665)%」
				PRINTFORMW もはや舌が回らなくなるほど星の体は弛緩しきっており、涎と愛液を垂れ流している…
				CFLAG:1502 ++
				CFLAG:1503 ++
				CFLAG:1504 ++
				RETURN 1
		ENDSELECT
	ENDIF
	ENDIF
	;-------------------------------------------------
	;二重絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF NOWEX:二重絶頂
		SELECTCASE NOWEX:二重絶頂
			;Ｃ＆Ｖ絶頂
			;対面座位/立位により使用頻度はそこそこ多いと思われ
			CASE 1
				IF RAND:3 == 0
					PRINTFORML 「あ、これ、あそこも擦れっ…ひ、う、ううぅぅっ…」
					PRINTFORMW 「くる、両方きちゃうううぅっ%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORML 「やぅ、そこ、擦らないで、びりってくる、きちゃううっ%UNICODE(0x2665)%」
					PRINTFORMW 星の肉壷を責めながら意識的に陰核を擦ってやると、星はいつもより早く果ててしまった…
				ELSE
					PRINTFORML 「ああっ！そこ擦っちゃだめ、すぐに、あうっ%UNICODE(0x2665)%イッちゃいますっ」
					PRINTFORMW 「だめっ、だめっ、もうっ…っああぁぁぁ～～っ…」
				ENDIF
				CFLAG:1502 ++
				CFLAG:1503 ++
				RETURN 1
			;Ｃ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				CFLAG:1502 ++
				CFLAG:1505 ++
				RETURN 1
			;Ｖ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				CFLAG:1503 ++
				CFLAG:1505 ++
				RETURN 1
			;Ｃ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				CFLAG:1502 ++
				CFLAG:1504 ++
				RETURN 1
			;Ｖ＆Ｂ絶頂
			CASE 5
				PRINTFORMW
				CFLAG:1503 ++
				CFLAG:1504 ++
				RETURN 1
			;Ａ＆Ｂ絶頂
			CASE 6
				PRINTFORMW
				CFLAG:1504 ++
				CFLAG:1505 ++
				RETURN 1
		ENDSELECT
	ENDIF
	IF NOWEX:0
	;/愛撫、クンニ、クリキャップ、座＊２・背＊２、各分岐にランダム分岐を3つほど、それぞれ絶頂・強絶頂で場合分け＝42分岐＼(^o^)／
		;強絶頂Ｃ
		IF NOWEX:0 >= 2
			IF RAND:3 == 0
				PRINTFORMW 「そこ、あっ、んまりいじっちゃ、～～～っっっ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「うあっ、あっ、あぅ～～っ…」
			ELSE
				PRINTFORMW 「ひぁっ、そこっ、もうきちゃっ…くぅ～～っ」
			ENDIF
		;絶頂Ｃ
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「そこ、あっ、んまりいじっちゃ、～～～っっっ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「うあっ、あっ、あぅ～～っ…」
			ELSE
				PRINTFORMW 「ひぁっ、そこっ、もうきちゃっ…くぅ～～っ」
			ENDIF
		ENDIF
		CFLAG:1502 ++
	ENDIF
	IF NOWEX:1
	;/星ちゃんはV敏感！
	;/指挿入、バイブ、オナニー、正・騎・座＊２・背＊２、各分岐にランダム分岐を3つほど、それぞれ絶頂・強絶頂で場合分け＝54分岐＼(^o^)／
	;/あ、Gスポ責め・子宮口責めも追加で
		;強絶頂Ｖ
		IF NOWEX:1 >= 2
			IF RAND:3 == 0
				PRINTFORMW 「んやっ、イく、はっ、イくぅぅ～～っ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「だめ、きちゃ、きちゃうぅ～～っ」
			ELSE
				PRINTFORMW 「や、もうきちゃいます、ぎゅってしてください、うぅぅぅ～～っ…」
			ENDIF
		;絶頂Ｖ
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「んやっ、イく、はっ、イくぅぅ～～っ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「だめ、きちゃ、きちゃうぅ～～っ」
			ELSE
				PRINTFORMW 「や、もうきちゃいます、ぎゅってしてください、うぅぅぅ～～っ…」
			ENDIF
		ENDIF
		CFLAG:1503 ++
	ENDIF
	IF NOWEX:2
	;/アナル愛撫、アナルバイブ、アナルビーズ、オナニー、正・騎・座＊２・背＊２、各分岐にランダム分岐を3つほど、それぞれ絶頂・強絶頂で場合分け＝60分岐＼(^o^)／
		;強絶頂Ａ
		IF NOWEX:2 >= 2
			IF RAND:3 == 0
				PRINTFORMW 「んやっ、お、しり、そんないじっちゃ、はっ、くぅぅ～～っ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「だめ、きちゃ、きちゃうぅ～～っ」
			ELSE
				PRINTFORMW 「や、こんな、こんなぁぁ～～っ」
			ENDIF
		;絶頂Ａ
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「んやっ、お、しり、そんないじっちゃ、はっ、くぅぅ～～っ！」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「だめ、きちゃ、きちゃうぅ～～っ」
			ELSE
				PRINTFORMW 「や、こんな、こんなぁぁ～～っ」
			ENDIF
		ENDIF
		CFLAG:1505 ++
	ENDIF
	IF NOWEX:3
	;/愛撫、ニプルキャップ、自慰、背面座位（立位）、各分岐にランダム分岐を3つほど、それぞれ絶頂・強絶頂で場合分け＝24分岐　まだ何とか…
	;/さらに絶頂口上全てに恋慕・非恋慕で場合分けできるね。分岐が増えるよ、やったねたえｔ(ry
		;強絶頂Ｂ
		IF NOWEX:3 >= 2
			IF RAND:3 == 0
				PRINTFORMW 「っあ、そ、んなに撫でられたら、あ、くぅ～～っ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ダメです、私、おっぱいで、っ、うああっ…！」
			ELSE
				PRINTFORMW 「や、はぅ、そんなに乳首、こねた、らぁっ、～～っ！」
			ENDIF
		;絶頂Ｂ
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「っあ、そ、んなに撫でられたら、あ、くぅ～～っ」
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ダメです、私、おっぱいで、っ、うああっ…！」
			ELSE
				PRINTFORMW 「や、はぅ、そんなに乳首、こねた、らぁっ、～～っ！」
			ENDIF
		ENDIF
		CFLAG:1504 ++
	ENDIF
ENDIF
ENDIF

;-------------------------------------------------
;射精に関する口上の表示
;一時的にTARGETを口上主に設定している
;-------------------------------------------------

@M_KOJO_MESSAGE_PALAMCNG_A_K87_0(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;コンドーム
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_23(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;イラマチオ
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_22(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;シックスナイン
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;精液経験０
	IF EXP:精液経験 == 0
		IF TALENT:恋慕
			PRINTFORMW 「こ、これが、%MASTERNAME:87%の精液…」
		ELSE
			PRINTFORMW 「こ、これが、男の人の精液…」
		ENDIF
	;同時射精
	ELSEIF NOWEX:11 && NOWEX:MASTER:11
		PRINTFORMW
		RETURN 1
	;TARGETもC絶頂
	ELSEIF NOWEX:0 >= 1
		IF TALENT:恋人
			;精液中毒3以上でランダム分岐3つ追加
			IF RAND:6 == 0 && ABL:精液中毒 >= 3
				PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
				PRINTFORMW 「じゅちゅうぅ、あ、おいし、あ、わたしもイくぅ%UNICODE(0x2665)%」
			ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
				PRINTFORMW 「あはっ♪%MASTERNAME:87%も、イッたんですね%UNICODE(0x2665)%」
				PRINTFORMW 「おくひのなか、%MASTERNAME:87%の匂いで、いっぱい…%UNICODE(0x2665)%」
			ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
				PRINTFORMW 「はあぁ♪おまんこきもちいー♪%MASTERNAME:87%せーえききもひいぃぃ…%UNICODE(0x2665)%」
				PRINTFORMW 星はあなたに与えられる快楽に溺れ、注がれた精液を口から垂れ流している…
			ELSEIF RAND:3 == 0
				PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
				PRINTFORMW 「私も…く、はぅ、イ、くっ…%UNICODE(0x2665)%」
			ELSEIF RAND:2 == 0
				PRINTFORML 射精の瞬間、星の秘裂に顔を突っ込み、思い切り音を立てて吸い上げた
				PRINTFORMW たまらずペニスから口を離した星の顔に、白濁液が飛び散った…
				PRINTFORMW 「ひあああっ%UNICODE(0x2665)%あはぁ♪顔に全部かかっちゃっいましたよう♪」
				PRINTFORMW 同時に達した星の膣口からも、愛液がどぷりと溢れた…
			ELSE
				PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
				PRINTFORMW あなたの精液を嚥下する星の分泌液を啜り、互いの体液を循環させた…
			ENDIF
		;恋慕
		ELSEIF TALENT:恋慕
			IF RAND:2 == 0
				PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
				PRINTFORMW 「%MASTERNAME:87%も一緒にイッてくれたんですね、嬉しいです…♪」
			ELSEIF RAND:3 == 0
				PRINTFORML 射精の瞬間、星の肉芽を思い切り吸い上げた…
				PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
			ENDIF
		ELSE

			IF RAND:2 == 0
				PRINTFORML 「あ…たくさん出ましたね…」
				PRINTFORMW 「%MASTERNAME:87%もイッたんですね…なんだか嬉しいです」
			ELSE
				PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
				PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
			ENDIF
		ENDIF
	;TARGETだけ射精
	ELSEIF NOWEX:11
		;PLAYERについてる
		IF TALENT:PLAYER & 2
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF TALENT:2 & 2
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			IF TALENT:恋人
				;精液中毒3以上でランダム分岐3つ追加
				IF RAND:6 == 0 && ABL:精液中毒 >= 3
					PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
					PRINTFORMW 「じゅちゅうぅ、あ、おいし、あはぁ、いい♪」
				ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
					PRINTFORMW 「あはっ♪%MASTERNAME:87%のが、ビクビクってしてます%UNICODE(0x2665)%」
					PRINTFORMW 「おくひのなか、%MASTERNAME:87%の匂いで、いっぱい…%UNICODE(0x2665)%」
				ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
					PRINTFORMW 「はあぁ♪おまんこきもちいー♪%MASTERNAME:87%せーえききもひいぃぃ…%UNICODE(0x2665)%」
					PRINTFORMW 星はあなたに与えられる快楽に溺れ、注がれた精液を口から垂れ流している…
				ELSEIF RAND:3 == 0
					PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
					PRINTFORMW 「私も、んっ♪早くイカせてください%MASTERNAME:87%%UNICODE(0x2665)%」
				ELSEIF RAND:2 == 0
					PRINTFORMW 射精の瞬間、星の秘裂に顔を突っ込み、思い切り音を立てて吸い上げた
					PRINTFORMW たまらずペニスから口を離した星の顔に、白濁液が飛び散った…
					PRINTFORMW 「ひあああっ%UNICODE(0x2665)%あはぁ♪顔に全部かかっちゃっいましたよう♪」
				ELSE
					PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
					PRINTFORMW あなたの精液を嚥下する星の分泌液を啜り、互いの体液を循環させた…
				ENDIF
			;恋慕
			ELSEIF TALENT:恋慕
				IF RAND:2 == 0
					PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
					PRINTFORMW 「%MASTERNAME:87%も気持ちよくなってくれてたんですね、嬉しいです…♪」
				ELSEIF RAND:3 == 0
					PRINTFORML 射精の瞬間、星の肉芽を思い切り吸い上げた…
					PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
				ENDIF
			ELSE

				IF RAND:2 == 0
					PRINTFORML 「あ…たくさん出ましたね…」
					PRINTFORMW 「%MASTERNAME:87%も気持ちよかったんですね…なんだか嬉しいです」
				ELSE
					PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
					PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
				ENDIF
			ENDIF

		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_21(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;パイズリフェラ
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;精液経験０
	IF EXP:精液経験 == 0
		IF TALENT:恋慕
			PRINTFORMW 「こ、これが、%MASTERNAME:87%の精液…」
		ELSE
			PRINTFORMW 「こ、これが、男の人の精液…」
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		;精液中毒3以上でランダム分岐3つ追加
		IF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
			PRINTFORMW 「じゅちゅうぅ、あ、おいし、あはぁ、いい♪」
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「あはっ♪%MASTERNAME:87%のが、おっぱいのなかでビクビクってしてますね%UNICODE(0x2665)%」
			PRINTFORMW 「%MASTERNAME:87%の匂いで、いっぱい…当分取れませんね、これ%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「はあぁ♪おちんちん気持ちいい%UNICODE(0x2665)%%MASTERNAME:87%せーえききもひいぃぃ…%UNICODE(0x2665)%」
			PRINTFORMW 吐き出した精液にまみれた陰茎を、星は飽きもせず乳肉で弄ぶ…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
			PRINTFORMW 「私のおっぱい使って気持よくできて、私もすごく嬉しいです…♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 射精の瞬間、星の形の良い乳房を鷲掴みにし、強引にペニスを扱いた
			PRINTFORMW 限界まで膨らんだ亀頭から精液が吹き出し、星の顔に白濁液が飛び散った…
			PRINTFORMW 「ひあああっ%UNICODE(0x2665)%あん♪乱暴にするのはダメですよお…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
			PRINTFORMW 星は乳肉で挟み込んだまま肉棒の先端に口づけし、一生懸命精液を吸い取っている…
		ENDIF
	;恋慕
			ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
			PRINTFORMW 「私で気持ちよくなってくれてたんですね、嬉しいです…♪」
		ELSEIF RAND:3 == 0
			PRINTFORML あまりの快楽に、予告もなしに思い切り星の顔にかけてしまった…
			PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「あ…たくさん出ましたね…」
			PRINTFORMW 「%MASTERNAME:87%も気持ちよかったんですね…なんだか嬉しいです」
		ELSE
			PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
			PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_20(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫フェラ
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;精液経験０
	IF EXP:精液経験 == 0
		IF TALENT:恋慕
			PRINTFORMW 「こ、これが、%MASTERNAME:87%の精液…」
		ELSE
			PRINTFORMW 「こ、これが、男の人の精液…」
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		;精液中毒3以上でランダム分岐3つ追加
		IF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
			PRINTFORMW 「じゅちゅうぅ、あ、おいし、あはぁ、いい♪」
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 射精の瞬間、星の後頭部を掴んで口腔奥深くにぶちまけた…
			PRINTFORMW 「んむっ…んく、んく、こほ…ぷあっ、乱暴にするのはダメですよお…%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「はあぁ♪おちんちん…%MASTERNAME:87%せーえききもひいぃぃ…%UNICODE(0x2665)%」
			PRINTFORMW 星は吐き出された精液を陰茎に塗りつけ、何回も咥え込み舐め取っている…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
			PRINTFORMW 「気持よくできて、私もすごく嬉しいです…♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「じゅぷ、じゅる、んっ…ふふ、%MASTERNAME:87%のが射精する瞬間、好きなんです%UNICODE(0x2665)%」
			PRINTFORMW 「これも%MASTERNAME:87%も、とっても気持ちよさそうで可愛い顔してますから%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
			PRINTFORMW 星は射精の間も扱きながら先端に口づけし、一生懸命精液を吸い取っている…
		ENDIF
	;恋慕
			ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
			PRINTFORMW 「私で気持ちよくなってくれてたんですね、嬉しいです…♪」
		ELSEIF RAND:3 == 0
			PRINTFORML あまりの快楽に、予告もなしに射精してしまった…
			PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、全部飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「あ…たくさん出ましたね…」
			PRINTFORMW 「%MASTERNAME:87%も気持ちよかったんですね…なんだか嬉しいです」
		ELSE
			PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
			PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_9(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;アナル奉仕
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_8(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;泡踊り
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	;同時射精
	IF NOWEX:11 && NOWEX:MASTER:11
		PRINTFORMW
		RETURN 1
	;TARGETだけ射精
	ELSEIF NOWEX:11
		;PLAYERについてる
		IF TALENT:PLAYER & 2
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	;PLAYERだけ射精
	ELSE
		;TARGETについてる
		IF TALENT:2 & 2
			PRINTFORMW
			RETURN 1
		;付いてない
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_7(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;足コキ
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_6(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;素股
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_5(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;パイズリ
;パイズリフェラと同じ、ハイパー手抜き
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;精液経験０
	IF EXP:精液経験 == 0
		IF TALENT:恋慕
			PRINTFORMW 「こ、これが、%MASTERNAME:87%の精液…」
		ELSE
			PRINTFORMW 「こ、これが、男の人の精液…」
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		;精液中毒3以上でランダム分岐3つ追加
		IF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
			PRINTFORMW 「じゅちゅうぅ、あ、おいし、あはぁ、いい♪」
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「あはっ♪%MASTERNAME:87%のが、おっぱいのなかでビクビクってしてますね%UNICODE(0x2665)%」
			PRINTFORMW 「%MASTERNAME:87%の匂いで、いっぱい…当分取れませんね、これ%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「はあぁ♪おちんちん気持ちいい%UNICODE(0x2665)%%MASTERNAME:87%せーえききもひいぃぃ…%UNICODE(0x2665)%」
			PRINTFORMW 吐き出した精液にまみれた陰茎を、星は飽きもせず乳肉で弄ぶ…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
			PRINTFORMW 「私のおっぱい使って気持よくできて、私もすごく嬉しいです…♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 射精の瞬間、星の形の良い乳房を鷲掴みにし、強引にペニスを扱いた
			PRINTFORMW 限界まで膨らんだ亀頭から精液が吹き出し、星の顔に白濁液が飛び散った…
			PRINTFORMW 「ひあああっ%UNICODE(0x2665)%あん♪乱暴にするのはダメですよお…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
			PRINTFORMW 星は乳肉で挟み込んだまま肉棒の先端に口づけし、一生懸命精液を吸い取っている…
		ENDIF
	;恋慕
			ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
			PRINTFORMW 「私で気持ちよくなってくれてたんですね、嬉しいです…♪」
		ELSEIF RAND:3 == 0
			PRINTFORML あまりの快楽に、予告もなしに思い切り星の顔にかけてしまった…
			PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「あ…たくさん出ましたね…」
			PRINTFORMW 「%MASTERNAME:87%も気持ちよかったんですね…なんだか嬉しいです」
		ELSE
			PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
			PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_4(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;フェラチオ
;手淫フェラと同じ、ハイパー手抜き
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;精液経験０
	IF EXP:精液経験 == 0
		IF TALENT:恋慕
			PRINTFORMW 「こ、これが、%MASTERNAME:87%の精液…」
		ELSE
			PRINTFORMW 「こ、これが、男の人の精液…」
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		;精液中毒3以上でランダム分岐3つ追加
		IF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
			PRINTFORMW 「じゅちゅうぅ、あ、おいし、あはぁ、いい♪」
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 射精の瞬間、星の後頭部を掴んで口腔奥深くにぶちまけた…
			PRINTFORMW 「んむっ…んく、んく、こほ…ぷあっ、乱暴にするのはダメですよお…%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「はあぁ♪おちんちん…%MASTERNAME:87%せーえききもひいぃぃ…%UNICODE(0x2665)%」
			PRINTFORMW 星は吐き出された精液を陰茎に塗りつけ、何回も咥え込み舐め取っている…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
			PRINTFORMW 「気持よくできて、私もすごく嬉しいです…♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「じゅぷ、じゅる、んっ…ふふ、%MASTERNAME:87%のが射精する瞬間、好きなんです%UNICODE(0x2665)%」
			PRINTFORMW 「これも%MASTERNAME:87%も、とっても気持ちよさそうで可愛い顔してますから%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
			PRINTFORMW 星は射精の間も扱きながら先端に口づけし、一生懸命精液を吸い取っている…
		ENDIF
	;恋慕
			ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
			PRINTFORMW 「私で気持ちよくなってくれてたんですね、嬉しいです…♪」
		ELSEIF RAND:3 == 0
			PRINTFORML あまりの快楽に、予告もなしに射精してしまった…
			PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、全部飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「あ…たくさん出ましたね…」
			PRINTFORMW 「%MASTERNAME:87%も気持ちよかったんですね…なんだか嬉しいです」
		ELSE
			PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
			PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_3(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;手淫
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	;精液経験０
	IF EXP:精液経験 == 0
		IF TALENT:恋慕
			PRINTFORMW 「こ、これが、%MASTERNAME:87%の精液…」
		ELSE
			PRINTFORMW 「こ、これが、男の人の精液…」
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		;精液中毒3以上でランダム分岐3つ追加
		IF RAND:6 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
			PRINTFORMW 星は射精する間も扱き続け、一滴残らず精液を絞り出した…
		ELSEIF RAND:5 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「…ふふ、%MASTERNAME:87%のが射精する瞬間、好きなんです%UNICODE(0x2665)%」
			PRINTFORMW 「これも%MASTERNAME:87%も、とっても気持ちよさそうで可愛い顔してますから%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:精液中毒 >= 3
			PRINTFORMW 「あはぁ♪凄いニオイ…%UNICODE(0x2665)%」
			PRINTFORMW 星は吐き出された精液を胸から上で受け止め、その性臭に陶然となっている…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んんっ♪イきましたね%UNICODE(0x2665)%」
			PRINTFORMW 「気持よくできて、私もすごく嬉しいです…♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 絶頂の瞬間、星を抱き寄せて密着した二人の体の間で射精した…
			PRINTFORMW 「ふあっ…%UNICODE(0x2665)%%MASTERNAME:87%のがびくっびくって気持ちよさそうにしてます…%UNICODE(0x2665)%」
		ELSE
			PRINTFORML 「ん、んく、じゅる、ちゅ…はぁうっ%UNICODE(0x2665)%あむ、ちゅぅ…」
			PRINTFORMW 星は射精の間も扱きながら先端に口づけし、一生懸命精液を吸い取っている…
		ENDIF
	;恋慕
			ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「わ、たくさん出しましたね…%UNICODE(0x2665)%」
			PRINTFORMW 「私で気持ちよくなってくれてたんですね、嬉しいです…♪」
		ELSEIF RAND:3 == 0
			PRINTFORML あまりの快楽に、予告もなしに射精してしまった…
			PRINTFORMW 「んぷ、ぷぁ、はぁ♪ああ、%MASTERNAME:87%の、全部飲んであげられなかったじゃないですか…%UNICODE(0x2665)%」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「あ…たくさん出ましたね…」
			PRINTFORMW 「%MASTERNAME:87%も気持ちよかったんですね…なんだか嬉しいです」
		ELSE
			PRINTFORML 「！？んぷ、けほ、こほ、出そうなら言って欲しかったです…」
			PRINTFORMW 星は突然噴き上がった精液に目を白黒させた…
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_2(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;アナル
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K87_1(ARG)
CALL PALAM_MESSAGE_A
;-------------------------------------------------
;膣内
;/星ちゃんはV敏感！
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;初めて
	;記入チェック
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF TALENT:恋人
			PRINTFORMW 「あ…これって、射精、ですよね…%UNICODE(0x2665)%」
			PRINTFORMW 今まで汚れたことのない場所を、愛する女性の聖域を、自分の精液で、穢す
			PRINTFORMW そのことに二人は、どうしようもない快感と充足を味わった…
			PRINTFORMW 「私…奥まで全部、印付けられちゃいました…好きな人の、精液で%UNICODE(0x2665)%」
			PRINTFORMW 「ちょっと感動しちゃいました…ありがとうございます、%MASTERNAME:87%…」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「あ…これって、射精、ですよね…%UNICODE(0x2665)%」
			PRINTFORMW 今まで汚れたことのない場所を、女性の聖域を、自分の精液で、穢す
			PRINTFORMW 星は幸せそうな顔ではにかんだ…
			PRINTFORMW 「私…奥まで全部印付けられちゃいました…%MASTERNAME:87%の、精液で%UNICODE(0x2665)%」
			PRINTFORMW 「%MASTERNAME:87%にならいいかなって、思ってましたから…嬉しいです」
		ELSE
		;/責任取れよ！
			PRINTFORMW 「あ…これって、射精、ですか…？」
			PRINTFORMW 今まで汚れたことのない場所を、女性の聖域を、自分の精液で、穢す
			PRINTFORMW そのことにあなたは、どうしようもない快感と充足を味わった…
			PRINTFORMW 「…ふっ…く…ど、うしましょう…私、私…！」
			PRINTFORMW すがるような目で見つめてくる星
			PRINTFORMW 色欲に溺れ最後の一線を超えてしまった星にとって、もうあなたしか支えてやれる者はいないのだ…
		ENDIF
	;恋人
	ELSEIF TALENT:恋人
		;
		IF RAND:6 == 0 && ABL:Ｖ感覚 >= 3
			PRINTFORMW 「ひゃ、あっ♪%MASTERNAME:87%せーえききたぁ%UNICODE(0x2665)%」
			PRINTFORMW 「きもち、いいっ%UNICODE(0x2665)%あはぁ、あうう、あー…%UNICODE(0x2665)%」
		ELSEIF RAND:5 == 0 && ABL:Ｖ感覚 >= 3
			PRINTFORMW 「うう、うあ、うあうっ、あはぁ…%UNICODE(0x2665)%」
			PRINTFORMW ペニスが脈を打つたびに、歓喜の喘ぎ声が星の口から漏れる
			PRINTFORMW 「はあぁ…♪%MASTERNAME:87%の膣内射精、さいっこうです…私、あなたの恋人で、ほんとに良かった…%UNICODE(0x2665)%」
		ELSEIF RAND:4 == 0 && ABL:Ｖ感覚 >= 3
			PRINTFORMW 「あぅ、は、はぅ、ぅあ、はぁ…%UNICODE(0x2665)%」
			PRINTFORMW 膣内射精の快楽に意識まで蕩けてしまった星は、しかし子作りの本能に従ってペニスを咥え込んで離さない
			PRINTFORMW 滑らかで強烈な膣圧が、射精の脈動と同調してあなたの精液を最後の一滴まで絞り出した…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「んんっ、あはっ、すご、出てます…はぁー…♪」
			PRINTFORML 「ふふ…%MASTERNAME:87%の膣内射精、とっても気持ちいいです…」
			PRINTFORMW 「きっと、「好き」って気持ちが込められてるからですね…ふふっ♪」
		ELSEIF RAND:2 == 0
			PRINTFORMW 絶頂の瞬間、星の柔らかく火照った体を抱きしめて、精液を胎内の奥深くに送り込む
			PRINTFORML 「ん…んっく、ふぅぅ、きて、ますっ…すご、奥で…びくびくってぇ…」
			PRINTFORMW 子種を全て吐き出すまで、星と完全に一つになった錯覚に陥った…
		ELSE
			PRINTFORML 射精に合わせて、星の膣壁が蠢いて子種が搾り出された
			PRINTFORMW 脳の奥で火花がスパークし、星を孕ませること以外を考えられなくなる…
		ENDIF
	;恋慕
	ELSEIF TALENT:恋慕
		IF RAND:2 == 0
			PRINTFORML 「わ、たくさん出てます…%UNICODE(0x2665)%」
			PRINTFORMW 「二人で一緒に気持ちよくなるのって、愉しいですね…%UNICODE(0x2665)%」
		ELSEIF RAND:3 == 0
			PRINTFORML 「ひあっ！？そんな、いきなり、びゅくびゅくって…%UNICODE(0x2665)%」
			PRINTFORMW 限界を迎えた精液が堰を切って星の胎内に突き刺さり、膣内の敏感な場所を刺激した…
			PRINTFORMW 「あ、あ、ダメ、私も、イくぅ…♪」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「あ…たくさん出ましたね…」
			PRINTFORMW 「…なんだか嬉しいです」
		ELSE
			PRINTFORML 「っあ！？あ…イっちゃいました…？」
			PRINTFORMW 「私も、もう少しで…ううっ」
		ENDIF
	ENDIF
	RETURN 1
ENDIF
RETURN 1

;-------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_F_K87(ARG)
CALL PALAM_MESSAGE_F
;-------------------------------------------------
;焦らし
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1
;--------------------------------------
;TFLAG:8 (1=TARGETがお掃除 2=ASSIがお掃除 3=TARGETとASSIがお掃除)
;-------------------------------------------
@M_KOJO_MESSAGE_PALAMCNG_C_K87
CALL PALAM_MESSAGE_C
;処女喪失
IF TFLAG:4
	PRINTFORMW
ENDIF

;フェラで射精後のお掃除
IF (TFLAG:8 & 1) && NOWEX:PLAYER:11
	PRINTFORMW
ENDIF

;-------------------------------------------
;刻印取得
;-------------------------------------------
@M_KOJO_MESSAGE_MARKCNG_K87
;苦痛刻印
IF TFLAG:苦痛刻印取得 == 1
	PRINTFORMW
ELSEIF TFLAG:苦痛刻印取得 == 2
	PRINTFORMW
ELSEIF TFLAG:苦痛刻印取得 == 3
	PRINTFORMW
ENDIF

;快楽刻印
IF TFLAG:23 == 1
	PRINTFORMW
ELSEIF TFLAG:23 == 2
	PRINTFORMW
ELSEIF TFLAG:23 == 3
	PRINTFORMW
ENDIF

;不埒刻印
;快楽による刻印
;LV1
IF TFLAG:24 == 11
	PRINTFORMW
;LV2
ELSEIF TFLAG:24 == 12
	PRINTFORMW
;LV3
ELSEIF TFLAG:24 == 13
	PRINTFORMW
;苦痛、恐怖による刻印
;LV1
ELSEIF TFLAG:24 == 21
	PRINTFORMW
;LV2
ELSEIF TFLAG:24 == 22
	PRINTFORMW
;LV3
ELSEIF TFLAG:24 == 23
	PRINTFORMW
;不埒、恭順による刻印
;LV1
ELSEIF TFLAG:24 == 31
	PRINTFORMW
;LV2
ELSEIF TFLAG:24 == 32
	PRINTFORMW
;LV3
ELSEIF TFLAG:24 == 33
	PRINTFORMW
ENDIF

;反発刻印
IF TFLAG:反発刻印取得 == 1
	PRINTFORMW
ELSEIF TFLAG:反発刻印取得 == 2
	PRINTFORMW
ELSEIF TFLAG:反発刻印取得 == 3
	PRINTFORMW
ENDIF

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/era命蓮寺OvDr!! ver1.3用 ふわっと寅丸 星口上ver.6.1【別人加筆版】/M_KOJO_K87.ERB