code:
@K57_LONG, ARGS, ARG
#DIM ACTOR
#DIMS ACTNAME

SIF ARG == 0
	ARG = TARGET

SELECTCASE ARGS
CASE "昼と夜"
	PRINTFORMW 「啊！　%CNAME("二人称")%！」
	PRINTFORMW 「%CNAME("一人称")%有点事想拜托你，你能不能跟%CNAME("一人称")%一起去%CNAME("一人称")%家？」
	CALL PRINT_SELECT, "为什么？/发生了什么事？"
	PRINTFORMW 「不是，不是那个意思啦……」
	PRINTFORMW 「%CNAME("一人称")%跟爸爸妈妈说起了%CNAME("二人称")%他们很想见见你……」
	PRINTFORMW 「……呐？　可以吧？」
	PRINTFORMW  就这样，%CALLNAME:MASTER%被半强迫地带到了%CALLNAME:TARGET%的家里……。
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%的家，是一个典型的『普通』家庭。
	PRINTFORMW 离车站不远的一栋公寓里的一间房子。
	PRINTFORMW 那就是%CALLNAME:TARGET%的家。
	PRINTFORMW 「我回来了——」
	PRINTFORMW %CALLNAME:TARGET%一边脱鞋，一边用无精打采的声音说道。
	PRINTFORMW 从他的性格上看很难想象，但玄関整理得很干净。
	PRINTFORMW 「啊，欢迎回来」
	PRINTFORMW 「哦！　……嗯？怎么感觉有点奇怪」
	PRINTFORMW 走进客厅，%CALLNAME:TARGET%正和另一位男子谈笑。
	PRINTFORMW 男人有着金色的頭发和红色的眼睛，皮肤像死人一样苍白。
	PRINTFORMW 「爸爸，这个人就是%CNAME("主人")%！」
	PRINTFORMW 「啊，这位是……」
	PRINTFORMW ……一瞬间，一种像被冷水从頭浇到脚似的感觉在背后传来。
	CALL PRINT_SELECT, "也许只是错觉吧/这个男人，很不寻常"
	IF RESULT == 0
		PRINTFORMW 也许只是错觉吧――
	ELSE
		PRINTFORMW ……这个男人，很不寻常。
	ENDIF
	PRINTFORMW %CALLNAME:MASTER%内心的想法似乎并没有被注意到、%CALLNAME:TARGET%和被其称为父亲的男人继续对话着。
	PRINTFORMW 「……阿啦，客人？」
	PRINTFORMW 听到了动静，一个年轻女子从卧室里探出頭来。
	PRINTFORMW 和那个男人一样，有着红色的眼睛和苍白的皮肤，不同的是她有一頭长到腰部的红色頭发。
	PRINTFORMW 「妈妈！　这个人是%CNAME("主人")%！」
	PRINTFORMW ……又有了先前的那种感觉。
	PRINTFORMW 毫无疑问，这两个人不是普通人……！
	PRINTFORMW 「……啊啦，原来是这位老师。……啊啊！」
	PRINTFORMW 突然，被称为母亲的女人大喊起来。
	PRINTFORMW 「听说你要邀请朋友来玩，本来想去买点零食的，结果完全忘了……」
	PRINTFORMW 女人悲伤地低下頭。
	PRINTFORMW 她的样子让人同情，但对现在的%CALLNAME:MASTER%来说，只能看到虚伪。
	PRINTFORMW 「嗯……那%CNAME("一人称")%去买吧！」
	PRINTFORMW 「真、真的可以吗？」
	PRINTFORMW 「没问题。而且妈妈白天很虚弱，对吧？」
	PRINTFORMW 「……是呢。那我们一起去吧」
	PRINTFORMW 「……诶？　那、那有点难为情……」
	PRINTFORMW %CALLNAME:TARGET%拼命阻止也没用，女人带着他走出了屋外。
	PRINTFORMW 「真是的，她总是这么粗心大意。不过，这也是她的优点……那么」
	PRINTFORMW 室内的气氛变了。
	PRINTFORMW 从之前的愉快气氛，变成了沉重的氛围。
	CALL PRINT_SELECT, "……你们是谁？"
	PRINTFORMW 「……毫无疑问，我们是%NAME:TARGET%的父母」
	PRINTFORMW 不过，不是亲生的。男人这样说道。
	PRINTFORMW 「……我已经对你进行了各种调查。你和恶魔签订了契约，对吧？」
	PRINTFORMW 突然的话语，让%CALLNAME:MASTER%感到喉咙一紧。
	PRINTFORMW 「啊，别害怕。我们并不是想吃掉你。相反，我们非常感激你。」
	CALL PRINT_SELECT, "为什么？"
	PRINTFORMW 「因为你和%CALLNAME:TARGET%相处得很好。……那么，进入正题吧。」
	PRINTFORMW 房间里原本稍微缓和的气氛，再次变得沉重起来。
	PRINTFORMW 「从现在開始，我希望你能当作什么都没听到」
	PRINTFORMW 男人開始缓慢地叙述。
	PRINTFORMW 「我们是吸血鬼。……但%CALLNAME:TARGET%不是」
	PRINTFORMW 「啊，自从捡到他以后，我们就一直没有喝过他的血。因为我们不想让他伤心」
	PRINTFORMW 「……他是在一个谋杀现场出生的」
	PRINTFORMW 「父亲和母亲都浑身是血，只有刚出生的他活了下来」
	PRINTFORMW 「一開始我们想杀了他。但我想着养一个孩子也能打发时间，于是就把他捡了回来。当时我们住在城堡里，为了能融入人类社会，就租了这栋公寓」
	PRINTFORMW 「一開始很困难。虽然他已经会坐了，但还没有断奶」
	PRINTFORMW 「我们总是忙得团团转，即使是吸血鬼也有晚上睡觉的时候」
	PRINTFORMW 男人像怀念过去一样望着远方说道。
	PRINTFORMW 「奇怪的是，我们并没有感到痛苦。虽然我们被称为『真祖』，但别说孩子了，就连照顾自己都几乎没有经验」
	PRINTFORMW 「现在想起来，也许我们早已被他迷住了吧」
	PRINTFORMW 男人露出悲伤的表情，喝了口手边已经冷掉的咖啡。
	PRINTFORMW 「……%CALLNAME:TARGET%很快就长大了……这让我有点害怕」
	PRINTFORMW 「在我们没有注意到的时候，他一直在成长，也会死去。……我们不得不与他分别」
	PRINTFORMW 「……奇怪吧？　我们是吸血鬼。曾经让许多人感到恐惧的存在，却如此害怕这样微不足道的事情」
	PRINTFORMW 男人继续说道。
	PRINTFORMW 「%CALLNAME:TARGET%已经成为了我们不可或缺的存在。如果他离開了，即使我们的身体还活着，也和死尸没什么两样。……精神还在，更加悲惨」
	PRINTFORMW 「……我们可能会对他做出残忍的事情。……但我们仍然不想离開他……」
	PRINTFORMW 男人像是从肺部深处吐出一般这些话似的说着。
	PRINTL
	IF CEVENT("昼と夜") == 0
		CALL PRINT_STRW, @"_黄色_--注意！--"
		CALL PRINT_STRW, @"_黄色_根据您的选择、%CALLNAME:TARGET%的种族、頭衔和頭发颜色可能会发生变化！"
		CALL PRINT_STRW, @"_黄色_请仔细确认后再做选择！"
		PRINTL
	ENDIF
	CALL PRINT_SELECT, @"……（%CALLNAME:TARGET%的种族、頭衔和頭发颜色可能会发生变化！）/你想让%CALLNAME:TARGET%难过吗？"
	IF RESULT == 0
		PRINTFORMW 「……沉默意味着同意」
		SIF CEVENT("昼と夜") == 0
			CALL SET_CEVENT, "吸血鬼フラグ"
	ELSE
		PRINTFORMW 你想让%CALLNAME:TARGET%难过吗？
		PRINTFORMW %CALLNAME:MASTER%这样回答后，男人似乎有些动摇……看起来是这样。
	ENDIF
	PRINTFORMW 「――我回来啦ー！」
	PRINTFORMW 像切開沉重的空气一样、%CALLNAME:TARGET%充满活力的声音传进了房间。
	PRINTFORMW 「……%CALLNAME:MASTER%君，是吧？　谢谢你听我说话」
	PRINTFORMW 「爸爸，%NAME:MASTER%前辈怎么样？」
	PRINTFORMW 「他是一个非常有礼貌的孩子。%CALLNAME:TARGET%遇到了一个好前辈呢」
	PRINTFORMW 这句话像是信号，房间里终于回到了温和的气氛.……。
CASE "極夜の和解"
	PRINTFORMW 「……%CNAME("二人称")%，%CNAME("一人称")%有个请求」
	PRINTFORM 距%CALLNAME:TARGET%离家出走，已经经过了一段时间，
	IF COND("春")
		PRINTFORM 寒冷消退，花儿開始绽放
	ELSEIF COND("夏")
		PRINTFORM 天气变得更加炎热
	ELSEIF COND("秋")
		PRINTFORM 树叶開始变红
	ELSE
		PRINTFORM 人们已经完全换上了长袖
	ENDIF
	PRINTFORMW 的时候。
	PRINTFORMW %CALLNAME:TARGET%看起来有些难以启齿，移開了目光。
	PRINTL
	CALL PRINT_SELECT, "是什么请求？"
	PRINTL
	PRINTFORMW ――是什么请求？
	PRINTFORMW %CALLNAME:MASTER%这样问道，%CALLNAME:TARGET%似乎下定决心，抬起頭，直视%CALLNAME:MASTER%的脸。
	PRINTFORMW 「%CNAME("一人称")%希望你能和%CNAME("一人称")%一起去见父母」
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW 公寓和以前一样。
	PRINTFORMW 但是，或许是时间的推移，或者是因为紧张，看起来比以前更加荒凉。
	PRINTFORMW 将目光转向%CALLNAME:TARGET%，他显得非常紧张，肩膀微微颤抖。
	PRINTL
	CALL PRINT_SELECT, "别紧张"
	PRINTL
	PRINTFORMW 「……是啊，一開始就这么紧张不好。%CNAME("二人称")%，谢谢」
	PRINTFORMW %CALLNAME:TARGET%道谢后，慢慢地走上了公寓楼。
	PRINTFORMW 到达目的地的房间时，他深吸一口气……按下了門铃。
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW 「是哪位……啊……」
	PRINTFORMW 打開門的男人――%CALLNAME:TARGET%的父亲的脸僵住了。
	PRINTFORMW %CALLNAME:TARGET%有些不知所措地傻笑着，
	PRINTFORMW 「我回来了」
	PRINTFORMW 回答道。
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW 「……对不起」
	PRINTFORMW 将%CALLNAME:TARGET%他们带到客厅后，男人低下了頭。
	PRINTFORMW 早已在客厅的女性――%CALLNAME:TARGET%也一同，向%CALLNAME:TARGET%低下頭。
	PRINTFORMW 「我们无视了你的意愿，做了一些可怕的事情。……我不配做父亲」
	PRINTFORMW 「我也是。本来应该阻止他的，可是出于自己的利益却帮了他。……作为母亲，我也不称职」
	PRINTFORMW 从他们真诚的态度中可以看出，这些话并非口頭之言。
	PRINTFORMW %CALLNAME:TARGET%默默地看着这一幕，过了一会儿，他露出笑容，
	PRINTFORMW 「……没関系。%CNAME("一人称")%也不够成熟」
	PRINTFORMW 回答道。
	PRINTFORMW 「……你能原谅我们吗？」
	PRINTFORMW 「不，%CNAME("一人称")%不能原谅」
	PRINTFORMW 男人的脸被绝望所染。
	PRINTFORMW 「啊，不是因为%CNAME("一人称")%讨厌你们」
	PRINTFORMW  看到男人的样子，%CALLNAME:TARGET%慌忙地补充道。
	PRINTFORMW 「%CNAME("一人称")%不能原谅你们把%CNAME("一人称")%变成吸血鬼的事情。也许一辈子都不能原谅。……但是，即使如此，%CNAME("一人称")%还是喜欢爸爸妈妈。」
	PRINTFORMW 这样不行吗。%CALLNAME:TARGET%歪着頭问道。
	PRINTFORMW 「……不，这样就够了」
	PRINTFORMW 谢谢你，男人回答道。
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW 「呼ー！　总算和好啦！」
	PRINTFORMW %CALLNAME:TARGET%露出轻松的神情伸展身体。
	PRINTFORMW 「……如果只有%CNAME("一人称")%一个人的话，肯定没有这样的勇气。这都多亏了%CNAME("二人称")%！」
	PRINTFORMW 谢谢！　看着露出灿烂笑容的%CALLNAME:TARGET%，%CALLNAME:MASTER%默默摸了摸他的頭……。
CASE "女装教習"
	PRINTFORMW 最近，%CALLNAME:TARGET%的气质发生了变化。
	PRINTFORMW 与一段时间前相比，应该说变得中性了。
	PRINTFORMW 例如，即使穿着女性服装也不会感到太过不和谐……！
	PRINTL
	CALL PRINT_SELECT, "……！"
	PRINTL
	PRINTFORMW 对了，女装。
	PRINTFORMW 如果让%CALLNAME:TARGET%穿上女性服装，一定会展现出与现在不同的魅力。
	PRINTFORMW 趁热打铁，%CALLNAME:MASTER%赶紧跑去找%CALLNAME:TARGET%。
	PRINTL
	PRINTL
	PRINTL
	PRINTFORMW 「……要%CNAME("一人称")%女装？」
	PRINTFORMW 「虽然试过，但没有认真的ー……」
	PRINTFORMW %CALLNAME:TARGET%似乎并不排斥。
	PRINTFORMW 原以为他会彻底拒绝，预想之外的好感让%CALLNAME:MASTER%感到欣喜若狂。
	PRINTFORMW 「……但是，衣服怎么办？」
	PRINTFORMW 这个问题在预料之中。
	PRINTFORMW 已经提前准备好了用于Cosplay的衣服。
	IF TALENT:MASTER:男性 && TALENT:MASTER:伪娘 == 0
		PRINTFORMW 为了万无一失……他还预习了関于化妆的视频，可以化妆。
	ELSE
		PRINTFORMW 为了万无一失……他还从家里带来了化妆品，可以化妆。
	ENDIF
	PRINTFORMW 当看到带来的衣服，%CALLNAME:TARGET%脸红了。
	PRINTFORMW 「那、那么……请多関照？」
	PRINTFORMW 这个姿态，既像是对新挑战兴奋不已的少年，又像是羞涩地面对从未经历过的场景的少女。
	PRINTL
	PRINTL
	PRINTL
	CSTR:改髪 = 马尾辫
	CALL SET_COSTUME, "水手服"
	PRINTFORMW 「怎、怎么样……」
	CALL EMOTION_PLUS, "害羞"
	PRINTFORMW 换好衣服的%CALLNAME:TARGET%出现了。
	PRINTFORMW 当%CALLNAME:MASTER%说他穿着很适合时，%CALLNAME:TARGET%有些害羞地脸红了。
	PRINTFORMW 「那、那个%CNAME("二人称")%……」
	PRINTFORMW 「如果你真的看我这样的话……之后再这样穿也不是不行」
	PRINTL
	SIF CEVENT("女装教習") == 0
		CALL PRINT_STRW, @"_黄色_现在你可以请求%CALLNAME:TARGET%穿上女装了。"
CASE "『のぞき』見"
	PRINTFORMW 那天，%CALLNAME:TARGET%像往常一样走向部室。
	PRINTFORMW 虽然期待着能学习魔法，但他更期待能与他崇拜的%CALLNAME:ARG%相遇。
	CALL PRINT_STRW, @"『嗯……_H_呼……_H_嗯……呜……_H_』"
	PRINTFORMW ――下一刻，湿漉漉的拍打声和女性痛苦的声音传入%CALLNAME:TARGET%的耳中。
	PRINTFORMW 「……有人在吗……？」
	PRINTFORMW 声音是从附近的空教室传来的。
	PRINTFORMW ……万一发生什么事情，要去看看情况。
	PRINTFORMW %CALLNAME:TARGET%这样想着，稍微打開了那个教室的門――。
	PRINTL
	PRINTL
	PRINTL
	CALL PRINT_STRW, @"『哈……啊……_H_嗯……_H_』"
	PRINTFORMW %CALLNAME:ARG%和%CALLNAME:MASTER%在那里。
	PRINTFORMW 两个人全身赤裸，下半身互相缠绕着，像野兽一样扭动着。
	PRINTFORMW 在做着什么是非常明显的。
	CALL PRINT_STRW, @"『呼……咕呜……_H_ 对后辈也太执着了吧……？』"
	PRINTFORMW %CALLNAME:ARG%虽然在咒骂，但从她的表情来看，并不是认真的。
	PRINTFORMW %CALLNAME:MASTER%则像抓住了猎物一样，与%CALLNAME:ARG%接吻。
	PRINTFORMW %CALLNAME:TARGET%愣住了一会儿，慢慢地関上教室的門，然后像逃跑一样从走廊跑了出去……。
CASE "土内遥は見た！"
	PRINTFORMW 这是一个普通的放学后。%CALLNAME:TARGET%正走向社团活动室。
	PRINTFORMW 本来是为了%CALLNAME:ARG%才加入的社团，但现在他爱上了%CALLNAME:MASTER%所以去社团活动室只是为了见\@TALENT:MASTER:男性 ? 他 # 她\@。
	PRINTFORMW 对%CALLNAME:TARGET%来说，\@TALENT:MASTER:男性 ? 他 # 她\@是个不折不扣的变态，毫无节操，虽然很奇怪，但即使如此，他依然爱着对方，他稍微打開了活动室的門。
	CALL PRINT_STRW, @"『啊……_H_嗯……_H_哈……啊……_H_』"
	PRINTFORMW ――%CALLNAME:ARG%和%CALLNAME:MASTER%交缠着。
	PRINTFORMW %CALLNAME:ARG%的阴唇上沾满了爱液，还有其他一些白浊液体，这些液体连成了细丝，很明显，从行为開始到现在已经过了相当长的时间。
	PRINTFORMW 另一边，%CALLNAME:TARGET%的盯着眼前淫猥的景象，无法移開视线。
	PRINTFORMW %CALLNAME:MASTER%虽然爱上了%CALLNAME:TARGET%，但他喜欢%CALLNAME:ARG%的感情并没有改变。即使这种感情可能会略微变化，也绝不会动摇这一事实。
	PRINTFORMW 然而，在%CALLNAME:TARGET%的内心深处，除了无可奈何地接受这一切的心情外，还有一种说不清道不明的黑暗情感在涌动。
	PRINTFORMW 而这情感所指向的对象，不是%CALLNAME:MASTER%而是%CALLNAME:ARG%。
	PRINTFORMW （诶、诶……！？）
	PRINTFORMW %CALLNAME:TARGET%在門口呆立着，但内心却十分动荡。这并不是因为眼前令人震惊的景象。和%CALLNAME:MASTER%在一起，他早已做好了无数次地遇到这种景象的准备。
	PRINTFORMW 并非如此，而是对自己嫉妒%CALLNAME:ARG%这事，%CALLNAME:TARGET%感到惊讶。
	PRINTFORMW ――嫉妒，没错。这一定是嫉妒。
	PRINTFORMW 将自己的感情用恰当的语言表达出来的成就感让%CALLNAME:TARGET%精神渐渐平静下来。接下来，出现的是对%CALLNAME:MASTER%的愤怒。
	PRINTFORMW （那个嘛，也许是女孩子比较舒服，但%CNAME("一人称")%也想和%CNAME("二人称")%做爱啊……！）
	PRINTFORMW 「不会原谅，绝对不会原谅%CNAME("二人称")%ー！」
	PRINTFORMW 下定决心以后一定要让他认输，%CALLNAME:TARGET%悄悄离開了社团活动室……。
CASE "部員評価"
	ACTOR = COND("現在存在")
	ACTNAME = %CALLNAME:ACTOR%
	PRINTFORMW 「这样的社团活动真厉害啊——」
	PRINTFORMW 「你看啊、首先就是有无限魂的%CNAME("二人称")%在不是吗？」
	SELECTCASE ACTNAME
	;遥君が気楽にカッケーできる枠その1
	CASE "弗理希艾尔", "濡烏の君", "西西莉亚", "六華", "哈娜", "碧"
		SELECTCASE ACTNAME
		CASE "弗理希艾尔"
			PRINTFORMW 「而且果然%CNAME(ACTNAME)%！」
			PRINTFORMW 「你还被恶魔女仆照顾你不是吗……！」
		CASE "濡烏の君"
			PRINTFORMW 「而且%CNAME(ACTNAME)%、是九尾狐、不是吗？」
			PRINTFORMW 「本来以为只在动漫和电影里面出现的、没想到这么近就有……！」
		CASE "西西莉亚"
			PRINTFORMW 「而且%CNAME(ACTNAME)%不是魔法使吗？」
			PRINTFORM 「超强的好吧！
			IF CEVENT("師匠フラグ")
				PRINTFORMW 如果不是成为%CNAME("二人称")%的弟子了的话、%CNAME("一人称")%可能就会拜她为师了……！」
			ELSE
				PRINTFORMW 现在来说也不算迟、让%CNAME("一人称")%成为你的弟子吧……！」
			ENDIF
		CASE "六華"
			PRINTFORMW 「而且%CNAME(ACTNAME)%是神对吧……！」
			PRINTFORMW 「不说的话、还以为比%CNAME("一人称")%还小、这么说出来的话、怎么说呢、不明觉厉呢！」
		CASE "哈娜"
			PRINTFORMW 「而且还有人狼的%CNAME(ACTNAME)%在这里、超帅的好吧！」
			PRINTFORMW 「……嘛、虽然%CNAME(ACTNAME)%比起人狼更像狗狗」
		CASE "碧"
			PRINTFORMW 「而且%CNAME(ACTNAME)%怎么说呢、使用身体的方法很厉害……！」
			PRINTFORMW 「%CNAME("一人称")%知道的哦！　那样的人实际上执行着很厉害的任务对吧！」
		ENDSELECT
	;遥君が気楽にカッケーできる枠その2
	CASE "帕拉奇娜", "アイリ", "卡莉斯塔", "琉娜", "玛丽", "西露芙", "奥丝卡", "白色死神"
		SELECTCASE ACTNAME
		CASE "帕拉奇娜"
			PRINTFORMW 「此外%CNAME(ACTNAME)%！」
			PRINTFORMW 「还一直以为是很亲切的前辈、实际上是教会里很厉害的人物对吧？」
			PRINTFORMW 「虽然一直做学生、背地里却接收命令从而行动……不是很让人激动吗！」
		CASE "アイリ"
			PRINTFORMW 「此外%CNAME(ACTNAME)%！」
			PRINTFORMW 「平时也很冷酷，很帅呢！」
			PRINTFORMW 「眼睛也是、很有猫的感觉！」
		CASE "卡莉斯塔"
			PRINTFORMW 「而且%CNAME(ACTNAME)%、是%CNAME("二人称")%的守护天使？　之类的对吧？」
			PRINTFORMW 「天使什么的……还以为绝不会遇见、时间及见到了、真的很酷呢！」
			PRINTFORMW 「……%CNAME("一人称")%是不是也有守护天使呢？」
			;義理でも吸血鬼の子だしいないと思うよ遥君
		CASE "琉娜"
			PRINTFORMW 「而且%CNAME(ACTNAME)%是一条龙吧！？」
			PRINTFORM 「最開始还以为是很可怕的人、
			IF COND("相性○", ACTOR)
				PRINTFORMW 但是会分给%CNAME("一人称")%野菜、既温柔又帅气呢！」
			ELSE
				PRINTFORMW 和本人聊过才知道是个温柔又帅气的人啊！」
			ENDIF
		CASE "玛丽"
			PRINTFORMW 「而且%CNAME(ACTNAME)%是退魔師吧？　怎么说呢？」
			PRINTFORMW 「運動神経又好、人也很帅气呢！」
			PRINTFORMW 「以前刚好见过一部名字一样的电影、下次有机会一定要好好看一遍！」
		CASE "西露芙"
			PRINTFORMW 「而且%CNAME(ACTNAME)%是精灵吧？」
			PRINTFORMW 「光是精灵就已经很酷了、而且性格也很酷呢！」
			PRINTFORMW 「真好啊——！　%CNAME("一人称")%也想长成那样的大人！」
		CASE "奥丝卡"
			PRINTFORMW 「而且%CNAME(ACTNAME)%不是恶魔吗？」
			PRINTFORMW 「最開始还有点害怕、相处之后就发现实际上是个超好的人！」
			PRINTFORMW 「而且、和%CNAME(ACTNAME)%関系变好之后、就開始觉得动画中的反派很酷了！　嘿嘿、%CNAME("一人称")%已经长大了……」
		CASE "白色死神"
			PRINTFORMW 「而且%CNAME(ACTNAME)%！」
			PRINTFORMW 「死神哦死神！　酷炫到爆炸好吧！」
			PRINTFORMW 「而且给人、啊、这个人很厉害的感觉啊！」
		ENDSELECT
	;遥君が気軽にry
	CASE "蔻卡", "尤佟丝"
		SELECTCASE ACTNAME
		CASE "蔻卡"
			PRINTFORMW 「しかもさ！　%CNAME(ACTNAME)%って悪魔なんだろ！」
			PRINTFORMW 「ものすごく気軽そうな人なのに実は悪魔って！　しかもなんかすごそーだし！」
			PRINTFORMW 「そんな%CNAME(ACTNAME)%に懐かれてる%CNAME("二人称")%って……！」
			PRINTFORMW 「いーなー！　%CNAME("一人称")%もそんな感じですごい人と相棒みたいな感じになりたーい！」
		CASE "尤佟丝"
			;尤佟丝酱は遥君の状態で評価が変わる
			;IF COND("相性◎", ACTOR) && CEVENT("尤佟丝")
			;	PRINTFORMW 「それにさ、%CNAME(ACTNAME)%もかっけーよな！」
			;	IF CEVENTS("尤佟丝") == "吸血鬼"
			;	ELSE
			;		PRINTFORMW 「」
			;	ENDIF
			;ELSEIF COND("種族：吸血鬼")
			IF COND("種族：吸血鬼")
				PRINTFORMW 「……ただ、%CNAME(ACTNAME)%はちょっと怖いんだよな……」
				PRINTFORMW 「いや、何か怖いことされたとか、怖い目で見られてるとかそういう訳じゃないんだ」
				PRINTFORMW 「ただなんていうか……なんか、背中がゾクってしちゃうっていうか」
				CALL SET_CEVENT, "尤佟丝：吸血鬼"
			ELSE
				PRINTFORMW 「特に%CNAME(ACTNAME)%！」
				PRINTFORMW 「あんまりしゃべったりしないけど、運動神経はスゲーよさそうだし……」
				PRINTFORMW 「%CNAME("一人称")%もあんな感じになってみたいなぁ……！」
				CALL SET_CEVENT, "尤佟丝：通常"
			ENDIF
		ENDSELECT
	;エッチだ……ってなる枠
	CASE "阿丽努", "莉雅拉", "万音", "綾乃", "恭子", "魔華", "恵"
		PRINTFORMW 「……而且%CNAME(ACTNAME)%、那个、很色情呢」
		SELECTCASE ACTNAME
		CASE "阿丽努"
			PRINTFORMW 「虽然有在保健室遇见过、但没想到这么H啊……」
		CASE "莉雅拉"
			PRINTFORMW 「%CNAME("一人称")%还没见过、但就是那个图书管理员对吧。很色情但总是会忘记她」
		CASE "万音"
			IF CEVENT("淫魔覚醒：万音", ACTOR)
				PRINTFORMW 「怎么说呢、很有大人的感觉……」
				IF CEVENT("学校食堂の大姐姐：万音", ACTOR)
					PRINTFORMW 「%CNAME(ACTNAME)%是在食堂工作是吧？　%CNAME("一人称")%的班上、大家都是为了去看%CNAME(ACTNAME)%才去食堂的」
				ELSE
					PRINTFORMW 「那样的人一来学校就马上会很有人气呢」
				ENDIF
			ELSE
				PRINTFORMW 「……但是、那个人就是对这样很害羞吧」
				PRINTFORMW 「还以为淫魔除了H以为什么都不会想、也会有这样的人呢——」
			ENDIF
		CASE "綾乃"
			PRINTFORMW 「……话说回来、以前有朋友也被%CNAME(ACTNAME)%邀请去参加园艺部」
			PRINTFORMW 「那时候也只会说「太厉害了」这样的话、除此之外什么都不说、现在想起来可能就在做和%CNAME("一人称")%现在做一样的事吧……」
		CASE "恭子"
			PRINTFORMW 「魔法少女、是那个吧？　早间动画的那个」
			PRINTFORMW 「但为什么、%CNAME(ACTNAME)%却这么色情……」
			;だって魔法少女だし……
		CASE "魔華"
			PRINTFORMW 「%CNAME(ACTNAME)%ってさ、中等部だとものすごく有名なんだよ」
			PRINTFORMW 「だってあんな身体してるじゃん？　みんなその、まあ、オカズにするってヤツが友達にも多くてさ」
			PRINTFORMW 「なんであんなに胸部大きんだろうって思ってたけど、淫魔だったのかぁ……」
		CASE "恵"
			PRINTFORMW 「……そういや、保健室の前を街道過ぎたときになんかエッチな声を聞いたことがある気がするんだよなー……」
			PRINTFORMW 「あれ？　エッチな声って聞いたっけ？　……ってか、さっきまで何話してたっけ？」
			PRINTFORMW 「……ま、まあいっか……」
		ENDSELECT
	;ただただ惊嚇する枠
	CASE "焰", "乃々", "诺伊", "鈴", "格蕾丝", "安娜", "成美", "休托莉"
		SELECTCASE ACTNAME
		CASE "休托莉"
			PRINTFORMW 「%CNAME(ACTNAME)%、一直觉得很像大人、一直有像「是不是比%CNAME("一人称")%要年长」这样的传言传出」
			PRINTFORMW 「但是想不到是恶魔啊……」
		CASE "焰", "诺伊", "安娜"
			PRINTFORMW 「%CNAME(ACTNAME)%、为什么什么都没教过%CNAME("一人称")%、不是这里的老师吗？」
			PRINTFORMW 「才被告知的时候还想让%CNAME("一人称")%知道真的好吗！　很惊讶哦」
		CASE "鈴"
			PRINTFORMW 「而且%CNAME(ACTNAME)%、明明比%CNAME("一人称")%还小却这么H……」
			PRINTFORMW 「怎么说呢、第一次见到的时候吓了一跳……」
		CASE "格蕾丝"
			PRINTFORMW 「……还、还有%CNAME(ACTNAME)%呢」
			PRINTFORMW 「最初就觉得很酷、好好谈过才知道……」
			PRINTFORMW 「……嘛、怎么说呢、啊、就只想着这个人好厉害啊」
		CASE "乃々"
			PRINTFORMW 「而且%CNAME(ACTNAME)%是学生会的吧？」
			PRINTFORMW 「学生会承认这种H的社团活动吗？」
			;それは勘違いというものだよ遥君
		CASE "成美"
			PRINTFORMW 「第一次见到%CNAME(ACTNAME)%的时候吓了一跳呢——」
			PRINTFORMW 「頭脑很好、运动也棒的人、为什么会来这样的社团」
		ENDSELECT
	;同情や気遣いが出てくる枠
	CASE "織", "槞彁", "寧子", "帕图拉", "莉迪亚", "小夜", "維吹"
		PRINTFORMW 「而且%CNAME(ACTNAME)%……、以前过得很辛苦的样子、之后能过着和其他人一样的生活很不错啊」
		SIF COND("種族：吸血鬼") && ACTNAME == "織"
			PRINTFORMW 「%CNAME(ACTNAME)%、总感觉有相同的气味」
	;こあい……枠
	CASE "千穂", "栞", "千紗", "小菊", "千裕"
		PRINTFORMW 「%CNAME(ACTNAME)%……虽然对本人说很失礼、但有时候很恐怖呢……」
		SELECTCASE ACTNAME
		CASE "千穂"
			PRINTFORMW 「%CNAME(ACTNAME)%、有时候气质会大变」
			PRINTFORMW 「明明就在那里、但好像存在另一个世界一样」
		CASE "栞"
			PRINTFORMW 「%CNAME(ACTNAME)%也不是坏人、是个很温柔的人、但初次见面的时候很害怕、%CNAME("一人称")%现在也对此很抱歉啊……」
			PRINTFORMW 「有时看着%CNAME("一人称")%好像把%CNAME("一人称")%的一切都洞悉了……」
		CASE "千紗"
			PRINTFORMW 「%CNAME(ACTNAME)%的眼睛、有时候会变得非常透明」
			PRINTFORMW 「怎么说呢……虽然很漂亮、但总感觉不是普通人类」
			PRINTFORMW 「只在新闻上看见过、有时候熊会闯入人类的村庄不是吗？　就像这样的感觉」
		CASE "小菊"
			PRINTFORMW 「hola、%CNAME(ACTNAME)%原本只是个人偶吧？」
			PRINTFORMW 「所以啊、有时候看着就行个幽灵一样……」
			PRINTFORMW 「……话说就是幽灵吧。仔细想想的话」
		CASE "千裕"
			PRINTFORMW 「たまーni↘ていうか、多分そんなつもりはないんろうけどさ……」
			PRINTFORMW 「こう、背筋がゾクってする時があるんだよ。%CNAME(ACTNAME)%に見つめられると」
			IF TALENT:淫乱
				PRINTFORMW 「……って！　別にエッチな気分になってるって訳じゃなくて！」
				PRINTFORMW 「もう！　……えっと、話を戻すぞ」
			ENDIF
			IF CNUM("千紗")
				PRINTFORMW 「なんだろう……%CNAME(CALLNAME:CNUM("千紗"))%の時に近いんだけどなんかちょっと違うっていうか……」
			ELSE
				PRINTFORMW 「こう、なんて言ったらいいのかな……うーん……」
			ENDIF
			PRINTFORMW 「……あ、アレだ」
			PRINTFORMW 「ほら、映画で人食いザメとか出て来る時主上ゃん。そんな感じ」
		ENDSELECT
	;你の血縁って……枠
	CASE "麦莉爱娜", "樱", "南実", "霧江"
		PRINTFORM 「……只是、%CNAME(ACTNAME)%居然是%CNAME("二人称")%的
		IF CSTR:ACTOR:称号 == "実妹"
			PRINT 妹妹
		ELSEIF CSTR:ACTOR:称号 == "保護者"
			IF ACTNAME == "麦莉爱娜"
				PRINT 妈妈
			ENDIF
		ELSEIF CSTR:ACTOR:称号 == "実姉"
			PRINT 大姐姐
		ENDIF
		PRINTFORMW 、知道的时候真的很吃惊……」
		IF COND("相性◎", ACTOR)
			PRINTFORMW 「っていうか、彼氏がいるってウワサで聞いたんだけど……」
			PRINTFORMW 「……ホントに大丈夫なの？」
		ELSE
			PRINTFORMW 「这、该怎么说呢……啊——、%CNAME("二人称")%真的很厉害呢、嗯」
		ENDIF
	;うらやまけしからん枠
	CASE "杏珠", "佑香", "百合香", "棗", "静菜", "優里", "紬希"
		PRINTFORMW 「而且还有对%CNAME("二人称")%很温柔的%CNAME(ACTNAME)%在……」
		PRINTFORMW 「只有%CNAME("二人称")%太狡猾了——！　%CNAME("一人称")%也想要有像主人公一样的感觉——！！」
	;望木家枠
	CASE "莉"
		PRINTFORMW 「而且、%CNAME(ACTNAME)%也在……」
		PRINTFORMW 「不、不是！　并不是喜欢什么的！」
		IF TALENT:恋慕
			PRINTFORMW 「……嘛、嘛、以前确实喜欢过她……」
			PRINTFORMW 「但是！　现在只钟情于%CNAME("二人称")%！」
		ELSE
			PRINTFORMW 「只、只是想稍微聊聊天……」
		ENDIF
	CASE "灯"
		IF CEVENT("灯敵視") == 0 && CEVENT("灯初会話")
			PRINTFORMW 「%CNAME(ACTNAME)%，其实一開始也觉得%CNAME("一人称")%很烦人，但其实很関心%CNAME("一人称")%，而且意外地聪明」
			IF TALENT:伪娘
				PRINTFORMW 「而且，一起去买衣服的时候，会告诉%CNAME("一人称")%什么样的衣服好看啊之类的」
			ELSE
				PRINTFORMW 「……嘛，虽然有时候被逼陪着去买女装有点折磨」
			ENDIF
		ELSE
			PRINTFORMW 「……但是啊ー、%CNAME("二人称")%怎么就不明白呢……」
			IF CNUM("莉")
				PRINTFORMW 「你知道吗、%CNAME(ACTNAME)%偶尔也会露出非常苦恼的表情哦？」
			ELSE
				IF (AIZOU() == 0 && TALENT:恋慕) || TALENT:相思相愛
					PRINTFORMW 「同年级里有个%CNAME("一人称")%很在意的孩子……啊，是想做朋友的意思」
				ELSE
					PRINTFORMW 「那个，同年级里有个%CNAME("一人称")%在意的……！」
					PRINTFORMW 「……想、想做朋友的人！」
				ENDIF
				PRINTFORMW 「那个，总是很阴郁……」
			ENDIF
			PRINTFORMW 「然后啊，%CNAME(ACTNAME)%身上有很多奇怪的传言。比如说每晚都和不同的男人乱交」
			SIF CNUM("莉")
				PRINTFORMW 「然后、%CNAME(ACTNAME)%是%CNAME("一人称")%在意的那个孩子的哥哥」
			PRINTFORMW 「所以%CNAME("一人称")%在想，她是不是和坏人混在一起，真是困扰啊……」
			IF CEVENT("灯初会話")
				PRINTFORMW 「……但是，聊天的时候并没有那种感觉啊」
				PRINTFORMW 「也许只是%CNAME("一人称")%误会了呢……？」
			ENDIF
		ENDIF
	CASE "真"
		PRINTFORMW 「这么说来，%CNAME(ACTNAME)%可能很普通，不过她只是在这个地方，这就很厉害了吧」
		PRINTFORMW 「能和各种各样的人聊天，%CNAME("一人称")%也想努力成为像她那样的人」
	;真妃酱は普通に可愛がる
	CASE "真妃"
		PRINTFORMW 「%CNAME(ACTNAME)%は……なんていうか、可爱よな」
		PRINTFORMW 「なんていうか、よしよしってしたくなるっていうか、ワッシャーってしたくなるっていうか……」
		PRINTFORMW 「したら嫌がられそうだからガマンしてるけど……あーもう！　モフモフしてそうな%CNAME(ACTNAME)%の頭ワシャワシャーってしたいーー！」
		PRINTFORMW 「どーせ%CNAME("二人称")%はオッケーもらってるんだろー！？　いーなー！　いーーーーーなーーーーー！！！」
	CASEELSE
		PRINTFORM 「%CNAME(ACTNAME)%
		IF CSTR:ACTOR:種族 == "人类"
			PRINTFORMW 只是个人类、但从加入这个社团的那一刻就已经不是一般人了吧？」
		ELSE
			PRINTFORMW 是%CSTR:ACTOR:種族%吧？
		ENDIF
		PRINTFORMW 「……这么想的话、这个社团真厉害呢！」
	ENDSELECT
ENDSELECT

path: ERB/EVENT_K/57 遥/EVENT_K57_LONG.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K57_ADDSELECT
;女装or男装に姿を変えるお願い
;乃々君の女装を就这様移植したもの
IF CEVENT("女装教習")
	IF CEVENT("女装")
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("服を戻して", 16)% … %CALLNAME:TARGET%の服を戻してもらいます/
	ELSE
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("女装して", 16)% … %CALLNAME:TARGET%に女装してもらいます/
	ENDIF
ENDIF

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K57_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "服を戻して"
	IF CFLAG:女装乗り気度 >= 30
		PRINTFORMW 「诶？　已经可以了吗？」
	ELSE
		PRINTFORMW 「终、终于完了……」
	ENDIF
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%明天会穿着男装来部室玩了。
	CALL DEL_CEVENT, "女装"
	CALL K57_CLOTHCHANGE
	;フラグを弄る場合はそれもここで行う
CASE "女装して"
	CALL PRINT_STRW, @"「%CNAME("一人称")%、%CNAME("一人称")%知道啦……_H_」"
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%明天会穿着女装来部室玩了。
	CALL SET_CEVENT, "女装"
	CALL K57_CLOTHCHANGE
	;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K57_ADDSELECT
SIF CEVENT("女装")
	STR:選択肢 += "女装を夸奖/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K57_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "女装を夸奖"
	PRINTFORMW %CALLNAME:MASTER%夸奖了%CALLNAME:TARGET%女装的样子
	PRINTL
	SELECTCASE CFLAG:女装乗り気度
	CASE IS >= 30
		PRINTFORMW 「哼哼哼、对吧——？」
		PRINTFORMW %CALLNAME:TARGET%看起来很開心……。
	CASE IS >= 15
		PRINTFORMW 「对、对吧……嘿嘿嘿……」
		PRINTFORMW %CALLNAME:TARGET%红着脸……。
	CASE IS >= 5
		PRINTFORMW 「……那、那么合适吗……？」
		PRINTFORMW %CALLNAME:TARGET%看起来并不是那么開心……。
	CASEELSE
		PRINTFORMW 「诶——？　才没那种事吧——？」
		PRINTFORMW %CALLNAME:TARGET%用怪异的眼神盯着%CALLNAME:MASTER%……。
	ENDSELECT
	SIF CFLAG:女装乗り気度 <= 999
		CFLAG:女装乗り気度++
ENDSELECT

path: ERB/EVENT_K/57 遥/EVENT_K57_SELECT.ERB

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「诶、要拜托%CNAME("一人称")%？」
		ELSE
			PRINTFORMW 「嗯？　想让%CNAME("一人称")%做什么呢？」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		IF AIZOU()
			PRINTFORMW 「……为什么要说这种话啊」
			PRINTFORMW 「把%CNAME("一人称")%排開啊……」
			CALL PRINT_SELECT, "这也是没办法的事"
			PRINTFORMW 「……为什么啊？」
			CALL PRINT_SELECT, @"因为喜欢上%CALLNAME:TARGET%了啊"
			PRINTFORMW 「……呜！」
			PRINTFORMW 「…………输了。完败呢」
			PRINTFORMW 「%CNAME("二人称")%这么简单就把%CNAME("一人称")%弄到手了」
			PRINTFORMW 「所以啊%CNAME("一人称")%就像、绝对不能轻易把心交给你……」
			PRINTFORMW 「……就这样、这样简单的就动摇了……」
			PRINTFORMW 「…………可恶、真不甘心啊」
			PRINTFORMW 「这么地不甘心却一点都不讨厌、甚至还有点開心、真不甘心啊……」
		ELSEIF CEVENT("前輩の意見")
			PRINTFORMW 「……！」
			PRINTFORMW 「真、真的、好吗？」
			CALL PRINT_SELECT, "当然了/这还用说吗"
			PRINTFORMW 「……终于」
			PRINTFORMW 「……成了！　成功啦啊啊啊啊！」
			PRINTFORMW 「谢谢你……呜！　%CNAME("一人称")%、一直都很害怕……！」
			PRINTFORMW 「一直都说准备好了都是骗人的。其实%CNAME("一人称")%一直都在做觉悟」
			PRINTFORMW 「……喜欢上%CNAME("二人称")%什么的绝对不可能、一直都这么想着」
			PRINTFORMW 「……不是、梦境吧」
			PRINTFORMW 「谢谢你……%CNAME("二人称")%、谢谢你……呜！」
			PRINTFORMW 「呜~……呜哇啊啊啊啊~！」
		ELSEIF CFLAG:メス堕ち度 >= 3 && TALENT:MASTER:男性 && TALENT:MASTER:伪娘 == 0
			PRINTFORMW 「……真狡猾」
			PRINTFORMW 「真的真的、最早并不是用那种眼光看%CNAME("二人称")%的」
			SIF CEVENT("『のぞき』見")
				PRINTFORMW 「而且、看到%CNAME("莉")%酱和%CNAME("二人称")%一起做爱的时候……感到、很嫉妒」
			PRINTFORMW 「那之后又对%CNAME("一人称")%的身体肆意妄为、弄得乱七八糟的……」
			PRINTFORMW 「就是因为%CNAME("二人称")%的错、我的身体完全变得淫荡起来了」
			CALL PRINT_STRW, @"「……被这样做了、会产生喜欢你的错觉不是吗……_H_」"
		ELSE
			PRINTFORMW 「……诶」
			PRINTFORMW 「真、真的？　这样真的好吗？」
			PRINTFORMW 「……成了！　成功啦啊啊啊啊！」
			PRINTFORMW 「%CNAME("一人称")%也！　%CNAME("一人称")%也喜欢%CNAME("二人称")%！」
			PRINTFORMW 「虽然是坏心眼、色狼、大变态……但就是最喜欢这样的%CNAME("二人称")%了！」
		ENDIF
	;失敗
	ELSE
		IF AIZOU()
			PRINTFORMW 「……不要」
			PRINTFORMW 「不要管%CNAME("一人称")%啊」
			PRINTFORMW 「……会习惯的、这伤痛」
		ELSE
			PRINTFORMW 「呜嗯~……」
			PRINTFORMW 「%CNAME("一人称")%尊敬着%CNAME("二人称")%、这方面的话还不能想象啊……」
			PRINTFORMW 「……对不起啊？」
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW 「嘛、嘛、非要这样的话、稍微给你一下也没関系……」
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		IF TALENT:倒錯的
			PRINTFORMW 「诶、诶？　不，不行，这实在是太过分了……」
			PRINTFORMW 「……嘛、嘛。非得这么么做的话、只要给点钱也不是不能考虑一下……」
			TFLAG:値上げ交渉 = 500
		ELSE
			PRINTFORMW 「不，不不不！　这个绝对不行！」
			IF COND("種族：吸血鬼")
				PRINTFORMW 「把内裤交给别人的吸血鬼是什么鬼啦……」
			ELSE
				PRINTFORMW 「……%CNAME("二人称")%。是不是在嘲笑%CNAME("一人称")%只是个普通人……？」
			ENDIF
		ENDIF
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否

	ELSE

	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		IF RAND:2
			CALL PRINT_STRW, @"「……不、不要盯着看啊……_H_」"
		ELSE
			CALL PRINT_STRW, @"「等、等等啦！　好羞耻……_H_」"
		ENDIF
	;断られる
	ELSEIF ABL:露出癖 >= 5 || CFLAG:メス堕ち度 >= 3
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		PRINTFORMW 「……非、非要这么做的话、那个……」
		TFLAG:値上げ交渉 = 500
		PRINTFORMW 「要是给%CNAME("一人称")%{TFLAG:値上げ交渉}的话%CNAME("一人称")%也许会考虑一下……」
		PRINTFORMW 「……诶、好便宜？　闭、闭嘴！」
	ELSE
		PRINTFORMW 「……再怎么样也不能问这种事吧」
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否
		PRINTFORMW 「……唔、唔嗯、那，那就没関系了……」
		PRINTFORMW 「……%CNAME("一人称")%，%CNAME("一人称")%才不会觉得遗憾呢！　绝对不会！」
	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「诶、等、等一下……」
		CALL PRINT_STRW, @"「至少等没有其他人的时候……_H_」"
	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「呜嗯~……」
	PRINTFORMW 「……父亲他们会担心的、对不起啦？」
CASE "同居希望"
	PRINTFORMW 「诶、可以住在%CNAME("二人称")%家吗……！？」
	PRINTFORMW 「知道了！　今天回去后马上去准备！」
CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	ENDIF

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

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

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

CASE "淫紋拒否"
	PRINTFORMW 「这、这个有点……」
	PRINTFORMW 「怎么说呢……感觉会变得不妙……」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	;RETURN 0
	;初回
	IF DEVENT(ARGS) == 0
		CALL PRINT_STRW, @"「这、这是怎么回事，感觉身体有点燥热……而且那个，下面也有点痒痒的……_H_」"
		CALL PRINT_STRW, @"「呜……_H_难，难道要这样一直持续下去吗……？」"
	ELSE
		CALL PRINT_STRW, @"「呜……果然还是有点痒痒的……_H_」"
		IF CFLAG:メス堕ち度 <= 1
			CALL PRINT_STRW, @"「再这样下去的话、%CNAME("一人称")%就不是%CNAME("一人称")%了……_H_」"
		ELSE
			CALL PRINT_STRW, @"「%CNAME("二人称", "かな")%……快来做H的事吧……_H_」"
		ENDIF
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2
		CALL PRINT_STRW, @"「……嗯_H_这个、不妙……_H_」"
		CALL PRINT_STRW, @"「下面一直感觉酥酥麻麻的……啊……_H_」"
		PRINTFORMW 「……！　不、不行。这样下去的话只会想H的事了……！」
	CASE 3
		CALL PRINT_STRW, @"「虽然知道但是……_H_痒痒的感觉停不下来……_H_」"
		CALL PRINT_STRW, @"「现在感觉……什么看起来都很H……_H_」"
	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;恋慕のみ　避妊の護符を取下
CASE "避妊解除可"

CASE "避妊解除拒否"

;一度解除した避妊の護符の再装着をお願いした場合
CASE "避妊の護符"

;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「就算是%CNAME("二人称")%的请求也有点……」
	PRINTFORMW 「……对不住了」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「嗯？　%CNAME("一人称")%知道了！」
	PRINTFORMW 「嘿嘿、%CNAME("二人称")%開心比什么都好！」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K57, ARGS
#DIMS NEED_TABLE

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「……一起吗？」
		PRINTFORMW 「%CNAME("一人称")%知道了！　%CNAME("二人称")%喜欢什么样的也有点在意呢！」
		PRINTFORMW 「……对了、是去哪家店呢？」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「……啊、确实呢」
		PRINTFORMW 「……呜哇、呜哇啊……」
		PRINTFORMW 「刚才还想着要穿这样出門，现在感觉好害羞……」
	ELSE

	ENDIF
CASE "目送"
	PRINTFORMW 「哦！　一路走好啊！」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "询问有什么想要的东西"
	IF CFLAG:メス堕ち度 >= 3 || TALENT:淫乱
		PRINTFORML 「欲しい物かぁ……」
		;ここで足りない/欲しい商品があると、それについて話す
		;話の順番とかを自然にするためにBIT変数を使って必須道具は管理
		;……だったが、ryusimi桑のおかげでグンとやりやすくなった
		;必須道具は潤滑液と避孕套
		;足りない商品がある時は、そちら優先
		NEED_TABLE =
		SIF ITEM:潤滑液 <= 5
			NEED_TABLE += "潤滑液"
		SIF ITEM:避孕套 <= 10
			NEED_TABLE += "避孕套"

		IF STRCOUNTS(NEED_TABLE, "潤滑液", "避孕套")
			IF STRCOUNTS(NEED_TABLE, "潤滑液")
				PRINTFORML 「唔嗯……买点润滑液比较好吧？」
				PRINTFORML 「H的时候没有润滑剂就惨了……」
			ENDIF
			IF STRCOUNTS(NEED_TABLE, "避孕套")
				IF STRCOUNTS(NEED_TABLE, "潤滑液")
					PRINTFORML 「还要买避孕套呢ー」
				ELSE
					PRINTFORML 「……说起来，好像没有避孕套了呢」
				ENDIF
				IF VAGINA(MASTER)
					PRINTFORML 「%CNAME("二人称")%が妊娠していっていうならいいけど、ナマでするのは色々と大変だろうし、あったほうがいいんじゃないかな？」
				ELSE
					PRINTFORML 「避妊は大人のエチケットだって聞いたぞ」
					PRINTFORML 「……まあ、相手が構わないならいいんだけど」
				ENDIF
			ENDIF
			RETURN 1
		ENDIF

		NEED_TABLE =
		SIF ITEM:創口貼 <= 1
			NEED_TABLE += "創口貼"
		SIF ITEM:撮影機材 == 0
			NEED_TABLE += "撮影機材"
		SIF ITEM:飞机杯 == 0
			NEED_TABLE += "飞机杯"
		SIF ITEM:肛用振動棒 == 0
			NEED_TABLE += "肛用振動棒"
		SIF PENIS(MASTER) == 0 && ITEM:假阳具 == 0
			NEED_TABLE += "假阳具"

		SELECTCASE TEXTR(NEED_TABLE)
		CASE "創口貼"
			PRINTFORML 「……那么，买点创可贴怎么样？」
			PRINTFORML 「你看，没准会有受伤的时候。那个时候就方便了吧？」
			CALL PRINT_STRW, @"「……而且、H的时候没准也可以用……_H_」"
		CASE "撮影機材"
			PRINTFORML 「那么，那个相机怎么样？」
			PRINTFORML 「……嘛、那个、%CNAME("一人称")%有点好奇用这个拍照会拍成什么样……」
			CALL PRINT_STRL, @"「有点羞耻但也有点兴奋……_H_」"
			PRINTFORML 「……呜，感觉自己变得越来越变态了……」
		CASE "飞机杯"
			PRINTFORML 「……那，那这个飞机杯怎么样」
			PRINTFORML 「%CNAME("一人称")%没用过……不过%CNAME("二人称")%不会没用过吧……」
			CALL PRINT_STRW, @"「……说起来，这个飞机杯可以用来啾啵啾啵的套弄%CNAME("二人称")%的鸡鸡……_H_」"
		CASE "肛用振動棒"
			PRINTFORML 「……啊ー、那个……这个是肛、肛用振動棒……」
			CALL PRINT_STRW, @"「……怎、怎么说呢、这个插进去的话会很爽吧……_H_」"
		CASE "假阳具"
			PRINTFORML 「唔嗯……那么，买这个穿戴式假陰茎？　怎么样？　虽然不知道怎么用」
			CALL PRINT_STRL, @"「嘛、那个、H的时候也许能用上……_H_」"
		CASEELSE
			PRINTFORML 「……唔嗯、想不出来呢……」
		ENDSELECT
	ELSE
		PRINTFORML 「就算说想要的东西、%CNAME("一人称")%对这些东西也不太熟悉……」
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/57 遥/EVENT_K57_SHOP.ERB