code:
;※※※※※※※※※※※※※※※※※※※※※※※※※
;セクハラ系コマンド
;※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;310,尻を撫でる
;TFLAG:193(1=不快(TALENT:臆病なら涙目) 2&&3=恥ずかしがる(TALENT:男嫌い兼MASTERが男なら、身をすくめる) 4=されるがまま)
;CFLAG:うふふ==2&&TCVAR:20(パンツ無し顔面騎乗(70=クンニ強制 71=フェラチオ強制 72=アナル奉仕) 35=スカート内見せつけ 52=素股)
;CFLAG:うふふ==2&&TEQUIP:シックスナイン(パンツありTCVAR:20(70～72)はこちら)
;PREVCOM(305=膝枕
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_310
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_310
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_310_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_310_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		PRINTFORMDW	如小孩般体型的妖精、臀部也是小巧玲珑的。
		PRINTFORMDW	恰到好处的柔软、加上冰凉的触感、让%CALLNAME:MASTER%有点停不下手。
	ELSEIF CFLAG:睡眠
		PRINTFORMW	「……唔……？」
		PRINTFORMDW	手开始抚上小巧玲珑的屁股时、睡梦中的琪露诺似有所觉地皱了皱眉。
		PRINTFORMDW	恰到好处的柔软、加上冰凉的触感、让%CALLNAME:MASTER%有点停不下手。
	ELSEIF CFLAG:318 == 1 || MARK:反発刻印 >= 1
		PRINTFORMW	「别碰咱！」
		PRINTFORMDW	突兀的触碰把琪露诺触怒了、周遭的冻气瞬间变得强烈——
		IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
			CALL RECOVER(MASTER, -300, "体力", "琪露诺的碎冰")
		ELSE
			CALL RECOVER(MASTER, -900, "体力", "琪露诺的冰锥")
		ENDIF
		PRINTFORMDW	被发怒的冰精攻击了……
	ELSEIF CFLAG:317 == 2
		SELECTCASE TCVAR:20
			CASE 70 TO 72
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「麻烦%CALLNAME:MASTER%舔一下哦❤……这里、很有感觉呢……❤」
						DATAFORM 	「不用担心哦、妖精的咱很干净的……❤」
						DATAFORM 	「会压得太紧了吗、还是说%CALLNAME:MASTER%就喜欢这种呢……❤」
						DATAFORM 	「再舔一会吧、拜托了……❤」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「哼哼、老实给咱舔哦……」
						DATAFORM 	「让人类服侍着妖精、咱就是这么强的哦……」
						DATAFORM 	「压得紧紧的了、你是不是就喜欢这种呢……」
						DATAFORM 	「光是摸已经不够了哦、舌头快给咱动起来……」
					ENDDATA
				ENDIF
			CASE 35
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「怎么样、%CALLNAME:MASTER%要是喜欢的话、更直接的也可以哦……」
						DATAFORM 	「是要给%CALLNAME:MASTER%看的话、咱是不会害羞啦……」
						DATAFORM 	「啊、%CALLNAME:MASTER%的眼神、有点太专注了吧……」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「眼睛盯得死死的、至于这样嘛……」
						DATAFORM 	「只是看看就可以了嘛？不会吧——」
						DATAFORM 	「对咱看得这么入迷了吗、哼……」
					ENDDATA
				ENDIF
			CASE 52
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「会进到里面去嘛、%CALLNAME:MASTER%、还是说就保持这个样子呢……」
						DATAFORM 	「湿哒哒的、已经越来越滑了哦……」
						DATAFORM 	「变得硬梆梆的了……这样摩擦着、会舒服吗——」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「哼、这样会滑到里面去吗——」
						DATAFORM 	「嘿咻、这样动起来真不方便呀……」
						DATAFORM 	「好烫啊、而且已经变得硬梆梆的了……」
					ENDDATA
				ENDIF
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW	「呀、怎么突然就……」
				PRINTFORMDW	把手搭在琪露诺小巧玲珑的屁股上、同时品味着柔软的触感和她羞涩的表情。
				PRINTFORM	「真是的、拿%CALLNAME:MASTER%没办法……」
			CASE 1
				PRINTFORMW	「别乱来啊……嗯……」
				PRINTFORMDW	冰凉的手感一瞬即逝、琪露诺埋怨地瞥了过来。
				PRINTFORMW	「那个、起码……先告诉咱一声啊……」
			CASE 2
				PRINTFORMW	「呜、感觉、很奇怪啊……」
				PRINTFORMDW	琪露诺满脸通红、但却没有反抗。
				PRINTFORMDW	%CALLNAME:MASTER%持续抚摸了好一会……
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW	「突然要干什么啦！」
				PRINTFORMDW	琪露诺红着脸把%CALLNAME:MASTER%的手甩开了。
			CASE 1
				PRINTFORMW	「别乱来啊——」
				PRINTFORMDW	冰凉的手感一瞬即逝、琪露诺惊慌地跟%CALLNAME:MASTER%拉开了距离。
			CASE 2
				PRINTFORMW	「感觉很奇怪啊！不要这样做了！」
				PRINTFORMDW	琪露诺羞怒地指责着%CALLNAME:MASTER%。
		ENDSELECT
	ELSEIF CFLAG:好感度 >= 500 || BASE:10 >= 1000
		SELECTCASE RAND:3
			CASE 0
				PRINTFORMW	「你想干什么呀！」
				PRINTFORMDW	琪露诺没好气地把%CALLNAME:MASTER%的手甩开了。
			CASE 1
				PRINTFORMW	「咿呀！」
				PRINTFORMDW	冰凉的手感一瞬即逝、琪露诺嫌弃地跟%CALLNAME:MASTER%拉开了距离。
			CASE 2
				PRINTFORMW	「呀！！！」
				PRINTFORMDW	突兀的触碰把琪露诺吓了一跳、周遭的冻气瞬间变得强烈——
				IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
					CALL RECOVER(MASTER, -300, "体力", "琪露诺的碎冰")
				ELSE
					CALL RECOVER(MASTER, -900, "体力", "琪露诺的冰锥")
				ENDIF
				PRINTFORMDW	被冰精条件反射地攻击了……
			ENDSELECT
	ELSE
		PRINTFORMW	「呀！！！」
		PRINTFORMDW	突兀的触碰把琪露诺吓了一跳、周遭的冻气瞬间变得强烈——
		IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
			CALL RECOVER(MASTER, -300, "体力", "琪露诺的碎冰")
		ELSE
			CALL RECOVER(MASTER, -900, "体力", "琪露诺的冰锥")
		ENDIF
		PRINTFORMDW	被冰精条件反射地攻击了……
	ENDIF
	CALL CIRNO_FREEZE(3)
ENDIF
RETURN 1
;==================================================
;311,抱き付く
;TFLAG:193(1=大成功 0=成功 -1=失敗)
;CFLAG:うふふ==2&&TCVAR:20(32=前から抱きつく 60=ディープキス 73=ぱふぱふ 74=乳合わせ 77=乳を吸わせる ＶＡ性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_311
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_311
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_311_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_311_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		PRINTFORMDW	抱住了娇小的琪露诺、仔细分辨着她全身柔软与骨感的部位。
		PRINTFORMDW	不会挣扎、不能反抗。%CALLNAME:MASTER%在这种条件下肆意地嗅闻着幼小妖精身上的甜香味。
	ELSEIF CFLAG:睡眠
		IF TALENT:恋慕
			PRINTFORMDW	抱住了熟睡中的琪露诺、感受到熟悉气息的妖精耸动着鼻翼。
			PRINTFORMW	「嗅嗅……唔……呼……」
			PRINTFORMDW	琪露诺从睡梦中伸出手回抱住了%CALLNAME:MASTER%。
		ELSE
			PRINTFORMDW	抱住了熟睡中的琪露诺、她似有所觉地皱起了眉头。
			PRINTFORMW	「唔……！」
			PRINTFORMDW	%CALLNAME:MASTER%被妖精从睡梦中踹出的一脚击飞了……
		ENDIF
	;ELSEIF CHK_DATENOW(CFLAG:MASTER:约会中)
	ELSEIF CFLAG:318 == 1 || MARK:反発刻印 >= 1
		IF TALENT:恋慕
			PRINTFORMW	「哼……真狡猾……」
			PRINTFORMW	不知是因为愤怒还是害羞、被抱住的琪露诺满脸通红。
			BASE:14:12 -= MAXBASE:14:12 / 5
		ELSE
			PRINTFORMW	「别碰咱！」
			PRINTFORMDW	突兀的触碰把琪露诺触怒了、周遭的冻气瞬间变得强烈——
			CALL CIRNO_ATTACK
			PRINTFORMDW	被发怒的冰精攻击了……
		ENDIF
	ELSEIF CFLAG:317 == 2
		SELECTCASE TCVAR:20
			CASE 32
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「让冰之妖精期待着温暖了呢、%CALLNAME:MASTER%真是个坏蛋呀……」
						DATAFORM 	「被%CALLNAME:MASTER%抱着的时候、会觉得很安心——」
						DATAFORM 	「接下来是想做什么呢、咱都可以哦……」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「唔、明明也不是很亲近的啦……」
						DATAFORM 	「突然安静下来了、接下来是会怎么做呢……」
						DATAFORM 	「不要这样抱着的吧、咱觉得很热哦……」
					ENDDATA
				ENDIF
			CASE 60
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「啾……嗯……喜欢……❤」
						DATAFORM 	「唔……噗哈、啾……❤」
						DATAFORM 	「吸溜……啾……哈……❤」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「呼……唔……」
						DATAFORM 	「唔……噗哈……」
						DATAFORM 	「嗯……哈……」
					ENDDATA
				ENDIF
			CASE 73
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「不许抱怨哦、咱的是比较小的啦……」
						DATAFORM 	「好痒哦、不要这么用力呼气啦……」
						DATAFORM 	「怎么样？……起码也是软的吧？」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「真是的、咱是不怎么大啦……」
						DATAFORM 	「哼哼、要把你闷住了哦——」
						DATAFORM 	「你这家伙、这样可以了吧……」
					ENDDATA
				ENDIF
			CASE 74
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「不许抱怨哦、咱的是比较小的啦……」
						DATAFORM 	「%CALLNAME:MASTER%想这样的话、咱是无所谓啦……」
						DATAFORM 	「怎么样？……起码也是软的吧？」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「真是的、咱是不怎么大啦……」
						DATAFORM 	「是想干什么啊、完全搞不懂……」
						DATAFORM 	「你这家伙、这样可以了吧……」
					ENDDATA
				ENDIF
			CASE 77
				IF TALENT:恋慕
					PRINTDATAW
						DATAFORM 	「感觉好痒哇……啊、咱可没有说不让继续哦……❤」
						DATAFORM 	「呼呼、%CALLNAME:MASTER%、居然这么喜欢这个吗……❤」
						DATAFORM 	「呀嗯……再多吸一下也可以的哦……❤」
					ENDDATA
				ELSE
					PRINTDATAW
						DATAFORM 	「唔、好奇怪、不要再继续了……」
						DATAFORM 	「好痒啊、快停下来呀……」
						DATAFORM 	「嗯哈、被这样吸着、感觉有点发麻……」
					ENDDATA
				ENDIF
			CASE 85
			CASE 87
			CASE 88
			CASE 89
			CASE 86
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:4
			CASE 0
				PRINTFORML	「唔、要抱抱吗？」
				PRINTFORMDL	琪露诺也靠了过来、和%CALLNAME:MASTER%结结实实地抱在了一起。
				PRINTFORMW	「%CALLNAME:MASTER%的身体有点宽啦、感觉咱的手合不拢呢……」
			CASE 1
				PRINTFORML	「呀……那就抱一会吧……」
				PRINTFORMDW	琪露诺有点惊讶、但随后就接受了%CALLNAME:MASTER%的拥抱。
				PRINTFORML	「是说、%CALLNAME:MASTER%身上有点太热了啦。」
				PRINTFORMW	「……但是、咱也很喜欢这种温热呢。只有对%CALLNAME:MASTER%是这样哦。」
			CASE 2
				PRINTFORML	「怎么了嘛？」
				PRINTFORMDL	琪露诺平静地笑着、把头往%CALLNAME:MASTER%的胸前靠了过去。
				PRINTFORMDW	两人之间安稳的拥抱持续了一段时间。
			CASE 3
				PRINTFORMDL	在往琪露诺靠过去的时候、两条小胳膊也环住了%CALLNAME:MASTER%的后颈。
				PRINTFORML	「被%CALLNAME:MASTER%抱着的时候、会觉得很安心——」
				PRINTFORMDW	像爬树的小熊一样挂着、琪露诺的嘴角翘起了一丝甜蜜的弧度。
		ENDSELECT
	ELSEIF TALENT:思慕
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML	「抱着咱有什么好的吗……」
				PRINTFORMDW	琪露诺放任%CALLNAME:MASTER%抱住了她。
			CASE 1
				PRINTFORML	「呀——」
				PRINTFORMDL	琪露诺被吓了一跳、僵在了原地。
				PRINTFORMW	「真是的、太突然了啦……」
			CASE 2
				PRINTFORML	「……怎么了嘛？」
				PRINTFORMDW	琪露诺有点困惑的样子、但还是老实地让%CALLNAME:MASTER%抱着了。
		ENDSELECT
	ELSEIF CFLAG:好感度 >= 500 || BASE:10 >= 1000
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML	「是想冻伤看看吗？」
				PRINTFORMDW	琪露诺黑着脸催动冻气的产生、%CALLNAME:MASTER%不由得退开了。
			CASE 1
				PRINTFORML	「咱、咱们还没那么亲近的吧？」
				PRINTFORMDW	吓了一跳的琪露诺连忙推开了%CALLNAME:MASTER%。
			CASE 2
				PRINTFORML	「快放开咱、这样好热的呀！」
				PRINTFORMDW	琪露诺飞起来跟%CALLNAME:MASTER%拉开了距离。
			ENDSELECT
	ELSE
		PRINTFORML	「干嘛呀、要把咱压扁吗！」
		PRINTFORMDW	被琪露诺不爽地推开了。
	ENDIF
	CALL CIRNO_FREEZE(3)
ENDIF
RETURN 1
;==================================================
;312,キスする
;TFLAG:193(99=拒絶(キス不可) 1=大成功 0=成功 -1=失敗)
;CFLAG:うふふ==2&&TCVAR:20(32=前から抱きつく 50=手淫 60=キス 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;PREVCOM(305=膝枕
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_312
;成否判定
;TFLAG:192(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_312
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_312_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_312_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
		PRINTFORMDW	%CALLNAME:MASTER%直接粗暴地用舌头挑开琪露诺的双唇、撬开她的贝齿、舔舐起口腔内的每一处。
		PRINTFORMDW	肆虐过后、妖精口中的每一丝透着寒凉的甘甜都被破坏殆尽。
	ELSEIF CFLAG:睡眠
		IF TALENT:恋慕
			PRINTFORMDW	吻上了熟睡中的琪露诺、舌尖轻轻地敲打着柔软的唇。
			PRINTFORMW	「唔……呼……」
			PRINTFORMDW	琪露诺好像有点喘不过气来、脸颊都涨红了。
		ELSE
			PRINTFORMW	「唔……」
			PRINTFORMDW	擅自亲吻了熟睡中的妖精、她在梦中皱起眉头。
		ENDIF
	ELSEIF TFLAG:193 == 99
		IF TALENT:恋慕
			PRINTFORMW	「那个、之后再说的吧？」
			PRINTFORMDW	琪露诺似乎暂时有点抗拒。
		ELSEIF TALENT:思慕
			PRINTFORMW	「唔、那个、是不是有点太……」
			PRINTFORMDW	琪露诺羞红了脸、有点害怕的样子。
		ELSE
			PRINTFORMW	「诶？不要……感觉好恶心……」
			PRINTFORMDW	琪露诺毫不顾忌地说出了直白的拒绝。
		ENDIF
	ELSEIF CFLAG:318 == 1 || MARK:反発刻印 >= 1
		IF TALENT:恋慕
			PRINTFORMW	「干什么呀、别想耍花招！」
			PRINTFORMDW	琪露诺生气地推开了%CALLNAME:MASTER%。
			BASE:14:12 -= MAXBASE:14:12 / 10
		ELSE
			PRINTFORMW	「干什么啊、别靠近咱！」
			PRINTFORMDW	突兀的触碰把琪露诺触怒了、周遭的冻气瞬间变得强烈——
			IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
				CALL RECOVER(MASTER, -300, "体力", "琪露诺的碎冰")
			ELSE
				CALL RECOVER(MASTER, -900, "体力", "琪露诺的冰锥")
			ENDIF
			PRINTFORMDW	被发怒的冰精攻击了……
		ENDIF
	;无接吻经验
	ELSEIF TALENT:6
		IF CFLAG:317 == 2
			SELECTCASE TCVAR:20
				CASE 32
				CASE 50
				CASE 60
				CASE 85
				CASE 87
				CASE 88
				CASE 89
				CASE 86
			ENDSELECT
		ELSEIF TALENT:恋慕
			IF TALENT:無知
				PRINTFORMW	「啊、是要亲亲了吗？也是啦、咱也很喜欢%CALLNAME:MASTER%哦……」
				PRINTFORMDW	琪露诺的脸忽地红了起来、眼神有点慌张地左右躲闪。
				PRINTFORMW	「咱不太了解这种事情了啦……%CALLNAME:MASTER%、要、要教会咱哦……」
			ELSE
				PRINTFORMW	「嗯、可以哦？毕竟咱也很喜欢%CALLNAME:MASTER%啦——」
				PRINTFORMDW	琪露诺的脸颊上泛起红晕、但嘴角却挂着恶作剧一般的笑意。
				PRINTFORMW	「怎么啦、没想到咱会同意吗？真是的、不如说来得有点太晚了啦……」
			ENDIF
			PRINTFORMDW	%CALLNAME:MASTER%捧起冰精通红的小脸、在深情的对视中、两人的唇轻轻碰触、和身体一样紧贴到了一起。
			PRINTFORMW	「嗯……啾……」
			PRINTFORMDW	没过多久、%CALLNAME:MASTER%便不禁伸出舌头、叩开了那张小嘴、舔舐起口腔内的每一处。
			PRINTFORMDW	逐渐大胆起来的琪露诺也回应着这边，柔软的小舌与%CALLNAME:MASTER%纠缠在了一起。
			PRINTFORMW	「呼……呜——嗯……噗哈……」
			PRINTFORMDW	一直闭着眼睛的琪露诺感受着温柔的深吻、直到许久之后、两人才慢慢地分离开来。
			PRINTFORMW	「哈啊、哈啊……感觉、像是要上瘾了……」
			PRINTFORMDW	嘴唇间拉出一道银丝、垂到了搂在一起的两人紧贴着的胸前。
			PRINTFORMW	「……最喜欢了哦？%CALLNAME:MASTER%……」
			PRINTFORMDW	就像是喝醉了一样、沉浸在余韵中的琪露诺轻轻说着。
		ELSEIF TALENT:思慕
			PRINTFORMW	「呀……噗哈……嗯……」
			PRINTFORMDW	双手按在有点惊讶的琪露诺肩上、%CALLNAME:MASTER%品味着妖精唇上的香甜。
			PRINTFORMW	「啾……呼哇……要透不过气了啦……」
			PRINTFORMDW	终于分离开来的时候、和表情已经舒缓开来的琪露诺长久地对视着。
			PRINTFORMW	「……太突然了啦……但是、和%CALLNAME:MASTER%是好朋友所以原谅了哦……」
			PRINTFORMDW	找着借口的琪露诺侧过通红的脸、用手捂住了嘴唇。
		ELSEIF CFLAG:好感度 >= 500 || BASE:10 >= 1000
			PRINTFORMW	「呜啊！唔……噗哈……突然干什么呀……」
			PRINTFORMDW	强硬地夺取了琪露诺的初吻、淡淡的甜香味在唇间扩散着。
			PRINTFORMW	「真是的、感觉黏糊糊的……」
			PRINTFORMDW	琪露诺不满地撇着嘴、往%CALLNAME:MASTER%的小腿上踢了一脚。
			BASE:14:12 += MAXBASE:14:12 / 10
		ELSE
			PRINTFORMW	「呜啊！唔……噗哈！突然干什么啊！」
			PRINTFORMDW	强硬地夺取了琪露诺的初吻、淡淡的甜香味在唇间扩散着。
			PRINTFORMW	「搞不懂、好难受……你这家伙干了什么不对劲的事情的吧！」
			PRINTFORMDW	琪露诺虽然完全不明白发生了什么、但还是愤怒地开始产出冻气——
			IF ABL:MASTER:戦闘能力 > ABL:戦闘能力
				CALL RECOVER(MASTER, -900, "体力", "琪露诺的冰锥")
			ELSE
				CALL RECOVER(MASTER, -2000, "体力", "冰符「冰柱机枪」")
			ENDIF
			PRINTFORMDW	被发怒的冰精攻击了……
			BASE:14:12 += MAXBASE:14:12 / 5
		ENDIF
	ELSE
		IF CFLAG:317 == 2
			SELECTCASE TCVAR:20
				CASE 32
				CASE 50
				CASE 60
				CASE 85
				CASE 87
				CASE 88
				CASE 89
				CASE 86
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW	「唔……噗哈……嗯……」
					PRINTFORMDW	琪露诺自觉地把脸贴了过来、和%CALLNAME:MASTER%交换着唾液。
					PRINTFORMW	「呼哇……感觉变得晕乎乎的了——」
				CASE 1
					PRINTFORMW	「嗯、呜……太突然了啦……啾……」
					PRINTFORMDW	这么说着、琪露诺却一点没有惊讶的样子、积极地活动着清凉的小舌。
					PRINTFORMW	「感觉、味道甜甜的、是偷吃了什么点心吗——」
					PRINTFORMW	「……还是说、只是咱对%CALLNAME:MASTER%的感觉呢……」
				CASE 2
					PRINTFORMW	「啾……哈……呼……」
					PRINTFORMDW	像是没有余力去呼吸一般、%CALLNAME:MASTER%和琪露诺持续着绵长的深吻。
					PRINTFORMW	「噗哈……想要、一直这样下去……」
			ENDSELECT
		ELSEIF TALENT:思慕
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW	「唔……噗哈……嗯……」
					PRINTFORMDW	琪露诺没来得及抵抗、迷茫地陷入了亲吻之中。
				CASE 1
					PRINTFORMW	「嗯！？呜……啾……」
					PRINTFORMDW	受了惊吓的琪露诺下意识地伸手推着、但在接吻中慢慢失去了力道。
				CASE 2
					PRINTFORMW	「嗯……呼……\@ OUTROOF(CFLAG:14:現在位置) ? 会被人看到的呀 # 要透不过气了 \@……」
					PRINTFORMDW	在亲吻持续一会之后、琪露诺无力地推开了%CALLNAME:MASTER%。
			ENDSELECT
		ELSEIF CFLAG:好感度 >= 500 || BASE:10 >= 1000
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMW	「唔……噗哈……突然干什么呀……」
					PRINTFORMDW	琪露诺在嘴唇分开之后茫然地看着%CALLNAME:MASTER%。
				CASE 1
					PRINTFORMW	「哇！？是要把咱吃掉吗！」
					PRINTFORMDW	吓了一跳的琪露诺猛地一头撞开了%CALLNAME:MASTER%。
					PRINTFORMDW	下巴传来了强烈的痛感……
				CASE 2
					PRINTFORMW	「嗯……呼……舌头好奇怪……」
					PRINTFORMDW	在亲吻持续一会之后、琪露诺无力地推开了%CALLNAME:MASTER%。
				ENDSELECT
		ELSE
			PRINTFORMW	「干什么啊、好恶心……」
			PRINTFORMDW	被琪露诺嫌弃地推开了。
		ENDIF
	ENDIF
	CALL CIRNO_FREEZE(3)
ENDIF
RETURN 1
;==================================================
;313,胸愛撫
;CFLAG:うふふ==2&&TCVAR:20(27=谷間を見せる 33=胸を揉ませる 53=パイズリ(小分岐は地の文EVENT_MESSAGE_COM_セクハラ.ERB参照) 73=ぱふぱふ 77=乳を吸わせる 性交(85=Ｖ挿入する 87=Ａ挿入する 88=腰振りＶ 89=腰振りＡ) 86=だいしゅきホールド)
;ABL:Ｂ感覚(2未満=性的には感じてない 5未満=多少感じてる 5以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;乳のサイズでも変わる場合があるので、地の文EVENT_MESSAGE_COM_セクハラ.ERB参照
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_313
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_313
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_313_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_313_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;314,アナル愛撫
;CFLAG:うふふ==2&&TCVAR:20(72=アナル奉仕
;CFLAG:うふふ==2&&TEQUIP:シックスナイン(パンツありTCVAR:20(70～72)はこちら)
;ABL:Ａ感覚(2未満=受け入れられない 4未満=異物感に翻弄 4以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_314
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_314
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_314_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_314_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;315,クリ愛撫
;CFLAG:うふふ==2&&TCVAR:20(35=スカートの中を見せる 70=クンニ強制 85=Ｖ挿入する 86=だいしゅきホールド 87=Ａ挿入する 88=腰振りＶ 89=腰振り
;ABL:Ｃ感覚(4未満=くすぐったい 6未満=ちょっといいかも 6以上=カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_315
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_315
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_315_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_315_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSEIF CFLAG:睡眠
	ELSE
	ENDIF

ENDIF
RETURN 1
;==================================================
;316,指挿入れ
;CFLAG:うふふ==2&&TCVAR:20(35=スカートの中を見せる 70=クンニ強制 87=Ａ挿入する 89=腰振りＡ
;TALENT:処女(指挿入れ連続時喪失注意、基本拒否ぎみ)
;ABL:Ｖ感覚(1未満=違和感に戸惑う 5未満=ちょっと気持ちいい 5以上＝カイカン)
;TFLAG:400(1=デート先or地底のモブが反応する)
;==================================================
@M_KOJO_9_SUCCESS_COM_K14_316
;成否判定
;TFLAG:192(-1＝強制失敗
TFLAG:192 =0

@M_KOJO_9_MESSAGE_COM_K14_316
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_316_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_316_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;317,腰を動かす
;ABL:Ｖ感覚(2未満=まだ気持ち良くない 5未満=ちょっと気持ちいい 5以上=カイカン
;==================================================
@M_KOJO_9_MESSAGE_COM_K14_317
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_317_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_317_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1
;==================================================
;318,腰を動かす（Ａ）
;==================================================
@M_KOJO_9_MESSAGE_COM_K14_318
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_318_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_318_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL

ENDIF
RETURN 1

;====================================================================================================
;320,相手主導正常位
;====================================================================================================
@M_KOJO_9_MESSAGE_COM_K14_320
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_320_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_320_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1
;====================================================================================================
;322,相手主導後背位
;====================================================================================================
@M_KOJO_9_MESSAGE_COM_K14_322
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_322_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_322_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	PRINTFORMW
ENDIF
RETURN 1
;==================================================
;330,スカートめくり
;TFLAG:193(-5=拒絶（ビンタ） -3=拒絶（つねり） -1=いやがる 0=いやがる（嬉しげ） 1=受け入れ)
;TFLAG:193=1&&ABL:露出癖(5以上=人目のある場所で、自らスカートをまくり上げる 4以下=人目のある場所でめくられるさいに弱い抵抗 3以上=人目のない場所で自らスカートをまくり上げる 3未満=弱い抵抗)
;TFLAG:400(1=デート先or地底のモブが反応する)
;後ろからピラリ、ではなく、前からペラって感じ（そうじゃなかったら、めくり上げようとするのを止めて即座にビンタとか無理、めくり上げられた後にしかならないしその状況ならビンタ食らうより普通に弾幕で一発ＫＯにならないほうがおかしい
;==================================================
@M_KOJO_9_MESSAGE_COM_K14_330
CALL TRAIN_MESSAGE
CALL M_KOJO_9_MESSAGE_COM_K14_330_1
RETURN RESULT

@M_KOJO_9_MESSAGE_COM_K14_330_1
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------------------------------------------
IF LOCAL
	IF FLAG:70
	ELSE
	ENDIF
ENDIF
RETURN 1

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【14】⑨之先行者十一号/M_KOJO_K14_2_セクハラコマンド.ERB

license: unknown


code:
;===========================================================
;冰之妖精的控制界面！
;用于UPDATE和初见。
;===========================================================
@CIRNO_UPDATE
SETCOLOR 0x51c4d3
$BEGIN
PRINTL
SELECTCASE RAND:10
	CASE 0
		PRINTFORML	❉❉❉(ᗜᴗᗜ)❉❉❉
	CASE 1
		PRINTFORML	❉❉❉(ᗜ_ᗜ)❉❉❉
	CASE 2
		PRINTFORML	❉❉❉(ᗜ ̮ᗜ)❉❉❉
	CASE 3
		PRINTFORML	❉❉❉(ᗜ‸ᗜ)❉❉❉
	CASEELSE
		PRINTFORML	❉❉❉(ᗜˬᗜ)❉❉❉
ENDSELECT
PRINTL
PRINTFORML	此处为琪露诺口上的调整界面。
PRINTFORML	本口上关于角色的性格和行为有许多个人的理解、且包含一定的暴力表现、还请见谅。
PRINTFORML	请选择需要调整的内容。
PRINTFORML	[1] 角色数据
PRINTFORML	[2] 暴力表现
PRINTFORML	[3] 选项分歧
PRINTFORML	[9] 关于此口上
PRINTFORML	[0] 没有了
INPUT
SELECTCASE RESULT
	CASE 1
		$SWITCH_1
		IF CFLAG:14:1000 != 1
			PRINTFORML	依照本口上的默认设置、琪露诺的素质与角色相性将发生变动。
		ELSE
			PRINTFORML	依照本口上的默认设置、琪露诺的素质与角色相性本应发生变动。
		ENDIF
		PRINTFORML	允许此变动吗？
		PRINTFORML	[1] 允许
		PRINTFORML	[2] 阻止（或还原）
		PRINTFORML	[3] 仅阻止涉及其他角色的部分
		SIF !CFLAG:14:面識
			PRINTFORML	[4] 保留（见面时决定）
		PRINTFORML	[0] 了解此变动
		INPUT
		SELECTCASE RESULT
			CASE 1
				CALL CIRNO_ADJUST(0)
				CALL CIRNO_ADJUST(1)
				CALL CIRNO_ADJUST(2)
				PRINTFORML	已完成默认的素质与角色相性变动。
				PRINTL
			CASE 2
				CALL CIRNO_ADJUST(0)
				IF CFLAG:14:1000 != 1
					PRINTFORML	不会改变琪露诺的素质与角色相性。
					PRINTFORMW	请宽容看待口上内容因此出现的少许矛盾。
					PRINTL
				ELSE
					PRINTFORML	已将本口上改变的素质与角色相性还原。
					CFLAG:14:1000 = 1
					PRINTL
				ENDIF
			CASE 3
				CALL CIRNO_ADJUST(0)
				CALL CIRNO_ADJUST(1)
				PRINTFORML	已完成不涉及其他角色的素质与角色相性变动。
				PRINTL
			CASE 4
				CFLAG:14:1000 = 3
				PRINTFORML	将等待到初见时再决定。
				PRINTFORML	如果已经见过面，则是保留之前的选择结果。
				PRINTL
			CASE 0
				PRINTFORML	出于情节安排的需要以及对角色的自我理解、本口上为琪露诺添加了叛逆与开朗素质、并且将在取得恋人时更换傲慢素质。
				PRINTFORML	同时、调整了琪露诺与部分角色的相性如下：
				PRINTFORML	去除了莉莉白、莉莉黑、莉格露、妹红和蕾蒂的特殊相性（X→100）、这一变化是双向的；
				PRINTFORML	降低了对三月精的相性（150→120）、提升了对拉瓦尔的相性（100→150）、提升了对文的相性（100→150）；
				PRINTFORML	提升了文对琪露诺的相性（100→150）、提升了隐崎奈对琪露诺的相性（100→120）；
				PRINTFORML	以及、混杂了一点私心地、基于大妖精口上的内容倾向、降低了大妖精对琪露诺的相性（300→150）。
				PRINTFORML	以上为默认的变动内容。尽管相性这个数据似乎没有什么特别的作用、但、图个看着舒服吧大概。
				PRINTFORML	如果无法接受改变其他角色数据的行为，请选择阻止涉及其他角色的部分变动。
			CASEELSE
				GOTO SWITCH_1
		ENDSELECT
		GOTO BEGIN
	CASE 2
		$SWITCH_2
		PRINTFORML	所谓暴力表现、即是基于角色活泼好动性格、结合角色原作表现所决定的口上特性。
		PRINTFORML	一言以蔽之、就是傻子会打人。
		PRINTFORML	由于算法的限制、打得还挺疼、通常情况下造成的伤害可达900点体力。
		PRINTFORML	虽然这类表现并不多见、但可能有部分玩家依然不能适应。
		PRINTFORML	因此、这里给出一个将伤害降低到纯粹画风程度的选项。
		PRINTFORML	以及为保持一致、将同时关闭琪露诺的冷气效果。
		PRINTFORML	[1] 降低
		PRINTFORML	[0] 不变
		INPUT
		SELECTCASE RESULT
			CASE 1
				IF CFLAG:14:1001 == 0
					PRINTFORML	将降低造成的伤害。
					CFLAG:14:1001 = 1
				ELSE
					PRINTFORML	将依然降低造成的伤害。
				ENDIF
			CASE 0
				IF CFLAG:14:1001 == 0
					PRINTFORML	将依然造成正常数值的伤害。
				ELSE
					PRINTFORML	将重置为正常数值的伤害。
					CFLAG:14:1001 = 0
				ENDIF
		ENDSELECT
		GOTO BEGIN
	CASE 3
		$SWITCH_3
		PRINTFORML	本口上默认在部分内容中设置有选项分歧。
		PRINTFORML	但考虑到玩家游玩习惯的区别、可能会有觉得选项太多很麻烦的、或是觉得随机比较不容易漏掉内容的。
		PRINTFORML	因此、这里给出一个关闭选项分歧的选项。这样讲是否像是某种悖论？
		PRINTFORML	[0] 关闭
		PRINTFORML	[1] 保持
		INPUT
		SELECTCASE RESULT
		ENDSELECT
		GOTO BEGIN
	CASE 9
		$SWITCH_9
		PRINTFORM	首先鸣谢
		CALL COLORMESSAGE(" 花椰菜 ", 0xb6dc65, 0, 3)
		PRINTFORML	在各方面提供的一切帮助。
		PRINTFORML	（花椰菜是一名在4.842及之前版本活跃并成果丰富的口上汉化者。）
		PRINTFORML	（其较新的翻译作品包括典、辉夜、勇仪、正邪、露米娅等数十名角色。）
		PRINTFORML	（也曾制作过诸如白色情人节回礼等补丁。）
		PRINTFORML
		PRINTFORML	此琪露诺口上由纸蛇冰沙制作，在一开始，主要是出于对「原有琪露诺口上竟只是大妖精扮演模式的挂件」的不满而动笔。
		PRINTFORML	在写作过程中，重新点燃了对角色的热情，于是才在经历颇多变故的情况下、还得以坚持至今。
		PRINTFORML	所以我认为写口上还是得为了喜欢这个角色才行。
		PRINTFORML	同时感谢以往在「制作口上教学频道」认识到并遗留下来的各位朋友一直以来的支持与鼓励。
		PRINTFORML	还有nosoma，一个写袿姬写一年写不出一个系的无名之辈，带我见识到这个游戏、从而得以开始。
		PRINTFORML	此口上距离完成还有相当长的一段距离，请无需期待。
		GOTO BEGIN
	CASE 0
		;关闭调整界面
		PRINTFORML
	CASEELSE
		GOTO BEGIN
	ENDSELECT
RESETCOLOR

;===========================================================
;冰之妖精的数据调整！
;用于UPDATE和初见。
;ARG	0：还原	1：影响自己	2：影响别人
;===========================================================
@CIRNO_ADJUST(ARG = 0)
IF ARG == 1
	;⑨的原有数据：幼儿体型、容易湿、V敏感、贫乳；傲慢、好奇心、喜欢引人注目、幼稚；采集Lv2、学习慢、无知。
	;这个是加了叛逆。
	TALENT:14:11 = 1
	;这个是加了开朗。
	TALENT:14:24 = 1
	;变成恋人的时候会再将傲慢转化为傲娇（无知）或献身的（非无知）。
	;预定也许会用某些事件把学习慢、幼稚和无知分别去掉。还要有加歌唱能力的事件。
	;在获得苦痛刻印2和3的时候会逐渐把开朗转为阴郁……本来是这么想的，但好像就得写三倍差分了，那我不是暴毙，还是算了。
	;去除了对莉莉白、莉莉黑、莉格露、妹红和蕾蒂的特殊相性。
	RELATION:14:18 = 0
	RELATION:14:19 = 0
	RELATION:14:27 = 0
	RELATION:14:61 = 0
	RELATION:14:74 = 0
	;将对三月精的相性调整为与三月精对⑨相同的120%。
	RELATION:14:5 = 120
	RELATION:14:6 = 120
	RELATION:14:7 = 120
	;增加对拉尔瓦的150%相性，以防单相思。
	RELATION:14:118 = 150
	;增加对文的150%相性。
	RELATION:14:29 = 150
ELSEIF ARG == 2
	;去除了莉莉白、莉莉黑、莉格露和蕾蒂对⑨的特殊相性。
	RELATION:18:14 = 0
	RELATION:19:14 = 0
	RELATION:27:14 = 0
	RELATION:74:14 = 0
	;增加文对⑨的150%相性。
	RELATION:29:14 = 150
	;增加隐崎奈对⑨的120%相性。
	RELATION:124:14 = 120
	;降低大妖精对琪露诺的150%相性。
	RELATION:13:14 = 150
ELSE
	;还原原本没有的坦率和开朗
	TALENT:14:11 = 0
	TALENT:14:24 = 0
	;还原与莉莉白、莉莉黑、莉格露、妹红和蕾蒂之间的特殊相性。
	RELATION:14:18 = 50
	RELATION:14:19 = 50
	RELATION:14:27 = 200
	RELATION:14:61 = 50
	RELATION:14:74 = 50
	RELATION:18:14 = 50
	RELATION:19:14 = 50
	RELATION:27:14 = 150
	RELATION:74:14 = 120
	;还原对三月精的特殊相性。
	RELATION:14:5 = 150
	RELATION:14:6 = 150
	RELATION:14:7 = 150
	;还原对拉尔瓦和文的普通相性。
	RELATION:14:118 = 0
	RELATION:14:29 = 0
	;还原文和隐岐奈对⑨的普通相性。
	RELATION:29:14 = 0
	RELATION:124:14 = 0
	;还原大妖精对琪露诺的300%相性。
	RELATION:13:14 = 300
ENDIF

;===========================================================
;冰之妖精的节日判断！
;用于作为节日相关差分的条件。因为没写完啊。
;ARG	0：问候	1：会话
;===========================================================
@CIRNO_FESTIVAL(ARG=0)
#FUNCTION
SELECTCASE FESTIVAL()
	CASE "元旦"
		RETURNF 1
	CASE "女兒節"
		SIF ARG
		RETURNF 1
	CASE "母親節"
	CASE "白色情人節前日"
	CASE "白色情人節"
	CASE "例大祭"
	CASE "兔子之日"
		SIF ARG
		RETURNF 1
	CASE "七夕"
		SIF !ARG
		RETURNF 1
	CASE "盂蘭盆節"
	CASE "風神「二百十日」"
	CASE "十五夜"
	CASE "収穫祭"
	CASE "萬聖節"
		SIF !ARG
		RETURNF 1
	CASE "節分"
	CASE "情人節"
		SIF !ARG
		RETURNF 1
	CASE "平安夜"
		SIF !ARG
		RETURNF 1
	CASE "聖誕節"
		SIF !ARG
		RETURNF 1
	CASE "大晦日"
		SIF !ARG
		RETURNF 1
ENDSELECT
RETURNF 0

;===========================================================
;冰之妖精的普通攻击！霜之哀伤吧大概。
;粗鲁的笨蛋就是会在因各种情况发火的时候会大打出手。但是，明明还是刮痧而已……
;到底是什么破口上会特地给攻击主角的行为写一个函数啊。
;ARG	0：初见	1：通常
;===========================================================
@CIRNO_ATTACK(ARG=1)
#DIM 伤害
#DIM DYNAMIC 威力 = 30
IF CFLAG:1001 == 1
	威力 = 1
ELSEIF MARK:反発刻印 >= 3
	威力 = 40
ENDIF

;战斗能力的等级差每级提供150的减伤。如果结果≤0，则视为闪避成功。如果结果≤-300，则视为轻松应对。
;以下的估算伤害值均为主角战力0级且⑨战力1级的初始情况。按照TW的能力提升机制，这个战力差应该不会再增加，只会减少。
SETCOLOR 0x51c4d3
IF ARG == 0
	SETCOLOR 0x51dede
	;150~270
	伤害 = 威力 * (5*(ABL:戦闘能力 - ABL:MASTER:戦闘能力) + MAX(RAND:(4), 0))
	IF 伤害 <= 0
		PRINTFORMW	堪堪擦过了抛掷过来的冰块、姑且还是没有什么大碍……
		PRINTFORML	「呀、打歪啦！……唔、不攻过来吗？」
		PRINTFORMDL	似乎是想擅自挑起弹幕胜负的样子、但这种程度对付%CALLNAME:MASTER%只会被瞬间击溃吧。
	ELSE
		CALL RECOVER(MASTER, -伤害, "体力", "琪露诺的冰锥")
		PRINTFORMDW	被抛掷过来的冰块打了个正着、虽然没有流血但还是很痛啊——
		PRINTFORML	「咦、你不会打架的吗？真没趣——」
		PRINTFORMDL	似乎被以一种非常丢脸的方式放过了……
	ENDIF
ELSEIF TALENT:愛欲
	;90~300
	伤害 = 威力 * (5*(ABL:戦闘能力 - ABL:MASTER:戦闘能力) + MAX(RAND:(10), 3))
	IF 伤害 <= -300
		PRINTFORMW	轻松地躲开了整片寒雾……
	ELSEIF 伤害 <= 0
		PRINTFORMW	勉强躲开了寒雾的攻击……
	ELSE
		CALL RECOVER(MASTER, -伤害, "体力", "琪露诺的寒雾")
	ENDIF
ELSEIF CFLAG:好感度 >= 500 || BASE:10 >= 1000
	;270~600
	伤害 = 威力 * (5*(ABL:戦闘能力 - ABL:MASTER:戦闘能力) + MAX(RAND:(20), 9))
	IF 伤害 <= -300
		PRINTFORMW	轻松地躲开了所有碎冰……
	ELSEIF 伤害 <= 0
		PRINTFORMW	勉强躲开了碎冰的攻击……
	ELSE
		CALL RECOVER(MASTER, -伤害, "体力", "琪露诺的碎冰")
	ENDIF
ELSE
	;450~900
	伤害 = 威力 * (5*(ABL:戦闘能力 - ABL:MASTER:戦闘能力) + MAX(RAND:(30), 15))
	IF 伤害 <= 0
		PRINTFORMW	勉强躲开了冰锥的攻击……
	ELSE
		CALL RECOVER(MASTER, -伤害, "体力", "琪露诺的冰锥")
	ENDIF
ENDIF
SETCOLOR 0x51dede

;===========================================================
;冰之妖精的入梦！
;和冰冰凉凉的小家伙睡在一块，就跟开满空调睡一样。夏天很爽，冬天就遭殃了……
;===========================================================
@CIRNO_SLEEP
SETCOLOR 0x51c4d3
PRINTL
SELECTCASE DAY:2
	CASE 4
		IF TALENT:恋慕
			PRINTFORMW 虽然琪露诺稍微收敛了冷气、但还是有些不太适应……
			CALL RECOVER(MASTER,-900,"体力")
			CALL RECOVER(MASTER,-900,"気力")
		ELSE
			PRINTFORMW 身边冷气萦绕、感觉实在是睡不着觉……
			CFLAG:MASTER:徹夜 = 1
		ENDIF
	CASE 2
		PRINTFORMW 在琪露诺身旁睡着、感觉很是凉爽……
		CALL RECOVER(MASTER,900,"体力")
		CALL RECOVER(MASTER,900,"気力")
	CASEELSE
		IF !TALENT:恋慕 && RAND:2 == 0
			PRINTFORMW 身边冷气萦绕、感觉有点难以入睡……
			CALL RECOVER(MASTER,-900,"体力")
			CALL RECOVER(MASTER,-900,"気力")
		ENDIF
ENDSELECT
SETCOLOR 0x51dede

;===========================================================
;冰之妖精的冷气！
;真正的招牌技能，恒定施放的冰冻光环。
;在各种会引发肢体碰撞的指令调用。
;ARG:0表示触发层数。自然是越激烈的接触越多。
;开空调，可以不可以？
;===========================================================
@CIRNO_FREEZE(ARG:0)
#DIM 冷气

IF FIRSTTIME("冷气")
	SETCOLOR 0x51c4d3
	PRINTL
	PRINTFORMDL	就如同刚见面时的感觉一般、这个冰之妖精会在身边散发出强烈的冷气。
	PRINTFORMDL	尽管她自己大概只是无意识的举动、但对于人类而言就……
	PRINTFORMDL	恐怕会需要一些时间来适应。或许、如果足够亲近、也能让她稍微注意一点……
	SETCOLOR 0x51dede
ENDIF
SIF TCVAR:351 == 0
	TCVAR:351 += CFLAG:1008

;陷落决定基础伤害
IF TALENT:恋慕 && CFLAG:1119
	冷气 = 0
ELSEIF TALENT:恋慕
	冷气 = -30
ELSEIF TALENT:思慕
	冷气 = -60
ELSE
	冷气 = -90
ENDIF
;坏心情加伤
SIF TALENT:15 == -1
	冷气 -= 30
;反发加伤
IF MARK:反発刻印 >= 3 || CFLAG:1120
		冷气 -= 90
ELSEIF MARK:反発刻印 >= 2
		冷气 -= 60
ELSEIF MARK:反発刻印 >= 1
		冷气 -= 30
ENDIF
;好感度减伤
SELECTCASE CFLAG:2
	CASE IS >= 256000
		冷气 += 20
	CASE IS >= 128000
		冷气 += 18
	CASE IS >= 64000
		冷气 += 16
	CASE IS >= 32000
		冷气 += 14
	CASE IS >= 16000
		冷气 += 12
	CASE IS >= 8000
		冷气 += 10
	CASE IS >= 4000
		冷气 += 8
	CASE IS >= 2000
		冷气 += 6
	CASE IS >= 1000
		冷气 += 4
	CASE IS >= 500
		冷气 += 2
ENDSELECT
;信赖度减伤
SELECTCASE CFLAG:4
	CASE IS >= 51200
		冷气 += 20
	CASE IS >= 25600
		冷气 += 18
	CASE IS >= 12800
		冷气 += 16
	CASE IS >= 6400
		冷气 += 14
	CASE IS >= 3200
		冷气 += 12
	CASE IS >= 1600
		冷气 += 10
	CASE IS >= 800
		冷气 += 8
	CASE IS >= 400
		冷气 += 6
	CASE IS >= 200
		冷气 += 4
	CASE IS >= 100
		冷气 += 2
ENDSELECT
;亲密减伤
SELECTCASE ABL:親密
	CASE IS >= 60
		冷气 += 30
	CASE IS >= 50
		冷气 += 27
	CASE IS >= 40
		冷气 += 24
	CASE IS >= 30
		冷气 += 21
	CASE IS >= 25
		冷气 += 18
	CASE IS >= 20
		冷气 += 15
	CASE IS >= 15
		冷气 += 12
	CASE IS >= 9
		冷气 += 9
	CASE IS >= 6
		冷气 += 6
	CASE IS >= 3
		冷气 += 3
ENDSELECT
;爱情经验减伤
SELECTCASE EXP:愛情経験
	CASE IS >= 1000
		冷气 += 30
	CASE IS >= 600
		冷气 += 27
	CASE IS >= 400
		冷气 += 24
	CASE IS >= 250
		冷气 += 21
	CASE IS >= 150
		冷气 += 18
	CASE IS >= 100
		冷气 += 15
	CASE IS >= 70
		冷气 += 12
	CASE IS >= 45
		冷气 += 9
	CASE IS >= 25
		冷气 += 6
	CASE IS >= 10
		冷气 += 3
ENDSELECT
;同日耐受度减伤
SELECTCASE TCVAR:350
	CASE IS >= 900
		冷气 += 50
	CASE IS >= 660
		冷气 += 45
	CASE IS >= 490
		冷气 += 40
	CASE IS >= 340
		冷气 += 35
	CASE IS >= 220
		冷气 += 30
	CASE IS >= 120
		冷气 += 25
	CASE IS >= 70
		冷气 += 20
	CASE IS >= 35
		冷气 += 15
	CASE IS >= 15
		冷气 += 10
	CASE IS >= 3
		冷气 += 5
ENDSELECT
;夏天减伤，冬天加伤
IF DAY:2 == 2
	冷气 += 30
ELSEIF DAY:2 == 4
	冷气 -= 30
ENDIF
;当前指令为泡澡时减伤
SIF SELECTCOM == 431
	冷气 += 30
;当前地图为地底时减伤
SIF GET_MAPID(CFLAG:MASTER:現在位置) == 9
	冷气 += 30
;御寒心法（？
IF FIRSTTIME("御寒第一重") && TCVAR:350 >= 10
	CFLAG:1008 += 2
ELSEIF FIRSTTIME("御寒第二重") && TCVAR:350 >= 25
	CFLAG:1008 += 4
ELSEIF FIRSTTIME("御寒第三重") && TCVAR:350 >= 50
	CFLAG:1008 += 6
ELSEIF FIRSTTIME("御寒第四重") && TCVAR:350 >= 100
	CFLAG:1008 += 8
ELSEIF FIRSTTIME("御寒第五重") && TCVAR:350 >= 150
	CFLAG:1008 += 10
ELSEIF FIRSTTIME("御寒第六重") && TCVAR:350 >= 200
	CFLAG:1008 += 12
ELSEIF FIRSTTIME("御寒第七重") && TCVAR:350 >= 300
	CFLAG:1008 += 14
ELSEIF FIRSTTIME("御寒第八重") && TCVAR:350 >= 400
	CFLAG:1008 += 16
ELSEIF FIRSTTIME("御寒第九重") && TCVAR:350 >= 550
	CFLAG:1008 += 18
ENDIF

;结果处理
SETCOLOR 0x51c4d3
IF TALENT:10 == -1
	PRINTFORML	琪露诺似乎因为恐惧被报复而压抑着冷气……
ELSEIF CFLAG:1001 != 1 	;反暴力开关关闭
	REPEAT ARG:0
		IF TALENT:恋慕 && TALENT:恋人 && 冷气 >= 0
			冷气 /= 9
			CALL BUFF_BASE(MASTER,BASE_気力,冷气)
		ELSEIF 冷气 < 0
			SIF TCVAR:発情
				冷气 /= 2
			CALL BUFF_BASE(MASTER,BASE_気力,冷气)
			TCVAR:350 += ARG:0
			TCVAR:351 -= 冷气
		ELSE
			冷气 = 0
		ENDIF
	REND
	PRINTL
	SELECTCASE TCVAR:351
		CASE IS >= 4000
			PRINTFORML	呼吸好艰难、眼前的东西也变得模糊了……
		CASE IS >= 3000
			PRINTFORML	明明很冷、但身体却感觉开始发热了、而且好痛……
		CASE IS >= 2000
			PRINTFORML	皮肤冷得发麻、关节好像都要冻僵了……
		CASE IS >= 500
			PRINTFORML	和琪露诺接触的时候、感觉冷意在往体内蔓延……
		CASE IS >= 0
			PRINTFORML	冰之妖精的身边似乎时刻充满冷气……
		CASEELSE
			PRINTFORML	从琪露诺的方向有着清爽的凉风吹来……
	ENDSELECT
ENDIF
SETCOLOR 0x51dede

;===========================================================
;冰之妖精的住处记录！
;在会话、来访时遭遇或带回主地图的时候，记录玩家角色与傻子互动时住过的地方。
;ARG	0：记录	1：随机提取
;===========================================================
@CIRNO_RESIDENCE(ARG = 0)
#DIM PLACE
#DIM LPCOUNT
PLACE = MAIN_MAP

SIF CFLAG:1016 == 0
	CFLAG:1016 = 1
IF !ARG
	SETBIT CFLAG:1016, PLACE
ELSE
	RESULT = 0
	WHILE !RESULT
		LPCOUNT ++
		PLACE = RAND:11
		SIF !GETBIT(CFLAG:1016, PLACE)
			CONTINUE
		SIF LPCOUNT >= 9
			BREAK
	WEND	;结果为1或0
	IF !RESULT
		RESULT = MAIN_MAP
	ELSE
		RESULT = PLACE
	ENDIF
ENDIF

;===========================================================
;冰之妖精的茶道！
;决定一下要泡什么茶的样子。
;===========================================================
@CIRNO_TEABAG()
#FUNCTIONS
#DIMS TEA
#DIM WILL
WILL = TFLAG:193 + TALENT:恋人

;基础
IF MAIN_MAP == 3 || MAIN_MAP == 5 || ((CFLAG:15:4 >= 1000 || CFLAG:16:4 >= 1000 || CFLAG:17:4 >= 1000) && RAND:3 == 0)
	TEA '= "红茶/红茶"	;红魔馆或人偶魔女的西式
ELSE
	TEA '= "绿茶/绿茶"
ENDIF
;多人在场的场合到这里就可以了。
SIF GET_TARGETNUM() > 1
	RETURNF CIRNO_RS(TEA)
IF TALENT:恋慕 && CFLAG:1119
	TEA '= "菊花茶/茉莉花茶"
	IF CFLAG:13:4 >= 1000 && RAND:5 == 0
		TEA += "洋甘菊茶"
	ELSEIF DAY:2 == 3 || DAY:2 == 4
		TEA += "菊花茶"
	ELSE
		TEA += "茉莉花茶"
	ENDIF
ENDIF
;指令判定结果，更复杂的款式随教养和结识角色提升。
;咖啡根据判定结果转化为黑咖啡或拿铁，花茶根据季节和大妖精关系转化为茉莉花茶或洋甘菊茶。
SELECTCASE WILL
	CASE 2
		TEA += "/大麦茶/绿豆沙/雪梨汁/抹茶牛奶/西瓜汁"
		SIF ABL:教養 >= 2
			TEA += "/淡盐冰茶/冰巧克力"
		SIF ABL:教養 >= 2 && (CFLAG:58:4 >= 1000 || CFLAG:90:4 >= 1000 || CFLAG:112:4 >= 1000 ||CFLAG:143:4 >= 1000)
			TEA += "/豆浆"
		SIF ABL:教養 >= 2 || CFLAG:5:4 >= 1000 || CFLAG:6:4 >= 1000 || CFLAG:7:4 >= 1000
			TEA += "/咖啡"
		SIF DAY:2 == 2
			TEA += "/西瓜汁"
	CASE 1
		TEA += "/玄米茶/红糖水/酸梅汤"
		SIF ABL:教養 >= 2 || CFLAG:5:4 >= 1000 || CFLAG:6:4 >= 1000 || CFLAG:7:4 >= 1000
			TEA += "/咖啡"
	CASE 0
		TEA += "/薄荷茶/糖水"
		SIF ABL:教養 >= 2 || CFLAG:5:4 >= 1000 || CFLAG:6:4 >= 1000 || CFLAG:7:4 >= 1000
			TEA += "/咖啡"
	CASE -1
		TEA += "/青汁/柠檬水"
ENDSELECT

RETURNF CIRNO_RS(TEA)

;===========================================================
;冰之妖精的嫉妒！
;大概是随机会抽取一个恋人。目前仅用于猜猜爷是谁。
;在使用时DIM一个变量ENVYTOY然后赋值为此函数，再%CALLNAME:ENVYTOY%就行了。
;===========================================================
@CIRNO_ENVY()
#FUNCTION
#LOCALSSIZE 10000
VARSET LOCALS

FOR LOCAL, 0, CHARANUM
    SIF CFLAG:LOCAL:2 < 1000 || NO:LOCAL == 0 || NO:LOCAL == 14
		CONTINUE
    IF TALENT:LOCAL:恋人
        SIF LOCALS != ""
            LOCALS += " "
		LOCALS += TOSTR(LOCAL)
    ENDIF
NEXT

SPLIT LOCALS, " ", LOCALS

SIF RESULT
	RETURNF TOINT(LOCALS:(RAND:RESULT))
RETURNF -1

;===========================================================
;冰之妖精的绝顶！
;计算当前事件的合计绝顶数。
;用于推倒结束时。
;===========================================================
@CIRNO_CLIMAX()
#FUNCTION
#DIM DYNAMIC 绝顶合计次数 = 0
#DIM 本日历史次数
绝顶合计次数 += EX:14:Ｃ絶頂
绝顶合计次数 += EX:14:Ｖ絶頂
绝顶合计次数 += EX:14:Ａ絶頂
绝顶合计次数 += EX:14:Ｂ絶頂
绝顶合计次数 += EX:14:Ｍ絶頂
IF ONCE("推倒结束")
	本日历史次数 = 绝顶合计次数
ELSE
	绝顶合计次数 -= 本日历史次数
	本日历史次数 += 绝顶合计次数
ENDIF
RETURNF 绝顶合计次数

;===========================================================
;冰之妖精的突击检查！
;没收胖次时检测是否有自己的胖次
;在原事件里声明变量：
;#DIM DYNAMIC iPants_Num
;iPants_Num = 0
;之后用以下语句分别赋值和判断。
;	iPants_Num = CIRNO_CHECKPANTS(TARGET)
;	IF iPants_Num
;===========================================================
@CIRNO_CHECKPANTS(iID=14)
#FUNCTION
#DIM iID
#DIM iPants_Type
#DIM iPants_Num

;パンツ輸送
SIF !FLAG:853
	RETURNF 0

iPants_Num = 0
FOR iPants_Type,0,MAXPANTS
	SIF PANTS_TEMP:iID:iPants_Type
		iPants_Num += PANTS_TEMP:iID:iPants_Type
NEXT
RETURNF iPants_Num

;===========================================================
;冰之妖精的在场观众！
;来历大概是典口上，往上追溯至四季之类。就是从同一位置的其他人里选取一个，优先度从关联角色到全随机。
;原本来说是优先度高的情况会直接决定结果，但为了自家想要的效果，改成了优先度仅影响概率。
;默认的时候是这样。如果给ARG另外赋值，则会只选取拥有对应编号素质的角色。恋慕是3，恋人是7。
;输出结果是角色编号，如果没有人的话就是0了。
;===========================================================
@CIRNO_FIND_AROUND(ARG = -1)
#FUNCTION
#DIM 关联角色,14 = 1, 5, 6, 7, 11, 13, 29, 30, 33, 49, 50, 68, 118, 124
#DIM 总人数
#DIM 抽选
#LOCALSIZE 200
;关联角色包括：灵梦、桑尼、露娜、斯塔、魔理沙、大妖精、文、映姬、诹访子、觉、芙兰朵露、幽香、拉尔瓦、隐岐奈。
VARSET LOCAL
抽选 = 0
总人数 = GET_TARGETNUM()
;如果没人的话就是0。如果是1的场合，就是只有傻子一个了。
SIF 总人数 == 1
	RETURNF 0
;首先将所有在场的角色总结成一个权重池。
FOR COUNT, 1, 总人数 + 1
	;屏蔽抽中口上主的情况。
	SIF TARGET:COUNT == TARGET:0
		CONTINUE
	;确认目标是否与主角和口上主在同一位置。
	SIF (CFLAG:(TARGET:COUNT):現在位置 != CFLAG:MASTER:現在位置) || (CFLAG:(TARGET:COUNT):現在位置 != CFLAG:14:現在位置)
		CONTINUE
	;确认目标是否符合拥有对应素质的额外要求。
	IF ARG > 0
		SIF !TALENT:(TARGET:COUNT):ARG
			CONTINUE
	ENDIF
	;如果上述条件都是满足的，那么将此角色编号加入权重池。
	LOCAL:抽选 = TARGET:COUNT
	抽选 ++
NEXT
;然后将熟人额外加入一次权重池，也就是概率翻倍了。
FOR COUNT, 0, 14
	IF CFLAG:(关联角色:COUNT):現在位置 == CFLAG:MASTER:現在位置
		LOCAL:抽选 = 关联角色:COUNT
		抽选 ++
	ENDIF
NEXT
;不知道为什么，但总之有这么一个结尾。
SIF 抽选 < 1
	RETURNF 0
;最后在池子里随机抽一个啦。
RETURNF LOCAL:(RAND(抽选))

;===========================================================
;冰之妖精的好朋友卡片！
;判断在场的是否只有特别要好的家伙。
;===========================================================
@CIRNO_GETFRIEND()
#FUNCTION
#DIM 好友,4 = 1, 11, 13, 29
;好友包括：灵梦、魔理沙、大妖精、文。
#DIM 朋友数

FOR COUNT, 0, 4
	;确认目标是否与主角和口上主在同一位置。
	SIF (CFLAG:(好友:COUNT):現在位置 == CFLAG:MASTER:現在位置) || (CFLAG:(好友:COUNT):現在位置 == CFLAG:14:現在位置)
		朋友数 ++
NEXT
SIF 朋友数 == GET_TARGETNUM() - 1
	RETURNF 朋友数
RETURNF 0

;===========================================================
;功能性之量子坍缩。
;条件满足越多概率越高吧大概。
;使用时ARG默认输入1，后面的ARG:1到ARG:9都是条件（包括且不仅限于TALENT，CFLAG，TCVAR，ABL，EXP等）
;===========================================================
@CIRNO_RAND(ARG = 0, ARG:1, ARG:2, ARG:3, ARG:4, ARG:5, ARG:6, ARG:7, ARG:8, ARG:9)
#FUNCTION
#DIM LCOUNT

IF ARG == 1
	LOCAL = 11
	FOR LCOUNT, 1, 10
		SIF ARG:LCOUNT > 0
			LOCAL -= 1
	NEXT
ENDIF
SIF RAND:LOCAL == 0
	RETURNF 1
RETURNF 0

;===========================================================
;功能性之对齐。
;就是……对齐。
;ARG:0	总字节长度
;ARG:0	需要对齐的一个数值
;===========================================================
@CIRNO_ALIGN(ARG:0,ARG:1)
STRLENFORM {ARG:1}
REPEAT (ARG:0 - RESULT:0)
	PRINTFORMD
REND

;===========================================================
;功能性之储存字符串。
;并附带一个左对齐的部分。会在右边垫半角空格。
;ARG	0：储存	1：取出	more:需要对齐的字节数
;ARGS	需要储存的字符串，在取出时忽略
;===========================================================
@CIRNO_STORAGE(ARG, ARGS)
#DIMS STORE
IF ARG == 0
	STORE = %ARGS%
ELSE
	PRINTFORM %STORE%
	STRLENFORM %STORE%
	IF ARG > RESULT:0
		REPEAT (ARG - RESULT:0)
			PRINTFORMD
		REND
	ENDIF
ENDIF

;===========================================================
;功能性之掷骰特效。
;就是轮番显示几个数字并删掉，来模仿骰子摇一下的那种感觉。
;ARG:0	骰子面数
;ARG:1	等待时间
;ARG:2	掷骰次数
;===========================================================
@CIRNO_DICESHOW(ARG:0 = 10, ARG:1 = 2, ARG:2 = 4)
REPEAT ARG:2
	PRINTFORM {RAND:(ARG:0)}
	TWAIT ARG:1,1
	CLEARLINE 1
REND

;===========================================================
;功能性之随机字符串。
;取自爱丽丝口上，将一条字符串分割并取出随机片段。
;ARGS   操作する文字列
;ARGS:1 ARGSを区切る文字列
;ARG    返す数、2個以降はRESULTS:1以降に返していく
;===========================================================
@CIRNO_RS(ARGS, ARGS:1 = "/", ARG = 1)
#FUNCTIONS
#LOCALSSIZE 1000
#LOCALSIZE 1
#DIM TEMP
#DIM NUM

VARSET LOCALS

SPLIT ARGS, ARGS:1 , LOCALS, NUM

FOR LOCAL, 0, ARG
	IF NUM > 0
		TEMP = RAND:NUM
		NUM--
		RESULTS:LOCAL = %LOCALS:TEMP%
		ARRAYREMOVE LOCALS, TEMP, 1
	ENDIF
NEXT
RETURNF RESULTS

;===========================================================
;功能性之条件差分。
;用于随机条件，但是仅在满足对应条件时产生该结果。
;使用时ARG默认输入1，后面的ARG:1到ARG:9都是条件（包括且不仅限于TALENT，CFLAG，TCVAR，ABL，EXP等）
;若输出为0则是默认情况。
;===========================================================
@CIRNO_SELECT(ARG = 0, ARG:1, ARG:2, ARG:3, ARG:4, ARG:5, ARG:6, ARG:7, ARG:8, ARG:9)
#FUNCTION
#DIM DYNAMIC LCOUNT = 0
VARSET LOCAL
IF ARG == 1
	FOR COUNT, 1, 10
		IF ARG:COUNT > 0
			LCOUNT ++
			LOCAL:LCOUNT = COUNT
		ENDIF
	NEXT
	SIF LCOUNT < 1
		RETURNF 0
	RETURNF LOCAL:(RAND(LCOUNT))
ENDIF

;===========================================================
;各类废稿和记事。原本是放在事件系开头的但越来越碍事了所以挪个位置。
;===========================================================
[SKIPSTART]
其实说来活泼好动和冰系角色一般都是不配对的啊。鳟先生真是独到。

突然想起来一个点。是关于记忆力的问题。
⑨的健忘虽然不如某只鸟，但是也是很差的（在则里完全忘记了一路上见过的都是谁）。理所当然地无陷落时见面会不记得叫什么，每次都要重复强调。
但是随着交往的深入，理应会记得越来越清楚，而玩家毕竟要靠料理和学习之类去刷好感，导致知识和才能也在增长。这属于是偏离了妖精所属自然的范畴吧，这样想。
「回忆是人生的食粮，还是枷锁——至少，太过执着的话，看来的确是不会有好事发生。就算这样，为了否定这个将重要的东西一起抛弃，只有这种事情我不想做——」
突然又想到一个点。恋慕线可以是这样，但爱欲线可能正好相反——沉溺在快乐之中，无论失去了什么记忆，只需要再次体验就可以了。没有什么是无比珍贵的。

预定的笔记：能否控制借宿？逆告白后借宿显然很符合气氛。能否检测角色已知的肉体关系？可以考虑给留宿后的当天加特殊对话。
能否检测已知的肉体关系？能否检测拥有的内裤数量？将主角运回的晚安文本可以加上在做的情况。
能否检测本日是否已经问候？想在会话的时候检测以进行一个对时停出现立刻聊天的主角的惊讶。
之后要考虑一下对主动告白各情况的再次细分。之后要给一个主动解除无知的选项，可能在读书或深层会话？
找个时间给所有指令阻绝一下时停……
记得加上从爱欲转到恋慕的特殊差分。
记得加上觉得困在陪睡时的差分。
可以来那种小孩学会催眠试图往主角身上使的怪剧情。
强化一下遭遇里的吓唬主角。
可以强化一下时停外面的身体接触类，以做到时停喂酒之类的效果。
以后记得给破瓜加上先爱欲解无知再V破处的差分。
喝茶的前后应有拓展，而非仅限饮料种类的区别。增加傻子的主动性？可以期待？可以点单？可以喝完之后要做什么？可以跟喝之前做过的什么有关系？

	我是覺得並不是描述細節的問題 你多加幾行琪露諾怎麼感謝你 其實也不會太有效果
	從寫作角度上來講 閒聊、泡茶應該是給你引發互動的 因為這兩件事本身很無趣
	要考慮的是做了指令之後能引發什麼有趣的小劇場、互動
	琪露諾挑起一根小指握起茶杯 輕抿了一口
	「嗯～嗯... 伯爵茶很有風味呢」
	接著茶盤的手在發抖... 明明就苦得不得了，在做大小姐的白日夢嗎？
	“咦！大叔大叔，这个是什么？”
	“乌-笼-茶？是什么啊？”
	“咦咦咦？真的可以让我喝吗？”
	“------呜，好苦，大叔坏，骗人QAQ”
	感覺會為了裝很強 FIRSTTIME之後會強迫自己喝下去
	可以考慮失敗時選擇熱飲或其他會噴出來的
	其實主要都是在互動感上加強 比如上次你大失敗了這次看到你再泡會縮一旁之類的

会话关系进展对话应有一分支，一周目是说之前还没跟人类玩过这么多，转生后是恢复记忆。
「有时候咱会忘记……被做过的事情了。」「……忘掉也……没关系吗？」残虐的结局。

TIMES SOURCE:CHARA:征服,0.50
DOWNBASE:MASTER:体力 += 100
CALL 抱き寄せ(ARG)
GROUPMATCH(CFLAG:MASTER:現在位置,xxx,xxx,xxx)
RELATION:CIRNO_ID:TARGET
ESTRUS_CYCLE(TARGET) == ?			15安全期，70危险期前日，100排卵期，150危险期
repeat x（次数）		下一行		rend		循环
!TCVAR:26:今天有否见面
CLEARLINE 1			清空上一行内容（但仍会出现再消失）
CFLAG:身に覚え_母 == 1 && !CFLAG:無自覚妊娠		为判断自觉怀孕（在判断TALENT:153为非零值之后）
因为越来越摸了，所以写上预定计划！——更多亲吻——抱枕——爱抚系——足交

■地域設定				茶种
-1 設定無し				清水
0　博麗神社				绿茶
1　命蓮寺				青汁
2　人間の里
3　霧の湖～紅魔館		红茶
4　迷いの竹林			青汁
5　魔法の森				红茶
6　三途の川～冥界
7　妖怪の山 (山麓)		果汁
8　妖怪の山 (山頂)		果汁
9　地底
10 夢の世界～月
[SKIPEND]

path: ERB/口上・メッセージ関連/個人口上/【14】⑨之先行者十一号/M_KOJO_K14_2_函数.erb


code:
;-------------------------------------------
;刻印取得
;-------------------------------------------
@M_KOJO_9_MESSAGE_MARKCNG_K14
;このままだと地の文が表示されません
;地の文を表示したい方は、下記のコメントアウトを削除して下さい
;CALL MARK_MESSAGE
;苦痛刻印
IF !FLAG:70
	IF TFLAG:22 == 1
		PRINTFORML	「笨蛋、会疼的呀！」
		PRINTFORMDW	琪露诺不忿地挣扎和叫嚣着。
		CALL CIRNO_FREEZE(5)
	ELSEIF TFLAG:22 == 2
		PRINTFORML	「呜哇……好痛……不要再继续了……哇啊啊啊！」
		PRINTFORMW	「咱、咱什么都听你的了、不要把人家弄疼啊……」
		PRINTFORMDW	琪露诺在剧痛之下开始哭喊着求饶了。
		CALL CIRNO_FREEZE(5)
		PRINTL
		TALENT:14:24 = 0
		PRINTW	琪露诺失去[开朗]了。
		TALENT:14:10 = -1
		PRINTW	琪露诺获得[胆怯]了。
	ELSEIF TFLAG:22 == 3
		PRINTFORML	「咕啊……呕……」
		PRINTFORMDW	琪露诺似乎被痛苦折磨得没有叫喊的余力了。
		PRINTFORMW	「……呜……太过分了……呜……」
		PRINTFORMW	「呜呜、呜哇啊啊……」
		CALL CIRNO_FREEZE(5)
		PRINTL
		TALENT:14:24 = -1
		PRINTW	琪露诺获得[阴郁]了。
	ENDIF
ENDIF

;時姦刻印
IF TFLAG:時姦刻印取得 == 1
	PRINTFORMDW	在停止的时间中累积的刺激、让琪露诺的身体起了反应。
ELSEIF TFLAG:時姦刻印取得 == 2
	PRINTFORMDW	在停止的时间中累积的刺激、让琪露诺的身体开始无意识地颤抖了。
ELSEIF TFLAG:時姦刻印取得 == 3
	PRINTFORMDW	妖精的身体完全被拖入了本能的愉悦中、即便细微的刺激也能让琪露诺敏感地痉挛起来。
	PRINTFORMDW	如果在清醒的时候、引出她的这股冲动、也许会更有趣……
ENDIF

;快楽刻印
IF TFLAG:23 == 1
	PRINTFORML	「唔噢……感觉变得……轻飘飘的了……」
	PRINTFORMDW	琪露诺的眼神变得有些茫然、似乎因肉体的感觉而迷失了。
ELSEIF TFLAG:23 == 2
	PRINTFORML	「呜啊……身体里感觉好热……好奇怪……」
	PRINTFORMDW	琪露诺的思绪随着高涨的心情完全放空了、脸上自然地浮现出愉悦的笑容。
ELSEIF TFLAG:23 == 3
	PRINTFORML	「太舒服了……舒服到咱都要变成笨蛋了……」
	PRINTFORMDW	琪露诺被溶化般的快感所侵蚀了、无意识地摸索着自己的身体。
	PRINTFORMW	「不过……还想再继续……再让咱变得舒服吧……」
ENDIF

;不埒刻印
;快楽による刻印
;LV1
IF TFLAG:24 == 11 || TFLAG:24 == 31
	IF CFLAG:317
		PRINTFORML	「不行……唔……这样子……」
		PRINTFORMDW	琪露诺由于身体的变化而变得迷茫了。
	ELSE
		PRINTFORML	「%CALLNAME:MASTER%有什么想玩的嘛？一直都是咱这边说了算、也没意思啦——」
		PRINTFORMDW	琪露诺的眼睛骨碌碌地转着、是在想什么呢。
	ENDIF
;LV2
ELSEIF TFLAG:24 == 12 || TFLAG:24 == 32
	IF CFLAG:317
		PRINTFORML	「那种感觉……呜……%CALLNAME:MASTER%……」
		PRINTFORMDW	琪露诺无意识地寻求着经历过快感的源头。
	ELSE
		PRINTFORML	「%CALLNAME:MASTER%……对咱可真好呢？」
		PRINTFORML	「有什么想玩的游戏吗？想要的东西？虽然咱不是妖怪啦、但是也会报恩哦？」
		PRINTFORMDW	琪露诺嘴上开着玩笑、眼睛却望向这边不动、嘴角弯弯地翘着。
	ENDIF
;LV3
ELSEIF TFLAG:24 == 13 || TFLAG:24 == 33
	IF CFLAG:317
		PRINTFORML	「……那个、%CALLNAME:MASTER%……」
		PRINTFORML	「咱会按照你说的、乖乖听话的了……」
		PRINTFORML	「所以说……那种舒服的……想要再多来几次……」
		PRINTFORMW	琪露诺似乎完全顺从本能、被快乐俘虏了。
	ELSE
		PRINTFORML	「那个……%CALLNAME:MASTER%？」
		PRINTFORMDL	琪露诺似乎突然陷入了某种思考之中、变得有些焦躁不安。
		PRINTFORML	「咱平常都是跟其他妖精玩的啦、%CALLNAME:MASTER%应该也、是跟人类们走在一起才对的吧？」
		PRINTFORMW	「唔、咱不是那个意思……以后也要、一起玩的吧？跟妖精的咱……」
	ENDIF
ENDIF

;反発刻印
IF TFLAG:21 == 1
	PRINTFORMW	「把咱惹火了哦！不给咱好吃的话可不会原谅你！」
	CALL CIRNO_FREEZE(3)
ELSEIF TFLAG:21 == 2
	PRINTFORMW	「可恶、居然对最强的咱做这种事！」
	PRINTFORMW	「要后悔也晚了哦、咱可不会忘掉！」
	CALL CIRNO_FREEZE(6)
ELSEIF TFLAG:21 == 3
	PRINTFORMW	「咿呀！像你这种混蛋、就吃咱这招吧！」
	CALL CIRNO_ATTACK
	PRINTFORMW	「总有一天、咱要把你这家伙冻起来！」
	PRINTFORMW	「——然后打得粉碎！」
	CALL CIRNO_FREEZE(9)
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【14】⑨之先行者十一号/M_KOJO_K14_2_刻印取得.ERB