code:
@CONFESS_KOJO,ARGS,ARG:0,ARG:1,ARG:2,ARG:3,ARG:4,ARG:5,ARG:6
#DIM SIZE			;大小	( 0: 短小, 1: 普通, 2: 巨根, 3: 馬根, 4: 腕粗, 5: 规格外 )
#DIM FORESKIN		;包茎	( 0: 无包茎, 1: 假性包茎, 2: 真性包茎)
#DIM FEELING 		;射精感
#DIM FEELING_MAX	;极限精液量
#DIM SHASE			;射精
#DIM VOLUME_MAX
#DIM VOLUME
#DIM STATUS
#DIM BEFORE_HPLAY
#DIM NOW_HPLAY

SIZE = ARG:0
FORESKIN = ARG:1
FEELING = ARG:2
FEELING_MAX = ARG:3
SHASE = 0
VOLUME_MAX = ARG:4
VOLUME = ARG:5
STATUS = ARG:6
IF FEELING == FEELING_MAX
	SHASE = 1
ENDIF
BEFORE_HPLAY = TCVAR:忏悔室上回H行为
NOW_HPLAY = 0
; FEELING{FEELING}，FEELING_MAX{FEELING_MAX}，SHASE{SHASE}
PRINTFORML
PRINTFORML
PRINTFORML

SELECTCASE ARGS

	CASE "亲吻阴茎"
		NOW_HPLAY = 5
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_接吻")
		CALL SET_CEVENT("NTRS_口交")
		IF CEVENT("忏悔室_亲吻阴茎_初次",TARGET) == 0
			CALL SET_CEVENT("忏悔室_亲吻阴茎_初次",TARGET)
			PRINTFORMW 「接下来要跟客人这根%GENBU_DECRIPTION(SIZE)%接吻哦」
			IF VOLUME_MAX >= 6
				PRINTFORMW 信徒格外巨大的%TEXTR("阴囊/蛋蛋")%让%CALLNAME:TARGET%有些吃惊
				IF TALENT:高贵 && RAND:2
					PRINTFORMW 啊啦~真是惊人的尺寸呢、这是来自%CNAME("一人称")%的夸奖哦
				ELSEIF TALENT:傲慢 && RAND:2
					PRINTFORMW 哼、就算是这种尺寸、我、%CNAME("一人称")%也见过很多哦、惊讶什么的根本不存在
				ELSEIF TALENT:温柔 && RAND:2
					PRINTFORMW 这么大、那么多精子在里面会很难受吧、应该换一个舒服的新家呢
				ELSEIF TALENT:害羞 && RAND:2
					PRINTFORMW 呜哇——这样子的尺寸、总是不自觉的看过去、好害羞啊
				ELSEIF TALENT:恋慕 && RAND:2
					PRINTFORMW %CNAME("主人")%、请看看这边~ (小声)
				ELSE
					CALL PRINT_STRW, @"「%TEXTR("啊/唔/哈")%_HH_~ %TEXTR("好大的囊袋/蛋蛋沉甸甸地")%呢、%TEXTR("看来这位客人的量会很多/看起来很有活力")%呢」"
				ENDIF

			ENDIF
		ENDIF
		PRINTFORML
		PRINTFORM %CALLNAME:TARGET%
		IF VOLUME_MAX > 5
			PRINTFORMW 单手拖住信徒%TEXTR("沉甸甸/惊人尺寸")%的%TEXTR("阴囊/囊袋")%
		ENDIF
		IF TALENT:高贵 && RAND:2
			PRINTFORM 垂落的髮梢優雅的向一側撩上、將
		ELSE
			PRINTFORM 跪坐在忏悔室壁穴之前的姿態保持著、將
		ENDIF
		PRINTFORM %TEXTR("信徒/壁穴洞口")%
		IF FORESKIN == 2
			PRINTFORM 殘留著充滿淫臭的包皮垢的
		ELSEIF FORESKIN == 1
			PRINTFORM 包皮前端露出玲口的
		ELSE
			PRINTFORM 毫无保留地暴露着龟头的
		ENDIF
		IF RAND:2 == 0
			IF TALENT:献身 + TALENT:好色 + TALENT:小悪魔 == 0 && (MARK:屈服刻印 <= 1 || EXP:口交経験 < 20)
				PRINTFORMW %GENBU_DECRIPTION(SIZE)%%TEXTR("滿面羞紅的輕輕接吻了/膽怯而小心的用嘴唇輕輕貼住了/猶豫地親吻了")%…
			ELSEIF COND("種族：悪魔") + COND("種族：天使") + COND("種族：淫魔") && MARK:屈服刻印 && RAND:2
				PRINTFORMW %GENBU_DECRIPTION(SIZE)%%TEXTR("帶著恍惚的神情持續深吻著/恭敬地與之深吻著/就像是迫不及待一樣與之熱吻著")%…
			ELSE
				PRINTFORMW %GENBU_DECRIPTION(SIZE)%%TEXTR("不斷地啄吻著全身上下/恭敬地與之深吻著/熱情地持續深吻著")%……
			ENDIF
		ELSE
			IF !FORESKIN == 0 && TALENT:淫乱 && RAND:2 == 0
				PRINTFORMW 不时的将舌头伸入包皮的缝隙中、如同跟恋人一般热切而浓密地旋转舔舐、让浓郁的雄性气息充满口腔
			ELSEIF TALENT:淫乱
				PRINTFORMW 不时地用舌头划过尖端、用柔软的舌尖钻入玲口中、如同舌吻般激烈的刺激着
			ENDIF
		ENDIF
		CALL KISS_VOICE(2+RAND:2)
		IF SHASE == 1
			NOW_HPLAY = 11
			CALL SET_CEVENT("忏悔室_嘴中精液",TARGET)
			CALL SET_CEVENT("NTRS_精飲")
			CALL ADD_STAIN, TARGET, "Ｍ", "精液"
		; 射精
			PRINTFORML
			PRINTFORMW 信徒到达了极限
			PRINTFORML
			PRINTFORMW %TEXTR("充分勃起的/充血的/膨胀到极限的")% 阴茎开始剧烈的鼓动起来
			PRINTFORMW %CALLNAME:TARGET%保持着亲吻阴茎的姿势、将玲口对准了双唇的中心、
			PRINTFORMW 同时右手比着ok的手势用两根手指紧紧的圈住阴茎的根部、来回的刺激

			PRINTFORMW %CALLNAME:TARGET%的喉咙不停滚动，无数精液流入了胃中
			PRINTFORMW %CALLNAME:TARGET%缓缓将小嘴与龟头分开、发出一声轻微地[啵]地声音
			PRINTFORMW 晶莹的丝线从小嘴一直延伸到玲口
			PRINTFORMW
			IF RAND:2
				CALL PRINT_STRW, @"「哈_HH_~%TEXTR("肉棒接吻/亲吻肉棒")%的同时、%TEXTR("被注入精液/在嘴里射精/品尝刚刚射出地精子")%什么的、」"
				IF ABL:精液中毒 >= 5
					CALL SET_CEVENT("NTRS_绝顶")
					PRINTFORMW 「%TEXTR("真是特别地感觉/令人上瘾/格外地美味呢")%」
				ENDIF
			ELSE
				PRINTFORMW 「没想到会跟射精中的肉棒接吻呢、」
			ENDIF
		ENDIF

; ======================================================== 口交
	CASE "口交"
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_口交")
		NOW_HPLAY = 1
		IF CEVENT("忏悔室_口交_初次",TARGET) == 0
			CALL SET_CEVENT("忏悔室_口交_初次",TARGET)
		; 初次
			PRINTFORMW 「客人请尽情的使用%CNAME("一人称")%的嘴来忏悔吧」
		ELSEIF RAND:3 == 0
		; 非初次
			IF SIZE == 0
				PRINTFORMW 「客人%GENBU_DECRIPTION(SIZE)%看起来非常的%TEXTR("美味/可爱")%呢」
			ELSE
				PRINTFORMW 「客人%GENBU_DECRIPTION(SIZE)%看起来非常的%TEXTR("美味/优秀/立派")%呢」
			ENDIF
		ELSE
			PRINTFORMW 「%TEXTR("首先是这里/要温柔一点/这样做的话/我开动了")%」
		ENDIF
		; 动作衔接
		PRINTFORML
		IF BEFORE_HPLAY == 2
		; 上一个动作为乳交
			PRINTFORMW %CALLNAME:TARGET%将%GENBU_DECRIPTION(SIZE)%从双乳间放开、隐约间能看到、先走汁在柔软的胸部上留下的晶莹痕迹
		ELSEIF BEFORE_HPLAY == 24
		; 上一个动作为跟你接吻
			PRINTFORMW %CALLNAME:TARGET%舔了舔刚刚与你接吻的樱粉色双唇、接着凑近洞口、将小嘴贴近了信徒充分勃起的阴茎前
		ENDIF
		IF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%的舌头在洞口的阴茎前端画着圈、将不断溢出的先走汁涂抹在龟头上
			PRINTFORMW 如同品尝美味般再次将勃起的阴茎吮吸着吞下、发出真空的下流声音
		ELSEIF RAND:3 == 1
			PRINTFORMW %CALLNAME:TARGET%用手轻轻的托起沉甸甸的阴囊、温柔的揉弄、刺激着
			PRINTFORMW 灵巧的粉丝舌头在阴茎杆部前后舔舐、灼热的鼻息喷涂在肿胀的海绵体上、并不时地跳动几下
		ELSE
			PRINTFORMW %CALLNAME:TARGET%跪坐在阴茎下方、将其中一颗阴囊吮吸着含入口中、用温热而柔软的口腔与舌头给与着刺激
			PRINTFORMW 娇嫩的手裹挟着大量的先走汁在阴茎的尖端不断摩擦、发出[咕啾咕啾]的声音
		ENDIF

		IF SHASE == 1
		; 射精
			NOW_HPLAY = 11
			CALL SET_CEVENT("NTRS_精飲")
			CALL ADD_STAIN, TARGET, "Ｍ", "精液"
			CALL SET_CEVENT("忏悔室_嘴中精液",TARGET)
			PRINTFORML
			PRINTFORMW 信徒到达了极限
			PRINTFORML
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%低下头、以如同恋人般的姿势吻在了龟头的前端
				PRINTFORMW 随后、阴茎剧烈的脉动起来、%CALLNAME:TARGET%瞪大了眼睛、发出了一声低呼
				CALL PRINT_STRW, @"「嗯_HH_　呜 ……嗯嗚 _HH_　」"
				PRINTFORMW 虽然无法看见、但可以想象到此刻大量的精液正不断从玲口涌出、流入%CALLNAME:TARGET%的口腔之中
				PRINTFORMW %CALLNAME:TARGET%的喉咙不断的响起吞咽声
			ELSE
				PRINTFORMW %CALLNAME:TARGET%一边用舌头进攻玲口、一边撸动的同时强力的吸吮着
				PRINTFORMW 强烈的刺激给与肉棒最后一击、
				PRINTFORMW 猛烈的射精感直冲大脑、精液以射空的气势爆发出来
				PRINTFORMW %CALLNAME:TARGET%紧紧的吻住龟头、将一切都接纳下来
			ENDIF
			IF TALENT:淫乱
				PRINTFORMW 男人射精结束后、%CALLNAME:TARGET%像是要将尿道中的精子都吸出来一般用力吮吸着
				PRINTFORMW 再次将黝黑的阴茎吞至根部、直到脸颊都贴在了沾满粘稠液体的洞口
			ENDIF
			PRINTFORMW 随着%CALLNAME:TARGET%将头向后移动、阴茎一点点从%CALLNAME:TARGET%的口中释放出来、
			PRINTFORMW 嘴唇周围沾着的透明粘液从洞口拉出多条长长的晶莹丝线、那是服务之前客人所留下的痕迹

			IF ABL:精液中毒 >= 8
				CALL SET_CEVENT("NTRS_精液接触")
				CALL PRINT_SELECT, "吞下去/涂在洞口"
				IF RESULT == 0
					PRINTFORMW %CALLNAME:TARGET%张开嘴用手指将散落在脸上的液体一同刮入口中
					PRINTFORMW 灵巧的舌头将口腔中浓郁的精子搅拌着、向你充分的展示
					PRINTFORMW 随后闭上嘴巴、不断的吞咽起来
					PRINTFORMW 眉头先是紧皱着、随着不断的吞咽越发舒展开来
				ELSE
					PRINTFORMW %CALLNAME:TARGET%将口中的精液咀嚼了一番、
					PRINTFORMW 接着将舌头伸出、沿着洞口的边缘开始舔舐
					PRINTFORMW 小口微张着、白色透明的液体从口中流出、顺着舌尖流淌在木制的壁穴上
				ENDIF
			ENDIF
		ENDIF

; ========================================= 深喉+

	CASE "深喉口交"
		NOW_HPLAY = 4
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_口交")
		IF ABL:舌靈活 >= 5 && RAND:2
			PRINTFORMW 用伸出的舌頭%TEXTR("將信徒的阴茎挑弄著愛撫的同時、/將龜頭用食道痙攣的肌肉摩挲的同時")%、將整根陰莖用口腔與咽喉侍奉著……
		ELSEIF RAND:2 == 0
			PRINTFORMW 將整個咽喉驅使著刺激深入口中的陰莖……
		ELSE
			PRINTFORMW 用抽搐的咽喉侍奉著、讓啾嚕啾嚕的淫亂水聲與壓抑著的呻吟隨著頭頸的動作不斷迴響著……
		ENDIF
		IF SHASE == 1
			PRINTFORML
			CALL SET_CEVENT("NTRS_精飲")
			CALL SET_CEVENT("忏悔室_嘴中精液",TARGET)
			CALL ADD_STAIN, TARGET, "Ｍ", "精液"
			NOW_HPLAY = 11
			PRINTFORMW 吮吸着将肉棒吞至根部、让肿胀的龟头直抵喉咙的深处
			PRINTFORMW 阴茎在口腔中激烈的脉动着、滚烫浓稠的精液直接注入进%CALLNAME:TARGET%的食道、顺着重力流入胃中
		ENDIF

; ======================================== 切换至欲望之间

	CASE "切换至欲望之间"
		NOW_HPLAY = 9
		STATUS = 2
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_露出")
		PRINTFORMW 要跟着%CALLNAME:TARGET%一起进去吗
		CALL PRINT_SELECT, "一起进去/还是算了";/简易事件
		IF RESULT == 0
			STATUS = 3
			IF CEVENT("欲望之间_进入_初次",TARGET) && TALENT:淫乱 && ABL:露出癖 >= 5
				CALL SET_CEVENT("欲望之间_进入_初次",TARGET)
				PRINTFORMW 「%CNAME("主人")%要更近距离的看吗、其实也不是不行啦、那%CNAME("主人")%先跟我进来把」
				PRINTFORMW %CALLNAME:TARGET%拉着你进入了欲望之间、
				PRINTFORMW 里面一片黑色、伸手不见五指、似乎有隔音的法阵、显得格外安静、
				PRINTFORMW 与此同时、其他的声音就显得格外清晰、%CALLNAME:TARGET%衣服的摩擦声、口中的呼吸声、都清晰可闻
				PRINTFORMW 「%CNAME("主人")%就站在靠墙这边吧、有认知模糊的神术、进来的信徒们不会发现你的」
				PRINTFORMW 「所以说、这可是特等席哦」

				PRINTFORMW 不一会、另一边的入口的帘布被掀开、伴随着光纤、能看到是一位身材健硕的中年农夫、不过在认知模糊的加持下、无法看清他的脸
				PRINTFORMW 男人看到穿着修女服、身材可人的%CALLNAME:TARGET%后、明显呼吸粗重了许多、
				PRINTFORMW 随着帘子被放下、欲望之间再次沉入了黑暗之中

				PRINTFORMW 淅淅索索的脱衣声、像是故意一般、%CALLNAME:TARGET%的衣服不断地被丢到你的脚边
				PRINTFORMW 当最后一件略带温热的胖次被丢到你的手上后、你意识到、现在%CALLNAME:TARGET%跟那个男人已经是全裸的状态了
				PRINTFORMW 他们接下来要做的事情也不言而喻
				PRINTFORMW 细微的触碰声如同海上遥远处微弱的灯光一般、弱小却清晰地落在心里
				PRINTFORMW 那是嘴唇触碰的音符、
				PRINTFORMW 一下、
				PRINTFORMW 两下、
				PRINTFORMW 渐渐不在满足于轻轻地触碰、每次触碰都会停留更长的时间
				PRINTFORMW 直到某次后、不在分开
				PRINTFORMW 缠绵的水声开始响起、唾液在嘴唇的开合间浸润开来
				PRINTFORMW 彼此的舌尖小心试探着、如同胆小的雏鸟从壳中探出头来、探索着世界
				PRINTFORMW 小心翼翼间又会不自觉的碰到对方
				PRINTFORMW 试探几次后、不在顾忌的纠缠交织在一起
				PRINTFORMW 进行着一场浓密又热烈的接吻
				PRINTFORMW
				PRINTFORMW 当然、这一切都清晰地传入你的耳中
				PRINTFORMW 甚至、你还能听到男人粗糙的手在%CALLNAME:TARGET%光洁细腻的背部抚摸的摩擦声
				PRINTFORMW 还有缠绵的水声中偶尔露透出的%CALLNAME:TARGET%悦耳的呻吟
				CALL SET_CEVENT("NTRS_接吻")
				CALL SET_CEVENT("NTRS_爱抚")
			ELSE
				PRINTFORMW 「%TEXTR(@"%CNAME("主人")%喜欢这样吗/这样会感觉更刺激吗")%」
				PRINTFORMW 「虽然有认知妨碍的术式、但%CNAME("主人")%最好还是要安分一点哦、要是被信徒发现就遭了」
				PRINTFORMW
				PRINTFORMW 你紧跟着%CALLNAME:TARGET%一起进入了隔间之中
			ENDIF
		ELSE
			IF TALENT:淫乱 == 0
				PRINTFORMW 「就算是发出奇怪的声音、%CNAME("主人")%也不可以偷看哦」
			ELSEIF TALENT:淫乱 && ABL:露出癖 <= 5
				PRINTFORMW 「要是有奇怪的声音、%CNAME("主人")%偷看也是没关系的」
				PRINTFORMW 「不过要注意别被信徒们发现就好」
			ELSEIF TALENT:淫乱 && ABL:露出癖 > 5
				PRINTFORMW 「%CNAME("主人")%一会要偷看吗、那%CNAME("一人称")%可得好好地表现才行呢」
				PRINTFORMW 「其实进来看也没关系的、有认知模糊的关系、客人应该也不会发现」
			ENDIF
			PRINTFORMW %CALLNAME:TARGET%掀起黑色的帘幕、进入了漆黑的隔间之中
			PRINTFORMW
			PRINTFORMW 不一会、一件件衣物%TEXTR("从帘幕缝隙中被丢出/从帘幕的底部被踢出")%
		ENDIF

; ======================================== 切换至迷途之室
	CASE "切换至迷途之室"
		NOW_HPLAY = 10
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_露出")
		IF CEVENT("迷途之室_服务_初次",MASTER) == 0
			CALL SET_CEVENT("迷途之室_服务_初次",MASTER)
			PRINTFORMW 『感谢你、修女小姐』
			PRINTFORM 『你的
			IF BEFORE_HPLAY == 1 || BEFORE_HPLAY == 4
				PRINTFORM %TEXTR("口交/嘴巴")%
			ELSEIF BEFORE_HPLAY == 2 || BEFORE_HPLAY == 13
				PRINTFORM %TEXTR("奶子/胸部")%
			ELSEIF BEFORE_HPLAY == 3
				PRINTFORM 手交
			ELSEIF BEFORE_HPLAY == 11
				PRINTFORM 嘴巴
			ELSE
				PRINTFORM 身体
			ENDIF
			PRINTFORML 真是太舒服了、感觉脑子都要化开了』
			PRINTFORMW 『但是我的肉棒还没有满足、要是能做爱的话、』
			PRINTFORMW 正如信徒所说、刚刚才射精完的阴茎、依旧挺立着
			PRINTFORMW 「%CNAME("主人")%、你看、信徒在请求哦」
			PRINTFORMW %CALLNAME:TARGET%轻抚着信徒依旧勃起着的肉棒

			PRINTFORMW 「看来客人您的欲望格外的强烈呢、」
			PRINTFORMW 「请您移步右手边的房间、让我们继续忏悔好吗」
			PRINTFORMW 『好、好的』
			PRINTFORMW 信徒将肉棒收了回去、黑色的帘幕重新将洞口盖住
			PRINTFORMW %CALLNAME:TARGET%从窗口前起身、修女袍长长的裙摆再次将%CALLNAME:TARGET%穿着白色丝袜的长腿遮住
			IF ABL:精液中毒 >= 5
				CALL PRINT_STRW, @"「%CNAME("主人")%~_HH_」"
				PRINTFORMW %CALLNAME:TARGET%贴近了你、莲藕般白嫩的双臂架在你的肩膀上
				PRINTFORMW 将那张沾着些许污浊却依旧动人的脸庞凑了过来、
				PRINTFORMW 吐息喷在你的嘴边、甚至能清晰的看到她小嘴周围一圈透明而晶莹的细腻痕迹
				PRINTFORMW 「虽然用%TEXTR("刚刚侍奉完信徒/刚刚跟信徒口交")%的嘴巴跟%CNAME("主人")%接吻会让%CNAME("一人称")%很有背德感」
				PRINTFORMW 「但是%CNAME("一人称")%都这么努力了、%CNAME("主人")%可以奖励一个kiss给我吗」
				CALL PRINT_SELECT, "KISS/拒绝"
				IF RESULT == 0
					NOW_HPLAY = 24
					CALL SET_CEVENT("NTRS_接吻")
					CALL PRINT_STRW, @"「谢谢%CNAME("主人")%、最喜欢你了_HH_」"
					CALL KISS_VOICE(3+RAND:2)
					PRINTFORMW 「%CNAME("主人")%的味道~」
					PRINTFORMW 没过太久、%CALLNAME:TARGET%主动与你分开
					PRINTFORMW 残留的唾液像是一丝丝柔软的丝线、拉着细细的丝、从你的嘴角一直连到%CALLNAME:TARGET%舌尖
					PRINTFORMW 「这样就足够了」
					PRINTFORMW 「接下来就是、跟信徒做爱哦」
					PRINTFORMW 「想来那位估计已经等不及了」
					PRINTFORMW 「也许一进去就会被侵犯呢」
					PRINTFORMW 「刚才那根肉棒%CNAME("主人")%也看到了吧」
					PRINTFORMW 「那个长度跟形状、还有硬度、一定能把任何女性的小穴都搞得乱七八糟的吧」
					PRINTFORMW 「在我出来之前还请%CNAME("主人")%好好忍耐哦」
				ELSE
					PRINTFORMW 「抱歉、%CNAME("主人")%」
					PRINTFORMW 「我只是想在去之前补充一点%CNAME("主人")%的成分」
					PRINTFORMW 「不过这样对里面的信徒就不虔诚了呢」
				ENDIF
			ELSE
				PRINTFORMW 「那个房间应该还是第一次使用吧、」
				PRINTFORMW 「作为第一个使用的人、%CNAME("一人称")%会好好地利用好它的」
			ENDIF
		ELSE
			PRINTFORMW %CALLNAME:TARGET%指引信徒前往旁边的迷途之室
			PRINTFORMW 在你嘴上甜甜的亲吻了一下后、走向了迷途之室的门
			CALL SET_CEVENT("NTRS_接吻")
		ENDIF
		IF RAND:2 == 0 || MARK:淫紋
			PRINTFORM 在进入前、%CALLNAME:TARGET%
			IF TALENT:高贵 && RAND:2
				PRINTFORMW 回过身、提起裙摆向你行了一礼
			ELSEIF TALENT:小悪魔 && RAND:2
				PRINTFORMW 向你调皮的眨了眨眼睛
			ELSEIF TALENT:温柔 && RAND:2
				PRINTFORMW 对你温柔的一笑
			ELSEIF TALENT:害羞 && RAND:2
				PRINTFORMW 回过身、满脸通红地看了看你
			ELSEIF TALENT:恋慕 && RAND:2
				PRINTFORMW 向你递了一个充满爱意地眼神
			ELSE
				PRINTFORMW 回过身、用手放在嘴边呈喇叭状、悄声说道
				PRINTFORML
				PRINTFORMW 「还请%CNAME("主人")%稍等片刻哦」
			ENDIF
		ENDIF
		IF MARK:淫紋
			PRINTFORMW 你能看到%CALLNAME:TARGET%地修女服上、小腹的淫纹透过单薄的布料闪烁着粉红的颜色
			PRINTL
			CALL PRINT_CUTIN, "淫紋", TARGET
			CALL PRINT_STRW, @"爱心粉紅_%CALLNAME:TARGET%被刻上的淫纹发出了妖艳的光…"
			PRINTFORMW
		ENDIF

	CASE "接待信徒"
		PRINTFORML
		PRINTFORMW 在%TEXTR("简单的寒暄/互相打过招呼/彼此问候了几句")%之后
		IF TALENT:高贵 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%整理了下%TEXTR("头发/衣服")%、端庄的跪坐在%DIRTY_DECRIPTION(TCVAR:571)%盖着黑色帘幕的洞口前
			PRINTFORMW 向着洞口的另一面发出邀请
		ELSEIF TALENT:小悪魔 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%嬉笑着、将俏脸靠近%DIRTY_DECRIPTION(TCVAR:571)%盖着黑色帘幕的洞口、向对面发出邀请
		ELSEIF TALENT:温柔 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%安静的坐在%DIRTY_DECRIPTION(TCVAR:571)%盖着黑色帘幕的洞口前、以温柔的语气发出邀请
		ELSEIF TALENT:害羞 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%在%DIRTY_DECRIPTION(TCVAR:571)%洞口前、满脸通红、细弱蚊蝇地向另一边发出邀请
		ELSEIF TALENT:淫乱 && RAND:2
			PRINTFORMW %CALLNAME:TARGET%主动地掀起黑色地帘幕、将嘴巴贴在%DIRTY_DECRIPTION(TCVAR:571)%洞口、向着另一边发出最直接地邀请
		ELSE
			PRINTFORMW %CALLNAME:TARGET%俯下身、对着%DIRTY_DECRIPTION(TCVAR:571)%洞口的另一侧发出邀请
		ENDIF
		PRINTFORMW 随后、一根%GENBU_DECRIPTION(SIZE)%%TEXTR("从洞口/推开黑色的帘幕从另一边")%%TEXTR("探出/伸出/出现")%

	CASE "聊天"
		PRINTFORML
		PRINTFORMW 你与%CALLNAME:TARGET%有一搭无一搭的闲聊着、好在有神术的影响、对面的信徒是听不到未经神术发出的声音
		IF !CEVENT("当前信徒未服务",TARGET)
			PRINTFORMW %CALLNAME:TARGET%服务着信徒的同时、时不时地回应你一下
		ENDIF
	; ============================================= 打发时间（原地等待）欲望之间&迷途之室通用
	CASE "打发时间"
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_露出")
		IF STATUS == 2 || STATUS == 3
			NOW_HPLAY = 9
			IF STATUS == 2
				PRINTFORMW 你在忏悔室中打发着时间
				PRINTFORMW 旁边欲望之间厚重的黑色幕帘后方不时的传来
			ELSE
				IF CEVENT("欲望之间_进入_初次",MASTER) == 0
					NOW_HPLAY = 6
					CALL SET_CEVENT("欲望之间_进入_初次",MASTER)
					PRINTFORMW 男人让%CALLNAME:TARGET%背过身去、从身后抱住她
					PRINTFORMW 这样的姿势、让%CALLNAME:TARGET%正对着你、甚至还能感觉到她灼热的呼吸喷吐在你的胸前
					PRINTFORMW 『修女小姐、我能插进去吗』
					PRINTFORMW 「不可以哦、这里是不可以做那种事的」
					PRINTFORMW %CALLNAME:TARGET%的声音从你身前非常近的地方响起
					PRINTFORMW 「不过、%CNAME("一人称")%也会帮你的」
					PRINTFORMW 「请你把阴茎插入我大腿根部的缝隙当中来」
					PRINTFORMW 「对、就是这样、接着我会夹紧哦」
					CALL PRINT_STRW, @"『夹紧吗？ 喔喔~~_HH_』"
					PRINTFORMW 男人发出了一声呻吟、似乎是收到了极大的刺激
					PRINTFORMW 「虽然不是真正的性交、但是请您像性交一般摆动腰部享受起来吧」
					PRINTFORMW 男人摩挲着%CALLNAME:TARGET%的背脊、缓缓向下、然后抓住腰下那丰满的臀肉、在这个伪小穴里抽送起来
					PRINTFORMW 你能清晰的听到前方不远处不断传来
				ELSE
					PRINTFORMW 你在欲望之间的角落中打发着时间
					PRINTFORMW 能清晰的听到前方不远处不断传来
				ENDIF
			ENDIF
			PRINTFORMW %TEXTR("浓密而激烈的接吻的水声/信徒粗重的喘息声与%CALLNAME:TARGET%愉悦的娇哼/淅淅索索的肌肤间互相摩擦的声音/口腔中发出的下流的吮吸声")%
			CALL SET_CEVENT("NTRS_爱抚")
			IF RAND:3 == 0
				CALL SET_CEVENT("NTRS_接吻")
			ENDIF
		ELSE
			NOW_HPLAY = 10
			CALL SET_CEVENT("NTRS_露出")
			PRINTFORMW 你在忏悔室中打发着时间
			PRINTFORMW 迷途之室的隔音非常好、几乎无法听到里面的声音
			PRINTFORMW 只有偶尔门从里面被撞到而发出的沉闷的撞击声、无法想象到门背后的场景
			IF RAND:4 == 0
				CALL SET_CEVENT("NTRS_口交")
				IF RAND:3 == 0
					CALL SET_CEVENT("NTRS_爱抚")
				ENDIF
				IF RAND:2 == 0
					CALL SET_CEVENT("NTRS_精飲")
					CALL SET_CEVENT("NTRS_精液接触")
				ENDIF
				IF RAND:3 == 0
					CALL SET_CEVENT("NTRS_绝顶")
				ENDIF
			ELSEIF RAND:3 == 0
				CALL SET_CEVENT("NTRS_乳交")
				IF RAND:3 == 0
					CALL SET_CEVENT("NTRS_爱抚")
				ENDIF
				IF RAND:2 == 0
					CALL SET_CEVENT("NTRS_精飲")
					CALL SET_CEVENT("NTRS_精液接触")
				ENDIF
				IF RAND:3 == 0
					CALL SET_CEVENT("NTRS_绝顶")
				ENDIF
			ELSE
				IF RAND:3 == 0
					CALL SET_CEVENT("NTRS_接吻")
				ENDIF
				IF RAND:2 == 0
					IF TALENT:処女
						CALL SET_CEVENT("NTRS_肛交")
					ELSEIF RAND:2 == 0
						CALL SET_CEVENT("NTRS_肛交")
					ELSE
						CALL SET_CEVENT("NTRS_性交")
					ENDIF
				ENDIF
				IF RAND:3 == 0
					CALL SET_CEVENT("NTRS_爱抚")
				ENDIF
				IF RAND:2 == 0
					CALL SET_CEVENT("NTRS_绝顶")
				ENDIF
			ENDIF
		ENDIF

; ============================================= 偷窥
	CASE "偷窥"
		NOW_HPLAY = 9
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_露出")
		PRINTFORMW 你掀开黑色帘幕的一丝缝隙向里面看去
		PRINTFORMW 由于恶魔视力的影响、你能轻易的看清黑暗中的东西
		PRINTFORML
		PRINTFORML 里面地场景渐渐显现出来
		PRINTFORMW ....
		PRINTFORMW ..
		IF RAND:4 == 0
			CALL SET_CEVENT("NTRS_爱抚")
			PRINTFORMW %CALLNAME:TARGET%白嫩的娇躯格外显眼、而现在这副身体正靠在信徒的怀中、被一双不安分的双手肆意的玩弄着
			IF RAND:3 == 0
				PRINTFORMW %OBAI_DECRIPTION()%在信徒手中不断变化着形状、两颗挺立的乳头也被重点关照
				PRINTFORMW 从不时飘来的娇哼中能听出、她已经有了%TEXTR("感觉/快感")%
			ELSEIF RAND:3 == 1
				PRINTFORMW 信徒将鼻子埋在%CALLNAME:TARGET%的脖颈处、将那属于美丽女性的美妙气味深深吸入
				PRINTFORMW 一只手大胆的在胸口柔软的乳肉上揉弄、另一只手则在小腹处轻轻摩挲着
			ELSE
				PRINTFORMW 两人如同恋人般面对面紧紧相拥着
				PRINTFORMW 信徒不安分的双手在%CALLNAME:TARGET%%TEXTR("柔软而圆润的臀部温柔的反复抚摸着/光洁而白皙的背部来回摩挲着")%
			ENDIF
		ELSEIF RAND:4 == 1
			CALL SET_CEVENT("NTRS_接吻")
			IF RAND:3 == 0
				NOW_HPLAY = 5
				PRINTFORMW %CALLNAME:TARGET%双手搭在信徒的肩膀上、踮起脚尖、与眼前的男人热烈而缠绵地接吻着
			ELSEIF RAND:3 == 1
				NOW_HPLAY = 5
				PRINTFORMW 两人如同恋人一般、十指相扣的同时、密切的亲吻着
				PRINTFORMW 舌头积极差绕、发出令人%TEXTR("脸红心跳/遐想")%的独特响声
			ELSE
				NOW_HPLAY = 3
				PRINTFORMW %CALLNAME:TARGET%与信徒的舌头缠绕着的同时、纤细的手指握住阴茎、%TEXTR("旋转着/激烈的")%撸动着
			ENDIF
		ELSEIF RAND:4 == 2
			CALL SET_CEVENT("NTRS_口交")
			IF RAND:4 == 0
				PRINTFORMW %CALLNAME:TARGET%蹲在了男性的胯下、努力的前后摆动起头部、发出%TEXTR("巨大/激烈")%的吮吸声
			ELSEIF RAND:4 == 1
				PRINTFORMW %CALLNAME:TARGET%用手轻柔着信徒坠下的阴囊的同时、舌尖在阴茎的杆部来回滑动着
			ELSEIF RAND:4 == 2
				PRINTFORMW %CALLNAME:TARGET%含住龟头的同时、手指在阴茎杆部快速撸动着、先走汁充分浸润了手与阴茎间的缝隙、发出[咕啾咕啾]的下流声音
			ELSE
				PRINTFORMW %CALLNAME:TARGET%环抱住信徒的腰间、将那勃起的肉棒吞入口腔深处、开始深喉的侍奉
			ENDIF
			NOW_HPLAY = 1
		ELSE
			CALL SET_CEVENT("NTRS_爱抚")
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%被信徒从身后抱住、勃起的肉棒在大腿根部的三角区域中来回滑动着
				PRINTFORMW 不安分双手不断在%CALLNAME:TARGET%胸前与小腹之间来回游离着
				NOW_HPLAY = 6
			ELSE
				CALL SET_CEVENT("NTRS_接吻")
				PRINTFORMW %CALLNAME:TARGET%被信徒从正面抱住、粗暴地被夺去了双唇、响起浓密地接吻声
				PRINTFORMW 两片乳房也从身体的挤压中从两边露出了半圆、坚硬的肉棒抵在她柔软的小腹上、先走汁被涂抹开来
			ENDIF
		ENDIF

; ================================= 请求同伴帮你手交
	CASE "帮你手交"
		NOW_HPLAY = 25
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_爱抚")
		IF CEVENT("欲望之间_初次手交",MASTER) == 0
			CALL SET_CEVENT("欲望之间_初次手交",MASTER)
			PRINTFORMW 在明白了你的意思之后、%CALLNAME:TARGET%一瞬间睁大了眼睛
			PRINTFORMW 似乎没想到你会在这个时候提出这样的要求
			PRINTFORMW (在这里？) %CALLNAME:TARGET%用眼神向你询问到
			PRINTFORMW 在得到肯定的答复后、%CALLNAME:TARGET%深吸了一口气
			PRINTFORMW 随后改变了姿势、将臀部对着身后的信徒、一手搭在你的肩上、一手顺着你的胸前滑下、直到握住你挺立的阴茎
			PRINTFORMW 「太狡猾了、这样」
			PRINTFORMW 你知道、%CALLNAME:TARGET%这是在对你说的、而她身后的信徒却认为是自己的成果、不断用自己那勃起的阴茎在%CALLNAME:TARGET%小穴的入口处来回摩擦着
			PRINTFORMW 而此时的%CALLNAME:TARGET%正专注于为你手交的事情上
		ELSE
			PRINTFORMW %CALLNAME:TARGET%将后背朝向信徒、任由其%TEXTR("在她圆润的臀部抓揉着/将阴茎插入夹紧的大腿根部、如同性交般抽送着")%
			PRINTFORMW 忍耐着快感的同时、在尽量不被信徒发现的情况下、%TEXTR("将你的阴茎持续撸动着/用手顺着先走汁在龟头旋转刺激着")%
		ENDIF

; ============================请求同伴帮你素股
	CASE "帮你素股"
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_爱抚")
		NOW_HPLAY = 23
		IF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%柔软的阴唇与大腿将你的阴茎紧紧夹住、在小穴不断流出的淫汁润滑下、紧贴着摩擦着
			PRINTFORMW 你双手紧紧抓住%CALLNAME:TARGET%的臀部、将阴茎插入%CALLNAME:TARGET%早已翘起等待的屁股下方的三角区域中
		ELSE
			PRINTFORMW 为了不让信徒发现一边帮信徒撸动着肉棒的同时、与信徒激烈而浓密的接吻着
			PRINTFORMW 缠绵的水声盖住了你与%CALLNAME:TARGET%
		ENDIF
		IF RAND:3 == 0 || VOLUME == 0
			CALL SET_CEVENT("NTRS_精液接触")
			PRINTFORMW 在%TEXTR(@"%CALLNAME:TARGET%绝佳的技巧下/催淫熏香的刺激下/与%CALLNAME:TARGET%浓密的接吻中")%、信徒%TEXTR("再也无法忍耐/抵抗不住绝顶的念头")%
			PRINTFORMW %GENBU_DECRIPTION(SIZE)%在%CALLNAME:TARGET%的掌心爆发了、%TEXTR("粘嗒嗒的精子将%CALLNAME:TARGET%整个手掌都弄脏了/大量浓厚的精子从%CALLNAME:TARGET%紧握的指缝中挤压着漏了出来")%
		ENDIF
		IF VOLUME == 0
			PRINTFORMW 此时的信徒也耗尽了最后一丝精力、%TEXTR("眼神涣散/双目无神")%地靠在隔间地墙壁上
			PRINTFORMW 而此时的你也到达了爆发的边缘
			CALL PRINT_SELECT, "射精/忍住"
			IF RESULT == 0
				PRINTFORMW 射在哪里
				CALL PRINT_SELECT, "嘴里/手中"
				IF RESULT == 0
					CALL SET_CEVENT("NTRS_精飲")
					PRINTFORMW 你将刚刚侍奉完信徒的%CALLNAME:TARGET%拉了过来
					PRINTFORMW 将%TEXTR("肿胀/完全勃起")%的肉棒插入了%CALLNAME:TARGET%不久前还跟信徒接吻的嘴中
					PRINTFORMW 用浓郁的精液洗刷着%CALLNAME:TARGET%口腔中的每一处地方
				ELSE
					CALL SET_CEVENT("NTRS_精液接触")
					PRINTFORMW 你将刚刚侍奉完信徒的%CALLNAME:TARGET%拉了过来
					PRINTFORMW 抓住%CALLNAME:TARGET%纤细的手、抵在了你阴茎前方
					PRINTFORMW 将已经被柔滑精液覆盖的手掌再一次裹上了一层厚厚的半透明的膜
				ENDIF
			ELSE
				PRINTFORMW %TEXTR("不过要是现在就射的话、有被发现的风险/如果现在爆发的话、说不定就暴露了")%
				PRINTFORMW 你忍住了涌上来的射精感
				IF ABL:精液中毒 >= 5 || TALENT:淫乱
					CALL SET_CEVENT("NTRS_精液接触")
					PRINTFORMW 觉察到你意图的%CALLNAME:TARGET%、转而蹲在了信徒身前
					PRINTFORMW 用嘴巴将那有些软下的污浊肉棒吮吸着清理了干净
				ENDIF
			ENDIF
		ENDIF

	; ===========================与同伴接吻
	CASE "接吻"
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_接吻")
		NOW_HPLAY = 24
		IF STATUS == 3
			PRINTFORMW %CALLNAME:TARGET%%TEXTR("转过头来、小心地跟你吻在了一起/背向信徒、任由他摆弄臀部地同时、与你接吻了")%
			CALL KISS_VOICE(1+RAND:2)
			IF RAND:3 == 0
				PRINTFORMW 信徒拼命为%CALLNAME:TARGET%舔阴的声音遮盖住了你与%CALLNAME:TARGET%接吻的声音
			ELSEIF RAND:2 == 0
				PRINTFORMW 与你亲密地接吻过后为了不让信徒怀疑、%CALLNAME:TARGET%以交换为由、蹲下去吮吸起男人的肉棒、
				PRINTFORMW 用那浓郁的雄性气味来遮掩住口中你的味道
			ENDIF
		;在忏悔之穴、并且刚刚在侍奉信徒的肉棒或口中留有精液
		ELSEIF STATUS == 1 && (BEFORE_HPLAY == 1 || BEFORE_HPLAY == 4 || CEVENT("忏悔室_嘴中精液",TARGET))
			IF BEFORE_HPLAY == 1
				IF RAND:2 == 0
					PRINTFORMW %CALLNAME:TARGET%%TEXTR("停止了口交的动作/将肉棒从口中拔出")%
				ELSE
					PRINTFORMW %CALLNAME:TARGET%吮吸着将信徒的肉棒从口中拔出、
				ENDIF
			ELSEIF BEFORE_HPLAY == 4
				PRINTFORMW %CALLNAME:TARGET%用力吮吸着将肉棒从口中拔出、当龟头被拔出时、还发出[啵~]的真空音、
				PRINTFORMW 几条晶莹的丝线从%CALLNAME:TARGET%伸出的舌尖上被拉开、挂在阴茎的前端与红润的嘴唇之间
			ENDIF
			PRINTFORML
			PRINTFORML
			IF TALENT:高贵 && RAND:2
				IF RAND:2 == 0
					PRINTFORMW 「虽然并没有讨厌信徒的意思、但这样的味道传到%CNAME("主人")%那里可不太好」
				ELSE
					PRINTFORMW 「是不是先漱个口比较好呢」
				ENDIF
			ELSEIF TALENT:小悪魔 && RAND:2
				PRINTFORMW 「下流的味道会传到%CNAME("主人")%那里去也说不定哦」
			ELSEIF TALENT:温柔 && RAND:2
				IF RAND:2 == 0
					PRINTFORMW 「刚才才给信徒口交过的、%CNAME("主人")%不在意吗」
				ELSE
					PRINTFORMW 「等、等下、嘴里面还有没吞下的精子」
				ENDIF
			ELSEIF TALENT:害羞 && RAND:2
				IF RAND:2 == 0
					PRINTFORMW 「现在、、呜——现在不可以」
				ELSE
					PRINTFORMW 「那、那个、会有味道的哦」
				ENDIF
			ELSEIF TALENT:恋慕 && RAND:2
				IF RAND:2 == 0
					PRINTFORMW 「这是对我的奖励吗、好开心」
				ELSE
					CALL PRINT_STRW, @"「我也爱你、%CNAME("主人")%~_HH_」"
				ENDIF
			ELSE
				PRINTFORMW 「要是%CNAME("主人")%不介意这个的话、也不是不可以哦」
			ENDIF
			PRINTFORML
			PRINTFORMW 为了不让信徒察觉、%CALLNAME:TARGET%与你说话的同时转而用手侍奉着
			PRINTFORMW 「我知道了、%TEXTR(@"请%CNAME("主人")%靠近点吧/请靠过来一些吧")%」

			IF TALENT:淫乱 && CEVENT("忏悔室_嘴中精液",TARGET)
				PRINTFORMW %CALLNAME:TARGET%轻轻地舔了舔嘴角，却并未完全擦拭干净。那一圈精液在她笑意盈盈的嘴唇边摇曳、散发着一种近乎诱人的魅力
				PRINTFORML
				PRINTFORMW 「就这样kiss是吗」
				PRINTFORML
				PRINTFORMW %CALLNAME:TARGET%伸出舌头向你展示着舌头上被沾满的绵密液体
				PRINTFORMW 白色的精液如一层柔软的薄纱覆盖在她的舌尖上，轻轻沾满了每一个细小的触点、仿佛是一层柔滑的薄膜
			ELSEIF TALENT:淫乱
				PRINTFORMW %CALLNAME:TARGET%主动张开嘴巴、展示着%TEXTR("里面/口中")% 透明津液与大量因侍奉而产生的绵密泡沫
				PRINTFORML
				PRINTFORMW 「%CNAME("主人")%请看、这是刚才信徒的肉棒在口腔深插后分泌的唾液呢」
				PRINTFORMW 「这样子接吻的话、唾液交换要比平时浓厚的多呢」
			ELSE
				PRINTFORMW 看着近在咫尺的你的脸庞、白皙的脸上染上一抹动人的红霞
				PRINTFORMW %CALLNAME:TARGET%吞咽着口水、似乎想将嘴中的味道都消除掉
				PRINTFORMW 随后小心翼翼的吻在了你的唇边
			ENDIF
			PRINTFORML
			IF TALENT:淫乱 && RAND:2
				PRINTFORMW 随即、%CALLNAME:TARGET%将带着淫液的柔软双唇印在了你的唇上、舌头探入口中、激烈的接吻起来
			ELSE
				PRINTFORMW 随后、将那%TEXTR("周围沾满晶莹水渍/嘴角挂着白色丝线")%的柔软双唇%TEXTR("印了/贴了/靠了")%上来
				PRINTFORMW 与你%TEXTR("浓密/热烈")%地接吻在一起
			ENDIF
			CALL KISS_VOICE(2+RAND:2)
			; =特别（女性%CNAME("主人")%公）
			; 你提出了接吻的请求
			; 满脸精液的%CALLNAME:TARGET%似乎有些犹豫

			; 在你的坚持下、%CALLNAME:TARGET%还是闭上眼睛靠了过来
			; 越是靠近、越能清楚地看到%CALLNAME:TARGET%那动人的脸庞、此刻已被浓厚的白浊覆盖
			; 微微张开的双唇中间、能看到口腔深处残留的粘稠精液
			; 【啾
			; 与%CALLNAME:TARGET%接吻的甜蜜感与浓郁的精子气味扑面而来、形成强烈的反差
			; 温润的口腔刚才却被别的肉棒侵犯、
		ELSEIF STATUS == 1
			PRINTFORM %CALLNAME:TARGET%
			;テンダー接吻
			IF RAND:2 == 0
				IF RAND:3 == 0
					PRINTFORMW %TEXTR("閉上了眼睛/小幅度喘息的同时")%、將身体托付給了%CALLNAME:PLAYER%…
				ELSEIF RAND:2 == 0
					PRINTFORMW 閉上了眼睛、臉頰染上薄薄的紅暈、迎合著%CALLNAME:PLAYER%的動作…
				ELSE
					PRINTFORMW %TEXTR("閉上了眼睛/小幅度喘息的同时")%恍惚地沉浸在快感之中…
				ENDIF
			ELSEIF TALENT:娇小 && TALENT:PLAYER:高大 && RAND:2
				PRINTFORMW 踮着脚用力弥补身高差、为了回应%CALLNAME:PLAYER%而积极地缠绕着舌头…
			ELSEIF RAND:3 == 0
				PRINTFORMW 为了回应%CALLNAME:PLAYER%、积极地缠绕着舌頭…
			ELSE
				PRINTFORMW 你%TEXTR("拨开%CALLNAME:TARGET%脸侧的发丝/捧起%CALLNAME:TARGET%小巧的脸颊")% 对着那柔软的双唇亲了上去
				PRINTFORMW %CALLNAME:TARGET%紧闭双眼、%TEXTR("任由你在她的口中掠夺着/主动配合着")%、滑嫩的香舌与你纠缠在一起
			ENDIF
			CALL KISS_VOICE(1+RAND:2)

		; 在迷途之室
		ELSEIF STATUS == 5
			IF (TALENT:小悪魔 || TALENT:坏心眼) || (RAND:4 && TALENT:恋慕)
				PRINTFORMW 「难不成%CNAME("主人")%看到这里狼狈的场景后、想象着兴奋起来了？」
				CALL PRINT_STRW, @"「真是恶趣味呢~%CNAME("主人")%~_HH_」"
				PRINTFORMW 「你看这里」
				PRINTFORMW %CALLNAME:TARGET%指着黑色沙发上一处不明液体聚成的小水池、白色的浊液与黑色的真皮形成了强烈的对比
				PRINTFORMW 「这是我被那位信徒中出了三次之后、肚子里实在装不下了、从我们的结合处流出的精液聚集成的呢」
				PRINTFORMW 「一边被深吻、一边被中出的感觉实在太爽了」
				PRINTFORMW 「那时候的接吻、就像这样」
				CALL KISS_VOICE(2+RAND:2)
			ELSEIF RAND:2 == 0
				PRINTFORMW 「在刚刚跟信徒SEX过的地方跟%CNAME("主人")%接吻」
				PRINTFORMW 「总感觉有点背德的感觉呢」
			ELSE
				PRINTFORMW 「接吻吗？就在这里？」
				PRINTFORMW 「嘛——倒不是不行啦、就是有点不好意思」
				PRINTFORMW 「既然%CNAME("主人")%不在意的话...」
			ENDIF
		ENDIF
		CALL DEL_CEVENT("忏悔室_嘴中精液",TARGET)

; ============================================乳交
	CASE "乳交"
		NOW_HPLAY = 2
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_乳交")
		IF TALENT:貧乳
			PRINTFORMW %CALLNAME:TARGET%将%GENBU_DECRIPTION(SIZE)%放在自己%OBAI_DECRIPTION()%上、用手压住开始摩擦起来
			PRINTFORMW %CALLNAME:TARGET%撸动着信徒%GENBU_DECRIPTION(SIZE)%的同时、一边用乳头摩擦着玲口
		ELSEIF TALENT:巨乳
			PRINTFORMW %CALLNAME:TARGET%将信徒%GENBU_DECRIPTION(SIZE)%用%OBAI_DECRIPTION()%整个包裹住、直到根部为止整根没入其中、双手抓住乳肉开始摩擦起来
		ELSE
			PRINTFORMW %CALLNAME:TARGET%将信徒%GENBU_DECRIPTION(SIZE)%用%OBAI_DECRIPTION()%轻轻夹住、在先走汁的润滑下开始摩擦起来
			PRINTFORMW %CALLNAME:TARGET%撸动着信徒%GENBU_DECRIPTION(SIZE)%的同时、一边用乳头摩擦着玲口
		ENDIF
		IF SHASE == 1
			PRINTFORML
			PRINTFORMW 在信徒即将到达极限之时
			PRINTFORML
			NOW_HPLAY = 13
			CALL SET_CEVENT("NTRS_精液接触")
			CALL ADD_STAIN, TARGET, "Ｂ", "精液"
			CALL ADD_STAIN, TARGET, "顔", "精液"
			CALL ADD_STAIN, TARGET, "髪", "精液"
			IF TALENT:貧乳
				PRINTFORMW %CALLNAME:TARGET%撸动着信徒%GENBU_DECRIPTION(SIZE)%贴在了自己%OBAI_DECRIPTION()%上
				PRINTFORMW 在精力强化的神术作用下、浓厚的%TEXTR("白色浊液/精液/子种液")% 不断%TEXTR("涌出/射出")%覆盖在%CALLNAME:TARGET%略显贫瘠的胸脯上
				PRINTFORMW 粘稠的液体铺满了整个胸部、若隐若现的嫣红仿佛是奶油蛋糕中点缀的两粒草莓
			ELSEIF TALENT:巨乳
				PRINTFORMW %CALLNAME:TARGET%用棉花糖般的巨大双乳将信徒%GENBU_DECRIPTION(SIZE)%完全包裹住、温柔且持续的刺激着
				PRINTFORMW 阴茎被全部盖住、只能从不时晃动的乳房中能想象到其中正在射精的场景
				PRINTFORMW 不久后、%CALLNAME:TARGET%将胸部从洞口移开、胸部与玲口间、白色的粘液拉起长长的丝线顺着重力垂下
			ELSE
				PRINTFORMW %CALLNAME:TARGET%用双臂将双乳再次加紧、
				PRINTFORMW 信徒%GENBU_DECRIPTION(SIZE)%剧烈鼓动着、即便隔着乳肉也能清晰的看到
				PRINTFORMW 在精力强化的神术作用下、浓厚的%TEXTR("白色浊液/精液/子种液")%很快从乳房上方的缝隙中漏出
				PRINTFORMW 在%CALLNAME:TARGET%的胸前形成了一处小小的白色水潭
			ENDIF
		ENDIF
; ============================================手交
	CASE "手交"
		NOW_HPLAY = 3
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_爱抚")
		; 开场
		IF CEVENT("忏悔室_手交_初次",TARGET) == 0
			CALL SET_CEVENT("忏悔室_手交_初次",TARGET)
			IF RAND:2 == 0
				PRINTFORMW %CALLNAME:TARGET%从置物架上将一瓶透明的润滑剂、将那粘稠质地的液体在手上挤出%TEXTR("少许/一些")%
				PRINTFORMW 接着用双手[咕啾咕啾]的摩擦着、让其充分的浸润手掌的各处
				PRINTFORMW 从肉棒头部开始、侍奉起来
			ELSE
				PRINTFORMW 这位信徒的阴茎前端早已分泌了大量的先走汁
				PRINTFORMW %CALLNAME:TARGET%将其轻轻握住、用掌心温柔的刺激着、接着将再次分泌出的先走汁涂抹至整根肉棒上
			ENDIF
			PRINTFORMW 过了一会
		ENDIF
		IF TALENT:淫乱
			PRINTFORMW 就像是要将尿道中残留的精液一滴不剩地全部榨出来一样
			PRINTFORMW %TEXTR("紧紧地握着/滋噜滋噜地/来回用力地")%%TEXTR("撸动/侍奉/刺激")%着信徒%GENBU_DECRIPTION(SIZE)%
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 繼續時快時慢的%TEXTR("來回撫摸著/輕輕摩挲著")%信徒%GENBU_DECRIPTION(SIZE)%
			ELSE
				PRINTFORMW 将信徒%GENBU_DECRIPTION(SIZE)%持續%TEXTR("細緻而激烈地/用沾滿前列液的手有節奏地")%%TEXTR("撸动/侍奉/刺激")%著……
			ENDIF
			PRINTFORMW 先走汁与润滑剂混合着、伴随着柔嫩手掌与阴茎的挤压、摩擦、%TEXTR("发出[咕啾咕啾]的下流声响/浓密的水声在小小的密室中回响")%
		ENDIF
		IF SHASE == 1
			PRINTFORML
			PRINTFORMW 在信徒即将到达极限之时
			PRINTFORML
			CALL SET_CEVENT("NTRS_精液接触")
			IF ABL:精液中毒 >= 5
				NOW_HPLAY = 11
				CALL SET_CEVENT("NTRS_精飲")
				CALL SET_CEVENT("忏悔室_嘴中精液",TARGET)
				CALL ADD_STAIN, TARGET, "Ｍ", "精液"
				CALL ADD_STAIN, TARGET, "Ｂ", "精液"
				IF RAND:2 == 0
					PRINTFORMW %CALLNAME:TARGET%加快了%TEXTR("撸动/手上")% 的速度、同时在%GENBU_DECRIPTION(SIZE)%的下方伸出舌头、大大地张开嘴巴、摆出一副承接精液地姿态
					PRINTFORMW 似乎感受到阴茎前方传来地若有若无地鼻息、本就完全勃起地肉棒再次膨胀了一点
					PRINTFORMW 终于%TEXTR("被神术强化过的/充满新鲜精液的")%阴囊猛烈地收缩起来、在阴茎剧烈地鼓动下、%TEXTR("浓郁的/浓稠地/浓厚的")%精液化成一道略粗的白色线条飞入%CALLNAME:TARGET%等待的口中
				ELSE
					PRINTFORMW %CALLNAME:TARGET%主动地含住了信徒肉棒尖端的玲口、让那膨胀到极限的阴茎在自己饥渴的嘴中爆发
					PRINTFORMW 在精力强化神术的作用下、%CALLNAME:TARGET%小巧的口腔很快承接不下如此大量的精液、
					PRINTFORMW 即便纤细脖颈不断鼓动吞咽着、还是有大量的白色浊液从口中溢出、顺着下巴划过还在吞咽的脖子、流入修女服的领口当中
					PRINTFORMW 过了许久、漫长的射精才终于结束
					PRINTFORMW %CALLNAME:TARGET%贴心地伸出舌头将玲口处%TEXTR("残留的/拉着丝垂落的")%精液舔入口中
				ENDIF
			ELSE
				NOW_HPLAY = 12
				CALL ADD_STAIN, TARGET, "手", "精液"
				CALL ADD_STAIN, TARGET, "顔", "精液"
				PRINTFORMW %CALLNAME:TARGET%加快了%TEXTR("撸动/手上")% 的速度、同时用另一只手%TEXTR("握住阴茎的前端、刺激着龟头/挡在阴茎的前端、用掌心不断刺激着龟头")%
				PRINTFORMW 终于信徒%GENBU_DECRIPTION(SIZE)%开始剧烈的鼓动起来
				IF RAND:2 == 0
					PRINTFORMW 浓厚的精液如果冻般从%CALLNAME:TARGET%紧握住的手指缝隙中不断的挤出、顺着细嫩的手臂流下、滴落在忏悔室深色的地板上
				ELSE
					PRINTFORMW 大量的精液在手心与龟头间小小的空隙中爆发了、大量的浊液从指缝间被挤压着飞溅而出、发出[噗滋噗滋]的声响
					PRINTFORMW 有几缕甚至落在了%CALLNAME:TARGET%的脸上
				ENDIF
			ENDIF
		ENDIF

; ============================================ 让%CALLNAME:TARGET%展示乳房
	CASE "展示胸部"
		CALL SET_CEVENT("NTRS_发生")
		CALL SET_CEVENT("NTRS_露出")
		PRINTFORMW 「怎么了、%CNAME("主人")%」
		PRINTFORMW 「对胸部很在意吗」
		PRINTFORMW 「那就让%CNAME("主人")%好好看看好了」
		PRINTFORMW %CALLNAME:TARGET%用双手将乳房从下方托起、让两团棉花糖般的乳肉一上一下的晃动起来
		PRINTFORMW 柔软雪白的双峰在挤压变形的同时、发出[咕啾咕啾]的搅拌声
		PRINTFORMW 「%CNAME("主人")%请看~」
		PRINTFORMW %CALLNAME:TARGET%%TEXTR("微笑着/開心地笑着")%%CALLNAME:TARGET%用%TEXTR("両手")%将、%TEXTR("豊満的/肉厚の/仿佛要从手掌上洒落下来的")%%TEXTR("乳沟/胸部の間")%左右打开、
		PRINTFORMW 粘稠的精液在%CALLNAME:TARGET%雪白的双峰间拉出了几条长长的丝线、双乳内侧也被大片的精液打湿、在灯光下反射着妖艳的色泽
		IF ABL:MASTER:精液中毒 >= 3
			NOW_HPLAY = 22
			PRINTFORMW 「%CNAME("主人")%勃起的很厉害哦、是看到我的胸部被别人的肉棒弄成这样所以兴奋起来了吗」
			PRINTFORMW 「那%CNAME("主人")%想要插进这样黏糊糊的胸部里来吗」
			PRINTFORMW 「当然可以哦、只要%CNAME("主人")%不介意的话」
			PRINTFORMW %CALLNAME:TARGET%用手肘再次将乳房夹紧、不少粘稠的液体随着乳房的挤压、从前面的缝隙中被挤出、发出[噗滋]的声响
			CALL PRINT_STRW, @"「请享用吧_HH_~%CNAME("主人")%_HH_~~」"
			PRINTFORMW 你将阴茎抵在%CALLNAME:TARGET%双乳的缝隙上、用之前信徒的精液充当润滑剂、毫无阻隔的便插入进去
			PRINTFORMW 前一位信徒浓厚的精液填充了阴茎与乳肉间的缝隙、温柔的挤压感不断刺激着你
			PRINTFORMW 「我%TEXTR("的乳房舒服吗/这样做舒服吗")%」
			PRINTFORMW 让你阴茎的前端从乳肉的缝隙中漏了出来
			PRINTFORMW 由于刚才在%CALLNAME:TARGET%双乳之间的动作、龟头上裹满了大量胸部中残留的浓郁的白色浊液
			IF ABL:精液中毒 >= 4
				PRINTFORMW 而%CALLNAME:TARGET%毫不介意的直接吻了上去、用柔软的舌头将尖端的精液挂入口中
				PRINTFORMW 随后与龟头浓密的吮吸接吻起来
			ELSE
				PRINTFORMW %CALLNAME:TARGET%看着污浊的龟头有些犹豫、但还是探出舌尖小心地凑了上去
				PRINTFORMW 在接触的一刹、小巧的眉头皱起、但最终还是强忍着含住了尖端开始侍奉起来
			ENDIF
			PRINTFORMW 「要射了吗、想射的话随时都可以哦」

			PRINTFORMW 「胸部里面一颤一颤的、」
			PRINTFORMW 「%CNAME("主人")%的精液跟之前的混杂在一起了呢」
		ENDIF

	CASE "拍照"
		CALL SET_CEVENT("NTRS_露出")
		CALL SET_CEVENT("NTRS_发生")
		PRINTFORMW 你将手机对准%CALLNAME:TARGET%、按下了快门
		IF STATUS == 1
			PRINTFORM 在%DIRTY_DECRIPTION(TCVAR:571)%的洞口前、
			IF RAND:4 == 0
				PRINTFORM 摆出下流口交姿势
			ELSEIF RAND:4 == 1
				PRINTFORM 将嘴巴贴在洞口上
			ELSEIF RAND:4 == 1
				PRINTFORM 伸出舌头舔舐洞口边缘
			ELSE
				PRINTFORM 对着洞口摆出祈祷姿势
			ENDIF
			PRINTFORMW 的%CALLNAME:TARGET%
		ENDIF

	CASE "激活透明神术"
		NOW_HPLAY = 10
		CALL SET_CEVENT("NTRS_发生")
		PRINTFORMW 神术被激活、木质的墙壁逐渐变得透明起来
		IF RAND:8 == 0
			CALL SET_CEVENT("NTRS_接吻")
			CALL SET_CEVENT("NTRS_爱抚")
			PRINTFORMW 与%CALLNAME:TARGET%在欲望之间的沙发前站立着浓密地接吻着
			PRINTFORMW 信徒身下早已肿胀起来、%CALLNAME:TARGET%地小手一路下探、隔着裤子在信徒的阴茎处温柔的抚摸着
		ELSEIF RAND:8 == 0 && TALENT:処女 == 0
			CALL SET_CEVENT("NTRS_接吻")
			CALL SET_CEVENT("NTRS_性交")
			PRINTFORMW 对面的%CALLNAME:TARGET%像是与你心有灵犀一般、来到了墙边
			PRINTFORMW 双手撑着墙面、与你隔墙相望、%CALLNAME:TARGET%虽然无法从那一侧看到你、却知道你一定在关注着她
			PRINTFORMW 男人走到%CALLNAME:TARGET%的身后、在她挺翘的臀部上抓揉了几下后、握着肉棒对准了小穴的入口
			PRINTFORMW 「%CNAME("主人")%、请好好看着吧」(唇语)
			PRINTFORMW 说罢、%CALLNAME:TARGET%开始主动地摆动起臀部、在你的面前下流的迎合着身后男人
			PRINTFORMW 男人受此刺激双手环住%CALLNAME:TARGET%的腰部、更加剧烈地进攻起小穴的深处
			CALL KISS_VOICE(2+RAND:2)
			PRINTFORMW 男人伸过头来、靠近了%CALLNAME:TARGET%脸庞
			PRINTFORMW %CALLNAME:TARGET%朝着你的方向看了一眼、接着张开嘴、与男人激烈的亲吻在一起
			PRINTFORMW 两人的舌头纠缠着、大量的口水在摩擦中不停地流下
			NOW_HPLAY = 7
		ELSEIF RAND:8 == 0 && TALENT:処女 == 0
			CALL SET_CEVENT("NTRS_接吻")
			CALL SET_CEVENT("NTRS_性交")
			PRINTFORMW %CALLNAME:TARGET%仰躺在沙发上、被随后而来的男人扒开双腿、呈M字的姿势将私处毫无保留的展示着
			PRINTFORMW 男人迫不及待的将阴茎对准了小穴的入口、紧接着一边将%CALLNAME:TARGET%粗暴地压在身下亲吻着、一边将肉棒缓缓推入深处
			PRINTFORMW %CALLNAME:TARGET%赤裸的双足在空中无助摆动、随着肉棒的深入、珍珠般的脚趾可爱的蜷缩起来
			PRINTFORMW 从你的角度看、正好能够看到两人性器结合的地方
			PRINTFORMW %CALLNAME:TARGET%的小穴仿佛无底洞般、将长长的肉棒吞入其中、直到全根插入、满是褶皱的玉袋紧贴在阴唇上、
			PRINTFORMW 遮住了小穴的模样、只有下方粉色的菊穴还在一张一合的收缩着
			NOW_HPLAY = 7
		ELSEIF RAND:8 == 0
			CALL SET_CEVENT("NTRS_口交")
			CALL SET_CEVENT("NTRS_绝顶")
			PRINTFORMW %CALLNAME:TARGET%正躺坐在沙发上、双腿大大的张开着朝向这边
			PRINTFORMW 男人背对着半蹲在沙发上、两腿分开着、将%CALLNAME:TARGET%的嘴巴当做小穴一般、不断抽送着
			PRINTFORMW 男人双手抱住%CALLNAME:TARGET%的头发、粗壮的阴茎将粉嫩的双唇大大的撑开
			PRINTFORMW 从这边无法看到%CALLNAME:TARGET%的表情、只能看到男人黝黑的阴茎和%CALLNAME:TARGET%不断滴落着唾液的下唇
			PRINTFORMW 不过随着男人的进攻、%CALLNAME:TARGET%张开的双腿之间、那身为女性的秘密之所愉悦的开合着
			PRINTFORMW 不断有精液从中流出、在地板上晕开一朵白色的花瓣
			PRINTFORMW %CALLNAME:TARGET%似乎是在享受被陌生男人强暴喉咙的感觉
			NOW_HPLAY = 1
		ELSEIF RAND:8 == 0
			CALL SET_CEVENT("NTRS_口交")
			CALL SET_CEVENT("NTRS_绝顶")
			PRINTFORMW 男人双腿叉开着、坐在沙发上
			PRINTFORMW 浑身赤裸的%CALLNAME:TARGET%正跪坐在男人的胯下、卖力的侍奉着
			PRINTFORMW %CALLNAME:TARGET%一手托着男人的玉袋、一手握着阴茎的根部、像是品尝美味一般、舔舐着男人的肉棒
			PRINTFORMW 有时还会低下头、将阴茎深深地吞入口腔深处、强烈的刺激让%CALLNAME:TARGET%微微颤抖、身下的小穴也会因此流下淫液
			PRINTFORMW 男人此刻也会将双手插入%CALLNAME:TARGET%的秀发中、紧紧地抱着她的头、以告知%CALLNAME:TARGET%自己舒服的事实
			PRINTFORMW 而%CALLNAME:TARGET%则会更加尽力的侍奉起来
			NOW_HPLAY = 1
		ELSEIF RAND:8 == 0
			CALL SET_CEVENT("NTRS_精液接触")
			PRINTFORMW 男人拔出肉棒对准了%CALLNAME:TARGET%的脸庞
			PRINTFORMW 在[精力强化]神术与熏香的帮助下、男人的精液如同喷泉般从玲口喷薄而出
			PRINTFORMW 一瞬间便将%CALLNAME:TARGET%的脸铺满了、即便%CALLNAME:TARGET%张开嘴承接着、也被很快填满、多余的精液不断地溢出、流下
			PRINTFORMW 男人也将肉棒对准了%CALLNAME:TARGET%身体各处
			PRINTFORMW 脖颈、腋下、双臂、乳房、小腹、大腿、都被浓郁的精液覆盖
			PRINTFORMW 浑身泛着透明色光泽的%CALLNAME:TARGET%、沐浴在精液之中
			NOW_HPLAY = 14
		ELSEIF RAND:8 == 0
			CALL SET_CEVENT("NTRS_肛交")
			PRINTFORMW 男人半躺着坐在沙发上、双手托起%CALLNAME:TARGET%细腻的大腿、向两边呈M字打开
			PRINTFORMW %CALLNAME:TARGET%后仰着、用手撑在男人胸前支撑着重量
			PRINTFORMW %GENBU_DECRIPTION(SIZE)%撑开紧闭的菊穴、在大量润滑剂的帮助下、毫无阻塞的来回抽插着
			IF TALENT:処女
				PRINTFORMW 那身为处女的紧致小穴
			ELSE
				PRINTFORMW 上方那%TEXTR("一张一合/粉嫩/娇嫩")%小穴
			ENDIF
			PRINTFORMW 在菊穴%TEXTR("的刺激中/巨大的快感中")% 不断分泌着%TEXTR("爱液/淫液")%、顺着重力流到肉棒杆部、再一口气被推入肠道深处
			NOW_HPLAY = 8
		ELSEIF RAND:8 == 0 && TALENT:処女 == 0
			CALL SET_CEVENT("NTRS_性交")
			PRINTFORMW %CALLNAME:TARGET%正被男人从背后抱起、双腿在男人两手间大大的张开着、面向着墙壁
			PRINTFORMW 赤裸的娇躯一览无余、饱满的乳房跟随者上下晃动
			PRINTFORMW 下方的坚硬肉棒正疯狂的冲刺着%CALLNAME:TARGET%的小穴
			NOW_HPLAY = 7
		ELSEIF RAND:8 == 0 && TALENT:処女 == 0
			CALL SET_CEVENT("NTRS_绝顶")
			CALL SET_CEVENT("NTRS_精液接触")
			PRINTFORMW 男人将肉棒深深的插入小穴的最深处、身体颤抖着、将一波又一波的精液注入%CALLNAME:TARGET%的子宫之中
			PRINTFORMW %CALLNAME:TARGET%也因精子的注入而高潮了、紧紧抱住男人、赤裸的身体不断痉挛着
			NOW_HPLAY = 15
		ELSE
			CALL SET_CEVENT("NTRS_绝顶")
			PRINTFORMW 仿佛心意相通一般、%CALLNAME:TARGET%看向了你的方向
			PRINTFORMW 接着将本就张开的双腿向着两侧再次打开了一些
			PRINTFORMW 毫无保留的暴露着淫液四溅的结合处
		ENDIF

; ===============================================查看状态
	CASE "查看忏悔之窗"
		IF STATUS == 1
			PRINTFORMW 当前%CALLNAME:TARGET%正在使用忏悔之窗
			RETURN
		ENDIF
		IF TCVAR:571 == 0
			PRINTFORMW 你靠近了忏悔之窗、仔细打量着
			PRINTFORMW 由于净化魔法的存在、小小的窗口一尘不染、黑色的帘子也光洁如新
		ELSE
			PRINTFORM 窗口的下沿、黑色的帘子上沾染着
			IF TCVAR:571<3
				PRINTFORMW 些许白色的精液
			ELSEIF TCVAR:571 <10
				PRINTFORMW 不少白色的精液
				PRINTFORMW 在熏香与神术的作用下、精子的活性格外的高、极强的粘性导致帘幕上已经挂着不少信徒们残留的精液
			ELSE
				PRINTFORMW 大量白色的精液
				PRINTFORMW 粘稠的精液已经将整个窗口都覆盖了、到处都是拉着丝、垂落的精液、整个窗口都泛着淫靡的光泽
				PRINTFORMW 还有不少沿着墙壁留下、在地上聚起了小小的一滩
				PRINTFORMW 能够想象到%CALLNAME:TARGET%是如何在这种情况下为信徒进行忏悔的
				PRINTFORMW 光是靠近那浓郁的味道便钻入鼻腔、更别说将小嘴贴在上面了、怕是刚贴在上面、脸上就会被挂上浓稠的精子吧
			ENDIF
		ENDIF

	CASE "查看欲望之间"
		IF TCVAR:572 == 0
			PRINTFORMW 由于客人不在、你拉开旁边隔间的帘幕、进入欲望之间打量着
			PRINTFORMW 欲望之间中干干净净、看得出来被清理的很干净
		ELSE
			PRINTFORMW 墙壁上挂着些许精液、地上也有着少许被打湿的痕迹、混杂着点点白色的透明液体
			PRINTFORMW 墙壁上、帘幕的背后、到处都沾着白色的精液
			PRINTFORMW 地上也无法幸免、深色的地板上、散落着无数白色、透明的液体与水渍
		ENDIF

	CASE "查看迷途之室"
		IF TCVAR:573 == 0
			PRINTFORMW 由于客人不在、你打开旁边的门、进入欲望之间仔细打量着
			PRINTFORMW 欲望之间十分整洁、连中间的沙发也被仔细打理的很干净
		ELSE
			PRINTFORMW 在信徒跟%CALLNAME:TARGET%的使用过后、迷途之室中到处都是激烈战斗过的痕迹
			PRINTFORMW 黑色沙发的皮革上印着皮肤紧贴过后的人形痕迹、中央凹陷处聚集着大量白色的浓稠的液体
			PRINTFORMW 旁边的小桌上是几个用过的避孕套与开封的润滑剂
		ENDIF
	CASE "独自离开"
		PRINTFORMW 你将%CALLNAME:TARGET%留在忏悔室中、独自离开了
		IF STATUS == 2 || STATUS == 3
			PRINTFORMW 在你离开后、
			PRINTFORMW %CALLNAME:TARGET%与客人在欲望之间中彼此纠缠、亲吻。。。
			PRINTFORMW 直到许久才结束
		ELSEIF STATUS == 4
			PRINTFORMW %CALLNAME:TARGET%与客人在迷途之室中不断缠绵着
			PRINTFORMW 客人不知疲倦地挥舞着腰肢 享用着%CALLNAME:TARGET%迷人的身体、一遍又一遍的将她送上云端
			PRINTFORMW 将欲望的种子播撒在%CALLNAME:TARGET%的体内
			PRINTFORMW 迷途之室的娇声一直持续到傍晚、信徒一位接着一位的进入、再离开
			PRINTFORMW 直到学校放学时、%CALLNAME:TARGET%才从忏悔室中离开
		ELSE
			PRINTFORMW %CALLNAME:TARGET%在忏悔之窗前、迎接了一个接一个的肉棒
			PRINTFORMW 小小的窗口上、帘幕上、满是精液与唾液的痕迹
			PRINTFORMW %CALLNAME:TARGET%却毫不在意地继续侍奉着、任由散发着雄性气味的精子沾满脸庞
			PRINTFORMW 直到胃中都被精液填满、%CALLNAME:TARGET%才带着意犹未尽的表情离开忏悔室
		ENDIF

ENDSELECT
TCVAR:忏悔室上回H行为 = NOW_HPLAY
RESULT:1 = STATUS
RETURN RESULT

@DIRTY_DECRIPTION,ARG:0
#FUNCTIONS
#DIM DIRTY ;污浊度
DIRTY = ARG:0
LOCALS = ""
IF DIRTY == 0
	LOCALS = %TEXTR("干净/洁净如新")%的
ELSEIF DIRTY < 3
	LOCALS = %TEXTR("有少许液体/有点脏污")%的
ELSEIF DIRTY < 10
	LOCALS = %TEXTR("挂着不少浊液/沾着许多粘稠精液")%的
ELSE
	LOCALS = %TEXTR("铺着厚厚一层粘稠精液/散发着浓郁气味/粘稠液体拉着丝不断垂落")%的
ENDIF
RETURNF LOCALS


code:
;-------------------------------------------------
;日常イベントで特定の行動をした際に、ここで新たな行動が派生する。
;STR:日常イベント名は重置済み
;主に選択肢を出して色々する事となるだろう
;ちなみにここでの行動は你の行動履歴に残す程ではないのでSAVESTR:PREV_日常イベント名 は変化しない
;EVENT_DAILY_EXを呼んでいる場所の後でTARGETは自動的に元に戻される
;-------------------------------------------------
@EVENT_DAILY_EX, ARG, ARGS
#DIMS MEMO_SAVESTR
#DIMS MEMO_SAVESTR2
#DIM MEMO_TARGET

MEMO_TARGET = TARGET
MEMO_SAVESTR = %SAVESTR:PREV_日常イベント名%
MEMO_SAVESTR2 = %SAVESTR:PREV_直前行動%

CALL EVENT_DAILY_EX_MAIN, ARG, ARGS
;EVENT_DAILY_EXでの変化を記録
CALL SET_PREV_DAILYCOM

SIF TARGET <= 0
	TARGET = MEMO_TARGET

SAVESTR:PREV_日常イベント名 = %MEMO_SAVESTR%
;直前行動が変化していたら両方記録する
SIF SAVESTR:PREV_直前行動 != MEMO_SAVESTR2
	SAVESTR:PREV_直前行動 = %MEMO_SAVESTR2%\/%SAVESTR:PREV_直前行動%

SELECTCASE CFLAG:PREV_DAILYCATE
CASE 4, 5, 6, 7
CASEELSE
	;ちんこを弄脏的ままにしておくのはあまり良くないので綺麗にする
	IF PENIS(MASTER) && COND("Ｐ汚れ", MASTER) && COND("Ｐ汚れの相手", MASTER) && FIND_COND("性処理直後") == 0
		IF CFLAG:睡眠 == 0
			DRAWLINE
			PRINTFORMW （休息后冷静下来的%CALLNAME:MASTER%、坐下后把和%CONDS("Ｐ汚れの相手", MASTER)%的Ｈ中弄脏的阴茎擦干净了）
		ENDIF
		CALL RESET_STAIN_EX, "Ｐ", MASTER
	ENDIF
ENDSELECT
;ここで颜绘変化を一旦重置
CVARSET CSTR, GETNUM(CSTR, "颜绘変化")
CVARSET CFLAG, GETNUM(CFLAG, "KOJO_DAILY済")

@EVENT_DAILY_EX_MAIN, ARG, ARGS
#DIM MEMO_LINECOUNT
#DIM MEMO_LINECOUNT_SUB
#DIM MEMO_TARGET
#DIM CHOICE
;阴茎ルートor阴部ルート
#DIM IS_PENISROUTE
#DIMS EVENT_TABLE

TFLAG:地の文スキップ = 0
IS_PENISROUTE = 0
MEMO_TARGET = TARGET

;角色独自のイベントは、ここに書いても良い
DRAWLINE
MEMO_LINECOUNT = LINECOUNT
CALL KOJO_DAILYCOM, "特殊事件", "改行没有"
;何か起きていたらここまで
IF LINECOUNT > MEMO_LINECOUNT
	RETURN 1
ELSE
	CLEARLINE 1
ENDIF

CALL BLANK_DRAWLINE

MEMO_LINECOUNT = LINECOUNT
;現在進行しているイベントの補足となるような物（指令区分で分岐）
SELECTCASE ARG
;Talk
CASE 1
	SELECTCASE SAVESTR:PREV_日常イベント名
	;雑談中なら调戏かけやすい
	CASE "Talk", "甜言蜜语", "夸奖"
		;レアイベントを上に置く
		IF COND("ながら胖次穿き替え可能") && RAND:3 == 0
			CALL EVENT_ACADEMY, "ながら胖次穿き替え"
		;週末が近づくと约会のお誘いをしてくれるかも
		ELSEIF COND("约会のお誘い可能") && FLAG:対複数 == 0 && (DAY - 1)%7 - 3 > RAND:10
			CALL EVENT_ACADEMY, "约会のお誘い"
		;試験前は特殊なイベントが起きるかも
		ELSEIF COND("Ｈ的約定可能")
			CALL EVENT_ACADEMY, "Ｈ的約定"
		ENDIF
	ENDSELECT
;互动
CASE 2
	SELECTCASE CSTR:PREV_DAILYCOM
	CASE "睡眠姦正常位", "睡眠姦寝后背位"
		CALL EVENT_ACADEMY, "睡眠姦"
	CASE "睡眠姦口交", "睡眠姦逆口交"
		CALL EVENT_ACADEMY, CSTR:PREV_DAILYCOM
	ENDSELECT
;卖个破绽
CASE 3

;检查内褲
CASE 4

;性処理
CASE 6
	SELECTCASE NAMES("性処理")
	CASE "口交", "Ｖ性交", "Ａ性交", "尿道性交"
		;飲尿
		IF BASE:MASTER:尿意 >= 5000 && COND("合意：飲尿PLAY") && FLAG:二人きり + COND("合意：露出PLAY")
			PRINTFORML ……就在這時突然一股%CALLNAME:MASTER%を\@ BASE:MASTER:尿意 >= 8000 ? 強烈 # 溫熱 \@的尿意襲來。要怎麼辦呢？
			CALL PRINT_SELECT, @"%TEXTR("仍由尿意放出/不想麻煩自己/就用這個姿勢")%、拜託%CALLNAME:TARGET%解決/暫時離開去廁所解決"
			SELECTCASE RESULT
			CASE 0
				CALL KOJO_DAILYCOM, "性処理後飲尿PLAY"

				PRINTFORM %CALLNAME:PLAYER%仍由尿意從下體放出、
				IF ABL:奉仕精神 >= 5 && RANDIF(2, ABL:精液中毒 >= 5)
					PRINTFORM %TEXTR("在下巴下用雙手做出碗的形狀準備著的/大大地張開嘴等待著的/從張大的嘴唇中伸出舌頭準備著的")%
				ELSEIF ABL:精液中毒 >= 5 && RAND:2
					IF NAMES("性処理") == "口交"
						PRINTFORM %TEXTR("將射精之後的陰莖再度連根吞入的/再度用舌頭纏住陰莖歡迎陰莖回到嘴中的/嚥下精液之後露出了興奮的表情的")%
					ELSE
						PRINTFORM %TEXTR("將射精之後的陰莖連根吞入的/用舌頭纏住陰莖歡迎陰莖的")%
					ENDIF
				ELSE
					PRINTFORM %TEXTR("親吻了一下陰莖表示同意之後張開嘴唇等待的/還沉醉於性処理氛圍中的/沒有任何不滿的")%
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%%TEXTR("的口当做厕所使用了/的口中放出了尿液/当做小便器使用了")%。
				IF RAND:2
					PRINTFORMW 為了不讓尿液溢出來%CALLNAME:TARGET%努力地仰起脖子、露出了清爽的表情\@ FLAG:二人きり ? # 一邊被別人看著一邊 \@享受起了飲尿PLAY…
				ELSE
					PRINTFORMW 已經有過多次經驗的%CALLNAME:TARGET%\@ FLAG:二人きり ? 用鼻子發出粗重的吐息 # 不顧周圍刺人的視線 \@、熟練地鼓動著喉嚨發出咕嚕嚕地吞嚥聲、將%CALLNAME:MASTER%的聖水一飲而盡…
				ENDIF

				BASE:尿意 += BASE:MASTER:尿意/4
				EXP:飲尿経験 += 1
				PRINTL
				PRINTFORMW 飲尿経験+１
				CALL SETFLAG_DAILY, "廁所", MASTER

				DRAWLINE
				PRINTFORMW （一息ついて落ち着いた%CALLNAME:TARGET%は、中座してうがい手洗いをしてきたようだ）
				STR:日常イベント名 = 性処理後飲尿PLAY
			CASEELSE
				PRINTL ……
				PRINTL ………
				PRINTL …………
				PRINTFORMW ………………ふぅ。
				CALL SETFLAG_DAILY, "廁所", MASTER
			ENDSELECT
		ENDIF
	ENDSELECT
CASE 7
	;今回の性処理選択で薄着变成了
	IF CFLAG:性処理の格好变成了 == 1
		IF COND("性処理後没穿下衣持続可能") == 0
			CALL SET_MEMO_DRESS, "脱掉的衣服一览", TARGET
			CFLAG:性処理の格好变成了 = 0
		ELSE
			CALL PRINT_CUTIN, "見たまま正面", TARGET
			PRINTFORMW %CALLNAME:TARGET%%TEXTR("在绝顶之后恍惚着/露出了一副清爽的表情/一副满足了的样子")%、就这样%TEXTR("露出下半身/保持着不成样子的着装/脱掉了下半身的衣服")%靠在了%NAMES("ソファ")%上…
			CFLAG:性処理の格好变成了 = 2
		ENDIF
	ENDIF
	IF NOWEX:絶頂漏尿
		CALL BLANK_DRAWLINE
		PRINTFORMW （休息后冷静下来的%CALLNAME:MASTER%、将在和%CALLNAME:TARGET%做的时候弄脏的环境和周围漂亮地进行了扫除）
		;口も漱ぐ
		SIF CHECK_STAIN(STAIN:MASTER:Ｍ, "尿")
			CALL RESET_STAIN_EX, "Ｍ", MASTER
	ENDIF
ENDSELECT

;CFLAG:睡眠 == 1なら睡眠から覚ます処理
IF CFLAG:睡眠 == 1
	DRAWLINE
	;汚した？
	IF COND("着衣の乱れ")
		PRINTFORMW ……再不停下来的话就有暴露的风险了。
		PRINTFORMW 在%TEXTR("把衣服整理好/快速清理了污迹/处理好现场情况")%销毁完证据的%CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ELSEIF EXP_GAIN("睡眠悪戯経験") + EXP_GAIN("睡眠姦経験")
		PRINTFORMW ……再不停下来的话就有暴露的风险了。
		PRINTFORMW 已经充分享受完了的%CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ENDIF
	CALL KOJO_DAILYCOM, "叫醒"
	CALL SETFLAG_DAILY, "叫醒"
ENDIF

;何か起きていたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;ここより下はpartner以外も対象のイベント。TARGETが変更された場合にはイベントの記録を終えた後で戻される
;まずはpartner以外のみ起きるイベント
TARGET = FIND_COND("現在存在", "起床中")
IF TARGET > 0
	CALL CHECK_COM_ABLE, TARGET
	CALL SETFLAG, "性処理でのPLAY内容：計算のみ", TARGET

	MEMO_LINECOUNT_SUB = LINECOUNT
	;全裸終了
	IF COND("全裸状態終了可能") || COND("性処理の格好終了可能")
		CALL KOJO_DAILYCOM, "服を着た", "改行没有"
		SIF LINECOUNT == MEMO_LINECOUNT_SUB
			PRINTFORMW 「…………」
		SIF TFLAG:地の文スキップ == 0
			PRINTFORMW 察觉到%CALLNAME:MASTER%的興趣从自己身上移開的%CALLNAME:TARGET%、把之前脱掉的衣服穿了回去。
		CALL SET_MEMO_DRESS, "脱掉的衣服一览", TARGET
		CFLAG:性処理の格好变成了 = 0
	ELSEIF CFLAG:做爱部部员等级 == 4 && RAND:3 == 0
		CALL LOVEORG_FELLOWSHIP_BEGIN
	;酔酒→困倦→床イン
	ELSEIF STATE("困倦") && PLACE("自宅") && PLACE("partner的房間") == 0 && RAND:3 == 0
		CALL KOJO_DAILYCOM, "眠い", "改行没有"
		SIF LINECOUNT == MEMO_LINECOUNT_SUB
			PRINTFORMW 「…………」
		SIF TFLAG:地の文スキップ == 0
			PRINTFORMW 喝醉了酒很困的%CALLNAME:TARGET%、慢吞吞地回到了自己的房间……
		CFLAG:睡眠 = 8 + RAND:5 + RAND:5
		CALL REMOVE_STATE, TARGET, "困倦"
		CALL MOVE_PLACE, @"%CSVCALLNAME(NO:TARGET)%的房間", TARGET
	;兒童に胸部给
	ELSEIF COND("兒童に胸部可能") && RAND:3
		SIF TALENT:恋慕 || COND("恋慕取得可能")
			CALL EMOTION_PLUS, "夸奖"
		MEMO_LINECOUNT_SUB = LINECOUNT
		CALL KOJO_DAILYCOM, "兒童に胸部", "改行没有"
		IF LINECOUNT == MEMO_LINECOUNT_SUB
			IF TALENT:恋慕 || COND("恋慕取得可能")
				PRINTFORMW 「♪～～　♪～～」
			ELSE
				PRINTFORMW 「…………」
			ENDIF
		ENDIF
		SIF TFLAG:地の文スキップ == 0
			PRINTFORMW %CALLNAME:TARGET%正在給孩子哺乳……
		BASE:母乳 = MAX(BASE:母乳 - (1 + RAND:4)*2000, 1000)
		STR:日常イベント名 = 兒童に胸部
	ELSEIF FIND_COND("性処理直後", "性処理：挿入直後") && COND("Ｐ汚れ", MASTER) && COND("干劲性処理") + CFLAG:躁动难忍 + TALENT:气味弱点 + TALENT:汚臭敏感 + COND("発情期") && COND("自発清洁口交可能") && (RAND:3 == 0 || CFLAG:躁动难忍)
		CALL EVENT_ACADEMY, "自発清洁口交"
	ENDIF
ENDIF
;何か起きていたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;partner含め起きるイベント
TARGET = 0
IF ARG != 4 && COND("性処理の格好終了可能", MEMO_TARGET)
	TARGET = MEMO_TARGET
ELSE
	TARGET = FIND_COND("現在存在", "起床中")
ENDIF
IF TARGET <= 0
	;イベントが起きないようならDRAWLINEを消して終了
	CLEARLINE 1
	RETURN 0
ENDIF

;胖次イベント中は誰かがいつの間にか廁所に行くことのみ起きる
IF ARG == 4
	;廁所
	IF BASE:尿意 >= 5000 && CFLAG:行動参加中 == 0
		CALL SETFLAG_DAILY, "廁所"
		PRINTFORMW （在%CALLNAME:MASTER%%TEXTR("不知道的時候/沒有注意的時候")%離開了位置的%CALLNAME:TARGET%回來了）
	ENDIF
ELSEIF COND("性処理の格好終了可能")
	PRINTFORMW ……露出了一副下流的样子的%CALLNAME:TARGET%似乎恢复了冷静的样子。
	PRINTFORMW %CALLNAME:TARGET%发出衣物摩擦皮肤的声音、穿上了之前脱下的衣服。
	CALL SET_MEMO_DRESS, "脱掉的衣服一览", TARGET
	CFLAG:性処理の格好变成了 = 0
;汗が引いたら服を着る
ELSEIF TEQUIP:出浴 && ARG != 5
	IF CHECK_CLO("内衣姿") || CHECK_CLO("泳装姿") || CHECK_CLO("裸体")
		IF CHECK_CLO("泳装姿")
			PRINTFORM ……穿着泳装的
		ELSEIF CHECK_CLO("内衣姿")
			PRINTFORM ……只穿着内衣的
		ELSE
			PRINTFORM ……露出了不是很雅观的様子
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%的汗水流了下来。

		IF CFLAG:Cosplay中 == 0
		 	IF PLACE("自宅")
				PRINTFORMW %CALLNAME:TARGET%换上了平常的衣服。
				CALL SET_COORDINATE, "便装"
			ELSE
				PRINTFORMW %CALLNAME:TARGET%换上了制服。
				CALL SET_COORDINATE, "制服"
			ENDIF
		ENDIF
	ENDIF
	TEQUIP:出浴 = 0
;薄着終了
ELSEIF COND("薄着状態終了可能")
	IF CHECK_CLO("泳装姿")
		PRINTFORM ……穿着泳装的
	ELSEIF CHECK_CLO("内衣姿")
		PRINTFORM ……只穿着内衣的
	ELSE
		PRINTFORM ……露出了不是很雅观的様子
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%的汗水流了下来。
	PRINTFORMW %CALLNAME:TARGET%发出衣物摩擦皮肤的声音、穿上了之前脱下的衣服。
	CALL SET_MEMO_DRESS, "脱掉的衣服一览", TARGET
	CFLAG:薄着变成了 = 0

;暑いので扇風機独占して下半身に風を当てちゃう
ELSEIF TARGET != MEMO_TARGET && COND("股間に扇風機可能") && (COND("浑身是汗") || RAND:3 == 0)
	CALL EVENT_ACADEMY, "扇風機独占"
;薄着になる
ELSEIF COND("薄着化可能") && (STATE("酔酒") || RAND:3 == 0)
	CALL EVENT_ACADEMY, "薄着变成了"
;廁所
ELSEIF COND("廁所可能")
	CALL EVENT_ACADEMY, "廁所"
;以下のイベントはシチュを選ぶ
ELSEIF CFLAG:刚睡醒 || ARG == 6

;其他
ELSE
	;廁所ハプニングイベント
	CALL EVENT_TOILET_HAPPENING
ENDIF

;何か起きていたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

SELECTCASE ARG
CASE 1 TO 3
	;ふいに胖次が見えたりするイベント総合
	CALL EVENT_ACADEMY, "チラ見え"
ENDSELECT

;何か起きていたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

TARGET = MEMO_TARGET
;partner以外の人が自撮りを送ってくるイベント
CALL SEND_SELFY_DAILY_EX

;何か起きていたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;33%で何も起きない
IF RAND:3 == 0
	CLEARLINE 1
	RETURN 0
ENDIF

;闲してる人たちだけで玩耍始める
CALL EVENT_ACADEMY, "レ阴蒂エーション開始"

;何か起きていたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;ここより下はpartner以外の、まだ相手していない角色が対象のイベント。TARGETが変更された場合にはイベントの記録を終えた後で戻される
TARGET = MEMO_TARGET

;PRINTFORMW PARTNER = %CALLNAME:PARTNER()%, TARGET = %CALLNAME:TARGET%, FIND_COND("性処理後のお掃除可能") = {FIND_COND("性処理後のお掃除可能")}

;お掃除発生しそうなら出来る人優先
IF FIND_COND("性処理後のお掃除可能", "闲を持て余すイベント可能")
	TARGET = FIND_COND("性処理後のお掃除可能", "闲を持て余すイベント可能")
ELSE
	TARGET = FIND_COND("闲を持て余すイベント可能")
ENDIF
;相手していない人が居ないなら、複数行動でないなら全員の中から選ぶ
IF TARGET <= 0 && FLAG:対複数 == 0
	TARGET = MEMO_TARGET
	TARGET = FIND_COND("現在存在", "起床中")
ENDIF
;それでも候補がいない場合はDRAWLINEを消して終了
IF TARGET <= 0
	CLEARLINE 1
	RETURN 0
ENDIF

;口上を出す際にTARGETとPARTNER()で参照できるようにする
;TARGET:8 = TARGET:9 = MEMO_TARGET(本来のpartner) とすることで、現在はTARGETでは無くなっている本来のpartnerをPARTNER()で参照できる
CALL RESET_SET_PARTNER, MEMO_TARGET

;本来のpartnerとやってた事で大まかに分岐
SELECTCASE SAVESTR:PREV_日常イベント名
;雑談中や性処理中なら调戏かけやすい
CASE "Talk", "甜言蜜语", "夸奖", "拜托処理性欲", "进行性処理"
	;CALL PRINT_MAIDFACE, TARGET

	;道端の菠萝包桑加筆
	EVENT_TABLE = %TEXTR("悠闲看着動画的/一副清闲的様子読着雑誌的/呆呆地望着外面的")%/
	SIF STRCOUNTS(CSTR:学年,  "司書")
		EVENT_TABLE += "正在读预订进货书籍目录的/"
	SIF COND("学生") || COND("教員")
		EVENT_TABLE += "正在预习明天的课程的/"
	SIF COND("種族：魔法使")
		EVENT_TABLE += "一个人開始塔罗牌占卜的/"
	SIF CONDS("尾巴") == "猫"
		EVENT_TABLE += "開始梳理尾巴上的毛的/"
	SIF SAVESTR:茶 != ""
		EVENT_TABLE += @"默默喝着%SAVESTR:茶%的/"

	SELECTCASE SAVESTR:PREV_日常イベント名
	CASE "Talk"
		PRINTFORM 和%CALLNAME:PARTNER()%%TEXTR("雑談闲聊/说些无関紧要的话/滔滔不绝")%的时候、
	CASE "甜言蜜语", "夸奖"
		PRINTFORM 和%CALLNAME:PARTNER()%说话的時候、
	CASE "拜托処理性欲"
		PRINTFORM 和%CALLNAME:PARTNER()%一起做事後処理的时候、
	CASE "进行性処理"
		IF COND("性処理後のお掃除可能")
			PRINTFORM 和%CALLNAME:PARTNER()%刚刚開始性処理之后的清理的时候、
		ELSE
			PRINTFORM 和%CALLNAME:PARTNER()%刚刚结束性処理開始一个人清理的时候、
		ENDIF
	ENDSELECT
	IF COND("性処理後のお掃除可能")
		EVENT_TABLE += @"%TEXTR("斜望着这边/偷偷瞟着/若无其事地看着")%这边的"
        PRINTFORMW %TEXTR(EVENT_TABLE)%%CALLNAME:TARGET%进入了视线。
		PRINTL ……看起来并不是很忙的样子、要拜托来帮忙一起进行事后处理吗？

		CALL PRINT_SELECT, @"拜托%CALLNAME:TARGET%/自己处理"

		SELECTCASE RESULT
		CASE 0
			CALL EVENT_ACADEMY, "请求清洁口交"
		CASEELSE
			PRINTFORMW 因为没有需要拜托给%CALLNAME:TARGET%的事情、%CALLNAME:MASTER%一个人漂亮地把现场处理好了。
			CALL RESET_STAIN_EX, "Ｐ", MASTER
		ENDSELECT
	ELSEIF COND("無自覚腋チラ可能") && RAND:3 == 0
		CALL EVENT_ACADEMY, "無自覚腋チラ"
	ELSEIF BASE:欲求不満 >= 50 && TALENT:自制心 == 0 && (COND("発情期") || ABL:自慰中毒 >= 5) && RAND:3
		PRINTFORMW 眼睛的余光看到了%CALLNAME:TARGET%正一边%TEXTR("看着雑誌/玩着手机/看着漫画/想着什么")%一边%TEXTR("玩弄着自己的股間/用桌角摩擦着股間/用椅子的扶手摩擦着股間")%。
		IF RAND:3
			PRINTFORMW 看起来好像是、%TEXTR("身子自己擅自動了起来/無意識地開始自慰行為/并没有注意到自己在干什么")%的様子……好好陪一陪她释放一下比较好吧。
		ELSE
			PRINTFORMW ……注意到了%CALLNAME:MASTER%的視線看向自己股間的%CALLNAME:TARGET%、%TEXTR("一瞬间脑袋上冒出了『？』/眨了眨眼/不解地歪了歪頭")%、之後便猛然察觉了自己正在干什么、%TEXTR("身体瞬间僵硬了/脸一下子变得通红/慌忙地停止了動作")%！
			STR:日常イベント名 = オナバレ
		ENDIF
		EXP:自慰経験 += 1
		PRINTFORML
		PRINTFORMW 自慰経験＋１(%CALLNAME:TARGET%)
	ELSEIF CFLAG:MASTER:茶 == 0 && (TALENT:献身 || ABL:奉仕精神 >= 5) && RAND:3 == 0
		SAVESTR:茶 = %TEXTR(CSTR:茶)%
		SIF SAVESTR:茶 == ""
			SAVESTR:茶 = 茶

		IF TALENT:献身
			PRINTFORMW %CALLNAME:TARGET%端着%SAVESTR:茶%和点心走了过来。
		ELSE
			PRINTFORMW %CALLNAME:TARGET%准备了%SAVESTR:茶%。
		ENDIF
		STR:日常イベント名 = 沏茶
		CALL KOJO_DAILYCOM, "卖个破绽"
		CALL SETFLAG_DAILY, "茶"
	ELSEIF (TALENT:開朗 || TALENT:粗野) && RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%%TEXTR("把手搭在了你的肩膀上/从後面抱了上来")%。
		CALL KOJO_DAILYCOM, "構って欲しい！", "改行没有"
		SIF TFLAG:地の文スキップ == 0
			PRINTFORMW ……看起来好像是、%TEXTR(@"无聊得受不了了/闲得发慌/想让%CALLNAME:MASTER%来陪")%的様子。
	ELSEIF EQUIP:服 && COND("易出汗") && RAND:3 == 0
		PRINTFORMW %CALLNAME:TARGET%把领口\@ CHECK_SKIRT("裙子") ? 和裙子 # \@的扣子打開、露出了正在冷却汗液的身体。
		PRINTFORMW 不知不觉间、%TEXTR(@"被%CALLNAME:TARGET%新鲜汗水的气味吸引了注意/对%CALLNAME:TARGET%新鲜汗水的气味莫名的在意/闻到%CALLNAME:TARGET%新鲜汗水的气味兴奋了起来")%……
	ELSE
		IF CFLAG:MASTER:茶 == 0 && ABL:奉仕精神 && RAND:2
			PRINTFORMW 和%TEXTR("斜望着这边/瞥看着这边/若无其事地看着这边")%的%CALLNAME:TARGET%对上了视线。
			PRINTFORMW ……稍微%TEXTR("有点害臊地/不好意思地/有些尴尬地")%微笑着的%CALLNAME:TARGET%、像是遮羞一样从椅子上站了起来给大家倒茶。
			STR:日常イベント名 = 沏茶
			CALL SETFLAG_DAILY, "茶を用意"
			CALL KOJO_DAILYCOM, "卖个破绽"
		ELSE
			IF RAND:2
		        PRINTFORMW %TEXTR(EVENT_TABLE)%%CALLNAME:TARGET%进入了视线。
			ELSE
				PRINTFORMW 注意到%CALLNAME:TARGET%%TEXTR("正在斜眼看着我/往这边瞥了一眼/正在偷瞄这边")%。
			ENDIF
			IF TALENT:恋慕 && RAND:2
				PRINTFORMW ……%TEXTR("肯能是因为心情原因/总觉得")%坐的很近。
				PRINTFORMW %TEXTR(@"さっき/%CALLNAME:PARTNER()%と話し始める前")%はもう少し遠くに座っていた気がするのだが。
			ELSE
				IF COND("同居可能") || ABL:信頼 >= 3
					PRINTFORMW %CALLNAME:TARGET%%TEXTR("不自觉地探出了身子/后背离開椅背稍微向前倾斜着")%……说着混在一起的话。
				ELSE
					PRINTFORMW ……虽然没说出口但似乎很想和%CALLNAME:MASTER%交往试试。
				ENDIF
				SELECTCASE SAVESTR:PREV_日常イベント名
				CASE "拜托処理性欲", "进行性処理"
					IF CFLAG:性処理済 || CFLAG:性欲解消済
						CALL PRINT_STRW, @"黄色_※%CALLNAME:TARGET%との性処理が再び可能成为了！"
						CFLAG:性処理済 = 0
						CFLAG:性欲解消済 = 0
					ENDIF
				ENDSELECT
			ENDIF
		ENDIF
	ENDIF

;性器観察系
CASE "检查阴部"
	IF COND("合意：检查阴部", PARTNER() ) && (COND("性処理：挿入直後") || CHOSE_DEVENT("检查阴部", PARTNER() ) == 1)
		PRINTFORM %CALLNAME:PARTNER()%の
		IF TALENT:PARTNER():男性 || (TALENT:PARTNER():扶她 && RAND:2)
			PRINTFORM %TEXTR("阴茎/股間")%被欣赏着的同时、
			IS_PENISROUTE = 1
		ELSE
			PRINTFORM %TEXTR("阴部/股間/秘密場所")%被欣赏着的同时、
		ENDIF

		;阴部の状態比較
		LOCALS =
		IF IS_PENISROUTE
			IF COND("真性包茎", PARTNER() ) && RAND:2
				LOCALS = %TEXTR("完全被包皮覆盖着的/一点都没露出亀頭的/真性包茎的")%
			ELSEIF COND("假性包茎", PARTNER() ) && RAND:2
				LOCALS = %TEXTR("能看到粉紅亀頭的/大部分被皮包着的/假性包茎的")%
			ELSE
				LOCALS = %TEXTS("阴茎：視覚", PARTNER() )%
			ENDIF
			IF LOCALS == "" || RAND:2
				IF TALENT:PARTNER():陰蒂環 && TALENT:陰蒂環 + TALENT:陰唇環 == 0
					LOCALS = %TEXTR("將被反射著光芒的穿環穿刺著的/被穿環装飾的")%
				ENDIF
			ENDIF
		ELSE
			;中出し直後
			IF CHOSE_DEVENT("性処理Ｖ中出し", PARTNER() )
				LOCALS = %TEXTR("中出直後的/精液混合愛液滴下的/精液垂落的")%
			ELSEIF COND("陰毛") >= 5
				SELECTCASE CONDS("陰毛", PARTNER() )
				CASE "白虎", "無毛"
					LOCALS = %TEXTR("连长了毛的痕迹都没有的/光洁的/一点毛都没有的")%
				CASE "脱毛処理"
					LOCALS = 被漂亮脱毛处理过的
				CASE "光滑无毛"
					LOCALS = 光滑地被刮干净的
				ENDSELECT
			ENDIF
			IF LOCALS == "" || RAND:3
				IF TALENT:PARTNER():陰蒂環 + TALENT:PARTNER():陰唇環 && TALENT:陰蒂環 + TALENT:陰唇環 == 0
					LOCALS = %TEXTR("將被反射著光芒的穿環穿刺著的/被穿環装飾的")%
				ENDIF
			ENDIF
		ENDIF

		IF (IS_PENISROUTE == 0 && TALENT:男性) || (IS_PENISROUTE && TALENT:男性 == 0) || TALENT:好奇心 || ABL:欲望 >= 5 || (ABL:欲望 >= 3 && TALENT:開朗) || STRCOUNT(LOCALS, "穿環")
			PRINTFORMW %CALLNAME:TARGET%%TEXTR("探出身子/好奇地/用热腾腾的眼神/饶有兴趣地")%\@ (TALENT:害羞 == 0 || TALENT:冷静) ? # 一边脸红一边 \@%TEXTR("看着这边的情况/偷偷看向这边/凝视着这边")%。
			IF (ABL:欲望 < 3 && TALENT:好奇心 == 0) || RAND:2
				PRINTFORM ……看来、虽然认为%TEXTR("这很不好/这是不对的/不应该看")%但还是在
				IF IS_PENISROUTE == 0 && (COND("教員", PARTNER() ) || AGE(PARTNER() ) == 4) && AGE(TARGET) < 4 && RAND:2
					PRINTFORMW 目不转睛地盯着%LOCALS%成熟的阴部。
					STR:日常イベント名 = 大人の阴部に興味津々
				ELSEIF IS_PENISROUTE == 0 && (RAND:3 == 0 || LOCALS == "")
					PRINTFORMW %CALLNAME:PARTNER()%の%TEXTS("割れ目", PARTNER() )%から目が離せないようだ。
					STR:日常イベント名 = 阴部に興味津々
				ELSE
					PRINTFORM %CALLNAME:PARTNER()%の%LOCALS%
					PRINTFORMW \@ IS_PENISROUTE ? %TEXTS("阴茎：呼び方",PARTNER() )% # 阴部 \@から目が離せないようだ。
					STR:日常イベント名 = 阴茎に興味津々
				ENDIF
			ELSE
				PRINTFORM ……どうやら%CALLNAME:PARTNER()%の\@ IS_PENISROUTE ? %TEXTS("阴茎：呼び方", PARTNER() )% # 阴部 \@
				IF RAND:3 == 0 && (IS_PENISROUTE && PENIS(TARGET) ) || (IS_PENISROUTE == 0 && TALENT:男性 == 0)
					PRINTFORMW と自分の物を頭の中で比べているようだ。
					STR:日常イベント名 = 性器の違いに興味津々
				ELSE
					PRINTFORMW %TEXTR("的形状之类很在意/无法移開目光")%的样子。
					IF IS_PENISROUTE == 0
						STR:日常イベント名 = 阴部に興味津々
					ELSE
						STR:日常イベント名 = 阴茎に興味津々
					ENDIF
				ENDIF
			ENDIF
			CALL KOJO_DAILYCOM, STR:日常イベント名
			CALL SET_PREV_DAILYCOM

			IF (TALENT:PARTNER():小悪魔 || TALENT:PARTNER():好色) && ( (ABL:欲望 < 3 && TALENT:好奇心 == 0) || (IS_PENISROUTE == 0 && TALENT:男性) || RAND:3 == 0)
				PRINTFORMW その様子に気づいた%CALLNAME:PARTNER()%は、%CALLNAME:TARGET%にもよく見えるようにと%TEXTR("ニヤニヤし/優越感を滲ませ/込み上げる笑いを噛み殺し")%ながら更に%TEXTR("大きく股を開い/腰を突き出し")%て見せつけて来た……
				STR:日常イベント名 = 阴部見せつけ

				CALL SWAP_PARTNER_TARGET
				CALL KOJO_DAILYCOM, STR:日常イベント名
				CALL SET_PREV_DAILYCOM
				CALL SWAP_PARTNER_TARGET

				CALL CHANGE_RELATION, 1, TARGET, PARTNER()
				PRINTFORMW 二人的相性度+1
			ENDIF
		ELSE
			PRINTFORMW 注意到了的%CALLNAME:TARGET%\@ (TALENT:害羞 == 0 || TALENT:冷静) ? # 红着脸 \@%TEXTR("看着这边的情况/看向这边")%。
			PRINTFORMW ……虽然没有说出口、%CALLNAME:TARGET%的%TEXTR("眼神/气势/様子")%像是在高声主张着『注意場所』之类的样子。
		ENDIF
	ENDIF
;股間観察系
CASE "检查布鲁马", "股間観察"

;胖次観察系
CASE "检查内褲", "開放型開洞", "高開衩", "Ｔ字褲", "Ｃ胖次"

;裙系
CASE "掀起裙子", "撩起裙子"

ENDSELECT

IF LINECOUNT == MEMO_LINECOUNT
	;イベントが起きないようならDRAWLINEを消して終了
	CLEARLINE 1
ELSE
	CFLAG:闲を持て余す = 1
ENDIF
CALL SET_PARTNER

license: unknown


code:
;-------------------------------------------------
;メイン画面での時間経過による入室イベント
;CFLAG:入室までの所要時間 を最初に減らし、1变成了ら入室イベント発生
;イベント発生した人は0にする
;昼は時間ごとに人が入ってくるが、夜は最初から全員集合している
;ただしCFLAG:入室までの所要時間の値次第で少々分岐有
;同伴で行動した相手は寝ていない限りは打招呼済み
;-------------------------------------------------
@EVENT_ENTER_ROOM
#DIM LCOUNT
#DIM MEMO_LINECOUNT
#DIM MEMO_LINECOUNT2
;喋る候補は３人も居れば十分。むしろ二人良いまである
#DIM NEWCOMER, 3
;入室者人数
#DIM NUM_NEWCOMER
;次のターンでの入室予定者
#DIM NUM_NEXT_NEWCOMER
;部屋に既にいる部員の人数(你は除く)
#DIM NUM_INROOM
;打招呼返しの人数
#DIM NUM_CAN_REPLY
#DIM NUM_REPLY
;オート打招呼対象者
#DIM GREETING_NEWCOMER
#DIMS EVENT_NAME
#DIM BONUS_TIME
#DIMS MEMO_BEFORE_DRESS, 100
#DIMS MEMO_AFTER_DRESS, 100

;現在位置が他の人が現れる場所でない場合には何も起こさない
SELECTCASE SAVESTR:現在位置
CASE "居間", "部室"
CASEELSE
	RETURN 0
ENDSELECT

REDRAW 0

VARSET MEMO_BEFORE_DRESS
VARSET MEMO_AFTER_DRESS
VARSET NEWCOMER
NUM_NEWCOMER = 0
NUM_NEXT_NEWCOMER = 0
VARSET GREETING_NEWCOMER
SAVESTR:同伴者 =

;まずは入室までの所要時間を１減らす。夜は最初から全員初期値が１
CALL SETFLAG_DAILY, "入室までの所要時間計算"

;自宅にいる際には気まぐれでのみ現れる
IF PLACE("自宅") && SAVESTR:現在位置 == "居間" && CFLAG:MASTER:入室までの所要時間 == 0
	FOR LCOUNT, 2, CHARANUM
		SIF CFLAG:LCOUNT:不在 || CFLAG:LCOUNT:睡眠 || CSTR:LCOUNT:現在位置 == "居間" || COND("居間出現可能", LCOUNT) == 0
			CONTINUE
		SIF RAND:3 == 0 || CFLAG:LCOUNT:呼び出された
			CFLAG:LCOUNT:入室までの所要時間 = 1
	NEXT
ENDIF

FOR LCOUNT, 1, CHARANUM
	SIF CFLAG:LCOUNT:不在
		CONTINUE

	SELECTCASE LCOUNT
	CASE TARGET, MASTER
	CASEELSE
		SELECTCASE CFLAG:LCOUNT:入室までの所要時間
		CASE 1
			NUM_NEWCOMER += 1
			IF PLACE("自宅") == 0
				;最初からいない人は打招呼フラグ重置
				CFLAG:LCOUNT:打招呼した = 0
				CFLAG:LCOUNT:打招呼された = 0
			ENDIF
		CASE 2
			NUM_NEXT_NEWCOMER += 1
		ENDSELECT
	ENDSELECT
NEXT

;NEWCOMERが誰か、についてはここで全て決定する
;你が入室した際
IF CFLAG:MASTER:入室までの所要時間 == 1
	;まずは出来る事の判定。何をやって貰えるかな？
	CALL CHECK_COM_ABLE, TARGET

	;色々あった際にみんなが遅れてくる時間
	BONUS_TIME = 1 + RAND:3

	;partner寝てる？
	IF CFLAG:睡眠
		FOR LCOUNT, 2, CHARANUM
			SELECTCASE LCOUNT
			CASE TARGET
			CASEELSE
				SIF CFLAG:LCOUNT:不在
					CONTINUE
				CFLAG:LCOUNT:睡眠 = 0
				;寝てる人が居る時には、他の人が来るまでの猶予時間にBOUNS
				CFLAG:LCOUNT:入室までの所要時間 += BONUS_TIME + 3
			ENDSELECT
		NEXT

		;入室予定者も０に戻す
		NUM_NEWCOMER = 0
		NUM_NEXT_NEWCOMER = 0
	;partner淋浴中？
	ELSEIF CFLAG:淋浴中
		FOR LCOUNT, 2, CHARANUM
			SELECTCASE LCOUNT
			CASE TARGET
			CASEELSE
				SIF CFLAG:LCOUNT:不在
					CONTINUE
				;他の人が来るまでの猶予時間にBOUNS
				CFLAG:LCOUNT:入室までの所要時間 += BONUS_TIME
			ENDSELECT
		NEXT

		;入室予定者も０に戻す
		NUM_NEWCOMER = 0
		NUM_NEXT_NEWCOMER = 0
	;partnerが性処理の合意もちor躁动难忍中だとたまに単独
	ELSEIF RAND:3 == 0 && (COND("欲求不満") || COND("合意：性処理") || TALENT:相思相愛)
		FOR LCOUNT, 2, CHARANUM
			SELECTCASE LCOUNT
			CASE TARGET
			CASEELSE
				SIF CFLAG:LCOUNT:不在
					CONTINUE
				;他の人が来るまでの猶予時間にBOUNS
				CFLAG:LCOUNT:入室までの所要時間 += BONUS_TIME
			ENDSELECT
		NEXT

		;入室予定者も０に戻す
		NUM_NEWCOMER = 0
		NUM_NEXT_NEWCOMER = 0

	;partner以外も既にいる？
	ELSEIF NUM_NEWCOMER
		FOR LCOUNT, 0, MIN(NUM_NEWCOMER, 3)
			NEWCOMER:LCOUNT = FIND_COND("新規入室")
			;FIND_COND("新規入室")に引っかからないようにする
			CFLAG:(NEWCOMER:LCOUNT):入室までの所要時間 = 0
		NEXT
	ENDIF
;遅れてやってきた入室者がいる
ELSEIF NUM_NEWCOMER
	FOR LCOUNT, 0, MIN(NUM_NEWCOMER, 3)
		NEWCOMER:LCOUNT = FIND_COND("新規入室")
		;FIND_COND("新規入室")に引っかからないようにする
		CFLAG:(NEWCOMER:LCOUNT):入室までの所要時間 = 0
	NEXT
ENDIF

;入室時に起きるフラグの調整（主に標語）
FOR LCOUNT, 1, CHARANUM
	;NEWCOMERor入室までの所要時間 == 1なら入室
	SELECTCASE LCOUNT
	CASE NEWCOMER:0, NEWCOMER:1, NEWCOMER:2
		;初期化はここの一番下で行う
		CFLAG:LCOUNT:入室打招呼中 = 1
	CASEELSE
		SIF CFLAG:LCOUNT:入室までの所要時間 != 1
			CONTINUE
	ENDSELECT

	SELECTCASE SAVESTR:現在位置
	CASE "部室"
		SELECTCASE SAVESTR:標語
		CASE "注意口渴"
			SIF CFLAG:LCOUNT:睡眠
				CONTINUE
			CFLAG:LCOUNT:茶 = 7 + RAND:3
			BASE:LCOUNT:尿意 += 400 + TALENT:LCOUNT:娇小*200 - TALENT:LCOUNT:高大*100
		ENDSELECT
	ENDSELECT
NEXT

;イベント発生した人は0にする＆現在位置を現れた場所に変更
FOR LCOUNT, 2, CHARANUM
	IF CFLAG:LCOUNT:入室までの所要時間 == 1 || CFLAG:LCOUNT:入室打招呼中
		CFLAG:LCOUNT:入室までの所要時間 = 0
		SIF CFLAG:MASTER:入室までの所要時間 == 0
			CALL MOVE_PLACE, SAVESTR:現在位置, LCOUNT
	ENDIF
NEXT

;イベントの地の文と台詞
;你が入室した時
IF CFLAG:MASTER:入室までの所要時間 == 1
	;partner寝てる？
	IF CFLAG:睡眠
		IF PLACE("自宅")
			PRINTFORMW %CALLNAME:MASTER%一回到家就发现……早就回来了的%CALLNAME:TARGET%已经睡着了。
			;夜は他に同居してる人が居ると寝ないので現状だと以下は発生しない
			SELECTCASE CHARA_NUM("出現予定")
			CASE IS >= 2
				PRINTFORMW 其他人也都已经回来了。
			CASE 1
				PRINTFORMW %CALLNAME:FIND_COND("出現予定")%已经回来了。
			ENDSELECT
			;夜は全員最初からいる
			CVARSET CFLAG, GETNUM(CFLAG, "入室までの所要時間")
		ELSE
			PRINTFORMW %CALLNAME:MASTER%一进到%TEXTS("現在位置")%里……就发现早就来了的%CALLNAME:TARGET%已经睡着了。
		ENDIF
	;partner淋浴中？
	ELSEIF CFLAG:淋浴中
		CALL EVENT_ACADEMY, "淋浴"

	;partner以外も既にいる？
	ELSEIF NUM_NEWCOMER
		PRINTFORM %CALLNAME:MASTER%
		;同伴出勤
		IF COND("同伴可能")
			PRINTFORM と%CALLNAME:TARGET%
			CALL SETFLAG_DAILY, "打招呼"
			CALL SETFLAG_DAILY, "同伴者"
		ENDIF

		IF PLACE("自宅")
			PRINTFORM 一回到家
		ELSE
			PRINTFORM 一进到%TEXTS("現在位置")%里
		ENDIF

		EVENT_NAME = 既に入室

		IF PLACE("自宅")
			IF RAND:(NUM_NEWCOMER + 1)
				PRINTFORM 、回来得晚了一点的
				EVENT_NAME = ただいま

				;帰ったばかりなのに帰宅後に格好になってる齟齬の修正
				FOR LCOUNT, 2, CHARANUM
					MEMO_BEFORE_DRESS:LCOUNT = %CSTR:LCOUNT:帰宅時の格好%
					;帰宅後の格好をMEMO_AFTER_DRESSに記録
					CALL MEMO_DRESS, "帰宅時の格好", LCOUNT
					MEMO_AFTER_DRESS:LCOUNT = %CSTR:LCOUNT:帰宅時の格好%

					;CSTR:帰宅時の格好を元に戻して、それに更衣
					CSTR:LCOUNT:帰宅時の格好 = %MEMO_BEFORE_DRESS:LCOUNT%
					CALL SET_MEMO_DRESS, "帰宅時の格好", LCOUNT
				NEXT
			ELSE
				PRINTFORM 、已经回来了的
			ENDIF
		ELSE
			PRINTFORM 、早就来了的
		ENDIF
		;同伴出勤
		IF COND("同伴可能")
			SELECTCASE NUM_NEWCOMER
			CASE 1
				PRINTFORMW %CALLNAME:(NEWCOMER:0)%打了个招呼。
			CASE 2
				CALL SPECIAL_SEX, "交流Ｈ", NEWCOMER:0, NEWCOMER:1
				SIF FLAG:Ｈ事件發生
					PRINTFORM ……在一番行為之後
				PRINTFORMW %CALLNAME:(NEWCOMER:0)%和%CALLNAME:(NEWCOMER:1)%打了个招呼。
			CASEELSE
				PRINTFORMW %CALLNAME:(NEWCOMER:0)%们打了个招呼。
			ENDSELECT
			CALL KOJO_GREETINGS, EVENT_NAME, NEWCOMER:0, NEWCOMER:1, NEWCOMER:2
		ELSE
			SELECTCASE NUM_NEWCOMER
			CASE 1
				CALL SPECIAL_SEX, "交流Ｈ", TARGET, NEWCOMER:0
				SIF FLAG:Ｈ事件發生
					PRINTFORM ……在一番行為之後、
				PRINTFORMW %CALLNAME:TARGET%和%CALLNAME:(NEWCOMER:0)%打了个招呼。
			CASE 2
				PRINTFORMW %CALLNAME:TARGET%们打了个招呼。
			CASEELSE
				PRINTFORMW %CALLNAME:TARGET%们打了个招呼。
			ENDSELECT
			CALL KOJO_GREETINGS, EVENT_NAME, TARGET, NEWCOMER:0, NEWCOMER:1, NEWCOMER:2
		ENDIF
		SIF FLAG:Ｈ事件發生
			FLAG:Ｈ事件發生 = 0
		;一緒に居た人たちが仲良くなる
		CALL CHANGE_RELATION, 2, TARGET, NEWCOMER:0, NEWCOMER:1, NEWCOMER:2

	;以下は二人きりのシチュ発生
	ELSE
		;まだ来ていない人が居る(ここにくるのは昼のみ)
		IF CHARA_NUM("出現予定")
			PRINTFORM %CALLNAME:MASTER%
			;同伴出勤
			IF COND("同伴可能")
				PRINTFORM と%CALLNAME:TARGET%
				CALL SETFLAG_DAILY, "打招呼"
				CALL SETFLAG_DAILY, "同伴者"
			ENDIF

			PRINTFORM 一进到%TEXTS("現在位置")%里、
			;同伴出勤
			IF COND("同伴可能")
				PRINTFORMW 谁都不在……自己好像是第一个到的様子。
				CALL KOJO_GREETING, "一番乗り"
			ELSE
				PRINTFORMW %CALLNAME:TARGET%打了个招呼。
				CALL KOJO_GREETING, "既に入室"
			ENDIF
		;二人きり
		ELSE
			PRINTFORM %CALLNAME:MASTER%
			;一緒に行動
			IF COND("同伴可能") && TALENT:相思相愛
				IF PLACE("自宅")
					PRINTFORMW 和%CALLNAME:TARGET%一起関系很好的径直回家了。
				ELSE
					PRINTFORMW 和%CALLNAME:TARGET%两个人一起開始了社团活动。
				ENDIF
			ELSEIF PLACE("自宅") && COND("同伴可能")
				PRINTFORMW 和%CALLNAME:TARGET%一起回家了。
			ELSE
				EVENT_NAME = 既に入室
				IF PLACE("自宅")
					IF RAND:2
						PRINTFORM 刚回到家、晚了一点也回来了的%CALLNAME:TARGET%打了个招呼。
						EVENT_NAME = ただいま
						;帰ったばかりなのに帰宅後に格好になってる齟齬の修正
						FOR LCOUNT, 2, CHARANUM
							MEMO_BEFORE_DRESS:LCOUNT = %CSTR:LCOUNT:帰宅時の格好%
							;帰宅後の格好をMEMO_AFTER_DRESSに記録
							CALL MEMO_DRESS, "帰宅時の格好", LCOUNT
							MEMO_AFTER_DRESS:LCOUNT = %CSTR:LCOUNT:帰宅時の格好%

							;CSTR:帰宅時の格好を元に戻して、それに更衣
							CSTR:LCOUNT:帰宅時の格好 = %MEMO_BEFORE_DRESS:LCOUNT%
							CALL SET_MEMO_DRESS, "帰宅時の格好", LCOUNT
						NEXT
					ELSE
						PRINTFORM 刚回到家、早就回来了的%CALLNAME:TARGET%打了个招呼。
					ENDIF
				ELSE
					PRINTFORMW 一在%TEXTS("現在位置")%露面、早就在里面的%CALLNAME:TARGET%打了个招呼。
				ENDIF
				CALL KOJO_GREETING, EVENT_NAME
			ENDIF
		ENDIF
		;二人きりイベント
		CALL EVENT_ACADEMY, "二人きり"
	ENDIF
	;帰ったばかりなのに帰宅後に格好になってる齟齬の修正の後始末
	FOR LCOUNT, 2, CHARANUM
		;帰宅時の格好に着替えたか格子
		SIF MEMO_AFTER_DRESS:LCOUNT == ""
			CONTINUE
		;もしも着替えているならば、帰宅後の本来の格好に更衣
		CSTR:LCOUNT:帰宅時の格好 = %MEMO_AFTER_DRESS:LCOUNT%
		CALL SET_MEMO_DRESS, "帰宅時の格好", LCOUNT
	NEXT
;初めて顔を出した
ELSEIF NUM_NEWCOMER == 1 && CFLAG:NEWCOMER:加入日 == 0
	DRAWLINE
	MEMO_LINECOUNT = LINECOUNT
	CALL EVENT_PROFILE, "初訪問", NEWCOMER
	IF LINECOUNT == MEMO_LINECOUNT
		PRINTFORMW 向首次出现的%CALLNAME:NEWCOMER%打了招呼。
		CALL KOJO_GREETING, "入室打招呼", NEWCOMER
	ENDIF
;入室者がいる
ELSEIF NUM_NEWCOMER
	DRAWLINE

	EVENT_NAME = 入室打招呼

	;部屋に既にいる部員の人数(你は除く)
	NUM_INROOM = CHARA_NUM("入室打招呼時の室内人数")

	IF PLACE("自宅")
		EVENT_NAME = 居間に現れた
	;イベント日でない事も簡易打招呼の条件
	ELSEIF TEXTS("日期対応イベント") == ""
		;既に部屋に人が居るなら簡易入室打招呼になる事も（部屋にいる他の人から、反応が返ってくる）
		SIF NUM_INROOM && RAND:4 == 0
			EVENT_NAME = 簡易入室打招呼
	ENDIF

	MEMO_LINECOUNT = LINECOUNT

	SELECTCASE NUM_NEWCOMER
	CASE 1
		IF CFLAG:(NEWCOMER:0):呼び出された
		IF TCVAR:(NEWCOMER:0):不在部室 == 1 && SAVESTR:現在位置 == "部室"
				CALL LOVEORG_INIT((NEWCOMER:0))
			ELSE
				PRINTFORMW ……被呼唤的%CALLNAME:(NEWCOMER:0)%打着招呼出现了在了%SAVESTR:現在位置%。
			ENDIF
		ELSEIF PLACE("自宅")
			PRINTFORMW %CALLNAME:(NEWCOMER:0)%\@ CMOVE("居間", NEWCOMER:0) ? 回到了居間 # 在居間出现了 \@。
		ELSE
			PRINTFORMW ……迟了一点才露面的%CALLNAME:(NEWCOMER:0)%打了个招呼。
		ENDIF
	CASE 2
		IF PLACE("自宅")
			PRINTFORMW %CALLNAME:(NEWCOMER:0)%和%CALLNAME:(NEWCOMER:1)%が居間に\@ CMOVE("居間", NEWCOMER:0) ? 回到了居間 # 在居間出现了 \@。
		ELSE
			PRINTFORMW ……迟了一点才露面的%CALLNAME:(NEWCOMER:0)%和%CALLNAME:(NEWCOMER:1)%打了个招呼。
		ENDIF
	CASEELSE
		IF PLACE("自宅")
			PRINTFORMW %CALLNAME:(NEWCOMER:0)%们\@ CMOVE("居間", NEWCOMER:0) ? 回到了居間 # 在居間出现了 \@。
		ELSE
			PRINTFORMW ……迟了一点才露面的%CALLNAME:(NEWCOMER:0)%们打了个招呼。
		ENDIF
	ENDSELECT
	CALL KOJO_GREETINGS, EVENT_NAME, NEWCOMER:0, NEWCOMER:1, NEWCOMER:2
	;一緒来了人たちが仲良くなる
	CALL CHANGE_RELATION, 2, NEWCOMER:0, NEWCOMER:1, NEWCOMER:2

	;打招呼が短い時も発生させてみる
	SELECTCASE LINECOUNT - MEMO_LINECOUNT
	CASE IS <= 2
		EVENT_NAME = 簡易入室打招呼
	CASE 3
		SIF RAND:2 == 0
			EVENT_NAME = 簡易入室打招呼
	ENDSELECT

	IF EVENT_NAME == "簡易入室打招呼" && PLACE("自宅") == 0
		NUM_CAN_REPLY = NUM_INROOM
		;あいさつは３人まで
		NUM_REPLY = 3

		PRINTL
		MEMO_LINECOUNT = LINECOUNT

		FOR LCOUNT, 2, CHARANUM
			SIF COND("入室打招呼中", LCOUNT) || COND("現在存在", LCOUNT) == 0
				CONTINUE
			IF RAND:NUM_CAN_REPLY < NUM_REPLY
				MEMO_LINECOUNT2 = LINECOUNT
				CALL KOJO_GREETING, "打招呼返し", LCOUNT
				SIF LINECOUNT != MEMO_LINECOUNT2
					NUM_REPLY -= 1
			ENDIF
			NUM_CAN_REPLY -= 1

			SIF NUM_REPLY == 0 || NUM_CAN_REPLY == 0
				BREAK
		NEXT
		SIF LINECOUNT == MEMO_LINECOUNT
			CLEARLINE 1
	ENDIF
ENDIF

;寝てる相手に悪戯してるなら足音をお知らせ
IF CFLAG:睡眠 && NUM_NEXT_NEWCOMER
	DRAWLINE
	PRINTFORMW ……远远的传来了谁的脚步声。看様子有人快要接近这里了。
	;汚した？
	IF COND("着衣の乱れ")
		PRINTFORMW 在%TEXTR("把衣服整理好/快速清理了污迹/处理好现场情况")%销毁完证据的%CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ELSEIF EXP_GAIN("睡眠悪戯経験") + EXP_GAIN("睡眠姦経験")
		PRINTFORMW 已经充分享受完了的%CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ELSE
		PRINTFORMW %CALLNAME:MASTER%的身旁、轻轻摇晃着肩膀的%CALLNAME:TARGET%从睡梦中慢慢醒来。
	ENDIF

	CALL SETFLAG_DAILY, "叫醒"
	CALL KOJO_DAILYCOM, "叫醒"
;寝てる人が起きる（現状こっちルートは没有）
ELSEIF CFLAG:睡眠 && NUM_NEWCOMER
	PRINTL
	DRAWLINE
	PRINTFORMW 因为声音太吵了、%CALLNAME:TARGET%从睡梦中慢慢醒来。

	CALL SETFLAG_DAILY, "叫醒"
	CALL KOJO_DAILYCOM, "叫醒"
ENDIF

CFLAG:MASTER:入室までの所要時間 = 0

;入室打招呼中のフラグ初期化
CVARSET CFLAG, GETNUM(CFLAG, "入室打招呼中")