code:
;CALL HANA_HANNYO
@HANA_HANNYO
CFLAG:随机 = 0
SELECTCASE SELECTCOM
;愛撫系
CASE 0 TO 12
	CALL AIBU
;尿道指
CASE 15
	CALL U_YUBI
;道具系
CASE 30 TO 59
	CALL DOUGU
;子宮挿入
CASE 68
	CALL SIKYU
;挿入系
CASE 60 TO 69, 70 TO 79
	CALL SOUNYU
;乳頭奸
CASE 82
	CALL N_FUCK
;尿道挿入
CASE 83 TO 88
	CALL U_SEX
;口交
CASE 91
	CALL FELLATIO
;素股
CASE 93, 101
	CALL SUMATA
;強制口交
CASE 140
	CALL DEEP
;尿道探针
CASE 151
	CALL BOUGIE
CASEELSE
	RETURN 0
ENDSELECT

@AIBU
	REPEAT 1 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
		CFLAG:随机 = RAND:6
		IF CFLAG:随机 == 0
			PRINTFORM 對ぁっ…
		ELSEIF CFLAG:随机 == 1
			PRINTFORM んっ
		ELSEIF CFLAG:随机 == 2
			PRINTFORM あっ
		ELSEIF CFLAG:随机 == 3
			PRINTFORM ひんっ…
		ELSEIF CFLAG:随机 == 4 && TALENT:恋慕
			CALL HEARTMARK
		ELSE
			PRINTFORM んんっ、
		ENDIF
	REND
@U_YUBI
	IF EX:尿道絶頂 >= 30
		PRINTFORM 「
		REPEAT 2 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM あ゛あ゛っ゛
			ELSEIF CFLAG:随机 == 8
				PRINTFORM ぎっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM っ゛…
			ELSEIF CFLAG:随机 == 6
				CALL HEARTMARK
			ELSEIF CFLAG:随机 == 5
				CALL PRINT_STR, "_H_ _H_"
			ELSEIF CFLAG:随机 == 4
				PRINTFORM か゛っ゛…
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ん゛く゛っ゛、
			ELSEIF CFLAG:随机 == 2
				PRINTFORM あ゛っ゛
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, "い゛い゛っ゛_H_"
			ELSEIF CFLAG:随机 == 0 && TALENT:尿道狂
				CALL PRINT_STR, "しゅきっ_H_"
			ELSE
				PRINTFORM ふぎゅっ、
			ENDIF
		REND
		PRINTFORMW 」
	ELSEIF TEQUIP:振動棒
		REPEAT 2 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM あ゛あ゛っ゛
			ELSEIF CFLAG:随机 == 8
				PRINTFORM ぎっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM っ゛…
			ELSEIF CFLAG:随机 == 6
				CALL HEARTMARK
			ELSEIF CFLAG:随机 == 5
				CALL PRINT_STR, "_H_ _H_"
			ELSEIF CFLAG:随机 == 4
				PRINTFORM か゛っ゛…
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ん゛く゛っ゛、
			ELSEIF CFLAG:随机 == 2
				PRINTFORM あ゛っ゛
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, "い゛い゛っ゛_H_"
			ELSEIF CFLAG:随机 == 0 && TALENT:尿道狂
				CALL PRINT_STR, "しゅきっ_H_"
			ELSE
				PRINTFORM こわれちゃっ、
			ENDIF
		REND
	ELSEIF ABL:尿道感覚 > 5
		REPEAT 2 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM あっ
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んんっ、
			ELSEIF CFLAG:随机 == 7
				PRINTFORM んっ
			ELSEIF CFLAG:随机 == 6
				PRINTFORM ひんっ、
			ELSEIF CFLAG:随机 == 5
				PRINTFORM あっあっ、
			ELSEIF CFLAG:随机 == 4
				CALL PRINT_STR, "ちがっ_H_"
			ELSEIF CFLAG:随机 == 3
				PRINTFORM すきっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM ひぎゅっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM ひっ
			ELSEIF CFLAG:随机 == 0
				PRINTFORM ふあっ
			ELSE
				PRINTFORM ……
			ENDIF
		REND
	ELSE
		CFLAG:角色用 = 0
		REPEAT 2 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM あっ
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んんっ、
			ELSEIF CFLAG:随机 == 7
				PRINTFORM んっ
			ELSEIF CFLAG:随机 == 6
				PRINTFORM ひんっ、
			ELSEIF CFLAG:随机 == 5
				PRINTFORM あっあっ、
			ELSEIF CFLAG:随机  == 4 && ABL:尿道感覚 > 2
				PRINTFORM ちがっ
				CFLAG:角色用 += 1
			ELSEIF CFLAG:随机  == 3 && ABL:尿道感覚 > 2
				PRINTFORM すきっ
				CFLAG:角色用 += 1
			ELSEIF CFLAG:随机 == 2
				PRINTFORM ひぎゅっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM ひっ
			ELSEIF CFLAG:随机  == 0
				PRINTFORM ふあっ
			ELSE
				PRINTFORM ……
			ENDIF
		REND
	ENDIF
@DOUGU
	IF (SELECTCOM == 30 && EX:Ｃ絶頂 >= 20) || (SELECTCOM == 31 && EX:Ｖ絶頂 >= 20) || (SELECTCOM == 33 && EX:Ａ絶頂 >= 20) || (SELECTCOM == 37 && EX:射精 >= 20)
		PRINTFORM 「
		REPEAT 2 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:7
			IF CFLAG:随机 == 0
				PRINTFORM ぎっ…
			ELSEIF CFLAG:随机 == 1
				PRINTFORM ん゛ん゛っ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM ひぎゅっ
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひぐっ、
			ELSEIF CFLAG:随机 == 4
				CALL HEARTMARK
			ELSEIF CFLAG:随机 == 5
				IF RAND:3 == 0
					CALL PRINT_STR, "ひゃっ_H_"
				ELSEIF  RAND:3
					CALL PRINT_STR, "あはっ_H_"
				ELSE
					PRINTFORM イ゛い゛っ゛…
				ENDIF
			ELSE
				PRINTFORM ん゛っ、
			ENDIF
		REND
		PRINTFORML 」
	ELSE
		REPEAT 2 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:7
			IF CFLAG:随机 == 0
				PRINTFORM 對ぁっ…
			ELSEIF CFLAG:随机 == 1
				PRINTFORM んっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM あっ
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひっく、
			ELSEIF CFLAG:随机 == 4 && TALENT:恋慕
				CALL HEARTMARK
			ELSEIF CFLAG:随机 == 5 && PALAM:欲情 >= 8000
				IF RAND:3 == 0
					CALL PRINT_STR, "ひゃっ_H_"
				ELSEIF  RAND:3
					CALL PRINT_STR, "あはっ_H_"
				ELSE
					PRINTFORM イいっ…
				ENDIF
			ELSE
				PRINTFORM んんっ、
			ENDIF
		REND
	ENDIF
@SOUNYU
	IF (EX:Ｖ絶頂 >= 20 && (SELECTCOM >= 60 && SELECTCOM <= 67)) || (EX:Ａ絶頂 >= 20 && (SELECTCOM >= 70 && SELECTCOM <= 79))
			PRINTFORM 「
			REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
				CFLAG:随机 = RAND:12
				IF CFLAG:随机 == 10
					CALL HEARTMARK
				ELSEIF CFLAG:随机 == 9
					PRINTFORM がっ゛
				ELSEIF CFLAG:随机 == 8
					CALL PRINT_STR, "あ゛あ゛っ゛_H_"
				ELSEIF CFLAG:随机 == 7
					CALL PRINT_STR, "ん゛ん゛っ゛…_H_"
				ELSEIF CFLAG:随机 == 6
					PRINTFORM ひぎゅっ
				ELSEIF CFLAG:随机 == 5
					PRINTFORM ら゛め゛っ
				ELSEIF CFLAG:随机 == 4
					PRINTFORM ん゛っ、
				ELSEIF CFLAG:随机 == 3
					PRINTFORM …
				ELSEIF CFLAG:随机 == 2
					PRINTFORM ……
				ELSEIF CFLAG:随机 == 1
					PRINTFORM あ゛っ
				ELSEIF CFLAG:随机 == 0
					PRINTFORM あ゛っ゛あ゛っ゛
				ELSE
					PRINTFORM ん゛っ゛ん゛っ゛…
				ENDIF
			REND
			PRINTFORML 」
			PRINTFORM %CALLNAME:TARGET%度重なる絶頂に1擦りするだけで
				IF INSERT("Ｖ挿入")
					PRINTFORM 阴道内
				ELSE
					PRINTFORM 腸内を
				ENDIF
			PRINTFORMW 痙攣させ%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を締め付けてくる…
	ELSE
		IF CEVENT("発情イベント中") && (SELECTCOM >= 60 && SELECTCOM <= 67)
			REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
				CFLAG:随机 = RAND:11
				IF CFLAG:随机 == 9
					PRINTFORM あっ
				ELSEIF CFLAG:随机 == 8
					CALL PRINT_STR, "ああっ_H_"
				ELSEIF CFLAG:随机 == 7
					CALL PRINT_STR, "んんっ…_H_"
				ELSEIF CFLAG:随机 == 6
					CALL PRINT_STR, @"%TEXTR("せーし/精子/せーえき/精液")%_H_"
				ELSEIF CFLAG:随机 == 5
					PRINTFORM らめっ
				ELSEIF CFLAG:随机 == 4
					PRINTFORM んっ、
				ELSEIF CFLAG:随机 == 3
					PRINTFORM …
				ELSEIF CFLAG:随机 == 2
					PRINTFORM ……
				ELSEIF CFLAG:随机 == 1
					PRINTFORM あはっ
				ELSEIF CFLAG:随机 == 0
					PRINTFORM あっあっ
				ELSE
					PRINTFORM んっんっ…
				ENDIF
			REND
		ELSEIF TALENT:恋慕
			IF TALENT:淫乱 || (TALENT:淫壷 && (SELECTCOM >= 60 && SELECTCOM <= 67)) || (TALENT:尻穴狂い && (SELECTCOM >= 70 && SELECTCOM <= 79))
				REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
					CFLAG:随机 = RAND:11
					IF CFLAG:随机 == 9
						PRINTFORM あっ
					ELSEIF CFLAG:随机 == 8
						CALL PRINT_STR, "ああっ_H_"
					ELSEIF CFLAG:随机 == 7
						CALL PRINT_STR, "んんっ…_H_"
					ELSEIF CFLAG:随机 == 6
						CALL PRINT_STR, "しゅきっ_H_"
					ELSEIF CFLAG:随机 == 5
						PRINTFORM らめっ
					ELSEIF CFLAG:随机 == 4
						PRINTFORM んっ、
					ELSEIF CFLAG:随机 == 3
						PRINTFORM …
					ELSEIF CFLAG:随机 == 2
						PRINTFORM ……
					ELSEIF CFLAG:随机 == 1
						PRINTFORM あはっ
					ELSEIF CFLAG:随机 == 0
						PRINTFORM あっあっ
					ELSE
						PRINTFORM んっんっ…
					ENDIF
				REND
			ELSE
				REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
					CFLAG:随机 = RAND:11
					IF CFLAG:随机 == 9
						PRINTFORM あっ
					ELSEIF CFLAG:随机 == 8
						PRINTFORM ああっ
					ELSEIF CFLAG:随机 == 7
						PRINTFORM んんっ…
					ELSEIF CFLAG:随机 == 6
						PRINTFORM すきっ
					ELSEIF CFLAG:随机 == 5
						PRINTFORM そこっ
					ELSEIF CFLAG:随机 == 4
						PRINTFORM んっ、
					ELSEIF CFLAG:随机 == 3
						PRINTFORM …
					ELSEIF CFLAG:随机 == 2
						PRINTFORM ……
					ELSEIF CFLAG:随机 == 1
						PRINTFORM あはっ
					ELSEIF CFLAG:随机 == 0
						PRINTFORM あっあっ
					ELSE
						PRINTFORM んっんっ…
					ENDIF
				REND
			ENDIF
		ELSE
			REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
				CFLAG:随机 = RAND:11
				IF CFLAG:随机 == 9
					PRINTFORM あっ
				ELSEIF CFLAG:随机 == 8
					PRINTFORM ああっ
				ELSEIF CFLAG:随机 == 7
					PRINTFORM んんっ…
				ELSEIF CFLAG:随机 == 6
					PRINTFORM だめっ
				ELSEIF CFLAG:随机 == 5
					PRINTFORM 或っ、
				ELSEIF CFLAG:随机 == 4
					PRINTFORM んっ、
				ELSEIF CFLAG:随机 == 3
					PRINTFORM …
				ELSEIF CFLAG:随机 == 2
					PRINTFORM ……
				ELSEIF CFLAG:随机 == 1
					PRINTFORM ひっ、
				ELSEIF CFLAG:随机 == 0
					PRINTFORM あっあっ、
				ELSE
					PRINTFORM んっんっ…
				ENDIF
			REND
		ENDIF
	ENDIF
@SIKYU
	IF EX:Ｖ絶頂 >= 20
		PRINTFORM 「
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				CALL PRINT_STR, "ぎっいっ_H_"
			ELSEIF CFLAG:随机 == 8
				CALL PRINT_STR, "あはっ_H_"
			ELSEIF CFLAG:随机 == 7
				CALL PRINT_STR, "あ゛あ゛っ゛_H_"
			ELSEIF CFLAG:随机 == 6
				CALL PRINT_STR, "ひぎゅ゛っ゛_H_"
			ELSEIF CFLAG:随机 == 5
				PRINTFORM ん゛ん゛っ
			ELSEIF CFLAG:随机 == 4
				PRINTFORM あ゛あ゛ぁ゛ぁ゛あ゛ぁ゛っ゛
				BREAK
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, "しゅきっ_H_"
			ELSEIF CFLAG:随机 == 2
				PRINTFORM しゅごっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM っ……
			ELSEIF CFLAG:随机 == 0
				PRINTFORM ん゛ん゛ん゛っ゛
			ELSE
				CALL HEARTMARK
				CALL HEARTMARK
			ENDIF
		REND
		PRINTFORML 」
		PRINTFORM %CALLNAME:TARGET%%TEXTR("子宮/聖域/大事な場所")%の壁を
			IF RAND:2 == 0
				PRINTFORM 乱暴に
			ELSE
				PRINTFORM 温柔地
			ENDIF
		PRINTFORMW 突き上げるたび%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%をギュウギュウと締め付けてくる…
	ELSE
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				CALL PRINT_STR, "ぎっいっ_H_"
			ELSEIF CFLAG:随机 == 8
				CALL PRINT_STR, "あはっ_H_"
			ELSEIF CFLAG:随机 == 7
				CALL PRINT_STR, "ああっ_H_"
			ELSEIF CFLAG:随机 == 6
				CALL PRINT_STR, "ひぎゅっ_H_"
			ELSEIF CFLAG:随机 == 5
				PRINTFORM んんっ
			ELSEIF CFLAG:随机 == 4
				PRINTFORM あんっ
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, "しゅきっ_H_"
			ELSEIF CFLAG:随机 == 2
				PRINTFORM しゅごっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM っ……
			ELSEIF CFLAG:随机 == 0
				PRINTFORM んっんっ
			ELSE
				CALL HEARTMARK
				CALL HEARTMARK
			ENDIF
		REND
	ENDIF
@N_FUCK
	IF EX:Ｂ絶頂 >= 20
		PRINTFORM 「
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM あ゛っ゛
			ELSEIF CFLAG:随机 == 8
				PRINTFORM ん゛っ゛
			ELSEIF CFLAG:随机 == 7
				PRINTFORM ん゛ん゛っ゛
			ELSEIF CFLAG:随机 == 6
				PRINTFORM ひゃっ
			ELSEIF CFLAG:随机 == 5
				PRINTFORM っっ、
			ELSEIF CFLAG:随机 == 4
				PRINTFORM っ、
			ELSEIF CFLAG:随机 == 3
				PRINTFORM あ゛あ゛あ゛あ゛っ゛
			ELSEIF CFLAG:随机 == 2
				PRINTFORM ひぐっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM ひぎゅっ
			ELSEIF CFLAG:随机 == 0
				CALL HEARTMARK
			ELSE
				CALL HEARTMARK
			ENDIF
		REND

		PRINTFORML 」
		PRINTFORM %CALLNAME:TARGET%乳腺という有些得ない場所を%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%で犯され抖抖と体を震わせている…
	ELSE
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM あっ
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM んんっ
			ELSEIF CFLAG:随机 == 6
				PRINTFORM ひゃっ
			ELSEIF CFLAG:随机 == 5
				PRINTFORM っっ、
			ELSEIF CFLAG:随机 == 4
				PRINTFORM っ、
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ああああっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM ひっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM きもちっ
			ELSEIF CFLAG:随机 == 0
				CALL HEARTMARK
			ELSE
				CALL HEARTMARK
			ENDIF
		REND

		PRINTFORML
	ENDIF
@U_SEX
	IF EX:尿道絶頂 >= 30 && TEQUIP:推倒 == 0
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM ひっ
			ELSEIF CFLAG:随机 == 8
				CALL PRINT_STR, @"ぎっ_H_"
			ELSEIF CFLAG:随机 == 7
				CALL PRINT_STR, @"んんっ_H_"
			ELSEIF CFLAG:随机 == 6
				PRINTFORM ひぎゅっ
			ELSEIF CFLAG:随机 == 5
				PRINTFORM あっあっ
			ELSEIF CFLAG:随机 == 4
				CALL HEARTMARK
				CALL HEARTMARK
			ELSEIF CFLAG:随机 == 3
				CALL PRINT_STR, @"しゅきっ_H_"
			ELSEIF CFLAG:随机 == 2
				PRINTFORM んぎゅっ
			ELSEIF CFLAG:随机 == 1
				PRINTFORM い゛ぎゅっ
			ELSEIF CFLAG:随机 == 0
				CALL PRINT_STR, @"ん゛ん゛_H_"
			ELSE
				PRINTFORM あ゛あ゛あ゛ぁ゛ぁ゛ぁ゛あ゛ぁ゛ぁ゛っ゛
				BREAK
			ENDIF
		REND
		PRINTFORML 」
		PRINTFORM %CALLNAME:TARGET%
			SIF TALENT:尿道狂
				PRINTFORM 快楽を生む場所となった
		PRINTFORM %TEXTR("尿道/狭孔/排泄腔")%を%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%で一突きされる度体を%TEXTR("びくびく/ぴくぴく")%と震わせた…
	ELSE
		IF TALENT:尿道狂
			REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
				CFLAG:随机 = RAND:11
				IF CFLAG:随机 == 9
					PRINTFORM ひっ
				ELSEIF CFLAG:随机 == 8
					CALL PRINT_STR, @"ぎっ_H_"
				ELSEIF CFLAG:随机 == 7
					CALL PRINT_STR, @"んんっ_H_"
				ELSEIF CFLAG:随机 == 6
					PRINTFORM ひぎゅっ
				ELSEIF CFLAG:随机 == 5
					PRINTFORM あっあっ
				ELSEIF CFLAG:随机 == 4
					CALL HEARTMARK
					CALL HEARTMARK
				ELSEIF CFLAG:随机 == 3
					CALL PRINT_STR, @"しゅきっ_H_"
				ELSEIF CFLAG:随机 == 2
					PRINTFORM んぎゅっ
				ELSEIF CFLAG:随机 == 1
					PRINTFORM あ゛っ゛
				ELSEIF CFLAG:随机 == 0
					CALL PRINT_STR, @"ん゛ん゛_H_"
				ELSE
					PRINTFORM ……
				ENDIF
			REND
		ELSE
			IF CHECK("尿道PLAY") == 0
				REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
					CFLAG:随机 = RAND:11
					IF CFLAG:随机 == 9
						PRINTFORM ひっ
					ELSEIF CFLAG:随机 == 8
						PRINTFORM ぎっ
					ELSEIF CFLAG:随机 == 7
						PRINTFORM んんっ
					ELSEIF CFLAG:随机 == 6
						PRINTFORM ひぎゅっ
					ELSEIF CFLAG:随机 == 5
						PRINTFORM あっあっ
					ELSEIF CFLAG:随机 == 4
						PRINTFORM ダメっ
					ELSEIF CFLAG:随机 == 3
						PRINTFORM ぐっ
					ELSEIF CFLAG:随机 == 2
						PRINTFORM んぎゅっ
					ELSEIF CFLAG:随机 == 1
						PRINTFORM あ゛っ゛
					ELSEIF CFLAG:随机 == 0
						PRINTFORM ん゛ん゛
					ELSE
						PRINTFORM ……
					ENDIF
				REND
			ELSE
				REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
					CFLAG:随机 = RAND:11
					IF CFLAG:随机 == 9
						PRINTFORM んっ
					ELSEIF CFLAG:随机 == 8
						PRINTFORM あっあっ、
					ELSEIF CFLAG:随机 == 7
						PRINTFORM んんっ
					ELSEIF CFLAG:随机 == 6
						PRINTFORM ひぎゅっ
					ELSEIF CFLAG:随机 == 5
						PRINTFORM んひゅっ
					ELSEIF CFLAG:随机 == 4
						PRINTFORM っ…
					ELSEIF CFLAG:随机 == 3
						PRINTFORM ひゃんっ
					ELSEIF CFLAG:随机 == 2
						PRINTFORM んぎゅっ
					ELSEIF CFLAG:随机 == 1
						PRINTFORM あっ
					ELSEIF CFLAG:随机 == 0
						PRINTFORM んん
					ELSE
						PRINTFORM ……
					ENDIF
				REND
			ENDIF
		ENDIF
	ENDIF
@FELLATIO
	REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
		CFLAG:随机 = RAND:11
		IF CFLAG:随机 == 9
			PRINTFORM じゅるっ、
		ELSEIF CFLAG:随机 == 8
			PRINTFORM じゅぽ
		ELSEIF CFLAG:随机 == 7
			PRINTFORM ぐちゅっ
		ELSEIF CFLAG:随机 == 6
			PRINTFORM じゅるる、
		ELSEIF CFLAG:随机 == 5
			PRINTFORM …
		ELSEIF CFLAG:随机 == 4
			PRINTFORM ……
			SIF TALENT:恋慕
				CALL HEARTMARK
		ELSEIF CFLAG:随机 == 3
			PRINTFORM んっ、
		ELSEIF CFLAG:随机 == 2
			PRINTFORM んんっ、
		ELSEIF CFLAG:随机 == 1
			PRINTFORM ちゅっ…
		ELSEIF CFLAG:随机 == 0
			PRINTFORM ちゅぽっ
			SIF TALENT:恋慕
				CALL HEARTMARK
		ELSE
			PRINTFORM じゅこっ
		ENDIF
	REND
@SUMATA
	IF TALENT:恋慕
		IF ABL:Ｃ感覚 > 10
			REPEAT 1 + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 10000) + (PALAM:欲情 >= 30000)
				SELECTCASE RAND:11
				CASE 10
					PRINTFORM あっ
				CASE 9
					PRINTFORM んんっ
				CASE 8
					PRINTFORM ひゃっ
				CASE 7
					PRINTFORM っ、
				CASE 6
					PRINTFORM っ…
				CASE 5
					PRINTFORM ひんっ
				CASE 4
					PRINTFORM んっ…
				CASE 3
					CALL HEARTMARK
				CASE 2
					CALL HEARTMARK
					CALL HEARTMARK
				CASE 1
					PRINTFORM あああっ
				CASEELSE
					PRINTFORM ああっ
				ENDSELECT
			REND
		ELSE
			REPEAT 1 + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 10000) + (PALAM:欲情 >= 30000)
				SELECTCASE RAND:6
				CASE 5
					PRINTFORM んっ…
				CASE 4
					PRINTFORM っっ…
				CASE 3
					PRINTFORM っ…
				CASE 2
					PRINTFORM あっ
				CASE 1
					PRINTFORM んっ
				CASE 0
					PRINTFORM んんっ
				ENDSELECT
			REND
		ENDIF
	ELSE
		IF ABL:Ｃ感覚 > 10
			REPEAT 1 + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 10000) + (PALAM:欲情 >= 30000)
				SELECTCASE RAND:11
				CASE 10
					PRINTFORM あっ
				CASE 9
					PRINTFORM んんっ
				CASE 8
					PRINTFORM ひゃっ
				CASE 7
					PRINTFORM っ、
				CASE 6
					PRINTFORM っ…
				CASE 5
					PRINTFORM ひんっ
				CASE 4
					PRINTFORM んっ…
				CASE 3
					CALL HEARTMARK
				CASE 2
					CALL HEARTMARK
					CALL HEARTMARK
				CASE 1
					PRINTFORM あああっ
				CASEELSE
					PRINTFORM ああっ
				ENDSELECT
			REND
		ELSE
			REPEAT 1 + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 10000) + (PALAM:欲情 >= 30000)
				SELECTCASE RAND:6
				CASE 5
					PRINTFORM んっ…
				CASE 4
					PRINTFORM っっ…
				CASE 3
					PRINTFORM っ…
				CASE 2
					PRINTFORM あっ
				CASE 1
					PRINTFORM んっ
				CASE 0
					PRINTFORM んんっ
				ENDSELECT
			REND
		ENDIF
	ENDIF
@DEEP
	REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
		CFLAG:随机 = RAND:11
		IF CFLAG:随机 == 9
			PRINTFORM ぐじゅっ、
		ELSEIF CFLAG:随机 == 8
			PRINTFORM ごぽっ
		ELSEIF CFLAG:随机 == 7
			PRINTFORM ぐちゅっ
		ELSEIF CFLAG:随机 == 6
			PRINTFORM ぐぷっ、
		ELSEIF CFLAG:随机 == 5
			PRINTFORM …
		ELSEIF CFLAG:随机 == 4
			PRINTFORM ……
		ELSEIF CFLAG:随机 == 3
			PRINTFORM ごっ、
		ELSEIF CFLAG:随机 == 2
			PRINTFORM んんっ、
		ELSEIF CFLAG:随机 == 1
			PRINTFORM ぐぷっ…
		ELSEIF CFLAG:随机 == 0
			PRINTFORM ごぼっ
		ELSE
			PRINTFORM じゅこっ
		ENDIF
	REND
@BOUGIE
IF EX:尿道絶頂 >= 30
	PRINTFORM 「
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				CALL PRINT_STR, @"いっ_H_"
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んぎゅっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM ひぃっ
			ELSEIF CFLAG:随机 == 6
				CALL PRINT_STR, @"んんっ_H_"
			ELSEIF CFLAG:随机 == 5
				PRINTFORM ……
			ELSEIF CFLAG:随机 == 4
				CALL PRINT_STR, @"すごっ_H_"
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひんっ
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"あっあっ_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"しゅきっ_H_"
			ELSEIF CFLAG:随机 == 0
				PRINTFORM んっんっ
			ELSE
				CALL PRINT_STR, @"あっあっああぁっ_H_"
				BREAK
			ENDIF
		REND
	PRINTFORML 」
	PRINTFORM %CALLNAME:TARGET%
		SIF TALENT:尿道狂
			PRINTFORM 快楽を生む場所となった
		PRINTFORMW %TEXTR("尿道口/狭孔/排泄腔")%をブジーが一擦りする度締め付け、抽送の抵抗による快楽が増すという無間地獄から抜け出せない様子だ…
ELSEIF TEQUIP:尿道探针 > CALCF("尿道径")
	IF TALENT:尿道狂
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				CALL PRINT_STR, @"いっ_H_"
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んぎゅっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM ひぃっ
			ELSEIF CFLAG:随机 == 6
				CALL PRINT_STR, @"んんっ_H_"
			ELSEIF CFLAG:随机 == 5
				PRINTFORM ……
			ELSEIF CFLAG:随机 == 4
				CALL PRINT_STR, @"すごっ_H_"
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひんっ
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"あっあっ_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"しゅきっ_H_"
			ELSEIF CFLAG:随机 == 0
				PRINTFORM んっんっ
			ELSE
				CALL PRINT_STR, @"あっあっああぁっ_H_"
				BREAK
			ENDIF
		REND
	ELSE
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM いっ
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んぎゅっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM ひぃっ
			ELSEIF CFLAG:随机 == 6
				PRINTFORM んんっ
			ELSEIF CFLAG:随机 == 5
				PRINTFORM ……
			ELSEIF CFLAG:随机 == 4
				PRINTFORM い、いたっ…
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM あ゛っ゛あ゛っ゛
			ELSEIF CFLAG:随机 == 1
				PRINTFORM 或だっ
			ELSEIF CFLAG:随机 == 0
				PRINTFORM ん゛っ゛ん゛っ゛
			ELSE
				PRINTFORM あ゛っ゛あ゛っ゛あ゛あ゛ぁ゛っ゛
				BREAK
			ENDIF
		REND
	ENDIF
ELSE
	IF TALENT:尿道狂
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM いっ
			ELSEIF CFLAG:随机 == 8
				CALL PRINT_STR, @"んぎゅっ_H_"
			ELSEIF CFLAG:随机 == 7
				CALL PRINT_STR, @"ひぃっ_H_"
			ELSEIF CFLAG:随机 == 6
				PRINTFORM んんっ
			ELSEIF CFLAG:随机 == 5
				CALL HEARTMARK
				CALL HEARTMARK
			ELSEIF CFLAG:随机 == 4
				CALL PRINT_STR, @"しゅきっ_H_"
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM あ゛っ゛あ゛っ゛
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"いいっ_H_"
			ELSEIF CFLAG:随机 == 0
				PRINTFORM ん゛っ゛ん゛っ゛
			ELSE
				PRINTFORM あ゛っ゛あ゛っ゛あ゛あ゛ぁ゛っ゛
				BREAK
			ENDIF
		REND
	ELSE
		REPEAT 3 + (PALAM:欲情 >= 500) + (PALAM:欲情 >= 3000) + (PALAM:欲情 >= 30000)
			CFLAG:随机 = RAND:11
			IF CFLAG:随机 == 9
				PRINTFORM いっ
			ELSEIF CFLAG:随机 == 8
				PRINTFORM んぎゅっ
			ELSEIF CFLAG:随机 == 7
				PRINTFORM ひぃっ
			ELSEIF CFLAG:随机 == 6
				PRINTFORM んんっ
			ELSEIF CFLAG:随机 == 5
				PRINTFORM ……
			ELSEIF CFLAG:随机 == 4
				PRINTFORM こわれちゃっ
			ELSEIF CFLAG:随机 == 3
				PRINTFORM ひっ
			ELSEIF CFLAG:随机 == 2
				PRINTFORM あ゛っ゛あ゛っ゛
			ELSEIF CFLAG:随机 == 1
				PRINTFORM いいっ
			ELSEIF CFLAG:随机 == 0
				PRINTFORM ん゛っ゛ん゛っ゛
			ELSE
				PRINTFORM あ゛っ゛あ゛っ゛あ゛あ゛ぁ゛っ゛
				BREAK
			ENDIF
		REND
	ENDIF
ENDIF
RETURN 1

path: ERB/EVENT_K/07 ハナ/EVENT_K7_ハナ汎用.ERB


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"
	CALL PRINT_STRW, "「ふぅーーーーっ_H_」"
	PRINTFORMW 「いいよね？ね？こんな可爱寝顔見せられたら我慢出来ないじゃんね！？」
;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

	CASE "朝口交", "朝六九式"
	IF EXP_GAIN("射精経験", PLAYER)
		CALL PRINT_STR, @"「んふふ、%CNAME("二人称")%ご馳走様サマ_H_」_W"
	ELSE
		PRINTFORMW 「%CNAME("二人称")%、気持ちよかった？」
	ENDIF
ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%, %CSTR:朝袭%
		[ENDIF]
	CASE "朝騎乗位"
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%, %CSTR:朝袭%
		[ENDIF]
	ENDSELECT

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

	PRINTFORMW 「おっはー、%CNAME("二人称")%」
	IF COND("体育")
		IF RAND:2
			PRINTFORMW 「女の子のお尻ばっかり見てたらおこだかんね」
			PRINTFORMW 「%CNAME("一人称")%の是ーけど♪」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%の体操服サイズがちっさいからパツパツなんだよねぇー」
			PRINTFORMW 「んふふ、想像した？」
		ENDIF
	ELSEIF RAND:2
		PRINTFORMW 「%CNAME("一人称")%朝ごはんとかもバッチリ作っちゃうんだよねぇ」
		PRINTFORMW 「……惚れた？」
	ELSE
		PRINTFORMW 「おはようのギュー♪」
	ENDIF
CASE "一番乗り"
	[IF_DEBUG]
		PRINTFORMW KOJO_GREETING_K8, %ARGS%
	[ENDIF]
CASE "ただいま"
	[IF_DEBUG]
		PRINTFORMW KOJO_GREETING_K8, %ARGS%
	[ENDIF]
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%(夜)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%(昼)
		[ENDIF]
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%
		[ENDIF]
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%
		[ENDIF]
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%(既に部員の大半集合済み)
		[ENDIF]
	ELSEIF CFLAG:呼び出された
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%
		[ENDIF]
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%(部室に老师がいる)
		[ENDIF]
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%(相手が現れるのが遅かった)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K8, %ARGS%
		[ENDIF]
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	[IF_DEBUG]
		PRINTFORMW KOJO_GREETING_K8, %ARGS%
	[ENDIF]
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K8, %ARGS%
	[ENDIF]
CASE "浑身是汗"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K8, %ARGS%
	[ENDIF]
CASE "刚睡醒"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K8, %ARGS%
	[ENDIF]
CASE "Cosplay中"
	PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K8
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K8, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
CASE "约会的约定"
	PRINTFORML 「さーて、なに着てこっかなー。%CNAME("二人称")%はなにがいい？」
	PRINTFORML 「めっちゃちんぽにクるヤツにしたげよっか～？ んふふ♪」
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K8, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML 「なに～？ %CNAME("一人称")%と二人っきりになりたかったの～？」
	CALL PRINT_STRL, "「カワイイとこあんじゃ～ん♪ んふふ_H_」"
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	CALL PRINT_STRL, @"「んふふ_H_ %CNAME("二人称")%積極的じゃーん、部屋に連れ込むなんて_H_」"
	CALL PRINT_STRL, @"「どうする？ もうヤっちゃう？ %CNAME("一人称")%是つでもいーよ_H_」"
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「そのへんテキトーに座っていいよ～」
	CALL PRINT_STRL, @"「それとももうヤりたい？ %CNAME("一人称")%はなんでもいいけどぉ_H_」"
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「お、%CNAME("助手")%じゃん。ちーっす」
		PRINTFORML 「どしたの二人？ なんか用？」
	ELSE
		PRINTFORML 「お、%CNAME("二人称")%じゃ～ん。いらっしゃい」
		PRINTFORML 「ほらほら、こっち座んなよ♪ んふふ♪」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML 「ちーっす、入るよ～。ここ座ってイイ？ てか座るよ～」
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML 「うーっす、ただいまー」
CASE "オナバレ"
	PRINTFORML 「も～、マジ恥ずいんですけど～。見てんなら言ってよー」
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「ね～、なにニヤニヤしてるわけ？ 見てんのバレバレなんですけど」
	CALL PRINT_STRL, "「ま、見せてんだけどね～。んふふ_H_」"
CASE "低腰臀圍"
	PRINTFORML 「ちょっと～、%CNAME("二人称")%めっちゃコーフンしてるっしょ？ 鼻の下伸びてるよ～？」
CASE "掀起裙子"
	CALL PRINT_STRL, @"「も～、%CNAME("二人称")%めっちゃ変態じゃ～ん_H_」"
	CALL PRINT_STRL, "「マジふつーに裙めくってくるとかさぁ～。んふふ_H_」"
CASE "检查内褲"
	IF COND("合意：检查内褲")
		CALL PRINT_STRL, @"「んふふ_H_ どーよ、%CNAME("二人称")%のだ～いすきなパ・ン・ツ_H_ コーフンした？」"
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		CALL PRINT_STRL, "「ちょっとぉ～……マジ鼻息荒いし……_H_ ガチ変態みたいじゃん……_H_」"
	ENDIF
CASE "拜托処理性欲"
	CALL PRINT_STRL, "「んっふっふ～_H_ またいつでも声かけてよね～」"
	CALL PRINT_STRL, @"「%CNAME("二人称")%の為なら、マジで尽くしちゃうから_H_」"
CASE "进行性処理"
	PRINTFORML 「ん、おつ～。次はヒマなときに声かけてよね～」
CASE "帮忙消除性欲"
	CALL PRINT_STRL, @"「んふ～_H_ %CNAME("二人称")%がシてくれるなんて、マジ良かったぁ_H_」"
CASE "清洁口交"
	CALL PRINT_STRL, @"「また弄脏的らいつでも呼んでよね～。%CNAME("二人称")%のちんぽなら大歓迎だし_H_」"
CASE "買東西"
	;買ってきた道具などで分岐
	IF COND("巨大振動棒購入")
		PRINTFORML 「うわ、えっぐ～。マジでこれ使う気なん？」
		PRINTFORML 「ま、%CNAME("一人称")%ならヨユーだけどね～？」
		CALL SET_DEVENT, "巨大振動棒感想"
	ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「うっわ～、めっちゃ買ってる～。カネ持ち～。えっろ～」
		CASEELSE
			PRINTFORML 「ねえねえ、なに買ってきたワケ？ 見せて見せて～♪」
		ENDSELECT
	ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「んっふっふ～♪ バレバレだし。甜ね～%CNAME("二人称")%」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「んも～、人目あんのに脱がせるとか%CNAME("二人称")%マジドSだね～」
	;まさかの野外
	ELSEIF PLACE("野外")
		CALL PRINT_STRL, "「マジヤッバ……_H_ ガチで露出PLAYさすとかさ……バレたらどうしよっか……_H_」"
	;不在個室
	ELSEIF PLACE("個室") == 0
		CALL PRINT_STRL, "「んも～、誰か来たらどうするわけ～？ この変態_H_」"
	;個室で二人きり
	ELSE
		CALL PRINT_STRL, @"「んふ～_H_ まじイイっしょ、%CNAME("一人称")%の裸体_H_」"
		PRINTFORML 「ほらほら、好きに触っていいんだよ？」
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「う～っす、待った～？」
	;做爱房
	ELSE
		PRINTFORML 「やっほー♪ 做爱房直行ー♪」
	ENDIF
	PRINTFORML 「どうする？ ちょっと話す？ それとももうヤっちゃう？」
ENDSELECT

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

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
;	[IF_DEBUG]
;		PRINTFORML KOJO_DAILY_K8, 質問１
;	[ENDIF]
;	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
;	[IF_DEBUG]
;		PRINTFORML KOJO_DAILY_K8, 質問２
;	[ENDIF]
;	CALL SET_DEVENT, "質問２"
ENDIF

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

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

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	PRINTFORML
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K8, 汎用台詞(夜)
	[ENDIF]
ELSE
	PRINTFORML 「…………」
	PRINTFORM %CALLNAME:TARGET%
	IF COND("点心有") && RAND:3 == 0
		PRINTFORM %TEXTR(@"一边往嘴里塞%TEXTS("点心")%/一边抓起一块%TEXTS("点心")%/一边非常放松地吃%TEXTS("点心")%")%
	ELSEIF CFLAG:茶 && RAND:3 == 0
		PRINTFORM %TEXTR(@"時折%SAVESTR:茶%を口に運びつつ/茶菓子をつまみながら/リラックスした様子で%SAVESTR:茶%を飲みつつ")%
	ELSE
		PRINTFORM %TEXTR("默默地/一副专注的样子/用认真的眼神/毫无起劲地/一副如何消磨时间的様子/沉默的")%
	ENDIF
	PRINTFORML %TEXTR("雑誌を読んで/メイク直しをして/携帯游戏機で遊んで/スマホを弄って/漫画本を読んで/バッグをゴソゴソして/爪にやすりがけをして/足の爪の手入れをして")%いる
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K8
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	[IF_DEBUG]
		PRINTFORML KOJO_SLEEP_K8, 汎用台詞(梦话３)
	[ENDIF]
ELSEIF RAND:2
	[IF_DEBUG]
		PRINTFORML KOJO_SLEEP_K8, 汎用台詞(梦话２)
	[ENDIF]
ELSE
	[IF_DEBUG]
		PRINTFORML KOJO_SLEEP_K8, 汎用台詞(梦话１)
	[ENDIF]
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;ARGSの各CASEでの分岐において、ARGSの文字列後半に ：地の文前 を追加する事で地の文前に喋らせることもできる。
;また、そこでTFLAG:地の文スキップ = 1 とすると、本来出て来る地の文を飛ばすこともできる
;CASE "掀起裙子"の地の文の前に喋らせたりスキップさせたい場合にはCASE "掀起裙子：地の文前"を用意すればよい
;例）CASE "掀起裙子：地の文前"
;		PRINTW 試しにスキップ
;		TFLAG:地の文スキップ = 1
;-------------------------------------------------
@KOJO_DAILYCOM_K8, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("情人旅館")
		PRINTFORMW 『』
	;做爱房
	ELSE
		PRINTFORMW 『』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

CASE "清洁口交よりＶ性処理"

CASE "清洁口交よりＡ性処理"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

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

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = 晚上好
	ELSEIF COND("昼")
		GREETING = 你好
	ELSE
		GREETING = 早上好ございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%(%CALLNAME:MASTER%に先に打招呼された)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
		[ENDIF]
	ENDIF
CASE "叫醒"
	PRINTFORMW
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
	[ENDIF]
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%
		[ENDIF]
	CASE "夸奖"
		PRINTFORMW 「んふふ♪ そーっしょそーっしょ♪」
	CASE "甜言蜜语"
		IF TALENT:恋慕
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%：恋慕
			[ENDIF]
		ELSEIF CALCF("甜言蜜语成功")
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%：成功
			[ENDIF]
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%：失敗
			[ENDIF]
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%３
			[ENDIF]
		ELSEIF RAND:2
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%２
			[ENDIF]
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%１
			[ENDIF]
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
	[ENDIF]
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K8
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW
	CASE "托一托胸部"
		IF RAND:3
			PRINTFORMW 「にひひ♪ どーよ%CNAME("一人称")%の胸部」
			PRINTFORMW 「ビンビンってキてヤクトクゥ～ってカンジっしょ♪」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("二人称")%マジで%CNAME("一人称")%の胸部好きだよねぇ～」
		ELSE
			PRINTFORMW 「持ち上げるだけとかマジ？それで終わりぃ？ んふふ♪」
		ENDIF
	CASE "按摩"
		IF RAND:3
			PRINTFORMW 「あぁ～そこっ……んっ……キくわぁ～」
			PRINTFORMW 「めっちゃ擅長じゃん%CNAME("一人称")%、何もしかしてプロ？」
		ELSEIF RAND:2
			PRINTFORMW 「なぁに変なトコ触んないの？」
			PRINTFORMW 「ほらぁココとか、メーッチャさわり心地良いよぉ？」
			PRINTFORMW 「ほぉら……にひひ♪」
		ELSE
			PRINTFORMW 「次は%CNAME("一人称")%がやったげよーか？」
			PRINTFORMW 「だーいじょーぶだいじょぶ加減して天国イかせてやっから♪」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「ん…♪ んふふ、どったの%CNAME("一人称")%、もーっとちゅーしたいって？」
			PRINTFORMW 「おっけおっけ♪ チッソクするくらいちゅーってしてやっから、覚悟しな♪」
		ELSE
			IF RAND:3
				PRINTFORMW 「んぷっ……にひ♪ こんなんで終わりってのはナシっしょ？」
				PRINTFORMW 「ゼンゼン%CNAME("一人称")%はマンゾクできてないし、もーいっかい♪」
			ELSEIF RAND:2
				PRINTFORMW 「とりま息ふかーく吸っときなー？」
				PRINTFORMW 「……しばらく離してやんないからさ♪」
			ELSE
				PRINTFORMW 「にひひ♪ どったの？激しすぎて頭ボーッとする？」
			ENDIF
		ENDIF
	CASE "膝枕"
		IF RAND:2
			PRINTFORMW 「んふ……%CNAME("二人称")%やっぱ可愛い顔してんじゃん♪」
		ELSE
			PRINTFORMW 「なぁに顔の向きコソコソ変えよーとしてんのさ」
			PRINTFORMW 「ほら……こうして……こうしたかったんしょ？ にひ♪ %CNAME("一人称")%はイイニオイ？」
		ENDIF
	CASE "泡茶"
		PRINTFORMW
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		PRINTFORMW
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW
	CASE "送一份普通的礼物"
		PRINTFORMW
	CASE "送一份高价的礼物"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K8
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K8
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%：合意没有
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
		[ENDIF]
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K8
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K8
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%：合意没有
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
		[ENDIF]
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K8
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%：じっくり
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
		[ENDIF]
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_KX1, %ARGS%, %STR:日常イベント名%：初回
			[ENDIF]
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%, %STR:日常イベント名%
			[ENDIF]
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%：刚睡醒
			[ENDIF]
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K8
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			[IF_DEBUG]
				PRINTFORMW KOJO_DAILYCOM_KX1, %ARGS%：初回
			[ENDIF]
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				[IF_DEBUG]
					PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%：打招呼前
				[ENDIF]
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					[IF_DEBUG]
						PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%：没穿内褲
					[ENDIF]
				ELSE
					[IF_DEBUG]
						PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
					[ENDIF]
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "红潮恍惚/对话框汗"
			PRINTFORMW 「うーわ、なんかめっちゃ手馴れてるんですけど……♪」
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

	ENDSELECT
;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者はPARTNER()で参照できる
CASE "連れ見抜き"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "害羞", TARGET
	;PRINTFORMW 「……%CNAME("partner")%にそういう目で見られると、ちょっと恥ずかしいですね」

;これは見抜きする(你に誘われて自家発電する)側の立場のセリフ。胖次を見せている角色はPARTNER()で参照できる
CASE "連れ見抜きに誘われた"
	;表情を変える場合はここで出来る
	;CALL EMOTION_PLUS, "夸奖", TARGET

CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	;これは見抜きされる(胖次を見せている)側の立場のセリフ。連れ見抜き参加者がいる場合はPARTNER()で参照できる
	CASE "胖次見抜き"
		;連れ見抜きされた場合
		IF PARTNER()

		ELSE

		ENDIF
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT

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

	CASE "舐陰莖"

	CASE "口交"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

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

	CASE "舐陰莖"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
;性欲解消PLAY後の台詞
CASE "帮忙消除性欲"
	SELECTCASE NAMES("性処理")
	CASE "舐陰"
		;絶頂後の放尿を你が口で受け止めた場合(この角色が[絶頂失禁体質]＆聖水経験＆高い尿意の時に、你に飲尿経験と受虐属性が有ると選択肢出現)
		IF COND("飲尿フラグ", PLAYER)

		ELSE

		ENDIF
	CASE "舐陰莖"

	CASE "口交"

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

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

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	[IF_DEBUG]
		PRINTFORMW 『KOJO_DAILYCOM_K8, %ARGS%』
	[ENDIF]
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	[IF_DEBUG]
		PRINTFORMW KOJO_DAILYCOM_K8, %ARGS%
	[ENDIF]
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
CASE "二人きり：Ｈの誘いに胖次条件で回应"
CASE "二人きり：Ｈの誘いに回应"
CASE "二人きり：Ｈの誘いを断った"
ENDSELECT

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

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

;地の文
PRINTFORMW 写真には「%MAIL_BODY%」というメッセージが添えられている…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	[IF_DEBUG]
		PRINTFORMW KOJO_DATE_K8, %ARGS%
	[ENDIF]
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	[IF_DEBUG]
		PRINTFORMW KOJO_DATE_K8, %ARGS%
	[ENDIF]
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K8, %ARGS%(同居していない)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K8, %ARGS%(同居中)
		[ENDIF]
	ENDIF

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

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

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

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "约会中の買食物"
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		;何を買ったかはSTR:選択したもの で分岐可能
		SELECTCASE STR:選択したもの
		CASE "爆米花"
			PRINTFORMW
		CASE "吉事果"
			PRINTFORMW
		CASE "热狗"
			PRINTFORMW
		ENDSELECT
	ENDSELECT
CASE "手をつなぐ"
	PRINTFORMW
CASE "手をつながない"
	PRINTFORMW
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

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

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

CASE "接吻"

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

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

;文化祭イベント
;ここでは"约会相手ではなく出し物をしている人"が喋ります。
;本来の约会相手はACTORに角色番号が入ってます
CASE "乐队演奏", "演劇", "占卜館", "恐怖屋敷", "烦悩相談室", "PaFuPaFu屋", "女仆咖啡厅", "執事咖啡厅", "西式料理店"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K8, %ARGS%(恋慕)
		[ENDIF]
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DATE_K8, %ARGS%
		[ENDIF]
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/08 優里/EVENT_K08_DAILY.ERB

license: unknown