code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K64, ARGS

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します
;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます
;CFLAG:随机内衣OFF = 1とした場合には、ここで設定した内衣のみを身に着けるようになります
CASE "内衣"
	CSTR:胖次 = 低腰胖次/黒/
	CSTR:胸罩 = 抹胸/黒/

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CALL SET_OTHER, ""

;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 背心,美式校服、V领毛衣など
;黑色水手服を着せたい場合には CALL SET_COSTUME, "水手服/黒" のように書き込むことで色を変えることが出来ます
;また、V领毛衣に限りCALL SET_COSTUME, "V领毛衣/濃紫/萌え袖"のようにして色の他に"萌え袖"をオプション指定できます
;(RESOURCES→MAIDFACE→13服 フォルダ内にある MAIDFACE13.csv の該当衣装を見て色を選ばないとならないため上級者向きです)
;また、女式衬衫等の上に裤吊带を着けたい場合には CALL SET_OTHER, "裤吊带" として下さい
CASE "制服"
	CALL SET_SHIRT, "宽松女式衬衫"
	CALL SET_SKIRT, "迷你紧身裙/黒"
	CALL SET_PANTIES, "開放型開洞胖次/黒"
	CALL SET_OUTER, "開放型褲襪/黒"
	CALL SET_SHOES, "高跟鞋"
	CALL SET_OTHER, "黑框眼鏡/髪卡"

;※保健の老师が学校で体操服や泳装を着る機会は無いと思うが着て欲しいから着せた
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	CALL SET_SHIRT, "运动衫/黒"
	CALL SET_PANTIES, "高開衩布鲁马/紺色"
	CALL SET_SHOES, "運動鞋"

;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	CALL SET_BODYS, "競泳泳装/黒"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	SELECTCASE TEXTS("季節")
	CASE "夏"
		CALL SET_SHIRT, "吊帯衫/灰色"
		CALL SET_OUTER, "热褲/黒"
	CASE "冬"
		CALL SET_SHIRT, "縦毛衣/黒"
		CALL SET_OUTER, "牛仔褲/黒"
	CASEELSE
		CALL SET_SHIRT, "宽松女式衬衫"
		CALL SET_OUTER, "牛仔褲/黒"
	ENDSELECT
	CALL SET_PANTIES, TEXTR(CSTR:TARGET:喜欢的胖次), TARGET

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	IF CFLAG:睡眠
		CALL SET_SHIRT, "晨衣/黒"
		CALL SET_PANTIES, "Micro比基尼/黒"
		CALL SET_BRA, "Micro胸罩/黒"
	ELSE
		SELECTCASE TEXTS("季節")
		CASE "夏"
			CALL SET_SHIRT, "吊帯衫/灰色"
			CALL SET_OUTER, "热褲/黒"
		CASE "冬"
			CALL SET_SHIRT, "縦毛衣/黒"
			CALL SET_OUTER, "牛仔褲/黒"
		CASEELSE
			CALL SET_SHIRT, "宽松女式衬衫"
			CALL SET_OUTER, "牛仔褲/黒"
		ENDSELECT
	ENDIF

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
	SELECTCASE TEXTS("季節")
	CASE "夏"
		CALL SET_SHIRT, "吊帯衫/灰色"
		CALL SET_OUTER, "热褲/黒"
		CALL SET_SHOES, "運動鞋"
	CASE "冬"
		CALL SET_SHIRT, "縦毛衣/黒"
		CALL SET_OUTER, "牛仔褲/黒"
		CALL SET_SHOES, "高跟鞋"
		CALL SET_OTHER, "黑色粗呢外套"
	CASEELSE
		CALL SET_SHIRT, "宽松女式衬衫"
		CALL SET_OUTER, "牛仔褲/黒"
		CALL SET_SHOES, "高跟鞋"
		CALL SET_OTHER, "黑色前開V领毛衣"
	ENDSELECT

;もちろん约会の際に着ます
CASE "约会衣装"
	SELECTCASE TEXTS("季節")
	CASE "夏"
		CALL SET_SHIRT, "宽松女式衬衫"
		CALL SET_SKIRT, "迷你紧身裙/黒"
		CALL SET_OUTER, "褲襪/黒"
		CALL SET_SHOES, "高跟鞋"
	CASE "冬"
		CALL SET_SHIRT, "縦毛衣/黒"
		CALL SET_SKIRT, "迷你紧身裙/黒"
		CALL SET_OUTER, "褲襪/黒"
		CALL SET_SHOES, "高跟鞋"
		CALL SET_OTHER, "黑色粗呢外套"
	CASEELSE
		CALL SET_SHIRT, "宽松女式衬衫"
		CALL SET_SKIRT, "迷你紧身裙/黒"
		CALL SET_OUTER, "褲襪/黒"
		CALL SET_SHOES, "高跟鞋"
		CALL SET_OTHER, "前開V领毛衣/黒"
	ENDSELECT

;朝Ｈの際に着ます
CASE "朝袭衣装"
	IF COND("同居中")
		CALL SET_SHIRT, "晨衣/黒"
		CALL SET_PANTIES, "Micro內褲/黒"
		CALL SET_BRA, "Micro胸罩/黒"
	ELSE
		SELECTCASE TEXTS("季節")
		CASE "夏"
			CALL SET_SHIRT, "吊帯衫/灰色"
			CALL SET_OUTER, "热褲/黒"
			CALL SET_SHOES, "運動鞋"
		CASE "冬"
			CALL SET_SHIRT, "縦毛衣/黒"
			CALL SET_OUTER, "牛仔褲/黒"
			CALL SET_SHOES, "高跟鞋"
		CASEELSE
			CALL SET_SHIRT, "宽松女式衬衫"
			CALL SET_OUTER, "牛仔褲/黒"
			CALL SET_SHOES, "高跟鞋"
		ENDSELECT
	ENDIF
;夜袭Ｈの際に着ます
CASE "夜袭衣装"
	CALL SET_SHIRT, "晨衣/黒"
	CALL SET_PANTIES, "Micro內褲/黒"
	CALL SET_BRA, "Micro胸罩/黒"

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;CALL SETFLAG, "普段の髪型復元", TARGET で変化させた髪型などを普段のものに戻すことが出来る
;-------------------------------------------------
@MAIDFACE_K64
IF CFLAG:髪型変更のお願い中 == 0 && PLACE("学園内")
	CSTR:改髪 = 大三股辫
ELSE
	CALL SETFLAG, "普段の髪型復元", TARGET
ENDIF

license: unknown


code:
;-------------------------------------------------
;各種打招呼
;注意！ここのセリフは基本的に颜绘が付きます！！
;颜绘に変化を付けたい場合にはセリフの前でEMOTION_PLUSを用いる事で変えられます。
;例）恥じらった顔にさせたい場合には CALL EMOTION_PLUS, "害羞", TARGET
;-------------------------------------------------
@KOJO_GREETING_K64, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝乳交"

	CASE "朝騎乗位"
		IF TALENT:相思相愛
			PRINTFORMW 「あら…起きちゃったのね…ちょうど今日の分の筆おろしを頂いちゃったところよ」
			PRINTFORML
			PRINTFORMW 筆おろし？
			PRINTFORML
			PRINTFORMW 「ただの例えよ…要は今日の初めてを頂いちゃったって事」
			PRINTFORMW 「恋人同士だもの…これくらいの特権はあってもよいでしょう？」
			PRINTFORMW 妖艶に微笑むと淫靡に腰をくねらせ精を搾り取る様に膣を締め付ける
			PRINTFORML
			PRINTFORMW 你は成程と頷くと下から両胸を鷲掴みにして揉みしだきながら腰を突き上げ欲望のままに精液を注ぎ込む
			PRINTFORMW 膣内も口内も髪も顔も身体中のあらゆる場所を精液で染め上げるまでそれは続けられるのであった

		ELSEIF TALENT:恋慕
		ELSE
		ENDIF

	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		PRINTFORMW 「んっ…んむっ…ゴクッ…ふぅ…御馳走様、美味しかったわ」

	CASE "朝騎乗位"
		IF TALENT:相思相愛
			PRINTFORMW 「朝からやり過ぎよ…身体が怠くて仕方ないわ」
			PRINTFORML
			PRINTFORMW 「とにかく一緒に淋浴を浴びて奇麗にしたら朝食を済ませましょう」
			SIF TEXTS("曜日") != "日"
				PRINTFORMW 「急がないと学校に遅刻しちゃうわよ？」

		ELSEIF TALENT:恋慕
		ELSE
		ENDIF
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「今日は体育がある日ね…%CNAME("一人称")%の布鲁马姿も披露しちゃおうかしら…」
		PRINTFORMW 「まだまだ若い子に負けていないと思うのよね…むしろ大人の魅力が加わって別の意味で目が離せなくなるかも知れないわよ」
		PRINTFORMW 師匠はそう言うと悪戯っぽく笑着いる
	ELSE
		IF DAYEV("周六", "游戏内") == 0 && DAYEV("周日", "游戏内") == 0
			PRINTFORMW 「準備は終わったの？私は時間無いから先に行くわね」
		ELSE
			PRINTFORMW 「んー…まだゆっくりしていたい気分ね…二度寝しようかしら」
		ENDIF
	ENDIF
CASE "登校"
	IF DAYEV("試験当日")

	ELSEIF DAYEV("試験返却日")

	ELSEIF COND("朝袭相手")

	ELSEIF COND("体育")

	ELSEIF COND("水泳")

	ELSE

	ENDIF
;この角色と一緒に部室に入った際に誰も他にいない場合
CASE "一番乗り"
	PRINTFORMW 「あら、まだ他に誰も来て居ないみたいね…折角だし二人だけの時間を楽しみましょうか」
CASE "ただいま"
	PRINTFORMW 「我回来了」
	PRINTFORMW 「ちょっと帰りが遅くなったわね。良かったら咖啡でも淹れてくれないかしら、何かする前に一息入れたいわ」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「お帰りなさい」
		PRINTFORMW 「帰りが遅くなる時は連絡くらいはするようにね。%CALLNAME:MASTER%も咖啡飲む？丁度いま淹れていた所なのよ」
	ELSE
		PRINTFORMW 「あら、遅かったわね…先にお邪魔しているわよ」
	ENDIF

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

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

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『あら、%CNAME(CALLNAME_ACTOR)%老师お疲れ様です』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 『こんにちは。みんな結構集まって来てるわよ』
	ELSE
		PRINTFORMW 『こんにちは』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	PRINTFORMW 「ごめんなさいね。%CNAME("一人称")%はあまり家事とかしないから、こういうのは便利店とかで買って済ませちゃうのよ」
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;动画ーションの関係上、１ターンに何度も呼ばれたりするのでフラグ操作をする場合には
;IF CFLAG:KOJO_DAILY済 == 0
;で分岐させるのが良いでしょう
;-------------------------------------------------
@KOJO_DAILY_K64, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
		PRINTFORML 「今日から顧問として参加する事变成了%NAME:TARGET%よ宜しくね」
CASE "浑身是汗"
	PRINTFORML 「今日は暑いわねぇ」
	PRINTFORML 師匠はそう言うと外衣の胸元を摘まんで啪嗒啪嗒と熱気を逐出ている
CASE "刚睡醒"
		PRINTFORML 「ん～？…あら、おはよう」
		PRINTFORML 「悪いけど困倦覚ましに咖啡を淹れてくれないかしら」
CASE "Cosplay中"
	PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K64
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「私達…恋人同士变成了のよね…何だか感慨深いわ。正直こうなるとは思ってなかったのよ」
CASE "约会的约定"
	PRINTFORML 「诶嘿嘿…次の休日が楽しみね」
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML 「是、終わったわよ…望み街道の結果は得られたかしら」
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	SELECTCASE SAVESTR:現在位置
	CASE "保健室"
		IF CHARA_NUM("室内の邪魔者") == 0
			IF CEVENT("恵:保健室：密会") == 0
				PRINTL
				PRINTFORMW 「诶嘿嘿…懐かしいわね」
				PRINTFORMW 「ちょっと待ってね…是、魔法陣を起動したわ。これで魔法陣を起動してる間は誰も保健室に近寄れないわ」
				PRINTFORMW 「室内から漏れる音も認識出来なくなるから何も気にしないで存分に楽しめるわよ」
				PRINTL
				PRINTFORMW ………魔法陣？
				PRINTL
				PRINTFORMW 「ああ、そう言えば教えていなかったわね」
				PRINTFORMW 「ここには個人ではなく場に作用する認識阻害と結界術を応用して構築した魔法陣を設置してあるの」
				PRINTFORMW 「術式を完成させるのは結構苦労したのよ？…完成までは時間も掛かっちゃったしね」
				PRINTFORMW 「でも苦労の甲斐もあって、私の魔力を流し込んで给と手軽にON/OFFを操作できる魔法陣に仕上がったわ」
				PRINTFORMW 「勿論、私の魔力以外には反応しない様に構築してあるわよ」
				PRINTL
				PRINTFORMW …なるほど、それが保健室を狩場に出来た絡繰りなのか
				CALL SET_CEVENT, "恵:保健室：密会"
			ELSE
				PRINTL
				PRINTFORML 「…是、魔法陣を起動したわ」
				PRINTL
				PRINTFORML 師匠はそう言うと開心地腕を絡め保健室の床に邀请と並んで床に腰掛けた
			ENDIF
		ELSE
			PRINTL
			PRINTFORML 「ふふふ…私たちをここに連れて来た目的は何なのかしら…ちょっと楽しみだわ」
		ENDIF
	CASEELSE
		IF CHARA_NUM("室内の邪魔者") == 0
			PRINTL
			PRINTFORML 「ふふふ…こんな所で密会だなんて…何を企んでいるのか楽しみね」
		ELSE
			PRINTL
			PRINTFORML 「ふふふ…私たちをここに連れて来た目的は何なのかしら…ちょっと楽しみだわ」
		ENDIF
	ENDSELECT
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「あらあら、老师を部屋に連れ込んだりして…個人レッスンでもして欲しいのかしら」
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「いらっしゃい」
	PRINTFORML 師匠は床に腰掛けるとポンポンと床を轻轻地叩き坐在旁邊様に促している
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「ここ以外ではあと少しで見えそうなのに何故か見えない」
	PRINTFORML 「そんな認識阻害を掛けているのよ…ちょっと坏心眼かしら」
	PRINTFORML 師匠は楽しそうに悪戯っぽく笑着いる
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「あら、見てるだけ？触っても良いのよ？」
CASE "撫摸股間"
	PRINTFORML 「もしかして%CNAME("一人称")%から床に邀请ように仕向けているのかしら」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML 「どう？…満足出来たかしら」
CASE "进行性処理"
	PRINTFORML
CASE "帮忙消除性欲"
	PRINTFORML 「ふふふ…気持ち良かったわよ」
CASE "清洁口交"
	PRINTFORML 「是、奇麗变成了わよ」
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「こういう所は普段来ないから何だか新鮮だわ」
		PRINTFORML 「なぁに？その意外そうな顔は…恋愛相談に乗る事は好きだけど…」
		PRINTFORML 「私自身が恋愛する発想とか無かったから当然こういう場所には縁が無いのよ」
	;做爱房
	ELSE
		PRINTFORML 「あら、%CNAME("一人称")%の相手をしてくれるのね。今日はどんな風に楽しみましょうか」
	ENDIF
ENDSELECT

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

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

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

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

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
			PRINTFORML 「%CALLNAME:MASTER%の望み街道超短迷你にしてみたのだけど下から覗こうとする男子生徒が多くて大変だったわ」
			PRINTFORML 「ほら、私の内衣はアレだから見られる訳に是かないもの」
			PRINTFORML 「結局面倒になって認識阻害に頼っちゃったわ…まあ、いつも街道と言えばいつも街道ね」
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「今まで好き变成了人は居ないのかですって？」
	PRINTFORML 「居ないわねぇ…私好みの子なら沢山居たけど」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「今まで何人の生徒と関係を持ったのかですって？」
	PRINTFORML 「そんなこと知らない方がお互相用ためよ。知ったところで良い気分にはなれないでしょ？」
	PRINTFORML 「女には秘密の一つや二つあった方が魅力的だくらいに思っておきなさい」
	CALL SET_DEVENT, "質問２"
ENDIF

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

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

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 && CFLAG:刚睡醒 == 0
		PRINTFORML 「何か飲み物でも用意しましょうか？」
	ELSE
		PRINTFORML
	ENDIF
ELSEIF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	PRINTFORML 「何かしたい事ある？…何も無いならそろそろ部屋に戻ろうかしら」
ELSE
	SELECTCASE RAND:3
	CASE 0
		PRINTFORML 師匠は興味深げに你を観察している
	CASE 1
		PRINTFORML 師匠はリラックスした様子で紅茶を飲んでいる
	CASEELSE
		PRINTFORML 師匠は気だるげにソファーにもたれ掛かり雑誌を読んでいる
	ENDSELECT
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K64
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「…頂きます」
	PRINTFORML 吃飯の夢でも見ているのだろうか…師匠が言うと如何わしい想像をしてしまう
ELSEIF RAND:2
	PRINTFORML 「…御馳走様」
	PRINTFORML 何を食べたのだろうか…師匠が言うとやっぱり如何わしい想像をしてしまう
ELSE
	PRINTFORML 「…美味しかったわ」
	PRINTFORML 好きな飲み物でも飲んだのだろうか…師匠が言うとどうしても如何わしい想像をしてしまう
ENDIF

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

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

CASE "お仕事"

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

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

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

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

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"
	PRINTFORMW 「ねぇ…家に返回前にちょっと楽しまない？」
	PRINTL
	PRINTFORMW 師匠は胸に挟み込むように片腕を抱到身边と逆らい難い淫靡な声音で誘惑して来た
	STR:Ｈする場所 = 保健室
;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	IF PLACE("自宅") && COND("夜")
		PRINTFORMW 「诶嘿嘿…勿論、一緒にお浴室に入るだけじゃ済まさないわよ」
		PRINTL
		PRINTFORMW 師匠にその魅惑のボディを使って奉仕を交えながら洗ってもらい
		PRINTFORMW 湯船でいちゃつきながら至福の時を過ごした。当然、存分に悪戯したのは言うまでもない
		TFLAG:お浴室でＨ = 1
	ENDIF
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	IF PLACE("自宅")
		IF COND("夜") && RAND:2 == 0
			;お浴室
			PRINTFORMW 「あら…今からお浴室に入るのね」
			PRINTFORMW 「それなら%CNAME("一人称")%が隅々まで奇麗にして给」
			PRINTL
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 師匠に有無を言わせない勢いで手を引かれ脱衣所に連れ込まれた
				PRINTFORMW そして楽しそうにこちらの衣服を一枚一枚剥ぎ取ると次は你が脱がせてと催促する
				PRINTFORMW 興奮していたせいで我慢できず下半身だけ先に剥ぎ取ると既に勃起ていた阴茎をいきなり捻じ込んだ
				PRINTL
				PRINTFORMW 「きゃあっ…いきなりなんて…なんて期待街道に行動する子なのっ」
				PRINTL
				PRINTFORMW 思わずといった感じで笑い出した師匠抱住残った衣服を剥ぎ取りながら突き上げる
				PRINTFORMW 暴露了出来胸揉捏起来并乳頭に吸い付き更に腰の動きを速めると耳に心地の良い喘ぎ声が漏れ始めた
			CASE 1
				PRINTFORMW 脱衣所で脱がしっこを楽しんだあと浴室に入ると師匠はボディーソープを泡立たせた胸を使い背中を洗い始めた
				PRINTFORMW 前に回された両手はそれぞれ胸板と股間をまさぐっている
				PRINTL
				PRINTFORMW 「あらあら、まだ身体を洗っているだけなのに…こんなに元気になっちゃって」
				PRINTFORMW 「洗い終わったらこっちも可愛がって给から期待してて良いわよ」
				PRINTL
				PRINTFORMW どうやって師匠をよがり狂わせてやろうかと妄想の翼を羽ばたかせながら大人しく洗い終わるのを等待
				PRINTFORMW その間に反撃手段を幾つも模索するが、その様子を窺っていた彼女は妖艶な笑を浮かべ期待している
			CASEELSE
				PRINTFORMW 浴室に入ると互相用身体をまさぐりながら流しっこを楽しんだ
				PRINTFORMW 泡在浴缸里と師匠は股の間に割り込むように腰を下ろすと背中を預けて来た
				PRINTFORMW こんな据え膳を用意されて什麼也不做筈がない当然の様に抱到身边と胸の感触を楽しみながら貫いた
				PRINTL
				PRINTFORMW 「あああん…もうっ、本当に堪え性が無い子ねぇ…勿論こうなるように仕向けていたんだけど」
				PRINTL
				PRINTFORMW 師匠はクスクスと笑いながら楽しそうにされるがままに身体を委ねている
				PRINTFORMW 突き上げながら身体中をまさぐりその感触を楽しんでいると小鳥が囀る様に嬌声が浴室に反響した
			ENDSELECT
			TFLAG:お浴室でＨ = 1
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

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

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

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0

	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
	CASE "女子廁所"
	;体育のある日限定
	CASE "体育倉庫"
	;体育か水泳のある日限定
	CASE "更衣室"
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
	ENDSELECT

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

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

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

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

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはよう
	ENDIF
	SELECTCASE STR:日常イベント名
	CASE "打招呼ハグ"
		PRINTFORMW 「あら、%GREETING%」
		PRINTFORMW 「今日の打招呼は随分と情熱的なのね」
		PRINTFORMW %CNAME("一人称")%は微笑着并温柔的抱き返してきた
	CASE "打招呼接吻"
		PRINTFORMW 「あら、%GREETING%」
		PRINTFORMW 「今日の打招呼は何故か欧米的なのね」
		PRINTFORMW %CNAME("一人称")%は笑いながら再度口付けを交わしてきた
	CASE "打招呼口交", "打招呼舐陰"
		PRINTFORMW 「あら、%GREETING%」
		PRINTFORMW 「今日の打招呼は流石にどうかと思うわよ…嫌いじゃないけど」
		PRINTFORMW %CNAME("一人称")%は怒った振りをしながら轻轻地頬をつねってきた
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「あら、%GREETING%」
		ELSE
			PRINTFORMW 「%GREETING%。今日も元気そうね良い事だわ」
		ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「うーん…酔酒が回ってきたのか眠いわ…私的房間まで肩を貸してくれないかしら」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	CASE "夸奖"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW %CALLNAME:MASTER%は彼女の美貌を褒め称えた
			PRINTL
			PRINTFORML 「あら、お擅長…いつの間にか気の利いた事を言える様になっていたのね」
			PRINTFORMW そう言うと彼女は開心地微笑んでいる
		CASE 1
			PRINTFORMW %CALLNAME:MASTER%は彼女の抜群のプロ薬水を褒めちぎった
			PRINTL
			PRINTFORML 「诶嘿嘿…そんなに老师をおだてて一体どんな下心を隠しているのかしら」
			PRINTFORMW そう言うと老师は意味有げに微笑んでいる
		CASEELSE
			PRINTFORMW %CALLNAME:MASTER%は師匠の技量の素晴らしさを伝えた
			PRINTL
			PRINTFORML 「あらあら…もしかしてまた個人レッスンして欲しいのかしら？」
			PRINTFORMW そう言うと師匠は轻轻地舌なめずりしてみせた
		ENDSELECT

	CASE "甜言蜜语"
		IF TALENT:恋慕
			PRINTFORMW %CALLNAME:MASTER%は彼女を温柔地抱了と耳元で想いを囁いた
			PRINTL
			PRINTFORML 「嬉しいわ…」
			PRINTFORMW そう言う%CALLNAME:TARGET%の顔は仄かに朱に染まっている
		ELSEIF CALCF("甜言蜜语成功")
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW %CALLNAME:MASTER%は彼女を抱上去と耳元で自分だけのものにしたいと囁いた
				PRINTL
				PRINTFORML 「诶嘿嘿…今はまだその気は無いけど你次第ではそんな未来もあるかも知れないわよ」
				PRINTFORMW そう言うと彼女は開心地微笑んでいる
			CASE 1
				PRINTFORMW %CALLNAME:MASTER%は背後から彼女の胸揉捏起来并抱きたいと囁いた
				PRINTL
				PRINTFORML 「あん…いけない子ね…そんな子には床でお仕置きが必要かしらね」
				PRINTFORMW そう言うと老师は意味有げに微笑んでいる
			CASEELSE
				PRINTFORMW %CALLNAME:MASTER%は師匠の股間に手を滑り込ませると陰核を刺激しながらこの場で推倒たいと囁いた
				PRINTL
				PRINTFORML 「んっ…こらっ…ここじゃダメに決まっているでしょう大人しく床に付いてきなさい」
				PRINTFORMW そう言うと師匠は手を引き床へ連れて行こうとしている
			ENDSELECT
		ELSE
			PRINTFORMW 師匠はどう反応を返すべきか困った様な目でこちらを見ている
		ENDIF
	;雑談
	CASEELSE
		IF PLACE("部室")
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「名ばかりの部活と是え生徒とこの距離感で雑談出来るのは悪くないわ」
				PRINTFORMW 「保健室で生徒と雑談事もあるけど殆どカウンセリングみたいなものだしね」
			CASE 1
				PRINTFORMW 「養護教諭って受け持つ授業が無いからか楽な仕事と思われがちなのよね…」
				PRINTFORMW 「生徒がそう勘違いしてしまうのはまだ分からなくも無いけど」
				PRINTFORMW 「酷いのは教員の中にもそう思っている人が居る事なのよ」
			CASEELSE
				PRINTFORMW 「ここに居る間は仕事らしい仕事もないし、リラックス出来て良い休憩になるわ」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「飲み物の話なんだけど…こんな時はこういう飲み物が飲みたいとかある？」
				PRINTFORMW 「私の場合、喉が渇いてる時は茶を」
				PRINTFORMW 「リラックスしたい時は紅茶を」
				PRINTFORMW 「気分転換したい時は咖啡が飲みたくなるわね」
			CASE 1
				PRINTFORMW 「部室にみんな良く点心を持ってくるけど苦手なものとかある？」
				PRINTFORMW 「私の場合、甜食が好きだけど甘過ぎるのは駄目ね比較的あっさりしたものが好きよ」
				PRINTFORMW 「逆に職業柄なのかしら…塩分過多のものやスナック菓子は苦手ね」
			CASEELSE
				PRINTFORMW 「%CNAME("二人称")%は休みの日に出掛けたりする方？」
				PRINTFORMW 「私の場合、性格的にあまり出掛けたりしない方なのよ」
				PRINTFORMW 「だからか私の主な活動場所は学園なの。休みの日は自宅でのんびりしている事が多いわね」
			ENDSELECT
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「あら、気が利くわね…少しくらいならどさくさに紛れて触っても良いわよ？」
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

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

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K64
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW 「あら、偉いじゃない。良いわよ老师が分からないところを進行解答」
	CASE "托一托胸部"
		;你の性騷擾詳細はSTR:PLAY内容で分岐させることができる。
		SELECTCASE STR:PLAY内容
		CASE "乳环"
			PRINTFORMW
		CASE "陥没乳頭", "乳頭"
			PRINTFORMW
		CASE "巨乳輪"
			PRINTFORMW
		;其他は胸部を揉んだり
		CASEELSE
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW %CALLNAME:MASTER%は背後から師匠の両胸を揉みしだきそ的柔软的弾力を楽しむ
				PRINTL
				PRINTFORML 「あんっ…男の子って本当に胸が好きよね」
				PRINTFORMW 普段から男子生徒の注目を集めているだろう胸を今は好き放題にしている事に興奮を覚えた
			CASE 1
				PRINTFORMW %CALLNAME:MASTER%は正面から師匠を抱上去とその豊かな胸に顔を埋めた
				PRINTL
				PRINTFORML 「あら…甘えたくなったのかしら…良いわ好きなだけ甘えさせて给」
				PRINTFORMW 包み込むように温柔的抱きしめ返すと頭をなでてくれた
			CASEELSE
				PRINTFORMW %CALLNAME:MASTER%は師匠の胸元から手を滑り込ませその柔らさを堪能しながら乳頭をコリコリと刺激した
				PRINTL
				PRINTFORML 「こらっ…悪戯も程々にしなさいよ…その気になっちゃうでしょう」
				PRINTFORMW 師匠の吐息が熱を帯びてくるのが分かった
			ENDSELECT
		ENDSELECT
	CASE "按摩"
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW %CALLNAME:MASTER%は極上の体を隅々まで撫でまわす
				PRINTL
				PRINTFORML 「なんだか手つきがイヤらしいわね…これは本当にマッサージなのかしら」
				PRINTFORMW 勿論ですよと言いながら他の男子生徒が見たら誰もが羨む行為を続行した
			CASE 1
				PRINTFORMW %CALLNAME:MASTER%はマッサージと言いつつ師匠の胸を執拗に捏ねまわす
				PRINTL
				PRINTFORML 「豊胸マッサージのつもり？…どうせなら肩でも揉んでくれないかしら」
				PRINTFORMW 良いですよと言いつつも豊かな胸を堪能するのに夢中になり肩を揉んで给のは大分あと变成了
			CASEELSE
				PRINTFORMW %CALLNAME:MASTER%は師匠の柔らかくも張りが有煽情的で迫力のあるお尻を按摩
				PRINTL
				PRINTFORML 「これってマッサージと言えるのかしら…単に楽しんでいるだけじゃないの？」
				PRINTFORMW イヤイヤこれも立派なマッサージですよ…細い腰から大号的お尻への流れる様なラインが美しくて見惚れてしまった
			ENDSELECT
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			IF TALENT:恋慕
				PRINTFORMW 「良いわ…何度でも接吻しましょう…互いを確かめ合うように」
			ELSE
				PRINTFORMW 「ふふっ…接吻が好きなのかしら…私も好きよ」
			ENDIF
		ELSE
			PRINTFORMW 「んっ…擅長よ…」
		ENDIF
	CASE "膝枕"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「そうね…お願いしてみようかしら」
			PRINTFORMW 「…懐かしいわね…兒童のころ母親に甘えていた光景を思い出すわ」
		CASE 1
			PRINTFORMW 「何だか変な気分…こういうのも悪くないわね」
			PRINTFORMW %CALLNAME:TARGET%は安らいだ顔で居睡眠しそうになっている
		CASEELSE
			PRINTFORMW 「あら、膝枕をしてくれるの？…逆じゃなくて良いの？」
			PRINTFORMW 「ほら、やって给から遠慮しないでこっちにいらっしゃい」
			PRINTFORMW なんか逆に膝枕してもらう事になり耳掃除までしてくれた…
		ENDSELECT
	CASE "泡茶"
		PRINTFORMW 「あら、有がとう…丁度何か飲みたかったところなのよ」
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "摸頭"
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「んー…どうも落ち着かないわねぇ」
		CASE 1
			PRINTFORMW 「むう…%CNAME("一人称")%は兒童じゃないわよ？」
		CASEELSE
			PRINTFORMW 「ほら、ここに頭を乗せなさい」
			PRINTFORMW 何故か逆に膝枕で頭を撫でられた…
		ENDSELECT
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW
	CASE "送一份普通的礼物"
		PRINTFORMW
	CASE "送一份高价的礼物"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

CASE "撫摸頭髮"
	SELECTCASE RAND:3
	CASE 0
		PRINTFORMW 「長い髪の女性は好き？…好きで伸ばしているんだけど結構お手入れが大変なのよ」
	CASE 1
		PRINTFORMW 「诶嘿嘿…くすぐったいわ」
		PRINTFORMW 「今度は%CNAME("一人称")%が撫でてあげましょうか？」
	CASEELSE
		PRINTFORMW 「ん…撫で方が擅長ね…どこでこういう事を覚えてくるのかしら」
	ENDSELECT
;"坐在旁邊", "從後面抱住", "把手放在大腿上"は恋慕限定指令です
CASE "坐在旁邊"
	PRINTFORMW 「なぁに？…その何かを期待するような眼は」
	PRINTFORMW 師匠は悪戯っぽく笑うと頬を指でつついてくる
CASE "從後面抱住"
	PRINTFORMW 「ふふっ…撒娇鬼桑ねぇ…この手は何かしら」
	PRINTFORMW 大人の女性には甘えたくなるのは確かだが師匠が相手だとつい他のところにも手が伸びてしまう
CASE "把手放在大腿上"
	PRINTFORMW 「あらあら、これはお誘いの合図かしら」
	PRINTFORMW 師匠は耳元に口を寄せると私是つでも良いわよと囁いた

;この中でTFLAG:取引拒否 = 1とすると母乳を分けてあげません
CASE "哺乳"
	IF CEVENT("恵:母乳") == 0
		PRINTFORMW 「…飲みたいの？…これは赤酱の為のものよ？」
		PRINTFORMW 「…ふぅ…本当に好奇心旺盛な子ねぇ…飲んでも良いけど少しだけにしておきなさい」
		PRINTFORMW 「ラクターゼが分解できる量を超えれば当然お腹を壊すわ」
		CALL SET_CEVENT, "恵:母乳"
	ELSE
		PRINTFORMW 「…また飲みたいの？…仕方の無い子ねぇ」
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「これは好奇心というより性欲なのかしら」
		CASE 1
			PRINTFORMW 「圆圈で赤酱がもう一人増えたような気分だわ」
		CASEELSE
			PRINTFORMW 「ふふ…これはこれで可愛く思えるから不思議ね」
		ENDSELECT
	ENDIF
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K64
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		PRINTFORMW
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K64
		WAIT
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「もう何度も見ているでしょうに…そんなに興味深いものなのかしら」
		CASE 1
			PRINTFORMW 「ただ見ているだけじゃつまらないでしょ…指でも入れてみる？」
		CASEELSE
			PRINTFORMW 「良く見える？…何だったら自分の手で拡げて見せてあげましょうか？」
		ENDSELECT
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K64
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K64
		WAIT
	ELSE
		IF CHECK_PANTIES("開放型開洞胖次", TARGET) && CHECK_OUTER("開放型褲襪", TARGET)
			SELECTCASE RAND:3
			CASE 0
				PRINTFORMW 「そんなに私の阴部が見たいの？」
				PRINTFORMW 「別に良いけど…変に弄らないでね我慢できなくなるから」
			CASE 1
				PRINTFORMW 「うーん…この胖次は見せるために穿いている訳じゃ無いのだけど」
			CASEELSE
				PRINTFORMW 「そんなに胖次に興味があるの？…偶には違う胖次を穿いて来た方が喜んだりするのかしら」
			ENDSELECT
		ELSE
			SELECTCASE RAND:3
			CASE 0
				IF COND("胖次形状確認") == 0
					PRINTFORMW 「どう？…もろに見えているよりこっちの方がそそらない？」
				ELSE
					PRINTFORMW 「%CNAME("二人称")%はどんな胖次が好みなのかしら…少し興味があるわね」
				ENDIF
			CASE 1
				PRINTFORMW 「%CNAME("二人称")%はどんな胖次が好みなのかしら…少し興味があるわね」
			CASEELSE
				PRINTFORMW 「%CNAME("一人称")%は何故か黒が大好きでね…内衣は勿論、服や家具なんかもつい黒を選んじゃうのよ」
				PRINTFORMW 「流石に恤や部屋の壁紙、カーテンや食器なんかは白を選ぶけどね…何もかも黒じゃセンス無いもの」
				PRINTFORMW 「というよりは白色部屋に黑色テーブル、黑色テーブルには白色食器、こういう組み合わせが好きなのよねぇ」
			ENDSELECT
		ENDIF
	ENDIF
;念のため分岐を作って有ますが多いので取捨選択してください
CASE "撫摸股間"
	;初めて
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「%CALLNAME:MASTER%も随分と積極的变成了ものね」
		PRINTFORMW 「それはそれで悪くないけど…初心だった頃の%CALLNAME:MASTER%が見られないのは寂しくもあるわ」
	;阴部を直に弄る場合
	ELSEIF CHECK_CLO("Ｖ露出")
		SIF CHECK_PANTIES("開放型開洞胖次", TARGET)
			PRINTFORML 胖次がぱっくりと割れているせいで股間が露出している
		SELECTCASE RAND:3
		CASE 0
			PRINTFORML %CALLNAME:MASTER%はこれ幸いと陰核を直に弄り倒す
			PRINTL
			PRINTFORMW 「んっ…んんっ…悪戯ばかりして本当に困った子ね」
		CASE 1
			PRINTFORML %CALLNAME:MASTER%は割れ目に沿って膣口を執拗に愛撫する
			PRINTL
			PRINTFORMW 「あっ…ああっ…そんなに焦らされると…我慢できなくなるわよっ」
		CASEELSE
			PRINTFORML %CALLNAME:MASTER%は撫摸股間のを止めるといきなりしゃぶりつきジュルジュルと音を立てて貪った
			PRINTL
			PRINTFORML 「ちょっ、ちょっとこんな場所で何をしているのっ…あっ…んあああっ」
			PRINTFORMW %CALLNAME:MASTER%の頭を押さえて止めさせようとするがビクビクと体を痙攣させて仰け反った
		ENDSELECT
	;连褲襪越し
	ELSEIF CHECK_CLO("连褲襪露出")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「%CNAME("二人称")%も素足より连褲襪の方が興奮する領帯プ？」
		CASE 1
			PRINTFORMW 「興奮しても破っちゃ駄目よ…興奮する度に破られたら切りが無いわ」
		CASEELSE
			PRINTFORML 「连褲襪を頭から被ってみる？上に引っ張ると凄く面白色顔になるわよね」
			PRINTFORML 「昔なにかの番組で初めて見た時は思わず吹き出しちゃったわ」
		ENDSELECT
	;布鲁马越し
	ELSEIF CHECK_CLO("布鲁马露出")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「布鲁马姿だといけない事をしている気分になるわね」
		CASE 1
			PRINTFORMW 「%CNAME("二人称")%…鼻息が荒くなっているわよ」
		CASEELSE
			PRINTFORML 「何だか%CNAME("一人称")%まで興奮してきちゃったわ」
		ENDSELECT
	;泳装越し(比基尼や競泳泳装や死库水など)
	ELSEIF CHECK_CLO("泳装ボトム露出")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「泳装姿だとやっぱり手を出したくなる？」
		CASE 1
			PRINTFORMW 「诶嘿嘿…%CNAME("一人称")%も変な気分になってきたわ」
		CASEELSE
			PRINTFORML 「泳装姿は大事なところが見えないというだけで裸と大差ないわ。好きなだけ触っても良いのよ？」
		ENDSELECT
	;胖次越し
	ELSEIF CHECK_CLO("胖次露出")
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「いつもと違って单薄的布越しに触られるのも乙なものね」
		CASE 1
			PRINTFORMW 「あ…胖次が湿的ちゃってるわ」
		CASEELSE
			PRINTFORML 「胖次の脇から指でも入れてみる？」
		ENDSELECT
	;其他休闲褲やなんか布越し
	ELSE
		SELECTCASE RAND:3
		CASE 0
			PRINTFORMW 「うーん…なんかもどかしいわね」
		CASE 1
			PRINTFORMW 「シチュエーションは悪くないのだけど、やっぱり物足りないわ」
		CASEELSE
			PRINTFORML 「ねぇ…休闲褲脱ぎましょうか？」
		ENDSELECT
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K64
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		PRINTFORMW 「ふふっ…これは研究熱心と言っても良いのかしら」
	ELSE
		PRINTFORMW 「ふふっ…欲望に忠実な子ね」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			IF CHECK_PANTIES("開放型開洞胖次", TARGET) && CHECK_OUTER("開放型褲襪", TARGET)
				PRINTFORMW 「ほら、懐かしいでしょ？」
				PRINTFORMW 「性処理をしてあげていた頃、頻繁に求めて来るからこの格好にしていたのだけど…忘れたとは言わないわよね？」
				PRINTFORMW 「そういう意味では便利だし、学園では出来るだけこの格好で居て给わ」
			ELSE
				PRINTFORMW 「今日の内衣はどうかしら？」
			ENDIF
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「こうやって見せてもらうより何かの拍子に見えた方がドキッとするのかしら」
		ELSE
			PRINTFORMW 「こうやってたくし上げて見せてもらうのと自己めくって見るのとどっちが好き？」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「ん～～～？」
			PRINTFORMW 「…なるほど無防備な状態を見て悪戯したくなっちゃったのね」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K64
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			IF CHECK_PANTIES("開放型開洞胖次", TARGET) && CHECK_OUTER("開放型褲襪", TARGET)
				PRINTFORMW 「ビッ阴蒂した？」
				PRINTFORMW 「性処理をしてあげていた頃、頻繁に求めてくるからこの格好にしていたのを忘れたとは言わせないわよ？」
				PRINTFORMW 「そういう意味では便利だし、学園では出来るだけこの格好で居て给わ」
			ELSE
				PRINTFORMW 「本当に欲望に忠実な子ね…良いわ気が済むまで見せて给」
			ENDIF
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「良く見えなかったからもう一度見たいという事？」
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「打招呼もまだなのに流石にこれはどうかと思うわよ？」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「いまは穿いていないわ…時にはこういうのも悪くないでしょう？」
				ELSE
					PRINTFORMW 「もう…またなの？…飽きたりしないのかしら」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	PRINTFORMW 「…何かしら？…ああ、性処理を手伝って欲しいのね」

	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"
			PRINTFORMW 「…勿論良いわよ…それなら口でして给わ」

		CASE "乳交"
			PRINTFORMW 「…勿論良いわよ…それなら胸で気持ち良くして给わ」

		CASE "Ｖ性交"
			PRINTFORMW 「…勿論良いわよ…それなら此処に入れて頂戴」

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "ちん接吻を頼んだ際の反応"

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

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

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

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

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

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

		ELSE

		ENDIF
	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
CASE "性処理後飲尿PLAY"

;TFLAG:指令中止 = 1 とすることで口上側から性欲解消を拒否できる
CASE "性欲解消を申し出た際の反応"
	;発情しているかどうかで性欲解消前の発言を分岐
	IF COND("発情中")
		PRINTFORMW 「…丁度良いところに…身体が疼いて仕方なかったのよ」
	ELSE
		PRINTFORMW 「…それ程溜まっては居ないのだけど…折角だし付き合ってもらおうかしらね」
	ENDIF

	SELECTCASE STR:PLAY要望
	CASE "舐陰"

	CASE "口交"
		PRINTFORMW 「…そうね…喉も乾いて来た事だし、%CNAME("二人称")%の精液で潤しましょうか」

	CASE "Ｖ性交"
		;避孕套没有の生性交を希望
		IF COND("女性主導生性交")
			PRINTFORMW 「…そうね…やっぱり生で性交するのが一番解消出来るかしら…」
		ELSE
			PRINTFORMW 「…そうね…性交するのが一番解消出来るかしら…」
		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

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

	CASE "舐陰莖"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

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

		ELSE

		ENDIF
	CASE "口交"
		PRINTFORMW 「…御馳走様…美味しかったわよ」

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

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				PRINTFORMW 「…良かったわよ…お陰様でスッキリしたわ」

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
		PRINTFORMW 『良かったらお昼を一緒に食べない？』
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	PRINTFORMW 「誘っておいて何だけど便利店の便当で悪いわね…家事は苦手なのよ」
	PRINTFORMW 「それでも誰かと一緒に食べると美味しく感じるから不思議だわ」
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
CASE "二人きり：Ｈの誘いに胖次条件で回应"
CASE "二人きり：Ｈの誘いに回应"
CASE "二人きり：Ｈの誘いを断った"
ENDSELECT

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

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

;地の文
PRINTFORMW 消息中附有「%MAIL_BODY%」的照片…

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「週末は闲かしら？」
	PRINTFORMW 「闲だったらちょっと付き合ってくれない？…少し息抜きがしたいのよ」

CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「助かるわ。最近、仕事でストレス溜まってたから何処かに玩耍に行きたくなったのよ」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「そう…それは残念だわ。でも気が変わったら教えてね」
	ENDIF

;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	PRINTFORMW 「约会したいの？…良いけどその代わり酱と楽しませてね」
	PRINTFORMW 「いろんな意味で期待してるわ」

;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"
	;これのコメントアウトを取下と、便当を作ってあげません
	PRINTFORMW 「ごめんなさいね…作ってあげたい気持ちはあるのだけど%CNAME("一人称")%には無理なのよ」
	CALL DEL_CEVENT, "约会の便当"

;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「今から？随分急な話ね…準備があるから少し時間要わよ」
	ELSE
		PRINTFORMW 「良いわね…それじゃお互いに準備して出かけましょうか」
	ENDIF

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

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

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

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

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

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

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

CASE "接吻"

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

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

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

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:恋慕
		PRINTFORMW 「楽しかったわ…%CNAME("二人称")%と過ごす時間はあっという間に過ぎ去ってしまって…」
		PRINTFORMW 「何だかこの時間が終わってしまうのがとても切ないわね」
	ELSE
		PRINTFORMW 「约会なんて%CNAME("二人称")%以外とはした事なかったけど楽しいものね」
		PRINTFORMW 「意外そうな顔ね…仕方ないでしょう誘われた事なら沢山あるけど興味が無かったんだもの」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW 「そう言ってくれるのを待ってたわ…責任取ってこの身体の火照りを静めてね」
		ELSE
			PRINTFORMW 「约会で楽しませてくれた礼物に今度は%CNAME("一人称")%が楽しませて给わ」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;時間経過などで表示される　机の上にメモが置いてある……　で表示されるテ接吻トに角色独自の物を追加できます
;特に無いなら書かなくて大丈夫です
;-------------------------------------------------
@TIPS_K64

;台詞を書いたら下のRETURN 0 を消してください
RETURN 0

SELECTCASE RAND:5
CASE 4
	PRINTFORMW 『』
CASE 3
	PRINTFORMW 『』
CASE 2
	PRINTFORMW 『』
CASE 1
	PRINTFORMW 『』
CASEELSE
	PRINTFORMW 『』
ENDSELECT

path: ERB/EVENT_K/64 天野恵/EVENT_K64_DAILY.ERB


code:
;-------------------------------------------------
;取引画面と、购物の際の台詞を記述します
;-------------------------------------------------
;取引画面での台詞。悪魔以外は大部分が不要です
;-------------------------------------------------
@KOJO_WISH_K64, ARGS
#DIM MEMO_LINECOUNT

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW 腰の動きを緩やかに変えてグラインドさせながら耳元で囁くように取引を持ち掛けてみた
			PRINTFORML
			PRINTFORMW 「くっ…こんなっ…時ni↘…取引なのっ？」
			PRINTFORMW 「これはっ…何かのっ…駆け引きっ…なのかしらっ」
			PRINTFORMW 「取り合えずっ…言ってっ…みなさいっ」
		ELSE
			PRINTFORMW 「今から取引したいの？」
			PRINTFORMW 「良く分からない領帯ミングで持ち掛けてくるわね…まあ良いわ何が望みなの？」
		ENDIF
	ELSE
		PRINTFORMW 「あら、取引したいのね…それでどんな望みがあるのかしら」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「…とうとうこの日が来たのね…」
		PRINTFORMW 「…まあ、散々%CNAME("一人称")%を自分だけのものにしたがって居たから本気で言ってるのは分かっているけど…」
		PRINTFORMW 「…本当に良いの？…%CNAME("一人称")%は童貞狩猎を趣味にしていた女よ…」
		PRINTFORMW 「身体だけの関係なら兎も角、態々こんな女を選ばなくても…%CNAME("二人称")%なら相応しい相手が見つかるでしょうに」
		PRINTFORML

		;各エンディングへ進むためのフラグのみを立てる。各エンディングを見るには更に条件を満たす必要がある
		IF CHARA_NUM("相思相愛") >= 2
			IF MARK:屈服刻印 == 3 && MARK:快楽刻印 == 3
				;ハーレムエンド/"愛欲の楽園"へ進むためのルート。狩られた狩人のフラグが立つ
				PRINTFORMW …
				PRINTFORMW ……
				PRINTFORMW ………
				PRINTFORMW 「…ふぅ…悪魔の世界では一夫多妻も珍しい事では無いし…私も貴方没有の生活なんて考えられない…」
				PRINTFORMW 「…この際、貴方の性癖には目を瞑って…私は貴方だけのものになると約束しましょう」
				PRINTFORMW 「…本当に困った子…私をこんな風に変えてしまうなんて…」
				PRINTFORML
				PRINTFORMW 諦めた様に語る師匠の表情はどこか欲情に塗れている様に見えた
				PRINTFORMW これまで狩る側であった彼女が狩られしまった事を自覚した瞬間でもある
				CALL SET_CEVENT, "恵：狩られた狩人"

			ELSE
				;ノーマルエンド/"世は並べて事も没有"へ進むためのルート。唯一何もフラグを立てない
				PRINTFORMW 「…本当に良いのね？…貴方だけのものになるかどうかは約束出来ないわよ？」
				PRINTFORMW 「…貴方だって他の女に手を出しているみたいだし…別の女と宜しくやってる間、私だけ寂しい思いをするなんて御免だわ」
				PRINTFORMW 「…それでも良いのなら…貴方の女になってあげても良いわよ…」
				PRINTFORML
				PRINTFORMW …仕方ない…確かに師匠の言う街道だ…%CNAME("二人称")%はそれでも良いと答えるしか無かった
				PRINTFORML
				PRINTFORMW 「…正直、今迄の関係とどう違うのか分からないのだけど…貴方が納得出来るのなら良しとしましょう」
				PRINTFORML
				PRINTFORMW 厳かに語る師匠の表情はどこか寂しそうだった
			ENDIF

		ELSE
			;独占の誓いのフラグが立つ。それぞれの条件を満たすことで結婚エンド・バッドエンドへ分岐する
			PRINTFORMW 「…本当に良いのね？…貴方だけのものになるかどうかは約束出来ないわよ？」
			PRINTFORMW 「…貴方の事だからこの先も他の女に手を出さないとは限らない…私だけ寂しい思いをするなんて御免だわ」
			PRINTFORMW 「…それでも良いのなら…貴方の女になってあげても良いわよ…」
			PRINTFORML
			PRINTFORMW ならば自分が他の女に手を出さない限り自分だけのもので居て欲しい
			PRINTFORML
			PRINTFORMW 「…良いでしょう…悪魔の契約は絶対…貴方が誓いを守り続ける限り…私は貴方だけのものよ」
			PRINTFORML
			PRINTFORMW 厳かに語る師匠の表情はどこか嬉しそうだった
			CALL SET_CEVENT, "恵：独占の誓い"
		ENDIF
		;恵は最初から淫乱を持っているので陥落人数にカウントされないため告白の領帯ミングでカウントする
		FLAG:この周での陥落人数 += 1
	;失敗
	ELSE
		PRINTFORMW 「ふふふ…可愛的子…でも、焦ってはダメよ」
		PRINTFORMW 「今は…気持ちだけ受け取っておくわね」
	ENDIF

;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	PRINTFORMW 「ごめんなさいね、今は穿いていないのよ」
	PRINTFORMW %CALLNAME:TARGET%は悪びれもせずにあっけらかんと答えた

CASE "胖次交易"
	RETURN 0

CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「……流石の私も胖次欲しさに魂を差し出してくるなんて予想も出来なかったわ」
		PRINTFORMW 「でもまあ、それが望みだというのなら応えてあげましょう」
		PRINTL
		PRINTFORMW やや呆れ気味の%CALLNAME:TARGET%だったが、妙に色気のある仕草で胖次を脱掉と手渡ししてきた。
	;２回目以降(魂は貰わない)
	ELSE
		;胖次を脱いで渡してくる汎用地の文
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		IF  COND("易出汗")
			PRINTFORMW 「ちょっと汗で湿的てしまっているけど…その顔、逆に嬉しそうね…ちょっと理解出来ない性癖だわ」
		ELSE
			PRINTFORMW 「こういうのってまだ女性経験のない思春期特有の好奇心とか」
			PRINTFORMW 「女性に縁の無い人の一種の代償行為だと思っていたのだけど…もしかしてこれもフェチというものなのかしら」
		ENDIF
	ENDIF

CASE "胖次拒否"
	RETURN 0

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	RETURN 0

CASE "全裸"
	;取引初成功
	IF COND("合意：全裸化") == 0
		PRINTFORMW 「…この場で全裸に？…床の上では駄目なの？」
		PRINTFORMW 「…良く分からないけど…それが望みだと言うのなら…まあ良いでしょう」
	ELSE
		PRINTFORMW 「诶嘿嘿…そんなに%CNAME("一人称")%の裸体が見たいのね」
	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"

CASE "全裸拒否"
	;二人きりなら脱いでくれるけど状況が悪い
	IF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「今ここで？…流石に人前では嫌よ…諦めなさい」
	ELSE
		PRINTFORMW 「…いくら%CNAME("二人称")%の願いでも聞いてあげられない事もあるわ」
	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「同居ねぇ…魅力的なお誘いだとは思うのだけど…まだそこまでは踏み切れないわ」
	PRINTFORMW 「そのうち気が変わるかもしれないからまた誘ってちょうだい」

CASE "同居希望"
	PRINTFORMW 「そう言ってくれるのを待っていたわよ」
	PRINTFORMW 「これで夜も一緒に過ごせるわね…また楽しみが増えたわ」
	PRINTFORMW 「女仆桑が居るから苦手な家事の負担も多少は減りそうだしね」

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「お昼を一緒に？…勿論良いわよ」
		PRINTFORMW 「亲手自制の便当を持って行ってあげられなくてごめんなさいね」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「便当？…ごめんなさい」
		PRINTFORMW 「%CNAME("一人称")%は家事が苦手だからそういうのは無理よ」
		PRINTFORMW 「でもお昼を一緒に過ごす事は出来るわね…便利店の便当でよかったら一緒に買ってきて给わよ」
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「あら？…部活に参加したからもう必要ないのかと思っていたけど、以前と同じ様に性処理を再開して欲しいの？」
		PRINTFORMW 「…前から思っていたけど、%CNAME("二人称")%の性欲って底没有よねぇ…」
		PRINTFORMW 「まあ良いわ。%CNAME("二人称")%がそれを望むのならいつでも受けて立つわよ」
		PRINTFORMW 「幾ら吸精しても翌日には回復する事が分かったし、遠慮なく搾り取らせてもらうわ」
	ELSE
		PRINTFORMW 「また再開して欲しいのね？勿論OKよ」
	ENDIF

CASE "性処理の一時中断"
	PRINTFORMW 「%CNAME("二人称")%がそんな事を言い出すなんてちょっと意外だわ」
	PRINTFORMW 「…分かったわ。部での活動もある事だし無理に続ける必要も無いという事ね」

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸")
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;恋慕のみ　避妊の護符を取下
CASE "避妊解除可"

CASE "避妊解除拒否"

;一度解除した避妊の護符の再装着をお願いした場合
CASE "避妊の護符"

;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "業物"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

;以下は汎用台詞(すでに喋っている場合には下には行かない)
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「うーん…それはちょっと聞いてあげられないわね」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSEIF BASE:MASTER:魂 <= 100
	PRINTL
	PRINTFORMW 「…魂が不足しているみたいよ」
ELSE
	PRINTL
	PRINTFORMW 「良いでしょう…その望み叶えて给わ」
ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K64, ARGS

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
;ここはwaitを使わないようにしてください(PRINTFORMW の代わりに PRINTFORML を使う)
CASE "询问有什么想要的东西"
	;PRINTFORML
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/64 天野恵/EVENT_K64_SHOP.ERB