code:
;-------------------------------------------------
;300,会話
;-------------------------------------------------
;1、默认状态（……） 2,无法意识在被做H的事 3,意识清醒却无法抗拒 4,常识改变 5,变成宠物
@MESSAGE1_COM300
IF TCVAR:烂醉
	PRINTFORML %CALLNAME:MASTER%向覚搭著話、但是覚那口齒不清的回答怎麼也聽不清楚
	PRINTFORML 看起來無法對話的樣子…
	RETURN
ELSEIF CFLAG:49:1525 == 5
		PRINTFORML 覚小心翼翼地与%CALLNAME:MASTER%交流着
ELSEIF CFLAG:49:1525 == 1
	PRINTFORML %CALLNAME:MASTER%想着让覚做点什么
	CALL ASK_M("给我高潮！", 1, "展示一下今天的胖次", 1, "介绍一下自己", 1, "最近是怎样自慰的？", 1, )
	IF RESULT == 0
		PRINTFORML %CALLNAME:MASTER%命令覚高潮
		PRINTFORML 覚的身体无视本体的意识，下身顺从地喷出了潮吹液
		PALAM:49:快Ｖ += 10000
		CALL ORGASM_ADD(49)
		CFLAG:49:1539 = 1
		CFLAG:49:1545 ++
	ELSEIF RESULT == 1
		IF CFLAG:49:291 == 1
			PRINTFORML %UNDER_SKIRT_DESCRIPTION(49)%暴露在%CALLNAME:MASTER%视野中……
			PRINTFORML 对消失的内裤毫无头绪，覚空洞的表情露出一丝困惑
		ELSEIF CFLAG:49:291 == 0
			IF EQUIP:49:6 == 33
				PRINTFORML  覚将腿间%PANTS_DESCRIPTION(EQUIP:49:下半身内衣２, 49)%%SHOW_BOTTOM(49)%展示给%CALLNAME:MASTER%看……
			ELSE
				PRINTFORML  覚脱下自己的%PANTS_DESCRIPTION(EQUIP:49:下半身内衣２, 49)%%SHOW_BOTTOM(49)%，双手举着向%CALLNAME:MASTER%展示……
			ENDIF
		ENDIF
		CFLAG:49:1539 = 2
	ELSEIF RESULT == 2
		PRINTFORML  覚报菜名一般向%CALLNAME:MASTER%介绍自己的身体数据……
		CFLAG:49:1539 = 3
	ELSEIF RESULT == 3
		PRINTFORML  被催眠的覚将深藏内心的性癖隐私和盘托出……
		CFLAG:49:1539 = 4
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
	SIF CFLAG:36:300 == CFLAG:0:300 || CFLAG:36:300 == CFLAG:0:300 ||CFLAG:36:300 == CFLAG:37:300
	CALL 催眠时阿空阿燐在场反应
	SIF CFLAG:38:300 == CFLAG:0:300
	CALL 催眠时恋在场反应
ELSEIF CFLAG:49:1525 == 2
	PRINTFORML %CALLNAME:MASTER%思考着该怎样玩弄眼前的少女
	CALL ASK_M("prpr", 1, "momo", 1, "嗡嗡~~", 1, "biubiu", 1, "解锁隐藏调教指令(慎玩)",  CFLAG:49:1523 >= 10, )
	IF RESULT == 0
		CFLAG:49:1539 = 11
		SELECTCASE RAND:3
		CASE 0
			CFLAG:49:1540 = 1
			SOURCE:快Ｃ = 1000
			IF TEQUIP:0 & 2
				PRINTFORM %CALLNAME:MASTER%隔着%SHOW_BOTTOM(TARGET,2)%仔细舔舐着覚%TEXTR("肉乎乎/粉嫩紧闭/年轻少女特有")%的陰部
			ELSEIF TEQUIP:0 & 1
				PRINTFORM %CALLNAME:MASTER%巻起%SHOW_BOTTOM(TARGET,1)%仔细舔舐着覚%TEXTR("肉乎乎/粉嫩紧闭/年轻少女特有")%的陰部
			ELSE
				PRINTFORM %CALLNAME:MASTER%仔细舔舐着覚赤裸在外随时能够触碰的%TEXTR("肉乎乎/粉嫩紧闭/年轻少女特有")%的陰部
			ENDIF
			IF (TALENT:2 & 3) == 3
				PRINTFORML 、并用舌头舔舐着勃起的%TINKO(TARGET)%…
			ELSE
				PRINTFORML 、并用舌头吸吮起凸起的阴蒂…
			ENDIF
			EXP:49:0 ++
			EXP:MASTER:24 ++
		CASE 1
			CFLAG:49:1540 = 2
			SOURCE:快Ｂ = 1000
			EXP:MASTER:24 ++
			EXP:49:3 ++
			PRINTFORM %CALLNAME:MASTER%吮咬并吸取着覚
			IF TEQUIP:49:1 == 0
				PRINT
			ELSE
				FOR LOCAL,17,6,-1
					IF GROUPMATCH(LOCAL, 15, 12, 11)
						CONTINUE
					ENDIF
					IF EQUIP:49:LOCAL
						IF !TEQUIP:49:上半身裸露状態
							PRINTFORM %CLOTHNAME(LOCAL,EQUIP:49:LOCAL)%之上的
							BREAK
						ELSEIF TEQUIP:49:上半身裸露状態
							PRINTFORM 从敞開的%CLOTHNAME(LOCAL,EQUIP:49:LOCAL)%的间隙窥视到的
							BREAK
						ENDIF
					ENDIF
				NEXT
			ENDIF
			IF TALENT:49:母乳体質
				PRINTFORM 滲著%TEXTR("雌乳/母乳/奶汁")%的
			ENDIF
			PRINTFORM %OPPAI_DESCRIPTION(49)%的%TEXTR("尖端/頂點/")%%NIPPLE_DESCRIPTION(49,1)%
			IF RAND:2 == 0
				PRINTFORML 、舔舐的同时不断发出下流的声音…
			ELSE
				PRINTFORML 、在乳輪的周围如饥似渴的舔舐并吸吮起来…
			ENDIF
			PRINTFORML 覚因为%OPPAI_DESCRIPTION(TARGET)%被吸吮的快感而颤抖的扭动着全身并大口喘息
		CASE 2
			CFLAG:49:1540 = 3
			SOURCE:快Ａ = 1000
			EXP:MASTER:24 ++
			EXP:49:2 ++
			PRINTFORM %CALLNAME:MASTER%仔細舔舐着
			PRINTFORM 覚
			SELECTCASE RAND:2
			CASE 0
				PRINTFORM 随呼吸微微开合的
			CASE 1
				PRINTFORM 放松且弹性十足的
			ENDSELECT
			PRINT 肛門
			PRINT 、把舌尖插入到後庭之中来回攪動着肉壁
			PRINTL …
		ENDSELECT
	ELSEIF RESULT == 1
		CFLAG:49:1539 = 12
		SELECTCASE RAND:3
		CASE 0
			CFLAG:49:1540 = 4
			SOURCE:快Ｃ = 1000
			EXP:49:0 ++
			PRINTFORM 為了看清覚
			IF TALENT:体型 < 0
				PRINT 如同兒童一般的小縫
			ELSE
				PRINTFORM \@ TALENT:処女 > 0 ? 未被开苞的# 为了榨取男性孕汁而存在的 \@秘縫内部
			ENDIF
			PRINTFORMW %CALLNAME:MASTER%將手指插入、左右掰開%SLIT(, 1)%，使里面清晰可见
			IF EX:49:14 == 0
				PRINTFORML 從张開的女陰向外张望的陰道口、像盼望收取什么东西似的、被爱液湿濡、淫乱的蠢动着…
			ELSE
				PRINTFORML 从露出来的陰道口里、刚才射进去的精液、淫荡的往下流着…
			ENDIF
			IF TALENT:49:0 == 1
				PRINTFORML 指尖深陷肥嫩耻丘，将嫩肉撑开露出花芯
				PRINTFORML 散发清甜淫香的处女肉穴内部却是与覚清纯相貌不符的大型褶皱纠缠成一团
				PRINTFORMW 双手辅助将内部掰开方可求见覚一直以来守护的粉色贞洁
			ELSE
				SELECTCASE RAND:2
				CASE 0
					PRINTFORMW 陰道内部被扩张开、映入眼帘的是噗库噗库地蠕动着的膣壁、伴随着还有爱液不听溢出…
					PRINTFORMW 覚深度尚浅的少女阴道撑开便可窥见子宫、将指尖稍稍深入便可与贪吃孕液的子宫口亲密接触
					PRINTFORML %CALLNAME:MASTER%愉快的将少女特有的肉嘟嘟阴部扩开，用空闲的手開始玩弄了陰核
					PRINTFORMW 手每次刺激陰核、覚的陰道口就会滴落出愛液…
				CASE 1
					PRINTFORMW 陰道内部扩张展示出来、只见膣壁噗库噗库地蠕动着、爱液不停的溢了出来…
					PRINTFORMW 被完全展开的覚的稚嫩阴道能很容易的窥见子宮口、颤动着像在向%CALLNAME:MASTER%发出邀请…
					PRINTFORML %CALLNAME:MASTER%带着愉快的表情、用一只手将陰唇扩大、用空闲的手開始玩弄了陰核
					PRINTFORMW 每次刺激陰核、覚的陰道口就会滴落出愛液…
				ENDSELECT
			ENDIF
			PRINTFORMW 无法意识到自己秘处被强行展开玩弄的覚，脸上依旧维持着平日淡然的表情
		CASE 1
			CFLAG:49:1540 = 5
			SOURCE:快Ａ = 1000
			EXP:49:2 ++
			PRINTFORM 為了看清覚
			IF TALENT:体型 == -2
				PRINT 如同兒童一般的菊穴内部
			ELSE
				PRINT 稚嫩的雏菊内部
			ENDIF
			PRINTFORMW %CALLNAME:MASTER%把双手的手指放到肛門上、强行掰开性器口，使穴肉清晰可见
			IF EXP:49:15 == 0
				PRINTFORML 大幅扩张開的肛門、像盼望收取什么似的、被爱液湿濡、淫乱的蠢动着…
			ELSE
				PRINTFORML 大幅扩张的肛門里、刚才射入的精液、淫靡的垂流着…
			ENDIF
			SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 柔软的肠道内、肠壁噗库噗库的蠕动着、爱液不停的溢出来的样子好像在往这边发出邀请…
				PRINTFORML 覚弹软菊穴被过分得扩张至极限，藏于身体深处的結腸都能被观测到…
				PRINTFORMW %CALLNAME:MASTER%一边搓揉高级软糖般%HIP(TARGET)%、一边两只手指不断施力考验着娇嫩穴口的承受极限
				PRINTFORMW 被蹂躏的菊穴里，分泌的肠液润滑了%CALLNAME:MASTER%的指尖
			CASE 1
				PRINTFORMW 柔软的肠道内、肠壁噗库噗库的蠕动着、爱液不停的溢出来、好像在往这边发出邀请一様、抽搐蠕动起来…
				PRINTFORML 覚弹性十足的菊穴被扩张至极限，很容易的窥见藏于身体深处的結腸…
				PRINTFORMW %CALLNAME:MASTER%带着愉快的表情、用一只手将肛門扩大、用空闲的手開始玩弄覚的陰核
				PRINTFORMW 每次刺激陰核、覚的陰道口就会滴落出愛液…
			ENDSELECT
			PRINTFORMW 无法意识到自己后庭被强行掰开玩弄的覚，还保持着一如既往的从容淡定
		CASE 2
			CFLAG:49:1540 = 6
			SOURCE:快Ｂ = 1000
			EXP:49:3 ++
			PRINTFORM %CALLNAME:MASTER%从覚
			IF TEQUIP:1 == 0
				PRINT
			ELSE
				FOR LOCAL,17,6,-1
					IF GROUPMATCH(LOCAL, 15, 12, 11)
						CONTINUE
					ENDIF
					IF EQUIP:TARGET:LOCAL
						PRINTFORM %CLOTHNAME(LOCAL,EQUIP:TARGET:LOCAL)%的外面
						BREAK
					ENDIF
				NEXT
			ENDIF
			PRINTFORMW 将%OPPAI_DESCRIPTION(TARGET)%用手掌托住
			PRINTFORM 在%OPPAI_DESCRIPTION(TARGET)%的柔肉上，
			PRINTFORM %CALLNAME:MASTER%
			SELECTCASE RAND:2
			CASE 0
				PRINTFORM 用手指陷入进
			CASE 1
				PRINTFORM 用力的揉着
			ENDSELECT
			PRINTFORM 覚的%OPPAI_DESCRIPTION(TARGET)%、
			SELECTCASE RAND:2
			CASE 0
			PRINTFORMW 享受着手指陷入进去的触感…
			CASE 1
			PRINTFORMW 享受着柔软有弹性的手感…
			ENDSELECT
			PRINTFORM %NIPPLE_DESCRIPTION(TARGET,1)%、
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 因为期待对乳房的凌辱、兴奋的染上可爱地粉色
			CASE 1
				PRINTFORML 由于盼望着乳奸、焦急的染上可爱地粉色
			ENDSELECT
			PRINTFORM %CALLNAME:MASTER%
			SELECTCASE RAND:2
			CASE 0
				PRINTFORM 用把%OPPAI_DESCRIPTION(TARGET)%破坏掉的势头、
			CASE 1
				PRINTFORM 像要把%OPPAI_DESCRIPTION(TARGET)%弄坏一様
			ENDSELECT
			SELECTCASE RAND:2
			CASE 0
				PRINTL 压上全身体重、用力的、紧攥地揉弄着…
				PRINTFORMW 被揉弄的覚的%OPPAI_DESCRIPTION(TARGET)%、像皮水袋一様被拉伸到变形
			CASE 1
				PRINTFORMW 强制拉伸的覚的%OPPAI_DESCRIPTION(TARGET)%、像拉长的吊钟一様变形了
			ENDSELECT
			SELECTCASE RAND:3
			CASE 0
				PRINTFORM 不明缘由的覚由于%CALLNAME:MASTER%带来乳房凌辱的快感
				PRINTFORMW 愉悦露出不成体统的烂熟表情的同时、发出喜悦的呻吟陶醉不已
			CASE 1
				PRINTFORM 覚因为%CALLNAME:MASTER%带来的乳房快感、
				PRINTFORMW 露出了心荡神驰的淫荡表情
			CASE 2
				PRINTFORM 覚因为%CALLNAME:MASTER%带来的甘美快感，
				PRINTFORMW 露出了下流的淫乱表情、身体软绵绵的瘫软了下去…
			ENDSELECT
		ENDSELECT
	ELSEIF RESULT == 2
		CFLAG:49:1539 = 13
		PRINTFORML 在意识不到的时候用玩具开发一下身体感觉不错
		PRINTFORML 用什么比较好呢……
		CALL ASK_M("陰蒂夾", 1, "乳頭夾", 1, "尾巴", 1,)
		IF RESULT == 0
			CFLAG:49:1540 = 7
			TEQUIP:陰蒂夾 = !TEQUIP:陰蒂夾
			IF !TEQUIP:陰蒂夾
				PRINTFORML 從覚身上取下了電動阴蒂夹
			ELSE
				PRINTFORML 往覚身上装上了電動阴蒂夹
				SIF CFLAG:49:1538 == 1
					PRINTFORML 阴蒂夹下的连着的跳蛋在覚腿间俏皮跳动着，金属部分互相碰撞发出引人注目的清脆声音
			ENDIF
		ELSEIF RESULT == 1
			CFLAG:49:1540 = 8
			TEQUIP:乳頭夾 = !TEQUIP:乳頭夾
			IF !TEQUIP:乳頭夾
				PRINTFORML 從覚%NIPPLE_DESCRIPTION(49,1)%上取下了乳頭夾
			ELSE
				PRINTFORML 把乳頭夾夾在了覚%NIPPLE_DESCRIPTION(49,1)%上
				SIF CFLAG:49:1538 == 1
					PRINTFORML 乳夹下挂着的跳蛋在覚胸前俏皮跳动着，金属部分互相碰撞发出引人注目的清脆声音
			ENDIF
		ELSEIF RESULT == 2
			CFLAG:49:1540 = 9
			TEQUIP:後庭拉珠 = !TEQUIP:後庭拉珠
			IF !TEQUIP:後庭拉珠
				PRINTFORML 抓住猫尾從古明地覚的肛門内把後庭拉珠一口氣全拔了出来
				PRINTFORML 用一颗颗珠子反复撑开肛門即使拉珠完全拔出一时间也无法闭合、张着小口仿佛在呼吸似的将内部暴露的一清二楚…
				PRINTFORML 覚因为后庭的异样快感一瞬间有些失神……
			ELSE
				PRINTFORML %CALLNAME:MASTER%将外接猫尾巴的後庭拉珠一個個的塞進了覚的菊穴中…
			ENDIF
		ENDIF
	ELSEIF RESULT == 3
		CFLAG:49:1539 = 14
		PRINTFORML 果然还是很想让古明地覚身上充满自己的味道……
		EXP:MASTER:11 ++
		EXP:49:14 ++
		BASE:MASTER:6 -= 100
		TCVAR:49:352 ++
		SELECTCASE CFLAG:49:1538
		CASE 0
			PRINTFORM %CALLNAME:MASTER%将覚姣好可爱的面容作为配菜，
			SELECTCASE RAND:6
			CASE 0
				PRINTFORML 在少女的头发上留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 1
				PRINTFORML 在少女的%CLOTHNAME(16,EQUIP:49:16)%上留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 2
				PRINTFORML 龟头贴住少女%UNDER_SKIRT_DESCRIPTION(49)%注入了%TEXTR("2/5/8/13/17/26")%ml精液
				PRINTFORML 覚%SLIT(, 1)%处，沾满了%CALLNAME:MASTER%富有活力的%SAMEN_DESCRIPTION(MASTER)%…
			CASE 3
				PRINTFORML 在少女的裙子后侧留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 4
				PRINTFORML 向少女的衣袖内注入了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 5
				PRINTFORML 让少女脸上沾上了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			ENDSELECT
		CASE 1
			PRINTFORM %CALLNAME:MASTER%将覚姣好可爱的面容作为配菜，
			SELECTCASE RAND:6
			CASE 0
				PRINTFORML 在少女的头发上留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 1
				PRINTFORML 在少女的%OPPAI_DESCRIPTION(49)%上留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 2
				PRINTFORML 向少女的大腿内侧发射了%TEXTR("2/5/8/13/17/26")%ml精液
				PRINTFORML 覚%SLIT(, 1)%处，沾满了%CALLNAME:MASTER%富有活力的%SAMEN_DESCRIPTION(MASTER)%…
			CASE 3
				PRINTFORML 在少女的%HIP(49)%上留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 4
				PRINTFORML 在少女%THIGHS(49)%上留下了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			CASE 5
				PRINTFORML 让少女脸上沾上了%TEXTR("2/5/8/13/17/26")%ml%SAMEN_DESCRIPTION(MASTER)%…
			ENDSELECT
		ENDSELECT
	ELSEIF RESULT == 4
		PRINTFORML %CALLNAME:MASTER%尝试更粗暴地对待覚无法感知自己行为的身体
		CALL ASK_M("拳交", 1, "肛門拳交", !TEQUIP:拡張氣球, "両穴拳交", !TEQUIP:拡張氣球, "拡張氣球", 1, )
		IF RESULT == 0
			CFLAG:49:1539 = 15
			CALL COM141
			CALL MESSAGE_COM141
		ELSEIF RESULT == 1
			CFLAG:49:1539 = 16
			CALL COM142
			CALL MESSAGE_COM142
		ELSEIF RESULT == 2
			CFLAG:49:1539 = 17
			CALL COM143
			CALL MESSAGE_COM143
		ELSEIF RESULT == 3
			CFLAG:49:1539 = 18
			TEQUIP:拡張氣球 = !TEQUIP:拡張氣球
			CALL MESSAGE_COM147
		ENDIF
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
	SIF CFLAG:36:300 == CFLAG:0:300 || CFLAG:36:300 == CFLAG:0:300 ||CFLAG:36:300 == CFLAG:37:300
	CALL 催眠时阿空阿燐在场反应
	SIF CFLAG:38:300 == CFLAG:0:300
	CALL 催眠时恋在场反应
ELSEIF CFLAG:49:1525 == 3
	PRINTFORML %CALLNAME:MASTER%戏弄着无法反抗的覚
	CALL ASK_M("激活埋下的种子…", CFLAG:1527 == (1 || 2), "胖次给我看", 1, "给我看小穴！", 1, "打屁股！", 1,"让恶毒的小嘴安静一下！", CFLAG:49:291 == 0, "解锁隐藏调教指令(慎玩)",  CFLAG:49:1523 >= 10, )
	IF RESULT == 0
		CFLAG:49:1539 = 21
		IF CFLAG:49:1527 == 2
			CFLAG:49:1527 = 1
			IF EXP:49:57 <= 20
				PRINTFORML 停止跳蛋的振动，子宫因为内部高强度的震感还在一颤一颤地痙攣着
				PRINTFORML 如释重负的覚无法控制表情将脸藏在%CALLNAME:MASTER%看不见的地方、像狗一样丢人地吐出舌尖
			ELSEIF EXP:49:57 <= 40
				PRINTFORML 停止跳蛋的振动，强烈的酥麻感让覚下身几乎失去力气
				PRINTFORML 蜜汁不受控制的溢出，将\@ CFLAG:49:1538 == 1 ? 大腿根完全 # 裙摆大片的 \@打湿
				PRINTFORML 略显余裕的覚自嘲般冲着指尖浸满的淫汁苦笑
			ELSE
				PRINTFORML 停止跳蛋的振动，将沉浸在最深処的欢爱中的覚拉回现实
				PRINTFORML 被强行中断快感的覚略显落寞的用指尖在小腹处滑动，享受余韵的同时回味刚才的绝顶的酥麻快感
				PRINTFORML 覚的下身爱液入失禁般将覚整个臀部打湿，透过粉色蔷薇花纹的裙子能看见覚%UNDER_SKIRT_DESCRIPTION(49)%
			ENDIF
		ELSEIF CFLAG:49:1527 == 1
			CFLAG:49:1527 = 2
			PRINTFORML %CALLNAME:MASTER%启动了位于覚子宫内部的跳蛋
			IF EXP:49:57 <= 20
				PRINTFORML 覚极力忍耐着从未被如此刺激过子宫内、如同折磨般的震感
				PRINTFORML 面对不明缘由的异样，覚手护着小腹颤抖着蜷缩起身体
			ELSEIF EXP:49:57 <= 40
				PRINTFORML 覚在喉咙深处悲鳴似的呻吟起来，过量异常感堆积在小腹处让少女脸色发白
				PRINTFORML 从体内酥酥麻麻的怪异痛苦中领悟出一丝快感、令覚内心的不安更深了一分
			ELSE
				PRINTFORML 覚陶醉在突如其来的快感中，双手暗自挤压小腹贪求更多的刺激
				PRINTFORML 即使内心不愿接受，覚的身体也无法违抗刻入基因的享受雌性快感的本能
				PRINTFORML 被汗水打湿的发丝发丝混乱地黏在脸上，覚可人的脸庞更增了几分媚态
			ENDIF
		ENDIF
		CFLAG:49:1545 ++
	ELSEIF RESULT == 1
		CFLAG:49:1539 = 22
		IF CFLAG:49:1538 == 1
			PRINTFORML 赤裸身体的覚冷笑着回应%CALLNAME:MASTER%的命令
		ELSE
			PRINTFORML 覚仿佛看见讨厌的虫子一般脸上满是惊恐与不甘
			PRINTFORML 愈是将裙边撩起，脸上的厌恶愈发明显……
		ENDIF
		CFLAG:49:1545 ++
	ELSEIF RESULT == 2
		CFLAG:49:1539 = 23
		IF CFLAG:291 == 1
			PRINTFORML 覚不听指挥的双手、自说自话将穴口打开向%CALLNAME:MASTER%展示自己%UNDER_SKIRT_DESCRIPTION(49)%…
			PRINTFORML 无法控制自己身体的挫败与被%CALLNAME:MASTER%视奸自己重要部位的羞耻感情混杂在一起
			PRINTFORML 覚的泪水顺着脸颊止不住的一滴滴流下……
		ELSE
			IF EQUIP:49:6 == 33
				PRINTFORML 覚不听指挥的双手、隔着%SHOW_BOTTOM(49)%掰开%SLIT(, 1)%向%CALLNAME:MASTER%展示着
			ELSE
				PRINTFORML 覚不听指挥的双手、自说自话脱下%SHOW_BOTTOM(49)%向%CALLNAME:MASTER%展示自己%SLIT(, 1)%…
			ENDIF
			PRINTFORML 无法控制自己身体的挫败与被%CALLNAME:MASTER%视奸自己重要部位的羞耻感情混杂在一起
			PRINTFORML 覚的泪水顺着脸颊止不住的一滴滴流下……
		ENDIF
		CFLAG:49:1545 ++
	ELSEIF RESULT == 3
		CFLAG:49:1539 = 24
		CFLAG:49:1545 += 1
		EXP:49:50 ++
		IF TEQUIP:0 & 1 && (EQUIP:裙子 || EQUIP:下身衣服 || EQUIP:連衣裙 || EQUIP:和服)
			PRINTFORM 掀起覚穿著的%SHOW_BOTTOM(49,1)%用手掌使勁拍打著覚
		ELSE
			PRINTFORM 用手掌使勁拍打著覚
		ENDIF
		SIF EQUIP:49:緊身内衣 || EQUIP:49:連体内衣
			PRINTFORM 被%SHOW_下半身内衣(49,2)%包住的
		PRINTFORML %HIP(49)%
		PRINTFORM 在一次又一次的拍打下、
		IF !(TALENT:2 & 1)
			PRINTFORML 覚的股間的東西変硬了…
		ELSEIF CFLAG:49:1538 == 1
			PRINTFORML 覚因为羞耻而不断分泌的愛液、将自身的股間浸濕了…
		ELSE
			PRINTFORML 覚的屁股腫了起来変得一片通紅…
		ENDIF
		CFLAG:49:1545 += 2
	ELSEIF RESULT == 4
		CFLAG:49:1530 = 1
		CFLAG:49:1539 = 25
		IF PALAM:49:潤滑 >= PALAMLV:4
			PRINTFORML %CALLNAME:MASTER%脱下覚吸收了大量愛液変得沉甸甸的%PANTSNAME(EQUIP:49:下半身内衣２, 49)%，揉成一团塞进覚口中…
		ELSEIF PALAM:49:潤滑 >= PALAMLV:3
			PRINTFORML %CALLNAME:MASTER%脱下沾满覚%SLIT(49)%中分泌出的爱液的%PANTSNAME(EQUIP:49:下半身内衣２, 49)%，揉成一团塞进覚口中…
		ELSEIF PALAM:TARGET:潤滑 >= PALAMLV:2
			PRINTFORML %CALLNAME:MASTER%脱下覚湿润的%PANTSNAME(EQUIP:49:下半身内衣２, 49)%，揉成一团塞进覚口中…
		ELSE
			PRINTFORML %CALLNAME:MASTER%脱下覚%UNDER_SKIRT_DESCRIPTION(49)%，揉成一团塞进覚口中…
		ENDIF
		CFLAG:49:291 = 1
		CFLAG:49:1545 ++
	ELSEIF RESULT == 5
		PRINTFORML %CALLNAME:MASTER%为了让古明地覚身心都屈服于自己，为了让名为古明地覚的大妖怪成为自己的宠物玩具，对其进行的调教
		CALL ASK_M("鞭打", 1, "蜡烛", 1, "针", 1, "放尿", 1,"灌肠", 1, "肛門電極", 1, )
		IF RESULT == 0
			CFLAG:49:1539 = 26
			CFLAG:49:1545 += 5
			CALL COM101
			CALL MESSAGE1_COM101
		ELSEIF RESULT == 1
			CFLAG:49:1539 = 27
			CFLAG:49:1545 += 5
			CALL COM102
			CALL MESSAGE1_COM102
		ELSEIF RESULT == 2
			CFLAG:49:1539 = 28
			CFLAG:49:1545 += 5
			CALL COM103
			CALL MESSAGE1_COM103
		ELSEIF RESULT == 3
			CFLAG:49:1539 = 29
			CFLAG:49:1545 += 1
			CALL MESSAGE1_COM144
		ELSEIF RESULT == 4
			CFLAG:49:1539 = 30
			CFLAG:49:1545 += 10
			TEQUIP:浣腸 = !TEQUIP:浣腸
			CALL MESSAGE1_COM146
		ELSEIF RESULT == 5
			CFLAG:49:1539 = 41
			CFLAG:49:1545 += 10
			TEQUIP:肛門電極 = !TEQUIP:肛門電極
			CALL MESSAGE1_COM148
		ENDIF
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
	SIF CFLAG:36:300 == CFLAG:0:300 || CFLAG:36:300 == CFLAG:0:300 ||CFLAG:36:300 == CFLAG:37:300
	CALL 催眠时阿空阿燐在场反应
	SIF CFLAG:38:300 == CFLAG:0:300
	CALL 催眠时恋在场反应
ELSEIF CFLAG:49:1525 == 4
	PRINTFORML 覚认为做一些事是理所当然的
	CALL ASK_M("确认催眠内容", 1, "伸出杆杆", 1, "侍奉", 1, "发射", TCVAR:49:353 >= 2, "指定睡觉地点", CFLAG:49:1523 >= 10,)
	IF RESULT == 0
		CFLAG:49:1539 = 31
		PRINTFORML %CALLNAME:MASTER%命令古明地覚回答自己为了什么而生存
	ELSEIF RESULT == 1
		PRINTFORML %CALLNAME:MASTER%将%TINKO(MASTER)%伸到古明地覚面前
		PRINTFORML 覚俯身乖巧地凑上前嘶嘶嗅着
		CFLAG:49:1539 = 32
	ELSEIF RESULT == 2
		CFLAG:49:1539 = 33
		TCVAR:49:353 ++
		SELECTCASE RAND:4
		CASE 0
			EXP:49:40 ++
			CFLAG:49:1540 = 10
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 覚捧着恋人脸颊一般将%TINKO(PLAYER)%捧在手心，向%CALLNAME:MASTER%的亀頭献上服从的吻
				PRINTFORML 张口用嘴唇将前端完全包住并把舌头缠上去拨动起来，舌尖灵动挑逗着尿道口以促使%CALLNAME:MASTER%射精
			CASE 1
				PRINTFORML 覚一脸温柔将%CALLNAME:MASTER%生产子種汁的孕袋整个含入口中、在温暖湿润的口腔内搅动着
				PRINTFORML 同时手指纏住%CALLNAME:PLAYER%%TINKO(PLAYER)%前端開始，用细腻的手心不断摩擦…
			CASE 2
				PRINTFORML 覚将%CALLNAME:MASTER%%TINKO(PLAYER)%连根都含了进去、让%CALLNAME:MASTER%粗暴地进入自己喉咙深处
				PRINTFORML 以将肉棒汁吸得一滴不剩這種激烈的勢頭猛得吮吸著陰茎
			ENDSELECT
		CASE 1
			EXP:49:40 ++
			CFLAG:49:1540 = 11
			SELECTCASE RAND:2
			CASE 0
				PRINTFORML 覚把丰满的双峰凑上来、用%OPPAI_DESCRIPTION(TARGET,1)%间峡谷夹住%TINKO(MASTER)%撸动起来
				PRINTFORML 坚硬的肉棒被湿润地包裹住、陷入在柔软的部位里，那令人沉陷的舒适感觉、就好像是在肉海中漂荡一般…
				PRINTFORML 是因为心情很好吗、覚激烈的摇晃着身体、用%OPPAI_DESCRIPTION(TARGET)%全力地撸起了%CALLNAME:MASTER%的%TINKO(MASTER)%、仿佛都要冒出热气了
				PRINTFORML 其中桃色的%OPPAI_DESCRIPTION(TARGET,1)%的前端、%NIPPLE_DESCRIPTION(TARGET,1)%时不时、咯哩咯哩地摩擦着肉棒和亀頭…
				PRINTFORMW 看来覚十分了解并擅长取悦男性%TINKO(MASTER)%的方法…
			CASE 1
				PRINTFORML 覚把丰满的双峰凑上来、用%OPPAI_DESCRIPTION(TARGET,1)%间的幽谷夹住%TINKO(MASTER)%激烈的撸动起来
				PRINTFORML 坚硬的肉棒被湿润地包裹住、陷入在柔软的部位里，那令人沉陷的舒适感觉、就好像是在肉海中漂荡一般…
				PRINTFORMW 滑溜溜的双峰不断蹭动收容了硬邦邦的陰茎、有着令人沉迷程度的柔软…
				PRINTFORML 其中桃色的%OPPAI_DESCRIPTION(TARGET,1)%前端、%NIPPLE_DESCRIPTION(TARGET,1)%时不时亲吻着肉棒与亀頭…
				PRINTFORMW 覚熟练地奉仕并取悦着%CALLNAME:MASTER%的%TINKO(MASTER)%…
			ENDSELECT
		CASE 2
			EXP:49:40 ++
			CFLAG:49:1540 = 12
			IF CFLAG:291 == 0
				PRINTFORML 覚用%THIGHS(TARGET)%将%CALLNAME:MASTER%的%TINKO(MASTER)%夹在%SLIT(, 1)%与%PANTSNAME(EQUIP:49:下半身内衣２,49)%之间、
			ELSE
				PRINTFORML 覚用%THIGHS(TARGET)%夹住%CALLNAME:MASTER%的%TINKO(MASTER)%、
			ENDIF
			SELECTCASE RAND:7
			CASE 0
				PRINTFORM 露出沉溺于快楽的表情看着%CALLNAME:MASTER%同时
			CASE 1
				PRINT 露出陶醉的表情同时
			CASE 2
				PRINT 嘴角流出口水同时
			CASE 3
				PRINTFORM 用陶酔的眼神看向%CALLNAME:MASTER%同时
			CASE 4
				PRINTFORM 用淫猥的视线发出挑衅同时
			CASE 5
				PRINTFORM 大胆的动起腰身同时
			CASE 6
				PRINTFORM 脸颊微微泛红同时
			ENDSELECT
			PRINTFORML 柔嫩湿润的陰唇不断摩擦着%CALLNAME:MASTER%的%TINKO(MASTER)%…
		CASE 3
			EXP:49:40 ++
			CFLAG:49:1540 = 13
			IF CFLAG:291 == 0
				PRINTFORM 覚用%HIP(TARGET)%将%CALLNAME:MASTER%的%TINKO(MASTER)%夹在细腻臀瓣与%PANTSNAME(EQUIP:49:下半身内衣２,49)%之间、
			ELSE
				PRINTFORM 覚用%HIP(TARGET)%夹住%CALLNAME:MASTER%的%TINKO(MASTER)%、
			ENDIF
			SELECTCASE RAND:7
			CASE 0
				PRINTFORM 露出沉溺于快楽的表情看着%CALLNAME:MASTER%同时
			CASE 1
				PRINT 露出陶醉的表情同时
			CASE 2
				PRINT 嘴角流出口水同时
			CASE 3
				PRINTFORM 用陶酔的眼神看向%CALLNAME:MASTER%同时
			CASE 4
				PRINTFORM 用淫猥的视线发出挑衅同时
			CASE 5
				PRINTFORM 大胆的动起腰身同时
			CASE 6
				PRINTFORM 脸颊微微泛红同时
			ENDSELECT
			PRINTFORML 柔嫩湿润的菊穴不断摩擦着%CALLNAME:MASTER%的%TINKO(MASTER)%…
		ENDSELECT
	ELSEIF RESULT == 3
		CFLAG:49:1539 = 34
		TCVAR:49:353 = 0
		PRINTFORMW 古明地覚将%CALLNAME:MASTER%即将射精的%TINKO(MASTER)%前端含入口中，舌尖舔弄的同时不断用手撸动
		PRINTFORMW %SAMEN_DESCRIPTION(MASTER)%在覚口中爆开，满溢的精液让脸颊可爱地鼓起
		PRINTFORMW 并不急着吞咽、用唇齿舌将胶状粘稠的精液在口中细细碾散
		PRINTFORMW 张口让%CALLNAME:MASTER%确认自己舌尖不断翻搅白濁、认真感受美味的模样
		PRINTFORMW 经过同意之后，覚才一点点的、分多次将精子全部吞入胃里
		PRINTFORMW 再次张口展示以及全部吞下的干净口腔，覚意犹未尽地舔舐着嘴角
		EXP:49:精飲経験 ++
		CFLAG:49:517 += 100
		BASE:MASTER:精力 -= 100
	ELSEIF RESULT == 4
		CFLAG:49:1539 = 35
		PRINTFORML 安排在哪里比较好呢
		PRINTDL [0] - 覚的房间
		PRINTDL [1] - 露宿街头
		PRINTDL [2] - 恋的房间
		PRINTDL [3] - 你的房间
		INPUT
		IF RESULT == 0
			PRINTFORMW %CALLNAME:MASTER%命令覚可以回自己房间睡觉了
			CFLAG:49:1542 = 1
			CFLAG:49:30 = 919
			CFLAG:49:311 =919
		ELSEIF RESULT == 1
			PRINTFORMW %CALLNAME:MASTER%命令覚以后只许睡街上
			CFLAG:49:30 = 939
			CFLAG:49:311 =939
			CFLAG:49:1542 = 2
		ELSEIF RESULT == 2
			PRINTFORMW %CALLNAME:MASTER%命令覚以后要和恋睡在一起
			CFLAG:49:30 = 918
			CFLAG:49:311 =918
			CFLAG:49:1542 = 3
		ELSE
			PRINTFORMW %CALLNAME:MASTER%命令覚晚上来自己房间裸体陪睡
			CFLAG:49:1542 = 4
			CFLAG:49:30 = CFLAG:0:30
			CFLAG:49:311 = CFLAG:0:311
		ENDIF
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
	SIF CFLAG:36:300 == CFLAG:0:300 || CFLAG:36:300 == CFLAG:0:300 ||CFLAG:36:300 == CFLAG:37:300
	CALL 催眠时阿空阿燐在场反应
	SIF CFLAG:38:300 == CFLAG:0:300
	CALL 催眠时恋在场反应
ELSE
	CALL MESSAGE_COM300
ENDIF
;-------------------------------------------------
;301,泡茶
;-------------------------------------------------
@MESSAGE1_COM301
IF CFLAG:49:1522 == 1
	SELECTCASE CFLAG:49:1525
	CASE 1
		PRINTFORML %CALLNAME:MASTER%将半杯茶水凑至覚腿间，一个响指便令覚下身轻微的高潮起来
		PRINTFORML 待茶水与潮吹液混合均匀，再将茶杯递给覚
	CASE 2
		PRINTFORML %CALLNAME:MASTER%将半杯茶水凑至覚腿间，一个响指便令覚下身轻微的高潮起来
		PRINTFORML 待茶水与潮吹液混合均匀，再将茶杯递给覚
	CASE 3
		PRINTFORML %CALLNAME:MASTER%将温热的茶水从覚头顶倒下
		IF CFLAG:49:1538 == 1
			PRINTFORML 柔顺的发间黏连着茶叶，水珠顺着湿漉漉的发丝将裸露的上身全部打湿
		ELSE
			PRINTFORML 柔顺的发间黏连着茶叶，水珠顺着湿漉漉的发丝将上衣全部打湿
		ENDIF
		PRINTFORML 不得不忍受的覚表情有些苦闷…
	CASE 4
		PRINTFORML %CALLNAME:MASTER%将茶水含入口中后邀请覚来喝
		PRINTFORML 身材娇小的覚踮起脚尖吻住%CALLNAME:MASTER%的嘴唇让茶水顺利流入嘴里
	CASE 5
		PRINTFORML %CALLNAME:MASTER%将温热的茶水从覚头顶倒下
		PRINTFORML 为了喝水的覚不得不张开口接住从天而降的液体
		PRINTFORML 但大多数茶水还是淋在身上，覚湿漉漉的发丝间沾满凌乱的水珠
		SIF TFLAG:193
		PRINTFORML 随着水珠被覚肌肤的体温蒸发，覚抱着身体惹人怜爱地打着寒颤
	ENDSELECT
ELSE
	IF TALENT:49:服従
		PRINTFORML 覚為%CALLNAME:MASTER%送来了饮品
	ELSE
		CALL MESSAGE_COM301
	ENDIF
ENDIF

;-------------------------------------------------
;302,身体接觸
;-------------------------------------------------
@MESSAGE1_COM302
IF CFLAG:49:1522 == 1
	IF BATHCHECK(CFLAG:MASTER:現在位置) && IN_HOME(CFLAG:MASTER:現在位置)
		PRINTFORML %CALLNAME:MASTER%让覚用（）为自己清洁身体
		CALL ASK_M("臀部！", 1, "胸部！", 1, "小穴！", 1, )
		IF RESULT == 0
			PRINTFORML 覚将沐浴露抹在臀部，扭动腰肢为%CALLNAME:MASTER%涂满全身
		ELSEIF RESULT == 1
			PRINTFORML 覚将沐浴露涂在胸前，拥抱着用胸前软肉为%CALLNAME:MASTER%抹匀全身
		ELSEIF RESULT == 2
			PRINTFORML 覚将沐浴露沾慢私处，摩擦着将泡沫与蜜汁的混合物涂满%CALLNAME:MASTER%的身体
		ENDIF
	ELSE
		PRINTFORML %CALLNAME:MASTER%对覚的催眠进行调整
		CALL ASK_M("默认状态", 1, "无法意识正在被做H的事", CFLAG:49:1523 >= 3, "意识清醒却无法抗拒的催眠", CFLAG:49:1523 >= 6, "常识改变", CFLAG:49:1523 >= 9, "成为宠物", CFLAG:49:1523 >= 9, "总之先脱光", CFLAG:49:1523 >= 9, "灌醉！", CFLAG:49:1523 >= 6, "种下淫纹", CFLAG:49:1523 >= 10 ,"END", CFLAG:49:1549 != 1 && CFLAG:49:1545 >= 100 && TALENT:49:恋慕)
		IF RESULT == 0
			PRINTFORML 覚对%CALLNAME:MASTER%的命令无条件服从着……
			CFLAG:49:1525 = 1
		ELSEIF RESULT == 1
			PRINTFORML 古明地覚无法意识到一些事情……
			CFLAG:49:1525 = 2
		ELSEIF RESULT == 2
			PRINTFORML 古明地覚的意识从催眠中被释放……
			CFLAG:49:1525 = 3
		ELSEIF RESULT == 3
			PRINTFORML 古明地覚的部分常识被扭曲了……
			CFLAG:49:1525 = 4
		ELSEIF RESULT == 4
			SIF CFLAG:49:1538 == 1
			CFLAG:49:1538 = 0
			CFLAG:49:1525 = 5
			PRINTFORML 古明地覚的意识从催眠中被释放，可清醒过来时却发现自己无法违抗%CALLNAME:MASTER%的命令
			PRINTFORML 身上衣服被扒得只剩丝袜，头上戴着象征玩物的猫耳，后穴也被塞入肛塞连接着猫尾
			PRINTFORML 被下达了屈服于%CALLNAME:MASTER%命令的古明地覚，万般不服也不得不向%CALLNAME:MASTER%献媚
		ELSEIF RESULT == 5
			CFLAG:49:1511 = 1
		ELSEIF RESULT == 6
			CFLAG:49:1511 = 2
			CFLAG:49:1534 = 1
			PRINTL 要敬什么酒？
			CALL 酒一覧表示(1)
			IF RESULT
				;飲む酒の種類
				TFLAG:194 = RESULT
				ITEM:RESULT --
			ELSE
				RETURN 0
			ENDIF
			PRINTFORML %CALLNAME:MASTER%取来装满%ITEMNAME:RESULT%的酒瓶，让覚以被后入的姿势趴在地上
			IF EQUIP:49:6 == 33
				PRINTFORML 将瓶口隔着%UNDER_SKIRT_DESCRIPTION(49)%陷入%ASS(, 1)%，令液体透过纸符下渗入覚直肠内
			ELSEIF CFLAG:49:291 == 0
				PRINTFORML 脱下覚%UNDER_SKIRT_DESCRIPTION(49)%、不做润滑处理就挤开覚%ASS(, 1)%，瓶口深深没入直肠内
			ELSE
				PRINTFORML 不做润滑处理就挤开覚%ASS(, 1)%，瓶口深深没入直肠内
			ENDIF
			SELECTCASE TFLAG:194
				CASE 51
					PRINTFORML 似乎平日覚并不喜欢这个酒的味道，但这次并不用嘴喝想必也无所谓吧
					BASE:49:酒気 += 2500
				CASE 52
					PRINTFORML 因为是覚最喜欢的一款酒，所以一定不能浪费，一滴不剩的让覚喝掉才行
					BASE:49:酒気 += 3000
				CASE 53
					PRINTFORML 连鬼都能醉倒的高度酒，要是人类这么做绝对会死吧，但覚是妖怪这样一瓶灌入体内应该也不会有问题
					BASE:49:酒気 += 3500
				CASE 55
					PRINTFORML 就用神酒来洗净这污秽之穴！当然覚的后庭作为第二性器自然不存在污秽，只是希望覚的直肠会喜欢被神明大人祝福的感觉
					BASE:49:酒気 += 3000
				CASE 56
					PRINTFORML 因为度数很低所以平日从未被覚在意的甜酒，即使这次是直接从菊穴灌入身体也必须过量才行
					BASE:49:酒気 += 2000
				CASE 58
					PRINTFORML 话说回来这几乎就是纯酒精吧，味道令人难以接受的同时一小杯就能让人不省人事，覚的身体可千万要承受住哦
					BASE:49:酒気 += 5000
				CASE 59
					PRINTFORML 原本作为药品使用的酒现在却正在灌入古明地覚的菊穴，不知其药的部分效会起怎样的效果
					BASE:49:酒気 += 2500
				CASE 999
					PRINTFORML 明明没有酒却还要硬来，好在幻想乡里有万能的跳蛋可以产酒
					BASE:49:酒気 += 2500
			ENDSELECT
			PRINTFORMW 冰凉的酒液直接与粘膜接触产生强烈的灼烧感，%CALLNAME:MASTER%摇晃着瓶身以便更快的将酒瓶清空
			PRINTFORML 随着“啵”的一声酒瓶从体内拔出，覚贪杯的小小菊穴喝尽瓶内最后一滴，也仿佛正沉醉着将红润内壁敞在%CALLNAME:MASTER%面前，一时半会儿无法闭合
			PRINTFORML 在冷与热混杂触感的侵袭下，覚的意识随着粘膜吸收的过量酒精而混乱不清
			PRINTFORMW 似乎连催眠的效果都被覆盖过去了……
		ELSEIF RESULT == 7
			IF CFLAG:49:1537 == 1
				CFLAG:49:1537 = 0
				PRINTFORML 覚小腹处暗紫色的魔法回路消失了
			ELSE
				CFLAG:49:1537 = 1
				PRINTFORML 催眠之书蕴含的魔法使%CALLNAME:PLAYER%拥有了施加淫纹的能力
				PRINTFORML 古明地覚的小腹处缓慢浮现出闪烁着妖艳色彩的魔法回路，渗入体内向覚的子宫与卵巢蔓延过去
			ENDIF
			CFLAG:49:1511 = 3
		ELSEIF RESULT == 8
			PRINTFORMW 覚的身体已经积累了足够多的痛苦记忆
			PRINTFORMW 就这样继续浑浑噩噩继续糜烂的生活下去也可以，但也总该建立新的关系了
			PRINTFORMW ……
			CFLAG:49:1549 = 1
		ENDIF
	ENDIF
ELSE
	IF BATHCHECK(CFLAG:MASTER:現在位置) && IN_HOME(CFLAG:MASTER:現在位置)
		IF TALENT:恋人 && !RAND:2
			PRINTFORML %CALLNAME:PLAYER%让%CALLNAME:TARGET%为自己搓背
		ELSE
			PRINTFORML %CALLNAME:PLAYER%为%CALLNAME:TARGET%搓着背
		ENDIF
	ELSEIF CHK_DATENOW(CFLAG:TARGET:约会中) && CFLAG:MASTER:現在位置 != OMANEKIBEYA()
		IF !TALENT:服従
			PRINTFORML %CALLNAME:PLAYER%\@ (CFLAG:TARGET:現在位置 % 100) % 10 ? 一邊行走一邊 #  \@圖謀着与%CALLNAME:TARGET%\@ (CFLAG:TARGET:現在位置 % 100) % 10 ?  # 轻微的 \@身体接触
		ELSE
			IF CFLAG:49:300 == 220
				PRINTFORML  在书店深处书架后的僻静角落，%CALLNAME:PLAYER%与覚试图将书中的理论付诸实践
			ELSE
				SELECTCASE RAND:10
				CASE 0
					CFLAG:49:1508 = 0
					PRINTFORML  %CALLNAME:PLAYER%一邊行走一邊圖謀着与%CALLNAME:TARGET%的身体接触
				CASE 1
					CFLAG:49:1508 = 1
					PRINTFORML  覚蹦上%CALLNAME:PLAYER%的背后，搂着%CALLNAME:PLAYER%脖子俏皮的挂在身后
				CASE 2
					CFLAG:49:1508 = 2
					PRINTFORML  %CALLNAME:MASTER%牵起覚的手
				CASE 3
					CFLAG:49:1508 = 3
					PRINTFORML  覚贴近%CALLNAME:MASTER%身边，踮起脚尖温柔地抚摸%CALLNAME:MASTER%的头发
				CASE 4
					CFLAG:49:1508 = 4
					PRINTFORML %CALLNAME:PLAYER%双手很自然地捧住覚腰
					PRINTFORML 覚纤细地腰肢在%CALLNAME:PLAYER%手心俏皮地扭动着
				CASE 5
					CFLAG:49:1508 = 5
					PRINTFORML  %CALLNAME:MASTER%将手伸入覚发间，用指腹轻柔的捏覚耳垂
				CASE 6
					CFLAG:49:1508 = 6
					PRINTFORML  覚从身后搂住%CALLNAME:MASTER%的腰，脑袋挤入%CALLNAME:MASTER%腰和手臂间的空隙
				CASE 7
					CFLAG:49:1508 = 7
					PRINTFORML %CALLNAME:PLAYER%借着蹲下的时机偷看覚长裙下穿着什么
					PRINTFORML ……
					PRINTFORML 今天穿着的是%SOCKS(, 1)%来着
					PRINTFORML 覚似乎并不在意的样子，将裙边撩起至更适合欣赏的位置
				CASE 8
					CFLAG:49:1508 = 8
					PRINTFORML 站覚身后不动的话，就有机会被覚踩到……
					PRINTFORML 这份念想很快被察觉，覚转身手扶住%CALLNAME:PLAYER%的肩膀，脚下用足尖持续碾踩着
				CASE 9
					CFLAG:49:1508 = 9
					PRINTFORML %CALLNAME:PLAYER%搂着覚的腰将覚揽向自己
				ENDSELECT
			ENDIF
		ENDIF
	ELSEIF CFLAG:TARGET:350 == 49
		PRINTFORML %CALLNAME:PLAYER%比平常更加大胆的图谋着与%CALLNAME:TARGET%的身体接触
	ELSEIF TALENT:服従
		SELECTCASE RAND:17
		CASE 0
			CFLAG:49:1508 = 0
			PRINTFORML  与覚之瞳的距离很近，忍不住将心中乱七八糟的想法传过去
			SIF TFLAG:193 == 1
				PRINTFORML 覚神情有些困扰不自觉磨蹭双腿的样子相当养眼
		CASE 1
			CFLAG:49:1508 = 1
			PRINTFORML  覚贴在%CALLNAME:MASTER%身边，为了挤进%CALLNAME:MASTER%怀中暗自使劲
		CASE 2
			CFLAG:49:1508 = 2
			PRINTFORML  撩起覚鬓角发丝，浓密的发丝间的温度顺着指尖传递过来
		CASE 3
			CFLAG:49:1508 = 3
			PRINTFORML  %CALLNAME:MASTER%还未行动，覚已亲密地贴了上来
		CASE 4
			CFLAG:49:1508 = 4
			PRINTFORML  %CALLNAME:MASTER%十分放松的享受着覚为自己揉肩
		CASE 5
			CFLAG:49:1508 = 5
			PRINTFORML  %CALLNAME:MASTER%拨开覚后颈秀发，亲咬着露出的白皙部分
		CASE 6
			CFLAG:49:1508 = 6
			PRINTFORML  覚贴近%CALLNAME:MASTER%身体，温柔地抚摸%CALLNAME:MASTER%的头发
		CASE 7
			CFLAG:49:1508 = 7
			PRINTFORML  覚咬住%CALLNAME:MASTER%向自己伸来的手，黏住一样无法挣脱
		CASE 8
			CFLAG:49:1508 = 8
			PRINTFORML  贴近覚将鼻尖埋入头发里轻轻嗅、享受着覚发间香甜的气味，完全不想停下
		CASE 9
			CFLAG:49:1508 = 9
			PRINTFORML %CALLNAME:PLAYER%托着覚腋下将覚举起
			PRINTFORML 神奇的是几乎没有感觉到重量
			SIF TFLAG:193 == 1
				PRINTFORML 覚双腿扑腾着却并不能够到地面
		CASE 10
			CFLAG:49:1508 = 10
			PRINTFORML %CALLNAME:PLAYER%用手心托起覚%OPPAI_DESCRIPTION(49)%
			SELECTCASE TALENT:49:105
			CASE -2 to -1
				PRINTFORML 平平的有些遗憾
			CASE 0
				PRINTFORML 少女的胸部恰好可以完全握在手心
			CASEELSE
				PRINTFORML 想象之外的柔软，指尖不由自主陷入沉沉的柔软之中
			ENDSELECT
		CASE 11
			CFLAG:49:1508 = 11
			PRINTFORML %CALLNAME:PLAYER%双手很自然地搂着覚腰
			PRINTFORML 覚纤细地腰肢在%CALLNAME:PLAYER%手心倔俏扭动着
		CASE 12
			CFLAG:49:1508 = 12
			PRINTFORML %CALLNAME:PLAYER%如吃饭喝水般自然地朝覚的%HIP(49)%上抓了一把
			SIF TFLAG:193 == 1
				PRINTFORML 不知是不是错觉，有种覚再主动用小屁股曾自己手心的感觉
		CASE 13
			CFLAG:49:1508 = 13
			PRINTFORML %CALLNAME:PLAYER%手不安分地搭在覚%THIGHS(49)%上
			SIF TFLAG:193 == 1
				PRINTFORML 覚很自然得将%CALLNAME:PLAYER%的手掌夹在大腿内侧
		CASE 14
			CFLAG:49:1508 = 14
			PRINTFORML %CALLNAME:PLAYER%借着蹲下的时机偷看覚长裙下穿着什么
			PRINTFORML ……
			PRINTFORML 今天穿着的是%SOCKS(, 1)%来着
			SIF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子，将裙边撩起至更适合欣赏的位置
		CASE 15
			CFLAG:49:1508 = 15
			PRINTFORML 站覚身后不动的话，就有机会被覚踩到
			IF TFLAG:193 == 1
				PRINTFORML 覚心情很好的样子，用脚根持续碾踩着
				PRINTFORML %CALLNAME:PLAYER%在疼痛中领悟到一丝快感
			ENDIF
		CASE 16
			CFLAG:49:1508 = 16
			PRINTFORML %CALLNAME:PLAYER%将覚抱到自己腿上
			SIF TFLAG:193 == 1
				PRINTFORML 覚软糖似的臀肉挤压覆盖在%CALLNAME:PLAYER%大腿上
		ENDSELECT
	ELSEIF TALENT:恋慕
		SELECTCASE RAND:17
		CASE 0
			CFLAG:49:1508 = 0
			PRINTFORML  与覚之瞳的距离很近，忍不住将心中乱七八糟的想法传过去
			SIF TFLAG:193 == 1
				PRINTFORML 覚神情有些困扰不自觉磨蹭双腿的样子相当养眼
		CASE 1
			CFLAG:49:1508 = 1
			PRINTFORML  覚贴在%CALLNAME:MASTER%身边，为了挤进%CALLNAME:MASTER%怀中暗自使劲
		CASE 2
			CFLAG:49:1508 = 2
			PRINTFORML  整理着覚鬓角发丝，失去头发遮挡的覚的耳垂不知为何愈发粉红
		CASE 3
			CFLAG:49:1508 = 3
			PRINTFORML  %CALLNAME:MASTER%还未行动，覚已亲密地贴了上来
		CASE 4
			CFLAG:49:1508 = 4
			PRINTFORML  覚十分放松的享受着%CALLNAME:MASTER%为自己揉肩
		CASE 5
			CFLAG:49:1508 = 5
			PRINTFORML  %CALLNAME:MASTER%拨开覚耳后短发，亲咬着露出的白皙部分
		CASE 6
			CFLAG:49:1508 = 6
			PRINTFORML  覚将%CALLNAME:MASTER%拉近身边温柔地抚摸着%CALLNAME:MASTER%的头发
		CASE 7
			CFLAG:49:1508 = 7
			PRINTFORML  %CALLNAME:MASTER%凑在覚身边，很自然地牵起手在面前端详
			SIF TFLAG:193 == 1
				PRINTFORML 覚耐着性子没有吐槽%CALLNAME:PLAYER%的行为…
		CASE 8
			CFLAG:49:1508 = 8
			PRINTFORML  贴近覚将鼻尖埋入头发里轻轻嗅、享受着覚发间香甜的气味，完全不想停下
		CASE 9
			CFLAG:49:1508 = 9
			PRINTFORML %CALLNAME:PLAYER%托着覚腋下将覚举起
			PRINTFORML 神奇的是几乎没有感觉到重量
			SIF TFLAG:193 == 1
				PRINTFORML 覚双腿扑腾着却并不能够到地面
		CASE 10
			CFLAG:49:1508 = 10
			PRINTFORML 被覚%OPPAI_DESCRIPTION(49)%吸引，%CALLNAME:PLAYER%用指尖试探着戳戳侧乳
			SIF TFLAG:193 == 1
				PRINTFORML 比想象中手指能陷得深很多
		CASE 11
			CFLAG:49:1508 = 11
			PRINTFORML %CALLNAME:PLAYER%双手很自然地扶着覚腰
			SIF TFLAG:193 == 1
				PRINTFORML 覚顺势倒向%CALLNAME:PLAYER%的胸口
		CASE 12
			CFLAG:49:1508 = 12
			PRINTFORML %CALLNAME:PLAYER%有意无意用手背蹭着覚%HIP(49)%
			SIF TFLAG:193 == 1
				PRINTFORML 不知是不是错觉，覚好像偷偷撅起小屁股在向手心凑过来
		CASE 13
			CFLAG:49:1508 = 13
			PRINTFORML %CALLNAME:PLAYER%手不安分地搭在覚%THIGHS(49)%上
			SIF TFLAG:193 == 1
				PRINTFORML 覚很自然得将%CALLNAME:PLAYER%的手掌夹在大腿之间
		CASE 14
			CFLAG:49:1508 = 14
			PRINTFORML %CALLNAME:PLAYER%借着蹲下的时机偷看覚长裙下穿着什么
			PRINTFORML ……
			PRINTFORML 今天是%SOCKS(, 1)%来着
			SIF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子，将裙边撩起至更适合欣赏的位置
		CASE 15
			CFLAG:49:1508 = 15
			PRINTFORML 站覚身后不动的话，就有机会被覚踩到
			IF TFLAG:193 == 1
				PRINTFORML 覚心情很好的样子，用脚根持续碾踩着
				PRINTFORML %CALLNAME:PLAYER%在疼痛中领悟到一丝快感
			ENDIF
		CASE 16
			CFLAG:49:1508 = 16
			PRINTFORML %CALLNAME:PLAYER%将覚抱到自己腿上
			SIF TFLAG:193 == 1
				PRINTFORML 覚软糖似的臀肉积压覆盖在%CALLNAME:PLAYER%大腿上
		ENDSELECT
	ELSEIF TALENT:49:思慕
		SELECTCASE RAND:17
		CASE 0
			CFLAG:49:1508 = 0
			PRINTFORML  %CALLNAME:MASTER%凑在覚身边，很自然地牵起手在面前端详
			IF TFLAG:193 == 1
				PRINTFORML 覚耐着性子没有吐槽%CALLNAME:PLAYER%的行为…
			ELSEIF TFLAG:193 == -1
				PRINTFORML 覚从%CALLNAME:PLAYER%手里挣脱了
			ENDIF
		CASE 1
			CFLAG:49:1508 = 1
			PRINTFORML  %CALLNAME:MASTER%在意着对覚身边漂浮着的眼球
			IF TFLAG:193 == 1
				PRINTFORML 回过神来才注意到托着下巴的覚已经饶有趣味地看了自己好一会儿
			ELSEIF TFLAG:193 == -1
				PRINTFORML 注意到视线的眼球也直愣愣看向%CALLNAME:PLAYER%
			ENDIF
		CASE 2
			CFLAG:49:1508 = 2
			PRINTFORML  突然伸手碰到了覚颈间，因突如其来的触感觉惊得缩起肩膀
		CASE 3
			CFLAG:49:1508 = 3
			PRINTFORML  贴近覚将鼻尖埋入头发里轻轻嗅、享受着覚发间香甜的气味，完全不想停下
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …覚有些抗拒地晃了晃脑袋
			ENDIF
		CASE 4
			CFLAG:49:1508 = 4
			PRINTFORML  在对着覚耳朵吹气后，遭到了覚的持续埋怨
		CASE 5
			CFLAG:49:1508 = 5
			PRINTFORML  %CALLNAME:MASTER%的手在覚背中不断摩梭
			IF TFLAG:193 == 1
				PRINTFORML 覚很安定地放松了肩膀
			ELSEIF TFLAG:193 == -1
				PRINTFORML 不舒服吗，总觉得变僵硬了…
			ENDIF
		CASE 6
			CFLAG:49:1508 = 6
			PRINTFORMDL  %CALLNAME:MASTER%捏了下覚绵软的脸颊
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …覚有些抗拒地晃了晃脑袋
			ENDIF
		CASE 7
			CFLAG:49:1508 = 7
			PRINTFORML %CALLNAME:PLAYER%拨开覚鬓角碎发，手指伸进去揉揉覚藏在发间的耳朵
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …覚有些抗拒地晃了晃脑袋
			ENDIF
		CASE 8
			CFLAG:49:1508 = 8
			PRINTFORML %CALLNAME:PLAYER%为覚按摩了肩部
			IF TFLAG:193 == 1
				PRINTFORML 覚很安定地放松了肩膀
			ELSEIF TFLAG:193 == -1
				PRINTFORML 不舒服吗，好像越来越僵硬了
			ENDIF
		CASE 9
			CFLAG:49:1508 = 9
			PRINTFORML %CALLNAME:PLAYER%托着覚腋下将覚举起
			PRINTFORML 神奇的是几乎没有感觉到重量
			IF TFLAG:193 == 1
				PRINTFORML 覚双腿扑腾着却并不能够到地面
			ELSEIF TFLAG:193 == -1
				PRINTFORML 覚耐着性子没有吐槽%CALLNAME:PLAYER%的行为…
			ENDIF
		CASE 10
			CFLAG:49:1508 = 10
			PRINTFORML 被覚%OPPAI_DESCRIPTION(49)%吸引，%CALLNAME:PLAYER%用指尖试探着戳戳侧乳
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML 过分了吗，覚周围的空气都凝固了起来
			ENDIF
		CASE 11
			CFLAG:49:1508 = 11
			PRINTFORML %CALLNAME:PLAYER%双手很自然地扶着覚腰
			IF TFLAG:193 == 1
				PRINTFORML 覚诧异地看着%CALLNAME:PLAYER%把在自己腰间的双手
			ELSEIF TFLAG:193 == -1
				PRINTFORML 乱动的覚从%CALLNAME:PLAYER%手里挣脱了
			ENDIF
		CASE 12
			CFLAG:49:1508 = 12
			PRINTFORML %CALLNAME:PLAYER%有意无意用手背蹭着覚%HIP(49)%
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …过分了吗，覚周围的空气都凝固了起来
			ENDIF
		CASE 13
			CFLAG:49:1508 = 13
			PRINTFORML %CALLNAME:PLAYER%手不安分地搭在覚%THIGHS(49)%上
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …过分了吗，覚周围的空气都凝固了起来
			ENDIF
		CASE 14
			CFLAG:49:1508 = 14
			PRINTFORML %CALLNAME:PLAYER%借着蹲下的时机偷看覚长裙下穿着什么
			PRINTFORML ……
			PRINTFORML 今天是%SOCKS(, 1)%来着
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML 被发现了吗，周围的空气突然凝固了起来
			ENDIF
		CASE 15
			CFLAG:49:1508 = 15
			PRINTFORML 站覚身后不动的话，就有机会被覚踩到
			IF TFLAG:193 == 1
				PRINTFORML 覚心情很好的样子，用足尖持续碾踩着
				PRINTFORML %CALLNAME:PLAYER%在疼痛中领悟到一丝快感
			ELSE
				PRINTFORML 踩到%CALLNAME:PLAYER%脚背的覚露出了无语的表情
			ENDIF
		CASE 16
			CFLAG:49:1508 = 16
			PRINTFORML %CALLNAME:PLAYER%将覚抱到自己腿上
			IF TFLAG:193 == 1
				PRINTFORML 覚有些诧异地扭头望向%CALLNAME:PLAYER%
			ELSEIF TFLAG:193 == -1
				PRINTFORML 乱动的覚从%CALLNAME:PLAYER%手里挣脱了
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE RAND:10
		CASE 0
			CFLAG:49:1508 = 0
			PRINTFORML %CALLNAME:PLAYER%拨开覚鬓角碎发，手指伸进去揉揉覚藏在发间的耳朵
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …覚有些抗拒地晃了晃脑袋
			ENDIF
		CASE 1
			CFLAG:49:1508 = 1
			PRINTFORML %CALLNAME:PLAYER%为覚按摩了肩部
			IF TFLAG:193 == 1
				PRINTFORML 覚很安定地放松了肩膀
			ELSEIF TFLAG:193 == -1
				PRINTFORML 不舒服吗，好像越来越僵硬了
			ENDIF
		CASE 2
			CFLAG:49:1508 = 2
			PRINTFORML %CALLNAME:PLAYER%托着覚腋下将覚举起
			PRINTFORML 神奇的是几乎没有感觉到重量
			IF TFLAG:193 == 1
				PRINTFORML 覚耐着性子没有吐槽%CALLNAME:PLAYER%的行为…
			ELSEIF TFLAG:193 == -1
				PRINTFORML 乱动的覚从%CALLNAME:PLAYER%手里挣脱了
			ENDIF
		CASE 3
			CFLAG:49:1508 = 3
			PRINTFORML 被覚%OPPAI_DESCRIPTION(49)%吸引，%CALLNAME:PLAYER%用指尖试探着戳戳侧乳
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML 过分了吗，覚周围的空气都凝固了起来
			ENDIF
		CASE 4
			CFLAG:49:1508 = 4
			PRINTFORML %CALLNAME:PLAYER%双手很自然地扶着覚腰
			IF TFLAG:193 == 1
				PRINTFORML 覚诧异地看着%CALLNAME:PLAYER%把在自己腰间的双手
			ELSEIF TFLAG:193 == -1
				PRINTFORML 乱动的覚从%CALLNAME:PLAYER%手里挣脱了
			ENDIF
		CASE 5
			CFLAG:49:1508 = 5
			PRINTFORML %CALLNAME:PLAYER%有意无意用手背蹭着覚%HIP(49)%
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …过分了吗，覚周围的空气都凝固了起来
			ENDIF
		CASE 6
			CFLAG:49:1508 = 6
			PRINTFORML %CALLNAME:PLAYER%手不安分地搭在覚%THIGHS(49)%上
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML …过分了吗，覚周围的空气都凝固了起来
			ENDIF
		CASE 7
			CFLAG:49:1508 = 7
			PRINTFORML %CALLNAME:PLAYER%借着蹲下的时机偷看覚长裙下穿着什么
			PRINTFORML ……
			PRINTFORML 今天是%SOCKS(, 1)%来着
			IF TFLAG:193 == 1
				PRINTFORML 覚似乎并不在意的样子
			ELSEIF TFLAG:193 == -1
				PRINTFORML 被发现了吗，周围的空气突然凝固了起来
			ENDIF
		CASE 8
			CFLAG:49:1508 = 8
			PRINTFORML 站覚身后不动的话，就有机会被覚踩到
			IF TFLAG:193 == 1
				PRINTFORML 覚心情很好的样子，用足尖持续碾踩着
				PRINTFORML %CALLNAME:PLAYER%在疼痛中领悟到一丝快感
			ELSE
				PRINTFORML 踩到%CALLNAME:PLAYER%脚背的覚露出了无语且嫌弃的表情
			ENDIF
		CASE 9
			CFLAG:49:1508 = 9
			PRINTFORML %CALLNAME:PLAYER%将覚抱到自己腿上
			IF TFLAG:193 == 1
				PRINTFORML 覚有些诧异地扭头望向%CALLNAME:PLAYER%
			ELSEIF TFLAG:193 == -1
				PRINTFORML 乱动的覚从%CALLNAME:PLAYER%手里挣脱了
			ENDIF
		ENDSELECT
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ENDIF

;-------------------------------------------------
;305,索求膝枕
;-------------------------------------------------
@MESSAGE1_COM305
IF CFLAG:49:1522 == 1
	PRINTFORML %CALLNAME:PLAYER%享用了%CALLNAME:TARGET%的膝枕
	PRINTFORML %CALLNAME:TARGET%一边看着%CALLNAME:MASTER%的脸一边温柔的抚摸起来
	PRINTFORML 一旁就是引人遐想的三角带，总觉得有H的味道萦绕在鼻尖
ELSEIF CFLAG:1505 == 2
	PRINTFORML %CALLNAME:PLAYER%试图享用了%CALLNAME:TARGET%的膝枕，却被%CALLNAME:TARGET%推开了
ELSE
	CALL MESSAGE_COM305
ENDIF
TFLAG:400 = RAND:2
SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
;-------------------------------------------------
;306,撫摸肚子
;-------------------------------------------------
@MESSAGE1_COM306
IF CFLAG:49:1522 == 1
	IF CFLAG:49:1525 == 5
		PRINTFORM %CALLNAME:PLAYER%从身后搂住覚，对没有一丝赘肉
		IF TALENT:TARGET:妊娠
			PRINTFORM 、孕育着自己孩子的
		ELSEIF 充填率(TARGET,1) > 30
			PRINT 、被注入大量精子的
		ENDIF
		PRINTFORML 的小腹肆意抚摸着
		PRINTFORML 久违柔和的行为似乎令覚有些不知所措，只是用身体在%CALLNAME:PLAYER%身前轻轻磨蹭
	ELSE
		PRINTFORM %CALLNAME:PLAYER%
		IF TALENT:TARGET:妊娠
			PRINTFORM 对孕育着%CALLNAME:PLAYER%孩子的
		ELSEIF 充填率(TARGET,1) > 30
			PRINT 对被注入大量精子的
		ENDIF
		PRINTFORML 对%CALLNAME:TARGET%的小腹抚摸了起来
		PRINTFORML 指尖陷入腹部软肉之中，隔着皮肉在覚体内戳弄
	ENDIF
	SIF CFLAG:49:1537 == 1
		PRINTFORML 古明地覚小腹处紫红的纹路散发着幽幽光痕
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ELSEIF CFLAG:49:1505 == 2
	PRINTFORML %CALLNAME:PLAYER%将手伸向%CALLNAME:TARGET%的腹部时，%CALLNAME:TARGET%先一步护住了肚子
ELSE
	CALL MESSAGE_COM306
	SIF CFLAG:49:1537 == 1
		PRINTFORML 古明地覚小腹处紫红的纹路散发着幽幽光痕
ENDIF

;-------------------------------------------------
;307,捏臉蛋
;-------------------------------------------------
@MESSAGE1_COM307
IF CFLAG:49:1525 == 5
	PRINTFORML %CALLNAME:PLAYER%把手伸向了%CALLNAME:TARGET%的脸頬捏了起来…
		PRINTDATA
			DATAFORM 捏住感觉软软的…
			DATAFORM 捏住感觉很有弹性…
			DATAFORM 捏住感觉又软又弹…
			DATAFORM 捏住感觉软趴趴的…
			DATAFORM 使劲的捏了起来…
		ENDDATA
ELSE
	CALL MESSAGE_COM307
ENDIF

;-------------------------------------------------
;308,捅臉頰
;-------------------------------------------------
@MESSAGE1_COM308
IF TALENT:49:処女 ==1
	IF CFLAG:49:睡眠 == 1
		PRINTFORML %CALLNAME:MASTER%用手指戳了正在睡覚的覚的脸颊
		PRINTFORML 望着眼前熟睡又未经人事的妙曼少女，%CALLNAME:MASTER%心中翻涌起一万个罪恶的念头……
		CALL ASK_M("还是算了", 1, "好想让她怀孕……", TALENT:49:処女 == 1, "子宫调教", TALENT:49:処女 == 1, "古明地覚百日睡眠开发记录开关（未完成）", CFLAG:49:1546 == 0 && TALENT:49:処女 == 1, )
		IF RESULT == 0
			CALL MESSAGE_COM308
		ELSEIF RESULT == 1
			PRINTFORML 想让覚怀孕的念头在%CALLNAME:MASTER%心中滋生…
			PRINTFORML 只是幻想一下覚微微隆起的孕肚，%CALLNAME:MASTER%就以此为配菜射了几发，并感受到源源不断地精力
			PRINTFORML 用注射器收集了自己的精液混着排卵诱发剂，从链接的细长软管穿透处女膜的缝隙，直接戳到子宫内壁
			PRINTFORML 将滚烫而饱含生命力的精子完全注入，粘稠孕汁包裹着子宫输卵管甚至卵巢，时刻准备向其中卵子发起进攻
			PRINTFORML 覚小小的子宫被精液撑起，像填满奶油的泡芙
			PRINTFORML 糖浆般稠密的精液被紧致的子宫口封在密闭的小小空间内，覚的身体认真履行着受孕的使命……
			EXP:MASTER:24 ++
			BASE:MASTER:精力 -= 1000
			TCVAR:49:強制排卵 = 180
			EX:49:18 += 497
			EX:49:14 += 3
			EXP:49:16 ++
		ELSEIF RESULT == 2
			CFLAG:49:1527 = 1
			PRINTFORML 调教少女最重要圣洁的房间的念头在%CALLNAME:MASTER%心中滋生…
			PRINTFORML 將手指插入、轻柔地掰开覚%SLIT(, 1)%，娇嫩地处女膜清晰可见
			PRINTFORML 将特制的跳蛋小心翼翼撑开覚处女膜上本就不大的小口，尽可能利用肉膜的弹性将跳蛋整个送入覚体内
			PRINTFORML 光这样还远远不够，必须将其送到更深处…
			PRINTFORML 用细长的玻璃棒顶住跳蛋扩开覚未被撑开过的内壁，因为覚并不深的阴道让工作进展的很顺利
			PRINTFORML 最关键的一步，通过特制软管伸入覚子宫内注入过量润滑液与媚药
			PRINTFORML 在媚药刺激下，覚的子宫愉悦地张开了小口，趁此机会将跳蛋送入覚的子宫内部
			PRINTFORML 只是想到覚的子宫今后都由自己掌控，前所未有地愉悦感在%CALLNAME:MASTER%心中迸发
		ELSEIF RESULT == 3
			IF CFLAG:49:1546 == 0
				CFLAG:49:1546 = 1
				PRINTFORML %CALLNAME:MASTER%制定了用百天时间将古明地覚打造成自己喜欢样子的计划
			ELSE
				CFLAG:49:1546 = 0
			ENDIF
		ENDIF
	ELSE
		CALL MESSAGE_COM308
	ENDIF
ELSE
	CALL MESSAGE_COM308
ENDIF
;-------------------------------------------------
;309,摸頭
;-------------------------------------------------
@MESSAGE1_COM309
IF FLAG:70 == 1
	PRINTFORML %CALLNAME:MASTER%把手伸向了覚的頭
	PRINTFORML 時停中的覚就这様毫无抵抗地被摸起了脑袋…
ELSEIF CHK_DATENOW(CFLAG:49:约会中) && CFLAG:MASTER:現在位置 != OMANEKIBEYA()
	IF CFLAG:49:1525 == 5
		PRINTFORML %CALLNAME:MASTER%随意地将覚靓丽的粉色卷发揉乱
	ELSE
		PRINTFORML %CALLNAME:MASTER%摸了摸偎依在身边的覚的脑袋
		SELECTCASE TFLAG:193
			CASE 1
				PRINTFORML 覚露出放松的表情眯起了眼睛…
			CASE 0
				IF ABL:親密 > 5
					PRINTFORML 覚露出害羞的表情并一动不动地任凭%CALLNAME:MASTER%抚摸…
				ELSE
					PRINTFORML 覚红着脸甩開了%CALLNAME:MASTER%的手…
				ENDIF
			CASE -1
				PRINTFORML …稍微有点亲昵过头的様子
		ENDSELECT
	ENDIF
ELSEIF CFLAG:49:睡眠
	PRINTFORML %CALLNAME:MASTER%温柔抚摸起了正在睡覚的覚的頭
	IF ABL:親密 > 5
		PRINTFORML 覚露出了愉快的笑容…
	ELSE
		PRINTFORML 覚毫无反应地任%CALLNAME:MASTER%抚摸…
	ENDIF
	PRINTFORML 要是对覚妄想一些H的内容会不会很有趣？
	CALL ASK_M("还是算了", 1, "那必须", 1)
	IF RESULT == 0
	ELSEIF RESULT == 1
	PRINTFORML 妄想些什么内容？
	CALL ASK_M("什么都不做", 1, "M", 1, "B", 1, "C", 1, "V", 1, "A", 1)
		IF RESULT == 0
			CFLAG:49:1524 = 0
		ELSEIF RESULT == 1
			CFLAG:49:1524 = 1
			PRINTFORML 古明地覚的舌头敏感度提升了三千倍！！！
			PRINTFORML 覚薄而小巧的舌头只是呆在口腔内就欢乐得快将自己闷死
			PRINTFORML 为了呼吸只能像狗狗一样将吐出舌头，口水在异常的分泌速度下如同爱液般充满整个口穴
			PRINTFORML 捏住弹软的舌尖微微用力，覚下身就如装满水的气球突然出现缺口
			PRINTFORMW 飞溅的淫汁激射一直持续数秒才逐渐放缓……
		ELSEIF RESULT == 2
			CFLAG:49:1524 = 2
			PRINTFORML 被老师开小灶而不得不晚归的JK小覚，拖着疲惫的身体踏上回家的末班车
			PRINTFORML 充斥死气沉沉下班族与刚开始夜生活闲杂人员的车厢里，气愤沉闷得让人窒息
			PRINTFORML 在有序的颠簸与昏暗灯光相辅相成下，倚靠着扶杆的覚意识逐渐模糊不清…
			PRINTFORML 粗糙的双手，伸入肌肤与衣服之间的空隙，沿着腹部抚弄向上
			PRINTFORML 最终毫不客气地掐住覚娇嫩的乳尖
			PRINTFORML 不知为何身体动弹不了，不知为何喉咙发不出声响，甚至连回头确认对方相貌都无法做到
			PRINTFORML 被不断拨弄乳头的归家之旅，似乎永远永远到达不了终点……
		ELSEIF RESULT == 3
			CFLAG:49:1524 = 3
			PRINTFORML
		ELSEIF RESULT == 4
			CFLAG:49:1524 = 4
		ELSEIF RESULT == 5
			CFLAG:49:1524 = 5
		ENDIF
	ENDIF
ELSE
	IF CFLAG:49:1525 == 5
		PRINTFORML %CALLNAME:MASTER%温柔地撫摸着覚的頭，随意地将覚靓丽的粉色卷发揉乱
	ELSE
		PRINTFORML %CALLNAME:MASTER%\@ CFLAG:49:陪睡中 ? 撫摸着陪睡中的 # 温柔地撫摸着 \@覚的頭
	ENDIF
ENDIF
;-------------------------------------------------
;336,膝枕
;-------------------------------------------------
@MESSAGE1_COM336
IF CFLAG:49:1522 == 1
	PRINTFORML %CALLNAME:PLAYER%故意让%CALLNAME:TARGET%用脑袋压着自己裆部
ELSEIF CFLAG:1505 == 2
	PRINTFORML %CALLNAME:PLAYER%想讓%CALLNAME:TARGET%枕在膝上
ELSE
	CALL MESSAGE_COM336
ENDIF
TFLAG:400 = RAND:2
SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)

;-------------------------------------------------
;403休憩
;-------------------------------------------------
@MESSAGE1_COM403
IF CFLAG:49:1525 == 5
	PRINTFORML 覚跪坐在%CALLNAME:PLAYER%脚边等待%CALLNAME:PLAYER%休息完毕
ELSE
	CALL MESSAGE_COM403
ENDIF
;-------------------------------------------------
;80,拉手
;-------------------------------------------------
@MESSAGE1_SCOM80
IF CFLAG:49:1525 == 5
	PRINTFORML %CALLNAME:PLAYER%牵起系着覚项圈上的链子匆忙赶路
ELSE
	CALL MESSAGE_SCOM80
ENDIF
;-------------------------------------------------
;603,牽手
;-------------------------------------------------
@MESSAGE1_COM603
IF CFLAG:49:1525 == 5
	PRINTFORML %CALLNAME:PLAYER%牵起了系着覚项圈上的链子
ELSE
	CALL MESSAGE_COM603
ENDIF
;-------------------------------------------------
;310,摸屁股
;-------------------------------------------------
@MESSAGE1_COM310
IF FLAG:70 == 1
	PRINTFORML %CALLNAME:MASTER%搓揉着覚高级软糖一般%HIP(49)%
	PRINTFORML 指尖陷入软肉间，自说自话将覚的嫩菊拉开
	PRINTFORML 原本富有弹性的穴口皮肤被拉伸至极限，紧绷着哀求%CALLNAME:MASTER%不要再继续
	PRINTFORML 因时间停滞身体未意识到痛苦，覚还在淡淡微笑着
ELSEIF CFLAG:49:睡眠 == 1
	IF TCVAR:睡眠薬強度 == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML %CALLNAME:MASTER%双手将覚布丁般%HIP(49)%整个抓在手心
		CASE 1
			PRINTFORML %CALLNAME:MASTER%将手高高抬起，重重落在覚的%HIP(49)%
			PRINTFORML 在搓揉的同时，覚白皙的臀部留下了难以消去的掌印
		CASE 2
			PRINTFORML %CALLNAME:MASTER%揉面团一样将覚的%HIP(49)%在手心捏成各种形状
			PRINTFORML 丝毫不在意十指在覚娇嫩臀部留下的清晰指印
		ENDSELECT
		PRINTFORML %CALLNAME:MASTER%肆无忌惮把玩着药物作用下昏迷一样沉睡的覚的身体
		IF TALENT:恋慕
			PRINTFORML 覚脸颊微红地用屁股蹭着%CALLNAME:MASTER%的手心…
		ELSE
			PRINTFORML 覚不安地扭了扭身体，無意識间低低呻吟着……
		ENDIF
	ELSE
		PRINTFORML %CALLNAME:MASTER%将手伸向了侧躺着入睡的覚的%HIP(49)%
		PRINTFORML 配合着覚的呼吸，小心翼翼抚摸着
		IF TALENT:恋慕
			PRINTFORML 覚脸颊微红地用臀肉蹭着%CALLNAME:MASTER%的手心…
		ELSE
			PRINTFORML 覚扭了扭身体無意識的甩開了%CALLNAME:MASTER%的手…
		ENDIF
	ENDIF
ELSEIF CFLAG:49:1525 == 5
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML %CALLNAME:MASTER%双手将覚布丁般%HIP(49)%整个抓在手心
	CASE 1
		PRINTFORML %CALLNAME:MASTER%将手高高抬起，重重落在覚的%HIP(49)%
		PRINTFORML 在搓揉的同时，覚白皙的臀部留下了难以消去的掌印
	CASE 2
		PRINTFORML %CALLNAME:MASTER%揉面团一样将覚的%HIP(49)%在手心捏成各种形状
		PRINTFORML 丝毫不在意十指在覚娇嫩臀部留下的清晰指印
	ENDSELECT
ELSEIF CFLAG:49:1522 == 1
	IF GET_TARGETNUM() == 1 && !DATE_HITOGOMI(CFLAG:MASTER:現在位置) && !WITH_MOB()
		PRINTFORML 覚\@ CFLAG:49:1538 == 1 ? 将裙边撩起， #  \@任由%CALLNAME:MASTER%的手\@ CFLAG:49:291 == 0 ? 伸入内裤 #  \@玩弄自己%HIP(49)%
	ELSE
		PRINTFORML 覚旁若无人地撩起裙边，任%CALLNAME:MASTER%的手\@ CFLAG:49:291 == 0 ? 伸入内裤 #  \@玩弄自己%HIP(49)%
		PRINTFORML 雪白的臀部暴露在%CALLNAME:MASTER%视野里……
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
ELSE
	IF CFLAG:诶嘿嘿 == 2
		CALL MESSAGE_COM310
	ELSE
		IF EQUIP:49:下半身内衣２ == 33
			PRINTFORML %CALLNAME:PLAYER%手指钻入覚臀瓣间的幽深沟壑，对覚覆盖着%PANTSNAME(EQUIP:49:下半身内衣２, 49)%的%ASS(, 1)%扣弄起来
		ELSE
			PRINTFORML %CALLNAME:PLAYER%手指钻入覚娇挺臀瓣间的幽深沟壑，指尖不由自主向覚%ASS(, 1)%内刺入
		ENDIF
		SELECTCASE TFLAG:193
			CASE 1
				PRINTFORML 覚在%CALLNAME:PLAYER%手背掐出了暗褐色的血痕…
			CASE 2
				PRINTFORML 覚握住%CALLNAME:PLAYER%的手指仿佛要扭断一般，拖拽着将%CALLNAME:PLAYER%的手扔开
			CASE 3
				PRINTFORML 覚握住%CALLNAME:PLAYER%的手腕，对扣弄自己下身的手指有些不知所措
			CASE 4
				PRINTFORML 覚似乎毫不在意地样子%CALLNAME:PLAYER%恣意妄为…
		ENDSELECT
		TFLAG:400 = RAND:2
		SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
			CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
	ENDIF
ENDIF
;-------------------------------------------------
;311,擁抱
;-------------------------------------------------
@MESSAGE1_COM311
IF CFLAG:49:1522 == 1
	$NOMALDAKI
	PRINTFORML %CALLNAME:PLAYER%緊緊抱住了\@ CFLAG:TARGET:陪睡中 ? 陪睡的 # \@%CALLNAME:TARGET%
	PRINTFORM %CALLNAME:TARGET%
		IF TALENT:動物耳
			PRINTL 慌乱的扭动着身体…
		ELSE
			PRINTFORM 脸上泛红的同时、也不是很不满的様子…
		ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ELSEIF CFLAG:1505 == 2
	PRINTFORM %CALLNAME:TARGET%对想要抱上来的%CALLNAME:PLAYER%眼中闪出光彩
ELSE
	CALL MESSAGE_COM311
ENDIF
;-------------------------------------------------
;312,接吻
;-------------------------------------------------
@MESSAGE1_COM312
IF CFLAG:49:1522 == 1
	IF PREVCOM == 305
		PRINTFORML %CALLNAME:PLAYER%从膝盖上撑起身体轻吻了%CALLNAME:TARGET%的嘴唇…
	ELSE
		PRINTFORML %CALLNAME:PLAYER%用自己的嘴堵住了%CALLNAME:TARGET%的嘴…
	ENDIF
	$NOMALKISS
		IF CFLAG:49:1525 == 5
			PRINTFORML %CALLNAME:TARGET%不情愿的将舌尖送入%CALLNAME:PLAYER%口中，互相交换其唾液…
		ELSE
			PRINTFORML %CALLNAME:TARGET%叩開%CALLNAME:PLAYER%的嘴唇把舌头缠绕过去…
		ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ELSEIF CFLAG:49:1505 == 2
	PRINTFORML %CALLNAME:TARGET%灵巧地闪避开想要亲吻自己的%CALLNAME:PLAYER%的嘴唇
ELSE
	CALL MESSAGE_COM312
ENDIF

;-------------------------------------------------
;313,胸愛撫
;-------------------------------------------------
@MESSAGE1_COM313
IF FLAG:70 == 1
	PRINTFORM %CALLNAME:MASTER%
	IF TEQUIP:1 & 1 && !TEQUIP:4
		TEQUIP:4 = 1
		PRINTFORM 從敞開的%SHOW_TOP(49,1)%、
		IF TEQUIP:1 & 2
			PRINTFORML 脱掉%SHOW_TOP(49)%揉搓著覚%OPPAI_DESCRIPTION(49,1)%
		ELSE
			PRINTFORM 揉搓着
			SIF !(EQUIP:49:上半身内衣１ || EQUIP:49:上半身内衣２ || EQUIP:49:緊身内衣 || EQUIP:49:連体内衣)
				PRINT 下面什麼也沒有穿
			PRINTFORML 裸露出来的覚的%OPPAI_DESCRIPTION(49,1)%
		ENDIF
	ELSEIF TEQUIP:1 & 2
		PRINTFORML 隔著%SHOW_TOP(49)%揉搓着
	ELSE
		PRINTFORML 揉搓着覚%TEXTR("为了诱惑男性而存在/平日毫无防备摇晃的/让男人梦寐以求/")%%OPPAI_DESCRIPTION(49,1)%
		PRINTFORML 只是稍微拉扯下乳尖，胸部就俏皮的跳动起来
		PRINTFORML %CALLNAME:MASTER%掐着覚%NIPPLE_DESCRIPTION(49,1)%随意拉扯，享受肆意玩弄少女胸部的快感
	ENDIF
	PRINTFORML 時停中的覚与其他被玩弄少女一样没有反抗的余地，被%CALLNAME:MASTER%玩弄着乳房…
ELSEIF CFLAG:49:睡眠
	PRINTFORM %CALLNAME:MASTER%隔著%SHOW_TOP(49)%
	IF TCVAR:睡眠薬強度 == 3
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 粗暴地揪着%NIPPLE_DESCRIPTION(49,1)%拉扯
		CASE 1
			PRINTFORML 将绵软乳肉聚在一起
		CASE 2
			PRINTFORML 将覚%NIPPLE_DESCRIPTION(49,1)%摁回%OPPAI_DESCRIPTION(49)%里……
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORML 像撫摸一般揉搓着覚的%OPPAI_DESCRIPTION(49)%…
			CASE 1
				PRINTFORML 温柔的揉搓着覚的%OPPAI_DESCRIPTION(49)%…
			CASE 2
				PRINTFORML 仔細的揉搓着覚的%OPPAI_DESCRIPTION(49)%…
		ENDSELECT
	ENDIF
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 覚好像怕痒似的扭动着身子…
	CASE 1
		PRINTFORML 覚因为愛撫開始呼出火熱的气息…
	CASE 2
		PRINTFORML 覚脸颊发红任凭%CALLNAME:MASTER%为所欲为…
	ENDSELECT
ELSEIF CFLAG:49:1522 == 1
	$NOMALMUNE
	IF TEQUIP:1 & 1 && !TEQUIP:4 && (!DATE_HITOGOMI(CFLAG:MASTER:現在位置) || GET_TARGETNUM() > 1)
		TEQUIP:4 = 1
		PRINTFORM %CALLNAME:MASTER%從覚敞開的%SHOW_TOP(49,1)%、
		IF TEQUIP:1 & 2
			PRINTFORM 越過内衣対覚的%OPPAI_DESCRIPTION(49,1)%
		ELSE
			PRINTFORM 対
			SIF !(EQUIP:49:上半身内衣１ || EQUIP:49:上半身内衣２ || EQUIP:49:緊身内衣 || EQUIP:49:連体内衣)
				PRINT 下面什麼也沒有穿
			PRINTFORM 裸露出来的%OPPAI_DESCRIPTION(49,1)%
		ENDIF
	ELSEIF TEQUIP:1 & 2
		PRINTFORM %CALLNAME:MASTER%隔著%SHOW_TOP(49)%対覚的%OPPAI_DESCRIPTION(49,1)%
	ELSE
		PRINTFORM %CALLNAME:MASTER%対覚的%OPPAI_DESCRIPTION(49,1)%
	ENDIF
	SELECTCASE RAND:5
	CASE 0
		PRINT 像撫摸一般揉搓起来
	CASE 1
		PRINT 温柔的揉搓起来
	CASE 2
		PRINT 仔細的揉搓起来
	CASE 3
		PRINT 粗暴地揪着乳尖拉扯
	CASE 4
		PRINT 将绵软乳肉聚在一起
	ENDSELECT
	PRINTFORML …
	PRINTFORM 覚
	IF CFLAG:49:1525 == 5
		PRINTFORML 一声不吭任凭自己的胸部被玩弄…
	ELSE
		PRINTFORML 任凭自己的胸部被玩弄…
	ENDIF
	SIF GET_TARGETNUM() > 1 && !DATE_HITOGOMI(CFLAG:MASTER:現在位置) && !WITH_MOB()
	PRINTFORML 感受到来自身后名为羡慕与嫉妒的目光…
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
ELSE
	CALL MESSAGE_COM313
ENDIF
;-------------------------------------------------
;314,肛門愛撫
;-------------------------------------------------
@MESSAGE1_COM314
IF FLAG:70
	IF TEQUIP:0 > 1
		PRINTFORML %CALLNAME:MASTER%将%SHOW_BOTTOM(49)%脱到膝盖处，分开臀瓣舌尖刺入覚后庭内部
	ELSE
		PRINTFORML %CALLNAME:MASTER%分开臀瓣将舌尖刺入覚后庭内部
	ENDIF
	PRINTFORML %CALLNAME:MASTER%舌尖抽插里外品尝着覚第二性穴的滋味
	PRINTFORML 覚的菊穴在不断玩弄下擅自张开，湿润着迎接%CALLNAME:MASTER%的到来
	PRINTFORML 即使在时间停止之下，覚的肛门依然贪婪索求着快楽…
ELSEIF CFLAG:诶嘿嘿 == 2
	CALL MESSAGE_COM314
ELSEIF CFLAG:49:1522 == 1
	IF CFLAG:49:1525 == 5
		PRINTFORML %CALLNAME:MASTER%抽插着固定猫尾而塞入覚%ASS(, 1)%中的拉珠
		PRINTFORML 被肠液润湿的器具只是稍稍借助外力，就将覚穴肉努力的纠缠完全破解
		PRINTFORML 伴随来回的抽送，覚扭动着腰臀持续发出娇喘
	ELSE
		IF TEQUIP:0 > 1
			PRINTFORM %CALLNAME:MASTER%连带着%SHOW_BOTTOM(49)%，指尖毫不客气地挤入覚的菊穴，
		ELSE
			PRINTFORM %CALLNAME:MASTER%的指尖毫不客气地伸进覚的菊穴，
		ENDIF
		SELECTCASE RAND:4
		CASE 0
			PRINTFORM 为了更加深入而不断扣弄着内壁
		CASE 1
			PRINTFORM 指腹刺激着内部开发着覚的后庭性感带
		CASE 2
			PRINTFORM 两指粗暴地撑开柔嫩紧致的穴肉
		CASE 3
			PRINTFORM 指根没入不断抽插着
		ENDSELECT
		PRINTFORML …
		SIF CFLAG:1522 != 1
		PRINTFORML 覚不明白这种稀疏平常的事为何会让自己如此动摇
	ENDIF
	SIF GET_TARGETNUM() > 1 && !DATE_HITOGOMI(CFLAG:MASTER:現在位置) && !WITH_MOB()
	PRINTFORML 抑制不住的娇喘吸引来不少人围观
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
ELSE
	IF TEQUIP:0 > 1
		PRINTFORM %CALLNAME:PLAYER%隔著%SHOW_BOTTOM(TARGET)%
	ELSE
		PRINTFORM %CALLNAME:PLAYER%
	ENDIF

	IF ABL:Ａ感覚 <= 1
		PRINTFORM 用指腹摩挲愛撫着%CALLNAME:TARGET%的肛門
	ELSEIF ABL:Ａ感覚 <= 3
		PRINTFORM 為了讓其放鬆而愛撫着%CALLNAME:TARGET%的肛門
	ELSE
		PRINTFORM 為了把手指插入而愛撫着%CALLNAME:TARGET%的肛門
	ENDIF

	PRINTFORML …

	SELECTCASE RAND:4
	CASE 0
		PRINTFORML %CALLNAME:TARGET%被触碰的一瞬间，腰臀部位触电般颤抖起来…
	CASE 1
		PRINTFORML %CALLNAME:TARGET%条件反射的夹紧了臀间异物…
	CASE 2
		PRINTFORM %CALLNAME:TARGET%露出恍惚的表情任凭摆布…
	CASE 3
		PRINTFORML %CALLNAME:TARGET%被不断的抚摸的后穴越来越湿润…
	ENDSELECT
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ENDIF
;-------------------------------------------------
;315,陰蒂愛撫
;-------------------------------------------------
@MESSAGE1_COM315
IF FLAG:70
	PRINTFORM 在静止的时间里，%CALLNAME:MASTER%将覚的
	$COUNTERＣ
	IF GETBIT(TALENT:性別,1)
		PRINTFORM %TINKO(49)%
		SELECTCASE RAND:4
		CASE 0
			PRINTFORML 用微弱的力量轻轻搓动
		CASE 1
			PRINTFORML 用稍微强一点的力气捏住、上上下下的测试着弹力
		CASE 2
			PRINTFORML 只是稍微一捏住、就会立刻非常有反应的立了起来
		CASE 3
			PRINTFORML 飞速撸动着
		ENDSELECT
	ELSE
		IF CFLAG:49:291 == 0
			PRINTFORM 隔着
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORM 湿的一塌糊涂的
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORM 有点湿润的
			ENDIF
			PRINTFORM %SHOW_BOTTOM(49)%
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 娑啦娑啦轻轻地撫摸着突出的小点……
			CASE 1
				PRINTFORML 将小豆豆捏在指尖不断蹂躏……
			CASE 2
				PRINTFORML 稍稍粗暴地拉扯着阴蒂……
			ENDSELECT
		ELSE
			PRINTFORM 藏在包皮下的敏感小豆豆
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 咕扭咕扭地玩弄着……
			CASE 1
				PRINTFORML 为了奸淫而挤压抽动着手指……
			CASE 2
				PRINTFORML 咕哩咕哩地丝毫没有顾虑地揉搓着……
			ENDSELECT
		ENDIF
	ENDIF
	PRINTFORML 覚的\@ GETBIT(TALENT:性別,1) ? 男性器 # 阴蒂 \@即使在时间停止、身体也会本能的追求的快感而起了反应
	PRINTFORML 快感集中在一处\@ GETBIT(TALENT:性別,1) ? 男性器 # 阴蒂 \@不断充血变成可爱的粉红，因为敏感度进一步提升而俏皮地跳动
	PRINTFORML 总觉得嗜虐心在不断加重……
ELSEIF CFLAG:49:睡眠
	PRINTFORM %CALLNAME:MASTER%将覚
	IF GETBIT(TALENT:性別,1)
		PRINTFORM 在睡时依旧勃起的%TINKO(49)%
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 用微弱的力量轻轻搓动
		CASE 1
			PRINTFORML 用稍微强一点的力气捏住、上上下下的测试着弹力
		CASE 2
			PRINTFORML 只是稍微一捏住、就会立刻非常有反应的立了起来
		ENDSELECT
	ELSE
		IF CFLAG:49:291 == 0
			PRINTFORM 隔着
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORM 湿的一塌糊涂的
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORM 有点湿润的
			ENDIF
			PRINTFORM %SHOW_BOTTOM(49)%
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 娑啦娑啦轻轻地撫摸着突出的小点……
			CASE 1
				PRINTFORML 将小豆豆捏在指尖不断蹂躏……
			CASE 2
				PRINTFORML 稍稍粗暴地拉扯着阴蒂……
			ENDSELECT
		ELSE
			PRINTFORM 藏在包皮下的敏感小豆豆
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 咕扭咕扭地玩弄着……
			CASE 1
				PRINTFORML 为了奸淫而挤压抽动着手指……
			CASE 2
				PRINTFORML 咕哩咕哩地丝毫没有顾虑地揉搓着……
			ENDSELECT
		ENDIF
	ENDIF
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 覚無意識的扭動着身体…
	CASE 1
		PRINTFORML 覚扭動着輕顫的腰…
	CASE 2
		PRINTFORML 覚臉頰泛紅、自己把腰壓了上来…
	ENDSELECT
ELSEIF CFLAG:诶嘿嘿 == 2
	CALL MESSAGE_COM315
ELSEIF CFLAG:49:1522 == 1
	PRINTFORM %CALLNAME:MASTER%
	IF GETBIT(TALENT:性別,1)
		PRINTFORM %TINKO(49)%
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 用微弱的力量轻轻搓动
		CASE 1
			PRINTFORML 用稍微强一点的力气捏住、上上下下的测试着弹力
		CASE 2
			PRINTFORML 只是稍微一捏住、就会立刻非常有反应的立了起来
		ENDSELECT
	ELSE
		IF CFLAG:49:291 == 0
			PRINTFORM 隔着
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORM 湿的一塌糊涂的
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORM 有点湿润的
			ENDIF
			PRINTFORM %SHOW_BOTTOM(49)%
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 娑啦娑啦轻轻地撫摸着突出的小点……
			CASE 1
				PRINTFORML 将小豆豆捏在指尖不断蹂躏……
			CASE 2
				PRINTFORML 稍稍粗暴地拉扯着阴蒂……
			ENDSELECT
		ELSE
			PRINTFORM 藏在包皮下的敏感小豆豆
			SELECTCASE RAND:3
			CASE 0
				PRINTFORML 咕扭咕扭地玩弄着……
			CASE 1
				PRINTFORML 为了奸淫而挤压抽动着手指……
			CASE 2
				PRINTFORML 咕哩咕哩地丝毫没有顾虑地揉搓着……
			ENDSELECT
		ENDIF
	ENDIF
	PRINTFORM 覚一脸茫然，
	IF 49 == 57 && !TALENT:恋慕
		PRINTFORM 切出笑嘻嘻的老翁面具
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORM 分泌的淫液湿透了%CALLNAME:MASTER%的手
		CASE 1
			PRINTFORM 强烈的刺激让腿不自覚发软
		CASE 2
			PRINTFORM 喉咙里压抑着娇滴滴的呻吟 …
		ENDSELECT
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
	CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
ELSE
	CALL MESSAGE_COM315
ENDIF
;-------------------------------------------------
;316,手指挿入
;-------------------------------------------------
@MESSAGE1_COM316
IF FLAG:70 == 1
	IF TEQUIP:0 > 1
		PRINTFORM %CALLNAME:MASTER%的指尖连带着覚
		IF PALAM:潤滑 > PALAMLV:3
			PRINTFORM 完全湿透的
		ELSEIF PALAM:潤滑 > PALAMLV:1
			PRINTFORM 有一些湿潤的
		ENDIF
		PRINTFORML 的%SHOW_BOTTOM(49)%
		PRINTFORM 强行将手指挿入到
	ELSE
		PRINTFORM %CALLNAME:MASTER%的手
		PRINTFORM 伸入覚裙内，
		PRINTFORM 慢慢地把手指挿入到
	ENDIF
	SIF TEQUIP:0 <= 1
		PRINT 赤裸的
	PRINTFORML 膣穴之内
	PRINTFORM 就这样
	IF TALENT:処女 == 1
		PRINTFORML 确认着毫無抵抗的覚的処女膜形状…
		PRINTFORML 粗鲁的指尖考验着肉膜弹性，守护覚纯洁的底线被%CALLNAME:MASTER%玩弄于股掌间
	ELSE
		PRINTFORML 直直将手指深到深处……
		PRINTFORML %CALLNAME:MASTER%用指尖调教着少女重要的部位，甚至还想更进一步
		PRINTFORML 或许……就这样将覚孕育生命的房室直接抠出来也不错？
	ENDIF
		PRINTFORML 在停止时间的能力面前，覚也难逃成为%CALLNAME:MASTER%玩物的命运
ELSEIF CFLAG:诶嘿嘿 == 2
	PRINTFORM %CALLNAME:PLAYER%
	SELECTCASE TCVAR:20
		;裙子の中を見せる
		CASE 35
			PRINTFORML 仔細視姦着伸向这边的%CALLNAME:TARGET%的下腹部
			GOTO COUNTERＶ
		;強制舐陰
		CASE 70
			PRINTFORML 一邊觀賞着%CALLNAME:TARGET%臨近眼前的一邊把手指插了進去……
		;87=Ａ挿入する 89=腰振りＡ
		CASE 87,89
			PRINTFORML 雖然被%CALLNAME:TARGET%的肛門緊緊夾住、但還是摩擦着膣道的褶皺……
		;他
		CASEELSE
			$COUNTERＶ
			IF TEQUIP:0 > 1
				PRINTFORM 隔着
				IF PALAM:潤滑 > PALAMLV:4
					PRINTFORM 完全湿透的
				ELSEIF PALAM:潤滑 > PALAMLV:2
					PRINTFORM 有一些湿潤的
				ENDIF
				PRINTFORM %SHOW_BOTTOM(TARGET)%向着%CALLNAME:TARGET%的秘裂
			ELSE
				PRINTFORM 往%CALLNAME:TARGET%被裸露出来的秘裂
			ENDIF
			SELECTCASE RAND:3
				CASE 0
					PRINTFORML 慢慢地把手指插到深処
				CASE 1
					PRINTFORML 把手指一点点的伸了進去
				CASE 2
					PRINTFORML 插入手指搔出愛液
			ENDSELECT
			IF TALENT:TARGET:処女 == 1
				PRINTFORML %CALLNAME:TARGET%吃驚的抓住了手腕、要求把手指拔出去……
			ELSE
				SELECTCASE ABL:TARGET:1
					CASE 0,1
						PRINTFORML %CALLNAME:TARGET%因为不习慣的感覚紧锁起了眉头……
					CASE 2 TO 5
						IF TALENT:TARGET:恋慕 || TALENT:TARGET:愛欲
							PRINTFORML %CALLNAME:TARGET%一边娇喘着一边開心的晃着屁股……
						ELSE
							PRINTFORML %CALLNAME:TARGET%一边娇喘着一边晃着屁股……
						ENDIF
					CASEELSE
						IF TALENT:TARGET:恋慕 || TALENT:TARGET:愛欲
							PRINTFORML %CALLNAME:TARGET%两腿发颤、摇着屁股誘惑起了%CALLNAME:PLAYER%……
						ELSE
							PRINTFORML %CALLNAME:TARGET%两腿发颤、迎合着%CALLNAME:PLAYER%手指的動作娇喘起来……
						ENDIF
				ENDSELECT
			ENDIF
	ENDSELECT
ELSEIF CFLAG:49:1522 == 1
	PRINTFORM %CALLNAME:PLAYER%把手伸向了%CALLNAME:TARGET%的秘所、
	IF TEQUIP:0 > 1
		PRINTFORM 隔着
		IF PALAM:潤滑 > PALAMLV:3
			PRINT 完全湿透的
		ELSEIF PALAM:潤滑 > PALAMLV:1
			PRINT 有一些湿潤的
		ENDIF
		PRINTFORM %SHOW_BOTTOM(49)%
	ELSE
	ENDIF
	PRINTFORM 强行将手指挿入
	SIF TEQUIP:0 <= 1
		PRINT 赤裸的
	PRINTFORML 膣口内…
	SIF EQUIP:49:下半身内衣２ == 33
		PRINTFORML 在腿间纸符的阻挡下，仅伸入一截指尖便无法再继续
		PRINTFORM %CALLNAME:TARGET%
	IF TALENT:処女 == 1
		PRINTFORML 欣然接受了%CALLNAME:MASTER%在抚摸自己处女膜这件事…
	ELSE
		PRINTFORML 流出了口水、自己貪求着快感挺起了腰…
	ENDIF
	SIF GET_TARGETNUM() > 1 && !DATE_HITOGOMI(CFLAG:MASTER:現在位置) && !WITH_MOB()
	PRINTFORML 一旁的路人发出了惊呼……
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:MASTER:現在位置)
ELSE
	PRINTFORM %CALLNAME:PLAYER%把手伸向了%CALLNAME:TARGET%的秘所、
	IF TEQUIP:0 > 1
		PRINTFORM 隔着
		IF PALAM:潤滑 > PALAMLV:3
			PRINT 完全湿透的
		ELSEIF PALAM:潤滑 > PALAMLV:1
			PRINT 有一些湿潤的
		ENDIF
		PRINTFORM %SHOW_BOTTOM(49)%
	ELSE
	ENDIF
	PRINTFORM 强行将手指挿入
	SIF TEQUIP:0 <= 1
		PRINT 赤裸的
	PRINTFORML 膣口内…
	SIF EQUIP:49:下半身内衣２ == 33
		PRINTFORML 在腿间纸符的阻挡下，仅伸入一截指尖便无法再继续
		PRINTFORM %CALLNAME:TARGET%
	IF TALENT:処女 == 1
		PRINTFORML 像是拒絕%CALLNAME:PLAYER%的手指一般緊緊閉合着大腿…
	ELSEIF ABL:Ｖ感覚 < 1
		PRINTFORML 因為強烈的異物感而身体僵硬…
	ELSEIF ABL:Ｖ感覚 <= 4
		PRINTFORML 因为愛撫開始呼出火熱的气息…
	ELSE
		PRINTFORML 流出了口水、自己貪求着快感挺起了腰…
	ENDIF
	TFLAG:400 = RAND:2
	SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
		CALL DATE_HITOGOMI_MESSAGE(CFLAG:PLAYER:現在位置)
ENDIF
;-------------------------------------------------
;330,掀裙子
;-------------------------------------------------
@MESSAGE1_COM330
IF FLAG:70
	SIF !PANTS_ALREADY_COLLECTED()
		SETCOLOR C_PINK
	IF EQUIP:49:裤子
		PRINTFORML 把时停着的覚的%SHOW_BOTTOM(49)%好不造作地脱了下来、
		PRINTFORML 盡情視姦着%UNDER_SKIRT_DESCRIPTION(49)%…
	ELSE
		PRINTFORML 輕而易舉的伸手掀起了時停中的覚穿着的%SHOW_BOTTOM(49,1)%、
		PRINTFORML 盡情視姦着%UNDER_SKIRT_DESCRIPTION(49)%…
	ENDIF
	IF CFLAG:291 == 0
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 隔着胖次抚弄肉瓣，覚温温软软的小穴用来暖手相当合适
			PRINTFORML 摩擦着股间与阴蒂，淫液牵着银丝将蜜处与内衣千丝万缕的纠缠在一起
		CASE 1
			PRINTFORML 将鼻尖埋入覚布丁般Q弹的臀部，隔着内裤嗅着少女的香味
			PRINTFORML 覚的%HIP(49)%也是无尽的引人遐想
		CASE 2
			PRINTFORML 用鼻尖挑弄着覚的小豆豆，%CALLNAME:MASTER%将脸完全埋进覚腿间
			PRINTFORML %THIGHS(49)%恰到好处的夹住脑袋，光滑的胖次内湿热的穴口散发着香甜的雌性气味
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML 将密唇随意玩弄着，覚温温软软的小穴用来暖手相当合适
			PRINTFORML 稍稍摩擦下穴口与阴蒂，淫液牵着银丝将蜜处与%CALLNAME:MASTER%的手指千丝万缕的纠缠在一起
		CASE 1
			PRINTFORML 将鼻尖埋入覚年糕般柔软的臀部，亲吻着少女后穴
			PRINTFORML 覚的第二性穴也是无尽的引人遐想
		CASE 2
			PRINTFORML 用鼻尖挑弄着覚的小豆豆，%CALLNAME:MASTER%将脸完全埋进覚腿间
			PRINTFORML %THIGHS(49)%恰到好处的夹住脑袋，湿热的穴口散发着香甜的雌性气味
			PRINTFORML %CALLNAME:MASTER%一心一意品尝着覚的淫核
		ENDSELECT
	ENDIF
	RESETCOLOR
ELSEIF CFLAG:49:1522 == 1
	IF CFLAG:291 == 0
		IF GET_TARGETNUM() == 1 && !DATE_HITOGOMI(CFLAG:MASTER:現在位置) && !WITH_MOB()
			IF EQUIP:49:裤子
				PRINTFORML %CALLNAME:MASTER%命令覚脱掉%SHOW_BOTTOM(49)%…
			ELSE
				PRINTFORML %CALLNAME:MASTER%命令覚掀起%SHOW_BOTTOM(49,1)%给自己看胖次…
			ENDIF
			SETCOLOR C_PINK
			IF EQUIP:49:裤子
				PRINTFORML 覚自己脱下了%SHOW_BOTTOM(49,1)%、展示着%UNDER_SKIRT_DESCRIPTION(49)%…
			ELSE
				PRINTFORML 覚巻起%SHOW_BOTTOM(49,1)%、向%CALLNAME:MASTER%展示着%UNDER_SKIRT_DESCRIPTION(49)%…
			ENDIF
			PRINTFORML 虽然无法理解为什么要这样做，但还是听从了%CALLNAME:MASTER%的命令
			PRINTFORML %CALLNAME:MASTER%盡情視姦着%UNDER_SKIRT_DESCRIPTION(49)%…
			SIF PALAM:欲情 > PALAMLV:4
				PRINTFORML 覚的眼睛水润润的、迷离的目光诉说着情欲…
			;潤滑LV4以上
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORML 覚暴露出的秘所散发着芳醇的香味、淫汁溢出胖次，顺着大腿垂流下来…
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORML 从覚暴露的秘所中飘散出了充满欲情的蜜香…
			ENDIF
		ELSE
			IF EQUIP:49:裤子
				PRINTFORML 覚自己脱下了%SHOW_BOTTOM(49)%、向四周展示着自己%UNDER_SKIRT_DESCRIPTION(49)%
			ELSE
				PRINTFORML 覚提起%SHOW_BOTTOM(49,1)%、向四周展示着自己%UNDER_SKIRT_DESCRIPTION(49)%
			ENDIF
			SETCOLOR C_PINK
			PRINTFORML 虽然内心深处觉得异常，眼下还是应该听%CALLNAME:MASTER%的话才对吧
			PRINTFORML 四周议论纷纷的人群向覚投来色情的目光
			SIF PALAM:欲情 > PALAMLV:4
				PRINTFORML 覚的眼睛水润润的、时不时回头望向%CALLNAME:MASTER%…
			;潤滑LV4以上
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORML 覚暴露出的秘所散发着芳醇的香味、淫穴分泌的粘稠爱液一丝丝滴到地上…
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORML 从覚湿润的秘所中飘散出了充满欲情的蜜香…
			ENDIF
			TFLAG:400 = RAND:2
			SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
				CALL DATE_HITOGOMI_MESSAGE()
		ENDIF
		RESETCOLOR
	ELSE
		IF GET_TARGETNUM() == 1 && !DATE_HITOGOMI(CFLAG:MASTER:現在位置) && !WITH_MOB()
			IF EQUIP:49:裤子
				PRINTFORML %CALLNAME:MASTER%命令覚脱掉%SHOW_BOTTOM(49)%…
			ELSE
				PRINTFORML %CALLNAME:MASTER%命令覚掀起%SHOW_BOTTOM(49,1)%…
			ENDIF
			SETCOLOR C_PINK
			IF EQUIP:49:裤子
				PRINTFORML 覚自己脱下了%SHOW_BOTTOM(49,1)%、展示着%UNDER_SKIRT_DESCRIPTION(49)%…
			ELSE
				PRINTFORML 覚将%SHOW_BOTTOM(49,1)%卷到腰间、分开穴口向%CALLNAME:MASTER%展示着自己%UNDER_SKIRT_DESCRIPTION(49)%…
			ENDIF
			PRINTFORML 覚困惑着为何心中会产生些许羞耻
			PRINTFORML %CALLNAME:MASTER%俯身凑到穴前，贪婪視姦着眼前地美妙景象…
			SIF PALAM:欲情 > PALAMLV:4
				PRINTFORML 覚的眼睛水润润的、迷离的目光诉说着情欲…
			;潤滑LV4以上
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORML 覚暴露出的秘所散发着芳醇的香味、淫汁溢出胖次，滴在%CALLNAME:MASTER%脸上…
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORML 从覚暴露的秘所飘散出充满欲情的蜜香，萦绕在%CALLNAME:MASTER%鼻尖…
			ENDIF
		ELSE
			IF EQUIP:49:裤子
				PRINTFORML 覚自己脱下了%SHOW_BOTTOM(49)%、向四周展示着自己%UNDER_SKIRT_DESCRIPTION(49)%
			ELSE
				PRINTFORML 覚提起%SHOW_BOTTOM(49,1)%、向四周展示自己的%UNDER_SKIRT_DESCRIPTION(49)%
			ENDIF
			SETCOLOR C_PINK
			PRINTFORML 认知中本应正常不过的行为，不知为何让少女心跳加速
			PRINTFORML 四周议论纷纷的人群向覚投来色情的目光
			SIF PALAM:欲情 > PALAMLV:4
				PRINTFORML 覚的眼睛水润润的、时不时回头望向%CALLNAME:MASTER%…
			;潤滑LV4以上
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORML 覚暴露出的秘所散发着芳醇的香味、淫穴分泌的粘稠爱液一丝丝滴到地上…
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORML 从覚暴露的秘所中飘散出了充满欲情的蜜香…
			ENDIF
			TFLAG:400 = RAND:2
			SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
				CALL DATE_HITOGOMI_MESSAGE()
		ENDIF
		RESETCOLOR
	ENDIF
ELSE
	IF EQUIP:TARGET:裤子
		PRINTFORML 把%CALLNAME:MASTER%は%CALLNAME:TARGET%的%SHOW_BOTTOM(TARGET)%擅自脱了下来…
	ELSE
		PRINTFORML %CALLNAME:MASTER%把%CALLNAME:TARGET%的%SHOW_BOTTOM(TARGET,1)%掀了起来…
	ENDIF
	SIF !PANTS_ALREADY_COLLECTED()
		SETCOLOR C_PINK
	IF GET_TARGETNUM() == 1 && !DATE_HITOGOMI(CFLAG:PLAYER:現在位置) && !WITH_MOB()
		IF ABL:露出癖 > 3
			IF EQUIP:TARGET:裤子
				PRINTFORML %CALLNAME:TARGET%自己脱下了%SHOW_BOTTOM(TARGET,1)%、展示着%UNDER_SKIRT_DESCRIPTION(TARGET)%…
			ELSE
				PRINTFORML %CALLNAME:TARGET%自己巻起了%SHOW_BOTTOM(TARGET,1)%、展示着%UNDER_SKIRT_DESCRIPTION(TARGET)%…
			ENDIF
		ELSE
			PRINTFORML %CALLNAME:TARGET%虽然小声叫唤着、但一时并没做出更多的抵抗
			PRINTFORML %CALLNAME:MASTER%盡情視姦着%UNDER_SKIRT_DESCRIPTION(TARGET)%…
		ENDIF
		SIF PALAM:欲情 > PALAMLV:4
			PRINTFORML %CALLNAME:TARGET%的眼睛水润润的、对%CALLNAME:MASTER%投来了怀着某种期待的視線…
		;潤滑LV4以上
		IF PALAM:潤滑 > PALAMLV:4
			PRINTFORML %CALLNAME:TARGET%暴露出的秘所散发着芳醇的香味、淫汁顺着大腿垂流下来…
		ELSEIF PALAM:潤滑 > PALAMLV:2
			PRINTFORML 从%CALLNAME:TARGET%暴露的秘所中飘散出了充满欲情的蜜香…
		ENDIF
	ELSE
		IF ABL:露出癖 > 5
			IF EQUIP:TARGET:裤子
				PRINTFORML %CALLNAME:TARGET%毫不在意旁边有没有人、自己脱下了%SHOW_BOTTOM(TARGET)%、展示着%UNDER_SKIRT_DESCRIPTION(TARGET)%
			ELSE
				PRINTFORML %CALLNAME:TARGET%毫不在意旁边有没有人、自己巻起了%SHOW_BOTTOM(TARGET,1)%、展示着%UNDER_SKIRT_DESCRIPTION(TARGET)%
			ENDIF
			SIF PALAM:欲情 > PALAMLV:4
				PRINTFORML %CALLNAME:TARGET%的眼睛水润润的、对%CALLNAME:MASTER%投来了怀着某种期待的視線…
			;潤滑LV4以上
			IF PALAM:潤滑 > PALAMLV:4
				PRINTFORML %CALLNAME:TARGET%暴露出的秘所散发着芳醇的香味、淫汁顺着大腿垂流下来…
			ELSEIF PALAM:潤滑 > PALAMLV:2
				PRINTFORML 从%CALLNAME:TARGET%暴露的秘所中飘散出了充满欲情的蜜香…
			ENDIF
		ELSE
			IF EQUIP:TARGET:裤子
				PRINTFORML %CALLNAME:TARGET%注意到周围的目光想把%SHOW_BOTTOM(TARGET)%按住、但没什么力气
				PRINTFORM 从被拖下来的%SHOW_BOTTOM(TARGET)%里
			ELSE
				PRINTFORML %CALLNAME:TARGET%注意到周围的目光想把%SHOW_BOTTOM(TARGET,1)%按住、但没什么力气
				PRINTFORM 从被卷起的%SHOW_BOTTOM(TARGET,1)%的下摆里
			ENDIF
			PRINTFORML 稍微看到了%UNDER_SKIRT_DESCRIPTION(TARGET)%……
		ENDIF
		TFLAG:400 = RAND:2
		SIF TFLAG:400 && (DATE_HITOGOMI() || WITH_MOB() == 9)
			CALL DATE_HITOGOMI_MESSAGE()
	ENDIF
	RESETCOLOR
	SELECTCASE TFLAG:193
		CASE -5
			PRINTFORML %CALLNAME:TARGET%迅速按住%SHOW_BOTTOM(TARGET,1)%、反手送了%CALLNAME:MASTER%一个耳光
		CASE -3
			PRINTFORML %CALLNAME:TARGET%迅速按住%SHOW_BOTTOM(TARGET,1)%、掐了掐掀起它的%CALLNAME:MASTER%的手
		CASE -1
			PRINTFORML %CALLNAME:TARGET%按住%SHOW_BOTTOM(TARGET,1)%、对%CALLNAME:MASTER%提出了抗議
		CASE 0
			PRINTFORML %CALLNAME:TARGET%按住%SHOW_BOTTOM(TARGET,1)%、并娇嗔地对%CALLNAME:MASTER%提出了抗議
		CASE 1
			PRINTFORML %CALLNAME:TARGET%并未阻拦，撩起裙边待%CALLNAME:MASTER%一饱眼福后将%SHOW_BOTTOM(TARGET,1)%放下
	ENDSELECT
ENDIF
;-------------------------------------------------
;332,喝酒
;-------------------------------------------------
@MESSAGE_COM332
SELECTCASE TFLAG:194
CASE 51
PRINTFORML 濁酒
CASE 52
PRINTFORML 清酒
CASE 53
PRINTFORML 鬼殺酒
CASE 55
PRINTFORML 神酒
CASE 56
PRINTFORML 甜酒
CASE 58
PRINTFORML 蒸留酒
CASE 59
PRINTFORML 薬酒
BASE:MASTER:15 = 0
ENDSELECT
;-------------------------------------------------
;352,告白
;-------------------------------------------------
@MESSAGE1_COM352
IF TFLAG:193 == 1
	PRINTFORML %CALLNAME:PLAYER%下定决心向%CALLNAME:TARGET%表达了爱意…
ELSEIF CFLAG:49:1533 == 2
	PRINTFORML %CALLNAME:TARGET%已不再期待来自%CALLNAME:PLAYER%的告白…
ELSE
	PRINTFORML %CALLNAME:PLAYER%虽然想对%CALLNAME:TARGET%告白但是怎麼也說不出口…
ENDIF

;-------------------------------------------------
;101,鞭
;-------------------------------------------------
@MESSAGE1_COM101
PRINTFORML %CALLNAME:PLAYER%高高地挥起鞭子狠狠地抽了下去、
SELECTCASE RAND:4
CASE 0
	PRINTFORML 在%CALLNAME:TARGET%%OPPAI_DESCRIPTION(TARGET,1)%上刻下了几道通红的线条…
	PRINTFORML %CALLNAME:TARGET%的乳尖因疼痛刺激持续分泌着乳液…
CASE 1
	PRINTFORML 在%CALLNAME:TARGET%%HIP(TARGET)%上留下了几道通红的鞭痕…
	PRINTFORML %CALLNAME:TARGET%的股間被自身流出的愛液浸濕了…
CASE 2
	PRINTFORML 在%CALLNAME:TARGET%%THIGHS(TARGET)%上画出几道鲜艳血色的染料…
	PRINTFORML %CALLNAME:TARGET%的股間被自身流出的愛液浸濕了…
CASE 3
	PRINTFORML 在%CALLNAME:TARGET%白皙的后背上画出几道残酷的伤痕…
	PRINTFORML %CALLNAME:TARGET%痛苦的面颊上沾满汗水…
ENDSELECT
;-------------------------------------------------
;102,蝋燭
;-------------------------------------------------
@MESSAGE1_COM102
	PRINTFORM %CALLNAME:PLAYER%点燃蝋燭将灼热的蝋油滴在了被催眠无法反抗的%CALLNAME:TARGET%的
	SELECTCASE RAND:3
	CASE 0
		PRINT 敏感部位上
	CASE 1
		PRINT 雪白的肌膚上
	CASE 2
		PRINT 身体之上
	ENDSELECT
;-------------------------------------------------
;103,針
;-------------------------------------------------
@MESSAGE1_COM103
SELECTCASE RAND:2
	CASE 0
		PRINTFORML %CALLNAME:PLAYER%毫不留情的用針戳刺着%CALLNAME:TARGET%%NIPPLE_DESCRIPTION(TARGET,1)%
		PRINTFORML %CALLNAME:TARGET%的乳尖因疼痛刺激持续分泌着乳液…
	CASE 1
		PRINTFORML %CALLNAME:PLAYER%毫不留情的用針戳刺着%CALLNAME:TARGET%%TEXTR("正勃起的/凸起的/因为快感下流地鼓起的/像花蕾一様立起的/")%%TEXTR("陰蒂/陰核/小豆豆/蜜豆/")%
		PRINTFORML %CALLNAME:TARGET%因无法忍受的疼痛，尿液与爱液混杂着不断喷涌…
ENDSELECT
;-------------------------------------------------
;144,放尿
;-------------------------------------------------
@MESSAGE1_COM144
SELECTCASE RAND:2
CASE 0
	PRINTFORML %CALLNAME:TARGET%被%CALLNAME:PLAYER%像幼小的孩童那様抓住両腿抱起来撒尿了…
CASE 1
	PRINTFORML %CALLNAME:TARGET%因為羞恥滿臉泛紅、咬紧牙关蹲下開始撒尿了…
ENDSELECT
;-------------------------------------------------
;146,浣腸器＋肛塞
;-------------------------------------------------
@MESSAGE1_COM146
;解除時
IF !TEQUIP:浣腸
	PRINTFORML 拔去%CALLNAME:TARGET%的肛門栓、腸内的浣腸液就从菊穴喷散出来
	;受虐属性
	SELECTCASE RAND:6
	CASE 0
		PRINTFORML %CALLNAME:TARGET%露出了苦悶与恥辱的表情
	CASE 1
		PRINTFORML %CALLNAME:TARGET%脂汗淋漓、忍受着依然残留于下腹部的排泄感
	CASE 2
		PRINTFORML %CALLNAME:TARGET%在感到害羞的同时、露出了因開放感而安心的表情
	CASE 3
		PRINTFORML %CALLNAME:TARGET%因为肛門通過排泄物的感覚不时地发出娇喘声
	CASE 4
		PRINTFORML %CALLNAME:TARGET%露出陶醉的表情、因排泄感而愉悦起来
	CASE 5
		PRINTFORML %CALLNAME:TARGET%心满意足地品味着排泄感和恥辱感
		PRINTFORML %CALLNAME:TARGET%的脸上因为快感露出了不成体统的笑容、肛門排出浣腸液的同時、膣口也啪嗒啪嗒地滴起了愛液
	ENDSELECT
ELSE
	PRINTFORML 往%CALLNAME:TARGET%的菊穴里注入浣腸液、塞上栓…
	;受虐属性
	SELECTCASE RAND:6
	CASE 0
		PRINTFORML %CALLNAME:TARGET%露出了苦悶的表情
	CASE 1
		PRINTFORML %CALLNAME:TARGET%脂汗淋漓、忍受着排泄感
	CASE 2
		PRINTFORML %CALLNAME:TARGET%露出难过的表情、面泛紅潮扭扭捏捏地搖起了屁股
	CASE 3
		PRINTFORML %CALLNAME:TARGET%在被排泄感折磨的同时、时不时露出恍惚的表情
	CASE 4
		PRINTFORML %CALLNAME:TARGET%露出陶醉的表情、因排泄感与腹痛而愉悦起来
	CASE 5
		PRINTFORML %CALLNAME:TARGET%心满意足地品味着排泄感
		PRINTFORML %CALLNAME:TARGET%的脸上因为快感露出了不成体统的笑容、从嘴巴和膣口啪嗒啪嗒滴下了涎液
	ENDSELECT
ENDIF
;-------------------------------------------------
;148,肛門電極
;-------------------------------------------------
@MESSAGE1_COM148
;解除時
IF !TEQUIP:肛門電極
	PRINTFORML 从%CALLNAME:TARGET%的肛門里把電極拔出来了…
	PRINTFORML 将意识即将消失的覚带回现实中
ELSE
	PRINTFORML 往%CALLNAME:TARGET%的菊穴里插入了電極并打開了開关…
	SELECTCASE RAND:2
	CASE 0
		PRINTFORML 深入Ｓ状結腸嘶嘶作響的電極，被电流刺激下不受控制的肠壁死死纠缠住
	CASE 1
		PRINTFORML 隔着肠壁抵住子宫嘶嘶作響的電極，释放出的电流在覚子宫与卵巢内肆虐
	ENDSELECT
ENDIF
;-------------------------------------------------
;141,拳交
;-------------------------------------------------
@MESSAGE1_COM141
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML %CALLNAME:TARGET%的陰道被%CALLNAME:PLAYER%用拳头搅动着
	CASE 1
		PRINTFORML %CALLNAME:PLAYER%将手强行塞入%CALLNAME:TARGET%的蜜穴内部
	CASE 2
		PRINTFORML %CALLNAME:PLAYER%攥紧拳头，无情的从身体内部锤打%CALLNAME:TARGET%的子宫
	ENDSELECT
	SELECTCASE RAND:4
	CASE 0
		PRINTFORML %CALLNAME:TARGET%性器里的肉瓣被挤到一边、從门户大開的膣口里能直接看到子宮口
	CASE 1
		PRINTFORML %CALLNAME:TARGET%的陰道保持着扩张状态许久没有缩回去
	CASE 2
		PRINTFORML %CALLNAME:TARGET%的膣口大幅張開着
	CASE 3
		PRINTFORML %CALLNAME:TARGET%用手指张開自己的陰道口、陷入了恍惚中
	ENDSELECT
;-------------------------------------------------
;142,肛門拳交
;-------------------------------------------------
@MESSAGE1_COM142
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML %CALLNAME:PLAYER%用拳头在%CALLNAME:TARGET%的肛門内搅动着
	CASE 1
		PRINTFORML %CALLNAME:TARGET%的肛門被%CALLNAME:PLAYER%用拳头搅动着
	CASE 2
		PRINTFORML %CALLNAME:PLAYER%整只手在体内摸索着%CALLNAME:TARGET%的肠壁
	ENDSELECT
	SELECTCASE RAND:5
	CASE 0
		PRINTFORML %CALLNAME:TARGET%的肛門猛的合了起来、恢复了原状
	CASE 1
		PRINTFORML %CALLNAME:TARGET%肛門里的肉瓣被挤到一边、肠子里被看得一清二楚
	CASE 2
		PRINTFORML %CALLNAME:TARGET%的肛門保持着扩张状态许久没有缩回去
	CASE 3
		PRINTFORML %CALLNAME:TARGET%的肛門大幅張開着
	CASE 4
		PRINTFORML %CALLNAME:TARGET%用手指张開自己的肛門、陷入了恍惚中
	ENDSELECT
;-------------------------------------------------
;143,両穴フィスト
;-------------------------------------------------
@MESSAGE1_COM143
	PRINTFORML %CALLNAME:TARGET%的陰道和肛門被%CALLNAME:PLAYER%用拳头同时搅动着
	SELECTCASE RAND:2
	CASE 0
		PRINTFORML %CALLNAME:TARGET%用双手的手指来回抚摸着已经完全扩张開的膣口和肛門的周围
	CASE 1
		PRINTFORML %CALLNAME:TARGET%将両腿张開、让粘液从完全扩张開的的膣口和肛門里流出来…
	CASE 2
		PRINTFORML %CALLNAME:TARGET%的陰道和腸内在收拢的同时让粘液流了出来…
	CASE 3
		PRINTFORML %CALLNAME:TARGET%的陰道口和肛門门户大開、被粘液浸湿的肉壁清晰可见…
	ENDSELECT
;-------------------------------------------------
;147,拡張氣球
;-------------------------------------------------
@MESSAGE1_COM147
	;解除時
	IF !TEQUIP:拡張氣球
		PRINTFORML 从%CALLNAME:TARGET%被扩张開的菊穴里拔出了气球…
		;Ａ感覚
		SELECTCASE RAND:6
		CASE 0
			PRINTFORML %CALLNAME:TARGET%的肛門慢慢合上了
		CASE 1
			PRINTFORML %CALLNAME:TARGET%的肛門收拢着并慢慢合上了
		CASE 2
			PRINTFORML %CALLNAME:TARGET%的肛門大幅張開着
		CASE 3
			PRINTFORML %CALLNAME:TARGET%的肛門保持着扩张的状态许久没有变回原様
		CASE 4
			PRINTFORML 从%CALLNAME:TARGET%的肛門中可以将腸内可以看得一清二楚
		CASE 5
			PRINTFORML %CALLNAME:TARGET%用手指张開自己的肛門、陷入了恍惚中
		ENDSELECT
	ELSE
		PRINTFORML 往%CALLNAME:TARGET%的菊穴里插入扩张气球、把空気送进去…
		PRINTFORML %CALLNAME:PLAYER%欣赏着%CALLNAME:TARGET%的肛门撑开到极限的画面
	ENDIF

;-------------------------------------------------
;412,学习
;-------------------------------------------------
@MESSAGE1_COM412
IF TCVAR:49:357 == 1
	PRINTFORML 古明地覚在讲台前为学生们讲课
ELSE
CALL MESSAGE_COM412
ENDIF

;-------------------------------------------------
;89,喝套内精液
;-------------------------------------------------
@MESSAGE1_COM89
IF FLAG:70 || CFLAG:MASTER:恶作剧 == 2
	PRINTFORML %CALLNAME:TARGET%の口の中で使用済み避孕套をひっくり返して、\@ TFLAG:194 > 150 ? 大量の # \@%SAMEN_DESCRIPTION(PLAYER)%をご馳走した…
	PRINTFORML 為了讓其好好記住%CALLNAME:PLAYER%的味道、%CALLNAME:PLAYER%将翻转过来的避孕套在她口腔里蹭来蹭去、一滴不剩地讓她品嘗了%SAMEN_DESCRIPTION(PLAYER)%…
ELSE
	PRINTFORML 提起先前积攒起装着满满%SAMEN_DESCRIPTION(PLAYER)%的{TCVAR:49:358}个避孕套……
	;精液中毒5未満
	IF ABL:精液中毒 < 5
		PRINTFORML 将其中精液全部倒在怯生生的张開嘴的%CALLNAME:TARGET%的舌头上、让%CALLNAME:TARGET%就这様咽下去……
	ELSE
		PRINTFORML %CALLNAME:TARGET%露出恍惚的表情、津津有味的品尝起了流进嘴里的散发着橡胶臭味的精液……
		SIF ABL:精液中毒 >= 7
			PRINTFORML 把精液喝干后、%CALLNAME:TARGET%还依依不舍地舔起了翻转过来的避孕套……
	ENDIF
	TCVAR:49:358 = 0
ENDIF

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉TOKI/古明地觉/替换地文.ERB


code:
eraTW4.841用古明地觉、古明地恋口上
作者:name-killed(NK)
--------------------------------------------------
※注意・设定

从妖怪之山被放逐的觉妖怪
在地底修建起了地灵殿，设计者被称为地灵殿之主
作用是管理怨灵及灼热地狱遗迹
家务基本安排给宠物
……之类的，官设部分并没有舍弃

本口上可能包含：
触手调教
二周目恋开眼
MASTER雌堕等要素
具体内容有待补完……

--------------------------------------------------
※加筆・修正・改造・口上整合等

基本全部许可
建议在更新记录上注明相关修改部分

--------------------------------------------------
※建议及报错

kitsune.ee论坛找对应口上发布帖子回复即可
https://kitsune.ee/forum.php?mod=viewthread&tid=8530

--------------------------------------------------
※参考资料

主要是TW日文原版的觉/恋
UPDATE借用了早苗的显示
在此对原作者与汉化者表示由衷的谢意

--------------------------------------------------
※更新履歴

20230113 v0.01发布
		初步完成日常系、性骚扰系指令，分支待填充；
		自定义陷落判定，二周目特殊事件雏形构建完毕；
		刻印取得除时姦外基本完成，弹幕胜负基本完成；
		性交系、浴室系、约会系待完成；育儿系大概不写。
20230119 v0.02
		约会系、部分派生指令初步完成，修正部分文本。
20230127 v0.02 Fix
		修正部分bug
20230204 v0.03
		补全睡眠相关口上
20230222 v0.04
		扩充UPDATE内容
20230226 v0.05
		加入委托改造（仅限恋慕）
20230302 v0.05 Fix
		现在可以对肉棒形状进行改造了(非扶她请调和)
20230302 v0.053
		为恋加入对方口上判定，填充部分H文本

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/readme.txt

license: unknown


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_一般事件_杂项.ERB


path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_一般事件_眠寝.ERB


code:
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@惩罚_310
IF CFLAG:49:現在位置==CFLAG:MASTER:現在位置
	PRINTFORML 「真是自寻死路啊」
	PRINTFORMW 「做了那种过分的事情还胆敢出现在我眼前」
	PRINTFORML 「被凌辱的羞愤，就让你亲自体会一下吧」
	PRINTFORMDW   头上宛如挨了一记闷棍，%CALLNAME:MASTER%失去了意识…
	BASE:MASTER:体力 = 0
	IF !GETBIT(TALENT:MASTER:性別 , 0)
		SETBIT TALENT:MASTER:性別 , 0
	ENDIF
	FOR LOCAL,14,65
		IF LOCAL <=17||LOCAL >=60
			EXP:MASTER:LOCAL +=20+RAND:50
		ENDIF
	NEXT
	TIME+=1440
	CFLAG:49:1504=504
	MARK:49:反発刻印=MIN(MARK:49:反発刻印+2,3)
	MARK:49:反発取得履歴=MIN(MARK:49:反発取得履歴+2,3)
ENDIF

@惩罚_514
#DIM 角色
IF CFLAG:現在位置==CFLAG:MASTER:現在位置
	PRINTFORML 「果然是你干的啊」
	PRINTFORML 「对恋做了那么出格的事情，还想得到宽恕吗？」
	PRINTFORMW 「既然敢做，那就要敢当」
	PRINTFORMDL   %CALLNAME:MASTER%被触手死死缠住，动弹不得；
	PRINTFORMDW   被押到地灵殿门口，钉在了高处的一个凸起上。
	PRINTFORMDW   完全无法挣脱，%CALLNAME:MASTER%就这样一直被挂了一整天。
	PRINTFORMDL   其间还看见那个天狗记者来拍了好几张照片，是想取笑%CALLNAME:MASTER%的惨样吗？
	PRINTFORMDL   …后来%CALLNAME:MASTER%发现，从那以后总是有人在背后指指点点；
	PRINTFORMDW   发生了什么呀。
	FOR 角色,1,CHARANUM
		CFLAG:角色:好感度=MAX(CFLAG:角色:好感度-100,0)
		CFLAG:角色:信賴度=MAX(CFLAG:角色:信賴度-50,0)
		ABL:角色:親密=MAX(ABL:角色:親密-2,0)
		MARK:角色:反発刻印=MIN(MARK:角色:反発刻印+1,3)
		MARK:角色:反発取得履歴=MIN(MARK:角色:反発取得履歴+1,3)
	NEXT
	BASE:MASTER:体力 = 0
	BASE:MASTER:気力 = 0
	TIME+=1440
	MARK:38:反発刻印=MIN(MARK:38:反発刻印+1,3)
	MARK:38:反発取得履歴=MIN(MARK:38:反発取得履歴+1,3)
	CFLAG:38:1504=504
ENDIF
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_NK_EVENT_K49_1(ARG,ARG:1)
#DIM CONST 无自觉姦=1504
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	IF (EXP:睡眠姦経験+EXP:時姦経験>0 && !CFLAG:无自觉姦) && !GETBIT(CFLAG:既成事實 , 1)
		CALL 惩罚_310
	ELSEIF (EXP:38:睡眠姦経験+EXP:38:時姦経験>0 && !CFLAG:38:无自觉姦) && !GETBIT(CFLAG:38:既成事實 , 1)
		CALL 惩罚_514
	ENDIF
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		CALL M_KOJO_NK_EVENT_K49_1_1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		CALL M_KOJO_NK_EVENT_K49_1_1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で遭遇した
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;他キャラと约会中に遭遇した
	;ARG:1にデート相手
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MAIN_MAP上で一日最初の挨拶
	;注、このあと通常の遭遇口上、ARG==1 OR ARG==2に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;外出先で一日最初の挨拶
	;ARG:1にデート相手、ARG:1が0の場合は非デート
	;注、このあと通常の外出先で遭遇した口上、ARG==6 OR ARG==7に接続します
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;ARG:1と约会中
		IF ARG:1
		;一人で外出
		ELSE
		ENDIF
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

@M_KOJO_NK_EVENT_K49_1_1

IF TARGET==49 && 关系_310()>0
	PRINTFORML 「是你啊」
	PRINTFORMDW   觉简单地打了个招呼。
ENDIF

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_NK_EVENT_K49_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	IF 关系_310()==0
		PRINTFORMDW   觉看到%CALLNAME:MASTER%出现在视野，马上扭过头去。
	ELSE
		;-------------------------------------------------
		;小分岐
		;-------------------------------------------------
		;立ち止まった
		;この後遭遇口上に接続
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 1
			PRINTFORML 「嗯？有何贵干呢」
			PRINTFORMDW   觉抬眼看了%CALLNAME:MASTER%一会，就移开了视线。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;軽く会釈して通り過ぎた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 2
			PRINTFORML 「这样啊…」
			PRINTFORML 「快去忙你的吧」
			PRINTFORMDW   觉挥手告别。
			RETURN 1
		ENDIF
		;-------------------------------------------------
		;無視して通り過ぎた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1 && ARG == 3
			PRINTFORMDW   觉没有任何反应，装作没看见%CALLNAME:MASTER%。
			RETURN 1
		ENDIF
	;その他
	;PRINTFORML
	ENDIF
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_NK_EVENT_K49_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;帰宅時
;==================================================
@M_KOJO_NK_EVENT_K49_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に眠くて帰る
			PRINTFORML
		ELSE
			PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;约会中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		IF CFLAG:诶嘿嘿
			IF CFLAG:衰弱
				;诶嘿嘿中に疲れて帰る
				PRINTFORML
			ELSE
				;诶嘿嘿中に眠くて帰る
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;玄関先でお見送り（キャラの自宅位置、またはキャラの部屋でデート終了）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート終了時に部屋に来ないかと誘う（～から部屋に来ないかと誘われた）
	;（来訪キャラのみ,自宅が無いキャラでも発生します）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「行く」を選択（～に誘われるまま、【MASTER】は【TARGET】の部屋へと向かった……）
	;（これが発生すると十中八九押し倒されます）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;部屋に来ないか→「やめとく」を選択（～は心なしか寂しそうだ……）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくないと言い出す（～は今夜は帰りたくないと言い出した…）
	;（来訪キャラの帰宅時に欲求不満と欲望が高いと発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊める」を選択（～は【MASTERの自室】に泊まっていくことになりました）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;今夜は帰りたくない→「泊めない」を選択、または家主が居る（【MASTER】は丁重に断った）
	;（家主が居る＝MASTERの私室に他のキャラの私室を設定している）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;疲れて帰宅（疲れきった～は帰って行きました）
	;（～は疲れ切っている→（入り口）まで送るよ でも発生）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 10
		IF CFLAG:诶嘿嘿
			;诶嘿嘿中に疲れて帰る
			PRINTFORML
		ELSE
			PRINTFORML
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;浴場連れだし
;==================================================
@M_KOJO_NK_EVENT_K49_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;相手からデートのお誘い
;==================================================
@M_KOJO_NK_EVENT_K49_27(ARG,ARG:1)
;口上主はLOCAL
;ARG:1は目的地
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	SELECTCASE ARG
		;-------------------------------------------------
		CASE 0
		;誘い文句
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 1
		;受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 2
		;断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 3
		;部屋に誘われた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 4
		;部屋に誘われたのを受けた
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
		;-------------------------------------------------
		CASE 5
		;部屋に誘われたのを断った
		;記入チェック（=0, 非表示、1, 表示）
		LOCAL:1 = 1
		;-------------------------------------------------
		IF LOCAL:1
			RETURN 1
		ENDIF
	ENDSELECT
ENDIF
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_一般事件_移动.ERB


code:
;==================================================
;300,会話
;TFLAG:SELECTCOM的分岐(1=大成功 0=成功 -1=失敗 -2=大失敗（TARGETがMASTERより教養が4以上高い)
;TCVAR:302(0=会話可能 1>=非恋慕時会話不能)
;MARK:反発刻印(3以上=会話不能)(4以上はバグ
;TCVAR:泥酔(1=通常成功or大失敗)
;==================================================
@M_KOJO_NK_SUCCESS_COM_K49_300
;成否判定
;TFLAG:口上によるCOM成否判定(-2=コマンド終了、-1＝強制失敗、0=COM依存、1=強制成功or大成功
IF 关系_310()==0
	TFLAG:口上によるCOM成否判定=-1
ELSE
	TFLAG:口上によるCOM成否判定=0
ENDIF

@M_KOJO_NK_MESSAGE_COM_K49_300
;コマンド共通メッセージ(TRAIN_MESSAGE)
;削除すると「～話をした。」とかが消えます。また、削除した場合は自動で口上色が付きません。
IF !关系_310()
	CALL 厌弃_49
	RETURN -2
ENDIF
CALL TRAIN_MESSAGE
;口上メイン呼出
CALL M_KOJO_NK_MESSAGE_COM_K49_300_1
RETURN RESULT

;体积原因另放一处——
@M_KOJO_NK_MESSAGE_COM_K49_300_1
#DIM CONST 会话次数累计=1300
#DIM 角色
;-------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------------------------------------------
IF LOCAL
	IF (!RAND:10 && CFLAG:49:会话次数累计>100) && !CFLAG:38:3100
		;PRINTFORML   TEST
		CALL RESTART_310
		RETURN 1
	ENDIF
	;IF CFLAG:現在位置==920 && 关系_310()>104
	;	FOR 角色,1,CHARANUM
	;		IF (角色!=49||38) && (CFLAG:角色:現在位置==920 && TALENT:角色:恋慕)
	;			CALL 精神操纵(角色)
	;		ENDIF
	;	NEXT
	;ENDIF

[SKIPSTART]
;	IF 关系_310()==0
;		CALL 厌弃_49
;		TFLAG:SELECTCOM的分岐=-1
;	ELSEIF 关系_310()>3
;		SELECTCASE RAND:4
;			CASE 0
;				PRINTFORML 「
;			CASE 1
;				PRINTFORML 「
;			CASE 2
;				PRINTFORML 「
;			CASE 3
;				PRINTFORML 「
;		ENDSELECT
;	ELSEIF 关系_310()==3
;		SELECTCASE RAND:4
;			CASE 0
;				PRINTFORML 「
;			CASE 1
;				PRINTFORML 「
;			CASEELSE
;				PRINTFORML 「
;		ENDSELECT
;	ELSEIF 关系_310()==2
;		SELECTCASE RAND:4
;			CASE 0
;				PRINTFORML 「
;			CASE 1
;				PRINTFORML 「
;			CASEELSE
;				PRINTFORML 「
;		ENDSELECT
;	ELSE
[SKIPEND]
	SELECTCASE TFLAG:SELECTCOM的分岐
		CASE -2
			PRINTFORMW 「又在暴露自己的无知吗」
		CASE -1
			PRINTFORML 「好啦好啦知道了」
			PRINTFORMDW   单纯是在应付而已。
		CASE 0
			SELECTCASE RAND:4
				CASE 0
					PRINTFORMW 「那些怨灵，生前也是和你差不多的人类」
					PRINTFORML 「之所以在这里管理」
					PRINTFORML 「为免对人类和妖怪有所影响」
					PRINTFORMW 「要是跑到地上，势必会引起混乱和动荡」
					PRINTFORML 「所以那些孩子，也时不时把地上那些招聚过来」
					PRINTFORMW 「充满苦毒怨愤的，永不断绝」
				CASE 1
					PRINTFORML 「唉…」
					PRINTFORMW 「所以肉欲何时才能收敛些呢」
					PRINTFORML 「躯体交织也不过渴求愉悦的满足」
					PRINTFORML 「然触而得之，触离失之」
					PRINTFORMW 「高峰低潮，必无知足」
				CASE 2
					PRINTFORML 「妖怪只是意志的产物」
					PRINTFORML 「谁的意志吗」
					PRINTFORMW 「自然是你们人类」
					PRINTFORML 「正如出自对全知的渴求」
					PRINTFORML 「当发现记忆不完全之时」
					PRINTFORMW 「不完美又模糊也就罢了」
					PRINTFORML 「自我还会加上壁垒」
					PRINTFORML 「无意识也不能被完整探寻」
					PRINTFORML 「那孩子就被设计出来了」
					PRINTFORMW 「所以，没有其它觉妖怪，两个足矣」
				CASEELSE
					PRINTFORML 「非排他性的爱情」
					PRINTFORMW 「根本就不是一种关系」
					PRINTFORML 「糜烂腐坏堕落中迷乱」
					PRINTFORMW 「不过始乱终弃前奏先声」
			ENDSELECT
		CASE 1
			SELECTCASE RAND:2
				CASE 0
					PRINTFORML 「按着你的能力，所当做的事，我自是不会管束」
					PRINTFORML 「真是无法理解，别人的下着怎能成为必需品」
					PRINTFORMDW   是那位的祭品！
					PRINTFORMDW   叹口气，撇撇嘴，接过话茬。
					PRINTFORML 「只是，不要再这样大摇大摆」
					PRINTFORML 「妄图被看见，以观察对方反应」
					PRINTFORML 「本有的转移道具，为何不用呢？」
					PRINTFORMDW   收藏隙间是稀有道具！
					PRINTFORMDW   无奈地摇了摇头。
					PRINTFORML 「总之，一开始就知道你这些事了」
				CASE 1
					PRINTFORML 「对地灵殿感兴趣吗」
					PRINTFORML 「设计上的话，是考虑到装饰性和透光性」
					PRINTFORML 「地底可是暗无天日的」
					PRINTFORMW 「所以光明从下头来」
					PRINTFORML 「外界可供参考的，也足够美观的」
					PRINTFORMW 「没有比现在更合适的吧」
					PRINTFORML 「也得感谢那些修筑者」
					PRINTFORML 「毕竟一开始也只是办公场所」
					PRINTFORMW 「虽说现在仍是」
					PRINTFORML 「只是似乎，变成那些孩子的乐园了呢」
					PRINTFORML 「该说在废狱里寻找光明，是南辕北辙吗？」
					PRINTFORMW 「虽然根本不是」
			ENDSELECT
	ENDSELECT
	;ENDIF
ENDIF
CFLAG:49:会话次数累计++
RETURN 1

;@精神操纵(ARG)
;
;IF CFLAG:現在位置==920 && 关系_310()>104
;	PRINTFORML 「想对%CALLNAME:ARG%的性格重调吗？
;	PRINTFORMW 「那么，请告诉我理想中的样子

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_会话.ERB


code:
;-------------------------------------------------
; eraTheWorld 4.841用 ○○別人口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;他者による修正、加筆、改変については、同梱のライセンス条項に従ってください。

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K49 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K49 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;
;
;
;******************************************************************************

;### 口上存在判定 ###################################
@M_KOJO_K49_2(ARG)
;別人口上判定ですX2を同キャラ口上の通し番号に置き換えてください（一つ目の別人口上なら1、二つ目の別人口上なら2
;複数の同キャラ口上が同時表示されないために必要です、必ず49Xを変更してください
RESULTS = _NK
;初期口上とは違う事を明示するため、口上選択時に表示されます、必ずＸＸＸを変更してください
RESULTS:1 = 的试做版_NK

;口上存在判定です、けしてコメントアウトしないでください
;他の処理は一切行わないように
RETURN 1

;### 口上基本フラグ設定 #############################
@M_KOJO_NK_FLAGSETTING_K49
;[SKIPSTART]
;基本フラグ設定はここで行ってください
;共通の口上フラグは必要な箇所のコメントアウトを外してご利用ください
;口上専用フラグはご自由に
;Xにはキャラ番号を入れてください
IF TARGET==49
	SELECTCASE 关系_310()
		CASE 0
			TFLAG:好感度管理-=5
			TFLAG:信賴度管理-=3
			TFLAG:好感度BOUNS-=40
		CASE IS >=105
			IF 关系_310()>110&&!CFLAG:TARGET:膣内射精&&CFLAG:TARGET:积攒度<500
				CFLAG:TARGET:积攒度+=500
			ENDIF
			TFLAG:好感度管理+=5
			TFLAG:信賴度管理+=3
			TFLAG:好感度BOUNS+=25
		CASE 102 TO 104
			TFLAG:好感度管理+=3
			TFLAG:信賴度管理+=2
			TFLAG:好感度BOUNS+=15
		CASE 101
			TFLAG:好感度管理+=2
			TFLAG:信賴度管理++
			TFLAG:好感度BOUNS+=5
		CASE 4 TO 16
			IF 关系_310()>10&&!CFLAG:TARGET:膣内射精&&CFLAG:TARGET:积攒度<500
				CFLAG:TARGET:积攒度+=500
			ENDIF
			TFLAG:好感度管理+=3
			TFLAG:信賴度管理+=2
			TFLAG:好感度BOUNS+=15
		CASE 2 TO 3
			TFLAG:好感度管理++
			TFLAG:好感度BOUNS+=5
		CASE 1
			TFLAG:好感度管理-=2
			TFLAG:信賴度管理--
			TFLAG:好感度BOUNS-=10
	ENDSELECT
ENDIF
;眠姦口上有、時間停止口上有、なりきりに1を入れると、それぞれ時間停止時、眠姦時、なりきり時にコマンド口上が読み込まれるように
;入れないと時間停止時、眠姦時、なりきり時は一切喋りません
CFLAG:49:眠姦口上有 = 0
CFLAG:49:時間停止口上有 = 0
CFLAG:49:扮演口上有 = 0

;破瓜キャンセル口上有に1を入れると、@M_KOJO_EVENT_K49_LOST_VIRGIN_STOPでキャンセルの成否を操作できます
CFLAG:49:破瓜中止口上有 = 0

;口上内抱き寄せ判定_初回と口上内抱き寄せ判定_通常に1を入れると、M_KOJO_EVENT_K49_PERMISSIONで押し倒しの成否を操作できます
CFLAG:49:口上内抱き寄せ判定_初回 = 0
CFLAG:49:口上内抱き寄せ判定_通常 = 0

;推倒禁止に1を入れると、自分から押し倒してこなくなります
;以下は恋慕かセフレがつくまで押し倒してこなくなる使用例
IF 关系_310()<4
	CFLAG:49:推倒禁止 = 1
ELSE
	CFLAG:49:推倒禁止 = 0
ENDIF

;来訪不能に1を入れると、来訪してこなくなります
;以下は面識があるまで来訪してこなくなる使用例
IF !CFLAG:49:面識
	CFLAG:49:来訪不能 = 1
ELSE
	CFLAG:49:来訪不能 = 0
ENDIF
;[SKIPEND]
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_NK_COLOR_K49

;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070
SETCOLOR 0xCC3388
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"UPDATE判定"
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_NK_UPDATE_K49
;口上独自のUPDATE用
;ENCOUNTER専用に独自分岐フラグを仕込んだ場合等にどうぞ
;UPDATE判定でCFLAG等のキャラ変数を使う場合、キャラ番号の指定が必要になります
;PRINTFORML 小五最可爱了～
CALL UPDATE_310
RETURN 1

@UPDATE_310
#DIM CONST UPDATE_310 = 1310

$UPDT
SIF FLAG:口上色
	CALLFORM M_KOJO_NK_COLOR_K49
PRINTFORML
PRINTFORML
PRINTFORML ————————————————————————————————————以下，古明地觉口上UPDATE设定————————————————————————————————————————————————
PRINTFORML
PRINTFORML
PRINTFORML
PRINTFORML
IF !GETBIT(CFLAG:49:UPDATE_310,0)
	PRINTFORMW 没猜错的话，%CALLNAME:MASTER%应该是第一次打开这个UPDATE吧？
	PRINTFORML 啊啊，初次见面怎么就知道是叫什么的问题，就不必多言啦～
	PRINTFORMW 那么，稍微给一些介绍吧：
	PRINTFORML 以下选项，对于了解与更好游玩本口上大有裨益，
	PRINTFORML 强烈推荐首先查看该口上的简介，以对本口上有所初步了解；
	PRINTFORML 其次就是，对于基本素质的改变，以期更好契合本口上设定；
	PRINTFORMW 至于其它的选项嘛…有需要的话再说吧？
	PRINTFORML 好啦好啦，不妨自己动手试试看～
	SETBIT CFLAG:49:UPDATE_310,0
ENDIF
IF CFLAG:38:口上セレクタ != 2
	IF !GETBIT(CFLAG:49:UPDATE_310,54)
		PRINTFORML 啊嘞？另一个古明地用的不是这份口上吗？
		PRINTFORMW 部分函数可是通用挪到这边来的，要是不换过来的话……
		FONTBOLD
		PRINTFORMW 出现奇怪的事情概不负责哦？
		FONTREGULAR
		PRINTFORML 所以呀，这里给个机会，方便换过来呢；
		PRINTFORML 毕竟，常规游玩也没法换口上不是(^^;
		PRINTFORMW 怎么样，要换过来吗？
		SETBIT CFLAG:49:UPDATE_310,54
	ELSE
		PRINTFORMW 要变更古明地恋的口上为本口上对应的吗？
	ENDIF
	CALL ASK_YN
		IF !RESULT
			CFLAG:38:口上セレクタ = 2
			PRINTFORML 明智的决定。
			PRINTFORML 好啦，变更完成啦；
			PRINTFORMW 呼呼，那么预祝游玩愉快～
		ELSE
			PRINTFORMW 啊啊，所以说冒着被做奇怪事情的风险，也要找别的口上吗？
			PRINTFORML 嘛，我是不会去劝阻你的；
			PRINTFORMW 只不过，要是反悔的话，我也是，会在这里等着的。
		ENDIF
ENDIF
PRINTFORMDL
IF GETBIT(CFLAG:49:UPDATE_310,1)
	SETCOLOR 50,50,50
		PRINTFORML [1] 基本素质设定
	RESETCOLOR
ELSE
	PRINTFORMDL [1] 基本素质设定
ENDIF
PRINTFORMDL [2] 口上介绍
SIF CFLAG:38:3100 && 关系_310()>=105
	PRINTFORMDL [3] 角色精神素质设置
PRINTFORMDL
PRINTFORMDL [0] 退出
PRINTFORMDL
IF FLAG:口上色
	CALLFORM M_KOJO_NK_COLOR_K49
ENDIF
$UPDT_SELECT
INPUT
IF !RESULT
	PRINTFORMW 嗯哼，那么就退出吧～
	RESETCOLOR
	RETURN 1
ELSEIF RESULT==1
	IF !GETBIT(CFLAG:49:UPDATE_310,1)
		PRINTFORML 本口上与TW原版觉设定出入较大，
		PRINTFORMW 请慎重考虑是否允许本口上变更经验、能力及素质。
		RESETCOLOR
		PRINTL ※変更的经验・能力
		;PRINTFORML 获得[自制心][阴郁][害羞][接受快感];[不信任人類][冷漠](会在后续消去)，失去[不在乎貞操]；
		RESETCOLOR
		IF ABL:教養 < 5
			PRINT 	教養(
			CALL PRINT_RANK(ABL:教養,"MAX_6")
			PRINTFORM  {ABL:教養} →
			CALL PRINT_RANK(5,"MAX_6")
			RESETCOLOR
			PRINTL  5)
		ENDIF
		IF EXP:学習経験 < 2000
			PRINTFORML 	学習経験( {EXP:学習経験} + 2000)
		ENDIF

		IF ABL:料理技能 < 4
			PRINT 	料理技能(
			CALL PRINT_RANK(ABL:料理技能,"MAX_6")
			PRINTFORM  {ABL:料理技能} →
			CALL PRINT_RANK(4,"MAX_6")
			RESETCOLOR
			PRINTL  4)
		ENDIF
		IF EXP:料理経験 < 1000
			PRINTFORML 	料理経験( {EXP:料理経験} + 1000)
		ENDIF

		IF ABL:清掃技能 < 3
			PRINT 	清掃技能(
			CALL PRINT_RANK(ABL:清掃技能,"MAX_6")
			PRINTFORM  {ABL:清掃技能} →
			CALL PRINT_RANK(3,"MAX_6")
			RESETCOLOR
			PRINTL  3)
		ENDIF
		IF EXP:清掃経験 < 500
			PRINTFORML 	清掃経験( {EXP:清掃経験} + 500)
		ENDIF

		IF ABL:音楽技能 < 3
			PRINT 	音楽技能(
			CALL PRINT_RANK(ABL:音楽技能,"MAX_6")
			PRINTFORM  {ABL:音楽技能} →
			CALL PRINT_RANK(3,"MAX_6")
			RESETCOLOR
			PRINTL  3)
		ENDIF
		IF EXP:演奏経験 < 1000
			PRINTFORML 	演奏経験( {EXP:演奏経験} + 1000)
		ENDIF
		IF FLAG:口上色
			CALLFORM M_KOJO_NK_COLOR_K49
		ENDIF
		PRINTFORMW 允许本口上对觉的素质进行改动吗？
		CALL ASK_YN
		IF !RESULT
			PRINTFORML 好的～
			PRINTFORML 感谢您的配合，
			PRINTFORMW 那么变更完成了～
			TALENT:24=-1;阴郁
			TALENT:自制心=1
			TALENT:羞恥心=1;害羞
			TALENT:快感応答=1;接受快感
			TALENT:性別嗜好=3;不信任人類
			TALENT:貞操=0
			TALENT:冷漠=1

			ABL:教養=MAX(ABL:教養,5)
			;EXP(5+3)=2000
			EXP:学習経験=MAX(EXP:学習経験,2000)

			ABL:清掃技能=MAX(ABL:清掃技能,3)
			;EXP(3+3)=500
			EXP:清掃経験=MAX(EXP:清掃経験,500)

			ABL:音楽技能=MAX(ABL:音楽技能,3)
			;EXP(3+3)*2=1000
			EXP:演奏経験=MAX(EXP:演奏経験,1000)

			ABL:料理技能=MAX(ABL:料理技能,4)
			;EXP(4+3)=1000
			EXP:料理経験=MAX(EXP:料理経験,1000)

			SETBIT CFLAG:49:UPDATE_310,1
		ELSE
			PRINTFORML 诶诶？还没准备好吗？
			PRINTFORMW 反悔的话随时可以回来哦～
		ENDIF
	ELSE
		PRINTFORMW 嗯哼？素质变更不是已经完成过了吗？
		PRINTFORML 是出现BUG要再次变更素质对吗？
		CALL ASK_YN
			IF !RESULT
				PRINTFORML 这样啊…
				PRINTFORML 那还真是，不幸呢……
				PRINTFORML 还请去论坛里向作者反馈吧，把遇到的情况什么的尽量说清楚些；
				PRINTFORMW 这样的话，才方便修呢——
				PRINTFORML 论坛地址什么的已经贴到readme了，还请访问一下。
				PRINTFORML 好啦，那么这次，就先重置一下吧；
				PRINTFORMW 就，不妨碍继续重置了～
				CLEARBIT CFLAG:49:UPDATE_310,1
			ELSE
				PRINTFORML 什么啊！
				PRINTFORML 还以为又写出什么bug了呢……
				PRINTFORMW 没别的什么事的话，就请回去吧。
			ENDIF
	ENDIF
ELSEIF RESULT==2
	PRINTFORML 本口上，与其它口上最大的不同，就是采用了另一套陷落判定方法，
	PRINTFORML 就算取得思慕恋慕也不会对口上内容造成实质性影响。
	PRINTFORMW 所以，看到没有对应口上时，也不要感到奇怪～
	PRINTFORML 此外，功能性的，还有在达成某条件时，可以开启下一周目；
	PRINTFORMW 请做好备份，比如save99之类的……
	PRINTFORML 在完成以上事件后，攻略到一定进度再回来UPDATE的话，会有额外功能出现；
	PRINTFORMW 尽情期待啦，别忘了回来看看呢～
	PRINTFORML 好啦，记得多陪陪觉做点能加经验的事情——
	PRINTFORML 学习呀，料理呀之类的；
	PRINTFORMW 说不定能事半功倍呢，欸嘿嘿～
ELSEIF RESULT==3 && (CFLAG:38:3100 && 关系_310()>=105)
	IF !GETBIT(CFLAG:49:UPDATE_310,3)
		PRINTFORML 恭喜你发现了多周目奖励！
		PRINTFORML 只要是关系达到恋慕程度的角色，都可以委托古明地小姐催眠改造！
		SETBIT CFLAG:49:UPDATE_310,3
	ENDIF
	PRINTFORMW 那么，想要改造的已恋慕对象是谁呢？
	$SETCHARA
	RESETCOLOR
	FOR TARGET ,1, CHARANUM
		IF !TALENT:TARGET:恋慕
			CONTINUE
		ENDIF
		PRINTFORMLC [{TARGET}], %NAME:TARGET%
	NEXT
	PRINTL
	DRAWLINE
	PRINTFORMDL [0] 退出
	IF FLAG:口上色
		CALLFORM M_KOJO_NK_COLOR_K49
	ENDIF
	INPUT
	IF RESULT==0
		PRINTFORML 嗯哼，已经满意了吗？
		PRINTFORMW 那就，返回UPDATE界面吧～
	ELSEIF !TALENT:RESULT:恋慕
		PRINTFORML 调皮了哦，%CALLNAME:MASTER%；
		PRINTFORMW 擅自做这样的事情是会变得不幸的！
		PRINTFORML 嘛，再给你一次机会吧；
		PRINTFORMW 可不能再调皮了哦～
		GOTO SETCHARA
	ELSE
		TARGET=RESULT
		PRINTFORML 是%CALLNAME:TARGET%没错吗？
		CALL ASK_YN
			IF RESULT
				PRINTFORMW 要看清楚再选啊。
				GOTO SETCHARA
			ELSE
				PRINTFORMW 呼姆呼姆，想要变更什么呢？
				CALL SET_CHARA_310(TARGET)
				IF FLAG:口上色
					CALLFORM M_KOJO_NK_COLOR_K49
				ENDIF
				PRINTFORMW 要继续变更下一位吗？
				CALL ASK_YN
				IF !RESULT
					PRINTFORML 好的～请选择需要修改的已恋慕角色～
					GOTO SETCHARA
				ELSE
					PRINTFORML 好的～全新的%CALLNAME:TARGET%已经改造完成了！
					PRINTFORMW 请好好对待哦～
				ENDIF
			ENDIF
	ENDIF
ELSE
	PRINTFORML 不对不对，要照着选项输入～
	GOTO UPDT_SELECT
ENDIF
GOTO UPDT
RESETCOLOR
RETURN 1

@SET_CHARA_310(TARGET)
PRINTL
PRINTL
RESETCOLOR
FOR LOCAL,10,86
	IF (LOCAL==34|(LOCAL<=54&&LOCAL>=51))||(LOCAL<=78&&LOCAL>=73)
		CONTINUE
	ELSEIF (LOCAL<=17&&LOCAL>=15)||(LOCAL<=49&&LOCAL>=41)
		CONTINUE
	ELSE
		SELECTCASE TALENTNAME:LOCAL
		;TALENT.CSVに登録されていない
		CASE ""
			CONTINUE
		;オンオフ型の素質(TALENTNAMEと素質表示が一致)
		CASE GET_TALENTNAME(LOCAL,1)
			SIF TALENT:TARGET:LOCAL
				SETCOLOR C_AQUA
			LOCALS = [{LOCAL,3}]%TALENTNAME:LOCAL%
		;量的素質
		CASEELSE
			LOCALS =  [{LOCAL,3}]%TALENTNAME:LOCAL%
			IF STRLENS(GET_TALENTNAME(LOCAL, TALENT:TARGET:LOCAL))
				LOCALS:1 = 【%GET_TALENTNAME(LOCAL, TALENT:TARGET:LOCAL)%】
				SETCOLOR C_AQUA
			ELSE
				LOCALS:1 = 【－】
			ENDIF
			LOCALS += LOCALS:1
		ENDSELECT
	ENDIF
	IF LOCAL:1 % 3 == 0
		PRINTL
		PRINT
	ENDIF
	PRINTFORMLC %LOCALS, 30, LEFT%
	LOCAL:1 ++
	RESETCOLOR
NEXT
PRINTL
PRINTL
PRINTL   [9999] 返回
PRINTL
INPUT
SIF RESULT == 9999
	RETURN
LOCAL=RESULT
IF TALENTNAME:LOCAL == GET_TALENTNAME(LOCAL,1)
	TALENT:TARGET:LOCAL = !TALENT:TARGET:LOCAL
ELSE
;他は端まで行くと-1を掛ける
	IF STRLENS(GET_TALENTNAME(LOCAL,TALENT:TARGET:LOCAL + 1)) || TALENT:TARGET:LOCAL == -1
		TALENT:TARGET:LOCAL ++
	ELSE
		TALENT:TARGET:LOCAL *= -1
	ENDIF
ENDIF
RESTART
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_NK_ENCOUNTER_K49
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
;経験の変更は齟齬が出る場合がありますので、CSVを修正し同梱する事を推奨します
SIF FLAG:口上色
	CALLFORM M_KOJO_NK_COLOR_K49
IF !CFLAG:38:3100
	PRINTFORML 「外来的幻想乡管理者，就是你吗？」
	PRINTFORMDW   那个粉色少女正用胸口的眼球瞪着。
	PRINTFORML 「所见的简介并没有讲明我的身份」
	PRINTFORMDW   嗯嗯嗯？所见的简介？这都能看到吗？
	PRINTFORML 「我是觉，负责管理幻想乡的怨灵」
	PRINTFORMDW   没兴趣搭理这疑问，自顾自开始自我介绍。
	PRINTFORML 「将之囚闭地灵殿，交付宠物吞食」
	PRINTFORMDW   复又打量一番，停留在瞳孔。
	PRINTFORML 「不错，他们本是人类，与你一样」
	PRINTFORML 「如若你治理失当…我会看着的」
	PRINTFORMDW   似乎是想到什么，将走之际，又补上几句。
	PRINTFORML 「那么，不要急于重置世界」
	PRINTFORML 「惟因你不能逆转时间」
ELSE
	PRINTFORML 「啊啦，已经是第几次了呢？」
	PRINTFORMDW   还是那个熟悉的声音。
	PRINTFORML 「那些孩子们的记忆，已经全部抹除了哦」
	PRINTFORML 「肉体也已经全部复原了哦」
	PRINTFORML 「还满意吗？」
	PRINTFORML 「世界的管理者啊」
	PRINTFORML 「所管理的世界遭受厌弃，也没关系」
	PRINTFORML 「我也还会继续，做好所当做的一切」
ENDIF
RESETCOLOR
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】古明地觉_试制口上v0.053/一般/M_KOJO_K49_310_初期处理.ERB