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:相思相愛
		PRINTFORML 「……谢天谢地」
		PRINTFORML 「一切都将如主所愿……」
		PRINTFORML 「健康也好、患病也好、欢喜也好、悲伤也好、富裕也好、贫困也好」
		PRINTFORML 「都会爱惜%CNAME("二人称")%、尊重你、安慰你、帮助你、只要还有命在」
		PRINTFORMW 「%CNAME("一人称")%发誓竭尽真心……」
	;失敗
	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 「玛丽的那边现在...啊、没什么」
		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允许") ;%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%拨弄着小穴里不知是哪些男人注入的精液，再将其送入嘴中，仔细品尝着
				PRINTFORMW 「所以说，%CNAME("一人称")%的小穴到现在为止，还一次都没被肉棒填满过，好想要啊，子宫那里好想要肉棒的亲亲啊」
				PRINTFORMW %CALLNAME:TARGET%用两只手将阴道口大大的分開，能清楚的看到半透明的精液下，子宫口正一张一合的向你呼唤着
				PRINTFORMW 「看吧 ~ %CALLNAME:TARGET%现在已经变成了这么下流的孩子了，之后要好好地负起责任来，尽情的疼爱我哦」
				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 "巨根"

	CASE "馬根み"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	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("内衣姿") || 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允许")
					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允许")
			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允许")
				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:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORMW （%TEXTR("好想……早点回去啊……/有点……静不下心来呢……")%）
	;添笔事件：未发现情况下的店员H
	ELSEIF ABL:露出癖 >= 10 && TALENT:恋慕 && CONFIG("路人Ｈ")&& COND("欲求不満") && TALENT:処女 == 0 && CEVENT("NTR允许")
		IF ABL:Ｖ感覚 >= 5 && RAND:5 == 0
			PRINTFORMW 你环顾四周，发现%CALLNAME:TARGET%的身影不见了
			PRINTFORMW 也许是上厕所了？
			PRINTFORMW 你没有在意，開始继续购物
		ELSEIF ABL:Ｖ感覚 >= 5 && RAND:5 == 1
			PRINTFORMW 你注意到%CALLNAME:TARGET%已经消失有一会了
			PRINTFORMW 你靠近店员，打算询问一下
			PRINTFORMW 店员的状态有些奇怪，好像下半身没有穿衣服，而且呼吸粗重，时不时就会颤抖一下
			PRINTFORMW 看向你的眼神也不太对劲，隐隐约约从柜台下有着吮吸声传来
			PRINTFORMW 店员向你告知了店内厕所的位置后，你带着些许疑惑离開了
		ELSEIF ABL:Ｖ感覚 >= 5 && RAND:5 == 2
			PRINTFORMW 你拿着商品来到了柜台，可奇怪的是，柜台的店员却不见了
			PRINTFORMW 『有人吗』
			PRINTFORMW 你试着问到，但是没有人回答
			PRINTFORMW 突然，一丝娇哼声传入你的耳朵，似乎是从柜台深处传来的
			PRINTFORMW 你一边说着抱歉，一边进入了柜台，越是靠近里面声音便越加清晰，好像有人在里面拍手一般，传来‘啪 啪’的声音
			PRINTFORMW 你注意到了一扇暗門，門上挂着一个牌子：門店重地，禁止闯入。
			PRINTFORMW
			PRINTFORMW 此刻，門的另一边
			PRINTFORMW %CALLNAME:TARGET%正浑身赤裸地趴在門上，一手扶着門，一手捂住自己的嘴尽量不发出声音
			PRINTFORMW 背后同样赤裸的店员正扶着玛丽的腰肢，努力的摆动着
			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 没过多久%CALLNAME:TARGET%再次回到了你身边，只是面色微红，小小的喘着气，不知怎么，你觉得现在的%CALLNAME:TARGET%有些色情。
		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允许")
		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 "询问有什么想要的东西"
	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允许")
			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允许")
		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


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("一人称")%と接吻してください……/これからもずっと愛してくださいね……/いつまでもお側においてください……")%"
		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)
		PRINTFORML 「%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

path: 加笔/玛丽加笔版 Mr.NaCl版/23 マリー/汎用口上K23_K5改変 魔改造編.ERB

license: unknown


code:
此为整合者提供的使用说明

使用方法：
1、将解压得到的 23 マリー 文件夹整个拖入 ERB/EVENT_K 中。
2、出现是否进行覆盖时选择是
注： 一旦选择覆盖将会导致无法逆转

内容说明：增加了多个长文本事件，内容主要为NTR，多人淫乱，轮奸，野外露出等。
可能会破坏原有的人物设定。

path: 加笔/玛丽加笔版 Mr.NaCl版/使用说明.txt


code:
;-------------------------------------------------
;この角色独自の衣装を設定する
;-------------------------------------------------
@CLOTHES_K23, ARGS

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

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CALL SET_OTHER, "颈环/髮箍"
;学園での便装です
CASE "制服"
	IF DAYEV("万圣节", "游戏内") || DAYEV("万圣节")
		;万圣节の時は修道服
		CALL SET_SHIRT, "修道服"
		CALL SET_SKIRT, "裙"
		CALL SET_SHOES, "小皮靴"
		SIF COND("秋") + COND("冬")
			CALL SET_OUTER, "连褲襪"
	ELSE
		CALL SET_COSTUME, "露脐装超短裙西装上衣"
		SIF COND("秋") + COND("冬")
			CALL SET_OUTER, "连褲襪"
	ENDIF
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする
CASE "体操服"
	IF COND("秋") + COND("冬")
		CALL SET_COSTUME, "体操服紧身短褲"
	ELSE
		CALL SET_COSTUME, "体操服布鲁马"
	ENDIF
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする
CASE "泳装"
	CALL SET_COSTUME, "競泳泳装"

;自宅で着ます
CASE "便装"
	IF DAYEV("周日", "游戏内") && COND("昼") && RAND:2 == 0
		;Ｑ．これどこで着るのが良いのだろう
		;Ａ．教会に行く日に着る
		;CSTR,服,修道服/連衣裙/
		;CSTR,裙,裙/
		;CSTR,外套,｜连褲襪/不可移開/不可手交/：冬
		CALL SET_SHIRT, "修道服"
		CALL SET_SKIRT, "裙"
		CALL SET_SHOES, "小皮靴"
		SIF COND("秋") + COND("冬")
			CALL SET_OUTER, "连褲襪"
	ELSE
		SELECTCASE TEXTS("季節")
		CASE "夏"
			CALL SET_SHIRT, "无袖女式衬衫"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_SHOES, "小皮靴"
		CASE "冬"
			CALL SET_SHIRT, "女式衬衫"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_OUTER, "连褲襪"
			CALL SET_SHOES, "短筒女靴"
			CALL SET_OTHER, "围巾/风衣外套"
		CASEELSE
			CALL SET_SHIRT, "女式衬衫"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_SOCKS, "長筒襪"
			CALL SET_SHOES, "小皮靴"
			CALL SET_OTHER, "围巾/风衣外套"
		ENDSELECT
	ENDIF
;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF TALENT:恋慕 && CEVENT("イベント：童貞を殺す服／玛丽")
		IF COND("冬")
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "束腰裙"
			CALL SET_OUTER, "连褲襪"
		ELSE
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "束腰裙"
			CALL SET_SOCKS, "褶边过膝襪"
		ENDIF
	;恋をすると生活を正し、居家服を运动衫から便装へと戻す
	ELSEIF TALENT:恋慕 && CEVENT("調教開始：恋慕")
		CALL CLOTHES_K23, "便装"
	ELSE
		CALL SET_COSTUME, "上下运动衫"
	ENDIF
;约会以外で家から外出際に着ます。ラブホ呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"
	IF CEVENT("換装：玛丽") && CEVENT("イベント：童貞を殺す服／玛丽")
		SELECTCASE TEXTS("季節")
		CASE "冬"
			CALL SET_SHIRT, "针织露肩衣"
			CALL SET_SKIRT, "百褶迷你裙"
			CALL SET_OUTER, "连褲襪"
			CALL SET_SHOES, "短靴"
		CASE "秋"
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "束腰裙"
			CALL SET_SOCKS, "褶边过膝襪"
			CALL SET_SHOES, "短靴"
		CASE "夏"
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "束腰裙"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "平底鞋"
		CASEELSE
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "束腰裙"
			CALL SET_SOCKS, "褶边襪"
			CALL SET_SHOES, "平底鞋"
		ENDSELECT
	ENDIF

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K23


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K23, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "お誘いする"
	IF COND("相性◎", PARTNER() ) || COND("相性☆", PARTNER() ) || COND("相性○", PARTNER() )
		SELECTCASE TEXTS("季節")
		CASE "春"
			IF RAND:2 == 0
				PRINTFORML 「春天已经到了啊。听说日本会在这个季节举行赏花派对」
				PRINTFORMW 「良かったら%CNAME("一人称")%に色々とお教えくださいませんか？、%CNAME("partner")%」
			;汎用
			ELSE
				PRINTFORML 「%CNAME("partner")%、良かったら放課後に……」
				PRINTFORMW 「%TEXTR("一起去买东西怎么样？/一起去运动地大汗淋漓吧？/发现一家很好吃的甜品店、一起去看看怎么样？")%」
			ENDIF
		CASE "初夏"
			IF COND("今年の泳装選択済") == 0
				PRINTFORML 「夏が近づいて来た感じがしますね。ところで%CNAME("partner")%は新しい泳装を買ったりするのでしょうか？」
				PRINTFORML 「交给%CNAME("主人")%的话好像会选一些相当危险的类型吧……我觉得普通的款式也不错」
				PRINTFORMW 「如果可以的话下次……一起去看游泳衣吧？」
			;汎用
			ELSE
				PRINTFORML 「%CNAME("partner")%、良かったら放課後に……」
				PRINTFORMW 「%TEXTR("一起去买东西怎么样？/一起去运动地大汗淋漓吧？/发现一家很好吃的甜品店、一起去看看怎么样？")%」
			ENDIF
		CASE "夏"
			IF RAND:2 == 0
				PRINTFORML 「夏本番ですね。海と山。%CNAME("partner")%はどちらの方がお好みですか？」
				PRINTFORMW 「%CNAME("一人称")%都很喜欢、但是好不容易到了日本、所以想和大家一起在海边度假。」
			;汎用
			ELSE
				PRINTFORML 「%CNAME("partner")%、良かったら放課後に……」
				PRINTFORMW 「%TEXTR("一起去买东西怎么样？/一起去运动地大汗淋漓吧？/发现一家很好吃的冰激凌店、一起去看看怎么样？")%」
			ENDIF
		CASE "秋", "初秋", "晩秋"
			IF RAND:2 == 0
				PRINTFORML 「食欲之秋。还是运动之秋呢？读书吗……是个好机会、何不学习圣经呢？」
				PRINTFORMW 「没関系的。不论是恶魔和堕天使、还是令人困扰的%CNAME("主人")%、%CNAME("一人称")%在%TEXTR("改变心意/改变想法")%前都会好好地照顾」
			;汎用
			ELSE
				PRINTFORML 「%CNAME("partner")%、良かったら放課後に……」
				PRINTFORMW 「%TEXTR("一起去买东西怎么样？/一起去运动地大汗淋漓吧？/发现一家很好吃的冰激凌店、一起去看看怎么样？")%」
			ENDIF
		CASE "冬"
			IF RAND:2 == 0
				PRINTFORML 「在冬天的社团活动里有圣诞节派对和滑雪集训等各种各样的活动、很期待呢」
				PRINTFORMW 「%CNAME("partner")%はどのイベントが一番楽しみですか。ちょうど時間も有ますから细心的二人話し合いましょうか」
			;汎用
			ELSE
				PRINTFORML 「%CNAME("partner")%、良かったら放課後に……」
				PRINTFORMW 「%TEXTR("一起去买东西怎么样？/一起去运动地大汗淋漓吧？/发现一家很好吃的冰激凌店、一起去看看怎么样？")%」
			ENDIF
		ENDSELECT
;		;レズっ気がないから兩面通吃で判断するしかない　また書いた人が楽しいだけの死に分岐か、壊れるなぁ
;		IF (COND("相性◎", PARTNER() ) || COND("相性☆", PARTNER() )) && COND("欲求不満") && COND("欲求不満", PARTNER() ) && (TALENT:淫乱 == 1 || && TALENT:兩面通吃 == 1) && (TALENT:PARTNER():淫乱 == 1 || TALENT:PARTNER():兩面通吃 == 1)
;			PRINTFORML
;			PRINTFORMW %CALLNAME:TARGET%と%CALLNAME:PARTNER()%は話を続けるうちに……
;			PRINTFORMW 顺其自然地%TEXTR("发展/变")%成和%CALLNAME:MASTER%进行性方面的对话、实际上是在互相教导对方怎样做的更舒服（为什么变成这样了啊
;			PRINTFORML
;			PRINTFORMW 【工口炉子点火　呼呼呼呼呼】
;			PRINTFORML
;			;IF NO:PARTNER() == 1
;			;	PRINTFORML 『女孩子们舒服的地方全部都明白了呢。对主人保密♪』
;			;	CALL PRINT_STRW, @"「不过啊。好不容易的机会，两个人让对方变得舒服吧_HH_」"
;			;ELSEIF NO:PARTNER() == 3
;			;	PRINTFORML 『作为互相爱慕对方的替代，只是贪图肉欲的空虚的人际関系实际上是不长久的。只有在了解彼此的弱点这一点上才算是理想的吧。那么、为了钻研彼此的性技、我们还是果断地追求快乐的极限吧。』
;			;	CALL PRINT_STRW, @"「把像切兹利亚那样的美人放在一边、之后要好好地惩罚坏主人……今天请教导我更多很色情的事情吧、奥~斯~卡~老~师_HH_」"
;			;ELSEIF NO:PARTNER() == 11
;			;	CALL PRINT_STRL, @"『只是抚摸一下、阴蒂就已经勃起了呢_H_　你看、不老老实实地说出想要什么的坏孩子啊、就会在现实中漂亮地被变成小鬼_H_」"』
;			;	CALL PRINT_STRW, @"「嗯嗯_HH_　真是的……啾、嗯_HH_……哈啊_HH_　好、好棒_HH_」"
;			;	CALL PRINT_STRW, @"（奥斯卡老师的舌頭在嘴里……伸进来……不行啊、奥斯卡老师的手挑逗着阴唇、啊、只是这样的话不行、小穴想要的是更激烈的_HH_」"
;			;ELSEIF NO:PARTNER() == 30
;			;	CALL PRINT_STRW, @"「尾巴因为抚摸变得膨胀起来、会好好疼爱它的、所以请放松一些_HH_」"
;			;	PRINTFORML 『啊、不要……嗯、嗯！！』
;			IF TALENT:処女 == 0 && TALENT:PARTNER():処女 == 0
;				PRINTFORM 欲求不満を持て余した%CALLNAME:PARTNER()%と%CALLNAME:TARGET%は
;				IF ABL:Ｖ拡張 >= 5 && ABL:PARTNER():Ｖ拡張 >= 5
;					PRINTFORMW 在充分扩张过的下面互相把%TEXTR("拳/腕")%插入、%TEXTR("狠狠地抽插到满足为止/温柔的爱抚到满足为止/不停地搅到高潮")%……
;				ELSEIF ABL:Ｖ感覚 >= 5 && ABL:PARTNER():Ｖ感覚 >= 5
;					PRINTFORMW 用双頭振动棒连在一起%TEXTR("直到厌倦为止、都没有停下动作、摆动着腰享受着/相互发泄没得到的欲求、发出相互爱液交融的猥亵之声")%……
;				ELSEIF TALENT:男性 == 0 && TALENT:PARTNER():男性 && ABL:Ｃ感覚 >= 3 && ABL:PARTNER():Ｃ感覚 >= 3
;					PRINTFORMW 将彼此的小穴紧紧地粘在一起、開始沉迷于小穴贝壳中。两个人艳丽的肢体缠绕在一起、不停地溢出的淫荡体液混合的声音一直持续着……
;				ELSEIF (TALENT:男性 || TALENT:扶她) && (TALENT:PARTNER():男性 || TALENT:PARTNER():扶她)
;					PRINTFORMW 在那一天遇见了命运
;					PRINTFORMW （是は幾度目の怪文書か。クイズマジックツェツィアカデミー企画は割と今でも気に入っているが続きは書かないので安心したまえ、ワトソン君）
;					PRINTFORML
;					PRINTFORMW 这是怎样命运的恶作剧呢？两人胯股之间竟然出现了男性器官、并勃起来显示着它的存在。
;					PRINTFORMW 龟頭相互接触。 双方一步不退、用剑战般的激烈力量、用胯股之间勃起的存在互相击打
;					PRINTFORMW 由于淫梦素材不被允许的悲伤之余、在这个世界线勃起小矮人的战斗的导火索被切断了。
;					PRINTFORMW 以与最优秀的雄性%CALLNAME:MASTER%相适应的雄性为目标、无言地展示自己才是最强的勃起肉棒
;					PRINTFORMW 激烈地互相摩擦、互相攻击。在最剑拔弩张的时候、彼此勃起的家伙的尖頭迸发出的液体滴落着。
;					PRINTFORMW 从只把胯股之间作为武器竞争的二人的全身流出的汗
;					PRINTFORMW 汗水和爱液混合在一起、虽然有粘糊糊的触感、但两人之间却完全没有不舒服的感觉。一旦開始就无法阻止勃起的肉棒
;					PRINTFORMW 这场真剣勝負的失败者成为肉便器、胜者成为肉便器的主人。那就是【勃起肉棒部】的不成文规则
;					PRINTFORMW 是社团活动中唯一的女主角。听着%CALLNAME:MASTER%的话语，处于GM兼女经理地位的弗里希艾尔小声叹气
;					PRINTFORML
;					PRINTFORMW （書いている人もフェリ酱の気持ちに同感だが、女性らしい高ぶるお気持ち表明からの69舐陰バトルを繰り返し、負けたら假阳具强奸される濃厚的レズ描写を書いてもどの道バリアントに取り込まれる可能性は極めて低い
;					PRINTFORMW 何より他人のヒロインを使って勝手に濃厚的レズ强奸描写をすると互相用性癖の差によりお叱りを受ける可能性も少なからずあるのである。つまり、書きたくても書けぬ
;					PRINTFORMW ある意味普通の动画、游戏の二次創作よりその辺が不便なのがeraである。我のヒロインは勝手に使っても構わぬと言う熱いソウルを持ち、こんな所まで読んでしまった暇人は是非バリアントスレッドで意思表示して欲しい
;					PRINTFORMW 漏れなく私の気が向いたら酷い描写の餌食にされるであろう。かしこ）
;					PRINTFORMW （つまり、元よりこの辺に書いてある事は全部没なのであえての勃起ちんぽチャン蔷薇なのである。淫夢とか好きだからしょうがないね）
;					PRINTFORMW （弗理希艾尔酱は許可なく勃起ちんぽチャン蔷薇のレフェリーにされると言う酷い目にあっているが、彼女はメインヒロイン。メインヒロインはバリアントに置いて中立の絶対権力なので外せないのである）
;					PRINTFORML
;					PRINTFORMW そんな弗理希艾尔の様子に構わず部員達（部員の中には%CALLNAME:MASTER%の為に望んで性転換した元女子や扶她を含む）は勃起的ちんぽを振りかざし、互相用勃起ちんぽを称えあい日頃から切磋琢磨してきた
;					PRINTFORMW これが单薄的本であれば汗臭い勃起ちんぽだらけの部活の紅一点悪魔女僕のフェリ酱が林間され肉便器にされるのは必然であった
;					PRINTFORMW しかし、そうはならなかった。熱い魂を持った部員達（性転換してしまった吸血鬼。伪娘。扶她’ｓ。とある学園ＯＧとライバル心で参加した驱魔人、ノリで参加したただの女子高生も含む）はちょっぴり間違ったスポーツマンシップと体育会系男子ノリで団結し
;					PRINTFORMW 汗を流し、情欲を抑え身体とちんぽを鍛え、弗理希艾尔酱でシコりたいと言う欲望に負けそうになる部員がいれば叱咤激励し、
;					PRINTFORMW 一度でも欲望に負けてシコってしまった部員は生きたまま肉飞机杯とされ、全部員にケツ穴が捲れるまでお仕置きされる（お尻は閉じなくなるし、Ｓ字結腸の中まで精液で胖次胖次になる。ハッキリ言って最悪である）
;					PRINTFORMW ＯＧと驱魔人は筋肉を鍛えることに夢中になっていて本気で喜び……性転換ＢＯＹと伪娘は男らしさに興味を持って身体を鍛える事が楽しくなってきている。水を差すのは好ましくないと弗理希艾尔は茶を啜った
;					PRINTFORMW 最初こそまたくだらない企画を思いついたんですか……女子マネの私や、勃起ちんぽチャン蔷薇創始者を名乗る扶她巨乳莉雅拉老师もいるのに、三日も持たずに乱交布ティーになりますよ。それはそれで……と思っていたフェリ酱であったが
;					PRINTFORMW 部員達は負けなかった。フェリ酱のさりげないチラ見せや、部活を指導する扶她巨乳莉雅拉老师の誘惑にも目もくれず、部員達はただ只管に身体を鍛え、ちんぽを鍛える事に情熱を傾け【勃起ちんぽチャン蔷薇部】として青春に汗と精液を流していた
;					PRINTFORMW 一方で企画立案者で有、あまり身体を鍛える事に興味がなく面白おかしくエッチな事をしたいだけの%CALLNAME:MASTER%は飽きてきたので、折を見て弗理希艾尔に相談したがじゃあ、強くてニュー游戏しますか？と聞かれたので首を横に振った。
;					PRINTFORMW %CALLNAME:MASTER%もまたこのイカレタ部活を生み出した事の顛末に責任を感じていた……訳ではない。弗理希艾尔を独り占め出来て現状に満足していただけである。%CALLNAME:MASTER%は平たく言って人类のクズであった
;					PRINTFORMW しかし、フェリ酱は違った。彼女は環境に適応していた。元より学習能力が高く柔軟な悪魔女僕である。%CALLNAME:MASTER%の魂を独り占めしつつもそつなくマネージャーを務めていたのだ。
;					PRINTFORMW 部員達にプロテインや潤滑液を差し入れたり、勃起ちんぽチャン蔷薇のレフェリーの免許を取るなど献身的に務める弗理希艾尔。だが、その目は……そう死んだ魚の目の如く濁っていた
;					PRINTFORMW 何だかんだ言っても弗理希艾尔自身、普通の学生生活を気に入っていたのだ。汗臭い体育会系の部活で汗を流す青春がしたくて%CALLNAME:MASTER%の提案に乗った訳ではない。魂を貰ったので常識改変した。ただ、それだけの理由である。
;					PRINTFORMW 弗理希艾尔自身も汗臭い体育会系は嫌いなわけではない。むしろ好物ではある。たまに洗濯前の%CALLNAME:MASTER%の恤の气味を嗅いだりする程度には好きである
;					PRINTFORMW しかし、勃起ちんぽチャン蔷薇部はちょっと違うと思っている。簡潔に言うと下品である。
;					PRINTFORMW それに悪魔でも女僕なのだ。衣服が清潔に保たれていないのは矜持が許さない。弗理希艾尔は汗の气味が好きわけではない。好きな人の汗の气味に少しだけ興奮する性癖なのだ。つまり順序が違う
;					PRINTFORMW では改めてこの部が何系の部活か？と言われると本質はただのヤリサーなので、表向きは体育会系の部活でも問題はないのではないか……と弗理希艾尔自身もいつも疑問には感じている
;					PRINTFORMW 問題は部活の看板ではなく部員なのだ
;					PRINTFORMW 運動大好き、筋肉で考える脳筋が少なからず部員に複数名いる。彼等は空気を読まない。読めないのではなく読まない
;					PRINTFORMW 割と運動が苦手な子もいるので部活全体が训练に明け暮れる様になるのはＮＧである。次の世界線ではもう少し全体の部員に配慮した老實部活にしたい
;					PRINTFORMW この世界線では%CALLNAME:MASTER%の実妹の樱が早々に身体を壊してリ領帯アを余儀なくされてしまった。悪魔女僕としてあるまじき失態である。反省
;					PRINTFORMW せめて表向きの看板は現代映像研究会（动画研究部。ま～たえっちな动画ですか？　そんなに興味があるなら私が実践してあげてもいいんですよ？）とか天文学同好会（星を見ながら愛を語らいあいましょうか、%CALLNAME:MASTER%。温かい茶を淹れて来ました）とか、料理愛好会（%CALLNAME:MASTER%。菜刀はこうやって持ちましょう。あら、胸部が当たっちゃいましたか、フフッ）とか
;					PRINTFORMW こうイイ感じで自然に打情骂俏出来る文科系の部活動に偽装したい、次はそうしましょう。良さげな案を思いついた弗理希艾尔はニコニコと微笑んだ
;					PRINTFORMW 例えば……%CALLNAME:MASTER%の意見を聞いて大学のヤリサーに有がちなテニス同好会にすると体育ガチ勢どもが暴走します、した。性欲を持て余して健全な運動をするとか……バリアントに対する反逆行為は許されませんね、ええ
;					PRINTFORMW 今回は良い教訓を得た……そう思う事にしよう、と弗理希艾尔は飲み終わった茶を片付けて頭の中を整理した……次は%CALLNAME:MASTER%の意見は無視してもっとまともな部活に偽装しましょう
;					PRINTFORMW 改めて大事な事が弗理希艾尔の中で再確認出来ただけでも、%CALLNAME:MASTER%の思いつきで生まれたこのパラレルワールドは無駄ではなかったと言えるのかもしれない
;					PRINTFORML
;					PRINTFORMW 話が脱線している間に二人の勃起ちんぽチャン蔷薇是よいよ決着を迎えようとしていた。
;					PRINTFORMW ギンギンにそそりたった二本の勃起ちんぽ。互いに相手を見据え、隙を探る。
;					PRINTFORMW 動いたのは両者同時。張り詰めた勃起ちんぽの先端は最早幾分の猶予もないぐらいに張り詰め、突き出したされた亀頭の先端が触れ合う度に両者の口からは何とも言えない声が漏れる
;					PRINTFORMW 思わずレフェリーの弗理希艾尔酱も熱っぽい視線を勃起ちんぽの先端に向け生唾を呑む。本命は%CALLNAME:MASTER%だけ。見るだけなら浮気では有ません。ゴ阴蒂
;					PRINTFORMW けして、弗理希艾尔酱にはやましい気持ちはないはずである。何故ならば彼女は公平なレフェリーなのだから
;					PRINTFORMW これまでにないほどに両者の勃起ちんぽはガチガチに膨張し、それでもなお両者の動きは衰えない。鍛え上げた肉体が躍動し、二本の勃起ちんぽが鎬を削り、せめぎあい、打ちつけあい、先走り汁がヌルヌルと絡み合う
;					PRINTFORMW 両者平手。しかして張り詰めた勃起ちんぽは限界であった
;					PRINTFORMW 裂帛の気迫を込めて腕四つで組みあい、至近距離で擦れあう亀頭
;					PRINTFORMW 二人の口から獣の様な雄たけびをあがる
;					PRINTFORMW 勃起ちんぽは更に膨張。遂に限界点を突破した──（ケイセン。なろうでよく見るので使ってみたかった）
;					PRINTFORMW 亀頭から勢いよく被释放进濃厚精液。寸分違わず向かい合う%CALLNAME:PARTNER()%と%CALLNAME:TARGET%双方の顔面へと勢いよく射精された互相用精液が直撃した
;					PRINTFORMW フェリ酱が手にした両手の旗を掲げた。
;					PRINTFORMW 『这场比赛没有胜利者！！』
;					PRINTFORMW 弗理希艾尔凛然的声音宣告了胜负。
;					PRINTFORMW 在这场毫无结果的战斗中没有胜利者……因为大量射精而精疲力竭的两人脸上沾满精液、互相称赞对方的努力、用69式把不再勃起的小肉棒互相清理着、一脸幸福地亲吻勃起小肉棒作为结束……
;					PRINTFORMW 那是没有汗臭肮脏的era恶魔女仆并列世界线……
;				ELSE
;					PRINTFORMW 抱き合い接吻を交わしながら互相用手で相手を慰めあった……
;				ENDIF
;			ELSE
;				PRINTFORMW 情欲を持て余した%CALLNAME:PARTNER()%と%CALLNAME:TARGET%は%CALLNAME:MASTER%を想いながら接吻を交わし、
;				PRINTFORMW 互相用願望を口にしながら二人は纠缠着交わり、唇で、指先で、互相用乳房で、全身を愛撫しあい甜快感を共有しながら慰めあった……
;			ENDIF
;		ENDIF
	ELSE
		SELECTCASE CSTR:PARTNER():学年
		;同級生以下
		CASE "初等部", "中等部", "１年生", "２年生", "３年生", "ＯＧ"
			PRINTFORML 「%CNAME("partner")%。%CNAME("一人称")%と%TEXTR("お友達になりませんか/仲良くなりましょう/同じ部活の仲間ですし好きな事とか、教えてくださいね")%」
			;入部して結構経っている
			IF COND("在籍日数", PARTNER() ) >= 7
				PRINTFORMW 「%CNAME("一人称")%参加这个社团很长时间了、不管什么都请随便问哦」
			ELSE
				PRINTFORMW 「関于%CNAME("主人")%……我们这些女孩子、悄悄地交换信息吧」
			ENDIF
		;年上（実質老师扱い）
		CASE "教師", "司書"
		CASEELSE
			IF RAND:2
				PRINTFORML 「%CNAME("partner")%、今お話して大丈夫ですか？」
				;入部して結構経っている
			;	IF COND("在籍日数", PARTNER() ) >= 7
			;		PRINTFORMW 「%CNAME("主人")%的性欲……与年龄相称吗？因为身边没有可以商量的大人、所以很苦恼」
			;	ELSE
			;		PRINTFORMW 「%CNAME("主人")%的性欲……是因为年纪大了所以有点旺盛吧。我想老师的话应该很熟悉吧」」
			;	ENDIF
			ELSE
				PRINTFORML 「%CNAME("partner")%、お時間大丈夫でしょうか？」
				PRINTFORMW 「虽然很不好意思……%CNAME("一人称")%几乎没有恋爱经验、所以在交往方面请多多指导和鞭策」」
			ENDIF
		ENDSELECT
	ENDIF
CASE "誘われた"
	;汎用お話システム　会話内容のパターンが決まっていないので会話がかみ合わない事が多々有そう
	IF COND("相性◎", PARTNER() ) || COND("相性☆", PARTNER() ) || COND("相性○", PARTNER() )
		IF COND("欲求不満") && COND("欲求不満", PARTNER() )
			PRINTFORML 『%TEXTR(@"ところで……最近%CNAME("主人")%はご多忙の様ですけど、%CNAME("partner")%は大丈夫ですか？/話は変わりますけど……最近、こう魂が足りない等の悩みはないでしょうか？")%』
			PRINTFORMW 「可以的话、%TEXTR(@"%CNAME("一人称")%随时都可以和您商量。/可以的话、无论什么都请和%CNAME("一人称")%商量。")%」
		ELSE
			PRINTFORMW 『%CNAME("partner")%%TEXTR(@"のお誘いなら喜んで/が誘ってくださるのなら喜んでご一緒させていただきます/とお話したいと%CNAME("一人称")%も思っていましたから")%』
		ENDIF
	ELSE
		PRINTFORMW 「%CNAME("一人称")%%TEXTR("...如果可以的话、会和你交往的/？有什么事吗？/与你交流？可以啊/作为驱魔人、不过、不需要太警惕也没関系")%。
	ENDIF
ENDSELECT

path: 加笔/玛丽加笔版 树子版/23 マリー/EVENT_K23_COMM.ERB