code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K7, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "打招呼"
	IF CEVENT("妹哈娜")
		SELECTCASE CSTR:朝袭
		CASE "朝口交", "朝六九式"
			IF TALENT:恋慕
				IF RAND:2 == 0
					CALL PRINT_STR, @"「んっ_H_じゅぶっ…　"
				ELSE
					CALL PRINT_STR, @"「くぷっ、じゅぽっ…　"
				ENDIF
				IF CEVENT("妹哈娜")
					CALL PRINT_STR, @"ぷあっ_H_おはよっ　%CNAME("二人称")%_H_」_W_"
				ELSE
					CALL PRINT_STR, @"ぷあっ_H_おはよーございます　%CNAME("二人称")%_H_」_W_"
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 「んっ、じゅぷっ…
				ELSE
					PRINTFORM 「くぷっ、じゅぽっ…
				ENDIF
				PRINTFORMW えへへ、起きた？　%CNAME("二人称")%」
			ENDIF
		CASE "朝騎乗位"
			IF COND("発情期")
				IF RAND:2 == 0
					CALL PRINT_STR, @"「あっ_H_はっ_H_せーしっ_H_　%CNAME("二人称")%のせーしっ_HH_あはっ_H_」_W_"
				ELSE
					CALL PRINT_STR, @"「こじゅくりっ_H_　%CNAME("二人称")%とこじゅくりぃ_HH_」_W_"
				ENDIF
			ELSEIF TALENT:恋慕
				IF RAND:2 == 0
					CALL PRINT_STR, @"「んっ_H_あはっ_H_　"
				ELSE
					CALL PRINT_STR, @"「んんっ_H_"
					IF SIZE("阴茎", PLAYER) >= 3
						CALL PRINT_STR, @"おくっ　までぇ_H_　"
					ELSE
						CALL PRINT_STR, @"きもちっ…　"
					ENDIF
				ENDIF
				IF RAND:2 == 0
					CALL PRINT_STR, @"お、起きた？%CNAME("二人称")%_H_」_W_"
				ELSE
					CALL PRINT_STR, @"えへへぇ_H_　おはよー_H_　%CNAME("二人称")%_H_」_W_"
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 「んっ、くきゅっ…
				ELSE
					PRINTFORM 「あっ、かふっ…
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORM おっきぃ…
					ELSE
						PRINTFORM きもちっ…
					ENDIF
					IF RAND:2 == 0
						PRINTFORMW お、起きた？%CNAME("二人称")%」
					ELSE
						IF CEVENT("妹哈娜")
							PRINTFORMW えへへ　おはよっ　%CNAME("二人称")%」
						ELSE
							PRINTFORMW えへへ　おはよーございます　%CNAME("二人称")%」
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE CSTR:朝袭
		CASE "朝口交", "朝六九式"
			IF TALENT:恋慕
				IF RAND:2 == 0
					CALL PRINT_STR, @"「んっ_H_じゅぶっ…　"
				ELSE
					CALL PRINT_STR, @"「くぷっ、じゅぽっ…　"
				ENDIF
				IF CEVENT("妹哈娜")
					CALL PRINT_STR, @"ぷあっ_H_おはよっ　%CNAME("二人称")%_H_」_W_"
				ELSE
					CALL PRINT_STR, @"ぷあっ_H_おはよーございます　%CNAME("二人称")%_H_」_W_"
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 「んっ、じゅぷっ…
				ELSE
					PRINTFORM 「くぷっ、じゅぽっ…
				ENDIF
				IF CEVENT("妹哈娜")
					PRINTFORMW えへへ、起きた？　%CNAME("二人称")%」
				ELSE
					PRINTFORMW えへへ、起きたっスか？　%CNAME("二人称")%」
				ENDIF
			ENDIF
		CASE "朝騎乗位"
			IF COND("発情期")
				IF RAND:2 == 0
					CALL PRINT_STR, @"「あっ_H_はっ_H_せーしっ_H_　%CNAME("二人称")%のせーしっ_HH_あはっ_H_」_W_"
				ELSE
					CALL PRINT_STR, @"「こじゅくりっ_H_　%CNAME("二人称")%とこじゅくりぃ_HH_」_W_"
				ENDIF
			ELSEIF TALENT:恋慕
				IF RAND:2 == 0
					CALL PRINT_STR, @"「んっ_H_あはっ_H_　"
				ELSE
					CALL PRINT_STR, @"「んんっ_H_"
					IF SIZE("阴茎", PLAYER) >= 3
						CALL PRINT_STR, @"おくっ　までぇ_H_　"
					ELSE
						CALL PRINT_STR, @"きもちっ…　"
					ENDIF
				ENDIF
				IF RAND:2 == 0
					CALL PRINT_STR, @"お、起きたっスか？%CNAME("二人称")%_H_」_W_"
				ELSE
					IF CEVENT("妹哈娜")
						CALL PRINT_STR, @"えへへぇ_H_　おはよー　%CNAME("二人称")%_H_」_W_"
					ELSE
						CALL PRINT_STR, @"えへへぇ_H_　おはよーございます　%CNAME("二人称")%_H_」_W_"
					ENDIF
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 「んっ、くきゅっ…
				ELSE
					PRINTFORM 「あっ、かふっ…
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORM おっきぃ…
					ELSE
						PRINTFORM きもちっ…
					ENDIF
					IF RAND:2 == 0
						PRINTFORMW お、起きたっスか？%CNAME("二人称")%」
					ELSE
						IF CEVENT("妹哈娜")
							PRINTFORMW えへへ　おはよー　%CNAME("二人称")%」
						ELSE
							PRINTFORMW えへへ　おはよーございます　%CNAME("二人称")%」
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF

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

	;IF COND("体育")

	;ELSE
		IF CEVENT("妹哈娜")
			IF RAND:2 == 0
				PRINTFORMW 「えへへー、おはよー！%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「んふふー、ほらほらご飯出来てるよ、%CNAME("二人称")%」
			ENDIF
		ELSE
			IF RAND:2 == 0
				PRINTFORMW 「えへへー、おはよーございます%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「んふふー、ほらほらご飯出来てるっスよ、%CNAME("二人称")%」
			ENDIF
		ENDIF
	;ENDIF
CASE "一番乗り"
	IF CEVENT("妹哈娜")
		IF TALENT:相思相愛
			PRINTFORML 「えへへー、%CNAME("二人称")%遅いよー」
			PRINTFORMW %CALLNAME:TARGET%は扉から現れた%CALLNAME:MASTER%に抱住べたべたし始めた
		ELSE
			PRINTFORML 「ふふん、%CNAME("一人称")%のかちー」
			PRINTFORMW %CALLNAME:TARGET%はどこか勝ち誇った様子で胸を張るが尾巴はうれしそうに啪嗒啪嗒と振っている
		ENDIF
	ELSE
		IF TALENT:相思相愛
			PRINTFORML 「えへへー、%CNAME("二人称")%遅いっスよー」
			PRINTFORMW %CALLNAME:TARGET%は扉から現れた%CALLNAME:MASTER%に抱住べたべたし始めた
		ELSE
			PRINTFORML 「遅いっスよ%CNAME("二人称")%」
			PRINTFORMW %CALLNAME:TARGET%はどこか勝ち誇った様子で胸を張るが尾巴はうれしそうに啪嗒啪嗒と振っている
		ENDIF
	ENDIF
CASE "ただいま"
	IF CEVENT("妹哈娜")
		IF RAND:2 == 0
			PRINTFORMW 「ただいまー、%CNAME("二人称")%早いねー」
		ELSE
			PRINTFORMW 「ふいー、つかれたー…　ただいまっ！%CNAME("二人称")%」
		ENDIF
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「ただいまー、%CNAME("二人称")%早いっスねー」
		ELSE
			PRINTFORMW 「ふいー、つかれたー…　ただいまっス%CNAME("二人称")%」
		ENDIF
	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF CEVENT("妹哈娜")
		IF COND("夜")
			IF TALENT:恋慕
				PRINTFORML 「%CNAME("二人称")%お帰りー、ご飯にする？お浴室にする？それとも…キャー!!」
				PRINTFORMW %CALLNAME:TARGET%は夜だというのに体力が有些余っている
			ELSE
				PRINTFORMW 「お帰り、遅いよー%CNAME("二人称")%」
			ENDIF
		ELSE
			IF CFLAG:好感度 >= 800
				PRINTFORML 「おそーい%CNAME("二人称")%！　なにするー？游戏？　お話？　それともえっちな…　にへへー」
				PRINTFORM %CALLNAME:MASTER%現れるや否や
				SIF TALENT:娇小 == 0 || TALENT:高大
					PRINTFORM 腹部に突き刺さる様
				PRINTFORM 一直線に突進してくる
				IF TALENT:大力士 < TALENT:MASTER:大力士
					PRINTFORML が、軽々と抱きとめると%CALLNAME:TARGET%はぐりぐりと頬ずりしてきた…
					PRINTFORMW 「うへへー、%CNAME("二人称")%%CNAME("二人称")%%CNAME("二人称")%！！」
				ELSEIF TALENT:大力士 > TALENT:MASTER:大力士
					PRINTFORML 、一体その小小的身体のどこにそんな破壊力が詰まっているのか直撃してしまいひざから崩れ落ちてしまった…
					PRINTFORMW 「あ…　%CNAME("二人称", "どもり")%…　ごめんなさい…」
				ELSE
					PRINTFORML が、お互相用力は拮抗している様子でがっちりと組み合ってしまった…
					PRINTFORMW 「ふっふっふー　な、中々やるじゃない%CNAME("二人称")%」
				ENDIF
			ELSE
				PRINTFORMW 「おそーい、%CNAME("二人称")%、早く遊ぼーよ！！」
			ENDIF
		ENDIF
	ELSE
		IF COND("夜")
			IF TALENT:恋慕
				PRINTFORML 「お帰りっス%CNAME("二人称")%、ご飯にする？お浴室にする？それとも…キャー!!っス」
				PRINTFORMW %CALLNAME:TARGET%は夜だというのに体力が有些余っている
			ELSE
				PRINTFORMW 「お帰りっス、遅いっスよ%CNAME("二人称")%」
			ENDIF
		ELSE
			IF CFLAG:好感度 >= 800
				PRINTFORML 「遅いっス%CNAME("二人称")%！　何します？游戏っスか？　お話っスか？　それともえっちな…」
				PRINTFORM %CALLNAME:MASTER%現れるや否や
				SIF TALENT:娇小 == 0 || TALENT:高大
					PRINTFORM 腹部に突き刺さる様
				PRINTFORM 一直線に突進してくる
				IF TALENT:大力士 < TALENT:MASTER:大力士
					PRINTFORML が、軽々と抱きとめると%CALLNAME:TARGET%はぐりぐりと頬ずりしてきた…
					PRINTFORMW 「うへへー、%CNAME("二人称")%%CNAME("二人称")%%CNAME("二人称")%！！」
				ELSEIF TALENT:大力士 > TALENT:MASTER:大力士
					PRINTFORML 、一体その小小的身体のどこにそんな破壊力が詰まっているのか直撃してしまいひざから崩れ落ちてしまった…
					PRINTFORMW 「あ…　ご、ごめんなさい…　%CNAME("二人称")%…」
				ELSE
					PRINTFORML が、お互相用力は拮抗している様子でがっちりと組み合ってしまった…
					PRINTFORMW 「な、中々やるじゃないっスか%CNAME("二人称")%」
				ENDIF
			ELSE
				PRINTFORMW 「遅いっス%CNAME("二人称")%、早く玩遊戲っスよ！！」
			ENDIF
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CEVENT("妹哈娜")
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 3 && CFLAG:好感度 >= 800
			PRINTFORML 「こんにちわー！！」
			PRINTFORM %CALLNAME:MASTER%的姿を見るや否や
			SIF TALENT:娇小 == 0 || TALENT:高大
				PRINTFORM 腹部に突き刺さる様
			PRINTFORM 一直線に突進してくる
			IF TALENT:大力士 < TALENT:MASTER:大力士
				PRINTFORML が、軽々と抱きとめると%CALLNAME:TARGET%はぐりぐりと頬ずりしてきた…
				PRINTFORMW 「うへへー、%CNAME("二人称")%%CNAME("二人称")%%CNAME("二人称")%！！」
			ELSEIF TALENT:大力士 > TALENT:MASTER:大力士
				PRINTFORML 、一体その小小的身体のどこにそんな破壊力が詰まっているのか直撃してしまいひざから崩れ落ちてしまった…
				PRINTFORMW 「あ…　ご、ごめん、%CNAME("二人称")%…」
			ELSE
				PRINTFORML が、お互相用力は拮抗している様子でがっちりと組み合ってしまった…
				PRINTFORMW 「な、中々やるじゃない、%CNAME("二人称")%！！」
			ENDIF
		ELSEIF CFLAG:随机 == 2
			PRINTFORML 「こんにちわー！！」
			PRINTFORMW %CALLNAME:TARGET%はス布ンと扉を開け元気に打招呼をしてきた
		ELSEIF CFLAG:随机 == 1 && CHECK_CLO("泳装姿") == 0
			CALL SET_PANTIES, "", TARGET
			CALL SET_OUTER, "紧身短褲", TARGET
			PRINTFORML 「いやー、今日は寝坊しちゃって、朝急いで出てきたから結構忘れ物があったんだよー」
			IF EQUIP:裙
				PRINTFORMW %CALLNAME:TARGET%が入室した時に裙からちらりと紧身短褲が見えたが、内衣のラインが浮いているようには見えなかった…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%が入室した時にちらりと紧身短褲越しの股間を盗み見たが、内衣のラインが浮いているようには見えなかった…
			ENDIF
			CALL SET_CEVENT, "寝坊没穿内褲", TARGET
		ELSEIF CFLAG:随机 == 0
			PRINTFORML 「%CNAME("二人称")%%CNAME("二人称")%きーてよー」
			PRINTFORMW %CALLNAME:TARGET%は部屋に入ってくるなり%CALLNAME:MASTER%へまくし立てて来た
		ELSE
			PRINTFORML 「うーん、どうしよう…」
			PRINTFORML %CALLNAME:TARGET%は珍しく何か悩んだ様子で部屋へ入ってきた
			PRINTFORMW 「やっぱりから油炸…？いや、焼肉か…」
		ENDIF
	ELSE
		CFLAG:随机 = RAND:5
		IF CFLAG:随机 == 3 && CFLAG:好感度 >= 800
			PRINTFORML 「こんにちわー！！」
			PRINTFORM %CALLNAME:MASTER%的姿を見るや否や
			SIF TALENT:娇小 == 0 || TALENT:高大
				PRINTFORM 腹部に突き刺さる様
			PRINTFORM 一直線に突進してくる
			IF TALENT:大力士 < TALENT:MASTER:大力士
				PRINTFORML が、軽々と抱きとめると%CALLNAME:TARGET%はぐりぐりと頬ずりしてきた…
				PRINTFORMW 「うへへー、%CNAME("二人称")%%CNAME("二人称")%%CNAME("二人称")%！！」
			ELSEIF TALENT:大力士 > TALENT:MASTER:大力士
				PRINTFORML 、一体その小小的身体のどこにそんな破壊力が詰まっているのか直撃してしまいひざから崩れ落ちてしまった…
				PRINTFORMW 「あ…　ご、ごめんなさい…　%CNAME("二人称")%…」
			ELSE
				PRINTFORML が、お互相用力は拮抗している様子でがっちりと組み合ってしまった…
				PRINTFORMW 「な、中々やるじゃないっスか%CNAME("二人称")%」
			ENDIF
		ELSEIF CFLAG:随机 == 2
			PRINTFORML 「こんにちわー！！」
			PRINTFORMW %CALLNAME:TARGET%はス布ンと扉を開け元気に打招呼をしてきた
		ELSEIF CFLAG:随机 == 1 && CHECK_CLO("泳装姿") == 0
			CALL SET_PANTIES, "", TARGET
			CALL SET_OUTER, "紧身短褲", TARGET
			PRINTFORML 「いやー、今日は寝坊しちゃって、朝急いで出てきたから結構忘れ物があったんスよねー」
			IF EQUIP:裙
				PRINTFORMW %CALLNAME:TARGET%が入室した時に裙からちらりと紧身短褲が見えたが、内衣のラインが浮いているようには見えなかった…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%が入室した時にちらりと紧身短褲越しの股間を盗み見たが、内衣のラインが浮いているようには見えなかった…
			ENDIF
			CALL SET_CEVENT, "寝坊没穿内褲", TARGET
		ELSEIF CFLAG:随机 == 0
			PRINTFORML 「%CNAME("二人称")%%CNAME("二人称")%きーてくださいよー」
			PRINTFORMW %CALLNAME:TARGET%は部屋に入ってくるなり%CALLNAME:MASTER%へまくし立てて来た
		ELSE
			PRINTFORML 「うーん、どうしよう…」
			PRINTFORML %CALLNAME:TARGET%は珍しく何か悩んだ様子で部屋へ入ってきた
			PRINTFORMW 「やっぱりから油炸…？いや、焼肉か…」
		ENDIF
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	IF CEVENT("妹哈娜")
		;遅れた時のセリフ（既に部員の４分の３が集合済）
		IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
			PRINTFORMW 「あっ、今日は遅かったねー」
		ELSEIF CFLAG:呼び出された
			PRINTFORMW 「どーしたんの？%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「お、遅くなりましたー！！　%CNAME("二人称")%こんにちわっ！！」
		ENDIF
	ELSE
		;遅れた時のセリフ（既に部員の４分の３が集合済）
		IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
			PRINTFORMW 「あっ、今日は遅かったっスねー」
		ELSEIF CFLAG:呼び出された
			PRINTFORMW 「どーしたんスか？%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「お、遅くなりましたー！！　こんにちわっス！！」
		ENDIF
	ENDIF
CASE "抜け出された"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			PRINTFORMW 「ちょっ、にーちゃ…　いいもーん%CNAME("一人称")%は游戏やってるから」
		ELSEIF RAND:2 == 0 && BASE:欲求不満 >= 50
			PRINTFORMW 「今日は%CNAME("一人称")%を…　な、何でも無いよ　行ってらっしゃい%CNAME("二人称")%！！」
		ELSE
			PRINTFORMW 「あっ、お出かけ？%CNAME("二人称")%　行ってらっしゃいっ！」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「ちょっ、センパ…　いいもーん%CNAME("一人称")%は游戏やってるっスから」
		ELSEIF RAND:2 == 0 && BASE:欲求不満 >= 50
			PRINTFORMW 「今日は%CNAME("一人称")%を…　な、何でも無いっス　行ってらっしゃい%CNAME("二人称")%！！」
		ELSE
			PRINTFORMW 「あっ、お出かけっスか？%CNAME("二人称")%　行ってらっしゃいっス！」
		ENDIF
	ENDIF
CASE "便当"
	IF CEVENT("妹哈娜")
		IF ABL:精液中毒 > 3
			CFLAG:随机 = RAND:4
			PRINTFORML  「是っ%CNAME("二人称")%今日のお昼ご飯っ」
			IF ABL:技巧 > 5
				PRINTFORML  %CALLNAME:TARGET%は彩りや栄養を良く考えた弁当を出してきた
			ELSE
				PRINTFORML %CALLNAME:TARGET%はただひたすらに量を追求した弁当を出してきた
			ENDIF
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「で、%CNAME("二人称")%_H_%CNAME("一人称")%には%CNAME("二人称")%の%TEXTR("精液/せーえき/精子/せーし")%欲しいなー_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「%CNAME("二人称")%っ_H_%CNAME("二人称")%っ_H_ _H_%CNAME("一人称")%には%TEXTR("ぷりぷり/どろどろ/新鮮な")%%TEXTR("精液/せーえき/精子/せーし")%欲しいなっ_H_"
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"「%CNAME("一人称")%のごはんは…_H_%CNAME("二人称")%の%TEXTR("精液/せーえき/精子/せーし")%掛けご飯_H_"
			ELSE
				CALL PRINT_STR, @"「美味しい物と美味しい物を一緒に食べられるのは…　幸せ_H_"
			ENDIF
			PRINTFORML 」
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の休闲褲をずり下ろし、%CALLNAME:MASTER%の精液を自分の弁当で受け止めようとしている…
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW %CALLNAME:TARGET%は何も挟んでいない胖次を食べながら%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%をしゃぶっている…
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW %CALLNAME:TARGET%は白米を咀嚼しながら%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%で喉奥に押し込んでいる…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は山盛りのパスタに%CALLNAME:MASTER%の精液をからめながら頬張っている…
			ENDIF
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORML 「えへへー、%CNAME("二人称")%お待ちかねのお昼ご飯だよっ」
			ELSEIF RAND:3 && TALENT:相思相愛
				CALL PRINT_STR, @"「%CNAME("一人称")%の愛情たっぷりの弁当_H_」_L_"
			ELSE
				CALL PRINT_STR, @"「いーっぱい食べてねっ%CNAME("二人称")%_H_」_L_"
			ENDIF
			IF ABL:技巧 > 5
				PRINTFORML %CALLNAME:TARGET%は彩りや栄養を良く考えた弁当を出してきた
			ELSE
				PRINTFORML %CALLNAME:TARGET%はただひたすらに量を追求した弁当を出してきた
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORML 「%CNAME("二人称")%%CNAME("二人称")%、ご飯食べよっ！！」
			PRINTFORMW %CALLNAME:TARGET%はドスンと音が鳴るような量の弁当を持ってきた…
		ELSE
			PRINTFORML 「ど、どーかな…？%CNAME("二人称")%」
			PRINTFORML %CALLNAME:TARGET%の弁当は茶色が多すぎる…
			PRINTFORMW から油炸、メンチカツ、姜汁焼肉、そして大量の白米とにかくボリュームと肉が多い弁当だった
		ENDIF
	ELSE
		IF ABL:精液中毒 > 3
			CFLAG:随机 = RAND:4
			PRINTFORML  「是っ%CNAME("二人称")%今日のお昼ご飯っスよ」
			IF ABL:技巧 > 5
				PRINTFORML  %CALLNAME:TARGET%は彩りや栄養を良く考えた弁当を出してきた
			ELSE
				PRINTFORML %CALLNAME:TARGET%はただひたすらに量を追求した弁当を出してきた
			ENDIF
			IF CFLAG:随机 == 0
				CALL PRINT_STR, @"「で、%CNAME("二人称")%_H_%CNAME("一人称")%には%CNAME("二人称")%の%TEXTR("精液/せーえき/精子/せーし")%欲しいっス_H_"
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STR, @"「%CNAME("二人称")%っ_H_%CNAME("二人称")%っ_H_ _H_%CNAME("一人称")%には%TEXTR("ぷりぷり/どろどろ/新鮮な")%%TEXTR("精液/せーえき/精子/せーし")%欲しいっス_H_"
			ELSEIF CFLAG:随机 == 2
				CALL PRINT_STR, @"「%CNAME("一人称")%のごはんは…_H_%CNAME("二人称")%の%TEXTR("精液/せーえき/精子/せーし")%掛けご飯っス_H_"
			ELSE
				CALL PRINT_STR, @"「美味しい物と美味しい物を一緒に食べられるのは…　幸せっス_H_"
			ENDIF
			PRINTFORML 」
			CFLAG:随机 = RAND:4
			IF CFLAG:随机 == 0
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の休闲褲をずり下ろし、%CALLNAME:MASTER%の精液を自分の弁当で受け止めようとしている…
			ELSEIF CFLAG:随机 == 1
				PRINTFORMW %CALLNAME:TARGET%は何も挟んでいない胖次を食べながら%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%をしゃぶっている…
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW %CALLNAME:TARGET%は白米を咀嚼しながら%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%で喉奥に押し込んでいる…
			ELSE
				PRINTFORMW %CALLNAME:TARGET%は山盛りのパスタに%CALLNAME:MASTER%の精液をからめながら頬張っている…
			ENDIF
		ELSEIF TALENT:恋慕
			IF RAND:3 == 0
				PRINTFORML 「えへへー、%CNAME("二人称")%お待ちかねのお昼ご飯っス」
			ELSEIF RAND:3 && TALENT:相思相愛
				CALL PRINT_STR, @"「%CNAME("一人称")%の愛情たっぷりの弁当っス_H_」_L_"
			ELSE
				CALL PRINT_STR, @"「いーっぱい食べてくださいね%CNAME("二人称")%_H_」_L_"
			ENDIF
			IF ABL:技巧 > 5
				PRINTFORML %CALLNAME:TARGET%は彩りや栄養を良く考えた弁当を出してきた
			ELSE
				PRINTFORML %CALLNAME:TARGET%はただひたすらに量を追求した弁当を出してきた
			ENDIF
		ELSEIF RAND:3 == 0
			PRINTFORML 「%CNAME("二人称")%%CNAME("二人称")%、ご飯食べるっスよ！！」
			PRINTFORMW %CALLNAME:TARGET%はドスンと音が鳴るような量の弁当を持ってきた…
		ELSEIF RAND:3
			PRINTFORML 「どーっスか？%CNAME("二人称")%」
			PRINTFORML %CALLNAME:TARGET%の弁当は茶色が多すぎる…
			PRINTFORMW から油炸、メンチカツ、姜汁焼肉、そして大量の白米とにかくボリュームと肉が多い弁当だった
		ELSE
			PRINTFORML 「おかー桑がかっ、カレ、彼氏に弁当作るならもっと彩りよくって…」
			PRINTFORML %CALLNAME:TARGET%は顔を真っ赤に言葉を詰まらせながら弁当を差し出してきたが
			PRINTFORML %CALLNAME:MASTER%は自分らしくでもいいと言いながら頭を撫でてやるとさらに赤くなった顔をうつむかせながらも
			PRINTFORMW 隠せなくなった尾巴を千切れんばかりに振っている…
		ENDIF
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	IF CEVENT("妹哈娜")
		PRINTFORML 「ふへへー、よろしくねっ%CNAME("二人称")%！」
	ELSE
		PRINTFORML 「ふへへー、よろしくお願いします%CNAME("二人称")%！」
	ENDIF
CASE "浑身是汗"
	SELECTCASE TEXTS("季節詳細")
	CASE "夏"
		PRINTFORML 「うー、べとべと…」
	CASEELSE
		IF CEVENT("妹哈娜")
			PRINTFORML 「あづいー…　%CNAME("二人称")%あづいよー…」
		ELSE
			PRINTFORML 「あづいー、あついっスー…」
		ENDIF
	ENDSELECT
CASE "刚睡醒"
	IF RAND:2 == 0
		IF CEVENT("妹哈娜")
			PRINTFORML 「まだ眠いよー、%CNAME("二人称")%…」
		ELSE
			PRINTFORML 「んへー…　まだ眠いっス…」
		ENDIF
	ELSE
		PRINTFORML 「んー…　目ーハッキリさせるのに走ってこようかな…」
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K7
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「んふふふふー」
CASE "契約成立"
	PRINTFORML
CASE "買東西"
	IF TALENT:淫乱
		IF CEVENT("妹哈娜")
			CALL PRINT_STR, @"「えへへ、買って来たよ、%CNAME("二人称")%_H_」_L_"
		ELSE
			PRINTFORML 「えへへ…　%CNAME("一人称")%酱と買ってきたっスよ？」
		ENDIF
	ELSE
		IF CEVENT("妹哈娜")
			PRINTFORML 「うー、恥ずかしかったー　店員桑一杯%CNAME("一人称")%のこと見てくるし…」
		ELSE
			PRINTFORML 「うー、恥ずかしかったっス…　店員桑一杯%CNAME("一人称")%のこと見てくるし…」
		ENDIF
	ENDIF
	;買ってきた道具などで分岐
	IF STRCOUNTS(CSTR:SHOP_BUY履歴, "跳蛋") && DEVENT("跳蛋") == 0
		PRINTFORML 「おぉう…　抖抖震えてる…」
		CALL SET_DEVENT, "跳蛋"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "振動棒套装") && DEVENT("振動棒套装") == 0
		IF TALENT:処女 == 0
			PRINTFORML 「おぉう　ちんちんが一杯…」
		ELSE
			PRINTFORML 「%CNAME("一人称", "どもり")%の処女はまだ…　ダメっスよ？」
		ENDIF
		IF TALENT:尿道狂
			PRINTFORML （こっ、コレなら%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に入るかも…）
		ENDIF
		CALL SET_DEVENT, "振動棒套装"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "肛用振動棒") && DEVENT("肛用振動棒") == 0
		IF TALENT:Ａ処女 == 0
			PRINTFORML 「お、%TEXTR("おしり/お尻")%用のちんちん…」
		ELSE
			PRINTFORML 「えっ、これ%CNAME("一人称")%の%TEXTR("おしり/お尻")%に…？」
		ENDIF
		CALL SET_DEVENT, "肛用振動棒"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "肛門拉珠") && DEVENT("肛門拉珠") == 0
		IF CEVENT("妹哈娜")
			PRINTFORML 「おぉう…　これどー使うの…？　数珠？」
		ELSE
			PRINTFORML 「おぉう…　これどー使うんスか…？　数珠っスか？」
		ENDIF
		CALL SET_DEVENT, "肛門拉珠"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "極太振動棒") && DEVENT("極太振動棒") == 0
		IF CEVENT("妹哈娜")
			IF TALENT:処女 == 0
				PRINTFORML 「%CNAME("一人称", "どもり")%のお肚臍の上まで届君だけど…　ホントーに入るのかな？」
				PRINTFORML %CALLNAME:TARGET%は自分の腹部へ巨大な振動棒を当てている…
			ELSE
				PRINTFORML 「店員桑が凄い表情してたけどなんだったのかな…？」
			ENDIF
		ELSE
			IF TALENT:処女 == 0
				PRINTFORML 「%CNAME("一人称", "どもり")%のお肚臍の上まで届君スけど…　入るっスかね？」
				PRINTFORML %CALLNAME:TARGET%は自分の腹部へ巨大な振動棒を当てている…
			ELSE
				PRINTFORML 「店員桑が凄い表情してたっスけどなんだったんスかね…？」
			ENDIF
		ENDIF
		CALL SET_DEVENT, "極太振動棒"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "腕型振動棒") && DEVENT("腕型振動棒") == 0
		IF CEVENT("妹哈娜")
			PRINTFORML 「これ出したら店員桑に商品と顔を見られたんだけど　どーしたのかな？」
		ELSE
			PRINTFORML 「これ出したら店員桑に商品と顔を見られたっスけど　どーしたんスかね？」
		ENDIF
		CALL SET_DEVENT, "腕型振動棒"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "馬型振動棒") && DEVENT("馬型振動棒") == 0

		IF CEVENT("妹哈娜")
			PRINTFORML 「これ出したら店員桑に心配されたけど　どー言う事なのかな？」
		ELSE
			PRINTFORML 「これ出したら店員桑に心配されたっスけど　どー言う事なんスかね？」
		ENDIF
		CALL SET_DEVENT, "馬型振動棒"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "飞机杯") && DEVENT("飞机杯") == 0
		IF CEVENT("妹哈娜")
			PRINTFORML 「おぉう、これが飞机杯…　初めて見た…」
		ELSE
			PRINTFORML 「おぉう、これが飞机杯…　初めて見たっス」
		ENDIF
		CALL SET_DEVENT, "飞机杯"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "尿道探针") && DEVENT("尿道探针") == 0
		IF CEVENT("妹哈娜")
			PRINTFORML 「これって…　な、にゃんでもない！　買ってきたよっ！！」
		ELSE
			PRINTFORML 「これって…　な、にゃんでもないっス　買ってきたっスよ」
		ENDIF
		CALL SET_DEVENT, "尿道探针"
	ELSEIF STRCOUNTS(CSTR:SHOP_BUY履歴, "假阳具") && DEVENT("假阳具") == 0
		IF CEVENT("妹哈娜")
			PRINTFORML 「こんなのどー使うの？」
		ELSE
			PRINTFORML 「こんなのどー使うっスか？」
		ENDIF
		CALL SET_DEVENT, "假阳具"
	ENDIF
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"
	IF CEVENT("妹哈娜")
		CFLAG:随机 = RAND:3
		IF (TALENT:常時Ｖ振動棒 || TALENT:常時Ａ肛塞 || TALENT:常時尿道塞) && CFLAG:随机 == 0 && TALENT:淫乱 && CFLAG:躁动难忍
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0 && TALENT:常時Ｖ振動棒
				IF TALENT:淫壷
					IF COND("♀弱点", PLAYER)
						CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%のだーいすきな%TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%は準備万端だよー_H_」_L_"
					ELSE
						CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%…　%TEXTR("ちんちん/おちんちん")%…欲しいなー_H_」_L_"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「えへへー_H_%CNAME("二人称")%我慢できなくなっちゃったの？遠慮しなくって良いんだよ_H_」_L_"
				ENDIF
			ELSEIF CFLAG:随机 == 1 && TALENT:常時Ａ肛塞
				IF TALENT:尻穴狂い
					IF TALENT:結腸性感
						IF COND("肛門弱点", PLAYER)
							CALL PRINT_STR, @"「ほ、%TEXTR("ほらっ/ほーら")%_H_%CNAME("二人称")%の%TEXTR("だーいすきな/大好きな")%%TEXTR("おしり飞机杯/お尻飞机杯/ケツ穴飞机杯/ケツまんこ/ちょくちょー飞机杯")%も準備万端だよ_H_　べっ、別に%CNAME("一人称")%は仕方なくなんだからねっ」_L_"
						ELSE
							CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%、%CNAME("一人称")%%TEXTR("おしりせっくす/お尻性交/ちょくちょーせっくす/直腸性交")%早く欲しい…な…_H_」_L_"
							PRINTFORM %CALLNAME:TARGET%%TEXTR("我慢出来ない/期待した")%様子で%CALLNAME:MASTER%へ
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM 巨大的
								ELSE
									PRINTFORM 兇惡的
								ENDIF
							ENDIF
							PRINTFORML 塞子の詰まった%TEXTR("肛門/排泄腔")%を向けアピールしている…
						ENDIF
					ELSE
						IF COND("肛門弱点", PLAYER)
							CALL PRINT_STR, @"「えへへー_H_%CNAME("二人称", "どもり")%専用%TEXTR("おしりおなほ/お尻飞机杯/ケツ穴飞机杯/ケツまんこ/ちょくちょー飞机杯")%はここだよー_H_」_L_"
							PRINTFORM %CALLNAME:TARGET%
							SIF EQUIP:胖次
								PRINTFORM 内衣をずらし
							PRINTFORM %CALLNAME:MASTER%へ
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM 巨大的
								ELSE
									PRINTFORM 兇惡的
								ENDIF
							ENDIF
							PRINTFORML 塞子の詰まった%TEXTR("肛門/排泄腔")%を見せ付けている…
						ELSE
							PRINTFORM 「%CNAME("二人称")%から言われたとーり、%TEXTR("おしり/お尻")%に
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM おっきな
								ELSE
									PRINTFORM でっかい
								ENDIF
							ENDIF
							CALL PRINT_STR, @"塞子入れてるよ_H_」_L_"
							PRINTFORM %CALLNAME:TARGET%和%CALLNAME:MASTER%へ
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM 巨大的
								ELSE
									PRINTFORM 兇惡的
								ENDIF
							ENDIF
							PRINTFORML 塞子の詰まった%TEXTR("肛門/排泄腔")%を見せ付けている…
						ENDIF
					ENDIF
				ELSE
					IF ABL:Ａ拡張 >= 5
						CALL PRINT_STR, @"「せ、%CNAME("二人称")%が%CNAME("一人称")%の%TEXTR("おしり/お尻")%ガバガバにしたんだから…責任とって、きもちっくしてほしーなっ…_H_」_L_"
					ELSE
						PRINTFORML 「%CNAME("二人称", "どもり")%、部屋に連れ込んで…%CNAME("一人称")%をどーしちゃうのかな…？」
					ENDIF
				ENDIF
			ELSE
				IF TALENT:尿道狂
					IF COND("尿道弱点", PLAYER)
						CALL PRINT_STR, @"「%CNAME("二人称")%の%TEXTR("だーいすきな/大好きな")%%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%に%TEXTR("びゅびゅーって/びゅーびゅー")%%TEXTR("せーし/精子/せーえき/精液")%吐き捨てて、きもちよーくなっていーんだよ_HH_」_L_"
					ELSE
						CALL PRINT_STR, @"「え、えへへ_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%は%CNAME("二人称")%専用の%TEXTR("せーえき袋/精液袋")%っスから…好きに使っていーんだよ_H_」_L_"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「ふ、ふへへ_H_%CNAME("二人称")%ガマン出来なくなっちゃった？%CNAME("一人称")%も%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ガマン出来なくって…_HH_」_L_"
					PRINTFORM %CALLNAME:TARGET%そう言うと
					SIF EQUIP:胖次
						PRINTFORM 内衣をずらし
					PRINTFORM %CALLNAME:MASTER%へ
					IF TALENT:常時尿道塞 >= 3
						IF RAND:2 == 0
							PRINTFORM 巨大的
						ELSE
							PRINTFORM 兇惡的
						ENDIF
					ENDIF
					PRINTFORML 塞子%TEXTR("がみっちり詰まった/がぎちぎちに詰まった/で限界まで拡がった")%%TEXTR("尿道口/狭孔/排泄腔")%を見せ付けている…
				ENDIF
			ENDIF
		ELSEIF CFLAG:随机 == 1
			PRINTFORML 「えへへー、%CNAME("二人称")%何するー？」
		ELSE
			PRINTFORML 「ふへへー、%CNAME("二人称")%%CNAME("二人称")%何する？游戏でもしよっか！」
		ENDIF
	ELSE
		CFLAG:随机 = RAND:3
		IF (TALENT:常時Ｖ振動棒 || TALENT:常時Ａ肛塞 || TALENT:常時尿道塞) && CFLAG:随机 == 0 && TALENT:淫乱 && CFLAG:躁动难忍
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0 && TALENT:常時Ｖ振動棒
				IF TALENT:淫壷
					IF COND("♀弱点", PLAYER)
						CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%のだーいすきな%TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%は準備万端っスよ_H_」_L_"
					ELSE
						CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%…　%TEXTR("ちんちん/おちんちん")%…欲しいっス…_H_」_L_"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「えへへー_H_%CNAME("二人称")%我慢できなくなっちゃったんスかー？遠慮しなくって良いんスよ_H_」_L_"
				ENDIF
			ELSEIF CFLAG:随机 == 1 && TALENT:常時Ａ肛塞
				IF TALENT:尻穴狂い
					IF TALENT:結腸性感
						IF COND("肛門弱点", PLAYER)
							CALL PRINT_STR, @"「ほ、%TEXTR("ほらっ/ほーら")%_H_%CNAME("二人称")%の%TEXTR("だーいすきな/大好きな")%%TEXTR("おしり飞机杯/お尻飞机杯/ケツ穴飞机杯/ケツまんこ/ちょくちょー飞机杯")%も準備万端っスよ_H_　べっ、別に%CNAME("一人称")%は仕方なくなんスからねっ」_L_"
						ELSE
							CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%、%CNAME("一人称")%%TEXTR("おしりせっくす/お尻性交/ちょくちょーせっくす/直腸性交")%早く欲しい…っス…_H_」_L_"
							PRINTFORM %CALLNAME:TARGET%%TEXTR("我慢出来ない/期待した")%様子で%CALLNAME:MASTER%へ
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM 巨大的
								ELSE
									PRINTFORM 兇惡的
								ENDIF
							ENDIF
							PRINTFORML 塞子の詰まった%TEXTR("肛門/排泄腔")%を向けアピールしている…
						ENDIF
					ELSE
						IF COND("肛門弱点", PLAYER)
							CALL PRINT_STR, @"「えへへー_H_%CNAME("二人称", "どもり")%専用%TEXTR("おしりおなほ/お尻飞机杯/ケツ穴飞机杯/ケツまんこ/ちょくちょー飞机杯")%はここっスよー_H_」_L_"
							PRINTFORM %CALLNAME:TARGET%
							SIF EQUIP:胖次
								PRINTFORM 内衣をずらし
							PRINTFORM %CALLNAME:MASTER%へ
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM 巨大的
								ELSE
									PRINTFORM 兇惡的
								ENDIF
							ENDIF
							PRINTFORML 塞子の詰まった%TEXTR("肛門/排泄腔")%を見せ付けている…
						ELSE
							PRINTFORM 「%CNAME("二人称")%から言われたとーり、%TEXTR("おしり/お尻")%に
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM おっきな
								ELSE
									PRINTFORM でっかい
								ENDIF
							ENDIF
							CALL PRINT_STR, @"塞子入れてるんスよ_H_」_L_"
							PRINTFORM %CALLNAME:TARGET%和%CALLNAME:MASTER%へ
							IF TALENT:常時Ａ肛塞 >= 3
								IF RAND:2 == 0
									PRINTFORM 巨大的
								ELSE
									PRINTFORM 兇惡的
								ENDIF
							ENDIF
							PRINTFORML 塞子の詰まった%TEXTR("肛門/排泄腔")%を見せ付けている…
						ENDIF
					ENDIF
				ELSE
					IF ABL:Ａ拡張 >= 5
						CALL PRINT_STR, @"「せ、%CNAME("二人称")%が%CNAME("一人称")%の%TEXTR("おしり/お尻")%ガバガバにしたんスから…責任とって、きもちっくしてほしーっス…_H_」_L_"
					ELSE
						PRINTFORML 「%CNAME("二人称", "どもり")%、部屋に連れ込んで…%CNAME("一人称")%をどーしちゃうっスかね…？」
					ENDIF
				ENDIF
			ELSE
				IF TALENT:尿道狂
					IF COND("尿道弱点", PLAYER)
						CALL PRINT_STR, @"「%CNAME("二人称")%の%TEXTR("だーいすきな/大好きな")%%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%に%TEXTR("びゅびゅーって/びゅーびゅー")%%TEXTR("せーし/精子/せーえき/精液")%吐き捨てて、きもちよーくなっていーんスよ_HH_」_L_"
					ELSE
						CALL PRINT_STR, @"「え、えへへ_H_%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%は%CNAME("二人称")%専用の%TEXTR("せーえき袋/精液袋")%っスから…好きに使っていーんスよ_H_」_L_"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「ふ、ふへへ_H_%CNAME("二人称")%ガマン出来なくなっちゃったっスか？%CNAME("一人称")%も%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ガマン出来なくって…_HH_」_L_"
					PRINTFORM %CALLNAME:TARGET%そう言うと
					SIF EQUIP:胖次
						PRINTFORM 内衣をずらし
					PRINTFORM %CALLNAME:MASTER%へ
					IF TALENT:常時尿道塞 >= 3
						IF RAND:2 == 0
							PRINTFORM 巨大的
						ELSE
							PRINTFORM 兇惡的
						ENDIF
					ENDIF
					PRINTFORML 塞子%TEXTR("がみっちり詰まった/がぎちぎちに詰まった/で限界まで拡がった")%%TEXTR("尿道口/狭孔/排泄腔")%を見せ付けている…
				ENDIF
			ENDIF
		ELSEIF CFLAG:随机 == 1
			PRINTFORML 「えへへー、%CNAME("二人称")%何しますー？」
		ELSE
			PRINTFORML 「ふへへー、%CNAME("二人称")%%CNAME("二人称")%何します？游戏でもしましょーか！」
		ENDIF

	ENDIF
CASE "自室に招待"
	IF CEVENT("妹哈娜")
		IF CFLAG:躁动难忍 && RAND:2 == 0
			CFLAG:随机 = RAND:4
			IF TALENT:淫乱 && TALENT:淫壷 && CFLAG:随机 == 0
				IF COND("発情期")
					CALL PRINT_STR, @"「こ、こづくりっ_H_%CNAME("二人称")%と子作りすりゅっ_H_」_L_"
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, @"「え、えへへ_H_%CNAME("一人称")%、%TEXTR("まんこ/おまんこ/おだいじ")%ガマン出来なくって…_HH_」_L_"
				ELSE
					CALL PRINT_STR, @"「せ、セーン餡餅_H_%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%…使ってほしーなっ_H_」_L_"
				ENDIF
			ELSEIF TALENT:淫乱 && TALENT:尻穴狂い && CFLAG:随机 == 1
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ふ、ふへへ_H_%CNAME("一人称")%…%TEXTR("おしり/お尻")%ガマン出来なくなっちゃった…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「ふ、ふへへ_H_誰も居ないっスから…%TEXTR("おしりせっくす/お尻性交/ちょくちょーせっくす/直腸性交")%しない？%CNAME("二人称")%_H_」_L"
				ENDIF
			ELSEIF TALENT:淫乱 && TALENT:尿道狂 && CFLAG:随机 == 2
				IF RAND:2 == 0
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%_H_%CNAME("二人称", "甘え")%_H_%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%でスッキリしたくないかなっ_HH_」_L_"
				ELSE
					CALL PRINT_STR, @"「えへへ_H_%CNAME("二人称", "どもり")%、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%寂しくって…_HH_」_L_"
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STR, @""
				ELSE
					CALL PRINT_STR, @""
				ENDIF
			ENDIF
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:TARGET%は頬を真っ赤にし的同时、もじもじと太ももをすり合わせ%CALLNAME:MASTER%へ問いかけている…
			ELSE
				PRINTFORM %CALLNAME:TARGET%ガマン出来なくなってしまった様子で
				SIF EQUIP:胖次
					PRINTFORM 内衣の上から
				IF TALENT:淫壷 && CFLAG:随机 == 0
					PRINTFORM %TEXTR("膣/女性器/肉洞/肉孔")%
					IF TALENT:常時Ｖ振動棒
						SIF TALENT:常時Ｖ振動棒 >= 3
							PRINTFORM %TEXTR("大号的/巨大な")%
						PRINTFORM に突き刺さった振動棒
					ENDIF
				ELSEIF TALENT:尻穴狂い && CFLAG:随机 == 1
					PRINTFORM %TEXTR("肛門/排泄腔")%
					IF TALENT:常時Ａ肛塞
						SIF TALENT:常時Ａ肛塞 >= 3
							PRINTFORM %TEXTR("大号的/巨大な")%
						PRINTFORM に突き刺さった塞子
					ENDIF
				ELSEIF TALENT:尿道狂 && CFLAG:随机 == 2
					PRINTFORM %TEXTR("尿道口/狭孔/排泄腔")%
					IF TALENT:常時尿道塞
						SIF TALENT:常時尿道塞 >= 3
							PRINTFORM %TEXTR("大号的/巨大な")%
						PRINTFORM に突き刺さった塞子
					ENDIF
				ENDIF
				PRINTFORML を%TEXTR("くちくち/くちゅくちゅ")%と轻轻地刺激している…
			ENDIF
		ELSE
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORML 「よーこそ%CNAME("二人称")%！うへへー、何しよっかー？」
				PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の胸へ%TEXTR("ぽすん/ぽふん")%と轻轻地抱きついてきた
			ELSEIF CFLAG:随机 == 1
				PRINTFORML 「おー、%CNAME("二人称")%！どーしたの？」
			ELSE
				PRINTFORML 「えへへー、%CNAME("二人称")%まさか%CNAME("一人称")%に会いたくなっちゃったー？」
			ENDIF
		ENDIF
	ELSE
		IF CFLAG:躁动难忍 && RAND:2 == 0
			CFLAG:随机 = RAND:4
			IF TALENT:淫乱 && TALENT:淫壷 && CFLAG:随机 == 0
				IF COND("発情期")
					CALL PRINT_STR, @"「こ、こづくりっ_H_%CNAME("二人称")%と子作りするっス_H_」_L_"
				ELSEIF RAND:2 == 0
					CALL PRINT_STR, @"「え、えへへ_H_%CNAME("一人称")%、%TEXTR("まんこ/おまんこ/おだいじ")%ガマン出来なくって…_HH_」_L_"
				ELSE
					CALL PRINT_STR, @"「せ、セーン餡餅_H_%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%…使ってほしーっス_H_」_L_"
				ENDIF
			ELSEIF TALENT:淫乱 && TALENT:尻穴狂い && CFLAG:随机 == 1
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ふ、ふへへ_H_%CNAME("一人称")%…%TEXTR("おしり/お尻")%ガマン出来なくなっちゃった…っス_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「ふ、ふへへ_H_誰も居ないっスから…%TEXTR("おしりせっくす/お尻性交/ちょくちょーせっくす/直腸性交")%しないっスか？%CNAME("二人称")%_H_」_L"
				ENDIF
			ELSEIF TALENT:淫乱 && TALENT:尿道狂 && CFLAG:随机 == 2
				IF RAND:2 == 0
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%_H_%CNAME("二人称", "甘え")%_H_%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%でスッキリしたくないっスか_HH_」_L_"
				ELSE
					CALL PRINT_STR, @"「えへへ_H_%CNAME("二人称", "どもり")%、%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%寂しくって…_HH_」_L_"
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STR, @""
				ELSE
					CALL PRINT_STR, @""
				ENDIF
			ENDIF
			IF RAND:2 == 0
				PRINTFORML %CALLNAME:TARGET%は頬を真っ赤にし的同时、もじもじと太ももをすり合わせ%CALLNAME:MASTER%へ問いかけている…
			ELSE
				PRINTFORM %CALLNAME:TARGET%ガマン出来なくなってしまった様子で
				SIF EQUIP:胖次
					PRINTFORM 内衣の上から
				IF TALENT:淫壷 && CFLAG:随机 == 0
					PRINTFORM %TEXTR("膣/女性器/肉洞/肉孔")%
					IF TALENT:常時Ｖ振動棒
						SIF TALENT:常時Ｖ振動棒 >= 3
							PRINTFORM %TEXTR("大号的/巨大な")%
						PRINTFORM に突き刺さった振動棒
					ENDIF
				ELSEIF TALENT:尻穴狂い && CFLAG:随机 == 1
					PRINTFORM %TEXTR("肛門/排泄腔")%
					IF TALENT:常時Ａ肛塞
						SIF TALENT:常時Ａ肛塞 >= 3
							PRINTFORM %TEXTR("大号的/巨大な")%
						PRINTFORM に突き刺さった塞子
					ENDIF
				ELSEIF TALENT:尿道狂 && CFLAG:随机 == 2
					PRINTFORM %TEXTR("尿道口/狭孔/排泄腔")%
					IF TALENT:常時尿道塞
						SIF TALENT:常時尿道塞 >= 3
							PRINTFORM %TEXTR("大号的/巨大な")%
						PRINTFORM に突き刺さった塞子
					ENDIF
				ENDIF
				PRINTFORML を%TEXTR("くちくち/くちゅくちゅ")%と轻轻地刺激している…
			ENDIF
		ELSE
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 0
				PRINTFORML 「よーこそ%CNAME("二人称")%！うへへー、何しますー？」
				PRINTFORML %CALLNAME:TARGET%は%CALLNAME:MASTER%の胸へ%TEXTR("ぽすん/ぽふん")%と轻轻地抱きついてきた
			ELSEIF CFLAG:随机 == 1
				PRINTFORML 「おー、%CNAME("二人称")%！どーしたんスか？」
			ELSE
				PRINTFORML 「えへへー、%CNAME("二人称")%まさか%CNAME("一人称")%に会いたくなっちゃったんスかー？」
			ENDIF
		ENDIF
	ENDIF
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "露脐装超短裙胖次チラ"
	IF CEVENT("妹哈娜")
		CFLAG:随机 = RAND:3
		IF CFLAG:随机 == 0
			PRINTFORML 「あっ、%CNAME("二人称")%やらしー顔してるー…　何してるんの？」
		ELSEIF CFLAG:随机 == 1
			PRINTFORML 「むー、少し動くだけで見えちゃうなぁ…」
		ELSE
			IF CEVENT ("寝坊没穿内褲")
				CALL PRINT_STRL, "「うへへー、ざーんねーん！紧身短褲だから別にはずかし…く…　っ～～_／／／_」"
				PRINTFORML %CALLNAME:TARGET%はどうやら内衣だけ履き忘れた様子で、
				CFLAG:随机 = RAND:4
				IF TALENT:常時Ｖ振動棒 && CFLAG:随机 == 0
					PRINTFORM %TEXTR("膣/女性器/肉洞/肉孔")%に突き刺さった
				ELSEIF TALENT:常時Ａ肛塞 && CFLAG:随机 == 1
					PRINTFORM %TEXTR("肛門/排泄腔")%に突き刺さった
				ELSEIF TALENT:常時尿道塞 && CFLAG:随机 == 2
					PRINTFORM %TEXTR("尿道口/狭孔/排泄腔")%に突き刺さった
				ELSE
					PRINTFORM 圆鼓鼓的
				ENDIF
				PRINTFORML 股間を%CALLNAME:MASTER%へ晒してしまった…
			ELSEIF CHECK_OUTER("紧身短褲") == 0
				PRINTFORML 「う～…　お股がスースーする…」
			ELSE
				PRINTFORML 「うへへー、ざーんねーん！紧身短褲だから別に恥ずかしくないよー？」
				PRINTFORML %CALLNAME:TARGET%は少し赤くなりながらも惜し気もなく%CALLNAME:MASTER%へ紧身短褲を晒している…
			ENDIF
		ENDIF
	ELSE
		CFLAG:随机 = RAND:3
		IF CFLAG:随机 == 0
			PRINTFORML 「あっ、%CNAME("二人称")%やらしー顔してるー…　何してるんスかー」
		ELSEIF CFLAG:随机 == 1
			PRINTFORML 「むー、少し動くだけで見えちゃうっス…」
		ELSE
			IF CEVENT ("寝坊没穿内褲")
				CALL PRINT_STRL, "「うへへー、残念だったっスね！紧身短褲だから別にはずかし…く…　っ～～_／／／_」"
				PRINTFORML %CALLNAME:TARGET%はどうやら内衣だけ履き忘れた様子で、
				CFLAG:随机 = RAND:4
				IF TALENT:常時Ｖ振動棒 && CFLAG:随机 == 0
					PRINTFORM %TEXTR("膣/女性器/肉洞/肉孔")%に突き刺さった
				ELSEIF TALENT:常時Ａ肛塞 && CFLAG:随机 == 1
					PRINTFORM %TEXTR("肛門/排泄腔")%に突き刺さった
				ELSEIF TALENT:常時尿道塞 && CFLAG:随机 == 2
					PRINTFORM %TEXTR("尿道口/狭孔/排泄腔")%に突き刺さった
				ELSE
					PRINTFORM 圆鼓鼓的
				ENDIF
				PRINTFORML 股間を%CALLNAME:MASTER%へ晒してしまった…
			ELSEIF CHECK_OUTER("紧身短褲") == 0
				PRINTFORML 「う～…　お股がスースーする…」
			ELSE
				PRINTFORML 「うへへー、残念だったっスね！紧身短褲だから別に恥ずかしくないっスよー？」
				PRINTFORML %CALLNAME:TARGET%は少し赤くなりながらも惜し気もなく%CALLNAME:MASTER%へ紧身短褲を晒している…
			ENDIF
		ENDIF
	ENDIF
CASE "掀起裙子"
	IF CEVENT("妹哈娜")
		IF CEVENT ("寝坊没穿内褲")
			CALL PRINT_STRL, "「うひゃっ、何す…　っ～～_／／／_」"
			PRINTFORML %CALLNAME:TARGET%は何かに気がついた様子で顔を真っ赤にしながら裙を押さえている
			PRINTFORML ちらりと見えた裙の中は内衣を着用しているようには見えなかった…
		;紧身短褲着用なら恥ずかしくない？
		ELSEIF CHECK_OUTER("紧身短褲")
		ELSEIF CFLAG:好感度 >= 200
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 2
				PRINTFORML 「ひゃひっ、そーいうのはもっと『%TEXTR("情緒/むーど")%』っていうものをねー」
			ELSEIF CFLAG:随机 == 1
				PRINTFORML 「むー、%CNAME("二人称")%は%TEXTR("小学生/しょーがくせー")%みたいだねぇ…」
			ELSE
				PRINTFORML 「そーいうのは%TEXTR("性騷擾/せくはら")%で訴えられちゃうよー？」
			ENDIF
		ELSE
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 2
				PRINTFORML 「ひゃっ…　むー！！」
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STRL, "「っ～～_／／／_」"
			ELSE
				PRINTFORML 「うひゃぁっ、何するのさ　%CNAME("二人称")%！！」
			ENDIF
		ENDIF
	ELSE
		IF CEVENT ("寝坊没穿内褲")
			CALL PRINT_STRL, "「うひゃっ、何するんス…　っ～～_／／／_」"
			PRINTFORML %CALLNAME:TARGET%は何かに気がついた様子で顔を真っ赤にしながら裙を押さえている
			PRINTFORML ちらりと見えた裙の中は内衣を着用しているようには見えなかった…
		;紧身短褲着用なら恥ずかしくない？
		ELSEIF CHECK_OUTER("紧身短褲")
		ELSEIF CFLAG:好感度 >= 200
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 2
				PRINTFORML 「ひゃひっ、そーいうのはもっと『%TEXTR("情緒/むーど")%』っていうものをっスねー」
			ELSEIF CFLAG:随机 == 1
				PRINTFORML 「むー、%CNAME("二人称")%は%TEXTR("小学生/しょーがくせー")%みたいっスねー…」
			ELSE
				PRINTFORML 「そーいうのは%TEXTR("性騷擾/せくはら")%で訴えられちゃうっスよー？」
			ENDIF
		ELSE
			CFLAG:随机 = RAND:3
			IF CFLAG:随机 == 2
				PRINTFORML 「ひゃっ…　むー！！」
			ELSEIF CFLAG:随机 == 1
				CALL PRINT_STRL, "「っ～～_／／／_」"
			ELSE
				PRINTFORML 「うひゃぁっ、何するんスか　%CNAME("二人称")%！！」
			ENDIF
		ENDIF
	ENDIF
CASE "检查阴部"
	IF CEVENT("妹哈娜")
		IF COND("合意：检查阴部")
			CFLAG:随机 = RAND:4
			IF TALENT:常時Ｖ振動棒 && CFLAG:随机 == 0
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「うへへ_H_いわれたとーり、"
					IF SIZE("阴茎", PLAYER) > ABL:Ｖ拡張
						CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%を%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%全部食べられるようにしてるよ_H_」_L_"
					ELSE
						CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%にちゃーんと入れてるよ_H_」_L_"
					ENDIF
				ELSEIF RAND:2 == 0 && TALENT:淫壷
					CALL PRINT_STR, @"「んっ…_H_　動くとお腹ぐりって…　見える？%CNAME("二人称")%_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「えへへー、どーかな？　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%ちゃーんと見える？　%CNAME("二人称")%_H_」_L_"
				ENDIF
			ELSEIF TALENT:常時Ａ肛塞 && CFLAG:随机 == 1
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「うへへ_H_いわれたとーり、"
					IF SIZE("阴茎", PLAYER) > ABL:Ａ拡張
						CALL PRINT_STR, @"%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%を%TEXTR("おしり/お尻")%でぜーんぶ食べられるよう拡げてるよ_H_」_L_"
					ELSE
						CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("おしり/お尻")%にちゃーんと入れてるよ_H_」_L_"
					ENDIF
				ELSEIF RAND:2 == 0 && TALENT:尻穴狂い
					CALL PRINT_STR, @"「はひっ_H_　%CNAME("二人称", "どもり")%、%CNAME("一人称")%っ…%CNAME("一人称")%%TEXTR("おしり/お尻")%ガマン出来なくなっちゃ…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「くひゅっ…_H_　%TEXTR("おなか/おにゃか")%%TEXTR("ぐちっ/ぐりっ")%て…」"
				ENDIF
			ELSEIF TALENT:常時尿道塞 && CFLAG:随机 == 2
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「うへへ_H_いわれたとーり、"
					IF SIZE("阴茎", PLAYER) > ABL:尿道拡張
						CALL PRINT_STR, @"はやく%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で%TEXTR("ちんちん/おちんちん")%全部食べたいっ_H_」_L_"
					ELSE
						CALL PRINT_STR, @"いつでも%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ちゃーんと虐めてるよ、%CNAME("二人称")%_H_"
					ENDIF
				ELSEIF RAND:2 == 0 && TALENT:尿道狂
					CALL PRINT_STR, @"「えへへ_H_いっつも%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%虐めてるから"
					IF RAND:2 == 0
						CALL PRINT_STR, @"すっかり%TEXTR("ガバガバ/ゆるゆる")%になっちゃった_H_」_L_"
					ELSE
						CALL PRINT_STR, @"いつでも準備できてるよ_H_」_L_"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「んっ…_H_　動く度に%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ぐりって…_HH_」_L_"
				ENDIF
			ELSE
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「えへへ_H_　酱と見えてる？%CNAME("二人称")%_H_」_L_"
				ELSEIF RAND:2 == 0
					PRINTFORML 「う～…お股スースーする…」
				ELSE
					PRINTFORML 「や、やっぱり主动見せるとかなれないなぁ…」
				ENDIF
			ENDIF
		ENDIF
	ELSE
		IF COND("合意：检查阴部")
			CFLAG:随机 = RAND:4
			IF TALENT:常時Ｖ振動棒 && CFLAG:随机 == 0
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「うへへ_H_いわれたとーり、"
					IF SIZE("阴茎", PLAYER) > ABL:Ｖ拡張
						CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%を%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%全部食べられるようにしてますよ_H_」_L_"
					ELSE
						CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%にちゃーんと入れてるっスよ_H_」_L_"
					ENDIF
				ELSEIF RAND:2 == 0 && TALENT:淫壷
					CALL PRINT_STR, @"「んっ…_H_　動くとお腹ぐりって…　見えるっスか？%CNAME("二人称")%_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「えへへー、どーっスか？　%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%ちゃーんと見えるっスか？　%CNAME("二人称")%_H_」_L_"
				ENDIF
			ELSEIF TALENT:常時Ａ肛塞 && CFLAG:随机 == 1
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「うへへ_H_いわれたとーり、"
					IF SIZE("阴茎", PLAYER) > ABL:Ａ拡張
						CALL PRINT_STR, @"%CNAME("二人称")%の%TEXTR("ちんちん/おちんちん")%を%TEXTR("おしり/お尻")%でぜーんぶ食べられるよう拡げてるっスよ_H_」_L_"
					ELSE
						CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("おしり/お尻")%にちゃーんと入れてるっスよ_H_」_L_"
					ENDIF
				ELSEIF RAND:2 == 0 && TALENT:尻穴狂い
					CALL PRINT_STR, @"「はひっ_H_　%CNAME("二人称", "どもり")%、%CNAME("一人称")%っ…%CNAME("一人称")%%TEXTR("おしり/お尻")%ガマン出来なくなっちゃ…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「くひゅっ…_H_　%TEXTR("おなか/おにゃか")%%TEXTR("ぐちっ/ぐりっ")%て…」"
				ENDIF
			ELSEIF TALENT:常時尿道塞 && CFLAG:随机 == 2
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「うへへ_H_いわれたとーり、"
					IF SIZE("阴茎", PLAYER) > ABL:尿道拡張
						CALL PRINT_STR, @"はやく%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で%TEXTR("ちんちん/おちんちん")%全部食べたいっス_H_」_L_"
					ELSE
						CALL PRINT_STR, @"いつでも%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%ちゃーんと虐めてるっスよ、%CNAME("二人称")%_H_"
					ENDIF
				ELSEIF RAND:2 == 0 && TALENT:尿道狂
					CALL PRINT_STR, @"「えへへ_H_いっつも%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%虐めてるから"
					IF RAND:2 == 0
						CALL PRINT_STR, @"すっかり%TEXTR("ガバガバ/ゆるゆる")%になっちゃったっス_H_」_L_"
					ELSE
						CALL PRINT_STR, @"いつでも準備できてるっスよ_H_」_L_"
					ENDIF
				ELSE
					CALL PRINT_STR, @"「んっ…_H_　動く度に%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%ぐりって…_HH_」_L_"
				ENDIF
			ELSE
				IF RAND:3 == 0 && TALENT:恋慕
					CALL PRINT_STR, @"「えへへ_H_　酱と見えてるっスか？%CNAME("二人称")%_H_」_L_"
				ELSEIF RAND:2 == 0
					PRINTFORML 「う～…お股スースーするっス…」
				ELSE
					PRINTFORML 「や、やっぱり主动見せるとかなれないっス…」
				ENDIF
			ENDIF
		ENDIF
	ENDIF
CASE "拜托処理性欲"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			CALL PRINT_STR, @"「ガマン出来なくなっちゃったの？%CNAME("二人称")%_H_　しょ、しょーがないっスね_H_」_L_"
		ELSE
			CALL PRINT_STR, @"「が、ガマン出来なくなっちゃったの…　仕方無いなー%CNAME("二人称")%は_H_」_L_"
		ENDIF
	ELSE
		IF TALENT:恋慕
			CALL PRINT_STR, @"「ガマン出来なくなっちゃったんスか？%CNAME("二人称")%_H_　しょ、しょーがないっスね_H_」_L_"
		ELSE
			CALL PRINT_STR, @"「が、ガマン出来なくなっちゃったんスか…　仕方無いっスねー%CNAME("二人称")%は_H_」_L_"
		ENDIF
	ENDIF
CASE "进行性処理"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			PRINTFORML 「え、えー…　ガマンできないの…？　あんま激烈地しないでよ%CNAME("二人称")%」
		ELSE
			PRINTFORML 「え、えー…　今ちょっと忙しいんだけど…　しょーがないなー、あんま激烈地しないでよー？」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORML 「え、えー…　ガマンできないんスか…？　あんま激烈地しないでくださいよ%CNAME("二人称")%」
		ELSE
			PRINTFORML 「え、えー…　今ちょっと忙しいんスけど…　しょーがないっスねー、あんま激烈地しないでくださいよー？」
		ENDIF
	ENDIF
CASE "清洁口交"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			IF EXP:清洁口交経験
				CALL PRINT_STR, @"「お、お掃除っスか？%CNAME("一人称")%の体液で弄脏的からって…　%CNAME("一人称", "どもり")%のせいじゃ…仕方無いなぁ_H_」_L_"
			ELSE
				CALL PRINT_STR, @""
			ENDIF
			PRINTFORML %CALLNAME:TARGET%は両手の指で口を目一杯拡げ%CALLNAME:MASTER%へ差し出した…
		ELSE
			PRINTFORML 「%TEXTR("ち、ちんちん/お、おちんちん")%のそーじ？　しょーがないなー%CNAME("二人称")%は…　是、どーぞ」
			PRINTFORML %CALLNAME:TARGET%は口を開き%CALLNAME:MASTER%差し出した…
		ENDIF
	ELSE
		IF TALENT:恋慕
			IF EXP:清洁口交経験
				CALL PRINT_STR, @"「お、お掃除っスか？%CNAME("一人称")%の体液で弄脏的からって…　%CNAME("一人称", "どもり")%のせいじゃ…仕方無いっスね_H_」_L_"
			ELSE
				CALL PRINT_STR, @""
			ENDIF
			PRINTFORML %CALLNAME:TARGET%は両手の指で口を目一杯拡げ%CALLNAME:MASTER%へ差し出した…
		ELSE
			PRINTFORML 「%TEXTR("ち、ちんちん/お、おちんちん")%のそーじっスか？　しょーがないっスねー%CNAME("二人称")%は…　是、どーぞ」
			PRINTFORML %CALLNAME:TARGET%は口を開き%CALLNAME:MASTER%差し出した…
		ENDIF
	ENDIF
ENDSELECT

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CEVENT("妹哈娜")
	IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
		PRINTFORML 「そーいえば、ウチのご先祖大人は元式神だったらしいんだよねー」
		PRINTFORML 「狼の式神だったらしくってそれなりに力があって人型にも成れたらしくって」
		PRINTFORML 「ある時そのご先祖大人が、おかー桑のもっともっと昔のおかー桑？にホレちゃったらしくって」
		PRINTFORML 「なんやかんやで今の%CNAME("一人称")%が居るみたいなんだー」
		CALL SET_DEVENT, "質問１"
	ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
		PRINTFORML 「この耳と尾巴って力の扱いが未熟すぎるらしくって消せないんだよねー」
		PRINTFORML 「でも、何故かみんな気にしてないから聞いてみたら、あまりにも犬っぽいから気にしてなかったって言われちゃって…」
		CALL SET_DEVENT, "質問２"
	ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("眼鏡の話") == 0
		PRINTFORML 「えっ？何で眼鏡かけてるかって？　そーだなー…　小小的頃に目をケガしちゃって。
		PRINTFORML それで視力落ちちゃって　そんなこんなで眼鏡かけてるの」
		PRINTFORML %CALLNAME:TARGET%は誇らしそうに『ふふん』と鼻を鳴らしている
		PRINTFORML 「えっ、角色じゃない？　%CNAME("二人称")%はしつれーだなー」
		CALL SET_DEVENT, "眼鏡の話"
	ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("颈环の話") == 0
		PRINTFORML 「ん？　何で颈环つけてるかって…？　そーだなー…
		PRINTFORML 小小的頃は目を離すとすぐどっか行っちゃって迷子になってたらしいんだよねー
		PRINTFORML それで首紐に鈴つけて掛けてたのがどんどん短くなって颈环变成了んだけど
		PRINTFORML 今では颈环つけてないと落ち着かなくって見たいな感じかなー」
		CALL SET_DEVENT, "颈环の話"
	ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("家族の話") == 0
		PRINTFORML 「んー？　%CNAME("一人称")%的家族っスか？　おかー桑といもーとが居るよ
		PRINTFORML 昔から背はちっちゃくて　それと何かウチ的家系って女しか生まれないみたいで　何でなのかなー」
		CALL SET_DEVENT, "家族の話"
	ELSEIF CFLAG:日常事件回数 >= 35 && DEVENT("質問３") == 0 && TALENT:恋慕 && BASE:魂 >= 5
		PRINTFORML 「んー、何か最近おかしいんだよねー」
		PRINTFORML 「ちょーっと捻っただけで蛇口取れちゃったりドアノブ取れちゃったり…」
		PRINTFORML 「アレかな？　ごはんいっぱい食べて、%CNAME("二人称")%とせ、せっせせ…　せっくす…　してるからかな…？」
		PRINTFORML %CALLNAME:TARGET%は顔を真っ赤にしながらなにやら気になる事を言っている…
		PRINTFORML %CALLNAME:TARGET%はプラシーボから『大力士』が強化されてしまったようだ
		TALENT:大力士 = 2
		CALL SET_DEVENT, "質問３"
	ENDIF
ELSE
	IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
		PRINTFORML 「そーいえば、ウチのご先祖大人は元式神だったらしいんスよねー」
		PRINTFORML 「狼の式神だったらしくってそれなりに力があって人型にも成れたらしいっス」
		PRINTFORML 「ある時そのご先祖大人が、おかー桑のもっともっと昔のおかー桑？にホレちゃったらしくって」
		PRINTFORML 「なんやかんやで今の%CNAME("一人称")%が居るらしいんスよね」
		CALL SET_DEVENT, "質問１"
	ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
		PRINTFORML 「%CNAME("一人称")%のこの耳と尾巴って魂？の形だとかで霊的なものらしいんスよね」
		PRINTFORML 「だから霊感とかそう言うの無い人だと見えないって」
		CALL SET_DEVENT, "質問２"
	ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("眼鏡の話") == 0
		PRINTFORML 「えっ？何で眼鏡かけてるかって？　そーっスねー…　小小的頃に目をケガしちゃったんスよ。
		PRINTFORML それで視力落ちちゃいましてねー　そんなこんなで眼鏡なんス」
		PRINTFORML %CALLNAME:TARGET%は誇らしそうに『ふふん』と鼻を鳴らしている
		PRINTFORML 「えっ、角色じゃない？　前輩はしつれーっスねー」
		CALL SET_DEVENT, "眼鏡の話"
	ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("颈环の話") == 0
		PRINTFORML 「ん？　何で颈环つけてるかって…？　そっスねー…
		PRINTFORML 小小的頃は目を離すとすぐどっか行っちゃって迷子になってたらしいんス
		PRINTFORML それで首紐に鈴つけて掛けてたのがどんどん短くなって颈环变成了みたいなんスけど
		PRINTFORML 今では颈环つけてないと落ち着かなくって見たいな感じっスね」
		CALL SET_DEVENT, "颈环の話"
	ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("家族の話") == 0
		PRINTFORML 「んー？　%CNAME("一人称")%的家族っスか？　おとー桑とおかー桑とおねー酱が居るっスよ
		PRINTFORML 昔から背は小小的そーで　それと何かウチ的家系って女しか生まれないそーで　何でなんスかねー」
		CALL SET_DEVENT, "家族の話"
	ELSEIF CFLAG:日常事件回数 >= 35 && DEVENT("質問３") == 0 && TALENT:恋慕 && (EXP:膣内精液経験 >= 20 || EXP:肛内精液経験 >= 20 || EXP:乳内精液経験 >= 20 || EXP:膀胱精液経験 >= 20)
		PRINTFORML 「んー、何か最近おかしいんスよねー」
		PRINTFORML 「ちょーっと捻っただけで蛇口取れちゃったりドアノブ取れちゃったり…」
		PRINTFORML 「アレっスかね？　ごはんいっぱい食べて、%CNAME("二人称")%とせ、せっせせ…　せっくす…　してるからっスかね…」
		PRINTFORML %CALLNAME:TARGET%は顔を真っ赤にしながらなにやら気になる事を言っている…
		PRINTFORML %CALLNAME:TARGET%はプラシーボから『大力士』が強化されてしまったようだ
		TALENT:大力士 = 2
		CALL SET_DEVENT, "質問３"
	ENDIF
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF CEVENT("妹哈娜")
		IF CFLAG:好感度 >= 800
			PRINTFORML 「うへへー、次は%CNAME("一人称")%？」
		ELSEIF CFLAG:好感度 >= 300
			PRINTFORML 「な、なにさ…　%CNAME("一人称")%じゃなくても良いじゃない、うぅう～…」
		ELSE
			PRINTFORML 「ん～、なーに？%CNAME("二人称")%」
		ENDIF
	ELSE
		IF CFLAG:好感度 >= 800
			PRINTFORML 「うへへー、次%CNAME("一人称")%っスか？」
		ELSEIF CFLAG:好感度 >= 300
			PRINTFORML 「な、なんスか…　%CNAME("一人称")%じゃなくても良いじゃないっスか、うぅう～…」
		ELSE
			PRINTFORML 「ん～？何スか%CNAME("二人称")%」
		ENDIF
	ENDIF
ENDIF

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

SIF RAND:2 == 0
	Call TaiTaChara_K7

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

;以下は随机台詞など
IF CEVENT("妹哈娜")
	;時間帯と場所と関係で変化有些
	IF STATE("酔酒")
		PRINTFORML 「%TEXTR(@"ぐるぐるまわってりゅ…\/うぷっ…はぎぞう゛…\/うへへ…%CNAME("二人称")%がふたりぃ～\/フェリ前輩がふたりいりゅ～")%」
	ELSEIF COND("夜")
		PRINTFORML 「%TEXTR("うむむむ…　ここにこの数字が入って…　うーん…/おっ、レアでたー/The Beeがいいかな、それともBlack Holeがいいかなぁ…/うわっ、14へ進めとか…")%」
	ELSE
		PRINTFORML 「%TEXTR("晩御飯どーしよっかなぁ…/むっ、今日は肉食べる口だっ/うむむ…この問題が…うーん…/あれっ、いつの間に紅玉がインベントリに入ってる/えっ、今って壁阴蒂ーチャーのルール変わってるの！？")%」
		;作者はアポカリプスあたりで辞めたから壁阴蒂ーチャーのルールが変わったのを最近知った…
	ENDIF
ELSE
	;時間帯と場所と関係で変化有些
	IF STATE("酔酒")
		PRINTFORML 「%TEXTR(@"ぐるぐるまわってりゅ…\/うぷっ…はぎぞう゛…\/うへへ…%CNAME("二人称")%がふたりぃ～\/フェリ前輩がふたりいりゅ～")%」
	ELSEIF COND("夜")
		PRINTFORML 「%TEXTR("うむむむ…　ここにこの数字が入って…　うーん…/おっ、レアでたー/The Beeがいいかな、それともBlack Holeがいいかなぁ…/うわっ、14へ進めとか…")%」
	ELSE
		PRINTFORML 「%TEXTR("晩御飯どーしよっかなぁ…/むっ、今日は肉食べる口だっ/うむむ…この問題が…うーん…/あれっ、いつの間に紅玉がインベントリに入ってる/えっ、今って壁阴蒂ーチャーのルール変わってるんスか！？")%」
		;作者はアポカリプスあたりで辞めたから壁阴蒂ーチャーのルールが変わったのを最近知った…
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K7
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
CFLAG:随机 = RAND:14

IF CEVENT("妹哈娜")
	IF CFLAG:随机 == 0
		PRINTFORML 「そこはウリアッ上で迎撃っスよ%CNAME("二人称")%…　むにゃ…」
	ELSEIF CFLAG:随机 == 1
		PRINTFORML 「うひゃひゃひゃひゃ、そっちは違うよぉ」
	ELSEIF CFLAG:随机 == 2
		PRINTFORML 「もう一本…ダッシュいくよー…」
		PRINTFORML %CALLNAME:TARGET%は困倦た様子で足をバタバタさせている
	ELSEIF CFLAG:随机 == 3
		PRINTFORML 「んにゃ、うみゅ…　%CNAME("二人称")%は…　隠された通路を発見した…　14へ進め…」
	ELSEIF CFLAG:随机 == 4
		PRINTFORML 「うへひぇへ…　おにく…　いっぱい…」
	ELSEIF CFLAG:随机 == 5
		PRINTFORML 「ゆーきー…ゆきっ！！　ぶひぇっ…　いひゃい…」
	ELSEIF CFLAG:随机 == 6
		PRINTFORML 「%CNAME("二人称")%…　その鹿はてーでしちゃ…　あっ…」
	ELSEIF CFLAG:随机 == 7
		PRINTFORML 「%CNAME("二人称")%はきれーなはにゃばたけを…　見つけたっス…　%CNAME("二人称")%ははなばたけで…　休む事もできる…よ…」
	ELSEIF CFLAG:随机 == 8
		PRINTFORML 「%CNAME("二人称")%…　このおにくかひゃい…」
		PRINTFORML %CALLNAME:TARGET%は制服の下摆を食みながらなにやら呟いている…
	ELSEIF CFLAG:随机 == 9
		PRINTFORML 「ふひゅひゅ…　%CNAME("一人称")%はかんぺき…　だから…　たよっても…　ぐへへ…」
	ELSEIF CFLAG:随机 == 10
		PRINTFORML 「いでぃー…　かむにぇ…」
	ELSEIF CFLAG:随机 == 11
		PRINTFORML 「たろんしゃ…　だー…」
	ELSEIF CFLAG:随机 == 12
		PRINTFORML 「%CNAME("二人称")%…　いとー、もったっひゅか…　むにゃ…」
	ELSE
		PRINTFORMW 「もっと喰う…　まだまだ…　%CNAME("二人称")%…」
	ENDIF
ELSE
	IF CFLAG:随机 == 0
		PRINTFORML 「そこはウリアッ上で迎撃っスよ%CNAME("二人称")%…　むにゃ…」
	ELSEIF CFLAG:随机 == 1
		PRINTFORML 「うひゃひゃひゃひゃ、そっちは違うっスよー」
	ELSEIF CFLAG:随机 == 2
		PRINTFORML 「もう一本…ダッシュいくっスよー…」
		PRINTFORML %CALLNAME:TARGET%は困倦た様子で足をバタバタさせている
	ELSEIF CFLAG:随机 == 3
		PRINTFORML 「んにゃ、うみゅ…　%CNAME("二人称")%は…　隠された通路を発見した…　14へ進むっス…」
	ELSEIF CFLAG:随机 == 4
		PRINTFORML 「うへひぇへ…　おにく…　いっぱい…」
	ELSEIF CFLAG:随机 == 5
		PRINTFORML 「ゆーきー…ゆきっ！！　ぶひぇっ…　いひゃい…」
	ELSEIF CFLAG:随机 == 6
		PRINTFORML 「%CNAME("二人称")%…　その鹿はてーでしちゃ…　あっ…」
	ELSEIF CFLAG:随机 == 7
		PRINTFORML 「%CNAME("二人称")%はきれーなはにゃばたけを…　見つけたっス…　%CNAME("二人称")%ははなばたけで…　休む事もできるっス…」
	ELSEIF CFLAG:随机 == 8
		PRINTFORML 「%CNAME("二人称")%…　このおにくかひゃい…」
		PRINTFORML %CALLNAME:TARGET%は制服の下摆を食みながらなにやら呟いている…
	ELSEIF CFLAG:随机 == 9
		PRINTFORML 「ふひゅひゅ…　%CNAME("一人称")%はかんぺき…　スから…　たよっても…　ぐへへ…」
	ELSEIF CFLAG:随机 == 10
		PRINTFORML 「いでぃー…　かむにぇ…」
	ELSEIF CFLAG:随机 == 11
		PRINTFORML 「たろんしゃ…　だー…」
	ELSEIF CFLAG:随机 == 12
		PRINTFORML 「%CNAME("二人称")%…　いとー、もったっひゅか…　むにゃ…」
	ELSE
		PRINTFORMW 「もっと喰うっスよ…%CNAME("二人称")%…」
	ENDIF
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K7, ARGS
#DIM LCOUNT
;打招呼
#DIMS GREETING

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

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

	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "買食物"
		IF CEVENT("妹哈娜")
			SELECTCASE SAVESTR:現在位置
			CASE "便利店", "肉店"
				IF RAND:2
					PRINTFORML 「あっ、%CNAME("二人称")%も買食物？　繞道とは%CNAME("二人称")%も中々不良だなー」
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の姿を見つけると%TEXTR("コロッケ/ヤキトリ/から油炸/肉包")%片手に啪嗒啪嗒と尾巴を振りながら近づいてきた
				ELSE
					PRINTFORML 「うむむ…　メンチ、いやコロッケなら後三つは…」
					PRINTFORMW %CALLNAME:TARGET%はなにやら財布を見つめながら『うんうん』唸っている…
				ENDIF
			CASEELSE
					PRINTFORML 「あっ、%CNAME("二人称")%も買食物？　繞道とは%CNAME("二人称")%も中々不良だなー」
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の姿を見つけると%TEXTR("コロッケ/ヤキトリ/から油炸/肉包")%片手に啪嗒啪嗒と尾巴を振りながら近づいてきた
			ENDSELECT
		ELSE
			SELECTCASE SAVESTR:現在位置
			CASE "便利店", "肉店"
				IF RAND:2
					PRINTFORML 「あっ、%CNAME("二人称")%も買食物っスか？　繞道とは%CNAME("二人称")%も中々不良っスねー」
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の姿を見つけると%TEXTR("コロッケ/ヤキトリ/から油炸/肉包")%片手に啪嗒啪嗒と尾巴を振りながら近づいてきた
				ELSE
					PRINTFORML 「うむむ…　メンチ、いやコロッケなら後三つは…」
					PRINTFORMW %CALLNAME:TARGET%はなにやら財布を見つめながら『うんうん』唸っている…
				ENDIF
			CASEELSE
					PRINTFORML 「あっ、%CNAME("二人称")%も買食物っスか？　繞道とは%CNAME("二人称")%も中々不良っスねー」
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の姿を見つけると%TEXTR("コロッケ/ヤキトリ/から油炸/肉包")%片手に啪嗒啪嗒と尾巴を振りながら近づいてきた
			ENDSELECT
		ENDIF
	CASE "物色游戏"
		IF CEVENT("妹哈娜")
			IF RAND:3 == 0
				PRINTFORML 「あっ、%CNAME("二人称")%も游戏？　まさか%TEXTR("えっちな/FPS/格闘/シミュレーション/アクション/RPG")%游戏？　スキだねー
				PRINTFORMW %CNAME("一人称")%はこの前発売された%TEXTR("/FPS/格ゲー/シミュレーション/アクション/RPG")%！！」
			ELSEIF RAND:3
				PRINTFORMW 「最近はDL販売ばっかり買ってるけど、やっぱり物理メディアも良いんだよねぇ」
			ELSE
				PRINTFORMW 「新作も良いけれどその金額分のレトロソフトも…　悩む…」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「あっ、%CNAME("二人称")%も游戏っスか？　まさか%TEXTR("えっちな/FPS/格闘/シミュレーション/アクション/RPG")%游戏っスかね？　スキっすねー
				PRINTFORMW %CNAME("一人称")%はこの前発売された%TEXTR("/FPS/格ゲー/シミュレーション/アクション/RPG")%っス」
			ELSEIF RAND:3
				PRINTFORMW 「最近はDL販売ばっかり買ってるスけど、やっぱり物理メディアも良いんスよねぇ」
			ELSE
				PRINTFORMW 「新作も良いけれどその金額分のレトロソフトも…　悩む…」
			ENDIF
		ENDIF
	CASE "内衣選び"
		IF CEVENT("妹哈娜")
			IF RAND:3 == 0 && CFLAG:好感度 >= 800
				PRINTFORML 「あっ、%CNAME("二人称")%　いやーこの前の体育で紧身短褲破けちゃって代わりをねー」
				PRINTFORMW %CALLNAME:TARGET%は換えの紧身短褲を買ったと言っているがそれにしては買い物袋が大きすぎる…
				PRINTFORML 「えっ？いやっ…　%CNAME("一人称")%は紧身短褲買っただけだよ？　ホントっ　ううぅ～…」
				PRINTFORMW じっと%CALLNAME:TARGET%の瞳を見続けると観念したのか、顔を真っ赤にしながら中を見せてきた
				PRINTFORMW 「こ、コレ…　ちょっとえっちな内衣…　ううぅ、はずかしい…」
			ELSEIF RAND:3 == 0 && CFLAG:好感度 >= 300
				PRINTFORMW 「あっ、%CNAME("二人称")%　いやーこの前の体育で紧身短褲破けちゃって代わりをねー」
			ELSE
				PRINTFORMW 「うひゃっ、%CNAME("二人称", "どもり")%…　『何し来了？』ってぱんつ！　もーちょっとでりかしーってのをねー」
			ENDIF
		ELSE
			IF RAND:3 == 0 && CFLAG:好感度 >= 800
				PRINTFORML 「あっ、%CNAME("二人称")%　いやーこの前の体育で紧身短褲破けちゃって代わりをっスねー」
				PRINTFORMW %CALLNAME:TARGET%は換えの紧身短褲を買ったと言っているがそれにしては買い物袋が大きすぎる…
				PRINTFORML 「えっ？いやっ…　%CNAME("一人称")%は紧身短褲買っただけっスよ？　ホントっス　ううぅ～…」
				PRINTFORMW じっと%CALLNAME:TARGET%の瞳を見続けると観念したのか、顔を真っ赤にしながら中を見せてきた
				PRINTFORMW 「こ、コレっス…　ちょっとえっちな内衣っスよ　ううぅ、はずかしい…」
			ELSEIF RAND:3 == 0 && CFLAG:好感度 >= 300
				PRINTFORMW 「あっ、%CNAME("二人称")%　いやーこの前の体育で紧身短褲破けちゃって代わりをっスねー」
			ELSE
				PRINTFORMW 「うひゃっ、%CNAME("二人称", "どもり")%…　『何し来了？』ってぱんつっス！　もーちょっとでりかしーってのをっスねー」
			ENDIF
		ENDIF
	ENDSELECT

CASE "性処理：前"
	IF CEVENT("妹哈娜")
		SELECTCASE NAMES("性処理")
		CASE "手淫"
			IF ABL:精液中毒 >= 5
				PRINTFORML 「まだ授業あるのに…　%TEXTR("せーし/精子/せーえき/精液")%もらったら我慢できなくなっちゃうじゃない…」
				PRINTFORMW  %CALLNAME:TARGET%はすっかり発情した様子で%CALLNAME:MASTER%の前で膝立ちになり休闲褲を脱がし始めた…
			ELSEIF RAND:2 == 0
				PRINTFORML 「ほ、ほらっまだ授業あるんだから　はやく%TEXTR("せーし/精子/せーえき/精液")%だしちゃって」
				PRINTFORMW  %CALLNAME:TARGET%は誰か来てしまう前に済ませてしまおうと急いで%CALLNAME:MASTER%の休闲褲を脱がし始めた…
			ELSE
				PRINTFORML 「ほんと%CNAME("二人称")%のせーよくは凄いね…　さっ、出しちゃって！」
				PRINTFORMW  %CALLNAME:TARGET%はあきれた様子で%CALLNAME:MASTER%の休闲褲を脱がし始めた…
			ENDIF
		CASE "口交"
			IF TALENT:蕩唇
				IF RAND:2 == 0
					PRINTFORML 「ほ、ほらっ…　%CNAME("一人称")%の喉…　飞机杯にしちゃって良いんだよっ」
					PRINTFORM %CALLNAME:TARGET%喉の奥まで見えるよう口を大きく開き、%CALLNAME:MASTER%の
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORM 長大な
					ENDIF
					PRINTFORMW  %TEXTR("陰茎/阴茎/肉槍/肉棒")%まだかまだかと待ち続けている
				ELSE
					PRINTFORML 「はやくっ、はやく%CNAME("二人称")%の%TEXTR("せーし/精子/せーえき/精液")%くらひゃひっ」
					PRINTFORMW  %CALLNAME:TARGET%は我慢できなくなった様子で%CALLNAME:MASTER%のジッ布を口で開け始めてしまった…
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「く、口でって…　まだ授業残ってるんだよ…？　うぅう…　それじゃあ…」
				PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら口淫奉仕の準備を始めた…
			ELSE
				PRINTFORML 「うぅう…　安請け合いするんじゃなかった…　さ、さっさと%TEXTR("ちんちん/おちんちん")%だしてっ…」
				PRINTFORMW  %CALLNAME:TARGET%は諦めた様子で口淫奉仕の準備を始めた…
			ENDIF
		CASE "乳交"
			IF TALENT:淫乳
				PRINTFORML 「ほーら、%CNAME("二人称")%のすきな胸部だよー」
				PRINTFORM %CALLNAME:TARGET%
				IF TALENT:母乳体質
					PRINTFORM 母乳の滲んだ
				ELSEIF TALENT:巨乳
					PRINTFORM 豐腴飽滿的
				ELSEIF TALENT:貧乳
					PRINTFORM 平坦な
				ENDIF
				PRINTFORMW  胸をさらけ出し精処理準備を始めた…
			ELSEIF RAND:2 == 0
				PRINTFORML 「うぅう…　授業始まっちゃうから%CNAME("二人称")%はやく…」
				PRINTFORM %CALLNAME:TARGET%顔を真っ赤にしながら
				IF TALENT:母乳体質
					PRINTFORM 母乳の滲んだ
				ELSEIF TALENT:巨乳
					PRINTFORM 豐腴飽滿的
				ELSEIF TALENT:貧乳
					PRINTFORM 平坦な
				ENDIF
				PRINTFORMW  胸を裹胸布、手早く済ませて欲しいと懇願してきた…
			ELSE
				PRINTFORM 「さ、さすがに
				SELECTCASE SAVESTR:現在位置
					CASE "男子廁所"
						PRINTFORM 男子廁所は
					CASE "女子廁所"
						PRINTFORM 女子廁所は
					CASE "体育倉庫"
						PRINTFORM 体育倉庫は
					CASE "更衣室"
						PRINTFORM 更衣室
					CASEELSE
						PRINTFORM 誰かきちゃう場所は
					ENDSELECT
				PRINTFORML 恥ずかしい…」
				PRINTFORM %CALLNAME:TARGET%顔を真っ赤にしながら
				IF TALENT:母乳体質
					PRINTFORM 母乳の滲んだ
				ELSEIF TALENT:巨乳
					PRINTFORM 豐腴飽滿的
				ELSEIF TALENT:貧乳
					PRINTFORM 可愛的
				ENDIF
				PRINTFORMW  胸をさらけ出し、そわそわとあたりを見回している…
			ENDIF
		CASE "Ｖ性交"
			IF COND("発情期")
				CALL PRINT_STR, @"「こ、子作りっ_H_　%CNAME("一人称")%の%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%に%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅびゅー/びゅるびゅる")%って欲しいっ_H_」_L_"
				PRINTFORMW  発情期により理性を失ってしまった哈娜は、%TEXTR("子宮/聖域/大事な場所")%に精液をねだってきた…
			ELSEIF TALENT:淫壷
				IF  EXP:子宮姦経験 >= 20 && RAND:2
					IF RAND:2 == 0
						CALL PRINT_STR, @"「え、えへへ_H_　%CNAME("一人称")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ/子宮飞机杯")%…　いっぱい犯していーんだよ？」"
						PRINTFORMW こちらへ曝け出された性器の奥に潜む%TEXTR("子宮/聖域/大事な場所")%の門は%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を待ち開閉を繰り返している…
					ELSE
						CALL PRINT_STR, @"「んんっ…　%CNAME("二人称")%だけの入り口_H_」"
						PRINTFORMW %CALLNAME:TARGET%は性器を広げ、その奥の%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を入れる為の場所となった子宮をこちらへ曝け出し、まだかまだかと待ち続けている
					ENDIF
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「が、我慢…　出来ないよね_H_　入れていーんだよ？　%CNAME("二人称")%_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%は我慢できない様子で性器を%CALLNAME:MASTER%へ向けてきたので、就这様5分ほど眺めてやると自ら懇願してきた…
					ELSE
						CALL PRINT_STR, @"「ほ、ほらっ_H_%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%準備万端だからっ　%TEXTR("ちんちん/おちんちん")%っ　はやくっ_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%はすっかり蕩けた表情で%CALLNAME:MASTER%へ性器をさらけ出してきた…
					ENDIF
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「ほ、本当にココでするの…？　恥ずかしい…」
				PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ性器をさらけ出してきた…
			ELSE
				PRINTFORML 「か、顔から火が出そう…　%CNAME("二人称", "どもり")%早く済ませちゃって…」
				PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ性器をさらけ出してきた…
			ENDIF
		CASE "Ａ性交"
			IF TALENT:尻穴狂い
				IF ABL:Ａ拡張 >= 4
					IF RAND:2 == 0
						CALL PRINT_STR, @"「ほ、ほらっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%だよねっ_H_　ぐちゃぐちゃni↘_H_して良いよ_HH_」_L_"
					ELSE
						CALL PRINT_STR, @"「はっ、はやくっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%でいっぱい%TEXTR("せーし/精子/せーえき/精液")%出して欲しいなっ_HH_」_L_"
					ENDIF
					PRINTFORMW  %CALLNAME:TARGET%は自己的%TEXTR("肛門/排泄腔")%を両手で限界まで開き、%CALLNAME:MASTER%へ結腸の奥底まで見せ付けて誘っている…
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「ほ、ほらっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%だよねっ_H_　ぐちゃぐちゃni↘_H_して良いんだよ_HH_」_L_"
					ELSE
						CALL PRINT_STR, @"「はっ、はやくっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%でいっぱい%TEXTR("せーし/精子/せーえき/精液")%出して欲しいなっ_HH_」_L_"
					ENDIF
					PRINTFORM %CALLNAME:TARGET%自己的
					IF TALENT:小尻
						PRINTFORM 单薄的
					ELSEIF TALENT:巨尻
						PRINTFORM むっちりした
					ENDIF
					PRINTFORMW  尻を開き%CALLNAME:MASTER%へ精液をねだっている…
				ENDIF
			ELSE
				SELECTCASE SAVESTR:現在位置
				CASE "男子廁所", "女子廁所"
					PRINTFORML 「廁所だから漏らしても大丈夫って…　それが恥ずかしいんじゃない…」
					PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ%TEXTR("肛門/排泄腔")%を向けてきた…
				CASEELSE
					PRINTFORML 「うぅう…　%TEXTR("おしり/お尻/ちょくちょー/直腸")%に%TEXTR("せーし/精子/せーえき/精液")%だしちゃって授業中漏れてこないよね…？」
					PRINTFORMW  %CALLNAME:TARGET%は授業中に精液が漏れてこないか心配で気が気じゃない様子だ…
				ENDSELECT
			ENDIF
		CASE "尿道性交"
			IF TALENT:尿道狂
				IF ABL:尿道拡張 == 3
					IF RAND:2 == 0
						CALL PRINT_STR, @" 「ほ、ほらっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っ、準備万端だよっ_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%はすっかり緩んだ%TEXTR("尿道口/狭孔/排泄腔")%を両手で限界まで拡げ%CALLNAME:MASTER%へ向けてきた…
					ELSE
						CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%が%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊したんだから…　%TEXTR("ちんちん/おちんちん")%…　いれてっ_HH_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%はすっかり蕩けた表情で%TEXTR("尿道口/狭孔/排泄腔")%を自ら限界まで拡げている…
					ENDIF
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「はひっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%是つでも準備…万端だよ_HH_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%は用陰唇開き%CALLNAME:MASTER%へと%TEXTR("尿道口/狭孔/排泄腔")%を向けいつでも受け入られる事をアピールしてきた…
					ELSE
						CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%は%CNAME("二人称")%専用の%TEXTR("せーしぶくろ/精子袋/せーえきぶくろ/精液袋")%だよ_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%は用陰唇開き%TEXTR("尿道口/狭孔/排泄腔")%をさらけ出しながら恥ずかしげも無くそう言った…
					ENDIF
				ENDIF
			ELSEIF RAND:2 == 0
				SELECTCASE SAVESTR:現在位置
				CASE "男子廁所", "女子廁所"
					PRINTFORML 「廁所だから漏らしても大丈夫って…　それが恥ずかしいんじゃない…」
					PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ%TEXTR("尿道口/狭孔/排泄腔")%を向けてきた…
				CASEELSE
					PRINTFORML 「うぅう…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に%TEXTR("せーし/精子/せーえき/精液")%だしちゃって授業中漏れてこないよね…？」
					PRINTFORMW  %CALLNAME:TARGET%は授業中に精液が漏れてこないか心配で気が気じゃない様子だ…
				ENDSELECT
			ELSE
				PRINTFORML 「%CNAME("二人称")%…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%%TEXTR("性交/せっくす")%ばっかりしてたら…　%CNAME("一人称")%、普通の生活できなくなっちゃうよ…」
				PRINTFORMW  %CALLNAME:TARGET%はそう言いながらもどこか期待した様子で%TEXTR("尿道口/狭孔/排泄腔")%を%CALLNAME:MASTER%へ向けてきた…
			ENDIF
		CASE "乳頭奸"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「胸部中出し？　良いよ_H_　僕の%TEXTR("胸部/胸")%を%TEXTR("せーし/精子/せーえき/精液")%臭くして欲しいなぁ_HH_」_L_"
				PRINTFORMW  %CALLNAME:TARGET%は興奮した面持ちで那豊満的胸をさらけ出してきた…
			ELSE
				CALL PRINT_STR, @"「えへへ_H_　すっかり%CNAME("一人称")%の%TEXTR("胸部/胸")%のナカも%CNAME("二人称")%が%TEXTR("せーし/精子/せーえき/精液")%吐き出す場所になっちゃったね_H_」_L_"
				PRINTFORMW  %CALLNAME:TARGET%はすっかり蕩けた表情で自己的指で乳頭奸の準備をしている…
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE NAMES("性処理")
		CASE "手淫"
			IF ABL:精液中毒 >= 5
				PRINTFORML 「まだ授業あるのに…　%TEXTR("せーし/精子/せーえき/精液")%もらったら我慢できなくなっちゃうじゃない…」
				PRINTFORMW  %CALLNAME:TARGET%はすっかり発情した様子で%CALLNAME:MASTER%の前で膝立ちになり休闲褲を脱がし始めた…
			ELSEIF RAND:2 == 0
				PRINTFORML 「ほ、ほらっまだ授業あるんだから　はやく%TEXTR("せーし/精子/せーえき/精液")%だしちゃうって」
				PRINTFORMW  %CALLNAME:TARGET%は誰か来てしまう前に済ませてしまおうと急いで%CALLNAME:MASTER%の休闲褲を脱がし始めた…
			ELSE
				PRINTFORML 「ほんと%CNAME("二人称")%のせーよくは凄いね…　さっ、出しちゃってください！」
				PRINTFORMW  %CALLNAME:TARGET%はあきれた様子で%CALLNAME:MASTER%の休闲褲を脱がし始めた…
			ENDIF
		CASE "口交"
			IF TALENT:蕩唇
				IF RAND:2 == 0
					PRINTFORML 「ほ、ほらっ…　%CNAME("一人称")%の喉…　飞机杯にしちゃって良いんだよっ」
					PRINTFORM %CALLNAME:TARGET%喉の奥まで見えるよう口を大きく開き、%CALLNAME:MASTER%の
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORM 長大な
					ENDIF
					PRINTFORMW  %TEXTR("陰茎/阴茎/肉槍/肉棒")%まだかまだかと待ち続けている
				ELSE
					PRINTFORML 「はやくっ、はやく%CNAME("二人称")%の%TEXTR("せーし/精子/せーえき/精液")%くらひゃひっ」
					PRINTFORMW  %CALLNAME:TARGET%は我慢できなくなった様子で%CALLNAME:MASTER%のジッ布を口で開け始めてしまった…
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「く、口でって…　まだ授業残ってるんだよ…？　うぅう…　それじゃあ…」
				PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら口淫奉仕の準備を始めた…
			ELSE
				PRINTFORML 「うぅう…　安請け合いするんじゃなかった…　さ、さっさと%TEXTR("ちんちん/おちんちん")%だしちゃって%CNAME("二人称")%…」
				PRINTFORMW  %CALLNAME:TARGET%は諦めた様子で口淫奉仕の準備を始めた…
			ENDIF
		CASE "乳交"
			IF TALENT:淫乳
				PRINTFORML 「ほーら、%CNAME("二人称")%のすきな胸部だよー」
				PRINTFORM %CALLNAME:TARGET%
				IF TALENT:母乳体質
					PRINTFORM 母乳の滲んだ
				ELSEIF TALENT:巨乳
					PRINTFORM 豐腴飽滿的
				ELSEIF TALENT:貧乳
					PRINTFORM 平坦な
				ENDIF
				PRINTFORMW  胸をさらけ出し精処理準備を始めた…
			ELSEIF RAND:2 == 0
				PRINTFORML 「うぅう…　授業始まっちゃうから%CNAME("二人称")%はやく…」
				PRINTFORM %CALLNAME:TARGET%顔を真っ赤にしながら
				IF TALENT:母乳体質
					PRINTFORM 母乳の滲んだ
				ELSEIF TALENT:巨乳
					PRINTFORM 豐腴飽滿的
				ELSEIF TALENT:貧乳
					PRINTFORM 平坦な
				ENDIF
				PRINTFORMW  胸を裹胸布、手早く済ませて欲しいと懇願してきた…
			ELSE
				PRINTFORM 「さ、さすがに
				SELECTCASE SAVESTR:現在位置
					CASE "男子廁所"
						PRINTFORM 男子廁所は
					CASE "女子廁所"
						PRINTFORM 女子廁所は
					CASE "体育倉庫"
						PRINTFORM 体育倉庫は
					CASE "更衣室"
						PRINTFORM 更衣室
					CASEELSE
						PRINTFORM 誰かきちゃう場所は
					ENDSELECT
				PRINTFORML 恥ずかしいっス…」
				PRINTFORM %CALLNAME:TARGET%顔を真っ赤にしながら
				IF TALENT:母乳体質
					PRINTFORM 母乳の滲んだ
				ELSEIF TALENT:巨乳
					PRINTFORM 豐腴飽滿的
				ELSEIF TALENT:貧乳
					PRINTFORM 可愛的
				ENDIF
				PRINTFORMW  胸をさらけ出し、そわそわとあたりを見回している…
			ENDIF
		CASE "Ｖ性交"
			IF COND("発情期")
				CALL PRINT_STR, @"「こ、子作りっ_H_　%CNAME("一人称")%の%TEXTR("しきゅー/子宮口/こどもへや/大事なところ")%に%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅびゅー/びゅるびゅる")%って欲しいなっ_H_」_L_"
				PRINTFORMW  発情期により理性を失ってしまった哈娜は、%TEXTR("子宮/聖域/大事な場所")%に精液をねだってきた…
			ELSEIF TALENT:淫壷
				IF  EXP:子宮姦経験 >= 20 && RAND:2
					IF RAND:2 == 0
						CALL PRINT_STR, @"「え、えへへ_H_　%CNAME("一人称")%の%TEXTR("しきゅー/子宮/こどもへや/大事なところ/子宮飞机杯")%…　いっぱい犯していーんだよ？」"
						PRINTFORMW こちらへ曝け出された性器の奥に潜む%TEXTR("子宮/聖域/大事な場所")%の門は%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を待ち開閉を繰り返している…
					ELSE
						CALL PRINT_STR, @"「んんっ…　%CNAME("二人称")%だけの入り口だよ_H_」"
						PRINTFORMW %CALLNAME:TARGET%は性器を広げ、その奥の%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を入れる為の場所となった子宮をこちらへ曝け出し、まだかまだかと待ち続けている
					ENDIF
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「が、我慢…　出来ないよね　入れていーんだよ？　%CNAME("二人称")%_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%は我慢できない様子で性器を%CALLNAME:MASTER%へ向けてきたので、就这様5分ほど眺めてやると自ら懇願してきた…
					ELSE
						CALL PRINT_STR, @"「ほ、ほらっ_H_%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%準備万端だからっ　%TEXTR("ちんちん/おちんちん")%っ　はやくっ_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%はすっかり蕩けた表情で%CALLNAME:MASTER%へ性器をさらけ出してきた…
					ENDIF
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「ほ、本当にココでするの…？　恥ずかしい…」
				PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ性器をさらけ出してきた…
			ELSE
				PRINTFORML 「か、顔から火が出そう…　%CNAME("二人称", "どもり")%早く済ませちゃって…」
				PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ性器をさらけ出してきた…
			ENDIF
		CASE "Ａ性交"
			IF TALENT:尻穴狂い
				IF ABL:Ａ拡張 >= 4
					IF RAND:2 == 0
						CALL PRINT_STR, @"「ほ、ほらっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%だよねっ_H_　ぐちゃぐちゃni↘_H_して良いんだよ_HH_」_L_"
					ELSE
						CALL PRINT_STR, @"「はっ、はやくっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%でいっぱい%TEXTR("せーし/精子/せーえき/精液")%出して欲しいなぁ_HH_」_L_"
					ENDIF
					PRINTFORMW  %CALLNAME:TARGET%は自己的%TEXTR("肛門/排泄腔")%を両手で限界まで開き、%CALLNAME:MASTER%へ結腸の奥底まで見せ付けて誘っている…
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「ほ、ほらっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%だよねっ_H_　ぐちゃぐちゃni↘_H_して良いんだよ_HH_」_L_"
					ELSE
						CALL PRINT_STR, @"「はっ、はやくっ_H_　%CNAME("一人称")%の%TEXTR("おしり/お尻/けっちょー/結腸")%でいっぱい%TEXTR("せーし/精子/せーえき/精液")%出して欲しいなっ_HH_」_L_"
					ENDIF
					PRINTFORM %CALLNAME:TARGET%自己的
					IF TALENT:小尻
						PRINTFORM 单薄的
					ELSEIF TALENT:巨尻
						PRINTFORM むっちりした
					ENDIF
					PRINTFORMW  尻を開き%CALLNAME:MASTER%へ精液をねだっている…
				ENDIF
			ELSE
				SELECTCASE SAVESTR:現在位置
				CASE "男子廁所", "女子廁所"
					PRINTFORML 「廁所だから漏らしても大丈夫って…　それが恥ずかしいんじゃないか…」
					PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ%TEXTR("肛門/排泄腔")%を向けてきた…
				CASEELSE
					PRINTFORML 「うぅう…　%TEXTR("おしり/お尻/ちょくちょー/直腸")%に%TEXTR("せーし/精子/せーえき/精液")%だしちゃって授業中漏れてこないよね…？」
					PRINTFORMW  %CALLNAME:TARGET%は授業中に精液が漏れてこないか心配で気が気じゃない様子だ…
				ENDSELECT
			ENDIF
		CASE "尿道性交"
			IF TALENT:尿道狂
				IF ABL:尿道拡張 == 3
					IF RAND:2 == 0
						CALL PRINT_STR, @" 「ほ、ほらっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%っ、準備万端だよっ_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%はすっかり緩んだ%TEXTR("尿道口/狭孔/排泄腔")%を両手で限界まで拡げ%CALLNAME:MASTER%へ向けてきた…
					ELSE
						CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%が%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%壊したんだから…　%TEXTR("ちんちん/おちんちん")%…　いれてっ_HH_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%はすっかり蕩けた表情で%TEXTR("尿道口/狭孔/排泄腔")%を自ら限界まで拡げている…
					ENDIF
				ELSE
					IF RAND:2 == 0
						CALL PRINT_STR, @"「はひっ_H_　%CNAME("一人称")%の%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%是つでも準備…万端だよ_HH_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%は用陰唇開き%CALLNAME:MASTER%へと%TEXTR("尿道口/狭孔/排泄腔")%を向けいつでも受け入られる事をアピールしてきた…
					ELSE
						CALL PRINT_STR, @"「%CNAME("一人称", "どもり")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%は%CNAME("二人称")%専用の%TEXTR("せーしぶくろ/精子袋/せーえきぶくろ/精液袋")%っ_H_」_L_"
						PRINTFORMW  %CALLNAME:TARGET%は用陰唇開き%TEXTR("尿道口/狭孔/排泄腔")%をさらけ出しながら恥ずかしげも無くそう言った…
					ENDIF
				ENDIF
			ELSEIF RAND:2 == 0
				SELECTCASE SAVESTR:現在位置
				CASE "男子廁所", "女子廁所"
					PRINTFORML 「廁所だから漏らしても大丈夫って…　それが恥ずかしいんじゃないか…」
					PRINTFORMW  %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ%TEXTR("尿道口/狭孔/排泄腔")%を向けてきた…
				CASEELSE
					PRINTFORML 「うぅう…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%に%TEXTR("せーし/精子/せーえき/精液")%だしちゃって授業中漏れてこないよね…？」
					PRINTFORMW  %CALLNAME:TARGET%は授業中に精液が漏れてこないか心配で気が気じゃない様子だ…
				ENDSELECT
			ELSE
				PRINTFORML 「%CNAME("二人称")%…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%%TEXTR("性交/せっくす")%ばっかりしてたら…　%CNAME("一人称")%、普通の生活できなくなっちゃうよ…」
				PRINTFORMW  %CALLNAME:TARGET%はそう言いながらもどこか期待した様子で%TEXTR("尿道口/狭孔/排泄腔")%を%CALLNAME:MASTER%へ向けてきた…
			ENDIF
		CASE "乳頭奸"
			IF RAND:2 == 0
				CALL PRINT_STR, @"「胸部中出しっスか？　良いっスよ_H_　僕の%TEXTR("胸部/胸")%を%TEXTR("せーし/精子/せーえき/精液")%臭くして欲しいなっ_HH_」_L_"
				PRINTFORMW  %CALLNAME:TARGET%は興奮した面持ちで那豊満的胸をさらけ出してきた…
			ELSE
				CALL PRINT_STR, @"「えへへ_H_　すっかり%CNAME("一人称")%の%TEXTR("胸部/胸")%のナカも%CNAME("二人称")%が%TEXTR("せーし/精子/せーえき/精液")%吐き出す場所になっちゃったっ_H_」_L_"
				PRINTFORMW  %CALLNAME:TARGET%はすっかり蕩けた表情で自己的指で乳頭奸の準備をしている…
			ENDIF
		ENDSELECT
	ENDIF
CASE "性処理：後"
	IF CEVENT("妹哈娜")
		SELECTCASE NAMES("性処理")
		CASE "手淫"
			IF ABL:精液中毒 >= 5
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ふ、ふへへ_H_　顔まで飛んで…　どろどろっ…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「んっ_H_ちゅ…_H_　えへへ、いっぱい出したね%CNAME("二人称")%、きもちかった？」_W_"
				ENDIF
				PRINTFORMW 顔を精液で汚された%CALLNAME:TARGET%は、蕩けた表情でその精液を指で%TEXTR("精心/残さず")%指で掬い味わっている…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ちょ、ちょっと出しすぎ…　顔まで飛んでるじゃない」
			ELSE
				PRINTFORMW 「うわぁ、べとべと…　どんだけ溜まってるの、%CNAME("二人称")%…」
			ENDIF
		CASE "口交"
			IF TALENT:蕩唇
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ぷあっ_H_　%CNAME("二人称")%きもちくさせるのに…　%CNAME("一人称")%もイっちゃった…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「はひゅっ_H_　ひぇんぱい…　もっとくらひゃひ…_H_」_L_"
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%への奉仕のはずが自らも快感を受け蕩けた表情を晒している…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「んんーっ…　ぷあっ…　けほっ、えほっ…　出しすぎ、%CNAME("二人称")%…」
			ELSE
				PRINTFORM 「ぷはっ…　はー…　はひゅ…　%CNAME("二人称")%
				IF ABL:MASTER:施虐属性 >= 3
					PRINTFORML 頭掴むんだもの…　苦しかったんだからね？」
					PRINTFORMW %CALLNAME:TARGET%は涙目になりながら%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を撫で回している…
				ELSE
					PRINTFORML 出しすぎ…　苦しかったんだよ？」
					PRINTFORMW %CALLNAME:TARGET%は涙目になりながらもどこか誇らしげにしている…
				ENDIF
			ENDIF
		CASE "乳交"
			IF TALENT:淫乳
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ふへへ_H_　%CNAME("一人称")%の%TEXTR("胸部/胸")%…　まっしろになっちゃった…」_L_"
				ELSE
					CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%の%TEXTR("せーし/精子/せーえき/精液")%で…　%CNAME("一人称")%の%TEXTR("胸部/胸")%どろどろ_H_」_L_"
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%はすっかり蕩けた表情で胸に掛かった精液を塗り広げている…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「うわぁ…　%CNAME("二人称")%やりすぎ…　他の人に気づかれちゃうんじゃないかな…？」
			ELSE
				PRINTFORMW 「出しすぎだよ%CNAME("二人称")%…　うわぁ、どろどろ…」
			ENDIF
	;	CASE "Ｖ性交"
	;		IF TALENT:淫壷
	;			IF RAND:2 == 0
	;
	;			ELSE
	;
	;			ENDIF
	;		ELSEIF RAND:2 == 0
	;
	;		ELSE
	;
	;		ENDIF
	;	CASE "Ａ性交"
	;		IF TALENT:尻穴狂い
	;			IF RAND:2 == 0
	;
	;			ELSE
	;
	;			ENDIF
	;		ELSEIF RAND:2 == 0
	;
	;		ELSE
	;
	;		ENDIF
		CASE "尿道性交"
			IF TALENT:尿道狂
				CFLAG:随机 = RAND:3
				IF TALENT:常時尿道塞 && CFLAG:随机 == 0
					CALL PRINT_STR, @"「あっ_H_%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%の%TEXTR("せーし/精子/せーえき/精液")%洩れちゃう…　んんっ_／／／_」_L_"
					PRINTFORM %TEXTR("尿袋/膀胱")%に大量的被灌进%CALLNAME:MASTER%の精子を無駄にしないために
					IF TALENT:常時尿道塞 == 4
						PRINTFORM 巨大的
					ELSEIF TALENT:常時尿道塞 == 3
						PRINTFORM 巨大的
					ENDIF
					PRINTFORMW 塞子を差込み塞いでいる…
				ELSEIF CFLAG:随机 == 1
					CALL PRINT_STR, @"「えへへ、いっぱい出したね　%CNAME("二人称")%_H_　きもちかった？　%CNAME("一人称")%…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%でいっぱいイっちゃった_HH_」_L_"
					PRINTFORM %CALLNAME:TARGET%的%TEXTR("尿道口/狭孔/排泄腔")%は%CALLNAME:MASTER%の
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORMW  長大な阴茎で%TEXTR("抉られ/掘削され")%元に戻らない様子だ…
					ELSE
						PRINTFORMW  阴茎で%TEXTR("抉られ/掘削され")%ヒクヒクと痙攣を繰り返している…
					ENDIF
					CALL PRINT_STR, @"「あっ_H_　ごぼごぼって…　溢れてきた…_H_」_W"
				ELSE
					CALL PRINT_STR, @"「んんんっ_H_　%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%…　%CNAME("二人称")%の%TEXTR("せーし/精子/せーえき/精液")%でいっぱい_HH_」\L_"
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORMW  長大な阴茎で%TEXTR("抉られ/掘削され")%元に戻らない様子だ…
					ELSE
						PRINTFORMW  阴茎で%TEXTR("抉られ/掘削され")%ヒクヒクと痙攣を繰り返している…
					ENDIF
					CALL PRINT_STR, @"「%CNAME("二人称")%が激烈地するから…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%締まらなくなっちゃったね_HH_」_W"
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「うぅう…　%CNAME("二人称")%出しすぎ…　授業中我慢できるかな…」
				PRINTFORMW  そういいつつも%CALLNAME:TARGET%はどこか満足そうに%TEXTR("尿道口/狭孔/排泄腔")%を撫で回している…
			ELSE
				CALL PRINT_STR, @"「出しすぎだよ%CNAME("二人称")%…　おなか膨らんじゃってるじゃない　んんっ_H_」_L_"
				PRINTFORMW  大量の精液を飲み込んだ%CALLNAME:TARGET%の膀胱は風船のように膨らんでしまい、僅かでも力を加えれば%TEXTR("尿道口/狭孔/排泄腔")%精液が漏れてしまうだろう…
			ENDIF
	;	CASE "乳頭奸"
	;		IF TALENT:淫乳
	;			IF RAND:2 == 0
	;
	;			ELSE
	;
	;			ENDIF
	;		ELSEIF RAND:2 == 0
	;
	;		ELSE
	;
	;		ENDIF
		CASEELSE
			IF TALENT:淫乱
				CALL PRINT_STR, @"「いっぱい出したね%CNAME("二人称")%_H_　きもちかった？」_W"
			ELSEIF RAND:2 == 0
				PRINTFORMW  「もー、出しすぎだよ%CNAME("二人称")%…　まだ授業あるのにー」
			ELSE
				PRINTFORMW  「相変わらず%CNAME("二人称")%の性欲は底知らずだね…　出しすぎっ！！」
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE NAMES("性処理")
		CASE "手淫"
			IF ABL:精液中毒 >= 5
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ふへへ_H_　顔まで飛んで…　どろどろっス…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「んっ_H_ちゅ…_H_　えへへ、いっぱい出したっスね%CNAME("二人称")%、きもちかったっスか？」_W_"
				ENDIF
				PRINTFORMW 顔を精液で汚された%CALLNAME:TARGET%は、蕩けた表情でその精液を指で%TEXTR("精心/残さず")%指で掬い味わっている…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「ちょ、ちょっと出しすぎっス…　顔まで飛んでるじゃないっスかー」
			ELSE
				PRINTFORMW 「うわぁ、べとべとっス　どんだけ溜まってるんスか%CNAME("二人称")%…」
			ENDIF
		CASE "口交"
			IF TALENT:蕩唇
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ぷあっ_H_　%CNAME("二人称")%きもちくさせるのに…　%CNAME("一人称")%もイっちゃったっス…_H_」_L_"
				ELSE
					CALL PRINT_STR, @"「はひゅっ_H_　ひぇんぱい…　もっとくらひゃひ…_H_」_L_"
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%への奉仕のはずが自らも快感を受け蕩けた表情を晒している…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「んんーっ…　ぷあっ…　けほっ、えほっ…　出しすぎっス、%CNAME("二人称")%…」
			ELSE
				PRINTFORM 「ぷはっ…　はー…　はひゅ…　%CNAME("二人称")%
				IF ABL:MASTER:施虐属性 >= 3
					PRINTFORML 頭掴むんスもの…　苦しかったんスからね？」
					PRINTFORMW %CALLNAME:TARGET%は涙目になりながら%CALLNAME:MASTER%の%TEXTR("陰茎/阴茎/肉槍/肉棒")%を撫で回している…
				ELSE
					PRINTFORML 出しすぎっス…　苦しかったんスよ？」
					PRINTFORMW %CALLNAME:TARGET%は涙目になりながらもどこか誇らしげにしている…
				ENDIF
			ENDIF
		CASE "乳交"
			IF TALENT:淫乳
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ふへへ_H_　%CNAME("一人称")%の%TEXTR("胸部/胸")%…　まっしろになっちゃったっス…」_L_"
				ELSE
					CALL PRINT_STR, @"「えへへ_H_　%CNAME("二人称")%の%TEXTR("せーし/精子/せーえき/精液")%で…　%CNAME("一人称")%の%TEXTR("胸部/胸")%どろどろっス_H_」_L_"
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%はすっかり蕩けた表情で胸に掛かった精液を塗り広げている…
			ELSEIF RAND:2 == 0
				PRINTFORMW 「うわぁ…　%CNAME("二人称")%やりすぎっス…　他の人に気づかれちゃうんじゃないっスかね…？」
			ELSE
				PRINTFORMW 「出しすぎっス%CNAME("二人称")%…　うわぁ、どろどろ…」
			ENDIF
	;	CASE "Ｖ性交"
	;		IF TALENT:淫壷
	;			IF RAND:2 == 0
	;
	;			ELSE
	;
	;			ENDIF
	;		ELSEIF RAND:2 == 0
	;
	;		ELSE
	;
	;		ENDIF
	;	CASE "Ａ性交"
	;		IF TALENT:尻穴狂い
	;			IF RAND:2 == 0
	;
	;			ELSE
	;
	;			ENDIF
	;		ELSEIF RAND:2 == 0
	;
	;		ELSE
	;
	;		ENDIF
		CASE "尿道性交"
			IF TALENT:尿道狂
				CFLAG:随机 = RAND:3
				IF TALENT:常時尿道塞 && CFLAG:随机 == 0
					CALL PRINT_STR, @"「あっ_H_%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%の%TEXTR("せーし/精子/せーえき/精液")%洩れちゃう…　んんっ_／／／_」_L_"
					PRINTFORM %TEXTR("尿袋/膀胱")%に大量的被灌进%CALLNAME:MASTER%の精子を無駄にしないために
					IF TALENT:常時尿道塞 == 4
						PRINTFORM 巨大的
					ELSEIF TALENT:常時尿道塞 == 3
						PRINTFORM 巨大的
					ENDIF
					PRINTFORMW 塞子を差込み塞いでいる…
				ELSEIF CFLAG:随机 == 1
					CALL PRINT_STR, @"「えへへ、いっぱい出したっスね　%CNAME("二人称")%_H_　きもちかったっスか？　%CNAME("一人称")%…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%でいっぱいイっちゃったっス_HH_」_L_"
					PRINTFORM %CALLNAME:TARGET%的%TEXTR("尿道口/狭孔/排泄腔")%は%CALLNAME:MASTER%の
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORMW  長大な阴茎で%TEXTR("抉られ/掘削され")%元に戻らない様子だ…
					ELSE
						PRINTFORMW  阴茎で%TEXTR("抉られ/掘削され")%ヒクヒクと痙攣を繰り返している…
					ENDIF
					CALL PRINT_STR, @"「あっ_H_　ごぼごぼって…　溢れてきたっスよ…_H_」_W"
				ELSE
					CALL PRINT_STR, @"「んんんっ_H_　%CNAME("一人称")%の%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%…　%CNAME("二人称")%の%TEXTR("せーし/精子/せーえき/精液")%でいっぱいっス_HH_」\L_"
					IF SIZE("阴茎", PLAYER) >= 3
						PRINTFORMW  長大な阴茎で%TEXTR("抉られ/掘削され")%元に戻らない様子だ…
					ELSE
						PRINTFORMW  阴茎で%TEXTR("抉られ/掘削され")%ヒクヒクと痙攣を繰り返している…
					ENDIF
					CALL PRINT_STR, @"「%CNAME("二人称")%が激烈地するから…　%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%締まらなくなっちゃったっスね_HH_」_W"
				ENDIF
			ELSEIF RAND:2 == 0
				PRINTFORML 「うぅう…　%CNAME("二人称")%出しすぎっス…　授業中我慢できるかな…」
				PRINTFORMW  そういいつつも%CALLNAME:TARGET%はどこか満足そうに%TEXTR("尿道口/狭孔/排泄腔")%を撫で回している…
			ELSE
				CALL PRINT_STR, @"「出しすぎっスよ%CNAME("二人称")%…　おなか膨らんじゃってるじゃないっスか　んんっ_H_」_L_"
				PRINTFORMW  大量の精液を飲み込んだ%CALLNAME:TARGET%の膀胱は風船のように膨らんでしまい、僅かでも力を加えれば%TEXTR("尿道口/狭孔/排泄腔")%精液が漏れてしまうだろう…
			ENDIF
	;	CASE "乳頭奸"
	;		IF TALENT:淫乳
	;			IF RAND:2 == 0
	;
	;			ELSE
	;
	;			ENDIF
	;		ELSEIF RAND:2 == 0
	;
	;		ELSE
	;
	;		ENDIF
		CASEELSE
			IF TALENT:淫乱
				CALL PRINT_STR, @"「いっぱい出したっスね%CNAME("二人称")%_H_　きもちかったっスか？」_W"
			ELSEIF RAND:2 == 0
				PRINTFORMW  「もー、出しすぎっスよ%CNAME("二人称")%…　まだ授業あるのにー」
			ELSE
				PRINTFORMW  「相変わらず%CNAME("二人称")%の性欲は底知らずっスね…　出しすぎっス！！」
			ENDIF
		ENDSELECT
	ENDIF
;これは昼か夜
CASE "打招呼"
	IF CEVENT("妹哈娜")
		SELECTCASE STR:日常イベント名
		CASE "打招呼ハグ"
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「んふふ～%CNAME("二人称")%の气味嫌いじゃないよ？」
			ELSEIF COND("発情期")
				CALL PRINT_STR, @"「んっ_H_こんにちは　%CNAME("二人称", "どもり")%」_L_"
				PRINTFORMW %CALLNAME:TARGET%は上気した顔で%CALLNAME:MASTER%の足に股を擦り付けてきた…
			ELSEIF FLAG:乳頭奸 && TALENT:淫乳
				CALL PRINT_STR, @"「んっ、%CNAME("二人称")%…_H_もっとぎゅって…」_L_"
				PRINTFORMW %CALLNAME:TARGET%は甘えるように胸を押し付けてくるが明らかに乳頭や胸罩ではない硬いものが%CALLNAME:MASTER%に当たっている…
			ELSEIF COND("易出汗")
				IF COND("易出汗", MASTER)
					PRINTFORML 「あーつーいー%CNAME("二人称")%暑いからー」
					PRINTFORMW （%CNAME("二人称", "どもり")%の气味が…）
				ELSE
					PRINTFORMW 「あっ汗っ！！今%CNAME("一人称")%浑身是汗だから…　やめっ…」
				ENDIF
			ELSEIF COND("易出汗", MASTER)
				PRINTFORML 「あーつーいー%CNAME("二人称")%暑いからー」
				PRINTFORMW （%CNAME("二人称", "どもり")%の气味が…）
			ELSE
				PRINTFORML 「んふふふふ～%CNAME("二人称", "甘え")%っ！！」
				PRINTFORMW %CALLNAME:TARGET%は抱きしめられると尾巴を啪嗒啪嗒と揺らしながら%CALLNAME:MASTER%の胸に顔を埋めてきた
			ENDIF
		CASE "打招呼接吻"
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「は、恥ずかしいよ…%CNAME("二人称")%…」
			ELSE
				IF RAND:4 == 0
					IF COND("夜")
							PRINTFORM 「こんばん
						ELSE
							PRINTFORM 「こんにち
						ENDIF
						PRINTFORMW 　んぶっ…　ちゅ…　ぷあっ…　いきなりズルイ…」

				ELSEIF RAND:4
					PRINTFORMW 「あ…　んっ、ぷはっ…　い、いきなりだね%CNAME("二人称")%…」
				ELSEIF RAND:4
					PRINTFORMW 「も、もー…　%CNAME("二人称")%ってば…」
				ELSE
					PRINTFORM 「んっ…はぁ…
						IF COND("夜")
							PRINTFORMW こ、こんにちわ…」
						ELSE
							PRINTFORMW こ、こんばんわ…」
						ENDIF
				ENDIF
			ENDIF
		CASE "打招呼口交"
			IF DEVENT(STR:日常イベント名) == 0

			ELSE

			ENDIF
		CASEELSE
			IF COND("夜")
				PRINTFORMW 「こんばんは！！」
			ELSEIF COND("昼")
				PRINTFORMW 「こんにちは！！」
			ELSEIF COND("発情期")
				PRINTFORMW 「こ、こんにちは…　んんっ…」
			ELSE
				PRINTFORMW 「おはよーございまース！！」
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE STR:日常イベント名
		CASE "打招呼ハグ"
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「んふふ～%CNAME("二人称")%の气味嫌いじゃないっスよ？」
			ELSEIF COND("発情期")
				CALL PRINT_STR, @"「んっ_H_こんにちはっス　%CNAME("二人称", "どもり")%」_L_"
				PRINTFORMW %CALLNAME:TARGET%は上気した顔で%CALLNAME:MASTER%の足に股を擦り付けてきた…
			ELSEIF EXP:Ｂ性交経験 == 0 && FLAG:乳頭奸 && TALENT:淫乳
				CALL PRINT_STR, @"「んっ、%CNAME("二人称")%…_H_もっとぎゅって…」_L_"
				PRINTFORMW %CALLNAME:TARGET%は甘えるように胸を押し付けてくるが明らかに乳頭や胸罩ではない硬いものが%CALLNAME:MASTER%に当たっている…
			ELSEIF COND("易出汗")
				IF COND("易出汗", MASTER)
					PRINTFORML 「あーつーいー%CNAME("二人称")%暑いっスからー」
					PRINTFORMW （セ、%CNAME("二人称")%の气味が…）
				ELSE
					PRINTFORMW 「あっ汗っ！！今%CNAME("一人称")%浑身是汗だから…　やめっ…」
				ENDIF
			ELSEIF COND("易出汗", MASTER)
				PRINTFORML 「あーつーいー%CNAME("二人称")%暑いっスからー」
				PRINTFORMW （セ、%CNAME("二人称")%の气味が…）
			ELSE
				PRINTFORML 「んふふふふ～%CNAME("二人称", "甘え")%っ！！」
				PRINTFORMW %CALLNAME:TARGET%は抱きしめられると尾巴を啪嗒啪嗒と揺らしながら%CALLNAME:MASTER%の胸に顔を埋めてきた
			ENDIF
		CASE "打招呼接吻"
			;初めて
			IF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「は、恥ずかしいっスよ…%CNAME("二人称")%…」
			ELSE
				IF RAND:4 == 0
					IF COND("夜")
							PRINTFORM 「こんばん
						ELSE
							PRINTFORM 「こんにち
						ENDIF
						PRINTFORMW 　んぶっ…　ちゅ…　ぷあっ…　いきなりズルイっス…」

				ELSEIF RAND:4
					PRINTFORMW 「あ…　んっ、ぷはっ…　い、いきなりっスね%CNAME("二人称")%…」
				ELSEIF RAND:4
					PRINTFORMW 「も、もー…　%CNAME("二人称")%ってば…」
				ELSE
					PRINTFORM 「んっ…はぁ…
						IF COND("夜")
							PRINTFORMW こ、こんにちわっス…」
						ELSE
							PRINTFORMW こ、こんばんわっス…」
						ENDIF
				ENDIF
			ENDIF
		CASE "打招呼口交"
			IF DEVENT(STR:日常イベント名) == 0

			ELSE

			ENDIF
		CASEELSE
			IF COND("夜")
				PRINTFORMW 「こんばんはっス！！」
			ELSEIF COND("昼")
				PRINTFORMW 「こんにちはっス！！」
			ELSEIF COND("発情期")
				PRINTFORMW 「こ、こんにちはっス…　んんっ…」
			ELSE
				PRINTFORMW 「おはよーございまース！！」
			ENDIF
		ENDSELECT
	ENDIF
CASE "叫醒"
	IF CEVENT("妹哈娜")
		PRINTFORML 「おひゃよーごじゃいまひゅ…にーちゃ……ぐー…」
	ELSE
		PRINTFORML 「おひゃよーごじゃいまひゅ…せんぴゃい……ぐー…」
	ENDIF
	PRINTFORMW 起こしたは良いが再び睡眠に落ちてしまったがそのうち起きるだろう…
CASE "眠い"
	IF CEVENT("妹哈娜")
		PRINTFORML 「%TEXTR("ふにゃ…　にぇむひ…/まぶたが…おも、く…/ね、ねてないよ！！/ふひっ、ね、ねねね、ねてない！　ぜんぜん眠くないよ！")%」
	ELSE
		PRINTFORML 「%TEXTR("ふにゃ…　にぇむひ…/まぶたが…おも、く…/ね、ねてねーっスよ！！/ふひっ、ね、ねねね、ねてねーっス！　ぜんぜん眠くねーっスよ！")%」
	ENDIF
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		IF CEVENT("妹哈娜")
			PRINTFORMW 「にゅふふふふ～、そーお？そんなに凄い？%CNAME("二人称")%～」
		ELSE
			PRINTFORMW 「にゅふふふふ～、そーっスか？そんなに凄いっスか？%CNAME("二人称")%～」
		ENDIF
	CASE "甜言蜜语"
		IF CALCF("甜言蜜语成功")
			IF TALENT:恋慕
				PRINTFORML 「ふへへー、もっかい！ねーねー、%CNAME("二人称")%もーいっかい」
			ELSE
				IF CEVENT("妹哈娜")
					PRINTFORML 「な、何言ってんの…%CNAME("一人称")%にそんなこと言ったって…」
				ELSE
					PRINTFORML 「な、何言ってるんスか…%CNAME("一人称")%にそんなこと言ったって…」
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら尾巴をぱたぱたと揺らしている
			ENDIF
		ELSE
			IF CEVENT("妹哈娜")
				PRINTFORMW 「何言ってんのさ%CNAME("二人称")%、そんなことよりきーてよ、にーちゃーん」
			ELSE
				PRINTFORMW 「何言ってるっスか%CNAME("二人称")%、そんなことよりきーてくださいよ%CNAME("二人称")%ー」
			ENDIF
		ENDIF
	CASEELSE
		IF CEVENT("妹哈娜")
			CFLAG:随机 = RAND:8
			IF CFLAG:随机 == 0 && COND("発情期")
				CALL PRINT_STR, @"「ソレよりも%CNAME("一人称")%といーことしない？%CNAME("二人称", "甘え")%_H_」_W_"
			ELSEIF CFLAG:随机 == 1
				SELECTCASE TEXTS("季節詳細")
				CASE "冬"
					IF RAND:2 == 0
						PRINTFORMW 「んふふー　冬は%CNAME("一人称")%の季節だからねー　コレくらいの寒さでへこたれないよ」
					ELSE
						PRINTFORML 「ゆーきー！！　ひゃー！！　あははは！！！　%CNAME("二人称")%%CNAME("二人称")%！！　雪っだよ雪！！」
						PRINTFORMW 雪が降るような気温の方が調子がいいのか、%CALLNAME:TARGET%は尾巴を千切れんばかりに振り乱し辺りを駆け回っている…
					ENDIF
				CASE "晩秋"
					IF RAND:2 == 0
						PRINTFORMW 「秋も終わりで寒くなってきたねー　%CNAME("一人称")%は寒い方が調子出るからねー」
					ELSE
						PRINTFORMW 「あ、秋はきらいじゃないけど…　銀杏だけはダメ…　うぅ…」
					ENDIF
				CASE "秋"
					IF RAND:2 == 0
						PRINTFORMW 「おー…　イチョウの木から銀杏が…　うわっ、くさっ…　だ、ダメっ…　この气味は…」
					ELSE
						PRINTFORMW 「グラウンドの端っこ、落ち葉凄いなー　今度烤红薯でも焼こーよー」
					ENDIF
				CASE "初秋"
					IF RAND:2 == 0
						PRINTFORML 「もーすぐ、食べ物がおいしい季節だねー　%TEXTR("ぎゅーにく/牛肉")%、%TEXTR("豚肉/ぶたにく")%、%TEXTR("鶏/とりにく")%に%TEXTR("魚/さかな")%！」
						PRINTFORMW 肉類ばかりじゃないか…
					ELSE
						PRINTFORMW 「大分暑さも和らいで来たなー　夜になると虫も鳴き始めて…」
					ENDIF
				CASE "夏"
					IF RAND:2 == 0
						PRINTFORMW 「この暑さは何とかならんかなー…」
					ELSE
						PRINTFORMW 「あつい、暑すぎっ　むしろ熱いっ！！」
					ENDIF
				CASE "初夏"
					IF RAND:2 == 0
						PRINTFORMW 「うー、今年も暑くなりそうだなぁ…」
					ELSE
						PRINTFORML 「今年の夏は大家海行きたいなー」
						PRINTFORML %CALLNAME:TARGET%はニコニコ顔で今後の予定を考えている
						PRINTFORMW 「あっ、%CNAME("一人称")%達の泳装姿に興奮したからって外で推倒たりしないでよ、%CNAME("二人称")%？」
					ENDIF
				CASE "春"
					IF RAND:2 == 0 && CEVENT("入学時の話題") == 0
						PRINTFORMW 「%CNAME("二人称")%を遂に見つけて頑張って勉強してここに入学したんだよねー」
						CALL SET_CEVENT, "入学時の話題"
					ELSE
						IF RAND:2 == 0
							PRINTFORMW 「桜がいっぱい咲いててキレーだねー%CNAME("二人称")%」
						ELSE
							PRINTFORMW 「大家赏花とかも良いなー　おだんごとかー、おまんじゅとかー　んふふー」
						ENDIF
					ENDIF
				ENDSELECT
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW 「にーちゃーん…　しゅくだい…　作業教えて…」
			ELSEIF CFLAG:随机 == 3
				PRINTFORMW 「%CNAME("二人称")%ってどんなご飯好き？　鶏肉？　豚肉？　牛肉？　肉ばっかり…　じゃあ魚？」
			ELSEIF CFLAG:随机 == 4
				PRINTFORMW 「そういえば%CNAME("二人称")%アレどーなった？」
			ELSEIF CFLAG:随机 == 5
				PRINTFORML 「%CNAME("二人称")%そっち敵行ったよっ、うわっまたこっち来た！！」
				PRINTFORMW %CALLNAME:TARGET%はガチャガチャと游戏機を弄繰り回しながらこちらへまくし立ててくる
			ELSEIF CFLAG:随机 == 6
				PRINTFORML 「ねーねー、あそびましょーにーちゃーん」
				PRINTFORML %CALLNAME:MASTER%はその辺にあった避孕套ボールを全力で投げてやった
				IF CFLAG:好感度 >= 1000
					PRINTFORML 「しょ、しょーがないなー%CNAME("二人称")%は　キャッチボールだね！！」
					PRINTFORMW %CALLNAME:TARGET%はぱたぱたと尾巴を振りながら駆けていった
				ELSEIF CFLAG:好感度 >= 300
					PRINTFORML 「とってこーいって…　いや、いーけど…」
					PRINTFORMW 犬扱いされ不満そうだが尾巴はぱたぱたと揺れている…
				ELSE
					PRINTFORMW 「とってこーいって…　いや、行かないよ？」
				ENDIF
			ELSE
				PRINTFORM 「んふふー、%CNAME("二人称")%
				IF TALENT:MASTER:娇小 == 2
					PRINTFORM と%CNAME("一人称")%の背一緒くらいだねー
				ELSE
					PRINTFORM 對背でっかいなー
				ENDIF
				PRINTFORMW 」
			ENDIF
		ELSE
			CFLAG:随机 = RAND:8
			IF CFLAG:随机 == 0 && COND("発情期")
				CALL PRINT_STR, @"「ソレよりも%CNAME("一人称")%といーことしないっスか？%CNAME("二人称", "甘え")%_H_」_W_"
			ELSEIF CFLAG:随机 == 1
				SELECTCASE TEXTS("季節詳細")
				CASE "冬"
					IF RAND:2 == 0
						PRINTFORMW 「んふふー　冬は%CNAME("一人称")%の季節っスからねー　コレくらいの寒さでへこたれないっスよ」
					ELSE
						PRINTFORML 「ゆーきー！！　ひゃー！！　あははは！！！　%CNAME("二人称")%%CNAME("二人称")%！！　雪っスよ雪！！」
						PRINTFORMW 雪が降るような気温の方が調子がいいのか、%CALLNAME:TARGET%は尾巴を千切れんばかりに振り乱し辺りを駆け回っている…
					ENDIF
				CASE "晩秋"
					IF RAND:2 == 0
						PRINTFORMW 「秋も終わりで寒くなってきたっスねー　%CNAME("一人称")%は寒い方が調子出るっス」
					ELSE
						PRINTFORMW 「あ、秋はきらいじゃないっスけど…　銀杏だけはダメっス…　うぅ…」
					ENDIF
				CASE "秋"
					IF RAND:2 == 0
						PRINTFORMW 「おー…　イチョウの木から銀杏が…　うわっ、くさっ…　だ、ダメっス…　この气味は…」
					ELSE
						PRINTFORMW 「グラウンドの端っこ、落ち葉凄いっスねー　今度烤红薯でも焼きましょうよー」
					ENDIF
				CASE "初秋"
					IF RAND:2 == 0
						PRINTFORML 「もーすぐ、食べ物がおいしい季節っスねー　%TEXTR("ぎゅーにく/牛肉")%、%TEXTR("豚肉/ぶたにく")%、%TEXTR("鶏/とりにく")%に%TEXTR("魚/さかな")%！」
						PRINTFORMW 肉類ばかりじゃないか…
					ELSE
						PRINTFORMW 「大分暑さも和らいで来たっスねー　夜になると虫も鳴き始めて…」
					ENDIF
				CASE "夏"
					IF RAND:2 == 0
						PRINTFORMW 「この暑さは何とかならんっスかねー…」
					ELSE
						PRINTFORMW 「あつい、暑すぎっス　むしろ熱いっス！！」
					ENDIF
				CASE "初夏"
					IF RAND:2 == 0
						PRINTFORMW 「うー、今年も暑くなりそうっスね…」
					ELSE
						PRINTFORML 「今年の夏は大家海行きたいっスねー」
						PRINTFORML %CALLNAME:TARGET%はニコニコ顔で今後の予定を考えている
						PRINTFORMW 「あっ、%CNAME("一人称")%達の泳装姿に興奮したからって外で推倒たりしないでくださいよ、%CNAME("二人称")%？」
					ENDIF
				CASE "春"
					IF RAND:2 == 0 && CEVENT("入学時の話題") == 0
						PRINTFORMW 「%CNAME("一人称")%は高校からの入学だったから緊張したんスよねー」
						CALL SET_CEVENT, "入学時の話題"
					ELSE
						IF RAND:2 == 0
							PRINTFORMW 「桜がいっぱい咲いててキレーっスねー%CNAME("二人称")%」
						ELSE
							PRINTFORMW 「大家赏花とかも良いっスねー　おだんごとかー、おまんじゅとかー　んふふー」
						ENDIF
					ENDIF
				ENDSELECT
			ELSEIF CFLAG:随机 == 2
				PRINTFORMW 「%CNAME("二人称")%～、しゅくだい…　作業教えて欲しいっス…」
			ELSEIF CFLAG:随机 == 3
				PRINTFORMW 「%CNAME("二人称")%ってどんなご飯好きっスか？　鶏肉？　豚肉？　牛肉？　肉ばっかりっスね…　じゃあ魚？」
			ELSEIF CFLAG:随机 == 4
				PRINTFORMW 「そういえば%CNAME("二人称")%アレどーなったっスかー？」
			ELSEIF CFLAG:随机 == 5
				PRINTFORML 「%CNAME("二人称")%そっち敵行ったっス、うわっまたこっち来た！！」
				PRINTFORMW %CALLNAME:TARGET%はガチャガチャと游戏機を弄繰り回しながらこちらへまくし立ててくる
			ELSEIF CFLAG:随机 == 6
				PRINTFORML 「ねーねー、あそびましょーよ%CNAME("二人称")%～」
				PRINTFORML %CALLNAME:MASTER%はその辺にあった避孕套ボールを全力で投げてやった
				IF CFLAG:好感度 >= 1000
					PRINTFORML 「しょ、しょーがないっスねー%CNAME("二人称")%は　キャッチボールっスね！！」
					PRINTFORMW %CALLNAME:TARGET%はぱたぱたと尾巴を振りながら駆けていった
				ELSEIF CFLAG:好感度 >= 300
					PRINTFORML 「とってこーいって…　いや、いーっスけど…」
					PRINTFORMW 犬扱いされ不満そうだが尾巴はぱたぱたと揺れている…
				ELSE
					PRINTFORMW 「とってこーいって…　いや、行かないっスよ？」
				ENDIF
			ELSE
				PRINTFORM 「んふふー、%CNAME("二人称")%
				IF TALENT:MASTER:娇小 == 2
					PRINTFORM と%CNAME("一人称")%の背一緒くらいっスねー
				ELSE
					PRINTFORM 對背でっかいっスねー
				ENDIF
				PRINTFORMW 」
			ENDIF
		ENDIF
	ENDSELECT

CASE "拭汗"
	PRINTFORMW 「%TEXTR("ふひゅっ、くしゅぐったひっ/ちょっ、胸部そんなごしごしって…/ちょちょちょっ、胸部は自己…/えへへー、なんか頭撫でられてるみたい…")%」
;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K7
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "托一托胸部"
		IF CEVENT("妹哈娜")
			IF CFLAG:好感度 >= 1000
				CALL PRINT_STR, @"「うへへー　やっぱり%CNAME("二人称")%も胸部好きだねー_H_」_W_"
			ELSEIF CFLAG:好感度 >= 800
				PRINTFORMW 「んもー…　胸部ばっかり…」
			ELSEIF CFLAG:好感度 >= 300
				PRINTFORMW 「うぅう…　ちょっとだけだよ…」
			ELSE
				PRINTFORMW 「うひゃっ　な、何するのさ！！」
			ENDIF
		ELSE
			IF CFLAG:好感度 >= 1000
				CALL PRINT_STR, @"「うへへー　%CNAME("二人称")%も胸部好きっスねー_H_」_W_"
			ELSEIF CFLAG:好感度 >= 800
				PRINTFORMW 「んもー…　胸部ばっかり…」
			ELSEIF CFLAG:好感度 >= 300
				PRINTFORMW 「うぅう…　ちょっとだけっスよ…」
			ELSE
				PRINTFORMW 「うひゃっ　な、何するんスか！！」
			ENDIF
		ENDIF
	CASE "按摩"
		IF CEVENT("妹哈娜")
			PRINTFORMW 「うひゃひゃひゃひゃっ、そこっ違っ　ふひゅっ…」
		ELSE
			PRINTFORMW 「うひゃひゃひゃひゃっ、そこっ違うっス　ふひゅっ…」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"
		IF CEVENT("妹哈娜")
			IF CFLAG:好感度 >= 1000
				CALL PRINT_STR, @"「えへへー、%CNAME("一人称")%の特等席っ_H_」_W_"
			ELSEIF CFLAG:好感度 >= 800
				PRINTFORMW 「ふへへ、どけって言ってもどかないよー？」
			ELSEIF CFLAG:好感度 >= 300
				PRINTFORMW 「うへへー…　って違うよ　何かしよーよ！」
			ELSE
				PRINTFORMW 「うー…　じっとしてないで何かしよーよ」
			ENDIF
		ELSE
			IF CFLAG:好感度 >= 1000
				CALL PRINT_STR, @"「えへへー、%CNAME("一人称")%の特等席っス_H_」_W_"
			ELSEIF CFLAG:好感度 >= 800
				PRINTFORMW 「ふへへ、どけって言ってもどかないっスよー？」
			ELSEIF CFLAG:好感度 >= 300
				PRINTFORMW 「うへへー…　って違うっスよ　何かしましょーよ！」
			ELSE
				PRINTFORMW 「うー…　じっとしてないで何かしましょーよ」
			ENDIF
		ENDIF
	CASE "泡茶"
		IF CEVENT("妹哈娜")
			PRINTFORMW 「えへへー、%CNAME("二人称")%有がとー」
		ELSE
			PRINTFORMW 「あ、もうしわけねっス、頂くっス」
		ENDIF
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K7
	WAIT
CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		IF TALENT:淫壷 || TALENT:淫乱
			CALL PRINT_STR, @"「%CNAME("二人称")%_H_%CNAME("一人称")%の"
				IF EXP:子宮姦経験 > 30
					PRINTFORM %TEXTR("しきゅー/子宮/こどもへや/大事なところ/子宮飞机杯")%で
				ELSE
					PRINTFORM %TEXTR("まんこ/おまんこ/おだいじ/肉飞机杯")%で
				ENDIF
		ELSEIF TALENT:淫乳
			CALL PRINT_STR, @"「%CNAME("二人称")%_H_"
			PRINTFORM %CNAME("一人称")%の
				IF EXP:乳内精液経験 > 30
					PRINTFORM %TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%で
				ELSE
					PRINTFORM %TEXTR("胸部/胸")%で
				ENDIF
		ELSEIF TALENT:尻穴狂い
			CALL PRINT_STR, @"「%CNAME("二人称")%_H_%CNAME("一人称")%の%TEXTR("おしり/お尻/ケツ穴/ケツまんこ/ちょくちょー飞机杯/直腸飞机杯")%で"
		ELSEIF TALENT:尿道狂
			CALL PRINT_STR, @"「%CNAME("二人称")%_H_%CNAME("一人称")%の"
			PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴/膀胱/ぼーこー/おしっこ袋/オシッコ袋")%で
		ELSEIF TALENT:恋慕
			CALL PRINT_STR, @"「%CNAME("二人称")%_H_%CNAME("一人称")%と一緒にきもちくならないっスか_H_"
		ELSE
			PRINTFORM 「せ、%CNAME("二人称")%…　%CNAME("一人称")%と一緒にど、どーっスか…？
		ENDIF
		IF TALENT:淫壷 || TALENT:淫乱 || TALENT:淫乳 || TALENT:尻穴狂い || TALENT:尿道狂
			IF CEVENT("妹哈娜")
				CALL PRINT_STR, @"%TEXTR("びゅるびゅる/びゅーびゅー")%って%TEXTR("せーし/精子/せーえき/精液")%出してきもちくなろっ_H_"
			ELSE
				CALL PRINT_STR, @"%TEXTR("びゅるびゅる/びゅーびゅー")%って%TEXTR("せーし/精子/せーえき/精液")%出してきもちくなるっス_H_"
			ENDIF
		ENDIF
		PRINTFORMW 」
	CASE "推倒"
		PRINTFORMW
	CASE "口淫"
		IF DEVENT(STR:日常イベント名) == 0
			IF TALENT:淫乱 || TALENT:発情体質 || TALENT:蕩唇
				CALL PRINT_STR, @"「んっ、じゅるっ…じゅぷ、ぐちゅ…_H_」_L_"
				CALL PRINT_STR, @"（%CNAME("二人称")%っ_H_%CNAME("二人称")%のちんちん_H_ちんちんっ_H_H_）_W"
			ELSE
				IF CEVENT("妹哈娜")
					PRINTFORMW 「んっ、じゅる…じゅぽっ…ぷぁっ…出会いがしらに咥えさせるとか%CNAME("二人称")%の変態桑っ」
				ELSE
					PRINTFORMW 「んっ、じゅる…じゅぽっ…ぷぁっ…出会いがしらに咥えさせるとか%CNAME("二人称")%…変態桑っス」
				ENDIF
			ENDIF
		ELSE
			IF TALENT:淫乱 || TALENT:発情体質 || TALENT:蕩唇
				CALL PRINT_STR, @"「じゅぷっ、じゅるるっ…くらひゃいっ…%CNAME("二人称")%のせーしっ_H_」_W_"
			ELSE
				PRINTFORM 「

				FOR LCOUNT, 0, 1 + (ABL:Ｍ感覚 > 1) + (ABL:Ｍ感覚 > 4) + (ABL:Ｍ感覚 > 10) + TALENT:蕩唇
					PRINTFORM %TEXTR("じゅる/ちゅぽっ…/ちゅぱっ、/じゅぷ")%
				NEXT

				IF SIZE("阴茎", MASTER) >= 2 && RAND:3 == 0
					IF CEVENT("妹哈娜")
						PRINTFORMW お、大き過ぎだよ%CNAME("二人称")%…」
					ELSE
						PRINTFORMW お、大き過ぎっスよ%CNAME("二人称")%…」
					ENDIF
				ELSEIF ABL:精液中毒 > 10 && RAND:3
					CALL PRINT_STR, @"せーしっ、%CNAME("二人称")%はやくせーしくらひゃい_H_」_W_"
				ELSE
					IF CEVENT("妹哈娜")
						PRINTFORMW は、早く出しちゃって、%CNAME("二人称")%…」
					ELSE
						PRINTFORMW は、早く出すっス%CNAME("二人称")%…」
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		IF CEVENT("妹哈娜")
			PRINTFORMW 「ほーら、動かないで%CNAME("二人称")%　%CNAME("一人称")%がじっとしてるなんてレアなんだよ？」
		ELSE
			PRINTFORMW 「ほーら、動かないで%CNAME("二人称")%　%CNAME("一人称")%がじっとしてるなんてレアなんスよ？」
		ENDIF
	CASE "沏茶"
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
CASE "構って欲しい！"
	CFLAG:随机 = RAND:4
	IF CFLAG:随机 == 3
		PRINTFORML 「%CNAME("二人称")%、%CNAME("二人称", "甘え")%…　%CNAME("一人称")%も%CNAME("一人称")%も！」
	ELSEIF CFLAG:随机 == 2
		IF CEVENT("妹哈娜")
			PRINTFORML 「もー、ほっといたらどっか行っちゃうよ、ひとっ走り行っちゃうよ！！」
		ELSE
			PRINTFORML 「もー、ほっといたらどっか行っちゃうっスよ、ひとっ走り行っちゃうっスよ！！」
		ENDIF
	ELSE
		PRINTFORML 「%CNAME("二人称")%%CNAME("二人称")%%CNAME("二人称")%！！」
		PRINTFORML %CALLNAME:TARGET%はぴょんぴょん跳ねながらこちらを呼んでいる…
	ENDIF

CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	IF EXP:尿道拡張経験 >= 30 || TALENT:縦深菊穴
		IF CEVENT("妹哈娜")
			PRINTFORML 「せ、%CNAME("二人称")%がガバガバにしたから我慢できないんじゃないのさ！！」
		ELSE
			PRINTFORML 「せ、%CNAME("二人称")%がガバガバにしたから我慢できないんじゃないっスか！！」
		ENDIF
		PRINTFORMW %CALLNAME:TARGET%は自分の性癖を棚に上げながらぺちぺちと%CALLNAME:MASTER%を叩いてきた
	ELSE
		PRINTFORMW 「そ、そんなこと聞かなくたって…　お花摘みっス！！」
	ENDIF
CASE "检查阴部"
	IF CEVENT("妹哈娜")
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K7
			WAIT
		ELSEIF COND("合意：检查阴部") == 0
			;拒否されたのに連続実行
			IF CSTR:PREV_DAILYCOM == STR:日常イベント名
				PRINTFORML 「お、怒るよー%CNAME("二人称")%　そーいうのは二人っきりの時に…」
				PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながらぺちぺちと%CALLNAME:MASTER%の腕を轻轻地叩き訴えてくる
			ELSE
				PRINTFORMW 「さ、さすがにそこは恥ずかしいから…」
			ENDIF
		ELSE
			PRINTFORMW 「うへへー、%CNAME("一人称", "どもり")%の%TEXTR("まんこ/おまんこ/おだいじ")%見たいのー？　是っ、どーぞ」
		ENDIF
	ELSE
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K7
			WAIT
		ELSEIF COND("合意：检查阴部") == 0
			;拒否されたのに連続実行
			IF CSTR:PREV_DAILYCOM == STR:日常イベント名
				PRINTFORML 「お、憤怒ますよー%CNAME("二人称")%　そーいうのは二人っきりの時に…」
				PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながらぺちぺちと%CALLNAME:MASTER%の腕を轻轻地叩き訴えてくる
			ELSE
				PRINTFORMW 「さ、さすがにそこは恥ずかしいんで…」
			ENDIF
		ELSE
			PRINTFORMW 「うへへー、%CNAME("一人称", "どもり")%の%TEXTR("まんこ/おまんこ/おだいじ")%見たいんスかー？　是っ、どーぞ」
		ENDIF
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K7
		WAIT
	;連続実行
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		PRINTFORMW 「ちょっ、うー…　そんなじっと見られると…」
	ELSE
		IF CEVENT("妹哈娜")
			PRINTFORMW 「%PANTIES(TARGET, "ぱんつ")%みたいって…　床で幾らでも見てるじゃない　えっ？ソレとコレとは別…　男の人ってその辺解んない…」
		ELSE
			PRINTFORMW 「%PANTIES(TARGET, "ぱんつ")%みたいって…　床で幾らでも見てるじゃないっスか　えっ？ソレとコレとは別…　男の人ってその辺解んないっス…」
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	IF CEVENT("妹哈娜")
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K7
			WAIT
		ELSEIF CFLAG:股間確認済 && RAND:2
			PRINTFORMW 「そ、そんな何回見ても…　%CNAME("一人称")%のお股すぐには変わらないよ…」
		;心情好
		ELSEIF CFLAG:夸奖
			PRINTFORMW 「し、仕方無いっスねぇ…　ど、どーぞ　汚くなってたり…不会ね？」
		ELSE
			PRINTFORMW 「じーっとそんなところ見つめられると…　うーん、恥ずかしい…」
		ENDIF
	ELSE
		;睡眠中の悪戯
		IF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K7
			WAIT
		ELSEIF CFLAG:股間確認済 && RAND:2
			PRINTFORMW 「そ、そんな何回見ても…　%CNAME("一人称")%のお股すぐには変わらないっスよ…」
		;心情好
		ELSEIF CFLAG:夸奖
			PRINTFORMW 「し、仕方無いっスねぇ…　ど、どーぞ　汚くなってたり…しないっスよね？」
		ELSE
			PRINTFORMW 「じーっとそんなところ見つめられると…　うーん、恥ずかしいっス」
		ENDIF
	ENDIF
CASE "掀起裙子"
	IF CEVENT("妹哈娜")
		SELECTCASE STR:日常イベント名
		CASE "撩起裙子"
			;胖次チラ直後
			IF COND("胖次チラ直後")
				IF TALENT:恋慕
					PRINTFORMW 「にへへー、コレが見たかったのー？　%CNAME("二人称")%えっちな顔してたもんねぇ？」
				ELSE
					PRINTFORMW 「んー？　そーんなに裙の中見たかったの～？　%CNAME("二人称")%もスキだねぇ」
				ENDIF
			ELSE
				IF TALENT:恋慕
					PRINTFORMW 「裙の中自己見せろとか…　さすが%CNAME("二人称")%は変態桑だねぇ～」
				ELSE
					PRINTFORMW 「う、ううう…　さすがに、恥ずかしい…」
				ENDIF
			ENDIF
		;掀起裙子
		CASEELSE
			;刚睡醒の胡乱な状態を襲う
			IF CFLAG:刚睡醒
				PRINTFORMW 「むにゅ…おはよーございま…　ちょちょちょちょちょっ！！　何してんの%CNAME("二人称")%！！　んもー豐腴も隙もないなぁ…」
			;睡眠中の悪戯
			ELSEIF CFLAG:睡眠
				;梦话
				CALL KOJO_SLEEP_K7
				WAIT
			;初めて
			ELSEIF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「ちょおぉおぉぉっ…　なっ、何してんの%CNAME("二人称")%！！　さすがに%TEXTR("小学生/しょーがくせい")%とかじゃないんだから」
			;胖次チラ直後
			ELSEIF COND("胖次チラ直後")
				PRINTFORMW
			ELSE
				IF COND("打招呼前")
					PRINTFORMW 「うひゃっ、%CNAME("二人称", "どもり")%は豐腴も隙も無いなぁ…」
				ELSE
					;胖次沒穿
					IF EQUIP:胖次 == 0
						IF TALENT:恋慕
							PRINTFORMW 「えへへ、%CNAME("二人称")%…　これからどーしちゃうのかな…？」
						ELSE
							IF CEVENT("寝坊没穿内褲")
								PRINTFORML 「紧身短褲是てるから別に恥ずかしく無いよ？%CNAME("二人称")%」
								PRINTFORMW %CALLNAME:TARGET%は自信満々にしているが%CALLNAME:MASTER%がニヤニヤと股間を見ているのにやっと気がついた
								PRINTFORML 「今日は紧身短褲だから別に　別に…？　あっ…　こ、これはそーいうのじゃなくて…」
								PRINTFORMW %CALLNAME:MASTER%の意図に気がついたのか顔を真っ赤にしながら裙を元に戻した…
								CALL DEL_CEVENT, "寝坊没穿内褲"
							ELSEIF CHECK_OUTER("紧身短褲") && RAND:3
								IF RAND:2
									PRINTFORMW 「へへーん、残念でした%CNAME("二人称")%　裙の下は紧身短褲だか…　あっ、胖次…」
								ELSE
									PRINTFORMW 「裙の下は紧身短褲だから、別に恥ずかしくな…　あっ…　見ちゃダメ　ダメぇっ！！」
								ENDIF
							ELSE
								PRINTFORMW 「たのしーの？　あっ、にーちゃ…　ダメっ　ダメっス！！」
							ENDIF
						ENDIF
					ELSE
						IF TALENT:恋慕
							PRINTFORMW 「えへへ、%CNAME("二人称")%…　これからどーしちゃうのかな…？」
						ELSE
							IF CHECK_OUTER("紧身短褲") && RAND:3
								IF RAND:2
									PRINTFORMW 「へへーん、残念でした%CNAME("二人称")%　裙の下は紧身短褲だよー」
								ELSE
									PRINTFORMW 「裙の下は紧身短褲だから、別に恥ずかしくないよ？」
								ENDIF
							ELSE
								PRINTFORMW 「たのしーの？　%CNAME("二人称")%」
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE STR:日常イベント名
		CASE "撩起裙子"
			;胖次チラ直後
			IF COND("胖次チラ直後")
				IF TALENT:恋慕
					PRINTFORMW 「にへへー、コレが見たかったんスかー？　%CNAME("二人称")%えっちな顔してたっスもんねぇ？」
				ELSE
					PRINTFORMW 「んー？　そーんなに裙の中見たかったんスか～？　%CNAME("二人称")%もスキっスねぇ」
				ENDIF
			ELSE
				IF TALENT:恋慕
					PRINTFORMW 「裙の中自己見せろとか…　さすが%CNAME("二人称")%は変態桑っスねぇ～」
				ELSE
					PRINTFORMW 「う、ううう…　さすがに、恥ずかしいっスねぇ…」
				ENDIF
			ENDIF
		;掀起裙子
		CASEELSE
			;刚睡醒の胡乱な状態を襲う
			IF CFLAG:刚睡醒
				PRINTFORMW 「むにゅ…おはよーございま…　ちょちょちょちょちょっ！！　何してんスか%CNAME("二人称")%！！　んもー豐腴も隙もないっスねぇ…」
			;睡眠中の悪戯
			ELSEIF CFLAG:睡眠
				;梦话
				CALL KOJO_SLEEP_K7
				WAIT
			;初めて
			ELSEIF DEVENT(STR:日常イベント名) == 0
				PRINTFORMW 「ちょおぉおぉぉっ…　なっ、何してんスか%CNAME("二人称")%！！　さすがに%TEXTR("小学生/しょーがくせい")%とかじゃないんスから」
			;胖次チラ直後
			ELSEIF COND("胖次チラ直後")
				PRINTFORMW
			ELSE
				IF COND("打招呼前")
					PRINTFORMW 「うひゃっ、%CNAME("二人称", "どもり")%は豐腴も隙も無いっスね…」
				ELSE
					;胖次沒穿
					IF EQUIP:胖次 == 0
						IF TALENT:恋慕
							PRINTFORMW 「えへへ、%CNAME("二人称")%…　これからどーしちゃうんスか…？」
						ELSE
							IF CEVENT("寝坊没穿内褲")
								PRINTFORML 「紧身短褲是てるから別に恥ずかしく無いっスよ？%CNAME("二人称")%」
								PRINTFORMW %CALLNAME:TARGET%は自信満々にしているが%CALLNAME:MASTER%がニヤニヤと股間を見ているのにやっと気がついた
								PRINTFORML 「今日は紧身短褲だから別に　別に…？　あっ…　こ、これはそーいうのじゃなくて…」
								PRINTFORMW %CALLNAME:MASTER%の意図に気がついたのか顔を真っ赤にしながら裙を元に戻した…
								CALL DEL_CEVENT, "寝坊没穿内褲"
							ELSEIF CHECK_OUTER("紧身短褲") && RAND:3
								IF RAND:2
									PRINTFORMW 「へへーん、残念でした%CNAME("二人称")%　裙の下は紧身短褲っス…　あっ、胖次…」
								ELSE
									PRINTFORMW 「裙の下は紧身短褲っスから、別に恥ずかしくな…　あっ…　見ちゃダメ　ダメっス！！」
								ENDIF
							ELSE
								PRINTFORMW 「たのしーんスか？　あっ、センパ…　ダメっ　ダメっス！！」
							ENDIF
						ENDIF
					ELSE
						IF TALENT:恋慕
							PRINTFORMW 「えへへ、%CNAME("二人称")%…　これからどーしちゃうんスかね…？」
						ELSE
							IF CHECK_OUTER("紧身短褲") && RAND:3
								IF RAND:2
									PRINTFORMW 「へへーん、残念でした%CNAME("二人称")%　裙の下は紧身短褲っス」
								ELSE
									PRINTFORMW 「裙の下は紧身短褲っスから、別に恥ずかしくないっスよ？」
								ENDIF
							ELSE
								PRINTFORMW 「たのしーんスか？　%CNAME("二人称")%」
							ENDIF
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF

CASE "裙下撮影"
	IF CEVENT("妹哈娜")
		SELECTCASE STR:日常イベント名
		CASE "撮影失敗"
			IF RAND:2 == 0
				PRINTFORMW 「さ、さすがに写真撮られるのは…」
			ELSE
				PRINTFORMW 「撮影は…　だ、ダメだよ…」
			ENDIF
		CASEELSE
			IF TALENT:恋慕
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ううぅ～_／／／_コレで良ーい…？」_W_"
				ELSE
					PRINTFORM 「
					IF CHECK_OUTER("紧身短褲") == 0
						CALL PRINT_STR, @"ぱ、%TEXTR("ぱんつ/胖次")%撮影…　ううぅ～_／／／_"
					ELSE
						PRINTFORM す、紧身短褲だけど…　撮影は流石に、恥ずかしい…
					ENDIF
					PRINTFORMW 」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 「
					IF CHECK_OUTER("紧身短褲") == 0
						PRINTFORM ぱ、%TEXTR("ぱんつ/胖次")%
					ELSE
						PRINTFORM す、紧身短褲
					ENDIF
					PRINTFORMW 撮って…　楽しいの…？」
				ELSE
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%、流石に恥ずかしいんだけど_／／／_」_W_"
				ENDIF
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE STR:日常イベント名
		CASE "撮影失敗"
			IF RAND:2 == 0
				PRINTFORMW 「さ、さすがに写真撮られるのは…」
			ELSE
				PRINTFORMW 「撮影は…　だ、ダメっス…」
			ENDIF
		CASEELSE
			IF TALENT:恋慕
				IF RAND:2 == 0
					CALL PRINT_STR, @"「ううぅ～_／／／_コレで良いんスか～…」_W_"
				ELSE
					PRINTFORM 「
					IF CHECK_OUTER("紧身短褲") == 0
						CALL PRINT_STR, @"ぱ、%TEXTR("ぱんつ/胖次")%撮影…　ううぅ～_／／／_"
					ELSE
						PRINTFORM す、紧身短褲っスけど…　撮影は流石に、恥ずかしいっス…
					ENDIF
					PRINTFORMW 」
				ENDIF
			ELSE
				IF RAND:2 == 0
					PRINTFORM 「
					IF CHECK_OUTER("紧身短褲") == 0
						PRINTFORM ぱ、%TEXTR("ぱんつ/胖次")%
					ELSE
						PRINTFORM す、紧身短褲
					ENDIF
					PRINTFORMW 撮って…　楽しいんスか…？」
				ELSE
					CALL PRINT_STR, @"「%CNAME("二人称", "どもり")%、流石に恥ずかしいんスけど_／／／_」_W_"
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF
CASE "阴部摄影"
	IF CEVENT("妹哈娜")
		SELECTCASE STR:日常イベント名
		CASE "撮影失敗"
			PRINTFORMW 「ダメっ、流石に%TEXTR("まんこ/おまんこ/おだいじ")%は%CNAME("二人称")%でもダメっ！！」
		CASEELSE
			IF TALENT:恋慕
				IF RAND:2 == 0
					CFLAG:随机 = RAND:4
					IF TALENT:常時Ｖ振動棒 && CFLAG:随机 == 0
						IF TALENT:常時Ｖ振動棒 >= 3
							IF TALENT:淫乱
								CALL PRINT_STR, @"「えへへ_H_%CNAME("一人称")%のガバガバ%TEXTR("まんこ/おまんこ/おだいじ")%にちゃーんと入れてるよ_H_」_W_"
							ELSE
								CALL PRINT_STR, @"「ど、どーお、拡がった%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%_H_ちゃーんと撮れてる？%CNAME("二人称")%_H_」_W_"
							ENDIF
						ELSE
							IF TALENT:淫乱
								CALL PRINT_STR, @"「んふふ～_H_%CNAME("二人称")%の言うとおり%TEXTR("ぶっとい/おっきな")%振動棒で拡がった%TEXTR("まんこ/おまんこ/おだいじ")%ちゃーんと撮れてる？」_W_"
							ELSE
								CALL PRINT_STR, @"「%TEXTR("まんこ/おまんこ/おだいじ")%で%TEXTR("ブルブルする/震える")%から…　動くなって…　んんっ_HH_」_W_"
							ENDIF
						ENDIF
					ELSEIF TALENT:常時Ａ肛塞 && CFLAG:随机 == 1
						IF TALENT:常時Ａ肛塞 >= 3
							IF TALENT:淫乱
								CALL PRINT_STR, @"「ふ、ふへへ_H_"
								IF ABL:Ａ拡張 >= 5
									PRINTFORM 壊れた
								ELSE
									PRINTFORM 拡がった
								ENDIF
								CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("おしり/お尻")%の記録するんだね_H_是っ、どーぞ_HH_」_W_"
							ELSE
								CALL PRINT_STR, @"「んひっ_H_ぽ、ポーズとると…　%TEXTR("おなか/おにゃか")%ぐりって_H_」_W_"
							ENDIF
						ELSE
							IF TALENT:淫乱
								CALL PRINT_STR, @"「くひゅっ_H_ひ、拡がった%TEXTR("おしり/お尻")%の写真撮って…%CNAME("二人称")%は何しちゃうのかな？」_W_"
							ELSE
								CALL PRINT_STR, @"「拡がった%TEXTR("おしり/お尻")%撮られるとか…流石にハズカシーな…_H_」_W_"
							ENDIF
						ENDIF
					ELSEIF TALENT:常時尿道塞 && CFLAG:随机 == 2
						IF TALENT:常時尿道塞 >= 3
							IF TALENT:淫乱
								CALL PRINT_STR, @"「ちゃ、酱と撮れてるかなっ_H_%CNAME("一人称")%のガバガバ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%_HH_」_W_"
							ELSE
								CALL PRINT_STR, @"「はひゅっ_H_う、動くと%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%が%TEXTR("ごりっ/ぐりゅっ")%て…_HH_」_W_"
							ENDIF
						ELSE
							IF TALENT:淫乱
								CALL PRINT_STR, @"「ちゃ、酱と%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%%TEXTR("でもぐもぐしてる/に入れてる")%よ_HH_」_W_"
							ELSE
								CALL PRINT_STR, @"「くひっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%塞子が%TEXTR("ごりっ/ぐちっ")%って…_H_」_W_"
							ENDIF
						ENDIF
					ELSE
						IF TALENT:淫乱
							CALL PRINT_STR, @"「%CNAME("二人称")%_H_えっちな写真…酱と撮れた？」_W_"
						ELSE
							PRINTFORMW 「は、ハズカシーんだから早く撮っちゃって！」
						ENDIF
					ENDIF
				ELSE
					IF TALENT:淫乱
						CALL PRINT_STR, @"「えへへー_H_いっぱい撮っていーんだよ、%CNAME("二人称")%_H_」_W_"
					ELSE
						CALL PRINT_STR, @"「ううぅ～、ハズカシーよ%CNAME("二人称")%_／／／_」_W_"
					ENDIF
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STR, @"「しょ、しょーがないなぁ…早く撮っちゃって_／／／_」_W_"
				ELSE
					CALL PRINT_STR, @"「っ～～～～_／／／_」_W_"
				ENDIF
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE STR:日常イベント名
		CASE "撮影失敗"
			PRINTFORMW 「ダメっ、流石に%TEXTR("まんこ/おまんこ/おだいじ")%は%CNAME("二人称")%といえどダメっス！！」
		CASEELSE
			IF TALENT:恋慕
				IF RAND:2 == 0
					CFLAG:随机 = RAND:4
					IF TALENT:常時Ｖ振動棒 && CFLAG:随机 == 0
						IF TALENT:常時Ｖ振動棒 >= 3
							IF TALENT:淫乱
								CALL PRINT_STR, @"「えへへ_H_%CNAME("一人称")%のガバガバ%TEXTR("まんこ/おまんこ/おだいじ")%にちゃーんと入れてるっスよ_H_」_W_"
							ELSE
								CALL PRINT_STR, @"「ど、どーっスか、拡がった%CNAME("一人称")%の%TEXTR("まんこ/おまんこ/おだいじ")%_H_ちゃーんと撮れてるっスか？%CNAME("二人称")%_H_」_W_"
							ENDIF
						ELSE
							IF TALENT:淫乱
								CALL PRINT_STR, @"「んふふ～_H_%CNAME("二人称")%の言うとおり%TEXTR("ぶっとい/おっきな")%振動棒で拡がった%TEXTR("まんこ/おまんこ/おだいじ")%ちゃーんと撮れてるっスか_H_」_W_"
							ELSE
								CALL PRINT_STR, @"「%TEXTR("まんこ/おまんこ/おだいじ")%で%TEXTR("ブルブルする/震える")%から…　動くなって…　んんっ_HH_」_W_"
							ENDIF
						ENDIF
					ELSEIF TALENT:常時Ａ肛塞 && CFLAG:随机 == 1
						IF TALENT:常時Ａ肛塞 >= 3
							IF TALENT:淫乱
								CALL PRINT_STR, @"「ふ、ふへへ_H_"
								IF ABL:Ａ拡張 >= 5
									PRINTFORM 壊れた
								ELSE
									PRINTFORM 拡がった
								ENDIF
								CALL PRINT_STR, @"%CNAME("一人称")%の%TEXTR("おしり/お尻")%の記録するんスね_H_是っ、どーぞ_HH_」_W_"
							ELSE
								CALL PRINT_STR, @"「んひっ_H_ぽ、ポーズとると…　%TEXTR("おなか/おにゃか")%ぐりって_H_」_W_"
							ENDIF
						ELSE
							IF TALENT:淫乱
								CALL PRINT_STR, @"「くひゅっ_H_ひ、拡がった%TEXTR("おしり/お尻")%の写真撮って…%CNAME("二人称")%は何しちゃうんスかね？」_W_"
							ELSE
								CALL PRINT_STR, @"「拡がった%TEXTR("おしり/お尻")%撮られるとか…流石にハズカシーっスね…_H_」_W_"
							ENDIF
						ENDIF
					ELSEIF TALENT:常時尿道塞 && CFLAG:随机 == 2
						IF TALENT:常時尿道塞 >= 3
							IF TALENT:淫乱
								CALL PRINT_STR, @"「ちゃ、酱と撮れてるっスか_H_%CNAME("一人称")%のガバガバ%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%_HH_」_W_"
							ELSE
								CALL PRINT_STR, @"「はひゅっ_H_う、動くと%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%が%TEXTR("ごりっ/ぐりゅっ")%て…_HH_」_W_"
							ENDIF
						ELSE
							IF TALENT:淫乱
								CALL PRINT_STR, @"「ちゃ、酱と%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%%TEXTR("でもぐもぐしてる/に入れてる")%っスよ_HH_」_W_"
							ELSE
								CALL PRINT_STR, @"「くひっ_H_%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%塞子が%TEXTR("ごりっ/ぐちっ")%って…_H_」_W_"
							ENDIF
						ENDIF
					ELSE
						IF TALENT:淫乱
							CALL PRINT_STR, @"「セーン餡餅_H_えっちな写真…酱と撮れたっスか？」_W_"
						ELSE
							PRINTFORMW 「は、ハズカシーんスから早く撮っちゃってください！」
						ENDIF
					ENDIF
				ELSE
					IF TALENT:淫乱
						CALL PRINT_STR, @"「えへへー_H_いっぱい撮っていーんスよ、%CNAME("二人称")%_H_」_W_"
					ELSE
						CALL PRINT_STR, @"「ううぅ～、ハズカシーっスよ%CNAME("二人称")%_／／／_」_W_"
					ENDIF
				ENDIF
			ELSE
				IF RAND:2 == 0
					CALL PRINT_STR, @"「しょ、しょーがないっスねぇ…早く撮っちゃってください_／／／_」_W_"
				ELSE
					CALL PRINT_STR, @"「っ～～～～_／／／_」_W_"
				ENDIF
			ENDIF
		ENDSELECT
	ENDIF
CASE "性処理を頼んだ際の反応"
	IF CEVENT("妹哈娜")
		;干劲がある場合
		IF COND("干劲性処理")
			SELECTCASE STR:PLAY内容
			CASE "口交"
				IF ABL:精液中毒 && RAND:2 == 0
					CALL PRINT_STR, @"「えへへ_H_溜まっちゃったの？%CNAME("一人称")%も%TEXTR("おくちが寂しくって/せーし欲しくなっちゃって")%_H_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は上気した表情で%CALLNAME:MASTER%へ向け口を大きく開いている
				ELSE
					PRINTFORML 「溜まっちゃったの？%CNAME("二人称")%？性処理は%CNAME("一人称")%のお仕事だもんね。　さ、どーぞっ」
					PRINTFORMW %CALLNAME:TARGET%は満面の笑みで%CALLNAME:MASTER%へ口を大きく開いてきた
				ENDIF
			CASE "乳交"
				IF TALENT:淫乱 && RAND:2 == 0
					CALL PRINT_STR, @"「えへへー_H_今日は胸部で%TEXTR("せーし/精子/せーえき/精液")%絞っちゃおーかな？」_L_"
					PRINTFORM %CALLNAME:TARGET%和%CALLNAME:MASTER%へ
					IF TALENT:巨乳
						PRINTFORM 巨大的
					ELSE
						PRINTFORM 可愛的
					ENDIF
					PRINTFORMW 胸を晒し%CALLNAME:MASTER%の精液を搾り取る準備をしている
				ELSE
					PRINTFORML 「えへへー、今日は胸部とかどーかなー？」
					PRINTFORM %CALLNAME:TARGET%前を半脱
					IF TALENT:巨乳
						PRINTFORM 巨大的
					ELSE
						PRINTFORM 可愛的
					ENDIF
					PRINTFORMW 胸を晒しだしている
				ENDIF
			CASE "Ｖ性交"
				IF TALENT:淫壷 && RAND:2 == 0
					CALL PRINT_STR, @"「にへへ_H_%CNAME("二人称", "どもり")%もガマン出来なくなっちゃった？実は%CNAME("一人称")%も_／／／_」_L_"
					PRINTFORM %CALLNAME:TARGET%
					IF CHECK_OUTER("紧身短褲") == 0 && EQUIP:胖次 == 0
						PRINTFORM 、恬不知恥的淫亂丘を晒し
					ELSE
						PRINTFORM 内衣をずらし
					ENDIF
					PRINTFORMW 水润的%TEXTR("膣/女性器/肉洞/肉孔")%をくちゅりと開いた…
				ELSE
					CALL PRINT_STR, @"「溜まっちゃった？しょ、しょーがないなぁ_H_　べ、別に%CNAME("一人称")%がしたいってわけじゃ_／／／_」_L_"
					PRINTFORM %CALLNAME:TARGET%そう言いながらも
					IF CHECK_OUTER("紧身短褲") == 0 && EQUIP:胖次 == 0
						PRINTFORM 、恬不知恥的淫亂丘を晒し
					ELSE
						PRINTFORM 内衣をずらし
					ENDIF
					PRINTFORMW 水润的%TEXTR("膣/女性器/肉洞/肉孔")%を%CALLNAME:MASTER%へ差し出した…
				ENDIF
			CASE "Ａ性交"
				IF TALENT:尻穴狂い && RAND:2 == 0
					CALL PRINT_STR, @"「性処理？　えへへ、%CNAME("一人称")%の%TEXTR("おしりおなほ/お尻飞机杯/ケツ穴まんこ/ケツまんこ/ちょくちょー飞机杯")%できもちよーく%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅるびゅる/びゅーびゅー")%する？」_L_"
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%へ向け%TEXTR("肛門/排泄腔")%を両手の指で%TEXTR("ぐぱぁと音が鳴るように/ぐちゅりと音を立てながら")%拡げた…
				ELSE
					CALL PRINT_STR, @"「%TEXTR("せ、せーし/せ、精子/せ、せーえき/せ、精液")%溜まっちゃったんだね…？し、仕方無いなぁ、どーぞ%CNAME("二人称")%_／／／_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながらも%CALLNAME:MASTER%へ%TEXTR("肛門/排泄腔")%を拡げながら差し出した…
				ENDIF
			CASE "尿道性交"
				IF TALENT:尿道狂 && RAND:2 == 0
					CALL PRINT_STR, @"「にへへ_H_さっ、%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%できもちよーく%TEXTR("せーし/精子/せーえき/精液")%吐き捨てましょ_HH_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%をぐいぐい拡げながら%CALLNAME:MASTER%へ差し出した…
				ELSE
					CALL PRINT_STR, @"「し、仕方無いなぁ_／／／_%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%とか…どーおっ_H_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ%TEXTR("尿道口/狭孔/排泄腔")%を向けくいくいと拡げている…
				ENDIF
			CASE "乳頭奸"
				IF TALENT:淫乱 && RAND:2 == 0
					CALL PRINT_STR, @"「え、えへへ_H_今%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%でもぐもぐ出来る様準備するんでちょっと待ってねっ_H_」_L_"
					PRINTFORM %CALLNAME:TARGET%
					IF TALENT:母乳体質
						PRINTFORM 母乳を
					ELSE
						PRINTFORM 唾液を
					ENDIF
					PRINTFORMW 指に絡め自己的乳頭をぐちぐちと拡張している…
				ELSE
					CALL PRINT_STR, @"「%TEXTR("せ、せーし/せ、精子/せ、せーえき/せ、精液")%出したくなっちゃったの？_／／／_%TEXTR("胸部せっくす/ちくびせっくす/乳頭性交")%で%TEXTR("びゅるびゅる/びゅーびゅー")%する？_H_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は前を半脱、自己的乳頭を%TEXTR("ぐちぐち/ぐちゅぐちゅ")%と音を立てながら拡げている…
				ENDIF
			ENDSELECT
		;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
		ELSEIF COND("进行性処理")
			PRINTFORM 「え、えー…　今ちょっと忙しいんだけど…
			SELECTCASE STR:PLAY内容
			CASE "手淫"
				PRINTFORML 手でいーい？」
			CASE "Ｖ性交"
				PRINTFORML あんま激烈地しないなら%TEXTR("まんこ/おまんこ/おだいじ")%使っていーよ？
			CASE "Ａ性交"
				PRINTFORML %TEXTR("おしり/お尻")%なら使っていーよ？あんま激烈地しないでね？」
			CASE "尿道性交"
				PRINTFORML もー、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で一人で出来る？」
			ENDSELECT
		ENDIF
	ELSE
		;干劲がある場合
		IF COND("干劲性処理")
			SELECTCASE STR:PLAY内容
			CASE "口交"
				IF ABL:精液中毒 && RAND:2 == 0
					CALL PRINT_STR, @"「えへへ_H_溜まっちゃったんスか？%CNAME("一人称")%も%TEXTR("おくちが寂しくって/せーし欲しくなっちゃって")%_H_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は上気した表情で%CALLNAME:MASTER%へ向け口を大きく開いている
				ELSE
					PRINTFORML 「溜まっちゃったんスか、%CNAME("二人称")%？性処理は%CNAME("一人称")%のお仕事っスもんね。　さ、どーぞっ」
					PRINTFORMW %CALLNAME:TARGET%は満面の笑みで%CALLNAME:MASTER%へ口を大きく開いてきた
				ENDIF
			CASE "乳交"
				IF TALENT:淫乱 && RAND:2 == 0
					CALL PRINT_STR, @"「えへへー_H_今日は胸部で%TEXTR("せーし/精子/せーえき/精液")%絞っちゃいましょーか？」_L_"
					PRINTFORM %CALLNAME:TARGET%和%CALLNAME:MASTER%へ
					IF TALENT:巨乳
						PRINTFORM 巨大的
					ELSE
						PRINTFORM 可愛的
					ENDIF
					PRINTFORMW 胸を晒し%CALLNAME:MASTER%の精液を搾り取る準備をしている
				ELSE
					PRINTFORML 「えへへー、今日は胸部とかどーっスかー？」
					PRINTFORM %CALLNAME:TARGET%前を半脱
					IF TALENT:巨乳
						PRINTFORM 巨大的
					ELSE
						PRINTFORM 可愛的
					ENDIF
					PRINTFORMW 胸を晒しだしている
				ENDIF
			CASE "Ｖ性交"
				IF TALENT:淫壷 && RAND:2 == 0
					CALL PRINT_STR, @"「にへへ_H_%CNAME("二人称", "どもり")%もガマン出来なくなっちゃったんスか？実は%CNAME("一人称")%も_／／／_」_L_"
					PRINTFORM %CALLNAME:TARGET%
					IF CHECK_OUTER("紧身短褲") == 0 && EQUIP:胖次 == 0
						PRINTFORM 、恬不知恥的淫亂丘を晒し
					ELSE
						PRINTFORM 内衣をずらし
					ENDIF
					PRINTFORMW 水润的%TEXTR("膣/女性器/肉洞/肉孔")%をくちゅりと開いた…
				ELSE
					CALL PRINT_STR, @"「溜まっちゃったんスか？しょ、しょーがないっスねぇ_H_　べ、別に%CNAME("一人称")%がしたいってわけじゃ_／／／_」_L_"
					PRINTFORM %CALLNAME:TARGET%そう言いながらも
					IF CHECK_OUTER("紧身短褲") == 0 && EQUIP:胖次 == 0
						PRINTFORM 、恬不知恥的淫亂丘を晒し
					ELSE
						PRINTFORM 内衣をずらし
					ENDIF
					PRINTFORMW 水润的%TEXTR("膣/女性器/肉洞/肉孔")%を%CALLNAME:MASTER%へ差し出した…
				ENDIF
			CASE "Ａ性交"
				IF TALENT:尻穴狂い && RAND:2 == 0
					CALL PRINT_STR, @"「性処理っスか_H_えへへ、%CNAME("一人称")%の%TEXTR("おしりおなほ/お尻飞机杯/ケツ穴まんこ/ケツまんこ/ちょくちょー飞机杯")%できもちよーく%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅるびゅる/びゅーびゅー")%します？」_L_"
					PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%へ向け%TEXTR("肛門/排泄腔")%を両手の指で%TEXTR("ぐぱぁと音が鳴るように/ぐちゅりと音を立てながら")%拡げた…
				ELSE
					CALL PRINT_STR, @"「%TEXTR("せ、せーし/せ、精子/せ、せーえき/せ、精液")%溜まっちゃったんスか…？し、仕方無いっスねぇ、どーぞ%CNAME("二人称")%_／／／_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながらも%CALLNAME:MASTER%へ%TEXTR("肛門/排泄腔")%を拡げながら差し出した…
				ENDIF
			CASE "尿道性交"
				IF TALENT:尿道狂 && RAND:2 == 0
					CALL PRINT_STR, @"「にへへ_H_さっ、%CNAME("一人称")%の%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%できもちよーく%TEXTR("せーし/精子/せーえき/精液")%吐き捨てましょ_HH_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は自己的%TEXTR("尿道口/狭孔/排泄腔")%をぐいぐい拡げながら%CALLNAME:MASTER%へ差し出した…
				ELSE
					CALL PRINT_STR, @"「し、仕方無いっスねぇ_／／／_%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%とか…どーっスか_H_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は顔を真っ赤にしながら%CALLNAME:MASTER%へ%TEXTR("尿道口/狭孔/排泄腔")%を向けくいくいと拡げている…
				ENDIF
			CASE "乳頭奸"
				IF TALENT:淫乱 && RAND:2 == 0
					CALL PRINT_STR, @"「え、えへへ_H_今%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%でもぐもぐ出来る様準備するんで待って欲しいっス_H_」_L_"
					PRINTFORM %CALLNAME:TARGET%
					IF TALENT:母乳体質
						PRINTFORM 母乳を
					ELSE
						PRINTFORM 唾液を
					ENDIF
					PRINTFORMW 指に絡め自己的乳頭をぐちぐちと拡張している…
				ELSE
					CALL PRINT_STR, @"「%TEXTR("せ、せーし/せ、精子/せ、せーえき/せ、精液")%出したくなっちゃったんスか_／／／_%TEXTR("胸部せっくす/ちくびせっくす/乳頭性交")%で%TEXTR("びゅるびゅる/びゅーびゅー")%しちゃいます？_H_」_L_"
					PRINTFORMW %CALLNAME:TARGET%は前を半脱、自己的乳頭を%TEXTR("ぐちぐち/ぐちゅぐちゅ")%と音を立てながら拡げている…
				ENDIF
			ENDSELECT
		;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
		ELSEIF COND("进行性処理")
			PRINTFORM 「え、えー…　今ちょっと忙しいんスけど…
			SELECTCASE STR:PLAY内容
			CASE "手淫"
				PRINTFORML 手でいーっスか？」
			CASE "Ｖ性交"
				PRINTFORML あんま激烈地しないなら%TEXTR("まんこ/おまんこ/おだいじ")%使っていーっスよ？
			CASE "Ａ性交"
				PRINTFORML %TEXTR("おしり/お尻")%なら使っていーっスよ？あんま激烈地しないでくださいね？」
			CASE "尿道性交"
				PRINTFORML もー、%TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%で一人で出来ます？」
			ENDSELECT
		ENDIF
	ENDIF
CASE "拜托処理性欲"
	IF CEVENT("妹哈娜")
		SELECTCASE NAMES("性処理")
		CASE "口交"
			IF ABL:精液中毒 && RAND:2 == 0
				CALL PRINT_STR, @"「ん、ちゅっ_H_　えへへ、いっぱい出たね_H_%CNAME("二人称")%」_L_"
				PRINTFORMW %CALLNAME:TARGET%はコ阴蒂と喉を鳴らしながら%CALLNAME:MASTER%の精液を飲下している…
			ELSE
				PRINTFORML 「う、ぶじゅ…　けほっけほっ…%CNAME("二人称", "どもり")%出しすぎだよ。　うー、鼻からでてりゅ…」
				PRINTFORMW %CALLNAME:TARGET%は口から鼻から溢れさせむせ込んでしまっている…
			ENDIF
		CASE "乳交"
			IF TALENT:淫乱 && RAND:2 == 0
				CALL PRINT_STR, @"「えへへ_H_胸部真っ白_HH_　%CNAME("二人称")%溜まってたんだねぇ」_L_"
				PRINTFORMW %CALLNAME:TARGET%は胸に出された精液を満遍なく自らに塗りこんでいる…
			ELSE
				PRINTFORML 「き、きもちかったの？眼鏡にまで飛ばすとか…　えへへ」
				PRINTFORMW %CALLNAME:TARGET%は眼鏡まで飛んだ%CALLNAME:MASTER%の惊嚇しながらも満足げな表情をしている…
			ENDIF
		CASE "Ｖ性交"
			IF TALENT:淫壷 && RAND:2 == 0
				CALL PRINT_STR, @"「はふっ、えへへ_H_満足した？%CNAME("二人称")%_H_　それにしてもいっぱいでたねー_／／／_」_L_"
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("膣/女性器/肉洞/肉孔")%から溢れ出る%CALLNAME:MASTER%の精液に自慢げな表情をしている…
			ELSE
				PRINTFORML 「にへへ、%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅるびゅる/びゅーびゅー")%出しちゃって…デきちゃったらどーしようね？」
				PRINTFORMW %CALLNAME:TARGET%は精液を搾り取れた事を誇らしそうに%CALLNAME:MASTER%へ微笑んだ…
			ENDIF
		CASE "Ａ性交"
			IF TALENT:尻穴狂い && RAND:2 == 0
				CALL PRINT_STR, @"「はっ、かひっ_H_くひゅっ_HH_　き、きき、きもちかった？　にーひゃ_H_」_L_"
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("肛門/排泄腔")%を蹂躙され、腰が砕け呂律も回っていない…
			ELSE
				CALL PRINT_STR, @"「えへへ_／／／_%TEXTR("おしり/お尻")%しまらなくなっちゃった_H_」_L_"
				PRINTFORMW %CALLNAME:TARGET%の%TEXTR("肛門/排泄腔")%はぽっかり開き呼吸の度に溢れる精液がこぽりと音を立てている…
			ENDIF
		CASE "尿道性交"
			IF TALENT:尿道狂 && RAND:2 == 0
				CALL PRINT_STR, @"「え、えへへ_H_%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%まで%TEXTR("せーし/精子/せーえき/精液")%いっぱひ…_HH_」_L_"
				PRINTFORMW %CALLNAME:TARGET%は性処理のはずがすっかり%TEXTR("尿道口/狭孔/排泄腔")%で自分が気持ちよくなってしまっている…
			ELSE
				PRINTFORML 「%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%…　ち、違った、%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%きもちかった？%CNAME("二人称")%」
				PRINTFORMW %CALLNAME:TARGET%は性処理にも拘らず%TEXTR("尿道/狭孔/排泄腔")%での性交で快楽を味わっている…
			ENDIF
		CASE "乳頭奸"
			IF TALENT:淫乱 && RAND:2 == 0
				CALL PRINT_STR, @"「にへへ_H_%CNAME("一人称")%の%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%きもちかった？　えへへ_／／／_」_L_"
				PRINTFORMW 乳姦で気持ちよく精液を吐き出した%CALLNAME:MASTER%は%CALLNAME:TARGET%の頭を温柔的撫でた…
			ELSE
				CALL PRINT_STR, @"「くひっ_H_かふっ…_HH_は、激しすぎだよ%CNAME("二人称")%_H_　%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%締まらない…　あっ…%TEXTR("母乳/ぼにゅー/みるく/ミルク")%みたいに溢れてる…_／／／_」_L_"
				PRINTFORMW あまりに激しい乳姦だったのか%CALLNAME:TARGET%の乳頭はすっかり閉じなくなってとめどなく精液を溢れさせている…
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE NAMES("性処理")
		CASE "口交"
			IF ABL:精液中毒 && RAND:2 == 0
				CALL PRINT_STR, @"「ん、ちゅっ_H_　えへへ、いっぱい出たっスね_H_%CNAME("二人称")%」_L_"
				PRINTFORMW %CALLNAME:TARGET%はコ阴蒂と喉を鳴らしながら%CALLNAME:MASTER%の精液を飲下している…
			ELSE
				PRINTFORML 「う、ぶじゅ…　けほっけほっ…%CNAME("二人称", "どもり")%出しすぎっスよ。　うー、鼻からでてりゅ…」
				PRINTFORMW %CALLNAME:TARGET%は口から鼻から溢れさせむせ込んでしまっている…
			ENDIF
		CASE "乳交"
			IF TALENT:淫乱 && RAND:2 == 0
				CALL PRINT_STR, @"「えへへ_H_胸部真っ白_HH_　%CNAME("二人称")%溜まってたんスねぇ」_L_"
				PRINTFORMW %CALLNAME:TARGET%は胸に出された精液を満遍なく自らに塗りこんでいる…
			ELSE
				PRINTFORML 「き、きもちかったんスか？眼鏡にまで飛ばすとか…　えへへ」
				PRINTFORMW %CALLNAME:TARGET%は眼鏡まで飛んだ%CALLNAME:MASTER%の惊嚇しながらも満足げな表情をしている…
			ENDIF
		CASE "Ｖ性交"
			IF TALENT:淫壷 && RAND:2 == 0
				CALL PRINT_STR, @"「はふっ、えへへ_H_満足っスか？%CNAME("二人称")%_H_　それにしてもいっぱいでたっスねぇ_／／／_」_L_"
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("膣/女性器/肉洞/肉孔")%から溢れ出る%CALLNAME:MASTER%の精液に自慢げな表情をしている…
			ELSE
				PRINTFORML 「にへへ、%TEXTR("せーし/精子/せーえき/精液")%%TEXTR("びゅるびゅる/びゅーびゅー")%出しちゃって…デきちゃったらどーしましょうね？」
				PRINTFORMW %CALLNAME:TARGET%は精液を搾り取れた事を誇らしそうに%CALLNAME:MASTER%へ微笑んだ…
			ENDIF
		CASE "Ａ性交"
			IF TALENT:尻穴狂い && RAND:2 == 0
				CALL PRINT_STR, @"「はっ、かひっ_H_くひゅっ_HH_　き、きき、きもちかったひゅか？　せんぱひ_H_」_L_"
				PRINTFORMW %CALLNAME:TARGET%は%TEXTR("肛門/排泄腔")%を蹂躙され、腰が砕け呂律も回っていない…
			ELSE
				CALL PRINT_STR, @"「えへへ_／／／_%TEXTR("おしり/お尻")%しまらなくなっちゃった_H_」_L_"
				PRINTFORMW %CALLNAME:TARGET%の%TEXTR("肛門/排泄腔")%はぽっかり開き呼吸の度に溢れる精液がこぽりと音を立てている…
			ENDIF
		CASE "尿道性交"
			IF TALENT:尿道狂 && RAND:2 == 0
				CALL PRINT_STR, @"「え、えへへ_H_%TEXTR("膀胱/ぼーこー/おしっこ袋/オシッコ袋")%まで%TEXTR("せーし/精子/せーえき/精液")%いっぱひ…_HH_」_L_"
				PRINTFORMW %CALLNAME:TARGET%は性処理のはずがすっかり%TEXTR("尿道口/狭孔/排泄腔")%で自分が気持ちよくなってしまっている…
			ELSE
				PRINTFORML 「%TEXTR("にょーどーせっくす/尿道性交/おしっこ穴性交/オシッコ穴性交")%…　ち、違った、%TEXTR("にょーどーおなほ/尿道飞机杯/おしっこ穴飞机杯/オシッコ穴飞机杯")%きもちかったっスか？%CNAME("二人称")%」
				PRINTFORMW %CALLNAME:TARGET%は性処理にも拘らず%TEXTR("尿道/狭孔/排泄腔")%での性交で快楽を味わっている…
			ENDIF
		CASE "乳頭奸"
			IF TALENT:淫乱 && RAND:2 == 0
				CALL PRINT_STR, @"「にへへ_H_%CNAME("一人称")%の%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%きもちかったっスか？　えへへ_／／／_」_L_"
				PRINTFORMW 乳姦で気持ちよく精液を吐き出した%CALLNAME:MASTER%は%CALLNAME:TARGET%の頭を温柔的撫でた…
			ELSE
				CALL PRINT_STR, @"「くひっ_H_かふっ…_HH_は、激しすぎっスよ%CNAME("二人称")%_H_　%TEXTR("胸部飞机杯/ちくび飞机杯/乳頭飞机杯")%締まらないっス…　あっ…%TEXTR("母乳/ぼにゅー/みるく/ミルク")%みたいに溢れてる…_／／／_」_L_"
				PRINTFORMW あまりに激しい乳姦だったのか%CALLNAME:TARGET%の乳頭はすっかり閉じなくなってとめどなく精液を溢れさせている…
			ENDIF
		ENDSELECT
	ENDIF
CASE "进行性処理"
	IF CEVENT("妹哈娜")
		PRINTFORM 「も、もー…　激烈地しちゃダメって言ったじゃないかぁ
	ELSE
		PRINTFORM 「も、もー…　激烈地しちゃダメって言ったじゃないっスかぁ
	ENDIF
	SELECTCASE NAMES("性処理")
	CASE "Ｖ性交"
		PRINTFORM %TEXTR("まんこ/おまんこ/おだいじ")%
	CASE "Ａ性交"
		PRINTFORM %TEXTR("おしり/お尻")%
	CASE "尿道性交"
		PRINTFORM %TEXTR("にょーどー/尿道/おしっこ穴/オシッコ穴")%
	ENDSELECT
	PRINTFORML 締まらないし…」
ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称", "どもり")%、週末闲？で、约会とかぁ…」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%%CNAME("二人称")%！週末玩耍に行こっ！！」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称", "どもり")%、週末闲っスか？で、约会とかぁ…」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%%CNAME("二人称")%！週末玩耍に行かねっスか！！」
		ENDIF
	ENDIF

CASE "约会のお誘い：結果"
	;约会決定！
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
		;ここはpartnerが你を誘った際に、你に约会的约定を保留された場合なので変かな？と思いコメントアウトして有ます
		;PRINTFORMW 「うーん…　その日はちょっと、もーしわけねっス…」
	ENDIF
;你から週末约会に誘われた
CASE "约会に誘われた"
	IF CEVENT("妹哈娜")
		IF COND("约会お誘い済み")
			IF TALENT:恋慕
				PRINTFORMW 「もちろんいーよ？　えへへー、楽しみだなー」
			ELSE
				PRINTFORMW 「いーよっ、お出かけ楽しみだなぁ」
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「约会かぁ、にへへー」
			ELSE
				PRINTFORMW 「おー、週末に一緒にお出かけかー」
			ENDIF
		ENDIF
	ELSE
		IF COND("约会お誘い済み")
			IF TALENT:恋慕
				PRINTFORMW 「もちろんいーっスよ？　えへへー、楽しみだなー」
			ELSE
				PRINTFORMW 「いーっスよ、お出かけ楽しみだなぁ」
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「约会っスかぁ、にへへー」
			ELSE
				PRINTFORMW 「おー、週末に一緒にお出かけっスかー」
			ENDIF
		ENDIF
	ENDIF
;你から约会当日にいきなり誘われた
CASE "邀请去约会"
	IF CEVENT("妹哈娜")
		;同居していない相手を誘った時
		IF COND("同居中") == 0
			PRINTFORMW 「おぉ、玩耍に%CNAME("一人称")%誘ってくれるのっ！？」
		ELSE
			PRINTFORMW 「唐突だねぇ～、確かに玩耍に行こうって思い立つこともあるよねー」
		ENDIF
	ELSE
		;同居していない相手を誘った時
		IF COND("同居中") == 0
			PRINTFORMW 「おぉ、玩耍に%CNAME("一人称")%誘ってくれるんスか！！」
		ELSE
			PRINTFORMW 「唐突っスねぇ～、確かに玩耍に行こうって思い立つこともあるっスよねー」
		ENDIF
	ENDIF

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

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

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	IF CEVENT("妹哈娜")
		SELECTCASE SAVESTR:约会
		CASE "去买泳衣"
			PRINTFORMW 「夏だからねぇ、今年もいっぱい玩遊戲よっ%CNAME("二人称")%！」
		CASE "散歩"
			PRINTFORMW 「球児がグラウンドで…%TEXTR("おー、飛んだなー/あっ、捕られちゃった…/ファールかぁ…")%」
		CASE "尋訪美食"
			PRINTFORMW 「にへへー%TEXTR("からあげ/コロッケ/メンチ/角煮")%好吃なー」
		CASE "逛街"
			PRINTFORMW 「おっ、この%TEXTR("游戏出てたん/新刊出てたん/新パック出てたん/靴走り易そう")%だねー」
		CASE "去水族馆"
			PRINTFORMW 「おー、%TEXTR("きれーな魚ー/秋刀魚…桑まぁ！？/まぐろ…じゅるり…/ラッコっ、ラッコだよっ！/ペンギン可爱なぁ")%」
		CASE "去游乐园"
			PRINTFORMW 「%TEXTR("ちょ、先行っちゃヤっ！！/おばっ、おばばばばっ！！/ひぎゃー！！あばっ、あばばばばば！！/あはははっ！！次っ、次アレのろっ！")%」
		CASE "去图书馆"
			PRINTFORMW 「ふへー、%TEXTR("ろ、論文はもう…/もう数字も見たくない…/ボルシチっておいしそう…")%」
		CASE "赏花"
			PRINTFORMW 「たまには団子とかの甜食も良いなぁ」
		CASE "去游泳"
			PRINTFORMW 「ふへへ、%CNAME("一人称")%の勇姿をしかとみててねっ%CNAME("二人称")%！」
		CASE "爬山"
			PRINTFORMW 「もー、遅いよー%CNAME("二人称")%！早すぎるって　そ、それもそーだね」
		CASE "赏红叶"
			PRINTFORMW 「ぎ、銀杏は近くにないよね…」
		CASE "滑雪"
			PRINTFORMW 「あばっ、あばばばばばっ…　股が裂ける…」
		CASEELSE
			PRINTFORMW 「たのしーねっ%CNAME("二人称")%！」
		ENDSELECT
	ELSE
		SELECTCASE SAVESTR:约会
		CASE "去买泳衣"
			PRINTFORMW 「夏っスからねぇ、今年もいっぱい玩遊戲っスよ%CNAME("二人称")%！」
		CASE "散歩"
			PRINTFORMW 「球児がグラウンドで…%TEXTR("おー、飛んだなー/あっ、捕られちゃった…/ファールかぁ…")%」
		CASE "尋訪美食"
			PRINTFORMW 「にへへー%TEXTR("からあげ/コロッケ/メンチ/角煮")%好吃っスねー」
		CASE "逛街"
			PRINTFORMW 「おっ、この%TEXTR("游戏出てたん/新刊出てたん/新パック出てたん/靴走り易そうっ")%スねー」
		CASE "去水族馆"
			PRINTFORMW 「おー、%TEXTR("きれーな魚ー/秋刀魚…桑まぁ！？/まぐろ…じゅるり…/ラッコっスよラッコ！/ペンギン可爱っスねぇ")%」
		CASE "去游乐园"
			PRINTFORMW 「%TEXTR("ちょ、先行っちゃヤっス！！/おばっ、おばばばばっ！！/ひぎゃー！！あばっ、あばばばばば！！/あはははっ！！次っ、次アレのりましょ！")%」
		CASE "去图书馆"
			PRINTFORMW 「ふへー、%TEXTR("ろ、論文はもう…/もう数字も見たくないっス…/ボルシチっておいしそう…")%」
		CASE "赏花"
			PRINTFORMW 「たまには団子とかの甜食も良いっスねぇ」
		CASE "去游泳"
			PRINTFORMW 「ふへへ、%CNAME("一人称")%の勇姿をしかと見るっス%CNAME("二人称")%！」
		CASE "爬山"
			PRINTFORMW 「もー、遅いっスよ%CNAME("二人称")%！早すぎるって　そ、それもそーっスね」
		CASE "赏红叶"
			PRINTFORMW 「ぎ、銀杏は近くにないっスよね…」
		CASE "滑雪"
			PRINTFORMW 「あばっ、あばばばばばっ…　股が裂ける…」
		CASEELSE
			PRINTFORMW 「たのしーっスね%CNAME("二人称")%！」
		ENDSELECT
	ENDIF

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

CASE "手をつなぐ"
	IF TALENT:娇小 && TALENT:MASTER:娇小 == 0
		PRINTFORMW 「えへへー、%CNAME("二人称")%の手おっきぃ…」
	ELSE
		IF CEVENT("妹哈娜")
			PRINTFORMW 「えへへー、何でもないよ%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「えへへー、何でもないっスよ%CNAME("二人称")%」
		ENDIF
	ENDIF
CASE "手をつながない"
	PRINTFORMW 「むー…」
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW 「お、お手柔らかに…」
	ELSEIF RAND:2
		IF CEVENT("妹哈娜")
			PRINTFORMW 「えっちなのはダメだからねー」
		ELSE
			PRINTFORMW 「えっちなのはダメっスからねー」
		ENDIF
	ELSE
		PRINTFORMW 「どーしよっかなー」
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	IF CEVENT("妹哈娜")
		SELECTCASE SWIM(STR:選んだ泳装, "種類")
		CASE "Micro比基尼"
			IF TALENT:淫乱
				PRINTFORMW 「えへへ、えっちぃ泳装…」
			ELSE
				PRINTFORMW 「ちょ、ちょっと大胆すぎじゃ…」
			ENDIF
		CASE "比基尼"
			PRINTFORMW 「えへー、どーお？%CNAME("二人称")%」
		CASE "競泳泳装"
			PRINTFORMW 「今年はもっと速く…」
		CASE "高開衩連衣裙"
			PRINTFORMW 「み、見えないトコきわどすぎじゃないかな…？」
		CASE "連体泳装"
			PRINTFORMW 「んふふー、かわいーのにしちゃった」
		;其他はだいたいエロ泳装です
		CASEELSE
			IF TALENT:淫乱
				PRINTFORMW 「えへへ、えっちぃ泳装…」
			ELSE
				PRINTFORMW 「ちょ、ちょっと大胆すぎじゃ…」
			ENDIF
		ENDSELECT
	ELSE
		SELECTCASE SWIM(STR:選んだ泳装, "種類")
		CASE "Micro比基尼"
			IF TALENT:淫乱
				PRINTFORMW 「えへへ、えっちぃ泳装っスね…」
			ELSE
				PRINTFORMW 「ちょ、ちょっと大胆すぎじゃ…」
			ENDIF
		CASE "比基尼"
			PRINTFORMW 「えへー、どーっスか？%CNAME("二人称")%」
		CASE "競泳泳装"
			PRINTFORMW 「今年はもっと速く…」
		CASE "高開衩連衣裙"
			PRINTFORMW 「み、見えないトコきわどすぎじゃないかな…？」
		CASE "連体泳装"
			PRINTFORMW 「んふふー、かわいーのにしちゃった」
		;其他はだいたいエロ泳装です
		CASEELSE
			IF TALENT:淫乱
				PRINTFORMW 「えへへ、えっちぃ泳装っスね…」
			ELSE
				PRINTFORMW 「ちょ、ちょっと大胆すぎじゃ…」
			ENDIF
		ENDSELECT
	ENDIF

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	IF CEVENT("妹哈娜")
		;どの泳装に着替えたか？
		SELECTCASE SWIM(CSTR:今年の泳装, "種類")
		CASE "比基尼"
			PRINTFORMW 「んふー、どーおっ？%CNAME("一人称")%のせくしーぼでー」
		CASE "Micro比基尼"
			IF TALENT:淫乱
				CALL PRINT_STR, @"「にへへ、躁动难忍しちゃったら…　いーよ？%CNAME("二人称")%_H_」_W_"
			ELSE
				PRINTFORMW 「う、動くとみえちゃ…」
			ENDIF
		CASE "連体泳装", "競泳泳装"
			PRINTFORMW 「泳ぐぞー！」
		;其他はだいたいエロ泳装です
		CASEELSE
			IF TALENT:淫乱
				CALL PRINT_STR, @"「にへへ、躁动难忍しちゃったら…　いーよ？%CNAME("二人称")%_H_」_W_"
			ELSE
				PRINTFORMW 「う、動くとみえちゃ…」
			ENDIF
		ENDSELECT
	ELSE
		;どの泳装に着替えたか？
		SELECTCASE SWIM(CSTR:今年の泳装, "種類")
		CASE "比基尼"
			PRINTFORMW 「んふー、どーっスか？%CNAME("一人称")%のせくしーぼでー」
		CASE "Micro比基尼"
			IF TALENT:淫乱
				CALL PRINT_STR, @"「にへへ、躁动难忍しちゃったら…　いーっスよ？%CNAME("二人称")%_H_」_W_"
			ELSE
				PRINTFORMW 「う、動くとみえちゃ…」
			ENDIF
		CASE "連体泳装", "競泳泳装"
			PRINTFORMW 「泳ぐぞー！」
		;其他はだいたいエロ泳装です
		CASEELSE
			IF TALENT:淫乱
				CALL PRINT_STR, @"「にへへ、躁动难忍しちゃったら…　いーっスよ？%CNAME("二人称")%_H_」_W_"
			ELSE
				PRINTFORMW 「う、動くとみえちゃ…」
			ENDIF
		ENDSELECT
	ENDIF

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			PRINTFORMW 「んもー、しょーがないなー%CNAME("二人称")%は、ちゃちゃっと%CNAME("一人称")%のおくちに%TEXTR("びゅるびゅる/びゅーびゅー")%出しちゃって」
		ELSE
			PRINTFORMW 「え、えー…　ガマンできないんのー？　しょーがないなー%CNAME("二人称")%は…」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「んもー、しょーがないっスねー%CNAME("二人称")%は、ちゃちゃっと%CNAME("一人称")%のおくちに%TEXTR("びゅるびゅる/びゅーびゅー")%出しちゃうっス」
		ELSE
			PRINTFORMW 「え、えー…　ガマンできないんスかー？　しょーがないっスねー%CNAME("二人称")%は…」
		ENDIF
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "接吻"

CASE "摸屁股"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			PRINTFORMW 「ひゃんっ、もー恶作剧はダメだよー？」
		ELSE
			PRINTFORMW 「ひゃんっ…な、何するのさっ、%CNAME("二人称")%！」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「ひゃんっ、もー恶作剧はダメっスよー？」
		ELSE
			PRINTFORMW 「ひゃんっ…な、何するんスか、%CNAME("二人称")%！」
		ENDIF
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问"

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF CEVENT("妹哈娜")
		IF TALENT:恋慕
			PRINTFORMW 「むー…もう終わりかぁ…ちょっとすぐに返回のも勿体無いなぁ」
		ELSE
			PRINTFORMW 「楽しかったねー、また明日から頑張らなきゃ！」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「むー…もう終わりかぁ…ちょっとすぐに返回のも勿体無いっスねぇ」
		ELSE
			PRINTFORMW 「楽しかったっスねー、また明日から頑張らなきゃ！」
		ENDIF
	ENDIF
CASE "约会終了"
	IF CEVENT("妹哈娜")
		;エッチをする場合
		IF TFLAG:床イン
			IF TALENT:恋慕
				CALL PRINT_STR, @"「えへへ、いーよっ　%CNAME("二人称")%_H_」_W_"
			ELSE
				PRINTFORMW 「ガマン出来なくなっちゃったの？　実は%CNAME("一人称")%も…」
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「えへへー、今日は楽しかったよ%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「えへへー、また明日っ%CNAME("二人称")%！」
			ENDIF
		ENDIF
	ELSE
		;エッチをする場合
		IF TFLAG:床イン
			IF TALENT:恋慕
				CALL PRINT_STR, @"「えへへ、いーっスよ　%CNAME("二人称")%_H_」_W_"
			ELSE
				PRINTFORMW 「ガマン出来なくなっちゃったんスか？　実は%CNAME("一人称")%も…」
			ENDIF
		ELSE
			IF TALENT:恋慕
				PRINTFORMW 「えへへー、今日は楽しかったっスよ%CNAME("二人称")%」
			ELSE
				PRINTFORMW 「えへへー、また明日っス%CNAME("二人称")%！」
			ENDIF
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/07 ハナ/EVENT_K7_DAILY.ERB

license: unknown