code:
@EVENT_NTRDAILY, ARGS
#DIM LCOUNT
#DIMS ACTION
#DIMS EVENT_TABLE

SELECTCASE ARGS
CASE "电车痴汉"
	;PRINTFORMW NTRDAILY TEST

	;PRINTFORMW 当前对象：%CALLNAME:TARGET%

	IF CEVENT("电车乘坐可能",TARGET) == 0
		RETURN 0
	ENDIF
	PRINTFORML
	PRINTFORML
	PRINTFORML
	DRAWLINE
	PRINTFORMW -车站-
	PRINTFORMW 被要求乘坐电车上学的%CALLNAME:TARGET% 来到了车站 站在了站台前
	A = 1
	IF RAND:3 == 0
		PRINTFORMW 意外的是，今天乘车的人似乎不是很多
		A = 0
	ELSE
	 	PRINTFORMW 不出意外，今天等车的人还是一如既往的多
	ENDIF
	IF CFLAG:公车猥亵次数 == 0
		PRINTFORMW %CALLNAME:TARGET%似乎有些紧张
	ELSEIF CFLAG:公车猥亵次数 < 5 || CFLAG:公车猥亵等级 < 1
		PRINTFORMW 想到之前在电车上被做的事情，%CALLNAME:TARGET%不由得紧张起来
	ELSEIF CFLAG:公车猥亵次数 < 15 || CFLAG:公车猥亵等级 < 3
		PRINTFORMW 想到之前在电车上被做的事情，%CALLNAME:TARGET%有些紧张，但心底却有些期待起来
	ELSEIF CFLAG:公车猥亵次数 < 30 || CFLAG:公车猥亵等级 < 4
		PRINTFORMW 想到之前在电车上被做的事情，%CALLNAME:TARGET%不由得有些期待起来
	ELSE
		PRINTFORMW 想到之前在电车上跟许多男人做的事情，%CALLNAME:TARGET%不由面色潮红，嘴里吐出了香甜的气息
	ENDIF
	PRINTFORMW
	;猥亵事件
	SIF CFLAG:公车猥亵等级 == 0
		EVENT_TABLE += "摸胸/摸屁股/身后抱住/"
	SIF CFLAG:公车猥亵等级 == 1
		EVENT_TABLE += "接吻/伸入胸罩/手交/";揉弄阴蒂/指插入/揉弄乳头/上下其手/
	SIF CFLAG:公车猥亵等级 == 2
		EVENT_TABLE += "座位口交/后背素股/浓密接吻/";
	IF ABL:露出癖 >= 10 && CFLAG:公车猥亵等级 == 2
		EVENT_TABLE += "上身完全暴露揉胸/"
	ENDIF
	SIF CFLAG:公车猥亵等级 == 3
		EVENT_TABLE += "两根口交/座位肛交/全裸浓密接吻素股/插入菊穴/";/乳交
	IF TALENT:処女 == 0 && CFLAG:公车猥亵等级 == 3
		EVENT_TABLE += "插入小穴/座位性交/";后背位性交/
	ENDIF
	SIF CFLAG:公车猥亵等级 == 4 && CEVENT("公车便器",TARGET) == 0
		EVENT_TABLE += "浴精/轮流肛交/当众自慰/多根口交/";
	IF TALENT:処女 == 0 && CFLAG:公车猥亵等级 == 4
		EVENT_TABLE += "双穴插入/4P/";轮奸/
	ENDIF
	SIF CFLAG:公车猥亵等级 == 4 && CEVENT("公车便器",TARGET)
		EVENT_TABLE += "公车便器"

	PRINTFORMW 跟随者人潮进入了车厢中、列车缓缓启动
	; PRINTFORMW %PRINT(EVENT_TABLE)%
	CALL EVENT_NTRBUS,EVENT_TABLE
	FOR LCOUNT, 0, 3
		; PRINTFORMW 111
		IF A == 0 && RAND:2 == 0
			PRINTFORMW 无事发生...
			CONTINUE
		ENDIF
		ACTION = %TEXTR(EVENT_TABLE)%
		PRINTFORMW %ACTION%
		CALL EVENT_NTRBUS,ACTION
		CFLAG:当前猥亵等级猥亵次数 += 1
		CFLAG:公车猥亵次数 += 1
		PRINTFORMW 电车猥亵次数 += 1
		PRINTFORMW
		PRINTFORMW 电车轰鸣着、不停地向前行驶着...
	NEXT

	;公车猥亵等级提升事件
	IF CFLAG:当前猥亵等级猥亵次数>5
		IF CFLAG:公车猥亵等级 == 0
			CALL EVENT_NTRBUS,"伸入胸罩"
		ELSEIF CFLAG:公车猥亵等级 == 1
			CALL EVENT_NTRBUS,"肉棒插入内裤中"
		ELSEIF CFLAG:公车猥亵等级 == 2
			IF TALENT:処女 == 0 && CFLAG:公车猥亵等级 == 2
				CALL EVENT_NTRBUS,"插入小穴"
			ELSE
				CALL EVENT_NTRBUS,"插入菊穴"
			ENDIF
		ELSEIF CFLAG:公车猥亵等级 == 3
			IF TALENT:処女 == 0 && CFLAG:公车猥亵等级 == 3
				CALL EVENT_NTRBUS,"双穴插入"
			ELSE
				CALL EVENT_NTRBUS,"浴精"
			ENDIF
		ELSEIF CFLAG:公车猥亵等级 == 4 && CEVENT("公车便器",TARGET) == 0
			IF TALENT:処女 == 0 && CFLAG:公车猥亵等级 == 4
				CALL EVENT_NTRBUS,"公车便器达成"
			ELSE
				PRINTFORMW 想要达到下一个猥亵等级，需要%CALLNAME:TARGET%为非处女
			ENDIF
		ENDIF
	ENDIF
	PRINTFORMW
	PRINTFORMW 过了许久、列车终于驶入了目的地、车门打开、将一位位乘客送出...
	CFLAG:公车猥亵次数 += 1
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML
	PRINTFORML

ENDSELECT

@EVENT_NTRBUS, ARGS

; PRINTFORMW %ARGS%

SELECTCASE ARGS
CASE "摸胸"
	; 摸胸
	PRINTFORMW 电车中的人群推推攘攘、一只手悄悄地从%CALLNAME:TARGET%的腰间向上攀去、轻轻地放在了%CALLNAME:TARGET%的胸上
	; PRINTFORMW 阻止
	; PRINTFORMW %CALLNAME:TARGET%一巴掌将这只手拍开、并狠狠的向身后的男人瞪了一眼
	; PRINTFORMW 接受
	PRINTFORMW %CALLNAME:TARGET%默默的忍受着
	PRINTFORMW 见%CALLNAME:TARGET%没有反抗、男人的手渐渐大胆起来、动作逐渐变大、张开手指开始揉捏起来

CASE "摸屁股"
	; 摸屁股
	PRINTFORMW 电车中的人群推推攘攘、一只手悄悄地掀起%CALLNAME:TARGET%的裙子、放在了%CALLNAME:TARGET%的圆润的臀上
	; PRINTFORMW 阻止
	; PRINTFORMW %CALLNAME:TARGET%一巴掌将这只手拍开、并狠狠的向身后的男人瞪了一眼%CALLNAME:TARGET%一巴掌将这只手拍开、并狠狠的向身后的男人瞪了一眼
	; PRINTFORMW 接受
	PRINTFORMW %CALLNAME:TARGET%默默的忍受着%CALLNAME:TARGET%默默的忍受着
	PRINTFORMW 见%CALLNAME:TARGET%没有反抗、男人的手渐渐大胆起来、隔着内裤摩挲着、不断揉弄着%CALLNAME:TARGET%的臀部

CASE "身后抱住"
	; 身后抱住
	PRINTFORMW 电车中的人群推推攘攘、一个男人双手环住%CALLNAME:TARGET%的腰、以一个亲密的姿势从背后抱住了%CALLNAME:TARGET%
	; PRINTFORMW 阻止
	; PRINTFORMW %CALLNAME:TARGET%一个肘击狠狠地打在了男人的小腹上、男人疼痛的弓起身子、远离了%CALLNAME:TARGET%
	; PRINTFORMW 接受
	PRINTFORMW %CALLNAME:TARGET%没有反抗
	PRINTFORMW 男人的动作更加大胆起来、将%CALLNAME:TARGET%的身躯抱在了怀中、低下头嗅着%CALLNAME:TARGET%发丝的香气

CASE "深入内裤"
	; 深入内裤
	PRINTFORMW 似乎不满足于隔着一层布料抚摸屁股、男人的手向上探去、似乎想要伸入内裤之中
	; PRINTFORMW 阻止
	; PRINTFORMW 可%CALLNAME:TARGET%伸过手来、抓住了男人那不安分的手、阻止了他
	; PRINTFORMW 接受
	PRINTFORMW %CALLNAME:TARGET%没有阻止、任由男人的手伸入内裤之中、直接抓住了她那饱满的臀部、揉弄起来

CASE "手交"
	; 手交
	PRINTFORMW 似乎不满足于此、男人抓着%CALLNAME:TARGET%的手向后挪去、直到碰到了男人那滚烫而又坚硬的阴茎
	; PRINTFORMW 阻止
	; PRINTFORMW 在触碰的瞬间、%CALLNAME:TARGET%立刻明白了男人的想法、甩开了手、并挣脱开来
	; PRINTFORMW 接受
	PRINTFORMW 没有过多的交流、%CALLNAME:TARGET%的手握住了男人的阴茎、在这满是人流的车厢里、悄悄地前后套弄起来

CASE "接吻"
	; 接吻
	PRINTFORMW 拥挤的电车中、%CALLNAME:TARGET%与男人面对面地站立紧贴着、与陌生男人的亲密行为的背德感让%CALLNAME:TARGET%不由得心跳加速
	PRINTFORMW 男人低下头、隔着口罩贴在了%CALLNAME:TARGET%的唇上、呼吸间交换着彼此的气息
	PRINTFORMW %CALLNAME:TARGET%掀起口罩的下摆、男人便迫不及待的印了上去、吮吸起%CALLNAME:TARGET%的唇、并不断伸出舌头进攻着
	PRINTFORMW 在男人的进攻下、%CALLNAME:TARGET%很快败下阵来、紧闭的牙关被打开、任由对方舌头在口中不断舔舐、缠绕着

CASE "座位口交"
; 座位口交
	PRINTFORMW 人流不断的涌入电车之中，一个男人站在了%CALLNAME:TARGET%面前
	PRINTFORMW 男人跨间鼓起的地方隔着口罩轻轻的触碰%CALLNAME:TARGET%的嘴，向她发出猥亵的信号
	PRINTFORMW %CALLNAME:TARGET%拉开男人裤子的拉链，将肉棒释放出来，并掀起口罩的一角将肉棒整个吞下

	PRINTFORMW 由于口罩的遮挡，无法看到%CALLNAME:TARGET%嘴巴的动作，只有%CALLNAME:TARGET%前后摆动的头部和在口罩下不断进出的肉棒凸显着口交的事实

	PRINTFORMW 男人似乎到达了极限，紧紧地抓住%CALLNAME:TARGET%的头，阴茎也全部没入了口罩之中，身体不断颤抖着
	PRINTFORMW 这次射精量远远超过了口腔的极限，无法承受的%CALLNAME:TARGET%不得不将还在射精的肉棒从口中吐出，任由其将粘稠的精液射入口罩的内部
	PRINTFORMW 十几秒后，完成射精的男人将肉棒收了回去，%CALLNAME:TARGET%将口罩内积留的精液也一扫而空，但一部分精液已经浸染了口罩的内部，沾满了口罩下的半张俏脸
	PRINTFORMW 这部分的精液却无法清扫到，每一次呼吸都带着浓浓的精子味道

	PRINTFORMW 十几秒后，射精完成的男人从口罩中将肉棒收了回去，而%CALLNAME:TARGET%也重新口罩带好

CASE "全裸浓密接吻素股"
	; PRINTFORMW 全裸浓密接吻素股
	PRINTFORMW 电车的角落，一个身着大衣的男人，在人群的推攘中，不断紧贴住%CALLNAME:TARGET%的身体，双手也总是不经意间碰触着敏感部位
	PRINTFORMW 已经习惯了骚扰的%CALLNAME:TARGET%并没有阻止男人，任由其摆弄着。
	PRINTFORMW 没过一会，男人收回了手，悄悄对着%CALLNAME:TARGET%敞开了大衣，里面竟是全裸！肉棒也早已挺立着朝向%CALLNAME:TARGET%。
	; PRINTFORMW 是否答应邀请（猥亵等级+1）
	; PRINTFORMW 是
	PRINTFORMW %CALLNAME:TARGET%点点头，同意了，随即钻进了大衣中。

	PRINTFORMW 敞开的大衣仿佛两片幕布，遮挡住外部的所有视线，%CALLNAME:TARGET%就在其中一件一件的褪下了身上的衣物，直到浑身赤裸的站在男人面前
	PRINTFORMW 看着眼前一幕，男人的呼吸明显粗重起来，本就勃起的肉棒变得越加粗壮
	PRINTFORMW 无可忍耐的男人将身体贴在了%CALLNAME:TARGET%的身体上，粗暴的夺走了她的唇,两片乳房也从身体的挤压中从两边露出了半圆
	PRINTFORMW %CALLNAME:TARGET%一边承受着嘴上的进攻，一边引导着肉棒插入大腿与阴部交界的缝隙中，前后摩擦着

CASE "两根口交"
	; PRINTFORMW 两根口交
	PRINTFORMW 电车座位上，两个男人一左一右的站在%CALLNAME:TARGET%的两侧，将各自的肉棒从口罩的侧边插入
	PRINTFORMW 口罩的下方，%CALLNAME:TARGET%正大张着嘴，灵活的舌头在两个龟头上来回舔舐着、发出下流的响声
	PRINTFORMW 口罩随着%CALLNAME:TARGET%的呼吸与动作、不断上下起伏、隐约可见两根阴茎的形状

	PRINTFORMW 没过多久、在%CALLNAME:TARGET%精心的侍奉下、男人们就快射精了、口罩下方肉棒的形状越发凸显
	PRINTFORMW 而%CALLNAME:TARGET%也不顾发出声响、更加卖力的舔舐吮吸起来

	PRINTFORMW 最终，男人无可忍耐的爆发了、浓郁粘稠的精液瞬间灌满了口罩的空隙、沾满了口罩的内壁
	PRINTFORMW 连鼻子都被淹没了、%CALLNAME:TARGET%不得不大口大口的将精液吞下才能继续呼吸、但每一次吸气、都带着浓郁的精子气味、强烈的雄性气味让%CALLNAME:TARGET%的大脑都一阵失神
	PRINTFORMW 射精完成的男人将阴茎从口罩的两侧拔出、口罩合拢、将浓郁的精液留在了里面

CASE "上身完全暴露揉胸"
; 上身完全暴露揉胸
	PRINTFORMW 拥挤的电车、透明的玻璃门前、一个男人正从背后紧密的贴着%CALLNAME:TARGET%的身躯
	PRINTFORMW 男人手也深入的胸前衬衣的开口中、在胸罩下方毫无阻隔的揉弄着%CALLNAME:TARGET%的乳房
	PRINTFORMW 双手在%CALLNAME:TARGET%的胸前一颗一颗的解着衬衫的扣子、随着扣子的解开、%CALLNAME:TARGET%饱满的乳房也渐渐露出、吸引了周围人的视线
	PRINTFORMW 随着上身衣服被脱下、胸罩也被解开、%CALLNAME:TARGET%赤裸的上半身完全暴露在满是男人的车厢中、周围也不时有火热的视线盯向这里
	PRINTFORMW 男人则毫不在意地攀上双乳揉弄起来、并不时的进攻着%CALLNAME:TARGET%的乳头、惹得%CALLNAME:TARGET%发出阵阵娇喘

CASE "当众自慰"
	PRINTFORMW 在众人的怂恿下、%CALLNAME:TARGET%答应了自慰的要求
	PRINTFORMW %CALLNAME:TARGET%将手伸入裙子当中、然后缓慢的将内裤褪下
	PRINTFORMW 众人眼神紧盯着移动着的内裤、呼吸渐渐粗重
	PRINTFORMW 脱下内裤后、发现大家正在盯着自己的%CALLNAME:TARGET%、明显害羞起来、娇俏的脸上染上一抹红晕
	PRINTFORMW 柔软的发丝轻轻垂落在她的脸颊上、像是要挡住他人的目光一般
	PRINTFORMW 与之相反、%CALLNAME:TARGET%将双脚抬起、慢慢的向两边张开成M型
	PRINTFORMW 没有了内裤与裙子的遮挡、%CALLNAME:TARGET%那充满柔软感形状的性器此刻暴露在了所有人的眼中
	PRINTFORMW 随后、%CALLNAME:TARGET%伸出手、开始玩弄起阴蒂来
	PRINTFORMW 明明和平时自慰一模一样的手法、此刻的快感却尤为强烈
	PRINTFORMW 动人的呻吟愈发难以压抑
	PRINTFORMW ...
	PRINTFORMW ..
	PRINTFORMW 几分钟后
	PRINTFORMW %CALLNAME:TARGET%身上的衣服已被脱到一边、内裤早已不知去向
	PRINTFORMW 座位旁围满了不断撸动着肉棒的乘客们
	PRINTFORMW 而中间的%CALLNAME:TARGET%、正揉搓着乳头、一边自慰着

;揉弄阴蒂/指插入/揉弄乳头/上下其手/
;后背素股/浓密接吻/
;座位性交/座位肛交/、、后背位性交/
;轮流肛交/多根口交/
;4P/轮奸/

CASE "浓密接吻"
	PRINTFORMW 拥挤的电车中、男人与%CALLNAME:TARGET%亲密地拥抱着、不安分的双手隔着裙子揉弄着%CALLNAME:TARGET%的屁股
	PRINTFORMW 男人伸出舌头、示意%CALLNAME:TARGET%主动一些、会意的%CALLNAME:TARGET%主动地环抱住男人的脖子、献上了柔软的双唇
	PRINTFORMW 才刚一接触、两人的舌尖便热烈的纠缠在一起、下流的缠绕起来、彼此交换着唾液、发出淫靡的水声
	PRINTFORMW 男人在%CALLNAME:TARGET%屁股上的手也越发大胆起来、掀起裙子、深入内裤中揉弄起来...

CASE "后背素股"
	PRINTFORMW 人群的中央、男人让%CALLNAME:TARGET%背向自己、并慢慢地将她的内裤退到膝盖、在%CALLNAME:TARGET%加紧的大腿根部的三角区中、从后方缓缓地将肉棒钻了进去
	PRINTFORMW 垂下的裙摆很好的挡住了这里、男人也更加没有忌惮的动了起来、
	PRINTFORMW 先走汁混合着爱液沾染了大腿、充当了良好的润滑剂、随着前后摆动、越发轻松起来
	PRINTFORMW
	PRINTFORMW %CALLNAME:TARGET%也渐渐感受到了快感、每当划过阴蒂、巨大的刺激总会让%CALLNAME:TARGET%微微一颤、分泌出更多的爱液

CASE "座位性交"
	PRINTFORMW 在%CALLNAME:TARGET%震惊的目光下、坐在%CALLNAME:TARGET%面前的男人、在行驶的电车上解开了裤子、露出自己挺立的阴茎
	PRINTFORMW %CALLNAME:TARGET%害羞着、却还是在众人的目光下、脱下内裤、扶着男人的阴茎、对准小穴、慢慢坐下

CASE "座位肛交"
	PRINTFORMW 在%CALLNAME:TARGET%震惊的目光下、坐在%CALLNAME:TARGET%面前的男人、在行驶的电车上解开了裤子、露出自己挺立的阴茎
	PRINTFORMW %CALLNAME:TARGET%害羞着、却还是在众人的目光下、脱下内裤、扶着男人的阴茎、对准菊穴、慢慢坐下

CASE "轮流肛交"
	PRINTFORMW 列车上的男人们在%CALLNAME:TARGET%的身前排起了队
	PRINTFORMW 最前方的男人正一边与%CALLNAME:TARGET%接吻一边做着最后的冲刺
	PRINTFORMW 随着%CALLNAME:TARGET%低声的呜咽、男人将沾满白浊的肉棒从%CALLNAME:TARGET%的菊穴中拔出
	PRINTFORMW 从慢慢回缩的菊穴入口、可以看到粉色肠肉、以及快要溢出的白色液体
	PRINTFORMW 可还未等精液流出、下一根肉棒又将敞开的洞口堵住、以之前的精液充当润滑剂、在%CALLNAME:TARGET%的菊穴中进攻起来
	PRINTFORMW 不同形状的肉棒刮蹭着肠壁、进攻着不同的位置、带来了与先前肉棒不一样的刺激、让%CALLNAME:TARGET%不由地呻吟起来
	IF TALENT:処女
		PRINTFORMW 在知道%CALLNAME:TARGET%身为处女的事实后、男人们都不约而同的隔着肠壁顶撞着对面的子宫
		PRINTFORMW 让未经人事的处女子宫一次又一次的到达高潮
	ENDIF

CASE "多根口交"
	PRINTFORMW 列车的座位上、%CALLNAME:TARGET%正全心全意的侍奉着眼前的三根肉棒
	IF RAND:2 == 0
		PRINTFORMW 灵活的双手在两边的挺立的肉棒上来回套弄着、先走汁在手心与皮肤的摩擦中发出咕啾咕啾的响声
		PRINTFORMW 另一边、%CALLNAME:TARGET%伸长舌头将眼前的肉棒充分润滑后、缠绕着卷入口腔中、仔细的侍奉起来...
	ELSE
		PRINTFORMW 沐浴在浓郁的雄性气味中的%CALLNAME:TARGET%、大张着嘴伸出舌头在三根肉棒的尖端上来回的舔舐
		PRINTFORM 唾液混合着先走汁不断的垂落在%CALLNAME:TARGET%
		IF TALENT:巨乳
			PRINTFORM %TEXTR("压迫力十足地/气势十足地")%起伏着的
		ELSEIF TALENT:貧乳 && TALENT:娇小
			PRINTFORM %TEXTR("平坦的/起伏少的")%
		ELSEIF TALENT:貧乳
			PRINTFORM %TEXTR("可爱地/小小地/微微地")%晃动着的
		ELSE
			PRINTFORM %TEXTR("幅度大地/上下")%摇晃着的
		ENDIF
		PRINTFORMW 柔软乳房上……
	ENDIF

CASE "4P"
	PRINTFORMW 在列车车厢的中央、几件衣服被随意的铺在了地上充当着临时的床铺
	PRINTFORMW 众人围起的圈子中央
	IF TALENT:娇小
		PRINTFORMW %CALLNAME:TARGET%尚未成熟的稚嫩身体几乎被上下两个男性完全遮盖
		SIF TALENT:巨乳
			PRINTFORMW 那和身形毫不相称的巨乳在挤压中从两侧露了出来
		PRINTFORMW 从不断传来的愉悦呻吟与男性不断耸动的动作才能知道、%CALLNAME:TARGET%的双穴都在被同时进攻着
	ELSE
		PRINTFORMW %CALLNAME:TARGET%那完全赤裸的诱人娇躯正夹在两个男性的中间、随着动作不断摆动着
		PRINTFORMW 动人的呻吟从含住另一根肉棒的嘴中响起、更添一抹淫靡的韵味
	ENDIF
;升级=========================================================================================================================================

CASE "公车便器达成"
; （公车便器达成）
	IF MARK:淫紋 == 0
		PRINTFORMW 如要达成称号 [公车便器] 、需有[淫紋] 特性。
		RETURN 0
	ENDIF
	PRINTFORMW 电车到达了学校的站台、重新穿戴好衣服的%CALLNAME:TARGET%将会在此下车
	PRINTFORMW 刚刚踏出车门几步、小腹处的淫纹又隐隐作痛起来
	PRINTFORMW (要不要多留一会)
	PRINTFORMW 念头刚冒出、便一发不可收拾的疯张起来
	CALL PRINT_SELECT, "留在这里/离开"
	IF RESULT == 0
		PRINTFORMW %CALLNAME:TARGET%回头、眼带迷离的望向车内、随后不在犹豫地大步走向车内
		PRINTFORMW 男人们欢呼着、将%CALLNAME:TARGET%迎了回来、簇拥着再次将%CALLNAME:TARGET%的衣服一件一件褪下
		PRINTFORMW %CALLNAME:TARGET%也愉悦的任由男人们上下其手的抚摸，最后被%TEXTR("轻柔的放倒在垫着衣服的地上/半推半就地压在了电车的座位上")%
		PRINTFORMW 随后、小穴、菊花、口穴被肉棒一遍又一遍的凌辱、一次又一次的注入精液、直到终点
		CALL SET_CEVENT("公车便器",TARGET)
		CALL PRINT_STRW, @"%CALLNAME:TARGET%达成称号：爱心粉紅_[公车便器]"
	ELSE
		PRINTFORMW %CALLNAME:TARGET%摇了摇头打消了这个念头、大步离开了车站
	ENDIF

	; PRINTFORMW 已经身为公车便器的%CALLNAME:TARGET%，刚来到车厢中，便被早已等待多时的男人们围在了中间
	; PRINTFORMW 很快，衣服、裙子、内衣都被男人们脱了下来、胸部、大腿、小腹、身上的每一处都被下流的抚摸着

	; PRINTFORMW 一个男人抬起%CALLNAME:TARGET%的下巴，吻住了她的唇。%CALLNAME:TARGET%也主动伸出舌头、主动地与男人亲吻着
	; PRINTFORMW 而%CALLNAME:TARGET%圆润的屁股也被身后的男人紧紧抓住，摆弄着阴茎将龟头抵在%CALLNAME:TARGET%小穴的入口、
	; PRINTFORMW 早已蜜汁横流的小穴毫不费力地将阴茎整根吞下、男人也开始粗暴的抽插起来

CASE "伸入胸罩"
	; 伸入胸罩
	PRINTFORMW 似乎不满足于隔着胸罩抚摸，男人的将手转向衣服的纽扣、似乎想要解开
	IF CFLAG:公车猥亵等级 == 0
		CALL PRINT_SELECT, "接受/阻止"
		IF RESULT == 1
			PRINTFORMW 可%CALLNAME:TARGET%伸过手来、抓住了男人那不安分的手、阻止了他
			RETURN 0
		ELSE
			PRINTFORMW %CALLNAME:TARGET%没有阻止、
		ENDIF
	ELSE
	ENDIF
	PRINTFORMW 男人打开了胸罩下方衬衫的纽扣、将手伸入其中、穿过胸罩、从下方直接攀上了%CALLNAME:TARGET%的玉峰
	PRINTFORMW 与隔着胸罩完全不同的巨大柔软、让男人忘情的揉弄起来、胸罩下方的乳房在男人的手下不断改变着形状
	IF CFLAG:公车猥亵等级 == 0
		PRINTFORMW
		PRINTFORMW %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....
		CFLAG:公车猥亵等级 = 1
		PRINTFORMW 猥亵等级	+1
		CFLAG:当前猥亵等级猥亵次数 = 0
	ENDIF

CASE "肉棒插入内裤中"
	; 肉棒插入内裤中
	PRINTFORMW 男人掏出肉棒、在%CALLNAME:TARGET%的内裤上摩擦了几下之后、拨开内裤、似乎想让肉棒探入其中（非本番）
	IF CFLAG:公车猥亵等级 == 1
		CALL PRINT_SELECT, "接受/阻止"
		IF RESULT == 1
			PRINTFORMW 可却被%CALLNAME:TARGET%巧妙地躲开了
			RETURN 0
		ELSE
			PRINTFORMW %CALLNAME:TARGET%沉默着、似乎是默许了男人的行为
			PRINTFORMW 再无顾忌的男人便将肉棒探入内裤之中、紧贴在%CALLNAME:TARGET%已满是爱液的小穴下方、用阴唇夹着肉棒、并裹着爱液前后摩擦起来
		ENDIF
	ELSE
	ENDIF
	IF CFLAG:公车猥亵等级 == 1
		PRINTFORMW
		PRINTFORMW %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....
		CFLAG:公车猥亵等级 = 2
		PRINTFORMW 猥亵等级	+1
		CFLAG:当前猥亵等级猥亵次数 = 0
	ENDIF

CASE "插入小穴"
	; 伸入胸罩
	IF TALENT:淫乱 == 0 || ABL:露出癖 < 5
		PRINTFORMW 如要进入下一个猥亵等级、需要达成 [淫乱] 特性、且需[露出癖]>5
		RETURN 0
	ENDIF
	PRINTFORMW 男人将%CALLNAME:TARGET%背过身、一边抚摸着圆润的臀部、一边将%CALLNAME:TARGET%的内裤缓缓褪下、直到膝盖处
	PRINTFORMW 接着、一根坚硬的肉棒抵在了%CALLNAME:TARGET%小穴的入口、
	IF CFLAG:公车猥亵等级 == 2
		PRINTFORMW 男人俯身在%CALLNAME:TARGET%耳边轻声询问是否可以插入
		CALL PRINT_SELECT, "接受(猥亵等级上升)/阻止"
		IF RESULT == 1
			PRINTFORMW 尽管小穴早已湿润、做好了进入的准备、%CALLNAME:TARGET%还是坚决的摇了摇头
			PRINTFORMW 男人也没有强求、只是抱紧了%CALLNAME:TARGET%的身躯、一边索求着%CALLNAME:TARGET%的嘴唇、一边用肉棒在她的股间不断的摩擦着
			PRINTFORMW 最终将浓厚的精液射入%CALLNAME:TARGET%的内裤中后、离开了
			RETURN 0
		ELSE

		ENDIF
	ELSE
	ENDIF
	PRINTFORMW 男人双手扶着%CALLNAME:TARGET%的腰、慢慢的将肉棒推入小穴之中、而%CALLNAME:TARGET%的小穴早已满是爱液、轻易地便将男人的肉棒吞到深处
	IF CEVENT("公车便器",TARGET)
		PRINTFORMW 身为公车便器、男人毫无顾虑地将%CALLNAME:TARGET%的裙子掀起、那饱满圆润的臀部与将肉棒整根吞下的下流场景便暴露在列车之中
		PRINTFORMW 接着男人便挥舞起腰肢抽插起来、肉体间的碰撞荡起一阵阵的肉浪、电车间响斥着做爱时的拍击声
		PRINTFORMW
		PRINTFORMW 几分钟后
		PRINTFORMW 男人的动作越发粗暴起来、双手抓着%CALLNAME:TARGET%的腰部快速的抽插着、不断有爱液从结合处飞溅出来
	ELSE
		PRINTFORMW 接着、人小心翼翼的摆动起腰部、在这载满乘客的电车中、慢慢的、一下又一下的抽插着%CALLNAME:TARGET%的蜜壶
		PRINTFORMW
		PRINTFORMW 几分钟后
		PRINTFORMW 男人的动作越发明显、%CALLNAME:TARGET%也压抑不住露出的呻吟、周围的男人们也注意到了这里、纷纷投来视线
		PRINTFORMW 可已沉浸于快感中的两人、已没有余力关注周围的变化、只是一味地享受着性交的快乐
	ENDIF
	PRINTFORMW 最终、在周围人的关注下、两人一同迎来了绝顶、填满子宫的浓稠精液从两人的结合处不断的流出、滴落在地上....
	IF MARK:淫紋
		PRINTFORM 大量射精
		PRINTFORMW 男人的玲口抵在%CALLNAME:TARGET%的子宫入口处、大量的精液流入子宫之中....
		PRINTL
		CALL PRINT_CUTIN, "淫紋", TARGET
		CALL PRINT_STRW, @"爱心粉紅_%CALLNAME:TARGET%被刻上的淫纹发出了妖艳的光…"
		PRINTFORMW 感受着精液%TEXTR("流入/注入")%子宫所带来的难以忍受的%TEXTR("疼痛感/愉悦感")%、%CALLNAME:TARGET%无意识地扭起了腰…
	ENDIF
	IF CFLAG:公车猥亵等级 == 2
		PRINTFORMW
		PRINTFORMW %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....
		CFLAG:公车猥亵等级 = 3
		PRINTFORMW 猥亵等级	+1
		CFLAG:当前猥亵等级猥亵次数 = 0
	ENDIF

CASE "插入菊穴"
	; 伸入胸罩
	IF TALENT:淫乱 == 0 || ABL:露出癖 < 5
		PRINTFORMW 如要进入下一个猥亵等级、需要达成 [淫乱] 特性、且需[露出癖]>5
		RETURN 0
	ENDIF
	PRINTFORMW 男人将%CALLNAME:TARGET%背过身、一边抚摸着圆润的臀部、一边将%CALLNAME:TARGET%的内裤缓缓褪下、直到膝盖处
	PRINTFORMW 接着、一根坚硬的肉棒抵在了%CALLNAME:TARGET%菊穴的入口、
	IF CFLAG:公车猥亵等级 == 2
		PRINTFORMW 男人俯身在%CALLNAME:TARGET%耳边轻声询问是否可以插入
		CALL PRINT_SELECT, "接受(猥亵等级上升)/阻止"
		IF RESULT == 1
			PRINTFORMW 尽管小穴早已湿润、只是插入菊穴的话也并不会失去处女、%CALLNAME:TARGET%还是坚决的摇了摇头
			PRINTFORMW 男人也没有强求、只是抱紧了%CALLNAME:TARGET%的身躯、一边索求着%CALLNAME:TARGET%的嘴唇、一边用肉棒在她的股间不断的摩擦着
			PRINTFORMW 最终将浓厚的精液射入%CALLNAME:TARGET%的内裤中后、离开了
			RETURN 0
		ELSE

		ENDIF
	ELSE
	ENDIF
	PRINTFORMW 给肉棒涂上润滑液后、男人双手扶着%CALLNAME:TARGET%的腰、慢慢的将肉棒推入菊穴之中、而另一边的小穴也随着插入不断的流下爱液
	IF CEVENT("公车便器",TARGET)
		PRINTFORMW 身为公车便器、男人毫无顾虑地将%CALLNAME:TARGET%的裙子掀起、那饱满圆润的臀部与将肉棒整根吞下的下流场景便暴露在列车之中
		PRINTFORMW 接着男人便挥舞起腰肢抽插起来、肉体间的碰撞荡起一阵阵的肉浪、电车间响斥着做爱时的拍击声
		PRINTFORMW
		PRINTFORMW 几分钟后
		PRINTFORMW 男人的动作越发粗暴起来、双手抓着%CALLNAME:TARGET%的腰部快速的抽插着、不断有爱液从结合处飞溅出来
	ELSE
		PRINTFORMW 接着、人小心翼翼的摆动起腰部、在这载满乘客的电车中、慢慢的、一下又一下的在%CALLNAME:TARGET%的菊穴中抽插着
		PRINTFORMW 坚硬的肉棒隔着肠壁顶撞着%CALLNAME:TARGET%未经人事的子宫、明明是处女却体验着子宫被亲吻的快感
		PRINTFORMW
		PRINTFORMW 几分钟后
		PRINTFORMW 男人的动作越发明显、%CALLNAME:TARGET%也压抑不住露出的呻吟、周围的男人们也注意到了这里、纷纷投来视线
		PRINTFORMW 可已沉浸于快感中的两人、已没有余力关注周围的变化、只是一味地享受着肛交的快乐
	ENDIF
	PRINTFORMW 最终、在周围人的关注下、两人一同迎来了绝顶、填满直肠的浓稠精液从两人的结合处不断的流出、滴落在地上....
	IF CFLAG:公车猥亵等级 == 2
		PRINTFORMW
		PRINTFORMW %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....
		CFLAG:公车猥亵等级 = 3
		PRINTFORMW 猥亵等级	+1
		CFLAG:当前猥亵等级猥亵次数 = 0
	ENDIF

CASE "双穴插入"
	; 伸入胸罩
	IF TALENT:淫乱 == 0 || ABL:精液中毒 < 5
		PRINTFORMW 如要进入下一个猥亵等级、需要达成 [淫乱] 特性及 [精液中毒]达到5级
		RETURN 0
	ENDIF
	PRINTFORMW 列车的中央、浑身赤裸的%CALLNAME:TARGET%正被男人从背后以双脚张开的姿势、像是展示一般抱起
	PRINTFORMW 可以清楚的看到男人的阴茎此时正深深的插入菊穴之中、而上方爱液横流的小穴却微微张合、仿佛在邀请肉棒的进入
	IF CFLAG:公车猥亵等级 == 3
		PRINTFORMW 一个健壮的男人走上前、将与之身材相称的阴茎抵在了%CALLNAME:TARGET%的小腹上
		CALL PRINT_SELECT, "接受(猥亵等级上升)/阻止"
		IF RESULT == 1
			PRINTFORMW 感受着男人完美形状的肉棒、%CALLNAME:TARGET%还是抵抗住了欲望、用双手挡住了小穴的洞口
			PRINTFORMW 健壮的男人也没有强求、回到了一旁
			PRINTFORMW 而身后的男人则开始毫无顾忌的抽插起来，%CALLNAME:TARGET%下流的姿态也印在了车厢每一位乘客的眼中
			RETURN 0
		ELSE
			PRINTFORMW 感受着男人完美形状的肉棒、%CALLNAME:TARGET%顺从了欲望、握住男人的肉棒对准了自己的小穴入口
			PRINTFORMW 男人一挺身，粗壮的肉棒没入%CALLNAME:TARGET%早已湿润的小穴当中
			PRINTFORMW %CALLNAME:TARGET%发出满足的呻吟
		ENDIF
	ELSE
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%握住男人的阴茎、引导着、从小腹滑向那女性那最秘密的洞口
	PRINTFORMW 男人将%CALLNAME:TARGET%早已充分湿润的腔深深贯穿了、湿滑的蜜壶将坚硬的肉棒整根吞下
	PRINTFORMW 双穴都被填满的巨大满足感让%CALLNAME:TARGET%一阵失神、可蠕动的内壁却主动的紧缩着、贪婪地缠绕着肉棒
	PRINTFORMW 回过神的%CALLNAME:TARGET%主动缠上眼前男人的脖子、一边承受着双穴的进攻、一边下流的接吻起来...
	PRINTFORMW
	PRINTFORMW 最终、在%CALLNAME:TARGET%高亢的呻吟中、男人在%CALLNAME:TARGET%的体内释放了自己的欲望....
	IF MARK:淫紋
		PRINTFORM 大量射精
		PRINTFORMW 男人的玲口抵在%CALLNAME:TARGET%的子宫入口处、大量的精液流入子宫之中....
		PRINTL
		CALL PRINT_CUTIN, "淫紋", TARGET
		CALL PRINT_STRW, @"爱心粉紅_%CALLNAME:TARGET%被刻上的淫纹发出了妖艳的光…"
		PRINTFORMW 感受着精液%TEXTR("流入/注入")%子宫所带来的难以忍受的%TEXTR("疼痛感/愉悦感")%、%CALLNAME:TARGET%无意识地扭起了腰…
	ENDIF
	IF CFLAG:公车猥亵等级 == 3
		PRINTFORMW
		PRINTFORMW %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....
		CFLAG:公车猥亵等级 = 4
		PRINTFORMW 猥亵等级	+1
		CFLAG:当前猥亵等级猥亵次数 = 0
	ENDIF

CASE "浴精"
	; 伸入胸罩
	IF TALENT:淫乱 == 0 || ABL:精液中毒 < 5
		PRINTFORMW 如要进入下一个猥亵等级、需要达成 [淫乱] 特性及 [精液中毒]达到5级
		RETURN 0
	ENDIF
	PRINTFORMW 列车的中央、浑身赤裸的%CALLNAME:TARGET%正以M字开腿的下流姿势蹲立在列车的地面上服侍着眼前的肉棒
	IF CFLAG:公车猥亵等级 == 3
		PRINTFORMW 可这对于列车的人数来说、还是杯水车薪。多数人提议只要在%CALLNAME:TARGET%的身上浇上自己的种子就知足了
		PRINTFORMW 是否接受精浴
		CALL PRINT_SELECT, "接受(猥亵等级上升)/阻止"
		IF RESULT == 1
			PRINTFORMW %CALLNAME:TARGET%没有接受、只是继续侍奉着眼前的肉棒
			PRINTFORMW 提议失败的男人们只好乖乖地排队等在后面...
			RETURN 0
		ELSE
			PRINTFORMW %CALLNAME:TARGET%看着众人充满欲望的眼神与身下挺立的肉棒、下意识的点了头
		ENDIF
	ELSE
	ENDIF
	PRINTFORMW %CALLNAME:TARGET%仰起头、双手捧起放在嘴前、摆出一副迎接精液的样子
	PRINTFORMW 排在后面的男人们也迅速围成一圈、掏出各自的肉棒贴在了%CALLNAME:TARGET%的脸上
	PRINTFORMW 一时间、%CALLNAME:TARGET%眼前、四面八方都被阴茎占满了视线、浓郁的雄性气味刺激着%CALLNAME:TARGET%的神经
	IF MARK:淫紋
		PRINTFORMW 连小腹的淫纹都隐隐作痛、诉说着渴望精液的事实
		PRINTL
		CALL PRINT_CUTIN, "淫紋", TARGET
		CALL PRINT_STRW, @"爱心粉紅_%CALLNAME:TARGET%被刻上的淫纹发出了妖艳的光…"
		PRINTFORMW
	ENDIF
	PRINTFORMW 男人们加速撸动着、即将到达极限、%CALLNAME:TARGET%也张开嘴等待着
	PRINTFORMW 终于、其中一个男人爆发了、接着像是信号一般、其他的阴茎也相继射出、大量滚烫浓郁的精液从四面八方不断飞来
	PRINTFORMW %CALLNAME:TARGET%的脸上、嘴中、头发、都被大量的精液铺满、同时、溢出的精液也顺着纤细的脖颈流向挺立的乳房、与圆润的臀上...
	IF CFLAG:公车猥亵等级 == 3
		PRINTFORMW
		PRINTFORML %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....
		CFLAG:公车猥亵等级 = 4
		PRINTFORMW 猥亵等级	+1
		CFLAG:当前猥亵等级猥亵次数 = 0
	ENDIF

ENDSELECT

; ;结束
; 猥亵等级1,2,3...不同

; 公车便器达成
; 	中午才来到学校
; 口罩口交
; 	戴着口罩来到学校，同学询问关于口罩，解释。下课来到厕所隔间，一边添精液一边自慰高潮（精液中毒）
; 浴精
; 	校服遮掩下，浑身沾满了精液
; ;发生
; 	猥亵等级
; 	1.摸胸，摸屁股，身后抱住
; 	升级：深入内裤，深入胸罩

; 	2.接吻，揉弄乳头，揉弄阴蒂，指插入，上下其手，手交
; 	升级：肉棒插入内裤中

; 	3.浓密接吻，座位口交 (口罩)，后背素股，上身完全暴露揉胸（露出等级要求）
; 	升级：小穴插入 (非处女)，菊穴插入 (处女)，全裸浓密接吻素股（大衣遮挡）

; 	4.两根口交 (口罩)，座位性交，座位肛交，后背位性（肛）交，乳交
; 	升级：双穴插入（非处女），浴精 (处女) （需求淫乱+精液中毒）

; 	5.4P，轮奸，轮流肛交（处女），多根口交 (射进口罩)，
; 	升级：已经到站，询问是否要继续 （公车便器达成，处女无法达成）（需求淫纹）

; 	5级+便器.上车主动脱光，一边接吻一边让后入小穴，母狗般的肉棒侍奉，肉棒排排坐，轮流播种

; %CALLNAME:TARGET%的电车猥亵等级上升了，下次搭乘时会被男人们做更加过激的事情....

license: unknown


code:
;SAVESTR:現在位置 == "温泉街"在整个流程中不变，通过CEVENT判断角色泡温泉的具体位置

;CEVENT("发现温泉馆",MASTER) 判定是不是第一次来温泉馆
;CEVENT("温泉馆VIP",MASTER) 解锁混浴
;CEVENT("今天泡过温泉了",MASTER) 判定今天是不是泡过
;CEVENT("错误性别1",MASTER)
;CEVENT("错误性别2",MASTER)
;CEVENT("错误性别3",MASTER)

;CEVENT("同汤",TARGET) 两人在同一浴场
;CEVENT("穿着浴巾",TARGET) 同伴穿着浴巾

;CEVENT("位于男汤",MASTER)
;CEVENT("位于女汤",MASTER)
;CEVENT("位于混浴",MASTER)
;同伴固定女性，不会进入男汤
;CEVENT("位于女汤",TARGET)
;CEVENT("位于混浴",TARGET)

;CEVENT("玫瑰温泉",TARGET)
;CEVENT("牛奶温泉",TARGET)
;CEVENT("鱼疗温泉",TARGET)

@EVENT_ONSEN
	IF CEVENT("今天泡过温泉了",MASTER)
		PRINTFORMW 今天泡过温泉了
		PRINTFORMW 明天再来吧
		RETURN 1
	ENDIF
	SIF !CEVENT("发现温泉馆",MASTER)
		CALL FIRST_ONSEN
	SELECTCASE RAND:6
		CASE 0
			CALL SET_CEVENT("玫瑰温泉",TARGET)
		CASE 1
			CALL SET_CEVENT("牛奶温泉",TARGET)
		CASE 2
			CALL SET_CEVENT("鱼疗温泉",TARGET)
		CASEELSE
			; PRINTFORMW 普通温泉
	ENDSELECT
	CALL ONSEN_INIT
	CALL EVENT_ONSEN_MAIN

	; PRINTFORMW 这里删除所有特别温泉
	SIF CEVENT("玫瑰温泉",TARGET)
		CALL DEL_CEVENT("玫瑰温泉",TARGET)
	SIF CEVENT("牛奶温泉",TARGET)
		CALL DEL_CEVENT("牛奶温泉",TARGET)
	SIF CEVENT("鱼疗温泉",TARGET)
		CALL DEL_CEVENT("鱼疗温泉",TARGET)
	;PRINTFORMW 这里设置master泡过温泉的标志
	;CALL SET_CEVENT("今天泡过温泉了",MASTER)

@EVENT_ONSEN_MAIN
	#DIM CHOICE
	#DIM LCOUNT
	#DIM OSAN_COUNT
	;IF !CEVENT("发现温泉馆",MASTER)
	;	CALL FIRST_ONSEN
	;ENDIF
	OSAN_COUNT = 1 + RAND:2
	; PRINTFORMW 温泉馆主要内容开启
	FOR LCOUNT, 0, 40
		CALL EVENT_ONSEN_TOP
		PRINTFORML 当前循环{LCOUNT} / 40
		CALL EVENT_ONSEN_BOTTOM
		INPUT
		CHOICE = RESULT
		CALL ONSEN_EVENT, CHOICE
		SIF CHOICE == 99
			BREAK
		;PRINTFORMW 这里是温泉循环体，没什么好看的，是否提前结束
		;CALL PRINT_SELECT, "结束/继续"
		;SIF RESULT == 0
		;	BREAK
		IF OSAN_COUNT == 0
			CALL SUNNA_BACK
			CALL DEL_CEVENT("混浴桑拿中",TARGET)
			OSAN_COUNT = 1 + RAND:2
		ENDIF
		SIF CEVENT("混浴桑拿中")
			OSAN_COUNT = OSAN_COUNT - 1
		IF !CEVENT("穿着浴巾",TARGET)
			CALL SET_CEVENT("NTRS_露出")
		ENDIF
		SIF CEVENT("同汤",TARGET)
			CALL NTRS_EXP_SUMMARY
	NEXT
	; PRINTFORMW 温泉馆主要内容结束
	; PRINTFORMW 这里删除所在有关温泉EVENT
	CALL ONSEN_OUT
	SIF CEVENT("位于男汤",MASTER)
		CALL DEL_CEVENT("位于男汤",MASTER)
	SIF CEVENT("位于女汤",MASTER)
		CALL DEL_CEVENT("位于女汤",MASTER)
	SIF CEVENT("位于混浴",MASTER)
		CALL DEL_CEVENT("位于混浴",MASTER)
	SIF CEVENT("位于女汤",TARGET)
		CALL DEL_CEVENT("位于女汤",TARGET)
	SIF CEVENT("位于混浴",TARGET)
		CALL DEL_CEVENT("位于混浴",TARGET)
	SIF CEVENT("位于混浴",TARGET)
		CALL DEL_CEVENT("位于混浴",TARGET)
	SIF CEVENT("同汤",TARGET)
		CALL DEL_CEVENT("同汤",TARGET)
	SIF CEVENT("穿着浴巾",TARGET)
		CALL DEL_CEVENT("穿着浴巾",TARGET)
	; PRINTFORMW 这里设置master泡过温泉的标志
	CALL SET_CEVENT("今天泡过温泉了",MASTER)
	CALL DEL_CEVENT("混浴桑拿发生",TARGET)
	CALL DEL_CEVENT("混浴桑拿偷窥",TARGET)
	CALL DEL_CEVENT("混浴桑拿中",TARGET)
	CFLAG:温泉行为 = 0
	CFLAG:MASTER:泡温泉次数 += 1
	CFLAG:TARGET:泡温泉次数 += 1

;绘制UI上半部分
@EVENT_ONSEN_TOP
	DRAWLINE
	DRAWLINE
	; PRINTFORML 温泉馆上UI开始
	PRINTFORML
	PRINTFORM %TEXTS("日期表示")%
	PRINTFORML -%TEXTS("現在位置")%-
	SIF CEVENT("位于男汤",MASTER)
		PRINTFORML 『銀醴』温泉	-男汤-
	SIF CEVENT("位于女汤",MASTER)
		PRINTFORML 『銀醴』温泉	-女汤-
	SIF CEVENT("位于混浴",MASTER)
		PRINTFORML 『銀醴』温泉	-混浴-
	PRINTFORML
	PRINTFORM 今天的温泉是
	IF CEVENT("玫瑰温泉",TARGET)
		CALL PRINT_STRL, @"紅_玫瑰温泉"
	ELSEIF CEVENT("牛奶温泉",TARGET)
		CALL PRINT_STRL, @"黄色_牛奶温泉"
	ELSEIF CEVENT("鱼疗温泉",TARGET)
		CALL PRINT_STRL, @"緑_鱼疗温泉"
	ELSE
		CALL PRINT_STRL, @"普通温泉"
	ENDIF
	PRINTFORML
	PRINTFORML
	; PRINTFORML master : {CFLAG:MASTER:泡温泉次数}
	PRINTFORML %CALLNAME:TARGET%泡温泉的次数 : {CFLAG:TARGET:泡温泉次数}次
	PRINTFORML 当前温泉露出等级 :{CFLAG:温泉露出等级}Lv
	CALL GET_MOOD_VALUE
	; PRINTFORML 气氛值 : {TCVAR:混浴温泉气氛值}
	SIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		CALL GET_PEOPLE_MAIN
	; 颜绘
	IF !CEVENT("混浴桑拿中")
		CALL PRINT_MAIDFACE, TARGET
	ELSE
		PRINTFORML %CALLNAME:TARGET%正在桑拿间里...
	ENDIF
	DRAWLINE

;绘制UI下半部分(选项)
@EVENT_ONSEN_BOTTOM
	#DIM LCOUNT
	#DIM NEXT_LINE
	STR:選択肢 =
	SIF !CEVENT("位于男汤",MASTER) && !CEVENT("位于女汤",MASTER) && !CEVENT("位于混浴",MASTER)
		STR:選択肢 += "[1]男汤/"
	SIF !CEVENT("位于女汤",MASTER) && !CEVENT("位于男汤",MASTER) && !CEVENT("位于混浴",MASTER)
		STR:選択肢 += "[2]女汤/"
	SIF !CEVENT("位于女汤",MASTER) && !CEVENT("位于男汤",MASTER) && !CEVENT("位于混浴",MASTER) && CEVENT("温泉馆VIP",MASTER)
		STR:選択肢 += "[3]混浴/"
	STR:選択肢 += "改行/DRAWLINE/"
	;进入任意温泉
	SIF CEVENT("位于男汤",MASTER) || CEVENT("位于女汤",MASTER) || CEVENT("位于混浴",MASTER)
		STR:選択肢 += "[10]观察四周/"
	;进入温泉且两人在同一温泉
	SIF (CEVENT("位于女汤",MASTER) || CEVENT("位于混浴",MASTER)) && CEVENT("同汤",TARGET) && !CEVENT("混浴桑拿中",TARGET)
		STR:選択肢 += "[11]与同伴交流/"
	;同汤且没穿浴巾
	SIF (CEVENT("位于女汤",MASTER) || CEVENT("位于混浴",MASTER)) && CEVENT("同汤",TARGET) && !CEVENT("穿着浴巾",TARGET) && !CEVENT("混浴桑拿中",TARGET)
		STR:選択肢 += "[19]让同伴穿上浴巾/"
	;同汤且穿着浴巾
	SIF (CEVENT("位于女汤",MASTER) || CEVENT("位于混浴",MASTER)) && CEVENT("同汤",TARGET) && CEVENT("穿着浴巾",TARGET) && !CEVENT("混浴桑拿中",TARGET)
		STR:選択肢 += "[19]让同伴脱下浴巾/"
	STR:選択肢 += "改行/"
	SIF (CEVENT("位于女汤",MASTER) || CEVENT("位于混浴",MASTER)) && CEVENT("同汤",TARGET) && !CEVENT("混浴桑拿中",TARGET)
		STR:選択肢 += "[21]接吻/[22]揉胸/[23]爱抚/"
	STR:選択肢 += "改行/"
	SIF (CEVENT("位于女汤",MASTER) || CEVENT("位于混浴",MASTER)) && CEVENT("同汤",TARGET) && !CEVENT("混浴桑拿中",TARGET) && TCVAR:混浴温泉气氛值 >= 30
		STR:選択肢 += "[24]口交/[25]正面坐位/[26]背面座位/"
	STR:選択肢 += "改行/"
	SIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET) && !CEVENT("混浴桑拿中",TARGET)
		STR:選択肢 += "[27]让同伴去桑拿房/"
	SIF CEVENT("混浴桑拿中",TARGET)
		STR:選択肢 += "爱心粉紅/[28]桑拿偷窥/"
	SIF !CEVENT("混浴桑拿中",TARGET)  && CEVENT("混浴桑拿发生",TARGET)
		STR:選択肢 += "爱心粉紅/[29]讨论桑拿/"
	STR:選択肢 += "改行/DRAWLINE/"
	STR:選択肢 += "[99]离开温泉"

	CALL SELECT_BAN
		VARSET LOCALS
		SPLIT STR:選択肢, "/", LOCALS
		NEXT_LINE = 0
		FOR LCOUNT, 0, 100
			;まずは色だけチェック
			SELECTCASE LOCALS:LCOUNT
			CASE "灰色", "水色", "爱心粉紅", "青", "緑", "緑色", "黄色"
				;すでに指定色になっている場合は色変換を止める
				IF GETCOLOR() != DEF_COLOR(LOCALS:LCOUNT)
					SETCOLOR DEF_COLOR(LOCALS:LCOUNT)
					CONTINUE
				ENDIF
			ENDSELECT

			SELECTCASE LOCALS:LCOUNT
			CASE ""
				BREAK
			CASE "太字"
				FONTSTYLE 1
				CONTINUE
			CASE "改行"
				SIF NEXT_LINE%5
					PRINTL
				NEXT_LINE = 0
				CONTINUE
			CASE "DRAWLINE"
				IF NEXT_LINE%5
					NEXT_LINE = 0
					PRINTL
				ENDIF
				DRAWLINE
				CONTINUE
			ENDSELECT

			;太字にした？
			IF GETBIT(GETSTYLE(), 0)
				SELECTCASE LOCALS:LCOUNT
				CASE "NOBUTTON"
					PRINTPLAINFORM %TEXT_LJ("", 21)%
				CASEELSE
					PRINTFORM %TEXT_LJ(LOCALS:LCOUNT, 21)%
				ENDSELECT
			ELSE
				SELECTCASE LOCALS:LCOUNT
				CASE "NOBUTTON"
					PRINTPLAINFORM %TEXT_LJ("", 24)%
				CASEELSE
					PRINTFORM %TEXT_LJ(LOCALS:LCOUNT, 24)%
				ENDSELECT
			ENDIF
			FONTREGULAR
			RESETCOLOR

			NEXT_LINE += 1
			SIF NEXT_LINE%5 == 0
				PRINTL
		NEXT

; 一开始主人公只能进自己对应性别的温泉、选择不同性别温泉只会让老板出面制止
; 在泡温泉超过3次之后、再选择性别不同的温泉时老板会提醒3次、第三次会推荐温泉馆的隐藏服务、
; 花费5000円即可获得温泉馆VIP、解锁混浴

@ONSEN_EVENT, ARG
	SELECTCASE ARG
		;男汤
		CASE 1
			CALL ONSEN_OTOKOYU
		;女汤
		CASE 2
			CALL ONSEN_ONNAYU
		;混浴
		CASE 3
			CALL ONSEN_KONYOKU
		;观察四周
		CASE 10
			CALL ONSEN_MIMAWASU
		;与同伴接吻
		CASE 21
			CALL ONSEN_KISU
		;揉胸
		CASE 22
			CALL ONSEN_OPI
		;爱抚
		CASE 23
			CALL ONSEN_OPI
		;让同伴脱下浴巾 / 穿上浴巾
		CASE 19
			CALL ONSEN_BASUTAORU
		;口交
		CASE 24
			CALL ONSEN_ORARUSEKKUSU
		;正面座位
		CASE 25
			CALL ONSEN_TAIMENZAI
		;背面座位
		CASE 26
			CALL ONSEN_HAIMENZAI
		;让同伴去桑拿房
		CASE 27
			CALL ONSEN_SAUNA
		;桑拿偷窥
		CASE 28
			CALL SUNNA_NOZOMI
		;桑拿聊天
		CASE 29
			CALL SUNNA_TALK
		;与同伴交流
		CASE 11
			CALL ONSEN_CHATTO
		;离开温泉
		CASE 99
			CALL ONSEN_LEAVE
		;超出选项范围
		CASEELSE
			PRINTFORMW ONSEN_EVENT进入错误分支
			RETURN 1
	ENDSELECT


code:
;SAVESTR:現在位置 == "温泉街"在整个流程中不变，通过CEVENT判断角色泡温泉的具体位置

;------------此处CEVENT游戏中永远不删除------------
;CEVENT("发现温泉馆",MASTER) 判定是不是第一次来温泉馆
;CEVENT("温泉馆VIP",MASTER) 解锁混浴
;CEVENT("今天泡过温泉了",MASTER) 判定今天是不是泡过
;CEVENT("错误性别1",MASTER)	MASTER第一次进入性别不同泳池
;CEVENT("错误性别2",MASTER)	MASTER第二次进入不同性别泳池

;-------此处CEVENT在泡完温泉后的当日结束后删除-------
;CEVENT("今天泡过温泉了",MASTER)	今天进入过温泉部

;------------此处CEVENT在温泉部结束后删除-----------
;CEVENT("同汤",TARGET) 两人在同一浴场
;CEVENT("穿着浴巾",TARGET) 同伴穿着浴巾

;CEVENT("位于男汤",MASTER)	MASTER进入男汤
;CEVENT("位于女汤",MASTER)	MASTER进入女汤
;CEVENT("位于混浴",MASTER)	MASTER进入混浴
;同伴固定女性，不会进入男汤
;CEVENT("位于女汤",TARGET)	TARGET进入女汤
;CEVENT("位于混浴",TARGET)	TARGET进入混浴

;CEVENT("玫瑰温泉",TARGET)	当天玫瑰温泉
;CEVENT("牛奶温泉",TARGET)	当前牛奶温泉
;CEVENT("鱼疗温泉",TARGET)	当天鱼疗温泉

@FIRST_ONSEN
	PRINTFORMW 放学回去的途中、%CALLNAME:MASTER%跟%CALLNAME:TARGET%偶然发现附近开了一家温泉馆
	PRINTFORMW 招牌上写着『銀醴』两个金色的大字
	PRINTFORMW 「这个温泉看上去像是新开的呢」
	PRINTFORMW 「装修似乎看着还不错」
	PRINTFORMW 「有机会去泡泡吧」
	PRINTFORMW
	PRINTFORMW 开放场所：銀醴温泉馆
	PRINTFORMW
	CALL SET_CEVENT("发现温泉馆",MASTER)

@ONSEN_INIT
	PRINTFORMW 你带着%CALLNAME:TARGET%来到了『銀醴』温泉馆中
	PRINTFORMW 『%TEXTR("贵安——两位客人/晚上好、两位客人")%』
	PRINTFORMW 成熟的女将从柜台处向你们打招呼

@ONSEN_OTOKOYU
	IF TALENT:MASTER:男性
		PRINTFORMW 这里是男浴场
		CALL SET_CEVENT("位于男汤",MASTER)
		PRINTFORMW 同伴会去女浴场
		CALL SET_CEVENT("位于女汤",TARGET)

		CALL SET_CEVENT("穿着浴巾",TARGET)
		; PRINTFORMW 男汤-选项结束
	ELSE
		PRINTFORMW 1111
		IF CEVENT("错误性别2",MASTER) && CFLAG:MASTER:泡温泉次数 >= 3
			PRINTFORMW 老板娘拉住你的手、附在你的耳边轻轻说到
			PRINTFORMW 『这位客人、其实本店还有一项隐藏服务』
			PRINTFORMW 『既然您这么想去有异性的温泉的话、不如购买下我们店的VIP卡』
			PRINTFORMW 『只需5000円、您意下如何』
			CALL PRINT_SELECT, "同意/拒绝"
			IF RESULT == 1
				PRINTFORMW 『啊啦————残念——』
				PRINTFORMW 『那还是请您回旁边的女汤吧』
			ELSE
				IF MONEY < 5000
					PRINTFORMW 『啊啦————残念——』
					PRINTFORMW 『您的现金似乎没带够呢、请下次再来购买吧』
				ELSE
					PRINTFORMW 『多谢惠顾————』
					PRINTFORMW 『这是您的会员卡、请收好』
					PRINTFORMW 老板娘从抽屉里取出一张黑底嵌着金色花纹的卡片递了过来
					PRINTFORMW 『入口从那里的侧门进去向前走就到了』
					;PRINTFORMW 金额减少还没做
					MONEY -= 5000
					CALL SET_CEVENT("温泉馆VIP",MASTER)
				ENDIF
			ENDIF
			RETURN 0
		ELSEIF CEVENT("错误性别1",MASTER)
			PRINTFORMW 『抱歉呢、客人』
			PRINTFORMW 『这边是不能让您进的』
			CALL SET_CEVENT("错误性别2",MASTER)
			RETURN 0
		ELSEIF !TALENT:MASTER:男性
			PRINTFORMW 刚想进入男汤、便被老板娘拦了下来
			PRINTFORMW 『不好意思，这位客人』
			PRINTFORMW 『女性是不可以进入男汤的、请去女汤那边吧』
			CALL SET_CEVENT("错误性别1",MASTER)
			RETURN 0
		ENDIF
	ENDIF

@ONSEN_ONNAYU
	IF TALENT:MASTER:女性 || TALENT:MASTER:扶她
		PRINTFORMW 两人都会去女浴场
		CALL SET_CEVENT("位于女汤",MASTER)
		CALL SET_CEVENT("位于女汤",TARGET)
		CALL SET_CEVENT("同汤",TARGET)
		CALL SET_CEVENT("穿着浴巾",TARGET)
		; PRINTFORMW 女汤-选项结束
	ELSE
		IF CEVENT("错误性别2",MASTER) && CFLAG:MASTER:泡温泉次数 >= 3 && !CEVENT("温泉馆VIP",MASTER)
			PRINTFORMW 老板娘拉住你的手、附在你的耳边轻轻说到
			PRINTFORMW 『这位客人、其实本店还有一项隐藏服务』
			PRINTFORMW 『既然您这么想去有异性的温泉的话、不如购买下我们店的VIP卡』
			PRINTFORMW 『只需5000円、您意下如何』
			CALL PRINT_SELECT, "同意/拒绝"
			IF RESULT == 1
				PRINTFORMW 『啊啦————残念——』
				PRINTFORMW 『那还是请您回旁边的男汤吧』
			ELSE
				PRINTFORMW 『多谢惠顾————』
				PRINTFORMW 『这是您的会员卡、请收好』
				PRINTFORMW 老板娘从抽屉里取出一张黑底嵌着金色花纹的卡片递了过来
				PRINTFORMW 『入口从那里的侧门进去向前走就到了』
				;PRINTFORMW 金额减少还没做
				MONEY -= 5000
				CALL SET_CEVENT("温泉馆VIP",MASTER)
			ENDIF
			RETURN 0
		ENDIF
		IF CEVENT("错误性别1",MASTER)
			PRINTFORMW 『抱歉呢、客人』
			PRINTFORMW 『这边是不能让您进的』
			CALL SET_CEVENT("错误性别2",MASTER)
			RETURN 0
		ENDIF
		IF !CEVENT("错误性别1",MASTER)
			PRINTFORMW 刚想进入女汤、便被老板娘拦了下来
			PRINTFORMW 『不好意思，这位客人』
			PRINTFORMW 『男性是不可以进入女汤的、请去男汤那边吧』
			CALL SET_CEVENT("错误性别1",MASTER)
			RETURN 0
		ENDIF
	ENDIF

@ONSEN_KONYOKU
	PRINTFORML 将要前往混浴浴场了、希望%CALLNAME:TARGET%穿什么衣服呢
	IF CEVENT("牛奶温泉",TARGET)
		PRINTFORMW 由于今天是牛奶温泉、池水是不透明的白色、即便露出等级不高、也可以试试让%CALLNAME:TARGET%穿上任何衣服哦
	ENDIF
	CALL SET_CEVENT("位于混浴",MASTER)
	CALL SET_CEVENT("位于混浴",TARGET)
	CALL SET_CEVENT("同汤",TARGET)
	CALL SET_CEVENT("穿着浴巾",TARGET)
	CALL ONSAN_SUIT(0)
	;选择服装
	STR:選択肢 =
	STR:選択肢 += "学校泳衣/普通泳衣/"
	SIF CFLAG:温泉露出等级>=1 || CEVENT("牛奶温泉",TARGET)
		STR:選択肢 += "连体泳衣/"
	SIF CFLAG:温泉露出等级>=2 || CEVENT("牛奶温泉",TARGET)
		STR:選択肢 += "比基尼泳衣/"
	SIF CFLAG:温泉露出等级>=3 || CEVENT("牛奶温泉",TARGET)
		STR:選択肢 += "全裸浴巾/"
	SIF CFLAG:温泉露出等级>=4
		STR:選択肢 += "全裸/"
	CALL PRINT_SELECT, STR:選択肢
	PRINTFORM %CALLNAME:TARGET%换上了
	IF RESULT == 0
		CFLAG:温泉着装 = 0
		CALL ONSAN_SUIT(2)
		CALL PRINT_STRW, @"青_＜%"学校泳衣"%＞"
		PRINTFORML
		PRINTFORML
		PRINTFORMW 「%TEXTR("有点学校的氛围感呢/好像在上游泳课的感觉呢/学校泳衣也没什么不好的")%」
		PRINTFORM 随后、裹上浴巾、跟随你进入了温泉之中
	ELSEIF RESULT == 1
		CFLAG:温泉着装 = 1
		CALL ONSAN_SUIT(3)
		CALL PRINT_STRW, @"緑_＜%"普通泳衣"%＞"
		PRINTFORML
		PRINTFORML
		PRINTFORMW 「%TEXTR("平常的泳衣也不错呢/这样也没什么好担心的了")%」
		PRINTFORM 随后、裹上浴巾、跟随你进入了温泉之中
	ELSEIF RESULT == 2
		CFLAG:温泉着装 = 2
		CALL ONSAN_SUIT(4)
		CALL PRINT_STRW, @"水色_＜%"连体泳衣"%＞"
		PRINTFORML
		PRINTFORML
		PRINTFORMW 「%TEXTR("这个泳衣看起来有点色情呢/材质有点半透明的感觉、这样会被看到的吧/薄薄的、有点若隐若现的感觉")%」
		PRINTFORM 随后、裹上浴巾、跟随你进入了温泉之中
	ELSEIF RESULT == 3
		CFLAG:温泉着装 = 3
		CALL ONSAN_SUIT(5)
		CALL PRINT_STRW, @"ショッキング粉紅_＜%"比基尼"%＞"
		PRINTFORML
		PRINTFORML
		PRINTFORMW 「%TEXTR("这个布料有点太少了吧——/真的要穿成这样吗/这个真的有挡住什么吗")%」
		PRINTFORM 随后、裹上浴巾、跟随你进入了温泉之中
	ELSEIF RESULT == 4
		CFLAG:温泉着装 = 4
		CALL ONSAN_SUIT(6)
		CALL ONSAN_SUIT(0)
		CALL PRINT_STRW, @"粉紅_＜%"真空浴巾"%＞"
		PRINTFORML
		PRINTFORML
		PRINTFORMW 「%TEXTR("真是恶趣味呢、穿成这样什么的/真空浴巾什么的、真是大胆呢/")%」
		PRINTFORM 随后、跟随你进入了温泉之中
	ELSEIF RESULT == 5
		CFLAG:温泉着装 = 4
		CALL ONSAN_SUIT(6)
		CALL ONSAN_SUIT(1)
		CALL DEL_CEVENT("穿着浴巾",TARGET)
		CALL PRINT_STRW, @"爱心粉紅_＜%"全裸"%＞"
		PRINTFORML
		PRINTFORML
		PRINTFORMW 「%TEXTR("不管怎么说、这也太...../混浴里的大家都能看到吧/好、好的、")%」
		PRINTFORM 随后、跟随你进入了温泉之中
	ENDIF
	; PRINTFORMW 混浴-选项结束

;观察四周
@ONSEN_MIMAWASU
	CALL ONSAN_FACE(2)
	IF !CEVENT("位于混浴",MASTER)
		PRINTFORMW 温泉池的边缘是由大小不一的石头堆砌而成
		PRINTFORMW 一条鹅卵石铺设的小径从池边延伸至不远处的更衣室
		PRINTFORMW 四周是传统的竹制围栏、角落里有精心修剪过的灌木、以及一小片小型的竹林
		PRINTFORMW 氤氲的水汽缭绕在温泉池的周围，将整个景色笼罩在一片朦胧之中
	ELSE
		IF TCVAR:混浴温泉气氛值 >= 80 && CFLAG:温泉露出等级>=3
			PRINTFORMW 不大的温泉池中明显弥漫着淫靡的氛围、
			PRINTFORMW 粗重的呼吸与毫不掩饰的下流视线不断交杂着
			PRINTFORMW %TEXTR("几位一同泡温泉的女性们也不吝啬地打开浴巾、展示着自己里面赤裸的酮体/不远处一对恩爱的夫妻还大方的邀请着围观的人加入进来")%
		ELSEIF TCVAR:混浴温泉气氛值 < 30
			PRINTFORMW 氤氲的水汽缭绕在温泉池的周围，将整个景色笼罩在一片朦胧之中
			PRINTFORMW 人们三三两两的坐在温泉的各处
			PRINTFORMW 偶尔传来的亲吻声与呻吟、让人忍不住的想要仔细倾听
		ELSEIF TCVAR:混浴温泉气氛值 >= 30
			PRINTFORMW 愉悦的娇哼与呻吟时不时的飘入耳中、
			PRINTFORMW 抬头望去、氤氲的水汽后方、是几对交织在一起的身影
		ENDIF
	ENDIF

;与同伴交流
@ONSEN_CHATTO
	IF !CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		;纯爱动作或对话
	ELSEIF CEVENT("同汤",TARGET)
		IF CEVENT("穿着浴巾",TARGET)
			IF CFLAG:温泉着装 == 4
				IF CFLAG:温泉露出等级<=3
					PRINTFORMW %CALLNAME:TARGET%有些不自在地扭捏着身体
					PRINTFORMW 「里面什么都没穿、%TEXTR("感觉好羞耻/这样子要是被发现了该怎么办啊")%」
					CALL ONSAN_FACE(21)
				ELSEIF CFLAG:温泉露出等级==4
					PRINTFORMW 「%CNAME("主人")%很喜欢这种玩法呢」
					PRINTFORMW 「%TEXTR("要把浴巾再放下去一些吗/要把腿再张开一些吗")%」
					CALL ONSAN_FACE(12)
				ENDIF
			ELSE
				PRINTFORMW 跟大家一起泡澡的感觉也不坏
			ENDIF
		ELSE
			IF CFLAG:温泉着装 <= 2
				PRINTFORMW 「%TEXTR("嘛——泳衣而已/只是泳装的话")%」
			ELSEIF CFLAG:温泉着装 == 3
				PRINTFORMW 「这样的装扮是不是有点下流呢」
			ELSEIF CFLAG:温泉着装 == 4
				IF CFLAG:温泉露出等级 == 4 && TCVAR:混浴温泉气氛值 >= 80
					; 选择支
					PRINTFORMW 当你跟%CALLNAME:TARGET%交流的时候、一位男性靠近了你们
					PRINTFORMW 表示想跟%CALLNAME:TARGET%亲热一下
					PRINTFORMW 你决定让%CALLNAME:TARGET%
					CALL PRINT_SELECT, "帮他口交/跟他性交/拒绝/"
					IF RESULT == 0
						; 口
						PRINTFORMW 「在~那~之~前~」
						PRINTFORMW 「要先充分沾上%CNAME("主人")%的味道才行」
						PRINTFORMW %CALLNAME:TARGET%捧起你的脸、贴了过来、来了一个浓密的湿吻
						CALL PRINT_STRW, @"「嗯_HH_、啾噜~~，啾噜_HH_」"
						CALL PRINT_STRW, @"「唔呣~啊_HH_、唔呣、嗯呜~~」"
						CALL PRINT_STRW, @"「嗯_HH_　哈……嗯咕 _HH_」"
						CALL PRINT_STRW, @"「啾啵、啾_HH_、咧捋~~」"
						PRINTFORMW %CALLNAME:TARGET%柔软的舌头在你口中充分的搅拌着、
						PRINTFORMW 你也伸出舌头将%CALLNAME:TARGET%整个口腔完全地染上你的气味
						PRINTFORMW 不久后、唇分、大量的口水在你跟%CALLNAME:TARGET%的张开的唇上拉出无数透明的丝线
						CALL PRINT_STRW, @"「呼~~_HH_、~~」"
						PRINTFORMW %CALLNAME:TARGET%舔着嘴边的唾液
						PRINTFORMW 「然后用这个沾满%CNAME("主人")%味道的小嘴、再去充分的侍奉那边肉棒」
						PRINTFORMW %CALLNAME:TARGET%带着笑意转向旁边、慢慢地蹲在了男人的身前
						PRINTFORMW 双手握住阴茎粗壮的根部
						PRINTFORMW 将嘴边还沾着唾液的脸贴近男人的肉棒前
						PRINTFORMW 伸出刚刚还在你嘴中搅动的舌头开始舔舐起龟头的尖端来
						PRINTFORMW 先是画着圈将先走汁与唾液混合着涂满龟头
						PRINTFORMW 用舌尖来回刺激起下方的系带
						PRINTFORMW 最后进攻着玲口的同时、双唇像亲吻般贴住龟头、吮吸起来
						PRINTFORMW 发出下流的水声
						CFLAG:温泉行为 = 5
						CALL SET_CEVENT("NTRS_接吻")
						CALL SET_CEVENT("NTRS_口交")
						CALL ONSAN_FACE(22)
					ELSEIF RESULT == 1
						IF TALENT:処女
							PRINTFORMW 「可以的话、我还是希望第一次是%CNAME("主人")%的」
							PRINTFORMW 由于%CALLNAME:TARGET%还是处女、因此拒绝了你的要求
						ELSE
							; 性
							PRINTFORMW %CALLNAME:TARGET%环住你的脖子、弯着腰从浴池中站起
							PRINTFORMW 向着身后的男人展示着自己秘密的花心
							PRINTFORMW 甜蜜的气息吹拂在你的耳边、那细弱蚊蝇的声音毫无间隔的钻入耳中
							PRINTFORMW 「%CNAME("主人")%喜欢这样的吧、」
							PRINTFORMW 「在最近的距离、听着女友被其他人侵犯而在耳边发出的娇喘」
							PRINTFORMW 「请%CNAME("主人")%好好的欣赏吧」
							PRINTFORMW 男人扶着%CALLNAME:TARGET%的臀部将勃起的阴茎压在小穴的入口
							PRINTFORMW 随着身后肉棒的进入、愉悦而妩媚的娇喘从耳边%CALLNAME:TARGET%的小嘴中直直的钻了进来
							CFLAG:温泉行为 = 6
							CALL ONSAN_FACE(32)
							CALL SET_CEVENT("NTRS_性交")
						ENDIF
					ELSEIF RESULT == 2
						PRINTFORMW 「抱歉」
						PRINTFORMW %CALLNAME:TARGET%朝着身后已经充分勃起的男性道歉着拒绝了
					ENDIF
				ELSEIF CFLAG:温泉露出等级<=3 && CEVENT("牛奶温泉",TARGET)
					PRINTFORMW 「呀！~呼~是%CNAME("主人")%啊」
					PRINTFORMW 「虽然别人也看不到、但是这样还是很羞耻」
					CALL ONSAN_FACE(11)
				ELSEIF CFLAG:温泉露出等级 == 4
					PRINTFORMW 「这样露出什么的」
					PRINTFORMW 「那边的大叔在盯着看哦」
					CALL ONSAN_FACE(13)
				ENDIF
			ENDIF
		ENDIF
	ENDIF

; 接吻
@ONSEN_KISU
	IF !CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)

	ELSEIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		CFLAG:温泉行为 = 1
		CALL ONSAN_FACE(4)
		CALL SET_CEVENT("NTRS_接吻")
		; PRINTFORMW 混浴接吻描写
		PRINTFORMW 「%TEXTR("在这种地方接吻什么的/还有人在看着这边呢")%」
		PRINTFORMW 「%TEXTR("就这么想要吗/就这么想和我接吻吗")%」
		IF TCVAR:混浴温泉气氛值 >= 80
			PRINTFORMW %CALLNAME:TARGET%环住你的脖子、从你的身侧移了过来
			PRINTFORMW 细腻的大腿跨过你的腰间、最终柔软的臀部落在了你的腿上、与你四目相对
			PRINTFORMW 送上了热烈而又浓密的亲吻
		ELSE
			PRINTFORMW 坐在你身旁的%CALLNAME:TARGET%%TEXTR("环住你的脖子/将粉嫩的樱唇贴在了你的嘴边")%
		ENDIF
		CALL PRINT_STRW, @"「嗯唔……嗯呣」"
		CALL PRINT_STRW, @"「啾_HH_　嗯……啾咕、啾_HH_　」"
		CALL PRINT_STRW, @"「嗯_HH_　哈……嗯咕 _HH_」"
		; PRINTFORMW 氛围描写

		; PRINTFORMW 路人加入
		IF !CEVENT("穿着浴巾",TARGET) && CFLAG:温泉着装 == 4 && TCVAR:混浴温泉气氛值 >30
		CALL GET_PEOPLE_DEC()
			IF 	TCVAR:混浴温泉气氛值 < 80
				; PRINTFORMW 路人围观描写
				PRINTFORMW 几个大胆的路人更加靠近了一些
				PRINTFORMW 下流的目光不断扫视着%CALLNAME:TARGET%身上各处
				PRINTFORMW 从大腿到胸前、像是舔舐一般来回打量着
			ELSEIF TCVAR:混浴温泉气氛值 >= 80
				; PRINTFORMW 路人加入
				PRINTFORMW 一位%LOVERORG_MEMBER(RAND:6)%的男性贴近了%CALLNAME:TARGET%、询问你是否可以加入
 				CALL PRINT_SELECT, "允许/拒绝/"
				IF RESULT == 0
					CFLAG:温泉行为 = 5
					IF RAND:2 == 0
						; PRINTFORMW 爱抚/射在%CALLNAME:TARGET%身上
						; --爱抚
						PRINTFORMW 路人的手先是按在了%CALLNAME:TARGET%光洁的脊背上
						PRINTFORMW 游走着、感受那娇嫩而细腻肌肤
						PRINTFORMW 随后、滑向两侧、直到攀上了那柔软的双峰、感受那女性独有的柔软
						PRINTFORMW 享受一般、下流的揉弄起来
						PRINTFORMW 随后、沿着腰线缓缓向下、%CALLNAME:TARGET%也主动配合地翘起臀部
						PRINTFORMW 让男人的手能完美的嵌入这团软肉之中、肆意的揉捏起来
						PRINTFORMW 与你接吻的小嘴、发出叮咛的甜蜜娇喘、似乎来自身后男人的触碰让%CALLNAME:TARGET%有些舒服
						CALL SET_CEVENT("NTRS_爱抚")
					ELSE
						; --外射
						IF RAND:3 == 0
							PRINTFORMW 男人撸动着肉棒贴在了%CALLNAME:TARGET%的身上
							PRINTFORMW 不断用沾满先走汁的龟头摩擦着%CALLNAME:TARGET%的美丽的背脊
							PRINTFORMW 最后男人低吼着射精了、大量浓郁的精液将%CALLNAME:TARGET%背上的一小块区域都盖上了白灼
							PRINTFORMW 几滴浓稠的白色液体顺着姣好的曲线一路流下、钻入了屁股的缝隙中
						ELSEIF RAND:2 == 0
							PRINTFORMW 牵起%CALLNAME:TARGET%的一只手、将肉棒夹进了%CALLNAME:TARGET%干净的腋下
							PRINTFORMW 将先走汁涂满其中后、像是性器一般抽插起来
						ELSE
							PRINTFORMW 将肉棒夹在了两瓣柔软的臀肉中间
							PRINTFORMW 用玲口紧紧的贴在菊穴的入口、向着肠道中注入了大量的精液
						ENDIF
						CALL SET_CEVENT("NTRS_精液接触")
					ENDIF
				ELSE
					PRINTFORMW %CALLNAME:TARGET%顺着你的意思拒绝了这个男人想要加入的请求
					PRINTFORMW 不过%TEXTR("对于男人的靠近则并没有反对/默许了男人的靠近")%
					PRINTFORMW 那不断被撸动的肉棒几乎快要贴在%CALLNAME:TARGET%%TEXTR("白皙的脖颈/浑圆的臀部/光滑的脊背")%上
					CALL SET_CEVENT("NTRS_露出")
				ENDIF
			ENDIF
		ENDIF

	ENDIF

; 揉胸
@ONSEN_OPI
	IF !CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)

	ELSEIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		CFLAG:温泉行为 = 1
		CALL ONSAN_FACE(13)
		CALL SET_CEVENT("NTRS_爱抚")
		;混浴揉胸描写
		IF TCVAR:混浴温泉气氛值 >= 60
			PRINTFORMW 将%CALLNAME:TARGET%从身后抱住坐在你的腿上、让她直面温泉中其他男性的目光
		ENDIF
		IF CEVENT("穿着浴巾",TARGET)
			IF RAND:2 == 0
				PRINTFORMW 你的大手覆上了%CALLNAME:TARGET%丰满柔软的乳房,隔着浴巾揉弄按摩起来。
				PRINTFORMW 双手用力抓握那两团弹性十足的软肉,感受手中的柔韧与饱满。
				PRINTFORMW 很快,%CALLNAME:TARGET%的乳头就在薄薄的布料下挺立起来,像两颗小石子硬硬地抵在你的手心。
				PRINTFORMW 你用力一捏,%CALLNAME:TARGET%的身体就敏感地一缩。
			ELSE
				PRINTFORMW 你的手指探进浴巾中里,直接揉弄%CALLNAME:TARGET%敏感的乳头。
				PRINTFORMW 你用指尖轻轻刮蹭,再用指腹揉按那凸起的肉粒。
				PRINTFORMW %CALLNAME:TARGET%的呼吸逐渐急促,胸部跟随你的动作起伏。
			ENDIF
		ELSE
			IF CFLAG:温泉着装 == 4
				PRINTFORMW 你用双手攀上了%CALLNAME:TARGET%毫无遮挡的双乳、毫不顾忌周围地肆意揉弄起来
				PRINTFORMW 充满弹性的软肉在你的手中不断变化着形状
			ELSE
				PRINTFORMW 你的手从%CALLNAME:TARGET%侧面腋下探入那布料之中、直接抓握住那柔软的双乳
				PRINTFORMW 胸前薄薄的泳衣布料上不断浮现出手指的形状
			ENDIF
		ENDIF
		CALL GET_PEOPLE_DEC()
		IF !CEVENT("穿着浴巾",TARGET) && CFLAG:温泉着装 == 4 && TCVAR:混浴温泉气氛值 >30
			IF TCVAR:混浴温泉气氛值 < 60
				; PRINTFORMW ; 路人围观描写
			ENDIF
			PRINTFORMW 一位%LOVERORG_MEMBER(RAND:6)%的男性贴近了%CALLNAME:TARGET%、询问你是否可以加入
			CALL PRINT_SELECT, "允许/拒绝/"
			IF RESULT == 0
				CFLAG:温泉行为 = 5
				IF TCVAR:混浴温泉气氛值 >= 80
					; 路人加入
					; 口交
					PRINTFORMW 男人用手拨开%CALLNAME:TARGET%额前的秀发、双手捧住她的俏脸
					PRINTFORMW 将那冒着热气的男根递到了%CALLNAME:TARGET%的嘴边
					PRINTFORMW 看着眼前那下流的形状、伴随着浓郁的雄性气味浸入鼻腔、%CALLNAME:TARGET%明显有些意动了
					PRINTFORMW 主动的伸出舌头舔舐着龟头与玲口
					PRINTFORMW 随后顺从的张开嘴、配合男人送进来、那遍布青筋的肉棒慢慢没入%CALLNAME:TARGET%口中
					PRINTFORMW 男人也因为快感而深深吸了一口气
					PRINTFORMW 随后抱住%CALLNAME:TARGET%的脸颊、大幅的摆动起腰部来
					PRINTFORMW 巨大的阴茎在%CALLNAME:TARGET%口中抽插、发出巨大而下流水声
					PRINTFORMW 唾液混杂着先走汁在每次拔出时、都会大量的从唇边溢出、拉出长长的丝线后、滴落在柔软的胸脯上
					; 对不起、%CNAME("主人")%、一不小心就入迷了
					CALL SET_CEVENT("NTRS_口交")
				ELSEIF TCVAR:混浴温泉气氛值 >= 60
					; 路人加入
					PRINTFORMW 男人紧贴着坐在了%CALLNAME:TARGET%的旁边
					; 接吻
					PRINTFORMW 男人弯下腰、将脸贴近了%CALLNAME:TARGET%似乎想要亲吻
					PRINTFORMW 在你同意后、他大胆地向前挺身、用红润的舌头缠住%CALLNAME:TARGET%的小舌、贪婪地吸吮起来。
					PRINTFORMW 男人的舌头在%CALLNAME:TARGET%嘴中不断搅动、似乎想舔遍每一寸地方。
					PRINTFORMW %CALLNAME:TARGET%也被他的热情感染、主动地吸吮他的舌头,发出轻轻的吞咽水声。
					PRINTFORMW 两条舌头你来我往地翻搅缠绕、舔弄对方的舌面和舌下、彼此的津液也互相吞了下去。
					CALL ONSAN_FACE(33)
					CALL SET_CEVENT("NTRS_接吻")
				ENDIF
			ELSE
				PRINTFORMW %CALLNAME:TARGET%顺着你的意思拒绝了这个男人想要加入的请求
				PRINTFORMW 不过%TEXTR("对于男人的靠近则并没有反对/默许了男人的靠近")%
				PRINTFORMW 男人在%CALLNAME:TARGET%的身前撸动起来、那%TEXTR("冒着热气的/沾满先走汁反射出淫靡光泽的/充分膨胀的紫红色")%龟头几乎快要贴在%CALLNAME:TARGET%的嘴唇上
				PRINTFORMW 男人将脸贴近%CALLNAME:TARGET%的面前、一边撸动着、一边观赏%CALLNAME:TARGET%近在咫尺的美丽容颜
				PRINTFORMW 不到一拳的距离、让彼此的呼吸都有些交汇在一起、%CALLNAME:TARGET%不时吐露出的甜蜜喘息也清晰的钻入男人的耳中
				CALL SET_CEVENT("NTRS_露出")
			ENDIF

		ENDIF

	ENDIF

; 口交
@ONSEN_ORARUSEKKUSU
	IF !CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)

	ELSEIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		; PRINTFORMW 口交描写
		CALL TRAIN_MESSAGE_COM91
		CALL SET_CEVENT("NTRS_口交")
		CFLAG:温泉行为 = 3
		; PRINTFORMW 氛围描写
		; PRINTFORMW 路人加入
		IF !CEVENT("穿着浴巾",TARGET) && CFLAG:温泉着装 == 4 && TCVAR:混浴温泉气氛值 >30
			IF 	TCVAR:混浴温泉气氛值 < 80
				; PRINTFORMW 路人围观描写
				CALL GET_PEOPLE_DEC()
			ELSEIF TCVAR:混浴温泉气氛值 >= 80
				CFLAG:温泉行为 = 5
				; PRINTFORMW 路人加入
				; 在%CALLNAME:TARGET%帮你进行口交侍奉的同时
				; 几个男性走了过来、询问是否能够加入
 				; PRINTFORMW 爱抚/射在%CALLNAME:TARGET%身上
				PRINTFORMW 你同意了请求、他们似乎很兴奋
				PRINTFORMW 扯下腰间的浴巾、将早已挺立的阴茎对准了%CALLNAME:TARGET%
				PRINTFORMW %CALLNAME:TARGET%%TEXTR("朝你翻了个白眼、却也没有拒绝/有些羞涩的脸红、并没有抗拒/朝你调皮的眨了下眼")%
				PRINTFORMW 随后握住左右两边的阴茎、熟练的%TEXTR("套弄/旋转着刺激")%起来
				PRINTFORMW 还有的男性握着肉棒在%CALLNAME:TARGET%身上与屁股上的柔嫩肌肤上摩擦起来
				PRINTFORMW 龟头、系带、%CALLNAME:TARGET%的手娴熟的不停进攻着男性的敏感点
				PRINTFORMW 并旋转着不断的从根部直达龟头地整根刺激着
				PRINTFORMW 右边的男性很快就要到达极限
				PRINTFORMW %CALLNAME:TARGET%不断加快速度的同时、将正在为你口交的小嘴、吻在了这位男性的龟头上、
				PRINTFORMW 一边用舌头进攻玲口、一边撸动的同时强力的吸吮着
				PRINTFORMW 强烈的刺激给与肉棒最后一击、
				PRINTFORMW 猛烈的射精感直冲大脑、精液以射空的气势爆发出来
				PRINTFORMW %CALLNAME:TARGET%紧紧的吻住龟头、将一切都接纳下来
				PRINTFORMW 这样新鲜的精子、对%CALLNAME:TARGET%来说无疑是最好的嘉奖
				PRINTFORMW 一滴不剩的全部吞入腹中
				PRINTFORMW 另一边的男人也快到极限了
				PRINTFORMW %CALLNAME:TARGET%转过头、张开嘴巴想含住阴茎、却晚了一步
				PRINTFORMW 肉棒挺立着、向着前方爆发了
				PRINTFORMW 温热的精液就这样不断地浇在了%CALLNAME:TARGET%的脸上、直到整个脸都被浓稠的精液覆盖
				CALL ONSAN_FACE(22)
				CALL ONSAN_SUIT(8)
				CALL SET_CEVENT("NTRS_精飲")
			ENDIF
		ENDIF

	ENDIF

;穿脱浴巾
@ONSEN_BASUTAORU
IF CEVENT("穿着浴巾",TARGET)
	CALL ONSAN_SUIT(1)
	CALL SET_CEVENT("NTRS_露出")
	IF !CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		PRINTFORMW 甜蜜动作与发言
	ELSEIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
		IF CFLAG:温泉着装 <= 2
			CALL ONSAN_FACE(1+RAND:2)
			PRINTFORMW 「%TEXTR("嘛——泳衣而已/只是泳装的话")%」
		ELSEIF CFLAG:温泉着装 == 3
			PRINTFORMW 「%TEXTR("里——里面可是比基尼哦/在温泉里只穿比基尼什么的")%」
			PRINTFORMW 「%TEXTR("要是被别人看到了、我可不管哦/肯定会被人盯着看的吧")%」
			CALL ONSAN_FACE(21+RAND:2)
		ELSEIF CFLAG:温泉着装 == 4
			CFLAG:温泉行为 = 2
			IF CEVENT("牛奶温泉",TARGET) && CFLAG:温泉着装 == 4
			CALL ONSAN_FACE(12)
				IF CFLAG:温泉露出等级 == 1
					; 唉！？要脱掉吗？
					PRINTFORMW 听到你的提议、%CALLNAME:TARGET%的脸瞬间涨红起来、
					PRINTFORMW 「不行不行不行——」
					PRINTFORMW 「里面不穿什么的已经很羞耻了、要是再把浴巾脱掉的话」
					PRINTFORMW 「反正是牛奶温泉、大家也看不到吗」
					PRINTFORMW 「好、好吧」
					PRINTFORMW %CALLNAME:TARGET%缓缓下沉、将上半身完全没在了温泉中
					PRINTFORMW 过了一会、一双有些颤抖的手握住了你的胳膊
					PRINTFORMW 「已、已经脱掉了哦」
					PRINTFORMW 「哈————好羞耻、在这么多人的地方脱掉全裸什么的...」
				ELSEIF CFLAG:温泉露出等级 == 2
					PRINTFORMW 「又要脱掉吗」
					PRINTFORMW 「旁边还有人坐的这么近、被发现了怎么办」
					PRINTFORMW 「哎？会兴奋起来吗？%CNAME("主人")%真是变态」
					PRINTFORMW 「嘛-嘛——这次是特例哦」
					PRINTFORMW %CALLNAME:TARGET%悄悄的解开浴巾左边的结
					PRINTFORMW 以不被人注意到动作、坐在池中慢慢的将浴巾打开
					PRINTFORMW 随着池水的晃动、%CALLNAME:TARGET%雪白的乳房在牛乳色的池中若隐若现
					PRINTFORMW 如果有观察仔细的人、或许能够发现
					PRINTFORMW 「哈———总感觉脑袋有点晕乎乎的」
				ELSEIF CFLAG:温泉露出等级 == 3
					PRINTFORMW 「要脱掉吗」
					PRINTFORMW %CALLNAME:TARGET%看起来似乎有些兴奋
					PRINTFORMW 「既然是%CNAME("主人")%的要求、那我也没办法呢」
					PRINTFORMW 「在这么多人的地方、在水下暴露身体什么的」
				ENDIF
			ELSEIF CFLAG:温泉行为 == 4 && CFLAG:温泉着装 ==4
				PRINTFORMW 你让%CALLNAME:TARGET%转过身、背朝你、面向前方被吸引过来的男人们
				PRINTFORMW 随后在众人的目光下、解开了%CALLNAME:TARGET%裹着身体的浴巾
				PRINTFORMW 让%CALLNAME:TARGET%一丝不挂的身体暴露在众人的眼前
			ELSEIF CFLAG:温泉着装 ==4 && CFLAG:温泉露出等级 < 4
				PRINTFORMW %CALLNAME:TARGET%涨红了脸，却还是慢慢的将浴巾向两侧打开
				PRINTFORMW %OBAI_DECRIPTION()%露出了大半、樱色的乳晕在浴巾后方若隐若现
				PRINTFORMW 周围有几个男性也注意到这边、隐涩的目光不断的扫在%CALLNAME:TARGET%的胸前
				PRINTFORMW %CALLNAME:TARGET%赶忙将浴巾合上、低下头、脸色通红
			ELSE
				PRINTFORMW %CALLNAME:TARGET%脸色微红
			ENDIF
		ENDIF
	ENDIF
	CALL DEL_CEVENT("穿着浴巾",TARGET)
	PRINTFORMW %CALLNAME:TARGET%脸色微红地将浴巾解开、
	PRINTFORMW 露出了里面%OSAN_SUIT()%
ELSE
	PRINTFORMW %CALLNAME:TARGET%将浴巾重新拉起、重新裹在了身上
	CALL SET_CEVENT("穿着浴巾",TARGET)
	CALL ONSAN_SUIT(0)
	CALL DEL_CEVENT, "NTRS_露出"
	; CALL ONSAN_FACE(1)
ENDIF

; 正面坐位
@ONSEN_TAIMENZAI
	; --导入

	; --过程
	CFLAG:温泉行为 = 4
	CALL ONSAN_FACE(32)
	CALL SET_CEVENT("NTRS_性交")
	PRINTFORMW 你将%CALLNAME:TARGET%从正面互相拥抱、充分润湿的腔内将你的阴茎紧紧的包裹吮吸起来
	PRINTFORMW 一边激烈的舌吻着、一边猛烈的摇晃起腰肢
	IF !CEVENT("穿着浴巾",TARGET)
		PRINTFORMW 赤裸的脊背与圆润的臀部在池水中上下起伏着、
		PRINTFORMW 吸引着浴池中所有人的目光、
		PRINTFORMW 这近在咫尺的交配行为、让男人们性欲高涨
	ELSE
		PRINTFORMW 裹着浴巾却依然有着姣好曲线的身体、在水中上下起伏
		PRINTFORMW 男人们只能看着这一幕、想象着浴巾下方是何等的景象
	ENDIF

	; 路人加入
	IF !CEVENT("穿着浴巾",TARGET) && CFLAG:温泉着装 == 4 && TCVAR:混浴温泉气氛值 >30
	CALL GET_PEOPLE_DEC()
		IF TCVAR:混浴温泉气氛值 < 60
			; PRINTFORMW ; 路人围观描写
		ENDIF
		PRINTFORMW 一位%LOVERORG_MEMBER(RAND:6)%的男性贴近了%CALLNAME:TARGET%、询问你是否可以加入
		CALL PRINT_SELECT, "允许/拒绝"
		IF RESULT == 0
			CFLAG:温泉行为 = 5
			IF TCVAR:混浴温泉气氛值 >= 60
				; 路人加入
				; 口交
				PRINTFORMW 男人靠近了%CALLNAME:TARGET%的背后
				PRINTFORMW 将那冒着热气的男根贴在了%CALLNAME:TARGET%光洁的背上
				PRINTFORMW 随着%CALLNAME:TARGET%身体上下的摆动、%CALLNAME:TARGET%背后的肌肤与龟头不断摩擦着、将先走汁在背后慢慢涂抹开来
				CALL SET_CEVENT("NTRS_爱抚")
				CFLAG:温泉行为 = 5
			ELSEIF TCVAR:混浴温泉气氛值 >= 30
				; 路人加入
				PRINTFORMW 紧贴着坐在了%CALLNAME:TARGET%的身后
				; 接吻
				PRINTFORMW 在你同意后、他大胆地伸出双手、在%CALLNAME:TARGET%娇嫩的后背上摩挲起来
				PRINTFORMW 从肩颈慢慢滑下、掠过纤细的腰肢、最后到达圆润挺立的臀部
				PRINTFORMW 抚摸带来的异样感、让%CALLNAME:TARGET%的腔内忍不住的缩紧、刺激着你的肉棒
				CFLAG:温泉行为 = 5
				CALL SET_CEVENT("NTRS_爱抚")
			ENDIF
		ELSE
			PRINTFORMW 你无情地拒绝了他
		ENDIF

	ENDIF
	IF RAND:2 == 0
		; --结尾
		CALL ONSEN_IKU()
	ENDIF

; 背面坐位
; 背面坐位
@ONSEN_HAIMENZAI
#DIM LCOUNT
; --导入
; --过程
CFLAG:温泉行为 = 4
CALL ONSAN_FACE(32)
CALL TRAIN_MESSAGE_COM64
CALL SET_CEVENT("NTRS_性交")
IF !CEVENT("穿着浴巾",TARGET)
	IF CFLAG:温泉着装 == 4
		PRINTFORM 一丝不挂的
	ELSEIF CFLAG:温泉着装 == 3
		PRINTFORM %TEXTR("仅被几根细绳吊着的/堪堪遮挡住关键部位的")%
	ELSE
		PRINTFORM 被泳衣包裹着的
	ENDIF
	PRINTFORMW %OBAI_DECRIPTION()%在水面上方下流的摇动着
	PRINTFORMW %CALLNAME:TARGET%能够清晰的看到男人们毫不掩饰的贪婪目光随着自己的乳房上下起伏着
	PRINTFORMW 而他们身下的阴茎也都一个个的鼓胀挺立了起来
ELSEIF CEVENT("穿着浴巾",TARGET) && CFLAG:温泉着装 == 4
	PRINTFORMW 你让%CALLNAME:TARGET%转过身、背朝你、面向前方被吸引过来的男人们
	PRINTFORMW 随后在众人的目光下、解开了%CALLNAME:TARGET%裹着身体的浴巾
	PRINTFORMW 让%CALLNAME:TARGET%一丝不挂的身体暴露在众人的眼前
ENDIF
; --路人加入
IF !CEVENT("穿着浴巾",TARGET) && CFLAG:温泉着装 == 4 && TCVAR:混浴温泉气氛值 >30
	CALL GET_PEOPLE_DEC()
	IF TCVAR:混浴温泉气氛值 < 60
		; PRINTFORMW ; 路人围观描写
	ENDIF
	PRINTFORMW 一位%LOVERORG_MEMBER(RAND:6)%的男性贴近了%CALLNAME:TARGET%、询问你是否可以加入
	CALL PRINT_SELECT, "允许/拒绝/"
	IF RESULT == 0
		CFLAG:温泉行为 = 5
		CALL ONSAN_FACE(33)
		IF TCVAR:混浴温泉气氛值 >= 60
			; 路人加入
			; 口交
			PRINTFORMW 男人用手拨开%CALLNAME:TARGET%额前的秀发、双手捧住她的俏脸
			PRINTFORMW 将那冒着热气的男根递到了%CALLNAME:TARGET%的嘴边
			PRINTFORMW 看着眼前那下流的形状、伴随着浓郁的雄性气味浸入鼻腔、%CALLNAME:TARGET%明显有些意动了
			PRINTFORMW 主动的伸出舌头舔舐着龟头与玲口
			PRINTFORMW 随后顺从的张开嘴、配合男人送进来、那遍布青筋的肉棒慢慢没入%CALLNAME:TARGET%口中
			PRINTFORMW 男人也因为快感而深深吸了一口气
			PRINTFORMW 随后抱住%CALLNAME:TARGET%的脸颊、大幅的摆动起腰部来
			PRINTFORMW 巨大的阴茎在%CALLNAME:TARGET%口中抽插、发出巨大而下流水声
			PRINTFORMW 唾液混杂着先走汁在每次拔出时、都会大量的从唇边溢出、拉出长长的丝线后、滴落在柔软的胸脯上
			; 对不起、%CNAME("主人")%、一不小心就入迷了
			CALL SET_CEVENT("NTRS_口交")
		ELSEIF TCVAR:混浴温泉气氛值 >= 30
			; 路人加入
			PRINTFORMW 男人紧贴着坐在了%CALLNAME:TARGET%的旁边
			; 接吻
			PRINTFORMW 弯下腰、将脸贴近了%CALLNAME:TARGET%似乎想要亲吻
			PRINTFORMW 在你同意后、他大胆地向前挺身、用粗糙的舌头缠住%CALLNAME:TARGET%的小舌、贪婪地吸吮起来。
			PRINTFORMW 男人的舌头在%CALLNAME:TARGET%嘴中不断搅动、似乎想舔遍每一寸地方。
			PRINTFORMW %CALLNAME:TARGET%也被他的热情感染、主动地吸吮他的舌头,发出轻轻的吞咽水声。
			PRINTFORMW 两条舌头你来我往地翻搅缠绕、舔弄对方的舌面和舌下、彼此的津液也互相吞了下去。
			CALL SET_CEVENT("NTRS_接吻")
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:TARGET%顺着你的意思拒绝了这个男人想要加入的请求
		PRINTFORMW 不过%TEXTR("对于男人的靠近则并没有反对/默许了男人的靠近")%
		PRINTFORMW 男人在%CALLNAME:TARGET%的身前撸动起来、那%TEXTR("冒着热气的/沾满先走汁反射出淫靡光泽的/充分膨胀的紫红色")%龟头几乎快要贴在%CALLNAME:TARGET%的嘴唇上
		PRINTFORMW 男人将脸贴近%CALLNAME:TARGET%的面前、一边撸动着、一边观赏%CALLNAME:TARGET%近在咫尺的美丽容颜
		PRINTFORMW 不到一拳的距离、让彼此的呼吸都有些交汇在一起、%CALLNAME:TARGET%不时吐露出的甜蜜喘息也清晰的钻入男人的耳中
		CALL SET_CEVENT("NTRS_露出")
	ENDIF
ELSE
	; EXP:TARGET:Ｈ回数 +=1
	; EXP:Ｖ経験 += 1
	; PRINTFORML Ｖ経験 +1
ENDIF
IF RAND:2 == 0
	; --结尾
	CALL ONSEN_IKU()
ENDIF

@ONSEN_SAUNA
IF !CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)

ELSEIF CEVENT("位于混浴",MASTER) && CEVENT("同汤",TARGET)
	CALL SET_CEVENT("混浴桑拿发生")
	CALL SET_CEVENT("混浴桑拿中")
	IF CFLAG:温泉露出等级 <= 2
		PRINTFORMW 桑拿房啊
		PRINTFORMW 「%CNAME("主人")%%TEXTR("不来的话我还是有点/不一起过来吗/要我一个人去吗")%」
		IF CFLAG:温泉着装 == 4 && !CEVENT("穿着浴巾",TARGET)
			PRINTFORMW 将旁边的浴巾裹在了身上
			CALL SET_CEVENT("穿着浴巾",TARGET)
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%有点犹豫、紧了紧身上%OSAN_SUIT()%、进入了桑拿间
	ELSEIF CFLAG:温泉露出等级 <= 3
		PRINTFORMW 听到你的建议、%CALLNAME:TARGET%脸颊微微泛红
		PRINTFORMW 「%TEXTR("真、真要这么做吗/我会去的、一个人、去那里")%”」
	ELSE
		PRINTFORMW 「%CNAME("主人")%喜欢%TEXTR("这种play吧/这样的事吧/我这样吗")%」
		PRINTFORMW %CALLNAME:TARGET%在你%TEXTR("脸上/唇上/额头上")%轻轻一吻、迈着细碎的步子走进了桑拿间
	ENDIF
	IF TCVAR:混浴温泉气氛值 >= 60
		PRINTFORMW 在%CALLNAME:TARGET%进入桑拿房没多久后、一位%LOVERORG_MEMBER(RAND:6)%的男性也跟着进去了
		IF TCVAR:混浴温泉气氛值 >= 80
			PRINTFORMW 在进门前男人松了松腰间已经鼓起的浴巾、随后若如无其事的关上了门
		ENDIF
	ENDIF

ENDIF

;桑拿偷窥
@SUNNA_NOZOMI
PRINTFORMW 过了一会、一股莫名的冲动从心底涌出、你决定去偷看一下桑拿房中的状况
PRINTFORMW 从桑拿房门上的玻璃向内看去、蒸腾的雾气后方是那熟悉的身影...
CALL SET_CEVENT("混浴桑拿偷窥")
IF CFLAG:温泉露出等级 <= 2
	PRINTFORMW 陌生的男人坐在了%CALLNAME:TARGET%的旁边、两人似乎在交谈着什么
	PRINTFORMW %CALLNAME:TARGET%的脸颊有些泛红、不知是不是因为桑拿房中的温度的原因
	PRINTFORMW 不断流出的汗液划过%CALLNAME:TARGET%红润细腻的肌肤
	IF TCVAR:混浴温泉气氛值 > 40
		PRINTFORMW 似乎是谈到了什么、男人挪动着身子坐在了离%CALLNAME:TARGET%更近的地方
		PRINTFORMW 两人隔着不到一拳的距离、几乎随时都会碰到一起
	ENDIF
ELSEIF (CFLAG:温泉露出等级 == 3 && TCVAR:混浴温泉气氛值 >= 60) || (CFLAG:温泉露出等级 == 4 && TCVAR:混浴温泉气氛值 < 60)
	IF RAND:3 == 0
		; --口交
		PRINTFORMW 男人双腿岔开着坐靠在木质的长椅上
		PRINTFORMW 而%CALLNAME:TARGET%则双腿微开跪立在那岔开的两腿之间
		PRINTFORMW 松松敞开的浴巾、隐约可见丰满雪白的酥乳、浴巾下摆也掩藏不住%CALLNAME:TARGET%大腿内侧白嫩的肌肤
		PRINTFORMW %CALLNAME:TARGET%双手握住粗硕的柱身,轻轻上下套弄、粉嫩的小舌旋转着将先走汁涂满整个龟头
		PRINTFORMW 随后双手慢慢下移、握住那沉甸甸的阴囊轻轻揉按着的同时、樱色的双唇吻住头部、顺着形状张开着将肉棒吞入深处
		CALL SET_CEVENT("NTRS_口交")
	ELSEIF RAND:2 == 0
		; --乳交
		PRINTFORMW 男人双腿岔开着坐靠在木质的长椅上
		PRINTFORMW 而%CALLNAME:TARGET%则双腿微开跪立在那岔开的两腿之间、将裹着的浴巾向两边打开
		PRINTFORMW 丰满雪白的酥乳一下子暴露在男人的眼前、而粗壮而坚挺的肉棒就在这柔软的乳肉前方
		PRINTFORMW 神圣的哺育器官与狰狞的男性器形成了强烈的对比与反差
		PRINTFORMW 男人毫不留情的抓住那对饱满的乳房、将自己的肉棒夹在其中肆意的揉捏起来
		PRINTFORMW 不断溢出的先走汁充当了润滑剂的作用、将%CALLNAME:TARGET%整个胸部都染上了反光的色泽
		CALL SET_CEVENT("NTRS_乳交")
	ELSE
		; --浓密接吻素股
		PRINTFORMW %CALLNAME:TARGET%搂着男人的脖子跨坐在他的腰间
		PRINTFORMW 原来裹在%CALLNAME:TARGET%身上的浴巾早已被丢在一旁、深色的大手在%CALLNAME:TARGET%白皙的后背肆意游走
		PRINTFORMW 柔软的乳肉从两人紧贴的身体侧面挤出、浓密而缠绵的接吻声即使隔着桑拿房厚厚的门都能清晰的听见
		PRINTFORMW 饱满的臀肉下方是两人不断摩擦的性器
		PRINTFORMW 爱液不断的从蜜穴中溢出、柔软的阴唇紧贴着肉棒上方的杆部摩擦着
		PRINTFORMW 如果不是没有插入、这完全就是一场酣畅淋漓的背德性交了
		CALL SET_CEVENT("NTRS_绝顶")
	ENDIF
ELSEIF CFLAG:温泉露出等级 == 4 && TCVAR:混浴温泉气氛值 >= 60
	IF RAND:4 == 0
		PRINTFORMW %CALLNAME:TARGET%环抱着男人的脖子、双腿呈M字向两侧分开、跨过男人的腰间、踩在了木质的长椅上
		PRINTFORMW 饱满的臀肉下方、两瓣阴唇如同嘴巴一般大大的张开、贪婪地吮吸着那粗壮的杆部
		PRINTFORMW 男人手扶着%CALLNAME:TARGET%纤细的腰肢、上下摇动着、让%CALLNAME:TARGET%的小穴不断的吞下再吐出那坚硬的肉棒
		PRINTFORMW 每次臀部撞击在%TEXTR("男人跨间/肉棒根部时")%都会带起一阵肉浪向下方扩散、发出肉体拍击的[啪啪]声
	ELSE
		PRINTFORMW 男人正抱着%CALLNAME:TARGET%以以%TEXTR("后背位/站立后背位/火车便当位/正面抱起/背面抱起")%的姿势%TEXTR("激烈地/不停地/不断地")%侵犯着%CALLNAME:TARGET%的%TEXTR("小穴/花蕊")%
		PRINTFORMW %CALLNAME:TARGET%不断漏出甜美呻吟的同时、也主动地摇动臀部配合着部员交合的动作
		IF RAND:3 == 0
			PRINTFORMW 男人不断地变换着角度、刺激着%CALLNAME:TARGET%腔内的敏感位置
		ELSEIF RAND:2 == 0
			PRINTFORMW 男人如同打桩机一般、不断地扣响小穴最深处的秘密门扉
		ELSE
			PRINTFORMW 男人将肉棒拔出至龟头、再一口气全部插入、摩擦刺激着腔壁的每一个位置
		ENDIF
	ENDIF
	CALL SET_CEVENT("NTRS_性交")
ENDIF

@SUNNA_BACK
PRINTFORML
PRINTFORML
PRINTFORML
PRINTFORMW 十分钟后、满脸红晕的%CALLNAME:TARGET%从桑拿房中走了出来
CALL ONSAN_FACE(11)
; --比基尼
IF CEVENT("穿着浴巾",TARGET)
	PRINTFORMW 穿着%OSAN_SUIT()%的身体全部被汗水打湿、经过高温的洗礼泛着透明而诱人的粉色
ELSE
; --浴巾
	PRINTFORMW 浴下摆处、两条紧实的光洁大腿泛着诱人的粉色光泽
ENDIF
PRINTFORMW 在周围男人的目光下、%CALLNAME:TARGET%回到了温泉中、坐回了你身旁

@SUNNA_TALK
PRINTFORMW 当你询问到桑拿房中的事时
PRINTFORMW %CALLNAME:TARGET%%TEXTR("的脸颊明显的泛红起来/张着水润的双眸、满含媚意地白了你一眼")%
CALL ONSAN_FACE(13)
; --已偷看
IF CEVENT("混浴桑拿偷窥")
	PRINTFORMW 「%CNAME("主人")%%TEXTR("明明都看到了/我都发现你在外面偷看了")%」
	PRINTFORMW 「就不要再问啦」
ELSE
	IF CFLAG:温泉露出等级 <= 2
		PRINTFORMW 「什么都没做、只是在聊天罢了」
		IF TCVAR:混浴温泉气氛值 > 40
			PRINTFORMW 「硬要说的话」
			PRINTFORMW 「就是%TEXTR("稍稍坐的近了一些/不小心碰到他的那里")%」
		ENDIF
	ELSEIF (CFLAG:温泉露出等级 == 3 && TCVAR:混浴温泉气氛值 >= 60) || (CFLAG:温泉露出等级 == 4 && TCVAR:混浴温泉气氛值 < 80)
		IF CFLAG:温泉着装 == 4 && RAND:2 == 0
			PRINTFORMW 随后悄悄地掀开了浴巾的一角、露出了饱满的乳房
			PRINTFORMW 乳房上满是半透明的白色液体、随着浴巾的掀开、在乳头与布料间拉出了无数白色的精丝
			PRINTFORMW 「这是刚才桑拿房中乳交的成果哦」
			PRINTFORMW 「那根粗壮的肉棒竟然射出这么多粘稠的精子呢」
			PRINTFORMW 「呼呼~」
			PRINTFORMW 「不过射在这边多少有点浪费呢、要是能直接射进嘴里的话...」
			CALL SET_CEVENT("NTRS_精液接触")
			CALL SET_CEVENT("NTRS_乳交")
		ELSEIF CFLAG:温泉着装 == 2 && RAND:2 == 0
			PRINTFORMW 随后悄悄地掀开了浴巾的一角、露出里面的连体泳衣
			PRINTFORMW 胸部一块的布料有着明显的浸湿的痕迹、还有些许精丝从侧乳边泳衣与肌肤的缝隙中漏出来
			PRINTFORMW 「刚才桑拿房里的男性、就是从泳衣跟胸部的缝隙里把肉棒插进来」
			PRINTFORMW 「长长的、硬硬的、不断地在里面摩擦乳头跟胸部」
			PRINTFORMW 「最后直接把浓浓的精液直接射到了里面来」
			PRINTFORMW 「连体泳衣压迫着、导致现在两个乳房上都被精子涂满了呢	」
			CALL SET_CEVENT("NTRS_精液接触")
			CALL SET_CEVENT("NTRS_乳交")
		ELSE
			PRINTFORMW 随后侧过身子、凑到了你的耳边
			IF RAND:2 == 0
				PRINTFORMW 耳边%CALLNAME:TARGET%的嘴中响起了咕啾咕啾粘稠的搅拌声
				PRINTFORMW 「%CNAME("主人")%、听得到吗」
				PRINTFORMW 「这就是桑拿房里那位男性的精子哦」
				PRINTFORMW 「直到刚才为止、我都在嘴巴侍奉着肉棒呢」」
				PRINTFORMW 「跪在那个男人的大腿间、像个雌犬一样拼命的摆动着头、下流的舔舐着肉棒
				PRINTFORMW 「至于奖励、就是这个浓厚又粘稠的精液牛奶」
				CALL PRINT_STRW, @"[唔呣 ー _HH_]"
				PRINTFORMW 「咕呣~]
				CALL PRINT_STRW, @"[咕~ _HH_]"
				PRINTFORMW 「嗯呜]
				PRINTFORMW 「哈————]
				PRINTFORMW 「好厉害的气味————」
				PRINTFORMW 「%TEXTR("多谢款待/全部吞下去了呢")%」
				PRINTFORMW 「虽然不是%CNAME("主人")%的精子、但是也同样的美味哦」
			ELSE
				PRINTFORMW 搅拌着咀嚼起口中的精液、再一口一口地吞咽下去
				PRINTFORMW 最后略带腥味的灼热喘息轻轻喷吐在你的耳朵上
			ENDIF
			CALL SET_CEVENT("NTRS_口交")
			CALL SET_CEVENT("NTRS_精飲")
		ENDIF
	ELSEIF CFLAG:温泉露出等级 == 4 && TCVAR:混浴温泉气氛值 >= 60
		PRINTFORMW 随后一边与你亲吻一边报告着
		PRINTFORMW 在桑拿房中%TEXTR("骑在男人身上、不断扭动着腰部、/被男人抓住双腿压在身下、结合着的性器不断喷洒着爱液/趴在桑拿房的磨砂玻璃门上、被男人不断从后面进攻")%
		PRINTFORMW 直到%TEXTR("彼此一起到达高潮/被粗壮的肉棒抽插、痉挛着到达绝顶/子宫都被男人的精液所填满")%的经历
		CALL SET_CEVENT("NTRS_性交")
		CALL SET_CEVENT("NTRS_绝顶")
	ENDIF
ENDIF
CALL DEL_CEVENT("混浴桑拿发生",TARGET)
CALL DEL_CEVENT("混浴桑拿偷窥",TARGET)

@ONSEN_LEAVE
	PRINTFORMW 「要走了吗]
	; PRINTFORMW 离开温泉
	; PRINTFORMW 离开-选项结束

@ONSEN_OUT
#DIM OSAN_SCORE
CALL ONSAN_SUIT()
PRINTFORMW 今天的温泉结束了
OSAN_SCORE = TCVAR:混浴温泉气氛值
CFLAG:温泉露出分数 += OSAN_SCORE
IF CFLAG:温泉露出等级 == 0 && CFLAG:温泉露出分数 > 50 && CFLAG:TARGET:泡温泉次数 > 1
	CFLAG:温泉露出等级 = 1
	PRINTFORMW %CALLNAME:TARGET%的温泉露出等级提升了
ELSEIF CFLAG:温泉露出等级 == 1 && CFLAG:温泉露出分数 > 80 && CFLAG:TARGET:泡温泉次数 > 2
	CFLAG:温泉露出等级 = 2
	PRINTFORMW %CALLNAME:TARGET%的温泉露出等级提升了
ELSEIF CFLAG:温泉露出等级 == 2 && CFLAG:温泉露出分数 > 300 && CFLAG:TARGET:泡温泉次数 > 5
	CFLAG:温泉露出等级 = 3
	PRINTFORMW %CALLNAME:TARGET%的温泉露出等级提升了
ELSEIF CFLAG:温泉露出等级 == 3 && CFLAG:温泉露出分数 > 800 && CFLAG:TARGET:泡温泉次数 > 8
	CFLAG:温泉露出等级 = 4
	PRINTFORMW %CALLNAME:TARGET%的温泉露出等级达到了最高级
ENDIF
PRINTFORMW
PRINTFORM 由於
IF CEVENT("玫瑰温泉",TARGET)
	CALL PRINT_STR, @"紅_玫瑰温泉"
ELSEIF CEVENT("牛奶温泉",TARGET)
	CALL PRINT_STR, @"黄色_牛奶温泉"
ELSEIF CEVENT("鱼疗温泉",TARGET)
	CALL PRINT_STR, @"緑_鱼疗温泉"
ELSE
	CALL PRINT_STR, @"普通温泉"
ENDIF
PRINTFORML 的影响
PRINTFORML 体力增加了100
PRINTFORML 精力增加了1
BASE:体力 += 100
BASE:精力 += 1
BASE:MASTER:体力 += 100
BASE:MASTER:精力 += 1

@ONSEN_IKU
PRINTFORMW 一股巨大的快感袭来、%CALLNAME:TARGET%高声呼喊的同时、身体痉挛着迎来了绝顶
PRINTFORMW 口中吐着满足的甜蜜呼吸、紧绷的身体缓缓软了下来
EXP:絶頂経験 += 1

;获取氛围值增加的速度
@GET_MOOD_VALUE
#DIM MOODVALUE

MOODVALUE = 0
IF !CEVENT("穿着浴巾",TARGET)
	; PRINTFORMW 不穿浴巾
	; PRINTFORMW {CFLAG:温泉着装}
	MOODVALUE += CFLAG:温泉着装
ENDIF
IF CFLAG:温泉行为 > 0
	; PRINTFORMW 温泉行为
	MOODVALUE += CFLAG:温泉行为
ENDIF
IF CEVENT("穿着浴巾",TARGET) && CFLAG:温泉行为 == 0 && TCVAR:TARGET:混浴温泉气氛值>2
	MOODVALUE -= 2
ENDIF
; PRINTFORMW 氛围增加值 {MOODVALUE}
TCVAR:混浴温泉气氛值 = TCVAR:混浴温泉气氛值+MOODVALUE
PRINTFORML 气氛值 : {TCVAR:混浴温泉气氛值}	（+ {MOODVALUE}/Turn）

;路人围观描写（通用）
@GET_PEOPLE_DEC
IF TCVAR:混浴温泉气氛值 >= 80
	PRINTFORMW 附近的男性自发的围在了周围、灼热而下流的视线%TEXTR("不断的看向/毫不掩饰的盯着")%这边
	IF RAND:2 == 0
		PRINTFORMW 有些人甚至解开浴巾、将那昂扬勃起的肉棒就这样暴露在空气中
		PRINTFORMW 粗重的呼吸声即便从这里也能清楚的听到
	ELSE
		PRINTFORMW 还有%TEXTR("情侣/夫妻/兄妹")%像是攀比一般大胆的在浴池中做了起来
		PRINTFORMW 甜蜜的喘息声从这里里也能清楚的听到
	ENDIF
ELSEIF TCVAR:混浴温泉气氛值 >= 50
	PRINTFORMW 温泉中的男性们明显注意到了这边、交错的视线不断的扫向这里
	PRINTFORMW 几个大胆的男性甚至坐到了附近、毫不掩饰的盯着%CALLNAME:TARGET%窈窕的曲线
ELSEIF TCVAR:混浴温泉气氛值 >= 30
	PRINTFORMW 看向这边的视线明显多了起来
	PRINTFORMW 充满侵略性的目光不断扫向%CALLNAME:TARGET%的外露的肌肤与关键部位
ELSEIF TCVAR:混浴温泉气氛值 >= 10
	PRINTFORMW 不时有视线隐晦的扫向这边
	PRINTFORMW 在%CALLNAME:TARGET%的身上短暂的停留后、又不经意地转向别处
ELSE

ENDIF

;氛围描写（主界面展示用）
@GET_PEOPLE_MAIN
IF TCVAR:混浴温泉气氛值 >= 80
	IF RAND:2 == 0
		PRINTFORML 附近的男性自发的围在了周围、灼热而下流的视线%TEXTR("不断的看向/毫不掩饰的盯着")%这边
	ELSE
		PRINTFORML 附近的男性自发的围在了周围、将昂扬勃起的肉棒暴露在%CALLNAME:TARGET%眼前
	ENDIF
ELSEIF TCVAR:混浴温泉气氛值 >= 50
	PRINTFORML 温泉中的男性明显躁动起来
	PRINTFORML 几位大胆的甚至坐到了%CALLNAME:TARGET%的身边、下流的视线不断打量着
ELSEIF TCVAR:混浴温泉气氛值 >= 30
	PRINTFORML 温泉中的男性明显注意到了这边
	PRINTFORML 充满侵略性的目光不断扫向%CALLNAME:TARGET%的外露的肌肤与关键部位
ELSEIF TCVAR:混浴温泉气氛值 >= 10
	PRINTFORML 不时有视线隐晦的扫向这边
	PRINTFORML 在%CALLNAME:TARGET%的身上短暂的停留后、又不经意地转向别处
ELSE
	PRINTFORML 平静而祥和的温泉、偶尔会有几缕目光落在这里
ENDIF

@OSAN_SUIT
#FUNCTIONS
LOCALS = ""
IF CEVENT("穿着浴巾",TARGET)
	LOCALS = %TEXTR("有些被池水打湿/勾勒出身体曲线")%的浴巾
ELSEIF CFLAG:温泉着装 == 4
	LOCALS = 毫无遮盖的身体
ELSE
	IF CFLAG:温泉着装 == 0
		IF TALENT:貧乳
			LOCALS = 胸前微微凸起的学校泳衣
		ELSEIF TALENT:巨乳
			LOCALS = 快要将胸前撑开的学校泳衣
		ELSE
			LOCALS = 有着完美弧度的学校泳衣
		ENDIF
	ELSEIF CFLAG:温泉着装 == 1
		LOCALS = %TEXTR("漂亮的/合身的")%普通泳衣
	ELSEIF CFLAG:温泉着装 == 2
		LOCALS = %TEXTR("有点透明的/贴身的/隐隐透出粉红色乳晕的")%连体泳衣
	ELSEIF CFLAG:温泉着装 == 3
		IF TALENT:貧乳
			LOCALS = 不大的布料挂在胸前毫无曲线可言的比基尼泳衣
		ELSEIF TALENT:巨乳
			LOCALS = %TEXTR("大半乳房都漏在外面、连乳晕都隐约可见/勉强遮住关键部位")%的比基尼泳衣
		ELSE
			LOCALS = 布料与线条完美勾勒出曲线的比基尼泳衣
		ENDIF
	ENDIF
ENDIF

RETURNF LOCALS

;更改服装
@ONSAN_SUIT(ARG,ARGS)
; CALL PRINT_SELECT, "穿浴巾/脱浴巾/学校泳衣/普通泳衣/竞速泳衣/比基尼/全裸/常服/添加精液";/简易事件
SELECTCASE ARG
CASE 0
	CALL SET_OTHER, ""
	CSTR:改髪 = 编起来
	CALL SET_SHIRT, "浴衣"
	CALL SET_SHOES, ""
CASE 1
	CALL SET_SHIRT, ""
	; CSTR:服 = 浴衣/連衣裙/
CASE 2
	CALL SET_BODYS,"新死库水/紺色"
CASE 3
	CALL SET_PANTIES, "比基尼/黄色"
	CALL SET_BRA, "比基尼胸罩/黄色"
CASE 4
	CALL SET_BODYS, "競泳泳装/黒"
CASE 5
	CALL SET_COSTUME, "Micro比基尼"
CASE 6
	; CALL EVENT_DATUI, "裸体"
	CALL SET_PANTIES, ""
	CALL SET_BRA, ""
CASE 7
	CALL SET_COORDINATE, "便装"
CASE 8
	CALL ADD_STAIN, TARGET, "顔", "精液"
	CALL ADD_STAIN, TARGET, "髪", "精液"
	CALL ADD_STAIN, TARGET, "Ｍ", "精液"
	CALL ADD_STAIN, TARGET, "Ｂ", "精液"
ENDSELECT

; 颜绘更改
@ONSAN_FACE(ARG,ARGS)
; PRINTFORML 更改颜绘：{ARG}
; ARG = RESULT
SELECTCASE ARG
CASE 1
	CSTR:颜绘変化 = 重置/紅潮
CASE 2
	CSTR:颜绘変化 = 重置/斜眼４/紅潮
CASE 3
	CSTR:颜绘変化 = 重置/斜眼４飘忽/紅潮
CASE 4
	CSTR:颜绘変化 = 重置/闭眼/小口/高光有/蹙眉/紅潮２/对话框爱心
CASE 11
	CSTR:颜绘変化 = 重置/赤面
CASE 12
	CSTR:颜绘変化 = 重置/斜眼４/赤面
CASE 13
	CSTR:颜绘変化 = 重置/斜眼４飘忽/赤面
CASE 21
	CSTR:颜绘変化 = 重置/困扰眉/小口/赤面
CASE 22
	CSTR:颜绘変化 = 重置/斜眼４/困扰眉/赤面
CASE 23
	CSTR:颜绘変化 = 重置/斜眼４飘忽/困扰眉/赤面
CASE 31
	CSTR:颜绘変化 = 重置/呀哒２/赤面/对话框爱心大量
CASE 32
	CSTR:颜绘変化 = 重置/斜眼４/呀哒２/赤面/对话框爱心大量
CASE 33
	CSTR:颜绘変化 = 重置/斜眼４飘忽/呀哒２/赤面/对话框爱心大量
ENDSELECT
; CALL PRINT_MAIDFACE, TARGET
; GOTO ONSAN_FACE_LOOP


code:
;-----------------------------------------
;入室時などの特殊パターン時にエロイベントを発生させてよいかを判断するための関数
;-----------------------------------------
@SPECIAL_SEX, ARGS, ARG:0, ARG:1
#DIM MEMO_TARGET
#DIM MEMO_PLAYER
#DIM DYNAMIC ACTOR
#DIMS DYNAMIC SOME_STR
#DIM LCOUNT

;ARG:0とARG:1両方がCOND("交流中")なことが条件
SIF COND("交流中", ARG:0) == 0 || COND("交流中", ARG:1) == 0
	RETURN 0

MEMO_TARGET = TARGET
MEMO_PLAYER = PLAYER

SELECTCASE ARGS
CASE ""
	RETURN 0
CASE "交流Ｈ"
	SIF PLACE("部室") == 0 || RAND:100 < 49
		RETURN 0

	;TARGETとPLAYERを設定する
	IF COND("部員間Ｈ主導者", ARG:0)
		PLAYER = ARG:0
		TARGET = ARG:1
	ELSEIF COND("部員間Ｈ主導者", ARG:1)
		PLAYER = ARG:1
		TARGET = ARG:0
	ELSE
		RETURN 0
	ENDIF

	;各種指令が実行できるか格子
	CALL CHECK_COM_ABLE, TARGET

	IF EXCHANGE_JADGE() == "本番"
		VARSET LOCALS
		SPLIT EXCHANGE_TABLE(), "/", LOCALS
		SOME_STR =
		FOR LCOUNT, 0, 10
			SELECTCASE LOCALS:LCOUNT
			CASE "Ｖ性交"
				SIF CANTRAINS("Ｖ挿入")
					SOME_STR += @"%LOCALS:LCOUNT%/"
			CASE "Ａ性交"
				SIF CANTRAINS("Ａ挿入")
					SOME_STR += @"%LOCALS:LCOUNT%/"
			CASE "Ａ挿入"
				SIF CANTRAINS("Ａ逆挿入")
					SOME_STR += @"%LOCALS:LCOUNT%/"
			CASE "口交"
				SOME_STR += @"%LOCALS:LCOUNT%/"
			ENDSELECT
		NEXT

		SELECTCASE TEXTR(SOME_STR)
		CASE "Ｖ性交"
			TEQUIP:PLAYER:避孕套 = 1
			CALL EXCHANGE_STR, "昼Ｖ性交する"
			CALL SIMULATE_TRAIN_COM, CANTRAINS("Ｖ挿入"), 1
			TEQUIP:PLAYER:避孕套 = 0
		CASE "Ａ性交"
			TEQUIP:PLAYER:避孕套 = 1
			CALL EXCHANGE_STR, "昼Ａ性交する"
			CALL SIMULATE_TRAIN_COM, CANTRAINS("Ａ挿入"), 1
			TEQUIP:PLAYER:避孕套 = 0
		CASE "Ａ挿入"
			TEQUIP:避孕套 = 1
			CALL EXCHANGE_STR, "昼Ａ性交される"
			CALL SIMULATE_TRAIN_COM, CANTRAINS("Ａ逆挿入"), 1
			TEQUIP:避孕套 = 0
		CASE "口交"
			CALL EXCHANGE_STR, "昼口交"
			CALL SIMULATE_TRAIN_COM, TNUM("口交"), 1
		ENDSELECT
	ENDIF
	FLAG:Ｈ事件發生++
ENDSELECT

TARGET = MEMO_TARGET
PLAYER = MEMO_PLAYER


code:
;-------------------------------------------------
;部活での標語を作ります。あまりに変なのをお出しすると冷ややかな目で見られる
;FLAG:標語のbitで管理する。0標語の説明を見た, 1標語を掲示した
;-------------------------------------------------
@SET_RULES
#DIM CHOICE
#DIM MEMO_REDRAW
#DIM IS_OFF_SEASON

;ある程度の人数が必要
SIF CHARANUM <= 3
	RETURN 0

SELECTCASE TEXTS("曜日")
;周六の夜は決めても実行する日が無い
CASE "日"
	RETURN 0
CASE "月"
CASEELSE
	SIF SAVESTR:標語 != "" || GETBIT(FLAG:標語, 0)
		RETURN 0
ENDSELECT

DRAWLINE
;初めて設定する時
IF GETBIT(FLAG:標語, 0) == 0
	;弗理希艾尔が居るなら建议
	IF FINDCHARA(NO, 1) > 0
		PRINTFORM 「啊对了对了。有一个给%CNAMET(FINDCHARA(NO, 1), "二人称")%的提案」
		FORCEWAIT
		PRINTFORMW 弗理希艾尔眯着眼睛、像是想到了什么好事一様、以这种表情笑着。
		PRINTFORMW 「在打算做写一些奇怪的事情？没有没有、没这回事……呼呼呼」
		PRINTFORMW 「在部室的墙壁上、把一些%CNAMET(FINDCHARA(NO, 1), "二人称")%比较期望的的俳句呀、標語之类的东西贴上去的话、不觉得很有意思吗？」
		PRINTFORMW 「也会对一起进行社团活动的大家之间的友谊有促进效果的、%CNAMET(FINDCHARA(NO, 1), "一人称")%可以打包票喔♪」
		PRINTFORML ……那么要怎么做呢？(就算这么搁置、毎週日的晚上也都可以无限次的再設定)
		CALL PRINT_SELECT, "那就准备个標語吧/还是算了"
	ELSE
		PRINTFORMW 因为部員増加了、所以能在部室里貼標語了。
		PRINTL
		PRINTFORMW 每周一次、根据内容的不同会对部室里的人表达不同的诉求。
		CALL PRINT_STR, "当然了、并没有強制力……根据内容的不同、_黄色_信頼LV_以及黄色_屈服刻印LV_之类的比较低的人会無視标语也说不定。_W"
		PRINTFORML ……那么要怎么做呢？(就算这么搁置、毎週日的晚上也都可以无限次的再設定)
		CALL PRINT_SELECT, "那就准备个標語吧/还是算了"
	ENDIF
	;標語の説明を見たフラグON
	SETBIT FLAG:標語, 0
ELSE
	PRINTFORM 周日深夜的决定標語時間终于来了……
	IF SAVESTR:標語 == ""
		PRINTFORMW 現在并没有决定標語。
		PRINTFORML ……那么要怎么做呢？
		CALL PRINT_SELECT, "那就准备个標語吧/还是算了"
	ELSE
		;季節限定標語じゃないかい？
		IS_OFF_SEASON = 0
		;SELECTCASE SAVESTR:標語
		;CASE "晒痕最高", "注意晒痕"
		;	SELECTCASE TEXTS("季節")
		;	CASE "春", "夏"
		;	CASEELSE
		;		IS_OFF_SEASON = 1
		;	ENDSELECT
		;ENDSELECT

		IF IS_OFF_SEASON
			WAIT
			PRINTFORMW 現在的標語是『%SAVESTR:標語%』、等到这个季節结束后就自动终止。
			SAVESTR:標語 =
			PRINTFORML ……要准备新的標語吗？
			CALL PRINT_SELECT, "就这么做/不要"
		ELSE
			PRINTFORMW 現在的標語是『%SAVESTR:標語%』。
			PRINTFORML 要変更吗？
			CALL PRINT_SELECT, "変更標語/不変更/放弃標語这种行为"
		ENDIF
	ENDIF
ENDIF

CHOICE = RESULT

SELECTCASE CHOICE
;変更or設定
CASE 0
	MEMO_REDRAW = CURRENTREDRAW()
	REDRAW 0

	CALL DEFINE_RULES

	REDRAW MEMO_REDRAW
CASE 1
	IF SAVESTR:標語 == ""
		PRINTFORMW 搁置了准备標語。
	ELSE
		PRINTFORMW 搁置了変更標語。
	ENDIF
CASE 2
	PRINTFORMW 暂時停止了张贴標語。
	SAVESTR:標語 =
	;掲示フラグOFF
	CLEARBIT FLAG:標語, 1
ENDSELECT

@DEFINE_RULES
#DIM MEMO_LINECOUNT
#DIMS EVENT_TABLE

MEMO_LINECOUNT = LINECOUNT
PRINTFORML 要用哪个标语呢？

EVENT_TABLE =
EVENT_TABLE += "注意口渴/"
EVENT_TABLE += "体操服果然还是×××/"
EVENT_TABLE += "学生服必须是×××/"
EVENT_TABLE += "晒痕最高/注意晒痕/"

;IF TALENT:MASTER:男性
;	EVENT_TABLE += "欧尼酱と呼んで欲しい/"
;ELSE
;	EVENT_TABLE += "欧内酱と呼んで欲しい/"
;ENDIF

EVENT_TABLE += "果然还是算了/"

VARSET LOCALS
SPLIT EVENT_TABLE, "/", LOCALS
CALL PRINT_SELECT, EVENT_TABLE

SELECTCASE LOCALS:RESULT
CASE "果然还是算了"
	PRINTFORMW 搁置了標語的設定。
	RETURN 0
CASE "体操服果然还是×××"
	PRINTL 体操服果然还是？
	EVENT_TABLE = 布鲁马\/高開衩布鲁马\/运动短褲\/紧身短褲\/运动衫\/其他的標語\/
	VARSET LOCALS
	SPLIT EVENT_TABLE, "/", LOCALS
	CALL PRINT_SELECT, EVENT_TABLE

	SELECTCASE LOCALS:RESULT
	CASE "其他的標語"
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
		RESTART
	CASEELSE
		LOCALS:RESULT = 体操服はやっぱり%LOCALS:RESULT%
	ENDSELECT
CASE "学生服必须是×××"
	PRINTL 必须是？
	EVENT_TABLE = 露脐装超短裙\/超短迷你\/美式校服\/其他的標語\/
	VARSET LOCALS
	SPLIT EVENT_TABLE, "/", LOCALS
	CALL PRINT_SELECT, EVENT_TABLE

	SELECTCASE LOCALS:RESULT
	CASE "其他的標語"
		CLEARLINE LINECOUNT - MEMO_LINECOUNT
		RESTART
	CASEELSE
		LOCALS:RESULT = 学生服は%LOCALS:RESULT%に限る
	ENDSELECT
CASEELSE

ENDSELECT

SAVESTR:標語 = %LOCALS:RESULT%
PRINTFORMW %CALLNAME:MASTER%把『%SAVESTR:標語%』作为部活的標語、发到了部員的邮箱里。
PRINTFORMW 从賛同的人的反应来看、应该会有一些效果的吧。

;掲示フラグOFF
CLEARBIT FLAG:標語, 1

;主に周一の朝に標語を貼りだす
@POST_RULES
SIF SAVESTR:標語 == ""
	RETURN 0

SELECTCASE TEXTS("曜日")
CASE "日"
	RETURN 0
CASEELSE
	;もう掲示済み
	SIF GETBIT(FLAG:標語, 1)
		RETURN 0
ENDSELECT

DRAWLINE
PRINTFORML 一大早第一个来到部室的%CALLNAME:MASTER%在大大的紙上用大号的字体写着
PRINTL

SELECTCASE SAVESTR:標語
CASE "晒痕最高"
	PRINTL 　　┏━━━┓
	PRINTL 　　┃ 　日 ┃
	PRINTL 　　┃ 最晒 ┃
	PRINTL 　　┃ 高痕 ┃
	PRINTL 　　┃ ！跡 ┃
	PRINTL 　　┗━━━┛
CASE "注意晒痕"
	PRINTL 　　┏━━━┓
	PRINTL 　　┃ 　日 ┃
	PRINTL 　　┃ 注晒 ┃
	PRINTL 　　┃ 意痕 ┃
	PRINTL 　　┃ ！迹 ┃
	PRINTL 　　┗━━━┛
CASE "注意口渴"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 渴不注 ┃
	PRINTL 　　┃ 了要意 ┃
	PRINTL 　　┃ ！口　 ┃
	PRINTL 　　┗━━━━┛

CASE "体操服はやっぱり布鲁马"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 布然体 ┃
	PRINTL 　　┃ 鲁还操 ┃
	PRINTL 　　┃ 马是服 ┃
	PRINTL 　　┃ ！要果 ┃
	PRINTL 　　┗━━━━┛
CASE "体操服はやっぱり高開衩布鲁马"
	PRINTL 　　┏━━━━━┓
	PRINTL 　　┃ 布穿然体 ┃
	PRINTL 　　┃ 鲁高还操 ┃
	PRINTL 　　┃ 马開是服 ┃
	PRINTL 　　┃ ！衩要果 ┃
	PRINTL 　　┗━━━━━┛
CASE "体操服はやっぱり运动短褲"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 运然体 ┃
	PRINTL 　　┃ 动还操 ┃
	PRINTL 　　┃ 短是服 ┃
	PRINTL 　　┃ 裤穿果 ┃
	PRINTL 　　┗━━━━┛
CASE "体操服はやっぱり紧身短褲"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 紧然体 ┃
	PRINTL 　　┃ 身还操 ┃
	PRINTL 　　┃ 短是服 ┃
	PRINTL 　　┃ 裤要果 ┃
	PRINTL 　　┗━━━━┛
CASE "体操服はやっぱり运动衫"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 运然体 ┃
	PRINTL 　　┃ 动还操 ┃
	PRINTL 　　┃ 衫是服 ┃
	PRINTL 　　┃ ！要果 ┃
	PRINTL 　　┗━━━━┛

CASE "学生服は露脐装超短裙に限る"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 迷须学 ┃
	PRINTL 　　┃ 你配生 ┃
	PRINTL 　　┃ 裙  服 ┃
	PRINTL 　　┃ ！  必 ┃
	PRINTL 　　┗━━━━┛
CASE "学生服は超短迷你に限る"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 迷须学 ┃
	PRINTL 　　┃ 你配生 ┃
	PRINTL 　　┃ 裙超服 ┃
	PRINTL 　　┃ ！短必 ┃
	PRINTL 　　┗━━━━┛
CASE "学生服必须要穿美式校服"
	PRINTL 　　┏━━━━┓
	PRINTL 　　┃ 式须学 ┃
	PRINTL 　　┃ 校要生 ┃
	PRINTL 　　┃ 服穿服 ┃
	PRINTL 　　┃ ！美必 ┃

	PRINTL 　　┗━━━━┛

;CASE "学生服は長裙に限る"
;	PRINTL 　　┏━━━━┓
;	PRINTL 　　┃ にロ学 ┃
;	PRINTL 　　┃ 限ン生 ┃
;	PRINTL 　　┃ 裙  服 ┃
;	PRINTL 　　┃ ！  必 ┃
;	PRINTL 　　┗━━━━┛

CASE "欧尼酱と呼んで欲しい"
	PRINTL 　　┏━━━┓
	PRINTL 　　┃ 欧我 ┃
	PRINTL 　　┃ 尼想 ┃
	PRINTL 　　┃ 酱被 ┃
	PRINTL 　　┃ 来别 ┃
	PRINTL 　　┃ 称人 ┃
	PRINTL 　　┃ 呼用 ┃
	PRINTL 　　┃ ！　 ┃
	PRINTL 　　┗━━━┛
CASE "欧内酱と呼んで欲しい"
	PRINTL 　　┏━━━┓
	PRINTL 　　┃ 欧我 ┃
	PRINTL 　　┃ 内想 ┃
	PRINTL 　　┃ 酱被 ┃
	PRINTL 　　┃ 来别 ┃
	PRINTL 　　┃ 称人 ┃
	PRINTL 　　┃ 呼用 ┃
	PRINTL 　　┃ ！　 ┃
	PRINTL 　　┗━━━┛
ENDSELECT

PRINTL
SELECTCASE SAVESTR:標語
CASE "注意口渴"
	PRINTFORMW 在墙上把它贴了上去、在保温壶里备好了麦茶、并在冰箱里放好了果汁。
CASEELSE
	PRINTFORMW 在墙上把它贴了上去。
ENDSELECT
DRAWLINE

;掲示フラグON
SETBIT FLAG:標語, 1

;標語実践の値は衣服系は２になる
@FOLLOW_RULES
#DIM LCOUNT
FOR LCOUNT, 1, CHARANUM
	SELECTCASE SAVESTR:標語
	CASE "注意口渴"
		;これは全員ＯＫでいいだろう
		CFLAG:LCOUNT:標語実践 = 1
	CASE "晒痕最高", "注意晒痕"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 == 0
			CONTINUE
		CFLAG:LCOUNT:標語実践 = 1
	CASE "体操服はやっぱり布鲁马"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 == 0 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		SIF COND("池面", LCOUNT) && CEVENT("女装", LCOUNT) == 0
			CONTINUE
		SIF ABL:LCOUNT:露出癖 + TALENT:LCOUNT:不知羞恥 <= 0
			CONTINUE
		IF CHECK_CLO("体操服姿", LCOUNT) && CHECK_OUTER("布鲁马", LCOUNT) == 0
			CALL SET_OUTER, "布鲁马", LCOUNT
			SIF CHECK_PANTIES("四角褲", LCOUNT)
				CALL RAND_PANTU, LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "体操服はやっぱり高開衩布鲁马"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 < 3 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		SIF COND("池面", LCOUNT) && CEVENT("女装", LCOUNT) == 0
			CONTINUE
		SIF ABL:LCOUNT:露出癖 < 5 && TALENT:LCOUNT:不知羞恥 == 0
			CONTINUE
		IF CHECK_CLO("体操服姿", LCOUNT) && CHECK_PANTIES("高開衩布鲁马", LCOUNT) == 0
			CALL SET_OUTER, "", LCOUNT
			CALL SET_PANTIES, "高開衩布鲁马", LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "体操服はやっぱり运动短褲"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 == 0 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		IF CHECK_CLO("体操服姿", LCOUNT) && CHECK_OUTER("五分褲", LCOUNT) == 0
			CALL SET_OUTER, "五分褲", LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "体操服はやっぱり紧身短褲"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 == 0 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		SIF ABL:LCOUNT:露出癖 + TALENT:LCOUNT:不知羞恥 <= 0
			CONTINUE
		IF CHECK_CLO("体操服姿", LCOUNT) && CHECK_OUTER("紧身短褲", LCOUNT) == 0
			CALL SET_OUTER, "紧身短褲", LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "体操服はやっぱり运动衫"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 == 0 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		IF CHECK_CLO("体操服姿", LCOUNT) && CHECK_OUTER("运动衫", LCOUNT) == 0
			CALL SET_OUTER, "运动衫休闲褲", LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "学生服は露脐装超短裙に限る"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 == 0 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		SIF ABL:LCOUNT:露出癖 < 3 && TALENT:LCOUNT:不知羞恥 == 0
			CONTINUE
		IF CHECK_SKIRT("裙", LCOUNT) && CHECK_SKIRT("迷你", LCOUNT) == 0
			IF CHECK_SKIRT("百褶", LCOUNT)
				CALL SET_SKIRT, @"百褶迷你裙/CHECK_CLOCOLOR(CSTR:LCOUNT:裙)", LCOUNT
			ELSEIF CHECK_SKIRT("格子", LCOUNT)
				CALL SET_SKIRT, @"格子迷你裙/CHECK_CLOCOLOR(CSTR:LCOUNT:裙)", LCOUNT
			ELSEIF CHECK_SKIRT("紧身", LCOUNT)
				CALL SET_SKIRT, @"迷你紧身裙/CHECK_CLOCOLOR(CSTR:LCOUNT:裙)", LCOUNT
			ELSE
				CSTR:LCOUNT:裙 = %EXTSTR(CSTR:LCOUNT:裙, ,"裙")%迷你%EXTSTR(CSTR:LCOUNT:裙,"裙")%
			ENDIF
			SIF CHECK_PANTIES("四角褲", LCOUNT)
				CALL RAND_PANTU, LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "学生服は超短迷你に限る"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 < 3 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		SIF ABL:LCOUNT:露出癖 < 5 && TALENT:LCOUNT:不知羞恥 == 0
			CONTINUE
		IF CHECK_SKIRT("裙", LCOUNT) && CHECK_SKIRT("超短迷你", LCOUNT) == 0
			IF CHECK_SKIRT("百褶", LCOUNT)
				CALL SET_SKIRT, @"Micro百褶裙/CHECK_CLOCOLOR(CSTR:LCOUNT:裙)", LCOUNT
			ELSEIF CHECK_SKIRT("格子", LCOUNT)
				CALL SET_SKIRT, @"Micro格子裙/CHECK_CLOCOLOR(CSTR:LCOUNT:裙)", LCOUNT
			ELSEIF CHECK_SKIRT("紧身", LCOUNT)
				CALL SET_SKIRT, @"Micro紧身裙/CHECK_CLOCOLOR(CSTR:LCOUNT:裙)", LCOUNT
			ELSEIF CHECK_SKIRT("迷你", LCOUNT)
				CSTR:LCOUNT:裙 = Micro%EXTSTR(CSTR:LCOUNT:裙, ,"迷你")%%EXTSTR(CSTR:LCOUNT:裙,"迷你")%超短迷你/
			ELSE
				CSTR:LCOUNT:裙 = Micro%CSTR:LCOUNT:裙%超短迷你/
			ENDIF
			SIF CHECK_PANTIES("四角褲", LCOUNT)
				CALL RAND_PANTU, LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASE "学生服必须要穿美式校服"
		SIF TALENT:LCOUNT:叛逆 || ABL:LCOUNT:信頼 < 3 || CFLAG:LCOUNT:Cosplay中
			CONTINUE
		SIF ABL:LCOUNT:露出癖 < 5 && TALENT:LCOUNT:不知羞恥 == 0
			CONTINUE
		IF CHECK_SHIRT("美式校服", LCOUNT) == 0
			CALL SET_COORDINATE, "美式校服", LCOUNT
			SIF CHECK_PANTIES("四角褲", LCOUNT)
				CALL RAND_PANTU, LCOUNT
			CFLAG:LCOUNT:標語実践 = 2
		ENDIF
	CASEELSE
		BREAK
	ENDSELECT
NEXT