code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K23, ARGS

SELECTCASE ARGS
CASE "取引開始"
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORML 「偏偏在这种时候……拜托%CNAME("一人称")%吗？」
			CALL PRINT_STR, @"「过后再说不行吗……啊_HH_　%CNAME("主人")%好坏」_W"
		;添笔事件：在助手插入时交易
		ELSEIF INSERT("挿入相手") == ASSI
			PRINTFORML 「偏偏在%CALLNAME:ASSI%插入的时候……拜托%CNAME("一人称")%吗？」
			CALL PRINT_STR, @"「嗯~_HH_」_W"
			CALL PRINT_STR, @"「可以等一会吗……啊_HH_　」"
			PRINTFORMW 「%CALLNAME:ASSI% 不可以欺负那里
			PRINTFORMW %CALLNAME:ASSI%的%TEXTR("大阴茎/肉棒~")%顶到%CNAME("一人称")%的%TEXTR("最深处/子宫口")%了 嗯——」_W"
			CALL PRINT_STR, @"「一边被%CALLNAME:ASSI%的肉棒侵犯，一边被%CNAME("主人")%请求什么的~啊~_HH_  %CNAME("主人")%真是坏心眼」_W"
		;事件结束
		ELSE
			PRINTFORML 「有事拜托%CNAME("一人称")%吗？」
			PRINTFORML 「想要我换别的衣服、或是想要接吻之类的……」
			PRINTFORMW 「这样的请求不算是交易……请好好的说出来吧」
		ENDIF
	;男性の場合、情人節戦争を見ていなくても巧克力をもらえる
	ELSEIF TEXTS("日期対応イベント") == "情人節" && TALENT:恋慕 && (CEVENT("イベント：情人節戦争の始まり２／玛丽") || TALENT:MASTER:男性) && CEVENT("イベント：情人節戦争の始まり３／玛丽") == 0
			PRINTFORML 「那、那个呢！！」
			PRINTFORML 「大致有个东西想交给%CNAME("二人称")%……」
			PRINTFORML %CALLNAME:TARGET%面红耳赤地将背着手藏起来的东西递交给%CALLNAME:MASTER%。
			PRINTFORMW 「这是情人节巧克力、我努力做出来的、可以的话请吃吧」
			CALL SET_CEVENT, "イベント：情人節戦争の始まり３／玛丽"
	;2019/10/14　服装変更機能暫定版　同居頻度の話ではフラグを踏みにくいので此方に移動
	ELSEIF (TALENT:恋慕 || TALENT:淫乱) && CEVENT("換装：玛丽") == 0
		;調教開始時にガンガン着替えているので説得力皆無のセリフ
		IF CEVENT("Cosplayに興味は有ますか？：玛丽")
			PRINTFORML 「我听说%CNAME("主人")%是对Cosplay之类的……有兴趣」
			PRINTFORML 「%CNAME("一人称")%啊、那个……只是是社会研究、如果%CNAME("主人")%无论如何都要这样的话、穿也可以哦」
			PRINTFORMW 「嗯……知道了。作为圣职者的%CNAME("一人称")%只是纯粹地有兴趣而已。并不是想要试试cosplay」
		ELSE
			CALL PRINT_STRL, @"「……我有个问题、%TEXTR("比如有什么想要看的衣服之类的……没有吗？/如果能告诉我你喜欢的服装的话、我会很開心的/有喜欢的服装吗？")%」"
			PRINTFORMW 「想试试%CNAME("二人称")%喜欢的衣服……我想你是明白的、但请好好考虑一下时间和场合？」
		ENDIF
		SETCOLOR DEF_COLOR("黄色")
			PRINTFORML
			PRINTFORML - 系统消息 -
			PRINTFORML 【取引で服装の変更が可能成为了】
		RESETCOLOR
		CALL SET_CEVENT, "換装：玛丽"
	;悪魔の契約者で有ながら多額の寄付を収め信仰を示した　イベント自体が暫定なので事実上到達不能とする
	ELSEIF CFLAG:3302 == 1 && CEVENT("イベント：教会復興初回／玛丽") == 0
		PRINTFORML 「……是那个吧」
		PRINTFORML 「算是对%CNAME("二人称")%的请求……如果有剩余的钱的话、今后也可以拜托你捐给教会吗？」
		PRINTFORMW 「%CNAME("一人称")%想支援某个教会、但是因为某种原因、不能直接支援。」
		CALL SET_CEVENT, "イベント：教会復興初回／玛丽"
	;＄500000の行方は……約5000万。この教会赤字スギィ！
	ELSEIF CFLAG:3302 >= 10 && CEVENT("イベント：教会復興１０回／玛丽") == 0
		PRINTFORML 「多亏了%CNAME("二人称")%、教会的经营好像好多了。」
		PRINTFORMW 「我知道这是个厚脸皮的请求……今后可以的话也请帮帮我」
		CALL SET_CEVENT, "イベント：教会復興１０回／玛丽"
	;これはもう教会から都合のいい金蔓と思われているのでは？？？
	ELSEIF CFLAG:3302 >= 20 && CEVENT("イベント：教会復興２０回／玛丽") == 0
		PRINTFORML 「多亏了%CNAME("二人称")%、我才有了重建教会的目标。」
		PRINTFORMW 「没有负担的程度、也可以……今后也可以拜托您捐款吗？」
		CALL SET_CEVENT, "イベント：教会復興２０回／玛丽"
	;教会が新築されました。祝え、你教会の誕生である。
	ELSEIF CFLAG:3302 >= 50 && CEVENT("イベント：教会復興５０回／玛丽") == 0
		;口上側から约会先・移動先の追加が出来る様になるまでフレーバーです
		PRINTFORML 「好像建立了新教堂」
		PRINTFORML 「真的非常感谢至今为止的帮助」
		PRINTFORMW 「可以的话下次约会的时候去教堂看看吧？」
		CALL SET_CEVENT, "イベント：教会復興５０回／玛丽"
	;ELSEIF CFLAG:3302 >= 114514 && CEVENT("イベント：真夏の夜の教会復興／玛丽") == 0
	;	PRINTFORML 「怎么说%CNAME("二人称")%都给的太多了！！」
	;	PRINTFORMW 「†悔改†」
	;	CALL SET_CEVENT, "イベント：真夏の夜の教会復興／玛丽"
	ELSEIF CFLAG:3302 >= 1 && RAND:2 == 0
		PRINTFORML 「%TEXTR(@"希望%CNAME("二人称")%今天也有神的保佑/神总是守护着%CNAME("一人称")%们")%」
		PRINTFORMW 「%TEXTR("有什么烦恼的事吗/有什么困难吗")%？　如果是%CNAME("一人称")%能做的事情的话、请让我帮忙吧。」
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「来、赞美主吧。因为%CNAME("二人称")%也还是神的孩子」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「苦恼的羔羊哟、将汝的烦恼说给我听吧」
		ELSE
			PRINTFORMW 「有烦恼的话、就说出来吧。也承接恶魔退治哟」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	;愛が重たい！！
	IF TALENT:相思相愛
		IF COND("Ｈ最中の取引")
			;しかも挿入中！
			IF INSERT("挿入相手") == MASTER
				CALL PRINT_STR, @"「啾_HH_~」_W"
				PRINTFORMW 「%CNAME("一人称")%会牢牢记下这个誓言」
				PRINTFORMW 「健康也好、患病也好、欢喜也好、悲伤也好、富裕也好、贫困也好」
				PRINTFORMW 「%CNAME("一人称")%发誓竭尽真心……」
				CALL PRINT_STR, @"「所以、%CNAME("主人")%~_HH_」_W"
				CALL PRINT_STR, @"「现在请更多的疼爱我吧_HH_」_W"
			;添笔事件：在助手插入时交易
			ELSEIF INSERT("挿入相手") == ASSI

				PRINTFORMW 「%CNAME("主人")%偏要在这个时候表白吗」
				PRINTFORMW %CALLNAME:ASSI%的肉棒还在里面呢
				PRINTFORMW 「不过看上去像是真心的呢」
				PRINTFORMW 「主啊、请原谅我以和%CALLNAME:ASSI%结合的姿态、接受%CNAME("主人")%的告白」
				CALL PRINT_STR, @"「无论今后富裕也好、贫~——嗯_HH_」_W"
				CALL PRINT_STR, @"「贫困也好、我都会~咕_HH_ ——竭尽真心……」_W"
				PRINTFORMW 「呜~—— 太开心了」
				PRINTFORMW 「从现在起我们就是恋人了呢」
				PRINTFORMW 「%CALLNAME:ASSI%好像都有些嫉妒呢、肉棒抵着那边不肯离开呢」
				PRINTFORMW 「在%CALLNAME:ASSI%结束之后要好好的疼爱我哦」
				; CALL PRINT_STRW, @"「嗯————哦_HH_————」"
				; CALL PRINT_STRW, @"「嗯————那里_HH_ ——深处那边是给%CNAME("主人")%的宝宝准备的、不可以~」"
				; 在和主人成为恋人的同时、被%CALLNAME:ASSI%的肉棒弄的高潮了
			;事件结束
			ELSE
				PRINTFORMW 「%CNAME("一人称")%会牢牢记下这个誓言」
				PRINTFORMW 「健康也好、患病也好、欢喜也好、悲伤也好、富裕也好、贫困也好」
				PRINTFORMW 「%CNAME("一人称")%发誓竭尽真心……」
			ENDIF
		ELSE
			PRINTFORML 「……谢天谢地」
			PRINTFORML 「一切都将如主所愿……」
			PRINTFORML 「健康也好、患病也好、欢喜也好、悲伤也好、富裕也好、贫困也好」
			PRINTFORML 「都会爱惜%CNAME("二人称")%、尊重你、安慰你、帮助你、只要还有命在」
			PRINTFORMW 「%CNAME("一人称")%发誓竭尽真心……」
		ENDIF
	;失敗
	ELSE
		CALL PRINT_STR, @"「%TEXTR("っ！？/诶……/骗人的吧、骗人的吧、这是骗人的我认为！！")%」_W"
		CALL PRINT_STR, @"「%TEXTR("我不会被这种甜言蜜语愚弄的啦！！/你打算这样欺骗我吧？？？/想要骗人的表情都写在脸上啦！！")%」_W"
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

		PRINTFORMW 「想要%CNAME("一人称")%的内衣是吗」
		PRINTFORMW 「很抱歉呢、%CNAME("主人")%、现在的%CNAME("一人称")%可没有穿那些东西哦」
		PRINTFORMW %CNAME("一人称")%小小的/微微地 向%CNAME("二人称")%打开大腿
		PRINTFORMW 在那里出现的是：%TEXTR("毫无布料/毫不遮挡")% 的玛丽的小穴
		PRINTFORMW 「%CNAME("主人")%的愿望落空了呢」
	ELSE

		PRINTFORMW 「不，不行！」
		PRINTFORMW 「%CNAME("一人称")%那边现在...啊、没什么」
		PRINTFORMW 「总之就是不可以、绝对不行！！」
	ENDIF
;胖次を要前の会話。
CASE "胖次交易"

CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「就那么想要%CNAME("一人称")%的内衣吗……」
		PRINTFORML 「虽然灵魂和内衣交换感觉不是很对等、但是我承认作为见证信赖的手段还是很有效的」
		PRINTFORMW 「……请对大家保密哦」
	;二回目以降
	ELSE
		IF CHARA_NUM("室内の邪魔者")
			PRINTFORML 「っ……」
			PRINTFORML 「今后请给我记住哦……」
			PRINTFORMW 「命令虽说会遵从、但我会因此羞愧而死的啦」
		ELSE
			PRINTFORML 「……很想要胖次吗」
			PRINTFORMW 「好好求我的话……可以哟」
		ENDIF
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"
CASE "胖次拒否"
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「%CNAME("一人称")%也是有原则这种东西的」
		PRINTFORMW 「作为圣职者、这是无法回应的请求」
	;場所が野外などの理由で断った
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「……你是不是发烧了？」
			PRINTFORMW 「唔~嗯、看来没有发烧呢」
		ELSE
			PRINTFORMW 「真是变态呢、%CNAME("二人称")%啊」
		ENDIF
	ENDIF
CASE "全裸交易"
;	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
;		PRINTFORMW 「不是用拜托……%TEXTR("如果能以更强烈的感觉命令我的话……就好了/请以更强的感觉命令我……/我想以更强烈的感觉被命令……")%」
;	ELSE
;		PRINTFORML 「Franchement, je ne comprends pas……（法：坦白说、我不明白）」
;		PRINTFORMW 「%TEXTR(@"对不起。%CNAME("二人称")%总是吓我一跳……在不好的意义上/考虑一下时间和场合吧？　%CNAME("一人称")%并不讨厌%CNAME("二人称")%，但不是什么都听你的哦")%」
;	ENDIF
CASE "全裸"
	IF SAVESTR:現在位置 == "公園"
		;PRINTFORMW 「已经无所谓了～☆」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORML 「%TEXTR("在、在这种地方脱什么的……/这是公园呀……要是有谁过来怎么办啊")%」
		PRINTFORMW 「%TEXTR(@"因为是%CNAME("主人")%的命令没办法只好脱了……羞死%CNAME("一人称")%了/要不是%CNAME("主人")%命令的话……才不会做这种事呢……")%」
		;添笔事件：公园露出
		IF CHARA_NUM("室内の邪魔者") >= 0 && ABL:露出癖 >= 10 && TALENT:恋慕 && CEVENT("NTR允许",TARGET) ;%TEXTR(@"全裸着/就这样")%
			CALL EVENT_DATUI, "裸体"
			PRINTFORMW 你带着全身赤裸的%CALLNAME:TARGET%慢慢地向着人多的草坪走去
			PRINTFORMW 来到草坪边缘，可以看到三五成群的分布着许多人，有穿着初中校服的孩子，也有河岸边坐着垂钓的大叔，还有几个黑色的外国友人
			CALL PRINT_SELECT, "让她独自前往草坪中央/带她回到隐秘处"
			IF RESULT == 0
				PRINTFORMW 「啊?真、真的要让我%TEXTR(@"全裸着/就这样")%走过去吗」
				PRINTFORMW 「%CNAME("二人称")%可真是坏心眼啊，%TEXTR(@"要是发生了什么我可不管哦/要是大家对我做了奇怪的事，可不要嫉妒哦/就这么想让别的男人看到我的身体吗")%」
				PRINTFORMW %CALLNAME:TARGET%面带红霞有点害臊地抱住了自己的身体，晃动着屁股，一步一步的走向了远方。
				PRINTFORMW 而你则悄悄地藏在了不远处的树荫后
				PRINTFORMW 很快，就有人注意到了%CALLNAME:TARGET%，%TEXTR(@"对着她指指点点/盯着她赤裸的娇躯")%
				PRINTFORMW %CALLNAME:TARGET%站在了草坪中央，承受着四面八方的目光
				PRINTFORMW 很快就有男人靠近了%CALLNAME:TARGET%，在近处用下流的目光打量着她%TEXTR(@"美丽的身体/娇嫩的私处/柔软的乳房")%
				PRINTFORMW 集中过来的男人越来越多
				PRINTFORMW 没过一会，%CALLNAME:TARGET%的周围就已经围满了人
				PRINTFORMW （被这么多人看着，小穴变湿了，好像要啊...）
				PRINTFORMW %CALLNAME:TARGET%将遮住乳头的双手拿开，向着周围的男人将乳房捧起，并将圆润的臀部撅起，让身后的人能够更清楚的欣赏到自己的%TEXTR(@"秘密花园/小穴与菊花")%
				PRINTFORMW 周围的男人们纷纷拿出了手机开始拍摄，也有的已经忍不住掏出%TEXTR(@"阴茎/肉棒")%，对准%CALLNAME:TARGET%赤裸的娇躯前后撸动起来
				PRINTFORMW 看到有人对着自己自慰，%CALLNAME:TARGET%无法控制的发情了，嘴中也吐出了香甜的气息，爱液不断从小穴中溢出
				PRINTFORMW
				PRINTFORMW 过了一会
				PRINTFORMW 终于有男人忍不住，摆弄着阴茎靠近了%CALLNAME:TARGET%的背后，双手捏住了翘臀，将龟头抵住软嫩的阴部，似乎是想要插入小穴
				PRINTFORMW 但%CALLNAME:TARGET%似乎早有预料，抬起臀部，将阴茎夹在了两腿中间，
				PRINTFORMW 男人似乎有些疑惑，想要从中拔出，但尝试了一下，阴茎却纹丝未动
				PRINTFORMW %CALLNAME:TARGET%转过头，朝着男人笑了笑，接着双腿一用力，只听 ‘咔’ 的一声，刚才的男人便毫无声息的倒了下去
				PRINTFORMW 「插入行为是禁止的哦，不然的话下场就会跟他一样」
				PRINTFORMW %CALLNAME:TARGET%露出了一个危险的笑容
				PRINTFORMW 大家看着地上口吐白沫的男人，想象自己的下场,忍不住脸色都有些发白
				PRINTFORMW
				PRINTFORMW 「但是作为补偿」
				PRINTFORMW %CALLNAME:TARGET%摆出了一个下流的姿势，并伸出手揉弄着自己的屁股和乳房
				PRINTFORMW 下流的动作吸引着男人们再次盯住因为挤压而变形的胸部与屁股
				PRINTFORMW 「这次特例允许大家 可以尽情的在这具身体上射精哦」
				PRINTFORMW 「脸也好、嘴巴也好、这个下流的胸部也好，还有下面的两个穴也好」
				PRINTFORMW 「%TEXTR(@"请用你们浓稠的精液来浇灌这副下流的身体吧/在你们喜欢的地方，尽情的释放欲望吧")%」
				PRINTFORMW 听到这里，男人们的肉棒以比刚才还要猛烈的气势挺立起来，再次撸动起来
				PRINTFORMW 一时间，周围充斥着男人粗重的呼吸声
				PRINTFORMW
				PRINTFORMW 很快一位初中模样的男孩撸动着肉棒靠近过来
				CALL PRINT_STRW, @"「啊拉_HH_~是位可爱的小弟弟呢」"
				PRINTFORMW 『姐姐，我好难受，有什么要从鸡鸡里出来了』
				PRINTFORMW 「难道是第一次吗？」
				PRINTFORMW 「这样的话，如果让你射在外面也太可怜了。」
				PRINTFORMW 「这次就特例允许你在姐姐的小穴里射精吧」
				CALL PRINT_STRW, @"「%TEXTR(@"要一鼓作气的把积攒的肉棒牛奶 全~部~ 射进姐姐的小穴里哦_HH_/要好好的记住这个感觉哦")%」"
				PRINTFORMW %CALLNAME:TARGET%接过男孩的肉棒，引导着他靠近了自己的小穴，最后将肉棒抵住了小穴的入口，将粉色的龟头埋了进去
				PRINTFORMW 「虽然是特例，但本番的话还是NG呢，请把第一次完全插入留给自己未来的女友吧，」
				PRINTFORMW 「不过第一次阴道射精就由姐姐就不客气的收下了，看招」
				PRINTFORMW %CALLNAME:TARGET%一只手固定着阴茎，另一只手开始熟练地摆弄起来，只一瞬间，就让男孩濒临高潮
				PRINTFORMW 『姐姐，要出来了！』
				PRINTFORMW 『啊————』
				PRINTFORMW 男孩颤抖着，将初次的精液献给了%CALLNAME:TARGET%的小穴
				PRINTFORMW 滚烫的精液涌入阴道，很快便流到了子宫的入口，传递出想要精液的信号，让%CALLNAME:TARGET%也忍不住颤抖起来
				PRINTFORMW 看到这一幕，又有一位男人走过来，将龟头碰了碰%CALLNAME:TARGET%樱红的嘴
				PRINTFORMW %CALLNAME:TARGET%立刻会意，张开嘴含住了龟头
				PRINTFORMW 接着又是两个男人靠近，一个对准了%CALLNAME:TARGET%的脸颊，另一个对准了%CALLNAME:TARGET%圆润的尻
				PRINTFORMW 男人们撸动着低吼着，欲望喷薄而出，在%CALLNAME:TARGET%的身上，嘴中染上了白灼
				PRINTFORMW 男孩从初次射精的失神中醒来，深深的看了一眼沐浴在精液中的%CALLNAME:TARGET%，默默离开。
				PRINTFORMW 不断有人离开，又不断有更多的人加入
				PRINTFORMW 很快，%CALLNAME:TARGET%的全身都被精液覆盖了，乳房，小腹，背后，大腿，脸颊，头发，乃至口腔，阴道，直肠，无一不被灌满了精液
				PRINTFORMW 最后，几个男人围成一圈，向着中间躺在精液中的%CALLNAME:TARGET%浇上了最后的种子后接连离开了。
				PRINTFORMW
				PRINTFORMW 你走过来，看着在精液温泉中的%CALLNAME:TARGET%，想拍拍她的头，却又无从下手。
				PRINTFORMW 「%CNAME("主人")%， %CALLNAME:TARGET%好好遵守了约定哦，我做的好吗？」
				PRINTFORMW 你看着满身精液的%CALLNAME:TARGET%，点了点头
				CALL PRINT_STRW, @"「嘿嘿~_HH_」"
				PRINTFORMW %CALLNAME:TARGET%痴痴地笑了
				CALL PRINT_STRW, @"「最喜欢你了~_HH_」"
				PRINTFORMW 「但是都怪%CALLNAME:MASTER%」
				PRINTFORMW %CALLNAME:TARGET%朝你打开了大腿，伸出手指在满是精液的小穴里咕啾咕啾的搅拌着
				PRINTFORMW 「尽管%CNAME("一人称")%的小穴里被射进了这么多精液，但是为了遵守约定，大家最多也只是为了射精才把龟头插了进去呢」
				PRINTFORMW %CALLNAME:TARGET%拨弄着小穴里不知是哪些男人注入的精液，再将其送入嘴中，仔细品尝着
				IF TALENT:処女
					PRINTFORMW %CALLNAME:TARGET%用两只手将阴道口大大的分开，能清楚的看到象征着纯洁的处女膜此刻已被浓厚的精液沾满、覆盖
					PRINTFORMW 「明明还没有失去纯洁、小穴却已经被许多人的精液填满了」
					PRINTFORMW 「%CNAME("主人")%、%CNAME("一人称")%现在还算是合格的修女吗」
				ELSE
					PRINTFORMW 「所以说，%CNAME("一人称")%的小穴到现在为止，还一次都没被肉棒填满过，好想要啊，子宫那里好想要肉棒的亲吻啊」
					PRINTFORMW %CALLNAME:TARGET%用两只手将阴道口大大的分开，能清楚的看到半透明的精液下，子宫口正一张一合的向你呼唤着
					PRINTFORMW 「看吧 ~ %CALLNAME:TARGET%现在已经变成了这么下流的孩子了，之后要好好地负起责任来，尽情的疼爱我哦」
				ENDIF

				DRAWLINE
				CALL ADD_STAIN, TARGET, "Ｖ", "精液"
				CALL ADD_STAIN, TARGET, "Ａ", "精液"
				CALL ADD_STAIN, TARGET, "Ｍ", "精液"
				CALL ADD_STAIN, TARGET, "Ｂ", "精液"
				CALL ADD_STAIN, TARGET, "胖次", "精液"
				CALL ADD_STAIN, TARGET, "手", "精液"
				CALL ADD_STAIN, TARGET, "脚", "精液"
				CALL ADD_STAIN, TARGET, "顔", "精液"
				CALL ADD_STAIN, TARGET, "髪", "精液"
				A = (10 + RAND:10) 	;精飲経験
				B = (8 + RAND:3)	;膣内精液経験
				C = (4 + RAND:4)	;肛内精液経験
				D = (5 + RAND:5)  	;口交経験
				F = (5 + RAND:3) 	;撮影経験
				G = (A+B+C+RAND:6)*2;精液経験
				EXP:精飲経験 += A * 3
				EXP:精液経験 += G
				EXP:口交経験 += D
				EXP:露出経験 += 3
				EXP:撮影経験 += F
				EXP:膣内精液経験 += B * 3
				EXP:肛内精液経験 += C * 3
				K = (A+B+C)*(30+RAND:20)
				P = 0
				P += (A+B+C+RAND:10)
				BASE:胎内精液量 += B*(500+RAND:50)
				PRINTFORML 这次公园露出中，玛丽共服务了{P}个男人
				PRINTFORML 给肉棒口交{D}次
				PRINTFORML 吞下精液{A*50+RAND:20}ml
				PRINTFORML 小穴共被注入精液{B*(140+RAND:20)}ml
				PRINTFORML 肛门共被注入精液{C*(140+RAND:20)}ml
				PRINTFORML 共被{F}人拍下了照片和视频
				PRINTFORML 共被浇灌了精液{G*150+RAND:20}ml
				PRINTFORMW
				;事件结束
			ELSE
				PRINTFORMW 在男人们下流的目光下，你带着%CALLNAME:TARGET%再次回到了公园的隐蔽处。
			ENDIF
		ENDIF
	ELSEIF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
		PRINTFORMW 「不是用拜托……%TEXTR("如果能以更强烈的感觉命令我的话……就好了/请以更强的感觉命令我……/我想以更强烈的感觉被命令……")%」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
	ELSEIF ABL:露出癖 >= 3 && CHARA_NUM("室内の邪魔者") == 0
		PRINTFORML 「%TEXTR(@"如果%CNAME("二人称")%无论如何都想看的话、也不是不行……/如果是%CNAME("二人称")%的请求的话、我想我无论是什么都会听从的吧……")%」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORMW 「%TEXTR("太羞耻了啦……现在衣服可以穿上了吗？/这、这样可以了吗……满足了的话、我想穿外衣")%」
	ELSE
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORML 「%TEXTR("Pervers（法：变态）……/ペルヴェール（法语音译：变态）……/变态……")%」
		PRINTFORMW 「%TEXTR("因为还有其他人在啦……/不理你了哦？/看够了吧？　看够的话、我要穿衣服了哦/下次请在没人的时候做哦")%」
	ENDIF
CASE "全裸拒否"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「Franchement, je ne comprends pas……（法：坦白说、我不明白）」
		PRINTFORMW 「%TEXTR(@"对不起。%CNAME("二人称")%总是吓我一跳……在不好的意义上/考虑一下时间和场合吧？　%CNAME("一人称")%并不讨厌%CNAME("二人称")%，但不是什么都听你的哦")%」
	ELSE
		IF TALENT:MASTER:男性
			CALL PRINT_STR, @"「就算%TEXTR(@"%CNAME("一人称")%多少也理解一点男孩子的渴望……/也不是不明白%CNAME("二人称")%这个年龄段的心情……/不知为何能理解到这和泳衣没什么区别的意图……")%」_L"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("想看同性裸体的话、去更衣室不是更好吗……/想看我难为情的样子吗、感觉有点恶趣味哟/发烧……并没有呢")%」_L"
		ENDIF
		;PRINTFORML （本音を言うなら%CNAME("一人称")%も男の子の筋肉とか見たいですから、気持ちだけは解ります。何時も薄着の琉娜桑が男の子だったらと考えたらドキドキしちゃいます）
		;PRINTFORML （ですが、聖女たるものそんな本音は絶対に表に出しません。聖女ですからっ）
		CALL PRINT_STR, @"「%TEXTR(@"那种请求……那是对恋人、才能拜托的事情哟？/是了……%CNAME("二人称")%不会做下流事情地保证的话、也不是不能考虑一下/因为%CNAME("二人称")%的视线太下流了、不行")%」_W"
	ENDIF
CASE "事后避孕药取引"
	TFLAG:取引拒否 = 1
CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否
		PRINTFORML 「%CNAME("主人")%不想要和%CNAME("一人称")%造的%TEXTR("孩子/宝宝")%了吗！！」
		PRINTFORMW 「没想到%CNAME("二人称")%是那么不负责任的人……和%CNAME("一人称")%的関系只是玩玩而已呢」
		PRINTFORML - 系统消息 -
		PRINTFORML %CALLNAME:TARGET%已经不再让你做本番行为了。
		CALL SET_CEVENT, "事后避孕药拒否：玛丽"
;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORML 「虽然%CNAME("一人称")%在立场上、很想监视与恶魔同居的%CNAME("二人称")%、可是……」
	PRINTFORMW 「能……能请你等我做好心理准备为止吗？」
CASE "同居希望"
	PRINTFORML 「好、好的」
	PRINTFORML 「恕我冒昧无论如何、请、请务必多多関照」
	PRINTFORMW %CALLNAME:TARGET%过于紧张、以僵直不动的姿势回答%CALLNAME:MASTER%。
CASE "同居頻度的相談"
	PRINTFORMW 「如果%CNAME("一人称")%有什么不周到的地方、请尽管说出来哦」
CASE "便当拒否"
	PRINTFORML 「不是有女仆小姐了吗。请去找她吧」
	PRINTFORMW 「还是说、以灵魂交易便当吗。那就另当别论了说」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORML 「上次让你失望了的……%CNAME("一人称")%反省过了」
		PRINTFORML 「因为感觉我做便当的手艺多少也进步了一点、敬请期待哦」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORML 「虽说没什么自信……我会试着努力的哦」
		ELSE
			PRINTFORML 「有专属的女仆小姐在了不是吗？」
		ENDIF
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			;IF DEVENT(ARGS) == 0
				;ツェツィ師匠の迷你コラム
				;「避妊の護符を持っているだけ、貼っているだけで絶対に妊娠しない。その作用と効能は随分とオカルトな話になるね」
				;「だが、魔術的に作り出された子宮内避妊具という意味合いであれば不確かな部分も明らかになるのではないかな？」
				;「その場合、処女の子宮内に避妊具をどの様にして入れたのか。その疑問は残るがね」
				;「もっとも悪魔の手に掛かれば淫紋の様な現代科学では解明の出来ない文字街道の魔法の領域に属するモノも作り出せる。あながち避妊の護符の効果も本物かもしれないね」
				;ちなみに死に分岐だ
				IF TALENT:避妊の護符
					PRINTFORML 「因为教皇厅的驱魔人有避妊の護符作为对策、即使不吃避孕药也没関系哟」
					PRINTFORMW 「尽管如此还是说很担心的话、ＯＫ啦」
				ELSE
					IF TALENT:恋慕
						PRINTFORML 「%TEXTR(@"跟%CNAME("主人")%的孩子的话、我想就算生几个都好呢……/虽然我认为组成一个大家庭那真是太幸福的了……")%」
						PRINTFORMW 「……%TEXTR(@"要是%CNAME("主人")%不想要那就没办法了呢/有必要的话、可以佩戴避孕之护符、那方式不是更好吗？")%」
					ELSE
						;避妊の護符解除が恋慕を条件とするので本来なら死に分岐
						PRINTFORML 「把避妊的護符取下来、却想让我吃避孕药……」
						PRINTFORMW 「你作为一个人到底是怎么想的、%CNAME("一人称")%也对怀孕为难、只好吃了呢」
					ENDIF
				ENDIF
			;ELSE
			;	PRINTFORMW
			;ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE
			PRINTFORMW 「不吃避孕药也没関系的吧？
		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

;恋慕のみ　避妊の護符を取下
CASE "避妊解除可"
	PRINTFORML 「为了怀上%CNAME("主人")%的小宝宝的话、很乐意为您取下避妊の護符」
	PRINTFORMW 「想要个俩人的孩子那太好了……学校毕业之后、会和%CNAME("一人称")%在一起的对吧？」
CASE "避妊解除拒否"
	PRINTFORML 「取下避妊の護符就意味着说、想和我作为共度一生的伴侣生孩子」
	PRINTFORMW 「请好好考虑下这个的意味哦？」
	IF PENIS(MASTER) == 0
		PRINTFORML 「接下来……所说的是本来想要保密下去的话」
		PRINTFORML 「因为是与你的身体也有所関系的话、让我来告诉你吧」
		PRINTFORML 「以死后复活而灵魂再生。这个力量通过消耗灵魂也能修复好肉体上的损伤」
		PRINTFORML 「因事故而丧失的处女・因受伤而丧失的肉体这些要是你本人强烈期望的话、以神之奇迹凭借灵魂的力量使处女膜再生这种事也十分有可能」
		PRINTFORMW 「不管怎么说也是女孩子嘛、第一次给喜欢的人是最好的啦……以防万一发生刚才所说的事故、请记下来哦」
	ENDIF
CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		IF TALENT:恋慕
			PRINTFORML 「真想刻上%CNAME("一人称")%是%CNAME("主人")%所有物的烙印看看呢」
			PRINTFORMW 「虽然个人认为没有必要、但若是%CNAME("主人")%要求的话只好答应了」
		ELSE
			PRINTFORML 「……这不是某种恶魔的烙印吗」
			PRINTFORML 「不、请求以上的命令的话我会遵从……这或许也是神给予的试练吧」
			PRINTFORMW 「因为任凭苦难或悲叹都无法克服的试练是不存在的」
		ENDIF
	CASE 3
		IF TALENT:恋慕
			PRINTFORMW 「铭刻于此身的罪业又会增加多少呢」
		ELSE
			PRINTFORML 「神的试练还远没有……结束呢」
			PRINTFORMW 「那便接受吧。%CNAME("二人称")%所给予此身的罪业」
		ENDIF
	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "拜托処理性欲"
	PRINTFORML 「说、说说、说什么啊你？」
	PRINTFORML 「诶……是这样啊。非%CNAME("一人称")%不可啊」
	PRINTFORML 「唔——嗯、被求到这份上了……拒绝不了呢。知道…了啦……」
	PRINTFORMW 「请答应我要对大家保密哦」
CASE "性処理の一時中断"
	PRINTFORML 「%TEXTR("中断也无妨吗？/处理…中断也无妨么？")%」
	CALL PRINT_STR, @"「%TEXTR(@"打算再做的话、请好好说出来哦？/又再、有什么难处的话就请说哦/%CNAME("一人称")%才没有想着再做这种事什么的哦！")%」_W"
CASE "性処理拒否"
	PRINTFORML 「不好意思。我不太明白你在说什么」
	PRINTFORMW 「就那么想要被说教吗？」
;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORML 「勉强自己可不行哟」
	PRINTFORMW 「即使能治愈灵魂的损伤、可也不是无限的啦」
CASE "大力士"
	PRINTFORML 「终于有那想法了吗？」
	PRINTFORMW 「从今天開始每天一起做训练吧。没事的啦、只要拼死就不会死程度的安全修炼而已」
CASE "想要钱"
	IF RAND:2 == 0
		PRINTFORML 「谢谢惠顾。将由教皇厅那边汇款给您哦」
		PRINTFORMW 「如果接受现金的话、现在马上支付也可以……」
	ELSE
		PRINTFORML 「近来什么都得用高科技很让人困惑是吧。电子货币结帐？是这么说的东西好像能成交那样」
		PRINTFORMW 「但对%CNAME("一人称")%来说太难啦、用现金支付也可以不是吗？」
	ENDIF
CASE "魂の寄付"
	IF RAND:2 == 0
		PRINTFORML 「愿主保佑你……」
		PRINTFORMW 「去一点点积累善行吧」
	ELSE
		PRINTFORML 「%CNAME("二人称")%的赎罪一定会被认可的吧」
		PRINTFORMW 「善行必有所报哦」
	ENDIF
	;魂を寄付する毎に善行Ｐが溜まっていく
	CFLAG:3351 += 1
CASE "避妊解除可"
	IF TALENT:相思相愛
		CALL PRINT_STR, @"「请永远爱我哦_HH_」_L"
		PRINTFORMW 「今后也请多多関照、%CNAME("主人")%」
	ELSE
		PRINTFORML 「如果怀上%CNAME("二人称")%的孩子、那一定是主的旨意吧」
		CALL PRINT_STR, @"「今后请多多……宠爱哦_HH_」_W"
	ENDIF
CASE "避妊解除拒否"
	PRINTFORML 「如果%CNAME("一人称")%和%CNAME("二人称")%成为相爱関系的话、会考虑看看吧」
	PRINTFORMW 「在那之前请忍耐一下好吧？」

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"
	IF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORMW 「想要我换个发型吗。可以是可以、但%CNAME("二人称")%喜好的是怎么样的感觉呢？」
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「如果%CNAME("二人称")%希望的话……想做怎样的发型呢_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「想看我换个发型吗。如果是%CNAME("二人称")%请求的话、可以哟_HH_」_W"
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR(@"你想改变%CNAME("一人称")%的发型吗……嘛、可以是可以/想要摆弄我的发型是吗。那你想弄怎样的发型呢？")%」
	ENDIF

CASE "髪型変更の感想"
	PRINTFORML
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	;その角色の普段の髪型(光滑柔顺や乱髪にはできないので、角色次第ではこの分岐には来ません)
	CASE CONDS("普段の髪型")
		PRINTFORMW 「%TEXTR("果然还是平素的发型比较适合我呢/其他发型虽然也不错、但还是平素的发型最适合")%
	CASE "齐刘海"
		PRINTFORMW 「%TEXTR(@"看起来感觉很理智呢。%CNAME("二人称")%喜欢頭脑好的女孩子的吗？/这个发型是不是看起来有点聪慧的样子呢？")%」
	CASE "直髪"
		PRINTFORMW 「%TEXTR("頭发一整理就感觉頭变轻快了少许呢。多谢你了/不觉得頭发清爽之后连背脊都一下子挺直起来了吗？")%」
	CASE "卷髪"
		PRINTFORMW 「%TEXTR("合适吗？　因为是平常不怎么弄的发型、稍微有点不安/怎么样啊……有感觉合适就好了呢")%」
	CASE "双马尾"
		;指导者を伴っている場合＆助手も同じ髪型をしている
		IF FIND_COND("現在存在", "助手") && CONDS("髪型の種類", ASSI) == "双马尾"
			IF RAND:2 == 0
				PRINTFORMW 「和%CNAME("助手")%一样呢。%CNAME("二人称")%更喜欢这种相对年幼的感觉是吗？」
			ELSE
				PRINTFORMW 「像是在电视上看到的偶像组合那样呢。和%CNAME("助手")%两人一起唱歌看看吧♪」
			ENDIF
		ELSE
			IF COND("夏")
				PRINTFORMW 「%TEXTR("这个发型虽然有点孩子气……但是夏天会过得比较轻松哟/日本的夏天很热、绑起来会凉快一点呢")%」
			ELSE
				PRINTFORMW 「%TEXTR(@"感觉有点孩子气啊……合适吗？/这个发型让我想起了小时候呢。当然、%CNAME("一人称")%过去是个乖巧的好孩子哟")%」
			ENDIF
		ENDIF
	CASE "马尾辫"
		IF COND("夏")
			PRINTFORMW 「%TEXTR(@"好热、得救了。夏天頭发长是很辛苦的哟/在运动之类的时候也会简单绑起来的呢。还是%CNAME("二人称")%喜欢平时就这个发型的吗？")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"虽然运动的时候也会绑好、但是%CNAME("二人称")%更喜欢平时就绑起来的是吗？/虽然是很轻松的发型、但是显得不够修女所以平时不怎么做的说")%」
		ENDIF
	CASE "三股辫"
		PRINTFORMW 「%TEXTR(@"辛苦你了。%CNAME("一人称")%的頭发还挺长的、编成三股辫应该很辛苦吧/辛苦你了。我虽然喜欢三股辫、但是太长了会很辛苦的说")%」
	CASE "编起来"
		PRINTFORMW 「%TEXTR("像这样把頭发卷起来会给人一种成熟的感觉呢。我自己也试过……还挺难的样子/多谢你替我弄的那么好。比我自己弄的要完美好几倍的说♪")%」
	CASE "団子頭"
		PRINTFORMW 「%TEXTR("像这样编成团啊。原来如此……真是精巧的制作品呢/好厉害啊。漂亮地编成团子了。怎么样呢、合适吗？")%」
	;其他
	CASEELSE
		PRINTFORMW 「%TEXTR(@"原来%CNAME("二人称")%喜欢这种发型啊。怪不得/怎么样呢？　有感觉合适的话、我会很開心的……")%」
	ENDSELECT
CASE "改变髪型拒否"
	PRINTFORMW 「%TEXTR("想摆弄我的頭发是吗？　那有些……/想摆弄我的頭发是吗。如果関系再好一点的话就可以哟")%」

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
;CALL PRINT_STRW, "イエロー_(※想换上裤袜的话、需要[信頼LV3]以及[露出癖LV3]or[奉仕精神LV5])"
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	;RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR(@"若是%CNAME("二人称")%的请求的话、拿你没辙呢。作为补偿……也请听一听%CNAME("一人称")%的请求哦？/这么说的就是%CNAME("二人称")%的趣味吗……有点羞耻呢")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"哈啊……为什么持有这样的连裤袜呢、%CNAME("二人称")%啊/想让我穿这条连裤袜吗？　我认为%CNAME("二人称")%应该把这种热情导向其他事情上才对……")%」
		ENDIF
	ELSEIF CHECK_OUTER("渔网连褲襪")
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR(@"感想吗？　这样啊……有点羞耻的说/虽然我认为就服装来说并不是那么奇怪的打扮。但你不会是忘了%CNAME("一人称")%可是圣职者吧？")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"要我穿这个吗！？　%CNAME("二人称")%别是忘了%CNAME("一人称")%还是圣职者吧、那可就……/那个……%CNAME("一人称")%可是圣职者、这样的打扮实在是不能被允许的呢。现在是因为被强制命令才不得不穿而已啦")%」
		ENDIF
	ELSEIF CHECK_OUTER("连褲襪")
		IF COND("春")
			PRINTFORMW 「%TEXTR("有点暖和还挺微妙的啊、如果一定要说的话、很棒哟/总有天冷的时候、所以很高兴你関心我……可今天是怎么样的呢？")%」
		ELSEIF (COND("秋") || COND("冬"))
			PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%很机灵嘛。在寒季有连裤袜的话会稍微暖和一些、使得活动方便起来。虽然有动作过度会促发静电的毛病呢……/因为有点冷起来了、可是帮大忙了。由于%CNAME("一人称")%是马上就受不了的体质、也准备了替换用的连裤袜哦")%」
		ELSE
			PRINTFORMW 「%TEXTR("马上就会出汗的哟？　诶……那更好吗/诶哆……即使是夏天也想让我穿连裤袜吗。我想马上就会闷热起来呢/或许会形成汗臭那样……尽管如此也想让我穿上吗？")%」
		ENDIF
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"
	PRINTFORMW 「%TEXTR(@"挺让人羞耻的嘛……那种话请对恋人说吧/%CNAME("一人称")%可不是%CNAME("二人称")%的女朋友、请允许我谢绝哦/%CNAME("一人称")%并不是什么都要听你的话哦。如果%CNAME("二人称")%看起来像是更值得信赖的人的话、倒是可以哟")%」

CASE "连褲襪着替え拒否"

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"

	CASE "普通"
		PRINTFORMW 「要变大吗？」
	CASE "巨根"
		PRINTFORMW 「这个大小，已经能插进子宫里了吧」
	CASE "馬根"
		PRINTFORMW 「被这个尺寸插入的话，肚子都会凸起来吧」
	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"
		PRINTFORMW 「不大不小的尺寸正好哦」
	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "錬金術"

CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

;其他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K23, ARGS

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「买东西吗？　对了、因为%CNAME("一人称")%也有想买的东西、正好哟」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「请稍等一下哦。还要换身衣服……」
	ELSE
		PRINTFORML 「这也可以……说是约会吗」
		IF TALENT:恋慕
			PRINTFORMW 「可…可以牵着手吗……」
		ENDIF
	ENDIF
CASE "目送"
	PRINTFORMW 「%TEXTR("一路走好。有什么事的话请马上联系我哦/路上小心。如果有什么困难的话、请联络我哦")%」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「……好、好羞耻的说」
		PRINTFORMW 「那个……真的没问题吗」
	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「……今天没穿呢？」
			PRINTFORMW （一想到没穿内裤会被发现、心情就变得好奇怪……）
		ELSE
			PRINTFORMW 「准备万全了。话说回来……你就是为此而没收了我的胖次的吗？」
		ENDIF
	ELSE
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「%TEXTR("请保持这样的状态出門/这是命令")%……」
			PRINTFORMW （%TEXTR("真空状态下直接出門……只是想想下面的水就止不住了……/真是坏心眼……湿成这样出門……我要小心一点……/啊……胖次脱掉后小穴里面的水会全漏出来的……")%）
		ELSE
			PRINTFORMW 「%TEXTR("又来吗？/本来是不可以这样的哦/之后再教训你哦……真是的")%……」
		ENDIF
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORMW 「是那么急迫的事吗。诶诶~算了、走就走吧……」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「逃课出来、竟然做出这种像不良学生一样的事什么的……本来是不行的哦？」
	ELSEIF CHECK_CLO("裸体") && TALENT:淫乱 && ABL:露出癖 >= 8
		CALL PRINT_STRL, @"「……%TEXTR("哈/呼")%~_HH_」"
		PRINTFORML 「这副毫无遮挡的姿态……%TEXTR("要是被人看到的话真是不得了呢/暴露出来、就是主人的兴趣吗")%」
		PRINTFORMW 「%TEXTR("可以哦/没问题哦")%」
		PRINTFORMW 「就让不认识的大家%TEXTR("好好的记住/看清")% 这个%TEXTR("色情/下流")%身体的每一处%TEXTR("角落/细节")%」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			CALL PRINT_STRL, @"「……%TEXTR("嗯/呼")%_HH_」"
			PRINTFORML 「%TEXTR("居然让我这么丢脸……真是坏心眼/如果被谁看见了怎么办……打扮得这样")%」
			PRINTFORMW （%TEXTR(@"明明讨厌这样……身体却像发烧一样热……不能让%CNAME("主人")%知道……/明明只是觉得不好意思……一想到会被看到就不行了……下面变得湿漉漉的……")%）
		ELSE
			PRINTFORML 「%TEXTR("那个……/呃呃……")%」
			PRINTFORMW 「%TEXTR("现在用了認識阻害、在外人看来是正常的……是吧？/有好好让外人看起来是正常的了吗。尽管听说过也有这种恶魔的魔法")%」
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「虽然有必要的话、替你付钱也不是不可以、但看来不是那么回事呢？」
	ELSE
		PRINTFORML 「%TEXTR("得去结账呢/买这个就行了是吧")%」
		IF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
			;添笔事件：商品购买
			IF TALENT:淫乱 && ABL:露出癖 >= 3
				CALL PRINT_STRW, @"「%TEXTR("哈啊/呼")%_HH_……」"
				IF RAND:2 == 0
					PRINTFORMW （%TEXTR("穿这样的衣服去收银台会有点紧张……总觉得心里七上八下的/明明应该很害羞的……这样的事真的不怎么好……")%」
					PRINTFORMW （店员的眼神总是飘向%CNAME("一人称")%的胸部跟下面呢、裤子也涨起来了...）
					PRINTFORMW （他一定觉得我是个下流的女人吧、对不起...这全部是%CALLNAME:MASTER%要求的，才、才不是我自己想这样的）
				ELSEIF ABL:露出癖 >= 10 && RAND:2 == 0 && CEVENT("NTR允许",TARGET)
					PRINTFORMW （店员桑的肉棒已经勃起的这么厉害了...%CNAME("一人称")%的身体就这么好看吗）
					PRINTFORMW （嗯———— 被这么看着，感觉好兴奋...请多看看吧）
					PRINTFORMW %CALLNAME:TARGET%像是展示身体般，在店员的面前捧起自己的乳房揉捏起来
				ELSE
					PRINTFORMW 店员的眼神好露骨...
				ENDIF
			;事件结束
			ELSE
				PRINTFORMW （%TEXTR(@"视线好刺骨的样子……/不知为何、感受到奇怪的视线了呢……/总觉得店员没在看商品、而是在看%CNAME("一人称")%的样子……一定是我多心了吧")%）
			ENDIF
		ELSE
			PRINTFORMW （%TEXTR("只要堂堂正正就一定没什么好紧张的……/真是的……过后说教你/平常心……平常心……这只是买东西。什么问题也没有")%）
		ENDIF
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材"
		;添笔事件：摄影机材购入
		PRINTFORMW 请给我这个
		PRINTFORMW %CALLNAME:TARGET%指了指在柜台中摆放着的摄影机
		IF CEVENT("ＮＴＲ：与店员交换了联系方式") && CONFIG("路人Ｈ") && CEVENT("NTR允许",TARGET)
			PRINTFORMW 店员似乎兴致勃勃地开始跟%CALLNAME:TARGET%讲起了%TEXTR("摄影的技巧/相机的用法/摄影机的参数")%，不耐烦的你转身去看别的商品了
			PRINTFORMW 看到你的离开，%CALLNAME:TARGET%%TEXTR("将手伸进店员的裤子里套弄起来/来到柜台后吮吸起店员的阴茎/抓着店员的手伸进胸罩内揉弄起来/一边与店员接吻，一边帮他用飞机杯自慰")%
			PRINTFORMW 在店员射精后，用小嘴清洁完，%CALLNAME:TARGET%才拿着摄影机离开了
		ELSEIF ABL:露出癖 >= 5 && COND("合意：ＡＶ撮影")
			PRINTFORMW 不知为何店员的表情有点奇怪，还频繁的将眼神撇向某处
			PRINTFORMW %CALLNAME:TARGET%顺着店员眼神的方向看去，发现自己的AV竟摆在了货架的第一位
			IF TALENT:淫乱 && CONFIG("路人Ｈ") && TALENT:処女 == 0 && CEVENT("ＮＴＲ：与店员交换了联系方式") == 0 && CEVENT("NTR允许",TARGET)
				PRINTFORMW %CALLNAME:TARGET%一下子羞红了脸，这下店员是不用问也知道了。
				PRINTFORMW 向店员比了个噤声的手势，%CALLNAME:TARGET%在店员将摄影机递过来的同时，悄悄的给店员留下了自己的联系方式
				PRINTFORMW 店员愣了一下，%CALLNAME:TARGET%则向他调皮地眨了下眼睛，口型似乎在说 [要保密哦]
				CALL SET_CEVENT, "ＮＴＲ：与店员交换了联系方式"
			ELSE
				PRINTFORMW %CALLNAME:TARGET%满脸通红的接过摄像机跑走了
			ENDIF
		ENDIF
		;事件结束
	CASE "潤滑液", "媚薬", "飞机杯"
		PRINTFORMW （%TEXTR("唿~……有点心跳加速了、但这种程度对高中生来说也只是普通购物的吧/好好买回来了……好像没被看作是怪人呢")%）
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「咳咳……虽然避孕意识高是好事、但正常来说让女孩子买这种东西可是不行的哦」
		ELSE
			PRINTFORMW 「%TEXTR(@"我能理解说是为了避孕的需要……但是、%CNAME("一人称")%好歹也是女孩子、太羞耻了啊……/避孕是很重要。不过、%CNAME("一人称")%可不是%CNAME("二人称")%老妈。请想想让我买的都是什么呀")%」
		ENDIF
	;えっちな商品
	CASEELSE
		PRINTFORML 「%TEXTR("真是的……/真的是……/……回去可要说教说教你哦")%」
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("她有些生气的样子把商品递了过来/羞耻染红了脸颊的同时、她皱着眉頭抱怨道")%
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:2
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORMW （%TEXTR("好想……早点回去啊……/有点……静不下心来呢……")%）
	;添笔事件：未发现情况下的店员H
	ELSEIF ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満") && TALENT:処女 == 0 && CEVENT("NTR允许",TARGET)
		IF ABL:Ｖ感覚 >= 5 && RAND:5 == 0
			PRINTFORMW 你环顾四周，发现%CALLNAME:TARGET%的身影不见了
			PRINTFORMW 也许是上厕所了？
			PRINTFORMW 你没有在意，开始继续购物
		ELSEIF ABL:Ｖ感覚 >= 5 && RAND:5 == 1
			PRINTFORMW 你注意到%CALLNAME:TARGET%已经消失有一会了
			PRINTFORMW 你靠近店员，打算询问一下
			PRINTFORMW 店员的状态有些奇怪，好像下半身没有穿衣服，而且呼吸粗重，时不时就会颤抖一下
			PRINTFORMW 看向你的眼神也不太对劲，隐隐约约从柜台下有着吮吸声传来
			PRINTFORMW 店员向你告知了店内厕所的位置后，你带着些许疑惑离开了
			PRINTFORMW
			PRINTFORMW 与此同时，被遮挡的柜台下方、
			PRINTFORMW 赤身裸体的%CALLNAME:TARGET%正双手扶着店员的大腿、以M字开腿的下流姿势、卖力地侍奉着肉棒
			PRINTFORMW 与粗壮的肉棒毫不相称的%CALLNAME:TARGET%的小嘴、却轻而易举的将其吞下
			PRINTFORMW %CALLNAME:TARGET%双唇大大地张开着、并不时有唾液混合着、拉着长长的丝线垂落在晃动的乳房上
			PRINTFORMW 在望着你离开后、店员便迫不及待地从%CALLNAME:TARGET%口中拔出满是唾液的肉棒、让%CALLNAME:TARGET%转过身、以站立后背位的姿势伏在收银台上
			PRINTFORMW 一只手拨弄着%CALLNAME:TARGET%的翘臀、一只手扶着湿润的肉棒、对准那泛滥的蜜裂缓缓刺入
			CALL PRINT_STRW, @"「喔~~——_HH__HH_~！ 唔————」"
			PRINTFORMW %CALLNAME:TARGET%的身体一阵颤抖、下流的呻吟无法忍耐地从口中漏出、又再次被自己紧紧捂住
			PRINTFORMW %CNAME("主人")%随时可能返回的担忧、主动与店员做爱的背德感、以及从小穴子宫不断传来的快感不停的刺激着%CALLNAME:TARGET%的神经....
		ELSEIF ABL:Ｖ感覚 >= 5 && RAND:5 == 2
			PRINTFORMW 你拿着商品来到了柜台，可奇怪的是，柜台的店员却不见了
			PRINTFORMW 『有人吗』
			PRINTFORMW 你试着问到，但是没有人回答
			PRINTFORMW 突然，一丝娇哼声传入你的耳朵，似乎是从柜台深处传来的
			PRINTFORMW 你一边说着抱歉，一边进入了柜台，越是靠近里面声音便越加清晰，好像有人在里面拍手一般，传来‘啪 啪’的声音
			PRINTFORMW 你注意到了一扇暗门，门上挂着一个牌子：门店重地，禁止闯入。
			PRINTFORMW
			PRINTFORMW 此刻，门的另一边
			PRINTFORMW %CALLNAME:TARGET%正浑身赤裸地趴在门上，一手扶着门，一手捂住自己的嘴尽量不发出声音
			PRINTFORMW 背后同样赤裸的店员正扶着%CALLNAME:TARGET%柔软的腰肢，努力的摆动着
			PRINTFORMW 坚硬的肉棒不断在%CALLNAME:TARGET%的小穴中进进出出
			PRINTFORMW 每一下拍击都会在%CALLNAME:TARGET%丰满的屁股上，带起一阵肉浪、伴随着溢出的淫液，飞洒至各处
			PRINTFORMW
			PRINTFORMW 你盯着那个牌子看了许久，最终还是离开了
		ELSEIF ABL:Ｖ感覚 >= 5 && RAND:5 == 3
			PRINTFORMW 有些尿意的你来到了厕所，似乎是厕所已经有人的样子，有些奇怪的声音，你敲了敲门
			PRINTFORMW 『%CALLNAME:TARGET%，你在里面吗』
			PRINTFORMW 奇怪的声音立刻消失了
			CALL PRINT_STRW, @"「是，是的，%CNAME("主人")%也要... 嗯~_HH_ 上厕所吗」"
			CALL PRINT_STRW, @"「请稍微...嗯呜~~_HH_...等一下哦~~喔_HH__HH_~！？」"
			PRINTFORMW %CALLNAME:TARGET%的声音似乎有些颤抖，你只当时她身体有问题，并没有在意，回去继续购物了
			PRINTFORMW 此刻，门的另一边
			PRINTFORMW 店员正双腿岔开着坐在马桶上、勃起的肉棒在两腿之间耸立着
			PRINTFORMW 而%CALLNAME:TARGET%坐在店员的跨间、主动地前后晃动、让店员的阴茎在自己的小穴深处不断摩擦着
			PRINTFORMW 没过多久%CALLNAME:TARGET%再次回到了你身边，只是面色微红，小小的喘着气，不知怎么，你觉得现在的%CALLNAME:TARGET%有些色情。
			PRINTFORMW
		ELSEIF ABL:Ｖ感覚 >= 5 && RAND:5 == 4
			PRINTFORMW 你发现%CALLNAME:TARGET%不见后，在店中寻找着
			PRINTFORMW 你来到一间贴着仓库字样的门前，从里面传来奇怪的声音
			PRINTFORMW 你悄悄将门打开一条小缝，望向里面，昏暗的灯光下，勉强能看到是两具纠缠在一起的肉体
			PRINTFORMW 由于背向着你，也看不到面孔，只能从男人的背影猜测男人大概是店员
			PRINTFORMW 而女人则被店员的后背挡住，只能看到两条白嫩的大腿从店员的腰处伸出，向两边展开着
			PRINTFORMW 店员腰间耸动着，一下又一下，带动着女人的两条腿来回晃荡
			CALL PRINT_STR, @"「%TEXTR("嗯咕…/嗯唔~……/嗯嗯~……")%_HH_　嗯呜~~_HH_…………」_L"
			PRINTFORMW 店员换了个姿势，压在女人身上，开始一边接吻一边抽插，两人的结合处也随之向你清晰的暴露出来
			CALL PRINT_STR, @"「%TEXTR("嗯…啾_HH_　啾、啾咪/咀噜、啾唔…咀噜噜……_HH_　嗯、嗯嗯~")%_HH_」_W"
			PRINTFORMW 店员每一次抽插都会一口气将阴茎全部插入女人的小穴，然后拔起到只剩龟头留在里面再深深插入，每一次都会带出大量的淫液洒向四周
			PRINTFORMW 很快，店员开始加快了速度，女人的娇哼也变成了野兽般无意义的哀嚎，张开的双腿也夹在了店员的腰间
			PRINTFORMW 随着店员最后一次深深的插入小穴中，射精开始了，店员的阴茎脉动着，向着女人的的子宫射入了精液，女人的小穴好像承受不下店员这么多的量，不断有精液从两人的结合处溢出来，流到了地上
			PRINTFORMW 店员将肉棒拔出，汩汩精液便从小穴还未闭合的洞口流出，店员从女人身上跨过，似乎是让女人舔干净，女人抬起头，似乎是有金色的光泽一闪而过，你想再仔细看清时，女人已经再次躺下，看不到了
			PRINTFORMW （难道是...不，绝对可能）
			PRINTFORMW 你在店员发现前，悄悄关上门离开了。
		ENDIF
		IF CEVENT("ＮＴＲ：跟店员出轨了") == 0
			CALL SET_CEVENT, "ＮＴＲ：跟店员出轨了"
			;PRINTFORMW %CALLNAME:TARGET%跟店员出轨了
		ENDIF
	ELSEIF TALENT:淫乱 && ABL:露出癖 >= 5 && CEVENT("NTR允许",TARGET)
		IF CHECK_CLO("裸体")&& ABL:精液中毒 >= 5 && ABL:Ｖ感覚 >= 5 && CONFIG("路人Ｈ")&& RAND:4 == 0
			PRINTFORMW 在你看不到的地方，%CALLNAME:TARGET%全身赤裸地靠近了店员
			PRINTFORMW %CALLNAME:TARGET%向店员询问能不能试用一下振动棒，店员看了看%CALLNAME:TARGET%一丝不挂的身体，从私人陈列柜中取出了一根干净的振动棒递了出去
			PRINTFORMW 谢谢，接下来是奖励时间哦
			PRINTFORMW %CALLNAME:TARGET%背对着店员，像是展示自己的私处一般撅起了屁股，在店员的注视下将振动棒一点点地插进了小穴
			PRINTFORMW 店员在柜台后默默的取出阴茎，上下摆弄起来
			PRINTFORMW %CALLNAME:TARGET%一边拨弄着振动棒，一边悄悄地走入柜台，在店员的面前蹲下，将脸贴在了肉棒前
			PRINTFORMW 『要，要射了』
			PRINTFORMW %CALLNAME:TARGET%在店员加速撸动着杆部的同时，用小嘴含住了店员的龟头，下一秒浓郁的精液便汹涌着，填满了%CALLNAME:TARGET%的口腔
			PRINTFORMW %CALLNAME:TARGET%的喉咙滚动着，直到咽下所有的精液才吮吸着将嘴离开了龟头
			CALL PRINT_STRW, @"「店员桑的精子，还真是%TEXTR("浓郁/健康")%呢~_HH_」"
			PRINTFORMW %CALLNAME:TARGET%将振动棒从小穴中拔出，将沾着爱液的振动棒还给店员后，回到了你身边
		ELSEIF CHECK_CLO("裸体")&& ABL:精液中毒 >= 5 && ABL:Ｖ感覚 >= 5 && CONFIG("路人Ｈ")&& RAND:4== 1
			PRINTFORMW 在你看不到的柜台旁的暗门里，两具赤裸的身体正忘我的纠缠着
			PRINTFORMW 店员一手揉弄着乳房，一手抓着%CALLNAME:TARGET%的屁股
			PRINTFORMW 尽情抽插着
			PRINTFORMW %CALLNAME:TARGET%
			PRINTFORMW 双腿间夹着的飞机杯
			PRINTFORMW 店员吮吸着%CALLNAME:TARGET%粉嫩的乳头，开始了加速
			PRINTFORMW 伴随着一声低沉的怒吼，店员在飞机杯里射精了
			PRINTFORMW 射精结束后，%CALLNAME:TARGET%将飞机杯取下，用嘴对准飞机杯的入口，仰起头，将精液倒入了自己的口中
			PRINTFORMW 随后%CALLNAME:TARGET%将店员满是精液的肉棒吸吮干净后，回到了你身边
		ELSEIF CHECK_CLO("裸体")&& ABL:精液中毒 >= 5 && ABL:Ｖ感覚 >= 5 && CONFIG("路人Ｈ")&& RAND:4== 2
			PRINTFORMW 在你看不到的柜台旁的柜台后面
			PRINTFORMW %CALLNAME:TARGET%正浑身赤裸的躺在地上，双腿呈M字打开，娇嫩的小穴一览无余
			PRINTFORMW 店员双腿屈跪着，给自己的肉棒涂满润滑液后，将股间贴住了%CALLNAME:TARGET%的私处，并将挺立的阴茎按在了%CALLNAME:TARGET%的小腹上
			PRINTFORMW %CALLNAME:TARGET%抬起双腿，伸直后缓缓并拢，将店员湿润的肉棒夹在了大腿根部、
			PRINTFORMW 『%CALLNAME:TARGET%酱的大腿好舒服...』
			PRINTFORMW 店员抱住%CALLNAME:TARGET%紧致又充满弹性的大腿开始抽插起来
			PRINTFORMW 时不时上下摩挲%CALLNAME:TARGET%的大腿，时不时含住圆润的脚尖
			PRINTFORMW 很快，店员就到达了极限，将%CALLNAME:TARGET%的双腿压在身下，龟头从两腿中探出，抵在了%CALLNAME:TARGET%的肚脐上射精了
			PRINTFORMW %CALLNAME:TARGET%起身爬到店员的股间，用舌头把肉棒打扫干净，接着取出纸巾擦拭了身上的污渍后，回到了你身边
		ELSEIF CHECK_CLO("内衣姿")
			CALL PRINT_STRW, @"「%TEXTR("哈啊/呼")%_HH_……」"
			PRINTFORMW （%TEXTR("店员桑在盯着这里看……总觉得心里七上八下的/明明应该很害羞的……但店员的眼神看过来却忍不住身体发烫……")%」
			PRINTFORMW %CALLNAME:TARGET%背着你悄悄地将内裤拨开，让店员能够看到自己毫无遮挡的小穴
			PRINTFORMW （店员桑能看到吗...一想到在%CNAME("主人")%不知情的情况下让别人欣赏自己的小穴什么的，就忍不住湿了）
			PRINTFORMW 在你看不到的地方店员正紧紧盯着%CALLNAME:TARGET%的小穴
		ELSE
			PRINTFORMW （%TEXTR(@"视线好刺骨的样子……/不知为何、感受到奇怪的视线了呢……/总觉得店员没在看商品、而是在看%CNAME("一人称")%的样子……一定是我多心了吧")%）
		ENDIF
		;事件结束
	ELSE
		PRINTFORMW 「%TEXTR(@"找到想要的东西了吗？/我没什么……喜欢的、不、我完全没有兴趣")%
	ENDIF
;2020/1/31　新規追加分岐対応样本
CASE "询问有什么想要的东西"
	PRINTFORM 「在叫我吗？」
	PRINTFORML 「想要的东西是吗？」
	PRINTFORM 「%TEXTR("因为是难得的机会……/是啊、")%
	IF COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
		PRINTFORML %TEXTR("拡張/両穴")%用的新的振動棒什么的……」
	ELSEIF COND("身嗜み：Ｖ拡張")
		PRINTFORML %TEXTR("阴部/膣/小穴/ヴァギナ")%用的新的振動棒什么的…」
	ELSEIF COND("身嗜み：Ａ拡張")
		PRINTFORML %TEXTR("肛門/屁股那边/不浄の穴")%用的……肛門%TEXTR("肛塞/拉珠/振動棒")%之类的……」
	ELSEIF COND("身嗜み：尿道拡張")
		PRINTFORML 尿道に入れる用の新しい导管など……如何でしょう」
	ELSE
		PRINTFORML 新的%TEXTR("衣装/内衣")%什么的……才不想要呢」
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORMW 「%TEXTR(@"……有很多想对%CNAME("二人称")%说的先不谈。万一败露的话可打算怎么办啊？/紧张得%CNAME("一人称")%快要死掉那样啦。下次再搞这种恶作剧的话、请给我打住哦？")%」
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「%TEXTR("是了。就算不在店里买如今也有网购嘛/真的不买也没関系吗？　过后再让弗理希艾尔小姐去买可不好哟")%」
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「有点惊险啊。 虽然很不好意思……那个…………」
			PRINTFORMW 「我并不讨厌……如果还能再这样命令我的话、也可以哦？」
		ELSE
			PRINTFORMW 「呼~……」
		ENDIF
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満") && CEVENT("ＮＴＲ：跟店员出轨了") && CEVENT("NTR允许",TARGET)
			PRINTFORMW 「……%TEXTR(@"店员桑的....啊..没，没什么,只是在自言自语罢了/今天的%CNAME("一人称")%已经很满足了哦")%」
			PRINTFORMW （偷偷跟店员做了...什么的，%TEXTR("可绝对不能让主人知道/可不能说露了嘴")%）
		ELSEIF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「%TEXTR(@"居然做了这么丢脸的事……圣职者失格了呢。以后请神听%CNAME("一人称")%的忏悔/明明很害羞……但是却心跳不已之类的。这样的事会惹怒神的")%」
			PRINTFORMW 「……%TEXTR(@"不是。%CNAME("一人称")%只是接受不得不执行的命令……绝对不是变态啊/竟然因为露出而兴奋……不是的、这个、这个……只是因为太害羞所以湿了而已")%」
		ELSE
			PRINTFORM 「真是的、感到開心的只有%CNAME("二人称")%一个人哦
			IF TALENT:恋慕
				PRINTFORM 。%TEXTR("在只有两人独处的场所还好、但在店里会给其他人造成困扰的、所以不行哟？/要是想做那种事情的话……就去没有其他人的深夜的公园之类的地方做吧")%
			ENDIF
			PRINTFORMW 」
		ENDIF
	ELSE
		PRINTFORMW 「可以的话、我帮你提袋子吧？」
	ENDIF
	IF CEVENT("ＮＴＲ：与店员交换了联系方式")&& COND("欲求不満") && CONFIG("路人Ｈ") && CEVENT("NTR允许",TARGET)
		PRINTFORMW
		PRINTFORMW 才走出商店没多久，%CALLNAME:TARGET%%TEXTR(@"就接到了店员的电话，似乎是有什么东西落在了店里/说想要回商店上个厕所")%，让你自己先回去，然后啪嗒啪嗒的跑开了
		PRINTFORMW 在你回到家的时候，另一边
		PRINTFORMW %TEXTR(@"店员正拼命的摇摆着腰部，进攻着%CALLNAME:TARGET%的G点/店员正抱起%CALLNAME:TARGET%的两条腿，在商店的门口一边接吻一边抽插/%CALLNAME:TARGET%正跨坐在店员的肉棒上，在商店的中央做着上下运动/%CALLNAME:TARGET%正趴在收银台，任由店员在身后抽插")%
		IF CEVENT("ＮＴＲ：跟店员出轨了") == 0
			CALL SET_CEVENT, "ＮＴＲ：跟店员出轨了"
			;PRINTFORMW %CALLNAME:TARGET%跟店员出轨了
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/23 マリー/EVENT_K23_SHOP.ERB

license: unknown


path: ERB/EVENT_K/23 マリー/EVENT_K23_マリー.ERB


path: ERB/EVENT_K/23 マリー/UPDATE_K23.ERB


code:
;-------------------------------------------------
;口上随机生成関数
;ARGSは種別
;式中関数として呼び出すのはひとまず保留
;
;@KOJO_RAND_K5をベースに使用して良いと元の作者桑から許可を得ています
;使いたい人は自分の角色の口調に合わせてどうぞ
;
;改変：表示されるセリフを二行に修正
;
;2020/08/01　一度整理してLOCAL変数への代入ではなく実数による分岐を取る形に整理しなおした
;
;@HANYOUHEARTMARK
;SETCOLOR DEF_COLOR("爱心粉紅")
;CALL HEARTMARK
;RESETCOLOR

;-------------------------------------------------
@KOJO_RAND_K23(ARGS)
SELECTCASE ARGS
CASE "接吻"
	;情緒による口上変化度合いを決定
	;情緒30につき爱心一個分に相当する
	;情緒が150以上

	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)
		CALL PRINT_STR, @"「%TEXTR("啾~/嗯啾~/嗯~/嗯嗯~")%_HH_"
		IF FLAG:情緒 >= 150 && TALENT:恋慕
			CALL PRINT_STR, @"　%TEXTR(@"%CNAME("主人", "甘え")%…/%CNAME("主人")%、")%%TEXTR("好喜欢/最喜欢了/喜欢……")%%TEXTR(@"请和%CNAME("一人称")%接吻……/请多爱%CALLNAME:TARGET%一些……/请永远在我身边……")%"
		ENDIF
		PRINTFORMW 」
	ENDIF
	;本文開始
	;ちゅっちゅ系
	IF RAND:2 == 0
		PRINTFORM 「%TEXTR("ちゅっ、/ちゅ…/ちゅっ…/ちゅぅ……/んちゅっ、")%%TEXTR("ちゅっ/ちゅっ…チュッ/ちゅ…チュウッ/ちゅ…ちゅう/ちゅっ…ちゅっ")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
			ELSE
				CALL PRINT_STR, @"_HH_"
			ENDIF
		ENDIF
		PRINTFORMW 」
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("＿/ん、/んっ、/ん……")%%TEXTR("んっ…/ちゅ、んん…/んん……/んん…っ、ん…/んんっ、ん…/ぁふっ、ん…/んっ、ちゅ…")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("…ん/…んぅ/…んんっ/っ/…んっ")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
			ELSE
				CALL PRINT_STR, @"_HH_"
			ENDIF
		ENDIF
		PRINTFORMW 」
	ENDIF

CASE "口交"
	;情緒による口上変化度合いを決定
	;情緒が高いほど深く咥えこんでいることを意識
	;情緒が150以上

	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)
		PRINTFORM 「%TEXTR("嗯咕~/嗯姆~/嗯~/嗯嗯~")%
		IF FLAG:情緒 >= 150 && TALENT:恋慕
			CALL PRINT_STR, @"_HH_　%TEXTR(@"%CNAME("主人", "甘え")%…/%CNAME("主人")%、")%%TEXTR(@"気持ちいいんですね/びくびくして可愛い/こんなに脈打って/こんなに熱くなって/%CNAME("一人称")%のご奉仕はどうでしょうか/好きです/大好きです")%"
		ENDIF
		CALL PRINT_STRW, @"_HH_」"
	ENDIF
	;レロレロレロレロ　「やはりeraか……いつ出発する？我も同行する」「你院」
	IF RAND:3 == 0
		PRINTFORM 「%TEXTR("んっ、/んっ…、/んぅ、/んぅ…/ちゅっ、/んんっ……/れろ、/れろっ、/れろ…/れろ…/れろ…")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("れろ…/れろ……/ぁむ…/れろっ…/はむ……")%%TEXTR("＿/んっ/んぅっ/ちゅっ/ちゅぷっ")%
	;んぐっ系
	ELSEIF RAND:2 == 0
		PRINTFORM 「%TEXTR("んっ、/んっ…、/んん…/ん…ぐっ……/んぐっ、/んむっ、")%%TEXTR("んぐっ…/んぅ……/んん……/んっ…/んむっ……/んん…")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("＿/っ/んっ")%
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("ん、/んっ、/んん…っ、/んんっ、")%%TEXTR("んっ/んっ…っ/んん……っ/ん…っ/ぷはっ、ん…っ")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("＿/、ちゅ、んん…っ/、ちゅ…っ")%
	ENDIF
	IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
		IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ELSE
			CALL PRINT_STR, @"_HH_"
		ENDIF
	ENDIF
	PRINTFORMW 」
	;……巻髪は作業量が増えた事に悲しんだ
	IF COND("開口口枷")
		PRINTFORML
		IF ABL:受虐属性 >= 3
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%很乐意的同时、从嵌套的环形口枷中伸出舌頭来竭力地侍奉着
			ELSEIF RAND:2 == 0
				PRINTFORMW 被強制開口的%CALLNAME:TARGET%脸颊泛红、前后摆动脑袋为%CALLNAME:PLAYER%侍奉着
			ELSE
				PRINTFORMW %CALLNAME:TARGET%为被戴上了强制開口枷而感到兴奋的同时、收拢舌頭在口内缠绕舔抵那样的奋不顾身地侍奉着
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%从嵌套的环形口枷中伸出舌頭来做着侍奉
			ELSEIF RAND:2 == 0
				PRINTFORMW 被强制開口的%CALLNAME:TARGET%前后摆动脑袋地侍奉着
			ELSE
				PRINTFORMW 尽管%CALLNAME:TARGET%感到不自由、但依然收拢舌頭在口内缠绕舔抵那样的侍奉着
			ENDIF
		ENDIF
	ENDIF

;強制口交状態を想定
CASE "強制口交"
	;情緒による口上変化度合いを決定
	;情緒が高いほど深く咥えこんでいることを意識

	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)
		PRINTFORM 「%TEXTR("姆咕/姆咕~~/蒽蒽/嗯噗~~")%
		;情緒がさらに高いと追加口上
		IF FLAG:情緒 >= 150 && (TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)))
			CALL PRINT_STR, @"_HH_　%TEXTR("嗯嗯/嗯牟/嗯咕~~/咕噗~~")%"
		ENDIF
		CALL PRINT_STRW, @"_HH_」"
	ENDIF
	;んぐっ系
	IF RAND:2 == 0
		PRINTFORM 「%TEXTR("んぐっ、/んぐ、んっ…/ん゛んっ、/んむぅっ、")%%TEXTR("むぐぅっ…/んむぅ…っ/んん゛っ…、ぶぐ、ぅ…/っ…ぐぶっ/んむ゛っ……っ/ん゛ん…っ")%
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("んっ、/んぅっ、/んん…っ、")%%TEXTR("んっ…っ/んぐ…っ/ぐむ……っ/んぐ…っ/んんぅ゛っ/んぐむ…っ/んっ、ごぇぇ…っ")%
	ENDIF
	IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
		IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ELSE
			CALL PRINT_STR, @"_HH_"
		ENDIF
	ENDIF
	PRINTFORMW 」
	;……巻髪は作業量が増えた事に二重に悲しんだ
	IF COND("開口口枷")
		IF ABL:受虐属性 >= 3
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%虽然看起来挺难受的样子、却还是含入喉咙深处、前后摆动螓首地侍奉着
			ELSEIF RAND:2 == 0
				PRINTFORMW 被强制撑開口腔的%CALLNAME:TARGET%尽管浮现出了痛苦的表情、却还是含至根部地舌頭取悦着%CALLNAME:PLAYER%
			ELSE
				PRINTFORMW %CALLNAME:TARGET%难受地皱着眉頭、眼瞳却荡漾着快感、难过的吐息从開口器中漏了出来
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%由于被套上了环型口枷而无法抵抗、被顶到喉咙深处为止地吞吐着
			ELSEIF RAND:2 == 0
				PRINTFORMW 被强制開口的%CALLNAME:TARGET%被吞食至根部的深喉着、脸上浮现出苦闷的表情
			ELSE
				PRINTFORMW %CALLNAME:TARGET%尽管眉頭紧皱、却做不出抵抗的被侵犯着口腔
			ENDIF
		ENDIF
	ENDIF

;打屁股　打屁股、鞭、針等の苦痛系
CASE "打屁股"
	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && ABL:受虐属性 >= 3
		PRINTFORM %TEXTR("くっ/ぐっ/くぅっ")%
		;情緒がさらに高いと追加口上
		IF FLAG:情緒 >= 150
			CALL PRINT_STRW, @"%TEXTR("んっ…/んぅっ…/はぁ…/っ…")%%TEXTR(@"もっとお仕置きしてください/もっと叩いてください/もっと強くしてください/%CNAME("主人")%の望むままに")%_HH_」"
		ELSE
			PRINTFORML ……」
			PRINTFORMW （%TEXTR(@"お尻を叩くなんて/%CNAME("一人称")%のお尻……叩かれちゃってる/絶対に……打屁股されて、感じたりなんか")%……）
		ENDIF
	ENDIF
	;んぐっ系
	IF RAND:2 == 0
		PRINTFORM 「%TEXTR("んぐっ/くっ/くぅっ/んっ/んぅ")%
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("んっ/んぅっ/んんっ")%
	ENDIF
	;苦痛　痛い
	IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
		IF RAND:2 == 0
			PRINTFORMW ！！　はぁはぁ……絶対に負けません……」
		ELSE
			PRINTFORMW ！！　この程度……耐えてみせます……」
		ENDIF
	;苦痛　苦しい
	ELSEIF CUP:苦痛 >= 100 || (CUP:苦痛 >= 1000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 2000 && ABL:受虐属性 >= 5)
		IF RAND:2 == 0
			PRINTFORMW ！　こんな事をされても%CNAME("一人称")%は負けたりしませんから……」
		ELSE
			PRINTFORMW ！　疼痛には慣れていますから。こんな事で%CNAME("一人称")%は負けません……」
		ENDIF
	;情緒に依存して爱心マークである確率が上がる
	ELSEIF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && ABL:受虐属性 >= 3 && RAND:4
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ENDIF
		CALL PRINT_STR, @"_HH_　"
		IF RAND:2 == 0
			CALL PRINT_STRW, @"%CNAME("主人")%のせいですからね……%CNAME("一人称")%は……痛くされるのが好きになっちゃいました_HH_」"
		ELSE
			CALL PRINT_STRW, @"あんまり酷い事ばかりするから……%CNAME("一人称")%は痛くされると……気持ち良くなってしまう身体になっちゃいましたよ_HH_」"
		ENDIF
	ELSEIF LOCAL >= 3 && ABL:受虐属性 >= 3
		CALL PRINT_STR, @"_HH_　"
		IF RAND:2 == 0
			CALL PRINT_STRW, @"す、少しぐらいなら……叩いてくれても、耐えてみせますから。遠慮しないでくださいね_HH_」"
		ELSE
			CALL PRINT_STRW, @"違います。その……ビッ阴蒂して声が出ただけなんですからね_HH_」"
		ENDIF
	ENDIF
	;……巻髪は雪だるま式に増え続ける作業量に精灵のせんしに復讐を誓った
	IF ABL:受虐属性 >= 5
		IF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%尽管一副难受的样子、却还是泄出了烦恼的吐息……
		ELSEIF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%将疼痛作为快感承受、痛苦地喘息着……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%对遭受摧残而感到快感、吐出甜美的吐息……
		ENDIF
	ENDIF

;ギャグ状態を想定
CASE "口枷"
	;実験仕様
	;快感許容値の100％以上
;	IF BASE:快感許容値女性 >= MAXBASE:快感許容値女性
;		LOCAL = 5
;	;絶頂ゲージの100％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂
;		LOCAL = 5
;	;快感許容値の75％以上
;	ELSEIF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 3 / 4
;		LOCAL = 4
;	;絶頂ゲージの75％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂 * 3 / 4
;		LOCAL = 4
;	;快感許容値の50％以上
;	ELSEIF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 2 / 4
;		LOCAL = 3
;	;絶頂ゲージの50％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂 * 2 / 4
;		LOCAL = 3
;	;快感許容値の25％以上
;	ELSEIF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 1 / 4
;		LOCAL = 3
;	;絶頂ゲージの25％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂 * 1 / 4
;		LOCAL = 2
;	ELSE
;		LOCAL = 1
;	ENDIF
	;情緒が高い場合の追加口上
	;快感許容値の75％以上
	IF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 3 / 4
		PRINTFORM 「%TEXTR("んぅぅ/んぅっ/んんぅっ/ん゛ぅっ/ん゛ん゛っ/ん゛ぅーっ/ん゛ん゛ぅ/ん゛ぅっー")%
	ENDIF
	;情緒がさらに高いと追加口上
	IF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 && (TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)))
		CALL PRINT_STR, @"_HH_　%TEXTR("んぅっ/んんっ/んぅう/んうぅ/んっ/んー/んぅっ/ん゛ぅう/ん゛うぅ/ん゛ん゛ぅ/ん゛ぅっ/ん゛ん゛っ/ん゛っ/ん゛ー/ん゛ぅっ/ん゛ん゛ぅ")%_HH_"
	ENDIF
	PRINTFORMW 」
	IF RAND:2 == 0
		;苦痛　痛い
		IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
			PRINTFORML %LOCALS%%TEXTR("んぐっ、/んぐ、んっ…/ん゛んっ、/んむぅっ、/んぅっ/ん゛ぐぅ/んー/ん゛っー/んぅっ/んんっ/んぅう/んうぅ/んっ/んー/んぅっ/ん゛ぅう/ん゛うぅ/ん゛ん゛ぅ/ん゛ぅっ/ん゛ん゛っ/ん゛っ/ん゛ー/ん゛ぅっ/ん゛ん゛ぅ")%%TEXTR("むぐぅっ/んむぅ…っ/ん゛むぅ…っ/んん゛っ…、ぶぐ、ぅ/っ…ぐぶっ/んむ゛っ……っ/ん゛ん…っ")%
		ELSE
			PRINTFORML %LOCALS%%TEXTR("んぐっ/んぐ、んっ/ん゛んっ/んむぅっ/んぅっ/ん゛ぐぅ/んー/ん゛っー/んぅっ/んんっ/んぅう/んうぅ/んっ/んー/んぅっ/ん゛ぅう/ん゛うぅ/ん゛ん゛ぅ/ん゛ぅっ/ん゛ん゛っ/ん゛っ/ん゛ー/ん゛ぅっ/ん゛ん゛ぅ")%
		ENDIF
	ELSE
		;苦痛　痛い
		IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
			PRINTFORM %LOCALS%%TEXTR("嗯、/嗯、嗯、/嗯唔、/蒽唔、/嗯嗯…、/蒽蒽…、")%%TEXTR("嗯…っ/蒽…っ/嗯咕…っ/嗯咕…/蒽咕…っ/咕姆……っ/嗯嗯噁/嗯咕姆~…っ/嗯、…/蒽…っ/嗯、嗯唔~")%
		ELSE
			PRINTFORM %LOCALS%%TEXTR("嗯/嗯、嗯、/嗯唔、/蒽唔、/嗯嗯…、/蒽蒽…、")%
		ENDIF
	ENDIF
	;苦痛　痛い
	IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
		PRINTFORMW ！！」
	;苦痛　苦しい
	ELSEIF CUP:苦痛 >= 100 || (CUP:苦痛 >= 1000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 2000 && ABL:受虐属性 >= 5)
		PRINTFORMW ！」
	;情緒に依存して爱心マークである確率が上がる
	ELSEIF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && ABL:受虐属性 >= 3 && RAND:4
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ELSE
			CALL PRINT_STR, @"_HH_"
		ENDIF
		PRINTFORMW 」
	ENDIF
	IF RAND:3 == 0
		;口球装備中
		IF COND("口球")
			PRINTFORMW 从%CALLNAME:TARGET%被套上的口球中液体不断地溢出来后滑落而下……
		;環形口枷装備中
		ELSEIF COND("開口口枷")
			PRINTFORMW %CALLNAME:TARGET%从套着的环形口枷中伸出舌頭来、使得口水不断地流出着
		ENDIF
	ELSEIF RAND:2 == 0
		IF ABL:受虐属性 >= 3
			;口球装備中
			IF COND("口球")
				PRINTFORMW 虽然嘴巴被口球堵住了、%CALLNAME:TARGET%却露出了陶醉的表情
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%因欢喜而脸颊泛红
			ENDIF
		ELSE
			;口球装備中
			IF COND("口球")
				PRINTFORMW 嘴巴被口球塞住的%CALLNAME:TARGET%死死的瞪着%CALLNAME:MASTER%
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%厌恶得脸都扭曲了
			ENDIF
		ENDIF
	ELSE
		IF ABL:受虐属性 >= 3
			;口球装備中
			IF COND("口球")
				PRINTFORMW 嘴巴被口球塞住的%CALLNAME:TARGET%高兴似的羞红着脸、发出失声的呻吟
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%泄漏出甜美的吐息以致唾液啪嗒啪嗒地洒落着、发出失声的呻吟
			ENDIF
		ELSE
			;口球装備中
			IF COND("口球")
				PRINTFORMW 嘴巴被口球塞住的%CALLNAME:TARGET%泄漏出难受的吐息、发出失声的呻吟
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%泄出难受的吐息、漏出了失声的呻吟……
			ENDIF
		ENDIF
	ENDIF
ENDSELECT