repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【76】小町/M_KOJO_K76_派生コマンド.ERB

license: unknown


path: ERB/口上・メッセージ関連/個人口上/【76】小町/M_KOJO_K76_絶頂.ERB


path: ERB/口上・メッセージ関連/個人口上/【76】小町/M_KOJO_K76_育児イベント.ERB


path: ERB/口上・メッセージ関連/個人口上/【76】小町/M_KOJO_K76_道具系コマンド.ERB


code:
eraTheWorld　小町口上 ver0.77

eraTW4.740～4.841用の小町口上です。

--------------------------------------------------
※はじめに

未完成状態で公開するのは気が引けましたが、現状だといつ完成するか分からないので……
時間をつくって少しづつ埋めていきたいと思います

公式、準公式の角色をある程度意識して書いて是ますが
原創要素、二次創作要素もあります
--------------------------------------------------

--------------------------------------------------
※この口上について

開朗で話好きという設定なので、それほど親しくないときでも割とフレンドリーな対応をしてくれるようにしました
性騷擾にも（パラメーターとしてはともかく口上的に）割と寛容です
恋慕がつくと你の言うことならなんでもしてあげるよ的な小町を書いていきたいです
「不知羞恥」「不在乎貞操」「受虐属性」を好吃こと口上に活かしたいです

華扇口上と藍口上が好きすぎてそれをこまっちゃんでも再現してみたくなりました
少しでも差別化できるように書いたつもりですが、丸パクリじゃねーかこれと思われたら申し訳ありません……
--------------------------------------------------

--------------------------------------------------
※更新したこと（～2022/4/27分 Ver0.77）
・映姫様が法廷で仕事中かつ小町が法廷にいるとき性騷擾の反応を加筆。スケベスイッチ時で変化するように
・手指挿入加筆
・物陰中正常位立位を加筆
・@K76_BEFORETRAINを追加。スケベスイッチONのときは毎日発情するようになり、さらに子宮がおりっぱ無になるように
・EXSOURCE追加。スケベスイッチ時は性騷擾系が反感、苦痛、恐怖が0に。欲情や歓楽、快楽ソースなどが大幅増加

　２年ぶりの更新です。映姫様口上作者様が色々小町口上に寄せていってくださっていたのに自分はほったらかしで大変申し訳なく…　映姫口上が更新されたのでプレイしていたら法廷に小町が。小町相手には普通に性騷擾できるし、なんなら物陰にも誘える
　那个？　このシチュ好吃こと口上に落とし込めるんじゃ？　と思い加筆を始めました
　全部は仕事中（午後の事務処理中だけど）にちんちんしゃぶってくるｻｲﾊﾞﾝﾁｮが悪い
　性騷擾とか物陰ックスに気付いた映姫が欲求不満度と憤怒度を溜める処理なんかも入れてみたいけどさすがに他角色に干渉すると不具合でるかな…

※更新したこと（～2020/5/23分 Ver0.76）
・小町からお誘いを接受とエラーが発生して強制終了する不具合を修正

※更新したこと（～5/14分）
・童貞時の初性交指令肉付け
・性交指令（主に立位）追加
・構文エラー修正
・一応奉仕指令全部埋め

※作業日誌（～5/12分）
・親密な仲かつ性交を重ねた状態で「祈願」をすると、こまっちゃんの言動が一部スケベに
　（細かい条件はこのreadmeの最下部に書いてあります）
・子育てイベント一部実装
・4月27日分の補強

※作業日誌（～4/27分）
・性交指令一部実装。こまっちゃんに童貞を獻出と温柔的手ほどきしてくれます。稍微やりすぎたかなと思うくらいこまっちゃんを女神にした
・你と映姫様が同棲中かそうでないか、性交済みかそうでないかで、掃除指令の反応を変化させた
・ちなみにお掃除は屋内／屋外、季節、特定の場所で分岐
・情事を目撃／情事を見られた（特に映姫様に見られたとき。死に分岐があるかもしれません）
・お誘いの細かい修正（時間帯で分岐が抜けていたのを修正）

※更新したこと（4/25分）
・会話の種類増加。多分倍以上。恋人、妊娠時だとさらに増加
・戦闘訓練でスペカ名を喋るように。你の戦闘力で会話内容が分岐
・小町からのお誘い時、映姫様が近くにいると反応が変化（それぞれの関係で分岐）
・２人が一緒にお風呂にいるときも反応が変化（それぞれの関係で分岐）
・ウフフ系指令を一街道埋めた。主に愛撫、奉仕、絶頂指令

--------------------------------------------------

--------------------------------------------------
※これからやりたいこと

×時姦刻印で你のちんぽの形を覚えちゃうようにしたい
△胸部チャレンジしてくれるこまっちゃんを書きたい←一応実装
△诶嘿嘿を埋めたい←稍微埋めた
△性騷擾指令をもっと充実させたい
〇願い事でモード切り替わるこまっちゃんをやってみたい←実装、動作確認済み
--------------------------------------------------

--------------------------------------------------
※自分用、初めて口上書く人向けメモ
使いこなせると便利（使いこなせるとは言っていない

COMMON.ERBに口上で使えそうな関数あり
@GET_TARGETNUM()　……同室内のTARGETの数を返す
@BETWEENTIME(ARG,ARG:1)　……TIMEがARGからARG:1までの間
@DAY_TO_DATE(ARG)　……ARGを年月日に変換する
@WORKING(ARG)　……その角色の仕事時間帯かどうかを返す関数
--------------------------------------------------

--------------------------------------------------
※苦情・バグ報告等

したらば掲示板のera板避難所eratoho総合スレにてお願いします
--------------------------------------------------

--------------------------------------------------
※参考にさせて頂いた方々、謝辞

TW華扇様、TW藍様、TW美鈴様の口上を主に参考にさせていただきました
風呂掃除に関して、TW雛様の口上を参考にさせていただきました
TW映姫様の口上は、掛け合いで非常に参考にさせていただいています、関数の使用を許可してくださり、ありがとうございます
TW椛口上様、作成にあたってアドバイスをくださりありがとうございました
他の作者様の口上もとてもに参考成为了
eraTWに関わる皆様に感謝いたします
--------------------------------------------------

--------------------------------------------------
※作者：すし
（265スレ目549）

--------------------------------------------------
こまっちゃんスケベスイッチ発動条件
--------------------------------------------------

・恋慕または恋人を取得
・危険日生Ｈ解禁取得（この時点で愛情経験とか膣射中毒が高めになっていると思うので、条件に加えず）
・屋外で「推倒」を50回以上実行（性交の必要は無）
・映姫様的房間で「推倒」を50回以上実行（性交の必要は無）
・Ｃ、Ｖ、Ａ、Ｂ、Ｍ絶頂経験がいずれも30以上

以上全部を満たした状態で、「祈願」を実行すると、通常の祈願選択後に選択肢が現れます
条件を満たしていない場合は「何をお願い事したの？」と通常口上が現れます
スイッチを解除したい場合は、翌日「祈願」を実行することで解除するかどうかの選択肢が現れます
一度条件を満たしていれば、祈願が実行できる状態なら何度でも復活できます

あんまり条件細かくしすぎると死にイベントになるので条件を緩めにしました
スイッチ発動時に536氏が作成した発情表情に切り替わるとかやってみたかったけれど、無理そう→今ならやればできる
TCVAR:発情を一時的に付与してもいいけど、翌日消えるよね、これ……
フラグ発生時は自動的に発情を付与する関数とか実装できるんかしら→実装されました


code:
  TW用小町口上
  作者：すし
  ＜改変した場合はここに改変者の名前・連絡先を追加する＞

  ＜この口上について語ったりするスペース＞

  ライセンス：
  作者は以下で○をつけた行為について、誰でも無断で行えるものとし、違反しない限り許可を撤回しないものとします。
    ○：常に許可　△：要相談、上記の作者と改変者全員に連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない

  +----+-----------------------------------+
  | 口上の再配布                           |
  +----+-----------------------------------+
  | × | 単体での再UPロード            |勝手にUPされて、ウイルスとか仕込まれてたらと思うと怖くて不行
  | △ | 本体への同梱・口上まとめへの収録  |作者（すし）がスレ内で口上使用の終了宣言をしない限りは基本〇とします
  +----+-----------------------------------+
  | 再配布を許可する場合の改変             |
  +----+-----------------------------------+
  | × | 口上の加筆                        |加筆されたこと忘れて、自分が普段使ってるフォルダ内のファイル使って作業しそうなので…
  | × | 口上の改変・其他改変            |改変された部分が自分が書いたものより素晴らしかったら死にたくなりそうなので
  +----+-----------------------------------+
  | 其他                                 |
  +----+-----------------------------------+
  | △ | 他の口上での利用                  |中を覗き見て参考にする、他の角色との掛け合いに利用する、コピペして角色名とか多少内容を書き換えて自分の口上に利用する行為は〇（参考になるかはわかりませんが）
  | △ | 他のeraバリアントでの利用         |万が一トラブルが発生した時に面倒ごとは極力避けたいです……
  | × | era以外への流用                   |こんな口上が表に出るとかしんでしまいます^q^
  | × | 翻訳・他言語版バリアントへの流用  |OH,Japanese Hentai Komachi KOJO Sakusyaとか世界の晒し物になるなんて耐えられません
  | × | 商用利用・金銭のやり取りを伴う利用|家族が難病にかかって、治療費のためにアラブの石油王が口上を高値で買い取ってくれるとかなら一考します
  | × | 二次創作                          |こんな口上が表に（ｒｙ
  +----+-----------------------------------+
  ・以下の行為に関しては上記と関係なく、無断で行えるものとします。
    １：バグ・誤字脱字の修正・本体VerUpへの対応のための改変
  ・以下の行為に関しては上記と関係なく、作者であっても禁止とします。
    １：以下の例外を除き、この口上からライセンス文・添付文章（ファイル名を除く）の内容を変更・削除すること
        ・次期バージョンから、ライセンスの○・△を×に変更すること
        ・次期バージョンから、上記の作者と改変者全員の許可が那个ば、それ以外の変更も
    ２：この口上が二次創作等の場合に、原作者が禁止を宣言している行為
  ・改変者は自分の名前を削除することができ、それによりこの口上に関する一切の権利を放棄し、放棄できない権利について行使しないことを宣言したものとします。
  ・この口上を使用したことによる損害等について、バリアント・口上の作者、改変者は一切の責任を負いません。

path: ERB/口上・メッセージ関連/個人口上/【76】小町/ライセンス.txt


code:
;-------------------------------------------------
; eraTheWorld 4.610proto用 穣子口上
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;CFLAG:78:1001	乳頭変色フラグ。0=変色しない 1=出産前後のみ変色 2=母乳体質が那个ば常に変色
;CFLAG:78:1002	スカトロ表現フラグ
;
;CFLAG:78:1003	現在的陰毛。CFLAG:陰毛があるが使われてないようなので。 -2=派面包 -1=剃り跡あり 0=默认（描写無） 1=濃い 2=茫々
;CFLAG:78:1004	どの陰毛への変更を指定したか
;CFLAG:78:1005	陰毛増毛を指定した時点での陰毛毛量
;CFLAG:78:1006	陰毛増毛を指定した時点のDAY:0
;CFLAG:78:1007	現在的腋毛の状態 0=默认（ツルツル） 1=剃り跡あり 2=生えてる 3=茫々
;CFLAG:78:1008	どの腋毛への変更を指定したか
;CFLAG:78:1009	腋毛増毛を指定した時点での腋毛毛量
;CFLAG:78:1010	腋毛増毛を指定した時点のDAY:0
;陰毛・腋毛は浴場で会話することで変更する。薄くするときはすぐ変更されるが濃くするときは日数がかかる。
;対面したとき（遭遇、すれ違い、起床時の口上）に経過日数に応じてCFLAG:1003および1007の値が増える（２日で１段階あがる計算）。
;指定した毛量に到達したあとは、あらたに指定しなおさない限りその毛量が維持される。
;
;CFLAG:78:1099	UPDATEフラグ
;
;TCVAR:78:351	排便済みフラグ
;TCVAR:78:352	その日すでに会った判定
;TCVAR:78:353	他角色との约会に遭遇したらその角色の角色番号を代入
;
;******************************************************************************
;******************************************************************************
;FIRSTTIME()によってCSTR:78:0に追加した独自の文字列
;
;"主人に剃毛される（陰毛）"		DIALOGUE_K78_HAIR_TREATMENT
;"自己剃毛する（陰毛）"		DIALOGUE_K78_HAIR_TREATMENT
;"主人に剃毛される（腋毛）"		DIALOGUE_K78_HAIR_TREATMENT
;"自己剃毛する（腋毛）"		DIALOGUE_K78_HAIR_TREATMENT
;"陰毛をボーボーにする"			DIALOGUE_K78_HAIR_TREATMENT
;"腋毛を生やす"					DIALOGUE_K78_HAIR_TREATMENT
;"放屁"							DIALOGUE_K78_FARTING_IN_MATING
;"脱糞"							DIALOGUE_K78_DEFECATION_IN_MATING
;
;******************************************************************************

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

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

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

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

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

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

;推倒禁止に1を入れると、主动推倒てこなくなります
;以下は恋慕か炮友がつくまで推倒てこなくなる使用例
;IF !TALENT:X:恋慕 && !TALENT:X:炮友
;	CFLAG:X:推倒禁止 = 1
;ELSE
;	CFLAG:X:推倒禁止 = 0
;ENDIF

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

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

SETCOLOR 0xECE093

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

IF CFLAG:78:1099 == 0
	PRINTL
	PRINTFORMDL %CALLNAME:78%口上中乳头颜色的变化及脱粪表现的设定。
	PRINTFORMDL 这个设定可以随时和%CALLNAME:78%一起祈祷，进行重新设定。

	$UPDATE_LOOP
	VARSET LOCALS

	SELECTCASE CFLAG:78:1001
	CASE 0
		LOCALS:0 = 不変化
	CASE 1
		LOCALS:0 = 在出产前后变化
	CASE 2
		LOCALS:0 = 无论是否妊娠，根据母乳体质发生变化
	CASEELSE
		LOCALS:0 = ※CFLAG:78:1001の値が不正※
	ENDSELECT

	SELECTCASE CFLAG:78:1002
	CASE 0
		LOCALS:1 = スカトロ无
	CASE 1
		LOCALS:1 = 有脱粪场景
	CASEELSE
		LOCALS:1 = ※CFLAG:78:1002の値が不正※
	ENDSELECT

	PRINTL
	PRINTFORMDL 現在的乳头変化的設定：%LOCALS:0%　　　現在的屎尿屁表現的設定：%LOCALS:1%
	PRINTL
	CALL ASK_M("変更乳头変化的設定",1,"変更屎尿屁表現的設定",1,"这样就好",1)
	SELECTCASE RESULT
	CASE 0
		IF CFLAG:78:1001 >= 2
			CFLAG:78:1001 = 0
		ELSE
			CFLAG:78:1001 += 1
		ENDIF
		PRINTL
		GOTO UPDATE_LOOP
	CASE 1
		CFLAG:78:1002 = !CFLAG:78:1002
		PRINTL
		GOTO UPDATE_LOOP
	CASE 2
		PRINTFORMDL 关于乳头的颜色等的变化设定为「%LOCALS:0%」
		PRINTFORMDL 変化屎尿屁表現的設定「%LOCALS:1%」
		PRINTFORMDW 如果您想要重新设定，请和%CALLNAME:78%一起祈祷。
		CFLAG:78:1099 = 1
	ENDSELECT
ENDIF

RETURN 1

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

RETURN 1

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

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

ENDIF
RETURN 1

;==================================================
;约会帰り
;==================================================
@M_KOJO_SPEVENT_K78_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K78_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	CALL K78_HAIR_GROWTH,78
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		CALL DIALOGUE_K78_GREET_ONCE_A_DAY
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL DIALOGUE_K78_GREET_ONCE_A_DAY
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF K78_CONSCIOUS_AND_TOLERANT()
			PRINTFORMW 「啊，%CALLNAME:MASTER%已经在里面了呀。呐，我可以进去一起洗么？」
		ENDIF
		SIF SHIRAHU(TARGET)
			TCVAR:78:352 = 1
		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 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		CALL DIALOGUE_K78_GREET_ONCE_A_DAY
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他角色と约会中に遭遇した
	;ARG:1に约会的对象
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		IF TCVAR:353 != ARG:1 && K78_CONSCIOUS_AND_TOLERANT()
			;静葉と约会
			IF ARG:1 == 77 && FLAG:扮演 != 77
				IF TALENT:恋人 || ( TALENT:恋慕 && !TALENT:77:恋人 )
					PRINTFORML 「呜～　姐姐，你黏得也太紧了！」
					PRINTFORMDW %CALLNAME:TARGET%暴露出了对%CALLNAME:77%的抗议。
				ELSE
					PRINTFORMW 「要和姐姐一起出门吗？要玩得開心点哟」
				ENDIF
			;さっきと違う相手と约会
			ELSEIF TCVAR:353 != 0
				IF TALENT:恋慕 || TALENT:恋人
					PRINTFORML 「又和别的女人…」
					PRINTFORMDW 被%CALLNAME:TARGET%紧紧的盯住了。
				ELSE
					PRINTFORML 「为什么约会的对象和刚才不一样了…」
					PRINTFORMDW %CALLNAME:TARGET%呆住了。
				ENDIF
			ELSE
				IF TALENT:恋慕 || TALENT:恋人
					PRINTFORML 「看起来关系很好呐……」
					PRINTFORMDW 看到带着女人的%CALLNAME:MASTER%，%CALLNAME:TARGET%露出似乎很有趣的表情。
				ELSEIF TALENT:思慕
					PRINTFORML 「哼。%CALLNAME:MASTER%真是个广爱的人呐…」
					PRINTFORMDW %CALLNAME:TARGET%一副满不在乎的样子向%CALLNAME:MASTER%和%CALLNAME:(ARG:1)%那里撇了一眼。
				ELSE
					PRINTFORM 「啊，%CALLNAME:MASTER%。
					SELECTCASE TIME:0
					CASE IS <600
						PRINTFORMW 早上好」
					CASE 600 TO 1139
						PRINTFORMW 你好」
					CASE IS >= 1140
						PRINTFORMW 晚上好」
					ENDSELECT
				ENDIF
			ENDIF
		ENDIF
		IF SHIRAHU(TARGET)
			TCVAR:78:352 = 1
			TCVAR:78:353 = ARG:1
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;### その日の初対面時あいさつ口上用関数 ################
;遭遇口上で呼び出される
@DIALOGUE_K78_GREET_ONCE_A_DAY

IF !TCVAR:352 && K78_CONSCIOUS_AND_TOLERANT()
	PRINTFORM 「啊，%CALLNAME:MASTER%。
	;非同棲
	IF CFLAG:MASTER:初期位置 != CFLAG:初期位置
		SELECTCASE TIME:0
		CASE IS <600
			PRINTFORMW 早上好」
		CASE 600 TO 1139
			PRINTFORMW 你好」
		CASE IS >= 1140
			PRINTFORMW 晚上好」
		ENDSELECT
	;同棲or招待
	ELSE
		PRINTFORML 在这里呀」
		PRINTFORMDW %CALLNAME:TARGET%看起来很高兴的样子，向%CALLNAME:MASTER%靠了过来。
	ENDIF
ENDIF
SIF SHIRAHU(TARGET)
	TCVAR:78:352 = 1

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

IF LOCAL
	SIF SHIRAHU(TARGET)
		TCVAR:78:352 = 1
	CALL K78_HAIR_GROWTH,78
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時陪睡中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			IF K78_CONSCIOUS_AND_TOLERANT()
				IF TALENT:恋慕 || TALENT:愛欲
					CALL K78_HPH_PRINT,@"「抱歉，把你吵醒了吧……只是一直特别想见到你HPH」","W"
				ELSEIF TALENT:思慕 || TALENT:炮友
					PRINTFORML 「啊，早上好」
					PRINTFORMDL 为什么%CALLNAME:TARGET%会在这里呢。
					PRINTFORMW 「只，只是顺路过来看看而已哦」
				ELSE
					PRINTFORMW 「醒了么？我来稍微借点东西」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が起きている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF K78_CONSCIOUS_AND_TOLERANT()
			SELECTCASE RAND:3
			CASE 1
				PRINTFORMW 「早上好%CALLNAME:MASTER%。那么，今天我们来打理一下田地吧」
			CASE 2
				PRINTFORMDL 一睁開眼睛%CALLNAME:TARGET%的脸庞就立刻出现在了%CALLNAME:MASTER%面前。
				CALL K78_HPH_PRINT,@"「埃嘿嘿♪看到%CALLNAME:MASTER%可爱的睡脸了HPH」","W"
			CASEELSE
				;TARGETと一緒に起きた
				IF TIME:0 == CFLAG:起床時間
					PRINTFORMW 「早上好。今天做什么好呢」
				;TARGETより遅く起きた
				ELSE
					PRINTFORMW 「终于起床了？睡了个懒觉呢」
				ENDIF
			ENDSELECT
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同棲かつ相手が寝ている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERが起きていて、相手が起きてきた
	;添い寝時TARGET起床はこちら（TARGET衰弱or陪睡中TARGET睡魔負け後そのままMASTERが起き続けた上で相手が起床した場合限定
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;-------------------------------------------------
		;非同棲
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に返回（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF K78_CONSCIOUS_AND_TOLERANT()
			PRINTFORMW 「我已经很困了。要睡觉去了。」
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;恶作剧中
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 4
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;衰弱中（恋慕付き拠点内角色がMAIN_MAPで衰弱状態になった場合か、待客室で相手が衰弱した場合に発生
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが自室まで回来了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;-------------------------------------------------
		;そのまま着替えて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 0
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部屋から追い出された
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;他角色とのＨを止めさせて寝た
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;非在住TARGETがMAIN_MAPで休憩
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;前のターンから一緒的房間にいる状態で相手が寝る（待客室含む（
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORMW
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	CALL K78_HAIR_GROWTH,78
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;轻轻地会釈して街道過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF K78_CONSCIOUS_AND_TOLERANT()
			IF TALENT:恋慕 || TALENT:愛欲
				PRINTFORMDW %CALLNAME:TARGET%笑着挥了挥手。
			ELSEIF TALENT:思慕 || TALENT:炮友
				PRINTFORMDW %CALLNAME:TARGET%微笑着回应了%CALLNAME:MASTER%。
			ELSE
				PRINTFORMDW %CALLNAME:TARGET%点着头回礼了。
			ENDIF
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して街道過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		IF !FLAG:時間停止

		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;留琴が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;其他（角色指定無
	IF K78_CONSCIOUS_AND_TOLERANT()
		IF CFLAG:诶嘿嘿
			IF TALENT:恋慕 || TALENT:愛欲

			ELSE

			ENDIF
		ELSE
			IF TALENT:恋慕 || TALENT:愛欲

			ELSE

			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3

		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の亲热度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1

		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の亲热度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3

		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

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

IF LOCAL

ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;诶嘿嘿==2（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;MASTERを推倒た（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1

			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTERに抱きついた（開始時）
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;-------------------------------------------------
		;抜け出した
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード満足終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;抱き着きモード強制終了
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;-------------------------------------------------
	;摆脱失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;随便状態から抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;欲求不満が高くて抜け出せなかった
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出される（憤怒）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K78_13(ARG,ARG:1)
;口上主はTARGET
;ARG:1に残っている工作量
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;工作開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;工作結束
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

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

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

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（推倒指令に統合？
	;MASTERが推倒た（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 2
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;事後描写
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;-------------------------------------------------
		;精液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1

			RETURN 1
		ENDIF
		;-------------------------------------------------
		;愛液が垂れてきた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2

			RETURN 1
		ENDIF
		;-------------------------------------------------
		;事後の情緒
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;服を着る
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4

			RETURN 1
		ENDIF
	ENDIF
ENDIF
RETURN 1

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

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K78_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;胖次紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		;濃厚精液＆精液中毒低吐き出し
		ELSEIF ARG:1 == 5
		;濃厚精液＆精液中毒高精飲
		ELSEIF ARG:1 == 6
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;幼稚持ち＆精液経験100未満
		IF ARG:1 == 1
		;通常ぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚肛門射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚2以下
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精口服避孕薬無
		IF ARG:1 == 1
		;非処女膣内射精口服避孕薬あり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;時間停止解除共通
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K78_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K78_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K78_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K78_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;炮友取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K78_22(ARG,ARG:1)
;口上主はARG
;ARG:0に自慰状況
;ARG:1に自慰種類
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;通常自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;同室時自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;中だし精液自慰
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無知持ち（自慰経験(調教自慰経験は差し引き)による分岐あり
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		LOCAL:2 = EXP:自慰経験 - EXP:調教自慰経験
		;無知消去イベントあり（表示は一度だけ
		IF LOCAL:1 >= 25
		;地の文分岐。書きたい場合は[SKIPSTART][SKIPEND]を削除してください
		[SKIPSTART]
		ELSEIF LOCAL:1 >= 20
		ELSEIF LOCAL:1 >= 15
		ELSEIF LOCAL:1 >= 10
		ELSEIF LOCAL:1 >= 5
		[SKIPEND]
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質あり自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;-------------------------------------------------
		;Ｃ敏感orＣ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｖ敏感orＶ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ａ敏感orＡ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 3
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;Ｂ敏感orＢ感覚10以上
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 4
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;部位指定無し
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 5
			PRINTFORML
			RETURN 1
		ENDIF
		;其他
		;上の分岐を一切書かずに、ここに書くことで陥落素質あり自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;自慰中毒高め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;-------------------------------------------------
		;尻穴膣腔同時
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;膣腔のみ
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 2
			PRINTFORML
			RETURN 1
		ENDIF
		;其他
		;上の分岐を一切書かずに、ここに書くことで自慰中毒高め自慰の共通口上を表示することが出来ます
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;我慢
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;其他
	;上の分岐を一切書かずに、ここに書くことで自慰の共通口上を表示することが出来ます
	PRINTFORML
	RETURN 1
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K78_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF !CFLAG:ブチギレ && MARK:反発刻印 < 3

			RETURN 1
		ENDIF
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K78_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K78_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;オナバレ
;==================================================
@M_KOJO_EVENT_K78_26(ARG,ARG:1)

;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;見られた瞬間
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;什麼也不做
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;そのまま続行
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;逐出
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;やっちゃう
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;事後
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 6
		;事後お泊り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
	ENDSELECT
ENDIF

;==================================================
;相手から约会のお誘い
;==================================================
@M_KOJO_EVENT_K78_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

;==================================================
;脱衣口上
;==================================================
@M_KOJO_EVENT_K78_28(ARG,ARG:1)
;口上主はTARGET
;ARGに脱がし方選択
;ARG:1（ARG=3の場合のみあり）地の文の反応
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;全裸にする
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF K78_BASIC_CONDITION_IN_MATING()
				;「变成只穿内衣的样子」を経由せずに全裸になった場合
				IF !TEQUIP:上衣脱衣完毕
					;腋毛ありかつ全裸になる前から腋が見えている
					IF CFLAG:1007 && K78_ARMPIT_EXPOSURE()
						IF CFLAG:1007 >= 3
							PRINTFORMDL 从刚才開始即使垂下手臂，腋下的刚毛也若隐若现的露出着,不过，脱掉衣服的时候，腋下大片的腋毛一览无余。
						ELSE
							PRINTFORMDL 脱掉前から腋の\@CFLAG:1007 == 2 ?毛 #剃り残し \@がチラチラと見えていたが、服を脱掉際に腕をあげると\@CFLAG:1007 == 2 ?フサフサ #プツプツ \@としたそれがはっきり見える。
						ENDIF
						SIF !TEQUIP:眼罩
							PRINTFORML 「真是的，老是盯着腋下。从刚才開始就一直看着」
						PRINTL
					ENDIF
					PRINTFORMDL %CALLNAME:MASTER%静静的观赏着%CALLNAME:TARGET%，享受着不断露出的每寸肌肤
					IF ( TALENT:恋慕 || TALENT:愛欲 || TALENT:思慕 || TALENT:炮友 ) && ABL:露出癖 >= 2 && TALENT:心情 >= 0 && BASE:情緒 >= 900 && BASE:理性 < 500
						PRINTFORMDL %CALLNAME:TARGET%看起来也很有干劲，为了展现自己的魅力，不紧不慢的脱掉了衣服。
						SIF !TEQUIP:眼罩
							CALL K78_HPH_PRINT,@"「鼻子都变长了哦HPH %CALLNAME:MASTER%真是H HPH」","L"
					ELSEIF TALENT:恋慕 || TALENT:愛欲
						PRINTFORMDL 一脱掉衣服香甜的气味就更加强烈，欲脱还遮的色气姿态使得%CALLNAME:MASTER%已经蠢蠢欲动了。
						CALL K78_HPH_PRINT,@"「只有我一个人脱太害羞了HPH 呐，你也脱掉吧HPH」","L"
					ELSEIF !TEQUIP:眼罩
						PRINTFORML 「被那样盯着看的话会很害羞的」
					ENDIF
				;「变成只穿内衣的样子」を経由して全裸になった場合
				ELSE
					PRINTFORMDL 脱去内衣露出全部的%CALLNAME:TARGET%的肉体像一尊雕塑一样地匀称美丽。
					PRINTFORM 「好了、全部脱掉了
					IF TALENT:恋慕 || TALENT:愛欲
						CALL K78_HPH_PRINT,@"HPH 那么，来做点更舒服的事吧HPH」","L"
					ELSE
						PRINTFORML 」
					ENDIF
				ENDIF
				;全裸になってはじめて腋が露出した、かつ腋汗ジミあり
				IF !K78_ARMPIT_EXPOSURE() && K78_SWEATY_UNDERARMS()
					PRINTL
					SELECTCASE CFLAG:1007
					CASE 0,1
						PRINTFORMDL 脱掉了汗迹斑斑的衣服，被汗水浸透闪闪发光的腋下露了出来
					CASE 2,3
						PRINTFORMDL 也许是因为长了毛的缘故，腋下有明显的水渍，一脱掉衣服去就散发出浓厚的味道。
					ENDSELECT
					PRINTFORML 「…因为有些热所以出了点汗」
					PRINTFORMDL %CALLNAME:TARGET%因为害羞红着脸。
				;全裸になってはじめて腋が露出した、かつ腋毛あり
				ELSEIF !K78_ARMPIT_EXPOSURE() && CFLAG:1007
					PRINTL
					PRINTFORMDL %CALLNAME:TARGET%一全裸、%K78_ARMPIT_HAIR_MODIFIER()%就立刻将腋下露了出来。
					CALL K78_HPH_PRINT,@"「照你说的那样去长了HPH 如何？ 很高兴吧？HPH」","L"
				ENDIF
				WAIT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;变成只穿内衣的样子
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			IF K78_BASIC_CONDITION_IN_MATING()
				;腋毛ありかつ内衣姿になる前から腋が見えている
				IF CFLAG:1007 && K78_ARMPIT_EXPOSURE()
					IF CFLAG:1007 >= 3
						PRINTFORMDL 从刚才開始即使垂下手臂，腋下的刚毛也若隐若现的露出着,不过，脱掉衣服的时候，腋下大片的腋毛一览无余。
					ELSE
						PRINTFORMDL 脱掉前から腋の\@CFLAG:1007 == 2 ?毛 #剃り残し \@がチラチラと見えていたが、服を脱掉際に腕をあげると\@CFLAG:1007 == 2 ?フサフサ #プツプツ \@としたそれがはっきり見える。
					ENDIF
					SIF !TEQUIP:眼罩
						PRINTFORML 「真是的，老是盯着腋下。从刚才開始就一直看着」
					PRINTL
				ENDIF
				PRINTFORMDL 脱去外搭的%CALLNAME:TARGET%的姿态、非常的色气，和普通少女一样苗条的四肢十分诱人。
				IF TALENT:恋慕 || TALENT:愛欲
					;没穿内裤でなく胖次指定も無
					IF !CFLAG:没穿内裤 && !CFLAG:指定胖次
						CALL K78_HPH_PRINT,@"「今天的内衣怎么样？HPH喜欢这样的吗HPH」","L"
					ELSE
						CALL K78_HPH_PRINT,@"「最好不要穿内衣？我知道了HPH你在这方面很执着呢HPH」","L"
					ENDIF
				ELSE
					PRINTFORML 「全部脱掉只剩内衣是吗？好吧，知道了」
				ENDIF
				;内衣姿になってはじめて腋が露出した、かつ腋汗ジミあり
				IF !K78_ARMPIT_EXPOSURE() && K78_ARMPIT_EXPOSURE(TARGET,1) && K78_SWEATY_UNDERARMS()
					PRINTL
					SELECTCASE CFLAG:1007
					CASE 0,1
						PRINTFORMDL 脱掉了汗迹斑斑的衣服，被汗水浸透闪闪发光的腋下露了出来
					CASE 2,3
						PRINTFORMDL 也许是因为长了毛的缘故，腋下有明显的水渍，一脱掉衣服去就散发出浓厚的味道。
					ENDSELECT
					PRINTFORML 「…因为有些热所以出了点汗」
					PRINTFORMDL %CALLNAME:TARGET%因为害羞红着脸。
				;内衣姿になってはじめて腋が露出した、かつ腋毛あり
				ELSEIF !K78_ARMPIT_EXPOSURE() && K78_ARMPIT_EXPOSURE(TARGET,1) && CFLAG:1007
					PRINTL
					PRINTFORMDL %CALLNAME:TARGET%一脱掉外搭%K78_ARMPIT_HAIR_MODIFIER()%就露出自己的腋下。
					CALL K78_HPH_PRINT,@"「照你说的那样去长了HPH 如何？ 很高兴吧？HPH」","L"
				ENDIF
				WAIT
			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;半脱
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			IF K78_BASIC_CONDITION_IN_MATING()

			ENDIF
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;胖次ちょうだい
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1
			SELECTCASE ARG:1
				;-------------------------------------------------
				CASE 0
				;交換です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 1
				;OK（嬉々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 2
				;OK（渋々
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				;-------------------------------------------------
				CASE 3
				;嫌です
				;記入チェック（=0, 非表示、1, 表示）
				LOCAL:1 = 0
				;-------------------------------------------------
				IF LOCAL:1
					RETURN 1
				ENDIF
				RETURN 1
			ENDSELECT
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

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

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

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

[SKIPSTART]
;-------------------------------------------------
;オナバレ遭遇時の地の文。
;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K78_ONABARE_1(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレでそのまま続けてもらう場合の地の文。
;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K78_ONABARE_2(ARG)
;-------------------------------------------------
IF ARG
	PRINTFORML A弄ってる場合
ELSE
	PRINTFORML V弄ってる場合
ENDIF
;-------------------------------------------------
[SKIPEND]

[SKIPSTART]
;-------------------------------------------------
;オナバレ無崩しックスの地の文。
;默认のものと置き換えたい場合は上下のSKIPSTART~SKIPENDを外してください。
;置き換える気がないならスルー。
;-------------------------------------------------
@M_KOJO_EVENT_K78_ONABARE_3(前戯１,本番はどっちか,回数,注入量)
;-------------------------------------------------
#DIM 前戯１
;1=C 2=B 3=M
#DIM 本番はどっちか
;0でＶ、1でＡ
#DIM 注入量
#DIM 回数

SELECTCASE 前戯１
	CASE 1
		PRINTFORML Ｃ責め
	CASE 2
		PRINTFORML Ｂ責め
	CASE 3
		PRINTFORML Ｍ責め
ENDSELECT

IF 本番はどっちか
	PRINTFORML Aで本番
ELSE
	PRINTFORML Vで本番
ENDIF
;-------------------------------------------------
[SKIPEND]

path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_イベント.ERB


path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_カウンター.ERB


path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_コマンド.ERB


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;性騷擾系指令
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;310,摸屁股
;TFLAG:193(1=不快(TALENT:膽怯なら涙目) 2&&3=恥ずかしがる(TALENT:討厭男人兼MASTERが男なら、身をすくめる) 4=されるがまま)
;CFLAG:诶嘿嘿==2&&TCVAR:20(胖次無し顔面騎乗(70=強制舐陰 71=口交強制 72=肛門奉仕) 35=裙子内見せつけ 52=素股)
;CFLAG:诶嘿嘿==2&&TEQUIP:六九式(胖次ありTCVAR:20(70～72)はこちら)
;PREVCOM(305=膝枕
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K78_310
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_310_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_310_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
	ENDIF
ENDIF
RETURN 1
;==================================================
;311,擁抱
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:诶嘿嘿==2&&TCVAR:20(32=前から抱きつく 60=ディープ接吻 73=ぱふぱふ 74=乳合わせ 77=乳を吸わせる ＶＡ性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅき大堂ド)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K78_311
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_311_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_311_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_BASIC_CONDITION_IN_MATING()
		IF CFLAG:诶嘿嘿 == 2

		ELSEIF CHK_DATENOW(CFLAG:LOCAL:约会中) && CFLAG:MASTER:現在位置 != OMANEKIBEYA()

		ELSE
			IF BASE:情緒 >= 500 && BASE:理性 < 975
				;開心的回抱过来…
				IF TALENT:恋慕
					SELECTCASE RAND:2
					CASE 1
						CALL K78_HPH_PRINT,@"「我也会紧紧地抱着你HPH」","W"
					CASEELSE
						CALL K78_HPH_PRINT,@"「呵呵HPH总觉得安心下来了……HPH」","W"
					ENDSELECT
				;照れくさそうにしながらも、満更でもないようだ…
				ELSEIF TALENT:思慕
					SELECTCASE RAND:2
					CASE 1
						PRINTFORML 「唔，动不了了…」
						PRINTFORMDW 这么说着的%CALLNAME:TARGET%也轻轻抱了过来。
					CASEELSE
						PRINTFORMW 「又粘过来了… 哈，就没有一点羞耻感吗」
					ENDSELECT
				;有点害臊并ている…
				ELSE
					IF TALENT:愛欲
						SELECTCASE RAND:2
						CASE 1
							CALL K78_HPH_PRINT,@"「如果寂寞的话我来安慰你吧HPH」","W"
						CASEELSE
							CALL K78_HPH_PRINT,@"「就这样被逆推了么HPH」","W"
						ENDSELECT
					ELSE
						PRINTFORMW 「突，突然干什么呀……羞死人了…」
					ENDIF
				ENDIF
			ELSE
				IF TALENT:恋慕 || TALENT:愛欲
					PRINTFORMW 「突然间干什么呢？」
				ELSEIF TALENT:思慕 || TALENT:炮友
					PRINTFORMW 「唔姆……好热呀」
				ELSE
					PRINTFORMW 「别，别这样　啊啊，好热」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;312,接吻
;TFLAG:193(99=拒絶(接吻不可) 1=大成功 0=成功 -1=失敗)
;CFLAG:诶嘿嘿==2&&TCVAR:20(32=前から抱きつく 50=手淫 60=接吻 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅき大堂ド)
;PREVCOM(305=膝枕
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K78_312
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_312_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_312_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF K78_BASIC_CONDITION_IN_MATING()
		IF CFLAG:诶嘿嘿 == 2
			IF TALENT:恋慕 || TALENT:愛欲
				SELECTCASE RAND:3
				CASE 1
					PRINTFORMDL %CALLNAME:MASTER%和%CALLNAME:TARGET%宛如软体动物交尾一般互相缠着舌头，互相交换彼此的唾液。
					CALL K78_HPH_PRINT,@"「ちゅ…ぴちゃ……ちゅぱ……ちゅる…んはぁHPH %CALLNAME:MASTER%，最喜欢了，爱你哦HPH」","W"
				CASE 2
					PRINTFORMDL 被%CALLNAME:TARGET%香甜的吐息所迷住了，只是无意识的自己动着舌头。。
					CALL K78_HPH_PRINT,@"「はむ…んちゅっ、ん、んふぅ…れろ……ちゅぷ…はぁHPH 还，不够HPH」","W"
				CASEELSE
					PRINTFORMDL %CALLNAME:MASTER%已经无暇关心其他，如同%CALLNAME:TARGET%的俘虏一般持续渴求着她如同果实一般香甜的唾液。
					CALL K78_HPH_PRINT,@"「嗯唔…啾噜…啾HPH …啾噜，啾噜噜……啾哈HPH」","W"
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
				CASE 1
					PRINTFORMW 「啾唔……唔……哈……唔姆…啾…唔」
				CASEELSE
					PRINTFORMW 「嗯…啾噗……嗯啾……嗯哈……哈唔…啾」
				ENDSELECT
			ENDIF
		;接吻拒絶ではない
		ELSEIF TFLAG:193 != 99
			IF BASE:情緒 >= 650 && BASE:理性 < 875
				IF TALENT:恋慕 || ( TALENT:愛欲 && ( ABL:親密 >= 5 || ABL:欲望 >= 5 ) )
					SELECTCASE RAND:2
					CASE 1
						CALL K78_HPH_PRINT,@"「ちゅっ、ちゅぱ……んちゅ、んむ……んふHPH 结束了吗？HPH」","W"
					CASEELSE
						CALL K78_HPH_PRINT,@"「あむっ……んちゅ…ぺろ……ちゅ…ちゅぱHPH 嘿嘿，kiss的感觉真好呐HPH」","W"
					ENDSELECT
				ELSEIF ABL:親密 >= 5 || ABL:欲望 >= 5
					SELECTCASE RAND:2
					CASE 1
						PRINTFORMW 「嗯……嗯唔…啾……哈…」
					CASEELSE
						PRINTFORMW 「嗯啾……啾…嗯……啾…」
					ENDSELECT
				ELSE
					SELECTCASE RAND:2
					CASE 1
						PRINTFORML 「嗯唔，啾……嗯哈……哈，啾……」
						PRINTFORMDW %CALLNAME:TARGET%说不出话，脸上一片通红。
					CASEELSE
						PRINTFORML 「嗯唔……嗯啾…唔……啾…」
						PRINTFORMDW %CALLNAME:TARGET%虽然一瞬间想抵抗，但被%CALLNAME:MASTER%抱着肩膀一动不动只能默许了。
					ENDSELECT
				ENDIF
			ELSE
				IF TALENT:恋慕 || ( TALENT:愛欲 && ( ABL:親密 >= 5 || ABL:欲望 ) )
					PRINTFORMW 「嗯……啾…啾噜……唔，太乱来了」
				ELSE
					PRINTFORMW 「嗯嗯！？ 突，突然干什么啊！」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
RETURN 1
;==================================================
;313,胸愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(27=谷間を見せる 33=胸を揉ませる 53=乳交(小分岐は地の文EVENT_MESSAGE_COM_性騷擾.ERB参照) 73=ぱふぱふ 77=乳を吸わせる 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅき大堂ド)
;ABL:Ｂ感覚(2未満=性的には感じてない 5未満=多少感じてる 5以上=カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;乳の尺寸でも変わる場合があるので、地の文EVENT_MESSAGE_COM_性騷擾.ERB参照
;==================================================
@M_KOJO_MESSAGE_COM_K78_313
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_313_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_313_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;314,肛門愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(72=肛門奉仕
;CFLAG:诶嘿嘿==2&&TEQUIP:六九式(胖次ありTCVAR:20(70～72)はこちら)
;ABL:Ａ感覚(2未満=受け入れられない 4未満=異物感に翻弄 4以上=カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K78_314
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_314_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;315,陰蒂愛撫
;CFLAG:诶嘿嘿==2&&TCVAR:20(35=裙子の中を見せる 70=強制舐陰 85=Ｖ挿入する 86=だいしゅき大堂ド 87=Ａ挿入する 88=腰振りＶ 89=腰振り
;ABL:Ｃ感覚(4未満=くすぐったい 6未満=稍微いいかも 6以上=カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K78_315
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_315_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_315_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;316,指挿入れ
;CFLAG:诶嘿嘿==2&&TCVAR:20(35=裙子の中を見せる 70=強制舐陰 87=Ａ挿入する 89=腰振りＡ
;TALENT:処女(指挿入れ連続時喪失注意、基本拒否ぎみ)
;ABL:Ｖ感覚(1未満=違和感に戸惑う 5未満=稍微気持ちいい 5以上＝カイカン)
;TFLAG:400(1=约会先or地底の路人が反応する)
;==================================================
@M_KOJO_MESSAGE_COM_K78_316
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_316_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;317,Ｖ腰を振る
;ABL:Ｖ感覚(2未満=まだ気持ち良くない 5未満=稍微気持ちいい 5以上=カイカン
;==================================================
@M_KOJO_MESSAGE_COM_K78_317
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_317_1
RETURN RESULT

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

ENDIF
RETURN 1
;==================================================
;318,Ａ腰を振る（現状存在せず
;==================================================
;@M_KOJO_MESSAGE_COM_K78_318
;CALL TRAIN_MESSAGE
;CALL M_KOJO_MESSAGE_COM_K78_318_1
;RETURN RESULT

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

;ENDIF
;RETURN 1
;==================================================
;330,掀裙子
;TFLAG:193(-5=拒絶（ビンタ） -3=拒絶（つねり） -1=いやがる 0=いやがる（嬉しげ） 1=受け入れ)
;TFLAG:193=1&&ABL:露出癖(6以上=人目のある場所で自ら裙子をまくり上げる 4以上=人目のない場所で自ら裙子をまくり上げる)
;TFLAG:400(1=约会先or地底の路人が反応する)
;从后面将ピラリ、ではなく、前からペラって感じ（そうじゃなかったら、めくり上げようとするのを止めて即座にビンタとか無理、めくり上げられた後にしかならないしその状況ならビンタ食らうより普通に弾幕で一発ＫＯにならないほうがおかしい
;==================================================
@M_KOJO_MESSAGE_COM_K78_330
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K78_330_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K78_330_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
	ENDIF
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_セクハラコマンド.ERB


code:
;-------------------------------------------
;刻印取得
;-------------------------------------------
@M_KOJO_MESSAGE_MARKCNG_K78
;このままだと地の文が表示されません
;地の文を表示したい方は、下記のコメントアウトを削除して下さい
CALL MARK_MESSAGE
;苦痛刻印
IF TFLAG:22 == 1
	PRINTFORMW
ELSEIF TFLAG:22 == 2
	PRINTFORMW
ELSEIF TFLAG:22 == 3
	PRINTFORMW
ENDIF

;時姦刻印
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 == 31
	PRINTFORMW
;LV2
ELSEIF TFLAG:24 == 32
	PRINTFORMW
;LV3
ELSEIF TFLAG:24 == 33
	PRINTFORMW
ENDIF

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

path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_刻印取得.ERB


path: ERB/口上・メッセージ関連/個人口上/【78】穣子/M_KOJO_K78_性交系コマンド.ERB