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

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

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

;学園での便装です。設定必須です。
;水手服, 露脐装超短裙水手服, 西装外衣, 露脐装超短裙西装外衣, 背心,美式校服、V领毛衣など
;黑色水手服を着せたい場合には CALL SET_COSTUME, "水手服/黒" のように書き込むことで色を変えることが出来ます
;また、V领毛衣に限りCALL SET_COSTUME, "V领毛衣/濃紫/萌え袖"のようにして色の他に"萌え袖"をオプション指定できます
;(RESOURCES→MAIDFACE→13服 フォルダ内にある MAIDFACE13.csv の該当衣装を見て色を選ばないとならないため上級者向きです)
;また、女式衬衫等の上に裤吊带を着けたい場合には CALL SET_OTHER, "裤吊带" として下さい
CASE "制服"
	SELECTCASE TEXTS("季節")
	CASE "夏"
		CALL SET_SHIRT, "水手服/青"
		CALL SET_SKIRT, "Micro百褶裙/白"
		CALL SET_SOCKS, "襪子"
		CALL SET_SHOES, "運動鞋"
		CALL SET_GLOVE, "指抜きブローブ"
		CALL SET_OTHER, "灰色の露肩夹克"
	CASE "春", "秋"
		CALL SET_SHIRT, "水手服/青"
		CALL SET_SKIRT, "迷你百褶裙/白"
		CALL SET_SOCKS, "襪子"
		CALL SET_SHOES, "運動鞋"
		CALL SET_GLOVE, "指抜きブローブ"
		CALL SET_OTHER, "灰色の露肩夹克"
	CASE "冬"
		CALL SET_SHIRT, "水手服/青"
		CALL SET_SKIRT, "長百褶裙/白"
		CALL SET_SOCKS, "襪子"
		CALL SET_SHOES, "運動鞋"
		CALL SET_GLOVE, "指抜きブローブ"
		CALL SET_OTHER, "灰色の露肩夹克"
	ENDSELECT
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	CALL SET_SHIRT, "体操服/赤"
	CALL SET_OUTER, "紧身短褲/柄"
	CALL SET_SOCKS, "襪子"
	CALL SET_SHOES, "運動鞋"
	CALL SET_GLOVE, "指抜きブローブ"
	CALL SET_OTHER, "赤い前開运动衫"

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

;自宅など学園外で着ます。設定必須です
CASE "便装"
	CALL SET_OTHER, "青い露肩夹克"
	CALL SET_SHIRT, "長連帽風衣/青"
	CALL SET_SOCKS, "襪子"
	CALL SET_GLOVE, "指抜きブローブ"
;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
	CALL SET_OTHER, "黑色露肩夹克"
	CALL SET_OUTER, "黑色褲襪"
	CALL SET_SHIRT, "露肩外衣/灰色"
	CALL SET_GLOVE, "指抜きブローブ"
;もちろん约会の際に着ます
CASE "约会衣装"
	CALL SET_SHIRT, "无袖高領毛衣/緑色"
	CALL SET_OUTER, "热褲/青"
	CALL SET_SOCKS, "襪子"
	CALL SET_SHOES, "運動鞋"
	CALL SET_GLOVE, "指抜きブローブ"
	CALL SET_OTHER, "桃色の前開V领毛衣"
;朝Ｈの際に着ます
CASE "朝袭衣装"
		CALL SET_SHIRT, @"%CALLNAME:MASTER%の衬衫"
		CALL SET_PANTIES, "三角胖次/黒"
;夜袭Ｈの際に着ます
CASE "夜袭衣装"
		CALL SET_SHIRT, "睡衣/薄緑"
		CALL SET_PANTIES, "襯褲/白"
ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;CALL SETFLAG, "普段の髪型復元", TARGET で変化させた髪型などを普段のものに戻すことが出来る
;-------------------------------------------------
@MAIDFACE_K54
IF COND("约会中")

ELSEIF PLACE("自宅")

ELSE

ENDIF

;-------------------------------------------------
;感情やシチュに応じて、角色独自の表情を設定する。設定しなくてもかまいません
;主にEMOTION_PLUSなどで颜绘を出す際の文字列の組み合わせの代わりに使う関数です
;-------------------------------------------------
@EMOTION_K54, ARGS

SELECTCASE ARGS
;一人で何かしてる状態などです
CASE "闲"
	STR:颜绘改髪 = 重置/
CASE "睡眠"
	STR:颜绘改髪 = 重置/
CASE "甜言蜜语"
	STR:颜绘改髪 = 重置/へ字３
CASE "夸奖"
	STR:颜绘改髪 = 重置/婴儿红晕
CASE "心情差"
	STR:颜绘改髪 = 重置/蹙眉短/へ字
CASE "躁动难忍"
	STR:颜绘改髪 = 重置/嘟嘴２/对指/通常眉３/紅潮２
CASE "刚睡醒"
	STR:颜绘改髪 = 重置/对话框困倦/流口水
CASE "憤怒"
	STR:颜绘改髪 = 重置/抿嘴/憤怒眉/对话框憤怒/抖抖
CASE "害羞"
	STR:颜绘改髪 = 重置/赤面２/斜眉/半開４/
CASE "惊嚇"
	STR:颜绘改髪 = 重置/对话框！/通常眉/一文字/
CASE "小悪魔"
	STR:颜绘改髪 = 重置/
CASE "红潮恍惚"
	STR:颜绘改髪 = 重置/对话框・・・/紅潮/斜眉
CASE "混乱"
	STR:颜绘改髪 = 重置/〇〇/△２
ENDSELECT

license: unknown


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K54, ARGS
#DIM MEMO_LINECOUNT
;対話相手にしたい角色の名前を/区切りでこれに突っ込んでFIND_TaiTa(EVENT_TABLE)とするとそのうち一人が選ばれる
#DIMS EVENT_TABLE

EVENT_TABLE =
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;話しかける側のセリフ。COND("対話可能")を満たす相手を選んでPARTNER()にする事で、特定の相手に話しかけることもできる
CASE "お誘いする"
	;特定の相手に話しかける場合はEVENT_TABLEに対話相手の呼び名(CALLNAME)を / 区切りで並べて ; を消す
	;例１）弗理希艾尔or濡烏の君or杏珠から一人選ぶ場合
	;EVENT_TABLE = 弗理希艾尔/濡烏の君/杏珠
	;例２）部員全てから一人選ぶ場合
	;EVENT_TABLE = 全員

	IF FIND_TaiTa(EVENT_TABLE)
		;話し相手をpartnerにする
		CALL SET_PARTNER, FIND_TaiTa(EVENT_TABLE)
		CALL EMOTION_PLUS, "交流中", TARGET, PARTNER()
	ENDIF

;話しかけられる側のセリフ。括弧は『』を使うのが望ましい
CASE "誘われた"

ENDSELECT

path: ERB/EVENT_K/54 宇佐美偲/EVENT_K54_COMM.ERB


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"
	PRINTFORMW 「あーあ、起きちゃった……ま、天所のシミでも数えててくださいね」
;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「あっ、起きちゃいましたか…」
				PRINTFORMW 「寝てる内に済まそうと考えてましたが起きたなら、もう関係ないですね、」
				PRINTFORMW そう言うと%CALLNAME:TARGET%は朝から%TEXTR("荒々し/容赦な")%く腰を振っている
			CASE 1
				PRINTFORMW 「おや、起きましたね…」
				PRINTL
				CALL PRINT_SELECT, "寝てるのに勝手にしないで欲しい…"
				IF RESULT == 0
					PRINTFORMW 「えぇ？起こし来了のにビチョビチョに濡らしてた%CNAME("二人称")%が悪いでしょ」
					PRINTFORMW 「こっちも、あんなの見せられて勃たせないのも失礼なので、しょうがなく交尾してるんですよ」
				ENDIF
			ENDSELECT
	CASE "朝舐陰"
	CASE "朝足交"

	CASE "朝の新妻PLAY"
			CALL SET_SHIRT, "工作围裙"
			CALL EMOTION_PLUS, "重置/微笑２/赤面２/对话框爱心"
			CALL PRINT_STRW, @"「あんっ_H_もう、料理中は危ないからダメですよ」"
			CALL PRINT_STRW, @"「あっ_H_激烈地しちゃ、んっ_HH_ダメっなのni↘、んっん」"
			CALL PRINT_STRW, @"「はー、いっぱいだせて気持ち良くなれましかたか_H_」"
	CASE "朝乳交"

	CASE "朝面部騎乗"

	CASE "朝騎乗位"
		IF EXP_GAIN("射精経験", PLAYER)
			CALL PRINT_STRW, @"「あ！、おはようございまーす_H_」"
			CALL PRINT_STRW, @"「我慢できなかったので_HH_　%TEXTR("襲って/勝手に")%交尾してまーす_BH_　好きな時に出してくださ～ぅ、おっ……_HH_」"
		ELSE
			CALL PRINT_STRW, @"「%TEXTR("あぅ/おぅ")%っ_H_　う、うぅ、あっ_H_」"
			CALL PRINT_STRW,  "「あ……っ_H_　ちんちん_H_　すごいよぉ…_BH_」"
		ENDIF

	CASE "朝接吻"

	CASE "朝添い寝"
			CALL EMOTION_PLUS, "重置/微笑/红晕/对话框爱心"
			PRINTFORMW 「んー、やっぱり%CNAME("二人称")%の腕に抱かれるのは気持ちいいですね」
			PRINTFORMW 「今日是い朝になりそうです」
	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		PRINTFORMW 「勝手に啜ってるんでお気になさらず…」
	CASE "朝騎乗位"
		CALL EMOTION_PLUS, "重置/微笑/赤面２/对话框爱心"
		CALL PRINT_STRW, @"「これなら%CNAME("二人称")%の%TEXTR("赤酱/兒童")%_H_　ちゃーんと孕めそう……_H_」"
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW
	ELSE
		PRINTFORMW 「おはようございまーす」
		PRINTFORMW 「カワイイ後輩が起こしにきたんですから、さっさと起きてください」
	ENDIF
CASE "登校"
	IF DAYEV("試験当日")
		CALL EMOTION_PLUS, "重置/微笑/4/对话框兴奋/挎包"
		PRINTFORMW 「おはようございます！今日は定期試験です、酱と勉強しましたか？」
		PRINTFORMW 「%CNAME("一人称")%は、すっごい勉強したので多分１００点です！」
		PRINTFORMW 試験だというのに%NAME:TARGET%はご心情に駆けていく
	ELSEIF DAYEV("試験返却日")
		CALL EMOTION_PLUS, "重置/ガビーン/对话框乱/挎包"
		PRINTFORMW 「おはようございま～す、手ごたえがぁないでーす」
		PRINTFORMW 「はぁ～～、きっとダメだぁ～」
		PRINTFORMW 試験の結果が悪そうというだけで、%NAME:TARGET%は世界が終わったような表情でトボトボと歩いている
	ELSEIF COND("朝袭相手")
		CALL PRINT_STRW, @"「あっ…、_H_改めておはようございます…」"
		CALL PRINT_STRW, @"「じゃ、また部活で…_H_」"
	ELSEIF COND("体育")

	ELSEIF COND("水泳")
		CALL EMOTION_PLUS, "大口/通常眉/对话框兴奋/挎包"
		PRINTFORMW 「うわ～い、泳池！泳池！」
		PRINTFORMW どうやらこの上なくはしゃいでいる。
	ELSE

	ENDIF
;この角色と一緒に部室に入った際に誰も他にいない場合
CASE "一番乗り"
	SELECTCASE RAND:2
		CASE 0
			PRINTFORMW 「いぇ～い、いっちばーん！！」
		CASE 1
			PRINTFORMW 「あれ、誰也不在ですね……少し、寂しいですね」
	ENDSELECT
CASE "ただいま"
		PRINTFORMW 「ただいまー！晩御飯はなんですかー！」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
			CALL EMOTION_PLUS, "ほんわか/微笑３/紅潮２/对话框爱心/布"
		IF TALENT:恋慕
			PRINTFORML 「あっ……おかえりです…」
			PRINTFORML 「その…、時間があったら交尾、しませんか？」
		ELSE
			PRINTFORMW 「おかえりなさ～い」
			PRINTFORMW 「お浴室洗っておいたので一緒に是りませんか？」
		ENDIF
	ELSEIF COND("昼")
		IF RAND:2 == 0
			PRINTFORMW 「あっ！お先にくつろがせてもらってまーす」
			PRINTFORMW 「交尾したくなったら呼んでくださーい」
		ELSE
			PRINTFORMW 「こっちは濡らしてあるので入れたくなったらいつでも言ってください」
		ENDIF
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「どうも～、で%CNAME("一人称")%になんの用です？」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
			PRINTFORMW 「わ～、あとで、%CNAME("一人称")%にもお願いしますね」
		ELSE
			PRINTFORMW 「あ～、ずるい！%CNAME("一人称")%も交尾した～い」
		ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「うわっ、皆もういる！すみません遅れました～」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「どうもで～す」
	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 （えぇ…老师来るの、この部活！？）
		PRINTFORMW %NAME:TARGET%は何かに受惊了的様子
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「お先にくつろがせてもらってま～す」
	ELSE
		PRINTFORMW 「あれ、もしかして早く来過ぎましたかね…」
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「夜くらいゆっくりしたいんですけどね～」
		PRINTFORMW 「仕方ないので来てあげました」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW 「も～、何です？%CNAME("一人称")%寝たいんですけど、」
	ELSE
		CALL EMOTION_PLUS, "ほんわか/叹气/对话框ねぼけ"
		PRINTFORMW 「ふぁ～～、ねっむ…」
	ENDIF
CASE "抜け出された"
		CALL EMOTION_PLUS, "困扰眉/涙目〇〇/左〇〇/对话框乱/一文字"
		PRINTFORMW 「あっ、……行っちゃった……」
		PRINTFORMW %CALLNAME:TARGET%は肩を落とししょげている
CASE "便当"
		PRINTFORMW 「味はどうです？その、頑張って用意したのでほめてください」
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
		CALL EMOTION_PLUS, "号泣２/ω/斜眉"
		PRINTFORMW 「おあずけくらうこっちの気持ちも考えてくださいよ～！」
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
		CALL EMOTEFACE, "重置/小口/赤面２"
		PRINTFORML 「うわ～、ここに居る人を何人も孕ませたんですね、すっご」
CASE "浑身是汗"
	IF RAND:2 == 0
		PRINTFORML 「ふぃ～、あっついですね～、嫌になっちゃいますね」
	ELSE
		CALL EMOTEFACE, "重置/ほんわか/婴儿红晕/对话框兴奋/冰"
		PRINTFORML 「冰うま～、%CNAME("二人称")%もどうです、冰？」
	ENDIF
CASE "刚睡醒"
	IF CHOSE_DEVENT("睡眠姦Ｖ中出し")
		CALL PRINT_STRL, @"「………あのですね_／／／_するなとは言ってないこっちも悪いですけど」"
		PRINTFORML 「知らない内にことが進んでるとこっちも困るので、起きてる内に手をだしてください」
		CALL PRINT_STRL, @"「気持ち良かったですよ……_H__／／／_」"
	ELSE
		PRINTFORML 「んん～、おはようです。ちょっと顔洗ってきます」
		PRINTFORML 宇佐美は伸びをしながら洗面台の方に向かった
	ENDIF
CASE "Cosplay中"
	PRINTFORML 「こんな格好させて何かないんですか？」
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML 「どうですか？りんご綺麗に切れてるでしょ？」
		PRINTFORML 「ほめてください！ほめてください！」
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF TALENT:恋慕
				PRINTFORML 「すっごいおいしいですよこれ！今度このお菓」
				CALL PRINT_STRL, @"「子作りしませんか_H__BH_」"
			ELSE
				CALL EMOTEFACE, "重置/对话框開心/斜眉/红晕/半開３"
				PRINTFORML 「ん～、もぐもぐ。」
				PRINTFORML 「おいひい～」
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		CALL EMOTEFACE, "重置/对话框開心/斜眉/红晕/半開３"
		PRINTFORML 「ん～、もぐもぐ。」
		PRINTFORML 「おいひい～」
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K54
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「再度確認なんですけど、本当にいいんですよね！？」
	PRINTFORML どうやら、%NAME:TARGET%の言う街道相当扱いが難しそうだ
CASE "约会的约定"
	CALL EMOTEFACE, "重置/へ字２/紅潮２/闭眼２/对话框開心"
	PRINTFORML 「いっつも、交尾に付き合ってもらってるのでその礼物です」
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML 「いや、%CNAME("一人称")%弗理希艾尔桑みたいな」
	PRINTFORMW 「魂の取引はできませんよ、他を当たってください」」
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML 「人に見られるようなとこで、できないことをするんですね…」
	PRINTFORML 「どこに行きますか？いっそのこと情人旅館にでも行ってしまいましょうか…」
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「へ～、思った以上に整ってますね」
	PRINTFORML 「で、これから何をするんですか?」
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「あんまり掃除できてないですけど、それなりにくつろいでください」
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「%CNAME("助手")%も大変ですね～、%CNAME("二人称")%の相手難しそうでしたら、」
		PRINTFORML 「%CNAME("一人称")%が代わりますから、言ってくださいね！」
	ELSE
		PRINTFORML 「うわぁ、惊嚇した～」
		PRINTFORML 「来るならスマホ使って教えてくださいよー」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML 「うゎ、帰ってきた！」
CASE "オナバレ"
	PRINTFORML 「あっ、……忘れてくださーい…」
	PRINTFORML 消え入りそうな声で戸を閉じた
CASE "露脐装超短裙胖次チラ"
	IF TALENT:恋慕
		CALL EMOTEFACE,"重置/斜眉/对话框爱心/紅潮/ڡ"
		PRINTFORML 「ふふっ、見せてるんですよ。察してください」
		PRINTFORML 「どうしました？興奮してきましたか？」
		CALL PRINT_STRL, @"「こっちは隠さず見せつけてるんですから、そっちも隠さないでくださいよ…_H_」"
	ELSE
		CALL EMOTEFACE,"重置/こまり眉/对话框！？/半開２"
		PRINTFORML 「ん？どうかしましたか、変な顔して…」
		PRINTFORML 「もしかして、顔に何かついてますか！？」
		PRINTFORML 手で顔をペタペタと触り、おかしい所がないか探している
		PRINTFORML どうやら、こちらの視線の先に気づいていないようだ
	ENDIF
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
		CALL EMOTEFACE,"重置/笑顔２/对话框爱心/赤面２"
		PRINTFORML 「も～、H～」
		PRINTFORML %CALLNAME:TARGET%の瞳はどことなく淫靡だ
CASE "撫摸股間"
		CALL EMOTEFACE, "重置/赤面/ヮ３"
		PRINTFORML 「触ってその気にさせたから、ちゃーんと最後までしてくださいよ」
		PRINTFORML %CALLNAME:TARGET%は股間を触る手を両腕で離さないようにして耳元で囁いてくる
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML 「にしても、%CNAME("二人称")%ってそんなに胖次が見たいんですか～」
		PRINTFORML 「変態桑ですね、お返しに子種注いでくださいよ」
		PRINTFORML ぶつぶつ言いながらも、下摆を上げて見やすくしてくれている
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML 「その綺麗にして有ますから早くちんちん入れてください…」
	ENDIF
CASE "拜托処理性欲"
	IF RAND:2 == 0
		PRINTFORML 「ねぇ、これみてくださいよ～」
		PRINTFORML 「さっき出したて、ほかほかの精液で胖次が汚れちゃいました」
		CALL EMOTEFACE, "重置/赤面/胖次花绳变化/通常眉/笑顔３"
	ELSE
		PRINTFORML 「中に出した分が溢れちゃって胖次汚れちゃいました…」
		PRINTFORML 「これ、見てくださいよ、溢れた分だけでこ～んなに精液が」
		CALL EMOTEFACE, "重置/赤面/胖次花绳变化/通常眉/笑顔３"
	ENDIF
CASE "进行性処理"
	PRINTFORML 「じゃあ、こっちも作業続けてるんで他の娘にでも相手してもらってください」
	PRINTFORML %CALLNAME:TARGET%は平静を保ちながら足を開くものの耳の先まで真っ赤になっていた
CASE "帮忙消除性欲"
	PRINTFORML %CALLNAME:TARGET%はぐったりとした様子で股間から%CALLNAME:MASTER%の精液を垂らしている
CASE "清洁口交"
	CALL EMOTEFACE, "重置/赤面/精液左頬/唇边手"
	PRINTFORML 「んっ、んっ、味はよくないですね。まぁ仕方のないことですが」
	PRINTFORML 「さぁ、綺麗变成了から交尾しましょうね」
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4
			PRINTFORML 「うわぁーー、いっぱい買いましたね～、でこれで何をしようと？」
		CASEELSE
			PRINTFORML 「おかえりなさ～い、何買って来たんですか～？」
		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	CALL EMOTEFACE,"重置/不可以/红晕/ni↘"
	PRINTFORML 「ふふっ、写真はだめですよ」
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		CALL EMOTEFACE, "重置/红晕/呀哒２/困扰眉短"
		PRINTFORML 「え～、脱掉んですか？やだ～」
		PRINTFORML 「私だけ恥ずかしい思いするの嫌なので%CNAME("二人称")%もここで脱いでください」
	;まさかの野外
	ELSEIF PLACE("野外")
		;CALL EMOTEFACE, "重置/紅潮/呀哒３/憤怒眉"
		PRINTFORML 「何かんがえてるんですか！？外ですよ！外！　　はぁ～」
		CALL EMOTEFACE, "重置/红晕/呀哒２/困扰眉/叹气/眯眯眼"
		PRINTFORML 宇佐美は溜息をついて遠くを見た
		PRINTFORML 「さっさとチャック下してください、こっちも早く終わらせたいので」
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML 「いつ誰が入ってくるかも分からないこ的房間でこんなことさせるなんて…」
	;個室で二人きり
	ELSE
		PRINTFORML 「どうです？私、綺麗ですか？」
		PRINTFORML 「ふふっ、お世辞の一つでも言えるようになってくださいね♪」
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		PRINTFORML 「ふーん、まぁ、その…先に体洗ってきますので準備の方しておいてください」
	;做爱房
	ELSE
		CALL PRINT_STRL, @"「あっ_H_その、つまり…¨する¨ってことでいいんですね？」"
	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 "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

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

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0
	PRINTFORML 「よくよく考えたら、ここでHなことしてるだけで」
	PRINTFORML 「どうやって部活としての体裁を保ってるんですか？」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORML 「%CNAME("二人称")%って、何人も女の子相手にして疲れないんですか？」
	PRINTL
	PRINTFORML 「あぁ、それも噂の悪魔の力ってヤツですか…」
	CALL SET_DEVENT, "質問２"
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF TALENT:恋慕
		CALL EMOTEFACE, "通常眉２/流口水/赤面/唇边手"
		PRINTFORML 「んっ、ﾁｭｯ　んん～～」
		PRINTFORML 宇佐美是きなりこちらに飛び込み口を塞いできた
		PRINTFORML 「はー、はー、これで私のものです、私の前で他に人にデレデレしないでくさい」
		PRINTFORML 口周りの唾液を袖で拭い宇佐美が力強く抱きしめてくる
	ELSE
		CALL EMOTEFACE, "重置/嘟嘴３/通常眉２/对话框・・・"
		PRINTFORML 「つーん」
		PRINTFORML %NAME:TARGET%は唇を尖らせている
	ENDIF
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF FLAG:二人きり
	;二人きりでの何かする前のセリフ
	IF CFLAG:调戏数 == 0 ;&& CFLAG:刚睡醒 == 0
		PRINTFORML 「うぃーー、ツンツン、かまえ～かまえ～」
		PRINTFORML 男子小学生に引けをとらないウザさを放っている
	ELSE
		PRINTFORML 「うぇ～い、どゅくし、どゅくし！」
	ENDIF
ELSEIF STATE("酔酒")
	SELECTCASE RAND:2
		CASE 0
			PRINTFORML 「ん～、抱っこ～」
		CASE 1
			PRINTFORMW 「な～んか、ぷわぷわぃまぁ～」
			PRINTFORMW 酔酒のせいかまともに言葉を発せないようだ…
	ENDSELECT
ELSEIF COND("夜")
	PRINTFORML 「わざわざ泊まりに来てるのに、素っ気ないですね、」
ELSE
	SELECTCASE RAND:2
		CASE 0
			PRINTFORML 「あ～～、闲！！！」
		CASE 1
			PRINTL 「ツンツン、ツンツン」
			PRINTL
			PRINTL 「………」
			PRINTL
			PRINTL 「なんか反応が欲しいですね…」
	ENDSELECT
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K54
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
SELECTCASE CONDS("直前行動")
	CASE "睡眠姦正常位", "睡眠姦寝后背位"
		IF COND("熟睡")
			CALL EMOTEFACE, "重置/ほんわか/斜眉短/無口系/对话框睡眠/红晕"
			IF RAND:4 == 0
				CALL PRINT_STRL, "「……………ッ_WHH_」"
				PRINTFORML %CALLNAME:TARGET%は膣を無遠慮に突きこまれながら寝息を立てている…
			ELSEIF RAND:3 == 0
				CALL PRINT_STRL, "「あ………んっ………_H_」"
				PRINTFORML 沉眠著%CALLNAME:TARGET%は性欲処理に使われているが起きるようとしない…
			ELSEIF RAND:2
				CALL PRINT_STRL, "「んぉ………ッ………_H_」"
				PRINTFORML %CALLNAME:PLAYER%が強く腰を打ち付けようと、%CALLNAME:TARGET%は起きる气息がない…
			ELSE
				CALL PRINT_STRL, "「…………ッ_BHH_　……ぁっ_BBHH_」"
				PRINTFORML %CALLNAME:TARGET%の奥を責めてやると、小小的声で啼いた
			ENDIF
		ELSEIF COND("打瞌睡")
			CALL EMOTEFACE, "重置/闭眼/蹙眉短/会話口２/紅潮２/对话框睡眠"
			IF RAND:3 == 0
				CALL PRINT_STRL, "「ぁは……_BH_　んぁ……っ_H_」"
				PRINTFORML 睡眠中に犯され、快楽を口から零している…
			ELSEIF RAND:2
				CALL PRINT_STRL, "「……うっ……_WH_」"
				PRINTFORML %CALLNAME:TARGET%の膣奥を突くと、顔をの筋肉が反応した
			ELSE
				CALL PRINT_STRL, "「んん……ぅ……？_H_　ぁぅ…_HH_」"
				PRINTFORML %CALLNAME:TARGET%が快感のせいか膣内が蠢動を繰り返し、締め付けている…
			ENDIF
		ELSE
			; 快要醒了
			CALL EMOTEFACE, "重置/闭眼/困扰眉/へ字２/赤面２/对话框困倦"
			IF RAND:4 == 0
				CALL PRINT_STRL, "「ふ、ぁ……_WHH_　んっ_WH_　ぁ……ふふ_H_」"
				PRINTFORML %CALLNAME:TARGET%の奥を小刻みに突き上げると彼女は無意識に
				PRINTFORML 膣肉を激烈地絡みつけてくる…
			ELSEIF RAND:3 == 0
				CALL PRINT_STRL, "「んぅっ……_H_　…_BHH_　……_BH_」"
				PRINTFORML 困倦ている%CALLNAME:TARGET%は
				PRINTFORML ピストン運動に合わせ、快楽を逃すためか腰を捻じりだした
			ELSEIF RAND:2
				CALL PRINT_STRL, "「んぁッ………ぁ？_HH_　………」"
				PRINTFORML %CALLNAME:TARGET%の子宮口を乱暴に抉ると、
				PRINTFORML 嬌声を上げており、今にも快要醒了だ…
			ELSE
				CALL PRINT_STRL, "「んっ…あっ…う…ぅっ…うっ…_H_」"
				PRINTFORML 激烈地腰を打ち付けるたび、
				PRINTFORML %CALLNAME:TARGET%は寝苦しそうにしている……
			ENDIF
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			CALL EMOTEFACE, "重置/闭眼/～/对话框睡眠"
		ELSEIF RAND:2
			CALL EMOTEFACE, "重置/闭眼/小口/对话框睡眠"
		ELSE
			CALL EMOTEFACE, "重置/闭眼/半開２/对话框睡眠"
		ENDIF
		IF RAND:3
			IF RAND:4 == 0
				PRINTFORML 「………………」
			ELSEIF RAND:3 == 0
				PRINTFORML 「スー……スー………」
			ELSEIF RAND:2
				PRINTFORML 「zzz………zzz………」
			ELSE
				PRINTFORML 「むにゃ～～……」
			ENDIF
		ELSEIF RAND:2
			IF RAND:3 == 0
				PRINTFORML 「んが～～……」
			ELSEIF RAND:2
				PRINTFORML 「グゥ………」
			ELSE
				PRINTFORML 「………へぁ～～………」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「ふぁ～～……」
			ELSEIF RAND:2
				PRINTFORML 「うーん…%CNAME("一人称")%の…赤酱………」
			ELSE
				PRINTFORML 「母桑…………、会いたいよ……」
			ENDIF
		ENDIF
ENDSELECT

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	CALL EMOTION_PLUS, "重置/对话框圓圈/困惑眉/赤面/嘟嘴４"
	IF PLACE("情人旅館")
		PRINTFORMW 『今ですか！？』
		PRINTFORMW 『我明白了よ、行きますから。あ～もう、急なんだから～』
	;做爱房
	ELSE
		PRINTFORMW 『勘弁してくださいよ～、今から向かうと時間かかりますよ』
		PRINTFORMW 『あー是是、行きます、行きますって』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

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

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

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		CALL EMOTION_PLUS,"挎包/広聴/对话框尷尬"
		PRINTFORMW 「雨降ってますね…」
		PRINTFORMW 「その…、天気予報見るの忘れて、傘持ってきてないので、その」
		CALL PRINT_STRW, @"「いれてくれませんか……_H_」"
	CASE "内衣選び", "泳装選び"
		PRINTFORMW 「やっぱり男の子はこーゆー内衣に興奮するんですかね？」
		PRINTFORMW 「それともこっち？ヒラヒラ付いてるヤツにします？」
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW 「その…繞道していきませんか？」
		PRINTFORMW 「たまには、そーゆの没有に%CNAME("二人称")%と触れ合いたいんです」
	CASE "直帰"
		PRINTFORMW 「どっちが先に家に着くか競争しましょう！」
		PRINTFORMW そう言うやいなや目にも止まらぬ速さで駆けていった。
	CASE "圣诞节前夕"
		PRINTFORMW 「その内、性夜らしいですよ。いいですね～%CNAME("二人称")%に是っっぱい女の子がいて」
		PRINTL
		PRINTFORMW 「ふーー、　　その…イブとか当日の夜に選んでくれなくていいので、今抱いてくれませんか？」
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "放課後Ｈ的邀请"
	PRINTFORMW 「兒童…欲しいです…」
	PRINTFORMW ポツリと呟き、ただ%NAME:TARGET%は下摆を引っ張った
;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW 「体を綺麗にするついでに交尾もする、とても効率的ですね」
	TFLAG:お浴室でＨ = 1
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
;	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

CASE "清洁口交よりＶ性処理"
	PRINTFORMW 「%CNAME("一人称")%は%CNAME("二人称")%のちんちんが汚れていることなんて気にしませんよ」
	PRINTFORMW 「そんなことよりも、さっさと交尾しますよ」
CASE "清洁口交よりＡ性処理"

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

	;場所で分岐させる？
	SELECTCASE SAVESTR:現在位置
	;MASTERの性別に対応した廁所に呼び出される
	CASE "男子廁所"
		PRINTFORMW 「男子廁所に呼びつけるなんて、鬼畜ですよ」
		PRINTFORMW 「もしバレたら犯されてたかもしれないんですよ！」
	CASE "女子廁所"
		PRINTFORMW 「今ここで変な声を上げたら%CNAME("二人称")%終わりますからね、」
		PRINTFORMW 「どんなに気持ち良くても声は我慢しましょうね♪」
	;体育のある日限定
	CASE "体育倉庫"
		PRINTFORMW 「かったいマットの上で交尾なんて、%CNAME("二人称")%はヒドイ人です…」
		PRINTFORMW 「髪に変な癖がつく前に終わらせてくださいね…」
	;体育か水泳のある日限定
	CASE "更衣室"
		PRINTFORMW 「更衣室ですか…、、」
		PRINTFORMW 「いつ誰が入ってくるか分からないスリルを味わいたいんですかねぇ」
		PRINTFORMW 「それとも、ただ単に我慢ができないお猿桑なだけか、」
		PRINTFORML
		PRINTFORMW 「ここですることの良さは%CNAME("一人称")%には分かりませんけど、付き合ってはあげますよ」
	;房顶or人迹罕至的教学楼后侧or部室
	CASEELSE
		PRINTFORMW 「ここなら誰もきませんかね…」
		PRINTFORMW 「さて、早く出せとは言いませんが、時間は限られてます」
		PRINTFORMW 「大事に使いましょうか」
	ENDSELECT

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

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
		PRINTFORML
		IF RAND:2
			CALL PRINT_STRW, @"「んふーっ_H_普段より激しい気がします_BBHH_」"
			CALL PRINT_STRW, @"「そんな激烈地して大丈夫ですかね_H_ちんちん取れたりしませんよね_BH_」"
		ELSE
			CALL PRINT_STRW, @"「いや～、新鮮な%TEXTR("子種/精液")%_H_を授業の合間に貰えるって_BH_」"
			CALL PRINT_STRW, @"「いいですね～_BH_」"
		ENDIF
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
	;	PRINTFORMW 「だから、避孕套なんて使わせませんって」
	;	CALL SETFLAG, "避孕套中止", PLAYER
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください

	;PLAYで分岐させる？
	SELECTCASE NAMES("性処理")
	CASE "手淫"
	CASE "口交"
	CASE "乳交"
	CASE "Ｖ性交"
		CALL EMOTION_PLUS, "重置/笑颜４/通常３/ひきだし開心/紅潮２/萌え袖/へ字３"
		CALL PRINT_STRW, @"「うお～中タップタプ、いっぱい出しましたね～_WH_」"
		CALL PRINT_STRW, @"「でもな～_WH_まだ子種すくないかな～_BH_もっと欲しいな～_H_」"
	CASE "Ａ性交"
	CASE "尿道挿入"
	CASE "乳頭奸"
	CASE "奉仕舐陰"
	ENDSELECT

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

	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套

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

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

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは！
	ELSEIF COND("昼")
		GREETING = こんにちは！
	ELSE
		GREETING = おはようございます！
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
		PRINTFORMW 「おっ！今日は早いですね」
	ELSEIF RAND:2
		PRINTFORMW 「どうもです、%GREETING%」
	ELSE
		PRINTFORMW 「ちわ～っす、元気してました？」
	ENDIF
CASE "叫醒"
	CALL EMOTION_PLUS, "重置/闭眼２/困扰眉/～/对话框困倦"
	IF RAND:2
		PRINTFORMW 「ふぁ～、おはようです」
	ELSE
		PRINTFORMW 「ん～眠いです～、交尾は後で～」
	ENDIF
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「ん～」
	PRINTFORMW %NAME:TARGET%は足をふらつかせ的同时、闇に消えてしまった
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW 「冷静に考えたら全裸とか頭おかしいので服着ますね」
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	CALL PRINT_STRW, @"「う～ん_H_なんでか暑いな～、なんでだろ～な～？_H_」"
	;CASE "冬"
	;	CALL EMOTION_PLUS, "小夫/＞＜/抖抖/蹙眉短"
	;	PRINTFORMW 「ﾍｯｸﾁ、さっむい、寒くて凍えそ～、動いてても寒いよ～」
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		PRINTFORMW 「いや、りんご切ったくらいで、そんな褒めないでくださいよ」
		PRINTFORMW 「他の人が凄いの持ってくる度に心が痛くなるじゃないですか…」
	CASE "夸奖"
		PRINTFORMW 「そんな褒めたって何もでませんから、」
		PRINTFORMW 「さっさと休闲褲下して、精子寄越してください」
	CASE "甜言蜜语"
		IF TALENT:恋慕
			CALL EMOTION_PLUS, "重置/赤面/頬手/ω/斜眉"
			PRINTFORMW 「ほんっと%CNAME("二人称")%は、その気にさせるのがお擅長ですね…」
			PRINTFORMW 「これが何人も女の子を孕ませる所以なのでしょう」
			PRINTFORMW 「するんだったら声掛けてください、今は気分が良いのでHなことも、ある程度許しますよ」
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「まぁ、悪い気はしないので褒めてあげます」
		ELSE
			CALL EMOTION_PLUS, "重置/对话框・・・/半開４/蹙眉短"
			PRINTFORMW 「そんな歯がゆい言葉よく言えますね、恥ずかしくないんですか？」
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			CALL EMOTION_PLUS, "重置/笑顔３/斜眉"
			PRINTFORMW 「ぼけ～～」
			PRINTFORMW %CALLNAME:TARGET%は口を大きくかっ開き虚空を看了过来…
		ELSEIF RAND:2
			PRINTFORMW 「部屋、ちょっと汚れてきましたね…」
			PRINTFORMW 「掃除でもしましょうか、」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%～」
			PRINTFORMW 「保湿剤出しすぎちゃって、少し貰ってください」
			PRINTFORML
			PRINTFORMW そう言うと、返答する前に%CALLNAME:MASTER%は半固形状の液体を手に塗り付けられた…
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW 「はぇあ、あ、……あっ、もうテストですか?」
		PRINTFORMW 「うぁあああ！やばいどうしよ?どうしよ?ちょっとガチでヤバいんで勉強教えてください！」
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW 「このくらいなら%CNAME("二人称")%勉強しなくても余裕でしょ、」
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW 「%CNAME("二人称")%の代の学力がどんなものか知りませんけど、せめて平均より上は取って欲しいですね…」
		ENDIF
	ENDIF
CASE "拭汗"
		PRINTFORMW 「そんなこと一々しなくてもいいですよ」
		PRINTFORML
		PRINTFORMW 「それはそれとして、有がとうございます」
CASE "淋浴独り言"
	PRINTFORMW 「ふんふんふ～ん、」
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		IF RAND:3 == 0 && TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称")%…、最近内衣を荒らす不届き者が現れたって噂知ってますか？」
			CALL PRINT_STRW, @"「ほ～んと_BH_困っちゃいますね～_BH_」"
		ELSEIF RAND:2 && MARK:屈服刻印 < 1
			PRINTFORMW 「淋浴上がりましたー、」
			PRINTL
			PRINTFORMW 「あっ、%CNAME("一人称")%気づいてますからね、道歉なら今の内ですよ」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%…内衣欲しいなら言って下さい…」
		ENDIF
	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_K54
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		SELECTCASE RAND:9
			CASE 0
				PRINTFORMW 「%CNAME("二人称")%～！、世界史の拝火教の経典って何かわかりますか～？」
				PRINTFORMW 「テストに出て解けなかったので、見直すために教科書見てもわかんなくって～」
			CASE 1
				PRINTFORMW 「%CNAME("二人称")%～！、英語の疑問文で『水をいただけますか』って聞くとき」
				PRINTFORMW 「なんでanyじゃなくてsomeを使うんですか～？」
			CASE 2
				PRINTFORMW 「%CNAME("二人称")%～！、数学の整数問題で合同式って結局どう使うんですか～？」
			CASE 3
				PRINTFORMW 「%CNAME("二人称")%～！、倫理の帰納法と演繹法の違いを分かりやすく覚える方法ってないですか～？」
			CASE 4
				PRINTFORMW 「%CNAME("二人称")%～！、遷移元素のイオンの電荷ってやっぱ暗記するしかないですかね～？」
				PRINTFORMW 「典型元素なら最外殻電子の数でどうにかなるんですけど…」
			CASE 5
				PRINTFORMW 「%CNAME("二人称")%～！、中和滴定における主な指示薬４種、ｐＨの変化域も合わせて暗記した方がいいですか～？」
			CASE 6
				PRINTFORMW 「%CNAME("二人称")%～！、なんで肝小葉だけ静脈が肝臓と関係ない中心静脈って名前なんですか～？」
				PRINTFORMW 「これ間違えさせたいがために名付けてるでしょ、」
			CASE 7
				PRINTFORMW 「%CNAME("二人称")%～！、三次関数の場合分けにおける注意点を教えてくださーい」
				PRINTFORMW 「ここ、よく間違えちゃって～」
			CASE 8
				PRINTFORMW 「%CNAME("二人称")%～！、mRNAとrRNA、tRNAのそれぞれの役割を紐づけて暗記するの難しいんですけど、良い方法有ませんか？」
			CASE 100
				PRINTFORMW 「結局名大の確率漸化式ってどこがムズイんですか？」
		ENDSELECT
 	CASE "给对方剃毛"
		PRINTFORMW
	CASE "托一托胸部"
		;你の性騷擾詳細はSTR:PLAY内容で分岐させることができる。
		SELECTCASE STR:PLAY内容
		CASE "乳环"
			PRINTFORMW
		CASE "陥没乳頭", "乳頭"

		CASE "巨乳輪"
			PRINTFORMW
		;其他は胸部を揉んだり
		CASEELSE
			CALL PRINT_STRW, @"「あっ_H_乳頭カリカリしちゃダメッ_BH_」"
			CALL PRINT_STRW, @"「そんなことしてたら勃ってきちゃう_BH_」"
		ENDSELECT
	CASE "按摩"
		IF TALENT:恋慕
			CALL PRINT_STRW, @"「おや～、なーんかHなマッサージが始まりましたね～_H_BH_」"
			CALL PRINT_STRW, @"「な～んか_H_下の方がムズムズしてきたので交尾マッサージお願いしま～す_BH_」"
		ELSE
			PRINTFORMW 「なんか手つきHじゃないですか？」
			PRINTFORMW 「%CNAME("一人称")%の気のせいですか…」
			PRINTFORMW 「まぁ、悪い気はしませんよ。また、お願いします」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW 「…」
		ENDIF
	CASE "膝枕"
		PRINTFORMW
	CASE "泡茶"
			CALL EMOTION_PLUS, "重置/ほんわか/对话框兴奋/茶/会話口３"
			PRINTFORMW 「身体が芯からあったまりますねぇ～」
			PRINTFORMW 「なんかポカポカしてきませんか？」
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「本当ならそう触らせるものじゃないんですけど、¨特別¨に%CNAME("二人称")%にだけ触らせてあげます」
			PRINTL
			PRINTFORMW
			PRINTL
			CALL EMOTION_PLUS, "重置/通常眉２/へ字２/紅潮２"
			PRINTFORMW  「その、感想とかは無いんですか？」
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「ひっ、あ。だめっ、付け根はやっ、」
			PRINTFORML
			CALL EMOTION_PLUS, "重置/对话框憤怒/嘟嘴４/憤怒眉短/婴儿红晕"
			PRINTFORMW 「むー、」
			PRINTFORMW 耳を立ててポカポカと殴ってくる
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW 「ふーっ、ふーっ」
			PRINTFORMW 唐突に触ったせいか、尾巴をブンブン振り回して触られないようにしている
			PRINTFORMW しかし、尾巴そのものが短いため効果が单薄的ようだ…
		ELSE
			PRINTFORMW 「触るなとは言いませんが、何か一言お願いします」
		ENDIF
	CASE "摸頭"
		CALL EMOTION_PLUS, "重置/对话框開心/楕円/～/ほんわか"
		PRINTFORMW 「ふぅ、落ち着きますね。不思議です」
		PRINTFORMW 「触られて気分がいい場所じゃないので、%CNAME("二人称")%の撫で方がよいのでしょうか…」
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW 「%CNAME("一人称")%の胸にお金押し込めたって、ずり落ちてくだけですけど…」
		PRINTFORMW 「なんですか?、胸の小さい%CNAME("一人称")%への当てつけですか？」
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		PRINTFORMW 「送禮？一体なにがもらえるんですか～！」
		PRINTL
		CALL EMOTION_PLUS, "重置/对话框 ・ ・ ・ /法棍/呀哒"
		PRINTFORMW 「えぇ…？どうすればいいんですか、これ…食べればいいんですか？」
		PRINTFORMW 「まぁ、貰いますけど…」
	CASE "送一份普通的礼物"
		PRINTFORMW 「今度は一体何を買ってきたんですか？」
		PRINTL
		CALL EMOTION_PLUS, "对话框兴奋/扇子桜/楕円/いー"
		PRINTFORMW 「ほー、これはこれは、中々良い物を買ってきましたね」
		PRINTFORMW 「使いどころが限られますけど、大事にしておきますね」
	CASE "送一份高价的礼物"
		PRINTFORMW 「これまた豪華な包装をしてもらいましたね…どれどれ、」
		PRINTL
		PRINTFORMW 「こんなのよく手に入りましたね…」
		PRINTFORMW 「一体何が你をここまでさせるんですかね…」
		PRINTFORMW 「ってか、こんな品、%CNAME("一人称")%がお返しを用意できないんですけど、」
	CASEELSE
		PRINTFORMW
	ENDSELECT

CASE "撫摸頭髮"
		CALL EMOTION_PLUS, "重置/へ字２/蹙眉/石頭"
		PRINTFORMW 「安易に女の子の髪なんて触っちゃダメですよ」
		PRINTL
		CALL EMOTION_PLUS, "重置/小口/紅潮２/对指"
		PRINTFORMW 「私は嫌じゃないですけど…」
;"坐在旁邊", "從後面抱住", "把手放在大腿上"は恋慕限定指令です
CASE "坐在旁邊"
		CALL EMOTION_PLUS, "重置/小口/紅潮/頬手"
		PRINTFORMW 「その、期待してるんですけど…」
		CALL PRINT_STRW,  "「せめて、構ってください_H_」"
CASE "從後面抱住"
		CALL PRINT_STRW,  "「あっ_H_　どうしたんですか？もしかして、したくなったんですか？……_HH_」"
CASE "把手放在大腿上"
		CALL PRINT_STRW,  "「あっ_BH_なんか手つきがHですよ_H_」"
		CALL PRINT_STRW,  "「したいんですか？付き合ってあげます_H_」"

;この中でTFLAG:取引拒否 = 1とすると母乳を分けてあげません
CASE "哺乳"
	CALL EMOTION_PLUS, "重置/無口形/紅潮"
	PRINTFORMW 「本来赤酱に给ものなんですけど、品質格子のために%CNAME("二人称")%にも飲んでもらいましょうか」

CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K54
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW 「お浴室に一緒に入ってくれるなら背中洗ってあげますけど、どうですけ？」
	CASE "Ｈ的邀请"
		CALL EMOTION_PLUS, "重置/嘟嘴/紅潮２/对指"
		PRINTFORMW 「あの……しないんですか？」
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		CALL EMOTION_PLUS, "重置/赤面/对话框〇"
		PRINTFORMW 「その、お手柔らかに…」
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "请求清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW 「ん、案外悪いものでもないですね」
		PRINTFORMW 「交尾中にも、もっとしましょうか…」
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE  "手淫"
		PRINTFORMW 「手でされてるだけなのに、気持ちよさそうですね…」
		PRINTFORMW 「ほら、上ばっか見てないで、%CNAME("一人称")%の目をみてくださいよ♪」
	CASE "膝枕"
		CALL EMOTION_PLUS, "重置/微笑５/红晕/对话框爱心大量"
		PRINTFORMW 「このプニップニッのふとももに頭を乗せられるなんて羨ましい人もいるものですねぇ」
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		CALL EMOTION_PLUS, "斜眉/ヮ/红晕/茶"
		PRINTFORMW 「水分補給は大事です、交尾是っぱい易出汗ますからね」
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW 「うりゃ～！！！か・ま・えーー！」

CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			IF TALENT:恋慕
				PRINTFORMW 「ふ～ん」
				PRINTFORMW 「言ってくれれば、してあげたのに～、もったいない」
			ELSE
				CALL EMOTION_PLUS, "重置/对话框？２/困惑眉/半開"
				PRINTFORMW 「君君……、なんか変な臭いしませんか？」
			ENDIF
		ELSE
			CALL EMOTION_PLUS, "重置/ほんわか/通常眉/微笑２/对话框開心"
			PRINTFORMW 「うひぃーー、すっきりしたーー！」
			PRINTFORMW 色気の欠片も無い発言に%CALLNAME:MASTER%は頭を抱えた
		ENDIF
	;廁所に行く際の台詞
	ELSE

	ENDIF
CASE "廁所詮索"
	PRINTFORMW 「さすがにマナーがなってないですよ、最悪です」
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	CALL EMOTION_PLUS, "重置/赤面２/对话框！/憤怒眉/呀！"
	PRINTFORMW 「キャーー！！何考えてんですか！何してるんですか！」
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW 「人が廁所してる間に突撃してきて、見るだけ見て返回って…」
		PRINTFORMW 「はぁ～、%CNAME("二人称")%に見せつけてる%CNAME("一人称")%も%CNAME("一人称")%なんですけどね」
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		CALL EMOTION_PLUS, "重置/闭眼/蹙眉/ω２/頬汗/对话框はーと大量"
		PRINTFORMW 「お廁所のついでに交尾とか最ッ低、」
		CALL PRINT_STRW, @"「だけどっ_H_最低なのが、気持ちっいいっ、んっ_BH_」"
		PRINTFORMW 「はーっ、はーっ、満足しましたか……まぁ、気が向いたらまたしましょうか」
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K54
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「あのですね、デリカシーとかモラルとかＴＰＯとか聞いたことないですか…」
		PRINTFORMW 「はっきり言って呆れてますよ、、、」
	ELSE
		PRINTFORMW 「そうですよね～。女の子の阴部ってどうなってるのか」
		PRINTFORMW 「気になりますよね～、でも鼻息荒くする程興奮するのはかっこ悪いですよ…」
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K54
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K54
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
		PRINTFORMW 「胖次なんて見せるわけないじゃないですか！！」
		PRINTFORMW 「そんな馬鹿なこと言ってないで交尾しますよ！」
	ELSE
		PRINTFORMW 「こちら%PANTIES(TARGET, "種類")%です」
		PRINTFORMW 「興奮してきたら、ぜひ交尾の方をお願いしますね」
	ENDIF
;念のため分岐を作って有ますが多いので取捨選択してください
CASE "撫摸股間"
	;初めて
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「んっ、……なんで撫でるんですか…」
		PRINTFORMW 「いや、その。そういうことするなら床の上でもいいじゃないですか…」
	;阴部を直に弄る場合
	ELSEIF CHECK_CLO("Ｖ露出")
		PRINTFORMW 「中までじっくり弄るなんて…」
		PRINTFORMW 「どうしようもない人…」
	;连褲襪越し
	ELSEIF CHECK_CLO("连褲襪露出")
		PRINTFORMW
	;布鲁马越し
	ELSEIF CHECK_CLO("布鲁马露出")
		PRINTFORMW
	;泳装越し(比基尼や競泳泳装や死库水など)
	ELSEIF CHECK_CLO("泳装ボトム露出")
		PRINTFORMW 「泳装だとおまんこの形がぴっちりとしてますねぇ」
		PRINTFORMW 「こちらにも害羞があることも覚えててくださいね」
	;胖次越し
	ELSEIF CHECK_CLO("胖次露出")
		PRINTFORMW 「直で触らなくていいんですか…？」
		PRINTFORMW 「%CNAME("二人称")%が弄ってるの、ほぼ布ですよ、」
	;其他休闲褲やなんか布越し
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K54
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		PRINTFORMW 「何度見たって、ここはこんなままですよ…」
		PRINTFORMW 「濡らしたいなら潤滑液でも持ってくればいいんじゃないですかね？」
	ELSE
		PRINTFORMW 「そんな見たいものなんですね…」
		PRINTFORMW 「股開きましょうか？」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「裙の中身が気になるなんて小学生ですか？」
			PRINTFORMW 「是是、こんな布に何の価値があるのやら…」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「あら、気になっちゃいましたか…」
			PRINTFORMW 「まぁ、見えるようにした%CNAME("一人称")%にも責任の一端は有ます…」
			PRINTFORML
			PRINTFORMW 「ほ～ら、お望みの胖次ですよ～」
		ELSE
			PRINTFORMW 「まーた見たいんですか、」
			PRINTFORMW 「この行為でなぜ男性は興奮するんでしょうね…」
			PRINTFORMW %NAME:TARGET%は呆れた様子で裙をたくし上げている
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW 「ん？なんで%CNAME("二人称")%が裙捲ってるんですか…」
			PRINTFORMW 「%CNAME("一人称")%困倦てるのかなぁ」
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K54
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「気になる女の子に恶作剧したくなるアレですか…」
			PRINTFORMW 「それとも、この部活特有の儀式的なものでしょうか？」
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「流石に打招呼はしましょっか…」
				PRINTFORMW 「%CNAME("一人称")%にも嫌悪感を覚えるってことわかってますよね、」
			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0
					PRINTFORMW 「あらら、履いてないことがバレてしまいましたね…」
					PRINTFORMW 「%CNAME("二人称")%には乙女が隠していた秘密を暴いた責任をとって欲しいものですね…」
				ELSE
					PRINTFORMW 「布切れ捲っても結局見れるのも布切れ」
					PRINTFORMW 「一体何がしたいのでしょうか%CNAME("二人称")%は、、」
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW 「いや、胖次ドーピングってなんすか…」
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		CALL EMOTION_PLUS,"重置/不可以/红晕/ni↘"
		PRINTFORMW 「ふふっ、写真はだめですよ」
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		CALL EMOTION_PLUS,"重置/不可以/红晕/ni↘"
		PRINTFORMW 「ふふっ、写真はだめですよ」
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW 「どうしても、撮りたいわけですね…」
		PRINTFORMW 「児ポ製造ですからね、犯罪の意識もってくださいよ！」
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		CALL EMOTION_PLUS,"重置/不可以/红晕/ni↘"
		PRINTFORMW 「ふふっ、写真はだめですよ」
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		CALL EMOTION_PLUS,"重置/不可以/红晕/ni↘"
		PRINTFORMW 「ふふっ、写真はだめですよ」
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"
			PRINTFORMW 「力加減を間違えたら%CNAME("二人称")%のちんちん折るんで、そこんとこ覚悟してくださいね～」
		CASE "Ｖ性交"
			PRINTFORMW 「あー、こっち忙しいんで股開きますから勝手に出しといてください」

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

CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"
		PRINTFORMW 「別にー、見るだけで出せるならこっちもラクですしー、いいですよ～っだ」
		PRINTL
		PRINTFORMW 「あっ！出す時は中使ってくださいよー！」
	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 "口交"
			PRINTFORMW 「なるほど、性処理はあくまで、性処理。本番は无ってことですか…」
		CASE "乳交"
			PRINTFORMW 「なるほど、性処理はあくまで、性処理。本番は无ってことですか…」
		CASE "Ｖ性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"
			PRINTFORMW 「むしろ、それ以外になにするんですか……」

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

	CASE "乳交"

	CASE "Ｖ性交"
		PRINTFORMW 「勢いがいいですね、ずっとこんな感じで出してくれたらいいんですけどね」
	CASE "乳頭奸"

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

		ELSE

		ENDIF
	CASE "手淫"

	CASE "尿道性交"

	ENDSELECT
CASE "性処理後飲尿PLAY"

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

	CASE "舐陰莖"

	CASE "口交"

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

		ELSE

		ENDIF

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

	CASE "舐陰莖"

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

		ELSE

		ENDIF

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

		ELSE

		ENDIF
	CASE "舐陰莖"

	CASE "口交"

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

		ELSE
			SELECTCASE NAMES("性処理")
			CASE "Ｖ性交"
				PRINTFORMW 「これで妊娠できましたかね～？」
				PRINTFORMW 「やっぱ不安なのでもう一回交尾お願いできますか」

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	PRINTFORMW 「一緒に食べましょ、お昼」

;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「楽しい思いをさせてくれた温柔後輩には、」
				PRINTFORMW 「後でご褒美を上げるのが筋ってものじゃないですか？%CNAME("二人称")%」
			CASE 1
				PRINTFORMW 「うぅ、っぷ…」
				PRINTFORMW 「ちょっと食べすぎたので交尾は時間を置いてからしましょう…」
		ENDSELECT
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
CASE "二人きり：Ｈの誘いに胖次条件で回应"
CASE "二人きり：Ｈの誘いに回应"
CASE "二人きり：Ｈの誘いを断った"

;检查阴部後の派生イベントセリフです
;覗き込んでいる相手はPARTNER()で参照できます
CASE "阴部見せつけ"
	;相手の学年や性別で態度を変えるのも良いでしょう
	SELECTCASE CONDS("学年", PARTNER() )
	CASE "初等部", "中等部"

	CASE "１年生", "２年生"

	CASE "３年生"

	CASE "教員", "研究生"

	CASEELSE

	ENDSELECT

;他の人の检查阴部後に、股間を覗き込んでいる派生イベントセリフです
;检查阴部されている相手はPARTNER()で参照できます
CASE "大人の阴部に興味津々"
CASE "阴部に興味津々"
CASE "阴茎に興味津々"
CASE "性器の違いに興味津々"

ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
		CALL EMOTION_PLUS, "重置/ヮ２/通常眉３/いじけて手/对话框３/婴儿红晕"
		PRINTFORMW 「そのー、休日に一緒に過ごしませんか？」
		PRINTFORMW 「どこに行くとか詳しく決めては無いんですけど…」
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW （どこ行こうかな～、図書館に付き合わせたいけど、絶対失敗するだろうしな…）
		PRINTFORMW （すぐ帰って、作戦たてましょうか）
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「ま、頭の片隅にでも置いておいてください」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
		PRINTFORMW 「週末に会おうって、恋人みたいなこと提案しますね」
		PRINTFORMW 「まぁ、%CNAME("二人称")%ならいいか、変なこともしないでしょうし…」
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「なーんか、どんどん%CNAME("一人称")%の生活に%CNAME("二人称")%が浸食してる気がするんですけど、」
		PRINTFORML
		PRINTFORMW 「まーいっか」
	ELSE
		CALL EMOTION_PLUS, "重置/困扰眉/栗口/叹气"
		PRINTFORMW 「四六時中约会してるような関係で、それって意味有ます？」
		PRINTFORMW 「あーもう、分かりましたよ、外に行って新しい風入れましょうか…」
	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"
		CALL EMOTION_PLUS, "重置"
		PRINTFORMW （この格好で行ってあの人は喜んでくれるでしょうか…）
;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW 「遅いです、、%CNAME("一人称")%を待たせた罰として…」
		PRINTFORMW 「今日はとことん楽しませてくださいよ」
	ELSE
		PRINTFORMW 「同じ時間、同じ場所から、同じ目的地に向かったはずなのに、」
		PRINTFORMW 「%CNAME("二人称")%だけ遅れるって、これもう呪いかなんかでしょ」
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW 「泳装ですか～、もう夏ですもんね」
		PRINTFORMW 「いいでしょう、買いに行きましょうか…」
	CASE "散歩"
		PRINTFORMW 「散歩っていいですよね、」
		PRINTFORMW 「季節や町のちょっとした変化を慢慢地楽しめる娯楽って微妙かもしれませんが、%CNAME("一人称")%は好きです」
	CASE "尋訪美食"
		PRINTFORMW 「え～最近体重気にしてるんですけど、」
	CASE "逛街"
		IF COND("同居中") == 1
			PRINTFORMW 「%CNAME("二人称")%と買い物に行くって女仆桑に伝えたらお使いを任されました！」
			PRINTFORMW 「忘れないようにしておきましょうね、」
		ELSE
			PRINTFORMW 「服とか本とかお菓子とか欲しいものは大体揃ってますし、何を買えばいいんでしょう？」
		ENDIF
	CASE "去水族馆"
		PRINTFORMW 「水族館、、、海洋生物に浮気ですか？」
		PRINTL
		PRINTFORMW 「………　　　違う？ならいいですけど、」
	CASE "去游乐园"
		PRINTFORMW
	CASE "去电影院"
		SELECTCASE RAND:2
			CASE 0
				PRINTFORMW 「最近映画見てないですね～」
				PRINTFORMW 「%CNAME("二人称")%のおススメってなんですか？」
			CASE 1
				PRINTFORMW 「%CNAME("一人称")%、こんな耳してるもんですから大号的音とか特に苦手で、、」
				PRINTFORMW 「映画とかそんな追えてないんですけど…楽しめますかね？」
		ENDSELECT
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW 「うゎぇ～～～い！海だ～♪」
	CASE "爬山"
		PRINTFORMW 「うさ～ぎ～追～いし、か～の～山」
		PRINTFORMW 「ということで、頂上まで競争です。よーーい……ドン！！」
		PRINTFORMW  %NAME:TARGET%は信じられないくらい元気いっぱいだ
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
CASE "约会中の買食物"
	SELECTCASE SAVESTR:约会
	CASE "去电影院"
		;何を買ったかはSTR:選択したもの で分岐可能
		SELECTCASE STR:選択したもの
		CASE "爆米花"
			PRINTFORMW 「爆米花って食べてる時、音がしますよね～」
		CASE "吉事果"
			PRINTFORMW 「アツアツの吉事果だ～！」
			PRINTFORMW 上映前だというのに、もう吉事果を頬張っている
		CASE "热狗"
			PRINTFORMW 「小腹満たせていいですよね～热狗。」
		ENDSELECT
	ENDSELECT
CASE "映画鑑賞中"
	SELECTCASE STR:映画ジャンル
	CASE "サスペンス"
	CASE "ホラー"
		PRINTFORMW 「%CNAME("一人称")%、音を出して驚かせるようなホラー映画嫌いなんですよ」
	CASE "ラブロマンス"
	CASE "アクション"
	CASE "SF"
	CASE "ポルノ"
	CASE "特撮"
	CASE "サイコスリラー"
	CASE "ドキュメンタリー"
	CASE "サイコホラーサスペンスSFアクションポルノ"
		PRINTFORMW 「明らかなクソ映画ですよ、今からでも引き返せますよ」
		PRINTFORMW 「约会中にこれ見ようとか正気ですか？
	ENDSELECT
CASE "手をつなぐ"
	CALL EMOTION_PLUS, "重置/笑颜/微笑/紅潮/对话框開心"
	CALL OFC_PRINT_STRW,@"「…………_BBH_ 」"
CASE "手をつながない"
	CALL EMOTION_PLUS, "嘟嘴/困惑眉短"
	PRINTFORMW 「むー、」
	PRINTFORMW 頬を膨らませて何かを訴えているようだ
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼", "淚珠泳衣比基尼"
		PRINTFORMW 「これ、布面積なさすぎませんか？少し動くだけで見えちゃいますよ」
		PRINTFORMW 「それとも、わざと人前で恥部が見えるように誘導してますか？」
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装", "高開衩競泳泳装"
		PRINTFORMW 「これは、機能を追求したガチな泳装ですね」
		PRINTFORMW 「今から泳池に行って領帯ムでも競いましょうか？」
	CASE "死库水", "新死库水"
		PRINTFORMW 「これは、学校指定の物と少し違う領帯プの泳装ですね」
		PRINTFORMW 「大まかな作りは昔から着ているのと変わらないですし、泳ぎやすいかもですね」
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW 「こんな格好で待たせるとは…」
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW 「%CNAME("二人称")%ー！、さっさと競争しましょう！」
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

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

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		CALL EMOTION_PLUS, "重置/赤面２/萌え袖/へ字４"
		PRINTFORMW 「あっ、も～我慢できないんですか～？」
		PRINTFORMW 「ホテルまでお尻揉ませて给ので交尾は待ってくださいね～」
	ELSE
		CALL EMOTION_PLUS, "重置/小口３/赤面/对话框！"
		PRINTFORMW 「ひゃん！、も～触るならいでくださいよ～」
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

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

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

;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
;STR:Ｈする場所 で場所を情人旅館以外にする事も出来ます。（例 STR:Ｈする場所 = 部室
CASE "帰り際"
	IF TALENT:相思相愛
		PRINTFORMW 「時間の流れってあっという間ですね…」
		PRINTFORMW 「これから帰りますか？それとも…」
	ELSE
		PRINTFORMW 「いや～疲惫！！！」
		PRINTFORMW 「さっさと帰って汗流しましょう！！」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:相思相愛
			PRINTFORMW 「ふふっ、いいですよ最後まで付き合ってあげます」
			PRINTFORMW 「ただ%CNAME("二人称")%の元気が残っているか少し心配ですけど、」
			PRINTL
			PRINTFORMW そう言いながら%CALLNAME:TARGET%は%CALLNAME:MASTER%の股間をまさぐってきた
			PRINTL
			PRINTFORMW 「おや、まだまだ元気みたいですね。これなら楽しめそうです」
		ELSE
			PRINTFORMW 「ん？あのホテルで汗を流してから返回んですか？」
			PRINTFORMW 「わっかりました！まぁ家に人もいるから汗臭いのは嫌ですよね」
			PRINTL
			PRINTL
			PRINTFORML
			PRINTL
			PRINTL
			PRINTL
			PRINTFORML
			CALL EMOTION_PLUS, "重置/～/困惑眉/托下巴/对话框？２"
			PRINTFORMW 「あれ？おかしいですね…」
			PRINTFORMW 「淋浴を浴びるためにここ来了はずなのに、いつのまにか淋浴が必要な行為が始まっている…」
			PRINTL
			CALL EMOTION_PLUS, "重置/通常眉/对话框爱心大量/赤面２/萌え袖/吐舌"
			CALL PRINT_STRW,  "「不思議ですね～_H_ここまできちゃったら、後で淋浴浴びなおすしか有ませんね_BH_」"
			PRINTFORMW 最初からわかりきっていただろうに、%CALLNAME:TARGET%はわざとらしく%CALLNAME:MASTER%挑発している
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW 「…だめ、なんですね…」
		ELSE
			PRINTFORMW 「また、誘ってくださいね！」
			CALL EMOTION_PLUS, "重置/布/布右/楕円/笑颜３/半開４"
			PRINTFORMW 「絶対ですよー！」
			PRINTFORMW %CALLNAME:TARGET%はとんでもない勢いで腕を振っている
			PRINTFORMW  どうやら相当楽しかったようだ。
		ENDIF
	ENDIF
ENDSELECT

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

SELECTCASE RAND:6
CASE 5
	PRINTFORMW 『%NAME:TARGET%にはエンディングが用意されており、閲覧すると指导者能力が超強化される』
CASE 4
	PRINTFORMW 『%NAME:TARGET%には逆挿入系の口上が用意されている』
	PRINTFORMW 『しかし、角色崩壊を叫醒ため注意が必要』
	PRINTFORMW 一体この文字列が何を意味するか、%CALLNAME:MASTER%は理解できなかった
CASE 3
	PRINTFORMW 『%NAME:TARGET%はうさぎだけど、兔女郎制服を自分の意思で着ることはない』
CASE 2
	PRINTFORMW 『%NAME:TARGET%は別に寂しくても死なない』
CASE 1
	PRINTFORMW 『%NAME:TARGET%は肛門性交と尿道性交をさせる気は無いようだ』
CASEELSE
	PRINTFORMW 『%NAME:TARGET%の裙の丈は季節によって変化するぞ』
ENDSELECT

path: ERB/EVENT_K/54 宇佐美偲/EVENT_K54_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;54は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
;ここで TFLAG:取引可能 = 1 とすると、Ｈの最中でもここの選択肢が出ます
@WISH_K54_ADDSELECT
;STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("追加選択肢その１", 16)% … %CALLNAME:TARGET%にＡＡＡしてもらいます/
;STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("追加選択肢之２", 16)% … %CALLNAME:TARGET%にＢＢＢしてもらいます/

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K54_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	;フラグを弄る場合はそれもここで行う
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
	;フラグを弄る場合はそれもここで行う
ENDSELECT

;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K54_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K54_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
;直接Ｈしたい場合
CASE "追加選択肢からＨ：Talk"
	;前編
	IF CEVENTS("追加選択肢からＨ") == ""
		PRINTFORMW テ接吻ト
		PRINTL [0]選択肢１(これを選ぶとＨします)
		PRINTL [1]選択肢２(これを選ぶとＨしません)
		CALL SET_CEVENT, @"追加選択肢からＨ：%ARGS%"
		FLAG:SELECT_USERSHOP = 100
	ELSE
		IF TFLAG:床イン
			PRINTFORMW Ｈする場合の展開です
		ELSE
			PRINTFORMW こっちはＨしない場合の展開です
		ENDIF
	ENDIF
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K54_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;睡眠時の互动指令の選択肢を追加
@DAILY2_SLEEP_K54_ADDSELECT
;STR:選択肢 += "睡眠時追加選択肢その１/"
;STR:選択肢 += "睡眠時追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K54_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応

;直接Ｈしたい場合
CASE "追加選択肢からＨ：もて无"
	;前編
	IF CEVENTS("追加選択肢からＨ") == ""
		PRINTFORMW テ接吻ト
		PRINTL [0]選択肢１(これを選ぶとＨします)
		PRINTL [1]選択肢２(これを選ぶとＨしません)
		CALL SET_CEVENT, @"追加選択肢からＨ：%ARGS%"
		FLAG:SELECT_USERSHOP = 100
	ELSE
		IF TFLAG:床イン
			PRINTFORMW Ｈする場合の展開です
		ELSE
			PRINTFORMW こっちはＨしない場合の展開です
		ENDIF
	ENDIF

CASE "睡眠時追加選択肢その１"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
CASE "睡眠時追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K54_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K54_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "追加選択肢その１"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT

;-------------------------------------------------
;場所を変える指令の選択肢を追加
@MOVE_K54_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE
		PRINTFORMW 「お願いですか？気が乗ったら聞いて不给こともないですよ…」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		;加筆したい
		PRINTFORMW 「いいんですか？%CNAME("一人称")%すっごい面倒な女ですよ、」
		PRINTFORMW 「毎日構ってくれないと無茶苦茶なことし始めますよ。」
		PRINTL
		PRINTFORMW 「いいんですね！？」
		PRINTL
		PRINTFORMW 「本当に…いいんですね……」
		PRINTL
		CALL EMOTION_PLUS, "重置/紅潮/通常眉/微笑２"
		PRINTFORMW 「不束者では有ますが、今後とも宜しくお願いします。」
	;失敗
	ELSE
		CALL EMOTION_PLUS, "重置/頬手/困扰眉２/無口系２/对话框乱"
		PRINTFORMW 「%CNAME("二人称")%…それは単に、交尾をしている関係だから、脳が勝手に%CNAME("一人称")%のことを、つがいだと思い込んでるだけです。」
		PRINTFORMW 「申し出は嬉しくないと言えば嘘になりますが、永遠にあなとと居ようとも%CNAME("一人称")%は考えてません」
		PRINTFORMW 「そして、さっきの発言がこの関係を壊しかねない言葉ということを理解して、今後は過ごしてください…」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否

	ELSE

	ENDIF

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

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"
	TFLAG:取引拒否 = 1
	PRINTFORMW 「%CNAME("二人称")%が%CNAME("一人称")%の体を案じてくれるのは嬉しいですよ」
	PRINTFORMW 「でも、%CNAME("二人称")%の思う以上に%CNAME("一人称")%は産みたいと思ってるんです」
	PRINTFORMW 「共感してくれなくたって、構いません。ただ見守っててください%CNAME("二人称")%…」
	;どうにかしてアフピの口上を出しつつ、避妊状態に不会うにしたい<課題>
CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		TFLAG:取引承諾 = 0
		PRINTFORMW 「これは、お金の問題じゃないんです！」
		PRINTFORMW 「それに%CNAME("二人称")%はお腹の子の父になるかもしれませんが、%CNAME("一人称")%との関係は種を与える側と種を要側、ただそれだけの関係です」
		PRINTFORMW 「これ以上、首を突っ込まないでください！」
		TFLAG:地の文スキップ = 1
		TALENT:事后避孕药 = 0
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		TFLAG:取引承諾 = 0
		PRINTFORMW 「金を払わず、頭を下げるだけ…それでよく%CNAME("一人称")%が避妊薬を飲んでくれるって勘違いできましたね…」
		PRINTFORMW 「%CNAME("一人称")%が入部する時%CNAME("二人称")%にどうお願いしたか、思い出してください…」
		PRINTFORMW 「話は以上です…」
		TFLAG:地の文スキップ = 1
		TALENT:事后避孕药 = 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		TFLAG:取引承諾 = 0
		PRINTFORMW 「%CNAME("二人称")%が%CNAME("一人称")%の体を案じてくれるのは嬉しいですよ」
		PRINTFORMW 「でも、%CNAME("二人称")%の思う以上に%CNAME("一人称")%は産みたいと思ってるんです」
		PRINTFORMW 「共感してくれなくたって、構いません。ただ見守っててください%CNAME("二人称")%…」
		TFLAG:地の文スキップ = 1
		TALENT:事后避孕药 = 0
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

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

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			TFLAG:取引承諾 = 0
			PRINTFORMW 「こっちは必至に腰振って、やっとの思いで妊娠したのに…」
			PRINTFORMW 「それは、ちょっとひどくないですか？」
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			TFLAG:取引承諾 = 0
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			TFLAG:取引承諾 = 0
			PRINTFORMW 「お金が無いって、お話にもなりませんね」
			PRINTFORMW 「情けないとか感じないんですか？」
			PRINTFORMW 「それに、こっちが勝手に産むだけだから気にしなくてもいいですよ」
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「いや～、有がたいお誘いなんですけど、嫁ぐにはまだ早いかな～って思うので遠慮しますね」
CASE "同居希望"
	PRINTFORMW 「まぁ、その方が交尾もしやすいですし、分かりました荷物まとめときますね」
CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「作りません！女仆桑にでも頼んでください」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「しょうがなですね～、こんなに尽くしてくれくのは%CNAME("一人称")%くらいですよ」
		PRINTFORMW 「少しは、労いの言葉が欲しいですね～」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「喜欢的东西があったらいってください、便当に入れて给ので」
		ELSE
			PRINTFORMW 「そんなに欲しいんですか…」
			PRINTFORMW 「まぁ、いつも子種貰ってますし、その礼物ということで作ってあげますね」
		ENDIF
	ENDIF

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

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0
				PRINTFORMW 「そんなことしたら赤酱できなくなっちゃうじゃないですか！」
				PRINTFORMW 「ダメですよ、そんなの」
				CFLAG:口服避孕薬 = 0
				PRINTFORMW 経口避妊薬の提案をしたら、相当ご立腹のようだ
				TFLAG:地の文スキップ = 1
			ELSE
				PRINTFORMW 「%CNAME("一人称")%言いましたよね、孕みたいからこの部活来了って」
				PRINTFORMW 「それを飲んだら、この部活に来る理由がなくなるんです」
				CFLAG:口服避孕薬 = 0
				PRINTFORMW  避妊の提案をしただけで、ひどく悲しんでいる。
				PRINTFORMW %CALLNAME:MASTER%はその在り方にどこか歪なものを感じた…
				TFLAG:地の文スキップ = 1
			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"
	CALL EMOTION_PLUS, "重置/对话框叉叉/憤怒眉短/一文字"
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「そんなことしたら赤酱できなくなっちゃうじゃないですか！」
		PRINTFORMW 「ダメですよ、そんなの」
	ELSE
		PRINTFORMW 「%CNAME("一人称")%言いましたよね、妊娠したいからこの部活来了って」
		PRINTFORMW 「それを飲んだら、この部活に来る理由がなくなるんです」
	ENDIF
CASE "淫紋拒否"
	PRINTFORMW 「淫紋～？」
	PRINTFORMW 「そんなバカげたこと言ってないで交尾しますよ！」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「淫紋贴纸？」
		PRINTFORMW 「あぁ、そういうおもちゃですか…」
		PRINTFORMW 「いいですよ、%CNAME("二人称")%が興奮するなら、それで」
	ELSE
		PRINTFORMW 「おっ、あのシールですね！」
		PRINTFORMW 「あのシール貼ると交尾がいつもより気持ちよくなるから好きなんですよね～」
	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「なんか、これお腹ピリピリするんですけど…」
		PRINTFORMW 「これ変な物じゃないんですよね？後でがせるんですよね？」
	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 "拜托処理性欲"
	PRINTFORMW 「余裕なある時間なら、まぁいいですよ…」
	CALL PRINT_STRW, @"「こっちもしたいですし、、、_BH_」"
CASE "性処理の一時中断"
	IF TALENT:恋慕
		CALL EMOTION_PLUS, "重置/抿嘴/涙目〇〇/蹙眉/赤面２"
		PRINTFORMW 「…いやです」
		TFLAG:取引承諾 = 0
	ELSE
		CALL EMOTION_PLUS, "重置/栗口２/对话框散发/紅潮２"
		PRINTFORMW 「その…止めて大丈夫なんですか？我慢できなくなったら困るのはそっちじゃないんですか？」
		PRINTFORMW 「まぁ、%CNAME("二人称")%がいいならそれでいいんですけど…」
	ENDIF

CASE "性処理拒否"
	CALL EMOTION_PLUS, "重置/叹气/困扰眉/呀哒２"
	PRINTFORMW 「確かに交尾が目的で%CNAME("二人称")%と会ってますけど、」
	PRINTFORMW 「さすがに節操がないですよ、それは…」
;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"
	PRINTFORMW
CASE "给我看尾巴拒否"
	PRINTFORMW
;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人が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 「へぇー%CNAME("二人称")%ってこーゆう髪型が好みなんだぁ…」
	ENDSELECT
CASE "改变髪型拒否"
	PRINTFORMW 「女の子がそう易々と髪の毛を触らせてくれると思わないでくださいよ！」
;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
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, "拒否")
	CALL EMOTION_PLUS, "重置/对话框叉叉/憤怒眉/嘟嘴４"

	PRINTFORMW 「ヤーです！」

;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	CALL EMOTION_PLUS, "重置/对话框圆圈/笑颜３/笑顔２"
	PRINTFORMW 「ＯＫですよ！」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		CALL EMOTION_PLUS, "重置/对话框開心/ヮ/通常眉"
		PRINTFORMW 「购物～♪购物～♪」
		PRINTFORMW 「で、結局何を買いに行君ですか？」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「こんな格好で外を歩かせるなんて%CNAME("ニ人称")%是いんですか？」
	ELSE

	ENDIF
CASE "目送"
	PRINTFORMW 「いってらっしゃ～い！」
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
			PRINTFORMW 「%CNAME("一人称")%は付けませんからね！」
		ELSE
			PRINTFORMW 「避孕套付けてするなら他の娘としてくださいよ～」
		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/54 宇佐美偲/EVENT_K54_SHOP.ERB


code:
;-------------------------------------------------
;この角色の更新日時の記録用です。年月日を新しい方を左側に書いてRETURNしてください
;例）前回更新が2022年10月19日で、今回更新が2023年6月8日ならば
;RETURN 230608,221019
;と書く
;-------------------------------------------------
@UPDATE_K54
;	＜課題＞DAILYが貧者すぎる
RETURN 231116,230922
;231116:接吻/受精確認/手交の実装、細かなミスの修正
;230922:足交/V逆挿入関係/エンディングの追加とそれに伴った指导者能力/夜袭騎乗位/調教後性交/処女関係のイベント追加/衣装の追加/CSVの追加、其他の口上を追加しました
;230831:誤字の修正と加筆、大号的更新ではないです。
;230826:直していただいた口上を基に修正を加えました。
;230824:挿入関係の口上を沢山追加。過去の初歩的ミスの修正、多分使えるくらいのできにはなったと思いたいので更新報告に追加します。
;230817:CSV 白眼のミスの修正、SIF文を用いた挙動が予想と異なっていたため全体的に修正。会話中の颜绘の追加,少量の口上追加,建议能力の追加
;230813:[IF_DRBUG]を埋めました。颜绘とかやりたいことができてませんが、バグとかおかしな挙動があったら教えて欲しいので更新しました。
;230809実装したい

path: ERB/EVENT_K/54 宇佐美偲/UPDATE_K54.ERB