code:
;-------------------------------------------
;オート喘ぎ
;-------------------------------------------
@渧泣()
#DIMS DYNAMIC 指令部位,2
#DIMS DYNAMIC 使用部位
#DIMS DYNAMIC マークタイプ
#DIMS DYNAMIC キャラ呼称
#DIM DYNAMIC ループカッター
#DIM DYNAMIC ループスペースカット
#DIM DYNAMIC ループcounter,3
#DIM DYNAMIC ループＭＡＸ
#DIM DYNAMIC マークタイプcounter
#DIM DYNAMIC 复数回非表示
	SIF FLAG:口上色
		CALLFORM M_KOJO_COLOR_K49
IF TALENT:恋人
	キャラ呼称 = %CALLNAME:MASTER%
ELSEIF NAME:MASTER != "你"
	キャラ呼称 = %NAME:MASTER%
ELSEIF CALLNAME:MASTER != "你"
	キャラ呼称 = %CALLNAME:MASTER%
ELSE
	キャラ呼称 =
ENDIF
FOR LOCAL,11,18
	IF TEQUIP:TARGET:LOCAL
		SELECTCASE LOCAL
			CASE 11
				使用部位 += "Ｃ"
			CASE 12
				使用部位 += "Ｐ"
			CASE 13
				使用部位 += "Ｖ"
			CASE 14
				使用部位 += "Ａ"
			CASE 16
				使用部位 += "Ｂ"
		ENDSELECT
	ENDIF
	IF TEQUIP:TARGET:(LOCAL + 90)
		SELECTCASE LOCAL + 90
			CASE 101
				SIF !STRCOUNT(使用部位,"Ｐ") && !STRCOUNT(使用部位,"Ｃ")
					使用部位 += "Ｐ"
			CASE 102
				SIF !STRCOUNT(使用部位,"Ｐ") && !STRCOUNT(使用部位,"Ｃ")
					使用部位 += "Ｃ"
			CASE 104
				SIF !STRCOUNT(使用部位,"Ｍ")
					使用部位 += "Ｍ"
			CASE 105
				SIF !STRCOUNT(使用部位,"Ｂ")
					使用部位 += "Ｂ"
			CASE 106
				SIF !STRCOUNT(使用部位,"Ｖ")
					使用部位 += "Ｖ"
			CASE 107
				SIF !STRCOUNT(使用部位,"Ａ")
					使用部位 += "Ａ"
		ENDSELECT
	ENDIF
NEXT
IF !STRCOUNT(使用部位,"Ｍ")
	;恋慕or恋人
	IF 陥落状態() >= 3
		IF STRLENSU(使用部位) == 4
			指令部位:0 = ぜんぶ
		ELSEIF STRLENSU(使用部位) == 3
			指令部位:0 = みっつとも
		ELSEIF STRLENSU(使用部位) == 2
			FOR LOCAL,0,STRLENSU(使用部位)
				IF STRCOUNT(使用部位,"Ｃ") && !STRCOUNT(指令部位:0,"阴蒂")
					指令部位:0 += "阴蒂"
				ELSEIF STRCOUNT(使用部位,"Ｐ") && !STRCOUNT(指令部位:0,"欧金金")
					指令部位:0 += "欧金金"
				ELSEIF STRCOUNT(使用部位,"Ｖ") && !STRCOUNT(指令部位:0,"阴部")
					指令部位:0 += "阴部"
				ELSEIF STRCOUNT(使用部位,"Ａ") && !STRCOUNT(指令部位:0,"后面")
					指令部位:0 += "后面"
				ELSEIF STRCOUNT(使用部位,"Ｂ") && !STRCOUNT(指令部位:0,"胸部")
					指令部位:0 += "胸部"
				ENDIF
				IF CFLAG:睡眠
					指令部位:0 += "とかぁ"
					BREAK
				ENDIF
				SIF !LOCAL
					指令部位:0 += "与"
			NEXT
		ELSE
			IF STRCOUNT(使用部位,"Ｃ") && !STRCOUNT(指令部位:0,"阴蒂")
				指令部位:0 += "阴蒂"
			ELSEIF STRCOUNT(使用部位,"Ｐ") && !STRCOUNT(指令部位:0,"おちんちん")
				指令部位:0 += "欧金金"
			ELSEIF STRCOUNT(使用部位,"Ｖ") && !STRCOUNT(指令部位:0,"おまんこ")
				指令部位:0 += "阴部"
			ELSEIF STRCOUNT(使用部位,"Ａ") && !STRCOUNT(指令部位:0,"しりあな")
				指令部位:0 += "屁股"
			ELSEIF STRCOUNT(使用部位,"Ｂ") && !STRCOUNT(指令部位:0,"胸部")
				指令部位:0 += "胸部"
			ENDIF
		ENDIF
	;思慕以上
	ELSEIF 陥落状態() >= 2
		IF STRLENSU(使用部位) == 4
			指令部位:0 = 全部同時
		ELSEIF STRLENSU(使用部位) == 3
			指令部位:0 = 三箇所同時
		ELSEIF STRLENSU(使用部位) == 2
			FOR LOCAL,0,STRLENSU(使用部位)
				IF STRCOUNT(使用部位,"Ｃ") && !STRCOUNT(指令部位:0,"クリ")
					指令部位:0 += "豆豆"
				ELSEIF STRCOUNT(使用部位,"Ｐ") && !STRCOUNT(指令部位:0,"それ")
					指令部位:0 += "那里"
				ELSEIF STRCOUNT(使用部位,"Ｖ") && !STRCOUNT(指令部位:0,"そこ")
					指令部位:0 += "这里"
				ELSEIF STRCOUNT(使用部位,"Ａ") && !STRCOUNT(指令部位:0,"おしり")
					指令部位:0 += "后面"
				ELSEIF STRCOUNT(使用部位,"Ｂ") && !STRCOUNT(指令部位:0,"むね")
					指令部位:0 += "胸 "
				ENDIF
				IF CFLAG:睡眠
					指令部位:0 += "那里"
					BREAK
				ENDIF
				SIF !LOCAL
					指令部位:0 += "那儿"
			NEXT
		ELSE
			IF STRCOUNT(使用部位,"Ｃ") && !STRCOUNT(指令部位:0,"クリ")
				指令部位:0 += "豆豆"
			ELSEIF STRCOUNT(使用部位,"Ｐ") && !STRCOUNT(指令部位:0,"それ")
				指令部位:0 += "那里"
			ELSEIF STRCOUNT(使用部位,"Ｖ") && !STRCOUNT(指令部位:0,"そこ")
				指令部位:0 += "这里"
			ELSEIF STRCOUNT(使用部位,"Ａ") && !STRCOUNT(指令部位:0,"おしり")
				指令部位:0 += "后面"
			ELSEIF STRCOUNT(使用部位,"Ｂ") && !STRCOUNT(指令部位:0,"むね")
				指令部位:0 += "胸 "
			ENDIF
		ENDIF
	;合意
	ELSE
		指令部位:0 = 那里
	ENDIF
ENDIF
;責められている部位を地の文で使う際の設定
IF STRLENSU(使用部位) == 4
	指令部位:1 = 多个敏感处
ELSEIF STRLENSU(使用部位) == 3
	指令部位:1 = 多个敏感处
ELSEIF STRLENSU(使用部位) == 2
	FOR LOCAL,0,STRLENSU(使用部位)
		IF STRCOUNT(使用部位,"Ｃ") && (!STRCOUNT(指令部位:1,"阴蒂") && !STRCOUNT(指令部位:1,"秘豆"))
			IF !RAND:2
				指令部位:1 += "阴蒂"
			ELSE
				指令部位:1 += "秘豆"
			ENDIF
		ELSEIF STRCOUNT(使用部位,"Ｐ") && (!STRCOUNT(指令部位:1,"擬根") && !STRCOUNT(指令部位:1,"阴茎"))
			IF !RAND:2
				指令部位:1 += "擬根"
			ELSE
				指令部位:1 += "阴茎"
			ENDIF
		ELSEIF STRCOUNT(使用部位,"Ｖ") && (!STRCOUNT(指令部位:1,"秘処") && !STRCOUNT(指令部位:1,"膣腔"))
			IF !RAND:2
				指令部位:1 += "秘处"
			ELSE
				指令部位:1 += "膣腔"
			ENDIF
		ELSEIF STRCOUNT(使用部位,"Ａ") && (!STRCOUNT(指令部位:1,"菊座") && !STRCOUNT(指令部位:1,"肛門"))
			IF !RAND:2
				指令部位:1 += "菊座"
			ELSE
				指令部位:1 += "肛門"
			ENDIF
		ELSEIF STRCOUNT(使用部位,"Ｂ") && (!STRCOUNT(指令部位:1,"胸") && !STRCOUNT(指令部位:1,"乳房"))
			IF !RAND:2
				指令部位:1 += "胸"
			ELSE
				指令部位:1 += "乳房"
			ENDIF
		ENDIF
		SIF !LOCAL
			指令部位:1 += "与"
	NEXT
ELSE
	IF STRCOUNT(使用部位,"Ｃ") && (!STRCOUNT(指令部位:1,"阴蒂") && !STRCOUNT(指令部位:1,"秘豆"))
		IF !RAND:2
			指令部位:1 += "阴蒂"
		ELSE
			指令部位:1 += "秘豆"
		ENDIF
	ELSEIF STRCOUNT(使用部位,"Ｐ") && (!STRCOUNT(指令部位:1,"擬根") && !STRCOUNT(指令部位:1,"阴茎"))
		IF !RAND:2
			指令部位:1 += "擬根"
		ELSE
			指令部位:1 += "阴茎"
		ENDIF
	ELSEIF STRCOUNT(使用部位,"Ｖ") && (!STRCOUNT(指令部位:1,"秘処") && !STRCOUNT(指令部位:1,"膣腔"))
		IF !RAND:2
			指令部位:1 += "秘处"
		ELSE
			指令部位:1 += "膣腔"
		ENDIF
	ELSEIF STRCOUNT(使用部位,"Ａ") && (!STRCOUNT(指令部位:1,"菊座") && !STRCOUNT(指令部位:1,"肛門"))
		IF !RAND:2
			指令部位:1 += "菊座"
		ELSE
			指令部位:1 += "肛門"
		ENDIF
	ELSEIF STRCOUNT(使用部位,"Ｂ") && (!STRCOUNT(指令部位:1,"胸") && !STRCOUNT(指令部位:1,"乳房"))
		IF !RAND:2
			指令部位:1 += "胸"
		ELSE
			指令部位:1 += "乳房"
		ENDIF
	ENDIF
ENDIF
;
IF 陥落状態() >= 4
	ループＭＡＸ = 3
ELSEIF 陥落状態() >= 2
	ループＭＡＸ = 2
ELSE
	ループＭＡＸ = 1
ENDIF
FOR ループcounter:0,0,ループＭＡＸ
	ループカッター = 0
	PRINTFORM 「
	;睡眠
	IF CFLAG:睡眠
		;恋人
		IF 陥落状態() >= 4
			FOR ループcounter:2,0,22
				IF !FLAG:口上色
					GETDEFCOLOR
					SETCOLOR RESULT
				ENDIF
				ループスペースカット = 1
				SIF ループカッター >= 1
					ループスペースカット = 0
				マークタイプ =
				IF !RAND:3
					マークタイプ = %UNICODE(0x2665)%
					マークタイプcounter = 1
				ELSEIF !RAND:2
					マークタイプ = ♪
					マークタイプcounter = 2
				ELSE
					マークタイプcounter = 3
				ENDIF
				SELECTCASE RAND:22
					CASE 21
						IF !GETBIT(复数回非表示,21)
							PRINTFORM 呼......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,21
						ENDIF
					CASE 20
						IF !GETBIT(复数回非表示,20)
							PRINTFORM 嗯唔......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,20
						ENDIF
					CASE 19
						IF !GETBIT(复数回非表示,19)
							PRINTFORM 再......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,19
						ENDIF
					CASE 18
						IF !GETBIT(复数回非表示,18)
							PRINTFORM %指令部位:0%\@ STRLENSU(使用部位) >= 3 ? 唔 #  \@......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,18
						ENDIF
					CASE 17
						IF !GETBIT(复数回非表示,17)
							PRINTFORM ......唔
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,17
						ENDIF
					CASE 16
						IF !GETBIT(复数回非表示,16)
							PRINTFORM 唔啊......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,16
						ENDIF
					CASE 15
						IF !GETBIT(复数回非表示,15)
							PRINTFORM 呼ー、呼ー
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,15
						ENDIF
					CASE 14
						IF !GETBIT(复数回非表示,14)
							PRINTFORM ......嗯
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,14
						ENDIF
					CASE 13
						IF !GETBIT(复数回非表示,13)
							PRINTFORM 这里......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,13
						ENDIF
					CASE 12
						IF !GETBIT(复数回非表示,12)
							PRINTFORM %キャラ呼称%......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,12
						ENDIF
					CASE 11
						IF !GETBIT(复数回非表示,11)
							PRINTFORM 最喜欢......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,11
						ENDIF
					CASE 10
						IF !GETBIT(复数回非表示,10)
							PRINTFORM 啊......呀......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 2
							SETBIT 复数回非表示,10
						ENDIF
					CASE 9
						IF !GETBIT(复数回非表示,9)
							PRINTFORM 呀......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,9
						ENDIF
					CASE 8
						IF !GETBIT(复数回非表示,8)
							PRINTFORM 哈呼......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,8
						ENDIF
					CASE 7
						IF !GETBIT(复数回非表示,7)
							PRINTFORM 呼、唔......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,7
						ENDIF
					CASE 6
						IF !GETBIT(复数回非表示,6)
							PRINTFORM 阿嚏......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,6
						ENDIF
					CASE 5
						IF !GETBIT(复数回非表示,5)
							PRINTFORM 好舒服——......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,5
						ENDIF
					CASE 4
						IF !GETBIT(复数回非表示,4)
							PRINTFORM 最喜欢......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,4
						ENDIF
					CASE 3
						IF !GETBIT(复数回非表示,3)
							PRINTFORM 做......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,3
						ENDIF
					CASE 2
						IF !GETBIT(复数回非表示,2)
							PRINTFORM ......哈呼
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,2
						ENDIF
					CASE 1
						IF !GETBIT(复数回非表示,1)
							PRINTFORM 好......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,1
						ENDIF
					CASE 0
						IF !GETBIT(复数回非表示,0)
							PRINTFORM 哈啊、嗯...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,0
						ENDIF
				ENDSELECT
				SIF FLAG:口上色
					CALLFORM M_KOJO_COLOR_K49
				SIF !ループカッター || ループスペースカット
					CONTINUE
				SIF ループカッター <= 3
					PRINTFORM
				SIF ループカッター == 4
					BREAK
			NEXT
		;陥落手前
		;家族に時姦されてても、恋慕等と反応一绪（寝てるときは気が緩むんです
		ELSEIF 陥落状態() >= 2
			FOR ループcounter:2,0,21
				IF !FLAG:口上色
					GETDEFCOLOR
					SETCOLOR RESULT
				ENDIF
				ループスペースカット = 1
				SIF ループカッター >= 1
					ループスペースカット = 0
				マークタイプ =
				マークタイプ = %UNICODE(0x2665)%
				マークタイプcounter = 1
				SELECTCASE RAND:21
					CASE 20
						IF !GETBIT(复数回非表示,20)
							PRINTFORM  ......嗯...啊...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,20
						ENDIF
					CASE 19
						IF !GETBIT(复数回非表示,19)
							PRINTFORM  ......嗯
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,19
						ENDIF
					CASE 18
						IF !GETBIT(复数回非表示,18)
							PRINTFORM  哈啊、哈......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,18
						ENDIF
					CASE 17
						IF !GETBIT(复数回非表示,17)
							PRINTFORM  呀啊......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,17
						ENDIF
					CASE 16
						IF !GETBIT(复数回非表示,16)
							PRINTFORM  %指令部位:0%、呀啊
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,16
						ENDIF
					CASE 15
						IF !GETBIT(复数回非表示,15)
							PRINTFORM  好热......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,15
						ENDIF
					CASE 14
						IF !GETBIT(复数回非表示,14)
							PRINTFORM  啊つ......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,14
						ENDIF
					CASE 13
						IF !GETBIT(复数回非表示,13)
							PRINTFORM  呼...呼啊......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,13
						ENDIF
					CASE 12
						IF !GETBIT(复数回非表示,12)
							PRINTFORM  哈呼......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,12
						ENDIF
					CASE 11
						IF !GETBIT(复数回非表示,11)
							PRINTFORM  嗯啊...？......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,11
						ENDIF
					CASE 10
						IF !GETBIT(复数回非表示,10)
							PRINTFORM  最——最——
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,10
						ENDIF
					CASE 9
						IF !GETBIT(复数回非表示,9)
							PRINTFORM  真是讨厌......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,9
						ENDIF
					CASE 8
						IF !GETBIT(复数回非表示,8)
							PRINTFORM  已经......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,8
						ENDIF
					CASE 7
						IF !GETBIT(复数回非表示,7)
							PRINTFORM  哈啊......嗯っ
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,7
						ENDIF
					CASE 6
						IF !GETBIT(复数回非表示,6)
							PRINTFORM  唔......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,6
						ENDIF
					CASE 5
						IF !GETBIT(复数回非表示,5)
							PRINTFORM  嗯っ......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,5
						ENDIF
					CASE 4
						IF !GETBIT(复数回非表示,4)
							PRINTFORM  呼っ......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,4
						ENDIF
					CASE 3
						IF !GETBIT(复数回非表示,3)
							PRINTFORM  嘶嘶......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,3
						ENDIF
					CASE 2
						IF !GETBIT(复数回非表示,2)
							PRINTFORM  哈呼......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,2
						ENDIF
					CASE 1
						IF !GETBIT(复数回非表示,1)
							PRINTFORM  嗯唔......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,1
						ENDIF
					CASE 0
						IF !GETBIT(复数回非表示,0)
							PRINTFORM  嗯......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,0
						ENDIF
				ENDSELECT
				SIF FLAG:口上色
					CALLFORM M_KOJO_COLOR_K49
				SIF !ループカッター || ループスペースカット
					CONTINUE
				SIF ループカッター <= 3
					PRINTFORM
				SIF ループカッター == 4
					BREAK
			NEXT
		;非陥落
		ELSE
			FOR ループcounter:2,0,22
				IF !FLAG:口上色
					GETDEFCOLOR
					SETCOLOR RESULT
				ENDIF
				ループスペースカット = 1
				SIF ループカッター >= 1
					ループスペースカット = 0
				SELECTCASE RAND:22
					CASE 21
						IF !GETBIT(复数回非表示,21)
							PRINTFORM  ......嗯？
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,21
						ENDIF
					CASE 20
						IF !GETBIT(复数回非表示,20)
							PRINTFORM  嘶——
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,20
						ENDIF
					CASE 19
						IF !GETBIT(复数回非表示,19)
							PRINTFORM  ......哈呼
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,19
						ENDIF
					CASE 18
						IF !GETBIT(复数回非表示,18)
							PRINTFORM  嗯唔......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,18
						ENDIF
					CASE 17
						IF !GETBIT(复数回非表示,17)
							PRINTFORM  ......呜欸
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,17
						ENDIF
					CASE 16
						IF !GETBIT(复数回非表示,16)
							PRINTFORM  嗯......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,16
						ENDIF
					CASE 15
						IF !GETBIT(复数回非表示,15)
							PRINTFORM  ......呀啊
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,15
						ENDIF
					CASE 14
						IF !GETBIT(复数回非表示,14)
							PRINTFORM  啊呀......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,14
						ENDIF
					CASE 13
						IF !GETBIT(复数回非表示,13)
							PRINTFORM  嗯......？
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,13
						ENDIF
					CASE 12
						IF !GETBIT(复数回非表示,12)
							PRINTFORM  哈呼......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,12
						ENDIF
					CASE 11
						IF !GETBIT(复数回非表示,11)
							PRINTFORM  姆......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,11
						ENDIF
					CASE 10
						IF !GETBIT(复数回非表示,10)
							PRINTFORM  真是Ｈ......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,10
						ENDIF
					CASE 9
						IF !GETBIT(复数回非表示,9)
							PRINTFORM  可ー恶ー......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,9
						ENDIF
					CASE 8
						IF !GETBIT(复数回非表示,8)
							PRINTFORM  噫......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,8
						ENDIF
					CASE 7
						IF !GETBIT(复数回非表示,7)
							PRINTFORM  ......啊
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,7
						ENDIF
					CASE 6
						IF !GETBIT(复数回非表示,6)
							PRINTFORM  啊......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,6
						ENDIF
					CASE 5
						IF !GETBIT(复数回非表示,5)
							PRINTFORM  啊嗯......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,5
						ENDIF
					CASE 4
						IF !GETBIT(复数回非表示,4)
							PRINTFORM  啊嗯......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,4
						ENDIF
					CASE 3
						IF !GETBIT(复数回非表示,3)
							PRINTFORM  ......嗯唔？
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,3
						ENDIF
					CASE 2
						IF !GETBIT(复数回非表示,2)
							PRINTFORM  不、不要......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,2
						ENDIF
					CASE 1
						IF !GETBIT(复数回非表示,1)
							PRINTFORM  ......嗯啊
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,1
						ENDIF
					CASE 0
						IF !GETBIT(复数回非表示,0)
							PRINTFORM  哈呼......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,0
						ENDIF
				ENDSELECT
				SIF !ループカッター || ループスペースカット
					CONTINUE
				SIF ループカッター <= 3
					PRINTFORM
				SIF ループカッター == 4
					BREAK
			NEXT
		ENDIF
	;お口使用中（キスもフェラも一绪（てか書き分けめんどくさい
	ELSEIF STRCOUNT(使用部位,"Ｍ")
		;完全陥落中
		IF 陥落状態() >= 4
			FOR ループcounter:2,0,20
				IF !FLAG:口上色
					GETDEFCOLOR
					SETCOLOR RESULT
				ENDIF
				マークタイプ =
				IF !RAND:3
					マークタイプ = %UNICODE(0x2665)%
					マークタイプcounter = 1
				ELSEIF !RAND:2
					マークタイプ = ♪
					マークタイプcounter = 2
				ELSE
					マークタイプ =
					マークタイプcounter = 3
				ENDIF
				SELECTCASE RAND:20
					CASE 19
						IF !GETBIT(复数回非表示,19)
							PRINTFORM  ...真是美味呢～
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,19
						ENDIF
					CASE 18
						IF !GETBIT(复数回非表示,18)
							PRINTFORM  咯啾...唔...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,18
						ENDIF
					CASE 17
						IF !GETBIT(复数回非表示,17)
							PRINTFORM  姆...啾...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,17
						ENDIF
					CASE 16
						IF !GETBIT(复数回非表示,16)
							PRINTFORM  嗯嗯嗯唔゛呜
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,16
						ENDIF
					CASE 15
						IF !GETBIT(复数回非表示,15)
							PRINTFORM  ......咯姆...嘶哟...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,15
						ENDIF
					CASE 14
						IF !GETBIT(复数回非表示,14)
							PRINTFORM  暖、暖洋洋的...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,14
						ENDIF
					CASE 13
						IF !GETBIT(复数回非表示,13)
							PRINTFORM  最喜欢......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,13
						ENDIF
					CASE 12
						IF !GETBIT(复数回非表示,12)
							PRINTFORM  唔姆...呜呜...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,12
						ENDIF
					CASE 11
						IF !GETBIT(复数回非表示,11)
							PRINTFORM  啾卜、啾......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,11
						ENDIF
					CASE 10
						IF !GETBIT(复数回非表示,10)
							PRINTFORM  呜呼......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,10
						ENDIF
					CASE 9
						IF !GETBIT(复数回非表示,9)
							PRINTFORM  唔噫......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,9
						ENDIF
					CASE 8
						IF !GETBIT(复数回非表示,8)
							PRINTFORM  啪...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,8
						ENDIF
					CASE 7
						IF !GETBIT(复数回非表示,7)
							PRINTFORM 这、这样...最喜欢...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,7
						ENDIF
					CASE 6
						IF !GETBIT(复数回非表示,6)
							PRINTFORM 噫啊...咯......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,6
						ENDIF
					CASE 5
						IF !GETBIT(复数回非表示,5)
							PRINTFORM  啾......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,5
						ENDIF
					CASE 4
						IF !GETBIT(复数回非表示,4)
							PRINTFORM  嗯噫っ......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,4
						ENDIF
					CASE 3
						IF !GETBIT(复数回非表示,3)
							PRINTFORM  ......嗯゛
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,3
						ENDIF
					CASE 2
						IF !GETBIT(复数回非表示,2)
							PRINTFORM  嗯呜......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,2
						ENDIF
					CASE 1
						IF !GETBIT(复数回非表示,1)
							PRINTFORM  嗯、嗯っ......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,1
						ENDIF
					CASE 0
						IF !GETBIT(复数回非表示,0)
							PRINTFORM  ～～嗯嗯
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							SIF マークタイプcounter == 3
								ループスペースカット = 1
							ループカッター += 1
							SETBIT 复数回非表示,0
						ENDIF
				ENDSELECT
				SIF FLAG:口上色
					CALLFORM M_KOJO_COLOR_K49
				SIF !ループカッター
					CONTINUE
				SIF ループカッター <= 3 && !ループスペースカット
					PRINTFORM
				SIF ループカッター == 4
					BREAK
			NEXT
		;恋慕系or家族時姦後(家族に時姦してる場合は、無理矢理ぎみ
		ELSEIF 陥落状態() >= 2
			FOR ループcounter:2,0,18
				IF !FLAG:口上色
					GETDEFCOLOR
					SETCOLOR RESULT
				ENDIF
				マークタイプ =
				SIF 陥落状態() == 3
					マークタイプ = %UNICODE(0x2665)%
				マークタイプcounter = 1
				SELECTCASE RAND:18
					CASE 17
						IF !GETBIT(复数回非表示,17)
							PRINTFORM  啾卟...咯...啾...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,17
						ENDIF
					CASE 16
						IF !GETBIT(复数回非表示,16) && 陥落状態() == 2
							PRINTFORM  你这个变态、唔......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,16
						ENDIF
					CASE 15
						IF !GETBIT(复数回非表示,15)
							PRINTFORM  哈啊、嗯、唔啾...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,15
						ENDIF
					CASE 14
						IF !GETBIT(复数回非表示,14) && 陥落状態() == 2
							PRINTFORM  呜゛噫呼......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,14
						ENDIF
					CASE 13
						IF !GETBIT(复数回非表示,13)
							PRINTFORM  啾啾、嗯唔...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,13
						ENDIF
					CASE 12
						IF !GETBIT(复数回非表示,12) && 陥落状態() == 2
							PRINTFORM  唔...不、不要...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,12
						ENDIF
					CASE 11
						IF !GETBIT(复数回非表示,11)
							PRINTFORM  啾咯、啾...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,11
						ENDIF
					CASE 10
						IF !GETBIT(复数回非表示,10) && 陥落状態() == 2
							PRINTFORM  唔呜っ、唔゛噫っ
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,10
						ENDIF
					CASE 9
						IF !GETBIT(复数回非表示,9)
							PRINTFORM  咯...啾...啾...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,9
						ENDIF
					CASE 8
						IF !GETBIT(复数回非表示,8) && 陥落状態() == 2
							PRINTFORM  呜、呼、嗯啊
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,8
						ENDIF
					CASE 7
						IF !GETBIT(复数回非表示,7)
							PRINTFORM  啾啾、啾......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,7
						ENDIF
					CASE 6
						IF !GETBIT(复数回非表示,6) && 陥落状態() == 2
							PRINTFORM  不要、呜、唔゛噗啊っ
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,6
						ENDIF
					CASE 5
						IF !GETBIT(复数回非表示,5)
							PRINTFORM  啾、啾......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,5
						ENDIF
					CASE 4
						IF !GETBIT(复数回非表示,4) && 陥落状態() == 2
							PRINTFORM  真是...唔噫......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,4
						ENDIF
					CASE 3
						IF !GETBIT(复数回非表示,3)
							PRINTFORM  咯、欸啊......
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,3
						ENDIF
					CASE 2
						IF !GETBIT(复数回非表示,2) && 陥落状態() == 2
							PRINTFORM  呼......欸...
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,2
						ENDIF
					CASE 1
						IF !GETBIT(复数回非表示,1)
							PRINTFORM  ......嗯唔
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,1
						ENDIF
					CASE 0
						IF !GETBIT(复数回非表示,0) && 陥落状態() == 2
							PRINTFORM  ......呜゛ 呼
							SIF マークタイプcounter == 1 && FLAG:口上色
								SETCOLOR 0xFF0000
							PRINTFORM %マークタイプ%
							RESETCOLOR
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,0
						ENDIF
				ENDSELECT
				SIF FLAG:口上色
					CALLFORM M_KOJO_COLOR_K49
				SIF !ループカッター
					CONTINUE
				SIF ループカッター <= 2 && !ループスペースカット
					PRINTFORM
				SIF ループカッター == 3
					BREAK
			NEXT
		;非陥落
		ELSE
			FOR ループcounter:2,0,15
				IF !FLAG:口上色
					GETDEFCOLOR
					SETCOLOR RESULT
				ENDIF
				ループスペースカット = 1
				SELECTCASE RAND:15
					CASE 14
						IF !GETBIT(复数回非表示,14)
							PRINTFORM  咯、啾、啪...
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,14
						ENDIF
					CASE 13
						IF !GETBIT(复数回非表示,13)
							PRINTFORM  呼、啾、啾っ
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,13
						ENDIF
					CASE 12
						IF !GETBIT(复数回非表示,12)
							PRINTFORM ...呼っ呼っ......啾......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,12
						ENDIF
					CASE 11
						IF !GETBIT(复数回非表示,11)
							PRINTFORM ...唔......噗啪......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,11
						ENDIF
					CASE 10
						IF !GETBIT(复数回非表示,10)
							PRINTFORM  咯啾......唔......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,10
						ENDIF
					CASE 9
						IF !GETBIT(复数回非表示,9)
							PRINTFORM  唔......欸呼......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,9
						ENDIF
					CASE 8
						IF !GETBIT(复数回非表示,8)
							PRINTFORM  嗯......唔......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,8
						ENDIF
					CASE 7
						IF !GETBIT(复数回非表示,7)
							PRINTFORM  哈......呼......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,7
						ENDIF
					CASE 6
						IF !GETBIT(复数回非表示,6)
							PRINTFORM  唔......欸呜......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,6
						ENDIF
					CASE 5
						IF !GETBIT(复数回非表示,5)
							PRINTFORM  嗯唔......唔......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,5
						ENDIF
					CASE 4
						IF !GETBIT(复数回非表示,4)
							PRINTFORM  唔......咯......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,4
						ENDIF
					CASE 3
						IF !GETBIT(复数回非表示,3)
							PRINTFORM  啾......啾っ......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,3
						ENDIF
					CASE 2
						IF !GETBIT(复数回非表示,2)
							PRINTFORM  哈呼......啾噗......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,2
						ENDIF
					CASE 1
						IF !GETBIT(复数回非表示,1)
							PRINTFORM  咯......啾噗......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,1
						ENDIF
					CASE 0
						IF !GETBIT(复数回非表示,0)
							PRINTFORM  叽......唔啊......
							ループスペースカット = 0
							ループカッター += 1
							SETBIT 复数回非表示,0
						ENDIF
				ENDSELECT
				SIF FLAG:口上色
					CALLFORM M_KOJO_COLOR_K49
				SIF !ループカッター
					CONTINUE
				SIF ループカッター <= 2 && !ループスペースカット
					PRINTFORM
				SIF ループカッター == 3
					BREAK
			NEXT
		ENDIF
	;恋人
	ELSEIF 陥落状態() >= 4
		FOR ループcounter:2,0,20
			IF !FLAG:口上色
				GETDEFCOLOR
				SETCOLOR RESULT
			ENDIF
			ループスペースカット = 1
			マークタイプ =
			IF !RAND:3
				マークタイプ = %UNICODE(0x2665)%
				マークタイプcounter = 1
			ELSEIF !RAND:2
				マークタイプ = ♪
				マークタイプcounter = 2
			ELSE
				マークタイプcounter = 3
			ENDIF
			SELECTCASE RAND:20
				CASE 19
					IF !GETBIT(复数回非表示,19)
						IF 陥落状態() == 5
							PRINTFORM  %指令部位:0%真是 幸福啊......
						ELSE
							PRINTFORM  %指令部位:0%很舒服哦...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,19
					ENDIF
				CASE 18
					IF !GETBIT(复数回非表示,18)
						IF 陥落状態() == 5
							PRINTFORM  再、%キャラ呼称%、更多...
						ELSE
							PRINTFORM  %キャラ呼称%、请再做一点......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,18
					ENDIF
				CASE 17
					IF !GETBIT(复数回非表示,17)
						IF 陥落状態() == 5
							PRINTFORM  最喜欢%キャラ呼称%了......
						ELSE
							PRINTFORM  %キャラ呼称%、喜欢......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,17
					ENDIF
				CASE 16
					IF !GETBIT(复数回非表示,16)
						IF 陥落状態() == 5
							PRINTFORM  唔姆、啾、很舒服哦～
						ELSE
							PRINTFORM  啊呼、嗯唔、好啊...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,16
					ENDIF
				CASE 15
					IF !GETBIT(复数回非表示,15)
						IF 陥落状態() == 5
							PRINTFORM  啊ん、啊ん、噫啊ん......
						ELSE
							PRINTFORM  啊っ、啊っ、呼啊っ
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,15
					ENDIF
				CASE 14
					IF !GETBIT(复数回非表示,14) && STRLENSU(使用部位) <= 2
						IF 陥落状態() == 5
							PRINTFORM  %指令部位:0%要变成笨蛋了...
						ELSE
							PRINTFORM  %指令部位:0%要坏掉了......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,14
					ENDIF
				CASE 13
					IF !GETBIT(复数回非表示,13)
						IF 陥落状態() == 5
							PRINTFORM  请把我弄坏掉吧、%キャラ呼称%啊～
						ELSE
							PRINTFORM  %キャラ呼称%、好、好可怕
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,13
					ENDIF
				CASE 12
					IF !GETBIT(复数回非表示,12)
						IF 陥落状態() == 5
							PRINTFORM  请、再做一点...
						ELSE
							PRINTFORM  希望、能再多做一点......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,12
					ENDIF
				CASE 11
					IF !GETBIT(复数回非表示,11)
						IF 陥落状態() == 5
							PRINTFORM  可以哦、这、这里...
						ELSE
							PRINTFORM  哈啊、哈啊、感觉不错...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,11
					ENDIF
				CASE 10
					IF !GETBIT(复数回非表示,10)
						IF 陥落状態() == 5
							PRINTFORM %キャラ呼称%ぁ
						ELSE
							PRINTFORM %キャラ呼称%っ
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,10
					ENDIF
				CASE 9
					IF !GETBIT(复数回非表示,9)
						IF 陥落状態() == 5
							PRINTFORM  %指令部位:0%\@ STRLENSU(使用部位) > 2 ? # \@那里...啊呀、真是的...
						ELSE
							PRINTFORM  不要那样摆弄 %指令部位:0%\@ STRLENSU(使用部位) > 2 ? # \@啊
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,9
					ENDIF
				CASE 8
					IF !GETBIT(复数回非表示,8) && STRLENSU(使用部位) < 2
						IF 陥落状態() == 5
							PRINTFORM  %キャラ呼称%ぁ%指令部位:0%要更多...
						ELSE
							PRINTFORM  %キャラ呼称%%指令部位:0%很舒服呢...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,8
					ENDIF
				CASE 7
					IF !GETBIT(复数回非表示,7) && STRLENSU(使用部位) < 2
						IF 陥落状態() == 5
							PRINTFORM  哈噫、不要......%指令部位:0%要坏掉了......
						ELSE
							PRINTFORM  哈呼っ......%指令部位:0%要坏掉了......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,7
					ENDIF
				CASE 6
					IF !GETBIT(复数回非表示,6)
						IF 陥落状態() == 5
							PRINTFORM  嗯啊、%指令部位:0%\@ STRLENSU(使用部位) > 2 ?  #  \@ 感觉很棒哦
						ELSE
							PRINTFORM  %指令部位:0%\@ STRLENSU(使用部位) > 2 ?  #  \@ 很舒服哦
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,6
					ENDIF
				CASE 5
					IF !GETBIT(复数回非表示,5)
						IF 陥落状態() == 5
							PRINTFORM  饶了我吧，%キャラ呼称%、会变得奇怪的
						ELSE
							PRINTFORM  还请%キャラ呼称%饶了我吧...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,5
					ENDIF
				CASE 4
					IF !GETBIT(复数回非表示,4)
						IF 陥落状態() == 5
							PRINTFORM  变得奇怪了呢...
						ELSE
							PRINTFORM  要变得奇怪了...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,4
					ENDIF
				CASE 3
					IF !GETBIT(复数回非表示,3)
						IF 陥落状態() == 5
							PRINTFORM  %指令部位:0%\@ STRLENSU(使用部位) > 2 ? 要 #  \@变成笨蛋了～
						ELSE
							PRINTFORM  %指令部位:0%\@ STRLENSU(使用部位) > 2 ? 好像要 #  \@变成笨蛋了呢
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,3
					ENDIF
				CASE 2
					IF !GETBIT(复数回非表示,2)
						IF 陥落状態() == 5
							PRINTFORM  %キャラ呼称%、%キャラ呼称%啊
						ELSE
							PRINTFORM  %キャラ呼称%、%キャラ呼称%...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,2
					ENDIF
				CASE 1
					IF !GETBIT(复数回非表示,1)
						IF 陥落状態() == 5
							PRINTFORM  呼呀ん、啾、呼唔
						ELSE
							PRINTFORM  啊ん、嗯唔っ、呼......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,1
					ENDIF
				CASE 0
					IF !GETBIT(复数回非表示,0)
						IF 陥落状態() == 5
							PRINTFORM  唔嘿ん...嗯唔...
						ELSE
							PRINTFORM  嗯、嗯......唔っ......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,0
					ENDIF
			ENDSELECT
			SIF FLAG:口上色
				CALLFORM M_KOJO_COLOR_K49
			SIF !ループカッター || ループスペースカット
				CONTINUE
			SIF ループカッター <= 2
				PRINTFORM
			SIF ループカッター == 3
				BREAK
		NEXT
	;恋慕系or家族時姦後
	ELSEIF 陥落状態() >= 2
		FOR ループcounter:2,0,20
			IF !FLAG:口上色
				GETDEFCOLOR
				SETCOLOR RESULT
			ENDIF
			ループスペースカット = 1
			マークタイプ =
			マークタイプcounter = 0
			IF !RAND:2
				マークタイプ = %UNICODE(0x2665)%
				マークタイプcounter = 1
			ELSE
				マークタイプ = ♪
			ENDIF
			SIF 陥落状態() == 2
				マークタイプ = ！
			SELECTCASE RAND:20
				CASE 19
					IF !GETBIT(复数回非表示,19)
						IF 陥落状態() == 2
							PRINTFORM  不要碰%指令部位:0%啊...
						ELSE
							PRINTFORM  呀、不要、不要碰%指令部位:0%...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,19
					ENDIF
				CASE 18
					IF !GETBIT(复数回非表示,18)
						IF 陥落状態() == 2
							PRINTFORM  %指令部位:0%那里、唔...
						ELSE
							PRINTFORM  %指令部位:0%、%指令部位:0%好热...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,18
					ENDIF
				CASE 17
					IF !GETBIT(复数回非表示,17)
						IF 陥落状態() == 2
							PRINTFORM  不要碰我、变态...
						ELSE
							PRINTFORM  这、这、这里...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,17
					ENDIF
				CASE 16
					IF !GETBIT(复数回非表示,16)
						IF 陥落状態() == 2
							PRINTFORM  %キャラ呼称%、不要、停下来啊（雾
						ELSE
							PRINTFORM  %キャラ呼称%、不要啊..
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,16
					ENDIF
				CASE 15
					IF !GETBIT(复数回非表示,15)
						IF 陥落状態() == 2
							PRINTFORM  啊っ、噫っ、噫呀...
						ELSE
							PRINTFORM  啊ん、啊嗯っ、呀啊...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,15
					ENDIF
				CASE 14
					IF !GETBIT(复数回非表示,14)
						IF 陥落状態() == 2
							PRINTFORM  感觉っ、有点不好...
						ELSE
							PRINTFORM  感觉っ、噫、啊ん...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,14
					ENDIF
				CASE 13
					IF !GETBIT(复数回非表示,13)
						IF 陥落状態() == 2
							PRINTFORM  不要、不要再碰我了...
						ELSE
							PRINTFORM  不要、%キャラ呼称%、不行啊...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,13
					ENDIF
				CASE 12
					IF !GETBIT(复数回非表示,12)
						IF 陥落状態() == 2
							PRINTFORM  不要、不要...
						ELSE
							PRINTFORM  不要、不要这样...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,12
					ENDIF
				CASE 11
					IF !GETBIT(复数回非表示,11)
						IF 陥落状態() == 2
							PRINTFORM  唔、呜、这、这个...
						ELSE
							PRINTFORM  唔噫、んきゅ、不要这样啊......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,11
					ENDIF
				CASE 10
					IF !GETBIT(复数回非表示,10)
						IF 陥落状態() == 2
							PRINTFORM  ...已经停不下来了
						ELSE
							PRINTFORM  %キャラ呼称%、不要啊...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,10
					ENDIF
				CASE 9
					IF !GETBIT(复数回非表示,9)
						IF 陥落状態() == 2
							PRINTFORM  所以都说了、不要碰我啦......
						ELSE
							PRINTFORM  %キャラ呼称%，请不要这样...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,9
					ENDIF
				CASE 8
					IF !GETBIT(复数回非表示,8)
						IF 陥落状態() == 2
							PRINTFORM  姆、不要、停手啊......
						ELSE
							PRINTFORM  哈噫、嗯唔......、%キャラ呼称%、请停手吧...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,8
					ENDIF
				CASE 7
					IF !GETBIT(复数回非表示,7)
						IF 陥落状態() == 2
							PRINTFORM  这样也不错嘛、啊嗯...
						ELSE
							PRINTFORM  嗯唔、感觉、不怎么好......
						ENDIF
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,7
					ENDIF
				CASE 6
					IF !GETBIT(复数回非表示,6)
						IF 陥落状態() == 2
							PRINTFORM %指令部位:0%感觉、很不错......
						ELSE
							PRINTFORM  %指令部位:0%感觉、还好......
						ENDIF
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,6
					ENDIF
				CASE 5
					IF !GETBIT(复数回非表示,5)
						IF 陥落状態() == 2
							PRINTFORM  你这个变态、快住手啊...
						ELSE
							PRINTFORM  唔、嗯唔っ、请、不要......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,5
					ENDIF
				CASE 4
					IF !GETBIT(复数回非表示,4)
						IF 陥落状態() == 2
							PRINTFORM ...感觉、不太舒服...
						ELSE
							PRINTFORM 『很舒服啊』、什么、唔啊...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,4
					ENDIF
				CASE 3
					IF !GETBIT(复数回非表示,3)
						IF 陥落状態() == 2
							PRINTFORM  唔っ、嘶っ、哈呼、嗯...
						ELSE
							PRINTFORM  啊嗯っ、噫呀、啾......
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,3
					ENDIF
				CASE 2
					IF !GETBIT(复数回非表示,2)
						IF 陥落状態() == 2
							PRINTFORM  %キャラ呼称% 你这个 变态、色鬼...
						ELSE
							PRINTFORM  %キャラ呼称% 姆、真的是很喜欢H啊
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,2
					ENDIF
				CASE 1
					IF !GETBIT(复数回非表示,1)
						IF 陥落状態() == 2
							PRINTFORM  唔っ、呼、っ嗯唔...
						ELSE
							PRINTFORM  噫啊ん、唔唔...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,1
					ENDIF
				CASE 0
					IF !GETBIT(复数回非表示,0)
						IF 陥落状態() == 2
							PRINTFORM  嗯、嘶唔、呼...
						ELSE
							PRINTFORM  哈呼、呼啊、呀啊...
						ENDIF
						SIF マークタイプcounter == 1 && FLAG:口上色
							SETCOLOR 0xFF0000
						PRINTFORM %マークタイプ%
						RESETCOLOR
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,0
					ENDIF
			ENDSELECT
			SIF FLAG:口上色
				CALLFORM M_KOJO_COLOR_K49
			SIF !ループカッター || ループスペースカット
				CONTINUE
			SIF ループカッター <= 3
				PRINTFORM
			SIF ループカッター == 4
				BREAK
		NEXT
	;非陥落
	ELSE
		FOR ループcounter:2,0,20
			IF !FLAG:口上色
				GETDEFCOLOR
				SETCOLOR RESULT
			ENDIF
			ループスペースカット = 1
			SELECTCASE RAND:20
				CASE 19
					IF !GETBIT(复数回非表示,19)
						PRINTFORM  呼っ、唔っ、啊呼......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,19
					ENDIF
				CASE 18
					IF !GETBIT(复数回非表示,18)
						PRINTFORM  呼啊ん、嗯......感觉、不一样了
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,18
					ENDIF
				CASE 17
					IF !GETBIT(复数回非表示,17)
						PRINTFORM  噫呀、啊嗯っ、不要、唔...
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,17
					ENDIF
				CASE 16
					IF !GETBIT(复数回非表示,16)
						PRINTFORM  噫唔っ、才、没有、感觉很好呢......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,16
					ENDIF
				CASE 15
					IF !GETBIT(复数回非表示,15)
						PRINTFORM  呀啊、真是讨厌...
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,15
					ENDIF
				CASE 14
					IF !GETBIT(复数回非表示,14)
						PRINTFORM  不要、%キャラ呼称%、拜托了......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,14
					ENDIF
				CASE 13
					IF !GETBIT(复数回非表示,13)
						PRINTFORM  噫啊......呜......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,13
					ENDIF
				CASE 12
					IF !GETBIT(复数回非表示,12)
						PRINTFORM  %指令部位:0%、不行......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,12
					ENDIF
				CASE 11
					IF !GETBIT(复数回非表示,11)
						PRINTFORM  %キャラ呼称% 真的是、笨蛋......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,11
					ENDIF
				CASE 10
					IF !GETBIT(复数回非表示,10)
						PRINTFORM  %キャラ呼称%、真讨厌......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,10
					ENDIF
				CASE 9
					IF !GETBIT(复数回非表示,9)
						PRINTFORM  %キャラ呼称%、不要碰%指令部位:0%啊......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,9
					ENDIF
				CASE 8
					IF !GETBIT(复数回非表示,8)
						PRINTFORM  哈噫、嗯唔......、%キャラ呼称%、快停下啊...
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,8
					ENDIF
				CASE 7
					IF !GETBIT(复数回非表示,7)
						PRINTFORM  嗯呜、感觉、好难受......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,7
					ENDIF
				CASE 6
					IF !GETBIT(复数回非表示,6)
						PRINTFORM  %指令部位:0%很舒服......不、不是的......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,6
					ENDIF
				CASE 5
					IF !GETBIT(复数回非表示,5)
						PRINTFORM  呜、嗯唔...不要、请......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,5
					ENDIF
				CASE 4
					IF !GETBIT(复数回非表示,4)
						PRINTFORM  感觉很好、什么的、唔啊ん！
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,4
					ENDIF
				CASE 3
					IF !GETBIT(复数回非表示,3)
						PRINTFORM  啊嗯......噫啊......噗啾......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,3
					ENDIF
				CASE 2
					IF !GETBIT(复数回非表示,2)
						PRINTFORM  %キャラ呼称%、真是Hっ！
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,2
					ENDIF
				CASE 1
					IF !GETBIT(复数回非表示,1)
						PRINTFORM  噫啊......嗯唔......
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,1
					ENDIF
				CASE 0
					IF !GETBIT(复数回非表示,0)
						PRINTFORM  哈呼、呼啊...
						ループスペースカット = 0
						ループカッター += 1
						SETBIT 复数回非表示,0
					ENDIF
			ENDSELECT
			SIF FLAG:口上色
				CALLFORM M_KOJO_COLOR_K49
			SIF !ループカッター || ループスペースカット
				CONTINUE
			IF ループカッター <= 3
				IF !RAND:2
					PRINTFORM 。
				ELSE
					PRINTFORM ！
				ENDIF
			ENDIF
			SIF ループカッター == 4
				BREAK
		NEXT
	ENDIF
	IF !FLAG:口上色
		GETDEFCOLOR
		SETCOLOR RESULT
	ENDIF
	PRINTFORML 」
	SELECTCASE ループＭＡＸ
		;恋人専用
		CASE 3
			SELECTCASE ループcounter:0
				;地の文一行目
				CASE 0
					SELECTCASE RAND:3
						CASE 0
							PRINTFORMDL 觉带着神魂颠倒的表情凝视着%CALLNAME:MASTER%
						CASE 1
							PRINTFORMDL 沉醉在%CALLNAME:MASTER%所给予的快乐中的觉，开心地露出笑容
						CASE 2
							PRINTFORMDL 看到觉那享受的表情、%CALLNAME:MASTER%也露出了笑容
					ENDSELECT
				;地の文二行目
				CASE 1
					SELECTCASE RAND:3
						CASE 0
							PRINTFORMDL 伴随着觉甜美的啼声、%CALLNAME:MASTER%更加激烈地玩弄着%指令部位:1%
						CASE 1
							PRINTFORMDL 看着嘴角垂下口水、撒着娇的觉、笑意更深了的%CALLNAME:MASTER%更加强烈地给予着快感
						CASE 2
							PRINTFORMD %CALLNAME:MASTER%
							IF TEQUIP:50 == MASTER
								PRINTFORMDL 将阴茎捅入了觉的阴道腔
							ELSEIF TEQUIP:MASTER:50 == MASTER
								PRINTFORMDL 把阴茎塞进了觉的肛门里面
							ELSE
								PRINTFORMDL 激烈地刺激着觉的%指令部位:1%
							ENDIF
					ENDSELECT
				;地の文三行目
				CASE 2
					SELECTCASE RAND:3
						CASE 0
							PRINTFORMDL 觉全身都在快乐中颤抖着、发出悦耳的鸣叫，%CALLNAME:MASTER%感受到了莫大的喜悦
						CASE 1
							PRINTFORMDL %CALLNAME:MASTER%紧紧地抱住了享受着快感的觉
						CASE 2
							PRINTFORMDL 看着觉享受着悦乐的样子、%CALLNAME:MASTER%享受着沉浸在快乐中的觉
					ENDSELECT
			ENDSELECT
		;恋慕系or家族時姦後
		CASE 2
			SELECTCASE ループcounter:0
				;地の文一行目
				CASE 0
					IF 陥落状態() == 2
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMDL 尽管眼中流下了喜悦的泪水、觉还是在悔恨地瞪着我
							CASE 1
								PRINTFORMDL 脸上不由得流露出快乐的觉、表情却因愤怒而扭曲着
							CASE 2
								PRINTFORMDL 因快感而大口喘着气的觉、也在不快地皱着眉头
						ENDSELECT
					ELSE
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMDL 虽然嘴上在说着讨厌的话，但自己却在贪图着悦乐
							CASE 1
								PRINTFORMDL 虽然似乎是陶醉在快感之中，嘴上却表现出不乐意的样子
							CASE 2
								PRINTFORMDL 虽然净是在说着些粗暴的话，但觉的表情却显得很开心
						ENDSELECT
					ENDIF
				;地の文二行目
				CASE 1
					IF 陥落状態() == 2
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMDL 听到%CALLNAME:MASTER%表达着快乐的心声、觉背过身去了
							CASE 1
								PRINTFORMDL 嘴上说着抵抗的话、身体却接受了快乐的觉，露出了笑容
							CASE 2
								PRINTFORMDL 拼命忍耐着是不是流露出的甜言蜜语的觉令%CALLNAME:MASTER%感受到了无比的愉悦
						ENDSELECT
					ELSE
						SELECTCASE RAND:3
							CASE 0
								PRINTFORMDL 「心情很愉快吧？」%CALLNAME:MASTER%在心里这样问道、觉无意识地点了点头
							CASE 1
								PRINTFORMDL 听到%CALLNAME:MASTER%说要再做一点、觉涨红了脸
							CASE 2
								PRINTFORMDL 和所说的话相反、觉那贴近的身体表达着她对%CALLNAME:MASTER%无声的请求
						ENDSELECT
					ENDIF
			ENDSELECT
		;その他
		CASE 1
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 觉仿佛在忍耐着什么的样子、让%CALLNAME:MASTER%稍稍感到有些不满
				CASE 1
					PRINTFORMDL 觉好像正充分地享受着%CALLNAME:MASTER%所给予的愉悦的样子
				CASE 2
					PRINTFORMDL 身体因快感而颤抖着的觉、剧烈地摇着脑袋
			ENDSELECT
	ENDSELECT
NEXT
RETURN 1

;-------------------------------------------
;時止め中（日常
;-------------------------------------------
@STOP49
PRINTFORMDL %CALLNAME:MASTER%は、時を止めたまま%STR:0%\@ STR:0 == "胸愛撫" || STR:0 == "肛門愛撫" || STR:0 == "阴蒂愛撫" || STR:0 == "手指挿入" ? を行う #  \@事に、愉悦を覚えた
PRINTFORMDL 解除时停后觉的反应，真是让人期待不已啊...

;-------------------------------------------
;睡眠中（日常
;-------------------------------------------
@SLEEP49
IF TALENT:恋人
	PRINTFORML 「嗯......亲......爱的.........呀啊......呜.........」
ELSE
	PRINTFORML 「呀啊......什么.........真是......没办法......的人.........」
ENDIF
PRINTFORMDW  在睡梦中、带着笑颜的觉小声嘟囔着梦话

;-------------------------------------------
;押し倒され&セクハラコマンド後カウンター
;ARG,0なら押し倒され中、1ならセクハラコマンド後カウンター
;-------------------------------------------
@UFUFUTO49(ARG)
IF !ARG
	IF TALENT:恋人
		PRINTFORMDW  看着觉开心地笑着的样子、%CALLNAME:MASTER%也进行了反击
	ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
		PRINTFORMDW  对着呼呼地开心的笑着的觉、%CALLNAME:MASTER%也轻轻地进行了反击
	ELSEIF GETBIT (CFLAG:1490,0) || GETBIT (CFLAG:1490,1)
		PRINTFORMDW  不愉快地嘟着嘴的觉，随自己的喜好瞪着我
	ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
		PRINTFORMDW  有点害羞的红着脸的觉、为了让心情变好而动了起来
	ENDIF
ELSE
	;指入れ
	IF SELECTCOM == 316
		IF PALAM:1 == 9999
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「嗯、嗯っっ、唔......、不要、那种事、明明是我想做的...」
				CASE 1
					PRINTFORML 「哈呼、嗯唔、『感觉很好吧』？　是哦、不过、是我感觉很好」
				CASE 0
					PRINTFORML 「嗯唔、噫呀！　不、已经、也让我去了、嗯呜...」
			ENDSELECT
		ELSEIF PALAM:1 >= 5000
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「...真是个、嗯呜、讨厌的人、会报仇的、唔啊...！」
				CASE 1
					PRINTFORML 「嗯、唔、真是的、竟然把手指、插进这种地方」
				CASE 0
					PRINTFORML 「哈呼、嗯......不要、不要揉、阴道里面」
			ENDSELECT
		ELSEIF TALENT:恋人
			PRINTFORML 「嗯唔......、%CALLNAME:MASTER%真是Ｈ、在这种地方，手指什么的......」
			PRINTFORML 「『好像很高兴』？　欸......那是、因为那个......」
			PRINTFORML 「所以才这样做的」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORML 「『感觉一定很棒吧』？　我会生气的哦？」
			PRINTFORML 「『明明都已经那样子了』？　......只是，有点不好意思」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			PRINTFORML 「『是想让我揉一揉腔内吗』？　只是，有点想做而已」
		ENDIF
	;クリor秘所愛撫
	ELSEIF SELECTCOM == 315
		IF PALAM:0 == 9999
			IF GETBIT(TALENT:性別,1)
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「嗯っ、还是由我来、不要再玩弄了......唔啊...！」
					CASE 1
						PRINTFORML 「哈啊哈啊......、真是热情呢......、不过、还是由我来做比较好呢」
					CASE 0
						PRINTFORML 「呀啊、不要乱耍流氓哦、请、对我多做一些......」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「呼啊っ......、っ、在这样的地方、请不要、摩擦哪里啊、噫...」
					CASE 1
						PRINTFORML 「呀...、不要、不要不要、要是哪里被那样玩弄的话，会变的糟糕的......」
					CASE 0
						PRINTFORML 「嗯唔、呀、那样的、不要、不要反复揉弄、啊」
				ENDSELECT
			ENDIF
		ELSEIF PALAM:0 >= 5000
			IF GETBIT(TALENT:性別,1)
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「哈啊、哈啊......、嗯っ、おちんちん触らないでください、私がするんですから」
					CASE 1
						PRINTFORML 「いまは、私の番、なんですからぁ、おちんちんから手を離してください」
					CASE 0
						PRINTFORML 「もう、Ｈなんですからぁ、んっおちんちん駄目です」
				ENDSELECT
			ELSE
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「不过、那个、哪里不行。嗯っ、是我的回合了......」
					CASE 1
						PRINTFORML 「唔、生气了哦、因为我在被做这样的事的话」
					CASE 0
						PRINTFORML 「嗯、即使是我、也会有想做的时候，所以不要欺负我哦」
				ENDSELECT
			ENDIF
		ELSEIF TALENT:恋人
			PRINTFORML 「哈呼......、%CALLNAME:MASTER%真的是个令人没办法的人」
			PRINTFORML 「『明明很高兴』？　......欸欸、所以、就是这样」
			PRINTFORML 「是因为%CALLNAME:MASTER%也很开心吧？　不用读心、只从你的笑容就能看出来哦」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORML 「嗯っっ......真是的、%CALLNAME:MASTER%真是个讨厌的人」
			PRINTFORML 「在我做的时候、嗯、还是希望不要揉那种地方...」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			PRINTFORML 「『舒服吗』？　欸欸、所以说、我也会那样回报你的」
		ENDIF
	;アナル愛撫
	ELSEIF SELECTCOM == 314
		IF PALAM:2 == 9999
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「哈噫、呀啊、我不喜欢肛门哪里被...」
				CASE 1
					PRINTFORML 「呀啊、后面...真是坏心眼啊，明明都说了不要了...」
				CASE 0
					PRINTFORML 「尻穴、不要、请放过我吧、我还不想......」
			ENDSELECT
		ELSEIF PALAM:2 >= 5000
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「嗯......！　请、不要！　我、该要休息了...」
				CASE 1
					PRINTFORML 「请、不要、玩弄我的屁股啊——！」（
					PRINTFORML 「你啊、这么喜欢欺负我吗——？」;（是的哟/笑）
				CASE 0
					PRINTFORML 「好讨厌那样、嗯...、姆、请也多少考虑一下、我的想法......」
			ENDSELECT
		ELSEIF TALENT:恋人
			PRINTFORML 「%CALLNAME:MASTER%真是、笨蛋......、哈呼......不要玩弄我的屁股了啊」
			PRINTFORM 「『感觉很舒服吗』？
			IF ABL:Ａ感覚 <= 1
				PRINTFORM ......一点也不啊
			ELSEIF ABL:Ａ感覚 <= 3
				PRINTFORM ......那种感觉、也不坏就是了
			ELSE
				PRINTFORM ......因为感觉太舒服了嘛
			ENDIF
			PRINTFORML 」
			PRINTFORML 「不过、现在轮到我了、嗯、所以、手指请不要动了哦」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORM 「『尻穴来感觉了的变态』？
			IF ABL:Ａ感覚 <= 1
				PRINTFORM ...感觉只有不好而已
			ELSEIF ABL:Ａ感覚 <= 3
				PRINTFORM ...感觉不太好哦
			ELSE
				PRINTFORM 感觉好、什么的、噫っ！
			ENDIF
			PRINTFORML 」
			PRINTFORML 「...现在、轮到我了哦、手指不要动、嗯...」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			IF ABL:Ａ感覚 <= 1
				PRINTFORML 「『屁股之间摩擦起来感觉很棒』？　......哈啊、明明是在对我做这样的事、真是个过分的人啊」
			ELSEIF ABL:Ａ感覚 <= 3
				PRINTFORML 「『不好好放松的话不会很痛苦吗』？　......变态。现在轮到我了哦」
			ELSE
				PRINTFORML 「『尻穴、要、张开了』？　哈......呼......明明是在对我做着、那样的事...」
			ENDIF
		ENDIF
	;胸愛撫
	ELSEIF SELECTCOM == 313
		IF PALAM:3 == 9999
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「哈啊哈啊、嗯......胸部、好热......、不过、我也、想要做......」
				CASE 1
					PRINTFORML 「哈呼、唔......呀、不停地......、哈呼......不过不过、也该要让我做了吧......」
				CASE 0
					PRINTFORML 「不要、钻进来啊、所以说老实一点啊、嗯唔...」
			ENDSELECT
		ELSEIF PALAM:3 >= 5000
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「真的是、好棒啊、唔啊...！　我、想要、更多......」
				CASE 1
					PRINTFORML 「明明、在用手对我...啾嗯...！......、『好可爱的声音』？　吵死了(无路赛)...!」
				CASE 0
					PRINTFORML 「哈呼......、所以、为什么、我会做这样的事、唔......」
			ENDSELECT
		ELSEIF TALENT:恋人
			PRINTFORML 「亲爱的？　如此渴望着摸一摸、我的胸部吗？」
			PRINTFORML 「『摸起来很舒服』？　......哈啊、那么我也想玩弄一下%CALLNAME:MASTER%、可以吗？」
			PRINTFORML 「『随你的便』？　那我就随意了～」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORML 「哈呼......、嗯......那么喜欢胸部吗？　『绝对是非常喜欢的』？」
			PRINTFORML 「...哈啊、那就随你的便吧。不过我可也要'随便'了哟～」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			PRINTFORML 「『胸部最棒了』？　呼呼、那样说我倒没有觉得有什么不好、不过该轮到我做些什么了哦」
		ENDIF
	;キス
	ELSEIF SELECTCOM == 312
		PRINTFORM 觉
		IF TCVAR:20 > 0 && TCVAR:20 < 10
			PRINTFORML 稍稍起身、又重重地吻了上来
		ELSEIF TCVAR:20 > 10 && TCVAR:20 < 20
			PRINTFORML 稍稍说了些客气的话、但还是忍不住把脸凑过来了
		ELSEIF TCVAR:20 > 19 && TCVAR:20 < 30
			PRINTFORML 紧紧地用手臂搂着%CALLNAME:MASTER%的脖子，拼命地吻了上来
		ENDIF
		PRINTL
		SIF FLAG:口上色
			CALLFORM M_KOJO_COLOR_K49
		IF TALENT:恋人
			PRINTFORML 「啾......叽、啾......%CALLNAME:MASTER%、更多、啾噗......」
			PRINTFORML 「『那么喜欢接吻吗』？　欸，是的、非常喜欢哟、啾、啾...啾唔......」
			PRINTFORML 「不过、在那之前、咯啾ぱ、啾、啾る」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORML 「啾、啾っ......、更多的、吻、啾......咯......嗯...」
			PRINTFORML 「呼呼、%CALLNAME:MASTER%的嘴唇真是美味啊、啾...啾...」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			PRINTFORML 「啊、可不能、逃走哦、啾噗......啾唔、啾...」
		ENDIF
	;尻撫で
	ELSEIF SELECTCOM == 310
		SELECTCASE TFLAG:193
			CASE 2,3
				PRINTFORML 「哈啊、手不要再作怪了啊，再不停下来我可要生气了哟」
			CASE 4
				IF TALENT:恋人
					PRINTFORML 「哈呼、嗯......、抚摸屁股的话、很舒服...」
					PRINTFORML 「『那就做更多吧』？　呼呼......、不过、我也有点想做呢」
					PRINTFORML 「%CALLNAME:MASTER%、只是想着对我来做、就有感觉了吧？　嘻嘻」
				ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
					PRINTFORML 「真讨厌......、已经、我已经想做了、为什么还在揉呢？」
					PRINTFORML 「『想听到觉可爱的声音』？　姆、真是个难办的人」
				ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
					PRINTFORML 「啊呼、嗯......因为我也有点想做了、所以还请老实一点哦，嗯...」
				ENDIF
		ENDSELECT
	;スカートめくり
	ELSEIF SELECTCOM == 330
		IF TALENT:恋人
			PRINTFORML 「哈啊、%CALLNAME:MASTER%如果也被做这么丢脸的事就好了」
			PRINTFORML 「『被觉这样批评也只是褒奖而已』？　......变态」
			PRINTFORML 「不过、不能讨厌这样的%CALLNAME:MASTER%，还真让我困扰呢」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORML 「『被看到会很开心吧』？　才没有那样的事」
			PRINTFORML 「现在可是我被做了这样的事啊，不要这样说了吧」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			PRINTFORML 「真是的、做了这样的事、自己却不想被报复的话可不行啊～」
		ENDIF
	;抱きつき
	ELSE
		IF TALENT:恋人
			PRINTFORML 「姆、%CALLNAME:MASTER%真是个没办法的人啊」
			PRINTFORML 「『觉的拥抱到底是心情好还是不好的意思呢』？　不过、我也很想对%CALLNAME:MASTER%做这样那样的事情就是了～」
			PRINTFORML 「所以现在、请乖乖地呆在我身边吧～」
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORML 「能这样拥抱着我是很开心啦，不过，%CALLNAME:MASTER%是不是在想些什么不好的事情呢～？」
			PRINTFORML 「『乖乖抱紧我就好了』？　哎呀哎呀、我只是想让%CALLNAME:MASTER%开心一下嘛～」
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕)
			PRINTFORML 「哈啊、一直这样也很累的吧，稍微放松一下手臂什么的吧」
		ENDIF
	ENDIF
ENDIF

;-------------------------------------------
;ペットが同じ部屋にいる際の一行地の文追加
;ARG,0なら通常、1ならセクハラ
;-------------------------------------------
@PET49(ARG)
RESETCOLOR
	DRAWLINE
IF FLAG:70
	PRINTFORMD %ANIMALNAME()%
	IF GROUPMATCH(TIME:2,1,6,7)
		PRINTFORMD 就这样睡着了
	ELSE
		PRINTFORMD 开始活动起身体
	ENDIF
	PRINTFORMDL 、被困在了停止的时间里。
ELSEIF ARG == 1
	IF GROUPMATCH(TIME:2,1,6,7)
		PRINTFORMD 见到沉睡着的%ANIMALNAME()%
		IF TALENT:恋人
			PRINTFORMDL 觉看的有些出神
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORMDL 觉开心地露出了笑容
		ELSEIF GETBIT (CFLAG:1490,0)
			PRINTFORMDL 觉生气的瞪着%CALLNAME:MASTER%
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕) && !GETBIT (CFLAG:1490,1)
			PRINTFORMDL 觉有些为难的笑着
		ELSE
			PRINTFORMDL 觉焦急地瞪了%CALLNAME:MASTER%一眼
		ENDIF
	ELSE
		IF TALENT:恋人
			PRINTFORMDL 见到脸上带着朦胧的笑容的觉、%ANIMALNAME()%不满地喘着气
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			PRINTFORMDL 看到觉恍恍惚惚的样子、%ANIMALNAME()%不可思议地看着%CALLNAME:MASTER%
		ELSEIF GETBIT (CFLAG:1490,0)
			PRINTFORMDL 看到觉焦躁不安的样子、%ANIMALNAME()%龇牙咧嘴的恐吓着%CALLNAME:MASTER%
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕) && !GETBIT (CFLAG:1490,1)
			PRINTFORMDL 看到觉显得很高兴的样子、%ANIMALNAME()%表现得有点困惑
		ELSE
			PRINTFORMDL 见到了不高兴的觉、%ANIMALNAME()%呜呜地呻吟着
		ENDIF
	ENDIF
ELSE
	IF GROUPMATCH(TIME:2,1,6,7)
		IF TALENT:恋人
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMDL 觉温柔地注视着%ANIMALNAME()%的睡姿、然后又出神地看向%CALLNAME:MASTER%
				CASE 1
					PRINTFORMDL 轻轻地碰了碰沉睡着的%ANIMALNAME()%、觉水润的眼睛热情地看向了%CALLNAME:MASTER%
			ENDSELECT
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMDL 觉凝视着沉睡中的%ANIMALNAME()%	、向着%CALLNAME:MASTER%笑了笑
				CASE 1
					PRINTFORMDL 向着%ANIMALNAME()%的睡姿露出笑容的觉、也向%CALLNAME:MASTER%露出了同样的笑容
			ENDSELECT
		ELSEIF GETBIT (CFLAG:1490,0)
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMDL 温柔的看着%ANIMALNAME()%的睡脸的觉、紧皱着眉头看向了这边
				CASE 1
					PRINTFORMDL 对躺着的%ANIMALNAME()%微笑着的觉、一看到这边就皱起了眉头
			ENDSELECT
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕) && !GETBIT (CFLAG:1490,1)
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMDL 觉对睡着的%ANIMALNAME()%微笑着、露出了柔和的表情
				CASE 1
					PRINTFORMDL 轻轻地抚摸着躺着的%ANIMALNAME()%を的时候、覚露出了笑容
			ENDSELECT
		ELSE
			SELECTCASE RAND:2
				CASE 0
					PRINTFORMDL 觉在对躺着的%ANIMALNAME()%笑了笑之后、看向这边的表情一下子就冷了下来
				CASE 1
					PRINTFORMDL 觉温柔地盯着%ANIMALNAME()%的样子、%CALLNAME:MASTER%看得有些入迷
			ENDSELECT
		ENDIF
	ELSE
		IF TALENT:恋人
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 在听着%ANIMALNAME()%讲话的时候、觉朝着%CALLNAME:MASTER%笑了笑
				CASE 1
					PRINTFORMDL 大概是察觉到了觉的热情、%ANIMALNAME()%不满的呻吟着
				CASE 2
					PRINTFORMDL 在%ANIMALNAME()%似乎睡着了的时候，觉对%CALLNAME:MASTER%微笑着
			ENDSELECT
		ELSEIF TALENT:恋慕 || TALENT:184 || TALENT:185
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 在陪着%ANIMALNAME()%的时候，觉朝着%CALLNAME:MASTER%笑了笑
				CASE 1
					PRINTFORMDL 在%ANIMALNAME()%的催促下、露出了苦笑的觉、将视线投向了%CALLNAME:MASTER%
				CASE 2
					PRINTFORMDL 在抚摸着%ANIMALNAME()%的时候、觉带着出神的表情望向这边
			ENDSELECT
		ELSEIF GETBIT (CFLAG:1490,0)
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 露出了焦躁表情的觉、随着温柔地抚摸着%ANIMALNAME()%而慢慢地安心下来
				CASE 1
					PRINTFORMDL 觉带着冷淡的表情望着%CALLNAME:MASTER%、%ANIMALNAME()%好像看到了什么不可思议的事情一样
				CASE 2
					PRINTFORMDL 像是为了保护%ANIMALNAME()%一样、觉赤裸裸地站了起来
			ENDSELECT
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕) && !GETBIT (CFLAG:1490,1)
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 觉开心地享受着与%ANIMALNAME()%共处的时光上、也有在偷偷看着这边
				CASE 1
					PRINTFORMDL 朝着%CALLNAME:MASTER%温柔的微笑的时候、觉也在抚摸着%ANIMALNAME()%
				CASE 2
					PRINTFORMDL 温柔地抚摸着%ANIMALNAME()%、觉面露柔和的表情
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
				CASE 0
					PRINTFORMDL 觉似乎更想享受与%ANIMALNAME()%共处的时光、%CALLNAME:MASTER%被忽视了
				CASE 1
					PRINTFORMDL 抚摸着%ANIMALNAME()%的觉，带着奇怪的表情看向了这边
				CASE 2
					PRINTFORMDL 再%ANIMALNAME()%偷偷看了过来的的时候、觉也投来了冰冷的视线
			ENDSELECT
		ENDIF
	ENDIF
ENDIF
;-------------------------------------------
;怨霊が同じ場所にいる際の一行地の文追加
;-------------------------------------------
@ONRYO49()
RESETCOLOR
	DRAWLINE
PRINTFORMD 怨灵察觉到觉的气息、
SELECTCASE RAND:5
	CASE 4
		PRINTFORMDL 慌慌张张张地散去了
	CASE 3
		PRINTFORMDL 像是没感觉到一样。漫不经心的四处飘着
	CASE 2
		PRINTFORMDL 停止了动作
	CASE 1
		PRINTFORMDL 慢慢悠悠地靠了过来
	CASE 0
		PRINTFORMDL 四散而去，全都完全不想靠近这里的样子
ENDSELECT

;-------------------------------------------
;陥落状態の指定
;ARGを入力しなければ、TARGET入力
;-------------------------------------------
@陥落状態(ARG)
#FUNCTION
SIF !ARG
	ARG = TARGET
IF TALENT:ARG:恋人
	IF CFLAG:(CFLAG:清い交際 && ARG == 49) || ARG != 49
		RETURNF 5
	ELSE
		RETURNF 4
	ENDIF
ELSEIF MARK:49:反発刻印 >= 3
	RETURNF 2
ELSEIF TALENT:ARG:恋慕 || TALENT:ARG:愛欲 || TALENT:ARG:炮友
	RETURNF 3
ELSEIF (ARG == 49 && GETBIT (CFLAG:ARG:1490,0)) || ((GETBIT (CFLAG:ARG:1 ,0) && ARG == 61));61是妹红，这个作者大概也是妹红作者，在那边挪用了一下
	RETURNF 2
ELSEIF ((GETBIT (CFLAG:ARG:1 ,0) && ARG != 61) || TALENT:ARG:思慕) && ((!GETBIT (CFLAG:ARG:1490,1) && ARG == 49) || ARG != 49)
	RETURNF 1
ENDIF

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【49】さとり(23.11.26)/M_KOJO_K49_コマンド自動喘ぎ.ERB

license: unknown


code:
;-------------------------------------------
;よっぱらいもーど
;-------------------------------------------
@DRUNKER49(ARG,ARG:1)
	SIF FLAG:口上色
		CALLFORM M_KOJO_COLOR_K49
IF (BASE:酒気 > (MAXBASE:酒気 / 10) * 6)
	IF !ARG
		IF 陥落状態() >= 4
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「呼，喝多了啊，摇摇、晃晃的——」
				CASE 1
					PRINTFORML 「唔，我的话，能不能稍微懂一点呢......」
				CASE 0
					PRINTFORML 「啊，啊哈哈，你好，啊、哈哈...」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  脸涨得通红、表现得异常开心的觉不知怎么了...
				CASE 0
					PRINTFORMDW  把身体交给了%CALLNAME:MASTER%的醉酒的觉，突然露出了奇怪的笑容
			ENDSELECT
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「我、来陪你H吧、我最擅长、明目张胆的...」
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%，想让我、帮你弄吗、那个、算不了什么哦——」
				CASE 0
					PRINTFORML 「诶嘿嘿、%CALLNAME:MASTER% 、我要——现在开始、H吧..?」
			ENDSELECT
			IF GET_TARGETNUM() >= 2
				SELECTCASE RAND:2
					CASE 1
						PRINTFORMDW  当脱着衣服的觉说出这样的话时，周围的视线都开始冷淡起来...
					CASE 0
						PRINTFORMDW  忍住了怒涛般的吐槽，背后冒出了冷汗
				ENDSELECT
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「大家好，要好好地、在一起哦、呼呼、诶嘿嘿、呼呼ふ......」
					CASE 1
						PRINTFORML 「呼，你讨厌我吗？呼呼，可以给周围的人，看一下——」
					CASE 0
						PRINTFORML 「嗯，嗯，呵呵，大家、真的都很想看呢——..所以，H——吧？」
				ENDSELECT
			ELSE
				SELECTCASE RAND:2
					CASE 1
						PRINTFORMDW  慌慌张张地阻止了正在脱衣服的觉...
					CASE 0
						PRINTFORMDW  设法按住了这边想要往秘处伸去的手
				ENDSELECT
				SELECTCASE RAND:3
					CASE 2
						PRINTFORML 「真是的一一一一一，你是怎么搞的——」
					CASE 1
						PRINTFORML 「呼，你讨厌我吗？　呼呼、明明——，我的、小穴，唔、当做酒杯来——」
					CASE 0
						PRINTFORML 「诶嘿嘿、%CALLNAME:MASTER%也很温柔呢——」
				ENDSELECT
			ENDIF
			SELECTCASE RAND:2
					CASE 1
					PRINTFORMDW  总之，总算是控制住了觉
				CASE 0
					PRINTFORMDW  深深的叹了一口气、先帮她把衣服穿好了
			ENDSELECT
		ELSEIF 陥落状態() == 3
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「姆、打算这么着急的、做些什么呀——」
				CASE 1
					PRINTFORML 「轻飘飘、轻飘飘的、呼呼、诶嘿嘿、这样的感觉——」
				CASE 0
					PRINTFORML 「啊哈哈、这样不是、也很好嘛ー、啊哈哈哈哈——」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  觉那与平常大相径庭的笑容，令%CALLNAME:MASTER%直冒冷汗。是不是让她喝多了呢...
				CASE 0
					PRINTFORMDW  看着笑得如此开心的觉、%CALLNAME:MASTER%好好想了一会该怎么办...
			ENDSELECT
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「如果是做一些H的事情那就好了哟、啊哈哈——」
				CASE 1
					PRINTFORML 「诶嘿嘿呼呼、Ｈ——怎么样呢？」
				CASE 0
					PRINTFORML 「呼呼、难道不想做、H——的事情吗～？」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  轻轻地抚摸着笑着靠过来觉的头，%CALLNAME:MASTER%叹了一口气。
				CASE 0
					PRINTFORMDL  如果对方醉醺醺的不就没什么乐趣了嘛...
					PRINTFORMDW  觉好像读到了%CALLNAME:MASTER%内心这样的想法的样子，鼓起了脸颊
			ENDSELECT
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕) && !GETBIT (CFLAG:1490,1)
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「呼啊ー、喝多了、要喝、喝的太多了ー」
				CASE 1
					PRINTFORML 「啊ー、要试试看ー看吗、全都、会给你看的哦——」
				CASE 0
					PRINTFORML 「呼呼、呼呼ふ、胸部那里——变得好热啊、不是吗？　好ー的——」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  就在觉开心地笑着脱下衣服的时候，%CALLNAME:MASTER%苦笑着阻止了她。
				CASE 0
					PRINTFORMDW  觉开心地笑着、把脱下的衣服扔向一旁，%CALLNAME:MASTER%无可奈何地重新给她穿上了
			ENDSELECT
		ENDIF
	;SPイベント
	;デート帰りキス
	ELSEIF ARG == 10
		PRINTFORML 「...啾......呼呼、直到黄昏呢...」
		PRINTFORMDL 看着突然抱住、然后夺走了自己的嘴唇的觉那开心的笑脸、%CALLNAME:MASTER%一句话也说不出口
		PRINTFORML 「哟呼、接吻、初次见面、唷呼呼——」
		PRINTFORMDL 觉开心的面容逐渐放松了下来
		PRINTFORML 「唔，好烫......与其这样消磨时间，不如回去好好休息吧——」
		PRINTFORML 「呼呼、多多保重哦ー」
		PRINTFORML 「啊、那个，如果不想被嘲笑的话，下次也请准时到哦——」
		PRINTFORMDL 说完这句话，我们再次相吻.
	;デート帰り告白
	ELSEIF ARG == 11
		PRINTFORML 「哇诶、难到就只是这样带着我到处乱跑吗—」
		PRINTFORMDL 在归去的途中、自言自语着的觉一直在盯着%CALLNAME:MASTER%
		PRINTFORML 「『一时兴起』欸？　怎么这样子——啊...」
		PRINTFORMDL 嘟起嘴唇的觉，慌忙移开了视线
		PRINTFORML 「我...我想和%CALLNAME:MASTER%在一起...」
		PRINTFORML 「不要再这样一时兴起啦..」
		PRINTFORML 「唔欸、我喜欢你、%CALLNAME:MASTER%、又、又是怎么想的呢？」
	;デート帰り告白受け入れ
	ELSEIF ARG == 12
		PRINTFORML 「...呼呼、唷呼呼ふ......、最喜欢你了哟——」
		PRINTFORMDL 接受吗？　在心里这么想着的时候、开心地放松了下来的觉抱了过来
		PRINTFORML 「能接受我、我很高兴哟一谢——谢...」
		PRINTFORMDL 还没有想好要接受啊...即使想那样说...
		PRINTFORML 「不——行哟、如果不答应的话ー、%CALLNAME:MASTER%就是骗人的了唷——」
		PRINTFORMDL 突然开始那样说了的觉、令%CALLNAME:MASTER%露出了苦笑
		PRINTFORML 「『这不是强迫了吗』？　是—的哟、呼呼、可不能拒绝我哦、你啊」
		PRINTFORMDL 看着呼呼笑着的觉、心里在想这样也还不错时、嘴唇突然被吻住了
	;デート帰り告白拒否
	ELSEIF ARG == 13
		PRINTFORMDL 暂且还不打算接受...在将这样的话说出口之前，觉的眼眶已经红了起来
		PRINTFORML 「讨厌......」
		PRINTFORMDL  喃喃自语着的觉、眼角涌出了泪水
		PRINTFORML 「哇——！　我明明ー！　你就不能接受了嘛ー！！」
		PRINTFORMDL  觉一屁股坐在地上、如同小孩子一样哭了起来
		PRINTFORML 「一次一次的、和我一起、明明是ー」
		PRINTFORML 「呜呜、讨厌、讨厌死了ー！」
		PRINTFORMDL  看着这样哇哇大哭着的觉、%CALLNAME:MASTER%轻轻叹了一口气，也坐在了一旁
		PRINTFORML 「哇ー呜！？」
		PRINTFORMDL  觉吃惊得连泪水都停下来了
		PRINTFORMDL  %CALLNAME:MASTER%温柔地抱着觉，轻轻地抚摸着她的头
		PRINTFORML 「欸、欸唔？」
		PRINTFORMDL  %CALLNAME:MASTER%什么都没有想、就这样继续着，觉也一声不吭的任凭摆布着
	;デート帰り
	ELSEIF ARG == 14
		IF 陥落状態() >= 4
			PRINTFORML 「今天就这样结束了吗、%MASTERNAME:49%？」
			PRINTFORMDL 不知为何开心的翘起嘴角、缠着%CALLNAME:MASTER%的手臂的觉凝视着%CALLNAME:MASTER%
			PRINTFORML 「呼呼,%MASTERNAME:49%、不好意思ー」
			PRINTFORMD ......在那只手上，放着
			SELECTCASE RAND:5
				CASE 4
					PRINTFORMD 一座发光的宝塔
				CASE 3
					PRINTFORMD 一根锋利的枪
				CASE 2
					PRINTFORMD 一枚发饰
				CASE 1
					PRINTFORMD 一件虎皮的腰围
				CASE 0
					PRINTFORMD 一条长长的白布
			ENDSELECT
			PRINTFORMDL 注意到了这个的%CALLNAME:MASTER%微微歪着头..
			PRINTFORML 「『那是什么啊』？　阿嘞？　为什么要带这样的东西呢？」
			PRINTFORMDL 这样说的时候，从微笑着的觉的背后见到了跑来的纳兹琳的身影
		ELSEIF 陥落状態() == 3
			PRINTFORML 「嗯ー、也是要稍微打个招呼吧—」
			PRINTFORMDL 见到这样说着抱怨的话的觉、%CALLNAME:MASTER%走过去摸了摸她的头
			PRINTFORML 「嗯、呼呼、%CALLNAME:MASTER%还是很温柔的嘛—」
			PRINTFORMDL 窃笑着的觉、搂住了%CALLNAME:MASTER%的肩膀
		ELSE
			PRINTFORML 「呼呼、这ー样ー也不错嘛ー」
			PRINTFORMDL 觉开心地笑着、ら%CALLNAME:MASTER%轻轻地抱住她走了几步
		ENDIF
	;反発刻印消去&低下
	ELSEIF ARG == 15
		IF 陥落状態() >= 4
			PRINTFORML 「...啊、......生气也是一种不幸呢......」
			PRINTFORMDL 嘟起嘴的觉，鼓起脸颊看着%CALLNAME:MASTER%
			PRINTFORML 「请给我好好反思一下做了什ー么ー啊ー！」
			PRINTFORMDL 这样鼓起脸颊的样子也很可爱、那样说的瞬间、被狠狠地打了一下
			PRINTFORML 「我ー是被骗了嘛？　真没办法」
			PRINTFORMDL 刚这么说完、觉就抱着%CALLNAME:MASTER%吻了起来...
			PRINTFORMDL ...但是、酒味真的很浓啊...
		ELSEIF 陥落状態() == 3
			PRINTFORML 「这可真是不容易呢——」
			PRINTFORMDL 撅起嘴唇的觉一直在盯着%CALLNAME:MASTER%
			PRINTFORML 「...请不要再惹我生气了哦」
			PRINTFORMDL 这样抱怨着的时候，放松下来了
		ELSE
			PRINTFORML 「哈ー、本来就很为难......、哈啊......」
			PRINTFORMDL 深深地叹了一口气的觉、缠住了%CALLNAME:MASTER%的手
		ENDIF
	;遭遇イベント
	;さとりのいるところにMASTERが入っていった
	ELSEIF ARG == 20
		IF 陥落状態() >= 4
			PRINTFORML 「啊ー、怎么在这里呢ー」
			PRINTFORMDL 扑哧一笑，觉跑过来抱住了%CALLNAME:MASTER%
			PRINTFORML 「姆ー、你这个大色鬼—」
			PRINTFORMDL 刚一走到向%CALLNAME:MASTER%招着手的觉的身边，%CALLNAME:MASTER%就被觉抱住了
			PRINTFORML 「诶嘿嘿、最喜欢%MASTERNAME:49%了」
			PRINTFORMDL 看着开心地笑着的觉、心里想着，要是平时也这样不就好了吗......结果被掐了一下
		ELSEIF 陥落状態() == 3
			PRINTFORML 「找ー到了、呼呼、诶嘿嘿、呼呼～」
			PRINTFORMDL 开心地笑着的觉靠了过来，与%CALLNAME:MASTER%的嘴唇相叠
			PRINTFORML 「『有酒味』？　难道%CALLNAME:MASTER%、很讨厌嘛？啊哈哈——」
			PRINTFORMDL %CALLNAME:MASTER%轻轻地摸了摸开心地笑着的觉的头
		ELSE
			PRINTFORML 「阿拉，这么着急的、想要逃跑一般的样子、是怎么回事啊——」
			PRINTFORMDL 应觉的招手而走了过去，结果突然被拥抱并接吻了...
		ENDIF
	;MASTERのいるところにさとりが入ってきた
	ELSEIF ARG == 21
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:49%啊、在这里、在做什—么呢—？」
			PRINTFORMDL 迈着摇摇晃晃的步伐，觉朝着%CALLNAME:MASTER%这边走来
			PRINTFORML 「诶嘿嘿、你ー好ー呀、%MASTERNAME:49%ー大人」
			PRINTFORMDL 开心地笑着的觉，抱住了%CALLNAME:MASTER%的脸颊，贴了过来..
			PRINTFORML 「『丢脸ー』？　嘿ー、%MASTERNAME:49%ー竟然、也会有这、这么想的时候吗ー」
			PRINTFORMDL 觉这样的话、还有口中吐出的酒气，不禁令%CALLNAME:MASTER%露出苦笑..
		ELSEIF 陥落状態() == 3
			PRINTFORML 「呼呼、发ー现ー了」
			PRINTFORMDL 踉踉跄跄的觉刚一走过来、就紧紧地抱住了%CALLNAME:MASTER%
			PRINTFORML 「んーー、啾......呼呼ー，多ー谢款待——」
			PRINTFORMDL 觉这个酒味十足的吻令%CALLNAME:MASTER%只得苦笑...
		ELSE
			PRINTFORML 「啊ー在这里ー、不要急着逃走嘛ー」
			PRINTFORMDL 摇摇晃晃地走近的觉，紧紧抓住了%CALLNAME:MASTER%的手臂
		ENDIF
	;さとりが風呂に入ってきた
	ELSEIF ARG == 22
		IF 陥落状態() >= 4
			PRINTFORML 「嗯哼、啊、%MASTERNAME:49%」
			PRINTFORMDL 喝醉了后进浴室很危险吧、正这样想着的%CALLNAME:MASTER%，发现觉正在一动不动的盯着自己
			PRINTFORML 「%MASTERNAME:49%ー也在吗，诶嘿嘿唷ー我要进来咯ー」
			PRINTFORMDL 觉用含糊不清的语气嘟囔着，我慌忙接住了倒下的她
			PRINTFORML 「呼呼、%MASTERNAME:49%的味道真ー不错啊」
			PRINTFORMDL 那样说着的觉、把脸埋进股间深呼吸了几下
		ELSEIF 陥落状態() == 3
			PRINTFORML 「欸～怎么会在这里呢？」
			PRINTFORMDL 带着不可思议的神情嘟囔着的觉、就这样穿着内衣踏进了浴池
			PRINTFORML 「呼呼、原来是%CALLNAME:MASTER%啊ー」
			PRINTFORMDL 看到时停后、把内衣脱下来扔进更衣篮里的%CALLNAME:MASTER%，觉笑了
		ELSE
			PRINTFORML 「啊ー、有什么事吗ー」
			PRINTFORMDL 说着这样不可思议的话的同时、觉进入了浴室
		ENDIF
	;さとりが風呂に入って来てすぐ出て行った(恋慕以上は出ない筈
	ELSEIF ARG == 23
			PRINTFORML 「嗯ー、明天见ー」
			PRINTFORMDL 不意间目送了踉踉跄跄的觉离去了
	;さとりが風呂に入って来てMASTERが追い出された
	ELSEIF ARG == 24
			PRINTFORML 「从哪里进来的，还请从哪里出去吧——」
			PRINTFORMDL 在觉湿润的视线下，%CALLNAME:MASTER%冒着冷汗离开了浴室
	;さとりと外出先で出会った
	ELSEIF ARG == 25
		IF 陥落状態() >= 4
			PRINTFORML 「哎呀呀，%MASTERNAME:49%很奇怪呢」
			PRINTFORMDL 红着脸的觉目不转睛地盯着%CALLNAME:MASTER%
			PRINTFORML 「明明已经做了那样的事、」
			PRINTFORMDL 尽管觉嘟起了嘴唇、但看起来还是很开心...
			PRINTFORML 「『真是缠人啊』？　唷呼呼、正ー好、我可是%MASTERNAME:49%的恋ー人ー呢～」
			PRINTFORMDL 刚一这么说完，觉就紧紧地抱住了%CALLNAME:MASTER%
		ELSEIF 陥落状態() == 3
			PRINTFORML 「姆ー这么着急干什么啊ー」
			PRINTFORMDL 嘟起嘴唇的觉摇摇晃晃地靠近了过来
			PRINTFORML 「真棒啊ー」
			PRINTFORMDL 就这样倒下了的觉、突然开始抚摸着这边的股间
		ELSE
			PRINTFORML 「居然在这里吗ー」
			PRINTFORMDL 扑哧笑着的觉，朝%CALLNAME:MASTER%走了过来
		ENDIF
	;他キャラとデート中にさとりと出会った
	ELSEIF ARG == 26
		IF 陥落状態() >= 4
			PRINTFORML 「%MASTERNAME:49%吗？　居然在和别的女孩子、出来玩吗？」
			PRINTFORMDL 慢悠悠地靠近过来的觉、突然吻住了%CALLNAME:MASTER%，并把舌头送了过来...
			PRINTFORML 「嗯ー...啾嗯...因为觉得会挨骂、所以不太喜欢吗？呼呼～」
			PRINTFORMDL %CALLNAME:(ARG:1)%露出一副想说些什么的样子
			PRINTFORML 「『不喜欢这样』？　是因为我太漂亮了的错吗～？」
			PRINTFORMDL 好不容易总算拉住了总想往秘处摸去的觉的手...
		ELSEIF 陥落状態() == 3
			PRINTFORML 「对我做了那样的事，怎么能转头去和别的女孩子约会呢—」
			PRINTFORMDL 看到觉红着脸盯着%CALLNAME:MASTER%的样子、%CALLNAME:(ARG:1)%露出了很新奇的表情
			PRINTFORM 「「
			IF ARG:1 == 38
				PRINTFORM 姐姐
			ELSEIF ARG:1 ==36 || ARG:1 ==37
				PRINTFORM 原来觉大人
			ELSE
				PRINTFORM 觉
			ENDIF
			PRINTFORM 也会撒娇的吗
			IF ARG:1 ==36 || ARG:1 ==37 || ARG:1 == 38
				PRINTFORM 也会撒娇
			ELSE
				PRINTFORM 居然会这样吗
			ENDIF
			PRINTFORML 」？　不要这样说啦」
			PRINTFORMDL 羞愧的转过脸去的觉、偷偷看了一眼%CALLNAME:(ARG:1)%
		ELSE
			PRINTFORML 「居然把我放在一边、跑去和别的女孩子约会了吗？」
			PRINTFORMDL %CALLNAME:(ARG:1)%用怀疑的目光看向了一动不动地盯着%CALLNAME:MASTER%的觉
		ENDIF
	;お休みイベント(地底以外非住み込みは帰宅口上行き
	;さとり住み込み中かつ部屋は別（非衰弱
	ELSEIF ARG == 30
		IF 陥落状態() >= 4
			PRINTFORML 「呼啊、时间要到了呢—」
			PRINTFORMDL 突然，觉站起身来
			PRINTFORML 「被%MASTERNAME:49%知道了呢—」
			PRINTFORMDL 听了那样的话，%CALLNAME:MASTER%回答说如果在意的话，也只要轻轻挥手就好了..
			PRINTFORML 「姆ー、真是的——」
			PRINTFORMDL 嘟起嘴唇的觉，迈着蹒跚的步伐走了出去
		ELSEIF 陥落状態() == 3
			PRINTFORML 「ん、那可真是—」
			PRINTFORMDL 刚这样一说完，就突然跌倒了
			PRINTFORML 「ん、诶嘿嘿、我很高兴—哦—」
			PRINTFORMDL 灿烂地笑着的觉、突然间吻了上来
		ENDIF
	;さとり住み込み中かつ部屋は一绪（非衰弱
	ELSEIF ARG == 31
		IF 陥落状態() >= 4
			PRINTFORML 「呐ー%MASTERNAME:49%和我一一起回家吧ー」
			PRINTFORMDL 觉抓着%CALLNAME:MASTER%的衣服下摆、使劲往下拉着
			PRINTFORML 「%MASTERNAME:49%也想这样，对吧？」
			PRINTFORMDL 这样说着的觉紧紧地抱着%CALLNAME:MASTER%，压在了小腹上
			PRINTFORML 「『一点ー也不想』？　姆ー、%MASTERNAME:49%真是的ー」
			PRINTFORMDL 总算把全身都缠上来了的觉从身上弄了下来，送回了房间
		ELSEIF 陥落状態() == 3
			PRINTFORML 「姆ー、知道吗？　很高兴与你在一起哦ー」
			PRINTFORMDL 抱着%CALLNAME:MASTER%的胳膊咯咯笑的觉，不禁令%CALLNAME:MASTER%嘴角翘看起来
			PRINTFORML 「『不知道』？　姆ー、被骗了呢ー」
			PRINTFORMDL 嘟起嘴的觉，转过身离去了
		ENDIF
	;さとりが居間（orMASTER初期位置）にて休憩中
	ELSEIF ARG == 32
		IF 陥落状態() >= 4
			PRINTFORML 「呼啊......、好累啊......」
			PRINTFORMDL 觉一副筋疲力尽的样子，带着怨恨的眼神看向%CALLNAME:MASTER%这边
			PRINTFORML 「都是%MASTERNAME:49%的错、都是%MASTERNAME:49%害的啦...」
			PRINTFORMDL 对那样的话充耳不闻、%CALLNAME:MASTER%轻轻的摸着觉的脑袋
			PRINTFORML 「嗯姆ー、这样耍花招ー可是不起作用的哦ー」
			PRINTFORMDL 虽然嘴上这样说着，但脸上却露出了开心的笑容，觉慢慢躺了下来
		ELSEIF 陥落状態() == 3
			PRINTFORML 「嗯唔ー、我很好ー」
			PRINTFORMDL 觉一边这样说着，一边躺倒在了地版上
			PRINTFORML 「真是的、%CALLNAME:MASTER%再等一下嘛ー」
			PRINTFORMDL 看到觉咬着嘴唇发牢骚的样子、%CALLNAME:MASTER%强行吻了上去，让她了沉默下来...
		ENDIF
	;地底MAP時、さとりが自室に戻る
	ELSEIF ARG == 33
		IF 陥落状態() >= 4
			PRINTFORML 「呼啊、%MASTERNAME:49%、搞不清楚房间在哪了吗～?」
			PRINTFORMDL 听了这口齿不清的话、%CALLNAME:MASTER%苦笑着摇了摇头，接住了差点摔倒的觉
			PRINTFORML 「『这样子没问题吗』？　那样的话、%MASTERNAME:49%也请进来吧ー」
			PRINTFORMDL 看到觉蹭来蹭去的可爱的撒娇模样、%CALLNAME:MASTER%故作姿态地叹着气
			PRINTFORML 「唔ー唔ー唔ー、%MASTERNAME:49%欺负人ー」
			PRINTFORMDL 嘟着嘴这样发牢骚之后、觉轻飘飘地走回了自己的房间
		ELSEIF 陥落状態() == 3
			PRINTFORML 「欸ー、累死了ー」
			PRINTFORMDL 嘟着嘴的觉，就那样瘫倒在地
			PRINTFORML 「都是、%CALLNAME:MASTER%的错啦～把我送到房间去吧ー」
			PRINTFORMDL 自己也能行吧...对那样回答了的%CALLNAME:MASTER%投去了胡乱的视线后、觉迈步离开了
		ELSE
			PRINTFORML 「唔ー、在转啊......、送一送我可以吗ー」
			PRINTFORMDL 看着觉摇摇晃晃的样子、立即做了否定的回答，结果被轻轻地瞪了一下
		ENDIF
	;眠そう（恋慕つきかつ睡眠時間中かつ添い寝中
	ELSEIF ARG == 34
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;MASTERの方がダウン（恋慕必須
	ELSEIF ARG == 35
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;TARGETが自室(MASTER同棲)まで戻ってきて、そのまま寝た
	ELSEIF ARG == 36
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;TARGETが自室(MASTER別居)まで戻ってきて、そのまま寝た
	ELSEIF ARG == 37
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;TARGETが自室まで戻ってきて、追い出された
	ELSEIF ARG == 38
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;移動時すれ違い
	;立ち止まった
	ELSEIF ARG == 40
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;会釈した
	ELSEIF ARG == 41
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;無視
	ELSEIF ARG == 42
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;ムード変化
	;1種類だけ
	ELSEIF ARG == 50
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;他人とＨしてるところをさとりに見られた
	;Ｈ终了
	ELSEIF ARG == 60
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりも参加
	ELSEIF ARG == 61
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりが去って行きました
	ELSEIF ARG == 62
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりとＨしてるところを他人に見られた
	;Ｈ终了
	ELSEIF ARG == 70
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;相手も参加
	ELSEIF ARG == 71
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;相手が去って行きました
	ELSEIF ARG == 72
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;弱みをにぎられてしまった
	;パンツが見つかってしまった
	ELSEIF ARG == 80
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;MASTERが押し倒された
	;開始
	ELSEIF ARG == 90
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;终了
	ELSEIF ARG == 91
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;浴場で遭遇
	;追い出された
	ELSEIF ARG == 100
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;追い出されなかった
	ELSEIF ARG == 101
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;寝床に忍び込み
	;侵入成功
	ELSEIF ARG == 110
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入成功＠恋慕
	ELSEIF ARG == 111
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入成功＠恋慕＠衰弱
	ELSEIF ARG == 112
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入失敗
	ELSEIF ARG == 113
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入失敗＠衰弱
	ELSEIF ARG == 114
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;お食事
	;食べられた
	ELSEIF ARG == 120
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;押し倒した
	;终了
	ELSEIF ARG == 130
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;添い寝
	;终了
	ELSEIF ARG == 140
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;時止め终了
	;謎の快感
	ELSEIF ARG == 150
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;絶頂
	ELSEIF ARG == 151
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;パンツ消滅
	ELSEIF ARG == 152
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;口内射精
	ELSEIF ARG == 153
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;顔面射精
	ELSEIF ARG == 154
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;手淫射精
	ELSEIF ARG == 155
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;アナル射精
	ELSEIF ARG == 156
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;処女喪失
	ELSEIF ARG == 157
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;膣内射精
	ELSEIF ARG == 158
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;帰宅
	;通常
	ELSEIF ARG == 160
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;デート中
	ELSEIF ARG == 161
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;お見送り
	ELSEIF ARG == 162
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;陥落素質
	;恋慕
	ELSEIF ARG == 170
	;思慕（合意ありのみ
	ELSEIF ARG == 171
	;愛欲
	ELSEIF ARG == 172
	;愛人
	ELSEIF ARG == 173
	;セフレ
	ELSEIF ARG == 174
	;調教後自慰
	;自慰
	ELSEIF ARG == 180
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;浴槽連れ込み
	;断られた(思慕or合意
	ELSEIF ARG == 190
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;一绪に入った
	ELSEIF ARG == 191
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;デートのお誘い
	;誘い方
	ELSEIF ARG == 200
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;许可
	ELSEIF ARG == 201
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;拒否
	ELSEIF ARG == 202
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;酔っ払いカウンター
	ELSEIF ARG == 300
		IF 陥落状態() >= 4
			PRINTFORML 「 很美味ー哟ー♪」
			PRINTFORML 「噫啊 ー♪呼呼 ー♪」
			PRINTFORML 「是个ー酒鬼ー呢ー♪　nya、呼————」
		ELSEIF 陥落状態() == 3
			PRINTFORML 「呼呼、针ー不戳、一起喝酒的时候、就会感觉很棒呢——」
			PRINTFORML 「唷呼呼、心里暖暖的——我啊————很高兴哦♪」
		ELSE
			PRINTFORML 「哟呼、好热啊♪　身体变得暖和起来的呢♪」
		ENDIF
	ENDIF
	SIF GET_TARGETNUM() >= 2 && ARG != 200
		PRINTFORMDL  红着脸的觉这副与平日里大相径庭的模样，令周围的人都目瞪口呆
ELSE
	IF !ARG
		IF 陥落状態() >= 4
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「%CALLNAME:MASTER%、总觉得、有些......轻飘飘的～」
				CASE 1
					PRINTFORML 「唔、好像是...有点喝醉了呢...呼、诶嘿嘿ふ」
				CASE 0
					PRINTFORML 「呼呼————%CALLNAME:MASTER%、还是、一如既往的棒呢————」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  带着一脸陶醉的模样、觉直直地望着这边
				CASE 0
					PRINTFORMDW  觉目不转睛地注视着%CALLNAME:MASTER%，呼哧呼哧地笑着
			ENDSELECT
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「呼呼、%CALLNAME:MASTER%ー感觉、如何ー呢？　心情、很ー舒服、的样子ー？」
				CASE 1
					PRINTFORML 「%CALLNAME:MASTER%也、也醉了ー？　还没有ー？还没有的话、就请慢慢、慢慢来的ー继续吧ー～」
				CASE 0
					PRINTFORML 「%CALLNAME:MASTER%、最喜欢ー、%CALLNAME:MASTER%ー、呼呼、呜呼呼ー」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  觉这副与平时迥异的开朗的样子、令%CALLNAME:MASTER%不禁胡思乱想起来
				CASE 0
					PRINTFORMDW  正在想着是不是让她喝的过多了一点的时候，觉瞪了过来
			ENDSELECT
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「欸欸、欸欸、喝的ー因为喝了酒的话、这样的事ー也能做得到哦ー」
				CASE 1
					PRINTFORML 「姆、让我ー喝了这么多的、是%CALLNAME:MASTER%才对吧？真是可恶呢ー」
				CASE 0
					PRINTFORML 「呼呼、诶嘿嘿ー呼呼、因为喝醉了、喝醉了的缘故ー诶嘿嘿、呼呜ー」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  突然间贴了过来的觉，紧紧地吻住了%CALLNAME:MASTER%的嘴唇，将舌头送了进来
				CASE 0
					PRINTFORMDW  觉紧紧地握住%CALLNAME:MASTER%的双手，扭动着腰肢、将它们引向秘所的位置...
			ENDSELECT
		ELSEIF 陥落状態() == 3
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「唔、总觉得、有点轻飘飘的，很舒服啊......呼呼、%CALLNAME:MASTER%又感觉如何呢ー」
				CASE 1
					PRINTFORML 「呼呼、感觉、真的很不错呢ー无论说是酒、还是人ー真好啊ー」
				CASE 0
					PRINTFORML 「哈啊、总感觉ー有点喝醉了呢。呼呼、偶尔这样ー不是也很不错嘛ー」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  觉那副快乐的样子、令人一时讲不出话来
				CASE 0
					PRINTFORMDW  脸上浮现出了柔和的笑容的觉、令人看得有些出神
			ENDSELECT
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「『醉酒的样子很可爱』？　呼呼、就算不是醉酒的样子、也一样很可爱吧～？」
				CASE 1
					PRINTFORML 「像那样、目不转睛地盯着看、说不定ー会让人感觉有点害羞呢ー呼呼ー」
				CASE 0
					PRINTFORML 「哈啊、和%CALLNAME:MASTER%在一起的话、总会不知不觉的ー喝多了呢～」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  这幅样子说不定很适合去当笑星呢...%CALLNAME:MASTER%无聊地想着
				CASE 0
					PRINTFORMDW  看着呼哧呼哧笑着的觉，%CALLNAME:MASTER%回以苦笑
			ENDSELECT
		ELSEIF (GETBIT (CFLAG:1 ,0) || TALENT:思慕) && !GETBIT (CFLAG:1490,1)
			SELECTCASE RAND:3
				CASE 2
					PRINTFORML 「呼呼、好像ー有点喝醉了呢...不过ー这样感觉也很不错啊ー」
				CASE 1
					PRINTFORML 「总觉得、有点轻飘飘ー的感觉，呼呼，酒很不错呢ー」
				CASE 0
					PRINTFORML 「诶嘿嘿、%CALLNAME:MASTER%的心情ー也很好对吧？　我的心情ー是很好的哦ー」
			ENDSELECT
			SELECTCASE RAND:2
				CASE 1
					PRINTFORMDW  看着觉快乐地笑着、%CALLNAME:MASTER%有些入迷，连要做什么事呢都忘记了...
				CASE 0
					PRINTFORMDW  有些无奈地望着觉的笑脸、%CALLNAME:MASTER%一时间忘记了要做的事...
			ENDSELECT
		ENDIF
	;SPイベント
	;デート帰りキス
	ELSEIF ARG == 10
	;デート帰り告白
	ELSEIF ARG == 11
	;デート帰り告白受け入れ
	ELSEIF ARG == 12
	;デート帰り告白拒否
	ELSEIF ARG == 13
	;デート帰り
	ELSEIF ARG == 15
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;反発刻印消去&低下
	ELSEIF ARG == 16
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;遭遇イベント
	;さとりのいるところにMASTERが入っていった
	ELSEIF ARG == 20
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;MASTERのいるところにさとりが入ってきた
	ELSEIF ARG == 21
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりが風呂に入ってきた
	ELSEIF ARG == 22
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりが風呂に入って来てすぐ出て行った
	ELSEIF ARG == 23
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりが風呂に入って来てMASTERが追い出された
	ELSEIF ARG == 24
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりと外出先で出会った
	ELSEIF ARG == 25
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;他キャラとデート中にさとりと出会った
	ELSEIF ARG == 26
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;お休みイベント(地底以外非住み込みは帰宅口上行き
	;さとり住み込み中かつ部屋は別（非衰弱
	ELSEIF ARG == 30
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとり住み込み中かつ部屋は一绪（非衰弱
	ELSEIF ARG == 31
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりが居間（orMASTER初期位置）にて休憩中(おそらく最低合意が着かないと発生しないというかそこまで体力を減らせない筈
	ELSEIF ARG == 32
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;地底MAP時、さとりが自室に戻る
	ELSEIF ARG == 33
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;眠そう（恋慕つきかつ睡眠時間中かつ添い寝中
	ELSEIF ARG == 34
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;MASTERの方がダウン（恋慕必須
	ELSEIF ARG == 35
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;TARGETが自室(MASTER同棲)まで戻ってきて、そのまま寝た
	ELSEIF ARG == 36
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;TARGETが自室(MASTER別居)まで戻ってきて、そのまま寝た
	ELSEIF ARG == 37
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;TARGETが自室まで戻ってきて、追い出された
	ELSEIF ARG == 38
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;移動時すれ違い
	;立ち止まった
	ELSEIF ARG == 40
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;会釈した
	ELSEIF ARG == 41
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;無視
	ELSEIF ARG == 42
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;ムード変化
	;1種類だけ
	ELSEIF ARG == 50
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;他人とＨしてるところをさとりに見られた
	;Ｈ终了
	ELSEIF ARG == 60
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりも参加
	ELSEIF ARG == 61
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりが去って行きました
	ELSEIF ARG == 62
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;さとりとＨしてるところを他人に見られた
	;Ｈ终了
	ELSEIF ARG == 70
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;相手も参加
	ELSEIF ARG == 71
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;相手が去って行きました
	ELSEIF ARG == 72
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;弱みをにぎられてしまった
	;パンツが見つかってしまった
	ELSEIF ARG == 80
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;MASTERが押し倒された
	;開始
	ELSEIF ARG == 90
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;终了
	ELSEIF ARG == 91
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;浴場で遭遇
	;追い出された
	ELSEIF ARG == 100
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;追い出されなかった
	ELSEIF ARG == 101
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;寝床に忍び込み
	;侵入成功
	ELSEIF ARG == 110
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入成功＠恋慕
	ELSEIF ARG == 111
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入成功＠恋慕＠衰弱
	ELSEIF ARG == 112
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入失敗
	ELSEIF ARG == 113
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;侵入失敗＠衰弱
	ELSEIF ARG == 114
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;お食事
	;食べられた
	ELSEIF ARG == 120
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;押し倒した
	;终了
	ELSEIF ARG == 130
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;添い寝
	;终了
	ELSEIF ARG == 140
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;時止め终了
	;謎の快感
	ELSEIF ARG == 150
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;絶頂
	ELSEIF ARG == 151
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;パンツ消滅
	ELSEIF ARG == 152
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;口内射精
	ELSEIF ARG == 153
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;顔面射精
	ELSEIF ARG == 154
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;手淫射精
	ELSEIF ARG == 155
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;アナル射精
	ELSEIF ARG == 156
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;処女喪失
	ELSEIF ARG == 157
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;膣内射精
	ELSEIF ARG == 158
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;帰宅
	;通常
	ELSEIF ARG == 160
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;デート中
	ELSEIF ARG == 161
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;お見送り
	ELSEIF ARG == 162
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;陥落素質
	;恋慕
	ELSEIF ARG == 170
	;思慕（合意ありのみ
	ELSEIF ARG == 171
	;愛欲
	ELSEIF ARG == 172
	;愛人
	ELSEIF ARG == 173
	;セフレ
	ELSEIF ARG == 174
	;調教後自慰
	;自慰
	ELSEIF ARG == 180
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;浴槽連れ込み
	;断られた(思慕or合意
	ELSEIF ARG == 190
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;一绪に入った
	ELSEIF ARG == 191
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	;酔っ払いカウンター
	ELSEIF ARG == 300
		IF 陥落状態() >= 4
		ELSEIF 陥落状態() == 3
		ELSE
		ENDIF
	ENDIF
ENDIF
RESETCOLOR
RETURN 1

path: ERB/口上・メッセージ関連/個人口上/【49】さとり(23.11.26)/M_KOJO_K49_コマンド酔夢想.ERB