code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K14, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝六九式"
		IF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STR, @"「%TEXTR("嗯……/成熟的/噗哈")%_H_ ……什么嘛.%CNAME("一人称")%已经起床了？」_L"
				PRINTFORMW %CALLNAME:TARGET%舔了舔口边的精液
			CASE 1
				CALL PRINT_STR, @"「%TEXTR("吐舌/嗯哼/呵呵")%_H_ 怎么了？%CNAME("主人")%_H_」_L"
				PRINTFORMW %CALLNAME:TARGET%像什么事都没有发生一样開始做早上的准备。
			CASEELSE
				CALL PRINT_STR, @"「%TEXTR("么么嗯/噗哈/嗯~～")%_H_ 什么啊？你喜欢这样吧？」_L"
				PRINTFORMW 当%CALLNAME:MASTER%点頭时，%CALLNAME:TARGET%看起来很满足地開始收拾起来
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「……%TEXTR("嗯，嗯/咳咳")%！？什、什么啊……起来了啊……」
				PRINTFORMW %CALLNAME:TARGET%是u%TEXTR("看起来不舒服/像是被骂了一样/兴冲冲地")%開始收拾
			CASE 1
				PRINTFORML 「……%TEXTR("嗯，嗯/咳咳")%！？ ……%CNAME("一人称")%为了尽快恢复原状……正因为如此……」
				PRINTFORMW 好像是那样的事的呢
			CASEELSE
				PRINTFORML 「……啊 ……%CNAME("二人称")%什么都没看见。%CNAME("一人称")%什么都没做」
				PRINTFORMW %CALLNAME:TARGET%很快就从%CALLNAME:MASTER%的房间里走了出来。
			ENDSELECT
		ENDIF

	CASE "朝騎乗位"
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K14, %ARGS%, %CSTR:朝袭%
		[ENDIF]
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	IF COND("体育")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「今天有体育课吗？」
			PRINTFORMW 看起来%CALLNAME:TARGET%很%TEXTR("兴奋/高兴")%。
		CASE 1
			PRINTFORML 「今天有体育课……但是，太阳光太强了」
			PRINTFORMW %CALLNAME:TARGET%は怀恨在心地盯着太阳。
		CASEELSE
			PRINTFORML 「等一下有体育课，别忘了穿体操服哦？」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%体操服交给我。
		ENDSELECT

	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「%TEXTR("嗯……/打着哈欠、/早……")%早上好……」
			PRINTFORMW %CALLNAME:TARGET%は揉着困倦的眼睛
		CASE 1
			PRINTFORML 「嗯……哈哈」
			PRINTFORMW %CALLNAME:TARGET%は眠そうに朝の打招呼をしてきた。
		CASEELSE
			PRINTFORML 「饭已经做好了吗？」
			PRINTFORMW %CALLNAME:TARGET%好像肚子饿了。
		ENDSELECT
	ENDIF

CASE "一番乗り"
	IF TALENT:恋慕
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「嗯……和%CNAME("二人称")%两人独处」
			PRINTFORMW %CALLNAME:TARGET%坐在%CALLNAME:MASTER%的旁边。
		CASE 1
			PRINTFORML 「哟！……什么啊，只有%CNAME("二人称")%在啊？」
			PRINTFORMW %CALLNAME:TARGET%虽然这么说，但好像很開心的样子
		CASEELSE
			PRINTFORML 「ウイーっす……お、%CNAME("一人称")%だけか」
			PRINTFORMW %CALLNAME:MASTER%确认了%CALLNAME:TARGET%微笑着。
		ENDSELECT

	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「什么啊，和%CNAME("二人称")%两个人啊……」
			PRINTFORMW %CALLNAME:TARGET%与%CALLNAME:MASTER%稍微拉開距离坐了下来。
		CASE 1
			PRINTFORML 「哟！……只有%CNAME("二人称")%在吗？」
			PRINTFORMW %CALLNAME:TARGET%的表情很微妙。
		CASEELSE
			PRINTFORML 「嗯……唉」
			PRINTFORMW %CALLNAME:TARGET%看到%CALLNAME:MASTER%を的脸，叹了口气。
		ENDSELECT
	ENDIF

CASE "ただいま"
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「我回来啦，肚子饿了~」
		PRINTFORMW %CALLNAME:TARGET%吧嗒吧嗒地回来了。
	CASE 1
		PRINTFORML 「啊~累坏了……哎呀，我回来了」
		PRINTFORMW %CALLNAME:TARGET%疲惫地回来了。
	CASEELSE
		PRINTFORML 「我回来了……今天阳光好刺眼。」
		PRINTFORMW %CALLNAME:TARGET%懒洋洋地回来了。
	ENDSELECT

CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不好意思……什么嘛，%CNAME("一人称")%来接你不好吗！？」
				PRINTFORMW 到門口迎接了%CALLNAME:TARGET%有点害羞。
			CASE 1
				PRINTFORML 「欢迎回来，%CNAME("主人")%…………怎么说呢？」
				PRINTFORMW 女仆装身姿的%CALLNAME:TARGET%迎接了%CALLNAME:MASTER%。
				IF FIND_COND("弗理希艾尔", "現在存在")
					PRINTFORML 「弗理希艾尔桑为我准备的……怎么样？」
				ELSE
					PRINTFORML 「意外的很适合我吧？」
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%是%TEXTR("用笑容/装出一副若无其事的样子/一边挺着腰")%转了一圈给我看。
				CALL SET_COORDINATE, "女仆装", TARGET
			CASEELSE
				PRINTFORML 「欢迎回来，……绕道过来了吗？」
				PRINTFORMW  看来%CALLNAME:TARGET%很担心晚回来的%CALLNAME:MASTER%。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「嗯~回来了~」
				PRINTFORMW %CALLNAME:TARGET%は在客厅里看电视。
			CASE 1
				PRINTFORML 「喂～……啊，可恶！？」
				PRINTFORMW %CALLNAME:TARGET%一边玩游戏一边向%CALLNAME:MASTER%扑腾扑腾挥手。
			CASEELSE
				PRINTFORML 「欢迎回来……你是怎么绕道来这的？」
				PRINTFORMW 看来%CALLNAME:TARGET%在期待着特产。
			ENDSELECT
		ENDIF
	ELSE
		IF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「哟！怎么这么晚啊！」
				PRINTFORMW %CALLNAME:TARGET%が前来迎接。
			CASE 1
				PRINTFORML 「哦……%CNAME("二人称")%也要吃吗？」
				PRINTFORMW %CALLNAME:TARGET%拿出了自己带的点心。
			CASEELSE
				PRINTFORML 「迟到了吧？是……%TEXTR("被老师骂了/还捡到了色情杂志呢/钱包丢了")%？」
				PRINTFORMW %CALLNAME:TARGET%開始对迟到的%CALLNAME:MASTER%做出偏离目标的推理。
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「嘿咻嘿咻……」
				PRINTFORMW %CALLNAME:TARGET%好像在锻炼肌肉。
			CASE 1
				PRINTFORML 「嗯，……呦」
				PRINTFORMW %CALLNAME:TARGET%很费事地打了招呼。
			CASEELSE
				PRINTFORML 「啊～……好无聊……」
				PRINTFORMW %CALLNAME:TARGET%像是在躲避阳光一样地懒散着。
			ENDSELECT
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		IF TALENT:恋慕
			PRINTFORML 「有什么事吗？」
			PRINTFORMW 被%CALLNAME:MASTER%叫到的%CALLNAME:TARGET%进了房间。
		ELSE
			PRINTFORML 「……你有什么事吗？」
			PRINTFORMW 被%CALLNAME:MASTER%叫到的的%CALLNAME:TARGET%が%TEXTR("粗鲁地/看起来很麻烦的样子/一边打哈欠")%进入房间了
		ENDIF

	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		CALL EMOTION_PLUS, "心情差", TARGET
		PRINTFORML 「嗯……很好玩吗？」
		PRINTFORML 　%CALLNAME:TARGET%确认了捣乱的是%CALLNAME:MASTER%后眯起了眼睛。
		PRINTFORML
		CFLAG:好感度 -= 20
		PRINTFORMW 　好感度 -20

	ELSE
		IF TALENT:恋慕
			PRINTFORML 「失礼了」
			PRINTFORMW %CALLNAME:TARGET%进入了房间。
		ELSE
			PRINTFORML 「……失礼了」
			PRINTFORMW %CALLNAME:TARGET%%TEXTR("粗鲁地/看起来很麻烦的样子/一边打哈欠")%进入房间了。
		ENDIF
	ENDIF

;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「在闲聊吗？」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「在闲聊吗？」
	ELSE
		PRINTFORMW 「在闲聊吗？」
	ENDIF

;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『啊……老师早上好』

	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 『闲聊.JPG』

	ELSE
		PRINTFORMW 『闲聊.JPG』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		IF TALENT:恋慕
			PRINTFORML 「有什么事吗？」
			PRINTFORMW 被%CALLNAME:MASTER%叫到的%CALLNAME:TARGET%进了房间。
		ELSE
			PRINTFORML 「……你有什么事吗？」
			PRINTFORMW 被%CALLNAME:MASTER%叫到的的%CALLNAME:TARGET%が%TEXTR("粗鲁地/看起来很麻烦的样子/一边打哈欠")%进入房间了
		ENDIF

	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW 「啊……喉咙好渴」
	ELSE
		PRINTFORMW 「啊……喉咙好渴」
	ENDIF

CASE "抜け出された"
	IF TALENT:恋慕
		CALL EMOTION_PLUS, "心情差", TARGET
		PRINTFORML 「……色鬼，就这！」
		PRINTFORML %CALLNAME:TARGET%用轻蔑的眼光目送着%CALLNAME:MASTER%。
		PRINTFORML
		CFLAG:好感度 -= 20
		PRINTFORMW 　好感度 -20
	ELSE
		PRINTFORML 「啊？今天就结束可以吗？」
		PRINTFORMW %CALLNAME:TARGET%是%TEXTR("兴冲冲地/麻利")%開始准备回去了。
	ENDIF

CASE "便当"
	SELECTCASE RAND:7
	CASE 0
		PRINTFORML 「真是的……不要把便当拜托给%CNAME("一人称")%哦」
		PRINTFORMW 　和%CALLNAME:TARGET%一起吃了茶色的便当。
	CASE 1
		PRINTFORML 「不好意思，今天是简单的食物哦？」
		PRINTFORMW 　和%CALLNAME:TARGET%亲手做的三明治一起吃了。
	CASE 2
		PRINTFORML 「这好像是の弗理希艾尔桑的便当啊」
		PRINTFORMW 　和%CALLNAME:TARGET%昨天剩下的东西一起吃了便当。
	CASE 3
		PRINTFORML 「嗯……肚子饱了……是胃变小了吗？」
		PRINTFORML 　%CALLNAME:TARGET%好像吃到一半就吃饱了。
		PRINTFORMW 「……给你的，啊」
	CASE 4
		PRINTFORML 「偶尔会起得早啊，给这是你的」
		PRINTFORMW 　一起吃了%CALLNAME:TARGET%亲手做的便当。
	CASE 5
		PRINTFORML 「%CNAME("二人称")%不做饭吗？」
		PRINTFORMW 　和%CALLNAME:TARGET%一起吃了简单的海苔便当。
	CASEELSE
		PRINTFORML 「如果是男性料理的话多少还能做出来啊……」
		PRINTFORMW 　和%CALLNAME:TARGET%一起吃了日之丸便当。
	ENDSELECT

;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
	IF TALENT:恋慕
		SELECTCASE RAND:3
		CASE 0
			CALL EMOTION_PLUS, "惊嚇", TARGET
			PRINTFORML 「等一下！？不要一下子就起哄了！」
			PRINTFORMW %CALLNAME:TARGET%是%TEXTR("慌慌张张/快点儿")%走了~了。
			TFLAG:退出する = 1
		CASE 1
			CALL EMOTION_PLUS, "心情差", TARGET
			PRINTFORML 「嗯……呼……嘿！不要吵到我」
			PRINTFORMW %CALLNAME:TARGET%的视线%TEXTR("很冷/很痛/刺进去")%。
		CASEELSE
			PRINTFORML 「是是，还是老样子呢……不，讨厌习惯了的自己……」
			PRINTFORMW %CALLNAME:TARGET%表情复杂。
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			CALL EMOTION_PLUS, "惊嚇", TARGET
			PRINTFORML 「等一下！？不要一下子就起哄了！」
			PRINTFORMW %CALLNAME:TARGET%是%TEXTR("慌慌张张/快点儿")%走了~了。
			TFLAG:退出する = 1
		CASE 1
			CALL EMOTION_PLUS, "惊嚇", TARGET
			PRINTFORML 「……真是没节操啊！？」
			PRINTFORMW %CALLNAME:TARGET%吐槽了%CALLNAME:MASTER%。
		CASEELSE
			CALL EMOTION_PLUS, "躁动难忍", TARGET
			PRINTFORML 「啊……嗯，我出去了」
			PRINTFORMW %CALLNAME:TARGET%%TEXTR("そ慌慌张张/红着脸")%出去了。
			TFLAG:退出する = 1
		ENDSELECT
	ENDIF

ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K14, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「うぅ……あくまで%CNAME("一人称")%が元に返回までだぞ！」
CASE "浑身是汗"
	IF COND("夏")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「要死……快要死了！」
			PRINTFORML 「随着阳光和热量的双重冲击下%TEXTR("熔化/化为灰烬/普通地死去")%！！」
		CASE 1
			PRINTFORML 「啊啊啊～～～」
			PRINTFORML 「……好冰……好冰呀」
		CASEELSE
			PRINTFORML 「大汗淋漓…………」
			PRINTFORML 「……什么啊？天气热，走那边吧。咻咻！」
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「啊~出了好多汗啊」
			PRINTFORML 「什么啊？ %CNAME("二人称")%是%TEXTR("要走了/累了")%のか？」
		CASE 1
			PRINTFORML 「今天阳光太强了……」
			PRINTFORML 「要是没有这个就好了……」
		CASEELSE
			PRINTFORML 「……有汗臭味啊。」
			PRINTFORML 「有%TEXTR("止汗剂/手纸/毛巾")%吗……有汗臭味，别靠近我啊？」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「啊~出了好多汗啊」
			PRINTFORML 「%CNAME("二人称")%是%TEXTR("讨厌运动/要走了/累了")%的吗？……真没出息啊」
		CASE 1
			PRINTFORML 「今天阳光太强了……」
			PRINTFORML 「好想早点回去啊……」
		CASEELSE
			PRINTFORML 「……有汗臭味啊。」
			PRINTFORML 「%TEXTR("制汗剤/ボディペー布/毛巾")%没有吗……」
		ENDSELECT
	ENDIF

CASE "刚睡醒"
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「姆呀姆呀……」
		PRINTFORML 「因为是吸血鬼……白天很困…………」
	CASE 1
		PRINTFORML 「嗯……还有五分钟………」
		PRINTFORML 「ZZzz……我马上就起床……」
	CASEELSE
		IF TALENT:相思相愛
			PRINTFORML 「哈……是梦吗……」
			PRINTFORML 「……最近几天总会害怕起床时我会变回男生」
		ELSEIF TALENT:恋慕
			PRINTFORML 「嗯……啊～……%CNAME("二人称")%吗」
			PRINTFORML 「哈……做了个噩梦………」
		ELSE
			PRINTFORML 「嗯……啊啊……」
			PRINTFORML 「……哈……起床了就回来了吗？」
		ENDIF
	ENDSELECT

CASE "Cosplay中"
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「为什么%CNAME("一人称")%会变成这样……」
		PRINTFORML 「%CNAME("二人称", "どもり")%……%TEXTR("喂，想打你！/可以打你吗？/我要打爆你的頭！")%」
	CASE 1
		PRINTFORML 「为什么%CNAME("一人称")%穿成这样……」
		PRINTFORML 「喂，喂！？ %TEXTR("禁止拍照/不要拍视频")%！！」
	CASEELSE
		PRINTFORML 「……」
		PRINTFORML 「%CNAME("一人称")%的尊严正在消失……」
	ENDSELECT

;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K14
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「笑什么啊，笨蛋」

CASE "约会的约定"
	PRINTFORML
;これは悪魔のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K14, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K14, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "自室に招待"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K14, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K14, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	IF COND("合意：掀起裙子") == 0
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「哈……%CNAME("二人称")%真是变态啊」
		CASE 1
			PRINTFORML 「吓得说不出话来……」
		CASEELSE
			PRINTFORML 「……啊啊啊啊」
			PRINTFORML 「亏你能堂堂正正地做那种事啊」
		ENDSELECT
	ENDIF
CASE "检查内褲"
	IF COND("合意：检查内褲") == 0
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「呃……真的适可而止吧？！」
		CASE 1
			PRINTFORML 「对变态说什么都没用吗？」
		CASEELSE
			PRINTFORML 「……」
			PRINTFORML %CNAME("一人称")%悲伤得哭出了眼泪
		ENDSELECT
	ENDIF

CASE "检查阴部"
	IF COND("合意：检查阴部") == 0
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「啊哈哈……哈！」
		CASE 1
			PRINTFORML 「……不，已经没什么了」
		CASEELSE
			PRINTFORML 「……」
			PRINTFORML 「呜呜呜……啊啊啊」
		ENDSELECT
	ENDIF

CASE "拜托処理性欲"
	PRINTFORML
CASE "进行性処理"
	PRINTFORML
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

		CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	IF TALENT:恋慕
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「没拍奇怪的照片吧……？？」
		CASE 1
			PRINTFORML 「要拍就说。如果只是姿势的话……不，没什么。」
		CASEELSE
			PRINTFORML 「不要再偷拍我了吧」
			PRINTFORML 「……啊？不，并不是说如果不是偷拍就好了之类的话！」
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「偷拍是犯罪哟？」
		CASE 1
			PRINTFORML 「要拍就说……」
		CASEELSE
			PRINTFORML 「喂！」
			PRINTFORML 「没拍奇怪的照片吧！！」
		ENDSELECT
	ENDIF

CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
;デバッグモードの際里一直ここで止圆圈ようになってしまうのでコメントアウト
;	[IF_DEBUG]
;		PRINTFORML KOJO_DAILY_K14, 質問１
;	[ENDIF]
;	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
;	[IF_DEBUG]
;		PRINTFORML KOJO_DAILY_K14, 質問２
;	[ENDIF]
;	CALL SET_DEVENT, "質問２"
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	PRINTFORML 「あん？　なんか用かよ？」
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	PRINTFORML
ELSEIF CHECK_SHIRT("女仆装")
	SELECTCASE RAND:5
	CASE 0
		PRINTFORML 「卟啉卟啉……」
		PRINTFORML 「啊，不能弄脏衣服的话……」
	CASE 1
		PRINTFORML 「哈……女仆好辛苦啊」
	CASE 2
		PRINTFORML 「%CNAME("主人")%、呆在那里的话会妨碍打扫的吧？」
	CASE 3
		PRINTFORML 「嗯……这个在这里工作就可以吗？」
	CASEELSE
		PRINTFORML 「呼……稍微休息一下」
	ENDSELECT
ELSEIF COND("夜")
	SELECTCASE RAND:7
	CASE 0
		PRINTFORML 「这个冰淇淋可以吃吗？」
	CASE 1
		PRINTFORML 「今天没有看有趣的电视啊」
	CASE 2
		PRINTFORML 「一起锻炼肌肉吗？」
	CASE 3
		PRINTFORML 「晚上一起去散步吗？」
	CASE 4
		PRINTFORML 「满月出来的时候心情会……虽然是谎言」
	CASE 5
		PRINTFORML 「什么呀，作业让我抄一下？」
	CASEELSE
		PRINTFORML 「啊……我困了」
	ENDSELECT
ELSE
	SELECTCASE RAND:7
	CASE 0
		IF PLACE("部室")
			PRINTFORML 「这个社团是做什么的？」
		ELSE
			PRINTFORML 「打扫一下吧………」
		ENDIF
	CASE 1
		PRINTFORML 「真是的……是因为这样的身体才变了白天过的很艰难」
	CASE 2
		PRINTFORML 「总觉得……有股鱼腥味。」
	CASE 3
		PRINTFORML 「最近因为经常撑着阳伞被认为体弱多病……」
	CASE 4
		PRINTFORML 「不要碰奇怪的地方哦？」
	CASE 5
		PRINTFORML 「你没有把这部漫画的续集带来吗？」
	CASEELSE
		PRINTFORML 「我不太擅长玩游戏哦！」
	ENDSELECT
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K14
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「哎呀……知不知道」
ELSEIF RAND:2
	PRINTFORML 「哎呀……饭还没好吗」
ELSE
	PRINTFORML 「哎呀……你有肌肉吗？」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K14, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
CASE "学園での日常"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW 「啊……下雨了。有带伞吗？」
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW 「刚刚好。让我进去吧」
	CASE "内衣選び", "泳装選び"
		PRINTFORMW 「……没有啦、%CNAME("一人称")%是这样说的……」
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;お浴室に一緒に入ろうと誘われた場合
CASE "一緒にお浴室"
	PRINTFORMW
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")
			IF BASE:MASTER:魂 >= 100 && BASE:欲求不満 >= 80 && CFLAG:織吸血フラグ == 0
				PRINTFORML 「啊……已经不行了……」
				PRINTFORMW 　%CALLNAME:TARGET%推倒了%CALLNAME:MASTER%咬了%CALLNAME:MASTER%的脖子。
				PRINTL
				PRINTFORMW 　%CALLNAME:MASTER%与吸血鬼一起陷入了灵魂被夺走的感觉。
				PRINTL
				CFLAG:織吸血フラグ = 1
				CFLAG:織吸血量 += 50
				BASE:MASTER:魂 -= 50
				BASE:魂 += 50
				CALL SETFLAG, "調教外潤滑追加", 3000, TARGET
				PRINTFORML 　%CALLNAME:MASTER%の魂-0.50
				PRINTFORMW 　%CALLNAME:TARGET%の魂+0.50
				TFLAG:床イン = 1

			ELSEIF PLACE("居間")
				PRINTFORMW 「你说要不要一起洗澡？」
				PRINTFORML 「哈哈！当然不愿意吧」
				PRINTFORMW 被%CALLNAME:TARGET%指着鼻子笑了笑。

			ELSEIF PLACE("主人公的房間") || PLACE("織的房間")
				IF TALENT:相思相愛
					PRINTFORML 「嗯……晚安」
					PRINTFORMW 　%CALLNAME:TARGET%像在%CALLNAME:MASTER%上啄食一样，和她进行了睡前接吻。
				ELSE
					PRINTFORMW 「哦，睡吧………」
					PRINTFORMW 「……这不是摆出了一副臭架子吗？」
				ENDIF
			ELSE
				PRINTFORMW 「别胡说了，笨蛋！快还给我回房间！！」
				PRINTFORML 「……真的是对不起」
				PRINTFORMW %CALLNAME:TARGET%一边拖着%CALLNAME:MASTER%离開了%TEXTS("現在位置")%。
			ENDIF
		ELSE
			PRINTFORML 「有要做的事？一起运动吗？…不是那种的运动啦！」
			PRINTFORMW 　%CALLNAME:TARGET%在威胁着%CALLNAME:MASTER%。
		ENDIF

	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORML 「哦？今天已经结束了吗？」
		PRINTFORMW 　%CALLNAME:TARGET%用很大的动作伸展身体。
	;場所移動後
	ELSE
		PRINTFORML 「……」
		PRINTFORMW 　%CALLNAME:TARGET%用复杂的表情看着%CALLNAME:MASTER%。
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんわ
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはよー桑
	ENDIF

	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「哇！？不要突然抱住我！？」
			PRINTFORMW 　%CALLNAME:TARGET%吓得把%CALLNAME:MASTER%踢飞了。

		;易出汗
		ELSEIF COND("易出汗", MASTER)
			PRINTFORML 「住手！汗好恶心啊！」
			PRINTFORMW 　%CALLNAME:TARGET%不快地和%CALLNAME:MASTER%拉開了距离。
			IF COND("易出汗") && COND("夏")
				PRINTFORML 「啊啊啊啊！？好热啊！」
				PRINTFORML 　被%CALLNAME:MASTER%抓住的%CALLNAME:TARGET%在怀里扭动着。
				PRINTFORMW 　好热……。
			ELSE
				PRINTFORML 「至少先把汗擦干吧！！」
				PRINTFORML 　%CALLNAME:TARGET%用抹布擦了%CALLNAME:MASTER%的頭。
				PRINTFORMW 　好臭……。
			ENDIF

		;吸血イベント
		ELSEIF BASE:MASTER:魂 >= 100 && BASE:欲求不満 >= 50 && CFLAG:織吸血フラグ == 0
			IF TALENT:恋慕
				PRINTFORML 　当%CALLNAME:MASTER%拥抱%CALLNAME:TARGET%的时候%CALLNAME:TARGET%把手转到了%CALLNAME:MASTER%的背后。
				PRINTFORML 　被柔软的%CALLNAME:TARGET%的肢体包裹着的话，脖颈里就会隐隐作痛。
				PRINTFORMW 「……啊，对不起。位置上正好有个脖颈」
				PRINTL
				PRINTFORML 　・　・　・
				PRINTFORMW %CALLNAME:MASTER%稍微想一下「我被骗了！」。
				PRINTL
				CFLAG:織吸血フラグ = 1
				CFLAG:織吸血量 += 20
				BASE:MASTER:魂 -= 20
				BASE:魂 += 20
				CALL CALC, "欲求不満解消", TARGET, 20
				CALL SETFLAG, "調教外潤滑追加", 1000, TARGET
				PRINTFORML 　%CALLNAME:MASTER%の魂-0.20
				PRINTFORMW 　%CALLNAME:TARGET%の魂+0.20
			ELSE
				PRINTFORML 「嗯……那个、抱歉！！」
				PRINTFORML 　当%CALLNAME:MASTER%抱住%CALLNAME:TARGET%的时候%CALLNAME:MASTER%的脖子開始剧烈疼痛。
				PRINTFORMW 　看来%CALLNAME:TARGET%在吸%CALLNAME:MASTER%的血。
				PRINTL
				CFLAG:織吸血フラグ = 1
				CFLAG:織吸血量 += 20
				BASE:MASTER:魂 -= 20
				BASE:魂 += 20
				CALL CALC, "欲求不満解消", TARGET, 20
				CALL SETFLAG, "調教外潤滑追加", 1000, TARGET
				PRINTFORML 　%CALLNAME:MASTER%の魂-0.20
				PRINTFORMW 　%CALLNAME:TARGET%の魂+0.20
			ENDIF

		;通常、それ以外
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「是是、%GREETING%」
				PRINTFORMW 　%CALLNAME:TARGET%笑嘻嘻地把拥抱还给了我。
			ELSE
				PRINTFORML 「是是、%GREETING%…真是的，你真是个疯子」
				PRINTFORMW 　%CALLNAME:TARGET%在咯吱咯吱地饶頭。
			ENDIF
		ENDIF

	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:恋慕
				PRINTFORML 「嗯，嗯！？…真是个不好意思的家伙啊」
				PRINTFORMW 　%CALLNAME:TARGET%有点害羞接受了的接吻。
			ELSEIF TALENT:叛逆
				PRINTFORML 「……！？别太当真了……」
				PRINTFORMW 　%CALLNAME:TARGET%的眼睛眼看就要杀了%CALLNAME:MASTER%。
			ELSE
				PRINTFORML 「嗯！？住手吧，这种事！」
				PRINTFORMW 　%CALLNAME:TARGET%斜眼盯着%CALLNAME:MASTER%。
			ENDIF
		ELSE
			;你に先に打招呼をされた
			IF CHECK_SHIRT("女仆装")
				IF TALENT:恋慕
					PRINTFORML 「嗯%CNAME("主人")%、禁止对女仆动手哦？」
					PRINTFORMW 　%CALLNAME:TARGET%有点害羞。
				ELSEIF TALENT:叛逆
					PRINTFORML 「……！？说了也不知道吧？」
					PRINTFORMW 　%CALLNAME:TARGET%狠狠地打了%CALLNAME:MASTER%的頭。
					BASE:MASTER:体力 -= 100
					PRINTL
					PRINTFORMW 　%CALLNAME:MASTER%の体力 -100
				ELSE
					PRINTFORML 「嗯……%CNAME("主人")%真的很喜欢这样吧？」
					PRINTFORMW 　%CALLNAME:TARGET%在咯吱咯吱地饶頭。
				ENDIF
			ELSE
				IF TALENT:恋慕
					PRINTFORML 「嗯……真是的，下次要给我补偿吗？」
					PRINTFORMW 　%CALLNAME:TARGET%有点害羞。
				ELSEIF TALENT:叛逆
					PRINTFORML 「……！？说了也不知道吧？」
					PRINTFORMW 　%CALLNAME:TARGET%狠狠地打了%CALLNAME:MASTER%的頭。
					BASE:MASTER:体力 -= 100
					PRINTL
					PRINTFORMW 　%CALLNAME:MASTER%の体力 -100
				ELSE
					PRINTFORML 「嗯……真是的，疯了」
					PRINTFORMW 　%CALLNAME:TARGET%在咯吱咯吱地饶頭。
				ENDIF
			ENDIF
		ENDIF

	CASE "打招呼口交", "打招呼舐陰"
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:恋慕
				PRINTFORML 「原以为是变态和笨蛋，但却比%CNAME("一人称")%的预想还要变态？」
				PRINTFORMW 　%CALLNAME:TARGET%好像在发呆。
			ELSEIF TALENT:叛逆
				PRINTFORML 「……诶！？变态想干什么！」
				PRINTFORMW 　%CALLNAME:TARGET%狠狠地打了%CALLNAME:MASTER%的頭。
				BASE:MASTER:体力 -= 100
				PRINTFORML
				PRINTFORMW 　%CALLNAME:MASTER%の体力 -100
			ELSE
				PRINTFORML 「哦，欢迎！？混蛋！！」
				PRINTFORMW 　%CALLNAME:TARGET%按着%CALLNAME:MASTER%的頭制止着。
			ENDIF

		ELSE
			IF TALENT:恋慕
				PRINTFORML 「……啊，真是的！随你的便！！」
				PRINTFORMW %CALLNAME:TARGET%红着脸张開了两腿。
			ELSEIF TALENT:叛逆
				PRINTFORML 「……诶！？真是个搞不懂的家伙啊！！」
				PRINTFORMW 　%CALLNAME:TARGET%把%CALLNAME:MASTER%借着吸血鬼的怪力，狠狠地揍了一顿
				BASE:MASTER:体力 -= 300
				PRINTFORML
				PRINTFORMW 　%CALLNAME:MASTER%の体力 -300
			ELSE
				PRINTFORML 「不要那样说！！」
				PRINTFORMW 　%CALLNAME:TARGET%扭了腰，痒痒的。
			ENDIF
		ENDIF

	CASEELSE
		IF CFLAG:打招呼した == 0
			IF TALENT:恋慕
				PRINTFORML 「是是、%GREETING%」
				PRINTFORMW 　%CALLNAME:TARGET%笑嘻嘻地回了招呼。
			ELSE
				PRINTFORML 「ふぁ……%GREETING%」
				PRINTFORMW 　%CALLNAME:TARGET%像是在睡眠中打哈欠。
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「是是、%GREETING%」
				PRINTFORMW 　%CALLNAME:TARGET%笑嘻嘻地回了招呼。
			ELSE
				PRINTFORML 「是是、%GREETING%…真是的，你真是个疯子」
				PRINTFORMW 　%CALLNAME:TARGET%在咯吱咯吱地饶頭。
			ENDIF

		ENDIF
	ENDSELECT

CASE "叫醒"
	PRINTFORML 「嗯……啊哈哈」
	PRINTFORMW 　%CALLNAME:TARGET%困倦地打哈欠。

;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K14, %ARGS%
	[ENDIF]
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW 「已经结束了！结束了就别装傻吧！！！」
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW 「啊—啊—啊中……」
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW 「啊—凉快」

CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF CHECK_SHIRT("女仆装")
			IF TALENT:恋慕
				PRINTFORML 「你觉得我像女仆吧？……把活交给我吧。」
				PRINTFORMW 　%CALLNAME:TARGET%那样说的话，做出了一个连我不能都做不到的姿势。
			ELSE
				PRINTFORML 「%CNAME("二人称", "どもり")%只是喜欢女仆装而已！」
				PRINTFORMW 　那样说%CALLNAME:TARGET%的脸颊微微一动。
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「不要说这么丢脸的话！」
				PRINTFORMW 　%CALLNAME:TARGET%は红着脸いる。
			ELSE
				PRINTFORML 「什么啊，突然这样……」
				PRINTFORMW 　%CALLNAME:TARGET%的脸颊微微一动。
			ENDIF
		ENDIF

	CASE "甜言蜜语"
		IF CHECK_SHIRT("女仆装")
			IF TALENT:恋慕
				PRINTFORML 「%CNAME("主人")%真的很喜欢女仆装吧？」
				PRINTFORMW 　%CALLNAME:TARGET%本想装模作样的，可是脸却是通红的。
			ELSEIF CALCF("甜言蜜语成功")
				PRINTFORML 「%CNAME("主人", "どもり")%？老是说那种话的话会揍你的哦？」
				PRINTFORMW 　%CALLNAME:TARGET%红着脸声音颤抖着说。
			ELSE
				PRINTFORML 「哈？只是想看女仆装的色鬼而已吗？」
				PRINTFORMW 　%CALLNAME:TARGET%斜眼看了%CALLNAME:MASTER%。
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORML 「嗯……什、什么啊」
				PRINTFORMW 　%CALLNAME:TARGET%背过脸，耳朵都红了。
			ELSEIF CALCF("甜言蜜语成功")
				PRINTFORML 「对%CNAME("一人称", "どもり")%说那种话会開心吗……？」
				PRINTFORMW 　%CALLNAME:TARGET%は红着脸いる。
			ELSE
				PRINTFORMW 「哈？别跟别人说了」
			ENDIF
		ENDIF

	CASEELSE
		IF CHECK_SHIRT("女仆装")
			SELECTCASE RAND:4
			CASE 0
				IF BASE:MASTER:魂 >= 100 && BASE:欲求不満 >= 50 && CFLAG:織吸血フラグ == 0
					PRINTFORML 「啊……那个、%CNAME("主人")%？」
					PRINTFORML 　%CALLNAME:TARGET%的视线看到了%CALLNAME:MASTER%的脖颈。
					PRINTFORMW 　%CALLNAME:MASTER%伸出肩膀%CALLNAME:TARGET%静静地咬着%CALLNAME:MASTER%的脖子。
					PRINTL
					CFLAG:織吸血フラグ = 1
					CFLAG:織吸血量 += 20
					BASE:MASTER:魂 -= 20
					BASE:魂 += 20
					CALL CALC, "欲求不満解消", TARGET, 20
					CALL SETFLAG, "調教外潤滑追加", 1000, TARGET
					PRINTFORML 　%CALLNAME:MASTER%の魂-0.20
					PRINTFORMW 　%CALLNAME:TARGET%の魂+0.20
				ELSE
					PRINTFORML 「唔咽……不，没什么」
					PRINTFORMW 　%CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖颈。
				ENDIF
			CASE 1
				PRINTFORML 「女仆装打扮起来很容易移动啊」
				PRINTFORMW 　%CALLNAME:TARGET%当场转了一圈。
			CASE 2
				PRINTFORML 「有女仆味的事……？%TEXTR("蛋包饭上的心形标记/一起拍拍立得/是，啊")%之类的？」
				PRINTFORMW 　%CALLNAME:MASTER%觉得这是女仆咖啡馆？
				IF FIND_COND("弗理希艾尔", "現在存在")
					PRINTFORML 「啊……这不是我故意要嘲讽女仆的理由！？」
					PRINTFORMW 　%CALLNAME:TARGET%は弗理希艾尔にペコペコと弁明を始めた。
				ENDIF
			CASEELSE
				PRINTFORML 「拜托其他的女生的话弗理希艾尔桑会闹别扭的吧？」
				PRINTFORMW 　%CALLNAME:TARGET%对%CALLNAME:MASTER%说了。
				IF FIND_COND("弗理希艾尔", "現在存在")
					PRINTFORML 　しかし不意に視線を感じ後ろを振り向くとそこには弗理希艾尔が笑顔で立っていた。
					PRINTFORMW 「あ啊，不，那个……没什么。」
				ENDIF
			ENDSELECT

		ELSE
			SELECTCASE RAND:7
			CASE 0
				IF COND("昼")
					PRINTFORML 「变成了吸血鬼，白天会犯困……」
					PRINTFORMW 　%CALLNAME:TARGET%の眼睛快闭上的。
				ELSE
					PRINTFORML 「啊……口渴」
					PRINTFORMW 　这样说着，%CALLNAME:TARGET%一口气喝干了茶。
				ENDIF
			CASE 1
				IF BASE:MASTER:魂 >= 100 && BASE:欲求不満 >= 50 && CFLAG:織吸血フラグ == 0
					PRINTFORML 「唔咽……那个，抱歉！」
					PRINTFORML 　%CALLNAME:TARGET%抱住%CALLNAME:MASTER%咬着脖子。
					PRINTFORMW 　看来%CALLNAME:TARGET%在吸%CALLNAME:MASTER%的血。
					PRINTL
					CFLAG:織吸血フラグ = 1
					CFLAG:織吸血量 += 20
					BASE:MASTER:魂 -= 20
					BASE:魂 += 20
					CALL CALC, "欲求不満解消", TARGET, 20
					CALL SETFLAG, "調教外潤滑追加", 1000, TARGET
					PRINTFORML 　%CALLNAME:MASTER%の魂-0.20
					PRINTFORMW 　%CALLNAME:TARGET%の魂+0.20
				ELSE
					PRINTFORML 「唔咽……不，没什么」
					PRINTFORMW 　%CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖颈。
				ENDIF
			CASE 2
				IF COND("夜")
					PRINTFORML 「晚上去散步吧……？」
					PRINTFORML 　%CALLNAME:TARGET%就在这深更半夜里一个人出門。
					PRINTFORMW 　%CALLNAME:MASTER%设法阻止了%CALLNAME:TARGET%。
				ELSE
					PRINTFORML 「今天阳光有点刺眼……」
					PRINTFORMW 　为了寻求影子，%CALLNAME:TARGET%把身体躲在%CALLNAME:MASTER%身后。
				ENDIF
			CASE 3
				PRINTFORML 「虽然我很感谢%CNAME("二人称")%他们……的」
				PRINTFORMW 　%CALLNAME:TARGET%的表情有点复杂。
			CASE 4
				PRINTFORML 「来了这个房间也有点心啊」
				PRINTFORMW 　%CALLNAME:TARGET%毫不客气地吃着点心。
			CASE 5
				PRINTFORML 「……哈？啊，最近班上的男生都有点烦啊」
				PRINTFORMW 　%CALLNAME:TARGET%吐出了一声叹息。
				IF TALENT:恋慕
					PRINTFORMW 「……除了%CNAME("二人称")%以外，别碰我」
				ENDIF
			CASEELSE
				PRINTFORML 「啊啊……困死了」
				PRINTFORMW 　%CALLNAME:TARGET%困倦地打哈欠。
			ENDSELECT
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORML 「那么，我自己来擦吧！」
	PRINTFORMW 　%CALLNAME:TARGET%从%CALLNAME:MASTER%那里夺取了毛巾。

CASE "淋浴独り言"
	PRINTFORML 「～♪　～～♪」
	PRINTFORMW 沐浴在淋雨中的%CALLNAME:TARGET%唱出了%TEXTR("令人怀念的英雄歌曲/热血机器人战斗曲/有名的摇滚歌曲")%。
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K14
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF TALENT:叛逆
			PRINTFORML 「……我要打爆你的頭！」
			PRINTFORMW %CALLNAME:TARGET%眼看就要揍%CALLNAME:MASTER%
		ELSE
			PRINTFORML 「……%CNAME("二人称")%真的是让人没办法的家伙吗？」
			PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:MASTER%的行动感到惊讶。。
		ENDIF
	CASE "按摩"
		PRINTFORML 「嗯……我想起了之前参加社团活动的时候」
		PRINTFORMW %CALLNAME:TARGET%有点无精打采。
	CASE "接吻"
		IF TALENT:恋慕
			IF CSTR:PREV_DAILYCOM == STR:日常イベント名
				PRINTFORML 「嗯……会咬住舌頭的哦？」
				PRINTFORMW 　%CALLNAME:TARGET%这么一说就把舌頭缠在了一起。
			ELSE
				PRINTFORML 「嗯……普通」
				PRINTFORMW 　接吻后%CALLNAME:TARGET%把手转到了%CALLNAME:MASTER%的脖子上。
			ENDIF
		ELSEIF TALENT:叛逆
			IF CSTR:PREV_DAILYCOM == STR:日常イベント名
				PRINTFORML 「！？别開玩笑了！」
				PRINTFORMW 　%CALLNAME:TARGET%狠狠地揍了一顿。
				BASE:MASTER:体力 -= 50
				PRINTFORML
				PRINTFORMW 　%CALLNAME:MASTER%の体力 -50
			ELSE
				PRINTFORML 「……嘿！哼！」
				PRINTFORMW 　%CALLNAME:TARGET%从%CALLNAME:MASTER%身上转过身去。
			ENDIF
		ELSE
			IF CSTR:PREV_DAILYCOM == STR:日常イベント名
				PRINTFORML 「……色鬼！」
				PRINTFORMW 　%CALLNAME:TARGET%斜眼看着%CALLNAME:MASTER%在这里睡着。
			ELSE
				PRINTFORML 「嗯……和%CNAME("一人称")%接吻有什么開心的？」
				PRINTFORMW 　%CALLNAME:TARGET%一脸不服的样子。。
			ENDIF
		ENDIF
	CASE "膝枕"
		PRINTFORML 「男人的枕膝……算了，我正好困了」
		PRINTFORMW 　%CALLNAME:TARGET%開始在%CALLNAME:MASTER%的膝盖上昏昏欲睡。
	CASE "泡茶"
		PRINTFORMW 「哦，谢谢你」
	CASE "勸酒"
		PRINTFORMW
	CASE "摸頭"
		PRINTFORMW
	CASEELSE
		PRINTFORMW 「嗯？谢谢你」
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K14
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "推倒"
		PRINTFORMW 「我会忍不住要咬你哦？」
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "口淫"
		IF TALENT:恋慕
			PRINTFORML 「嗯，知道了……」
			PRINTFORMW 　%CALLNAME:TARGET%可爱地吮吸着%CALLNAME:MASTER%的东西。
		ELSE
			PRINTFORML 「嗯，知道了……什么啊？为了早日恢复原状」
			PRINTFORMW 　%CALLNAME:TARGET%在杂乱地吮吸着%CALLNAME:MASTER%的东西。
		ENDIF
	CASE "亲脸頬", "接吻"
		IF TALENT:恋慕
			PRINTFORML 「有破绽！」
			PRINTFORMW 　爱怜地将嘴唇重叠在%CALLNAME:MASTER%的唇上。
		ELSE
			PRINTFORML 「嗯……啊！？只是想要血而已！」
			PRINTFORMW 　%CALLNAME:TARGET%轻吻了%CALLNAME:MASTER%。
		ENDIF

	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW 「……ほらよ%SAVESTR:茶%だぜ」
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW 「一緒に游戏でもするか？」
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「呼…………」
		ELSE
			PRINTFORMW 「呼…………」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「嗯……我要失陪一下」
	ENDIF
CASE "廁所詮索"
	PRINTFORML 「……你在意%CNAME("一人称")%是不是进了厕所？」
	PRINTFORMW 　%CALLNAME:TARGET%用讨厌的眼神。
	PRINTFORML
	CFLAG:好感度 = CFLAG:好感度 - 15
	PRINTFORMW 　好感度 -15

;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT

CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K14
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		;拒否されたのに連続実行
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORML 「……哼！」
			PRINTFORMW 　%CALLNAME:MASTER%被狠狠地揍飞了。
			BASE:MASTER:体力 -= 100
			PRINTFORML
			PRINTFORMW 　%CALLNAME:MASTER%の体力 -100
		ELSE
			PRINTFORMW 「别開玩笑了？」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORML 「啊，不要做太奇怪的事啊？」
			PRINTFORMW 　%CALLNAME:TARGET%痒痒的。
		ELSEIF TALENT:叛逆
			PRINTFORML 「哈……为什么%CNAME("一人称")%必须依赖这样的人呢」
			PRINTFORMW 　%CALLNAME:TARGET%显然很沮丧。
		ELSE
			PRINTFORML 「哇，你不是笨蛋吗！？」
			PRINTFORMW 　%CALLNAME:TARGET%扭曲着身体做着最后的抵抗。
		ENDIF
	ENDIF

CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K14
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K14, %ARGS%：合意没有
		[ENDIF]
	ELSE
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:恋慕
				PRINTFORML 「%PANTIES(TARGET, "胖次")%見せてくれって你……」
				PRINTFORML 「……没办法啊」
				PRINTFORMW 「不要拜托其他的女生哦？」
			ELSE
				PRINTFORML 「ハァ！？　%PANTIES(TARGET, "胖次")%見せてくれだぁ！？　……ふざけやがって」
				PRINTFORML 「说这话的是对别的女生……不能说啊」
				PRINTFORMW 「……啊，没办法啊。如果抓住了%CNAME("二人称")%，%CNAME("一人称")%就回不来了」
			ENDIF
		ELSE
			;連続実行
			IF CSTR:PREV_DAILYCOM == STR:日常イベント名
				PRINTFORML 「……啊，随你的便吧」
				PRINTFORMW 　%CALLNAME:TARGET%用怜悯的眼光看着%CALLNAME:MASTER%。
			ELSE
				IF TALENT:恋慕
					PRINTFORML 「%PANTIES(TARGET, "胖次")%？　仕方ねーなぁ」
					PRINTFORMW 　%CALLNAME:TARGET%渐渐露出了下半身。
				ELSE
					PRINTFORML 「%CNAME("二人称")%……真没节操啊」
					PRINTFORMW 　%CALLNAME:TARGET%露出了自己的身体。
				ENDIF
			ENDIF
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K14
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		PRINTFORMW 「%CNAME("二人称")%……不仅仅是性犯罪者……」
	ELSE
		PRINTFORMW 「嗯……？什么啊，等我慢慢看了之后？休想」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF CHECK_PANTIES("男物")
				PRINTFORML 「那个视线……我完全知道你想看什么，但是不巧今天没有穿可爱的衣服哦？」
				PRINTFORMW %CALLNAME:TARGET%啪嗒啪嗒地把裙子弄到手。
			ELSE
				PRINTFORML 「那个视线……我完全知道你想看什么」
				PRINTFORMW %CALLNAME:TARGET%的脸被羞耻心染红，同时也把裙子撩起。
			ENDIF

		ELSEIF TALENT:恋慕
			IF CHECK_PANTIES("男物")
				PRINTFORML 「什么啊？那么想看吗？但是%TEXTR("就是这个/真遗憾啊")%？」
				PRINTFORMW %CALLNAME:TARGET%是%TEXTR("快乐地/一边笑/開朗地")%吧嗒吧嗒地翻着裙子。
			ELSE
				PRINTFORML 「什么啊？那么想看吗？真是个笨蛋啊」
				PRINTFORMW %CALLNAME:TARGET%稍微染了一点在脸上%TEXTR("羞耻心/害羞")%。
			ENDIF
		ELSE
			IF CHECK_PANTIES("男物")
				PRINTFORML 「哈哈哈，%TEXTR("今天是这家伙/真遗憾啊")%」
				PRINTFORMW %CALLNAME:TARGET%把%PANTIES(TARGET, "略")%真的给人看了。
			ELSE
				PRINTFORML 「……你不能把那个热情转向其他地方吗？」
				PRINTFORMW %CALLNAME:TARGET%用惊讶的表情让我看到了%PANTIES(TARGET, "略")%，直到%CALLNAME:MASTER%满足为止。
			ENDIF
		ENDIF

	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORML 「%TEXTR("嗯，嗯/软绵绵/ZZzz")%……%TEXTR("快住手！/在那边哦/好困啊")%、%TEXTR("变态/笨蛋/白痴")%」
			PRINTFORMW %CALLNAME:TARGET%虽然很困，但还是振臂恐吓着%CALLNAME:MASTER%。

		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K14
			WAIT

		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			IF CHECK_PANTIES("男物")
				PRINTFORML 「………%CNAME("二人称")%总是做这种事吗？但是很遗憾啊？」
				PRINTL
				;裙の下から現れた胖次解説用地の文を呼び出す
				CALL TEXT_PANTU_CHECK_SKIRT
				PRINTFORMW 但是因为%CALLNAME:TARGET%大踏步地坐着，从仅有的缝隙中似乎能看到重要的部分。
			ELSE
				PRINTFORML 「……%CNAME("二人称")%总是做这种事吗？普通的垃圾……」
				PRINTFORMW %CALLNAME:TARGET%用看到可怜生物的眼睛看着%CALLNAME:MASTER%。
			ENDIF

		ELSE
			IF COND("打招呼前")
				PRINTFORML 「……在打招呼前做的事就是那样啊」
				PRINTFORMW 　%CALLNAME:TARGET%是一张目瞪口呆的脸。
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					IF TALENT:恋慕
						PRINTFORML 「啊……今天不停下来吗……？啊，啊……」
						PRINTFORMW 被%CALLNAME:MASTER%逼迫的%CALLNAME:TARGET%红着脸停止了抵抗。
					ELSEIF TALENT:叛逆
						PRINTFORML 「什、干什么！？住手！哇！？」
						PRINTFORMW 当%CALLNAME:MASTER%卷着裙子的时候，%CALLNAME:TARGET%进行了激烈的抵抗。
						PRINTFORML
						BASE:MASTER:体力 -= 100
						PRINTFORMW 　%CALLNAME:MASTER%の体力 -100
					ELSE
						PRINTFORML 「什么、干什么！？住手！哇！？」
						PRINTFORMW %CALLNAME:MASTER%强行卷了讨厌的%CALLNAME:TARGET%的裙子。
					ENDIF
				;男物
				ELSEIF CHECK_PANTIES("男物")
					IF TALENT:恋慕
						PRINTFORML 「什么啊？那么想看吗？但是%TEXTR("就是这个/真遗憾啊")%？」
						PRINTL
						CALL TEXT_PANTU_CHECK_SKIRT
						PRINTFORMW 但是因为%CALLNAME:TARGET%大踏步地坐着，从仅有的缝隙中似乎能看到重要的部分。
					ELSE
						PRINTFORML 「哈哈好遗憾啊！没有穿%CNAME("二人称")%期待的胖次哦！」
						PRINTL
						CALL TEXT_PANTU_CHECK_SKIRT
						PRINTFORMW 但是因为%CALLNAME:TARGET%大踏步地坐着，从仅有的缝隙中似乎能看到重要的部分。
					ENDIF
				ELSE
					IF TALENT:恋慕
						PRINTFORML 「真是的……真是没办法的家伙啊？」
						PRINTFORMW %CALLNAME:TARGET%卷起一点点的裙子诱惑着%CALLNAME:MASTER%。
					ELSEIF TALENT:叛逆
						PRINTFORML 「「……%CNAME("一人称")%强烈地后悔必须依靠%CNAME("二人称")%」
						PRINTFORMW %CALLNAME:TARGET%用眼睛看着可怜的生物。
					ELSE
						PRINTFORML 「……说想看女孩子胖次的男人的下面明白……虽然明白，但是%CNAME("二人称")%太过直白」
						PRINTFORMW %CALLNAME:TARGET%用惊讶的表情卷着裙子给人看。
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
ENDSELECT

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K14, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	[IF_DEBUG]
		PRINTFORMW KOJO_DATE_K14, %ARGS%
	[ENDIF]
CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	[IF_DEBUG]
		PRINTFORMW KOJO_DATE_K14, %ARGS%
	[ENDIF]
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K14, %ARGS%(同居していない)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K14, %ARGS%(同居中)
		[ENDIF]
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW
	CASE "散歩"
		PRINTFORMW
	CASE "尋訪美食"
		PRINTFORMW
	CASE "逛街"
		PRINTFORMW
	CASE "去水族馆"
		PRINTFORMW
	CASE "去游乐园"
		PRINTFORMW
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "手をつなぐ"
	PRINTFORMW
CASE "手をつながない"
	PRINTFORMW
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K14, %ARGS%(恋慕)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K14, %ARGS%
		[ENDIF]
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/14 シキ/EVENT_K14_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K14_ADDSELECT
;吸血イベント
STR:選択肢 += "血を分ける/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K14_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "血を分ける"
	PRINTFORMW %CALLNAME:MASTER%向%CALLNAME:TARGET%一样松開了领口。
	PRINTL

	;本日吸血済み
	IF CFLAG:織吸血フラグ == 1
		IF CFLAG:織吸血量 < 100
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「今天已经好了！」
			CASE 1
				PRINTFORML 「哼……・・・不，没什么」
			CASEELSE
				PRINTFORML 「不，没関系，・・・真没関系。」
			ENDSELECT
		ELSEIF CFLAG:織吸血量 < 300
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「今天已经没事了……」
			CASE 1
				PRINTFORML 「够了……喂，你知道节制吗？」
			CASEELSE
				PRINTFORML 「不，喝得那么多…！」
			ENDSELECT
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「今天已经喝够了！不要诱惑我！」
			CASE 1
				PRINTFORML 「呼……・・・不要太诱惑我了吧？」
			CASEELSE
				PRINTFORML 「嗯~什么？你还想再吸吗？」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不，我不喝那么多」
			CASE 1
				PRINTFORML 「呼……不，喝多了的话，你作为人类会出问题的。」
			CASEELSE
				PRINTFORML 「今天已经喝了，没関系。」
			ENDSELECT
		ENDIF
		PRINTFORMW 今天血已经够了。

	;吸血を断った日
	ELSEIF CFLAG:織吸血フラグ == 2
		;吸血をした事がない
		IF CFLAG:織吸血量 == 0
			PRINTFORML 「不、不……所以说没什么好的！」
			PRINTFORMW 织为了摆脱诱惑，用力挥着手拒绝了。。
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。

		;レアパターン・断ったけど血を飲む
		ELSEIF RAND:64 == 0 && BASE:MASTER:魂 >= 20
			PRINTFORML 「・・・那么想让我吸吗？」
			PRINTFORMW %CALLNAME:TARGET%像是认了似的叹了一口气。
			PRINTL
			;恋慕
			IF TALENT:恋慕
				PRINTFORML 「・・恩」
				PRINTFORML %CALLNAME:TARGET%把脸靠近%CALLNAME:MASTER%就这样和%CALLNAME:MASTER%接吻了。
				PRINTFORMW 一阵刺痛。看来嘴唇受了点儿伤。
				PRINTL
				PRINTFORMW 「恩・・・呼・・・佳肴桑！」
				PRINTL
				PRINTFORML 　%CALLNAME:MASTER%の魂-0.01
				PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。01

				CFLAG:織吸血フラグ = 1
				CFLAG:織吸血量 += 1
				BASE:MASTER:魂 -= 1
				BASE:魂 += 1
			ELSE
				PRINTFORML 「・・・那我就要一点吧」
				PRINTFORML %CALLNAME:TARGET%拿起%CALLNAME:MASTER%的手，咬到了手的边缘。
				PRINTFORMW 突然一阵剧痛，%CALLNAME:TARGET%从%CALLNAME:MASTER%的手中開始吸血。
				PRINTL
				PRINTFORML 　%CALLNAME:MASTER%の魂-0.01
				PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。01

				CFLAG:織吸血フラグ = 1
				CFLAG:織吸血量 += 1
				BASE:MASTER:魂 -= 1
				BASE:魂 += 1
			ENDIF

		ELSEIF CFLAG:織吸血量 < 100
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「没関系的！」
			CASE 1
				PRINTFORML 「哼……・・・不，没什么」
			CASEELSE
				PRINTFORML 「不，没関系，・・・真没関系。」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。
		ELSEIF CFLAG:織吸血量 < 300
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「那个，没関系……」
			CASE 1
				PRINTFORML 「够了……喂，你知道节制吗？」
			CASEELSE
				PRINTFORML 「不，现在就喝吧…！」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。
		ELSEIF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不，现在说好的……」
			CASE 1
				PRINTFORML 「嗯～・・不要太诱惑我了？」
			CASEELSE
				PRINTFORML 「现在没有那种必要的感觉」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不，没関系」
			CASE 1
				PRINTFORML 「嗯……不，喝多了的话，作为人类会出问题的。」
			CASEELSE
				PRINTFORML 「现在没関系」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。
		ENDIF

	;初めて
	ELSEIF CFLAG:織吸血量 == 0
		PRINTFORML 「・・・什、什么啊」
		PRINTFORML %CALLNAME:TARGET%困惑地凝视着%CALLNAME:MASTER%的脖子，喉咙呼噜呼噜地响。。
		PRINTFORMW 当%CALLNAME:MASTER%得到许可后，%CALLNAME:TARGET%战战兢兢地靠近他。。
		PRINTL

		;魂が1.00以上ある
		IF BASE:MASTER:魂 >= 100
			PRINTFORML 「哈哈……」
			PRINTFORML %CALLNAME:TARGET%把牙竖在了%CALLNAME:MASTER%的脖颈上。
			PRINTFORMW 当感觉到隐隐作痛的时候，%CALLNAME:MASTER%陷入了接下来会被夺走什么的感觉。
			PRINTL
			PRINTFORML 「噗…！嗯，谢谢」
			PRINTFORML 但是下一个瞬间，%CALLNAME:TARGET%就从脖子里脱口而出了。
			PRINTFORMW 我觉得那样的话一口也不能吸血。。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.01
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。01

			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 1
			BASE:MASTER:魂 -= 1
			BASE:魂 += 1

		;魂が足りない
		ELSE
			PRINTFORML 「・・・果然很好！没関系！」
			PRINTFORML %CALLNAME:TARGET%的舌尖稍微碰了一下，马上就出口了。。
			PRINTFORMW 好像在快要開始的时候害怕起来了。。
			CFLAG:織吸血フラグ = 2
		ENDIF

	;吸血慣れてない
	ELSEIF CFLAG:織吸血量 <= 30
		;お断り
		IF BASE:MASTER:魂 < 100 || BASE:欲求不満 < 50
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不，不，不用了！」
			CASE 1
				PRINTFORML 「能喝吗？・・・嗯，不行！」
			CASEELSE
				PRINTFORML 「但是，没関系……」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。
			CFLAG:織吸血フラグ = 2

		;我慢できない
		ELSEIF BASE:欲求不満 >= 80
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("嗯/啊！/嗯")%・・・%TEXTR("嗯啊！/嗯啊！/啊！啊！")%・・・」
			CASE 1
				PRINTFORML 「但是，不能忍耐……」
			CASEELSE
				PRINTFORML 「・・・」
			ENDSELECT
			PRINTFORML %CALLNAME:TARGET%带着空虚的表情咬着%CALLNAME:MASTER%的肩膀。
			PRINTFORMW 于是%CALLNAME:TARGET%開始吸血，喉咙都要呼噜呼噜地响了。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.35
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。35
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 35
			BASE:MASTER:魂 -= 35
			BASE:魂 += 35
			CALL CALC, "欲求不満解消", TARGET, 25
			CALL SETFLAG, "調教外潤滑追加", 1000, TARGET

		;飲む
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「那就稍微…」
			CASE 1
				PRINTFORML 「啊，口渴止住了……」
			CASEELSE
				PRINTFORML 「对不起，我要吸了。」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%战战兢兢地咬着%CALLNAME:MASTER%的脖子。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.02
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。02
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 2
			BASE:MASTER:魂 -= 2
			BASE:魂 += 2
			CALL CALC, "欲求不満解消", TARGET, 5
		ENDIF

	;それなりに慣れてくる
	ELSEIF CFLAG:織吸血量 <= 100
		;お断り
		IF BASE:MASTER:魂 < 100 || BASE:欲求不満 < 40
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「不，没関系…大概」
			CASE 1
				PRINTFORML 「今天不怎么渴，没関系。」
			CASEELSE
				PRINTFORML 「嗯……现在就不客气了」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%看到了%CALLNAME:MASTER%的脖子，但好像还是吸血冲动的自制力很强。
			CFLAG:織吸血フラグ = 2

		;我慢できない
		ELSEIF BASE:欲求不満 >= 85
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("嗯/啊！/嗯")%・・・%TEXTR("嗯啊！/嗯啊！/啊！啊！")%・・・」
			CASE 1
				PRINTFORML 「%TEXTR("好香/嗯")%・・・啊，口渴了……」
			CASEELSE
				PRINTFORML 「・・・%TEXTR("对不起/对不起~")%」
			ENDSELECT
			PRINTFORML %CALLNAME:TARGET%是%TEXTR("像肉食动物一样/像饿了的野兽一样/安全的")%用表情咬住了%CALLNAME:MASTER%的肩膀。
			PRINTFORMW %CALLNAME:TARGET%開始吸血，喉咙呼噜呼噜地响。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.30
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。30
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 30
			BASE:MASTER:魂 -= 30
			BASE:魂 += 30
			CALL CALC, "欲求不満解消", TARGET, 25
			CALL SETFLAG, "調教外潤滑追加", 1000, TARGET

		;飲む
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「对不起，%TEXTR("有点想要。/喉咙有点渴。")%」
			CASE 1
				PRINTFORML 「那么……%TEXTR("一点点/有点")%只是……」
			CASEELSE
				PRINTFORML 「・・啊，谢谢」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%在悄然的%CALLNAME:MASTER%的脖子上咬了一口。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.03
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。03
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 3
			BASE:MASTER:魂 -= 3
			BASE:魂 += 3
			CALL CALC, "欲求不満解消", TARGET, 5
		ENDIF

	;吸血日常化
	ELSEIF CFLAG:織吸血量 <= 300
		;お断り
		IF BASE:MASTER:魂 < 100 || BASE:欲求不満 < 30
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("嗯/啊！")%・・・今天是%TEXTR("没関系啊/没関系")%」
			CASE 1
				PRINTFORML 「不，今天不怎么渴啊」
			CASEELSE
				PRINTFORML 「%TEXTR("嗯，嗯/啊！")%现在就不客气了」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%的脖颈露出来%TEXTR("一闪/一点点")%看上去，吸血冲动的自制还很有效。。
			CFLAG:織吸血フラグ = 2

		;我慢できない
		ELSEIF BASE:欲求不満 >= 90
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("手臂/啊啊！/嗯啊")%・・・%TEXTR("抱歉/对不起")%」
			CASE 1
				PRINTFORML 「%TEXTR("好香/嗯")%・・・抱歉，口渴了」
			CASEELSE
				PRINTFORML 「・・・%TEXTR("对不起/对不起/谢谢你")%」
			ENDSELECT
			PRINTFORML %CALLNAME:TARGET%是%TEXTR("像肉食动物一样/像饿了的野兽一样/安全的")%用表情咬住了%CALLNAME:MASTER%的肩膀。
			PRINTFORMW %CALLNAME:TARGET%開始吸血，喉咙呼噜呼噜地响。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.25
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。25
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 25
			BASE:MASTER:魂 -= 25
			BASE:魂 += 25
			CALL CALC, "欲求不満解消", TARGET, 20
			CALL SETFLAG, "調教外潤滑追加", 1000, TARGET

		;飲む
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("嗯/嗯，嗯/啊！")%・・・%TEXTR("那我就收下了。/失礼了")%」
			CASE 1
				PRINTFORML 「%TEXTR("哎呀！/嗯~")%在口渴之前%TEXTR("要喝吗？/让我吸吧。")%」
			CASEELSE
				PRINTFORML 「不好……%TEXTR("总是麻烦你/我会感谢你的。")%」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%咬了%CALLNAME:MASTER%的脖子。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.04
			PRINTFORMW 　%CALLNAME:TARGET%之魂+0.。04
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 4
			BASE:MASTER:魂 -= 4
			BASE:魂 += 4
			CALL CALC, "欲求不満解消", TARGET, 5
		ENDIF

	;恋慕・相思相愛
	;ELSEIF TALENT:恋慕

	;吸血に遠慮がなくなる
	ELSE
		;お断り
		IF BASE:MASTER:魂 < 100 || BASE:欲求不満 < 40
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「今天是%TEXTR("没関系啊/没関系")%」
			CASE 1
				PRINTFORML 「不，今天不怎么渴%TEXTR("啊/哟！/哟！")%」
			CASEELSE
				PRINTFORML 「%TEXTR("嗯，嗯/啊！")%现在就不客气了」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%的脖颈露出来%TEXTR("一闪/一点点")%看上去，吸血冲动的自制还很有效。。
			CFLAG:織吸血フラグ = 2

		;我慢できない
		ELSEIF BASE:欲求不満 >= 95
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「%TEXTR("抱歉/对不起")%、口渴了……」
			CASE 1
				PRINTFORML 「%TEXTR("呜呜/唔咽")%・・・%TEXTR("抱歉/对不起")%、%TEXTR("嗓子哑了/口渴/界限，界限")%・・・」
			CASEELSE
				PRINTFORML 「・・・%TEXTR("对不起/对不起/谢谢你")%」
			ENDSELECT
			PRINTFORML %CALLNAME:TARGET%是%TEXTR("像肉食动物一样/像饿了的野兽一样/安全的")%用表情咬住了%CALLNAME:MASTER%的肩膀。
			PRINTFORMW %CALLNAME:TARGET%開始吸血，喉咙呼噜呼噜地响。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.20
			PRINTFORMW 　%CALLNAME:TARGET%の魂+0.20
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 20
			BASE:MASTER:魂 -= 20
			BASE:魂 += 20
			CALL CALC, "欲求不満解消", TARGET, 20
			CALL SETFLAG, "調教外潤滑追加", 1000, TARGET

		;飲む
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 「そうだな、今のうちに%TEXTR("吸一口/补给一下/让我喝")%おくか」
			CASE 1
				PRINTFORML 「%TEXTR("抱歉/对不起")%、在口渴之前%TEXTR("让我喝一口/让我")%」
			CASEELSE
				PRINTFORML 「悪いな、%TEXTR("いつも/いつもいつも/有がとう")%」「不好意思啊，%TEXTR("总是/经常/谢谢你")%」「不好意思啊，%TEXTR("总是/经常/谢谢你")%」
			ENDSELECT
			PRINTFORMW %CALLNAME:TARGET%就是这样%CALLNAME:MASTER%的脖子上咬了一口。。
			PRINTL
			PRINTFORML 　%CALLNAME:MASTER%の魂-0.05
			PRINTFORMW 　%CALLNAME:TARGET%の魂+0.05
			CFLAG:織吸血フラグ = 1
			CFLAG:織吸血量 += 5
			BASE:MASTER:魂 -= 5
			BASE:魂 += 5
			CALL CALC, "欲求不満解消", TARGET, 5
		ENDIF

	ENDIF

ENDSELECT

path: ERB/EVENT_K/14 シキ/EVENT_K14_SELECT.ERB

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		IF MARK:屈服刻印 <= 1
			PRINTFORMW 「拜托了～？啊，没办法啊」
		ELSEIF MARK:屈服刻印 == 2
			PRINTFORMW 「是什么啊？」
		ELSEIF MARK:屈服刻印 == 3
			PRINTFORMW 「可以依赖我吗？」
		ENDIF
	ENDIF

CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORML 「啊……」
		PRINTFORMW 　%CALLNAME:TARGET%红着脸低着頭。
		PRINTFORML
		PRINTFORML 「%CNAME("二人称")%是……真是个笨蛋……」
		PRINTFORML 　%CALLNAME:TARGET%决定了要抬起那通红的脸。
		PRINTFORMW 　那眼眸中承认了泪水，眼看就要流出了。
		PRINTFORML
		PRINTFORML 「如果被说了那样的话……已经回不到男人的程度了吧」
		PRINTFORMW 　%CALLNAME:TARGET%把身体靠近%CALLNAME:MASTER%，和她像啄食一样接吻。

	;失敗
	ELSE
		IF MARK:屈服刻印 <= 1
			PRINTFORML 「……哈？我要揍你」
			PRINTFORMW 　%CALLNAME:TARGET%的眼睛眼看就要杀了%CALLNAME:MASTER%。
			PRINTFORML
			CFLAG:好感度 -= 50
			PRINTFORMW 　好感度 -50
		ELSEIF MARK:屈服刻印 == 2
			PRINTFORML 「……别開什么玩笑了？」
			PRINTFORMW 　%CALLNAME:TARGET%很麻利地回答了。
			PRINTFORML
			CFLAG:好感度 -= 20
			PRINTFORMW 　好感度 -20
		ELSEIF MARK:屈服刻印 == 3
			PRINTFORML 「哈……还有其他作为你的好女人吧」
			PRINTFORMW 　%CALLNAME:TARGET%稍微红了脸的马上摇了摇頭。
		ENDIF
	ENDIF

;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORML 「今天……嗯」
		PRINTFORMW 　%CALLNAME:TARGET%红着脸低着頭。
	ELSE
		PRINTFORML 「哼，别開玩笑了！笨蛋笨蛋！」
		PRINTFORMW 　%CALLNAME:TARGET%红着脸用手遮住了下半身。
	ENDIF

;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる

CASE "胖次交易"
	;お金では応じない
	TFLAG:取引価格 = 0

CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 　%CALLNAME:TARGET%用斜眼鄙视%CALLNAME:MASTER%。
		PRINTFORMW 「%CNAME("二人称")%真是个笨蛋啊」
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		PRINTFORML
		CFLAG:好感度 -= 20
		PRINTFORMW 　好感度 -20

	;２回目以降(魂は貰わない)
	ELSE
		PRINTFORML 「又来了……」
		PRINTFORMW 　%CALLNAME:TARGET%对%CALLNAME:MASTER%投以轻蔑的目光。
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		PRINTFORML
		CFLAG:好感度 -= 10
		PRINTFORMW 　好感度 -10
	ENDIF

CASE "胖次拒否"
	PRINTFORML 「胖次不给你……」
	PRINTFORML %CALLNAME:TARGET%是一张目瞪口呆的脸。。
	PRINTFORML
	CFLAG:好感度 -= 10
	PRINTFORMW 　好感度 -10

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0
		PRINTFORML 「……真是太差劲了。居然不得不依赖这样的家伙」
		PRINTFORML %CALLNAME:TARGET%冷眼看着%CALLNAME:MASTER%開始脱下衣服。
		PRINTFORML
		CFLAG:好感度 -= 50
		PRINTFORMW 　好感度 -50

	ELSE
		PRINTFORML 「啊哈哈哈……%CNAME("一人称")%最看不起%CNAME("二人称")%了」
		PRINTFORML %CALLNAME:TARGET%的眼睛完全没有笑容。
		PRINTFORML
		CFLAG:好感度 -= 25
		PRINTFORMW 　好感度 -25

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;二人きりなら脱いでくれるけど状況が悪い
	IF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORML 「笨蛋？%CNAME("二人称")%？啊，笨蛋啊」
		PRINTFORML %CALLNAME:TARGET%指着鼻子笑了笑%CALLNAME:MASTER%。
		PRINTFORML
		CFLAG:好感度 -= 10
		PRINTFORMW 　好感度 -10

	ELSE
		PRINTFORML 「頭大丈夫か？ 弗理希艾尔桑に診てもらうか？」
		PRINTFORML %CALLNAME:TARGET%用眼睛看着可怜的人。。
		PRINTFORML
		CFLAG:好感度 -= 10
		PRINTFORMW 　好感度 -10

	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 "同居拒否"
	PRINTFORML 「哈！？…讨厌被要求整天色情的事情。」
	PRINTFORMW 　没有%CALLNAME:MASTER%的信任！

CASE "同居希望"
	PRINTFORML 「……啊，为了早点变回去没办法吗？」
	PRINTFORMW 　%CALLNAME:TARGET%虽然这么说，但脸上还是微微地笑着。

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORML 「讨厌啊麻烦啊……」
	PRINTFORMW 　%CALLNAME:TARGET%没有便当给你！

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORML 「嘛……虽然没関系」
		PRINTFORMW 　%CALLNAME:TARGET%一边说着一边挠着自己的頭。

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORML 「全く……そう言うのは弗理希艾尔桑に頼めよ……」
		PRINTFORMW 　%CALLNAME:TARGET%虽然这么说，但好像有点開心。

	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"

	;口服避孕薬を服用してもらう
	IF CFLAG:口服避孕薬
		;初回
		IF DEVENT(ARGS) == 0
			PRINTFORML 「嘛，%CNAME("一人称")%怀孕什么的绝对是不可能的」
			PRINTFORML %CALLNAME:TARGET%一边挠着頭一边吃口服避孕药。
			PRINTFORMW 这样就可以在直接中出出来了吧！

		ELSE
			PRINTFORML 「是口服避孕药吧」
			PRINTFORMW %CALLNAME:TARGET%接受了口服避孕药。

		ENDIF

	;口服避孕薬の服用を止めてもらう
	ELSE
		PRINTFORML 「停下来也没関系，不过不跟%CALLNAME:MASTER%酱避孕的话……」
		PRINTFORMW %CALLNAME:TARGET%勉勉强强停止了口服避孕药的服用。

	ENDIF

CASE "淫紋拒否"

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

	ELSE

	ENDIF

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

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

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

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	PRINTFORML 「哈……嘛，性犯罪者预备军怎么可能放任不管呢？」
	PRINTFORMW 　%CALLNAME:TARGET%勉勉强强地答应了。

CASE "性処理の一時中断"
	PRINTFORML 「哈，终于卸下肩上的重任了」
	PRINTFORMW 　%CALLNAME:TARGET%啪嗒啪嗒地拍着肩膀。

CASE "性処理拒否"
	PRINTFORML 「……滚開」
	PRINTFORML 　只靠%CALLNAME:TARGET%那冷冷的视线就可以杀人。
	PRINTFORML
	CFLAG:好感度 -= 100
	PRINTFORMW 　好感度 -100

CASE "髪型変更の感想"

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

ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW 「那样说的话请拜托别人。」

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

;汎用ＯＫ
ELSE
		PRINTFORMW 「……没办法啊。我知道了」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「啊？能陪我买东西吗？不过也没関系……」
		PRINTFORMW 　%CALLNAME:TARGET%似乎很愿意陪我去购物。

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORML 「这、穿着这样的衣服去买东西……%CNAME("一人称")%不是变态哦！」
		PRINTFORMW 　%CALLNAME:MASTER%抓住%CALLNAME:TARGET%的手强行出門了。
		PRINTL
		CFLAG:好感度 -= 100
		PRINTFORMW 　好感度 -100

	ELSE
		SELECTCASE RAND:6
		CASE 0
			PRINTFORMW 「买东西？%CNAME("一人称")%也要去」
		CASE 1
			PRINTFORMW 「买东西？嘛，没関系」
		CASE 2
			PRINTFORMW 「钱包在哪里？」
		CASE 3
			PRINTFORMW 「啊？%CNAME("一人称")%也一起去吗？」
		CASE 4
			PRINTFORMW 「如果请客的话我就去」
		CASEELSE
			PRINTFORMW 「啊啊啊……嗯，%CNAME("一人称")%也想带着倦怠的心情走下去……」
		ENDSELECT
	ENDIF

CASE "目送"
	SELECTCASE RAND:6
	CASE 0
		PRINTFORMW 「嗯，说起来~」
	CASE 1
		PRINTFORMW 「顺便把薯片也买来。」
	CASE 2
		PRINTFORMW 「あんまり無駄使いしてると弗理希艾尔桑に怒られるぜ」
	CASE 3
		PRINTFORMW 「%CNAME("一人称")%也去便利店吧……」
	CASE 4
		PRINTFORMW 「不要在中途被警察抓住哦」
	CASEELSE
		PRINTFORMW 「不要捡色情杂志什么的来哦」
	ENDSELECT

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「……%CNAME("二人称")%看了太多色情书籍了！」
		PRINTFORML 　强行带出讨厌的%CALLNAME:TARGET%。
		PRINTFORML 　%CALLNAME:TARGET%按着下腹部模棱两可的样子。
		PRINTL
		CFLAG:好感度 -= 50
		PRINTFORMW 　好感度 -50

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		PRINTFORML 「这……这个不对……诶！？」
		PRINTFORML 　%CALLNAME:MASTER%抓住%CALLNAME:TARGET%的手强行出門了。
		PRINTFORML
		CFLAG:好感度 -= 10
		PRINTFORMW 　好感度 -10

	ELSE
		PRINTFORML 「可恶……变态混蛋……嘿！」
		PRINTFORML 　%CALLNAME:MASTER%亲手交给了正在穿的胖次。
		PRINTL
		CFLAG:好感度 -= 25
		PRINTFORMW 　好感度 -25

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORML 「呃……%CNAME("二人称")%真是变态啊」
		PRINTFORML 　冰冷的视线刺入%CALLNAME:MASTER%。
		PRINTL
		CFLAG:好感度 -= 25
		PRINTFORMW 　好感度 -25

	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORML 「比起裸体什么的完全好……」
		PRINTFORML 　%CALLNAME:TARGET%对%CALLNAME:MASTER%的话感到惊讶。
		PRINTL
		CFLAG:好感度 -= 15
		PRINTFORMW 　好感度 -15

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORML 「啊哈哈哈，以后再记住吧，小子……哼！」
		PRINTFORML 　%CALLNAME:TARGET%完全像愤怒的頭脑一样。
		PRINTL
		CFLAG:好感度 -= 100
		PRINTFORMW 　好感度 -100

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORML 「啊？只有讨厌的预感……」
		PRINTFORML 　%CALLNAME:TARGET%斜眼看着%CALLNAME:MASTER%。
		PRINTL
		CFLAG:好感度 -= 5
		PRINTFORMW 　好感度 -5

	ELSE
		PRINTFORML 「哈……快决定买什么吧。」
		PRINTFORMW 　%CALLNAME:TARGET%完全被惊呆了。

	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"
		PRINTFORML 「……请结账」
		PRINTFORMW 　%CALLNAME:TARGET%带着些许的害羞结了账。

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORML 「……」
			PRINTFORMW 　%CALLNAME:TARGET%默默地忍受着店员毫不客气的目光。

		ELSE
			PRINTFORML 「……奇怪」
			PRINTFORMW 　%CALLNAME:TARGET%看到店员毫不客气的眼神很烦躁。
		ENDIF
			PRINTFORML
			CFLAG:好感度 -= 5
			PRINTFORMW 　好感度 -5

	;えっちな商品
	CASEELSE
		PRINTFORML 「……要这个」
		PRINTFORML 　%CALLNAME:TARGET%以买色情书的中学生的态度结账了。
		PRINTFORML
		CFLAG:好感度 -= 5
		PRINTFORMW 　好感度 -5

	ENDSELECT

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

	;胖次没収中
	IF COND("買い物胖次没収中")
		SELECTCASE RAND:6
		CASE 0
			PRINTFORMW 「快点结束吧！」
		CASE 1
			PRINTFORMW 「……不快点决定的话就把%CNAME("二人称")%留在这」
		CASEELSE
			PRINTFORMW 「快点出門吧！现在马上出发吧！！」
		ENDSELECT

	ELSE
		SELECTCASE RAND:7
		CASE 0
			PRINTFORMW 「……有这么说吗？」
		CASE 1
			PRINTFORMW 「……唔姆」
		CASE 2
			PRINTFORMW 「好厉害……不，我没兴趣！」
		CASE 3
			PRINTFORMW 「卖各种各样的东西啊……」
		CASE 4
			PRINTFORMW 「……%CNAME("二人称")%是优柔寡断的吗？」
		CASE 5
			PRINTFORMW 「哈……快点决定吧。」
		CASEELSE
			PRINTFORMW 「%CNAME("二人称")%要买什么？」
		ENDSELECT
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORML 「啊，这样的事情已经……说了也没用吗？」
		PRINTFORML 　%CALLNAME:TARGET%踢了%CALLNAME:MASTER%的小腿。好痛！
		PRINTFORML
		BASE:MASTER:体力 -= 100
		PRINTFORMW 　%CALLNAME:MASTER%の体力 -100

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORML 「我就原谅他吧！」
		PRINTFORML 　%CALLNAME:TARGET%对%CALLNAME:MASTER%的屁股发出尖锐的刺击。
		PRINTFORML
		BASE:MASTER:体力 -= 200
		PRINTFORMW 　%CALLNAME:MASTER%の体力 -200

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORML 「你是为了什么而去买东西的？」
		PRINTFORMW 　%CALLNAME:TARGET%对%CALLNAME:MASTER%的行动好像很不可思议。

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		PRINTFORML 「和%CNAME("二人称")%在一起的话，会觉得这样也挺好的，感觉很乱」
		PRINTFORMW 　%CALLNAME:TARGET%敲打着自己的脸颊，调整心情。
	ENDIF
ENDSELECT

path: ERB/EVENT_K/14 シキ/EVENT_K14_SHOP.ERB