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

MEMO_LINECOUNT = LINECOUNT

IF COND("夜")
	GREETING = 晚上好
ELSEIF COND("昼")
	GREETING = 你好
ELSE
	GREETING = 早上好ございます
ENDIF

SELECTCASE ARGS
CASE "朝拘束"
	CALL PRINT_STRW, "「呼呼呼……_H_」"
	CALL PRINT_STRW, "「离晚上还有些时间呢……充分、一起享受吧……_H_」"
CASE "朝袭"

CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝騎乗位"
		IF EXP_GAIN("射精経験", PLAYER)
			CALL PRINT_STRW, @"「%CNAME("二人称")%、早上好……_H_」"
		ELSE
			PRINTFORMW 「%CNAME("二人称")%、早上好」
		ENDIF
	CASEELSE
		PRINTFORMW 「%CNAME("二人称")%、早上好」
	ENDSELECT

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
	;	RETURN 1
	IF COND("体育")
		IF RAND:2
			PRINTFORMW 「今天是有体育课的日子、体操服和毛巾有带着吗？」
		ELSE
			PRINTFORMW 「今天是有体育的日子、不能一直盯着女孩子的屁股看哟」
		ENDIF
	ELSEIF RAND:2
		PRINTFORMW 「那么今天要做什么呢？」
	ELSE
		PRINTFORMW 「已经准备好饭菜了……来、这边请」
	ENDIF
CASE "登校"

CASE "一番乗り"
	IF RAND:2
		PRINTFORMW 「嗯。其他人好像迟到了」
	ELSE
		PRINTFORMW 「今天的%CNAME("一人称")%包场了哟」
		PRINTFORMW 「……開玩笑的、哼哼♪」
	ENDIF
	;部活の標語
	SELECTCASE SAVESTR:標語
	CASE "部活中は内衣姿で"
		PRINTFORMW 专心悬挂标语的%CALLNAME:TARGET%无意中露出了内衣、春光乍泄的一幕正好被%CALLNAME:MASTER%看见了……
		CALL SETFLAG, "变成内衣姿态", TARGET
	CASEELSE
		IF COND("Ｈ的サプライズ可能") && TALENT:巨乳 && RAND:3 == 0
			PRINTFORMW 「……要先開始吗？」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の腕を取り、%TOFULL(CONDS("罩杯") )%罩杯の%TALENT_NAME(GETNUM(TALENT, "巨乳"), TALENT:巨乳)%で挟んできた……
		ENDIF
	ENDSELECT
CASE "ただいま"
	PRINTFORMW 「我回来了」
	PRINTFORMW 「不在家的时候%CNAME("一人称")%寂寞了吗？呼呼♪」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		MEMO_LINECOUNT = LINECOUNT
		IF COND("Ｈ的サプライズ可能") && RAND:3 == 0
			IF TEXTS("曜日") == "土" && EQUIP:服 && ABL:露出癖 >= 3
				CALL SETFLAG, "变成内衣姿态", TARGET
				CALL EMOTION_PLUS, "交流中"
				PRINTFORMW 「%CNAME("二人称")%%TEXTR("、辛苦了/、今天一天也辛苦了")%」
				PRINTFORMW %CALLNAME:TARGET%が出迎えてくれた……何故か内衣姿で。
				PRINTFORMW 「这周终于结束了呢。稍稍给你一点%CNAME("二人称")%的杀必死服务哟~」
				PRINTFORMW 「呼呼♪」
			ELSEIF PENIS(MASTER) && CFLAG:MASTER:汗 && TALENT:气味弱点
				PRINTFORMW 「%CNAME("二人称")%%TEXTR("、辛苦了/、今天一天也辛苦了")%」
				PRINTFORMW 「今天出汗了呢……你看、真是了不得的程度啊」
				PRINTFORMW %CALLNAME:TARGET%很自然地跪到了%CALLNAME:MASTER%面前、把%CALLNAME:MASTER%的阴茎取了出来。
				PRINTFORMW 「呼呼呼、啊啦啊啦。取出这个\@ COND("假性包茎", MASTER) ? て皮を剥い # \@的瞬間%TEXTR("气味")%好惊人哦」
				PRINTFORMW 「……怎么了嘛、一副奇怪的表情」
				PRINTFORMW 「%CNAME("二人称")%之类的女性、双腿被打開的时候%TEXTR("气味")%之类的、你不也是有点想闻闻看嘛」
				CALL PRINT_STR, "「……阴茎单纯只有臭味吗？真是的、真是个不坦率的孩子呢。别扭的家伙……就要这様_H_」_W"
				PRINTFORMW %CALLNAME:TARGET%伸出软滑的舌頭把\@ COND("假性包茎", MASTER) ? 的外皮退下 # 的前端包住 \@、用口叼住\@ COND("体育") ? 在昼の体育上 # 一日の間に \@蓄積的脏东西掃除干净……
			ENDIF
		ENDIF

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

		PRINTFORMW 「%CNAME("二人称")%%TEXTR("、辛苦了/、今天一天也辛苦了")%」
		IF RAND:5 == 0
			PRINTFORMW 「今天一天也很辛苦呢。不要拼命过頭了哦」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「饭做好了、先来喝茶吧」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「啊啦啊啦、就这様随便放着的话衣服会起皱褶的」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%随手一扔的衣服好好挂了起来。
		ELSEIF RAND:2
			PRINTFORMW 「口渴了吗？茶已经沏好了」
		ELSE
			PRINTFORMW 「我正在泡茶、先去洗把脸吧。」
		ENDIF
		CALL SETFLAG_DAILY, "茶を用意", TARGET
	ELSE
		IF COND("同伴中", MASTER) && RAND:2
			PRINTFORMW 「%CNAME("partner")%と一緒でしたか。何か面白色お話とか有ました？」
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「还以为要迟到了……呼（松了一口气)……」
			ELSEIF RAND:2
				PRINTFORMW 「啊啦、%CNAME("二人称")%今天可有得忙了♪」
			ELSE
				PRINTFORMW 「%CNAME("二人称")%呀、到底是从哪条近道传过来的啊」
			ENDIF
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF COND("Ｈ的いちゃつき中", MASTER)
		IF RAND:2
			PRINTFORMW 「打扰了…………啊啦啊啦、看来是真的打扰了呢」
			PRINTFORMW 「啊呀、继续继续、还请不要在意%CNAME("一人称")%」
		ELSE
			PRINTFORMW 「对不起、我迟到了……」
			PRINTFORMW 「啊啦、在干什么呢？%CNAME("二人称")%」
			PRINTFORMW 「真是的、太色情了！」
		ENDIF
	;其他特定の行動に対する反応
	ELSE
		SELECTCASE CSTR:MASTER:PREV_DAILYCOM
		CASE "甜言蜜语"
			CALL PRINT_STRW, "「失礼了……呼呼_H_」"
			PRINTFORMW %CALLNAME:TARGET%对着正说教到一半的%CALLNAME:MASTER%送去一个微笑。
		ENDSELECT
	ENDIF

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

	IF CFLAG:呼び出された
		PRINTFORMW 「是是、%CNAME("二人称")%の忠実な僕、%NAME:TARGET%ですよ。何の御用でしょう」
		PRINTFORMW %CALLNAME:TARGET%发出啪嗒啪嗒的脚步声站着进了房间
	ELSEIF CFLAG:MASTER:茶 == 0
		PRINTFORMW 「对不起、我迟到了……马上为您准备茶水」
		CALL SETFLAG_DAILY, "茶を用意", TARGET
	ELSE
		PRINTFORMW 「早上好」
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「是是、%CNAME("二人称")%の忠実な僕、%NAME:TARGET%ですよ。何の御用でしょう」
		PRINTFORMW %CALLNAME:TARGET%发出啪嗒啪嗒的脚步声站着进了房间
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;既に部員の３分の２が集合済
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*2/3 && RAND:3 == 0
		PRINTFORMW 「对不起，我迟到了ー」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「是是、%CNAME("二人称")%の忠実な僕、%NAME:TARGET%ですよ。何の御用でしょう」
		PRINTFORMW %CALLNAME:TARGET%发出啪嗒啪嗒的脚步声站着进了房间
	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("教員", "入室打招呼中")
		ACTOR = FIND_COND("教員", "入室打招呼中")
		IF RAND:2
			PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%こんにちは。お先に失礼してます』
		ELSE
			PRINTFORMW 『あ、%CNAME(CALLNAME_ACTOR)%。お疲れ様です』
		ENDIF
	ELSEIF PLACE("自宅")

	ELSE
		IF RAND:2
			PRINTFORMW 『おはようございます、%CNAME(CALLNAME_ACTOR)%』
		ELSE
			PRINTFORMW 『啊啦、早上好』
		ENDIF
	ENDIF

CASE "抜け出された"
	IF RAND:2
		PRINTFORMW 「唔嗯嗯嗯嗯（〃｀ 3′〃）～～……」
		PRINTFORMW 「不。没什么╭(╯^╰)╮」
		PRINTFORMW 稍稍透露着不满表情的%CALLNAME:TARGET%、没有引起别人的注意……
	ELSE
		PRINTFORMW 「あら。%CNAME("partner")%との用事がお有でしたか……善后工作は%CNAME("一人称")%がしておきますね」
		PRINTFORMW 「请继续享受快乐时光吧~」
		PRINTFORMW %CALLNAME:TARGET%透露出少许寂寞的表情、目送着%CALLNAME:MASTER%离去
	ENDIF
CASE "便当"
	IF RAND:4 == 0
		PRINTFORMW 「一起吃便当真開心呢……哎呀？」
		PRINTFORMW 「饭粒沾到脸上咯、%CNAME("二人称")%」
		PRINTFORMW %CALLNAME:TARGET%伸手把%CALLNAME:MASTER%の%TEXTR("唇/脸颊")%上的饭粒摘了下来。
	ELSEIF RAND:3 == 0
		PRINTFORMW 「这様真好哟。总觉得、像是関系很好的正常人类朋友一様」
		PRINTFORMW 「……嗯？正常朋友才不会给对方做便当吗？那你怎么看？」
	ELSEIF RAND:2
		PRINTFORMW 「来、%CNAME("二人称")%、啊～～～ん♪」
		PRINTFORML 「啊~（张嘴」
		PRINTFORMW %CALLNAME:TARGET%送往%CALLNAME:MASTER%嘴中的筷子、突然掉了个頭自己一口吃掉了！
		PRINTFORMW 「啊嗯啊嗯……呼呼呼~、開个玩笑而已嘛、不要摆出那様别扭的表情♪」
	ELSE
		PRINTFORMW 「味道怎么様？这道凉拌%TEXTR("菠菜/小油菜/芜菁叶")%」
		PRINTFORMW 「这种清脆的口感、连我自己都觉得做得很不错哦」
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「从今天起、和%CNAME("一人称")%在一起的共同生活開始了哦。呼呼~」
	PRINTFORML %CALLNAME:TARGET%坐在%CALLNAME:MASTER%的床上、像偷到了鱼儿的猫一様笑眯眯的
CASE "浑身是汗"
	IF CHECK_CLO("体操服姿") && RAND:2
		IF RAND:2
			PRINTFORML 「%CNAME("二人称")%一起来怎様？偶尔做一下对身体比较好哦」
			PRINTFORML 身着体操服的%CALLNAME:TARGET%在床上做着柔软体操
		ELSE
			PRINTFORML 「嗯？在意为什么是穿着体操服的様子吗？」
			PRINTFORML 「不是很好吗？你喜欢对吧？这様的打扮」
			PRINTFORML 运动了一会后、%CALLNAME:TARGET%的汗水从頭发上洒了下来、空气中漂浮着%TEXTS("气味")%的味道……
		ENDIF
	ELSEIF RAND:2
		PRINTFORML 「嗯……有点累了」
		PRINTFORML %CALLNAME:TARGET%双手抱在頭后露出娇嫩的腋下、一边扭动着身体、伸展着肌肉。
	ELSE
		PRINTFORML 「呜。汗水流出来了」
		PRINTFORML 「……不会有臭味吧、%CNAME("一人称")%？」
		PRINTFORML %CALLNAME:TARGET%凑向领口嗅了嗅、%TEXTS("气味")%
	ENDIF
CASE "刚睡醒"
	IF RAND:3 == 0 && CHECK_CLO("体操服姿")
		PRINTFORML 「一、二、三…………」
		PRINTFORML %CALLNAME:TARGET%想要轻轻地活动身体驱散睡意。
	ELSEIF RAND:2
		PRINTFORML 「…………」
		PRINTFORML %CALLNAME:TARGET%看起来很困的様子……声音逐渐低沉了下去。
	ELSE
		PRINTFORML 「唔～～嗯………睡得真好啊」
		PRINTFORML %CALLNAME:TARGET%心情舒畅地伸了个懒腰。
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K1
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「啊啊啊……%CNAME("一人称")%、以及%CNAME("二人称")%……」
	CALL PRINT_STR, "「呼呼呼_H_被喜欢的人说我爱你……最棒了_H_」_L"
	PRINTFORML %CALLNAME:TARGET%展露出至今为止从未见过的幸福表情、身子都激动得微微颤抖…………
CASE "契約成立"
	IF RAND:3 == 0
		PRINTFORML 「呼。这様的话就可以暂且不介意工作指标一起生活了」
		PRINTFORML 说起来%CALLNAME:TARGET%、真的有工作指标这种说法吗？
	ELSEIF RAND:2
		PRINTFORML 「复活技能真的好厉害啊……身体真的没什么问题吗？」
		PRINTFORML 「如果是普通人的话、渐渐变得衰弱下去也不奇怪。」
	ELSE
		PRINTFORML 「我们做了很好的交易呢……呼呼♪」
		PRINTFORML %CALLNAME:TARGET%欣赏着收集到的灵魂、看起来很開心的様子。
	ENDIF
CASE "買東西"
	;買ってきた道具などで分岐
	IF COND("巨大振動棒購入") && DEVENT("巨大振動棒感想") == 0
		IF COND("買上品数") >= 3
			PRINTFORML 「买了很多东西呢」
			PRINTFORML 「这个什么啊、好大一根……什么时候才有用到的机会呢？你在打什么坏主意呢？」
		ELSE
			PRINTFORML 「辛苦了呢、%CNAME("二人称")%」
			PRINTFORML 「但是这个……也太大了！什么时候才能塞进去？你在想什么呢？」
		ENDIF
		PRINTFORML %CALLNAME:TARGET%看着战利品、玩味着从背后抱住%CALLNAME:MASTER%、羞红的脸颊蹭了过去。
		CALL SET_DEVENT, "巨大振動棒感想"
	ELSE
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「您购物辛苦了、%CNAME("二人称")%」
			PRINTFORML 「话说回来……买了很多东西呢」
		CASEELSE
			PRINTFORML 「呼。您工作结束了、%CNAME("二人称")%」
			PRINTFORML 「之后的工作就交给%CNAME("一人称")%吧！」
			PRINTFORML %CALLNAME:TARGET%仿佛跳舞一様、优雅又迅速地将纸袋的内容分类放好。
		ENDSELECT
	ENDIF
CASE "摆脱", "主人公的房間に連れ込まれた", "自室に招待"
	IF RAND:2
		PRINTFORML 「呐、%CNAME("二人称")%、现在……你准备干什么呢？」
		PRINTFORML 「可以理解为是在刚才那个地方做不到的事情吧？」
		PRINTFORML 「……呼呼呼♪」
	ELSE
		IF RAND:3 == 0
			PRINTFORML 「呼呼…真是可爱的様子呢」
		ELSE
			PRINTFORML 「是要这様吗……好紧张呢♪」
		ENDIF
		IF PENIS(MASTER) && RAND:2
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:TARGET%用嘴把%CALLNAME:MASTER%胯间的拉链打開、并亲了一口弹在脸上硬邦邦的肉棒。
			ELSE
				PRINTFORML %CALLNAME:TARGET%跪在%CALLNAME:MASTER%面前、环抱住腰并笑吟吟地用脸蹭着硬邦邦的肉棒。
			ENDIF
		ELSE
			PRINTFORML %CALLNAME:TARGET%心里描绘着接下来要发生的事情、脸上泛着红晕
		ENDIF
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「啊啦、%CNAME("二人称")%に%CNAME(CSVCALLNAME(NO:ASSI) )%、欢迎光临」
		PRINTFORML 「要来点什么？」
	ELSE
		PRINTFORML 「哦呀%CNAME("二人称")%。要来点什么？」
		CALL PRINT_STRL, @"「难道、%CNAME("一人称")%不在就会寂寞吗？呼呼_H_」"
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML 「%CNAME(CSVCALLNAME(NO:ASSI) )%、真是失礼了」
	PRINTFORML %CALLNAME:TARGET%在不妨碍%CALLNAME:MASTER%和%CALLNAME:ASSI%的旁边坐了下来。
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	;PRINTFORML
CASE "オナバレ"
	PRINTFORML 「啊、那个、%CNAME("二人称")%刚才不是那様的……不、那个……呜呜呜」
	PRINTFORML %CALLNAME:TARGET%对自己的行为感到羞耻、声音越来越小……
CASE "露脐装超短裙胖次チラ"
	;超短迷你の時にはスルーしたり
	IF CHECK_SKIRT("超短迷你") && RAND:2
	ELSEIF RAND:2 && PENIS(MASTER)
		PRINTFORML 「%CNAME("二人称")%……看见了吧？」
		PRINTFORML 「装糊涂也不行哟……你看、为什么会变成那様？」
		PRINTFORML %CALLNAME:TARGET%指着%CALLNAME:MASTER%的股间窃笑道。
	ELSEIF CFLAG:甜言蜜语 || CFLAG:夸奖 || CHECK_SKIRT("超短迷你")
		PRINTFORML 「怎么了？看到什么好东西了吗？」
		CALL PRINT_STR, "「……フフ_H_」_L"
		PRINTFORML %CALLNAME:TARGET%面色微红、開心地微笑着。
	ELSE
		PRINTFORML 「…………？ ……！」
		PRINTFORML 「%CNAME("二人称")%、难道说……看到了吗？」
		PRINTFORML 注意到%CALLNAME:MASTER%的视线、%CALLNAME:TARGET%一下子红了脸、伸手护住春光。
	ENDIF
CASE "掀起裙子"
	IF RAND:2
		PRINTFORML 「真是的……不可以哟？擅自窥视女孩子的裙底」
	ELSE
		PRINTFORML 「%CNAME("二人称")%、真的是很喜欢内裤呢」
	ENDIF
	PRINTFORML 虽然震惊得合不拢嘴、但是%CALLNAME:TARGET%表情看起来很開心……？似乎没有生气。
CASE "拜托処理性欲", "清洁口交"
	IF RAND:2
		PRINTFORML 「呼~。天气有点变热了呢」
		PRINTFORML %CALLNAME:TARGET%一边用手帕擦拭汗水、一边用可愛的絵柄の扇子为%CALLNAME:MASTER%啪嗒啪嗒地扇着
	ELSE
		PRINTFORML 「%CNAME("二人称")%辛苦了。……呼噜♪」
		PRINTFORML 「如果可以的话、请用？」
		PRINTFORML %CALLNAME:TARGET%一边把因汗而湿润的頭发撩上去、一边准备了两杯茶和两个小点心
	ENDIF
CASE "变成裸体"
	PRINTFORML 「明明不是在H的时候、居然打扮成这様……呼」
	CALL PRINT_STRL, @"「内~您现在是什么样的心情？%CNAME("二人称")%_H_」"
CASE "淋浴"
	IF CFLAG:MASTER:汗
		PRINTFORML 「クンクン……%CNAME("二人称")%、少し臭いますね」
		PRINTFORML 「%CNAME("一人称")%の後で良ければですが、%CNAME("二人称")%も如何ですか？淋浴」
	ENDIF
ENDSELECT

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

IF DAYEV("大晦日", "リアル日時") && COND("夜") && DEVENT("大晦日") == 0
	;PRINTFORMW 「2018年era恶魔女仆Project比预计早完成了一年」
	;PRINTFORMW 「承蒙阁下照顾、真的非常感谢您的支持」
	;PRINTFORMW 「但是……有个非常遗憾的消息必须要告诉您」」
	;PRINTFORMW 「今天起era恶魔女仆结束了、从今天起将变成更加不苟言笑的era冷眼恶魔女仆」
	PRINTFORML 「今年一年就要过去了、有没有遗憾呢？主人」
	PRINTFORML 「和被炉合体度过也不错呢……哟咿（嘿）咻」
	PRINTFORML 「真希望你不会忘记、今天是不会再有的独特的一天」
	IF TALENT:恋慕 && FINDCHARA(NO, 5) && CEVENT("イベント：白蛇神社再建計画１", FINDCHARA(NO, 5)) == 0
		PRINTFORML
		PRINTFORML 「六华小姐好像在神社里做什么」
		PRINTFORML 「一会儿去看看怎么样？」
	ENDIF
	CALL SET_DEVENT, "大晦日"
ELSEIF DAYEV("新年", "リアル日時") && DEVENT("新年") == 0
	PRINTFORML 「恭喜新年快乐！」
	PRINTFORML 「今年也请多関照、主人」
	PRINTFORML 「恕我直言、从姫開始也没関系哦？呼呼呼」
	CALL SET_DEVENT, "新年"
;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
ELSEIF (ITEM:潤滑液 == 0 || ITEM:避孕套 == 0) && DEVENT("消耗品") == 0
	PRINTFORML 「对了对了」
	PRINTFORML 「最好注意调教消耗道具的携带数量」
	PRINTFORML 「我们都想要更加心情舒畅地H呢。呼呼呼」
	CALL SET_DEVENT, "消耗品"
ELSEIF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「真的是恶魔吗？是不是这様想」
	PRINTFORML 「是。そうですよ。%CNAME("一人称")%の主食は%CNAME("二人称")%みたいな人の魂なんです」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("助言１") == 0
	PRINTFORML 「说起来%CNAME("二人称")%……%TEXTS("助手の名称")%有在好好干活吗？」
	PRINTFORML 「比如说、%CNAME("一人称")%が%TEXTS("助手の名称")%进行H时会自动补充消耗品」
	CALL SET_DEVENT, "助言１"
ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("質問２") == 0
	PRINTFORML 「晚安？……啊啊、%CNAME("一人称")%闲下来了吗」
	PRINTFORML 「虽然没有做也没関系、但是啊」
	PRINTFORML 「休息时间只有在星期天的早上睡懒觉、其他时候还请尽情地使唤我」
	CALL SET_DEVENT, "質問２"

ELSEIF CFLAG:尾巴を出す && DEVENT("尾巴の悩み") == 0
	PRINTFORML 「……尾巴の先端なんですけど、付け根が太めなせいでスペードに見えるんです」
	PRINTFORML 「人気あるのは心型なんですよねぇ……ふぅ」
	CALL SET_DEVENT, "尾巴の悩み"
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	;PRINTFORML
ENDIF

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

;以下は随机台詞など

;CALL DAILY_MESSAGE, "汎用一言イベント"

;時間帯と場所と関係で変化有些
IF COND("夜")
	PRINTFORML 「%TEXTR("呜嗯 呜嗯 呜呜ー嗯♪/♪～～♪～～～/ら～～らららら～～♪/呜ー嗯 呜嗯 呜呜ー嗯 呜ー嗯♪")%」
	PRINTFORM %CALLNAME:TARGET%
	IF CFLAG:尾巴を出す && CHECK_CLO("内衣姿")
		PRINTFORM %TEXTR("尾巴を揺らしながら/楽しそうに/鼻歌混じりで/テキパキと/内衣姿を気にするでもなく")%
	ELSE
		PRINTFORM %TEXTR("愉快地//哼唱着/麻利地/手法熟练地/熟练的様子")%
	ENDIF
	PRINTFORML 正在%TEXTR("进行掃除/把洗好的衣服叠好/洗东西/装扮自己/准备做好明日の便当/確認明日の安排/翻阅日历的格子/保养学生鞋")%
ELSEIF FLAG:二人きり && CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
	IF COND("合意：检查内褲") && DEVENT("掀起裙子") && EQUIP:裙 && CFLAG:掀起裙子 == 0 && CHECK_CLO("掀起裙子の価値无") == 0 && RAND:4 == 0
		PRINTFORML 「%CNAME("二人称")%说起来……今天时间还有很多呢」
		PRINTFORML 「何って……フフ♪」
		PRINTFORML %CALLNAME:TARGET%は指で%SKIRT(TARGET, "略")%の端を僅かに持ち上げて%CALLNAME:MASTER%に流し目を送った
	ELSEIF RAND:2
		PRINTFORML 「%CNAME("二人称")%看起来很闲呢」
		PRINTFORML 「……もしですけれど、体力が余ってるなら肩揉んで頂けませんか？最近どうも凝っちゃって」
	ELSE
		PRINTFORML 「……静かですね」
		PRINTFORML 「なにかしますか？やりたい事があるようでしたらお付き合いしますけど」
	ENDIF
ELSE
	PRINTFORML 「…………」
	PRINTFORM %CALLNAME:TARGET%
	IF COND("点心有") && RAND:3 == 0
		PRINTFORM %TEXTR(@"一边往嘴里塞%TEXTS("点心")%/一边抓起一块%TEXTS("点心")%/一边非常放松地吃%TEXTS("点心")%")%
	ELSEIF CFLAG:茶 && RAND:3 == 0
		PRINTFORM %TEXTR(@"時折%SAVESTR:茶%を口に運びつつ/茶菓子をつまみながら/リラックスした様子で%SAVESTR:茶%を飲みつつ")%
	ELSE
		PRINTFORM %TEXTR("默默地/一副专注的样子/用认真的眼神/毫无起劲地/一副如何消磨时间的様子/沉默的")%
	ENDIF
	PRINTFORML 正在%TEXTR("阅读雑誌/阅读参考書/玩着携帯式游戏機/摆弄手机/阅读料理の本/阅读教科書/预习一下")%
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K1
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	IF RAND:4 == 0
		PRINTFORML 「咻~咻~……」
	ELSEIF RAND:3 == 0
		PRINTFORML 「zzz…………」
	ELSEIF RAND:2
		PRINTFORML 「呜呜～～咻…………啊唔啊唔」
	ELSE
		PRINTFORML 「啊……这様子、好丢人……」
	ENDIF
ELSEIF RAND:2
	IF RAND:5 == 0
		PRINTFORML 「「呜呜……后来的、用过的茶碗自己冲洗……zzz」
	ELSEIF RAND:4 == 0
		PRINTFORML 「真是的、让人没办法的家伙……zzz……」
	ELSEIF RAND:3 == 0
		PRINTFORML 「zzz……今天的饭……不做的话……」
	ELSEIF RAND:2
		PRINTFORML 「啊、好忙啊……好忙……zzz」
	ELSE
		PRINTFORML 「%CNAME("二人称", "甘え")%…………呼呼呼」
	ENDIF
ELSE
	IF RAND:3 == 0
		PRINTFORML 「%CNAME("二人称", "甘え")%……不早点起床的话……要迟到了哦……zzz」
	ELSEIF RAND:2
		PRINTFORML 「%CNAME("二人称", "甘え")%……差不多该休息了……早上好辛苦啊……zzz」
	ELSE
		PRINTFORML 「哎呀……今天……很热情呢……zzz……」
	ENDIF
ENDIF

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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "学園での日常"
	SAVESTR:現在位置 = 教室
	CALL CREATE_MOB, "鷹宮瑞穂"
	CALL CREATE_MOB, "鵜飼千歳"
	MOB_A = CNUM("鷹宮瑞穂")
	MOB_B = CNUM("鵜飼千歳")

	IF TALENT:恋慕 == 0 && CEVENT("学園：日常１") == 0
		PRINTFORMW 弗理希艾尔和同班同学雑談着。
		PRINTL
		CALL EMOTION_PLUS, "飘忽/会話口/对话框兴奋", MOB_B
		CALL PRINT_NAME_CLO, MOB_B
		PRINTFORMW 『说起来弗理希艾尔最近加了个社团是真的吗？明明一直都是帰宅部的』
		PRINTL
		CALL EMOTION_PLUS, "对话框兴奋"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「嗯、是有这回事。因为有点小的契机所以就入部了」
		PRINTL
		CALL EMOTION_PLUS, "对话框兴奋", MOB_A
		CALL PRINT_NAME_CLO, MOB_A
		PRINTFORML 『啊——実际上我也有个很在意的事情！
		PRINTFORMW 　部長？大概是看上去好像是那様的人住在一起的様子……难道是在一起交往吗？』
		PRINTL
		CALL EMOTION_PLUS, "对话框兴奋"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「没有没有、没这回事啦。只是関系很好而已啦……呼呼♪」

		CALL SET_CEVENT, "学園：日常１"
	ELSEIF CHECK_SKIRT("超短迷你") && EQUIP:胖次 && CEVENT("学園：超短迷你１") == 0
		PRINTFORMW 弗理希艾尔和同班同学雑談着。
		PRINTL

		CALL EMOTION_PLUS, "斜眉２/对话框・・・/小口", MOB_A
		CALL PRINT_NAME_CLO, MOB_A
		PRINTFORML 『……%CHECK_CLOCOLOR(CSTR:胖次)%か』
		PRINTFORMW 干劲なさげに机に突っ伏していた弗理希艾尔の友達の%CALLNAME:MOB_A%がぼそりと呟く。
		PRINTL

		CALL EMOTION_PLUS, "困惑眉/△/对话框？/斜眼/飘忽"
		CALL PRINT_NAME_CLO
		PRINTFORML 「いきなり何言ってんですか……？って、ちょっとぉ……」
		PRINTFORMW 怪訝な顔をした弗理希艾尔だったが、自分の胖次のことだと気づいて%CALLNAME:MOB_A%の視線から裙の中を手で守備した。
		PRINTL

		CALL EMOTION_PLUS, "笑颜/对话框爱心", MOB_B
		CALL PRINT_NAME_CLO, MOB_B
		PRINTFORML 『んふふ、周りに男子いないからって豐腴してたね。
		CALL PRINT_STRW, "　这样子还真是可爱♪如果有这种反应的话、穿更长一点的就好了呢～_H_』"
		PRINTL

		CALL EMOTION_PLUS, "对话框乱/△/紅潮"
		CALL PRINT_NAME_CLO
		PRINTFORML 「……%NICKNAME:MOB_B%は割り切りすぎ。
		PRINTFORMW 　又不是因为给你看的、是因为我喜欢所以才穿这个、这样就可以了」

		CALL SET_CEVENT, "学園：超短迷你１"
	ELSEIF CFLAG:便当 && CEVENT("学園：便当１") == 0
		PRINTFORMW 弗理希艾尔和同班同学雑談着。
		PRINTL

		CALL EMOTION_PLUS, "通常眉２/栗口/对话框兴奋", MOB_A
		CALL PRINT_NAME_CLO, MOB_A
		PRINTFORMW 『今天吃什么好呢……是去食堂呢……还是买面包来解决呢……』
		PRINTL

		CALL EMOTION_PLUS, "对话框兴奋"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「啊、我今天有点。或者说、我临时有了预定。对不起啦」
		PRINTL

		CALL EMOTION_PLUS, "对话框？/飘忽/無口系", MOB_A
		CALL PRINT_NAME_CLO, MOB_A
		PRINTFORMW 『呜～～～～嗯？』
		PRINTFORML ………
		PRINTFORML ………
		PRINTFORMW ………

		CALL EMOTION_PLUS, "对话框電球/憤怒眉/笑颜４/笑顔３/红晕", MOB_A
		CALL PRINT_NAME_CLO, MOB_A
		PRINTFORMW 『知道了！是部長吧！和部長桑一起吃饭对吧！？』
		PRINTFORMW 『真好啊～毕竟是弗理希艾尔、所以会帮部長桑做便当吧？真好啊～～？』
		PRINTL

		CALL EMOTION_PLUS, "紅潮/对话框兴奋"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「%NICKNAME:MOB_A%、声でかいですよ、もう。
		PRINTFORMW 　……嘛~、呜嗯。既然那样的话」
		PRINTFORMW 「よかったら、%NICKNAME:MOB_A%の分も作る？あんまり期待されても困りますけどね、ふふふ」

		CALL SET_CEVENT, "学園：便当１"
	ELSEIF COND("水泳") && CHECK_CLO("泳装姿") && COND("陰毛") && COND("陰毛") <= 3 && CEVENT("学園：白虎１") == 0
		CALL SETFLAG, "内衣以外全脱ぎ", MOB_A
		CALL SET_COORDINATE, "競泳泳装/黒", MOB_B

		PRINTFORMW 弗理希艾尔一边在更衣室换上游衣、一边和班里的同学聊天。
		PRINTL
		CALL EMOTION_PLUS, "半開２/飘忽/对话框！？/紅潮", MOB_B
		CALL PRINT_NAME_CLO, MOB_B
		PRINTFORML 『哈ー游泳课真让人郁闷。我注意到男生那边总是有视线投过来……啊、诶！
		PRINTFORMW 　どうしたの弗理希艾尔、こう、言いづらい場所が随分と綺麗になっていらっしゃいますけど？』
		PRINTL

		CALL EMOTION_PLUS, "害羞/对话框・・・"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「嗯……果然注意到了吗？嘛、该说是转换心情还是怎么说呢……」
		PRINTL

		CALL EMOTION_PLUS, "夸奖", MOB_A
		CALL PRINT_NAME_CLO, MOB_A
		PRINTFORML 『喔~。终于弗理也加入了我的队伍ー每次上游泳课的时候传教的热情没有白费ー、非常好ー。
		PRINTFORMW 　%NICKNAME:MOB_B%も騙されたと思って一回全部剃ってみ？めっっちゃ快適なんだから！ねー？♪』
		PRINTL

		CALL EMOTION_PLUS, "害羞/对话框汗/△"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「对——（生硬)。嘛……舒适是真的吧。虽然有一点不安心的感觉……」

		CALL SET_CEVENT, "学園：白虎１"
	ELSEIF CFLAG:Ｖ已中出 && CEVENT("学園：中出し１") == 0
		PRINTFORML ゴソゴソ……じょろっ……ﾁｮﾛﾛﾛﾛ……
		PRINTFORMW 「呜ぅ……って、啊！」
		PRINTFORMW 弗理希艾尔看到自己的胖次被拉到腿半截左右、不禁叫出声来。
		PRINTFORMW （糟、糟糕了、我所做的事……）
		PRINTFORMW 早朝和%CALLNAME:MASTER%做了Hの事情但是忘记铺上餐巾、所以開洞部分被膣内滴下来的精液弄得很脏。
		PRINTFORMW 虽说以后再仔细洗就行了、但自己却感觉到无法言喻的邋遢、弗理希艾尔很轻易地后悔着……

		CALL SET_CEVENT, "学園：中出し１"
	;身嗜みについて
	ELSEIF COND("身嗜み：Ｖ拡張") && CEVENT("学園：Ｖ振動棒１") == 0
		PRINTFORMW ブー……ン
		PRINTFORMW %CALLNAME:TARGET%の股間一小时震动数次、达到耳朵仔细听可以听到轻微的振動音的程度。
		PRINTFORMW 在%CALLNAME:MASTER%所期望的街道上、好好的在阴部藏着振動棒。
		PRINTFORMW 虽然周围的人不会注意到、但是不知道会发生什么。
		PRINTFORMW %CALLNAME:TARGET%不管是否愿意意识都将分散到胎内の粘膜上、边慢慢地深呼吸一边保持平静……

		CALL SET_CEVENT, "学園：Ｖ振動棒１"
	ENDIF
	CALL DEL_MOB

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		IF RAND:2
			PRINTFORML 「那个~……一起走的话、也没関系吗？」
		ELSE
			PRINTFORML 「啊啦%CNAME("二人称")%、在不错的地方相见了呢♪」
		ENDIF
	CASE "超市", "内衣店", "泳装屋"
		PRINTFORML 「看起来很闲呢。如果可以的话、要不要和%CNAME("一人称")%交往看看啊？」
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "採購"
		SELECTCASE SAVESTR:現在位置
		CASE "超市"
			IF RAND:3 == 0
				PRINTFORMW 「%CNAME("二人称")%、有什么想吃的东西的话可以放进篮子里哦」
			ELSEIF RAND:2
				PRINTFORML 「嗯、这个和那个…………问我在做什么？」
				PRINTFORMW 「呵呵、这就是出門的快乐之处哦♪」
			ELSE
				PRINTFORMW 「今晚您要点什么呢？有想吃的东西吗？」
			ENDIF
		CASE "茶叶批发店"
			IF RAND:3 == 0
				PRINTFORMW 「嗯、这个和那个、各100克。是的、包起来就好」
			ELSEIF RAND:2
				PRINTFORML 「这个可以试饮吗？不行吗？……是啊、太贵了。那么这边的呢……」
				PRINTFORMW %CALLNAME:TARGET%抓住空闲的店员进行各种交涉、看起来很開心。
			ELSE
				PRINTFORML 「嗯……这可真不错」
				PRINTFORMW %CALLNAME:TARGET%闻着罐子里干叶子的味道如此品论。
			ENDIF
		ENDSELECT
	CASE "内衣選び", "泳装選び"
		IF RAND:3 == 0
			PRINTFORML 「……在意其他人的视线吗？」
			PRINTFORMW 「呵呵、没関系的。请堂堂正正地看吧」
		ELSEIF RAND:2
			PRINTFORMW 「嗯、有点太H了吧……但是这様子也喜欢呢」
		ELSE
			PRINTFORMW 「怎么様？这个様子、很让人心动吗？」
		ENDIF
	CASEELSE
		IF RAND:30

		ELSE
			CALL PRINT_STRW, "「这様的日子、每一天都能继续这様生活就好了。呼呼_H_」"
		ENDIF
	ENDSELECT

CASE "お仕事"
	PRINTFORMW 「啊啊忙死了、忙死了……」

CASE "清洁口交：お誘い"
	RETURN 0
CASE "清洁口交：射精後"
	RETURN 0
CASE "清洁口交：断った"
	PRINTFORMW 「可以吗？」
	PRINTFORMW 「嘛ぁ、如果%CNAME("二人称")%感觉这様就好的话%CNAME("一人称")%不会介意的」

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
		;この場所は初めて
		IF DEVENT(SAVESTR:現在位置) == 0
			PRINTFORMW 「\@ COND("授業中") ? 明明其他人在上课、 # 不管怎么说 \@竟然在这様的地方……呼呼~」
			PRINTFORMW 「有点開心呢♪」
		ELSEIF COND("授業直前")
			PRINTFORMW 「离下一节课没多久、赶紧開始吧」
		ENDIF
	CASE "女子廁所"
	;体育のある日限定
	CASE "体育倉庫"
	;体育か水泳のある日限定
	CASE "更衣室"
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
	ENDSELECT

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

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	ENDSELECT

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

	PRINTFORMW 「你呀、别慢慢享受……休息时间只有15分钟！」
CASE "性処理：後"
	IF COND("予鈴")
		PRINTFORMW 「嗯、好烫……呵呵、出来这么多啊……♪」
		PRINTFORMW 「啊%CNAME("二人称")%！」
		PRINTFORMW 「时间！快来不及了！！」
	ELSEIF SAVESTR:現在位置 == "男子廁所"
		PRINTFORMW 「哎呀、已经结束了吗？」
		PRINTFORMW 「「……射在这里的话、待会收拾起来方便一点」
	ELSEIF COND("授業直前") && NOWEX:Ｖ中出し + NOWEX:Ａ中出し + NOWEX:尿道内射精
		IF COND("体育")
			PRINTFORMW 「啊啦%CNAME("二人称")%、你看这个哟……非常浓厚呢」
			PRINTFORMW 「上课时会不会从运动短裤流出来呢、有点……担心呢……♪」
		ELSE
			PRINTFORMW 「啊……真是的。全都射到里面了吧？」
			PRINTFORMW 「一会可是游泳课呢」
		ENDIF
	ENDIF
	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	IF RAND:10 == 0
		PRINTFORMW 「はぁあ……真是不错的、很棒的东西呢♪」
	ELSE
		PRINTFORMW 「呼……满足了吗？」
	ENDIF
;お浴室に一緒に入ろうと誘われた場合
CASE "一緒にお浴室"
	PRINTFORMW 「さてさて。それでは%CNAME("一人称")%がお背中流しますよ」
	PRINTFORMW 「……不做H的事、是吧？」
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜")
			;欲求不満の限界
			IF BASE:欲求不満 >= 100
				PRINTFORMW 「诶……要去休息了吗？」
				PRINTFORMW 「那个、那个……」
				PRINTFORMW %CALLNAME:TARGET%脸颊火热、双眼湿润、少见地露出犹豫不决的表情で%CALLNAME:MASTER%を引き留めている……
				PRINTFORML ……怎么办呢？
				CALL PRINT_SELECT, "推倒在床上！/晚安"
				IF RESULT == 0
					PRINTFORMW 「哎呀……」
					PRINTFORMW 「啊、啊哈哈……%CNAME("一人称")%、完全暴露、了呢」
					CALL PRINT_STR, @"「%CNAME("二人称")%、、那个……嗯、麻烦您了……_H_」_W"
					PRINTFORMW %CALLNAME:TARGET%因自己身体里难以抑制的高涨欲望而感到羞耻、用手捂住了脸。る%CALLNAME:MASTER%の背に腕を回した。
					TFLAG:床イン = 1
				ELSE
					PRINTFORMW 「啊、好的」
					PRINTFORMW 「晚安、%CNAME("二人称")%……」
				ENDIF
			ELSE
				PRINTFORMW 「哎呀、今天已经想休息了吗？」
				PRINTFORMW 「那么、要洗澡吗？%CNAME("一人称")%可以帮忙搓背哦」
				PRINTFORMW 「……不做H的事、是吧？」
				PRINTFORMW 边说边笑着、%CALLNAME:TARGET%在更衣室里将衣服一件一件脱下、和%CALLNAME:MASTER%一起进入了浴室。
			ENDIF
		ELSE
			PRINTFORMW 「%CNAME("二人称")%的话、好像很闲呢~」
			PRINTFORMW 「如果可以的话、要不要提前尝尝晚饭？」
			PRINTFORMW %CALLNAME:TARGET%在%CALLNAME:MASTER%回话之前、把用小盘装着的料理和茶水一起端了上来。
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		IF RAND:3 == 0
			PRINTFORMW 「好像很累的様子。」
			PRINTFORMW 「来按摩肩膀吧？虽然女孩子的手没什么力气」
		ELSEIF RAND:2
			PRINTFORMW 「哎呀。茶没了」
			PRINTFORMW 「%CNAME("二人称")%、请稍等」
		ELSE
			PRINTFORMW 「平静的一天呢……」
			PRINTFORMW 「呐呐%CNAME("二人称")%。闲着的话不预习下一节课吗？」
		ENDIF
	;場所移動後
	ELSE
		PRINTFORMW 「诶？不做吗？」
		PRINTFORMW 「%CNAME("一人称")%的话没関系的、真的吗？」
		PRINTFORMW 「……%CNAME("二人称")%、您是捡了什么奇怪的东西吃了吗？」
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")
		IF RAND:3
			ACTOR = FIND_COND("玛丽", "現在存在", "恋慕")
			IF ACTOR && COND("相性○", ACTOR)
				CALL EMOTION_PLUS, "交流中", ACTOR
				CALL PRINT_STRW, @"『%TEXTR(@"本日的点心是%CALLNAME:TARGET%の%TEXTS("点心")%です。很期待吧/是%CALLNAME:TARGET%亲手做的%TEXTS("点心")%哦。今天就好好期待吧")%_HH_』"
				CALL PRINT_MAIDFACE, TARGET
				PRINTFORMW 「%TEXTR("这次还采购到了特別好的茶葉、大家一起喝茶吧/嗯、我很自豪这次的菓子也能满足期待的美味♪")%」
			ELSEIF RAND:4 == 0
				PRINTFORMW 「呼呼。如果有人吃那做起来也是有价值的呢♪」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「要飲用什么？是茶吗？还是要juice？」
			ELSEIF RAND:2
				PRINTFORMW 「好了好了。那就现在是喝茶の時間♪」
			ELSE
				PRINTFORMW 「主人様。我要分茶了、可以帮我一下吗？」
			ENDIF
			RETURN 1
		ENDIF
		SELECTCASE TEXTS("点心")
		CASE "提拉米苏"
			CALL PRINT_STRL, "「呼呼。今天起得很早、那就试着做我喜欢的提拉米苏好了_H_」"
			PRINTFORMW %CALLNAME:TARGET%は在切成大块的提拉米苏上、用茶壶里装入可可粉砰砰地摇晃。
			PRINTFORMW 「主人様、要加木莓酱（红莓果酱）吗？」
		CASE "布丁"
			PRINTFORML 「今天的点心是ナチュール・クレーム・カラメル好了」
			PRINTFORMW 「如果想要鲜奶油的话请告诉我、材料放在（冰箱）冷蔵庫的里面」
		CASE "戚风蛋糕"
			PRINTFORML 「试着粗略的混合各种各样的现状来焼」
			PRINTFORMW 「有焼的不喜欢的部位请说出来内、会给你换一个我的」
		CASE "乳酪蛋糕"
			PRINTFORMW 「这次的起司蛋糕是以海绵为底座、上面铺砂糖、红（葡萄）酒、再加上用木莓煮透的果冻」
			PRINTFORMW 「总之先吃几块？」
		CASE "巧克力蛋糕"
			PRINTFORMW 「试一下微微半生的。温热的烏龍茶请慢用」
		CASE "柠檬蛋挞"
			PRINTFORMW 「上面是白色的吗？这是、可以看得见的焼有烤痕的菜蛋白酥（我也不知道是什么，看着像奶油）内」
			PRINTFORMW 「感觉看起来不是那么甜……大概是这样」
		CASEELSE
			PRINTFORMW 「本日试着做了%TEXTS("点心")%……希望和你的口味」
		ENDSELECT
	ELSE

	ENDIF

;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好ございます
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「呀……等一下、%GREETING%」
			PRINTFORMW 「……今天很热情呢、%CNAME("二人称")%」
		ELSEIF COND("易出汗", MASTER)
			PRINTFORMW 「真是的~……全是汗不要抱过来嘛」
			IF COND("易出汗")
				PRINTFORMW 「嘛、虽然%CNAME("一人称")%也一様就是啦。呼呼」
				PRINTFORMW %CALLNAME:TARGET%轻笑着、反抱向%CALLNAME:MASTER%
				PRINTFORMW 暑い……
			ELSE
				PRINTFORMW 「让人没办法的家伙……来、别动。我帮你擦汗」
				PRINTFORMW %CALLNAME:TARGET%用毛巾擦拭着%CALLNAME:MASTER%的身体
			ENDIF
		ELSE
			;你に先に打招呼をされた
			IF CFLAG:打招呼した == 0
				PRINTFORMW 「是、%GREETING%」
				PRINTFORMW 「……呼呼♪被%CNAME("二人称")%先打招呼了呢」
			ELSE
				PRINTFORMW 「是、%GREETING%」
				PRINTFORMW %CALLNAME:TARGET%、にこにこ（nico nico）笑着将手臂转回后背紧紧抱住。
			ENDIF
		ENDIF
	CASE "打招呼接吻"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「嗯、嗯唔…………%GREETING%」
			PRINTFORMW 「相当可爱的打招呼啊。这様子……相当喜欢哟、%CNAME("一人称")%」
			PRINTFORMW %CALLNAME:TARGET%脸红着、在%CALLNAME:MASTER%的脸颊上吻了一下。
		ELSE
			;你に先に打招呼をされた
			IF CFLAG:打招呼した == 0
				PRINTFORMW 「是、%GREETING%」
				PRINTFORMW 「…………」
				PRINTFORMW 「……再来一次、可以吗？」
				PRINTFORMW 按捺不住的%CALLNAME:TARGET%、夺走了%CALLNAME:MASTER%的唇……
			ELSE
				PRINTFORMW 「是、%GREETING%♪」
				PRINTFORMW %CALLNAME:TARGET%看起来笑嘻嘻的、再次向你问候了一遍。
			ENDIF
		ENDIF
	CASE "打招呼口交", "打招呼舐陰"
		IF TALENT:淫核 || TALENT:淫乱 || TALENT:恋慕
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「真的是没有节操的%CNAME("二人称")%呢……♪」
				PRINTFORMW 「说是要打招呼、其实只是想舔%CNAME("一人称")%的这里对吧？」
				PRINTFORMW %CALLNAME:TARGET%笑骂着%CALLNAME:MASTER%……
			ELSE
				PRINTFORMW 「真的是没有节操的%CNAME("二人称")%呢……♪」
				PRINTFORMW 「说是要打招呼、其实只是想舔%CNAME("一人称")%的这里对吧？」
				PRINTFORMW %CALLNAME:TARGET%笑骂着%CALLNAME:MASTER%……
			ENDIF
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「%CNAME("二人称")%…………那个、果然还是觉得要这様打招呼的话、该怎么说呢」
			PRINTFORMW 「无论如何都太堕落了」
			PRINTFORMW %CALLNAME:TARGET%连回礼都忘记了的%CALLNAME:MASTER%轻轻谏言。
		ELSE
			PRINTFORMW 「%CNAME("二人称")%真的是没有节操呢……」
			PRINTFORMW 「如果被别人看见了、打算怎么掩饰过去呢？」
			PRINTFORMW %CALLNAME:TARGET%虽然没有特别抵抗、但是好像不太感兴趣的様子。
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「是、%GREETING%」
			PRINTFORMW 「……呼呼♪被%CNAME("二人称")%先打招呼了呢」
		ELSE
			PRINTFORMW 「是、%GREETING%」
			PRINTFORMW %CALLNAME:TARGET%微笑着回应了问候。
		ENDIF
	ENDSELECT
CASE "叫醒"
	IF RAND:3 == 0
		PRINTFORMW 啪琪。
		PRINTFORMW 「……啊嘞？难道说睡着了吗？%CNAME("一人称")%？」
		PRINTFORMW 「早、早上好……」
		PRINTFORMW %CALLNAME:TARGET%好像状态不是很好的様子、迅速地整理了一下自己、走到%CALLNAME:MASTER%的身边待機
	ELSEIF RAND:2
		PRINTFORMW 「唔～嗯……拜托你了……让我再睡一小会……」
		PRINTFORMW 「啊、刚才的是梦话、梦话啊……哈啊～」
		PRINTFORMW %CALLNAME:TARGET%看上去很困地揉了揉眼、小小地打了个哈欠
	ELSE
		PRINTFORMW 「……………」
		PRINTFORMW 「嗯？」
		PRINTFORMW 「让、让您见笑了！」
		PRINTFORMW %CALLNAME:TARGET%用非常惊人的气勢站了起来。
		PRINTFORMW 好像被%CALLNAME:MASTER%看到睡颜非常害羞的様子……
	ENDIF
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖点心"
		IF RAND:3 == 0
			PRINTFORMW 「啊啦、您过奖了」
			PRINTFORMW 「……呼呼。从主人口中说出来的话就是让人受用呢」
		ELSEIF RAND:2
			PRINTFORMW 「很合的来呢。我也是、连我自己的内心都在自画自賛自己做的很好」
			CALL PRINT_STRW, "「怎么样？主人様也、还要再来一人份吗？……呼呼呼_H_」"
			PRINTFORMW %CALLNAME:TARGET%は開心地微笑着、将自己做の%TEXTS("点心")%理所当然的换了一份
		ELSE
			PRINTFORMW 「呼呼、你喜欢吗？」
			PRINTFORMW %CALLNAME:TARGET%因为%CALLNAME:MASTER%的賛辞而满脸開心
		ENDIF
	CASE "夸奖"
		IF RAND:3 == 0
			PRINTFORMW 「啊啦、您过奖了」
			PRINTFORMW 「……呼呼。从主人口中说出来的话就是让人受用呢」
		ELSEIF RAND:2
			PRINTFORMW 「…诶？ 哈啊……非常感谢？」
			PRINTFORMW %CALLNAME:TARGET%一脸不知道自己为什么会被表扬的困惑表情、不过总而言之还是挺高兴的
		ELSE
			PRINTFORMW 「啊啦啊啦、嘴真甜啊」
			PRINTFORMW %CALLNAME:TARGET%因为%CALLNAME:MASTER%的賛辞而满脸開心
		ENDIF
	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORMW 「……！」
			PRINTFORMW 「%CNAME("二人称", "どもり")%。那个、我、……我也」
			CALL PRINT_STR, "「很喜欢你……呦_HH_」_W"
		ELSEIF CALCF("甜言蜜语成功")
			CALL PRINT_STR, "「呼呼_H_ 说出这种话……我可是要当真的呦？」_W_"
			PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:MASTER%满口的甜言蜜语非常满意的様子
		ELSE
			CALL PRINT_STR, "「就算是骗人的我也很高兴呦_HH_」_W_"
			PRINTFORMW %CALLNAME:TARGET%虽然没把%CALLNAME:MASTER%的话太当真、但是还是挺高兴的
		ENDIF
	CASEELSE
		IF RAND:8 == 0 && CFLAG:内衣確認済 == 0 && EQUIP:裙 && CFLAG:掀起裙子 == 0
			PRINTFORMW 「哈？内裤的颜色？」
			IF EQUIP:胖次 && RAND:2
				PRINTFORMW 「现在穿着的是%CLOCOLOR(CSTR:胖次, "形容詞")%、怎么了？」
				CALL SETFLAG_DAILY, "胖次色確認"
			ELSE
				PRINTFORMW 「…………保密」
			ENDIF
		ELSEIF RAND:7 == 0
			PRINTFORMW 「喜欢的PLAY……吗？」
			PRINTFORMW 「这么说的话、果然还是比较喜欢奉仕%CNAME("二人称")%、毕竟是女仆嘛」
		ELSEIF RAND:6 == 0
			PRINTFORMW ゴキッゴキゴキ……ボキボキ
			PRINTFORMW 「……什么嘛、这个表情」
			IF RAND:2
				PRINTFORMW 「全部交给你也没有関系呦？过来过来、别想逃跑哦」
			ELSE
				PRINTFORMW 「每天都忙着照顾%CNAME("二人称")%、肩膀都硬了」
			ENDIF
		ELSEIF RAND:5 == 0
			PRINTFORMW 「好……掃除结束了」
			IF RAND:2
				PRINTFORMW 「刚刚泡好了茶、不介意的话%CNAME("二人称")%也要来一杯吗？」
			ELSE
				PRINTFORMW 「不知道是因为哪个不会收拾的人、每天都这个样子、真是的……」
			ENDIF
		ELSEIF RAND:4 == 0
			PRINTFORMW 「嗯？ %CNAME("一人称")%的脸上沾了什么东西吗？」
			PRINTFORMW 「……啊、难道说是注意到我新换的唇膏了吗」
			PRINTFORMW 「比想象中的更有观察力嘛……表扬你一顿也可以呦？」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「最近空気好乾燥啊……嘴唇都要变干了」
		ELSEIF RAND:2
			PRINTFORMW 「啊啊好忙啊好忙啊……不好意思、%CNAME("二人称")%稍微让開一点」
		ELSE
			PRINTFORMW 「今天的飯是%CNAME("一人称")%喜欢的苦菊拌培根的温沙拉呦ー」
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;前回赤点で、それどころではない
	IF COND("成績：赤点")
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「嗯～ん%CNAME("二人称")%平时总是那么聪明、是啊……」
			PRINTFORMW 「如果成绩稍微好一点的话、就很容易进入TOP10、怎么样。呼呼呼♪」
		ELSE
			PRINTFORMW 「突然表情变得神妙、一想说到想要什么就说想要H的奖励之类的……呼呼」
			PRINTFORMW 「唉、可以哦……%CNAME("二人称")%可是很喜欢你那地方、%CNAME("一人称")%♪」
			PRINTL
			PRINTFORMW ……%CALLNAME:TARGET%做出了ＯＫ的意思！
		ENDIF
	ENDIF
CASE "擦身体"
	IF RAND:2
		PRINTFORML 「啊啦、非常感谢。那么、就恭敬不如从命……拜托了」
		PRINTFORMW %CALLNAME:TARGET%对坦率表示感谢、開始顺从%CALLNAME:MASTER%の厚意撒娇
		PRINTFORML 「反正是背和……之后、这里也拜托了」
		PRINTFORMW %CALLNAME:MASTER%在享受洗完澡时的气味、用毛巾擦拭%CALLNAME:TARGET%の后背和腋下使之清爽…
	ELSE
		PRINTFORML 「哇っ、啊っ、等……啊ぁ、もうっ、请不要把頭扭过来！」
		PRINTFORMW 虽然%CALLNAME:TARGET%被坦率地擦拭着身体、但是对于頭发的处理好像很不满。
		PRINTFORML
		PRINTFORML 「真是的……因为出浴容易受伤。请注意哦」
		PRINTFORMW %CALLNAME:TARGET%以回礼的感觉、用手梳着%CALLNAME:MASTER%の頭ガシガシ得响着……
	ENDIF
CASE "拭汗"
	IF RAND:3 == 0
		PRINTFORMW 「啊啦、能帮我擦汗吗」
		PRINTFORMW 「……但是%CNAME("二人称")%……我觉得先从腿上的汗開始擦怎么样？」
		PRINTFORMW 「虽然稍微佩服你的诚实、但也会担心你会渐渐失去作为一个人重要的东西」
		PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%一边雑談し一边度过愉快的时光。
	ELSEIF RAND:2
		PRINTFORMW 「衣服下面也可以擦一下吗？」
		PRINTFORMW 「ほら（ho la）、不是挺好的吗……咕呲くす♪」
		PRINTFORMW %CALLNAME:TARGET%眯着眼睛笑着、对%CALLNAME:MASTER%撒娇、催促%CALLNAME:MASTER%把腋下和乳房下面也擦一擦……
	ELSE
		PRINTFORMW 「啊啦。你真机灵」
		PRINTFORMW 「……フフ♪」
		PRINTFORMW %CALLNAME:TARGET%带着意味深长的笑容、擦拭着%CALLNAME:MASTER%流淌的汗水……
	ENDIF
CASE "淋浴独り言"
	PRINTFORML 「%TEXTR("呜嗯 呜嗯 呜呜ー嗯♪/♪～～♪～～～/ら～～らららら～～♪/呜ー嗯 呜嗯 呜呜ー嗯 呜ー嗯♪")%」
CASE "淋浴"
	IF PLACE("自宅")
		PRINTFORMW 「啊啦。回来了嘛」
	ELSE
		PRINTFORMW 「啊啦。你来了嘛」
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%用抹布擦湿頭发一边%TEXTR(@"环视室内、从后面将%CALLNAME:MASTER%抱住了/、坐在%CALLNAME:MASTER%の旁边")%。
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW 「……那么、怎么样？」
		PRINTFORMW %CALLNAME:TARGET%把嘴凑到%CALLNAME:MASTER%の耳边、从心底里高兴地低声私语。
		PRINTFORMW 「怎么说呢、当然是%CNAME("一人称")%の胖次啊……你觉得没有暴露吗？」
		CALL PRINT_STR, @"「呼呼呼_H_」_W"
	ELSE
		PRINTFORMW 「怎么了、不要说话。……没有什么奇怪的恶作剧吧？」
		PRINTFORMW 从刚刚流汗の%CALLNAME:TARGET%身上、一股想一直闻下去的好气味油然而生…
	ENDIF
CASE "淋浴後换装"
	PRINTFORMW 「呼呼っ……让您久等了」
	PRINTFORMW 「怎么样？适合吗、%CNAME("二人称")%？」
	PRINTFORMW %CALLNAME:TARGET%在%CALLNAME:MASTER%の目前摊開双手、露出自己换好衣服的样子、恶作剧般地微笑着。
CASE "淋浴後换装失敗"
	PRINTFORMW 「……果然是%CNAME("二人称")%干的好事」
	PRINTFORMW 「旁边放着一个不奇怪的东西、我还以为是什么事呢……呼呼♪」
	PRINTFORMW 洗完澡的%CALLNAME:TARGET%用抹布擦頭发的同时、坐在%CALLNAME:MASTER%的旁边稍微坏心眼地微笑着。

;睡眠中の悪戯
CASE "趁睡袭击"
	CALL KOJO_SLEEP_K1
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "露出胖次"
		IF CHOSE_DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "△/红晕"
			PRINTFORMW 「……主人様。はしたないですよ」
		ELSE
			PRINTFORMW ……%CALLNAME:TARGET%には効果が单薄的ようだ。
		ENDIF
	CASE "舐陰奉仕する", "口交奉仕する"
		PRINTFORMW 「啊啦……看起来很開心呢」
	CASE "一起学习"
		IF RAND:3 == 0
			PRINTFORMW 「………む。%CNAME("二人称")%。ちょっとこの青ペン借りてもいいですか？」
			PRINTFORMW かきかきかき。
			PRINTFORMW 「有がとうございました。なかなか書き味が良いですね、これ」
		ELSEIF RAND:2
			PRINTFORMW 「あ、そうそう%CNAME("二人称")%、もうあの課題終わってますか？」
			PRINTFORMW 「もしまだなら協力して半分ずっこしましょうよ♪」
		ELSE
			PRINTFORMW 「おやおや、どんな風の吹き回しですか？」
			PRINTFORMW 「……なーんて♪ ふふふ♪」
			PRINTFORMW %CALLNAME:TARGET%是そいそと学生鞄を用意して%CALLNAME:MASTER%との学习会を楽しんだ。
		ENDIF
	CASE "托一托胸部"
		IF RAND:2
			IF RAND:4 == 0
				PRINTFORMW 「啊啦、很突然呢……怎么了？」
			ELSEIF RAND:3 == 0
				PRINTFORMW 「え、あ。……是？」
			ELSEIF RAND:2
				PRINTFORMW 「…………哈？ 诶～怎……怎么了？」
			ELSE
				PRINTFORMW 「……那个。究竟在干什么呢」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%很困惑……%CALLNAME:MASTER%好像不明白从胸部的重量中解放出来的心思
			IF RAND:2
				PRINTFORML 「啊啊、已经……请不要犹豫」
			ELSE
				PRINTFORML 「啊啊、真是的……手指请不要太用力」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%虽然还不至于生气、但始终很困惑……
		ELSE
			PRINTFORMW 「啊啦、就这样替我拖住吗。非常感谢……真不错啊」
			PRINTFORMW 「……怎么、以为我会说什么吗？」
			PRINTFORMW ジ萝莉。
			PRINTFORMW 又沉又柔软……
		ENDIF
	CASE "按摩"
		IF EQUIP:裙 && COND("欲求不満") && RAND:3 == 0
			PRINTFORMW 「吶~、%CNAME("二人称")%……如果可以的话、这里也可以拜托你吗？」
			PRINTFORMW %CALLNAME:TARGET%捏着裙子的下摆翩翩起舞、向%CALLNAME:MASTER%送去了秋波
			PRINTFORMW 「フフ……♪」
		ELSEIF RAND:2
			PRINTFORMW 「吼~。你真机灵……不愧是%CNAME("一人称")%爱的%CNAME("二人称")%♪」
			PRINTFORMW %CALLNAME:TARGET%把身体交给了%CALLNAME:MASTER%、享受着按摩……
		ELSE
			PRINTFORML 「啊啦、非常感谢……你对結構很擅长呢」
			PRINTFORMW %CALLNAME:TARGET%眯着眼睛、好像很舒服似的让肩膀被揉着……
			PRINTL
			PRINTFORMW 「……呼ぅ。你的本领真不错。下一次该我了吧」
			PRINTL
			IF RAND:2
				PRINTFORMW 「怎么样？……再用力点好吗？」
			ELSE
				PRINTFORMW 「客人是第一次来这种店吗？」
				PRINTFORMW 「哇ぁ、好厉害。嘎吱嘎吱的响呢……♪」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%心情好、揉解了%CALLNAME:MASTER%的肩膀……
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「ちゅっ♪」
			PRINTFORMW 「呼呼。要持续到什么时候？」
			PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%轮吻。
		ELSEIF RAND:3 == 0
			PRINTFORMW 「きゃっ……♪」
			PRINTFORMW 「已经不行了、突然这么做」
			PRINTFORMW 因为冷不防的攻击而双唇被夺走的%CALLNAME:TARGET%は、两颊绯闻地责备了%CALLNAME:MASTER%
		ELSEIF RAND:2
			PRINTFORML 「呼呼。是脸颊嘛」
			PRINTFORMW 亲吻了脸颊的%CALLNAME:TARGET%用指尖轻触著嘴唇
		ELSE
			PRINTFORML 「嗯……♪」
			PRINTFORMW %CALLNAME:TARGET%眯着眼睛接受了%CALLNAME:MASTER%の接吻
		ENDIF
	CASE "膝枕"
		IF RAND:2
			PRINTFORMW 「嘛ぁ……可以、但是」
			PRINTFORML 「这样的事、%CNAME("一人称")%才是膝枕的一方吧」
			PRINTFORMW 頭搭在%CALLNAME:MASTER%の膝上的%CALLNAME:TARGET%、总觉得有些不自在……
		ELSE
			PRINTFORMW 「%CNAME("二人称")%……？ 到底吹的是什么風？」
			PRINTFORMW %CALLNAME:TARGET%的声音渗透着警戒声……
			PRINTFORMW 但、带着惊讶的表情把頭放在%CALLNAME:MASTER%の膝盖上
			PRINTFORMW 「你没有考虑奇怪的事情吧……？」
			PRINTFORMW 看来只是不习惯而已、却好像很開心？
		ENDIF
	CASE "泡茶"
		IF RAND:3 == 0
			PRINTFORMW 「非常感谢……哪个？」
			PRINTFORMW 咕噜。
			PRINTFORMW 「嗯。相当……但是、用稍微热一点的热水泡的话会更好、水分不会消失掉吗？」
			PRINTFORMW %CALLNAME:TARGET%在蘊蓄知识的同时、津津有味地品茶
		ELSEIF RAND:2
			PRINTFORMW 「啊啦。你真机灵」
			PRINTFORMW %CALLNAME:TARGET%笑着接了茶
		ELSE
			PRINTFORMW 「诶……很美味呢。需要重新审视了。」
			PRINTFORMW 「啊、不、并不是说至今为止都很轻视？」
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL PRINT_STR, "「きゃっ、んっ……_H_ し、因为是稍微敏感的地方……所以请手下留情」_W"
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「～～～！」
			PRINTFORMW %CALLNAME:TARGET%以痒痒的、舒服的样子昏厥着……
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW 「……请温柔一点」
			PRINTFORMW %CALLNAME:TARGET%稍微忍耐臉上泛起了紅潮的刺激……
		ELSE
			PRINTFORMW 「きゃっ……真是的、%CNAME("二人称")%回去后又是抚摸尾巴嘛」
		ENDIF
	CASE "送一份高价的礼物"
		IF CEVENT("るんるんルンバ") == 0
			PRINTFORMW 「啊啦。你真机灵♪」
			PRINTL ガサゴソ
			PRINTFORMW 「さてさて。中身は一体何なんでしょう……これは？！」
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%は　ルンバ！　を手に入れた！！
			PRINTL
			CALL EMOTION_PLUS, "甜言蜜语"
			CALL PRINT_STRW, @"「%CNAME("二人称", "どもり")%……あ、有がとうございます……_H_」"
			CALL SET_CEVENT, "るんるんルンバ"
		ELSE
			PRINTFORMW 「啊啦。你真机灵♪」
		ENDIF
	CASEELSE
		PRINTFORMW 「啊啦。你真机灵♪」
	ENDSELECT

CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K1
	WAIT
CASE "被拒绝了学习的邀请"
	IF RAND:2
		PRINTFORMW 「啊啦、真无情啊。有点失落」
	ELSE
		PRINTFORMW 「啊啦。还有别的事吗」
	ENDIF
CASE "勉強前に胖次要求"
	IF RAND:3 == 0
		PRINTFORMW 「总觉得好像不能专心学习了、算了吧……请用」
	ELSEIF RAND:2
		PRINTFORMW 「……嘛ぁ、如果是那种程度的请求的话」
	ELSE
		PRINTFORMW 「呼呼……真是没办法的人啊♪」
	ENDIF
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请", "推倒"
		IF COND("欲求不満") >= 3
			PRINTFORMW 「%CNAME("二人称")%对不起、已经忍耐到极限了……请原谅我」
			PRINTFORMW %CALLNAME:TARGET%紧贴着%CALLNAME:MASTER%身体、还做出涩情动作……
		ELSE
			PRINTFORMW 「%CNAME("二人称")%的话、好像有空呢」
			PRINTFORMW 「……如果可以的话、%CNAME("一人称")%呢来帮你排解无聊吗？」
		ENDIF
	CASE "邀请学习"
		IF RAND:3 == 0
			PRINTFORMW カリカリカリカリ…………
		ELSEIF RAND:2
			PRINTFORMW 「ふぅ……大分進みましたね。少し休憩いたしましょうか、%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「あ、わかんない問題有ました？え～とこれはですね、察看前一頁の……このやり方で解けますよ」
			PRINTFORMW 「でですね。これを使うと定理を一つ覚えてなくても何とか出来るようになるんですよ」
		ENDIF
	CASE "口淫", "展示内褲"
		PRINTFORMW 「怎么样？这样的……喜欢吗？」
	CASE "清洁口交"
		CALL PRINT_STRW, @"「%CNAME("二人称")%、不好意思了……フフ_H_」"
	CASE "亲脸頬", "接吻"
		IF RAND:3 == 0
			PRINTFORMW 「对不起、都是%CNAME("二人称")%の様子太毫不防备了……♪」
			PRINTFORMW %CALLNAME:TARGET%的话听起来很对不起、但表情却是笑着的……
		ELSEIF RAND:2
			PRINTFORMW 「ちゅっ……♪ 看、这次不是轮到%CNAME("二人称")%吗？」
			PRINTFORMW 「没什么。開玩笑啦、玩笑♪」
			PRINTFORMW %CALLNAME:TARGET%笑嘻嘻的窥视者%CALLNAME:MASTER%の顔…
		ELSE
			PRINTFORMW 「真是冒失呢？」
			PRINTFORML 「フフ♪」
			PRINTFORMW 微微一笑的%CALLNAME:TARGET%、轻轻地抱住%CALLNAME:MASTER%
		ENDIF
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		IF RAND:6 == 0
			PRINTFORMW 「ん……%CNAME("二人称")%の体温好像感受到了」
			PRINTFORMW %CALLNAME:TARGET%紧紧贴住%CALLNAME:MASTER%の身体享受着人肌带来の温度……
		ELSEIF RAND:5 == 0
			PRINTFORMW 「%CNAME("二人称")%怎么了？心扑通扑通地跳呢？」
			PRINTFORMW 「%CNAME("一人称")%、心也稍微有点……扑通扑通地跳呢」
			PRINTFORMW %CALLNAME:TARGET%的身体像猫一样蹭着%CALLNAME:MASTER%の身体……
		ELSEIF RAND:4 == 0
			PRINTFORMW 「%CNAME("二人称")%、怎么了吗？」
			PRINTFORMW 「能得到像%CNAME("一人称")%这样的女孩子的撒娇、实际上内心会高兴吗？」
			PRINTFORMW %CALLNAME:TARGET%一边说着难以马上回答的问题、一边闭上眼睛体味着%CALLNAME:MASTER%の温暖
		ELSEIF RAND:3 == 0
			PRINTFORMW 「呼呼♪」
			PRINTFORMW 「不讨厌内、这样的也不错♪」
		ELSEIF RAND:2
			PRINTFORMW 「……怎么了？都僵住了」
			PRINTFORMW 「%CNAME("一人称")%做这种事不意外吗？」
		ELSE
			PRINTFORMW 「啊、等一下、请不要逃啊……偶尔这样也不错呢♪」
			PRINTFORMW %CALLNAME:TARGET%用天真无邪的笑容、享受着和%CALLNAME:MASTER%の嬉戏
		ENDIF
	CASE "抚摸", "手淫"
		IF RAND:3 == 0
			PRINTFORMW 「%CNAME("二人称")%的话、感觉很舒服呢」
		ELSEIF RAND:2
			PRINTFORMW 「看起来很闲啊……不做些什么吗？」
			PRINTFORMW 「如果你不做的话、那能让我再更多更多的抚摸你吗？」
		ELSE
			PRINTFORMW 「呼呼……这样抚摸着、你很喜欢吗？」
		ENDIF
	CASE "膝枕"
		IF RAND:3 == 0
			PRINTFORMW 「啊啦、枕頭是趴着用的吗？」
			PRINTFORMW 「我觉得这样只会呼吸困难而已呢」
		ELSEIF RAND:2
			PRINTFORMW 「能让主人膝枕、%CNAME("一人称")%是个幸福的女仆呢」
			PRINTFORMW %CALLNAME:TARGET%温柔地抚摸着%CALLNAME:MASTER%の頭、眯缝着眼睛小声地嘟囔着
		ELSE
			PRINTFORMW 「…………」
			PRINTFORMW 「不是呢、我只是想起了妈妈给我做的事情」
			PRINTFORMW 「%CNAME("一人称")%啊、也真的想为你生个孩子」
		ENDIF
	CASE "沏茶"
		IF RAND:3 == 0
			PRINTFORMW 「%CNAME("二人称")%、请。因为很烫、所以请呼一下之后再喝」
		ELSEIF RAND:2
			PRINTFORMW 「今天用了稍微贵一点的茶叶。希望合您的口味」
		ELSE
			PRINTFORMW 「只是粗茶而已、请用」
		ENDIF
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW 「最近总是千篇一律呢……都没有什么有趣的事情发生吗？」
			PRINTFORMW %CALLNAME:TARGET%一副倦怠的样子跟%CALLNAME:MASTER%搭话、然后靠过来
		ELSE
			PRINTFORMW 「呼ぅ……我累了」
			PRINTFORMW %CALLNAME:TARGET%从%CALLNAME:MASTER%的从后面抱住然后一动不动……
			PRINTFORMW 「（胸）很重吗？ ……呼呼」
			PRINTFORMW 「如果说喜欢%CNAME("一人称")%的话，说不定可以放開你呢？」
		ENDIF
	ENDSELECT
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「我回来了……啊啦？%CNAME("二人称")%在啊」
			PRINTFORMW 「……っとと、咳哼。没什么事」
			PRINTFORMW %CALLNAME:TARGET%无意中表明自己去了厕所、咳嗽了一声。
		ELSE
			PRINTFORMW 「我回来了」
			SIF RAND:2
				PRINTFORMW 「%CNAME("一人称")%不在的期间、不寂寞吗？ 呼呼♪」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		IF RAND:2
			PRINTFORMW 「……%CNAME("二人称")%、等、真是失礼了」
		ELSE
			PRINTFORMW 「……请让我稍微离開一下座位」
		ENDIF
	ENDIF
CASE "廁所詮索"
	IF RAND:3 == 0
		PRINTFORMW 「……フフ♪」
		PRINTFORMW 「这次我就原谅你。这种问题以后再也不会提了」
		PRINTFORMW %CALLNAME:TARGET%虽然嘴上是笑容、但眼睛却不笑……
	ELSEIF RAND:2
		PRINTFORMW 「额……。%CNAME("二人称")%……関于那个问题怎么样……」
		PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:MASTER%の質問感到惊讶……
	ELSE
		PRINTFORMW 「诶？！ 诶、那个……稍微、去摘花了」
		PRINTFORMW %CALLNAME:TARGET%面对提问不知所措的同时、弄得语无伦次坦白说是去了厕所。
	ENDIF
CASE "廁所を覗く"
	;驚愕
	IF RAND:2
		IF RAND:3 == 0
			PRINTFORMW 「呀啊啊啊啊！」
		ELSEIF RAND:2
			PRINTFORMW 「哎っ！等下、%CNAME("二人称")%、等一下！！」
		ELSE
			PRINTFORMW 「！？」
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「……え、あ。……是？」
		ELSEIF RAND:2
			PRINTFORMW 「…………哈？ 诶～怎……怎么了？」
		ELSE
			PRINTFORMW 「……那个。究竟在干什么呢」
		ENDIF
	ENDIF
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K1
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「真是的……真烦人」
			PRINTFORMW 「那样的事、请选择用ＴＰＯ来告诉我」
			PRINTFORMW %CALLNAME:TARGET%用锐利的視線责备%CALLNAME:MASTER%
			PRINTFORMW 看来说再多也没用……
		ELSEIF RAND:2
			PRINTFORMW 「…………フフ♪」
			PRINTFORMW 「那种事情到床上再说吧」
			PRINTFORMW %CALLNAME:TARGET%の目里……没有笑意
		ELSE
			PRINTFORMW 「え」
			PRINTFORMW 「虽说是%CNAME("二人称")%但也有点……」
			PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:MASTER%の要求露出一副瞧不起的表情……
		ENDIF
	ELSE
		IF CHECK_STAIN(STAIN:Ｖ, "Ｖ恥垢")
			PRINTFORMW 「只是看的话倒没什么関系、只要不到嗅%TEXTS("气味")%的程度就行了」
			PRINTFORMW 「……毕竟也不是什么好闻的地方呐」
		ELSE
			PRINTFORMW 「那个是、绕圈子确认%CNAME("一人称")%の身嗜状况？」
			PRINTFORMW 「フフ、有好好的清洁哦……♪」
		ENDIF
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K1
		WAIT
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		IF RAND:3 == 0
			PRINTFORMW 「それにしてもお好きですよねぇ、%PANTIES(TARGET, "胖次")%」
			PRINTFORMW 「真的不会腻吗？」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%」
			PRINTFORMW 「接下来是……那边吗？」
			PRINTFORMW %CALLNAME:TARGET%把視線投向旁边的床
		ELSE
			PRINTFORMW 「那个～……还在再继续下去吗？」
			PRINTFORMW 「真是的、%CNAME("二人称")%的兴趣未免也太……」
		ENDIF
	ELSEIF RAND:3 == 0
		PRINTFORMW 「呼呼。看上去很享受的様子呢」
	ELSEIF RAND:2
		PRINTFORMW 「%CNAME("二人称")%真的是很喜欢干这种事呢」
	ELSE
		PRINTFORMW 「……%PANTIES(TARGET, "胖次")%が汚れてしまうので、満足したらやめてくださいね？」
	ENDIF
;念のため分岐を作って有ますが多いので取捨選択してください
CASE "撫摸股間"
	;基本は害羞
	CALL EMOTION_PLUS, "害羞"
	;初めて
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「きゃっ……も、もう、%CNAME("二人称")%ったら……」
		SIF FLAG:二人きり
			PRINTFORMW 「……もしかして、したくなっちゃいました？」
		PRINTFORMW 少し困った顔をした%CALLNAME:TARGET%だが、別に怒って是ない様子だ
	;この時間で初実行
	ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0
		IF CFLAG:打招呼された == 0
			CALL EMOTION_PLUS, "△/对话框乱"
			PRINTFORMW 「%CNAME("二人称")%……こういう事は、せめて打招呼してからにしませんか？」
			PRINTFORMW 「顔どころか体を見るなりいきなりって…………はぁ」
			PRINTFORMW %CALLNAME:TARGET%は流石に呆れた様子を見せた
		ELSEIF CHECK_CLO("布鲁马露出") + CHECK_CLO("泳装ボトム露出")
			IF RAND:2
				PRINTFORMW 「已经……少しだけですよ？」
			ELSE
				CALL EMOTION_PLUS, "害羞/△"
				PRINTFORMW 「……%CNAME("二人称")%ってお好きですよね、\@ CHECK_CLO("布鲁马露出") ? 布鲁马 # この格好 \@」
				PRINTFORMW 「うっかり同級生の方々に手を出したり不会うに、注意してくださいね？」
			ENDIF
		ELSEIF RAND:2
			PRINTFORMW 「きゃっ……も、もう、%CNAME("二人称")%ったら……」
		ELSE
			PRINTFORMW 「……%CNAME("二人称")%ってばお行儀悪いんですから」
		ENDIF
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		CALL EMOTION_PLUS, "害羞/無口系"
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "害羞/小口"
			PRINTFORMW 「……んっ…………っ……」
		ELSEIF RAND:2
			PRINTFORMW 「……」
		ELSE
			PRINTFORMW 「あの……まだ続けるんですか？」
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「え、またですか？ %CNAME("一人称")%は構いませんけど……んん……」
		ELSE
			CALL EMOTION_PLUS, "害羞/△"
			PRINTFORMW 「%CNAME("二人称")%って本当にこういう行為がお好きですよね……」
		ENDIF
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K1
		WAIT
	ELSEIF CFLAG:股間確認済 && RAND:2
		IF CHECK_BODYS("勒紧的") && COND("陰毛") >= 5 && RAND:2
			SELECTCASE COND("陰毛")
			;自然以上
			CASE IS >= 6
				PRINTFORMW 「あの～……%CNAME("二人称")%？」
				PRINTFORMW 「很抱歉在你期待的时候打扰了，但是能请不要做那样的事吗」
				PRINTFORMW %CALLNAME:TARGET%以疲惫的表情、对玩着玩弄%CLO("股間")%刚露出来的阴毛的%CALLNAME:MASTER%表示抗议。
			;剃り整えている
			CASE 5
				PRINTFORMW 「虽然看得很仔细…………！？」
				PRINTFORMW 「等、这个不行、真是的……不要看！」
				PRINTFORMW %CALLNAME:TARGET%注意到没有剔好的陰毛从%CLO("股間")%露出来就慌忙用手遮住！
			ENDSELECT
		ELSE
			PRINTFORMW 「那个。太近了」
			PRINTFORMW 「什么太近了……是脸啦。等下、有点太过分了」
			PRINTFORMW %CALLNAME:MASTER%の呼吸刺激着%CALLNAME:TARGET%の大腿、看上去有点痒痒的……
		ENDIF
	ELSEIF CFLAG:夸奖
		PRINTFORMW 「%CNAME("二人称")%は、真的很喜欢这样的呢」
		PRINTFORMW 「……如果可以的话、不再仔细看一下吗？」
		PRINTFORMW %CALLNAME:TARGET%仁王立坐在在%CALLNAME:MASTER%の面前、接近了将股间触摸到脸的程度！
		CALL PRINT_STR, "「フフ_H_」_W_"
		PRINTFORMW %CALLNAME:TARGET%の%TEXTS("气味")%刺激%CALLNAME:MASTER%の鼻孔……
	ELSEIF RAND:2
		PRINTFORMW 「あの」
		PRINTFORMW 「……果然是盯着看太多了」
		PRINTFORMW 「如果觉得没被注意到的话就大错特错了不是吗？」
		PRINTFORMW %CALLNAME:TARGET%は、只要露出一点羞耻的地方就改变的自己的姿势。
	ELSE
		PRINTFORMW 「……」
		PRINTFORMW 「虽然看起来很热心」
		PRINTFORMW 「真就那么着迷吗、这个姿势」
		PRINTFORMW %CALLNAME:TARGET%一边望着%CALLNAME:MASTER%の様子、一边以稍微有些不可思议的样子接受了视奸……
	ENDIF
CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;胖次チラ直後
		IF COND("胖次チラ直後")
			PRINTFORMW 「フフ……脸上完美地露出来了，很想看这个吗？」
			PRINTFORMW 「怎么样？回答の結果是♪」
		ELSEIF RAND:2
			PRINTFORMW 「ほら（ho la）、可以的。请看好了」
			PRINTFORMW 「…………啊啦？难道不是？」
			PRINTFORMW 「呜哇……我、简直就是个露出狂……うわぁ」
		ELSE
			PRINTFORMW 「我是知道的……%CNAME("二人称")%想要做的事情、%CNAME("一人称")%是会对这种程度就豁出去的女仆」
			PRINTFORMW 「撒、不尽情的……享用吗？」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			IF RAND:3 == 0
				PRINTFORMW 「……え、あ。……是？」
				PRINTFORMW 「って、在干什么呢%CNAME("二人称")%……」
			ELSEIF RAND:2
				PRINTFORMW 「…………哈？ 诶～怎……怎么了？」
				PRINTFORMW 「什么也没做？是、是那样……吗？」
			ELSE
				PRINTFORMW 「……那个。究竟在干什么呢」
				PRINTFORMW 「你在翻裙子吗？ 不、是这样、但不是那样……」
			ENDIF
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K1
			WAIT
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「库哇啊……真的、%CNAME("二人称")%对自己很诚实呢」
			PRINTFORMW 「通过街道稍微有些吃惊、萌生出了尊敬的心情……」
		ELSE
			IF COND("打招呼前")
				IF RAND:2
					PRINTFORMW 「真是的……真没礼貌。、%CNAME("二人称")%」
					PRINTFORMW 「话说回来、请至少在打招呼之后再说」
				ELSE
					PRINTFORMW 「见面就是这个吗……呵呵。真是没办法的人啊」
				ENDIF
			ELSE
				IF EQUIP:胖次 == 0
					PRINTFORMW 「啊啦、真突然啊……真的、因为豐腴的间隙差点露出来」
					PRINTFORMW 「那么、怎么样？这样的性取向、你喜欢吗？」
				ELSEIF RAND:2
					PRINTFORMW 「啊啦、真突然啊……真的、因为豐腴的间隙差点露出来」
					PRINTFORMW 「那么、怎么样？这样的胖次、你喜欢吗？」
				ELSE
					PRINTFORMW 「……%CNAME("二人称")%？」
					PRINTFORMW 「如果想看%CNAME("一人称")%の胖次直接说出来不就好了……呵呵」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW 「我确实说过了，这样做很舒服。……我承认那个」
			PRINTFORMW 「但是呢、%CNAME("二人称")%。确定要做吗！？当着%CNAME("一人称")%の眼前说那样的话……」
			PRINTFORMW 在眼前是使用自己胖次的%CALLNAME:TARGET%は、因羞辱得面红耳赤、责备起来。
		ELSE
			PRINTFORMW 「呜哇……%CNAME("二人称")%。确定要做吗？当着%CNAME("一人称")%の眼前说那样的话……」
			PRINTFORMW %CALLNAME:TARGET%对%CALLNAME:MASTER%の行動感到厌恶……
		ENDIF
	ELSE
		PRINTFORMW 「真是的……看的这边会害羞的」
		PRINTFORMW 「要说是有点害羞还是说礼儀呢……」
		PRINTFORMW %CALLNAME:TARGET%红着脸移開视线、对%CALLNAME:MASTER%说了这样的话。
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		CALL EMOTION_PLUS, "害羞"
		;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 "Ｖ性交"
			IF COND("欲求不満") >= 3 && EQUIP:胖次 && CHECK_PANTIES("開洞")
				PRINTFORMW 「终于邀请我了、%CNAME("二人称")%……呼呼呼っ♪」
				PRINTFORMW %CALLNAME:TARGET%当场脱去内衣、用类似捉拿的手势展開胖次、開洞部分の愛液带污迹的被展示了出来。
				IF RAND:2
					CALL PRINT_STRW, "「请好好看着这里……我、已经等不及了……_H_」"
				ELSE
					CALL PRINT_STRW, "「撒、我们快点吧……我、已经做好万全準備万端了……_H_」"
				ENDIF
			ELSE
				PRINTFORMW 「啊啦、变得忍受不了不是吗？」
				PRINTFORMW 「……这也是没办法的啊♪」
			ENDIF
		CASE "Ａ性交"
			PRINTFORMW 「啊啦、变得不能忍耐了吗？」
			PRINTFORMW 「呵呵……屁股的话没関系哦？」
		;CASE "尿道性交"
		CASEELSE
			PRINTFORMW 「啊啦、变得忍受不了不是吗？」
			PRINTFORMW 「……这也是没办法的啊♪」
		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		PRINTFORMW 「……呼呼♪没関系。」
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			PRINTFORMW 「呜～嗯…………好的、知道了」
			PRINTFORMW 「途中就不能和你交合了、这一点请见谅呢？」
		CASE "Ｖ性交", "Ａ性交", "尿道性交"
			PRINTFORMW 「嗯、那样也没関系……请随意」
		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"
		IF RAND:2
			PRINTFORMW 「ん……ゴク。……呵呵っ、看起来变得清爽呢」
			PRINTFORMW %CALLNAME:TARGET%在工作结束后贴上%CALLNAME:MASTER%变得柔软の阴茎的同时、向上看的时候微笑了。
		ELSE
			PRINTFORMW 「嗯嗯っ……啊っ、%CNAME("二人称")%就保持这様……现在、我给你弄干净」
			PRINTFORMW 喝完了口中精液的%CALLNAME:TARGET%は、用自己的手帕擦掉附着在阴茎上的污垢。
		ENDIF
	CASE "乳交"
		IF RAND:2
			PRINTFORMW 「呵呵、好厉害啊。用%CNAME("一人称")%の胸来做……那么舒服吗？」
			PRINTFORMW %CALLNAME:TARGET%用手指捞取了弄脏自己身体的白浊液、像是给人看似的用舌頭一边舔一边戏弄。
		ELSE
			PRINTFORMW 「喔等下……出来了很多呢」
			PRINTFORMW 「真是的、%CNAME("二人称")%很健康呢♪」
			PRINTFORMW %CALLNAME:TARGET%摩擦涂满精液的乳房然后向左右展開、突显着橋挂在両胸中间的濃厚的白色粘液。
		ENDIF
	CASE "Ｖ性交"
		IF TEQUIP:PLAYER:避孕套
			PRINTFORMW 「%CNAME("二人称")%大人辛苦了……请稍等一下」
			PRINTFORMW 从%CALLNAME:MASTER%身上取下避孕套的%CALLNAME:TARGET%用嘴漂亮地弄脏的掃除阴茎。
			PRINTFORMW そればかりか、避孕套の中の精液を口に垂らして涼しい顔で飲み干し始めた……
			PRINTFORMW 「这次下面的里面还没有收到呢。呵呵呵♪」
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「あっ……ん、んん……っ……♪」
				CALL PRINT_STRW, "「……楽しんで頂けたようですね、フフ_H_」"
				PRINTFORMW %CALLNAME:TARGET%は乱れた髪を手ぐしで整え的同时、抜かれた阴茎から膣口にかけて伸びる粘液の橋を開心地看了过来……
			ELSEIF RAND:2
				PRINTFORMW 「嗯……啊……呜呼~……♪」
				PRINTFORMW 「感觉心情变好了呢、呵呵」
				PRINTFORMW 微微带着汗水%CALLNAME:TARGET%眯着眼睛微笑着、就这様一交合の体勢沉浸在余韻中……
			ELSE
				PRINTFORMW 「嗯、好烫……呵呵、出来这么多啊……♪」
				PRINTFORMW %CALLNAME:TARGET%对中出的事放緩脸頬、把手伸向%CALLNAME:MASTER%の顔頬温柔的撫摸着。
			ENDIF
		ENDIF
	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	PRINTFORMW 「……%CNAME("partner")%にそういう目で見られると、ちょっと恥ずかしいですね」
ENDSELECT

;-------------------------------------------------
;约会の際のセリフ
;-------------------------------------------------
@KOJO_DATE_K1, ARGS
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "约会のお誘い"
	PRINTFORMW 「……对了%CNAME("二人称")%。这次的休息日、有空吗？」
	PRINTFORMW 「不是的、只是如果可以的话……一起稍微的、出去玩一会吧」
	PRINTFORMW %CALLNAME:TARGET%稍微把脸挪開一点、斜着眼睛凝视着%CALLNAME:MASTER%。
	TFLAG:地の文スキップ = 1
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0

	ELSE
		PRINTFORMW 「啊啦……是约会的邀请吗？主人様」
		;ただの嫁じゃねえか
		IF TALENT:恋慕
			PRINTFORMW 「那我来准备便当、请稍微等一下吧」
		;	PRINTFORMW 「それと主人様の着替えも出しておきますから身支度をして待っていてくださいね」
			CALL SET_CEVENT, "约会の便当"
		ELSEIF ABL:信頼 >= 3
			PRINTFORMW 「原本就打算要买的、现在没関系的呢」
		;	PRINTFORMW 「何処に行きますか、主人様？」
		ELSE
			PRINTFORMW 「发烧了……没有啊」
			PRINTFORMW 「稍微吓了一跳呢、但没事就ＯＫ了」
		ENDIF
	ENDIF
CASE "待ち合わせ"
	IF COND("同居中") == 0

	ELSE
		PRINTFORMW 「让您久等了、主人様。虽然是这么说但也还是在家の玄関」
		PRINTFORMW 「快点快点、我们去哪里呢？」
	ENDIF
CASE "帰り際"
	PRINTFORMW 「%TEXTR("现在已经很晚了……就这样回去吗？/很開心的约会呢。今天就要回去了吗？")%」
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "逛街"
		PRINTFORMW 「偶尔这样普通做也不错的呢」
	;	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%%TEXTR("の買出しに付き合った/の着る洋服選びに付き合った/と飾品ー屋桑に行った/の内衣選びに付き合わされた/と二人スイーツを楽しんだ")%……
	CASE "去图书馆"
		PRINTFORMW 「%TEXTR("聪明的人很受欢迎。所以加油吧、主人様/我是来学习的……料理书很充实，但让人有点眼花缭乱呢/我们学校的図書館什么都有、很方便的、图书管理员看看过来呢")%」
	;	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%と%TEXTR("仲良く課題をこ无た/勉強するはずが……今度作る料理についての本を探していた/约会している所を司書のおねー桑に冷やかされた")%……
	CASEELSE

	ENDSELECT
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW 「这么H的是不行的吧？」
		PRINTFORMW 「……嘛ぁ、稍微有一点就行了」
	ELSEIF RAND:2
		PRINTFORMW 「呵呵。好啊、这样的……总觉得心里扑通扑通地跳♪」
	ELSE
		PRINTFORMW 「今年流行什么样的东西呢」
	ENDIF

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW 「%CNAME("二人称")%让您久等了。……怎么样？」
	CASE "Micro比基尼"
		PRINTFORMW 「%CNAME("二人称")%让您久等了。……合适吗？」
		PRINTFORMW 「……呵呵♪ 好像没必要问啊」
	CASE "連体泳装"
		PRINTFORMW 「%CNAME("二人称")%让您久等了。……怎么样？」
	CASE "競泳泳装"
		PRINTFORMW 「抱歉、%CNAME("二人称")%。让您久等了」
		PRINTFORMW 「……如果要急急忙忙更衣的话、也许比基尼比较好呢」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW 「……那个。请不要盯着看」
	ENDSELECT

CASE "接吻"
	IF RAND:2
		PRINTFORMW 「哇~……真是的、但如果是主人様的话」
	ELSE
		PRINTFORMW 「啊啦。突然袭击什么的……挺能干的嘛♪」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		PRINTFORMW 「是啊。……稍微、休息一下再做吧」
	ELSE
		PRINTFORMW 「%TEXTR("……呵呵。没什么。今天就牵着手回去吧/虽然有点舍不得，但回去后会特别为主人做喜欢的料理")%」
	ENDIF
ENDSELECT

;-------------------------------------------------
;ロード直後のセリフ
;ここではTARGETではなくARG番の角色で呼ばれる。CNAMEの代わりにCNAMETを使う事
;-------------------------------------------------
@KOJO_LOAD_K1, ARG
;ここではリアル日時参照で台詞を出すのが推奨
IF DAYEV("新年", "リアル日時")
	PRINTFORMW
ELSEIF DAYEV("情人節", "リアル日時")
	PRINTFORMW
ELSEIF DAYEV("圣诞节", "リアル日時")
	PRINTFORMW
ELSEIF DAYEV("深夜")
	PRINTFORMW
ELSEIF DAYEV("朝")
	PRINTFORMW
ELSE
	PRINTFORMW 加载后的台词
ENDIF


code:
;互动指令の選択肢を追加
@DAILY2_K1_ADDSELECT
;暫し封印
RETURN 0
[IF_DEBUG]
	STR:選択肢 += "一騎打ちで玩遊戲/"
	STR:選択肢 += "SUCCUBUS ESCAPE/"
	STR:選択肢 += "ヒットアンドブロ―/"
	STR:選択肢 += "ターンを終わらせる/"
[ENDIF]

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K1_ADDSELECT, ARGS
SELECTCASE ARGS
;直接ターンエンドしたい場合
CASE "ターンを終わらせる"
	;前編
	IF CEVENTS("追加選択肢からターンエンド") == ""
		PRINTFORMW テ接吻ト
		PRINTL [0]選択肢１(これを選ぶとターンエンドします)
		PRINTL [1]選択肢２(これを選ぶとターンエンドしません)
		CALL SET_CEVENT, @"追加選択肢からターンエンド：%ARGS%"
		FLAG:SELECT_USERSHOP = 998
	ELSE
		IF TFLAG:ターンエンド
			PRINTFORMW ターンエンドする場合の展開です
		ELSE
			PRINTFORMW こっちはターンエンドしない場合の展開です
		ENDIF
	ENDIF

CASE "一騎打ちで玩遊戲"
	PRINTFORML 画面中央に「！！」が出たら左阴蒂ックかエンターキー
	PRINTFORML 相手より早く反応しよう！
	CALL PRINT_SELECT, "就這樣吧/再想想吧"
	IF RESULT == 0
		CALL ONE_ON_ONE, 5
	ENDIF
CASE "SUCCUBUS ESCAPE"
	PRINTFORML %CALLNAME:TARGET%が推倒てきた！
	PRINTL
	PRINTFORML 【左阴蒂ック、Enterキー連打で抵抗】
	CALL SUCCUBUS_ESCAPE, 5
	TWAIT 500, 1
	PRINTL
	IF RESULT == 0
		PRINTFORML %CALLNAME:MASTER%は抵抗した！
	ELSE
		PRINTFORML %CALLNAME:TARGET%に組み伏せられた！
	ENDIF
CASE "ヒットアンドブロ―"
	CALL HITANDBLOW
ENDSELECT

;口上用のダミー
@DUMMYKOJO_DAILYCOM_K1, ARGS
SELECTCASE ARGS
CASE "一騎打ち"
	SELECTCASE STR:日常イベント名
	CASE "游戏開始"
		STR:1 = 「フフ。負けませんよ」
		CSTR:颜绘変化 = 重置
	CASE "待機中"
		STR:1 = 「……」
		CSTR:颜绘変化 = 重置/对话框・・・
	CASE "勝負"
		STR:1 = 「！！！」
		CSTR:颜绘変化 = 重置/对话框！
	CASE "一騎打ちで勝利"
		STR:1 = 「もう一回です！もう一回！」
		CSTR:颜绘変化 = 重置/憤怒眉/嘟嘴
	CASE "一騎打ちで引き分け"
		STR:1 = 「むむ……引き分けですか」
		STR:2 = 「%CNAME("二人称")%もなかなかやりますね」
		CSTR:颜绘変化 = 重置
	CASE "一騎打ちで敗北"
		STR:1 = 「今回は%CNAME("一人称")%の勝ちです。」
		CSTR:颜绘変化 = 重置/对话框開心
	CASE "一騎打ちでお手付き"
		STR:1 = 「お手付きで%CNAME("一人称")%の勝ちですね。」
		CSTR:颜绘変化 = 重置/闭眼/对话框兴奋
	ENDSELECT
CASE "ヒットアンドブロ―"
	SELECTCASE STR:日常イベント名
	CASE "游戏開始"
		STR:1 = 「さて、よく考えてくださいね」
		CSTR:颜绘変化 = 重置
	CASE "ヒットアンドブロ―正解"
		STR:1 = 「正解です！祝贺您！！」
		STR:2 = 「%CNAME("二人称")%にはかんたんでしたか？」
		CSTR:颜绘変化 = 重置/对话框兴奋
	CASE "ヒットアンドブロ―リ領帯ア"
		STR:1 = 「答えは%EXTSTR(STR:19, "答え：", "/")%です」
		STR:2 = 「次は当ててくださいね」
		CSTR:颜绘変化 = 重置/
	CASE "ヒットアンドブロ―降参"
		STR:1 = 「難しかったですか？」
		STR:2 = 「答えは%EXTSTR(STR:19, "答え：", "/")%です」
		CSTR:颜绘変化 = 重置/
	CASEELSE
		IF EXTSTR(STR:19, "解答：", "/") == "0721"
			STR:1 = 「その数入れると思っていました」
			CSTR:颜绘変化 = 重置/紅潮
		ELSEIF EXTSTR(STR:日常イベント名, "", "回目") == "9"
			STR:1 = 「次で最後です。答えは我明白了か？」
			CSTR:颜绘変化 = 重置/
		ELSE
			STR:1 = 「%EXTSTR(STR:19, "解答：", "/")%は%EXTSTR(STR:19, "ヒット：", "/")%ヒット、%EXTSTR(STR:19, "ブロー：", "/")%ブローです」
			CSTR:颜绘変化 = 重置/
		ENDIF
	ENDSELECT
ENDSELECT

;-------------------------------------------------
;ヒットアンドブロ―
;ARG:0で桁(最大5まで)、ARG:1が解答回数（最大20回）
;4桁までは10回、5桁は15回+ちょっとくらいがいいかも
;口上を書くときはSTR:19に様々なデータを入れてます
;答え：、解答：、ヒット：、ブロー：
;解答、ヒット、ブローは一個前に答えた内容です
;-------------------------------------------------
@HITANDBLOW, ARG:0 = 4, ARG:1 = 10
#DIM DYNAMIC LCOUNT, 2
#DIM DYNAMIC MEMO_LINECOUNT
#DIM DYNAMIC MEMO_TIME
#DIM DYNAMIC HIT
#DIM DYNAMIC BLOW
#DIM DYNAMIC SLOT, 5
#DIM DYNAMIC FLAG_INPUTS
#DIM DYNAMIC FLAG_CONTINUE
#DIM DYNAMIC RESCOUNT
#DIM DYNAMIC SPACE
#DIMS DYNAMIC TEMP
#DIMS DYNAMIC STATUS
#DIMS DYNAMIC SPIN_BUTTON
#DIMS DYNAMIC QUESTIONS, 5
#DIMS DYNAMIC ANSWERS, 5
#DIMS DYNAMIC HISTORY, 20
#DIMS DYNAMIC HANDOVER

SIF ARG:0 >= 6
	ARG = 5
SIF ARG:1 >= 21
	ARG = 20

PRINTL
MEMO_LINECOUNT = LINECOUNT
MEMO_TIME = GETSECOND()

;答えの4桁を作成
TEMP = 0123456789
FOR LCOUNT:0, 0, ARG:0
	ANSWERS:(LCOUNT:0) = %SUBSTRING(TEMP, RAND:(10 - LCOUNT:0), 1)%
	TEMP = %REPLACE(TEMP, ANSWERS:(LCOUNT:0), "")%
NEXT

;游戏開始
WHILE RESCOUNT < ARG:1

	;各種フラッグの重置
	FLAG_INPUTS = 1
	FLAG_CONTINUE = 0
	HIT = 0
	BLOW = 0
	TEMP =

	;前の表示は消す
	CLEARLINE LINECOUNT - MEMO_LINECOUNT

	;TARGETのセリフ
	;いろいろなデータをSTR:19入れて渡して给
	STR:19 = %HANDOVER%
	IF RESCOUNT == 0
		STR:日常イベント名 = 游戏開始
	ELSE
		STR:日常イベント名 = {RESCOUNT}回目
	ENDIF
	TRYCALLFORM DUMMYKOJO_DAILYCOM_K{NO:TARGET}, "ヒットアンドブロ―"
	;変な挙動を防ぐため空にする
	STR:19 =
	CALL DIALOGUE_FRAME_NAME, TARGET, CSTR:颜绘変化
	DRAWLINE

	;ノルマ表示と降参ボタン
	HTML_PRINT @"
残り：{ARG:1 - RESCOUNT}回 <button value='降参'>[ 降参 ]</button>
"

	;5行以上で下にスペースがない場合は右の行に移動する
	SPACE = MAX(WINDOWROWS()-(LINECOUNT - MEMO_LINECOUNT) - 3, 0)
	FOR LCOUNT:0, 0, MAX(SPACE, 5)
		SIF (LCOUNT:0 < 20 && SPACE) || LCOUNT:0 <= 5
			PRINTFORM %HISTORY:(LCOUNT:0)%
		;2行必要
		SIF SPACE < 20 && LCOUNT:0 + MAX(SPACE, 5) < 20
			PRINTFORM 　%HISTORY:( LCOUNT:0 + MAX(SPACE, 5) )%
		;3行必要
		SIF SPACE < 10 && LCOUNT:0 + MAX(SPACE * 2, 10) < 20
			PRINTFORM 　%HISTORY:( LCOUNT:0 + MAX(SPACE * 2, 10) )%
		;4行必要
		SIF SPACE < 5 && LCOUNT:0 + MAX(SPACE * 3, 15) < 20
			PRINTFORM 　%HISTORY:( LCOUNT:0 + MAX(SPACE * 3, 15) )%
		PRINTL
	NEXT

	PRINTL
	PRINTFORML 同じ数字を含まない{ARG:0}桁の数を答えてください。"降参"と入力すると降参します

	;マウスの入力欄の作成
	;[<] 0 [>] [<] 0 [>] [<] 0 [>] [<] 0 [>] [ OK ]
	SPIN_BUTTON = <nobr>
	FOR LCOUNT:0, 0, ARG:0
		SPIN_BUTTON += @"<button value='DOWN：{LCOUNT:0}'>%HTML_ESCAPE("[<]")%</button> {SLOT:(LCOUNT:0)} <button value='UP：{LCOUNT:0}'>%HTML_ESCAPE("[>]")%</button> "
	NEXT
	SPIN_BUTTON += "<button value='OK'>[ OK ]</button>"
	HTML_PRINT SPIN_BUTTON

	WHILE FLAG_INPUTS
		INPUTS
		SIF RESULTS != ""
			CLEARLINE 1
		;入力に対する処理
		IF STRCOUNT(RESULTS, "DOWN：")
			IF SLOT:( TOINT( EXTSTR(RESULTS, "：") ) ) == 0
				SLOT:( TOINT( EXTSTR(RESULTS, "：") ) ) = 9
			ELSE
				SLOT:( TOINT( EXTSTR(RESULTS, "：") ) ) -= 1
			ENDIF
			FLAG_CONTINUE = 1
			FLAG_INPUTS = 0
		ELSEIF STRCOUNT(RESULTS, "UP：")
			IF SLOT:( TOINT( EXTSTR(RESULTS, "：") ) ) == 9
				SLOT:( TOINT( EXTSTR(RESULTS, "：") ) ) = 0
			ELSE
				SLOT:( TOINT( EXTSTR(RESULTS, "：") ) ) += 1
			ENDIF
			FLAG_CONTINUE = 1
			FLAG_INPUTS = 0
		ELSEIF RESULTS == "降参"
			STATUS = 降参
			BREAK
		ELSEIF RESULTS == "OK" || RESULTS == ""
			FOR LCOUNT:0, 0, ARG:0
				TEMP += TOSTR(SLOT:LCOUNT)
			NEXT
			FLAG_INPUTS = 0
		ELSEIF STRCOUNT(RESULTS, "[0-9]") == ARG:0
			TEMP = %RESULTS%
			FLAG_INPUTS = 0
		ENDIF

		;数が入力されていた場合、内容を確認
		IF TEMP != ""
			;答えを数字ごとに分解する
			FOR LCOUNT:0, 0, ARG:0
				QUESTIONS:(LCOUNT:0) = %SUBSTRING(TEMP, LCOUNT:0, 1)%
			NEXT

			;回答の中に同じ数字が含まれていないか格子
			FOR LCOUNT:0, 0, ARG:0 - 1
				SIF FLAG_INPUTS
					BREAK
				FOR LCOUNT:1, (LCOUNT:0 + 1), ARG:0
					IF QUESTIONS:(LCOUNT:0) == QUESTIONS:(LCOUNT:1)
						PRINTFORML %TEMP%
						PRINTFORMW 解答に同じ数字が含まれています
						CLEARLINE 2
						TEMP =
						FLAG_INPUTS = 1
						BREAK
					ENDIF
				NEXT
			NEXT
		ENDIF
	WEND

	SIF FLAG_CONTINUE
		CONTINUE
	SIF STATUS == "降参"
		BREAK

	;答え合わせ
	FOR LCOUNT:0, 0, ARG:0
		FOR LCOUNT:1, 0, ARG:0
			IF QUESTIONS:(LCOUNT:0) == ANSWERS:(LCOUNT:1)
				IF LCOUNT:0 == LCOUNT:1
					HIT += 1
				ELSE
					BLOW += 1
				ENDIF
			ENDIF
		NEXT
	NEXT

	RESCOUNT += 1

	;結果を保存
	IF RESCOUNT < 10
		HISTORY:(RESCOUNT -1) = 　 {RESCOUNT}：
	ELSE
		HISTORY:(RESCOUNT -1) = 　{RESCOUNT}：
	ENDIF
	FOR LCOUNT:0, 0, ARG:0
		HISTORY:(RESCOUNT -1) += @"%QUESTIONS:(LCOUNT:0)%"
	NEXT
	HISTORY:(RESCOUNT -1) += @"　{HIT}H　{BLOW}B"

	;口上に渡す内容を作成
	HANDOVER = 答え：
	FOR LCOUNT:0, 0, ARG:0
		HANDOVER += @"%ANSWERS:(LCOUNT:0)%"
	NEXT
	HANDOVER += "\/解答："
	FOR LCOUNT:0, 0, ARG:0
		HANDOVER += @"%QUESTIONS:(LCOUNT:0)%"
	NEXT
	HANDOVER += @"\/ヒット：{HIT}\/ブロー：{BLOW}\/"

	;すべてHITなら正解
	IF HIT == ARG:0
		STATUS = 正解
		BREAK
	ENDIF

	;ここまで正解できなかったらリ領帯ア
	SIF RESCOUNT >= ARG:1
		STATUS = リ領帯ア
WEND

;ここから結果発表

;口上に渡す内容を作成
HANDOVER = 答え：
FOR LCOUNT:0, 0, ARG:0
	HANDOVER += @"%ANSWERS:(LCOUNT:0)%"
NEXT
HANDOVER += "\/解答："
FOR LCOUNT:0, 0, ARG:0
	HANDOVER += @"%QUESTIONS:(LCOUNT:0)%"
NEXT
HANDOVER += @"\/ヒット：{HIT}\/ブロー：{BLOW}\/解答回数：{RESCOUNT}\/時間：{GETSECOND() - MEMO_TIME}"

CLEARLINE LINECOUNT - MEMO_LINECOUNT

;TARGETのセリフ
STR:日常イベント名 = ヒットアンドブロ―%STATUS%
STR:19 = %HANDOVER%
TRYCALLFORM DUMMYKOJO_DAILYCOM_K{NO:TARGET}, "ヒットアンドブロ―"

;変な挙動を防ぐため空にする
STR:19 =
CALL DIALOGUE_FRAME_NAME, TARGET, CSTR:颜绘変化

DRAWLINE
IF STATUS == "正解"
	HTML_PRINT @"
解答回数：{RESCOUNT}　阴蒂我ム：{GETSECOND() - MEMO_TIME}秒
"
ELSE
	PRINTL
ENDIF
SPACE = MAX(WINDOWROWS()-(LINECOUNT - MEMO_LINECOUNT) - 3, 0)
FOR LCOUNT:0, 0, MAX(SPACE, 5)
	SIF (LCOUNT:0 < 20 && SPACE) || LCOUNT:0 <= 5
		PRINTFORM %HISTORY:(LCOUNT:0)%
	;2行必要
	SIF SPACE < 20 && LCOUNT:0 + MAX(SPACE, 5) < 20
		PRINTFORM 　%HISTORY:( LCOUNT:0 + MAX(SPACE, 5) )%
	;3行必要
	SIF SPACE < 10 && LCOUNT:0 + MAX(SPACE * 2, 10) < 20
		PRINTFORM 　%HISTORY:( LCOUNT:0 + MAX(SPACE * 2, 10) )%
	;4行必要
	SIF SPACE < 5 && LCOUNT:0 + MAX(SPACE * 3, 15) < 20
		PRINTFORM 　%HISTORY:( LCOUNT:0 + MAX(SPACE * 3, 15) )%
	PRINTL
NEXT

SIF WINDOWROWS()-(LINECOUNT - MEMO_LINECOUNT) - 3
	CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT) - 3

PRINTL
IF STATUS == "正解"
	PRINTFORML 正解です！
ELSEIF STATUS == "リ領帯ア"
	PRINTFORML 規定回数までに答えられなかったのでリ領帯アとなります
ELSEIF STATUS == "降参"
	PRINTFORML 降参しました
ENDIF
PRINTL
WAIT

;-------------------------------------------------
;左阴蒂ックかエンターキー連打でバーが右まで行かない様にする游戏
;2秒間の間にARGより多い数を押せれば成功となる（GETMILLISECOND()の挙動からかちょっとぶれる）
;RESULTの値が 0 → 成功、1 → 失敗
;これの後に"TWAIT 500"ほど入力を受け付けない時間を作るのを推奨
;-------------------------------------------------
@SUCCUBUS_ESCAPE, ARG
#DIM DYNAMIC MEMO_TIME
#DIM DYNAMIC MEMO_REDRAW
#DIM DYNAMIC PRINT_BAR
#DIM DYNAMIC BAR_MAX
#DIM DYNAMIC CORRECTION
#DIM DYNAMIC NOW_TIME
#DIM DYNAMIC CLICK_COUNT
#DIM DYNAMIC GAMESET

MEMO_TIME = GETMILLISECOND()
MEMO_REDRAW = CURRENTREDRAW()
BAR_MAX = CLIENTWIDTH () / GETCONFIG("フォントサイズ") * 100
CORRECTION = 500 / ARG
SIF 500 % CORRECTION
	CORRECTION += 1

REDRAW 0
PRINTL

;2秒経てば勝ち
WHILE MEMO_TIME + 2000 >= GETMILLISECOND()

	NOW_TIME = GETMILLISECOND() - MEMO_TIME

	CLEARLINE 1
	PRINT_BAR = (BAR_MAX * NOW_TIME) / (1500 + (CLICK_COUNT * CORRECTION))
	IF PRINT_BAR
		HTML_PRINT @"<nobr><shape type='rect' param='0,30,{PRINT_BAR},60'>"
	ELSE
		PRINTL
	ENDIF

	;この条件を満たすと負け
	IF NOW_TIME > (1500 + (CLICK_COUNT * CORRECTION))
		GAMESET = 1
		BREAK
	ENDIF

	INPUTMOUSEKEY 100
	IF RESULT:0 == 1
		SIF RESULT:1 == 0x100000
			CLICK_COUNT += 1
	ELSEIF RESULT:0 == 3
		SIF RESULT:1 == 13
			CLICK_COUNT += 1
	ENDIF
WEND

REDRAW MEMO_REDRAW

RETURN GAMESET
;-------------------------------------------------
;画面中央に「！！」が出たら左阴蒂ックかエンターキー
;相手より早く反応しよう！
;ARGで相手の勝つラインを操作できます
;-------------------------------------------------
@ONE_ON_ONE, ARG = 5
#DIM DYNAMIC LCOUNT
#DIM DYNAMIC GAME_CENTERLINE
#DIM DYNAMIC MEMO_LINECOUNT
#DIM DYNAMIC MEMO_REDRAW
#DIM DYNAMIC TIMER
#DIMS DYNAMIC STATUS

;文字が見切れない様に一回改行
PRINTL

MEMO_LINECOUNT = LINECOUNT
MEMO_REDRAW = CURRENTREDRAW()

REDRAW 0

;<--游戏開始前のカウントダウン-->
TIMER = 0

;角色の会話
STR:日常イベント名 = 游戏開始
TRYCALLFORM DUMMYKOJO_DAILYCOM_K{NO:TARGET}, "一騎打ち"
CALL DIALOGUE_FRAME_NAME, TARGET, CSTR:颜绘変化

DRAWLINE
GAME_CENTERLINE = (WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT)) / 2
CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT)
CLEARLINE GAME_CENTERLINE

;カウントダウン開始
FOR LCOUNT, 1, 4
	HTML_PRINT @"
{4-LCOUNT}
"
	CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT)
	TWAIT 1000, 1
	CLEARLINE GAME_CENTERLINE
NEXT

;<--計測開始前の待機時間-->
CLEARLINE LINECOUNT - MEMO_LINECOUNT

;角色の会話

STR:日常イベント名 = 待機中
TRYCALLFORM DUMMYKOJO_DAILYCOM_K{NO:TARGET}, "一騎打ち"
SIF CSTR:颜绘変化 == ""
		CSTR:颜绘変化 = 重置/对话框・・・
CALL DIALOGUE_FRAME_NAME, TARGET, CSTR:颜绘変化
DRAWLINE
CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT) - 1
;領帯マーの設置
HTML_PRINT @"
%TOSTR(TIMER, "00")%
"

;待機開始、時間は随机で変化させる
FOR LCOUNT, 0, 30+RAND:50
	INPUTMOUSEKEY 100
	IF RESULT:0 == 1
		IF RESULT:1 == 0x100000
			STATUS = お手付き
			BREAK
		ENDIF
	ELSEIF RESULT:0 == 3
		IF RESULT:1 == 13
			STATUS = お手付き
			BREAK
		ENDIF
	ENDIF
NEXT

;お手付きしてないなら勝負
IF STATUS != "お手付き"

	;<--計測開始-->
	CLEARLINE LINECOUNT - MEMO_LINECOUNT

	;角色の会話
	STR:日常イベント名 = 勝負
	TRYCALLFORM DUMMYKOJO_DAILYCOM_K{NO:TARGET}, "一騎打ち"
	SIF CSTR:颜绘変化 == ""
		CSTR:颜绘変化 = 重置/对话框！
	CALL DIALOGUE_FRAME_NAME, TARGET, CSTR:颜绘変化
	DRAWLINE
	CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT)
	CLEARLINE GAME_CENTERLINE
	HTML_PRINT @"
！！
"
	CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT)

	FOR LCOUNT, 0, ARG
		CLEARLINE 1
		HTML_PRINT @"
%TOSTR(TIMER, "00")%
"
		INPUTMOUSEKEY 100
		IF RESULT:0 == 1
			IF RESULT:1 == 0x100000
				IF LCOUNT == ARG - 1
					STATUS = 引き分け
					BREAK
				ELSE
					STATUS = 勝利
					BREAK
				ENDIF
			ENDIF
		ELSEIF RESULT:0 == 3
			IF RESULT:1 == 13
				IF LCOUNT == ARG - 1
					STATUS = 引き分け
					BREAK
				ELSE
					STATUS = 勝利
					BREAK
				ENDIF
			ENDIF
		ENDIF

		;100ms秒ごとに領帯マー加算
		TIMER += 1
	NEXT

	;ここまで勝敗が決まってなかったら負け
	SIF STATUS == ""
		STATUS = 敗北
ENDIF

CLEARLINE LINECOUNT - MEMO_LINECOUNT

;角色の会話

STR:日常イベント名 = 一騎打ちで%STATUS%
TRYCALLFORM DUMMYKOJO_DAILYCOM_K{NO:TARGET}, "一騎打ち"
CALL DIALOGUE_FRAME_NAME, TARGET, CSTR:颜绘変化

DRAWLINE
CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT)
CLEARLINE GAME_CENTERLINE

SELECTCASE STATUS
CASE "勝利"
	HTML_PRINT @"
YOU WIN!!
"
CASE "引き分け"
	HTML_PRINT @"
DRAW
"
CASE "敗北", "お手付き"
	HTML_PRINT @"
YOU LOSE..
"
ENDSELECT
CALL MULTILINE, WINDOWROWS() - (LINECOUNT - MEMO_LINECOUNT) - 1
HTML_PRINT @"
%TOSTR(TIMER, "00")%
"

;負けた場合は少しの間操作不能の時間を作っておく
SIF STATUS == "敗北"
	TWAIT 500, 1
WAIT

REDRAW MEMO_REDRAW
RETURN 0

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW 「嗯……想做灵魂交易吗？当然、……呼、没関系哦」
			CALL PRINT_STRW, "「今天哈……啊、有什么愿望、吗？……呼呼_H_」"
		ELSE
			PRINTFORMW 「啊啦。你忘了什么吗?」
			PRINTFORMW 「呼呼……你今天想要什么？」
		ENDIF
	ELSE
		;玛丽酱だけじゃ寂しいからね。誰も書かないなら私が書くしかないね。しょうがないね
		IF TALENT:恋慕 && TEXTS("日期対応イベント") == "情人節" && CDAYEV("情人節") == 0
			PRINTFORMW 「想做灵魂交易吗？？」
			PRINTFORMW 「没関系，但今天是情人節哦、主人様。有人给你巧克力吗？」
			CALL PRINT_SELECT, "收到了/没收到"
			IF RESULT == 0
				PRINTFORMW 「很受欢迎呢。这样%CNAME("一人称")%的巧克力就没有了」
				PRINTFORMW 「……開个玩笑。是、请收下」
				PRINTFORMW 「您是否可以与其他人成为朋友并不重要、但是即使是%CNAME("一人称")%也会有点嫉妒」
				PRINTFORMW 「这是我怀着对%CNAME("主人")%的感情努力做出来的、所以请尽情享受♪」
			ELSE
				SIF FLAG:年 == 1
					PRINTFORMW 「直到去年为止，您有没有从母亲和妹妹那里收到義理巧克力?」
				PRINT 「呼呼……那
				IF TALENT:相思相愛
					PRINT 恋人
				ELSE
					PRINT 女の子
				ENDIF
				PRINTFORMW 我的巧克力是第一个喔♪」
				PRINTFORMW 「这是我亲手做的、所以请品尝品尝、主人様」
			ENDIF
			PRINTL
			CALL PRINT_STRW, @"黄色_从%CALLNAME:TARGET%收到本命巧克力！"
			CALL SET_CDAYEV, "情人節"
 		ELSEIF TALENT:恋慕 && TEXTS("日期対応イベント") == "白色情人節" && CDAYEV("情人節") && CDAYEV("白色情人節") == 0
			PRINTFORMW 「想做灵魂交易吗？？」
 			PRINTFORMW 「诶、这是您给%CNAME("一人称")%情人節的回礼吗？」
 			;PRINTFORMW （吃了不好的东西吗?……我记得我没有放任何奇怪的东西吧）
 			PRINTFORMW 「谢谢啦。以后都会感謝主人様的♪」
			CALL SET_CDAYEV, "白色情人節"
		ELSE
			PRINTFORMW 「要进行魂的交易吗？当然可以呦」
			PRINTFORMW 「今天想要什么呢？……呼呼」
		ENDIF
	ENDIF
CASE "称呼変更"
	PRINTFORMW 「可以啊……但请不要改个奇怪的名字哦？」
CASE "称呼変更完了"
	PRINTFORMW 「那现在、我就这样叫%CNAME("二人称")%啦」
CASE "称呼変更中止"
	PRINTFORMW 「啊啦？和以前一样好吗？」
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「收到魂的时候就像收到%CNAME("二人称")%一样……呼呼♪」
		PRINTFORMW 「很久之前、%CNAME("二人称")%的心意……已经传达到了喔」
		PRINTFORMW 面色潮红的%CALLNAME:TARGET%眯着眼露出笑容、吻了%CALLNAME:MASTER%。
	ELSE
		PRINTFORMW 「……呼呼」
		CALL PRINT_STR, "「就算是谎言我也很開心喔_H_」_W"
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	PRINTFORMW 「万分抱歉，我现在似乎无法实现这个愿望」
	PRINTFORMW %CALLNAME:TARGET%低下頭、眼神飘忽似乎有点害臊。
CASE "胖次交易"
	RETURN 0
CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「……为了胖次而出卖魂的人、我还真是第一次见到呢」
		PRINTFORMW 「但是%CNAME("一人称")%也是悪魔。 好的、这交易我接受了」
		PRINTFORMW %CALLNAME:TARGET%似乎对%CALLNAME:MASTER%的请求感到有些惊讶,然后便愉快地在你面前脱下胖次並交到你手上。
		PRINTFORMW 「撒、请慢用」
		PRINTFORMW 「这已经是%CNAME("二人称")%的了」
		CALL PRINT_STR, "「我不会收回来、所以无论你想嗅还是想舐都隨你喜欢吧……_H_」_W_"
	;２回目以降(魂は貰わない)
	ELSE
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		IF RAND:2 && COND("易出汗")
			PRINTFORMW 「请慢用……有阵汗味真是十分抱歉」
			IF COND("浑身是汗")
				PRINTFORMW 在体育课结束后，%CALLNAME:TARGET%的胖次湿得一扭就会流出水来……
			ELSE
				PRINTFORMW 出了身汗后，%CALLNAME:TARGET%的胖次十分湿润、散发出强烈的体味……
			ENDIF
		ELSEIF CHECK_PANTIES("繩系胖次")
			PRINTFORMW %CALLNAME:TARGET%没有将胖次脱掉……
			PRINTFORMW 「嗯？怎么了？」
			PRINTFORMW 「……解不開的、绳结」
			PRINTFORMW 「因為是绳结胖次……%CNAME("二人称")%亲手来吧、请？」
		ELSEIF RAND:2
			PRINTFORMW 「虽然很无聊、但是请慢用」
			PRINTFORMW 「使用後請放入洗衣籃」
		ELSE
			PRINTFORMW 「呼呼。像這樣在您面前脫下胖次有點有趣♪」
			PRINTFORMW 「%CNAME("二人称")%拿着%CNAME("一人称")%的胖次、就这样专心看下面的阴部吧」
		ENDIF
	ENDIF
CASE "胖次拒否"
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORMW 「抱歉。这个稍微有点……」
		PRINTFORMW %CALLNAME:TARGET%对于有其他人在这里的事十分在意……
	ELSE
		PRINTFORMW 「%CNAME("二人称")%对不起。我现在没有这种心情。」
	ENDIF
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	RETURN 0
CASE "全裸"
	;取引初成功
	IF COND("合意：全裸化") == 0
		PRINTFORMW 「…………是」
		CALL PRINT_STRW, @"「没関系、%CNAME("二人称")%……请欣赏%CNAME("一人称")%的身体吧……_H_」"
	ELSE
		PRINTFORMW 「呼呼、我非常欣赏你的勇气哦？」
	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;二人きりなら脱いでくれるけど状況が悪い
	IF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「抱歉。这个稍微有点……」
		PRINTFORMW %CALLNAME:TARGET%对于有其他人在这里的事十分在意……
	ELSE
		PRINTFORMW 「……不管%CNAME("二人称")%要求多少次、答案都是不行哦」
	ENDIF
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「啊啦？很想念%CNAME("一人称")%做的便当？」
		PRINTFORMW 「開个玩笑、呼呼呼♪」
		PRINTFORMW %CALLNAME:TARGET%眯起眼睛開心地笑
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「嗯...？ 啊,好啊」
		IF COND("同居中")
			PRINTFORMW 「如果你要我说的话……咳、我的意思是现在大部分的饭不就是%CNAME("一人称")%做的吗♪」
			PRINTFORMW 「好吧，从现在開始我在早餐做多些作便当，然后一起在学校里吃饭吧」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%喜欢做饭、一人份和二人份没有太大区别呢」
			PRINTFORMW 「不过～……像这样、跟同学一起吃便當」
		ENDIF
		CALL PRINT_STR, "「……听起来挺有趣呢。……呼呼_H_」_W"
	ENDIF
CASE "口服避孕薬"
	IF CFLAG:口服避孕薬
		;初回
		IF DEVENT(ARGS) == 0
			PRINTFORMW 「啊啦。%CNAME("二人称")%比起用避孕套更喜欢用这个吗？」
			PRINTFORMW 「嘛……是呢、还是无套最舒服♪」
		ELSE
			PRINTFORMW 「是、好啊」
		ENDIF
	ELSE
		PRINTFORMW 「不用饮了? 真的吗？」
		PRINTFORMW 「要好好地使用避孕套……您不是想这样吧？」
		PRINTFORMW 「呼呼♪」
	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「……似乎没有什么我想要的」
		PRINTFORMW 「选了个很棒的呢」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%选这个我不太喜欢」
		PRINTFORMW 「……嘛、%CNAME("一人称")%也不讨厌就是」
	ENDIF
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

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

	CASE 3

	CASE 4

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

	CASE 3

	CASE 4

	ENDSELECT
	RETURN 0

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"
	PRINTFORMW 「没関系……但如果您做恶作剧，我会生气喔」
	PRINTFORMW 从%CALLNAME:TARGET%的屁股上方长出黑色的，末端呈黑桃形的柔软尾巴。
	PRINTFORMW 「我再说一次。温柔地抚摸……不行喔？」

CASE "给我看尾巴拒否"
	PRINTFORMW 「%CNAME("一人称")%的尾巴、不能轻易地给%CNAME("二人称")%看呢」
	PRINTFORMW %CALLNAME:TARGET%有点害臊地拒绝了。

CASE "髪型変更の感想"
	PRINTFORMW 「怎样? 好看吗？」

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

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORMW 「是、好啊」
	PRINTFORMW 「虽然我想这样说……%CNAME("二人称")%」
	PRINTFORMW 「但是很可惜、魂似乎不够了。请回复到１.01以上再来吧」
CASE "想要钱"
	PRINTFORMW 「金钱是基础呢」
	PRINTFORMW %CALLNAME:TARGET%念了会咒语並使用炼金术变了一座山般的现金出来。
CASE "甜言蜜语"
	SELECTCASE TALENT:MASTER:甜言蜜语
	CASE 0
		PRINTFORMW 「选了个很棒的愿望呢……」
		PRINTFORMW 「这样的话、让我们马上实践好吗？」
		PRINTFORMW 「撒撒、请%CNAME("一人称")%小声地向我求爱吧♪」
		PRINTFORMW %CALLNAME:TARGET%無邪地微笑……
	CASEELSE

	ENDSELECT
CASE "謎之魅力"
	SELECTCASE TALENT:MASTER:謎之魅力
	CASE 0
		PRINTFORMW 「……诶？ 没有特别的变化？」
		PRINTFORMW 「好吧，外观本身并没有改变……呼呼」
		PRINTFORMW %CALLNAME:TARGET%露出了意有所指的微笑……
	CASEELSE

	ENDSELECT
CASE "禁断的知識"
	SELECTCASE TALENT:MASTER:禁断的知識
	CASE 0
		PRINTFORMW %CALLNAME:TARGET%递了一束羊皮纸给你。
		PRINTFORMW 「%CNAME("一人称")%虽然不太清楚、不过似乎写了如何雕刻令人淫乱的纹身」
		PRINTFORMW 「在便笺上，似乎还附带了如何制作限时试用版的贴纸」
		PRINTFORMW 「……微妙地贴心？……呼呼呼♪」
		CALL PRINT_STR, "「换句话说，这是一个危险的技能...太可怕了不是吗_H_」_W"
	CASE 1
		PRINTFORMW %CALLNAME:TARGET%递了一束羊皮纸给你。
		PRINTFORMW 这卷记录了让女性长出阴茎的能力……%CNAME("一人称")%称它为[具現]、的学习方法」
		PRINTFORMW 「但是、%CNAME("二人称")%喜欢……这么想长多些吗？」
		PRINTFORMW %CALLNAME:TARGET%歪着頭,透过羊皮纸看着%CALLNAME:PLAYER%的様子。
	CASE 2
		PRINTFORML 「这是我第三次交给你呢」
		PRINTFORMW %CALLNAME:TARGET%又又准备了一束羊皮纸。
		PRINTFORMW 「%CNAME("二人称")%的研究能力无论怎样说、已经比得上魔法使了」
		CALL PRINT_STRW, @"「……好吧、%CNAME("二人称")%的话只会用在Ｈ的目的呢_H_」"
	CASEELSE

	ENDSELECT
CASE "錬金術"
	SELECTCASE TALENT:MASTER:錬金術
	CASE 0

	CASEELSE

	ENDSELECT
CASE "巨根化"
	;具現持ちだが自分に生やしたことが無い場合
	IF PENIS(PLAYER) == 0 && STRCOUNT(CSTR:PLAYER:特別経験, "扶她化") == 0
		PRINTFORMW 「是、没関系……真是的%CNAME("二人称")%」
		PRINTFORMW 「您未使用具現能力如何能改变大小呢」
	ELSE
		;これは"大きくなる前"のサイズなのに注意
		SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
		CASE "短小"
			PRINTFORMW 「唔呣。感觉还不错」
		CASE "普通"
			PRINTFORMW 「哦……助手小姐会很喜歡的感觉♪」
			PRINTFORMW 「……我可以稍微碰一下吗？」
			PRINTFORMW %CALLNAME:TARGET%握著%CALLNAME:PLAYER%的阴茎高興地感受它的大小……
		CASE "巨根"
			PRINTFORMW 「太厲害了……这是凶器呢」
			PRINTFORMW %CALLNAME:TARGET%吻了一下先端，然后转向了根部……伸出舌頭、带着无可挑剔的笑顔用面贴住阴茎。
			PRINTFORMW 「呼呼呼。真的、太大了」
		CASE "馬根"
			PRINTFORMW 「这就像……第三只手臂、的感觉」
			PRINTFORMW 「稍微、有点大、不、很大、但是我认为有些人会很高兴、对」
			PRINTFORMW %CALLNAME:TARGET%想像做你對手时的情況、露出有点微妙的表情……
		;腕並以上
		CASEELSE
			PRINTFORMW 「不要～……我自己做就可以了……」
			PRINTFORMW 「我觉得没有勇气面对%CNAME("二人称")%、这就像一个噩梦……」
			PRINTFORMW %CALLNAME:TARGET%面对%CALLNAME:PLAYER%破格大小的阴茎时一脸严肃……
		ENDSELECT
	ENDIF
CASE "短小化"
	;具現持ちだが自分に生やしたことが無い場合
	IF PENIS(PLAYER) == 0 && STRCOUNT(CSTR:PLAYER:特別経験, "扶她化") == 0
		PRINTFORMW 「是、没関系……真是的%CNAME("二人称")%」
		PRINTFORMW 「您未使用具現能力如何能改变大小呢」
	ELSE
		;これは"小さくなる前"のサイズなのに注意
		SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
		CASE "普通"
			PRINTFORMW 「啊啦、好可爱♪」
			PRINTFORMW 「咳哼。失礼了」
		CASE "巨根"
			PRINTFORMW 「抱歉僭越了……缩小尺寸真的好吗？」
			PRINTFORMW %CALLNAME:TARGET%は听到这个奇怪的愿望有点困惑……
		CASE "馬根"
			PRINTFORMW 「虽然我感觉有点不必要，但是这个尺寸还不错」
			PRINTFORMW %CALLNAME:TARGET%看着%CALLNAME:PLAYER%的阴茎陷入恍惚的様子
		;腕並、規格外
		CASEELSE
			PRINTFORMW 「英明果断的选择。我的意思是、为时未晚」
		ENDSELECT
	ENDIF
CASE "女性化して"
	;初回
	IF DEVENT(ARGS) == 0
		IF TRUE_SEX(TARGET) == "女性"
			PRINTFORMW 「当然可以」
			PRINTFORMW 「……呜嗯~果然、这个样子很让人平静呢」
		ELSE
			PRINTFORMW 「う～ん…………嘛ぁ、可以吧」
			PRINTFORMW 「在日常生活中，这边也许更容易生活呢」
		ENDIF
	ELSE
		IF TRUE_SEX(TARGET) == "女性"
			PRINTFORMW 「当然可以」
			PRINTFORMW 「……呜嗯~果然、这个样子很让人平静呢」
		ELSE

		ENDIF
	ENDIF
CASE "扶她化して"
	;初回
	IF DEVENT(ARGS) == 0
		IF TRUE_SEX(TARGET) == "扶她"
			PRINTFORMW 「当然可以」
			PRINTFORMW 「……呜嗯~果然、这个样子很让人平静呢」
		ELSE
			PRINTFORMW 「えぇっ？！ ま、まぁ、いいですけど」
			PRINTFORMW 「……あんまり悪戯なさらないでくださいね？」
		ENDIF
	ELSE
		IF TRUE_SEX(TARGET) == "扶她"
			PRINTFORMW 「当然可以」
			PRINTFORMW 「……呜嗯~果然、这个样子很让人平静呢」
		ELSE
			PRINTFORMW 「えっ、またですか？」
			PRINTFORMW 「ゴホン、失礼しました」
		ENDIF
	ENDIF
ENDSELECT

;以下は汎用台詞
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「对不起……%CNAME("一人称")%拒绝」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;自分を相手にＨしてる最中にお願いされた
ELSEIF COND("Ｈ最中の取引")
	;しかも挿入中！
	IF INSERT("挿入相手") == MASTER
		CALL PRINT_STRW, "「呼呼、好啊……_H_」"
		PRINTFORMW %CALLNAME:TARGET%緩慢地动着腰、享受%CALLNAME:MASTER%带来的快感、沉醉地连繋着并進行魂的交易…
	ELSE
		PRINTFORMW 「是、好啊」
		PRINTFORMW 「……下次的话、在H之前说我会比较開心」
	ENDIF
ELSE
	PRINTFORMW 「是、好啊」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;着替えてもらう
	IF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORML 「啊啦、去购物吗？」
		PRINTFORMW 「请等一下、我去做些准备的」
	ELSE
		;初回
		IF SEVENT(ARGS) == 0 && TALENT:恋慕 == 0
			PRINTFORMW 「啊啦、是约会邀请吗？」
		ELSE
			PRINTFORML 「啊啦、去购物吗？」
		ENDIF
		IF ITEM:潤滑液 == 0 || ITEM:避孕套 < 5
			PRINTFORMW 「好吧，我们一起去吧。消耗品不太夠呢」
		ELSE
			PRINTFORMW 「好啊，一起去吧」
		ENDIF
	ENDIF
CASE "目送"
	PRINTFORMW 「%CNAME("二人称")%、请走」
CASE "没収胖次出発"
	;没穿内褲
	IF EQUIP:胖次 == 0
		PRINTFORMW 「……」
		PRINTFORMW %CALLNAME:TARGET%眼神飘忽似乎有点害臊、%SKIRT(TARGET, "略")%を%TEXTR("怯生生地/很快")%举起たくし上げた。
	ELSE
		;初回
		IF SEVENT(ARGS) == 0
			PRINTFORMW 「诶？」
			PRINTFORMW 「…………」
			PRINTFORMW 「回来时请还回来」
			PRINTFORMW %CALLNAME:TARGET%一瞬間露出了看傻瓜表情、没有任何抱怨地脱下胖次并交了给你。
		ELSE
			PRINTFORMW 「真是的……是个让人没有办法的人呢」
			PRINTFORMW %CALLNAME:TARGET%露出感到麻烦表情、在你面前脱下胖次并交了给你。
		ENDIF
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORML 「呜～嗯……大致上干了、可以吧？」
		PRINTFORMW 「但是%CNAME("二人称")%、这个请您着一起走吧。如果被店主拒绝入内会很麻烦呢」
		PRINTFORMW %CALLNAME:TARGET%將装着替换衣物的袋子交给了%CALLNAME:MASTER%。
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORML 「好吧，这看起来还可以」
		PRINTFORMW 「就这样一起去购物吧」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF SEVENT("ＳＨＯＰ露出") == 0
			PRINTFORMW 「诶。保持现在的装扮……吗？」
			CALL PRINT_STR, "「……呼呼_BH_」_W"
			PRINTFORMW 「%CNAME("二人称")%的话、真是有一个很好的爱好呢。听起来很有趣」
			PRINTFORMW %CALLNAME:TARGET%兴奋得流出汗水、只穿着襪子跟鞋跟随着%CALLNAME:MASTER%。
			CALL SET_SEVENT, "ＳＨＯＰ露出"
		ELSE
			CALL PRINT_STR, "「就这样……一起去购物吧_BH_」_W"
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORML 「没関系，但是不要让我买些奇怪的东西喔」
		PRINTFORMW %CALLNAME:TARGET%的表情、就像坚信我会买一些令人尴尬的东西的样子……
	ELSE
		PRINTFORMW 「您要%CNAME("一人称")%再帮您买吗？」
		PRINTFORMW 「…………好吧、没関系啦」
		PRINTFORMW %CALLNAME:MASTER%叫%CALLNAME:TARGET%帮忙支付、经过一番思考后答应了。
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"
		PRINTFORML 「不好意思、你能给我这个吗？」
		PRINTFORMW 「要袋吗？是的、请放在纸袋里」
	CASE "避孕套"
		IF CONFIG("極厚避孕套")
			PRINTFORML 「不好意思、我可以拿这个吗？ 不、很厚也没関系」
			PRINTFORMW 「如果太薄的话很快就会射出来」
		ELSE
			PRINTFORML 「不好意思、你能给我这个吗？」
			PRINTFORMW 「要袋吗？是的、请放在纸袋里」
		ENDIF
	;えっちな商品
	CASEELSE
		PRINTFORMW 「不好意思、请给我这个……沒有啦、包装很好」
		PRINTFORMW 「那个……是、私用的」
		PRINTFORMW %CALLNAME:TARGET%用手帕轻轻地拭去因尴尬而喷出的汗水。
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORML 「那个……您想快点回家吗？」
		PRINTFORMW %CALLNAME:TARGET%似乎对其他顾客的視線感到不安、一直担惊受怕的样子……
	ELSE
		PRINTFORML %TEXTR("「……」/「有各种各样的东西呢」/「看看这个、0.0001mm。不会破吧」/（这个……每年能卖多少個呢?）/（很大……这个比我的手腕还要大呢）")%
		PRINTFORMW %CALLNAME:TARGET%%TEXTR("拿起并看看货架上的货物/有兴趣地观察货架上的货物/轻轻地掃着货架上的货物的尘埃/阅读货架上的货物的说明书")%,消磨时间……
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		PRINTFORMW 「啊啊、真的很羞耻……脸上像要喷火似的」
		PRINTFORMW %CALLNAME:TARGET%感觉着空荡荡的股间、发出了叹息……
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		IF ITEM:潤滑液 == 0 && RANDIF(1, ITEM:避孕套 < 5)
			PRINTFORMW 「%CNAME("二人称")%。买润滑剂不是更好吗？」
		ELSEIF ITEM:避孕套 < 5
			PRINTFORMW 「%CNAME("二人称")%。买足够避孕套不是更好吗？」
		ELSE
			PRINTFORMW 「似乎没有便宜货呢」
		ENDIF
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		PRINTFORMW 「这个服装我能说什么呢」
		PRINTFORMW 「其他客人都看过来了」
	ENDIF
ENDSELECT

path: ERB/EVENT_K/01 フェリシエル/EVENT_K1_SHOP.ERB