code:
;===========================================================
; era命蓮寺OverDrive!!Ver1.0+修正パッチVer1用
; ｵﾊﾖｰ響子ちゃん口上 Version 0.1.0
;-------------------------------------------------
; Copyright
;  本口上の修正について
;   【誤字・脱字修正】【分岐条件・erb構文に関する修正】【本体Ver・Rev変更対応】【フラグの管理・修正】
;
;  本口上の加筆・改変について
;   【未記入部位加筆】【随机分岐加筆】【記入済部位加筆】【記入済部位削除】【記入済部位コメントアウト】
;
;  本口上に対する保养禁止時限について
;   【未設定】
;
;  本口上に対する其他但し書き
;   1. Copyrightと良識に従っている限り、修正や加筆、改変、新規の口上へ派生させる行為において、
;      AT92G4(以下筆者とする)に一切のことわりを入れる必要はない。
;   2. 全ての修正、加筆、改変において、筆者が改変者のハンドルを併記した上で、
;      取捨選択や改変を加えて取り込んでいく事を許可しているものとみなす。
;
; PS 寅の人
; 原創作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
; また本体処理・他口上処理等に干渉する異常処理がある場合で原創作者による修正が
; 行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
; その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい
;
;-------------------------------------------------
; 更新履歴
;  11/11/10: バージョン0.1.0莉莉ス
;
;-------------------------------------------------
; 基礎情報メモ
;  名前:幽谷響子, 呼び名:響子
;  体力:1700, 気力:1500, 法力:1800, 工作量:2100
;  能力
;   従順1, 奉仕精神5, 清掃技能5, 話術技能1, 戦闘能力1, 料理技能3
;  経験
;   清掃経験20, 会話経験10, 料理経験10
;  素質
;   [処女](女性)[無接吻経験]
;   [坦率][喜歡引人注目][不知羞恥][不怕痛]
;   [学習快][容易自慰]
;   [矮小体型][Ａ鈍感][Ｂ敏感][動物耳]
;  相性
;   星(200), 白蓮(150)
;  フラグ
;   服装     CFLAG:7   = 108
;   地位     CFLAG:310 = 170(納茲琳>響子>小傘)
;   開始位置 CFLAG:311 = 99(平日は初期位置[1]山門, 定住させた場合は初期位置[20]響子的房間(元庫房))
;   職場     CFLAG:326 = [1]山門
;   味覚嗜好 CFLAG:322 = 0b01010010(嗜好:薄味, 耐性:甘, 酸)
;
;-------------------------------------------------
; 関数メモ void=意味のある戻り値がない, int=整数を返す, str=文字列を返す
;  式中関数
;   int  K88_KYOKO_GET_VARSION()
;   str  K88_KYOKO_HEART()
;   int  K88_KYOKO_TRYENDURE(ARG = -1)
;   int  K88_KYOKO_DIFF_BODYSIZE(ARG = -1, ARG:1 = -1)
;   int  K88_KYOKO_RELATION(ARG)
;   str  K88_KYOKO_CALLNAME(ARG = -1)
;  関数
;   void K88_KYOKO_UPDATE
;   void K88_KYOKO_INPUT_CALLNAME
;
;-------------------------------------------------
; 変数メモ
;  MASTERNAME:88 呼び名(任意でCSTR:20と同期する時はCALLF K88_KYOKO_CALLNAME(MASTER))
;  CFLAG 1100~1999
;   1100 = 口上バージョン
;   1101 = 雑多なフラグ(0b1 = 呼び名, )
;  CSTR 20~30(口上向け領域が明記されていないため、本体バージョンUPで互換性喪失の恐れあり)
;   20 = 覚えた呼び名
;  TCVAR 350~399
;   350 = 時間帯毎の挨拶フラグ(0b1 = 朝, 0b10 = 昼, 0b100 = 夜)
;   351 = 出会った回数
;   352 = 要フォロー項目(0b1 = 恋人かつ無視した, 0b10 = 怒らせた, 0b100 = 好みじゃない料理食べた,
;                        0b1000 = 他人とネチョってるの見た, 以降未定)
;   353 = 呼び名変えたフラグ
;   354 = その日被逆推た回数
;
;-------------------------------------------------
; 口上内容メモ
;  記入中
;   部屋で遭遇, 会話, 身体接觸, 摸頭, 接吻
;  記入済(暫定含む)
;   エク, 掃除, 戦闘訓練, 勉強, 料理, 移動時すれちがい, 吃飯系, 吃飯, 招待吃飯, 幫忙干活, 泡茶,
;   约会帰り接吻, お仕事中, 浴場で遭遇, 推倒た, 寝床に忍び込み, 陪睡, おはよう, おやすみ, MASTERが推倒た,
;
;  状況
;   分岐後回しで埋め優先
;
;===========================================================

;-------------------------------------------------
; 口上存在判定
;-------------------------------------------------
@M_KOJO_K88(ARG)
;RESULTS = _ONKYO_
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_FLAGSETTING_K88
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;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

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_UPDATE_K88
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAGを使用場合、角色番号の指定が必要になります
IF FIRSTTIME("U88-1",0,88) && CFLAG:88:面識
	PRINTFORML 改变了称呼的情况下的救済措置
	PRINTFORML 给没有改变称呼的玩家添麻烦了、实在抱歉
	MASTERNAME:88 =
	CALL K88_KYOKO_INPUT_CALLNAME
ENDIF
RETURN 1

;-------------------------------------------------
; "ENCOUNTER"系イベント（エクストラ構文）
;  初対面、挨拶のタイミング
;  TALENTの変更はここでどうぞ。
;-------------------------------------------------
@M_KOJO_ENCOUNTER_K88
SELECTCASE TIME:2
	CASE 1,2
		PRINTFORMW 「早上ー好！」
	CASE 3,4
		PRINTFORMW 「你好ー！」
	CASEELSE
		; 誤字じゃないよわざとだよウサだけど
		PRINTFORMW 「晚上好！！！！」
ENDSELECT
PRINTFORML 震耳欲聋的问候声从远处传来
PRINTFORMW 手持扫帚的垂耳少女奔轶绝尘、跑了过来
PRINTFORMW 「你就是%K88_KYOKO_CALLNAME(55)%所说的新来的入門者呢。还请告诉我你的名字是？」
SIF FIRSTTIME("U88-1")
	PRINTL
CALL K88_KYOKO_INPUT_CALLNAME
PRINTFORMW 「%MASTERNAME:88%呢、记住了！」
PRINTFORML 寒暄过后、開始相互提问
PRINTFORMW 回顾那像激烈弹幕一样的问题、总之就是个昂扬的少女
SETBIT TCVAR:350, (TIME:2 - 1)
CFLAG:1100 = K88_KYOKO_GET_VARSION()
RETURN 1

;===========================================================
; "SP_EVENT"系イベント
;===========================================================
; 约会帰りにファーストKISS（合意も付く）
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_SPEVENT_K88_1(ARG, ARG:1)
;地の文表示
;CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
LOCAL = 1
IF LOCAL
	PRINTFORMW 刚走到命蓮寺門口的響子突然停住了
	PRINTFORML 试着问了声“怎么了 ”却没有回答、反而朝着一脸惊讶的%CALLNAME:MASTER%慢慢靠近、
	PRINTFORMW 没有给你任何反应的时间，響子\@ K88_KYOKO_DIFF_BODYSIZE(TARGET, MASTER) >= 0 ? 踮了踮脚 # 弯了弯腰 \@亲了%CALLNAME:MASTER%一下
	PRINTFORMW ……都还没来得及思考就被吻住双唇、太过惊讶的%CALLNAME:MASTER%以至于忘记了时间
	PRINTFORML 看着仍在发呆的%CALLNAME:MASTER%、响子模仿着%CALLNAME:MASTER%刚才的样子也问了一句“怎么了？”
	PRINTFORMW 然后脸上瞬间染上一片桃红、这次一边呀呀叫着一边飞一样的跑向了命蓮寺
	PRINTW
	PRINTFORML 在%CALLNAME:MASTER%恢复平静后、赤红着脸赶紧去追往逃入命蓮寺的響子
	PRINTFORMW ……要是氛围再好一点就好了————这么想着
ENDIF
RETURN 1

;==================================================
;约会帰りに告白（恋人が付く）
;---------------------------------------
; 口上主はTARGET
;==================================================
@M_KOJO_SPEVENT_K88_2(ARG, ARG:1)
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
LOCAL = 0
IF LOCAL
	; 告白内容
	; この告白内容表示後に接受かどうかの選択分が表示されます
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	; 告白成功
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	; 告白失敗
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;===========================================================
; "EVENT"系イベント
;===========================================================
; 部屋で遭遇
;=================================================
@M_KOJO_EVENT_K88_1(ARG, ARG:1)
;口上主はTARGET
LOCAL = 1
IF LOCAL
	; 互換処理呼び出し
	SIF !TCVAR:351
		CALL K88_KYOKO_UPDATE
	; 書き分けが大変なのでどっちが入ってきた場合もまとめとく
	; 内部ではARGで分岐する可能性もある
	LOCAL:1 = 1
	IF LOCAL:1 && ARG
		; 仕事中(まだいっぱい)
		IF CFLAG:行動 == 5 && BASE:工作量 > MAXBASE:工作量 / 2
			PRINTFORML 響子一边有节奏的念经一边进行着扫除
			PRINTFORMW 到工作结束看来还需要一段时间
			TCVAR:351++
		; 仕事中(もうすぐ終わる)
		ELSEIF CFLAG:行動 == 5 && BASE:工作量 > 0
			PRINTFORML 響子一边哼着歌一边进行着扫除
			PRINTFORMW 工作快要结束了
			TCVAR:351++
		; それ以外
		ELSE
			; まだ朝の挨拶してない
			IF TIME:2 <= 2 && TCVAR:今天有否见面 == 1
				IF TALENT:恋慕 && RAND:2
					PRINTFORML 「早上ー好
					PRINTFORMW 　早上ー好！」
					PRINTFORML 在充满元气的问候后，犹如想要和人玩耍的小狗一样、響子飞速的跑了过来
					PRINTFORMW 早上好、你是想被叫做狗狗吗？内心中如此吐槽道
					TCVAR:今天有否见面 = 2
				ELSE
					PRINTFORML 「早上ー好！」
					PRINTFORML 哦哦、早上好早上好
					PRINTFORMW 今天也是一样、从早上開始就情緒高涨的样子
					TCVAR:今天有否见面 = 2
				ENDIF
			; まだ昼の挨拶してない
			ELSEIF TIME:2 > 2 && TIME:2 <= 4 && TCVAR:今天有否见面 <= 2
				IF TALENT:恋慕 && RAND:2
					PRINTFORMW 「你ー好！！」
					PRINTFORML ……那个招呼不管怎样都让人觉得应该劝改一下、
					PRINTFORMW 听说是模仿着前来神社参拜的人们做的
					PRINTFORMW 对这么纯真的孩子灌输了什么招呼语啊
					IF TCVAR:今天有否见面 == 2
						TCVAR:今天有否见面 = 4
					ELSE
						TCVAR:今天有否见面 = 3
					ENDIF
				ELSE
					PRINTFORML 「你好！！」
					PRINTFORMW 今天也是在寺院里让大家露出笑容的问候
					IF TCVAR:今天有否见面 == 2
						TCVAR:今天有否见面 = 4
					ELSE
						TCVAR:今天有否见面 = 3
					ENDIF
				ENDIF
			; まだ夜の挨拶してない
			ELSEIF TIME:2 > 4 && TCVAR:今天有否见面 <= 4
				IF TALENT:恋慕 && RAND:2
					PRINTFORML 「你好！」
					SIF TCVAR:今天有否见面 == 4
						PRINTFORML 「今天也是从早上好到晚上好complete！」
					PRINTFORMW 不禁沉醉于高兴微笑的響子的身姿中
					TCVAR:今天有否见面 = 5
				ELSE
					PRINTFORML 「晚上好YAFUU！」
					PRINTFORML 在打招呼的途中有规律的进行远近的回应到还好、
					PRINTFORML 但是最好还是不要在里面加进山彦特有问候吧
					PRINTFORMW 但是不能剥夺山彦的本性所以这个也说不出口
					TCVAR:今天有否见面 = 5
				ENDIF
			; 既に挨拶済み
			ELSE
				IF TCVAR:351 > 8
					PRINTFORML 「总觉得今天经常碰面啊」
					IF ARG == 2
						PRINTFORML 響子歪着头纳闷着、那个原因难道不就是響子忙绿的四处走动吗？
					ELSE
						PRINTFORML (难道我是被跟踪了吗？)
						PRINTFORML 总觉得響子现在的表情有些\@ TALENT:恋慕 ? 開心 # 複雑\@。
					ENDIF
				ELSEIF TCVAR:351 > 4
					; <工事中> 何か思いついたら後で書き直すよ
					PRINTFORML ＼Google!／
				ELSEIF TCVAR:351 > 2
					; <工事中> 何か思いついたら後で書き直すよ
					PRINTFORML ＼Excite!／
				ELSE
					; <工事中> 何か思いついたら後で書き直すよ
					PRINTFORML ＼YAHOO!／
				ENDIF
			ENDIF
			TCVAR:351++
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;=================================================
; 朝起きたとき（おはよう口上）
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_2(ARG, ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	; 互換処理呼び出し
	SIF !TCVAR:351
		CALL K88_KYOKO_UPDATE
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;非同棲かつ相手が先に起きてる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;-------------------------------------------------
		;TARGET私室にMASTERが入っている（恋慕時陪睡中就寝時のみ？
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && !ARG:1
			PRINTFORMW
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;MASTER私室にTARGETが入ってきてる(恋慕無しでも入ってくる可能性有り
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 0
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORMW
			RETURN 1
		ENDIF
	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
	;-------------------------------------------------
	;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
			PRINTFORML 「呣啊……、早—上—好……」
			PRINTFORML 一脸困意的響子用手遮着嘴打了个小哈欠后打了声招呼
			PRINTFORMW 睡了迷糊吗？好像连%CALLNAMe:MASTER%都不认得的样子
			SETBIT TCVAR:350, (TIME:2 - 1)
			TCVAR:351++
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;同棲中
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG:1 == 1
			PRINTFORML 「呣啊……、早—上—好……」
			PRINTFORML 附和着招呼了一声一脸困意用手遮着嘴打了个小哈欠的響子后、摸了摸響子的头
			PRINTFORML 「呀、想干什么！」
			PRINTFORMW 響子回以一副闹别扭的表情、看起来是充分地睡醒了
			SETBIT TCVAR:350, (TIME:2 - 1)
			TCVAR:351++
			RETURN 1
		ENDIF
		PRINTFORMW
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 夜寝るとき（おやすみ口上）
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_3(ARG, ARG:1)
LOCAL = 1
IF LOCAL
	;自室に返回（定時になって寝る）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「晚安、%MASTERNAME:88%」
		PRINTFORMW 目送着说完晚安的響子\@ FLAG:15 == 8 ? 回到房间 # 回到山里 \@
		RETURN 1
	ENDIF

	;眠そうにしている
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「一点都不困哦ー……」
		PRINTFORML 面对发困的质疑、响子一边恍恍惚惚头一点一点的下沉一边用可疑的发音回答道
		PRINTFORMW 不管怎么看都是一副要睡着的感觉、陪在身边都能感觉到困意的渗出
		RETURN 1
	ENDIF

	;睡眠中（起きていないので会話というよりは寝言？）
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF

	;恶作剧中
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF

	;衰弱中
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 5
		IF TALENT:恋慕 && FLAG:住宿人物 == 8
			PRINTFORML 「已经不行了ー有谁能帮我搬一下吗ー？」
			PRINTFORMW %CALLNAME:MASTER%看了一眼響子一副累的站不起来的样子
			PRINTFORMW 苦笑着抱着响子轻轻的把她搬到了房间里
		ELSE
			PRINTFORML 「已经不行了……别再……」
			PRINTFORMW 看着飘飘忽忽的好像要飞进\@ FLAG:15 == 8 ? 房间 # 山里 \@的響子、有点担心是不是真的没问题
		ENDIF
		RETURN 1
	ENDIF

	;MASTERがダウン（部屋まで運ばれる）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 6
		PRINTFORMW 「呐%MASTERNAME:88%、……睡着了吗」
		PRINTFORML 发现没有回应的%CALLNAME:MASTER%早早的陷入了沉睡之中
		PRINTFORMW 「哇、真是没办法啊」
		PRINTFORML 即使弱小也应该说是妖怪吗？
		PRINTFORMW 響子\@ K88_KYOKO_DIFF_BODYSIZE(TARGET, MASTER) < 0 ? 好像完全无视了体格的差异 # \@直接把%CALLNAME:MASTER%抱进了房间里
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 移動時すれちがい
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_4(ARG, ARG:1)
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:恋慕
			; 仕事中ならセリフ追加
			PRINTFORML 「\@ CFLAG:行動 == 5 ? 因为在工作所以 # \@回头见ー！」
			PRINTFORMW 看起来忙的连会话的空暇都没有、不过是看起来很精神比什么都好
		; 他
		ELSE
			PRINTFORML 「辛苦了！」
			PRINTFORMW 路过街道时、向着路过哼着歌的響子微微颔首、得到了充满元气的慰问
		ENDIF
		RETURN 1
	ENDIF

	;無視して街道過ぎた
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 3
		; 恋人だと後で釈明するイベントを挿入する
		IF TALENT:恋人
			PRINTFORML 好像因为太着急不知不觉无视了响子
			PRINTFORML 回头看后面的话、便能看见那个泪目垂耳的失落姿态
			PRINTFORMW ……如果以后有空的话、就解释一下吧
			SETBIT TCVAR:352, 0
		ENDIF
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 他者介入で情緒変化
;---------------------------------------
; 口上主はTARGET
; ARG = 介入者角色No.
;=================================================
@M_KOJO_EVENT_K88_5(ARG, ARG:1)
LOCAL = 0
IF LOCAL
	LOCAL:1 = 0
	IF LOCAL:1 && ARG
		PRINTFORML
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 情事を目撃した
;---------------------------------------
; 口上主はTARGET
; ARGに情事相手
;=================================================
@M_KOJO_EVENT_K88_6(ARG, ARG:1)
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

;=================================================
; 情事を見られた
;---------------------------------------
; 口上主はTARGET
; ARGに目撃者
;=================================================
@M_KOJO_EVENT_K88_7(ARG, ARG:1)
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

;=================================================
; 目撃した情事を問い詰める
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_8(ARG, ARG:1)
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

;=================================================
; 把柄を握った
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_9(ARG, ARG:1)
LOCAL = 0
IF LOCAL
	LOCAL:1 = 0
	IF LOCAL:1
		PRINTFORML
		RETURN 1
	ENDIF

	PRINTFORML
ENDIF
RETURN 1

;=================================================
; (MASTERを)推倒た
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_10(ARG, ARG:1)
#LOCALSIZE 2
LOCAL = 1
IF LOCAL
	;MASTERを推倒た（開始時）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 1
		IF NO:MASTER == 0 && !TCVAR:354
			PRINTFORML 由于平时開朗的性格和大声的缘故、如今色气的响子显得格外妖媚
			PRINTFORML 在感到相形见绌的时候、被从外表上就用想象不到的力量给推倒了
			PRINTFORMW 「呐%MASTERNAME:88%……、来%K88_KYOKO_HEART()%」
			TCVAR:354++
		ENDIF
		RETURN 1
	ENDIF

	;なだめられた（終了時）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 2
		SELECTCASE K88_KYOKO_TRYENDURE(TARGET)
			; 確率100だとまたすぐに被逆推るよね……
			CASE 100
				PRINTFORML 「还什么都没有做啊……」
				PRINTFORMW 响子有些不满
			CASE IS > 50
				PRINTFORML 「呐、要不要再……？」
				PRINTFORMW 响子似乎还没满足
			CASE IS > 10
				PRINTFORML 「唔姆、那就这样吧！」
				PRINTFORML 響稍微犹豫了一下，然后笑着蹭了蹭%CALLNAME:MASTER%
				PRINTFORMW 好像已经完全满足了
			CASEELSE
				PRINTFORML 「嘿嘿嘿、心满意足了啊！」」
				PRINTFORML 被推倒时的娇艶荡然无存、響子又回到了一直的元气状态
				PRINTFORMW 高兴地、遗憾地、一种难以言喻的微妙情感向%CALLNAME:MASTER%袭来
		ENDSELECT
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 浴場で遭遇
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_11(ARG, ARG:1)
LOCAL = 1
IF LOCAL
	; 追い出された
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 1
		PRINTFORML 一进浴室就如正在清洗身体的响子视线重合
		PRINTFORML 确认过了眼神、彼此之间无须言语、这是暴风雨前的宁静……
		PRINTFORMW 被那震耳欲聋的高声给赶了出去
		RETURN 1
	ENDIF

	;目が合った（追い出されない）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 2
		PRINTFORML 「想一起洗澡吗？没关系哦」
		PRINTFORMW 干脆利落地被接受了反而让人感觉有些提不起劲
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 寝床に忍び込み
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_12(ARG, ARG:1)
LOCAL = 1
IF LOCAL
	;寝床に侵入
	; 恋慕つけないと寺に居つかないのでありえない？
	LOCAL:1 = 0
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF

	;寝床に侵入（相手が恋慕）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML 为了不打扰对声音敏感的响子、蹑手蹑脚地往床上悄悄靠近
		PRINTFORML 「算了吧……、这也是……修行……」
		PRINTFORMW 有时泄露的梦话……难以理解
		RETURN 1
	ENDIF

	;寝床に侵入（相手が恋慕・衰弱）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML 疲惫不堪的响子昏昏入睡、没有察觉到%CALLNAME:MASTER%的侵入
		PRINTFORMW 被那有时微微颤动的耳朵而震惊、暂时观察了响子的睡脸
		RETURN 1
	ENDIF

	;追い出される
	; 恋慕つけないと寺に居つかないのでありえない？怒ってたら追い出されるか？
	LOCAL:1 = 0
	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

;=================================================
; お仕事中（現在、本体のみの場合 星・白蓮・響子のみ有効）
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_13(ARG, ARG:1)
LOCAL = 1
IF LOCAL
	; 工作開始（職場へ移動する）
	; 移動開始は自室同じにしないときついんじゃないかなぁ……
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 1
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「那么就去进行早上的工作吧」
			PRINTFORMW 被单独留在房间里有点寂寞、该怎么办呢
		ENDIF
		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

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 吃飯系
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_14(ARG, ARG:1)
LOCAL = 0
IF LOCAL
	;持っていた食物を食べられた
	LOCAL:1 = 1
	IF LOCAL:1
		IF TCVAR:TARGET:料理評価値 >= 700
			PRINTFORML 「啊拉？这不挺好吃的吗」
			PRINTFORMW 虽然是夸奖、不过在被抓到偷吃的情况下、还是挺困扰的啊……
		ELSEIF TASTE_REACTION("辣") || TASTE_REACTION("芥末")
			PRINTFORML 「啊……、这什么啊ー！」
			PRINTFORML  \@ TASTE_REACTION("辣") ? 超辣の # 芥末山盛りの \@料理を食べた響子はぎゃーぎゃー悲鳴を上げて跳ね回っている
			PRINTFORMW 一边哭泣着一边被迫尝试着饭菜、也只能说是不好好看饭菜就偷吃的不对
		ENDIF
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; MASTERが推倒た
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_15(ARG, ARG:1)
LOCAL = 1
IF LOCAL
	;MASTERが推倒た（ウフフ開始時）
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「呀ー%K88_KYOKO_HEART()%」
		PRINTFORMW 过于做作的话语没有一丝情趣、但响子的表情却有着平时看不出的女人味
		RETURN 1
	ENDIF

	;逢瀬終了（ウフフ終了時）
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF

	;其他
	PRINTFORML
ENDIF
RETURN 1

;=================================================
; 陪睡
;---------------------------------------
; 口上主はTARGET
;=================================================
@M_KOJO_EVENT_K88_16(ARG, ARG:1)
LOCAL = 1
IF LOCAL
	;添い寝を始めた（開始時）
	; まあ、仕様上恋慕後であるはず
	LOCAL:1 = 0
	IF LOCAL:1 && ARG == 1
		PRINTFORML 「我可没那么孩子气ー」
		PRINTFORMW 那鼓起的脸颊丝毫没有着说服力、一边笑着一边钻进了旁边
		RETURN 1
	ENDIF

	;添い寝を終了した（終了時）
	; まあ、仕様上恋慕後であるはず
	LOCAL:1 = 1
	IF LOCAL:1 && ARG == 2
		IF !CFLAG:睡眠
			PRINTFORML 「啊拉、要走了吗？」
			PRINTFORML 被此时响子那像小狗一样的目光所阻止、
			;2018/08/08 TIME:2の詳細化に対応してなかった部分の修正
			;PRINTFORMW \@ TIME:2 == 3 ? また明日 # また後で \@と抜け出した
			PRINTFORM
			IF TIME:0 >= 1140 || TIME:0 <= 240
				PRINTFORM 到了明日
			ELSE
				PRINTFORM 过来一会儿
			ENDIF
			PRINTFORMW 才离開
		ELSE
			PRINTFORML 离開身边沉睡着的响子后、响子的脸上流露了寂寞的神色
			PRINTFORMW 她并没有被吵醒、而是因为那身边的温暖已然失去
		ENDIF
		RETURN 1
	ENDIF
	;其他
	PRINTFORML
ENDIF
RETURN 1

;===========================================================
; 日常系指令
;===========================================================
; 300, 会話
;=================================================
@M_KOJO_MESSAGE_COM_K88_300
;指令共通メッセージ(TRAIN_MESSAGE)
;削除すると「～说着话。」とかが消えます
CALL TRAIN_MESSAGE
;口上メイン呼出
CALL M_KOJO_MESSAGE_COM_K88_300_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_300_1
LOCAL = 1
IF LOCAL
	; 仕事中
	IF CFLAG:行動 == 5
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORML 「很高兴能和你说话、但工作很重要ー」
			PRINTFORMW 「还是说你会来帮助我？」
		ELSE
			PRINTFORML 「有时间打扰我的话、还不如乖乖看着或者说来帮我忙」
			PRINTFORMW \@ TFLAG:193 ? 也未尝不可、 # \@这里不该按她说的做吗
		ENDIF
	; 成功
	ELSEIF TFLAG:193 != -1
		; まだ今日は一度も挨拶してない
		IF !GETBIT(TCVAR:350, 0) && !GETBIT(TCVAR:350, 1) && !GETBIT(TCVAR:350, 2)
			; <工事中> 条件。恋慕でもない時にこんなことしてたらおかしいかもしれないからね
			PRINTFORMW 「我忘记跟你打招呼了！」
			PRINTFORML
			PRINTFORML 和头发配对的萌葱色瞳孔相互凝视之后、
			; ここから
			SELECTCASE TIME:2
				CASE 1,2
					PRINTFORM 「早上ー好！」、
				CASE 3,4
					PRINTFORM 「你好！」、这么说道
				CASEELSE
					PRINTFORM 「你好！」、
			ENDSELECT
			PRINTFORMW
			; ここまで一文
			; 挨拶フラグたてる
			SETBIT TCVAR:350, (TIME:2 - 1)
;		; 陪睡中
		ELSEIF CFLAG:陪睡中
			; 呼び名変更はここに放り込むことにした
			IF TCVAR:353 == 0
				PRINTFORML 「呐%MASTERNAME:88%、偶尔也不想改变一下称呼吗？」
				PRINTFORML 响子的提案怎么样？
				$INPUT_LOOP_KYO0
				PRINTBUTTON "[ 0] 算了吧", 0
				PRINTBUTTON "[ 1] 点头回答", 1
				INPUT
				SELECTCASE RESULT
					CASE 0
						PRINTFORML 「我知道」
						PRINTFORMW 响子一听不要改变就毫不犹豫地接受了
					CASE 1
						CALL K88_KYOKO_INPUT_CALLNAME
						PRINTFORML 「%MASTERNAME:88%啊、我知道了」
						PRINTFORMW 让响子改了名字
					CASEELSE
						SIF STRLENS(@"{RESULT}")
							CLEARLINE 1
						REUSELASTLINE
						GOTO INPUT_LOOP_KYO0
				ENDSELECT
				SETBIT TCVAR:353, 0
			ELSE
				; <工事中>
;				PRINTFORML
			ENDIF
		; 恋慕
		ELSEIF TALENT:恋慕
			; <工事中>
;			PRINTFORML
		; 其他
		ELSE
			SELECTCASE RAND(3)
				CASE 0
					PRINTFORML 「为什么念经？因为这才『像个』初学者」
					PRINTFORMW 「需要的话我可以教你」
				CASE 1
					PRINTFORML 「我的工作是打扫门前。即使早上很早、偶尔也会有人来、所以不能疏忽大意」
					PRINTFORMW 「会有什么样的人来？巫女啦魔法使啦，还有挥舞刀具的危险的家伙！」
				CASEELSE
					PRINTFORML 「大家的屋子里有很多脏东西、可我没办法插手。」
					PRINTFORMW 「%MASTERNAME:88%也是住宿的，偶尔弄得干净点怎么样？」
			ENDSELECT
		ENDIF
	; 失敗
	ELSE
		PRINTFORML 说起『早上好』的话、那么就是「早上好」这样回答
		PRINTFORML 说起『是無上呪』的话、那么就是「是无ー等ー等ー呪ー」这样回答
		PRINTFORML 说起『不去玩吗？』的话、那么就是「不去玩」这样回答
		PRINTFORML 接着之后、独自一人感到些许寂寞、
		PRINTFORML 说起『对不起』的话、那么就是「对不起」这样回答
		PRINTFORMW 是回声吗？　不、是響子哒
		; 挨拶フラグたてる
		SETBIT TCVAR:350, (TIME:2 - 1)
	ENDIF
ENDIF
RETURN 1

;=================================================
; 301, 泡茶
;---------------------------------------
; これも信頼が入る
; 時間制限はやっぱり初めて会ったときは辣くらい
;=================================================
@M_KOJO_MESSAGE_COM_K88_301
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_301_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_301_1
LOCAL = 1
IF LOCAL
	PRINTFORMW 「\@ CFLAG:行動 == 5 ? 作为工作的休憩的 # \@茶吗？那我開动了」
	PRINTFORML 递上茶杯后、响子毫不犹豫地小口喝着
	; 成功
	IF TFLAG:193 != -1
		PRINTFORML 「\@ TFLAG:193 ? 很美味 # 还算不错\@。还有机会的话再来泡吧」
		PRINTFORMW 看来响子\@ TFLAG:193 ? # 还 \@挺喜欢的
	; 失敗
	ELSE
		PRINTFORML ……但是、脸色看着就变得苍白起来
		PRINTFORMW 「对不起。这个不行 」
	ENDIF
ENDIF
RETURN 1

;=================================================
; 302, 身体接觸
;=================================================
@M_KOJO_MESSAGE_COM_K88_302
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_302_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_302_1
LOCAL = 1
IF LOCAL
	SIF TFLAG:193 == -1
		RETURN 1
	; 仕事中
	IF CFLAG:行動 == 5
		IF TALENT:恋慕 || TALENT:恋人
			PRINTFORMW 「能与我接触、我很高兴，但工作很重要ー」
			PRINTFORML 刚要停止身体接觸的时候就变成一副有怨言的表情、继续的话表情就收回去了
			PRINTFORMW ……因为表情变化得很有趣、所以不由得来開始捣乱
		ELSE
			PRINTFORML 「有时间打扰我的话、还不如乖乖看着或者说来帮我忙」
			PRINTFORMW \@ TFLAG:193 ? 也未尝不可、 # \@这里不该按她说的做吗
		ENDIF
	; 無視した
	ELSEIF GETBIT(TCVAR:352, 0)
		PRINTFORML 不知你是否还记得响子被忽视的事、急忙的你傲慢着要找着借口对响子解释
		PRINTFORML 「即使明白却还是会寂寞」
		PRINTFORMW 看到响子垂着耳朵喃喃自语，得知即使急急忙忙也不要做出无视响这样不好的事。
		CLEARBIT TCVAR:352, 0
	; お風呂
	; 追い出されないということはそれなりに親しいはずなので
	ELSEIF CFLAG:現在位置 == 112
		PRINTFORML 一開始洗响子的头发时、响子就哗啦地吵闹了起来
		PRINTFORMW 「小心一点！别扯耳朵！」
		PRINTFORMW 并不是因为头发被缠住了、总之你得好好珍惜耳朵
		PRINTFORMW 这次就温柔的清洗耳朵的每个角落、于是浴室場里回響起了非常舒服的声音
		PRINTFORMW ……老实说\@ GETBIT(TALENT:MASTER:性別, 1) ? 因为快要勃起了 # 这边也很不好意思 \@、所以还是放弃了
	; 恋慕
	; <工事中>
	ELSEIF TALENT:恋慕
;		PRINTFORML
	; 他
	; <工事中>
	ELSE
;		PRINTFORML
	ENDIF
ENDIF
RETURN 1

;=================================================
; 303, 道歉
;---------------------------------------
; にゃんにゃんでも追っかけまわせばいいと思うよ
;=================================================
@M_KOJO_MESSAGE_COM_K88_303
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_303_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_303_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 304, 幫忙干活
;----------------------------------------
; 手伝える角色なら信頼の為に手伝うよね
; 仕事中の黙々と仕事を――の地の文が響子ちゃんに似合ってなくて困る
;=================================================
@M_KOJO_MESSAGE_COM_K88_304
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_304_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_304_1
LOCAL = 1
IF LOCAL
	; 成功
	IF TFLAG:193 != -1
		PRINTFORML 互相报告了彼此的成果、似乎进展\@ TFLAG:193 ? 比预想的还要 # \@顺利
		PRINTFORMW 「谢谢。多亏了%MASTERNAME:88%」
	; 失敗
	ELSE
		PRINTFORML 「没什么进展啊」
		PRINTFORMW
	ENDIF
ENDIF
RETURN 1

;=================================================
; 308, 捅臉頰
;---------------------------------------
; 陪睡中専用の指令……かな
; ついでに普通に陪睡と起きてしまうし衰弱させないとだめなの？
;=================================================
@M_KOJO_MESSAGE_COM_K88_308
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_308_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_308_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;================================================
; 309, 摸頭
;---------------------------------------
; 信頼の為に特に恋慕までに使用頻度多い指令だね
; それを考慮した分岐を作れるといいね
;================================================
@M_KOJO_MESSAGE_COM_K88_309
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_309_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_309_1
LOCAL = 1
IF LOCAL
	; 失敗は弾く
	SIF TFLAG:193 == -1
		RETURN 1
	; 寝てない
	IF !CFLAG:睡眠
		IF TALENT:恋人
			PRINTFORML
		ELSEIF TALENT:恋慕
			PRINTFORML
		ELSEIF CFLAG:2 > 800 || CFLAG:4 > 400
			PRINTFORML
		ELSEIF CFLAG:2 > 500 || CFLAG:4 > 250
			PRINTFORML
		ELSE
			PRINTFORML
		ENDIF
	ENDIF
ENDIF
RETURN 1

;=================================================
; 310, 摸屁股
;=================================================
@M_KOJO_MESSAGE_COM_K88_310
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_310_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_310_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 311, 擁抱
;=================================================
@M_KOJO_MESSAGE_COM_K88_311
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_311_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_311_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 312, 接吻
;=================================================
@M_KOJO_MESSAGE_COM_K88_312
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_312_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_312_1
LOCAL = 0
IF LOCAL
	; <工事中> とりあえず分岐だけ
	IF CFLAG:诶嘿嘿 == 2
		PRINTFORML
	ELSE
		; 睡眠
		IF CFLAG:睡眠
			PRINTFORML
		; 陪睡中
		ELSEIF CFLAG:陪睡中
			PRINTFORML
		; 恋慕
		ELSEIF TALENT:恋慕
			PRINTFORML
		; 他
		ELSE
			PRINTFORML
		ENDIF
	ENDIF
ENDIF
RETURN 1

;=================================================
; 313, 胸愛撫
;=================================================
@M_KOJO_MESSAGE_COM_K88_313
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_313_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_313_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 314, 肛門愛撫
;=================================================
@M_KOJO_MESSAGE_COM_K88_314
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_314_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_314_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 315, 陰蒂愛撫
;=================================================
@M_KOJO_MESSAGE_COM_K88_315
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_315_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_315_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 316, 指挿入れ
;=================================================
@M_KOJO_MESSAGE_COM_K88_316
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_316_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_316_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 350, 推倒
;=================================================
@M_KOJO_MESSAGE_COM_K88_350
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_350_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_350_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 351, 帯出去
;=================================================
@M_KOJO_MESSAGE_COM_K88_351
;連れ出しにはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K88_351_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_351_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 352, 告白
;=================================================
@M_KOJO_MESSAGE_COM_K88_352
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_352_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_352_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 353, 猥褻
;=================================================
@M_KOJO_MESSAGE_COM_K88_353
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_353_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_353_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 354, 陪睡
;---------------------------------------
; 相手は起きて被窝に招く感じ
;=================================================
@M_KOJO_MESSAGE_COM_K88_354
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_354_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_354_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 360, 任憑擺佈
;---------------------------------------
; ｹﾞｷﾘｭｳﾆﾐｦﾏｶｾﾄﾞｳｶｽﾙ
;=================================================
@M_KOJO_MESSAGE_COM_K88_360
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_360_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_360_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 402, 就寝
;---------------------------------------
; 添い寝時
;=================================================
@M_KOJO_MESSAGE_COM_K88_402
;就寝にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K88_402_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_402_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 403, 休憩
;---------------------------------------
; 風呂場だと湯船に浸かる
;=================================================
@M_KOJO_MESSAGE_COM_K88_403
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_403_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_403_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 410, 掃除
;=================================================
@M_KOJO_MESSAGE_COM_K88_410
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_410_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_410_1
LOCAL = 1
IF LOCAL
	; 神霊廟勢登場してるとセリフに迎え撃ち追加
	;PRINTFORML 「掃除に炊飯\@ FLAG:17 ? 、迎え撃ち # \@。どれも大切よ！」
	;eraTWproto4.630時点ではFLAG:17が神霊廟フラグではなくなっているのでコメントアウト
	PRINTFORML 「清扫和炊事。ど无论哪个都很重要！」
	PRINTFORMW 觉得很有道理
ENDIF
RETURN 1

;=================================================
; 411, 戦闘訓練
;=================================================
@M_KOJO_MESSAGE_COM_K88_411
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_411_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_411_1
LOCAL = 1
IF LOCAL
	PRINTFORML 通过响子的能力在边界上反射回来的弹幕描绘出美丽的轨迹、不过……
	PRINTFORML 「声音太小了！」
	PRINTFORMW 又是吆喝又是欢呼、一齐回响于边界、吵得不可開交
ENDIF
RETURN 1

;=================================================
; 412, 勉強
;---------------------------------------
; 法力の勉強というものがピンとこないので読経と写経にした
;=================================================
@M_KOJO_MESSAGE_COM_K88_412
;CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_412_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_412_1
LOCAL = 1
IF LOCAL
	IF ABL:MASTER:教養 > ABL:教養
		PRINTFORMW 「無—無—明— 、亦無—無—明—盡」
		PRINTFORML 响子好像连意思都不懂就在念经、尝试着去教她含义……
		PRINTFORMW 掌握了法力的山彦到底会变成什么样呢？
		PRINTFORMW ……是会咒殺回答山彦的人吗？
	ELSEIF ABL:MASTER:教養 / 2 == ABL:教養 / 2
		PRINTFORMW 「呐呐、这个怎么读啊？」
		PRINTFORML 一起试着佛经手抄本的话、响子好像不太会念佛经上复杂的字
		PRINTFORML 在这种情况下、连模仿声音的山彦都好像没有办法
		PRINTFORMW 看来外行人也想要字和音的意思结合起来
	ELSE
		PRINTFORMW 「遠離一切顛倒夢想」
		PRINTFORML 響子为了學習開始复读
		PRINTFORMW 时不时复读的响子又会再次复读、进展缓慢
	ENDIF
ENDIF
RETURN 1

;=================================================
; 413, 料理
;=================================================
@M_KOJO_MESSAGE_COM_K88_413
;料理にTRAIN_MESSAGEは無い
CALL M_KOJO_MESSAGE_COM_K88_413_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_413_1
LOCAL = 1
IF LOCAL
	PRINTFORMW 「做饭也很是重要的修行。交给我吧！」
	PRINTFORML 响子自信满满、手法娴熟
	PRINTFORMW 为此满心敬佩
	PRINTFORML
	IF ABL:MASTER:料理技能 > ABL:料理技能
		PRINTFORMW 和响子一起和睦的完成了菜肴
	ELSE
		PRINTFORMW 在响子的种种建议下完成了菜肴
	ENDIF
ENDIF
RETURN 1

;=================================================
; 414, 吃飯
;---------------------------------------
; 414と415って差が分かりにくいよね
; あと、414も415も多人数がありえること
;=================================================
@M_KOJO_MESSAGE_COM_K88_414
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_414_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_414_1
LOCAL = 1
IF LOCAL
	; 混ぜ物してない
	IF TCVAR:MASTER:308 < 8
		; 好みの味(失敗しない)
		IF CFLAG:味覚嗜好 & TCVAR:MASTER:308
			PRINTFORML 「味道果然很淡啊」
			PRINTFORMW 最后与响子一边吃饭一边举行了关于调料的反省会
		; 成功
		ELSEIF TFLAG:193 == 1
			PRINTFORML 邀請一旁羨慕看著的响子一起吃饭
			PRINTFORMW 「诶，可以吃吗？那我就不客气啦」
		; 失敗
		ELSE
			PRINTFORML 「%MASTERNAME:88%……、你尝过这个吗？」
			PRINTFORML 回答到没有、响子面色僵硬的把盘子还了过来
			PRINTFORMW 「下次最好先尝一下。太浪费食材了」
		ENDIF
	; イ・タ・ズ・ラ
	ELSE
		; 平気(甘酸)
		IF CFLAG:TARGET:味覚嗜好 & TCVAR:MASTER:308
			PRINTFORML 忐忑不安地看着响子把作为恶作剧的饭菜端到嘴边
			PRINTFORMW 「很好吃。喂、%MASTERNAME:88%怎么了？」
			PRINTFORMW 因为响子很自然地被吃掉、而感到惊讶的表情似乎流露了出来
		; ダメ(辛芥末)
		ELSE
			PRINTFORML \@ TCVAR:MASTER:308 & 8 ? 超辣の # 芥末たっぷりの \@料理を食べた響子はぎゃーぎゃー悲鳴を上げている
			PRINTFORML 明明看起来就很不对劲没想到还真的会吃下去……
			PRINTFORMW 在响子冷静之后再找借口吧
			SETBIT TCVAR:352, 2
		ENDIF
	ENDIF
ENDIF
RETURN 1

;=================================================
; 415, 招待吃飯
;=================================================
@M_KOJO_MESSAGE_COM_K88_415
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_415_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_415_1
LOCAL = 1
IF LOCAL
	CALL M_KOJO_MESSAGE_COM_K88_414_1
ENDIF
RETURN 1

;===========================================================
;约会系指令
;=================================================
; 600, 约会会話
;=================================================
@M_KOJO_MESSAGE_COM_K88_600
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_600_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_600_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 601, 约会身体接觸
;=================================================
@M_KOJO_MESSAGE_COM_K88_601
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_601_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_601_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 602, 约会接吻
;=================================================
@M_KOJO_MESSAGE_COM_K88_602
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_602_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_602_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 603, 牽手
;=================================================
@M_KOJO_MESSAGE_COM_K88_603
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_603_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_603_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 604, 散步
;=================================================
@M_KOJO_MESSAGE_COM_K88_604
;散步にはTRAIN_MESSAGEが無い
CALL M_KOJO_MESSAGE_COM_K88_604_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_604_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 610, 請吃飯
;=================================================
@M_KOJO_MESSAGE_COM_K88_610
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_610_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_610_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;=================================================
; 613, 賺錢
;=================================================
@M_KOJO_MESSAGE_COM_K88_613
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_613_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_613_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;===========================================================
; 约会派生指令
;=================================================
; 80, 拉手
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_80_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_80_1
LOCAL = 0
IF LOCAL

ENDIF
RETURN 1

;===========================================================
; 愛撫系指令
;=================================================
; 0, 愛撫
;=================================================
@M_KOJO_MESSAGE_COM_K88_0
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_0_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_0_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	;挿入中
	LOCAL:1 = 0
	;V挿入
	IF LOCAL:1 && TEQUIP:50 == PLAYER
		;射精した
		IF NOWEX:PLAYER:11
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			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:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;=================================================
; 1, 舐陰
;=================================================
@M_KOJO_MESSAGE_COM_K88_1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_1_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_1_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF

	;膣内射精直後
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		IF TCVAR:102
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF

	;絶頂した
	LOCAL:1 = 0
	IF LOCAL:1 && NOWEX:0
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
		RETURN 1
	;屈服3
	ELSEIF MARK:不埒刻印 == 3
		PRINTFORMW
		RETURN 1
	;それ以外
	ELSE
		PRINTFORMW
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;あとは適当な分岐を追加してください

;=================================================
; 2, 给对方口交
;=================================================
@M_KOJO_MESSAGE_COM_K88_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_2_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_2_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_K88_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_3_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_3_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

;=================================================
; 4, 舐肛
;=================================================
@M_KOJO_MESSAGE_COM_K88_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_4_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_4_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_K88_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_5_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_5_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_K88_6
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_6_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_6_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

;=================================================
; 7, 玩弄乳頭
;=================================================
@M_KOJO_MESSAGE_COM_K88_7
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_7_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_7_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

;=================================================
; 8, 張開陰唇
;=================================================
@M_KOJO_MESSAGE_COM_K88_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_8_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_8_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

;=================================================
; 9, 自慰
;=================================================
@M_KOJO_MESSAGE_COM_K88_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_9_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_9_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

;===========================================================
; ソフト系指令
;=================================================
; 20, 接吻
;=================================================
@M_KOJO_MESSAGE_COM_K88_20
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_20_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_20_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

;=================================================
; 21, 什麼也不做
;=================================================
@M_KOJO_MESSAGE_COM_K88_21
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_21_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_21_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

;===========================================================
; 道具系指令
;=================================================
; 40, 跳蛋
;=================================================
@M_KOJO_MESSAGE_COM_K88_40
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_40_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_40_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

;=================================================
; 41, 電動按摩棒
;=================================================
@M_KOJO_MESSAGE_COM_K88_41
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_41_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_41_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

;=================================================
; 42, 陰蒂夾
;=================================================
@M_KOJO_MESSAGE_COM_K88_42
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_42_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_42_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

;=================================================
; 43, 飛機杯
;=================================================
@M_KOJO_MESSAGE_COM_K88_43
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_43_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_43_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_K88_44
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_44_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_44_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	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

;=================================================
; 45, 肛用振動棒
;=================================================
@M_KOJO_MESSAGE_COM_K88_45
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_45_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_45_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

;=================================================
; 46, 後庭拉珠
;=================================================
@M_KOJO_MESSAGE_COM_K88_46
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_46_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_46_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

;=================================================
; 47, 二プルキャップ
;=================================================
@M_KOJO_MESSAGE_COM_K88_47
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_47_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_47_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
;=================================================
; 48, 搾乳機
;=================================================
@M_KOJO_MESSAGE_COM_K88_48
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_48_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_48_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_K88_60
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_60_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_60_1
;立位
LOCAL = 0
IF LOCAL && TFLAG:193
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;正常位
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;=================================================
; 61, 後背位
;=================================================
@M_KOJO_MESSAGE_COM_K88_61
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_61_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_61_1
;立位
LOCAL = 0
IF LOCAL && TFLAG:193
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;後背位
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;=================================================
; 62, 正常位肛交
;=================================================
@M_KOJO_MESSAGE_COM_K88_62
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_62_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_62_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

;正常位
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_K88_63
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_63_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_63_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

;後背位
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_K88_64
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_64_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_64_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_K88_65
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_65_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_65_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;=================================================
; 66, 騎乗位肛交
;=================================================
@M_KOJO_MESSAGE_COM_K88_66
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_66_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_66_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_K88_67
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_67_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_67_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;=================================================
; 68, 背面座位
;=================================================
@M_KOJO_MESSAGE_COM_K88_68
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_68_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_68_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		;処女
		IF TCVAR:破瓜 == 1
			PRINTFORMW
			RETURN 1
		ELSE
			PRINTFORMW
			RETURN 1
		ENDIF
	ENDIF
	;挿入継続
	LOCAL:1 = 0
	IF LOCAL:1 && TCVAR:100 == PLAYER
		;前回射精した
		IF TCVAR: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

;=================================================
; 69, 対面座位肛交
;=================================================
@M_KOJO_MESSAGE_COM_K88_69
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_69_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_69_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_K88_70
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_70_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_70_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_K88_71
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_71_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_71_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_K88_80
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_80_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_80_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

;=================================================
; 81, 口交
;=================================================
@M_KOJO_MESSAGE_COM_K88_81
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_81_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_81_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

;=================================================
; 82, 乳交
;=================================================
@M_KOJO_MESSAGE_COM_K88_82
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_82_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_82_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

;=================================================
; 83, 素股
;=================================================
@M_KOJO_MESSAGE_COM_K88_83
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_83_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_83_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

;=================================================
; 84, 泡泡浴
;=================================================
@M_KOJO_MESSAGE_COM_K88_84
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_84_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_84_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_K88_85
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_85_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_85_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

;===========================================================
; 加虐系指令
;=================================================
; 100, 打屁股
;=================================================
@M_KOJO_MESSAGE_COM_K88_100
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_100_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_100_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_K88_101
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_101_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_101_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_K88_102
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_102_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_102_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_K88_103
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_103_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_103_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_K88_104
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_104_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_104_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_K88_105
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_105_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_105_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_K88_106
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_106_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_106_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_K88_120
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_120_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_120_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_K88_121
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_121_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_121_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_K88_123
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_123_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_123_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_K88_126
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_126_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_126_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_K88_140
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_140_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_140_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_K88_141
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_141_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_141_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_K88_142
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_142_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_142_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_K88_143
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_143_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_143_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_K88_144
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_144_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_144_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_K88_145
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_145_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_145_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_K88_146
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_146_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_146_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_K88_147
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_147_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_147_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_K88_148
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_148_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_148_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_K88_180
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_180_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_180_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_K88_181
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_181_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_181_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

;=================================================
; 182, 利尿剤,
;=================================================
@M_KOJO_MESSAGE_COM_K88_182
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_182_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_182_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_K88_183
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_183_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_183_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, 浴室PLAY
;=================================================
@M_KOJO_MESSAGE_COM_K88_187
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_187_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_187_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;開始
	IF TEQUIP:浴室PLAY
		;恋慕
		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_K88_188
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_188_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_188_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, 新妻PLAY
;=================================================
@M_KOJO_MESSAGE_COM_K88_189
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_COM_K88_189_1
RETURN RESULT

@M_KOJO_MESSAGE_COM_K88_189_1
LOCAL = 0
IF LOCAL
	;初めて
	LOCAL:1 = 0
	IF LOCAL:1 && FIRSTTIME(SELECTCOM)
		PRINTFORMW
		RETURN 1
	ENDIF
	;基本セット
	;開始
	IF TEQUIP:新妻PLAY
		;恋慕
		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_K88_1
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_1_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_1_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
;2,岩清水
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_2
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_2_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_2_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 3, Gスポット刺激
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_3
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_3_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_3_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 4, 乱牡丹
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_4
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_4_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_4_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 5, 手淫口交
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_5
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_5_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_5_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 6, 挿入Ｇスポ責め
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_6
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_6_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_6_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 7, 挿入子宮口玩弄
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_7
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_7_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_7_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 8, ６９乳交
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_8
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_8_1
RETURN RESULT
@M_KOJO_MESSAGE_SCOM_K88_8_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;=================================================
; 509, 雙重口交
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_9
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_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_K88_9_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

;二人目口上
@M_KOJO_MESSAGE_SCOM_K88_9_2
VARSET LOCAL
;一人目
LOCAL:101 = MASTER_POSE(SET_M,SET_P)
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_K88_10
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_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_K88_10_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

@M_KOJO_MESSAGE_SCOM_K88_10_2
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_K88_11
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_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_K88_11_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

@M_KOJO_MESSAGE_SCOM_K88_11_2
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_K88_12
CALL TRAIN_MESSAGE
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_K88_{SELECTCOM}
RETURN 1

;=================================================
; 13, 交互挿入
;=================================================
@M_KOJO_MESSAGE_SCOM_K88_13
CALL TRAIN_MESSAGE
CALL M_KOJO_MESSAGE_SCOM_K88_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_K88_13_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
;未記入
;TRYCALLFORM M_KOJO_MESSAGE_COM_K88_{SELECTCOM}_1
RETURN 1

@M_KOJO_MESSAGE_SCOM_K88_13_2
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_K88_00
;性交処女喪失をRETURN 100して
;IF RESULT == 100 でまとめるとか
;苦痛や快楽のSOURCEをトリガーとして汎用あえぎ口上を作るとか
;いろいろ利用方法は考えられますが随意やってください

;===========================================================
; "COUNTER"系口上
;===========================================================
; ソフト
;=================================================
; 色っぽい仕草
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_10
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_10_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_10_1
RETURN 1

;=================================================
; 見つめる
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_11
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_11_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_11_1
RETURN 1

;=================================================
; 体を摺り寄せる
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_12
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_12_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_12_1
RETURN 1

;=================================================
; 掀裙子
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_13
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_13_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_13_1
RETURN 1

;=================================================
; 息を吹きかける
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_14
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_14_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_14_1
RETURN 1

;=================================================
; 摸屁股
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_15
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_15_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_15_1
RETURN 1

;=================================================
; 性騷擾
;=================================================
; 接吻
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_30
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_30_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_30_1
RETURN 1

;=================================================
; 从后面将抱きつく
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_31
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_31_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_31_1
RETURN 1

;=================================================
; 前から抱きつく
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_32
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_32_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_32_1
RETURN 1

;=================================================
; 胸を揉ませる
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_33
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_33_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_33_1
RETURN 1

;=================================================
; 股間をまさぐる
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_34
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_34_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_34_1
RETURN 1

;=================================================
; 裙子の中を見せる
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_35
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_35_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_35_1
RETURN 1

;=================================================
; 从后面将胸もみもみ
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_36
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_36_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_36_1
RETURN 1

;=================================================
; 愛撫
;=================================================
; 手淫
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_50
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_50_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_50_1
RETURN 1

;=================================================
; 口淫
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_51
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_51_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_51_1
RETURN 1

;=================================================
; 素股
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_52
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_52_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_52_1
RETURN 1

;=================================================
; 乳交
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_53
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_53_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_53_1
RETURN 1

;=================================================
; 足交
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_54
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_54_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_54_1
RETURN 1

;=================================================
; 肛門愛撫
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_55
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_55_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_55_1
RETURN 1

;=================================================
; 舐肛
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_56
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_56_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_56_1
RETURN 1

;=================================================
; 指挿入
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_57
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_57_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_57_1
RETURN 1

;=================================================
; 胸愛撫
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_58
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_58_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_58_1
RETURN 1

;=================================================
; 吸乳头
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_59
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_59_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_59_1
RETURN 1

;=================================================
; ディープ接吻
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_60
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_60_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_60_1
RETURN 1

;=================================================
; 奉仕
;=================================================
; 強制舐陰
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_70
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_70_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_70_1
RETURN 1

;=================================================
; 口交強制
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_71
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_71_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_71_1
RETURN 1

;=================================================
; 肛門奉仕
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_72
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_72_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_72_1
RETURN 1

;=================================================
; ぱふぱふ
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_73
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_73_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_73_1
RETURN 1

;=================================================
; 乳合わせ
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_74
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_74_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_74_1
RETURN 1

;=================================================
; タワシ洗い
;=================================================
@M_KOJO_MESSAGE_COUNTER_K88_75
CALL EVENT_COUNTER_MESSAGE
CALL M_KOJO_MESSAGE_COUNTER_K88_75_1
RETURN RESULT
@M_KOJO_MESSAGE_COUNTER_K88_75_1
RETURN 1

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

;=================================================
; 诶嘿嘿Counter
;---------------------------------------
; まだ
;=================================================

;=================================================
; 奴隷の絶頂時の口上
;---------------------------------------
; NOWEX:0～3 CVAB絶頂
; NOWEX:二重絶頂 二重絶頂
; NOWEX:三重絶頂 三重絶頂
; NOWEX:四重絶頂 四重絶頂
; NOWEX:10 噴乳
; NOWEX:11 射精
; NOWEX:12 放尿
; 随意組み合わせて使ってください
;=================================================
@M_KOJO_MESSAGE_PALAMCNG_B_K88
CALL PALAM_MESSAGE_B
;噴乳
LOCAL = 0
IF LOCAL && NOWEX:噴乳
	PRINTFORMW
ENDIF

;射精
LOCAL = 0
IF LOCAL && NOWEX:11
	PRINTFORMW
ENDIF

;放尿
LOCAL = 0
IF LOCAL && NOWEX:12
	PRINTFORMW
ENDIF

;絶頂
LOCAL = 0
IF LOCAL
	;四重絶頂
	LOCAL:1 = 0
	IF NOWEX:四重絶頂
		PRINTFORMW
		RETURN 1
	ENDIF
	;三重絶頂
	LOCAL:1 = 0
	IF NOWEX:三重絶頂
		SELECTCASE NOWEX:三重絶頂
			;Ｃ＆Ｖ＆Ａ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｂ＆Ｖ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｖ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
		ENDSELECT
	ENDIF
	;二重絶頂
	LOCAL:1 = 0
	IF NOWEX:二重絶頂
		SELECTCASE NOWEX:二重絶頂
			;Ｃ＆Ｖ絶頂
			CASE 1
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ａ絶頂
			CASE 2
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ａ絶頂
			CASE 3
				PRINTFORMW
				RETURN 1
			;Ｃ＆Ｂ絶頂
			CASE 4
				PRINTFORMW
				RETURN 1
			;Ｖ＆Ｂ絶頂
			CASE 5
				PRINTFORMW
				RETURN 1
			;Ａ＆Ｂ絶頂
			CASE 6
				PRINTFORMW
				RETURN 1
		ENDSELECT
	ENDIF
	IF NOWEX:0
		;強絶頂Ｃ
		IF NOWEX:0 == 2
			PRINTFORMW
		;絶頂Ｃ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:1
		;強絶頂Ｖ
		IF NOWEX:1 == 2
			PRINTFORMW
		;絶頂Ｖ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:2
		;強絶頂Ａ
		IF NOWEX:2 == 2
			PRINTFORMW
		;絶頂Ａ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	IF NOWEX:3
		;強絶頂Ｂ
		IF NOWEX:3 == 2
			PRINTFORMW
		;絶頂Ｂ
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDIF

;=================================================
;射精に関する口上の表示
;---------------------------------------
;一時的にTARGETを口上主に設定している
;=================================================
@M_KOJO_MESSAGE_PALAMCNG_A_K88_0(ARG)
CALL PALAM_MESSAGE_A
;避孕套
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_23(ARG)
CALL PALAM_MESSAGE_A
;深喉插入
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_22(ARG)
CALL PALAM_MESSAGE_A
;六九式
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_K88_21(ARG)
CALL PALAM_MESSAGE_A
;乳夾口交
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_20(ARG)
CALL PALAM_MESSAGE_A
;手淫口交
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_9(ARG)
CALL PALAM_MESSAGE_A
;肛門奉仕
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_8(ARG)
CALL PALAM_MESSAGE_A
;泡泡浴
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_K88_7(ARG)
CALL PALAM_MESSAGE_A
;足交
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_6(ARG)
CALL PALAM_MESSAGE_A
;素股
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_5(ARG)
CALL PALAM_MESSAGE_A
;乳交
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_4(ARG)
CALL PALAM_MESSAGE_A
;口交
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_3(ARG)
CALL PALAM_MESSAGE_A
;手淫
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_2(ARG)
CALL PALAM_MESSAGE_A
;肛門
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

@M_KOJO_MESSAGE_PALAMCNG_A_K88_1(ARG)
CALL PALAM_MESSAGE_A
;膣内
LOCAL = 0
IF LOCAL
	PRINTFORMW
	RETURN 1
ENDIF
RETURN 1

;=================================================
; 調教後の文本
;---------------------------------------
; TFLAG:8 (1=TARGETがお掃除 2=ASSIがお掃除 3=TARGETとASSIがお掃除)
;=================================================
@M_KOJO_MESSAGE_PALAMCNG_C_K88
CALL PALAM_MESSAGE_C
;処女喪失
IF TFLAG:4
	PRINTFORMW
ENDIF

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

;=================================================
; 刻印取得
;=================================================
@M_KOJO_MESSAGE_MARKCNG_K88
;苦痛刻印
IF TFLAG:22 == 1
	PRINTFORMW
ELSEIF TFLAG:22 == 2
	PRINTFORMW
ELSEIF TFLAG:22 == 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:21 == 1
	PRINTFORMW
ELSEIF TFLAG:21 == 2
	PRINTFORMW
ELSEIF TFLAG:21 == 3
	PRINTFORMW
ENDIF

;========================================================
; 口上内部バージョン取得(式中関数)
;-------------------------------------------------
; 口上のバージョンUPでフラグの変更などを行うための内部バージョン取得
;========================================================
@K88_KYOKO_GET_VARSION()
#FUNCTION
RETURNF 100

;========================================================
; ハート出力(式中関数)
;-------------------------------------------------
; ユニコード文字の中黒のハートを返す
;========================================================
@K88_KYOKO_HEART()
#FUNCTIONS
RETURNF UNICODE(0x2665)

;========================================================
; 推倒率取得(式中関数)
;-------------------------------------------------
; まあ口上側だけで済まそうと思ったらLOCALを外部参照しに行くか、
; 新しく計算する関数を作るか、本体に手を入れるかの3街道で、
; LOCAL外部参照なんて恐ろしい事したくないし本体に手は入れたくないしで、
; 結局それがこのざまである。
; もちろん本体で変更されたらこっちも変更しなければならない('A`)
;-------------------------------------------------
; 引数
;  ARG   = 比較対象角色の登録番号(省略時内部でTARGETをセット)
;-------------------------------------------------
; 戻り値
;  数値(0~100) 推倒率。単位は%
;========================================================
@K88_KYOKO_TRYENDURE(ARG = -1)
#FUNCTION
#LOCALSIZE 2
VARSET LOCAL, 0
SIF ARG == -1
	ARG = TARGET
SIF ARG < 0 || ARG > CHARANUM
	RETURNF 0
; まるっとコピペ
;素質により判定変化
LOCAL = 100
SIF TALENT:ARG:処女
	LOCAL = LOCAL / 2
SIF TALENT:ARG:恋慕
	LOCAL = LOCAL + 30
SIF TALENT:ARG:胆量 < 0 || TALENT:ARG:応答 < 0 || TALENT:ARG:冷漠 || TALENT:ARG:羞恥心 < 0
	LOCAL = LOCAL - 30
SIF TALENT:ARG:性的兴趣 > 0 || TALENT:ARG:羞恥心 > 0
	LOCAL = LOCAL + 20
SIF TALENT:ARG:自制心 || TALENT:ARG:性的兴趣 < 0
	LOCAL = LOCAL - ((LOCAL / 10) * 2)
SIF TALENT:ARG:貞操 < 0 || TALENT:ARG:小悪魔
	LOCAL = LOCAL + ((LOCAL / 10) * 2)
SIF TALENT:ARG:貞操 > 0 || TALENT:ARG:難以越過的底線
	LOCAL = LOCAL / 2

SIF TALENT:ARG:淫乱
	LOCAL = 300
SIF TALENT:ARG:性別嗜好 == 3 || MARK:ARG:反発刻印 == 3
	LOCAL = 0

;体力に依存して推倒率減少
LOCAL:1 = MAXBASE:ARG:体力 - BASE:ARG:体力
IF LOCAL:1 < 500
	;Do Notting
ELSEIF LOCAL:1 < 1000
	LOCAL = LOCAL / 2
ELSEIF LOCAL:1 < 1500
	LOCAL = LOCAL / 3
ELSE
	LOCAL = 10
ENDIF

;理性に依存して推倒率減少
IF BASE:ARG:理性 > 800
	LOCAL = LOCAL / 3
ELSEIF BASE:ARG:理性 > 600
	LOCAL = LOCAL / 2
ELSE
	;Do Notting
ENDIF

;範囲越えないように補正
SIF LOCAL < 0
	LOCAL = 0
SIF LOCAL > 300
	LOCAL = 300

; 確率を返す(元の式は SIF RAND:300 + 1 <= LOCAL)
RETURNF LOCAL / 300

;========================================================
; 体格差取得(式中関数)
;-------------------------------------------------
; 対象との体格差を見て対応する数値を返す
; 別に式中関数でやる必要はないのだけどよく使用処理だし
;-------------------------------------------------
; 引数
;  ARG   = 比較対象角色の登録番号(省略時内部でTARGETをセット)
;  ARG:1 = 比較元角色の登録番号(省略時内部でMASTERをセット)
;-------------------------------------------------
; 戻り値
;  数値(-6~+6) 参考用: [小人(-3)][幼児体型(-2)][矮小体型(-1)][(0)][長身(1)][巨躯(2)][巨人(3)]
;   最小は比較元が小人体型かつ比較対象が巨人。最大は最小の逆となる。
;========================================================
@K88_KYOKO_DIFF_BODYSIZE(ARG = -1, ARG:1 = -1)
#FUNCTION
SIF ARG == -1
	ARG = TARGET
SIF ARG:1 == -1
	ARG:1 = MASTER
SIF ARG < 0 || ARG > CHARANUM || ARG:1 < 0 || ARG:1 > CHARANUM
	RETURNF 0
RETURNF TALENT:(ARG:1):体型 - TALENT:ARG:体型

;========================================================
; 関係取得(式中関数)
;-------------------------------------------------
; 対象との関係を見て対応する数値を返す
;-------------------------------------------------
; 引数
;  ARG = 角色の登録番号
;-------------------------------------------------
; 戻り値
;  数値(-1 = 敵視, 0 = 無関係, 1 = 友好的, 2 = 目上, 3 = 尊敬)
;========================================================
@K88_KYOKO_RELATION(ARG)
#FUNCTION
SIF ARG < 0 || ARG > CHARANUM
	RETURNF 0
SELECTCASE CALLNAME:ARG
	; 尊敬(星, 白蓮)
	CASE "星" ,"白蓮"
		RETURNF 3
	; 目上(鼠, 一輪, 村紗, 鵺, 狸)
	CASE "納茲琳", "一輪", "村紗", "鵺", "猯藏"
		RETURNF 2
	; 友好(小傘)
	CASE "小傘"
		RETURNF 1
	CASEELSE
		IF FLAG:扮演 == ARG
			RETURNF -2
		ELSE
			RETURNF 0
		ENDIF
ENDSELECT

RETURNF 0

;========================================================
; 名前表示(式中関数)
;-------------------------------------------------
; 対象との関係を見て名前を表示
;-------------------------------------------------
; 引数
;  ARG = 角色の登録番号(省略時内部でMASTERをセット)
;-------------------------------------------------
; 戻り値
;  文字列(対象角色への呼称)
;========================================================
@K88_KYOKO_CALLNAME(ARG = -1)
#FUNCTIONS
#LOCALSSIZE 1
VARSET LOCALS, ""
SIF ARG == -1
	ARG = MASTER
SIF ARG < 0 || ARG > CHARANUM
	RETURNF "範囲外の引数"
LOCALS = \@ ARG == MASTER ? %CSTR:20% # %CALLNAME:ARG% \@
SELECTCASE K88_KYOKO_RELATION(ARG)
	; 尊敬(様づけ)
	CASE 3
		LOCALS += "様"
	; 目上(さんづけ)
	CASE 2
		LOCALS += "さん"
	; 友好(ちゃんづけ)
	CASE 1
		LOCALS += "ちゃん"
	; 敵視(呼び捨て)
	CASE -1
	; 主人(変更を加えない)
	CASE -2
	; 其他
	CASEELSE
		LOCALS += "ちゃん"
ENDSELECT
; ここから主人専用処理
IF ARG == MASTER
	; CSTR:20とMASTERNAME:88の同期
	MASTERNAME:88 = %LOCALS%
	; 特定プレイ時のみ呼び名を変えたければここ以下に条件式を追加
ENDIF
RETURNF LOCALS

;========================================================
; 口上互換処理
;-------------------------------------------------
; バージョンUPでフラグの移動などを行う際に使用する関数
; 一日で最初に出会った時に呼ばれる
; とりあえず関数の雛形だけ作っておくが使用する必要がないことを祈る
;========================================================
@K88_KYOKO_UPDATE
WHILE CFLAG:1100 < K88_KYOKO_GET_VARSION()
	SELECTCASE CFLAG:1100
		; 初期バージョン
		CASE IS < 100
			; 呼び名が空ならセット
			IF !STRLENS(CSTR:20)
				CSTR:20 = %CALLNAME:MASTER%
				CALLF K88_KYOKO_CALLNAME(MASTER)
			ENDIF
			CFLAG:1100 = 100
		; ここに互換処理を書く
;		CASE 条件
;			処理
;		;CASE 条件
;			処理
		; 無限ループ予防
		CASEELSE
			CFLAG:1100 = K88_KYOKO_GET_VARSION()
	ENDSELECT
WEND
RETURN 1

;========================================================
; 呼び名入力
;-------------------------------------------------
; 正規表現使ってて動作速度大丈夫なのかって？C#に聞け
; エス披肩だらけで訳わかんないなー誰か何とかしてくれないかなー(ﾁﾗｯﾁﾗｯ
;========================================================
@K88_KYOKO_INPUT_CALLNAME
#LOCALSSIZE 1
PRINTFORML 请输入名称(请直接输入、或用按钮进行选择)
IF NAME:MASTER != "你"
	LOCALS = %NAME:MASTER%
ELSE
	LOCALS = %CALLNAME:MASTER%
ENDIF
PRINTBUTTON @"[名字就叫(%LOCALS%)]", @"%LOCALS%"
[SKIPSTART]
; 恒例の呼び名どもだ
SIF ABL:親密 > 4
	PRINTBUTTON "[请叫我为\@ TALENT:MASTER:性別 == 2 ? 哥哥 # 姐姐 \@]", @"\@ TALENT:MASTER:性別 == 2 ? 哥哥 # 姐姐 \@"
SIF ABL:親密 > 7
	PRINTBUTTON "[请叫我为\@ TALENT:MASTER:性別 == 2 ? 哥哥 # 姐姐 \@大人]", @"\@ TALENT:MASTER:性別 == 2 ? 哥哥 # 姐姐 \@大人"
SIF ABL:従順 > 7 && ABL:奉仕精神 > 7
	PRINTBUTTON "[希望你能叫我主人大人", "主人大人"
SIF TALENT:恋人 && TALENT:恋慕
	PRINTBUTTON "[希望你能叫我旦那大人]", "旦那大人"
[SKIPEND]

$INPUT_LOOP_KYO0
INPUTS
; 行頭行尾の空白文字削除
LOCALS = %RESULTS%
REPLACE LOCALS, "\(\^\\s\+\|\\s\+\$)", ""
; 2文字未満
IF STRLENS(LOCALS) < 2
	SIF STRLENS(RESULTS)
		CLEARLINE 1
	REUSELASTLINE 「声音太小了！」
	GOTO INPUT_LOOP_KYO0
; 10文字(全角5文字)超えた
ELSEIF STRLENS(LOCALS) > 10
	CLEARLINE 1
	REUSELASTLINE 「是不是有点長了？短一点吧」
	GOTO INPUT_LOOP_KYO0
; 音無響子
ELSEIF STRCOUNT(LOCALS, "\(音無\|千草\)\+\\s\*響子")
	PRINTFORML 「是你吗，管理员？」
; 惣一郎さん
ELSEIF STRCOUNT(LOCALS, "\(音無\)\+\\s\*惣一郎")
	PRINTFORML 「似你、惣一郎！！」
; 五代裕作
ELSEIF STRCOUNT(LOCALS, "\(五代\)\+\\s\*裕作")
	PRINTFORML 「我也稍微有点決断力的话会比较好吧」
; 同姓同名
ELSEIF FLAG:扮演 != 88 && STRCOUNT(LOCALS, "\(幽谷\)\*\\s\*響子")
	CLEARLINE 1
	REUSELASTLINE 「同姓同名？真麻烦，换个称呼吧」
	GOTO INPUT_LOOP_KYO0
; 白蓮が主人ではなく、白蓮というフレーズが含まれている。もしくは
; ☆が主人ではなく、寅丸もしくは星というフレーズが含まれている
ELSEIF (FLAG:扮演 != 55 && STRCOUNT(LOCALS, "聖\*\\s\*白蓮")) || (FLAG:扮演 != 87 && STRCOUNT(LOCALS, "\(寅丸\)\*\\s\*星\$"))
	CLEARLINE 1
	REUSELASTLINE 「你是在犯傻吗？不会弄错了吧」
	GOTO INPUT_LOOP_KYO0
; 命蓮寺勢はじき
; うんそうだね多多良勝五郎とか教える人もいるかもしれないもんね
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_KYO0
ELSEIF (FLAG:扮演 != 41 && STRCOUNT(LOCALS, "\(封獣\)\*\\s\*鵺")) || (FLAG:扮演 != 69 && STRCOUNT(LOCALS, "\(二ツ岩\)\*\\s\*猯藏"))
	CLEARLINE 1
	REUSELASTLINE 「乔装……不可能的吧？」
	GOTO INPUT_LOOP_KYO0
; 道教勢力はじき
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_KYO0
; 博麗霊夢というフレーズが含まれてる。もしくは
; 東風谷早苗というフレーズが含まれている
ELSEIF STRCOUNT(LOCALS, "\(博麗\)\*\\s\*霊夢") || STRCOUNT(LOCALS, "\(東風谷\)\*\\s\*早苗")
	PRINTFORML 「你是巫女吗？看不出来啊」
; 霧雨魔理沙というフレーズが含まれてる。
ELSEIF STRCOUNT(LOCALS, "\(霧雨\)\*\\s\*魔理沙")
	PRINTFORML 「啊、那个没什么热情的人类啊。打招呼的声音不大一点不行喔」
; 魂魄妖夢というフレーズが含まれてる。
ELSEIF STRCOUNT(LOCALS, "\(魂魄\)\*\\s\*妖夢")
	PRINTFORML 「已经不再挥刀了吗？」
ENDIF
; 直接入力ならいけると思ったか？弾くぜ！
IF FIRSTTIME("U88-1") && ABL:親密 < 4 && STRCOUNT(LOCALS, "\(お\(\(兄\|にい\)\|\(姉\|ねえ\)\)\(さん\|ちゃん\)\)\$")
	CLEARLINE 1
	REUSELASTLINE 「山彦也说过要有选择的权利」
	GOTO INPUT_LOOP_KYO0
ELSEIF FIRSTTIME("U88-1") && ABL:親密 < 7 && STRCOUNT(LOCALS, "\(お\(\(兄\|にい\)\|\(姉\|ねえ\)\)\(様\|さま\)\)\$")
	CLEARLINE 1
	REUSELASTLINE 「山彦也说过要有选择的权利」
	GOTO INPUT_LOOP_KYO0
ELSEIF FIRSTTIME("U88-1") && (ABL:従順 < 7 || ABL:奉仕精神 < 7) && STRCOUNT(LOCALS, "\(\(御\|ご\)\(主人\|しゅじん\)\(様\|さま\)\)$")
	CLEARLINE 1
	REUSELASTLINE 「山彦也说过要有选择的权利」
	GOTO INPUT_LOOP_KYO0
ELSEIF FIRSTTIME("U88-1") && (!TALENT:恋人 || !TALENT:恋慕) && STRCOUNT(LOCALS, "\(\(旦那\|だんな\)\(様\|さま\)\)\$")
	CLEARLINE 1
	REUSELASTLINE 「山彦也说过要有选择的权利」
	GOTO INPUT_LOOP_KYO0
ENDIF
CSTR:20 = %LOCALS%
; CSTR:20とMASTERNAME:88を同期
CALLF K88_KYOKO_CALLNAME(MASTER)
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【88】[口上]era命蓮寺OvDr!!1.0+修正Pv1用オハヨー響子ちゃん口上+修正/M_KOJO_K88.ERB