code:
;-------------------------------------------------
;口上テンプレート
;○○口上_****_**_**（角色クターの名前を入れる、下にコンセプトなど一言あれば入れる）
;製作者　***
;-------------------------------------------------
;-------------------------------------------------
;コンセプト
;・清楚だったのに火鼠に取り憑かれて鼠の性欲で大変な大姐姐属性の貧乳巨尻少女
;　発情期という名の見せ場があるので設定としては半分死んでるのが悩み
;・尾巴の先はヒ蜥蜴状態。多分淫気を放っている
;　炎を止めてしまうと体内に淫気が満ちてしまい大変な状態になる
;尾巴を触るの時の文どうしよう
;ねずみの尾巴は可愛くないし、触りたいかなぁ
;ミッ〇ーマウス風で誤魔化すのが一番かな？
;・入ってきた火鼠がなんなのかは保留
;　候補としては　元々火鼠的家系で幻覚を見たら能力が開花する説
;　　　　　　　　火鼠は生き物ではなく他人に着せられた衣説
;　　　　　　　　妖怪で入ってきた火鼠と和解説
;　　　　　　　　どれにしよう？
;           　   2は第三者が出てくるから文章量的な意味でも犯人は身内か？

;・発情時はご褒美がもらえると分かるまではひたすら我慢
;　本当にもらえると思うとたがが外れる

;正直に言えば魔物娘図鑑からモンスターを物色
;火鼠可愛いやん後輩にしたろ→哈娜酱と丸被りやんけ！大姐姐にしたろ！
;やべぇ設定どうしよう……あっ调教师は誰にもついてない！これや！
;という感じで今に至るので設定はないも同然です
;今後色々な設定が付いたり消えたりするかも。
;-------------------------------------------------
;呼び名の設定。"_"の右にふりがなを書く。
;-------------------------------------------------
@CNAME_K21, ARGS
#FUNCTIONS
#DIM LCOUNT
#DIM ACTOR

VARSET LOCALS

SELECTCASE ARGS
CASE "一人称"
	LOCALS = 我_我
CASE "二人称"
	;相手が主人
	IF PLAYER == MASTER
		LOCALS = %NAME:MASTER%桑_%CSTR:MASTER:ふりがな%桑
	;相手が主人ではない
	ELSE
		SELECTCASE CSTR:PLAYER:学年
		CASE "初等部", "中等部", "１年生", "２年生", "３年生", "研究生"
			LOCALS = %CALLNAME:PLAYER%桑_%CSTR:PLAYER:ふりがな%桑
		CASEELSE
			IF COND("教員", PLAYER)
				LOCALS = %CALLNAME:PLAYER%老师_%CSTR:PLAYER:ふりがな%老师
			ELSE
				LOCALS = 你_你
			ENDIF
		ENDSELECT
	ENDIF
CASE "主人"
	LOCALS = %NAME:MASTER%桑_%CSTR:MASTER:ふりがな%桑
CASE "助手"
	SELECTCASE CSTR:ASSI:学年
	CASE "初等部", "中等部", "１年生", "２年生", "３年生", "研究生"
		LOCALS = %CALLNAME:ASSI%桑_%CSTR:ASSI:ふりがな%桑
	CASEELSE
		IF COND("教員", ASSI)
			LOCALS = %CALLNAME:ASSI%老师_%CSTR:ASSI:ふりがな%老师
		ELSE
			LOCALS = 你_你
		ENDIF
	ENDSELECT
CASEELSE
	;ARGSに角色名が入れられてる場合には角色への呼び方なので格子
	IF FIND_NO(ARGS) > 0
		ACTOR = FIND_NO(ARGS)

		SELECTCASE CSTR:ACTOR:称号
		CASE "実母"
			LOCALS = 母亲大人_母亲大人
		CASEELSE
			SELECTCASE CSTR:ACTOR:学年
			CASE "初等部", "中等部"
				IF TALENT:ACTOR:男性
					LOCALS = %CALLNAME:ACTOR%君_%CSTR:ACTOR:ふりがな%君
				ELSE
					LOCALS = %CALLNAME:ACTOR%桑_%CSTR:ACTOR:ふりがな%桑
				ENDIF
			CASE "１年生", "２年生", "３年生"
				LOCALS = %CALLNAME:ACTOR%桑_%CSTR:ACTOR:ふりがな%桑
			CASE "ＯＧ"
				LOCALS = 前辈_学长
			CASEELSE
				IF COND("教員", ACTOR)
					LOCALS = 老师_老师
				ELSE
					LOCALS = %CALLNAME:ACTOR%桑_%CSTR:ACTOR:ふりがな%桑
				ENDIF
			ENDSELECT
		ENDSELECT
	ENDIF
ENDSELECT
RETURNF LOCALS
;-------------------------------------------------
;勧誘イベントのセリフや紹介文
;-------------------------------------------------
@EVENT_PROFILE_K21, ARGS

SELECTCASE ARGS
CASE "紹介文"
	STR:1 = 因被寻找新住所的火鼠凭依、火鼠的力量和性欲都寄宿在了这个少女身上。
	STR:2 = 原本只是个随处可见的朴素土妹子、最近有传闻说她好像变得性感起来了。

CASE "勧誘"
	PRINTFORML %CALLNAME:MASTER%待在部室中的时候，听到了咚咚的敲門声。
	PRINTFORML 失礼了。伴随着话语声一位陌生的少女推門而入。总之先请她坐了下来。
	PRINTFORML 柔顺的黑发长及腰间、双手自然交叠搭在身前的少女、给人一种清秀的印象。
	PRINTFORMW 虽然她低着頭、让人没办法看清表情、但在頭上耸立着的老鼠耳朵却无时无刻不在彰显着存在感。
	PRINTFORML
	PRINTFORML 「啊、能看见吗？这个啊、似乎是有人看得见、有人看不见呢」
	PRINTFORML 似乎是多少消除了一些疑虑、少女抬起頭来这样说着。
	PRINTFORML 「就在前几天、我和看起来好像老鼠一样的生物撞到了一起。」
	PRINTFORMW 「反应过来之后就变成现在这样了。」
	PRINTFORML
	PRINTFORML 「%CNAME("一人称")%想要变回原样。如果可以的话、也希望凭依在我身上的这孩子能不受到伤害。」
	PRINTFORML 「听说来到这里、就有办法解决这种不可思议的问题。」
	PRINTFORML 「欸、这个是从谁那里听说的？这个嘛、朋友也只说是从别人那里听来的。」
		SIF FINDCHARA(NO, 1) > 0
			PRINTFORMW 好像隐约从背后听到那坏心眼恶魔的嬉笑声。
	PRINTFORML
	PRINTFORML 「还没自我介绍呢。我是三年级的蓬莱祥子。」
	PRINTFORML 「能让我加入%CNAME("二人称")%的社团吗！」
	PRINTFORMW %CALLNAME:TARGET%看着%CALLNAME:MASTER%的眼睛中满是坚定的意志。

;これは別になくても構いません
CASE "勧誘直後"

;これも別になくても構いません。特殊な条件がある場合などにどうぞ
CASE "出現条件"
	;PRINTFORMW %NAME:TARGET%作为%CALLNAME:MASTER%的"%CSTR:関係%"，会在(昼)的部室里露面了。
ENDSELECT

;-------------------------------------------------
;この角色が拒否している指令のフラグ立てや其他色々なフラグを開始前に設定できる
;partnerは勿論、指导者の時でも読み込む
;-------------------------------------------------
@SETFLAG_BEFORE_TRAIN_K21

;-------------------------------------------------
;調教開始時のセリフ
;-------------------------------------------------
@EVENTTRAIN
SIF NO:TARGET != 21
	RETURN 1
DRAWLINE
;-------------------------------------------------
;初調教時
;-------------------------------------------------
IF CEVENT("調教開始：初調教") == 0
	PRINTFORML 「真的要做这种事情啊。不、并没有生气啦。」
	PRINTFORML 被%CALLNAME:MASTER%抱住的%CALLNAME:TARGET%的脸上红得几乎要喷出火来。
	PRINTFORML 「话说、老鼠不是很容易增殖嘛。很容易就子孙遍地什么的。」
	PRINTFORML 「被这个孩子凭依之后、身体经常变得好热、%CNAME("二人称")%又那么帅气。」
	PRINTFORMW 「所以、请、请你、多多指教。」
	CALL SET_CEVENT, "調教開始：初調教"
;-------------------------------------------------
;調教開始時（一回のみ）
;-------------------------------------------------
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ１") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ１"
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ２") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ２"
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3 && TALENT:恋慕 == 0 && CEVENT("調教開始：屈服刻印ＬＶ３") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：屈服刻印ＬＶ３"
;恋慕
ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：恋慕"
;相思相愛
ELSEIF TALENT:相思相愛 && CEVENT("調教開始：相思相愛") == 0
	PRINTFORMW
	CALL SET_CEVENT, "調教開始：相思相愛"
;助手の有無を格子（いない場合は二回目以降へ飛ぶ）
ELSEIF ASSI <= 0
	CALL K21_KOJO2

;-------------------------------------------------
;助手との掛け合い(YYを助手の角色番号に置換、ＸＸを助手の角色番号に対応した名前に変更する)
;掛け合いをする角色を増やす場合は、コピー＆ペーストをして増やす
;-------------------------------------------------
;助手
;ELSEIF NO:ASSI == YY
	;初めて
;	IF CEVENT("助手会話：ＸＸ") == 0
		;恋慕＋恋慕時初口上（陥落イベント）が発生済み
;		IF CEVENT("調教開始：恋慕")
;			PRINTFORMW
		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		CALL SET_CEVENT, "助手会話：ＸＸ"
	;二回目以降
;	ELSE
		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;	ENDIF
;口上のある助手が居ない場合は、通常の二回目以降の口上へ飛ぶ
ELSE
	CALL K21_KOJO2
ENDIF

RETURN 1

;-------------------------------------------------
;調教開始時（2回目以降）
;-------------------------------------------------
@K21_KOJO2
;恋慕
IF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv0
ELSEIF MARK:屈服刻印 == 0
	PRINTFORMW
;屈服刻印Lv1
ELSEIF MARK:屈服刻印 == 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

;-------------------------------------------------
;調教終了時のセリフ
;-------------------------------------------------
@EVENTEND
SIF NO:TARGET != 21
	RETURN 1

DRAWLINE
;-------------------------------------------------
;※精力限界値を超えた場合の終了口上
;-------------------------------------------------
;調教強制終了時の口上
IF STATE("撃沈", MASTER)
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;其他
	ELSE
		PRINTFORMW
	ENDIF
;partnerが体力or精力尽きた場合
ELSEIF STATE("撃沈")
	PRINTFORMW
;恋慕＋満足
ELSEIF TALENT:恋慕 && COND("満足")
	PRINTFORMW
;恋慕
ELSEIF TALENT:恋慕
	PRINTFORMW
;屈服刻印Lv1以下
ELSEIF MARK:屈服刻印 <= 1
	PRINTFORMW
;屈服刻印Lv2
ELSEIF MARK:屈服刻印 == 2
	PRINTFORMW
;屈服刻印Lv3
ELSEIF MARK:屈服刻印 == 3
	PRINTFORMW
ENDIF
RETURN 1

;-------------------------------------------------
;指令実行時のセリフ
;-------------------------------------------------
@KOJO_MESSAGE_COM_K21
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;愛撫
;-------------------------------------------------
IF SELECTCOM == 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORML 「可以给我耳塞吗？还有眼罩！还有、那个……。」
		PRINTFORML %CALLNAME:MASTER%告诉%CALLNAME:TARGET%这些全都没有。
		PRINTFORML 「说、说的也是呢、真是的、%CNAME("一人称")%在、在说什么啊。」
		PRINTFORMW 「那么%CNAME("一人称")%会闭上眼睛的、随你喜欢的做吧。」
	;二回目以降
	ELSE
		IF COND("発情期")
			IF RAND:3
				PRINTFORML 几乎全身都称得上性感带的%CALLNAME:TARGET%毫不做作地将身体压在%CALLNAME:MASTER%身上。
				CALL PRINT_STR, @"「光是%CNAME("二人称")%的味道、%CNAME("一人称")%~%CNAME("一人称")%~_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%温柔地爱抚着正在自己怀里挣扎着的%CALLNAME:MASTER%。
			ELSEIF RAND:2
				PRINTFORML %CALLNAME:MASTER%一边吮吸着%CALLNAME:TARGET%那因期待而颤抖的乳頭一边爱抚着她。
				CALL PRINT_STR, "「嗯嗯~、好好地吮吸哦_HH_把胸部搞大吧_HH_」_W"
			ELSE
				PRINTFORML %CALLNAME:MASTER%更加用力地捉弄着%CALLNAME:TARGET%那彰显自己存在感的阴蒂。
				CALL PRINT_STR, "「啊啊~、嗯呼……太用力了啦_HH_啊~啊啊~_HH_」_L"
				PRINTFORMW %CALLNAME:MASTER%用嘴堵住了快要从%CALLNAME:TARGET%嘴里溢出的口水。
			ENDIF
		ELSEIF TALENT:恋慕
			IF RAND:3
				PRINTFORML 「终于可以、很自然地对视了。」
				PRINTFORMW 「%CNAME("二人称")%做爱时候的表情、再多让我看看。」
			ELSEIF RAND:2
				PRINTFORML 「呼呼、总感觉有点奇怪了。」
				PRINTFORML 「不久之前、我还在想、也许一辈子都没有机会看到男人的裸体了。」
				PRINTFORMW 「不知道%CNAME("二人称")%的好处的%CNAME("一人称")%真是渺小啊。」
			ELSE
				PRINTFORML 「嗯、又是屁股。是因为%CNAME("一人称")%的胸部、太平坦了吗。」
				PRINTFORML %CALLNAME:TARGET%握住%CALLNAME:MASTER%的右手、将其贴在自己胸前。
				PRINTFORMW 「稍微协助一下、好像也不错嘛？」
			ENDIF
		ELSE
			IF RAND:3
				PRINTFORML 「%CNAME("二人称")%的手触碰过%CNAME("一人称")%的皮肤、就好像要从里面燃烧起来一样。」
				PRINTFORMW 「男人的手、真厉害啊。」
			ELSEIF RAND:2
				PRINTFORML 「呀啊……啊、嗯嗯~……啊……。」
				PRINTFORMW 「声音、止不住啦~、明明、只是被、抚摸着啊」
			ELSE
				PRINTFORML 「明明、还想、要反击呢、可是！」
				PRINTFORMW 「%CNAME("一人称")%的身体、太敏感了、嗯嗯~。」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰　面部騎乗(被逆推ているとき)
;-------------------------------------------------
IF SELECTCOM == 1
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ているとき
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;清洁舔阴
	ELSEIF COND("清洁舔阴フラグ", PLAYER)
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門愛撫
;-------------------------------------------------
IF SELECTCOM == 2
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;気持ちいい
		IF CHECK("Ａ指挿入")
			PRINTFORMW 「啊~手指、进来了。」
		;それ以外
		ELSE
			PRINTFORMW 「呀啊！？不、不是那边啊。」
		ENDIF
	;二回目以降
	ELSE
		IF COND("発情期")
			IF RAND:2
				PRINTFORML %CALLNAME:MASTER%从尾巴開始、重点爱抚屁股和股间。
				CALL PRINT_STR, @"「%CNAME("二人称")%的手指、在屁股上抓得好紧_HH_」_L"
				CALL PRINT_STR, @"「讨厌、不要玩弄%CNAME("一人称")%的尾巴根啊_HH_」_W"
			ELSE
				PRINTFORML %CALLNAME:MASTER%将手指插入%CALLNAME:TARGET%那早已做好准备的菊穴。
				CALL PRINT_STR, "「啊啊~不行_HH_硬硬的手指进到菊穴里了_HH_」_L"
				CALL PRINT_STR, @"「%CNAME("一人称")%要被扭曲的排泄感_HH_、去了、要去了_HH_」_W"
			ENDIF
		;気持ちいい
		ELSEIF CHECK("Ａ指挿入")
			IF RAND:2
				PRINTFORML 「手指在肠内一动一动。呀~呀啊~。」
				PRINTFORMW %CALLNAME:TARGET%的身体轻微地颤抖起来。
			ELSE
				PRINTFORML 「%CNAME("二人称")%的手指、进进出出的时候、缠住了啊」
				PRINTFORMW %CALLNAME:TARGET%的屁股因为太过快乐而颤抖起来。
			ENDIF
		;それ以外
		ELSE
			PRINTFORML 「如果%CNAME("二人称")%无论如何都要做的话……」
			PRINTFORMW %CALLNAME:TARGET%露出困扰的表情。
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;-------------------------------------------------
IF SELECTCOM == 3
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORML 「也就是说、就像%CNAME("一人称")%在家里做的那样吧……。」
		PRINTFORML 「明明是为了让%CNAME("二人称")%来触摸才加入社团的、这样没法接受啊。」
		PRINTFORMW %CALLNAME:MASTER%总算还是说服了气鼓鼓的%CALLNAME:TARGET%、让她自慰了。
	;二回目以降
	ELSE
		IF COND("発情期")
			IF RAND:2
				CALL PRINT_STR, "「一个人做什么的_HH_才、才不要啊_HH_」_L"
				CALL PRINT_STR, @"「明明好不容易_HH_能被你拥抱%CNAME("二人称")%_HH_明明就在眼前了_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%仰面躺着、引诱似地张開双腿、把自己因为自慰而兴奋起来的股间展示给%CALLNAME:MASTER%。
			ELSE
				CALL PRINT_STR, "「只有嘴唇、只有嘴唇也好_HH_嗯~嗯嗯、啊嗯~~、嗯啾_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%一边与%CALLNAME:MASTER%接吻、一边安慰着敏感到疼痛的身体。
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW (比在家里做的时候、还要让人兴奋……是因为%CNAME("二人称")%正在看吗？)
			ELSE
				PRINTFORMW 「差不多、该、袭击过来了吧、嗯嗯~啊、还不来吗……哈啊……。」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐陰莖(扶她/男性のみ)
;-------------------------------------------------
IF SELECTCOM == 4
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;胸愛撫
;-------------------------------------------------
IF SELECTCOM == 5
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORML 「不用勉强自己来摸哦、像%CNAME("一人称")%这样的。」
		PRINTFORML 看到%CALLNAME:TARGET%遮住自己平坦的胸部、脸色阴沉的样子、%CALLNAME:MASTER%反而更加专注地抚摸%CALLNAME:TARGET%的胸部。
		PRINTFORMW 「啊哇、等下、啊哈哈~、好痒啊！」
		PRINTFORMW 「呼呼~不过、谢谢你。」
	;二回目以降
	ELSE
		IF COND("発情期")
			IF RAND:2
				CALL PRINT_STR, @"「%CNAME("二人称")%的手指捏住乳頭啦_HH_」_L"
				CALL PRINT_STR, @"「乳頭感觉好舒服_HH_%CNAME("二人称")%再多做一点_HH_」_W"
			ELSE
				CALL PRINT_STR, "「乳頭被手指揉来揉去_HH_好像要融化了啊_HH_」_L"
				CALL PRINT_STR, "「就算坏掉了也没関系_HH_再多揉一揉_HH_」_W"
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORMW 「这样被触碰着就会越变越大、这么想着就感觉充满希望。」
			ELSE
				PRINTFORML %CALLNAME:TARGET%将手覆盖在%CALLNAME:MASTER%那正在抚摸自己胸部的双手上。
				PRINTFORML 「正在抚摸胸部的%CNAME("二人称")%的手是最温暖的呢。」
				PRINTFORMW 「一定是因为%CNAME("二人称")%的心很温暖吧。」
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;接吻
;-------------------------------------------------
IF SELECTCOM == 6
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;テンダー接吻
		IF CHECK_COM("テンダー接吻")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;阴部愛撫
;阴蒂の場合にはCHECK_COM("陰核愛撫"), 阴部の場合にはCHECK_COM("阴部愛撫"), 恥丘ならCHECK_COM("恥丘愛撫")がONになる
;-------------------------------------------------
IF SELECTCOM == 7
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;中出し後にお掃除
	ELSEIF CHECK_COM("擦拭")
		;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
		RETURN 0
		PRINTFORMW
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;指挿入
;CHECK_COM("玩弄Ｇ点")とTEQUIP:振動棒で大きく分岐する
;-------------------------------------------------
IF SELECTCOM == 8
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;振動棒挿入中
		IF TEQUIP:振動棒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;Gスポット刺激
	ELSEIF CHECK_COM("玩弄Ｇ点")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("指挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;振動棒挿入中
	ELSEIF TEQUIP:振動棒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;気持ちいい
		ELSEIF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;舐肛　Ａ面部騎乗(被逆推ているとき)
;-------------------------------------------------
;舐肛
IF SELECTCOM == 9
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方手交
;-------------------------------------------------
IF SELECTCOM == 10
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方乳交
;-------------------------------------------------
IF SELECTCOM == 11
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;给对方足交
;-------------------------------------------------
IF SELECTCOM == 12
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開阴道
;-------------------------------------------------
IF SELECTCOM == 13
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;扒開菊穴
;-------------------------------------------------
IF SELECTCOM == 14
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道指挿入
;-------------------------------------------------
IF SELECTCOM == 15
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛くない
		IF CHECK("尿道PLAY")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;跳蛋
;-------------------------------------------------
IF SELECTCOM == 30
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 31
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ｖ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛用振動棒
;-------------------------------------------------
;開始時
IF SELECTCOM == 33
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;脱着時(使用していた振動棒の尺寸はCHECK("Ａ最新受け入れサイズ")で判定)
	ELSEIF TEQUIP:肛用振動棒 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;余裕有
		IF CHECK("Ａ振動棒")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飛機杯
;-------------------------------------------------
IF SELECTCOM == 37
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;Ｖ挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 60 && SELECTCOM <= 69 && FIRSTCOMS("Ｖ挿入") == 0
	;処女
	IF TALENT:処女
		IF COND("発情期")
			CALL PRINT_STR, @"「可以哦_HH_%CNAME("一人称")%的处女~_HH_请收下吧_HH_」_L"
			PRINTFORML 因发情而欲火焚身的%CALLNAME:TARGET%自己将%CALLNAME:MASTER%的龟頭引导至自己的蜜壶入口。
			PRINTFORML 然后、挑逗似地扭起腰来、用阴道口的触感刺激着%CALLNAME:MASTER%的劣情与支配欲。
			CALL PRINT_STR, @"「不动起来吗_HH_这样下去的话~_HH_就要被%CNAME("一人称")%自己_HH_弄破了哦_HH_」_W"
		;相思相愛
		ELSEIF TALENT:相思相愛
			PRINTFORML 「我很高兴你能这么珍惜我。不过这也等太久了吧。」
			PRINTFORML 「明明%CNAME("一人称")%的心意、在加入社团的时候就决定了。」
			PRINTFORMW 看起来一脸不高兴的%CALLNAME:TARGET%、在下一个瞬间就哧哧地笑了起来。
			PRINTFORML
			PRINTFORML 「不、对不起。因为我没想到竟然会这么幸福。」
			PRINTFORML 「刚进入这个社团的时候、%CNAME("一人称")%满脑子都是该如何处理这副身体的烦恼。」
			PRINTFORML 「像自己自慰根本没效果、但又没有勇气去使用大型的工具。」
			PRINTFORML 「所以就自暴自弃地想、找个看起来很擅长做爱的男生、把处女什么的舍弃掉就好了。」
			PRINTFORMW 「只要这么做、哪怕只是暂时的、我被情欲折磨的身体也会平静下来吧。」
			PRINTFORML
			PRINTFORML %CALLNAME:TARGET%抱住了正在默默倾听的%CALLNAME:MASTER%。
			PRINTFORML 「多亏了%CNAME("二人称")%。多亏了%CNAME("二人称")%我才得以把处女献给自己最喜欢的人。」
			PRINTFORML 「才得以把处女交给自己在这个世界上第一思念的男人。」
			PRINTFORMW 「真的、真的、非常感谢。」
		;それ以外
		ELSE
			PRINTFORML 「好的。拜托了。」
			PRINTFORMW %CALLNAME:MASTER%还是又问了%CALLNAME:TARGET%一次。这样真的可以吗？
			PRINTFORML 「我真的很烦恼、到底要怎样才能让饱受情欲折磨的身体平静下来。」
			PRINTFORML 「就算是自己自慰也总感觉不到满足。就连按摩器也买来尝试了。」
			PRINTFORML 「也想过干脆用道具来把处女舍弃掉、但还是没有做到。很害怕啊。」
			PRINTFORMW %CALLNAME:TARGET%露出羞涩的笑容。胸前祈祷一样合十的双手握的更紧了。
			PRINTFORML 「在决定要参加社团活动的时候、%CNAME("一人称")%就已经做好觉悟了。」
			PRINTFORMW 「所以、请你尽情地夺去吧。拜托了。」
		ENDIF
	;非処女
	ELSE
		IF COND("発情期")
			CALL PRINT_STR, @"「不需要问那种事哦_HH_%CNAME("一人称")%无论何时都会接受%CNAME("二人称")%哦_HH_」_W"
		;それ以外
		ELSE
			PRINTFORMW 「这么大的真的能进得去吗？」
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ｖ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOMS("Ｖ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;巨根
	IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 65
			PRINTFORMW
		;対面座位
		CASE 63
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ｖ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 60 && SELECTCOM <= 69 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:手下留情 && NOWEX:Ｖ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ｖ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
;-------------------------------------------------
;二穴挿入(書く場合には;を消してください)
;-------------------------------------------------
;ELSEIF SELECTCOM >= 60 && SELECTCOM <= 79 && COND("３Ｐ")
;	IF CHECK_COM("两根挿入Ｖ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ｖ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("两根挿入Ａ中")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("两根挿入Ａ中")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ELSEIF CHECK_COM("二穴挿入")
;		;恋慕
;		IF TALENT:恋慕
;			PRINTFORMW
;		;余裕有
;		ELSEIF CHECK("二穴挿入")
;			PRINTFORMW
;		;それ以外
;		ELSE
;			PRINTFORMW
;		ENDIF
;		RETURN 1
;	ENDIF
ENDIF

;-------------------------------------------------
;正常位
;-------------------------------------------------
IF SELECTCOM == 60
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位
;-------------------------------------------------
IF SELECTCOM == 61
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;屈曲位
;-------------------------------------------------
IF SELECTCOM == 62
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;対面座位
;-------------------------------------------------
IF SELECTCOM == 63
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;背面座位
;-------------------------------------------------
;背面座位
IF SELECTCOM == 64
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;屈服刻印Lv2以上
		ELSEIF MARK:屈服刻印 >= 2
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;騎乗位
;-------------------------------------------------
IF SELECTCOM == 65
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;挿入刺激Ｇ点
;-------------------------------------------------
IF SELECTCOM == 66
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挿入子宮口玩弄
;-------------------------------------------------
IF SELECTCOM == 67
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;子宮挿入
;-------------------------------------------------
IF SELECTCOM == 68
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ挿入系初選択
;疼痛が少なく楽しめているかはCHECK("Ａ挿入")で判定
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 79 && FIRSTCOMS("Ａ挿入") == 0
	;Ａ処女
	IF TALENT:Ａ処女
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;余裕有
		ELSEIF CHECK("Ａ挿入")
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
;-------------------------------------------------
;調教ごとの初Ａ挿入
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOMS("Ａ挿入") == 0 && FIRSTCOM(SELECTCOM) && RAND:3 == 0
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;巨根
	ELSEIF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:恋慕)
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		SELECTCASE SELECTCOM
		;騎乗位
		CASE 75
			PRINTFORMW
		;対面座位
		CASE 73
			PRINTFORMW
		;それ以外
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
;-------------------------------------------------
;全Ａ挿入共通の随机文
;ここに力を入れると毎回異なる反応をするようになるのでおすすめ
;-------------------------------------------------
ELSEIF SELECTCOM >= 70 && SELECTCOM <= 79 && CHOSECOM(SELECTCOM) && RAND:3 == 0
	;要去了なのに焦らされている
	IF TEQUIP:PLAYER:手下留情 && NOWEX:Ａ绝顶前骤停 && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;余裕が無い
	ELSEIF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;喜欢的体位
	ELSEIF COND("喜欢的体位中") && SELECTCOM == INSERT("Ａ対応指令") && RAND:2
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		SELECTCASE CONDS("体位")
		CASE "正常位", "屈曲位"
			IF TALENT:恋慕 && RAND:3 == 0
				PRINTFORMW
			ELSEIF MARK:屈服刻印 >= 2 && RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		CASEELSE
			IF RAND:4 == 0
				PRINTFORMW
			ELSEIF RAND:3 == 0
				PRINTFORMW
			ELSEIF RAND:2
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ENDSELECT
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門性交(初めては上のＡ挿入系初選択などで)
;-------------------------------------------------
IF SELECTCOM >= 70 && SELECTCOM <= 74
	;余裕が無い
	IF CHECK("Ａ挿入") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;肛門騎乗位
;-------------------------------------------------
IF SELECTCOM == 75
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;貝あわせ
;-------------------------------------------------
IF SELECTCOM == 80
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;雙乳間抽插
;-------------------------------------------------
IF SELECTCOM == 81
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;乳頭奸
;-------------------------------------------------
IF SELECTCOM == 82
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道挿入
;-------------------------------------------------
IF SELECTCOM == 83
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;余裕が無い
		ELSEIF CHECK("尿道挿入") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;余裕が無い
		IF CHECK("尿道挿入") == 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶手交
;手淫と洗面奶から派生する
;-------------------------------------------------
IF CHECK_COM("洗面奶手交")
	;恋慕
	IF TALENT:恋慕
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		IF COND("喝母乳フラグ", PLAYER)
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;手淫
;-------------------------------------------------
IF SELECTCOM == 90
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口交
;-------------------------------------------------
IF SELECTCOM == 91
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSEIF CHECK_COM("阴茎接吻")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;みんな大好き清洁口交
	ELSEIF CHECK_COM("清洁口交")
		;恥垢もお掃除
		IF CHECK_COM("恥垢清洁口交")
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕 && RANDIF(1, ABL:奉仕精神 >= 3)
			PRINTFORMW
		;奉仕精神Lv3以上
		ELSEIF ABL:奉仕精神 >= 3 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;乳交
;-------------------------------------------------
IF SELECTCOM == 92
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;素股
;-------------------------------------------------
IF SELECTCOM == 93
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSEIF CHECK_COM("展示肉棒")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;泡泡浴
;-------------------------------------------------
IF SELECTCOM == 94
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;足交(PENIS(PLAYER)で調教者のチンコの有無が確認できます)
;-------------------------------------------------
IF SELECTCOM == 95
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;肛門奉仕
;-------------------------------------------------
IF SELECTCOM == 96
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;内褲冲
;-------------------------------------------------
IF SELECTCOM == 97
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;奉仕舐陰
;-------------------------------------------------
IF SELECTCOM == 98
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;六九式
;-------------------------------------------------
IF SELECTCOM == 99
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;洗面奶
;-------------------------------------------------
IF SELECTCOM == 104
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;飞机杯冲
;-------------------------------------------------
IF SELECTCOM == 105
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;逆振動棒
;-------------------------------------------------
IF SELECTCOM == 106
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;逆Ａ振動棒
;-------------------------------------------------
IF SELECTCOM == 107
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ｖ逆挿入系初選択
;-------------------------------------------------
IF SELECTCOM >= 120 && SELECTCOM <= 124 && FIRSTCOMS("Ｖ逆挿入") == 0
	;調教者が処女
	IF TALENT:PLAYER:処女
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 120
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 121
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;騎乗位侵犯
;-------------------------------------------------
IF SELECTCOM == 122
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ正常位奉仕
;-------------------------------------------------
IF SELECTCOM == 125
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ後背位奉仕
;-------------------------------------------------
IF SELECTCOM == 126
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;被逆推ている時
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;被逆推ているとき
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;Ａ騎乗位侵犯
;-------------------------------------------------
IF SELECTCOM == 127
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;打屁股
;あんまり痛くしません。ぴしゃぴしゃ
;-------------------------------------------------
IF SELECTCOM == 130
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;眼罩
;-------------------------------------------------
IF SELECTCOM == 133
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:眼罩 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;拘束
;-------------------------------------------------
IF SELECTCOM == 134
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:拘束 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;口枷
;何を付けたかはCOND("口球")、COND("開口口枷")で判定できる
;付ける前のセリフは@KOJO_MESSAGE_BEFORE_COMに書くのも良いでしょう
;-------------------------------------------------
IF SELECTCOM == 135
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:口枷 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;浣腸
;大量的液体を注いだかはCOND("大量浣腸")で判定できます
;-------------------------------------------------
IF SELECTCOM == 136
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;排泄
	ELSEIF TEQUIP:浣腸 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;让对方浴尿
;と是えまだ浴尿は出来ません
;直前に口交系指令なら口内放尿、性交系なら膣内放尿、Ａ性交系なら温泉浣腸となる
;別の指令が複数つまっているようなものなので正直な所、分岐が多くて煩雑です
;-------------------------------------------------
IF SELECTCOM == 138
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	IF CHECK_COM("口内放尿")
		;初めて
		IF EXP:飲尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("口内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("子宮内放尿")
		;初めて
		IF EXP:子宮浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("子宮内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膣内放尿")
		;初めて
		IF EXP:膣内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膣内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("温泉浣腸")
		;初めて
		IF EXP:温泉浣腸経験 == 0
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("温泉浣腸") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("乳内放尿")
		;初めて
		IF EXP:乳内浴尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("乳内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ELSEIF CHECK_COM("膀胱内放尿")
		;初めて
		IF EXP:輸尿経験 == 0
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		;二回目以降
		ELSE
			;PLAYを受け入れていない
			IF CHECK("膀胱内放尿") == 0
				PRINTFORMW
			;恋慕
			ELSEIF TALENT:恋慕
				PRINTFORMW
			;それ以外
			ELSE
				PRINTFORMW
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;什麼也不做
;-------------------------------------------------
IF SELECTCOM == 139
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;強制口交
;-------------------------------------------------
IF SELECTCOM == 140
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;フィスト系指令
;-------------------------------------------------
IF SELECTCOM == 141 || SELECTCOM == 142 || SELECTCOM == 143
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;楽しめる余裕が無い
		IF CHECK("フィスト") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;恋慕
		ELSEIF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;放尿　聖水PLAY(推倒ている時)
;-------------------------------------------------
IF SELECTCOM == 144
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;聖水PLAY
		IF TEQUIP:推倒
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	;聖水PLAY
	ELSEIF TEQUIP:推倒
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;剃毛
;-------------------------------------------------
IF SELECTCOM == 145
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;行為に抵抗有
		IF CHECK("陰毛管理") == 0
			;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
			RETURN 0
			PRINTFORMW
		;それ以外
		ELSE
			SELECTCASE CONDS("陰毛")
			;脱毛した
			CASE "脱毛処理"
				PRINTFORMW
			;光滑无毛に剃り上げた
			CASE "光滑无毛"
				PRINTFORMW
			;綺麗に剃り整えた
			CASEELSE
				PRINTFORMW
			ENDSELECT
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;身嗜管理
;-------------------------------------------------
IF SELECTCOM == 146
	;陰毛の状態を指示
	IF CHECK_COM("身嗜み：陰毛")
		SELECTCASE COND("身嗜み：陰毛")
		;光滑无毛
		CASE 3
			PRINTFORMW
		;剃り整える
		CASE 5
			PRINTFORMW
		;从不剃
		CASE 7
			PRINTFORMW
		ENDSELECT
	;腋毛の状態を指示
	ELSEIF CHECK_COM("身嗜み：腋毛")
		SELECTCASE COND("身嗜み：腋毛")
		;光滑无毛
		CASE 3
			PRINTFORMW
		;从不剃
		CASE 7
			PRINTFORMW
		ENDSELECT
	;常に膣を拡張しておくように指示
	ELSEIF CHECK_COM("身嗜み：Ｖ拡張")
		;尺寸で分岐
		SELECTCASE COND("身嗜み：Ｖ拡張")
		;指示解除
		CASE 0
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;常に肛門を拡張しておくように指示
	ELSEIF CHECK_COM("身嗜み：Ａ拡張")
		;尺寸で分岐
		SELECTCASE COND("身嗜み：Ａ拡張")
		;指示解除
		CASE 0
			PRINTFORMW
		CASEELSE
			PRINTFORMW
		ENDSELECT
	;いつでもお尻でエロいことできるように指示
	ELSEIF CHECK_COM("身嗜み：Ａ準備")
		;呼ばれたら腸内を綺麗にしておくように指示
		IF COND("身嗜み：腸洗浄")
			PRINTFORMW
		;潤滑液を用意するように指示
		ELSE
			PRINTFORMW
		ENDIF
	;それ以外
	;CHECK_COM("身嗜み：Ｐ準備"), CHECK_COM("身嗜み：Ｖ準備"), CHECK_COM("身嗜み：服装")
	;CHECK_COM("身嗜み：尿道拡張"), CHECK_COM("身嗜み：性行為の制限"), CHECK_COM("身嗜み：性欲の管理")
	;などでも分岐可能。
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;喝套内精液
;-------------------------------------------------
IF SELECTCOM == 147
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF ABL:精液中毒 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;穿环
;-------------------------------------------------
IF SELECTCOM == 148
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;こういうのは好きじゃない
		IF CHECK("穿环") == 0
			PRINTFORMW
		;それ以外
		ELSE
			;ＯＮフラグが付けた際のセリフです
			IF COND("陰蒂環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("陰唇環フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("乳环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ELSEIF COND("肚脐环フラグ")
				IF COND("穿環ＯＮフラグ")
					PRINTFORMW
				ELSE
					PRINTFORMW
				ENDIF
			ENDIF
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;导管
;-------------------------------------------------
IF SELECTCOM == 149
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;抜いた
	ELSEIF TEQUIP:导管 == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;深喉
;-------------------------------------------------
IF SELECTCOM == 150
	;口上を書く際には RETURN 0 を削除してください(もともと地の文が長めなので書かなくても問題ないかもしれません)
	RETURN 0
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;尿道探针
;-------------------------------------------------
IF SELECTCOM == 151
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;痛い！
		IF CHECK("尿道PLAY") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;攝像機使用
;-------------------------------------------------
IF SELECTCOM == 170
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:攝像機 == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;野外PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 171
	RETURN 1
ENDIF

;-------------------------------------------------
;浴室PLAY
;-------------------------------------------------
IF SELECTCOM == 172
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;終了時
	ELSEIF TEQUIP:浴室PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;新妻PLAY
;-------------------------------------------------
IF SELECTCOM == 173
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;終了時
	ELSEIF TEQUIP:新妻PLAY == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;室内露出PLAY
;まだ仕様が決まってない
;-------------------------------------------------
IF SELECTCOM == 174
	RETURN 1
ENDIF
;-------------------------------------------------
;換装
;-------------------------------------------------
IF SELECTCOM == 175
	;服、贴身制服、泳装に着替えた時
	IF CHECK_COM("換装：服を着替えた")
		IF CHECK_CLO("自分の服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("衬衫")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女教師")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("和服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("女仆装")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("体操服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("看護婦")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("旗袍")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("水手服")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("巫女")
			PRINTFORMW
		ELSEIF CHECK_SHIRT("情趣内衣")
			PRINTFORMW
		ELSEIF CHECK_CLO("比基尼姿")
			PRINTFORMW
		ELSEIF CHECK_CLO("拘束衣")
			PRINTFORMW
		ELSEIF CHECK_BODYS("兔")
			PRINTFORMW
		;其他
		ELSE
			PRINTFORMW
		ENDIF
	;胸も股間も丸出し状態变成了時
	ELSEIF CHECK_COM("換装：裸体变成了")
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;露出癖Lv3
		ELSEIF ABL:露出癖 >= 3
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;胖次を変えたり脱いだり
	ELSEIF CHECK_COM("換装：胖次")
		IF EQUIP:胖次
			PRINTFORMW
		;没穿内褲です
		ELSE
			PRINTFORMW
		ENDIF
	;以下は面倒ならELSE でひとまとめでも良いでしょう
	ELSEIF CHECK_COM("換装：外套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：胸罩")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：手套")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：襪子")
		PRINTFORMW
	ELSEIF CHECK_COM("換装：靴")
		PRINTFORMW
	;飾品の付け替えや其他
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;被逆推
;-------------------------------------------------
IF SELECTCOM == 176
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;潤滑液使用
;-------------------------------------------------
IF SELECTCOM == 260
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;媚薬使用
;-------------------------------------------------
IF SELECTCOM == 261
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;利尿剤
;-------------------------------------------------
IF SELECTCOM == 262
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;排卵誘発剤
;-------------------------------------------------
IF SELECTCOM == 264
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF
;-------------------------------------------------
;筋弛緩剤
;-------------------------------------------------
IF SELECTCOM == 267
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		PRINTFORMW
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;挣扎
;-------------------------------------------------
IF SELECTCOM == 280
	;成功
	IF TEQUIP:推倒 == 0
		PRINTFORMW
	;失敗
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;自慰
;自慰の種類についてはTEQUIP:PLAYER:自慰の値で分岐可能
;==1舐陰, ==4舐陰莖, ==9舐肛, ==13くぱぁ, ==14Ａくぱぁ など
;-------------------------------------------------
IF SELECTCOM == 282
	;初めて
	IF FIRSTCOM(SELECTCOM) == 0
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;-------------------------------------------------
;甜言蜜语
;-------------------------------------------------
IF SELECTCOM == 283
	;口上を書く際には RETURN 0 を削除してください(何も喋らない場合には地の文が強化されます)
	RETURN 0
	;成功
	IF TEQUIP:甜言蜜语
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;失敗
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
	RETURN 1
ENDIF

;--------------------------------------------------
;調教指令の地の文の前に喋る台詞はここに書く
;--------------------------------------------------
@KOJO_MESSAGE_BEFORE_COM_K21
;口枷着用時には口上をスキップする？
SIF TEQUIP:口枷 && SELECTCOM != 135
	RETURN 0

;-------------------------------------------------
;調教指令終了時に行う共通処理。特になくともよい
;-------------------------------------------------
@KOJO_ENDCOM_K21

;-------------------------------------------------
;パラメータ変動をトリガーにした口上
;パラメータ変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_PALAMCNG_K21, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0
;-------------------------------------------------
;パラメータ変動時のセリフ
;-------------------------------------------------
SELECTCASE ARGS
;-------------------------------------------------
;初めてＶ潤がLV3超えた
;-------------------------------------------------
CASE "Ｖ潤LV3突破"
	;初めて
	IF FIRST_EV("Ｖ潤LV3突破") == 0
		;潤滑液を使った場合
		IF SELECTCOM == 260
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて欲情がLV3超えた
;-------------------------------------------------
CASE "欲情LV3突破"
	IF FIRST_EV("欲情LV3突破") == 0
		;媚薬を使った場合
		IF SELECTCOM == 261
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;初めて恥情がLV3超えた
;-------------------------------------------------
CASE "恥情LV3突破"
	IF FIRST_EV("恥情LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めて恐怖がLV3超えた
;-------------------------------------------------
CASE "恐怖LV3突破"
	IF FIRST_EV("恐怖LV3突破") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてC絶頂
;-------------------------------------------------
CASE "Ｃ絶頂"
	IF FIRST_EV("Ｃ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてV絶頂
;-------------------------------------------------
CASE "Ｖ絶頂"
	IF FIRST_EV("Ｖ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてA絶頂
;-------------------------------------------------
CASE "Ａ絶頂"
	IF FIRST_EV("Ａ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;初めてB絶頂
;-------------------------------------------------
CASE "Ｂ絶頂"
	IF FIRST_EV("Ｂ絶頂") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;C挑逗
;-------------------------------------------------
CASE "Ｃ挑逗"
	;初めて
	IF FIRST_EV("Ｃ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｃ挑逗
		IF NOWEX:Ｃ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｃ挑逗
		ELSEIF NOWEX:Ｃ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;V挑逗
;-------------------------------------------------
CASE "Ｖ挑逗"
	;初めて
	IF FIRST_EV("Ｖ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｖ挑逗
		IF NOWEX:Ｖ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｖ挑逗
		ELSEIF NOWEX:Ｖ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;A挑逗
;-------------------------------------------------
CASE "Ａ挑逗"
	;初めて
	IF FIRST_EV("Ａ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ａ挑逗
		IF NOWEX:Ａ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ａ挑逗
		ELSEIF NOWEX:Ａ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;B挑逗
;-------------------------------------------------
CASE "Ｂ挑逗"
	;初めて
	IF FIRST_EV("Ｂ挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;強絶頂Ｂ挑逗
		IF NOWEX:Ｂ绝顶前骤停 >= 2
			PRINTFORMW
		;絶頂Ｂ挑逗
		ELSEIF NOWEX:Ｂ绝顶前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;扶她射精挑逗
;-------------------------------------------------
CASE "射精挑逗"
	;初めて
	IF FIRST_EV("射精挑逗") == 0
		PRINTFORMW
	;２回目以降
	ELSE
		;大量射精挑逗
		IF NOWEX:射精前骤停 >= 2
			PRINTFORMW
		;射精挑逗
		ELSEIF NOWEX:射精前骤停
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;処女喪失(処女のみ)
;-------------------------------------------------
CASE "処女喪失"
	IF FIRST_EV("処女喪失") == 0
		;恋慕
		IF TALENT:恋慕
			;主人の性交による処女喪失
			IF PLAYER == MASTER && INSERT("Ｖ挿入")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;射精した(扶她/男性のみ)
;-------------------------------------------------
CASE "射精した"
	;初めて
	IF FIRST_EV("射精した") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;噴乳した(母乳体質のみ)
;-------------------------------------------------
CASE "噴乳した"
	;初めて
	IF FIRST_EV("噴乳した") == 0
		PRINTFORMW
	;二回目以降
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;絶頂放尿した
;-------------------------------------------------
CASE "絶頂放尿"
	;初めて
	IF FIRST_EV("絶頂放尿") == 0
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;抵抗无
		IF CHECK_COM("強制放尿") == 0
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｃ絶頂20以上
;-------------------------------------------------
CASE "Ｃ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｃ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｖ絶頂20以上
;-------------------------------------------------
CASE "Ｖ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｖ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ａ絶頂20以上
;-------------------------------------------------
CASE "Ａ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ａ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;-------------------------------------------------
;Ｂ絶頂20以上
;-------------------------------------------------
CASE "Ｂ絶頂20回以上"
	;初めて
	IF FIRST_EV("Ｂ絶頂20回以上") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;刻印変動をトリガーにした口上
;刻印変動後に口上を発動します
;-------------------------------------------------
@KOJO_MESSAGE_MARKCNG_K21, ARGS
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

SELECTCASE ARGS
;-------------------------------------------------
;苦痛刻印Lv3取得
;-------------------------------------------------
CASE "苦痛刻印Lv3取得"
	IF FIRST_EV("苦痛刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;快楽刻印Lv3取得
;-------------------------------------------------
CASE "快楽刻印Lv3取得"
	IF FIRST_EV("快楽刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;屈服刻印Lv3取得
;-------------------------------------------------
CASE "屈服刻印Lv3取得"
	IF FIRST_EV("屈服刻印Lv3取得") == 0
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;射精先選択時に表示する口上
;頻繁に表示されるため随机や表示条件の設定推奨です
;-------------------------------------------------
@KOJO_MESSAGE_SHOOT_K21
;初期は表示されないようにしてあるため、書いた後はRETURN 0を消す
RETURN 0

;恋慕
IF TALENT:恋慕
	PRINTFORMW
;それ以外
ELSE
	PRINTFORMW
ENDIF

;-------------------------------------------------
;PLAYERの射精＆絶頂をトリガーにした口上
;それぞれの射精分岐内での初めてかどうかの判定は、FIRST_EV(ARGS)で行う
;例）ELSEIF SHOOT("脚")において初めてかどうかは、FIRST_EV("絶頂：脚")で判定する
;-------------------------------------------------
@KOJO_MESSAGE_SAMEN_AND_EXTACY_K21
;助手が調教した時に口上をスキップする（好みに応じて使う、行頭の;を消すとスキップするようになる）
;SIF ASSIPLAY
;	RETURN 0

;-------------------------------------------------
;髪、顔、股間、腹、尻、くぱぁ、Ａくぱぁへのぶっかけ
;-------------------------------------------------
IF SHOOT("ぶっかけ")
	IF SHOOT("自慰")
		PRINTFORMW
	;超大量射精
	ELSEIF COND("絶頂", PLAYER) >= 3
		PRINTFORMW
	;大量射精
	ELSEIF COND("絶頂", PLAYER) == 2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;自慰で射精された(ぶっかけではなく床などに射精した)
;-------------------------------------------------
ELSEIF SHOOT("自慰")
	PRINTFORMW

;以下は通常の射精区分。
;-------------------------------------------------
;素股、足交や身体で射精させた
;-------------------------------------------------
ELSEIF SHOOT("脚")
	;初めて
	IF FIRST_EV("絶頂：脚") == 0
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	;二回目以降
	ELSE
		;恋慕
		IF TALENT:恋慕
			PRINTFORMW
		;それ以外
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ELSEIF SHOOT("素股")
	PRINTFORMW
;-------------------------------------------------
;口で射精させた
;-------------------------------------------------
ELSEIF SHOOT("口")
	;初めて
	IF FIRST_EV("絶頂：口") == 0
		PRINTFORMW
	;精液中毒Lv5
	ELSEIF ABL:精液中毒 >= 5
		PRINTFORMW
	;精液中毒Lv3
	ELSEIF ABL:精液中毒 >= 3
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;胸で射精させた
;-------------------------------------------------
ELSEIF SHOOT("胸")
	;初めて
	IF FIRST_EV("絶頂：胸") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3以上
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;手で射精させた
;-------------------------------------------------
ELSEIF SHOOT("手")
	;初めて
	IF FIRST_EV("絶頂：手") == 0
		PRINTFORMW
	;奉仕精神Lv5
	ELSEIF ABL:奉仕精神 >= 5
		PRINTFORMW
	;奉仕精神Lv3
	ELSEIF ABL:奉仕精神 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;性交で射精させた
;-------------------------------------------------
ELSEIF SHOOT("Ｖ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ｖ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
ELSEIF SHOOT("Ａ中出し")
	;初めて
	IF FIRST_EV("絶頂：Ａ中出し") == 0
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	;屈服刻印Lv3
	ELSEIF MARK:屈服刻印 == 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;接吻で射精
;-------------------------------------------------
ELSEIF SHOOT("接吻")
	PRINTFORMW
;-------------------------------------------------
;面部騎乗で射精
;-------------------------------------------------
ELSEIF SHOOT("面部騎乗")
	PRINTFORMW
;-------------------------------------------------
;洗面奶で射精
;-------------------------------------------------
ELSEIF SHOOT("洗面奶")
	PRINTFORMW
;-------------------------------------------------
;逆舐陰で射精
;-------------------------------------------------
ELSEIF SHOOT("逆舐陰")
	PRINTFORMW
;-------------------------------------------------
;逆肛交、逆強姦で射精
;-------------------------------------------------
ELSEIF SHOOT("逆強姦") || SHOOT("逆肛交") || SHOOT("肛門奉仕")
	PRINTFORMW
;-------------------------------------------------
;PLAYERが女で、イってしまった…
;-------------------------------------------------
ELSEIF SHOOT("調教者が女性")
	;強絶頂
	IF COND("絶頂", PLAYER) >= 2
		PRINTFORMW
	;絶頂
	ELSEIF COND("絶頂", PLAYER) == 1
		PRINTFORMW
	ENDIF
ENDIF

;-------------------------------------------------
;角色が調教中に調教者を攻める際などの口上
;-------------------------------------------------
@KOJO_COUNTER_K21, ARGS
SELECTCASE ARGS
CASE "恍惚"
	PRINTFORMW
CASE "推倒"
	PRINTFORMW
CASE "強制終了"
	PRINTFORMW
CASE "復活"
	PRINTFORMW
CASE "恍惚から復帰"
	PRINTFORMW
CASE "助手が限界"
	PRINTFORMW
ENDSELECT

RETURN 1

;-------------------------------------------------
;イベント口上集
;-------------------------------------------------
@KOJO_EVENT_K21, ARGS
SELECTCASE ARGS
;-------------------------------------------------
;調教終了不可能
;-------------------------------------------------
CASE "調教終了不可能"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;避孕套装着
;-------------------------------------------------
CASE "Ｖ避孕套装着"
	;挿入指令
	IF TRAIN_GENRE("挿入", SELECTCOM)
		;PLAYヤーは着ける気満々
		IF TEQUIP:PLAYER:避孕套

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0

		;安全日に生希望
		ELSEIF COND("安全日")

		;安全日じゃないけど避孕套没有を希望
		ELSE

		ENDIF
	;PLAYヤーへの挿入指令
	ELSEIF TRAIN_GENRE("逆挿入", SELECTCOM)
		;PLAYヤーは着けてもらうの希望
		IF TEQUIP:避孕套

		;避孕套が無い
		ELSEIF ITEM:避孕套 == 0

		;安全日に生希望
		ELSEIF COND("安全日", PLAYER)

		;安全日じゃないけど避孕套没有を希望
		ELSE

		ENDIF
	ENDIF

;-------------------------------------------------
;調教後自慰
;-------------------------------------------------
CASE "調教後自慰"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;自慰中毒Lv3以上
	ELSEIF ABL:自慰中毒 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;レズPLAY
;-------------------------------------------------
CASE "調教後レズPLAY"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;調教後性交
;-------------------------------------------------
CASE "調教後性交"
	;V感覚Lv4以上
	IF ABL:Ｖ感覚 >= 4
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭騎乗位
;-------------------------------------------------
CASE "夜袭騎乗位"
	;V感覚Lv5以上
	IF ABL:Ｖ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;夜袭Ａ騎乗位
;-------------------------------------------------
CASE "夜袭Ａ騎乗位"
	;Ａ感覚Lv5以上
	IF ABL:Ａ感覚 >= 5
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-----------------------------
;夜袭接吻
;----------------------------
CASE "夜袭接吻"
	;M感覚Lv3以上
	IF ABL:Ｍ感覚 >= 3
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;添い寝
;-------------------------------------------------
CASE "添い寝"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	;それ以外
	ELSE
		PRINTFORMW
	ENDIF

;-------------------------------------------------
;清洁口交
;-------------------------------------------------
CASE "清洁口交"
	SELECTCASE TFLAG:口上分岐
	;お掃除前
	CASE 0
		PRINTFORMW
	;お掃除中
	CASE 1
		PRINTFORMW
	;お掃除で射精しなかった
	CASE 2
		PRINTFORMW
	;お掃除で射精しそう？
	CASE 3
		PRINTFORMW
	;射精した
	CASE 4
		PRINTFORMW
	;お掃除で射精後
	CASE 5
		PRINTFORMW
	ENDSELECT
;-------------------------------------------------
;脱衣
;-------------------------------------------------
CASE "自発脱ぎ"
	;裸体变成了
	IF CHECK_CLO("裸体")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;阴部剥きだし
	ELSEIF CHECK_CLO("Ｖ露出")
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;部分脱ぎ
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;妊娠した
;----------------------------------------------------------------
CASE "妊娠発覚"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;出産した
;----------------------------------------------------------------
CASE "出産"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;兒童が大きくなった
;----------------------------------------------------------------
CASE "子出口"
	;出産経験
	IF TALENT:出産経験
		PRINTFORMW
	;恋慕
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;性交後に抜いた時
;----------------------------------------------------------------
;恥ずかしいところを見せてくれる
;----------------------------------------------------------------
CASE "中出し後くぱぁ"
	;恋慕
	IF TALENT:恋慕
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		;避孕套有些
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
;----------------------------------------------------------------
;恥ずかしいところを見せてくれない
;好感度が高いと起きないので、恋慕で分岐させる意味はない。
;また、不知羞恥ならば発生しない
;----------------------------------------------------------------
CASE "中出し後害羞"
	PRINTFORMW
;----------------------------------------------------------------
;精液を味わう
;----------------------------------------------------------------
CASE "中出し後精液掻き出し"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;気持ちよくてぐったり
;----------------------------------------------------------------
CASE "中出し後恍惚"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ保存
;-------------------------------------------------
CASE "ビデオ保存"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却
;-------------------------------------------------
CASE "ビデオ売却"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;-------------------------------------------------
;ビデオ売却失敗
;-------------------------------------------------
CASE "ビデオ売却失敗"
	;恋慕
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;----------------------------------------------------------------
;塞子をしていない状態での液体浣腸口上
;----------------------------------------------------------------
CASE "无塞浣腸事件"
	;限界値突破時
	IF BASE:排泄欲 >= 10000
		;限界値を超えたが漏らせない場合
		IF INSERT("Ａ挿入") || COND("肛門栓")
			PRINTFORMW
		;漏らす直前
		ELSE
			PRINTFORMW
		ENDIF
	;漏らした
	ELSEIF NOWEX:排泄
		PRINTFORMW
	;我慢しているときの口上
	ELSEIF TEQUIP:浣腸
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;吸能
;----------------------------------------------------------------
CASE "吸能"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;調教者がちんこを挿入する前に射精してしまった！
;----------------------------------------------------------------
CASE "挿入前暴発"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;----------------------------------------------------------------
;特殊な道具を使った際の台詞
;----------------------------------------------------------------
CASE "避妊の護符"
	;初めて
	IF FIRST_EV(ARGS) == 0
		PRINTFORMW
	ELSEIF TALENT:恋慕
		;装着
		IF TALENT:避妊の護符
			PRINTFORMW
		;取り外し
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:避妊の護符
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

CASE "扶她薬"
	;扶她变成了
	IF TALENT:扶她
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	RETURN 1
CASE "黑色ドロップ"
	;男性变成了
	IF TALENT:男性
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "巨根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	;馬根
	CASE 3
		PRINTFORMW
	CASE 4
		PRINTFORMW
	CASE 5
		PRINTFORMW
	;CASEELSE
	;	PRINTFORMW
	ENDSELECT
CASE "縮根薬"
	;薬を使用した後の状態で分岐
	SELECTCASE SIZE("阴茎")
	;小
	CASE 0
		PRINTFORMW
	;並
	CASE 1
		PRINTFORMW
	;巨根
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "剥皮薬"
	;薬を使用した後の状態で分岐
	IF COND("假性包茎")
		PRINTFORMW
	;ずる剥け
	ELSE
		PRINTFORMW
	ENDIF
CASE "伸皮薬"
	;薬を使用した後の状態で分岐
	IF COND("真性包茎")
		PRINTFORMW
	ELSEIF COND("假性包茎")
		PRINTFORMW
	ENDIF
CASE "豊胸薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳
	CASE 0
		PRINTFORMW
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	;超乳
	CASE IS >= 3
		PRINTFORMW
	ENDSELECT
CASE "貧乳薬"
	;薬を使用した後の状態で分岐
	SELECTCASE TALENT:巨乳
	;並乳以下
	CASE 0
		IF TALENT:貧乳
			PRINTFORMW
		;並乳
		ELSE
			PRINTFORMW
		ENDIF
	;巨乳
	CASE 1
		PRINTFORMW
	;爆乳
	CASE 2
		PRINTFORMW
	ENDSELECT
CASE "巨人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:高大
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "小人の薬"
	;薬を使用した後の状態で分岐
	IF TALENT:娇小
		PRINTFORMW
	;普通身高
	ELSE
		PRINTFORMW
	ENDIF
CASE "虹の薬"
	;薬を使用した後の状態で分岐
	SELECTCASE CONDS("肤色")
	CASE "褐色肌"
		PRINTFORMW
	CASE "色白"
		PRINTFORMW
	CASE "青肌"
		PRINTFORMW
	;普通
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "桃尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻 >= 2
		PRINTFORMW
	ELSEIF TALENT:巨尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF
CASE "小尻薬"
	;薬を使用した後の状態で分岐
	IF TALENT:巨尻
		PRINTFORMW
	ELSEIF TALENT:小尻
		PRINTFORMW
	;普通の尺寸
	ELSE
		PRINTFORMW
	ENDIF

ENDSELECT

;-------------------------------------------------
;TARGET以外の立場で呼ばれた時の台詞全般
;-------------------------------------------------
@KOJO_GUEST_K21, ARGS
SELECTCASE ARGS
CASE "調教相手に選ばれた"

CASE "助手に抜擢"
	;初めて
	IF EXP:助手経験 == 0

	ELSE

	ENDIF

CASE "助手：主人に清洁口交"

CASE "助手：partnerに清洁舔阴"

CASE "助手：partnerに清洁舔A"

CASE "助手：主人にＰ恥垢清洁口交"

CASE "助手：撮影開始"

CASE "助手：調教開始前の準備後台詞"

CASE "室内調教：登場台詞"

CASE "室内調教：ギャラリー増加台詞"

CASE "室内調教：感想台詞"

CASE "助手で性処理：おあずけ"

CASE "助手で性処理"

CASE "助手で性処理：事後"

;COND("精液の優勢")で誰の兒童を孕んでしまったかを判定できます
;名前を出したい時には%COND("精液の優勢")%を用いてください
CASE "受精確認"

ENDSELECT

;-------------------------------------------------
;@単体エンディング関係(21を角色番号に置換)
;通常のエンディング格子の前に個別エンディングを判定
;-------------------------------------------------
;
;
;
;
;
;
;
;
;
;
;★ここから先にはエンディングが記述されています★
;ネタバレを避けたい方は閲覧不会うにご注意下さい。
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
@IS_SINGLE_ENDING_K21
;エンディングを書いたら、下のRETURN 1のコメントアウト;を消してください
;RETURN 1

path: ERB/EVENT_K/21 祥子/EVENT_K21.ERB


code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K21, ARGS

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CSTR:胖次 = 胖次/白/
	CSTR:胸罩 = 文胸/白/

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CALL SET_OTHER, "髪卡"

;学園での便装です。設定必須です
CASE "制服"
	CALL SET_COSTUME, "西装外衣"
	CSTR:襪子 = スリークォーターズ/
	CSTR:靴 = 紺色の小皮靴/直到脚腕/
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服运动衫"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	IF COND("冬")
		CALL SET_SHIRT, "针织露肩衣"
		CALL SET_SKIRT, "長裙"
		CALL SET_SOCKS, "短袜"
		CALL SET_SHOES, "短筒女靴"
		CALL SET_OTHER, "披肩/织布外套"
		CALL SET_BRA, "吊帯衫"
	ELSE
		CALL SET_SHIRT, "蝴蝶結露肩外衣"
		CALL SET_SKIRT, "開衩長裙"
		CALL SET_SHOES, "无后跟鞋"
	ENDIF

;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"

ENDSELECT

path: ERB/EVENT_K/21 祥子/EVENT_K21_CLOTHES.ERB

license: unknown


code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K21, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝騎乗位"
		SIF EXP_GAIN("射精経験", PLAYER)
			CALL PRINT_STR, "「啊啊……_H_」_W"
	ENDSELECT

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
	;	RETURN 1

	IF COND("発情期")
			PRINTFORML 「……您好。」
			PRINTFORMW %CALLNAME:TARGET%尾巴上的火焰摇曳闪烁、她低下頭弱弱地向你打招呼。
	ELSEIF COND("体育")
		PRINTFORML 「%CNAME("二人称")%的班级好像要上体育课呢。」
		IF RAND:2
			PRINTFORMW 「待会儿我给你倒杯茶吧？」
		ELSE
			PRINTFORMW 「我会从教室看着你的、就让我看看。%CNAME("二人称")%帅气的样子吧。呼呼♪」
		ENDIF
	ELSE
		IF RAND:3 == 0 && TEXTS("曜日") != "日"
			PRINTFORML 「你看起来都要睡着了、要来拉住我的手吗？」
			PRINTFORMW 「被凭依了之后我好像变得更快了。比平时走路要快很多哦。」
		ELSEIF RAND:2
			PRINTFORMW 「早上好！%CNAME("二人称")%、今天也是好天气呢。」
		ELSE
			PRINTFORML 「好像还很困呢。我来帮你清醒一下。」
			PRINTFORML %CALLNAME:TARGET%从包中取出喷雾器、直接喷在满脸困意的%CALLNAME:MASTER%脸上。
			PRINTFORMW 「啊、之后还要擦干呢、先不要动哦。」
		ENDIF
	ENDIF
CASE "一番乗り"
		IF COND("発情期")
			PRINTFORML 「啊、%CNAME("二人称")%。」
			PRINTFORML %CALLNAME:TARGET%湿润的眼瞳看向了%CALLNAME:MASTER%、尾巴上的火焰因情欲高涨而更加热烈、但她很快又沉默着低下頭去。
		ELSE
			PRINTFORML 「看起来、是%CNAME("一人称")%第一个到呢。」
			PRINTFORMW 「呼呼、要独占%CNAME("二人称")%了呢。」
		ENDIF
CASE "ただいま"
		IF COND("発情期")
			PRINTFORML 「……我回来了。」
			PRINTFORMW 摇晃着燃烧的尾巴、%CALLNAME:TARGET%声如蚊蚋地打着招呼。
		ELSE
			PRINTFORML 「我回来了。」
			PRINTFORMW %CALLNAME:TARGET%爽朗地声音响彻了整个房间。
		ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF COND("発情期")
			PRINTFORML 「……欢迎回来、%CNAME("二人称")%。」
			PRINTFORML %CALLNAME:TARGET%抱住了自己的尾巴规规矩矩地打着招呼。
			PRINTFORMW 喘息却无法抑制地粗重起来、于尾巴上燃烧的火焰中弥散出粉色的烟雾。
		ELSE
			PRINTFORML 「来了、欢迎回来、%CNAME("二人称")%♪」
			PRINTFORML 「现在、正在准备料理呢、稍等一下哦。」
			PRINTFORMW 正在做饭的%CALLNAME:TARGET%穿着围裙迎接了%CALLNAME:MASTER%。
		ENDIF
	;部室で出迎えてくれる時
	ELSE
		IF COND("発情期")
			PRINTFORML 「那个、%CNAME("二人称")%……不、什么都没有。」
			PRINTFORMW 坐在椅子上的%CALLNAME:TARGET%紧抓着裙边好像在忍耐着什么。
		ELSE
			PRINTFORML 「太晚了啊。%CNAME("二人称")%」
			PRINTFORMW 「今天也要開心地进行社团活动哦。」
		ENDIF
	ENDIF

CASE "入室打招呼"
PRINTFORMW 「抱歉、我迟到了。」

;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「对不起、我迟到了！早上好。」
	ELSE
		PRINTFORMW 「早上好。」
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う
	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		;老师を発言者として選び直す
		ACTOR = FIND_COND("教員", "入室打招呼中")
		CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%
		IF RAND:2
			PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%老师。早上好。』
		ELSE
			PRINTFORMW 『啊、%CNAME(CALLNAME_ACTOR)%老师。这是昨天寄存在我这的打印件。』
		ENDIF
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		IF COND("易出汗", ACTOR) && RAND:2
			PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%。出了好多汗呢。发生什么了吗？』
		ELSE
			PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%。早上好。』
		ENDIF
	ELSEIF CFLAG:茶 == 0 && RAND:2 && (COND("弗理希艾尔", ACTOR) || COND("卡莉斯塔", ACTOR) )
		PRINTFORML 『%CNAME(CALLNAME_ACTOR)%。おはようございます。』
		PRINTFORMW 『是要沏茶对吗？我来帮忙吧。』
		CALL SETFLAG_DAILY, "茶"
	ELSE
		PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%。早上好。』
	ENDIF

CASE "抜け出された"
	IF COND("発情期")
		PRINTFORML 「……还是没能……说出口吗……。」
		PRINTFORMW %CALLNAME:TARGET%望着自己尾巴上发狂的火焰、叹了口气。
	ELSE
		PRINTFORML 「……那是去了吧。完全暴露了啊。那两个人。」
		PRINTFORMW 「即使这样……好羡慕啊。」
	ENDIF

CASE "便当"
	IF RAND:5 == 0
		PRINTFORML 「今天我用水壶装了些蛤蜊味增汤哦。」
		PRINTFORMW 「呼、呼、好了、%CNAME("二人称")%。趁着还没凉快尝尝吧。」
	ELSEIF RAND:4 == 0
		PRINTFORML 「偶尔用苹果当点心也不错吧？」
		PRINTFORML %CALLNAME:TARGET%从粉色的便当盒中取出切好的苹果、递到了%CALLNAME:MASTER%的嘴边。
		PRINTFORMW 「来、%CNAME("二人称")%、啊～～～嗯♪」
	ELSEIF RAND:3 == 0
		PRINTFORML 「还没有吃饱吗？那就交给%CNAME("一人称")%吧。」
		PRINTFORMW %CALLNAME:TARGET%的手中托着两块烟熏乳酪。
		PRINTFORML 「没能填饱%CNAME("二人称")%的肚子是%CNAME("一人称")%的责任、所以请用吧！」
		PRINTFORML 「啊、但是、要是把这个交出去了、%CNAME("一人称")%的下午茶就……。」
		PRINTFORML %CALLNAME:TARGET%烦恼了好一阵、还是把其中一块递给了%CALLNAME:TARGET%。
		PRINTFORMW 「呜呜、再见了、%CNAME("一人称")%的烟熏乳酪。」
	ELSEIF RAND:2
		PRINTFORML 「怎么样？好吃吗？」
		PRINTFORML 看到%CALLNAME:TARGET%充满期许的目光、%CALLNAME:MASTER%嗯嗯地点了点頭。
		PRINTFORML 新鲜的番茄和生菜、味道浓郁的乳酪和火腿、再加上松软的面包、确实是非常美味的三明治、
		PRINTFORML 虽然很好吃、但就算加上鸡蛋、便当盒中的颜色也明显偏黄。
		PRINTFORMW 「真的吗？如果喜欢的话我还有准备芝士粉哦、不用客气尽情品尝吧♪」
	ELSE
		PRINTFORML 「像这样两个人一起吃便当、好像没什么问题呢。」
		PRINTFORML %CALLNAME:TARGET%望着燃烧的尾巴叹了口气。
		PRINTFORML 大概是正对没有发生变化的现实感到无奈吧。
		PRINTFORMW 这样想着的%CALLNAME:MASTER%搂住了%CALLNAME:TARGET%的肩膀。
		PRINTFORML 「啊、%CNAME("二人称")%总是支撑着%CNAME("一人称")%呢。」
		PRINTFORMW 「明明还想由%CNAME("一人称")%来成为你的支柱呢。」
	ENDIF
ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K21, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「各位部员。请多関照！」
CASE "浑身是汗"
	PRINTFORML 「今天真热呢、好想去洗澡啊。」
CASE "刚睡醒"
	PRINTFORML 「对不起、还是、好困……zzz」
	PRINTFORML %CALLNAME:TARGET%捂着嘴打了个哈欠、伸着懒腰。
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K21
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML (%CNAME("二人称")%的话语还在我的心中回响。谢谢你。%CNAME("二人称")%)
CASE "契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML 「居然瞒着大家、两个人出門独处。呼呼♪」
	PRINTFORML %CALLNAME:TARGET%笑眯眯地跟在%CALLNAME:MASTER%的身后。
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「难道说、看到了吗？」
	PRINTFORML 「喂、你那样遮遮掩掩的、本来能蒙混过去的事也会暴露的吧。真是的。」
	PRINTFORML 但%CALLNAME:TARGET%看起来似乎并不怎么在意。
CASE "掀起裙子"
	PRINTFORML 「呀啊、这～样～！不行的哦！」
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 6
			PRINTFORML 「这个就在那边、那个放在这里。」
			PRINTFORML 「呼、终于结束了。买了那么多。整理起来也很麻烦呢。」
		CASEELSE
			PRINTFORML (又变得躁动不安了、是因为在那家店里逛太久了吗？)
		ENDSELECT
	;ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	SELECTCASE SAVESTR:標語
	CASE "注意口渴"
		IF DEVENT("標語茶") == 0
			PRINTFORML 「您有需求吗？茶包里还有运动饮料、碳酸饮料和梅干哦」
			PRINTFORM 「%CNAME("弗理希艾尔")%
		SIF COND("現在存在", FINDCHARA(NO, 20))
			PRINTFORM 或 %CNAME("卡莉斯塔")%
			PRINTFORML 应该对茶和茶点已经有所准备、不过这也是为了以防万一嘛。」
			PRINTFORML %CALLNAME:TARGET%似乎考虑了很多。
			CALL SET_DEVENT, "標語茶"
		ENDIF
	CASE "体操服はやっぱり布鲁马"
		IF DEVENT("標語布鲁马") == 0
			PRINTFORML 「因为只有比较小尺寸的体操服、穿起来不是很合适啊。」
			PRINTFORML 小小的布鲁玛勒紧%CALLNAME:TARGET%的臀部、强调着大腿的肉感。
			CALL SET_DEVENT, "標語布鲁马"
		ENDIF
	CASE "学生服は露脐装超短裙に限る"
		IF DEVENT("標語露脐装超短裙") == 0
			PRINTFORML 「%CNAME("一人称")%还以为迷你裙会是怎样的、呼呼、感觉还不错嘛。」
			PRINTFORML %CALLNAME:TARGET%高兴地在镜子前摆起了姿势。
			CALL SET_DEVENT, "標語露脐装超短裙"
		ENDIF
	ENDSELECT
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。書いたらコメントアウトを外してください
;CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0 && FIND_COND("現在存在", "弗理希艾尔")
	PRINTFORML 『真没想到会有人相信那种不知廉耻的传闻而找到这里来呢。』
	PRINTFORML 「%CNAME("弗理希艾尔")%、是你散播的传闻吧。难以置信。果然是恶魔啊。」
	PRINTFORML 『说的是呢、本来就是恶魔啦。不过也多亏了传闻才能把你钓到手了呢。』
	PRINTFORML 『流泻而出的灵魂之汁即是甘露、在淫靡溃烂缠身的尽頭、你将獲得救赎。』
	PRINTFORML 『再这样拖延下去会被吸引来的可就不仅仅是下级恶魔了哦。』
	PRINTFORML 「欸、只是、这样？%CNAME("一人称")%听到的传闻明明要更加下流……。」
	PRINTFORML 『诶~、那是怎样的传闻呢？』
	PRINTFORML 看到露出玩味笑容向她提问的弗里希艾尔、才注意到自己失言了的%CALLNAME:TARGET%满脸通红地低下頭去。
	CALL SET_DEVENT, "質問１"
ENDIF
IF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「诶、我的尾巴？很不可思议吧、这个。」
	PRINTFORML %CALLNAME:TARGET%为了让%CALLNAME:MASTER%看得更清楚、把尾巴伸了过来。
	PRINTFORML 在尾巴末端摇曳燃烧着的红色火焰、正在彰显着自己的存在感。
	PRINTFORML 被勾起兴趣的%CALLNAME:MASTER%试着去触摸那火焰。
	PRINTFORML 那火焰随着%CALLNAME:MASTER%的动作而改变形状、但却几乎没有什么温度。
	PRINTFORML 「好像不会影响到别的事物呢。被子也没有被点着过。」
	PRINTFORML 感受着火焰摇摇晃晃的触感、忽然升起了一种想要破坏什么的情绪。
	PRINTFORML 「嗯唔、%CNAME("二人称")%。总感觉眼神好恐怖啊？」
	PRINTFORML 当%CALLNAME:TARGET%把尾巴一把收回去的时候、%CALLNAME:MASTER%那破坏性的冲动就瞬间烟消云散了。
	PRINTFORML 「唔、究竟是什么情况啊？这条尾巴。」
	CALL SET_DEVENT, "質問２"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
;	PRINTFORML
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;時間帯と場所と関係で変化有些
SIF RAND:2
	Call TaiTaChara_K21

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など
IF COND("発情期")
	IF RAND:2
		PRINTFORML 发情中的%CALLNAME:TARGET%两眼无神地发着呆、一味地舔着奶酪。
	ELSE
		PRINTFORML 「烟、冒出来了。%CNAME("一人称")%、就要这样消失了啊……。」
		PRINTFORML %CALLNAME:TARGET%一边看着自己的尾巴一边自言自语。
	ENDIF
ELSEIF COND("夜") || PLACE("自宅")
	IF RAND:4 == 0 && (FIND_COND("弗理希艾尔", "現在存在") || FIND_COND("卡莉斯塔", "現在存在") )
		PRINTFORML 「如果做家务有什么忙不过来的地方、请不要客气地来找我哦。」
		PRINTFORML 「一直给您添麻烦真的很抱歉。」
	ELSEIF RAND:3 == 0
		PRINTFORML %CALLNAME:TARGET%在书桌上展開%TEXTR("国語/日本史/数学/化学/英語")%的参考书和笔记本、開始学习。
	ELSEIF RAND:2 == 0
		PRINTFORML 「厨房借我用一下哦～。」
		PRINTFORML %CALLNAME:TARGET%拿着%TEXTR("奶油乳酪/薄力粉/黄油/鸡蛋/洋酒")%走进了厨房。
	ELSE
		PRINTFORML 「单抽卷还有5枚、石頭还剩5000。怎样、会出吗！……啊。」
		PRINTFORML %CALLNAME:TARGET%似乎正在用手机玩社交游戏。
		;足りません
	ENDIF
ELSEIF PLACE("部室")
	IF RAND:2
		PRINTFORML %CALLNAME:TARGET%正在房间里%TEXTR("更换垃圾袋/擦拭桌子/擦拭窗户/清扫地板/给花瓶换水")%
	ELSE
		PRINTFORML 「大家、我做了些%TEXTR("芝士蛋糕/裱花蛋糕/巧克力蛋糕/瑞士卷/冰淇淋")%。可以的话请尝一尝吧。」
		PRINTFORML %CALLNAME:TARGET%从装有充足保冷剂的冷藏盒中取出了%TEXTR("芝士蛋糕/裱花蛋糕/巧克力蛋糕/瑞士卷/冰淇淋")%、并分给了部员们。
	ENDIF
ELSE
	PRINTFORML 「单抽卷还有5枚、石頭还剩5000。怎样、会出吗！……啊。」
	PRINTFORML %CALLNAME:TARGET%似乎正在用手机玩社交游戏。
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K21
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	IF RAND:2
		PRINTFORML 「唔~嗯……呜喵呜喵……」
	ELSE
		PRINTFORML 「ZZZ……」
	ENDIF
ELSEIF RAND:2
	IF RAND:2
		PRINTFORML 「书……不还的话……」
	ELSE
		PRINTFORML 「欸嘿嘿……好大……这样的话……才不会……输给大家」
	ENDIF
ELSE
;ネズミなので狐や犬や猫に食べられる夢
	IF RAND:5 && FIND_COND("六華")
		PRINTFORML 「好黑……好害怕……会融化的……我我会、做个好孩子的……」
	ELSEIF RAND:4 && FIND_COND("哈娜")
		PRINTFORML 「呜呜……%CALLNAME:FIND_COND("哈娜")%小姐……饶了我吧……不要咬啊……」
	ELSEIF RAND:3 && FIND_COND("アイリ")
		PRINTFORML 「%CALLNAME:FIND_COND("アイリ")%……放開啊……我……一点也、不好吃啊……」
	ELSEIF RAND:2 && FIND_COND("濡烏の君")
		PRINTFORML 「被什么……吸住了……狐火……好热啊……」
	ELSE
		PRINTFORML 「咿呀……不要吃我啊……」
	ENDIF
	PRINTFORML 做噩梦了啊。好像是个正在被谁捕食的梦。
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K21, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"
	;地の文を出す
	CALL DAILY_MESSAGE, "归途"
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF BASE:欲求不満 >= 100
			PRINTFORML 「啊、什么都……不做……吗？」
			PRINTFORML 「那样的话、%CNAME("一人称")%就回自己的房间了。」
			PRINTFORML 「记得不要……打開哦」
			PRINTFORMW %CALLNAME:TARGET%满脸通红、迈着踉踉跄跄的步伐回了自己的房间。
		ELSEIF COND("発情期")
			PRINTFORML 火鼠尾巴上的火焰正旺盛燃烧、粉色的烟雾一阵阵的飘散、看到%CALLNAME:TARGET%那副模样、%CALLNAME:MASTER%还是抱歉地说自己累了、想要去休息一下。
			PRINTFORML 「我……知道了。%CNAME("二人称")%、什么都不用做哦。」
			PRINTFORML %CALLNAME:TARGET%站起身，摇摇晃晃地走到%CALLNAME:MASTER%的面前蹲下。
			PRINTFORML 「由%CNAME("一人称")%来做。%CNAME("二人称")%坐在那里就好了。」
			PRINTFORML %CALLNAME:TARGET%的手搭上了%CALLNAME:MASTER%的大腿、正想将裤链拉下。
			PRINTFORML ……怎么办？
			CALL PRINT_SELECT, "顺其自然/将她甩開"
			IF RESULT == 0
				PRINTFORML 火鼠的烟雾好像对%CALLNAME:MASTER%也起了作用、%CALLNAME:TARGET%温柔地取出了%CALLNAME:MASTER%已经勃起的肉棒。
				PRINTFORML 「那么、我開动了。」
				PRINTFORMW %CALLNAME:TARGET%将%CALLNAME:MASTER%的肉棒含入口中、用舌頭仔细地侍奉着。
				PRINTFORML
				PRINTFORML 「怎莫样、感觉、酥糊吗？」
				PRINTFORMW 看到%CALLNAME:TARGET%抬眼看着%CALLNAME:MASTER%的样子、%CALLNAME:MASTER%吓了一跳、立刻甩開了%CALLNAME:TARGET%。
				PRINTFORML 「呼呼、要射出来了吗？%CNAME("二人称")%。明明就这样射出来也可以的。」
				PRINTFORMW %CALLNAME:TARGET%保持被动的姿势、带着冷淡的笑容抬頭看着%CALLNAME:MASTER%。
				PRINTFORML
				PRINTFORML 「%CNAME("一人称")%是属于%CNAME("二人称")%的东西、再粗暴一些……也没関系哦？」
				PRINTFORML 刚刚还在侍奉的%CALLNAME:TARGET%的口中、满是唾液和%CALLNAME:MASTER%先走液的混合物、淫乱的粘液正于嘴角零落、
				PRINTFORML 像是再挑逗着%CALLNAME:MASTER%、%CALLNAME:TARGET%的手指从早已濡湿的秘裂上划过、淫乱的爱液沾满了%CALLNAME:TARGET%的手指。
				PRINTFORMW %CALLNAME:TARGET%那一反常态的挑衅和蛊惑的态度、让%CALLNAME:MASTER%的理智燃烧殆尽、将她按倒在地。
				TFLAG:床イン = 1
			ELSE
				PRINTFORML 「对……不起……。」
				PRINTFORMW 「晚安、%CNAME("二人称")%……」
			ENDIF
		ELSE
			PRINTFORMW 「那要不要一起看电影。但是稍微有点恐怖啊。」
		ENDIF

	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		IF COND("発情期")
			PRINTFORML 「那个、今、今天！不觉得很热吗！」
			PRINTFORML 「要是热的话就不得不脱呢！快点脱掉吧。来吧！」
			PRINTFORMW %CALLNAME:TARGET%要强行解開%CALLNAME:MASTER%衣服的扣子。
			PRINTFORML ……怎么办？
			CALL PRINT_SELECT, "顺其自然/将她甩開"
			IF RESULT == 0
				PRINTFORML 终于被脱得全身精光的%CALLNAME:MASTER%、被同样不着一缕的%CALLNAME:TARGET%充满爱意地抱住。
				PRINTFORML 「诶、你说没必要全都脱掉、吗？」
				PRINTFORMW 「你真的相信、那种借口吗。真是坏心眼。」
				TFLAG:床イン = 1
			ELSE
				PRINTFORMW 「啊、对不起。%CNAME("一人称")%真是。」
			ENDIF
		ELSE
			PRINTFORML 「要在这里休息吗？什么都不做？」
			PRINTFORMW 「是、是吗、辛苦了。」
		ENDIF
	;場所移動後
	ELSE
		PRINTFORML 「要在这里休息吗？什么都不做？」
		PRINTFORMW 「是、是吗、辛苦了。」
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好
	ENDIF
		SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「啊、呃~、那个、%GREETING%」
			PRINTFORMW 「%CNAME("二人称")%、比想象的要热情呢。」
		ELSEIF COND("発情期")
			PRINTFORML 「%GREETING%。那个、能、离我远一些吗。」
			PRINTFORML 「光是这么近距离感受到%CNAME("二人称")%的气味就要忍不住了。」
			PRINTFORMW 「这样下去的话、%CNAME("一人称")%就、会变地比平时更加渴求你了。」
		ELSEIF COND("易出汗")
			PRINTFORMW 「%GREETING%。那个、%CNAME("一人称")%现在满身汗臭」
			IF COND("易出汗", MASTER)
				PRINTFORML 「什么、%CNAME("二人称")%也一样……我不是在说那种事啦」
				PRINTFORML (呜呜、因为%CALLNAME:MASTER%的味道、脑袋要变得奇怪起来了……。)
				PRINTFORMW %CALLNAME:TARGET%有些抵触但还是接受了拥抱。
			ELSE
				PRINTFORML 「真是、让人没办法的家伙啊。」
				PRINTFORMW (ううっ%CALLNAME:MASTER%の气味で頭がどうにかなってしまいそう……。)
			ENDIF
		ELSE
			PRINTFORML 「%GREETING%。%CNAME("二人称")%」
			PRINTFORMW 「能被这样迎接、总感觉好高兴。」
		ENDIF
	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「啊~那个、%GREETING%。%CNAME("二人称")%。」
			PRINTFORML 「总感觉像电影里一样……这个……。」
			PRINTFORMW %CALLNAME:TARGET%似乎不敢正视%CALLNAME:MASTER%的脸。
		ELSEIF COND("発情期")
			PRINTFORML 「嗯……哈啊……嗯嗯……呼啊~」
			PRINTFORML %CALLNAME:TARGET%紧贴着%CALLNAME:MASTER%的身体激烈地唇舌相交。
			PRINTFORML 「呼呼、立起来了呢。%CNAME("一人称")%体内的%CNAME("二人称")%的肉棒」
			PRINTFORMW 「早上好。%CNAME("一人称")%、也准备好了哦。」
		ELSEIF RAND:2
			PRINTFORML 「嗯……啊、已经结束了吗！？」
			PRINTFORML 「不、并不是不够、但是、还差一点……」
			PRINTFORMW 「真是的、不要用%CNAME("一人称")%的反应来取乐嘛！」
		ELSE
			PRINTFORML 「嗯……%GREETING%。」
			PRINTFORMW 「哈啊~、心脏都要跳出来了。」
		ENDIF
	CASE "打招呼口交", "打招呼舐陰"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「诶、啊、诶？」
			PRINTFORML 「咿、咿呀啊啊啊啊ーーー。」
			PRINTFORML %CALLNAME:MASTER%心如钢铁、毫不动摇地接受%CALLNAME:TARGET%那从天而降的拳頭
			PRINTFORMW 相比之下品味那里微微濡湿的味道更加重要。
		ELSEIF COND("発情期")
			CALL PRINT_STR, "「今天有点、哦嗯~_HH_」_L"
			PRINTFORML 正被灼热的欲火折磨的%CALLNAME:TARGET%的身体、在%CALLNAME:MASTER%的刺激下轻松到达了高潮、
			PRINTFORMW 喷涌而出的爱液落在%CALLNAME:MASTER%的脸上。
			PRINTFORML 「你看起来很開心呢。大变态老师。不过最喜欢这样的%CNAME("二人称")%了。」
			PRINTFORML 「不去那边继续吗？把这里弄脏了就麻烦了。」
			CALL PRINT_STR, "「作为发情伙伴、一起慢慢地、享受吧。_HH_」_W"
		ELSE
			PRINTFORML 「这个、是那个孩子的原因、不是%CNAME("一人称")%的意愿啊。」
			PRINTFORML 平时就在忍耐着火鼠带来的性欲的%CALLNAME:TARGET%、为了追求%CALLNAME:MASTER%舔舐的快感而扭起了腰。
			PRINTFORMW 「做了这种事情、已经不能算是打招呼了啊！」
		ENDIF
	CASEELSE
			PRINTFORMW 「%GREETING%。%CNAME("二人称")%。」
	ENDSELECT
CASE "叫醒"
	PRINTFORMW 「……诶、啊%CNAME("一人称")%在哦。早上好。%CNAME("二人称")%。」
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		PRINTFORML 「非常、感谢。」
		PRINTFORMW 「呼呼、这么夸我的话、会害羞啦。」
	CASE "甜言蜜语"
		IF TALENT:恋慕
			IF RAND:3
				PRINTFORMW 「呼呼、%CNAME("一人称")%也最喜欢%CNAME("二人称")%了。」
			ELSEIF RAND:2
				PRINTFORML 「等下、是不是有些过奖了？」
				PRINTFORMW 「到底在期待些什么啊。%CNAME("二人称")%啊。」
			ELSE
				PRINTFORML 「非常感谢。」
				PRINTFORMW %CALLNAME:TARGET%将身体贴了过来、抱住了%CALLNAME:MASTER%的胳膊。
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORML 「……啊、是、非常感谢。」
			PRINTFORMW 「太过突然、稍微吓了一跳。」
		ELSE
			PRINTFORML 「突然就这样献殷勤、我可不敢这么容易就接受呢。」
			PRINTFORMW %CALLNAME:TARGET%有些開心地笑起来。
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			PRINTFORML 「%CALLNAME:MASTER%。作业做完了吗？」
			PRINTFORML 「如果有不懂的地方我会教你哦。不过要我也懂才行呢。」
			PRINTFORMW %CALLNAME:TARGET%笑地像个淘气的孩子一样。
		ELSEIF RAND:2
			PRINTFORMW 「最近总感觉奶酪很好吃呢……。%CALLNAME:MASTER%也喜欢吃吗？」
		ELSE
			PRINTFORML 「身体变成现在这样。听力也变得很敏锐呢。」
			PRINTFORMW 「好像有人的肚子在咕咕叫。是饿了吗？」
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW
CASE "淋浴独り言"
	;PRINTFORML
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")

	ELSE

	ENDIF
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K21
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 最在意的部位被人从后面随意触碰、
			PRINTFORML 看着从衣领里猛地伸出的%CALLNAME:MASTER%的手掌、%CALLNAME:TARGET%快要掉下眼泪了。
			PRINTFORMW 「那个、開心吗？这是什么新的欺凌手段吗？」
		ELSE
			IF COND("発情期")
				CALL PRINT_STR, @"「啊……%CNAME("二人称")%……哈啊……哈啊……_／／／_」_W"
				PRINTFORML 因为内在性欲的侵犯、%CALLNAME:TARGET%的身体对触摸自己胸部的%CALLNAME:MASTER%的手和气味产生了敏感的反应、
				PRINTFORMW 脸颊绯红、情欲浸润的双眼注视着%CALLNAME:MASTER%。
			ELSE
				PRINTFORML 「%CNAME("二人称")%还真是不会感到腻烦呢。嘛、%CNAME("一人称")%的胸部能让你感到高兴的话那就没什么了。」
				PRINTFORMW 「%CNAME("一人称")%不喜欢的就很困扰吗？诶、那个、我会努力的……。」
			ENDIF
		ENDIF
	CASE "按摩"
		IF COND("発情期")
				CALL PRINT_STR, "「啊嗯……呜啊……哈啊……啊……_HH_」_L"
				PRINTFORML 被情欲折磨的%CALLNAME:TARGET%、强忍着%CALLNAME:MASTER%肆无忌惮的按摩
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:MASTER%重点関照了%CALLNAME:TARGET%的屁股和大腿部位。
				CALL PRINT_STR, "「总是按、那种地方_HH_嗯~嗯嗯~~_HH_」_W"
			ELSE
				PRINTFORML %CALLNAME:MASTER%解開了%CALLNAME:TARGET%的内衣、细致地按摩了整个乳房。
				CALL PRINT_STR, "「胸部不呀_HH_哈啊……不要……啊啊~_HH_」_W"
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「咚咚咚的声音很好呢。真让人平静。」
			ELSE
				PRINTFORML 「对、肩胛骨那里再用力一些～」
				PRINTFORMW 「哈啊、活过来了啊。」
			ENDIF
		ENDIF
	CASE "接吻"
		IF COND("発情期")
			PRINTFORMW %CALLNAME:MASTER%吻住了%CALLNAME:TARGET%的嘴唇、她正因为内心的情欲饱受折磨。
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:TARGET%的口中被%CALLNAME:MASTER%伸入的舌頭蹂躏的一塌糊涂
			ELSE
				CALL PRINT_STR, "「嗯、再多、做一些嘛_HH_」_L"
				PRINTFORML 话音刚落、%CALLNAME:TARGET%的回吻已经印上了%CALLNAME:MASTER%的嘴唇。
				PRINTFORML 配合着她的%CALLNAME:MASTER%张開嘴来、%CALLNAME:TARGET%的舌頭就迫不及待地入侵口中、
				PRINTFORMW 进行了一个唾液交融不分彼此、相当浓厚的接吻。
			ENDIF
		ELSE
			IF RAND:4 == 0
				PRINTFORML 「嗯~……很突然呢。」
				PRINTFORML 「嘛、提前请求的话……也不是不能接受。」
				PRINTFORMW %CALLNAME:TARGET%高兴地用指尖按住嘴唇、回味刚刚的触感。
			ELSEIF RAND:3 == 0
				PRINTFORML 「抓住对方的肩膀、从正面、慢慢地抱住。」
				PRINTFORMW 「理想状态下、脑内一会变得昏昏沉沉的♪」
			ELSEIF RAND:2
				PRINTFORMW %CALLNAME:MASTER%没有离開、只是和%CALLNAME:TARGET%吻在一起、持续了很久、甚至双方都忘记了时间。
			ELSE
				PRINTFORML 「亲在脸颊上、也不错呢。」
				PRINTFORMW %CALLNAME:TARGET%也在%CALLNAME:MASTER%的脸颊上亲了一下。
			ENDIF
		ENDIF
	CASE "膝枕"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「如果有那样的对象、我也会想给他做呢、膝枕、」
			PRINTFORML 「只是没想到会成为被提供膝枕的对象呢。」
			PRINTFORMW 「现在心情很好哦、%CNAME("二人称")%。」
		ELSEIF COND("発情期")
			IF RAND:2
				CALL PRINT_STR, "「要在……这里做吗_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%温柔地爱抚着眼前裤子上膨胀起来的突起。
			ELSE
				CALL PRINT_STR, @"「啊~、%CNAME("二人称")%的、味道_HH_」_L"
				PRINTFORMW %CALLNAME:TARGET%对来自%CALLNAME:MASTER%裤子里面的气味产生了敏感反应、呼吸急促起来。
			ENDIF
		ELSE
			IF RAND:2
				PRINTFORML 「虽然稍微有些硬、但这就是男孩子呢♪」
				PRINTFORMW %CALLNAME:TARGET%高兴地自言自语道。
			ELSE
				PRINTFORML 「喂、%CNAME("二人称")%。要是%CNAME("一人称")%就这样睡着了。能请你不要动吗？」
				PRINTFORMW 「呼呼~、開玩笑啦♪」
			ENDIF
		ENDIF
	CASE "泡茶"
		IF COND("発情期")
			PRINTFORMW 身体疼痛难忍的%CALLNAME:TARGET%眼神空虚、小心翼翼地啜饮着端上来的茶水。
		ELSE
			PRINTFORML 「啊、非常感谢。」
			PRINTFORMW 「嗯~……很好喝。你很会沏茶啊。」
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
		;ヒ蜥蜴尾巴に変更
			PRINTFORML 「虽然没有直接的危害、但有些不安。」
			PRINTFORML %CALLNAME:TARGET%一边左右摇晃着尾巴一边烦恼着。
			PRINTFORMW 「即便如此也要做吗？既然都这么说了。」
		ELSE
			PRINTFORML 「这条尾巴、到底要怎样保养呢？」
			PRINTFORML 「这所学校里有各种各样的人、大家的尾巴都各不相同」
			PRINTFORMW 「也许还是去和老鼠做朋友更快一些……。」
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K21
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "展示内褲"
		PRINTFORML 「%CNAME("二人称")%~！」
		PRINTFORML %CALLNAME:TARGET%从身后抱住了%CALLNAME:MASTER%。
		PRINTFORML 「如果可以的话……怎么样？」
		PRINTFORMW %CALLNAME:TARGET%拉下裙子的拉链、将藏在外衣和裙子下的内衣暴露出来。
	CASE "推倒"
		IF COND("発情期")
			PRINTFORML 「%CNAME("二人称")%、%CNAME("一人称")%已经、到极限了啊。」
			PRINTFORML %CALLNAME:TARGET%的手伸向%CALLNAME:MASTER%的股间、温柔地抚摸着。
			PRINTFORMW 「女生都做到这个份上了、你应该不会临阵脱逃吧。」
		ELSE
			PRINTFORML 「诶~诶♪」
			PRINTFORML %CALLNAME:TARGET%张開双臂抱住了%CALLNAME:MASTER%。
			PRINTFORML 「我的心跳、能听得到吗？%CNAME("一人称")%能听得到哦。%CNAME("二人称")%的声音。」
			PRINTFORMW 「我知道还有很多人需要你去注目、但偶尔、也请只注视%CNAME("一人称")%一个人。」
		ENDIF
	CASE "清洁口交"
		PRINTFORMW 「味道很重……脑袋都昏沉起来了。」
	CASE "口淫"
		IF RAND:2
			PRINTFORML 「唔嗯……不管看过几次……」
			PRINTFORMW 「可以、捉弄它吗？」
		ELSE
			PRINTFORMW 「味道很重……脑袋都昏沉起来了。」
		ENDIF
	CASE "亲脸頬", "接吻"
		PRINTFORML 「嗯~……不要总是亲脸颊嘛。」
		PRINTFORMW 「不然的话、我就更加捉弄你哦♪」
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"

	CASE "抚摸", "手淫"
		PRINTFORML 「怎么样？舒服吗？」
		PRINTFORMW 「那么继续做下去、也可以哦。」
	CASE "膝枕"
		IF RAND:2
			PRINTFORML 「%CNAME("二人称")%的頭发、很柔顺、一直都很想摸摸看呢。」
			PRINTFORMW 「%CNAME("二人称")%感觉如何？要是弄疼了的话就告诉我哦。」
		ELSE
			PRINTFORML 「能感受到%CNAME("二人称")%呼吸的这个距离、最喜欢了。」
			PRINTFORMW 「好想一直这样啊。」
		ENDIF
	CASE "沏茶"
		PRINTFORML 「我沏了茶哦。请用。」
		PRINTFORMW 「在茶冷掉之前享用吧♪」
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORML 「啊嘞？%CNAME("二人称")%也……？真是的！你说要去那就赶紧去嘛！」
			PRINTFORMW %CALLNAME:TARGET%好像有点生气。
		ELSE
			PRINTFORMW 「让你久等了♪」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「对不起、请稍等一下。」
	ENDIF
CASE "廁所詮索"
		PRINTFORML 「诶、那个……这是厕所、的说」
		PRINTFORMW 「不要那么仔细地听声音啦！」
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K21
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「等下、请冷静一下。来谈谈吧？喂！」
		ELSE
			PRINTFORMW 「不、不要啦！至少换个场所啊！？」
		ENDIF
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「比起裸体、还要让人害羞。」
		CASE 1
			PRINTFORMW 「还没好嘛、我的腿、都開始打抖了。」
		CASE 2
			PRINTFORMW 「呼吸、喷到了、真是的。」
		ENDSELECT
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K21
		WAIT
	ELSE
		;連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF RAND:2 == 0
				PRINTFORMW 「已经看过了吧、真是的、这样就可以了吧。」
			ELSE
				PRINTFORML 「你总是会舔上来吧？！」
				PRINTFORMW 「布料很重要？诶、诶诶ー。」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORML 「可以是可以、不过能不能快点出去呢。」
			ELSE
				PRINTFORML 「你看起来乐在其中呢。」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%惊讶地注视着%CALLNAME:MASTER%的行动。
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K21
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		PRINTFORMW
	;心情好
	ELSEIF CFLAG:夸奖
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「如果非要这么做的话、也不是不可以。」
			PRINTFORMW 「居然让%CNAME("一人称")%自己来做……总感觉好激动。」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			PRINTFORMW 「怎、怎么样？」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORML 「……嗯~……想做的话就在醒着的时候告诉我吧……。」
			PRINTFORMW 「只是想看内裤吗？哈啊……那我还是继续睡吧。」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K21
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「哦~男人真厉害啊。」
			PRINTFORML 「像这样四目相对的状态、堂堂正正地抓住裙子、再将其掀開。」
			PRINTFORMW 「完全无法想象呢……。」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORML 「呀啊、真是的、%CNAME("二人称")%。」
				PRINTFORML 「那个、%CNAME("一人称")%不太擅长这种事、能有机会也很高兴啦。」
				PRINTFORMW 「但在此之前要先打招呼的吧、总要有先有后吧。」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					;PRINTFORML 「あっ、えーっとこれは、その……。」
					;PRINTFORML 「我慢できなくて。お願い、しますっ」
					;PRINTFORMW %CALLNAME:TARGET%正在认真地读着标题为顔を真っ赤にしながら言葉を振り絞っておねだりした。
				ELSE
					PRINTFORML 「又来了啊。」
					PRINTFORMW %CALLNAME:TARGET%苦笑着叹了口气。
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/21 祥子/EVENT_K21_DAILY.ERB