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

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します。
;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます。
CASE "内衣"
	IF TALENT:伪娘
		IF TALENT:淫乱
			CSTR:胖次 = Micro比基尼
			CSTR:胸罩 = Micro比基尼胸罩
		ELSE
			CSTR:胖次 = 縞胖次
			CSTR:胸罩 = 普通胸罩
		ENDIF
	ELSE
		CSTR:胖次 = 鬥士胖次/黒/
		IF CEVENT("乳頭の虜")
			CSTR:胸罩 = 運動胸罩
		ELSE
			CSTR:胸罩 =
		ENDIF
	ENDIF

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

;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 美式校服など
;黑色水手服を着せたい場合には CALL SET_COSTUME, "水手服/黒" のように書き込むことで色を変えることが出来ます
;(RESOURCES→MAIDFACE→13服 フォルダ内にある MAIDFACE13.csv の該当衣装を見て色を選ばないとならないため上級者向きです)
CASE "制服"
	IF CEVENT("女装") || TALENT:伪娘
		CALL SET_COSTUME, "水手服"
	ELSE
		CALL SET_COSTUME, "男子西装"
	ENDIF
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	IF (CEVENT("女装") || TALENT:伪娘) && TALENT:淫乱
		CALL SET_COSTUME, "体操服布鲁马"
	ELSE
		CALL SET_COSTUME, "体操服运动衫"
	ENDIF
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	IF (CEVENT("女装") || TALENT:伪娘) && CEVENT("乳頭の虜")
		CALL SET_COSTUME, "死库水"
	ELSE
		CALL SET_COSTUME, "衝浪胖次"
	ENDIF

;自宅など学園外で着ます。設定必須です
CASE "便装"
	IF COND("冬")
		CALL SET_OUTER, "休闲褲"
		CALL SET_SOCKS, "襪子"
		CALL SET_GLOVE, "手套"
		IF TALENT:伪娘
			CALL SET_SHIRT, "萌袖毛衣/連衣裙"
			CALL SET_SKIRT, "下摆/連衣裙/超短迷你"
			CALL SET_SHOES, "莫卡辛软皮鞋"
			CALL SET_OTHER, "披肩"
		ELSE
			CALL SET_SHIRT, "毛衣"
			CALL SET_SHOES, "靴"
		ENDIF
	ELSEIF COND("夏")
		IF TALENT:伪娘
			CALL SET_SHIRT, "白色連衣裙"
			CALL SET_SHOES, "无后跟鞋"
		ELSE
			CALL SET_SHIRT, "吊帯背心"
			CALL SET_OUTER, "五分褲"
			CALL SET_SHOES, "凉鞋"
		ENDIF
	ELSEIF COND("春")
		IF TALENT:伪娘
			CALL SET_SHIRT, "宽松女式衬衫"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_SHOES, "无后跟鞋"
			CALL SET_OTHER, "髮箍"
		ELSE
			CALL SET_SHIRT, "Ｔ恤"
			CALL SET_OUTER, "五分褲"
			CALL SET_SOCKS, "襪子"
			CALL SET_SHOES, "運動鞋"
		ENDIF
	ELSE
		IF TALENT:伪娘
			CALL SET_SHIRT, "Ｔ恤"
		ELSE
			CALL SET_SHIRT, "連帽風衣"
		ENDIF
		CALL SET_OUTER, "牛仔褲"
		CALL SET_SOCKS, "襪子"
		CALL SET_SHOES, "運動鞋"
		CALL SET_OTHER, "海豚吊坠"
	ENDIF

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF COND("夏")
		CALL SET_SHIRT, "吊帯背心"
		CALL SET_BRA, ""
		CALL SET_SHOES, "裸足"
		SIF TALENT:伪娘
			CALL SET_OUTER, "五分褲"
	ELSE
		CALL SET_SHIRT, "宽大的Ｔ恤"
		IF COND("冬")
			CALL SET_OUTER, "休闲褲"
		ELSEIF TALENT:淫乱 && RAND:2
			CALL SET_OUTER, ""
		ELSE
			CALL SET_OUTER, "五分褲"
		ENDIF
	ENDIF

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
IF COND("春")
	CALL SET_SHIRT, "Ｔ恤"
	CALL SET_SOCKS, "襪子"
	IF CEVENT("女装")
		CALL SET_SKIRT, "巻き裙"
		CALL SET_SHOES, "平底鞋"
	ELSE
		CALL SET_OUTER, "五分褲"
		CALL SET_SHOES, "運動鞋"
	ENDIF
ELSEIF COND("夏")
	IF CEVENT("女装")
		CALL SET_SHIRT, "夏日礼服/連衣裙"
		IF TALENT:淫乱
			CALL SET_SKIRT, "迷你裙/連衣裙"
		ELSE
			CALL SET_SKIRT, "裙/連衣裙"
		ENDIF
		CALL SET_SHOES, "无后跟鞋"
		CALL SET_OTHER, "草帽"
	ELSE
		CALL SET_SHIRT, "吊帯背心"
		CALL SET_OUTER, "五分褲"
		CALL SET_SHOES, "凉鞋"
	ENDIF
ELSEIF COND("秋")
	IF CEVENT("女装")
		CALL SET_SHIRT, "Ｔ恤/連衣裙"
		CALL SET_SKIRT, "下摆/連衣裙/超短迷你"
		IF TALENT:淫乱 && RAND:2
			CALL SET_OUTER, ""
		ELSE
			CALL SET_OUTER, "五分褲"
		ENDIF
		CALL SET_SOCKS, "宽松的短襪"
	ELSE
		CALL SET_SHIRT, "連帽風衣"
		CALL SET_OUTER, "牛仔褲"
		CALL SET_SOCKS, "襪子"
	ENDIF
	CALL SET_SHOES, "運動鞋"
ELSE
	IF CEVENT("女装")
		CALL SET_SHIRT, "萌袖毛衣"
		CALL SET_OUTER, "低腰牛仔褲"
		CALL SET_OTHER, "针织帽"
	ELSE
		CALL SET_SHIRT, "毛衣"
		CALL SET_OUTER, "休闲褲"
	ENDIF
	CALL SET_SOCKS, "襪子"
	CALL SET_SHOES, "靴"
	CALL SET_OTHER, "手套"
ENDIF

;もちろん约会の際に着ます
CASE "约会衣装"
	IF CEVENT("女装")
		CALL SET_SHIRT, "Ｔ恤"
		CALL SET_OUTER, "キュロット"
		CALL SET_SOCKS, "襪子"
		CALL SET_SHOES, "靴"
	ELSE
		IF EXP:约会経験 <= 5
			CALL SET_SHIRT, "怪图案Ｔ恤"
		ELSE
			IF COND("冬")
				CALL SET_SHIRT, "毛衣"
			ELSE
				CALL SET_SHIRT, "前開的衬衫"
			ENDIF
		ENDIF
		IF RAND:2
			CALL SET_OUTER, "牛仔褲"
		ELSE
			CALL SET_OUTER, "休闲褲"
		ENDIF
		CALL SET_SOCKS, "襪子"
		CALL SET_SHOES, "靴"
	ENDIF
	IF COND("冬")
		IF CEVENT("女装") && RAND:2
			CALL SET_OTHER, "披肩"
		ELSE
			CALL SET_OTHER, "外套"
		ENDIF
		SIF RAND:3 == 0 || COND("種族：吸血鬼")
			CALL SET_OTHER, "针织帽"
	ELSEIF COND("夏") && (RAND:3 == 0 || COND("種族：吸血鬼"))
		CALL SET_OTHER, "草帽"
	ELSEIF COND("種族：吸血鬼")
		IF CEVENT("女装")
			CALL SET_OTHER, "贝雷帽"
		ELSE
			CALL SET_OTHER, "妇人礼帽"
		ENDIF
	ENDIF
ENDSELECT

IF CHECK_SHIRT("変な柄")
	IF RAND:2
		CSTR:服 += @"柄：%TEXTR("You are Dick/Mamma stand up Yellowstone/Back Bay Sadism/I am Boo")%/英字/"
	ELSE
		CSTR:服 += @"柄：%TEXTR("大感謝祭/切り捨て御免/相対性理論/欧米")%/"
	ENDIF
ENDIF
;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K57
IF PLACE("自宅")
	CSTR:改髪 = 无特殊髪型
ELSE
	IF CEVENT("女装") || TALENT:伪娘
		CSTR:改髪 = 马尾辫
	ELSE
		CALL SETFLAG, "普段の髪型復元", TARGET
	ENDIF
ENDIF

SIF COND("種族：吸血鬼")
	CSTR:髪色 = 銀髪

@K57_CLOTHCHANGE, ARG

SIF ARG == 0
	ARG = TARGET

IF CEVENT("女装", ARG) || TALENT:ARG:伪娘
	IF TALENT:淫乱
		CSTR:ARG:喜欢的胖次 = Micro比基尼/丁字褲/低腰胖次/Ｈ的内衣
		CSTR:ARG:喜欢的胸罩 = Micro比基尼胸罩/Micro胸罩/半杯胸罩/開放型胸罩
	ELSE
		CSTR:ARG:喜欢的胖次 = 縞胖次/三角胖次
		CSTR:ARG:喜欢的胸罩 = 普通胸罩/運動胸罩
	ENDIF
ELSE
	CSTR:ARG:喜欢的胖次 = 四角褲/僕サー简约胖次
	CSTR:ARG:喜欢的胸罩 =无胸罩
ENDIF

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

license: unknown


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K57, ARGS
#DIM MEMO_LINECOUNT
;対話相手にしたい角色の名前を/区切りでこれに突っ込んでFIND_TaiTa(EVENT_TABLE)とするとそのうち一人が選ばれる
#DIMS EVENT_TABLE

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPARTNER()にする事で、特定の相手に話しかけることもできる
CASE "お誘いする"
	;特定の相手に話しかける場合はEVENT_TABLEに対話相手の呼び名(CALLNAME)を / 区切りで並べて ; を消す
	;例１）弗理希艾尔or濡烏の君or杏珠から一人選ぶ場合
	EVENT_TABLE = 莉/真/灯/千紗/安娜/西西莉亚
	;例２）部員全てから一人選ぶ場合
	;EVENT_TABLE = 全員

	IF FIND_TaiTa(EVENT_TABLE)
		;話し相手をpartnerにする
		CALL SET_PARTNER, FIND_TaiTa(EVENT_TABLE)

		SIF !(CEVENT("『のぞき』見") && TALENT:相思相愛 == 0 && CEVENT("前輩の意見") == 0 && CALLNAME:PARTNER() == "莉")
			CALL EMOTION_PLUS, "交流中", TARGET, PARTNER()
		TFLAG:地の文スキップ = 1
		SELECTCASE CALLNAME:PARTNER()
		CASE "西西莉亚"
			IF CEVENT("ツェツィ初会話") == 0
				PRINTFORMW 「%CNAME("partner")%！　%CNAME("partner")%是魔法师吧！」
				PRINTFORMW 『是的呢。没叫我同学而是叫%CNAMET(PARTNER(), "一人称")%魔法师，是要问関于魔法的问题吧？』
				PRINTFORMW 「是……是的！　%CNAME("一人称")%想试着使用魔法、可是%CNAME("二人称")%根本不教%CNAME("一人称")%、听说%CNAME("partner")%是魔法师……！」
				PRINTFORMW 『呼嗯。很遗憾。%CNAMET(PARTNER(), "一人称")%不太擅长教导别人、虽然这也取决于%CNAMET(PARTNER(), "二人称")%的知識程度、但从刚才了解的情况来看建议你最好不要继续』
				PRINTFORMW 「诶诶～、怎么会～！　就一点点！　就教%CNAME("一人称")%一点点吧、師匠！」
				PRINTFORMW 『呼唔……想要我教你魔法、具体是什么样的魔法呢、能说说吗？』
				PRINTFORMW 「诶！　那、那个、就是……恋、恋爱魔法…………」
				PRINTFORMW 『原来如此。要是这样的话，现在的%CNAMET(PARTNER(), "二人称")%也能实现一些』
				PRINTFORMW 「真的吗！？」
				PRINTFORMW 『嗯。首先要得到心爱之人的頭发……』
				PRINTFORMW 「……頭发？」
				PRINTFORMW 『是的。我现在要传授给你的是感染咒术的一种，如果没有目标身体的一部分就无法施行。也混合了类感咒术的元素，是一种复合咒术……那么说回刚刚的事。把它和用拉丁语写的咒语一起塞进人偶里――』
				PRINTFORMW 「没、没事了！　还是自己努力吧！」
				CALL SET_CEVENT, "ツェツィ初会話"
			ELSE
				SELECTCASE RAND:2
				CASE 0
					IF COND("種族：吸血鬼") && RAND:2
						PRINTFORMW 『可以跟%TEXTR("蝙蝠/鼠/鴉")%对话吗？　%CNAMET(PARTNER(), "二人称")%这样不成熟的吸血鬼是否已经拥有了控制眷属的能力，如果没有，那么将如何獲得这种能力，情报还不够完全』
						PRINTFORMW 「好的！　%CNAME("partner")%的要求%CNAME("一人称")%都会听的ー！」
					ELSE
						PRINTFORMW 「话说回来，%CNAME("一人称")%完全不知道学校里有%CNAME("partner")%这么厉害的人！　世界上真的有很多神奇的事情呢ー」
						PRINTFORMW 『说的是呢。「常识就是18岁之前收集到的偏见的集合」正如这句话所表达的那样、我们生活在认知的鸟笼里。就像那个洞穴的比喻一样』
						PRINTFORMW 『超出这个范围的事件都被视为无法解释的东西――有时它是微不足道的东西，有时它是世纪大发现――』
						PRINTFORMW 『在命名无法理解的东西并将其纳入自己的世界观的意义上，我们的魔法和科学之间可能并没有太大差异』
						;よくわかってない遥君
						PRINTFORMW 「是吗？　……是这样啊」
					ENDIF
				CASE 1
					PRINTFORMW 『%CNAMET(PARTNER(), "二人称")%、好像很喜欢游泳呢』
					PRINTFORMW 「是的！　%CNAME("partner")%不喜欢吗？」
					PRINTFORMW 『不仅是游泳，而是所有运动呢……真是的，拥有魔法和技术，根本没必要进行无用的运动』
				ENDSELECT
			ENDIF
		CASE "真"
			IF CEVENT("真初会話") == 0
				PRINTFORMW 「……啊、%CNAME("partner")%」
				PRINTFORMW 『那个…………』
				PRINTFORMW 「%NAME:TARGET%啦！　真是的、入部的时候明明说过了哦？」
				PRINTFORMW 『啊、对对……哇哇。对不起啊』
				PRINTFORMW 「哈哈、不用那么在意也可以啦！　……不对、才不是那样！　%CNAME("partner")%是莉酱的大姐对吧？」
				PRINTFORMW 『嗯、是这样的……你呢？ 是同班同学吧』
				PRINTFORMW 「哦！　就是这样！　…………所以、那个、莉酱的一些情报、能告诉%CNAME("一人称")%吗……」
				PRINTFORMW 『啊~、莉酱……那孩子怎么了吗？』
				PRINTFORMW 「那个吗……这个……」
				PRINTFORMW 『诶、啊、难道我家的莉酱对你做了什么吗……！』
				PRINTFORMW 「等、等一下！　不是那样的！　别那样沮丧着脸啊！」
				PRINTFORMW 『真的吗？　真的什么都没有吗？』
				PRINTFORMW 「没有了啦！　……不管怎么样！　莉酱、总是阴郁着脸、想让她開心起来……」
				PRINTFORMW 『……！』
				PRINTFORMW （啊~、这样啊……是这么回事啊……果然很受欢迎啊、莉酱……）
				PRINTFORMW 「那、那个……%CNAME("partner")%……？」
				PRINTFORMW 『嗯嗯、我明白了！　这样的话就交给我了！』
				PRINTFORMW 「哦、哦……？」
				PRINTFORMW 『我作为兄长、年龄大了那么多，也没有太多的办法……』
				PRINTFORMW 『所以%CALLNAME:TARGET%君、我会尽力帮助你的！』
				PRINTFORMW 「诶？　哦、哦~！　虽然不知道怎么回事，但包在%CNAME("一人称")%身上吧！」
				CALL SET_CEVENT, "真初会話"
			ELSEIF FIND_COND("現在存在", "莉") && RAND:2
				PRINTFORMW 『最近莉酱怎么样？』
				IF CEVENT("『のぞき』見") && TALENT:相思相愛 == 0 && CEVENT("前輩の意見") == 0
					PRINTFORMW 「啊~……那个……马马虎虎、吧……」
				ELSE
					IF COND("相性◎", FIND_NO("莉") )
						PRINTFORMW 「哦~！　我们相处的还不错！」
						PRINTFORMW 「也习惯在一起说说话了、而且――」
					ELSEIF COND("相性○", FIND_NO("莉") )
						PRINTFORMW 「一点点地变得亲近……%CNAME("一人称")%想」
						PRINTFORMW 「和以前相比态度也温和多了……」
					ELSE
						PRINTFORMW 「啊~……还在起跑线上而已……」
					ENDIF
				ENDIF
			ELSEIF COND("相性◎", PARTNER() )
				PRINTFORMW 「%CNAME("对象")%~！　一起来玩游戏嘛~！」
				PRINTFORMW 『诶~？　但是%CALLNAME:TARGET%君很强不是吗』
				PRINTFORMW 「所以说才好嘛！　%CNAME("一人称")%之前一直在赢ー」
				PRINTFORMW 『真是傲慢的学弟呢……好！　来吧！　等着我、绝对让你知道……！』
			ELSE
				PRINTFORMW 「……啊、难道说在紧张吗……？」
				PRINTFORMW 『不、不是的！　没问题！』
				SIF COND("相性○", PARTNER() )
					PRINTFORMW 『只是、有点害羞而已……』
			ENDIF
		CASE "灯"
			IF CEVENT("灯初会話") == 0
				IF FIND_COND("現在存在", "莉") && COND("相性◎", FIND_NO("莉") )
					PRINTFORMW 「啊、%CNAME("partner")%」
					PRINTFORMW 『嗯？　你是……遥来着吧？』
					PRINTFORMW 「对对！　从%CNAME("莉")%那里听说过几次、还在想是什么样的一个人」
					PRINTFORMW 『豁~？　那家伙会和其他人聊天……你到底用了什么手段、少年？』
					; IF (AIZOU() == 0 && TALENT:恋慕) || TALENT:相思相愛
					; 	PRINTFORMW 『莉も随分と大胆变成了もんじゃねえか』
					; ELSE
					; 	PRINTFORMW で、恋する%CALLNAME:TARGET%クンは欧尼酱を見てどう思ったのかな？』
					; ENDIF
					PRINTFORMW 「才、才不是的！　只是普通朋友！　只是普通朋友而已啦！」
					; IF (AIZOU() == 0 && TALENT:恋慕) || TALENT:相思相愛
					; 	PRINTFORMW 『そりゃあ失礼。……じゃ、これからも莉と仲良くしてくれ』
					; ELSE
					; 	PRINTFORMW 『ふむふむ、そりゃあ悪かった。……じゃ、そういうことにしておいてやるよ』
					; ENDIF
					PRINTFORMW 『啊这样啊……』
				ELSE
					PRINTFORMW 「你就是%CALLNAME:TARGET%啊！」
					PRINTFORMW 『哦~？　怎么了小矮子』
					PRINTFORMW 「你让莉酱伤心了啊！」
					PRINTFORMW 『哈啊？　我？　让莉？』
					PRINTFORMW 『为什么我非得这么做啊？』
					PRINTFORMW 「那、那个……」
					IF (AIZOU() == 0 && TALENT:恋慕) || TALENT:相思相愛
						PRINTFORMW （啊啊～……真是爱说教的小矮子……麻烦死了）
						PRINTFORMW 『实际上、我什么都没做』
						PRINTFORMW 「这、这样的话%CNAME("一人称")%会相信吗！」
						PRINTFORMW 『真是烦人啊……既然这样你直接去问本人吧……』
						PRINTFORMW （真的是、不管到哪里都有些人什么都听不进去……）
					ELSE
						PRINTFORMW （……啊、噗~。这就是这个小矮子的目的啊）
						PRINTFORMW 『哼~？　这又怎么样啊』
						PRINTFORMW 「向、向莉酱道歉！」
						PRINTFORMW 『啊这样啊。那就好好努力吧、少年』
						PRINTFORMW 「就算你不说%CNAME("一人称")%也会做的！」
					ENDIF
					PRINTFORMW %CALLNAME:TARGET%正在窥视%CALLNAME:PARTNER()%的样子……。
					CALL SET_CEVENT, "灯敵視"
				ENDIF
				CALL SET_CEVENT, "灯初会話"
			ELSEIF CEVENT("灯敵視")
				PRINTFORMW 「……%CNAME("partner", "どもり")%……」
				PRINTFORMW 『嗯？ 怎么了、少年』
				PRINTFORMW 「那个……对、对不起！」
				PRINTFORMW 「那之后和莉酱谈了一下。她告诉我你们関系还不错、不如说还很好……」
				PRINTFORMW 「%CNAME("一人称")%、误会了，还说了很多很过分的话……！」
				IF (AIZOU() == 0 && TALENT:恋慕) || TALENT:相思相愛
					PRINTFORMW 『啊~、这样啊。我也没怎么放在心上』
					PRINTFORMW 「这、这样吗？」
					PRINTFORMW 『嘛，想让我看到诚意的话？　就让你帮我拿下东西吧』
					PRINTFORMW 「走吧！　什么都交给%CNAME("一人称")%吧！」
					PRINTFORMW 『好的、决定了。回去的时候就买些衣服好啦』
					PRINTFORMW （虽然是女装）
				ELSE
					PRINTFORMW 『诶～？　就算你现在这么说啊～？』
					PRINTFORMW 『突然扑向一个年长的男性一下又把他甩開、有点难以置信啊～』
					PRINTFORMW 「唔……」
					PRINTFORMW 『嘛嘛、也不是不行？　我也不是那种顽固到永远不会原谅你的人』
					PRINTFORMW 『稍微陪我一下，就放你一马吧』
					PRINTFORMW 『怎么样、%CALLNAME:TARGET%少年。让我们谈一谈我的小妹吧』
					PRINTFORMW 「呜……还、还请手下留情……」
				ENDIF
				CALL DEL_CEVENT, "灯敵視"
			ELSEIF CEVENT("『のぞき』見") && TALENT:恋慕 == 0 && CEVENT("前輩の意見") == 0
				PRINTFORMW 『嗯~？　怎么啦少年。没精神呢』
				PRINTFORMW 「……啊啊、%CNAME("partner")%か啊」
				PRINTFORMW 『被谁甩了吗？』
				PRINTFORMW 「……嗯。%CNAME("一人称")%看见%CNAME(CALLNAME:MASTER)%和%CNAME("莉")%在一起H了……」
				PRINTFORMW 『呼嗯。这还真是灾难啊，少年』
				PRINTFORMW 「……%CNAME("一人称")%、该怎么做才好啊……」
				PRINTFORMW 『干脆放弃？』
				PRINTFORMW 「放、放弃什么的……」
				PRINTFORMW 『失恋每个人都会有的。别太过在意初恋了、少年』
				PRINTFORMW 「……」
				PRINTFORMW 『这么后悔的话、为什么不直接跟她告白呢』
				PRINTFORMW 『把不知道从哪儿来挑衅我的胆量、全都拿去做吧』
				PRINTFORMW 「……唔」
				PRINTFORMW 『嘛，不管怎么样都会被甩。但这样绝对是最有建设性的不是吗？』
				PRINTFORMW 「…………呜嗯」
				PRINTFORMW 『……呼~』
				PRINTFORMW 『嘛、这才是開始、刚刚開始罢了。年轻的时候不要那么消沉』
				PRINTFORMW 『你也不是坏人呢。也有很多优点呢』
				PRINTFORMW 「……谢谢……」
				PRINTFORMW 『哦。真是不起眼的第一个道谢呢』
				PRINTFORMW 「要你多嘴。……嘿嘿」
				CALL SET_CEVENT, "前輩の意見"
			ELSEIF TALENT:伪娘
				PRINTFORMW 「%CNAME("partner")%~、请教%CNAME("一人称")%该穿些什么好呢」
				PRINTFORMW 『哇啊？　真麻烦啊。这点东西网络上稍微差一些就……』
				PRINTFORMW 「……不行吗？」
				PRINTFORMW 『……噶~呜、哪里学的这个眼神啊！』
			ELSE
				PRINTFORMW 「%CNAME("partner")%~、为什么穿女装啊？」
				PRINTFORMW 『很合适不是吗？』
				PRINTFORMW 「确实穿起来很好看啦……」
			ENDIF
		CASE "莉"
			IF CEVENT("莉初会話") == 0
				PRINTFORMW 「……诶！？　%CNAME("对象")%！？」
				PRINTFORMW 『……什么？』
				PRINTFORMW 「%CNAME("partner")%也加入了这个社团吗……」
				PRINTFORMW 「……怎么说呢、既開心、又有点受挫……」
				PRINTFORMW 『啊、这样啊……（……是谁来着……）』
				CALL SET_CEVENT, "莉初会話"
			;吹っ切れたとしてそれはそれとして気まずくはあるよねと初回は吹っ切ってもここを通るように
			ELSEIF CEVENT("『のぞき』見") && TALENT:相思相愛 == 0 && (CEVENT("前輩の意見") == 0 || CEVENT("ちょっと気まずい") == 0)
				IF COND("相性◎", PARTNER() )
					PRINTFORMW 『……啊、遥君、好久不见』
					PRINTFORMW 「啊、啊嗯、好久不见……」
					PRINTFORMW %CALLNAME:PARTNER()%发现是%CALLNAME:TARGET%在叫他、动作就開始有点僵硬了……。
				ELSE
					PRINTFORMW 「啊~…………」
					PRINTFORMW %CALLNAME:TARGET%看见%CALLNAME:PARTNER()%过来了、有些尴尬地转过身。
				ENDIF
				CALL SET_CEVENT, "ちょっと気まずい"
			ELSEIF RAND:2
				PRINTFORMW 「%CNAME("partner")%！　%CNAME("一人称")%带了一些茶点、要一起吃吗？」
				PRINTFORM 『嗯……
				IF COND("相性◎", PARTNER() )
					PRINTFORM 那、就吃一个吧
				ELSE
					PRINTFORM 不怎样想
				ENDIF
				PRINTFORMW ……』
			ELSE
				PRINTFORMW 「%CNAME("对象")%～、教%CNAME("一人称")%学习吧～」
				PRINTFORMW 「下次考试也乱七八糟的好可怕啊～」
				PRINTFORMW 『……
				IF COND("相性◎", PARTNER() )
					PRINTFORMW 哪里？』
				ELSE
					PRINTFORMW 不要、问其他人不就好了……？』
				ENDIF
			ENDIF
		CASE "千紗"
			IF CEVENT("千紗初会話") == 0
				PRINTFORMW 「啊、初次见面！　%CNAME("一人称")%是%CALLNAME:TARGET%、请多指教！」
				PRINTFORM 『我是%CNAMET(PARTNER(), "二人称")%
				IF CEVENT("花の意味、言葉を選ぶなら", PARTNER())
					PRINTFORMW 请多指教\@CFLAG:PARTNER():花の意味 == 0 ? ！ # \@』
				ELSE
					PRINTFORMW 请多指教！』
				ENDIF
				PRINTFORMW 「好耶！　……说起来……」
				PRINTFORM 『？
				IF CEVENT("花の意味、言葉を選ぶなら", PARTNER())
					PRINTFORMW 难道，闻到了奇怪的%TEXTS("气味")%……？』
				ELSE
					PRINTFORMW 有什么奇怪的味道吗？』
				ENDIF
				PRINTFORMW 「啊！　不、不是，不是这样的……」
				PRINTFORMW 『但是……』
				PRINTFORMW 「……呜、稍微有点怀念的%TEXTS("气味")%……真的很抱歉…」
				IF CEVENT("花の意味、言葉を選ぶなら", PARTNER())
					PRINTFORMW 『……不，没関系』
					PRINTFORMW 『如果可以的话，能告诉我是什么%TEXTS("气味")%吗？』
				ELSE
					PRINTFORMW 『奇怪的味道……吗……』
					PRINTFORMW 『……%CNAMET(PARTNER(), "二人称")%！　请告诉我是什么味道！』
				ENDIF
				PRINTFORMW 「诶！？　嘛、嘛啊、%CNAME("partner")%不介意的话……」
				PRINTFORMW 「唔嗯……像铁一样，但有点温暖……在深处漂浮着……什么呢……像血一样，吧？」
				IF CEVENT("花の意味、言葉を選ぶなら", PARTNER())
					PRINTFORMW 『…………！』
					PRINTFORM %CALLNAME:PARTNER()%
					IF CFLAG:PARTNER():花の意味 == 0
						PRINTFORMW 惊愕地眨了眨眼睛。
						PRINTFORMW 没想到会在初次见面时被指出有血的味道。
					ELSE
						PRINTFORMW 睁大了眼睛。
						PRINTFORMW 对于%CALLNAME:TARGET%指出有血的味道这事让她非常惊讶。
					ENDIF
					PRINTFORMW 「啊咧，难道%CNAME("一人称")%又说了什么奇怪的话……？！」
				ELSE
					PRINTFORMW 『诶～！　%CNAMET(PARTNER(), "二人称")%真厉害！』
					PRINTFORMW 「诶！？　厉、厉害，什、什么意思？」
				ENDIF
				CALL SET_CEVENT, "千紗初会話"
			ELSE
				IF CEVENT("花の意味、言葉を選ぶなら", PARTNER())
					;千紗酱と遥君とで勉強会……みたいなシチュエーションにしたい
					;まずはそれぞれの成績を見る。両方とも赤点or学年上位なら分岐
					IF COND("成績：赤点") && COND("成績：赤点", PARTNER())
						PRINTFORMW 『那么……这里变成这样，然后……？』
						PRINTFORMW 「诶？　为什么这么写会得出这个结果！？」
					ELSEIF COND("成績：学年上位") && COND("成績：学年上位", PARTNER())
						PRINTFORMW 『……如果用这个方程式画出图形，似乎可以更容易地推导出来！』
						PRINTFORMW 「真的啊！　那么也许这个也……」
					ELSE
						;ここからはお互相用試験結果を見て、その差で最初の分岐が起きる
						;同点数なら遥君が教えてもらう側で
						IF CFLAG:試験結果 > CFLAG:PARTNER():試験結果
							;遥君が教えるルート
							PRINTFORMW 「看，这部分是这样写的，对吧？　所以这句话是……」
							PRINTFORMW 『诶～……所以答案是这样的……！』
							PRINTFORMW 「对对！　……呼呼呼、感觉自己变成了老师，好有趣啊♪」
						ELSE
							;千紗酱が教えるルート
							PRINTFORMW 『看，这个物质里含有氢……』
							PRINTFORMW 「啊……原来如此！　所以会变成这样！」
							PRINTFORMW 『呼呼、教同龄的孩子也很有趣♪』
						ENDIF
					ENDIF
				ELSE
					PRINTFORMW 『%CNAMET(PARTNER(), "二人称")%、一起玩过家家吧！　%CNAMET(PARTNER(), "二人称")%当妈妈♪』
					PRINTFORMW 「不是爸爸而是妈妈吗……算了、要做什么？」
					PRINTFORMW 『请拍打%CNAMET(PARTNER(), "一人称")%的这里！』
					PRINTFORMW 「什么毒父母！？」
				ENDIF
			ENDIF
		CASE "蔻卡"
			;蔻卡酱は性別による分岐などを用意しているので、CEVENTではなくCEVENTSを利用することに注意
			IF CEVENTS("蔻卡初会話") == ""
				IF TALENT:男性
					PRINTFORMW 「……好高啊ー」
					PRINTFORMW 『hoー、%CNAMET(PARTNER(), "二人称")%想长到这么高啊ー、好—好好好』
					PRINTFORMW 「ちょ、縮む！　縮んじゃうって！」
					CALL SET_CEVENT, "蔻卡初会話：男性"
				ELSE
					PRINTFORMW 「……胸好大……」
					PRINTFORMW 『一直盯着胸部、到思春期了呢ー。不错不错ー♪』
					PRINTFORMW 「啊，好软……不是！　等、等等、说谁啊啊啊！？！？」
					CALL SET_CEVENT, "蔻卡初会話：女性"
				ENDIF
			ELSEIF ( (CEVENTS("蔻卡初会話") == "男性" && TALENT:PARTNER():男性 == 0) || (CEVENTS("蔻卡初会話") == "女性" && TALENT:PARTNER():男性) ) && CEVENT("蔻卡初性転換") == 0
				PRINTFORM 「啊、%CNAME("partner")%！　……
				IF TALENT:男性
					PRINTFORM 的、哥哥？ 弟弟？
				ELSE
					PRINTFORM 的、姐姐？　妹妹？
				ENDIF
				PRINTFORMW 是、吗……？」
				PRINTFORMW 『啊、%CNAMET(PARTNER(), "二人称")%、有什么事吗？』
				PRINTFORMW 「就是那个、怎么看性别都不同……」
				PRINTFORMW 『啊对了，我好像没有说过呢』
				PRINTFORMW 『%CNAMET(PARTNER(), "一人称")%可以变成男性或女性的哦』
				PRINTFORMW 「诶ー……诶、诶？！？！？！」
				CALL SET_CEVENT, "蔻卡初性転換"
			ELSEIF COND("種族：吸血鬼") && CEVENT("蔻卡対吸血鬼") == 0
				PRINTFORMW 『最近你好像不太靠近我了……』
				PRINTFORMW 「嗯……！」
				PRINTFORMW 『……果然，发生了什么事吗？』
				PRINTFORMW 「不、不是%CNAME("partner")%的问题。但是……」
				PRINTFORMW 『但是？』
				PRINTFORMW 「感觉有点难以接近、但并不是讨厌%CNAME("partner")%」
				PRINTFORMW 『……嗯！』
				PRINTFORMW 「嗯！？　……诶、啊咧、不舒服的感觉消失了……」
				PRINTFORMW 『果然。能是对%CNAMET(PARTNER(), "一人称")%的海洋性质产生了反应吧』
				PRINTFORMW 「海洋……？」
				PRINTFORMW 『对啊。不是说吸血鬼害怕流水吗。容易被忽略的是，海洋也是一种流水』
				PRINTFORMW 『%CNAMET(PARTNER(), "一人称")%与海洋有着深厚的関系，所以我想才会产生那种反应。现在抑制了对海洋的感觉，所以没事了』
				;さらっと恐ろしいことをする蔻卡酱君
				PRINTFORMW 「这样啊……不是很懂但还是谢谢你！」
				;そしてそこをスルーする遥君
				IF TALENT:男性
					PRINTFORMW 「……啊、等等、力量！　力量好强！」
				ELSE
					PRINTFORMW 「……啊等等、胸、胸部！　胸部碰到了！」
				ENDIF
				CALL SET_CEVENT, "蔻卡対吸血鬼"
			ELSE
				IF RAND:2
					PRINTFORMW 「坐船冒险有点令人向往啊」
					PRINTFORMW 『啊～我懂～、想把大船砰地一声劈成两~半』
				ELSE
					PRINTFORMW 「大王乌贼活着的时候是什么样子呢」
					PRINTFORMW 『那我带过来吧？』
					PRINTFORMW 「不，那还是算了……」
				ENDIF
			ENDIF
		CASE "安娜"
			IF CEVENT("安娜初会話") == 0
				IF COND("種族：吸血鬼") == 0 || CEVENT("極夜の和解")
					PRINTFORMW 『哦呀，这是……』
					PRINTFORMW 「嗯？　这个十字架有什么问题吗？」
					PRINTFORM 『虽然是木雕的，但是看起来相当古老……
					IF COND("種族：吸血鬼")
						PRINTFORMW 听说吸血鬼不喜欢十字架、%CALLNAME:TARGET%没関系吗？』
						PRINTFORMW 「唔嗯、爸爸和妈妈似乎有点不喜欢、%CNAME("一人称")%完全没事」
						IF CEVENT("名没有の呼び出し", PARTNER())
							PRINTFORMW （十字架无效的吸血鬼啊，真是出现了超出我的能力的家伙。要是被发现了根本无法驱赶）
							PRINTFORMW （还好頭脑和普通的孩子一样，只要不出差错应该不会有什么麻烦……）
						ENDIF
					ELSE
						PRINTFORMW %CALLNAME:TARGET%信仰基督教吗？』
						PRINTFORMW 「唔嗯、不信的。但爸爸妈妈一直说要带着这个、不没有戴着就感觉不安心ー」
						PRINTFORMW 『原来如此，被爱着呢』
						;安娜酱から気を許してもらっている時限定で心の声が聞こえる
						IF CEVENT("名没有の呼び出し", PARTNER())
							PRINTFORMW （不可能看错。这个图案、手感、我知道的、不，比我知道的更古老……）
							PRINTFORMW （而且明显注入了魔力。至少看起来不像是有恶意的东西，但也不是一般人能做出来的东西）
							PRINTFORMW （……这个孩子本身无论从哪里看都是普通的孩子。那么他所说的『父母』是否有所异常、或是有人把这个交给了他们……）
						ENDIF
					ENDIF
					PRINTFORMW 「……一直盯着、%CNAME("partner")%喜欢这个吗？」
					PRINTFORMW 『诶、嗯。以前是修女……』
					IF COND("種族：吸血鬼")
						PRINTFORMW 「这样啊！　爸爸妈妈不喜欢这种东西，所以%CNAME("一人称")%对基督教不太了解，如果能详细告诉%CNAME("一人称")%就太好了♪」
						PRINTFORMW 『呼呼、没関系』
						IF CEVENT("名没有の呼び出し", PARTNER())
							PRINTFORMW （……不管怎么说，来到了超自然的世界啊）
							PRINTFORMW （要是那时候来到这里，早就疯了……）
						ENDIF
					ELSE
						PRINTFORMW 「是吗！　%CNAME("一人称")%不怎么在意、不过%CNAME("partner")%和爸爸妈妈似乎能谈得来♪」
						PRINTFORMW 『呼呼、是这様吗。那还真让人在意』
						IF CEVENT("名没有の呼び出し", PARTNER())
							PRINTFORMW （……果然我从这孩子身上感受不到什么。确实只是个普通的孩子，但是……）
							PRINTFORMW （唉，来到这种地方本身就不是个正常人吧……）
						ENDIF
					ENDIF
					CALL SET_CEVENT, "安娜初会話"
				ENDIF
			ELSE
				IF RAND:2
					PRINTFORMW 「%CNAME("partner")%真帅啊！　怎么说、有一种神秘？　的感觉！」
					PRINTFORMW 『啊啦、听到这话真高兴呢』
				ELSE
					PRINTFORMW 「说起来%CNAME("partner")%有时会给%CNAME("二人称")%一些可可、难道是喜欢可可吗？」
					PRINTFORMW 『是的。它能让人平静下来，同时也有提神的作用』
					PRINTFORMW 『……而且，爱情和诅咒总是密不可分不是吗？』
					PRINTFORMW 「唔嗯、是吗？　有点难懂……」
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF

;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"
	SELECTCASE CALLNAME:PARTNER()
	CASE "弗理希艾尔"
		IF COND("相性○", PARTNER() )
			SIF TEXTS("季節") == "初夏"
				PRINTFORMW 『诶、可以是可以、是%CNAME("一人称")%没関系吗？』
		ELSE
			IF COND("在籍日数") >= 7
				PRINTFORMW 『哦~！　%CNAME("partner")%也很懂事呢、今天也很期待呢！』
			ELSE
				PRINTFORMW 『%CNAME("partner")%是怎么样的一个人……有点在意……！』
			ENDIF
		ENDIF
	CASE "西西莉亚"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 『好厉害ー！　%CNAME("partner")%真博学啊！』
		CASE 1
			PRINTFORMW 『嗯唔唔唔……魔法真难……』
		CASE 2
			PRINTFORMW 『……肉桂和死亡面包……？』
			;シニフィエとシニフィアン。詳細は知らんけど
			PRINTFORMW %CALLNAME:TARGET%似乎有些无法理解……
		ENDSELECT
	ENDSELECT

ENDSELECT

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