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

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CSTR:胖次 = 內褲/淡色/
	CSTR:胸罩 = 吊帯衫/淡色/

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

;学園での便装です。設定必須です
CASE "制服"
	IF COND("冬")
		CALL SET_COSTUME, "西装外衣"
		CALL SET_SHOES, "靴"
	ELSEIF COND("夏")
		CALL SET_COSTUME, "水手服"
	ELSE
		CALL SET_COSTUME, "西装外衣"
	ENDIF
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	IF COND("冬")
		CALL SET_COSTUME, "体操服运动衫"
	ELSEIF COND("夏")
		CALL SET_COSTUME, "体操服紧身短褲"
	ELSE
		CALL SET_COSTUME, "体操服五分褲"
	ENDIF

;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
;夏は无胸罩で冬はそれなりに防寒対策をする
;恋慕でやや攻めた服装になる
CASE "便装"
	;恋慕变成了ら便装をすこし過激にする
	IF TALENT:恋慕
		IF COND("冬")
			CALL SET_SHIRT, TEXTR("萌袖毛衣/短外套")
			CALL SET_SKIRT, "裙"
			CALL SET_SOCKS, "高筒襪"
			CALL SET_SHOES, "靴"
			CALL SET_OTHER, "披肩"
		ELSEIF COND("夏")
			CALL SET_SHIRT, "宽大的Ｔ恤"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "運動鞋"
			CALL SET_BRA, ""
		ELSE
			CALL SET_SHIRT, "女式衬衫"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "運動鞋"
			CALL SET_BRA, ""
		ENDIF
	ELSE
		IF COND("冬")
			CALL SET_SHIRT, TEXTR("萌袖毛衣/短外套")
			CALL SET_OUTER, "五分褲"
			CALL SET_SOCKS, "高筒襪"
			CALL SET_SHOES, "靴"
			CALL SET_OTHER, "披肩"
		ELSEIF COND("夏")
			CALL SET_SHIRT, "宽大的Ｔ恤"
			CALL SET_OUTER, "五分褲"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "運動鞋"
		ELSE
			CALL SET_SHIRT, "女式衬衫"
			CALL SET_OUTER, "五分褲"
			CALL SET_SOCKS, "膝下襪"
			CALL SET_SHOES, "運動鞋"
		ENDIF
	ENDIF

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	;欲求次第で身体の火照りに耐えられなくて脱いじゃう
	IF COND("欲求不満") >= 3
		CALL SETFLAG, "变成裸体", TARGET
	ELSEIF COND("欲求不満") >= 2
		CALL SET_SHIRT, "宽大的Ｔ恤"
		CALL SET_BRA, ""
		CALL SET_PANTIES, ""
	ELSE
		CALL SET_SHIRT, "宽大的Ｔ恤"
		CALL SET_BRA, ""
	ENDIF

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

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

ENDSELECT

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

ELSE

ENDIF

path: ERB/EVENT_K/33 鈴/EVENT_K33_CLOTHES.ERB


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

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

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

	;煮込み烏冬面マン桑に多大なる感謝
	;ドラ魔風.netに接続…
	EVENT_TABLE = 琉娜/奥丝卡/綾乃
	IF FIND_TaiTa(EVENT_TABLE)
		;話し相手をpartnerにする
		CALL SET_PARTNER, FIND_TaiTa(EVENT_TABLE)
		CALL EMOTION_PLUS, "交流中", TARGET, PARTNER()
	ENDIF

	IF NO:PARTNER() == 22
		IF CEVENT("スカウト") == 0
			PRINTFORMW 『哈啊～…今天好像没有什么事发生呢…』
			PRINTFORMW 「……」
			PRINTFORMW 「鈴、今天下午没有课，要回去了……」
			PRINTFORMW 『这样啊…啊！那么，一起来做农活吧？』
			PRINTFORMW 「欸…那个…鈴对这种体力活很苦手……」
			PRINTFORMW 『没事的！今天也不做那么累的事情…呐♪』
			PRINTFORMW 『好，决定了！没事没事、不会有事的♪』
			PRINTFORMW 『请等一下、爸爸パっとやって、終わり！』
			;PRINTFORMW 『30分钟，就去吃饭！』
			PRINTFORMW 「那个…鈴…那个…等等……」
			PRINTFORMW 鈴被琉娜用力地抓住手臂，拉了出去…
			CALL SET_CEVENT, "スカウト"
			TFLAG:台詞スキップ = 1
			TFLAG:地の文スキップ = 1
		ELSEIF CEVENT("弱いところ") == 0
			PRINTFORMW 『铃酱啊…之后，有空吗？』
			PRINTFORMW 「有什么必须要说的吗……」
			PRINTFORMW 铃因之前琉娜半强迫地让自己帮忙进行了农业作业一事对她抱有不信任感…
			PRINTFORMW 『果然啊，比起一个人做，两个人做不是更開心吗？』
			PRINTFORMW 『铃酱，不这么认为吗？』
			PRINTFORMW 「……」
			PRINTFORMW 『如果能帮我的话，姐姐什么都会教给你的』
			PRINTFORMW 『功课什么的…这个学园的七大不可思议什么的…』
			PRINTFORMW 『哥哥的弱点之类的…？』
			PRINTFORMW 「……！」
			PRINTFORMW 「今、今日要做什么呢……」
			PRINTFORMW 『呼呼、今日啊…』
			PRINTFORMW 鈴自发地跟在了琉娜后面…
			CALL SET_CEVENT, "弱いところ"
			TFLAG:台詞スキップ = 1
			TFLAG:地の文スキップ = 1
		ENDIF
			;PRINTFORMW 『我家啊…有烤肉套装，要不要来烧烤啊？』
			;PRINTFORMW 「因为不能吃晚饭了，所以不用了……」
	ELSEIF NO:PARTNER() == 30
		IF CEVENT("漆黒の目") == 0
			PRINTFORMW 『鈴哟』
			PRINTFORMW 「是、是……」
			PRINTFORMW 『鈴』
			PRINTFORMW 「怎么啦……？」
			PRINTFORMW 面对弯下腰想要窥视她的脸的奥丝卡，铃固执地不想和她对视…
			PRINTFORMW 『为什么移開视线？没人教你和人说话的时候要看着眼睛说话吗？』
			PRINTFORMW 『看着妾身的眼睛』
			PRINTFORMW 奥丝卡说出的话、让铃被强制与她对视…
			PRINTFORMW 「咿、咿っ……」
			PRINTFORMW ちょろ、ちょろろろ（水声）……
			PRINTFORMW 铃看到了显然不属于人类的漆黑的眼睛，由于太过恐怖而失禁了…
			PRINTFORMW 『！？　对、对不起…』
			PRINTFORMW 「呜っ、呜呜呜……」
			PRINTL
			PRINTL …
			PRINTL
			PRINTFORMW 『不好意思…没想到你会那么害怕…』
			PRINTFORMW 「不……铃那么害怕是自己的错……」
			PRINTFORMW 「那个、奥丝卡桑……」
			PRINTFORMW 『怎么了?眼睛的话，以后不用勉强自己去看了』
			PRINTFORMW 「那个…可以拍张奥丝卡桑的照片吗…？」
			PRINTFORMW 「因为想和奥丝卡桑对视着说话……」
			PRINTFORMW 『真，真的吗？当然可以！』
			PRINTL
			PRINTFORMW 在这之后，由于铃的手在颤抖，或是在摄影的时机上眨了眼的奥丝卡的缘故
			PRINTFORMW 导致写真撮影一直没有结束就是另一个故事了…
			PRINTL
			EXP:漏尿経験 += 1
			PRINTFORMW 漏尿経験 + 1（鈴）
			CALL SET_CEVENT, "漆黒の目"
			TFLAG:台詞スキップ = 1
			TFLAG:地の文スキップ = 1
		ENDIF
	ELSEIF COND("相性○", PARTNER() ) && NO:PARTNER() == 40
		IF CEVENT("淫魔の妹") == 0
			CALL PRINT_STR, @"『铃酱小巧的很可爱呀…_WH_』_W"
			PRINTFORMW 『如果我有妹妹的话，大概会是这样的感觉吧…』
			PRINTFORMW 「鈴也觉得…綾乃姐姐是、真正的姐姐的话就好了……」
			PRINTFORMW 『呼呼、这样不行哟…如果我是姐姐的话、会长出这——样的尾巴哦…？你讨厌那样吧…？』
			PRINTFORMW 「和姐姐一样的话…铃也会高兴的……」
			CALL PRINT_STR, @"『……_WH_』_W"
			CALL PRINT_STR, @"『那、下次给铃酱准备专用的尾巴吧…_WH_』_W"
			PRINTFORMW 「……？」
			CALL SET_CEVENT, "淫魔の妹"
			TFLAG:台詞スキップ = 1
			TFLAG:地の文スキップ = 1
		ELSEIF CEVENT("情報提供者") == 0
			PRINTFORMW 「綾乃姐姐又温柔…又可爱……」
			PRINTFORMW 「胸部也很大…H的事情也知道很多……」
			PRINTFORMW 「…鈴、很羡慕大姐姐……」
			CALL PRINT_STR, @"『是吗？谢谢…_WH_』_W"
			PRINTFORMW 『但是，铃酱也有让我羡慕的地方哟…？』
			PRINTFORMW 「诶…？那种地方，铃有吗……？」
			PRINTFORMW 『鈴酱的话、后辈君是第一次的对象吧…？』
			PRINTFORMW 『肯定如果不是后辈君的话、我觉得是无法让铃酱满足的…』
			PRINTFORMW 『我觉得有必要像以前的我那样紧紧的抓住男孩子哦…』
			PRINTFORMW 『但是…那样的话就只能让身体舒服起来、心里的话就不太舒服、你懂吧…？』
			PRINTFORMW 「綾乃姐姐……」
			PRINTFORMW 『呼呼…话题稍微有点阴暗了…抱歉呢？』
			PRINTFORMW 『而且呢、男孩子也有爱好懵懂无知的孩子那一类哦…』
			CALL PRINT_STR, @"『对H的事情不怎么了解也是…铃酱的魅力之一哦…_WH_』_W"
			PRINTFORMW 「但是…铃也想像綾乃姐姐一样能让对方舒服起来……」
			CALL PRINT_STR, @"『没问题的…_WH_H的事情的话，姐姐我无论多少都会回答的哦…_WH_』_W"
			CALL PRINT_STR, @"「是…非常感谢……_BHH_」_W"
			CALL SET_CEVENT, "情報提供者"
			TFLAG:台詞スキップ = 1
			TFLAG:地の文スキップ = 1
		ELSEIF CEVENT("みちあな") == 0
			CALL PRINT_STR, @"『铃酱、这个、礼物…_WH_』_W"
			PRINTFORMW 「…？这个细长的东西、是……」
			PRINTFORMW 「是什么啊？这个……」
			PRINTFORMW 『呼呼、你觉得是什么…？』
			PRINTFORMW 「唔…完全没有頭绪……」
			PRINTFORMW 『这个啊、就像这样紧紧的抓着…』
			CALL PRINT_STR, @"『是为了不让自己掉下来，用来锻炼自己紧紧抓住的道具哟…_WH_』_W"
			PRINTFORMW 「是锻炼手的力量吗……？」
			CALL PRINT_STR, @"『手的话也是可以的，但是…其实是用在这边…_WH_』_W"
			CALL PRINT_STR, @"「咦！？姐姐、那里…呀！_BHH_」_W"
			CALL PRINT_STR, @"『铃酱的这里、本来就小巧的…如果是后辈君的…的话可能会变得很粗暴…_WH_』_W"
			CALL PRINT_STR, @"「知、知道了啦，所以…_BHH_  请不要…_BHH_  再动了…_BHH_」_W"
			CALL PRINT_STR, @"『但是…如果像这样可爱的紧紧缠上的话，可能已经不需要了呢…？_WH_』_W"
			CALL PRINT_STR, @"「呜、呜……_BHH_」_W"
			CALL SET_CEVENT, "みちあな"
			TFLAG:台詞スキップ = 1
			TFLAG:地の文スキップ = 1
		ENDIF
	ELSE
	ENDIF

;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"

ENDSELECT

path: ERB/EVENT_K/33 鈴/EVENT_K33_COMM.ERB

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

CASE "朝袭"
	SELECTCASE CSTR:朝袭
	;エロの最中颜绘はあまりよろしくないので事後思いついたら口交みたいな領帯ミングで出せるようにする
	CASE "朝騎乗位"
		IF TALENT:恋慕 && TALENT:淫乱 && ABL:奉仕精神 > 8 && RAND:2
			CALL SETFLAG, "地の文スキップ"
			PRINTFORMW 猛然睁開眼睛、从双腿间传来了奇怪的感觉…
			PRINTFORMW 看向下半身的话、%CALLNAME:TARGET%把从%CALLNAME:MASTER%的肉棒里溢出来的先走汁舔进了嘴里…
			PRINTL
			CALL EMOTION_PLUS, "躁动难忍", TARGET
			PRINTFORMW 「啊、%CNAME("二人称")%…早上好啊……」
			PRINTFORMW 「因为%CNAME("二人称")%不管怎么叫都叫不醒、所以就開始玩%CNAME("二人称")%的小鸡鸡了……」
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%微笑着用双手猛烈地套弄着%CALLNAME:MASTER%的肉棒、就在快要射的时候动作停了下来…
			PRINTL
			PRINTFORMW 「像这样一颤一颤的话、会从小鸡鸡里面出来很多黏糊糊的东西呐……」
			CALL PRINT_STR, @"「呼呼…就像%CNAME("一人称")%一样呢……_BHH_」_W"
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%跨坐在%CALLNAME:MASTER%双腿之上、像是要给%CALLNAME:MASTER%看一样，咕啪的一下将%TEXTR("小巧的/稚嫩的")%%TEXTR("蜜穴/性器")%撑開了…
			PRINTFORMW 从一缩一缩紧张的%TEXTR("蜜穴口/阴穴")%内流出了爱液、把%CALLNAME:MASTER%的肉棒弄得黏糊糊的……
			PRINTL
			PRINTFORMW 「%CNAME("二人称", "どもり")%应该已经无法忍耐了吧…？」
			PRINTFORMW 「不管%CNAME("二人称")%是哪一个…%CNAME("一人称")%也无法忍耐了……」
			CALL PRINT_STR, @"「%CNAME("二人称")%的%TEXTR("精子/精液/小鸡鸡牛奶")%…请在%CNAME("一人称")%的%TEXTR("子宫/小穴")%里%TEXTR("灌进去一样的/BiuBiu的/咕啾咕啾的/噗——的/一滴也不浪费的")%射进去%TEXTR("大量的/足够多的/非常多的")%精液……_BHH_」_W"
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%将%TEXTR("小巧的/稚嫩的")%%TEXTR("蜜穴/性器")%就这样撑開着把腰压了下来、就像是在展示一样把肉棒润湿一口气吞了下去…
			PRINTFORMW 被刺激蜜穴深处所带来的快感所迷住的%CALLNAME:TARGET%、就那样像是在撞击子宫口一样上下跳动着腰部…
			PRINTL
			PRINTFORMW 咚噗——！咚噗噜噜噜——！咚啪——！咚啾噜噜噜——！咚啾——！
			PRINTFORMW 在睡觉时被吊足了胃口的%CALLNAME:MASTER%、完全无法忍耐住%CALLNAME:TARGET%拼命吸紧纠缠的稚嫩蜜穴所带来的刺激
			PRINTFORMW 一边从嘴中漏出了丢人的呻吟、一边就这样被%CALLNAME:TARGET%的子宫吮吸着喷吐出了大量的精液…
			PRINTL
			CALL PRINT_STR, @"「啊っ！_BHH_  啊っ！_BHH_  %CNAME("一人称", "かな")%也要！_BHH_BHH_  要っ！_BHH_  要去了！_BHH_」_W"
			CALL PRINT_STR, @"「呜咕！咕唔哦哦哦！！_BHH_BHH_BHH_」_W"
			PRINTL
			PRINTFORMW 因为精液注射进子宫的感觉而达到绝顶的%CALLNAME:TARGET%、一边更加用力的抖动着腰部一边喷出了潮水…
			PRINTFORMW 因为并没有多少精液从结合的部位漏出来、%CALLNAME:TARGET%的小腹明显鼓鼓的膨胀起来…
			PRINTL
			CALL PRINT_STR, @"「%CNAME("二人称")%的那个进来好多…欸嘿嘿……_BHH_」_W"
			PRINTFORMW 「再稍微一会就好…就保持这样不行吗……？」
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%抚摸着\@ MARK:淫紋 > 1 ? 注入精液后变得闪闪发光的淫纹 # 自己的小腹 \@的同时、露出了幸福的表情…
			EXP:絶頂経験 += 1
		ELSEIF TALENT:恋慕
			CALL SETFLAG, "地の文スキップ"
			;発情してる兒童体温はとってもホットだぞ！
			PRINTFORML 早上、睁開眼睛之后下腹部莫名的暖和起来…
			PRINTFORMW 放眼望去，%CALLNAME:TARGET%正跨坐在上面喘息着……
			PRINTL
			CALL EMOTION_PLUS, "躁动难忍", TARGET
			CALL PRINT_STR, "「嗯唔…啊っ…、嗯っ…_BHH_哈啊……好舒服……っ_BHH_」_W"
			PRINTL
			PRINTFORML %CALLNAME:TARGET%将双手撑在后面、不停用%CALLNAME:MASTER%的阴茎摩擦自己最敏感的地方
				;腹部变形するかしないかの分岐
				IF SIZE("阴茎", MASTER) >= 1
					PRINTFORMW 反弓着身体的%CALLNAME:TARGET%的腹部浮现出了%CALLNAME:MASTER%的肉棒的形状……
				ELSE
					PRINTFORMW %CALLNAME:MASTER%与%CALLNAME:TARGET%的肌肤互相碰撞着、发出了很大的响声……
				ENDIF
			PRINTFORML
			CALL PRINT_STR, "「啊、哈……啊啊——_BHH_BHH_」_W"
			PRINTL
			PRINTFORML 看到这淫靡的景象的%CALLNAME:MASTER%的阴茎突然膨胀、不知道是不是撞到了G点
			PRINTFORMW %CALLNAME:TARGET%一边颤抖着身体一边很容易的就潮吹了、然后睁開了眼睛和已经醒了的%CALLNAME:MASTER%的视线重合了。
			PRINTL
			IF EXP_GAIN("射精経験", MASTER)
				CALL PRINT_STR, @"「早、早上好啊、%CNAME("二人称")%……_／／／_」_W"
				CALL PRINT_STR, "「马、马上就让開……嗯啊啊啊——_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW 在%CALLNAME:TARGET%的%TEXTR("小小的/稚嫩的")%%TEXTR("穴/膣")%即将脱离你的阴茎前、你抓住%CALLNAME:TARGET%的腰用力按了下来！
				PRINTFORMW 就这様你、为了让自己舒服開始动起了腰身……
				PRINTL
				CALL PRINT_STR, "「啊っ、啊っ_BHH_刚刚、才_BHH_高、高潮过_BHH_不、不行_BHH_BHH_」_W"
				CALL PRINT_STR, "「求你了、不要_BHH_哦っ、哦゛っ_BHH_BHH_哦゛哦゛噢っ_BHH_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW 并不在意腰嘎吱嘎吱地颤抖着的%CALLNAME:TARGET%、你为了能更深入地相连而进行着高强度的活塞运动
				PRINTFORMW %CALLNAME:TARGET%的身体剧烈的后仰着、一边发出野兽一般的吼声一边猛烈的潮吹着！
				PRINTL
				CALL PRINT_STR, "「哦っ！_BHH_哦哦唔っ！！_BHH_哦゛哦゛哦噢噢っ！！_BHH_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW 咚啾っ！噗啾噜噜っ！咚啾噜噜っ！啾咕噜噜っ！咚啾噜っ！
				PRINTFORMW 虽然她已经迎来了激烈的绝顶，但却因为无法忍耐住为了榨取精液而紧紧吸住龟頭的子宫带来的刺激、
				PRINTFORMW 你也在晃动着腰的同时、向着%TEXTR("小小的/稚嫩的")%%TEXTR("子宮/膣/性器")%发射了早上第一发最浓的精液……
				PRINTL
				CALL PRINT_STR, "「哈っ……_BHH_哈啊……、ふぁ……_BHH_呼呜……_BHH_」_W"
				PRINTL
				PRINTFORMW 你在绝顶平静下来后、举起因疲劳而无法动弹的%CALLNAME:TARGET%轻飘飘的身体、
				PRINTFORMW 仍不满足地吸附过来的%CALLNAME:TARGET%的%TEXTR("小小的/稚嫩的")%%TEXTR("性器/膣")%随着呢啵！的一声脱离了你的阴茎。
				PRINTFORMW 简直就像是完全没有射精进去一样、%CALLNAME:TARGET%的蜜穴口一边颤抖着一边只有爱液滴落下来、
				PRINTFORMW 但是如果用力摁一下%CALLNAME:TARGET%肚子鼓胀起来的部分的话、
				PRINTFORMW 就会从%CALLNAME:TARGET%的%TEXTR("稚嫩的/小巧的")%%TEXTR("蜜穴口/蜜穴")%里面发出下流的声音，黏糊糊的精液也会随之一滴一滴地漏出来…
				;イかない時もあるので必ずイかせるようにする
				EXP:絶頂経験 += RAND:2 + 2
			;騎乗位中止ある？
			ELSE
				CALL PRINT_STR, @"「早、早上好啊、%CNAME("二人称")%……_／／／_」_W"
				CALL PRINT_STR, "「马、马上就让開……嗯唔唔唔——_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW 当%CALLNAME:TARGET%抬起腰的时候、从依依不舍紧紧吸住的%CALLNAME:TARGET%%TEXTR("小巧的/稚嫩的")%%TEXTR("性器/蜜穴")%里面
				PRINTFORMW 你的阴茎随着呢啵！的声音被抜了出来。
				PRINTFORMW 失去了心爱的肉棒而苦闷的抽搐着的%CALLNAME:TARGET%的蜜穴口里、流下了白浊的爱液…
				;イかない時もあるので必ずイかせるようにする
				EXP:絶頂経験 += 1
			ENDIF
			CALL SIMULATE_SHOW_NEWDAY
		ENDIF
	CASE "朝六九式"
		;恋慕
		IF TALENT:恋慕
			CALL SETFLAG, "地の文スキップ"
			CALL BEFORETEXT_NEWDAY
			PRINTL
			;外套がある場合は六九式は起こらない
			IF EQUIP:胖次 == 0
				PRINTFORML %CALLNAME:MASTER%将手放在眼前滴着愛液的属于%CALLNAME:TARGET%的光滑无毛的纵裂上、
			ELSE
				PRINTFORML %CALLNAME:MASTER%将眼前湿漉漉的%CALLNAME:TARGET%的胖次用力挪開、
				PRINTFORM 纵裂を
			ENDIF
			PRINTFORMW 咕！的一下子左右分開、%TEXTR("颜色很漂亮的/颜色很鲜艳的/颜色很浅的")%%TEXTR("稚嫩的/小巧的")%%TEXTR("蜜穴/蜜穴口/粘膜")%完全露了出来……
			PRINTL
			;起こりにくいけど(ABL:奉仕精神 + ABL:精液中毒)/3)だから合計27ぐらいあれば精液が出る
			IF EXP_GAIN("射精経験", MASTER)
				PRINTFORMW 「嗯っ！？嗯噗っ！嗯啵っ！啾噜っ！嗯っ！嗯啵っ！」
				PRINTL
				PRINTFORMW 发现你醒了的%CALLNAME:TARGET%、開始慌张地激烈动了起来！
				PRINTFORMW 随着%CALLNAME:TARGET%的动作而大幅张開的蜜穴口開始颤抖起来、
				PRINTFORMW \@ TALENT:処女 ? 処女膜的隙間から # 夥しい量の \@愛液溢了出来……
				PRINTFORMW 完全无法忍耐眼前这妖艳的光景、和%CALLNAME:TARGET%激烈侍奉所带来的刺激
				PRINTFORMW 一点叛逆余地都没有，你晃动着腰吐出了精液…
				PRINTL
				PRINTFORMW 啾咕っ！啾噜噜噜っ！咚啾噜噜っ！咚咕っ！咚啾っ！
				CALL PRINT_STR, "「啾っ_BHH_啾噜噜…_BHH_噗啵啵っ_BHH_噗啰啰啰啰っ_BHH_BHH_」_W"
				CALL PRINT_STR, "「啾——っ_BHH_啾噜噜噜…_BHH_っ噗哈……_BHH_BHH_」_W"
				CALL SIMULATE_SHOW_NEWDAY
				PRINTL
				CALL EMOTION_PLUS, "甜言蜜语", TARGET
				PRINTFORMW 「早上好、%CNAME("二人称")% 」
				CALL PRINT_STR, "「多谢招待、非常的美味……_BHH_」_W"
			ELSE
				CALL PRINT_STR, "「嗯っ！？啾噜噜噜…っ噗哈……_BHH_」_W"
				PRINTL
				PRINTFORMW 发现你醒了的%CALLNAME:TARGET%、把沾满了唾液变得黏糊糊的阴茎舔干净
				PRINTFORMW 慌慌张张地从你身上下来……
				CALL SIMULATE_SHOW_NEWDAY
				PRINTL
				CALL EMOTION_PLUS, "甜言蜜语", TARGET
				PRINTFORMW 「早上好、%CNAME("二人称")% 」
				PRINTFORMW 「非常抱歉、本来是想普通的叫%CNAME("二人称")%起来的……」
				PRINTFORMW 「但是看到了睡着的%CNAME("二人称")%之后一下子没忍住、不知不觉就……」
				PRINTL
				PRINTFORMW 你温柔地抚摸着%CALLNAME:TARGET%的頭的同时、告诉她以后自己也会好好疼爱她…
			ENDIF

		ENDIF
	CASE "朝口交"
		;恋慕
		IF TALENT:恋慕
			CALL SETFLAG, "地の文スキップ"
			CALL BEFORETEXT_NEWDAY
			PRINTL
			CALL PRINT_STR, "「嗯っ…啾っ……嗯っ…嗯噗っ……嗯唔っ……嗯——_BHH_」_W"
			PRINTL
			PRINTFORML %CALLNAME:MASTER%和%CALLNAME:TARGET%四目相对、看到她含着你的阴茎笑着向你挥手……
			PRINTL
			;起こりにくいけど(ABL:奉仕精神 + ABL:精液中毒)/3)だから合計27ぐらいあれば精液が出る
			IF EXP_GAIN("射精経験", MASTER)
				CALL PRINT_STR, "「嗯っ！_BHH_嗯噗っ！_BHH_BHH_嗯っ！_BHH_啾噜っ！_BHH_嗯噗っ！_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW %CALLNAME:TARGET%维持着和你对视、为了搾取精液而激烈地上下動着…
				PRINTL
				PRINTFORMW 啾咕っ！啾噜噜噜っ！咚啾噜噜っ！咚咕っ！咚啾っ！
				PRINTFORMW 一直在梦中执拗地焦虑着直到醒来的你、
				PRINTFORMW 完全拿%CALLNAME:TARGET%勤快的侍奉一点办法都没有、只能颤抖着腰部喷吐出了精液…
				PRINTL
				CALL PRINT_STR, "「啾っ_BHH_啾噜噜…_BHH_噗啵啵っ_BHH_噗啰啰啰啰っ_BHH_BHH_」_W"
				CALL PRINT_STR, "「啾——っ_BHH_啾噜噜噜…_BHH_っ噗哈……_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW %CALLNAME:TARGET%张嘴向你展示了嘴里的早晨第一杯的鲜榨浓汤后、像是在品尝一样的喝干了…
				CALL SIMULATE_SHOW_NEWDAY
				PRINTL
				CALL EMOTION_PLUS, "甜言蜜语", TARGET
				PRINTFORMW 「早上好、%CNAME("二人称")% 」
				CALL PRINT_STR, "「多谢招待、非常的美味……_BHH_」_W"
			ELSE
				CALL PRINT_STR, "「啾——っ_BHH_啾噜噜噜…_BHH_っ噗哈……_BHH_BHH_」_W"
				PRINTL
				PRINTFORMW 发现你醒了的%CALLNAME:TARGET%和你对视着，把沾满了唾液变得黏糊糊的阴茎舔干净了…
				CALL SIMULATE_SHOW_NEWDAY
				PRINTL
				CALL EMOTION_PLUS, "甜言蜜语", TARGET
				PRINTFORMW 「早上好、%CNAME("二人称")% 」
				PRINTFORMW 「非常抱歉、本来是想普通的叫%CNAME("二人称")%起来的……」
				PRINTFORMW 「但是看到了睡着的%CNAME("二人称")%之后一下子没忍住、不知不觉就……」
				PRINTL
				PRINTFORMW 你温柔地抚摸着%CALLNAME:TARGET%的頭的同时、告诉她以后自己也会好好疼爱她…
			ENDIF

		ENDIF
	ENDSELECT

CASE "打招呼"
	SELECTCASE CSTR:朝袭
	;口交と騎乗位の射精量差分を後で作りたい
	;恋慕の際はCASE "朝袭"部分で記述され、ここには来ない
	;恋慕前はあんまり起こらないでしょ
	;と思ってたけどバッチリ起こる　余裕ができたら書き直す
	CASE "朝六九式"
		PRINTFORML 「早、早上好……」
		PRINTFORMW %CALLNAME:TARGET%的脸变得通红、匆匆忙忙的从房间里出去了…
	CASE "朝口交"
		PRINTFORML 「早、早上好……」
		PRINTFORMW %CALLNAME:TARGET%的脸变得通红、匆匆忙忙的从房间里出去了…
	CASE "朝騎乗位"
		PRINTFORML 「早、早上好……」
		PRINTFORMW %CALLNAME:TARGET%的脸变得通红、匆匆忙忙的从房间里出去了…
	CASE "朝接吻"
		IF TALENT:恋慕
		ELSE
		ENDIF
		PRINTFORML 「早、早上好……」
		PRINTFORMW %CALLNAME:TARGET%的脸变得通红、匆匆忙忙的从房间里出去了…
	CASE "朝添い寝"
		IF TALENT:恋慕
		ELSE
		ENDIF
		PRINTFORML 「早、早上好……」
		PRINTFORMW %CALLNAME:TARGET%的脸变得通红、匆匆忙忙的从房间里出去了…
	ENDSELECT

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

	;最終的には全てのパターンを書き込んでここを不顯示ようにしたら最高やな
	;IF COND("体育")
	;	PRINTFORMW
	;ELSE
		CALL PRINT_STR, @"「早、早上好啊、%CNAME("二人称")%……_／／／_」_W"
	;ENDIF
CASE "一番乗り"
	;部員3人で「誰も来てない」ってのはおかしいけどそもそもハーレムになってるはず
	PRINTFORMW 「看起来好像谁都不在呢」
		IF TALENT:恋慕
			CALL PRINT_STR, "「想趁着这个机会来一发吗？開玩笑的……_／／／_」_W"
			PRINTFORMW %CALLNAME:TARGET%被自己说的话弄得满脸通红…
			PALAM:TARGET:Ｖ潤 += 10000
		ELSE
			PRINTFORMW 「就我们两个人呢……」
			PRINTFORMW %CALLNAME:TARGET%可能是因为紧张吧、看起来总是心神不定的样子。
		ENDIF
CASE "ただいま"
	PRINTFORMW 「我、我回来了……」
	;PRINTFORMW %CALLNAME:TARGET%好像不习惯在自己家以外的地方说「我回来了」。
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF TALENT:恋慕
			PRINTFORMW 「欢迎回来、%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「啊、欢、欢迎回来、%CNAME("二人称")%……」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「来的很晚呢%CNAME("二人称")%、发生什么事了吗？」
			PRINTFORMW 「%CNAME("一人称")%想要…尽早的和%CNAME("二人称")%见面……」
		ELSE
			PRINTFORMW 「啊、%CNAME("二人称")%…今天是%CNAME("一人称")%这边来得更早呢」
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「%TEXTR("发、发生什么事了吗…？/怎、怎么了吗…？/有、有什么着急的事吗…？")%」
		PRINTFORMW 被叫出来的%CALLNAME:TARGET%、从活动室的門缝间战战兢兢的看着这边的样子。
	;你が現在的partnerにＨ的悪戯をしている最中に入室した

	;Ｈ的いちゃつきは以下のい移開かが条件
	;CFLAG:MASTER:PREV_DAILYCATEから4と6の检查内褲、拜托処理性欲
	;CSTR:MASTER:PREV_DAILYCOMから打招呼舐陰、打招呼口交、托一托胸部、裙下撮影、股間撮影、内褲摄影、阴部摄影

	;ELSEIF COND("Ｈ的いちゃつき中", MASTER)
	;	PRINTFORMW
	;恋慕じゃなくてもモロにえっちな事は興味津々で見ようとするムッツリ
	ELSE
		SELECTCASE CSTR:MASTER:PREV_DAILYCOM
		CASE "打招呼ハグ", "打招呼接吻", "甜言蜜语", "接吻", "膝枕"
			IF TALENT:恋慕
				PRINTFORMW 「%CNAME("一人称", "どもり")%以后也可以拜托你这样吗…？」
				PRINTFORMW %CALLNAME:TARGET%象是非常羡慕一样看着这边…
			ELSE
				PRINTFORMW 「啊、打、打扰了……」
				PRINTFORMW 急急忙忙的把从部室出去的%CALLNAME:TARGET%给叫了回来…
			ENDIF
		CASE "打招呼舐陰"
			IF TALENT:恋慕
				PRINTFORMW 「%CNAME("相手")%、真好啊……」
				PRINTFORMW %CALLNAME:TARGET%非常羡慕地看着被侍奉着的%CALLNAME:TARGET%…
			ELSE
				CALL PRINT_STR, @"「啊、打、打扰了……_／／／_」_W"
				PRINTFORMW %CALLNAME:TARGET%虽然脸变得通红、但是还是像要钻进来似的从門缝中间偷窥着…
			ENDIF
			PALAM:TARGET:Ｖ潤 += 10000
		CASE "打招呼口交"
			IF TALENT:恋慕
				PRINTFORMW 「啊…%CNAME("相手")%的鸡鸡……」
				PRINTFORMW %CALLNAME:TARGET%牢牢地盯着%CNAME("相手")%的肉棒…
			ELSE
				CALL PRINT_STR, @"「啊、打、打扰了……_／／／_」_W"
				PRINTFORMW %CALLNAME:TARGET%虽然脸变得通红、但是还是像要钻进来似的从門缝中间偷窥着…
			ENDIF
			PALAM:TARGET:Ｖ潤 += 10000
		CASE "托一托胸部", "把胸部压了上去"
			IF TALENT:恋慕
				IF TALENT:貧乳
					IF TALENT:TARGET:貧乳
						PRINTFORMW 「%CNAME("一人称", "どもり")%的也、怎么样……？」
						PRINTFORMW %CALLNAME:TARGET%毫不认输地向你贴近…
					ELSE
						PRINTFORMW 「啊…、果然还是喜欢大一点的欧派吗……？」
						PRINTFORMW %CALLNAME:TARGET%把手覆在自己平坦但柔软的胸部上，露出了悲伤的表情…
					ENDIF
				;貧乳ではないのは妊娠している時だけか…？
				ELSE
					IF TALENT:TARGET:貧乳
						PRINTFORMW 「啊…、难道说、比较喜欢小一点的欧派吗……？」
						PRINTFORMW %CALLNAME:TARGET%用手捂着自己变大的胸部、露出了悲伤的表情…
					ELSE
						PRINTFORMW 「%CNAME("一人称", "どもり")%的也、怎么样……？」
						PRINTFORMW %CALLNAME:TARGET%毫不认输地向你贴近…
					ENDIF
				ENDIF
			ELSE
				PRINTFORMW 「啊、打、打扰了……」
				PRINTFORMW 急急忙忙的把从部室出去的%CALLNAME:TARGET%给叫了回来…
			ENDIF
		CASE "清洁口交", "口淫", "手淫"
			IF TALENT:恋慕
				PRINTFORMW 「啊…%CNAME("二人称")%的小鸡鸡……看起来好好吃啊……」
				PRINTFORMW %CALLNAME:TARGET%的目光想钉子一样扎在你的阴茎上…
				PALAM:TARGET:Ｖ潤 += 10000
			ELSE
				CALL PRINT_STR, @"「啊、打、打扰了……_／／／_」_W"
				PRINTFORMW %CALLNAME:TARGET%虽然脸变得通红、但是还是像要钻进来似的从門缝中间偷窥着…
				PALAM:TARGET:Ｖ潤 += 10000
			ENDIF
		CASE "裙下撮影", "股間撮影", "内褲摄影", "阴部摄影"
				IF TALENT:恋慕
					PRINTFORMW 「啊、打、打扰了……？」
					PRINTFORMW %CALLNAME:TARGET%从部室的門缝间战战兢兢的窥视着这边的样子…
				ELSE
					PRINTFORMW 「啊、打、打扰了……」
					PRINTFORMW 急急忙忙的把从部室出去的%CALLNAME:TARGET%给叫了回来…
				ENDIF
		;CASE "甜言蜜语"
		;CASE "舐陰奉仕する", "口交奉仕する", "撫摸股間"
		CASEELSE
			SELECTCASE CFLAG:MASTER:PREV_DAILYCATE
			;卖个破绽
			CASE 3
				IF TALENT:恋慕
					PRINTFORMW 「啊、打、打扰了……？」
					PRINTFORMW %CALLNAME:TARGET%从部室的門缝间战战兢兢的窥视着这边的样子。
				ELSE
					PRINTFORMW 「啊、打、打扰了……」
					PRINTFORMW 急急忙忙的把从部室出去的%CALLNAME:TARGET%给叫了回来…
				ENDIF
			;检查内褲…というより股間格子
			CASE 4
				IF TALENT:恋慕
					IF EQUIP:裙
						PRINTFORMW 「要、要是愿意的话要不要也看一下%CNAME("一人称")%的那个呢……？」
						PRINTFORMW %CALLNAME:TARGET%虽然很害羞、但还是抓着裙子的下摆晃来晃去…
					ELSE
						PRINTFORMW 「要、要是愿意的话要不要也看一下%CNAME("一人称")%的那个呢……？」
						PRINTFORMW 和说的话正相反、%CALLNAME:TARGET%因为太过害羞了一直低着頭…
					ENDIF
					PALAM:TARGET:Ｖ潤 += 10000
				ELSE
					PRINTFORMW 「啊、打、打扰了……」
					PRINTFORMW 急急忙忙的把从部室出去的%CALLNAME:TARGET%给叫了回来…
				ENDIF
			;拜托処理性欲
			CASE 6
				IF TALENT:恋慕
					CALL PRINT_STR, @"「要、要是愿意的话、之后也请拜托%CNAME("一人称")%……_／／／_」_W"
					PRINTFORMW %CALLNAME:TARGET%按住下腹部的同时、用殷切的表情说着…
					PALAM:TARGET:Ｖ潤 += 10000
				ELSE
					CALL PRINT_STR, @"「啊、打、打扰了……_／／／_」_W"
					PRINTFORMW %CALLNAME:TARGET%虽然脸变得通红、但是还是像要钻进来似的从門缝中间偷窥着…
					PALAM:TARGET:Ｖ潤 += 10000
				ENDIF
			CASEELSE
				PRINTFORMW 「抱歉迟到了…%TEXTR("老师/朋友们")%迟迟不肯放我走……」
			ENDSELECT
		ENDSELECT
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「来、来晚了……」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「%TEXTR("发、发生什么事了吗…？/怎、怎么了吗…？/有、有什么着急的事吗…？")%」
	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 "抜け出された"
		PRINTFORMW 「……」
		PRINTFORMW 看着这边的鈴变得无精打采…
CASE "便当"
	IF CEVENT("弁当初回") == 0
		PRINTFORMW %CALLNAME:TARGET%拿着的便当带里面、装着很多用铝箔纸裹起来的小饭团、
		PRINTFORMW 还有一个装着迷你小汉堡、章鱼小香肠、鸡蛋烧、圣女果的便当盒放在里面。
		PRINTFORML
		PRINTFORMW 「平时的话、一直是妈妈给我做的便当」
		PRINTFORMW 「但是、因为%CNAME("一人称")%说了想自己做便当、妈妈就帮忙一起做出来了」
		PRINTFORMW 「而且、明明什么都没有说的、却做出来了两人份的便当……」
		PRINTFORML
		PRINTFORMW …虽然感觉到了微妙的尴尬、但是%CALLNAME:TARGET%带来的便当眨眼间就被一扫而光了。
		CALL SET_CEVENT, "弁当初回", TARGET
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 今天的便当里加入了炒野菜…
			PRINTFORMW 「%CNAME("一人称")%、虽然一直忍耐着吃掉了、但是果然还是不喜欢吃青椒啊……」
			PRINTFORML
			PRINTFORMW 你一边张開嘴一边做手势、%CALLNAME:TARGET%怯生生地用筷子把青椒喂到你的嘴里…
			PRINTFORMW 「非、非常感谢…%CNAME("二人称")%……」
			PRINTFORMW 说了从%CALLNAME:TARGET%那里“啊——嗯”的喂着吃的东西，无论是什么都很美味之后、%CALLNAME:TARGET%害羞地低下了頭…
		CASE 1
			PRINTFORMW 今天的便当里面、也放了很多小饭团…
			PRINTFORMW 「那个饭团、果然很小呢…%CNAME("一人称")%的手的话、无论怎么捏都会变小的……」
			PRINTFORMW 说了又可爱吃起来又方便，还可以感觉到%CALLNAME:TARGET%的努力，这样就很好之后、%CALLNAME:TARGET%害羞地低下了頭…
		CASEELSE
			PRINTFORMW 今天的便当是一口就能吃掉的三明治哒。
			PRINTFORMW 「%CNAME("一人称")%的话、觉得三明治里面火腿和奶酪是最好的……」
			PRINTFORMW 你建议%CALLNAME:TARGET%和你一起吃、然后递给了%CALLNAME:TARGET%夹着火腿乳酪的三明治。
			PRINTFORMW %CALLNAME:TARGET%犹豫了一会后、竟然含住了你的手指！
			CALL PRINT_STR, @"「嗯っ…啾噜噜……、我嚼我嚼……、%CNAME("二人称")%的味道尝起来很好吃……_BHH_」_W"
		ENDSELECT
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「话说回来、这里有什么社团活动吗？」
	PRINTFORML 「以%CNAME("二人称")%为中心互相帮助的社团活动？……怎么说呢，不是很明白」
	;PRINTFORML 「哈啊、弗理希艾尔桑会详细告诉我的吗」
	;PRINTFORML 「我明白了、我去问弗理希艾尔桑……」
CASE "浑身是汗"
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「哈啊…好热啊……」
		PRINTFORML 「%CNAME("一人称")%不是很喜欢热天啊……」
	CASE 1
		PRINTFORML 「超级的…黏答答的……」
		PRINTFORML 从%CALLNAME:TARGET%的身体上、液体啪嗒啪嗒的滴落下来…
	CASEELSE
		PRINTFORML 「从%CNAME("一人称", "どもり")%身上没有闻到难闻的气味吧……？」
		PRINTFORML 从%CALLNAME:TARGET%的身体上、隐约飘散出甜甜的味道…
	ENDSELECT
CASE "刚睡醒"
	;恋慕口上を書こうとしたが思いつかない
	IF CHOSE_DEVENT("睡眠姦Ｖ中出し") >= 4
			CALL PRINT_STR, @"「%CNAME("二人称")%…、你是怎么做到的、这个……嗯っ_BHH_」_L"
			PRINTFORML 由于多次射精，无法进入%CALLNAME:TARGET%的子宫里的精液、
			PRINTFORML 从%CALLNAME:TARGET%的\@ CHECK_CLO("Ｖ露出", TARGET) ? 幼穴 # 身体 \@里面溢出来了…
		;一言イベントだという事を忘れて調子こいた
		;IF CHECK_CLO("胖次露出", TARGET)
		;	PRINTFORML
		;	PRINTFORML 簡単的清理完后，把变得湿漉漉的%CALLNAME:TARGET%的%PANTIES(TARGET)%脱下来後、
		;	PRINTFORML 为了不再溢出，贴上了前贴…
		;	CALL SET_PANTIES, "前貼"
		;ELSE
		;	PRINTFORML
		;	PRINTFORML 简单地清理完之后、我尽量把%CALLNAME:TARGET%的身体弄干净…
		;ENDIF
	ELSEIF CHOSE_DEVENT("睡眠姦Ｖ中出し")
		IF TALENT:恋慕
			SELECTCASE RAND:3
			CASE 0
				CALL PRINT_STR, @"「怎么说呢、肚子里面暖洋洋的感觉很幸福……_BHH_」_L"
			CASE 1
				CALL PRINT_STR, @"「看到睡着了的%CNAME("一人称")%之后、已经要忍不住了吗……？_BHH_」_L"
			CASEELSE
				CALL PRINT_STR, @"「舒服吗？%CNAME("二人称")%……_BHH_」_L"
			ENDSELECT
			PRINTFORM %CALLNAME:TARGET%在看着你的同时、抚摸着被精液注入得
				IF CHOSE_DEVENT("睡眠姦Ｖ中出し") >= 3
					PRINTFORM 软乎乎的膨胀起来的腹部
				ELSEIF CHOSE_DEVENT("睡眠姦Ｖ中出し") >= 2
					PRINTFORM 肉眼可见的膨胀起来的腹部
				ELSE
					PRINTFORM 微微膨胀起来的腹部
				ENDIF
			SIF CHECK_CLO("淫紋露出", TARGET)
				CALL PRINT_STR, @"，上面_粉红色心形的_淫纹发出了奇怪的光_"
			PRINTFORML …
		ELSE
			PRINTFORML 「怎么说呢、肚子里面暖呼呼的有种很幸福的感觉……」
			PRINTFORML %CALLNAME:TARGET%露出不可思议的表情的同时、抚摸着小腹处…
		ENDIF
	ELSEIF CHOSE_DEVENT("睡眠姦口交")
		IF TALENT:恋慕
		ELSE
		ENDIF
	ELSEIF CHOSE_DEVENT("睡眠姦接吻")
		IF TALENT:恋慕
		ELSE
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORML 「呼啊…%CNAME("二人称")%等的%CNAME("一人称")%都睡着了……」
		ELSE
			PRINTFORML 「啊咧…%CNAME("一人称")%是什么时候睡着的……？」
		ENDIF
			PRINTFORML %CALLNAME:TARGET%揉着惺忪的睡眼、试着清醒过来…
	ENDIF
CASE "Cosplay中"
	;PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		;PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		;IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
		IF COND("点心の作り手が料理擅長")
			PRINTFORML 「……♪」
			PRINTFORML %CALLNAME:TARGET%通过%TEXTR("带着幸福的表情/眼里闪闪发光地")%%TEXTR("吃着/大口吃着")%%TEXTS("点心")%…
		ELSE
			PRINTFORML 「……」
			PRINTFORML %CALLNAME:TARGET%好象正沉迷于%TEXTS("点心")%…
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML 「……」
		PRINTFORML %CALLNAME:TARGET%好像在吃%TEXTS("点心")%…
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K33
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
;debugついてるけど口上がスカスカな状態で埋めれる項目ではないので後回し
;告白はSHOPの後にこっちにくる
CASE "愛の告白"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K33, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "约会的约定"
	PRINTFORML 「和%CNAME("二人称")%一起出門……」
	PRINTFORML %CALLNAME:TARGET%的表情混杂着期待与不安…
;これは悪魔のみ
CASE "契約成立"
		;PRINTFORML
CASE "摆脱"
	IF TALENT:恋慕
		CALL PRINT_STR, @"「把%CNAME("一人称")%带到这里来、到底是想做什么……_BHH_」_L"
		PRINTFORML %CALLNAME:TARGET%用热切地目光看着%CALLNAME:MASTER%……
	ELSE
	ENDIF
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	;するんですよね…？口上を加筆したい
	IF TALENT:恋慕
		CALL PRINT_STR, @"「斯——…哈——…、有%CNAME("二人称")%的味道……_BHH_」_L"
		PRINTFORML %CALLNAME:TARGET%似乎很享受%CALLNAME:MASTER%房间的氛围…
	ELSE
		PRINTFORML 「打、打扰了……」
		PRINTFORML %CALLNAME:TARGET%在%CALLNAME:MASTER%的房间里东张西望着…
	ENDIF
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	;これ脱掉仕掛けにしてもいい
	IF TALENT:恋慕
		PRINTFORML 「%CNAME("二人称")%…%CNAME("一人称", "どもり")%就算突然来也没有関系哟……」
		PRINTFORML %CALLNAME:TARGET%扭扭捏捏的摩擦着大腿…
	ELSE
		PRINTFORML 「那っ个…要、要做什么呢…？」
		PRINTFORML %CALLNAME:TARGET%想象着之后会做的事情、看起来很紧张的样子…
	ENDIF
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		;PRINTFORML
	ELSEIF TALENT:恋慕
		PRINTFORML 「啊…%CNAME("二人称")%……！」
		CALL PRINT_STR, @"「很高兴见到你……_BHH_」_L"
		PRINTFORML %CALLNAME:TARGET%小跑着把%CALLNAME:MASTER%抱住了…
	ELSE
		PRINTFORML 「啊、%CNAME("二人称")%……」
		PRINTFORML 「你找%CNAME("一人称")%吗……？」
	ENDIF
CASE "指导者部屋訪問"
	;PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	;PRINTFORML
CASE "オナバレ"
	;PRINTFORML
;没穿内褲や振動棒によって分岐を増やしたい
;余裕があれば低腰臀圍を分裂させる
CASE "露脐装超短裙胖次チラ", "低腰臀圍"
	IF TALENT:恋慕
		PRINTFORML 「%CNAME("二人称")%、到底在看哪里啊……？」
		PRINTFORML 「难不成…%CNAME("二人称")%很在意%CNAME("一人称")%的这里吗…？」
		PRINTFORML %CALLNAME:TARGET%虽然很害羞、但还是自己掀開了裙子的下摆…
	ELSE
		PRINTFORML 「%CNAME("二人称")%、到底在看哪里啊……？」
		PRINTFORML 「请、请不要一直盯着看……」
		PRINTFORML %CALLNAME:TARGET%害羞的按着裙子…
	ENDIF
;[203]
CASE "掀起裙子"
	PRINTFORML 「请、请不要那样紧紧盯着这边………」
	PRINTFORML %CALLNAME:TARGET%因为被看到裙子里面感到很害羞…
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「请不要一直摸那里…因为会变湿的……」
		PRINTFORML 「但是、要是%CNAME("二人称")%怎么说都想要的话……」
		PRINTFORML 对于秘处被触碰这件事%CALLNAME:TARGET%好像还没有完全满足…
	ELSE
		PRINTFORML 「%CNAME("二人称", "どもり")%这个色鬼……」
		PRINTFORML 与%CALLNAME:TARGET%之间的距离稍微变远了一点…
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「已、已经够了吧……？」
		PRINTFORML 害羞的无法忍耐的%CALLNAME:TARGET%、想要把张開的大腿合上…
	ELSE
		PRINTFORML 「%CNAME("二人称", "どもり")%这个变态……」
		PRINTFORML 与%CALLNAME:TARGET%之间的距离稍微变远了一点…
	ENDIF
;テンプレにない
CASE "股間観察"
	PRINTFORML 「呜呜…被清楚地看到了……」
	PRINTFORML 也许是因为羞耻心、%CALLNAME:TARGET%不时地扭动着腰部…
;でっち上げ追加分
;颜绘弄れるなら弄りたいね
CASE "检查内褲？"
	IF EQUIP:胖次 == 0
		PRINTFORML 「%CNAME("二人称", "どもり")%这坏心眼……」
		PRINTFORML %CALLNAME:TARGET%为了尽量抑制爱液滴下来、用手紧紧地按住双腿之间…
	ELSE
		PRINTFORML 「请快点停下来…要是再继续的话胖次就……」
		PRINTFORML 随着爱液的分泌、%CALLNAME:TARGET%胖次上的污渍慢慢扩散開…
	ENDIF
CASE "检查阴部？"
	PRINTFORML 「请、请不要给我看那种东西……」
	PRINTFORML %CALLNAME:MASTER%像是故意展示给%CALLNAME:TARGET%看一样、享受着缠绕在手指上的爱液的触感…
CASE "股間観察？"
	CALL PRINT_STR, @"「呼——…_BHH_　呼——……_BHH_」_L"
	PRINTFORML %CALLNAME:TARGET%的双腿之间变得越来越潮湿…
CASE "股間観察失敗"
		PRINTFORML 「%CNAME("二人称", "どもり")%这个淫鬼……」
		PRINTFORML 与%CALLNAME:TARGET%之间的距离稍微变远了一点…
CASE "陰核愛撫"
	CALL PRINT_STR, @"「哈——っ…哈——っ…_BHH_」_L"
	PRINTFORML %CALLNAME:TARGET%的被解放了的阴蒂微微颤抖着…
CASE "指挿れ"
	CALL PRINT_STR, @"「嗯咦ぃ_BHH_！唔、呜呜……」_L"
	PRINTFORML 从紧紧吸附着的%CALLNAME:TARGET%的肉穴里面拔出手指的话、那里发出了啾啵！一声让人心情舒畅的声音…
CASE "舐陰"
	CALL PRINT_STR, @"「嗯っ…_BHH_　呼っ…_BHH_　呼っ…_BHH_」_L"
	PRINTFORML %CALLNAME:TARGET%的腰颤抖的同时、被%CALLNAME:MASTER%的舌頭肆意玩弄的蜜穴口一边抖动着着一边溢出了爱液…
CASE "胖次脱ぎ"
	PRINTFORML 「%CNAME("二人称", "どもり")%这坏心眼……」
	PRINTFORML 「请好好的…负起责任……」
;[201]
CASE "泡茶"
	PRINTFORML 「呼唔…多谢招待……」
	PRINTFORML %CALLNAME:TARGET%带着满意的表情喘了一口气…
CASE "膝枕"
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「……」
		PRINTFORML %CALLNAME:TARGET%在%CALLNAME:MASTER%的膝盖上、就像一只借来的猫一样…
	ELSE
		CALL PRINT_STR, @"「%CNAME("二人称")%……_BHH_」_L"
		PRINTFORML %CALLNAME:TARGET%享受着%CALLNAME:MASTER%的膝枕…
	ENDIF
CASE "托一托胸部"
	IF TALENT:恋慕
		SELECTCASE RAND:3
		CASE 0
			CALL PRINT_STR, @"「%CNAME("二人称")%……_BHH_」_L"
			PRINTFORML %CALLNAME:TARGET%紧紧的抱着摸着自己胸的%CALLNAME:MASTER%的手…
		CASE 1
			PRINTFORML 「唔唔…已经湿了啦……」
			PRINTFORML %CALLNAME:TARGET%把手放在双腿间扭来扭去…
		CASE 2
			CALL PRINT_STR, @"「……_BHH_」_L"
			PRINTFORML %CALLNAME:TARGET%似乎安静的专注于胸部被抚摸的感觉上…
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 「……」
			PRINTFORML 「稍微有点痒……」
		CASE 1
			PRINTFORML 「……」
			PRINTFORML 被摸着胸部的%CALLNAME:TARGET%装作一副若无其事的样子、但是却可以感觉到她的心跳变得越来越快…
		CASE 2
			PRINTFORML 「希…希望能不要太用力的摸……」
			PRINTFORML %CALLNAME:TARGET%虽然不痛、但是却把手放在双腿间扭来扭去…
		ENDSELECT
	ENDIF
CASE "接吻"
	IF TALENT:恋慕
		PRINTFORML %CALLNAME:TARGET%用热切的眼神看了过来…
		PRINTFORML 恐怕、是在寻求"接吻之后的进一步行為"吧…
	ELSE
		PRINTFORML %CALLNAME:TARGET%目不转睛地看了过来…
		PRINTFORML 然后、似乎是觉得不好意思，红着脸移開了视线…
	ENDIF
;[205]
CASE "拜托処理性欲"
	;PRINTFORML
CASE "进行性処理"
	;PRINTFORML
CASE "清洁口交"
	;PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

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

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	;PRINTFORML
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		;PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		;PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		;PRINTFORML
	;個室で二人きり
	ELSE
		;PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF TALENT:恋慕
			PRINTFORML 「先去淋浴吗…？」
			CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%说…如果方便的话，希望%CNAME("二人称")%现在就能把我收拾掉……_BHH_」_L"
		ELSE
			PRINTFORML 「%CNAME("一人称", "どもり")%接下来就要在这样的地方吗……」
		ENDIF
	;做爱房
	ELSE
		[IF_DEBUG]
			PRINTFORML KOJO_DAILY_KX1, %CSTR:PREV_DAILYCOM%後
		[ENDIF]
	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 「%CNAME("一人称")%的家人吗？」
	PRINTFORML 「%CNAME("一人称")%的家人话有妈妈…、还有奶奶」
	PRINTFORML 「然后…、还有爸爸这样吧……」
	CALL SET_DEVENT, "家族構成"
;ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("母親について") == 0
;	PRINTFORML 「%CNAME("一人称")%的妈妈吗？」
;	PRINTFORML 「妈妈…是个非常温柔的人呢」
;	PRINTFORML 「以前好像是个小太妹…但现在说是希望%CNAME("一人称")%能好好地生活……」
;	PRINTFORML 「%CNAME("一人称")%的话…完全无法相信妈妈以前会是个太妹呢……」
;	CALL SET_DEVENT, "母親について"
;ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("祖母について") == 0
;	PRINTFORML 「%CNAME("一人称")%的奶奶吗？」
;	PRINTFORML 「奶奶是妈妈的妈妈、总是不在家…偶尔才回来一次……」
;	PRINTFORML 「说实话，%CNAME("一人称")%不知道她是不是真的奶奶……」
;	PRINTFORML 「与其说外表看起来很年轻，不如说是和%CNAME("一人称")%差不多的儿童」
;	PRINTFORML 「妈妈，说奶奶是魔女…虽然说介意的话是不行的……」
;	CALL SET_DEVENT, "祖母について"
;ELSEIF CFLAG:日常事件回数 >= 35 && DEVENT("父親について") == 0 && TALENT:恋慕
;	PRINTFORML 「%CNAME("一人称")%的父亲吗？」
;	PRINTFORML 「父亲啊…其实在%CNAME("一人称")%出生之前就因为事故死去了……」
;	PRINTFORML 「但是，有代替父亲的亲戚的叔叔们在，所以也不会很寂寞」
;	PRINTFORML 「多亏了亲戚叔叔们，%CNAME("一人称")%才能这样普通地生活下去……」
;	CALL SET_DEVENT, "父親について"
;ELSEIF CFLAG:日常事件回数 >= 45 && DEVENT("親戚について") == 0 && TALENT:恋慕
;	PRINTFORML 「%CNAME("一人称")%的亲戚的叔叔吗？」
;	PRINTFORML 「亲戚的叔叔一共有7个人…父亲的兄弟3人，诶多……」
;	PRINTFORML 「爷爷的兄弟的儿子？……有4个人」
;	PRINTFORML 「亲戚的叔叔们都对我说，可以把他当成是父亲……」
;	PRINTFORML 「虽然很高兴……，但是心情有点复杂……」
;	CALL SET_DEVENT, "親戚について"
;ELSEIF CFLAG:日常事件回数 >= 45 && DEVENT("えっちなお汁について") == 0 && TALENT:恋慕 && いっぱいなかだし
;	PRINTFORML 「在这之前、%CNAME("一人称")%的小穴里总是会溢出汁液，让我很困扰……」
;	PRINTFORML 「最近，不怎么出现了」
;	PRINTFORML 「这也是、多亏了%CNAME("二人称")%把精液拿出来，直到%CNAME("一人称")%满足为止……」
;	PRINTFORML 「但是，只要在%CNAME("二人称")%的身边、%CNAME("一人称")%的小穴就会哭泣着怀念%CNAME("二人称")%的精液……」
;	PRINTFORML 「%CNAME("二人称")%…能安慰一下%CNAME("一人称")%的小穴吗……？」
;	CALL SET_DEVENT, "えっちなお汁について"
ENDIF

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

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

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

;以下は随机台詞など
;あんまりセリフつけなくてもいいかもne頻繁に独り言喋ってるみたいで変だし
;ここも恋慕で分岐させたい
;情景テ接吻トのみ+雑談でで場所について話すってのもいいなー

;時間帯と場所と関係で変化有些
;基本的に昼
IF PLACE("部室")
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML %CALLNAME:TARGET%看起来心神不定的在那动来动去…
	CASE 1
		;PRINTFORML 「要是没有滴下来就好了……」
		PRINTFORML %CALLNAME:TARGET%确认着自己的大腿内侧…
	CASEELSE
		;PRINTFORML 「不认识的人来了怎么办……」
		PRINTFORML %CALLNAME:TARGET%东张西望的确认着周围…
	ENDSELECT
ELSEIF PLACE("做爱房")
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「唔唔…好像有…一股H的味道……」
	CASE 1
		PRINTFORML %CALLNAME:TARGET%想象到接下来要做的事情脸一下子变得通红…
	CASEELSE
		PRINTFORML %CALLNAME:TARGET%把手放在双腿间扭来扭去…
	ENDSELECT
ELSEIF PLACE("体育倉庫")
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「稍微有点灰尘啊……」
	CASE 1
		PRINTFORML 「就这样正常的进出这里没问题吗？」
		PRINTFORML 「被发现之后挨骂很讨厌啊……」
	CASEELSE
		PRINTFORML %CALLNAME:TARGET%看起来心神不定的在那动来动去…
	ENDSELECT
ELSEIF PLACE("更衣室")
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「在这里就算把衣服脱了也不奇怪……？」
		PRINTFORML 「%CNAME("一人称")%觉得并不是那种问题就是了……」
	CASE 1
		PRINTFORML %CALLNAME:TARGET%一个接一个的检查着储物柜里面…
	CASEELSE
		PRINTFORML %CALLNAME:TARGET%看起来心神不定的在那动来动去…
	ENDSELECT
ELSEIF PLACE("保健室")
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「这里是平常使用的地方对吧……？」
	CASE 1
		PRINTFORML 「因为%CNAME("一人称")%经常使用保健室…总觉得能够冷静下来……」
	CASEELSE
		PRINTFORML %CALLNAME:TARGET%似乎正在确认保健室里面有没有其他人…
	ENDSELECT
;基本的に夜と周日昼
ELSEIF STATE("酔酒")
	;PRINTFORML
ELSEIF PLACE("居間")
	;一日の游戏を固定してずっとその游戏の言葉をしゃべらせてもいいかもne
	SELECTCASE RAND:4
	CASE 0
		;Super Hexagon
		;PRINTFORML 「回避的方式是右、右、左、左、左……」
		PRINTFORML %CALLNAME:TARGET%好像在玩手机游戏
		PRINTFORML 因为画面转的眼花缭乱看不清楚玩的是什么…
	CASE 1
		;The Witness
		;PRINTFORML 「風パから逃跑な……」
		PRINTFORML %CALLNAME:TARGET%好像在玩手机游戏
		PRINTFORML 乍一看之下好像是在什么都没有的风景中寻找迷题的游戏…
	CASE 2
		;Papers, Please
		;PRINTFORML 「アルストツカに栄光あれ……」
		PRINTFORML %CALLNAME:TARGET%好像在玩手机游戏
		PRINTFORML 玩着在给//文件盖章的游戏…
	CASEELSE
		;Getting Over It
		;PRINTFORML 「ご～いんだ～んざろ～ふぃ～りんべ～♪」
		PRINTFORML %CALLNAME:TARGET%好像在玩手机游戏
		PRINTFORML 正在以惊人的速度操作着被放入金光闪闪的壶里面的一个大叔…
	ENDSELECT
;主人公的房間
ELSEIF PLACE("自室")
;鈴的房間
ELSEIF PLACE("partner的房間")
ELSEIF PLACE("公園")
	IF COND("夜")
	ELSE
	ENDIF
ELSEIF PLACE("情人旅館")
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 「是大号的床呢……」
		PRINTFORML 「想在上面跳一跳……」
	CASE 1
		PRINTFORML 「在这么广阔的房间里有点坐立不安……」
		PRINTFORML %CALLNAME:TARGET%看上去心神不宁…
	CASE 2
		PRINTFORML 「%CNAME("二人称")%……」
		PRINTFORML %CALLNAME:TARGET%紧紧贴着%CALLNAME:MASTER%…
	ENDSELECT
;基本的に出ないはず
ELSE
	PRINTFORML %CALLNAME:TARGET%偷偷摸摸的确认着自己的双腿间…
	;PRINTFORML 好像很在意爱液的分泌量…
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K33
;睡眠姦された場合のセリフも追加する予定で構文だけ書いておく
IF CHOSE_DEVENT("睡眠姦Ｖ中出し")
ELSEIF !RAND:927
		PRINTFORML 「搞砸了…搞砸了……」
ELSEIF !RAND:810
		PRINTFORML 「嗯喵咪……」
ELSEIF !RAND:810
		PRINTFORML 「稻子…还没有…放进来……」
ELSEIF !RAND:810
		PRINTFORML 「小丸子……」
ELSEIF !RAND:573
		;性欲を持て余す
		PRINTFORML 「不要用…右旋……安非他命…真的…太……好了……」
ELSEIF !RAND:573
		PRINTFORML 「恭喜…獲得真传……」
ELSEIF !RAND:215
		PRINTFORML 「出现了……拿着可丽饼的…宇宙人……」
ELSE
	SELECTCASE RAND:6
	CASE 0
		PRINTFORML 「%CNAME("二人称", "甘え")%……」
	CASE 1
		PRINTFORML 「嘶——…嘶——……」
	CASE 2
		PRINTFORML 「嗯呣……」
	CASE 3
		PRINTFORML 「嘶——……」
	CASE 4
		PRINTFORML 「%CNAME("一人称", "かな")%…%CNAME("一人称", "かな")%的话……%CNAME("一人称", "かな")%…这样……」
	CASEELSE
		PRINTFORML 「妈…妈……」
	ENDSELECT
ENDIF
;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K33, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		;制服から便装に変える
		;CALL SET_COORDINATE, TARGET, 33, "便装"
		;SIF COND("夏")
		;	CALL SET_COORDINATE, TARGET, 33, "便装４"
		CALL CLOTHES_K33, "便装"
		CALL CLEAR_MAIDFACE
		CALL PRINT_MAIDFACE, TARGET
		PRINTFORMW 『喂……』
		IF TALENT:恋慕
			CALL PRINT_STR, @"『一直以来的那个小巷子吗…是……_BHH_』_W"
		ELSE
			PRINTFORMW 『现在要见面吗…？只要不要太晚回家就没问题……』
		ENDIF
	;做爱房
	ELSE
		PRINTFORMW 『喂……』
		IF TALENT:恋慕
			CALL PRINT_STR, @"『我明白了…马上就去……_BHH_』_W"
		ELSE
			PRINTFORMW 『不用到部室，直接去那个房间就可以吗…？我明白了……』
		ENDIF
	ENDIF
CASE "学園での日常"

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
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	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 "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;表示されやすい（体感）ので分岐させるまで確率で汎用口上を出す
	IF TALENT:恋慕 && RAND:3
		;これ地の文スキップしても場所随机で指定されるからシチュは書きづらい
		TFLAG:地の文スキップ = 1
		;現状後背位限定にする　気力が有しだい増やす
		SELECTCOM = 61
		PRINTFORMW 「在这里做的话真的没问题吗……？」
		PRINTFORMW 「%CNAME("二人称")%说没问题的话…%CNAME("一人称")%倒是会相信就是了……」
		PRINTL
		PRINTFORMW 为了配合%CALLNAME:TARGET%的身高、%CALLNAME:MASTER%坐下后张開了双腿
		PRINTFORMW 诱导着%CALLNAME:TARGET%白皙小巧的屁股、什么都没做就变得湿哒哒的稚嫩蜜穴里衔着肉棒…
		PRINTL
		PRINTFORMW 「嗯っ、嗯唔、呼っ、嗯っ」
		CALL PRINT_STR, @"「哈啊、哈っ、啊、啊啊_BHH_  啊っ_BHH_」_W"
		PRINTL
		PRINTFORMW 为了让%CALLNAME:MASTER%快点射出来、%CALLNAME:TARGET%勇敢的加快了摆动腰部速度
		PRINTL
		CALL PRINT_STR, @"「――っ！_BHH_  呼——っ_BHH_  唔唔…_BHH_  呼——っ_BHH_」_W"
		PRINTL
		PRINTFORMW 但是过了一会发现自己舒服的动弹不得、轻轻的潮吹着的时候稚嫩的蜜穴也在微微抽动着…
		PRINTL
		PRINTFORMW 「对、对不起…会好好做到让%CNAME("二人称")%也变得舒服起来的……」
		CALL PRINT_STR, @"「呼っ、呼唔_BHH_  哈っ、哈啊_BHH_  哈っ_BHH_BHH_」_W"
		CALL PRINT_STR, @"「嗯唔―――っ！！_BHH_BHH_BHH_」_W"
		PRINTL
		PRINTFORMW 好几次都在快要射的时候点到为止、最终%CALLNAME:MASTER%失去了理智
		PRINTFORMW 暴起抓住因为绝顶正在抽搐的%CALLNAME:TARGET%的腰部、然后用对待飞机杯一样粗暴的动作起来！
		PRINTL
		CALL PRINT_STR, @"「呀っ！_BHH_  噗要っ_BHH_  呀啊啊啊啊っ！_BHH_BHH_BHH_  啊っ！_BHH_BHH_  啊啊っ！_BHH_BHH_」_W"
		CALL PRINT_STR, @"「呀嘎嘎啊啊啊っ！！_BHH_BHH_BHH_」_W"
		PRINTFORMW 啾咕っ！啾噜噜っ！咚啾噜噜噜！啾噜っ！啾噜噜噜っ！
		PRINTL
		PRINTFORMW 像是要顶穿进去一样在深处将精液倾倒进去之后、受到剧烈冲击的子宫将射精中的龟頭紧紧的吸住
		PRINTFORMW 像是很痛苦一样肉棒在里面乱闹搅动着的话、被刺激到的肉穴壁就会更加剧烈地收缩起来
		PRINTFORMW 彼此都达到了强烈的绝顶、腰部都剧烈的颤抖着…
		PRINTL
		PRINTFORMW 抓着%CALLNAME:TARGET%的腰的手臂一放松下来之后、%CALLNAME:TARGET%就这样挺着自己的屁股塌下来了…
		PRINTFORMW 保持着插入的%CALLNAME:MASTER%的肉棒从%CALLNAME:TARGET%的%TEXTR("小巧的/稚嫩的")%%TEXTR("性器/蜜穴")%里面拔出来的时候发出了呢啵！一样的声音
		PRINTFORMW %CALLNAME:TARGET%的蜜穴口啪嗒啪嗒的開闭的同时滴下精液、从肉棒的压迫中解放出来的潮水噗嗤一下喷洒出来…
		PRINTL
		CALL PRINT_STR, @"「咦っ_BHH_  咦_BHH_  呼唔_BHH_  呼っ_BHH_」_W"
		;イかない時もあるので必ずイかせるようにする
		EXP:TARGET:絶頂経験 += RAND:3 + 2
	ENDIF
	;避孕套を使う場合
	;現状避孕套は絶対つかわない　初潮を実装したら使う…？
	;IF TEQUIP:PLAYER:避孕套
	;	PRINTFORMW
	;ELSE
	;	PRINTFORMW
	;ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	;RETURN 0
	PRINTFORMW 把筋疲力尽的鈴搬到保健室的床上后…
	PRINTFORMW 因为很累了，所以%CALLNAME:MASTER%也决定在旁边的床上休息一下，下节课再回去…
	TFLAG:地の文スキップ = 1
	;避孕套を使う場合
	;現状避孕套は絶対つかわない　初潮を実装したら使う…？
	;IF TEQUIP:PLAYER:避孕套
	;	PRINTFORMW
	;ELSE
	;	PRINTFORMW
	;ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
	;胖次が<濡>相当变成了とき
	IF PALAM:TARGET:Ｖ潤 >= 30000 && PALAM:TARGET:欲情 < 30000 && CHECK_CLO("泳装姿") == 0 && CHECK_CLO("贴身制服露出") == 0
		CALL EMOTION_PLUS, "躁动难忍", TARGET
			PRINTFORMW 「浑身都变得湿哒哒的了…呜呜……」
			PRINTFORML
		IF EQUIP:胖次 == 0
			PRINTFORMW 全神贯注的玩弄%CALLNAME:TARGET%稚嫩的性器的时候、爱液都几乎要滴落下来了…
		ELSE
			PRINTFORMW %CALLNAME:TARGET%脱掉了滴上了爱液的胖次…
			CALL SET_PANTIES, ""
			STR:日常イベント名 = 胖次脱ぎ
		ENDIF
		PRINTFORMW 因为一直被纠缠不休的%TEXTR("恶作剧/欺负")%的原因、%TEXTR("变大/漂亮的")%%TEXTR("勃起的/绷紧的/立起来的")%%TEXTR("阴核/阴蒂")%从%TEXTR("稚嫩的/软乎乎的")%%TEXTR("蜜裂/蜜缝")%里面露了出来…
		;フラグ兼陰核勃起をでっち给ための欲情
		PALAM:TARGET:欲情 = 30000
	ENDIF
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")

	ELSE

	ENDIF

;これは昼か夜
;打招呼のパターンを作ってから%GREETING%で呼び出す
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんわです
	ELSEIF COND("昼")
		GREETING = こんにちわです
	ELSE
		GREETING = 早上好うです
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		IF TALENT:恋慕 && COND("欲求不満", TARGET) >= 3
		ELSEIF TALENT:恋慕
		ELSE
		ENDIF
	CASE "打招呼接吻"
		IF TALENT:恋慕 && COND("欲求不満", TARGET) >= 3
		ELSEIF TALENT:恋慕
		ELSE
		ENDIF
	CASE "打招呼舐陰"
		IF TALENT:恋慕 && COND("欲求不満", TARGET) >= 3
		ELSEIF TALENT:恋慕
		ELSE
		ENDIF
	;打招呼時にちんちん生えてる状態があるんだろうか
	CASE "打招呼口交"
		IF TALENT:恋慕 && COND("欲求不満", TARGET) >= 3
		ELSEIF TALENT:恋慕
		ELSE
		ENDIF
	CASEELSE
		;你に先に打招呼をされた
		;先に打招呼されたってのは入室時に入室打招呼が呼び出されてなかったかどうか…ってことである
		;入室打招呼が呼び出されてない場合は打招呼した == 0、呼び出された場合は打招呼した == 1になる
		;…でも大抵は遭遇時に打招呼されない？刚睡醒ってことか？
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「啊、%GREETING%、%CNAME("二人称")%……」
		;打招呼舐陰の数をカウント次第でただの打招呼で胖次をたくし给ようにしたい
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「嗯！%GREETING%、%CNAME("二人称")%♪」
			ELSE
				PRINTFORMW 「是、%GREETING%、%CNAME("二人称")%……」
			ENDIF
		ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「呜呜…总觉得…有点晕乎乎的……」
;全裸終了の際のセリフ
CASE "服を着た"
	;PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	;PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	;PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_KX1, %ARGS%, %STR:日常イベント名%
		[ENDIF]
	CASE "夸奖"
		SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「不是…%CNAME("一人称")%的话完全……」
			PRINTFORMW 和嘴上说的正相反、看见了%CALLNAME:TARGET%非常開心的表情…
		CASEELSE
			PRINTFORMW 「%CNAME("一人称")%的话哪有…一点也不厉害啦……」
			PRINTFORMW 和嘴上说的正相反、看见了%CALLNAME:TARGET%非常開心的表情…
		ENDSELECT
	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称")%…请不要这样欺负我……」
			PRINTFORMW 从被耳语着甜言蜜语的%CALLNAME:TARGET%的大腿内侧、透明的液体垂了下来…
			PALAM:TARGET:Ｖ潤 += 10000
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「要是说了那样的话…会喜欢上%CNAME("二人称")%的哟……？」
			PRINTFORMW %CALLNAME:TARGET%好像不能和你对视了…
		ELSE
			PRINTFORMW 「诶…是在对%CNAME("一人称")%说话吗……？」
			PRINTFORMW %CALLNAME:TARGET%好像并不觉得这是对自己说的话…
		ENDIF
	CASEELSE
$SUZUTALK
		IF TALENT:恋慕
			SELECTCASE RAND:5
			CASE 0
				;中出し未経験か欲求不満度が低いなら再抽選
				SIF EXP:膣内精液経験 == 0 || COND("欲求不満", TARGET) <= 2
					GOTO SUZUTALK
				PRINTFORMW 「%CNAME("二人称")%…聊天当然也是可以的、但是差不多……」
				PRINTFORMW %CALLNAME:TARGET%用水润的眼睛诉说着情欲……
			CASE 1
				;居間でないなら再抽選
				SIF !PLACE("居間")
					GOTO SUZUTALK
				PRINTFORMW 「%CNAME("一人称")%在玩的游戏吗？」
				PRINTFORMW 「因为不是什么很受欢迎的东西…所以没办法推荐呢……」
				PRINTFORMW 「但是要是有兴趣的话…稍后我会发一条可以跳转到游戏界面的邮件哦」
			CASE 2
				PRINTFORMW 「和%CNAME("二人称")%聊天的话…非常的開心……」
				PRINTFORMW 「因为%CNAME("一人称")%不是很会聊天的说……」
			CASE 3
				PRINTFORMW 「这个猫的动画很有趣哟」
				PRINTFORMW 「胖一点的猫…才更能够挤进狭窄的地方……」
			CASEELSE
				PRINTFORMW 「弗理希艾尔桑的话…真的是恶魔吗……？」
				PRINTFORMW 「%CNAME("一人称")%还以为…恶魔的话会是那种…更加恐怖一点的形象……」
			ENDSELECT
		ELSE
			SELECTCASE RAND:4
			CASE 0
				PRINTFORMW 「如果是餐巾纸的话是压不住的吧…但是尿布的话又不是很喜欢……」
				PRINTFORMW 「就算用胶布压住的话，之后也还是会掉下来……」
				SIF TALENT:処女
				PRINTFORMW 「卫生棉条那种…很可怕所以没有试过……」
			CASE 1
				PRINTFORMW 「%CNAME("一人称")%的话…在家玩游戏的情况比较多……」
				PRINTFORMW 「因为长时间外出的话…稍微有点困难呢……」
			CASE 2
				;部室でないなら再抽選
				SIF !PLACE("部室")
					GOTO SUZUTALK
				PRINTFORMW 「%CNAME("一人称")%…是在这里倒下的吧……」
				PRINTFORMW 「一想到要是在其他地方倒下的话……呜……」
			CASEELSE
				;部室でないなら再抽選
				SIF !PLACE("部室")
					GOTO SUZUTALK
				PRINTFORMW 「%CNAME("一人称")%留在这里真的可以吗……・？」
				PRINTFORMW 「总觉得…好像不是很合适的样子……」
			ENDSELECT
		ENDIF
	ENDSELECT

;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF

CASE "拭汗"
	IF TALENT:恋慕
		PRINTFORMW 「%CNAME("二人称", "どもり")%…非常感谢……」
		PRINTFORMW 「但是…要是碰得太多的话…别的地方就要变得湿哒哒得了……」
	ELSE
		PRINTFORMW 「非、非常感谢……」
	ENDIF
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K33
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW
	CASE "托一托胸部"
		IF TALENT:恋慕
			IF CONDS("直前行動") == STR:日常イベント名
				SELECTCASE KABURAND(3)
				CASE 0
					CALL PRINT_STR, @"「讨厌、请不要这样使劲的扯呀…会变长的……_BHH_」_W"
					PRINTFORMW %CALLNAME:MASTER%揉搓着与%CALLNAME:TARGET%幼稚的身体不相称的大乳頭…
				CASE 1
					CALL PRINT_STR, @"「嗯、嗯啊啊…_BHH_　嗯唔呜……」_W"
					PRINTFORMW %CALLNAME:TARGET%用手捂着嘴的同时、忍受着%CALLNAME:MASTER%对乳頭的折磨…
				CASE 2
					CALL PRINT_STR, @"「咦_BHH_　请、请温柔…一点……」_W"
					PRINTFORMW %CALLNAME:MASTER%随心所欲地揉捏着乳頭、%CALLNAME:TARGET%时不时颤抖一下身体…
				ENDSELECT
				PALAM:TARGET:Ｖ潤 += 3000
			ELSE
				SELECTCASE RAND:3
				CASE 0
					IF TALENT:貧乳
						PRINTFORMW 「就算是%CNAME("一人称")%的…摸起来也会開心吗……？」
						PRINTFORMW 并不介意%CALLNAME:TARGET%担心的事、%CALLNAME:MASTER%享受了%TEXTR("滑滑溜溜/柔柔软软")%的肌肤的触感…
					ELSE
						PRINTFORMW 「因为%CNAME("二人称")%的错变成了这样哟……？」
						PRINTFORMW %CALLNAME:MASTER%像爱抚一样来回抚摸着%CALLNAME:TARGET%发育充分的胸部…
					ENDIF
				CASE 1
					PRINTFORMW 「嗯…突然做什么啊？！……」
					PRINTFORMW %CALLNAME:MASTER%像是确认形状一样来回抚摸着%CALLNAME:TARGET%的胸部…
				CASE 2
					PRINTFORMW 「呀！呜、唔唔……」
					PRINTFORMW %CALLNAME:TARGET%反射一样想要保护自己的胸部、结果却紧紧地抱住了%CALLNAME:MASTER%的手…
					PRINTFORMW 从压在胸口上的手掌里，可以感受到铃紧张的心跳…
				ENDSELECT
			ENDIF
		ELSE
			SELECTCASE KABURAND(3)
			CASE 0
				PRINTFORMW 「呀…你干嘛呀？」
				PRINTFORMW 「倒、倒不是讨厌啦……」
			CASE 1
				IF TALENT:貧乳
					PRINTFORMW 「那个…%CNAME("一人称")%觉得%CNAME("一人称")%的胸就算摸了也不会開心就是了……」
				ELSE
					PRINTFORMW 「那个…%CNAME("一人称")%觉得%CNAME("一人称")%的胸并不是很大就是了……」
				ENDIF
			CASE 2
				PRINTFORMW 「……」
				PRINTFORMW %CALLNAME:TARGET%似乎并不是很在意胸部被触碰这件事、任君采摘…
			ENDSELECT
		ENDIF
	CASE "按摩"
		IF TALENT:恋慕
			SELECTCASE KABURAND(3)
			CASE 0
				PRINTFORMW 「%CNAME("二人称")%的手、暖暖的很舒服……」
			CASE 1
				PRINTFORMW 「%CNAME("二人称")%的话、有没有想用手按摩的那种变得嘎吱嘎吱硬邦邦的地方啊……？」
				PRINTFORMW 「要是能做到的…%CNAME("一人称")%想让%CNAME("二人称")%变得舒服起来……」
			CASE 2
				PRINTFORMW 「有想要按摩的地方是吗……？」
				PRINTFORMW 「那、那种事…想拜托你在床上做……」
			ENDSELECT
		ELSE
			SELECTCASE KABURAND(3)
			CASE 0
				PRINTFORMW 「虽然%CNAME("一人称")%觉得并没有按摩的必要就是了……」
				PRINTFORMW 「嘛…很舒服就是了……」
			CASE 1
				PRINTFORMW 「难道说、就只是想要摸%CNAME("一人称")%的身体是吗……？」
				PRINTFORMW 「虽然%CNAME("一人称")%要是%CNAME("二人称")%的话，碰了也无所谓就是了……」
			CASE 2
				PRINTFORMW 「让%CNAME("一人称")%来给%CNAME("二人称")%来按摩的话不是更好吗……？」
				PRINTFORMW 「之后的事让我们在床上…？唔、唔唔……」
			ENDSELECT
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF TALENT:恋慕
				PRINTFORMW 「%TEXTR("嗯っ/嗯啾")%……」
				SELECTCASE KABURAND(3)
				CASE 0
					PRINTFORMW 「%CNAME("二人称")%…%CNAME("一人称")%只是接吻的话%TEXTR("无法满足/忍耐不了")%呢……」
				CASE 1
					CALL PRINT_STR, @"「还要更加…更加地愛%CNAME("一人称")%……_BHH_」_W"
				CASE 2
					PRINTFORMW 「%CNAME("二人称")%…嗯っ…啾斯っ……」
					PRINTFORMW %CALLNAME:TARGET%回礼似的又吻了一下…
				ENDSELECT
			ELSE
				PRINTFORMW 「嗯っ……」
				SELECTCASE KABURAND(3)
				CASE 0
					PRINTFORMW 「这样子做的话…感觉气氛会变得很H……」
				CASE 1
					PRINTFORMW 「难道说…是要做吗……？」
				CASE 2
					PRINTFORMW 「希望你别这样……」
					PRINTFORMW 「虽然我不讨厌接吻…但还是很在意…」
				ENDSELECT
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「%TEXTR("嗯っ/嗯啾")%……」
				CALL PRINT_STR, @"「%CNAME("二人称")%……_BHH_」_W"
			ELSE
				PRINTFORMW 「嗯っ……」
				PRINTFORMW 「……」
				PRINTFORMW %CALLNAME:TARGET%一瞬间露出了吃惊的表情、用%TEXTR("不満足的/好像在索求什么的")%目光盯着%CALLNAME:MASTER%…
			ENDIF
		ENDIF
	CASE "膝枕"
		IF CHARA_NUM("室内の邪魔者")
			IF CONDS("直前行動") == STR:日常イベント名
				PRINTFORMW 「%CNAME("二人称")%…差不多该……」
				PRINTFORMW 「啊、不是、并不是讨厌…倒不如说很開心…但是……」
				CALL PRINT_STR, @"「呜、呜……_／／／_」_W"
				PRINTFORMW %CALLNAME:TARGET%因为害羞脸渐渐的变红了…
			ELSE
				PRINTFORMW 「诶、现在吗…？」
				PRINTFORMW 「我、我明白了…那、那么……」
				CALL PRINT_STR, @"「呜、呜……_／／／_」_W"
				PRINTFORMW %CALLNAME:TARGET%因为被他人看见而感到羞耻、身体变得很僵硬了…
			ENDIF
		ELSE
			IF CONDS("直前行動") == STR:日常イベント名 && PENIS(MASTER) && TALENT:恋慕
				SELECTCASE KABURAND(3)
				CASE 0
					CALL PRINT_STR, @"「哈——_BHH_　哈啊…_BHH_　%CNAME("二人称")%的味道…_BHH_」_W"
					PRINTFORMW %CALLNAME:TARGET%把脸埋进了%CALLNAME:MASTER%的双腿间…
				CASE 1
					CALL PRINT_STR, @"「哈啊…_BHH_　%CNAME("二人称")%…_BHH_　%CNAME("二人称")%…_BHH_」_W"
					PRINTFORMW %CALLNAME:TARGET%用脸颊在%CALLNAME:MASTER%的双腿间不断摩擦…
				CASE 2
					CALL PRINT_STR, @"「呼…_BHH_　呼唔…_BHH_　嗯…_BHH_」_W"
					PRINTFORMW %CALLNAME:TARGET%一边嗅着%CALLNAME:MASTER%股间的气味一边自慰着…
				ENDSELECT
			ELSE
				PRINTFORMW 「失、失礼了…」
				IF TALENT:MASTER:男性
					PRINTFORMW 「%CNAME("二人称")%的膝枕…不知为何感觉非常让人安心……」
				ELSE
					PRINTFORMW 「%CNAME("二人称")%的膝枕…柔柔软软的很舒服……」
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%非常放松地享受了%CALLNAME:MASTER%的膝枕…
			ENDIF
		ENDIF
	CASE "泡茶"
		PRINTFORMW 「非…非常感谢」
		PRINTFORMW 「嗯咕…嗯……」
		PRINTFORMW %CALLNAME:TARGET%大口大口地喝着递过去的茶…
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	;よくないことだが封印はしないことにする
	CASE "勸酒"
		;未成年にお酒を飲ませたらだめだぞ
		;でも気持ちよくエッチするためにちょっとぐらいなら…だめだぞ
		;でも服脱いでるとことか見たい
		PRINTFORMW 「怎么说呢…真是让人觉得暖和的果汁啊……」
		PRINTFORMW %CALLNAME:MASTER%让%CALLNAME:TARGET%喝了用果汁稀释过的度数低的果酒…
	;当然だが尾巴がある相手のみ
	;淫魔として覚醒して尾巴が生えるというのもアリだが設定上は生えることはない
	CASE "抚摸尾巴"
	CASE "摸頭"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「嗯っ……」
			PRINTFORMW 鈴闭上眼睛，将精神集中在被摸着頭的感觉上…
		CASE 1
			PRINTFORMW 「鈴…不是个好孩子哟……？」
			PRINTFORMW 「虽然也不是坏孩子就是了……」
		CASE 2
			PRINTFORMW 「虽然并不是讨厌摸頭就是了……」
			PRINTFORMW 「但是…稍微有点害羞……」
		ENDSELECT
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K33
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	;PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
;基本的には股間観察or掀起裙子→检查内褲→检查阴部→股間観察or检查内褲
;一部性騷擾強化のためにイベント名を書き換えたせいで胖次阴部接写と观察股间の領帯ミングが少なくなってしまったけど
;どっちも複数回繰り返すイベントじゃないので対策はしないことにした
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K33
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「什、到底在说什么啊……」
		CASE 1
			PRINTFORMW 「现、现在不想给%CNAME("二人称")%看……」
		CASEELSE
			PRINTFORMW 「那、那种事情请拜托别人去……」
		ENDSELECT
			PRINTL
			PRINTFORMW %CALLNAME:TARGET%用轻蔑的表情看着%CALLNAME:MASTER%…
	;胖次を脱掉条件を満たしてる場合愛撫をより過激にする
	ELSEIF PALAM:TARGET:Ｖ潤 >= 30000 && EQUIP:胖次 == 0
		;ここから床インさせようと３時間ぐらい試行錯誤して挫折
	;	SELECTCASE RAND:3
	;	CASE 0
	;		PRINTFORML 「%CNAME("二人称", "どもり")%…还要继续的话还是在床上比较好……」
	;	CASE 1
	;		PRINTFORML 「%CNAME("二人称")%…不在床上继续吗……？」
	;	CASEELSE
	;		PRINTFORML 「%CNAME("二人称")%…如果要做的话、希望不要在这里……」
	;	ENDSELECT
	;		CALL PRINT_SELECT, "带到床上/再稍微玩弄一下"
	;	IF RESULT == 0
	;	ELSE
	;	ENDIF

		;振動棒
		IF COND("身嗜み：Ｖ拡張", TARGET)
		ELSE
			SELECTCASE KABURAND(3)
			CASE 0
				CALL PRINT_STR, @"「咦呜_BHH_　呀…请不要一戳一戳的_BHH_」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%用温柔的动作轻轻揉捏着从%CALLNAME:TARGET%的蜜裂中露出来的肥大化的阴蒂…
				PRINTFORMW 每次%CALLNAME:MASTER%刺激的时候、%CALLNAME:TARGET%都是咯吱咯吱的颤抖着腰部，爱液喷撒得到处都是…
				STR:日常イベント名 = 陰核愛撫
			CASE 1
				IF TALENT:処女
					CALL PRINT_STR, @"「嗯_BHH_　要是用那种方式按压的话会忍不住的哦…_BHH_」_W"
					PRINTFORML
					PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%一颤一颤的抖动的蜜穴口内、为了不伤害处女膜浅浅的抽插着手指…
					PRINTFORMW %CALLNAME:TARGET%的蜜穴口虽然流淌着液体、但像是不想要%CALLNAME:MASTER%的手指离開一样紧紧吸附着…
				ELSE
					CALL PRINT_STR, @"「请_BHH_　请不要这样搅拌那种地方_BHH_」_W"
					PRINTFORML
					PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%稚嫩的小穴里、就像要把爱液掏出来一样用中指搅拌抽插着…
					PRINTFORMW 每次摩擦敏感的G点的时候、%CALLNAME:TARGET%的腰都一颤一颤的抖动着…
				ENDIF
				STR:日常イベント名 = 指挿れ
			CASE 2
				CALL PRINT_STR, @"「这种事情…呜_BHH_　无论什么时候做都没办法_BHH_！…忍住啊」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%将%CALLNAME:TARGET%的%TEXTR("稚嫩的/小巧的")%%TEXTR("性器/蜜穴")%撑開、将满溢出来的爱液漂亮的舔干净了…
				PRINTFORMW 但是无论如何漂亮的舔干净、每次%CALLNAME:TARGET%的腰猛地颤抖之后爱液还是会噗嗤噗嗤的溢出来…
				STR:日常イベント名 = 舐陰
			ENDSELECT
		ENDIF
	;こっちは没穿内褲の場合の检查阴部
	ELSEIF CFLAG:检查阴部
		;振動棒がある場合
		IF COND("身嗜み：Ｖ拡張", TARGET)
		ELSE
			SELECTCASE KABURAND(3)
			CASE 0
				PRINTFORMW 「啊、不、不要这样%CNAME("二人称")%」
				CALL PRINT_STR, @"「那、那样玩弄那里的话…嗯唔！_BHH_」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%的%TEXTR("光滑无毛/软软弹弹")%的%TEXTR("蜜缝/蜜裂")%上、像试探阴蒂似的用手指咕哩咕哩的捏了一下。
				PRINTFORMW %CALLNAME:TARGET%只是嘴上说着不要，身体却接受了%CALLNAME:MASTER%的爱抚、嘴里漏出了甜蜜的呼吸…
			CASE 1
				PRINTFORMW 「那、那里不能撑開啊…」
				CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%的呼吸吹在上面…嗯！_BHH_」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%把%CALLNAME:TARGET%%TEXTR("稚嫩的/小巧的")%%TEXTR("性器/蜜穴")%、用双手的手指扩開观察了里面。
				PRINTFORMW %CALLNAME:TARGET%羞耻地身体一颤一颤的同时、张開的\@ TALENT:処女 ? 処女膜 # 蜜穴口 \@一边收缩着一边滴着爱液…
			CASE 2
				PRINTFORMW 「请不要在那种地方一戳一戳的…」
				CALL PRINT_STR, @"「呀_BHH_　要是摩擦的话会变得更糟糕的……」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%的胖次上面、享受着%TEXTR("香滑酥软的/少女特有的")%%TEXTR("蜜缝/陰唇")%的触感。
				PRINTFORMW %CALLNAME:TARGET%只是嘴上说着不要、但是脸上却带着要融化一样的表情接纳着%CALLNAME:MASTER%的爱抚…
			ENDSELECT
		STR:日常イベント名 = 检查阴部？
		ENDIF
		PALAM:TARGET:Ｖ潤 += 10000
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「无论如何都想看吗……？」
			PRINTFORMW 「呜…太羞耻了……」
		CASE 1
			PRINTFORMW 「我明白了…要是%CNAME("二人称")%这么说的话……」
			PRINTFORMW 「只是稍微看一下哟……？」
		CASEELSE
			PRINTFORMW 「请、请不要那样仔仔细细地盯着看……」
			PRINTFORMW 「不然的话会变湿的……」
		ENDSELECT
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K33
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「呀、不能这样！请不要看这里！」
		CASE 1
			PRINTFORMW 「不要！请不要这样！」
		CASEELSE
			PRINTFORMW 「要、要哭了哟…这样也可以吗……？」
		ENDSELECT
			PRINTL
			PRINTFORMW 被%CALLNAME:TARGET%激烈地抵抗了…
			PRINTFORMW 现在好像还不能要求仔细看%CALLNAME:TARGET%的胖次…

	ELSEIF COND("胖次詳細確認")
		;振動棒がある場合振動棒を弄る
		IF COND("身嗜み：Ｖ拡張", TARGET)
		ELSE
			SELECTCASE KABURAND(3)
			CASE 0
				PRINTFORMW 「啊、不、不要这样%CNAME("二人称")%」
				CALL PRINT_STR, @"「那、不能摩擦那里… 呜_BHH_」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%的胖次上、像探知阴核一样用手指哧哧哧地摆弄着。
				PRINTFORMW %CALLNAME:TARGET%只是嘴上说着不要，身体却接受了%CALLNAME:MASTER%的爱抚、嘴里漏出了甜蜜的呼吸…
			CASE 1
				PRINTFORMW 「那、那里不能撑開啊…」
				CALL PRINT_STR, @"「和、和胖次摩擦的话…呀_BHH_」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%透过%CALLNAME:TARGET%的胖次、用手指张開%TEXTR("稚嫩的/小小的")%%TEXTR("性器/膣")%観察。
				PRINTFORMW %CALLNAME:TARGET%因羞耻而颤抖的同时、%CALLNAME:MASTER%眼前的胖次变得湿润了…
			CASE 2
				PRINTFORMW 「请不要在那种地方一戳一戳的…」
				CALL PRINT_STR, @"「呀_BHH_　要是摩擦的话会变得更糟糕的……」_W"
				PRINTFORML
				PRINTFORMW %CALLNAME:MASTER%透过%CALLNAME:TARGET%的胖次、享受着%TEXTR("黏糊糊的/少女特有的")%%TEXTR("竖裂/大陰唇")%的触感。
				PRINTFORMW %CALLNAME:TARGET%只是嘴上说着不要、但是脸上却带着要融化一样的表情接纳着%CALLNAME:MASTER%的爱抚…
			ENDSELECT
		ENDIF
		STR:日常イベント名 = 检查内褲？
		PALAM:TARGET:Ｖ潤 += 10000
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「呜…请不要一直盯着看呀……」
			PRINTFORMW 「不然的话…会变得湿漉漉的……」
		CASE 1
			PRINTFORMW 「虽然%CNAME("一人称")%觉得并不是什么好东西……」
			PRINTFORMW 「但是、如果%CNAME("二人称")%对这个着迷的话，%CNAME("一人称")%也不会觉得不舒服……」
		CASEELSE
			PRINTFORMW 「不、不会很湿吗……？」
			PRINTFORMW 「要是变得湿漉漉的话…就是%CNAME("二人称")%的错哦……」
		ENDSELECT
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K33
		WAIT
	;股間観察系の合意はないので检查内褲で代用する
	ELSEIF COND("合意：检查内褲") == 0 && CFLAG:股間確認済
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「在、在做什么啊……？」
		CASE 1
			PRINTFORMW 「想干什么啊？那个手势……」
		CASEELSE
			PRINTFORMW 「难道说、该不会是想碰吧……？」
		ENDSELECT
			PRINTL
			PRINTFORMW 每次%CALLNAME:MASTER%想把手靠近%CALLNAME:TARGET%的股间的时候、%CALLNAME:TARGET%都会带着惊讶的眼神拉開身体…
			PRINTFORMW 现在想要详细调查%CALLNAME:TARGET%的股间的话好像是不行的样子…
			STR:日常イベント名 = 股間観察失敗
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		;覚えてたら泳装にシミができる口上を書く
		;IF CHECK_CLO("泳装姿")
		;ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「嗯…请不要太捉弄%CNAME("一人称")%了……」
			CASE 1
				PRINTFORMW 「请…请不要这样……」
			CASEELSE
				CALL PRINT_STR, @"「呀_BHH_　呜、呜……」_W"
			ENDSELECT
			PRINTL
			PRINTFORMW %CALLNAME:MASTER%在%CALLNAME:TARGET%的股间上下摩擦的动作着…
			PRINTFORMW 每次%CALLNAME:MASTER%的手指摩擦过阴核的位置、%CALLNAME:TARGET%的腰都会猛地一震…
		;ENDIF
		STR:日常イベント名 = 股間観察？
		SIF PALAM:TARGET:Ｖ潤 <= 25000
		PALAM:TARGET:Ｖ潤 += 10000
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「%CNAME("二人称", "どもり")%…在看哪里啊……」
		CASE 1
			PRINTFORMW 「请、请不要一直看着这里……」
		CASEELSE
			PRINTFORMW 「%CNAME("二人称", "どもり")%……？」
		ENDSELECT
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「请…请用……」
			CALL PRINT_STR, @"「呜、呜…好羞耻……_／／／_」_W"
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("身嗜み：服装", TARGET)
				PRINTFORMW 「请…请用……」
				PRINTFORMW 「有、有好好按照%CNAME("二人称")%说的那样…底下是真空的……」
			ELSE
				PRINTFORMW 「请…请用……」
				PRINTFORMW 「是想看这里对吧……？」
			ENDIF
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「嗯…%CNAME("二人称")%……是…在做什么呢……？」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K33
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「呀！请、请不要这样……」
			;初回没穿内褲はおそらく胖次没収されてる勧誘すぐで発生してるから既に確認してることにする
			IF EQUIP:胖次 == 0
				;胖次既に知ってる文を出そうとしたんだけどなんかスキップされちゃう
				;つまり掀起裙子の胖次形状確認は死に差分かも
				CALL SETFLAG_DAILY, "胖次形状確認"
				PRINTFORMW 不知道是不是因为身体用力抵抗了、暴露在外面的%CALLNAME:TARGET%的稚嫩的蜜裂里面溢出了爱液…
				PRINTFORMW 「讨厌、别、别看这里……」
				PALAM:TARGET:Ｖ潤 += 10000
			ENDIF
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			IF TALENT:恋慕
				PRINTFORMW 「刚才…难道没有看见吗……？」
				PRINTFORMW 「难不成…想要好好的确认一下吗……？」
				CALL PRINT_STR, @"「但是…在意%CNAME("一人称")%的事这样的…很開心……_／／／_」_W"
			ELSE
				PRINTFORMW 「%TEXTR("呀/哇")%！刚刚没有看到吗……？」
				PRINTFORMW 「才不是…因为你想看所以才给你看的……」
			ENDIF
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				IF TALENT:恋慕
					PRINTFORMW 「%CNAME("二人称")%…要立马掀起裙子那种程度的躁动难耐嘛……？」
					PRINTFORMW 「那种躁动难耐…对%CNAME("一人称")%发泄出来也是没问题的哟……？」
					PRINTFORMW %CALLNAME:TARGET%并没有抵抗、而是用担心的表情看着这边…
				ELSE
					PRINTFORMW 「%TEXTR("呀/哇")%！突然之间做什么呢！……」
					PRINTFORMW 「这个是代替打招呼…？%TEXTR("不太能理解/有点莫名其妙")%……」
				ENDIF
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					IF PLACE("野外")
						IF COND("身嗜み：服装", TARGET)
							PRINTFORMW 「诶、%CNAME("二人称", "どもり")%！请不要这样！」
							PRINTFORMW 「因为按照%CNAME("二人称")%说的那样没有穿胖次！」
						ELSE
							PRINTFORMW 「诶、%CNAME("二人称", "どもり")%！请不要这样！现在没有穿胖次！」
						ENDIF
						PRINTFORMW 「讨、讨厌、被不认识的人看见了」
						CALL PRINT_STR, @"「%CNAME("二人称")%…呜…实在是非常的羞耻……_／／／_」_W"
						PRINTFORMW %CALLNAME:TARGET%最初是抵抗的，但是也许是意识到了吧，脸涨得通红的一动也不动。
						IF COND("身嗜み：Ｖ拡張", TARGET)
							PRINTFORML
							PRINTFORMW 不知道是不是因为身体用力抵抗了、
							PRINTFORM 从平时開始就插在里面
							;テンプレ化してもいいかも
							SELECTCASE COND("身嗜み：Ｖ拡張", TARGET)
							CASE 1
								PRINTFORM %CALLNAME:TARGET%将正合适的儿童规格的振動棒
							CASE 2
								PRINTFORM %CALLNAME:TARGET%将大号普通规格的振動棒
							CASE 3
								PRINTFORM %CALLNAME:TARGET%将胳膊粗的巨根规格的振動棒
							CASE 4
								PRINTFORM 500ml塑料瓶差不多规格的振動棒
							ENDSELECT
							PRINTFORMW 从%TEXTR("稚嫩的/小巧的")%小穴里面快要挤掉下去了…
							PRINTFORMW 「诶、等下、%CNAME("二人称")%、不行、%CNAME("一人称")%会自己放回去的啦，所以……」
							CALL PRINT_STR, @"「啊、不行、呀啊啊啊啊啊_BHH_BHH_BHH_」_W"
							PRINTFORMW 嘿咻……一口气挤进最深处之后、从%CALLNAME:TARGET%的%TEXTR("稚嫩的/可愛的")%%TEXTR("蜜穴口/蜜穴")%里面%TEXTR("很多的/不寻常的")%量的愛液飞散了出来…
						ELSE
							PRINTFORMW 不知道是不是极度兴奋的原因、从%CALLNAME:TARGET%的%TEXTR("稚嫩的/可愛的/小巧的")%%TEXTR("蜜裂/蜜缝/")%里面%TEXTR("很多的/不寻常的")%量的愛液溢了出来…
						ENDIF
						CALL SETFLAG_DAILY, "胖次形状確認"
						PALAM:TARGET:Ｖ潤 += 10000
					ELSEIF COND("身嗜み：Ｖ拡張", TARGET)
						PRINTFORMW 「虽…虽然很害羞…但是……」
						PRINTFORMW 「有好好按照%CNAME("二人称")%说的…插在里面哦……？」
						PRINTFORML
						PRINTFORM 裙子底下、%TEXTR("稚嫩的/可愛的")%的小穴里面
						SELECTCASE COND("身嗜み：Ｖ拡張", TARGET)
						CASE 1
							PRINTFORM 正合适的儿童规格的振動棒
						CASE 2
							PRINTFORM 大号普通规格的振動棒
						CASE 3
							PRINTFORM 大的过分的巨根规格的振動棒
						CASE 4
							PRINTFORM 500ml塑料瓶差不多规格的振動棒
						ENDSELECT
						PRINTFORMW 插在里面…
						CALL SETFLAG_DAILY, "胖次形状確認"
					ELSEIF CHARA_NUM("室内の邪魔者")
						PRINTFORMW 「%CNAME("二人称", "どもり")%、会被其他人看到的……」
						PRINTFORMW 「呜…太羞耻了……」
					ELSEIF TALENT:恋慕
						SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「有…有点害羞…啊……」
							PRINTFORMW 「但是…如果%CNAME("二人称")%想看的话…会忍耐的……」
						CASEELSE
							PRINTFORMW 「啊…被看见了……」
							PRINTFORMW 「%CNAME("二人称")%的话…喜欢这样的事情对吧……？」
						ENDSELECT
					ELSE
						SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「%TEXTR("呀/哇")%！请不要看过来……」
							PRINTFORMW 「不是这样的、是因为乱糟糟的所以没有穿上……」
						CASEELSE
							PRINTFORMW 「%TEXTR("呀/哇")%！请不要这样……」
							PRINTFORMW 「才、才不是因为喜欢才穿上的……」
						ENDSELECT
					ENDIF
				ELSE
					IF TALENT:恋慕
						SELECTCASE RAND:2
						CASE 0
							;「男子って、胖次好きだね」
							PRINTFORMW 「%CNAME("二人称")%啊、真喜欢胖次啊……」
							PRINTFORMW 「就算更加仔细点看…也是可以的哟……？」
						CASEELSE
							PRINTFORMW 「%CNAME("二人称")%也不会腻呢……」
							PRINTFORMW 「%CNAME("一人称")%的话，如果是%CNAME("二人称")%…无论是什么地方都可以看的哦……」
						ENDSELECT
					ELSE
						SELECTCASE RAND:2
						CASE 0
							PRINTFORMW 「%TEXTR("呀/哇")%！干什么呀……」
						CASEELSE
							PRINTFORMW 「请、请不要这样……」
						ENDSELECT
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"

	ENDSELECT

CASE "性処理の内容変更を頼んだ際の反応"

	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF

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

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "胖次見抜き"

	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	;STR:PLAY要望 = Ｖ性交
	SELECTCASE STR:PLAY要望
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "Ｖ性交"
		;今日は避孕套没有の生性交がＯＫな日
		IF COND("女性主導生性交")

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"

	CASE "舐陰莖"

	CASE "口交"

	CASE "Ｖ性交", "Ａ性交", "尿道性交"
		;挿入行為の後に口交も続けて行った場合
		IF STR:PLAY要望 == "口交"

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
ENDSELECT

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

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	RETURN 0
	MAIL_BODY =
CASE "阴部自撮り", "阴茎自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸部自撮り"
	RETURN 0
	MAIL_BODY =
CASE "今年の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

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

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「%CNAME("二人称", "どもり")%…这周日有空吗……？」
	PRINTFORMW 「如果可以的话…这周日不和%CNAME("一人称")%一起去玩一玩吗……？」
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	IF EXP:约会経験 == 0
		PRINTFORMW 「周日一起去玩是吗？虽然没问题就是了……」
		PRINTFORMW 「有其他人一起吗？诶、就我们两个……？」
		PRINTFORMW 「我、我明白了……」
	ELSE
		PRINTFORMW 「诶…%CNAME("一人称", "どもり")%可以的话…无论多少次都……」
		PRINTFORMW %CALLNAME:MASTER%的邀请让%CALLNAME:TARGET%有点慌慌张张的、脸上露出了高兴的表情…
	ENDIF
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 『喂喂喂、发生什么了啦%CNAME("二人称")%……』
		PRINTFORMW 『诶、一起去玩？从今天開始吗？』
		PRINTFORMW 『呜、呜…我明白了、现在開始准备……』
		PRINTFORMW 『不，不是！并不是不想去！%CNAME("一人称")%非常的開心！』
	ELSE
		PRINTFORMW 「诶、现在開始去玩吗？」
		PRINTFORMW 「哇哇哇、我明白了…要赶紧准备了！」
		PRINTFORMW 「啊、啊、但是、因为要花点时间！呜、呜呜……」
		PRINTFORMW %CALLNAME:MASTER%让慌慌张张的%CALLNAME:TARGET%冷静下来、慢慢准备…
	ENDIF

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

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

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

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

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

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

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

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"

CASE "接吻"

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

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW 「%CNAME("二人称")%…今天能邀请%CNAME("一人称")%非常的感谢……」
		PRINTFORMW 「%CNAME("一人称")%非常的高兴……」
		PRINTFORMW %CALLNAME:TARGET%紧紧握住%CALLNAME:MASTER%的手的同时、身体恰好碰在了一起…
	ELSE
		PRINTFORMW 「今天非常感谢…%CNAME("一人称")%非常的開心……」
		PRINTFORMW 「因为没怎么像这样出来玩过…稍微有点累了……」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/33 鈴/EVENT_K33_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
@WISH_K33_ADDSELECT
STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("指令全開放", 16)% … 制限された指令を全て使用可能にします(非推奨)/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K33_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "指令全開放"
	PRINTFORMW 「呜…%CNAME("二人称")%这么说的话……」
	PRINTFORMW 「但是…希望不会做很过分的事情……」
	PRINTFORMW 「因为……我相信着%CNAME("二人称")%……」
	PRINTL
	PRINTFORMW 青空铃不能使用的指令现在全都变成了可以使用。
	PRINTFORMW 当然的、開启这个机能的指令不会再出现了…
	CALL SET_CEVENT, "指令解放"
;CASE "追加選択肢之２"
;	PRINTFORMW %CALLNAME:MASTER%说了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;	;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
;@DAILY1_K33_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"
;
;;Talk指令で増やした選択肢の地の文と台詞
;@KOJO_DAILY1_K33_ADDSELECT, ARGS
;SELECTCASE ARGS
;CASE "追加選択肢その１"
;	PRINTFORMW %CALLNAME:MASTER%说了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;CASE "追加選択肢之２"
;	PRINTFORMW %CALLNAME:MASTER%说了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;ENDSELECT
;
;-------------------------------------------------
;互动指令の選択肢を追加
;@DAILY2_K33_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"
;
;互动指令で増やした選択肢の地の文と台詞
;@KOJO_DAILY2_K33_ADDSELECT, ARGS
;SELECTCASE ARGS
;CASE "追加選択肢その１"
;	PRINTFORMW %CALLNAME:MASTER%说了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;CASE "追加選択肢之２"
;	PRINTFORMW %CALLNAME:MASTER%说了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;ENDSELECT
;
;;-------------------------------------------------
;约会行き先の選択肢を追加。
;@DATE_K33_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"
;
;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
;@KOJO_DATE_K33_ADDSELECT
;SELECTCASE SAVESTR:约会
;CASE "追加選択肢その１"
;	PRINTFORMW 「台詞」
;	;地の文
;	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
;	;地の文を用意していない場合には汎用のものを使う
;	;CALL DAILY_MESSAGE, "约会本番"
;	PRINTL
;	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
;	FLAG:情緒 += 30
;	;それぞれ可能なもののコメントアウトを取下
;	;TFLAG:约会中H可能 = 1
;	;TFLAG:约会中牵手可能 = 1
;	;TFLAG:偷瞄内衣可能 = 1
;	;TFLAG:泳装约会 = 1
;CASE "追加選択肢之２"
;	PRINTFORMW 「台詞」
;	;地の文
;	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
;	;地の文を用意していない場合には汎用のものを使う
;	;CALL DAILY_MESSAGE, "约会本番"
;	PRINTL
;	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
;	FLAG:情緒 += 30
;	;それぞれ可能なもののコメントアウトを取下
;	;TFLAG:约会中H可能 = 1
;	;TFLAG:约会中牵手可能 = 1
;	;TFLAG:偷瞄内衣可能 = 1
;	;TFLAG:泳装约会 = 1
;ENDSELECT

path: ERB/EVENT_K/33 鈴/EVENT_K33_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「想要拜托%CNAME("一人称")%来做的事是吗？」
			PRINTFORMW 「如果是%CNAME("一人称", "どもり")%能够做到的事情就好了……」
		CASE 1
			PRINTFORMW 「想要拜托的事情…是吗？」
			PRINTFORMW 「不是很H的请求的话那个、那个、呜……」
		CASEELSE
			PRINTFORMW 「想要拜托%CNAME("一人称", "どもり")%的来做事情是吗…？」
			PRINTFORMW 「%CNAME("一人称")%能够做到的事情、我觉得并没有那么多哦……」
		ENDSELECT
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		[IF_DEBUG]
			PRINTFORMW @KOJO_WISH_K33, %ARGS%
		[ENDIF]
	;失敗
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「诶…是在開玩笑吧……？」
			PRINTFORMW 「因、因为…%CNAME("一人称")%和%CNAME("二人称")%比起来很小……」
		CASE 1
			PRINTFORMW 「请、请不要太过于戏弄%CNAME("一人称")%了……」
		CASEELSE
			PRINTFORMW 「虽然我很高兴…但是这不是认真的吧……？」
		ENDSELECT
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			;PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			;PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	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("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	ENDIF

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

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

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

CASE "淫紋拒否"

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

	ELSE

	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

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
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

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

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	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, "拒否")
	PRINTFORMW 「い、いやです……」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「我、我明白了……」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K33, 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 "询问有什么想要的东西"

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

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

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

	ELSE

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

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/33 鈴/EVENT_K33_SHOP.ERB