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

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CSTR:胖次 = 褶边の胖次/淡色/正面蝴蝶結紐/
	CSTR:胸罩 = 褶边の胸罩/淡色/

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

;学園での便装です。設定必須です
CASE "制服"
	CALL SET_COSTUME, "露脐装超短裙水手服"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "夏"
		IF RAND:3 == 0
			CALL SET_SHIRT, "蝴蝶結露肩外衣"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "運動鞋"
		ELSEIF RAND:2 == 0
			CALL SET_OTHER, "妇人礼帽"
			CALL SET_SHIRT, "褶边女式衬衫"
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "運動鞋"
		ELSE
			CALL SET_OTHER, "眼鏡"
			CALL SET_SHIRT, "宽松女式衬衫"
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "短襪"
			CALL SET_SHOES, "運動鞋"
		ENDIF
	CASE "冬"
		IF RAND:3 == 0
			CALL SET_SHIRT, "针织毛衣"
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "長筒襪"
			CALL SET_SHOES, "運動鞋"
		ELSEIF RAND:2 == 0
			CALL SET_OTHER, "眼鏡"
			CALL SET_OTHER, "围巾"
			CALL SET_SHIRT, "萌袖毛衣"
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "短靴"
		ELSE
			CALL SET_OTHER, "粗呢外套"
			CALL SET_SHIRT, "女式衬衫"
			CALL SET_SKIRT, "迷你裙"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "靴"
		ENDIF
	CASEELSE
		IF RAND:2 == 0
			CALL SET_OTHER, "眼鏡"
			CALL SET_SHIRT, "女式衬衫"
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "短靴"
		ELSE
			CALL SET_SHIRT, "連衣裙"
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "及膝襪"
			CALL SET_SHOES, "運動鞋"
		ENDIF
	ENDSELECT
;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K40
IF PLACE("自宅")

ELSE

ENDIF

path: ERB/EVENT_K/40 綾乃/EVENT_K40_CLOTHES.ERB

license: unknown


code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
;でかい胸部と背の小ささを活かしたシチュを意識的に描くことで床イン時の興奮をあおるようにしたい
;「作業中の栞」
@KOJO_GREETING_K40, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝足交"
		CALL PRINT_STR, @"「呋呒…_BH_ %CNAME("二人称")%的那个、一大早就很精神呢…_BH_」_W"
		CALL PRINT_STR, @"「看、现在也在%CNAME("一人称")%的脚下努力着呢…_BH_」_W"
	CASE "朝乳交"
		CALL PRINT_STR, @"「%CNAME("二人称")%、早上好…_BH_」_W"
		CALL PRINT_STR, @"「ま时间还很充裕，所以…_BH_」_W"
		CALL PRINT_STR, @"「再稍微在、%CNAME("一人称")%的胸部里面、迷迷糊糊地射出来也可以哦…_BH_」_W"
	CASE "朝接吻"
		PRINTFORMW 「呋呒…早上好」
		PRINTFORMW 「早饭、已经做好了哦」
	CASE "朝添い寝"
		CALL PRINT_STR, @"「%CNAME("二人称")%的睡脸，已经好好享受了一番呢…_BH_」_W"
	CASE "朝口交"
		CALL PRINT_STR, @"「啊、早上好…_BH_」_W"
		CALL PRINT_STR, @"「早上的牛奶、多谢款待…_BH_」_W"
	CASE "朝騎乗位"
		CALL PRINT_STR, @"「嗯、早上的biubiu、十分有朝气呢…_BH_」_W"
		CALL PRINT_STR, @"「照这个样子的话，今天一天也会努力的吧…_BH_」_W"
	ENDSELECT

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

	IF COND("水泳")
		PRINTFORML 「啊…今天游泳啊」
		PRINTFORMW 「%CNAME("一人称")%、不太擅长这个呢…」
	ELSEIF COND("体育")
		IF RAND:2
			PRINTFORMW 「今天有体育课？加油哦」
		ELSE
			PRINTFORML 「今天是联合体育日的日子呢…」
			PRINTFORMW 「帅气的样子、会让我看看吗…？」
		ENDIF
	ELSE
		;天気分岐のやりかたがわからない
		IF RAND:2 == 0
			PRINTFORMW 「昨天没精神的花…今天怎么样…？」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%、今天是花坛的浇水值班，所以要早点出門…？」
		ENDIF
	ENDIF
CASE "一番乗り"
	IF RAND:3 == 0
		PRINTFORMW 「啊嘞、除了%CNAME("二人称")%以外谁都不在吗？」
		PRINTFORMW 「总觉得有点稀奇呢」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「啊嘞、%CNAME("二人称")%以外、谁都不在啊」
		PRINTFORMW 「……」
		CALL PRINT_STR, @"「呐、如果碰巧牛奶堆积了的话…_BH_」_W"
		CALL PRINT_STR, @"「趁现在、来做吗…？_BH_」_W"
	ELSE
		PRINTFORML 「啊…」
		PRINTFORMW 「难道、只有我们两个人吗…？」
	ENDIF
CASE "ただいま"
	PRINTFORMW 「…%CNAME("二人称")%、我先回去了」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF RAND:3 == 0
			PRINTFORML 「啊、欢迎回来…%CNAME("二人称")%…？」
			PRINTFORMW 「包和外衣、%CNAME("一人称")%来拿吧。今天一天辛苦了…♪」
			PRINTFORML 「晚饭已经做好了…」
			PRINTFORMW 「洗完手，大家一起吃吧…？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「欢迎回来、%CNAME("二人称")%」
			PRINTFORMW 「…那个…今天的晚饭%CNAME("一人称")%也有帮忙」
			PRINTFORMW 「那个…不知道好吃不好吃，不过，如果你可以的话，还是要期待一下…？」
		ELSE
			;精力とかで分岐入れたほうがいいのかな
			PRINTFORMW 「%CNAME("二人称")%、欢迎回来」
			PRINTFORMW 「啊嘞…%CNAME("二人称")%、比平时脸色要阴暗…今天有点累吧…？」
			PRINTFORMW 「那么虽然早了点…%CNAME("一人称")%就先去做洗澡的准备吧…？」
		ENDIF
	ELSE
		CALL SETFLAG_DAILY, "茶を用意", TARGET
		PRINTFORMW 「%CNAME("二人称")%、辛苦了」
		PRINTFORMW 「虽然也不知道渴不渴…？ %SAVESTR:茶%倒是已经准备好了…」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		PRINTFORMW 不知道是不是已经习惯了这种事情，%CALLNAME:TARGET%毫不胆怯地走进了房间。
	ELSE
		PRINTFORMW 「你好…？」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORML 「哇，已经来了这么多人了…！」
		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 『辛苦了…要不要泡茶？』
	ELSE
		PRINTFORMW 『辛苦了』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
	IF RAND:3 == 0
		CALL PRINT_STR, @"「呋呒、路上小心…_BH_」_W"
	ELSEIF RAND:2 == 0
		PRINTFORMW 「真够情热的呢……好羡慕啊…」
	ELSE
		PRINTFORMW 「呋呒、加油哦…？」
	ENDIF
CASE "便当"
;処理はアイリ口上から就这様持ってきました。有がとうございます。
	IF RAND:6 == 0 && TALENT:恋慕
		PRINTFORMW 「啊、%CNAME("二人称")%的份在这里…」
		PRINTFORMW 说着递给%CALLNAME:MASTER%的便当比%CALLNAME:TARGET%的便当大两倍。
		PRINTFORMW 里面填满了鳗鱼和甲鱼等增加精力的东西…
		IF BASE:欲求不満 >= 50
			PRINTFORMW 「诶嘿嘿…就是这么回事、我很期待呢…？」
		ELSE
			PRINTFORMW 「不管和谁打交道，果然还是精力越充足越好吧…」
		ENDIF
	ELSEIF RAND:5 == 0 && TALENT:恋慕
		PRINTFORMW 「呜…%CNAME("二人称")%很温柔、就算知道还是有些紧张…」
		PRINTFORMW 「合你的口味吧……不用勉强的…？」
	ELSEIF RAND:4 == 0 && TALENT:恋慕
		PRINTFORMW 「今天的便当，是特别努力做的…♪」
		PRINTFORMW %CALLNAME:MASTER%被催促着打開便当的盖子，里面的配料竟然全部被切成了心形!
		PRINTFORMW 「虽然有点不好意思啊…那个、这是%CNAME("一人称")%的心意哦…？」
	ELSEIF RAND:3 == 0
		PRINTFORMW 「真好吃呢…」
		PRINTFORMW 「和谁一起吃午饭，真的很好吃…」
	ELSEIF RAND:2
		PRINTFORMW 「对了，下午的课怎么样？作业都准备好了吗…？」
		PRINTFORMW 「嗯…有不明白的地方吗？让我听听看…？」
		PRINTFORMW 两个人一边吃午饭，%CALLNAME:MASTER%一边和%CALLNAME:TARGET%商量了一下…
	ELSE
		PRINTFORMW 「…」
		PRINTFORMW 「……」
		PRINTFORMW 「………」
		PRINTFORMW %CALLNAME:TARGET%好像有些不安…
		PRINTFORMW 「唔、露馅了…？」
		PRINTFORMW 「其实我很想做那个……啊（情侣投喂）……？」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「今后请多関照呢、%CNAME("二人称")%…」
	PRINTFORML 「…马上，做吗？」
CASE "浑身是汗"
	IF RAND:2
		PRINTFORML 「嗯……太热了，身体都发烫了…」
		PRINTFORML 趴在桌子上无精打采的%CALLNAME:TARGET%，莫名的煽情…
	ELSE
		PRINTFORML 「……」
		PRINTFORML 默默仰望胸口%CALLNAME:TARGET%的乳沟里，汗水被吸进去了…
	ENDIF
CASE "刚睡醒"
	PRINTFORML 「嗯…？」
	PRINTFORML 可能是醒了吧，%CALLNAME:TARGET%痒痒似的揉着眼睛…
CASE "Cosplay中"
	PRINTFORML
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K40
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「嗯…已经没事了…谢谢、%CNAME("二人称")%…」
	PRINTFORML 红着脸道谢的%CALLNAME:TARGET%的眼睛，似乎带着与以往不同的光芒……
CASE "约会的约定"
	PRINTFORML
;これは悪魔のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K40, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "摆脱"
	PRINTFORML 「嗯…？」
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「好漂亮的房间啊」
CALL PRINT_STR, @"「…那么？在这么漂亮的房间里、%CNAME("二人称")%打算要做什么呢…_BH_」_L"
CASE "自室に招待"
	PRINTFORML 「是不是稍微有点强硬呢…？」
CALL PRINT_STR, @"「但是，这样就只有我们两个人了…_BH_」_L"
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「啊嘞、你们两个怎么了？」
	ELSE
		CALL PRINT_STR, @"「…_BH_」_L"
		CALL PRINT_STR, @"「怎么了…？ 这里可是%CNAME("一人称")%的房间…_BH_」_L"
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML （到底是要做什么…？）
CASE "オナバレ"
	CALL PRINT_STR, @"「…_BH_」_W"
	PRINTFORML %CALLNAME:TARGET%正用炙热的眼神盯着%CALLNAME:MASTER%…
CASE "露脐装超短裙胖次チラ"
	IF RAND:2
		PRINTFORML 「嗯…？ 该怎么办呢…？」
		PRINTFORML %CALLNAME:TARGET%邀请似的抬了抬眼看向%CALLNAME:MASTER%
	ELSE
		PRINTFORML 「女孩子对别人的视线可是很敏感的…」
		PRINTFORML 「呐、%CNAME("二人称")%…？」
	ENDIF
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「怎么样…」
	PRINTFORML 「感想、告诉我吧…？」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「%PANTIES(TARGET, "ぱんつ")%、看太多了…」
		PRINTFORML 「不可以继续了…」
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「呋呒…好厉害的表情…」
		PRINTFORML 「非常可爱，不过更多的……还是以后再说吧？」
	ENDIF
CASE "拜托処理性欲"
	CALL PRINT_STR, @"「再多就在床上了，呐…_BH_」_L"
CASE "进行性処理"
	CALL PRINT_STR, @"「冒失了…_BH_」_L"
CASE "清洁口交"
	PRINTFORML %CALLNAME:TARGET%可能是想起了刚才的%CALLNAME:MASTER%的东西，手指在嘴唇上轻轻滑动，舌頭无意识地移动着……
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORMW 「哇…买了很多呢」
		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「嗯……」
		PRINTFORML 到底还是在意别人的目光吧，%CALLNAME:TARGET%好像很不安，扭扭捏捏的…
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML 「果然还是有点心跳加速呢…」
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「真是的…%CNAME("二人称")%真是调皮的家伙…」
	;個室で二人きり
	ELSE
		PRINTFORML 「更多的、看吧…？」
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		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
	PRINTFORML 「呀……话说回来，真的谢谢了」
	PRINTFORML 「其实啊，和各种各样的男孩子做爱的话，无论如何都会有各种各样的事情吧…」
	PRINTFORML 「被强势的男孩子追求什么的…还有被老师发现之类的麻烦吧」
	PRINTFORML 「所以，像这样，有了伴侣……或者说，有了特定的对象，真的很感激」
	PRINTFORML 「…虽然不知道会持续到什么时候，再次请多関照吧？」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「嗯……这就结束了」
	PRINTFORML 「嗯？啊…只是发个拒绝的短信」
	PRINTFORML 「果然是因为流言都传開了吧…奇怪的联络的人也很多」
	PRINTFORML 「我发短信说现在已经有对象了，不需要了」
	CALL SET_DEVENT, "質問２"
ELSEIF CFLAG:日常事件回数 >= 35 && DEVENT("質問３") == 0
	PRINTFORML 「说起来，我好像还有个非正式的粉丝俱乐部来着」
	PRINTFORML 「不过这本身在这个学院里也不是什么稀奇的东西」
	PRINTFORML 「那些人、不知道该怎么说了，是太忠于本性了吗…」
	PRINTFORML 「相对的，怎么说呢，唔…」
	CALL SET_DEVENT, "質問３"
ELSEIF CFLAG:日常事件回数 >= 50 && DEVENT("質問４") == 0
	PRINTFORML 「虽然是从其他的孩子那里听来的事情、除了恶魔居住的魔界之外，还有一个叫淫狱界的淫魔居住的魔界」
	PRINTFORML 「啊，当然，住着恶魔的魔界也有淫魔…不过，淫魔和魔界本来就有各种各样的种类」
	PRINTFORML 「…顺便一提，%CNAME("一人称")%好像是淫狱界出生的淫魔。大概是，血统是不同的。」
	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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	PRINTFORML %CALLNAME:TARGET%红着脸，一言不发地紧跟在%CALLNAME:MASTER%的旁边…
ELSEIF COND("夜")
	IF RAND:7 == 0 && TALENT:恋慕
		PRINTFORML %CALLNAME:TARGET%用自己的手指轻轻地挠了挠%CALLNAME:MASTER%的手。
		PRINTFORML 「%CNAME("二人称")%的手指、果然和%CNAME("一人称")%有点不一样呢…」
	ELSEIF RAND:6 == 0 && TALENT:恋慕 && BASE:欲求不満 >= 50
		CALL PRINT_STR, @"「呐…？_BH_」_L"
		CALL PRINT_STR, @"「%CNAME("一人称")%、的身体变得相当热了…_BH_」_L"
		CALL PRINT_STR, @"「放置PLAY也不错，但如果可以的话，希望能当一下%CNAME("二人称")%的对手呢…_BH_」_L"
	ELSEIF RAND:5 == 0 && TALENT:恋慕
		PRINTFORML 「呋呒…」
		PRINTFORML 「对于男人会抱有这样的感情实在是从未想过的事情啊…」
	ELSEIF RAND:4 == 0 && TALENT:恋慕
		PRINTFORML %CALLNAME:TARGET%挺起胸膛，挺直脊背。
	ELSEIF RAND:3 == 0
		PRINTFORML 「晚上……心情有点高涨呢…」
		PRINTFORML 「呋呒呋……总觉得很開心」
	ELSEIF RAND:2 == 0
		PRINTFORML 「明天的菜单该怎么安排呢…」
		PRINTFORML 「…%CNAME("二人称")%想要点什么？」
	ELSE
		PRINTFORML 「吃过饭之后、总觉得有点发困了呢…」
		PRINTFORML 「这种时候，是不是应该感谢不会发胖的淫魔的身体呢…」
	ENDIF
ELSE
	IF RAND:6 == 0 && TALENT:恋慕
		PRINTFORML %CALLNAME:TARGET%什么也没说就抱住了%CALLNAME:MASTER%的背、把她柔软的胸贴了过来…
	ELSEIF RAND:5 == 0 && TALENT:恋慕
		PRINTFORML %CALLNAME:TARGET%把自己的手与%CALLNAME:MASTER%的手重叠在一起。
		PRINTFORML 「%CNAME("二人称")%的手、好大呢…」
	ELSEIF RAND:4 == 0 && TALENT:恋慕 && BASE:欲求不満 >= 50
		CALL PRINT_STR, @"「呐、呐…_BH_」_L"
		CALL PRINT_STR, @"「回家之前，想做一次啊…_BH_」_L"
	ELSEIF RAND:3 == 0
		PRINTFORML 「啊，这个好可爱…」
		PRINTFORML 看着手里的手机、%CALLNAME:TARGET%的表情似乎缓和了下来。
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%坐在椅子上，时而旋转，时而双腿晃来晃去…
	ELSE
		PRINTFORML 「好像有点肚子饿了呢…」
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K40
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	IF RAND:3 == 0
		PRINTFORML 「呀……喵呋…………」
	ELSEIF RAND:2
		PRINTFORML 「嗯…嗯……」
	ELSE
		PRINTFORML 「…su……su……」
	ENDIF
ELSEIF RAND:2
	IF RAND:3 == 0
		PRINTFORML 「…呜…好奇怪…哎…？」
	ELSEIF RAND:2
		PRINTFORML 「…嗯…呋呒……」
	ELSE
		PRINTFORML 「…………%CNAME("二人称")%……」
	ENDIF
ELSE
	IF RAND:3 == 0
		PRINTFORML 「…火锅里……有章鱼……」
	ELSEIF RAND:2
		PRINTFORML 「……减一分呢」
	ELSE
		PRINTFORML 「…………喜欢……」
	ENDIF
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	IF PLACE("情人旅館")
		CALL PRINT_STR, @"『啊…_BH_』_W"
		CALL PRINT_STR, @"『知道了…_BH_ 马上去…_BH_』_W"
		CALL PRINT_STR, @"『所以%CNAME("二人称")%也要有礼貌地等待哦…_BH_』_W"
	;做爱房
	ELSE
		CALL PRINT_STR, @"『嗯，好啊…_BH_』_W"
		CALL PRINT_STR, @"『今天要怎样做呢……_BH_ 很期待呢、%CNAME("二人称")%…_BH_』_W"
	ENDIF
CASE "学園での日常"

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

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合
CASE "一緒にお浴室"
	PRINTFORMW 「呐、一起去洗澡吧…？」
	PRINTFORMW 「啊…不会做H的事情的？ …没有这个打算」
	PRINTFORMW 「只是那个、看%CNAME("二人称")%稍微有点累了…所以…」
	PRINTFORMW 「那个…这个…仅仅如此、所以…」
	PRINTFORMW 「拒、拒绝也是可以的呢…？」
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"
	;呼び出されたので駄賃を要求する
	;とりあえずそれっぽくでっちあげました。
	;でもこれどういうアレで出てくる奴かいまいち理解してないんで不具合あったらすいません。
	IF FLAG:叫出来Ｈ中
		CALL PRINT_STRW, @"「真是的…_BH_ 特意把%CNAME("一人称")%叫出来…_BH_」"
	ELSEIF PLACE("情人旅館")
		CALL PRINT_STRW, @"「不能好好忍耐到宾馆吗…？ 那稍微用%CNAME("一人称")%的嘴来射精吧…？_BH_」"
	ELSE
		CALL PRINT_STRW, @"「嗯…_BH_ 是想要biubiu吗…？_BH_」"
	ENDIF
	IF RAND:2 == 0
		CALL PRINT_STRW, @"「倒也无所谓…不过，希望你能拜托我一下…_BH_」"
	ELSE
		CALL PRINT_STRW, @"「呋呒…_BH_ 可以、会给你做的…_BH_ 作为交换…呐…？_BH_」"
	ENDIF
	IF RAND:3 == 0
		CALL PRINT_STRW, @"「%CNAME("一人称")%、喉咙稍微有点渴了…_BH_」"
		CALL PRINT_STRW, @"「%CNAME("二人称")%的特浓精液…_BH_ 想要满满地喝一下啊…_BH_」"
		CALL PRINT_STR, @"「拜托了，所以、呐…？_BH_」_W"
	ELSEIF RAND:2 == 0
		CALL PRINT_STRW, @"「浓稠的精液…_BH_ 想要尽情地品尝一下啊…_BH_」"
	ELSE
		CALL PRINT_STRW, @"「%CNAME("二人称")%的淘气精液…_BH_ 在%CNAME("一人称")%的嘴里满满地射出来吧…_BH_」"
		CALL PRINT_STR, @"「不行、吗…？_BH_」_W"
	ENDIF
CASE "清洁口交：射精後"
	;感想戦
;これはなんだ…？
;よくわからんが一応コメントアウト
;PRINTFORM 的%TEXTR("恥垢/污秽/污垢/污渍/白色污秽")%满身的龟頭
	IF CHECK_STAIN(STAIN:MASTER:Ｐ, "Ｐ恥垢")
		CALL PRINT_STRW, @"「%TEXTR("真是的…_BH_/没办法…_BH_")%_BH_ %CNAME("二人称")%啊、散发出那么色情的气味…_BH_」"
		CALL PRINT_STRW, @"「%TEXTR("肉棒，不怎么洗吗/稍微懂一点的女孩子的话，马上就能认出是肉棒的味道")%…_BH_」"
		CALL PRINT_STRW, @"「%TEXTR("只是稍微用舌尖舔一下，就会麻痹的浓烈气味…_BH_/哇…_BH_ 一边向周围扩散_BH_ 一边侵犯鼻子的H的气味…_BH_/看…_BH_ 稍微碰一下…_BH_ 就会粘上肉棒上的渣滓…_BH_/光是气味，就快让女孩子疯狂……_BH_ 强力的雄性的…_BH_ 可怕气味…_BH_")%」"
		CALL PRINT_STRW, @"「%TEXTR("发粘的/这么")%充分的%TEXTR("肉棒污垢/包皮垢/精液奶酪")%黏在一起…_BH_ 到底是怎么打算的…？_BH_」"
		CALL PRINT_STRW, @"「%TEXTR("是想让谁舔吧/是想让谁闻吧")%…？_BH_ 还是说%TEXTR(@"只是嫌麻烦吧/是留作标记用吧")%…_BH_」"
		CALL PRINT_STR, @"「嘛、怎么样都可以的…_BH_」_W"
		CALL PRINT_STRW, @"「%TEXTR("正好肚子也饿了/因为，已经忍不住了")%…_BH_」"
		CALL PRINT_STRW, @"「%TEXTR("闻到喷香的肉棒的气味/闻起来很好吃的精液味")%…_BH_ %CNAME("一人称")%…_BH_ %TEXTR("已经到了极限/就已经乱七八糟了/脑子里…_BH_ 因为交配而变得无法思考了/变得已经控制不住了")%…_BH_」"
	ELSE
		IF FLAG:叫出来Ｈ中
			CALL PRINT_STRW, @"「但是，对于女孩子可不能这样用得太方便哦？_BH_」"
			CALL PRINT_STR, @"「不温柔地对待其他的孩子的话可不行…？_BH_」_W"
		ELSEIF PLACE("情人旅館")
			CALL PRINT_STRW, @"「明明去酒店之前做了一次…_BH_ 又变得精神起来了…？BH_」"
		ELSE
			CALL PRINT_STRW, @"「真是的…_BH_ 才刚刚做过的…_BH_ 肉棒又变得忍不住了啊…_BH_」"
		ENDIF
		CALL PRINT_STRW, @"「%TEXTR("但是不行哦…_BH_ /呋呒…_BH_ 但是、")% 想要继续的话等到上床的时候吧…_BH_」"
		CALL PRINT_STRW, @"「%TEXTR("比起一下子抽出来/积累起来的肿胀肉棒")%…%TEXTR("还是慢慢地慢慢地…_BH_ 好好的放出来、要更舒服呢/硬邦邦的…_BH_ 用浓厚的biubiu…_BH_ 发泄一下吧")%…_BH_」"
	ENDIF

CASE "清洁口交：断った"
	CALL PRINT_STRW, @"「这样啊…%TEXTR(@"今日は%CNAME("一人称")%、本来想好好为您服务的/要是现在的话，一定会变得乱七八糟的…_BH_ 本来是想要给你很舒服的扫除来着")%…_BH_」"
	CALL PRINT_STRW, @"「%TEXTR("…改变主意的话随时都要说哦/如果想要的话，要好好说哦")%…？_BH_」"
;ここらへんめっちゃこだわりたいポインヨ
;西西莉亚桑の口上から、処理を引用させていただきました。有がとうございます。
;現状満足できていないので修正予定
;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
		;この場所は初めて
		IF DEVENT(SAVESTR:現在位置) == 0
			IF RAND:2 == 0
				CALL PRINT_STR, @"「在这种地方把%CNAME("一人称")%叫出来…_BH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%啊、肉棒就那么忍不住了吗…？_BH_」_W"
				CALL PRINT_STR, @"「好吧_BH_ 在这里充分地biubiu一下吧…_BH_」_W"
				CALL PRINT_STR, @"「让肉棒变得清爽起来吧…_BH_」_W"
			ELSE
				CALL PRINT_STR, @"「嗯、肉棒变得很难受了呢…_BH_」_W"
				CALL PRINT_STR, @"「喂、快点射出来吧…_BH_ 時間、可快没有了…_BH_」_W"
				CALL PRINT_STR, @"「%CNAME("一人称")%也、有点等不及了…_BH_」_W"
				CALL PRINT_STR, @"「快点来一发吧、因为我也快去了…_BH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%可不要发出声音、要小点哦…_BH_」_W"
			ENDIF
		ELSEIF COND("授業直前")
			CALL PRINT_STR, @"「虽然已经到上课的时间了…%CNAME("二人称")%的这里、还硬的厉害呢…_BH_」_W"
			CALL PRINT_STR, @"「这样的话、搞不好会在上课的时候忍不住biubiu出来哦…？_BH_」_W"
			CALL PRINT_STR, @"「在变成那样之前、用%CNAME("一人称")%来发泄出来吧…？_BH_」_W"
			CALL PRINT_STR, @"「毕竟这是为了上课嘛…_BH_ 没有什么好害羞的…_BH_」_W"
			CALL PRINT_STR, @"「倒不如说这是必须要做的事…_BH_ %CNAME("二人称")%的射精、是学生的义务…_BH_」_W"
			CALL PRINT_STR, @"「所以啊、快一点快一点…_BH_」_W"
		ELSE
			CALL PRINT_STR, @"「嘶…_BH_ 哈啊…_BH_」_W"
			CALL PRINT_STR, @"「非常浓厚的，肉棒的味道…_BH_」_W"
			CALL PRINT_STR, @"「在这种地方、让%CNAME("一人称")%来进行肉棒的性欲处理啊…_BH_」_W"
			CALL PRINT_STR, @"「真的可以吗…？_BH_」_W"
			CALL PRINT_STR, @"「现在、%CNAME("一人称")%可是正兴奋的不得了呢…_BH_」_W"
			CALL PRINT_STR, @"「肯定、会变成无法收拾的场面哦…_BH_」_W"
		ENDIF
	CASE "女子廁所"
	;体育のある日限定
	CASE "体育倉庫"
		IF DEVENT(SAVESTR:現在位置) == 0
			CALL PRINT_STR, @"「其实这个用具室，大家都在用…_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%之前的世代開始，持续使用了好几年，是历史悠久的房间…_BH_」_W"
			CALL PRINT_STR, @"「正因为如此…_BH_ 沾上了浓厚的精液气味，会有一种色情的感觉吧…_BH_」_W"
			CALL PRINT_STR, @"「呐、%CNAME("二人称")%…_BH_」_W"
			CALL PRINT_STR, @"「想不想给这里覆盖上新的气味…？_BH_」_W"
		ELSEIF COND("授業直前")
			CALL PRINT_STR, @"「莫非，下一节课是体育…_BH_」_W"
			CALL PRINT_STR, @"「这样啊，那就没办法了…_BH_」_W"
			CALL PRINT_STR, @"「如果把积存了精液变重了的金玉（睾丸）就那么置之不理的话、会妨碍到上课的活动吧…？_BH_」_W"
			CALL PRINT_STR, @"「这也是为了%CNAME("二人称")%能够认真的好好上体育课才接受的啊…_BH_」_W"
			CALL PRINT_STR, @"「だ所以，这是没办法的事啊…_BH_」_W"
		ELSE
			CALL PRINT_STR, @"「喂、%CNAME("二人称")%的肉棒快点射出来吧」_W"
			CALL PRINT_STR, @"「想要快点尝到…_BH_ 已经忍不住了」_W"
			CALL PRINT_STR, @"「没関系的，即使有人来了…发出响亮的H的声音、就会回去的…_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%什么都不用担心，安心射精吧…_BH_」_W"
			CALL PRINT_STR, @"「呋呒…_BH_ 对了，就这样在衣服上做标记吧_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%是%CNAME("二人称")%的东西的证明…_BH_ 一边飘荡着一边上课…_BH_」_W"
			CALL PRINT_STR, @"「周围的女孩子们也好，远远看过来的男孩子们也好…_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%到底是谁的东西……_BH_ 让他们明白的标记biubiu…_BH_」_W"
			CALL PRINT_STR, @"「阿哇…_BH_ %CNAME("一人称")%、兴奋起来了…_BH_」_W"
		ENDIF
	;体育か水泳のある日限定
	CASE "更衣室"
		IF DEVENT(SAVESTR:現在位置) == 0
			CALL PRINT_STR, @"「有止汗剂的味道…非常男孩子的味道…_BH_」_W"
			CALL PRINT_STR, @"「总觉得，特别兴奋…_BH_」_W"
			CALL PRINT_STR, @"「今天的%CNAME("一人称")%、也许要比以往要更加的H…_BH_」_W"
		ELSEIF COND("授業直前")
			CALL PRINT_STR, @"「真是的…_BH_ 已经忍不住了吗…？_BH_」_W"
			CALL PRINT_STR, @"「但是、要是在这种地方拔出来的话、%CNAME("一人称")%会沾上其他男孩子的气味…？_BH_」_W"
			CALL PRINT_STR, @"「那样的事情、%CNAME("二人称")%也很讨厌吧…？_BH_」_W"
			CALL PRINT_STR, @"「是啊…_BH_ 那么就必须用%CNAME("二人称")%的精液，好好地将味道覆盖过去呢…_BH_」_W"
		ELSE
		ENDIF
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
		IF RAND:4 == 0
			CALL PRINT_STR, @"「…等着你呢よ_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("一人称")%、今天会有些积极的…_BH_」_W"
			CALL PRINT_STR, @"「比平时，粘稠的……_BH_ 浓厚的服务、现在就给你…_BH_」_W"
			CALL PRINT_STR, @"「喂、快点脱衣服…？_BH_ 已经忍不住了…_BH_」_W"
		ELSEIF RAND:3 == 0
			CALL PRINT_STR, @"「我已经忍不住了…_BH_」_W"
			CALL PRINT_STR, @"「但是，那也是没办法的事呢…_BH_ %CNAME("二人称")%、实在是太H了…_BH_」_W"
			CALL PRINT_STR, @"「所以没办法啊…_BH_ 对、没办法没办法…_BH_」_W"
			CALL PRINT_STR, @"「没办法…_BH_ 所以不要顾虑，只要随自己喜欢地舒服起来就行_BH_」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「真是的，已经这么硬邦邦的了…_BH_」_W"
			CALL PRINT_STR, @"「要是存了这么多精子，上课的时候不是很辛苦吗…？_BH_」_W"
			CALL PRINT_STR, @"「呋呒_BH_ 那么作为前辈、为了%CNAME("二人称")%能集中注意力学习」_W"
			CALL PRINT_STR, @"「一定要好好地、确保你能发泄出来呢…_BH_」_W"
			PRINTFORMW 「没関系的，我不会花太多时间的…」
			CALL PRINT_STR, @"「…相对的、会稍微有点激烈呢」_W"
		ELSE
			PRINTFORMW 「啊、%CNAME("二人称")%，这边这边」
			PRINTFORMW 「我先到了，位置也占好了」
			CALL PRINT_STR, @"「这里，也没有人来，从外面看是死角…_BH_ 可以安心地进行H…_BH_」_W"
			CALL PRINT_STR, @"「相对的，竞争率有点高……_BH_ 今天运气好吧…_BH_」_W"
			CALL PRINT_STR, @"「呐、今天，试着比平时稍微激烈一点吧…_BH_」_W"
			CALL PRINT_STR, @"「我想应该会很舒服的…_BH_」_W"
		ENDIF
	ENDSELECT

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

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

	;何か発言してたらここまで
	;SIF LINECOUNT > MEMO_LINECOUNT
		;RETURN 1
;「作業中の栞」

CASE "性処理：後"
	IF COND("予鈴")
		IF RAND:7 == 0
			CALL PRINT_STR, @"「好的、biubiu…」_W"
			PRINTFORMW 「…话说、等等…太多了太多了…！」
			CALL PRINT_STR, @"「真是的…_BH_ 这么舒服吗…？_BH_ 这样啊…_BH_」_W"
			PRINTFORMW 「等等，不对…好险好险…」
			PRINTFORMW 「%CNAME("二人称")%、这之后要上课啊…？但是射精这么多…」
			PRINTFORMW 「因为打扫会变得很辛苦啊…？」
			PRINTFORMW 「舒服起来是好事，但是这种时候，不好好考虑对方的biubiu是不行的」
			PRINTFORMW 「…嘛、总之」
			CALL PRINT_STR, @"「今天这回由%CNAME("一人称")%先让你变干净吧…_BH_」_W"
		ELSEIF RAND:6 == 0
			CALL PRINT_STR, @"「嗯，出了很多呢…_BH_」_W"
			PRINTFORMW 「乖乖的不要动，我会弄干净的…」
			CALL PRINT_STR, @"「啊、喂…_BH_ 不要动来动去…_BH_」_W"
			CALL PRINT_STR, @"「真是没有办法、%CNAME("二人称")%啊…_BH_」_W"
			PRINTFORMW 「真是的，又动了！」
		ELSEIF RAND:5 == 0
			CALL PRINT_STR, @"「好的…_BH_ biubiu真是辛苦了…_BH_」_W"
			CALL PRINT_STR, @"「没関系吧？ むらむら（舔舐声）、全部出来了吗…？_BH_ 下午能好好努力吗…？_BH_」_W"
			PRINTFORMW 「这样啊，太好了…」
			PRINTFORMW 「…啊，已经这个时间了」
			PRINTFORMW 「等会见、%CNAME("二人称")%…」
			CALL PRINT_STR, @"「…还有，在进教室之前，得好好地把『那里』的吻痕掩饰一下…_BH_」_W"
			PRINTFORMW 「呋呒…」
			PRINTFORMW 「喂、快点快点！ 要迟到了！」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「喏喏，现在就到此为止了」
			CALL PRINT_STR, @"「呋呒…_BH_ 不要露出那么不高兴的脸…_BH_」_W"
			PRINTFORMW 「就算%CNAME("一人称")%也想要多做一点？ 但是、时间已经快到了…」
			CALL PRINT_STR, @"「%CNAME("二人称")%、如果打算把黏黏糊糊的东西残留在肉棒上的话、倒也可以…_BH_」_W"
			CALL PRINT_STR, @"「但是，这样的话%CNAME("二人称")%一起上课的女孩子们、可就有的受了呢…_BH_」_W"
			CALL PRINT_STR, @"「所以，现在就到此为止了_BH_」_W"
		ELSEIF RAND:3 == 0
			CALL PRINT_STR, @"「全部都拿出来了吗？睾丸的里面空了吗…_BH_」_W"
			CALL PRINT_STR, @"「…什么的、怎么可能呢…_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%才这种程度的射精、根本不可能满足吧…_BH_」_W"
			CALL PRINT_STR, @"「但是，现在已经不行了…_BH_ 之后再继续吧…_BH_」_W"
			CALL PRINT_STR, @"「在那之前，要充分地，再囤起来哟…_BH_」_W"
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「嗯_BH_ 多谢款待…_BH_」_W"
			CALL PRINT_STR, @"「话说回来，在学校里竟然积蓄到这么浓厚的程度…_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%啊、这可不行…_BH_」_W"
			CALL PRINT_STR, @"「如果可以的话、下次也叫%CNAME("一人称")%来处理吧…_BH_」_W"
		ELSE
			CALL PRINT_STR, @"「好了、肉棒已经可以不用再忍耐了哦…？_BH_」_W"
			CALL PRINT_STR, @"「为了上课不迟到，不抓紧可不行啊…？_BH_」_W"
			CALL PRINT_STR, @"「…如果和鼻子灵敏点的女孩子擦身而过的话，发生了什么事情可能会被发现也说不定呢…_BH_」_W"
			CALL PRINT_STR, @"「那个时候要负责任、让%CNAME("二人称")%变得舒服起来呢…_BH_」_W"
			CALL PRINT_STR, @"「呋呒…_BH_ 这可不是開玩笑…_BH_」_W"
		ENDIF
	ELSEIF SAVESTR:現在位置 == "男子廁所"
			CALL PRINT_STR, @"「%CNAME("一人称")%的肉棒厕所、还舒服吗…_BH_」_W"
			CALL PRINT_STR, @"「如果再兴奋起来的话，不要客气，随便叫我吧？_BH_」_W"
			CALL PRINT_STR, @"「如果是%CNAME("二人称")%的请求的话、%CNAME("一人称")%、无论何时都是准备好的…_BH_」_W"
	ELSEIF COND("授業直前") && NOWEX:Ｖ中出し + NOWEX:Ａ中出し + NOWEX:尿道内射精
		IF COND("体育")
			CALL PRINT_STR, @"「%CNAME("一人称")%接下来可是体育课…_BH_」_W"
			CALL PRINT_STR, @"「这么多精液被塞进去的话、大概要变成不得了的事情啊…_BH_」_W"
			CALL PRINT_STR, @"「子宮之中的精液桑、在%CNAME("一人称")%的体内搅动_BH_ 翻滚_BH_」_W"
			CALL PRINT_STR, @"「配种的体育、要加油哦…_BH_」_W"
			CALL PRINT_STR, @"「成绩优秀的精子桑%CNAME("一人称")%可能会把卵子给他哦…_BH_」_W"
			CALL PRINT_STR, @"「好期待啊…%CNAME("二人称")%…？_BH_」_W"
		ELSE
			CALL PRINT_STR, @"「%CNAME("一人称")%、明明接下来是游泳…被灌进去这么多精液的话_BH_」_W"
			CALL PRINT_STR, @"「装不下而从泳衣渗出的精子桑，要開始游泳了哦_BH_」_W"
			CALL PRINT_STR, @"「那么，如果发现了其他女孩的小穴的话…%CNAME("二人称")%的精子一定会_BH_」_W"
			CALL PRINT_STR, @"「肯定会趁着这时候_BH_ 、钻进去的吧…_BH_」_W"
			CALL PRINT_STR, @"「对完全不认识的高年级女生_BH_ 擅自地配种、很期待吧…？_BH_」_W"
		ENDIF
	ELSE

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

;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好！
	ELSEIF COND("昼")
		GREETING = 你好！
	ELSE
		GREETING = 早上好
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW 「早上好、%CNAME("二人称")%」
	ELSE
		PRINTFORMW 「哈罗…怎么了」
	ENDIF
CASE "叫醒"
	PRINTFORMW
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「舒服的睡意…稍微回去一下呢…嗯…」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖", "夸奖点心"
		PRINTFORMW 「被这样夸奖，总觉得有点不好意思啊…」
	CASE "甜言蜜语"
		IF TALENT:恋慕
			IF RAND:2
				PRINTFORML 「……」
				PRINTFORML %CALLNAME:TARGET%略微有点害羞的样子看着%CALLNAME:MASTER%的脸…
			ELSE
				PRINTFORML 「啊，呜……呜…」
				PRINTFORML %CALLNAME:TARGET%面颊绯红地呻吟了一会儿之后，大概是找不到合适的回应，悄悄地用双手遮住了脸……
			ENDIF
		ELSEIF CALCF("甜言蜜语成功")
			IF RAND:2
				PRINTFORML 「听到你这么说的话，那里要開始疼了哦…？」
			ELSE
				PRINTFORML 「……做吗？」
			ENDIF
		ELSE
			PRINTFORML 「还早得很呢、%CNAME("二人称")%♪」
		ENDIF
	CASEELSE
		IF RAND:18 == 0
			PRINTFORMW 「别看%CNAME("一人称")%这样，其实料理水平挺不错的」
			PRINTFORMW 「…不过，太复杂的我也不会」
			PRINTFORMW 「如果有喜欢的，下次给你做呢」
		ELSEIF RAND:17 == 0
			PRINTFORMW 「嗯…要是再长高一点就好了…」
			PRINTFORMW 「个子小，再加上这个体型，实在没衣服穿…」
			PRINTFORMW 「…需要专門跑一趟…」
		ELSEIF RAND:16 == 0
			PRINTFORMW 「很多人都搞错了…」
			PRINTFORMW 「淫魔和各种各样的人进行H，不只是为了吃饭」
			PRINTFORMW 「男人在和我们的H的过程中心情变好，变得幸福，变得自信…」
			PRINTFORMW 「还有，为了消除那个孩子自己的不安和寂寞」
			PRINTFORMW 「现在的淫魔，说起来……怎么说呢，也有精神上的理由」
			PRINTFORMW 「…当然，单纯因为喜欢H也是个主要的理由！」
		ELSEIF RAND:15 == 0
			PRINTFORMW 「%CNAME("一人称")%非常喜欢吃火锅…」
			PRINTFORMW 「虽然每天都很喜欢……」
			PRINTFORMW 「不如说想每天都吃…」
			PRINTFORMW 「唔姆…」
			PRINTFORMW 「…果然很难啊…」
			PRINTFORMW %CALLNAME:TARGET%的表情比任何时候都认真
		ELSEIF RAND:14 == 0
			PRINTFORMW 「%CNAME("二人称")%好暖和呢」
			PRINTFORMW 「啊，不，不是色情的意思……虽然也有色情的意思…」
			PRINTFORMW 「怎么说呢，我知道你在认真地看着我……」
			PRINTFORMW 「…总觉得有点不好意思」
		ELSEIF RAND:13 == 0
			PRINTFORMW 「虽然是理所当然的事，但不能对隐瞒自己是淫魔的孩子问『你是淫魔吗』，对吧？」
			PRINTFORMW 「%CNAME("一人称")%虽然并不是太在意，但还是有孩子会受伤的…」
			PRINTFORMW 「和人混在一起生活的淫魔，也有很多人为此烦恼」
			PRINTFORMW 「特别是恋爱啦，朋友関系啦…」
			PRINTFORMW 「…这么想的话、%CNAME("二人称")%对于淫魔来说是太方便的存在呢」
			PRINTFORMW 「意外地突击一下，说不定也会有办法…？」
		ELSEIF RAND:12 == 0
			PRINTFORMW 「可能很多人都不知道，其实我们园艺部有很多种类…」
			PRINTFORMW 「既有正常参加社团活动的地方，也有淫魔聚集的地方。」
			PRINTFORMW 「%CNAME("一人称")%所属的地方…各占一半吧，大概？」
		ELSEIF RAND:11 == 0
			PRINTFORMW 「如果是吸收花的精气的话、效率实在不怎么高」
			PRINTFORMW 「当然，也有光靠这些就能生活下去的淫魔的孩子」
			PRINTFORMW 「但是%CNAME("一人称")%的话、如果不是『更重』的东西无论如何都是不行的…」
		ELSEIF RAND:10 == 0
			PRINTFORMW %CALLNAME:TARGET%一边和%CALLNAME:MASTER%说话，一边把胸部放在桌子上休息…
			PRINTFORMW 「呀…胸大的女孩子肩膀会变宽，这点我也知道…」
			PRINTFORMW 「这么重的东西在前面，无论如何背肌都会成长的…」
			PRINTFORMW 「嘛，%CNAME("一人称")%是淫魔、所以倒也没什么関系」
			PRINTFORMW 「但是重的东西还是重的…」
		ELSEIF RAND:9 == 0
			PRINTFORMW 「虽然说这个大概会被骂的…但是胸大的话很辛苦哦」
			PRINTFORMW 「个子这么小，胸部却这么大的话」
			PRINTFORMW 「比如说，橡皮掉了的时候，即使在脚边也不知道…」
			PRINTFORMW 「顺便一提、楼梯也会因为害怕而不敢下……」
		ELSEIF RAND:8 == 0
		;綾乃酱の世界観ではそうだというだけで、他のあれそれを拘束ものでは有ません
			PRINTFORMW 「淫魔不是有个说法叫梦魔吗」
			PRINTFORMW 「那就是说，和淫魔同床就是所谓的一夜梦……实际上也有这种类型的孩子」
			PRINTFORMW 「好像是给男人做美梦，然后吃掉从中得到的欲望…」
			PRINTFORMW 「所以严格来说不是同一种族，你学到了吗？」
		ELSEIF RAND:7 == 0
			PRINTFORMW 「淫魔的同伴意识还挺强的」
			PRINTFORMW 「虽然因为有些种族的力量本身就不怎么强……」
			PRINTFORMW 「不过最大的理由是，还是很多人一起行动，更容易捕捉到猎物」
			CALL PRINT_STR, @"「…要试一下吗？_BH_」_W"
		ELSEIF RAND:6 == 0
			PRINTFORMW 「活动室的大家，意外地都在玩卡牌游戏呢」
			PRINTFORMW 「%CNAME("一人称")%对于那样的组合不太擅长…玩的时候完全是迷迷糊糊的」
			PRINTFORMW 「%CNAME("二人称")%也在玩吗？那下次可以教给我吗？」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「虽然有人说%CNAME("一人称")%看起来很迟钝，但其实我的手很灵巧的。」
			PRINTFORMW 「所以说，谜题啦智慧圈啦，一下子就能解開的」
			PRINTFORMW 「…嘛、虽然难的东西在解開之前就已经厌倦了…」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「%CNAME("一人称")%的房间里、有小仙人掌」
			PRINTFORMW 「那其实是别的学校的朋友送的」
			PRINTFORMW 「分手的时候收到的，我一直在照顾它」
			PRINTFORMW 「…那个人还精神着吧」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「吃点心吧…怎么办呢…」
			PRINTFORMW 「呜、但是胖了就不好了…呜…」
		ELSEIF RAND:2
			PRINTFORMW 「虽然是不用说的事情…」
			PRINTFORMW 「对女孩子不温柔些可是不行的哦？」
			PRINTFORMW 「因为%CNAME("一人称")%们是特别的？」
		ELSE
			PRINTFORMW 「最近肩膀比以前更痛……」
			PRINTFORMW 「为什么呢…？」
		ENDIF
	ENDSELECT

CASE "拭汗"
	IF RAND:3 == 0
		PRINTFORMW 「是因为身材矮小，还是因为代谢旺盛…」
		PRINTFORMW 「从以前開始就经常流汗…真是辛苦啊…」
			IF RAND:4 == 0
				CALL PRINT_STR, @"「要确认一下吗…？_BH_」_W"
			ELSEIF RAND:3 == 0
				PRINTFORMW 「啊，不过要小心哦」
				PRINTFORMW 「淫魔的汗液、就和媚药差不多…」
				PRINTFORMW 「如果没有那个心情的话也不至于到那种程度…不过不要吸太多了…？」
			ELSEIF RAND:2
				PRINTFORMW 「从别的角度来说也很辛苦…」
			ELSE
				PRINTFORMW 「所以帮我擦，真的是帮了我大忙…」
			ENDIF
	ELSEIF RAND:2
		PRINTFORMW 「胸部内侧之类的，马上就会积汗呢…」
		PRINTFORMW 「自己擦也很辛苦……帮我擦真的是帮大忙了…」
			IF RAND:4 == 0
				PRINTFORMW 「要说谢礼是什么…」
				CALL PRINT_STR, @"「那就稍微期待一下吧…_BH_」_W"
			ELSEIF RAND:3 == 0
				PRINTFORMW 「特别是、%CNAME("一人称")%的个子小、手臂也不长…」
				PRINTFORMW 「像这样，用力抬起胸部，如果只用一只胳膊的话，还是会溢出来。」
				PRINTFORMW 「所以这种分担作业很重要，真的」
			ELSEIF RAND:2
				PRINTFORMW 「…说起来、这个还有点色情呢」
			ELSE
				PRINTFORMW 「拜托朋友也不好意思啊…」
				PRINTFORMW 「嘛，当然要看对象了…」
			ENDIF
	ELSE
		PRINTFORMW 「好热…」
		PRINTFORMW %CALLNAME:TARGET%沉重地挺起胸膛，擦着汗…
	ENDIF
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW 「呵呵，下次一起去选内衣吧？」
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「怎、怎么样…」
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「诶嘿嘿、怎么样」
			PRINTFORMW 「……」
			PRINTFORMW 「对了，我本来就有的衣服，去哪儿了…？」
			;君のような勘のいいガキは
		ELSEIF RAND:2
			PRINTFORMW 「一叫我就冲出去，哎呀呀！」
		ELSE
			CALL PRINT_STR, @"「呋呒、合适吗…？_BH_」_W"
		ENDIF
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「那个、%CNAME("二人称")%」
		PRINTFORMW 「内衣的size、有点小了哦…」
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K40
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF RAND:4 == 0
			PRINTFORMW 「这个啊…」
			PRINTFORMW 「虽然被做的人轻松了、但是做的人不辛苦吗…？」
			PRINTFORMW 「…真的？」
			CALL PRINT_STR, @"「呐、真的、不辛苦吗…？_BH_」_W"
		ELSEIF RAND:3 == 0
			PRINTFORMW 「最近感觉莫名其妙地又大了…」
			PRINTFORMW 「变胖了…不不不，应该不可能…」
		ELSEIF RAND:2
			PRINTFORMW 「诶嘿嘿、很重吧…？」
			PRINTFORMW 「一直拿的话手会累的」
			CALL PRINT_STR, @"「所以，充分享受之后，不好好放開手是不行的哦…_BH_」_W"
		ELSE
			PRINTFORMW 「呋呒…%CNAME("二人称")%真是的…」
			CALL PRINT_STR, @"「做这种事情的话、是想要强迫小穴做好准备、早就知道了…_BH_」_W"
		ENDIF
	CASE "按摩"
		PRINTFORMW 「我的肩膀都酸了…谢谢…」
		PRINTFORMW 「啊～～～～～…………」
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「嗯、…呋呒」
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
		PRINTFORMW 「好喝…！」
	CASE "勸酒"
		PRINTFORMW 「…好像做了些坏事呢、诶嘿」
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		PRINTFORMW
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		CALL PRINT_STR, @"「嗯…_BH_ 不放的更往里的话、可能会漏出来哦…？_BH_」_W"
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K40
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW 「%CNAME("二人称")%、有空的话一起去泡个澡吧？」
		PRINTFORMW 「%CNAME("二人称")%家里的浴室，太大了所以一个人很寂寞…」
	CASE "Ｈ的邀请"
		IF RAND:8 == 0
			PRINTFORMW %CALLNAME:TARGET%把手伸向%CALLNAME:MASTER%的裆部，慢慢地抚摸着…
		ELSEIF RAND:7 == 0
			PRINTFORMW 「怎么样…？」
			PRINTFORMW %CALLNAME:TARGET%像恶作剧一样看着%CALLNAME:MASTER%…
		ELSEIF RAND:6 == 0
			PRINTFORMW %CALLNAME:TARGET%一边投来充满物欲的眼神，一边微微扭动着腰…
		ELSEIF RAND:5 == 0
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%注视着%CALLNAME:MASTER%，用食指在桌角轻轻划来划去示意……
		ELSEIF RAND:4 == 0
			CALL PRINT_STR, @"「好像有点想稍微运动了一下了…_BH_」_W"
			PRINTFORMW %CALLNAME:TARGET%的眼睛像是在引诱这边似的眯成一条缝…
		ELSEIF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%故意挺起胸，向这边展示着…
		ELSEIF RAND:2 == 0
			PRINTFORMW 「呐…」
			PRINTFORMW 浮现出浅浅的笑容的%CALLNAME:TARGET%，正悄悄往单间送去目光…
		ELSE
			PRINTFORMW %CALLNAME:TARGET%像是在捧着什么东西一样，用拇指和中指绕成一个圈，舌頭在蠢蠢欲动……
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW 「大家都在等着%CNAME("二人称")%呢…？」
			CALL PRINT_STR, @"「来，选哪个姑娘…？_BH_」_W"
		ELSE
			PRINTFORMW 「呐、看这边…？」
		ENDIF
	CASE "清洁口交"
		CALL PRINT_STR, @"「…_BH_」_W"
		CALL PRINT_STR, @"「看起来很好吃的小鸡鸡…_BH_ 能让%CNAME("一人称")%来进行扫除吗…_BH_」_W"
	CASE "口淫"
		CALL PRINT_STR, @"「稍微吸一下…_BH_ 不用在意也可以的…_BH_」_W"
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "手淫"
		IF RAND:4 == 0
			CALL PRINT_STR, @"「呋呒，肉棒有点鼓起来了哦_BH_」_W"
			PRINTFORMW %CALLNAME:TARGET%露出猫一样的笑容、摸着%CALLNAME:MASTER%的股間…
		ELSEIF RAND:3 == 0
			PRINTFORMW 「对不起、只是稍微摸一下了…？」
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「这样啊、呋呒…_BH_」_W"
			PRINTFORMW %CALLNAME:TARGET%一边正常地对话，一边温柔地握着%CALLNAME:MASTER%的阴茎……
		ELSE
			CALL PRINT_STR, @"「好的好的…呋呒…_BH_」_W"
		ENDIF
	CASE "抚摸"
		CALL PRINT_STR, @"「%CNAME("二人称")%、頭的形状很漂亮呢…_BH_」_W"
		CALL PRINT_STR, @"「頭发也很清爽…不错的味道…_BH_」_W"
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORML 「补充水分很重要哦…♪」
		PRINTFORMW %CALLNAME:TARGET%将%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 不知什么时候、%CALLNAME:TARGET%的身影突然消失了。
	ENDIF
CASE "廁所詮索"
	CALL PRINT_STR, @"「…%CNAME("二人称")%、在想什么事情…？_BH_」_W"
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW 「诶…？」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW 「真是的、不行的…突然进来的话」
		PRINTFORMW 「毕竟是男孩子嘛、心情虽然可以理解…」
		PRINTFORMW 「%CNAME("一人称")%还好，如果是别的孩子会很可怜吧？」
		PRINTFORMW 「如果你想看的话，只要拜托我，我就会给你看的……下次要多注意哦……？」
	CASE "廁所イベント：相互自慰"
		PRINTFORMW 「哇、哇啊…动的太激烈了…」
		PRINTFORMW 「就那么无法忍受吗…？」
		PRINTFORMW 「…呜，有一股雄性的臭味…」
		CALL PRINT_STR, @"「…%CNAME("一人称")%、也要兴奋起来了…_BH_」_W"
	CASE "廁所イベント：口交"
		PRINTFORMW 「肉棒、满足了吗…？」
		PRINTFORMW 「…厕所里，精液的味道很浓呢…」
		CALL PRINT_STR, @"「这个…绝对会被下一个姑娘发现的…_BH_」_W"
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW 「上厕所的时候会来啪啪啪、%CNAME("二人称")%真是个性欲怪物啊…」
		PRINTFORMW 「喂，冷静下来闻一闻…」
		PRINTFORMW 「女性的尿液和男性的精液混合的气味…」
		CALL PRINT_STRW, @"「真的…太过分了…_BH_」"
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW 「呜，又要上厕所了…」
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K40
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「哇、被吓了一跳」
		PRINTFORMW 「真够大胆啊、%CNAME("二人称")%」
		PRINTFORMW 「但是，现在的话过于强硬了哦…？」
	ELSE
		CALL PRINT_STR, @"「…只要看看就行了吗…？_BH_」_W"
		CALL PRINT_STR, @"「其实是想做更厉害的事情吧…_BH_」_W"
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K40
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「嗯…」
		PRINTFORMW 「嘛、%CNAME("二人称")%的话可以的…」
	ELSE
		CALL PRINT_STR, @"「好的、请_BH_」_W"
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K40
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		CALL PRINT_STR, @"「…就那么在意吗？_BH_」_W"
		CALL PRINT_STR, @"「那样的话、就到床上来确认一下吧_BH_」_W"
	ELSE
		CALL PRINT_STR, @"「可以的…_BH_」_W"
		CALL PRINT_STR, @"「好好地，看…_BH_」_W"
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「你看…？」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「……」
			CALL PRINT_STR, @"「……_BH_」_W"
		ELSE
			PRINTFORMW 「啊嘞…只是翻一下就可以了吗？」
			CALL PRINT_STR, @"「開玩笑的…呐_BH_」_W"
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「嗯…？」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K40
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「呀啊…」
			PRINTFORMW 「吓了一跳…」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「啊…」
			PRINTFORMW 「莫非，看见了…？」
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「哇，吓了一跳」
				PRINTFORMW 「真是的…%CNAME("二人称")%、打招呼的时候不礼貌可是不行的哦？」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					CALL PRINT_STR, @"「作戦成功…_BH_」_W"
					PRINTFORMW 「…開玩笑的、呐」
				ELSE
					CALL PRINT_STR, @"「……_BH_」_W"
				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 %CALLNAME:TARGET%假装没注意到，就这样大胆地把屁股挺了出来
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		CALL PRINT_STR, @"「真是的…_BH_ 喂、可以拍摄了…_BH_」_W"
	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 "口交"
			CALL PRINT_STR, @"「嗯、好啊…_BH_」_W"
			CALL PRINT_STR, @"「在真正的交配開始之前、旧的精液、得先拿出来呢…_BH_」_W"
		CASE "乳交"
			CALL PRINT_STR, @"「%CNAME("一人称")%也是一样、正有想要夹一下肉棒的念頭呢…_BH_」_W"
			CALL PRINT_STR, @"「诶嘿嘿…我们还挺默契的呢…_BH_」_W"
			CALL PRINT_STR, @"「这样的话身体是否也合适…快点确认一下吧…_BH_」_W"
		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			IF RAND:3 == 0
				PRINTFORML 「嗯…%CNAME("二人称")%…？」
				CALL PRINT_STR, @"「啊，肉棒好像兴奋起来了…_BH_」_W"
				CALL PRINT_STR, @"「呋呒…_BH_ 该怎么办呢…_BH_ %CNAME("一人称")%、现在可不怎么有做的心情呢…_BH_」_W"
				CALL PRINT_STR, @"「唔、当然如果是%CNAME("二人称")%的请求的话，会给你做的哦…？_BH_」_W"
				CALL PRINT_STR, @"「只是，也许不会像%CNAME("一人称")%想的那样、能够浓厚地biubiu一下…_BH_」_W"
				CALL PRINT_STR, @"「明明已经射精了，反而可能会变得更加兴奋起来也有可能…？_BH_」_W"
				CALL PRINT_STR, @"「如果这样也可以的话，我就帮你做了…怎么办…？_BH_」_W"
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「对不起，现在有点抽不開身_BH_」_W"
				CALL PRINT_STR, @"「要说代替是什么，我可以用手来帮你一下…_BH_」_W"
				CALL PRINT_STR, @"「这样的话能不能满足呢…？_BH_」_W"
				CALL PRINT_STR, @"「一定会变得很舒服的…_BH_」_W"
			ELSE
				CALL PRINT_STR, @"「%CNAME("二人称")%、不喜欢这样的吗…？_BH_」_W"
				CALL PRINT_STR, @"「就像在什么空闲的时候，被人用手榨干一样……_BH_」_W"
				CALL PRINT_STR, @"「试试看吧，呐？_BH_」_W"
			ENDIF
		CASE "Ｖ性交"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「啊…_BH_」_W"
				CALL PRINT_STR, @"「%CNAME("二人称")%的肉棒、好像没有余裕了…_BH_」_W"
				CALL PRINT_STR, @"「想要使用%CNAME("一人称")%…？_BH_ 可以的…_BH_」_W"
				CALL PRINT_STR, @"「慢慢地慢慢地，适当的感触的，榨的半死的SEX吧…_BH_」_W"
				CALL PRINT_STR, @"「如果这样也可以的话，请…_BH_」_W"
			ELSE
				PRINTFORMW 「想做了吗…？」
				PRINTFORMW 「是吗、麻烦了呢…%CNAME("一人称")%的小穴、现在不是最佳状态…」
				PRINTFORML 「不是那种以往那种谄媚着%CNAME("二人称")%，把它勒得紧紧的，然后挤出来的感觉。」
				PRINTFORMW 「我想会变成黏糊糊、舔来舔去的刺激…」
				PRINTFORMW 「诶，这样也可以…？ 是吗…？」
				PRINTFORMW 「嗯，嗯…知道了，那么，今天请随意吧？」
			ENDIF
		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"
		IF RAND:2 == 0
			CALL PRINT_STR, @"「哇、已经開始射出来了…_BH_」_W"
			CALL PRINT_STR, @"「从肉棒的前端開始biubiubiu地飞出来展示着自己…_BH_」_W"
			CALL PRINT_STR, @"「对%CNAME("一人称")%的嘴、原来这么期待啊…_BH_ 很高兴…_BH_」_W"
			CALL PRINT_STR, @"「这样的话就不负期待吧…_BH_」_W"
			CALL PRINT_STR, @"「乳房里埋着肉棒，用舌尖舔着铃口，蛋蛋也充分地逗弄一下_BH_」_W"
			CALL PRINT_STR, @"「脑袋的里面、弄得乱七八糟似的…_BH_ 淫魔的捕食口交，给你做吧…_BH_」_W"
		ELSE
			PRINTFORMW 「嗯…其实差不多该拜托你了…」
			CALL PRINT_STR, @"「我在嘴里做了很多准备…_BH_」_W"
			CALL PRINT_STR, @"「现在的%CNAME("一人称")%、很厉害哦…？_BH_」_W"
			CALL PRINT_STR, @"「一定能把%CNAME("二人称")%数秒之内就ＫＯ的…_BH_」_W"
			CALL PRINT_STR, @"「为了不让意识轻易地飞出去…要好好忍耐并品尝…_BH_」_W"
		ENDIF
	CASE "乳交"
		IF RAND:2 == 0
			PRINTFORMW 「呐，话说回来，我有个请求…」
			CALL PRINT_STR, @"「因为不想弄脏衣服…所以希望全部都在乳房里射精…_BH_」_W"
			CALL PRINT_STR, @"「精液、一滴漏出来也不行…_BH_」_W"
			CALL PRINT_STR, @"「要在%CNAME("一人称")%的乳房中，好好地停留…_BH_」_W"
			CALL PRINT_STR, @"「希望一边调整量和气势，一边聪明地射精…_BH_ 想要你这么做…_BH_」_W"
			CALL PRINT_STR, @"「%CNAME("二人称")%的话能做到吧…？_BH_ 唔、做不到的话可不行哦…_BH_」_W"
			PRINTFORMW 「所以，如果溢出来的话…」
			CALL PRINT_STR, @"「就算你哭也不会停的、榨精地狱…_BH_ 就得让你好好品味一下了…_BH_」_W"
			CALL PRINT_STR, @"「如果不愿意的话、就打起精神好好的忍耐好哦…？_BH_」_W"
			CALL PRINT_STR, @"「…如果能忍受的话……_BH_」_W"
		ELSE
			PRINTFORMW 「呋呒…」
			CALL PRINT_STR, @"「故意把衣服的纽扣打開做的洞…_BH_ 你好像很喜欢呢…_BH_」_W"
			CALL PRINT_STR, @"「腰，已经在不停地颤抖了…_BH_ 好像不抓住%CNAME("一人称")%的胸部好像站不起来的似的…_BH_」_W"
			CALL PRINT_STR, @"「没関系的……_BH_ 我不会着急的_BH_」_W"
			CALL PRINT_STR, @"「就这样发出的biubiu的声音射出来吧…_BH_」_W"
		ENDIF
	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

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

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY 请好好使用
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K40, ARGS
#DIMS MAIL_BODY

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	IF RAND:3 == 0 && TALENT:恋慕 && COND("現在存在") == 0
		MAIL_BODY = 本館　112教室」「先到的人赢
	ELSEIF RAND:2 == 0 && COND("現在存在") == 0
		MAIL_BODY = 旧校舎　411教室
	ELSE
		MAIL_BODY = 今天真热啊。
	ENDIF
CASE "阴部自撮り", "阴茎自撮り"
	IF RAND:3 == 0 && TALENT:恋慕
		MAIL_BODY = 今天什么时候能见面？
	ELSEIF RAND:2 == 0
		MAIL_BODY = 打起精神
	ELSE
		MAIL_BODY = 是不是变得想要了呢？
	ENDIF
CASE "今年の泳装自撮り"
	IF RAND:5 == 0 && TALENT:恋慕
		MAIL_BODY = 很适合你吧
	ELSEIF RAND:4 == 0 && TALENT:恋慕
		MAIL_BODY = 我很期待哦♪
	ELSEIF RAND:3 == 0 && TALENT:恋慕
		MAIL_BODY = 我很期待呢
	ELSEIF RAND:2 == 0
		MAIL_BODY = 去买榊屋的甜瓜面包吧」「啊，请客！
	ELSE
		MAIL_BODY = 你喜欢这样的吧♪
	ENDIF
CASE "学校指定の泳装自撮り"
	IF RAND:4 == 0 && TALENT:恋慕
		MAIL_BODY = 后面的孩子胸部很大吧！
	ELSEIF RAND:3 == 0 && TALENT:恋慕
		MAIL_BODY = 另外，这封邮件会自动消失。马上保存
	ELSEIF RAND:2 == 0
		MAIL_BODY = %CNAME("二人称")%想要这样的吗？
	ELSE
		MAIL_BODY = 杀必死！
	ENDIF
CASE "体操服自撮り"
	IF RAND:4 == 0 && TALENT:恋慕
		MAIL_BODY = 等着你哦
	ELSEIF RAND:3 == 0 && TALENT:恋慕
		MAIL_BODY = 出汗了呢……
	ELSEIF RAND:2 == 0
		MAIL_BODY = 喜欢这样的吗？
	ELSE
		MAIL_BODY = 是胸部哦
	ENDIF
CASE "胸罩自撮り" ,"胖次自撮り"
	IF RAND:4 == 0 && TALENT:恋慕 && COND("夜") == 0
		MAIL_BODY = 到午休为止，就靠这个忍一下吧
	ELSEIF RAND:3 == 0 && TALENT:恋慕
		MAIL_BODY = 合适吗？
	ELSEIF RAND:2 == 0
		MAIL_BODY = 今天的菜单在这里♪
	ELSE
		MAIL_BODY = 肚子饿了
	ENDIF
CASEELSE
	MAIL_BODY = 能好好忍耐吗？
ENDSELECT

;地の文
PRINTFORMW 照片被添加了「%MAIL_BODY%」这样的信息…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「讷、%CNAME("二人称")%」
	PRINTFORMW 「周末、有空吗？」
CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW 「太好了…！」
		PRINTFORMW 「那就约定好了！忘了可是绝对不行的哦！」
		CALL PRINT_STR, @"「欸…_BH_」_W"
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「这样啊…」
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	PRINTFORMW 「好啊…」
	PRINTFORMW 「%CNAME("二人称")%来邀请我，我很高兴…」
	PRINTFORMW 「诶嘿…%CNAME("一人称")%、会很期待的呢」
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 『一起去玩吧…难道是今天？』
		PRINTFORMW 『好啊、正好%CNAME("一人称")%也很闲…』
		PRINTFORMW 『那么，两个小时后可以吗？ …好、好…那么、先挂断了』
	ELSE
		PRINTFORMW 「啊，可以吗？」
		PRINTFORMW 「太好了，很高兴啊…」
		PRINTFORMW 「我马上准备，稍等一下」
	ENDIF

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

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 「对不起，让你等了一会儿吧…？」
	ELSE
		PRINTFORMW 「抱歉我迟到了…？」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「去买泳衣吗？」
		CALL PRINT_STR, @"「…那么，就让%CNAME("二人称")%来挑选吧…_BH_」_W"
		PRINTFORMW 「取而代之、%CNAME("二人称")%的就由%CNAME("一人称")%来挑选了！」
	CASE "散歩"
		PRINTFORMW 「%CNAME("一人称")%也喜欢散步…一起的」
	CASE "尋訪美食"
		PRINTFORMW 「欸、可以吗？」
		PRINTFORMW 「哇，好期待…！ 快去吧！」
	CASE "逛街"
		PRINTFORMW 「这个也不错！」
		PRINTFORMW 「呋呒……这样的机会很少，总觉得很兴奋呢…」
	CASE "去水族馆"
		PRINTFORMW 「哇，太期待了！」
		PRINTFORMW 「会不会有企鹅…？ 诶嘿嘿、快走吧」
	CASE "去游乐园"
		PRINTFORMW
	CASE "去图书馆"
		PRINTFORMW 「图书馆，总觉得有点紧张呢…」
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		CALL PRINT_STR, @"「嗯…_BH_」_W"
		CALL PRINT_STR, @"「呋呒、 好啊…_BH_ 希望期待泳装哦…_BH_」_W"
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW 「滑冰啊…」
		PRINTFORMW 「…就算摔倒了，也不要笑啊？」
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

CASE "手をつなぐ"
	PRINTFORMW 「诶嘿嘿…」
CASE "手をつながない"
	PRINTFORMW 「sun…」（发音是这个，不知道什么意思）
;泳装を買いに行った時です
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 「穿成这样的话，可能会被调皮的男孩子搭讪也说不定…」
		CALL PRINT_STR, @"「呐、%CNAME("二人称")%…_BH_ 我想说的话、明白的吧…_BH_」_W"
	CASE "連体泳装"
		PRINTFORMW 「这种感觉偶尔也可以吧？」
		PRINTFORMW 「唔……好像想说什么似的表情」
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		PRINTFORMW 「啊嘞、肉棒已经硬邦邦地忍受不了啦…？」
	ELSE
		PRINTFORMW 「真是的、没办法啊…」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW 「……」
		CALL PRINT_STR, @"「…会暴露的，安静点呢_BH_」_W"
	ELSE
		CALL PRINT_STR, @"「呋呒…_BH_」_W"
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW 「呐…？」
	ELSE
		PRINTFORMW 「今天真開心啊…」
		PRINTFORMW 「…真想给点谢礼啊」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/40 綾乃/EVENT_K40_DAILY.ERB


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			IF RAND:2
				CALL PRINT_STR, @"「阿哇…_BH_ 啪啪啪的时候，是不是想撒娇了呢…_BH_」_W"
				CALL PRINT_STR, @"「可以的…_BH_ 对%CNAME("一人称")%说说看…_BH_」_W"
			ELSE
				CALL PRINT_STR, @"「唔姆_BH_ 什么…_BH_ 什么样的请求…？_BH_」_W"
			ENDIF
		ELSE
			CALL PRINT_STR, @"「怎么了…？_BH_」_W"
		ENDIF
	ELSE
		CALL PRINT_STR, @"「好好，怎么了…？」_W"
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「诶…？」
		PRINTFORMW 对向这边微笑的%CALLNAME:TARGET%，%CALLNAME:MASTER%传达了自己的想法…
		PRINTFORMW %CALLNAME:TARGET%不知道是不是没有理解，一时没反应过来。
		PRINTFORMW 终于全部理解了之后，就那样崩溃似的冲进了%CALLNAME:MASTER%的怀里，发出了几次微弱的呜咽…
		;乙女パワーがたまりきっていないので暫定的に上のものとしておくが、たぶん加湿修正する
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW

	;失敗
	ELSE
		PRINTFORMW 「…就当没听说过吧」
		PRINTFORMW 这么说的%CALLNAME:TARGET%的表情，好像有些悲伤…
		;正直好感度500くらい下げたい
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「啊…！ 对、对不起…？ %CNAME("一人称")%、那个要求现在没有办法接受…」
		PRINTFORMW 「其实，那个，没有穿内裤」
		PRINTFORMW 「对不起啊……？好不容易拜托我的，我太不周到了…」
		PRINTFORMW 「…怎么做才能原谅我呢…？」
	ELSE
		;さすがに自分用
		;PRINTFORMW 「啊，对不起」
		;PRINTFORMW 「刚才，有个孩子非常热心地央求我，我就交给了那个孩子…」
		PRINTFORMW 「现在、%CNAME("一人称")%没有带内裤…」
		PRINTFORMW 「下次有机会吧、呐…？」
	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && (BASE:識別番号%(DAY*10 + TIME) )%4 == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「反正要脱就在床上，对吧…？」
		ELSE
			PRINTFORMW 「今天的内裤有点贵，不喜欢吗…」
			PRINTFORMW 「对不起啊…？」
		ENDIF
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF

CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW 「嗯、那就好」
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW 「…没办法啊、%CNAME("二人称")%真是的…」
		PRINTFORMW 「回家的路上，被男孩子袭击的话…全是%CNAME("二人称")%的错哦…？」
	ELSE
		PRINTFORMW 「…没办法啊、%CNAME("二人称")%真是的…」
		PRINTFORMW 「回家的路上，被男孩子袭击的话…全是%CNAME("二人称")%的错哦…？」
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

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

	ELSE

	ENDIF

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

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

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

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

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

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

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

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「嗯、可以」
		PRINTFORMW 「我会给你做很多增强精力的东西的」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「嗯、可以…」
			PRINTFORMW 「不是剩饭，而是正经的便当，对吧？」
			PRINTFORMW 「这种事情、还挺開心呢」
			PRINTFORMW 「…要加油呢！」
		ELSE
			PRINTFORMW 「哇、哇啊…真的…？」
			PRINTFORMW 「呜、那个，不是讨厌…那个」
			PRINTFORMW 「那个……我有点不好意思…」
			PRINTFORMW 「…但是，我会努力的！」
		ENDIF
	ENDIF

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

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0
				PRINTFORMW 「欸…」
				PRINTFORMW %CALLNAME:TARGET%好像很不满…
				PRINTFORMW 「嘛、是想要无套了呢、大概」
				PRINTFORMW 「这种心情我能理解，但还是橡胶更有风情…唔」
				PRINTFORMW 「…这次、就输给%CNAME("二人称")%的热情吧」
			ELSE
				PRINTFORMW 「还要喝吗…？」
				PRINTFORMW 「嘛…嗯、想要无套中出的心情可以理解…」
				PRINTFORMW 「倾听后辈的任性，也是前辈的职责呢」
				PRINTFORMW 「…嗯、可以！」
			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

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

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 "拜托処理性欲"
	CALL PRINT_STR, @"「阿哇_BH_ 对于%CNAME("一人称")%的小穴、就那么喜欢的啊…？_BH_」_W"
	CALL PRINT_STR, @"「好高兴啊…非常高兴…_BH_」_W"
	CALL PRINT_STR, @"「好啊、%CNAME("二人称")%想要做的时候、无论什么时候都可以使用小穴的…_BH_」_W"
	CALL PRINT_STR, @"「来给你那个非常H的肉棒呢…_BH_」_W"
CASE "性処理の一時中断"

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

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

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	;その角色の普段の髪型(光滑柔顺や乱髪にはできないので、角色次第ではこの分岐には来ません)
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "盘頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

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

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

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

		ELSE

		ENDIF
	ELSE

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	IF RAND:3 == 0
		PRINTFORMW 「这种拜托方式，不怎么喜欢啊…」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「啊嘞、我们是那种関系吗？」
	ELSE
		PRINTFORMW 「如果你以为我什么都听你的，那就大错特错了哦…？」
	ENDIF
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	IF RAND:3 == 0
		PRINTFORMW 「嗯、可以」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「好啊」
	ELSE
		PRINTFORMW 「嗯！」
	ENDIF

ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

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

	ELSE

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

	ELSEIF CHECK_CLO("体操服姿")

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

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

	ELSE

	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬",

	CASE "飞机杯"
		IF RAND:3 == 0
			PRINTFORMW 「哇啊、这家公司的飞机杯、出新的了…」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「这边的符合%CNAME("二人称")%的喜好吧…？」
		ELSE
			PRINTFORMW 「哇啊…这个飞机杯、好厉害啊…」
			PRINTFORMW 「……」
			CALL PRINT_STR, @"「……_BH_」_W"
		ENDIF
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「啊，粉红色的好可爱……」
		ELSE
			IF RAND:4 == 0
				CALL PRINT_STR, @"「这点程度，真的够了？_BH_」_W"
			ELSEIF RAND:3 == 0
				PRINTFORMW 「可以使用积分卡吗…？」
			ELSEIF RAND:2 == 0
				CALL PRINT_STR, @"「呋呒…_BH_ 十分感谢…_BH_」_W"
			ELSE
				PRINTFORMW %CALLNAME:TARGET%拿起几个避孕套，一脸认真地反复斟酌着……
			ENDIF
		ENDIF
	;えっちな商品
	CASEELSE

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

	ELSE

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

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「给你添麻烦了…店员桑对不起」
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		PRINTFORMW 「呋呒、真是的…」
		CALL PRINT_STR, @"「想要炫耀一下%CNAME("一人称")%吗…？_BH_」_W"
		CALL PRINT_STR, @"「%CNAME("二人称")%啊啦、坏孩子啊…_BH_」_W"
	ENDIF
ENDSELECT

path: ERB/EVENT_K/40 綾乃/EVENT_K40_SHOP.ERB