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

SELECTCASE ARGS
;角色クター独自の内衣の組み合わせを設定できます。設定必須です。一定の確率で着用します
;もしも普段は付けない、という事ならCSTR:胖次 = と等号の右側を書き込まない事で出来ます
;CFLAG:随机内衣OFF = 1とした場合には、ここで設定した内衣のみを身に着けるようになります
CASE "内衣"
	IF MARK:屈服刻印 >= 3 && COND("合意：检查阴部") && RAND:4 == 0
		CALL SET_PANTIES, "開放型開洞胖次/黒"
		CALL SET_BRA, "開放型胸罩/黒"
	ELSEIF MARK:屈服刻印 >= 2 && RAND:3 == 0
		LOCALS = %TEXTR("黒/青/豹纹")%
		CALL SET_PANTIES, @"Micro比基尼/%LOCALS%"
		CALL SET_BRA, @"Micro胸罩/%LOCALS%"
	ELSEIF MARK:屈服刻印 >= 1 && RAND:2
		LOCALS = %TEXTR("黒/青/黄色/豹纹")%
		CALL SET_PANTIES, @"紐丁字褲/%LOCALS%"
		CALL SET_BRA, @"半杯胸罩/%LOCALS%"
	ELSEIF RAND:2
		LOCALS = %TEXTR("黄色/黒/純白")%
		CALL SET_PANTIES, @"蕾丝的胖次/%LOCALS%"
		CALL SET_BRA, @"蕾丝胸罩/%LOCALS%"
	ELSE
		CALL SET_PANTIES, "條紋胖次/青白"
		CALL SET_BRA, "條紋胸罩/青白"
	ENDIF
;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
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_COSTUME, "露脐装超短裙領帯女式衬衫/赤"
	CASE "夏"
		IF ABL:露出癖 >= 7
			CALL SET_COSTUME, "超短迷你宽松女式衬衫"
		ELSE
			CALL SET_COSTUME, "露脐装超短裙宽松女式衬衫"
		ENDIF
	CASEELSE
		CALL SET_COSTUME, "露脐装超短裙領帶西装/青"
	ENDSELECT
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;体操服布鲁马, 体操服高開衩布鲁马, 体操服五分褲, 体操服紧身短褲, 体操服运动衫など
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马/赤"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
;死库水, 競泳泳装, 白比基尼, 黒比基尼など
CASE "泳装"
	CALL SET_COSTUME, "高開衩競泳泳装/黒"

;自宅など学園外で着ます。設定必須です
;CASE "便装"

;自分的房間(not主人公的房間)で着ます
CASE "居家服"
	CALL SET_SHIRT, "怪图案Ｔ恤/白"
	CALL SET_OUTER, "热褲"
;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"
	SELECTCASE TEXTS("季節")
	CASE "春"
		CALL SET_SHIRT, "无袖女式衬衫/Ｂ"
		CALL SET_OUTER, "热褲"
		CALL SET_SHOES, "凉鞋"
	CASE "夏"
		CALL SET_SHIRT, @"吊帯衫/%TEXTR("黄色/黒")%"
		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
;もちろん约会の際に着ます
CASE "约会衣装"
	SELECTCASE TEXTS("季節")
	CASE "春", "秋"
		CALL SET_SHIRT, "无袖女式衬衫/Ｂ"
		CALL SET_OUTER, "低腰牛仔褲"
		CALL SET_SHOES, "凉鞋"
	CASE "夏"
		CALL SET_SHIRT, @"吊帯衫/%TEXTR("黄色/黒")%"
		CALL SET_OUTER, "热褲"
		CALL SET_SHOES, "凉鞋"
	CASEELSE
		CALL SET_SHIRT, "针织毛衣/茶色"
		CALL SET_OUTER, "牛仔褲"
		CALL SET_SHOES, "運動鞋"
	ENDSELECT
;朝Ｈの際に着ます
CASE "朝袭衣装"
	IF COND("同居中")

	ELSE

	ENDIF
;夜袭Ｈの際に着ます
CASE "夜袭衣装"

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;CALL SETFLAG, "普段の髪型復元", TARGET で変化させた髪型などを普段のものに戻すことが出来る
;-------------------------------------------------
@MAIDFACE_K43
IF COND("约会中")
	CALL SETFLAG, "普段の髪型復元", TARGET
ELSEIF PLACE("自宅")
	IF COND("周日")
		CSTR:改髪 = 无特殊髪型
	ELSE
		CALL SETFLAG, "普段の髪型復元", TARGET
	ENDIF
ELSE
	CALL SETFLAG, "普段の髪型復元", TARGET
ENDIF

license: unknown


code:
;-------------------------------------------------
;部員同士での交流。自分はTARGETとして呼ばれ、話相手の部員はPARTNER()として呼ばれる
;話相手への呼びかけはCNAME("partner")で出来る
;TFLAG:台詞スキップ = 1で話している相手のセリフのスキップ、TFLAG:地の文スキップ = 1で続く地の文のスキップをする事が出来る
;-------------------------------------------------
@KOJO_COMM_K43, 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

;-------------------------------------------------
;この角色とのやり取りで使う路人角色を記述する
;-------------------------------------------------
@CREATE_MOB_K43, ARGS

SELECTCASE ARGS
CASE "バニガ前輩", "二宮有里絵"
	CSTR:種族 = 人类
	CSTR:髪色 = 棕髪
	CSTR:髪長 = 披肩
	CSTR:前髪 = 自然刘海２
	CSTR:後髪 = 直髪
	CSTR:改髪 = 无特殊髪型
	CSTR:呆毛 = 无呆毛
	CSTR:蝴蝶結 = 无蝴蝶結
	CSTR:瞳色 = 青
	CSTR:眼形 = 斜眼３
	CSTR:白眼 = 白眼
	CSTR:眉形 = 通常眉
	CSTR:嘴形 = ヮ

	TALENT:肤色 = 2
	TALENT:巨乳 = 1
	TALENT:小尻 = 1
	TALENT:陥没乳頭 = 2
	TALENT:肚脐环 = 1
	TALENT:不知羞恥 = 1
	BASE:腋毛 = 200
	BASE:陰毛 = 500
	BASE:身高 = 156
	BASE:胸圍 = 88
	BASE:腰圍 = 58
	BASE:臀圍 = 77
	BASE:罩杯 = 7
	CALL SET_CEVENT, "陰毛の名称：小三角"
	CALL SET_COSTUME, "全裸兔/紫"

ENDSELECT

path: ERB/EVENT_K/43 うお子/EVENT_K43_COMM.ERB


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

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

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

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

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交", "朝騎乗位"
		IF RAND:3 == 0

		ELSEIF RAND:2
			PRINTFORMW 「おはよ。汚れ拭くから起きるのちょっと待ってね」
		ELSE
			PRINTFORMW 「おっ、やっと起きたね。おはよ～」
		ENDIF
	CASE "朝騎乗位"
		[IF_DEBUG]
			PRINTFORMW KOJO_GREETING_K43, %ARGS%, %CSTR:朝袭%
		[ENDIF]
	ENDSELECT

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

	PRINTFORMW 「やっ。早く起きちゃって闲だったから玩耍に来てあげたよ」
	IF COND("体育")
		PRINTFORMW 「……ってよく考えたら今日体育主上ゃん！無駄な体力を使ってしまった」
	ELSE

	ENDIF
CASE "登校"
	IF DAYEV("試験当日")

	ELSEIF DAYEV("試験返却日")

	ELSEIF COND("朝袭相手")

	ELSEIF COND("体育")

	ELSEIF COND("水泳")

	ELSE

	ENDIF
;この角色と一緒に部室に入った際に誰も他にいない場合
CASE "一番乗り"
	IF RAND:2
		PRINTFORMW 「お？今日は私が一番かぁ」
	ELSE
		PRINTFORMW 「いぇーい、まだ誰もいなーい」
	ENDIF
CASE "ただいま"
	IF RAND:3 == 0
		PRINTFORML 「我回来了」
		PRINTFORMW 「晩御飯の採購ってもう行った？まだ私も行きたいな」
	ELSEIF RAND:2
		PRINTFORMW 「うーい、帰ったよ～」
	ELSE
		PRINTFORMW 「たっだいま～今日のご飯なに～？」
	ENDIF
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「おかえりー。何してたん？」
	ELSE
		PRINTFORMW 「やっほー。遅かったじゃん」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「ほい、来てあげたよ～。んで、何の用？」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した（partnerへの呼びかけはCNAME("partner")で出来る）
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		IF COND("合意：性処理")
			PRINTFORMW 「%TEXTR("はろはろー/おっ、やってんね～/相変わらずだねぇ、部長はさぁ～")%」
		ELSE
			PRINTFORML 「ちゎー……」
			PRINTFORMW %CALLNAME:TARGET%は小声で打招呼して、こそこそと椅子に座った
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR("はろはろー/うぃーす/ちわー/へい大将、今日やってる～？")%」
	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「お、もうみんな居るなぁ」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「ほい、来てあげたよ～。んで、何の用？」
	ELSE
		PRINTFORMW 「%TEXTR("はろはろー/うぃーす")%」
	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 「お先にお邪魔してまーす」
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	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 "便当"
	IF GETBIT(CFLAG:おべんとサイクル, 4) == 0 && RAND:3 == 0
		PRINTFORMW 「今日はねー、三明治作ってきたよ。ハム生菜とハム乳酪とハム番茄とハムアボカド」
		PRINTFORMW 「作り的同时、全部ハム入ってない？とか思ったけど、ハム抜きにする勇気はなかった」
		SETBIT CFLAG:おべんとサイクル, 4
	ELSEIF GETBIT(CFLAG:おべんとサイクル, 3) == 0 && RAND:3 == 0
		PRINTFORMW 「今日はねー、シュ马イとレンコンのきんぴらだよ～」
		PRINTFORMW 「レンコンはきんぴらにするのが一番美味いと思うんだよねぇ、なんか」
		PRINTFORMW 「あ、そうそう醤油持ってきたんだった、一滴づつ出せる奴。是」
		SETBIT CFLAG:おべんとサイクル, 3
	ELSEIF GETBIT(CFLAG:おべんとサイクル, 2) == 0 && RAND:3 == 0
		PRINTFORMW 「今日は生菜と焼き豚のチャーハンだよ～」
		PRINTFORMW 「チャーハンって意外と冷めても美味いよね。最初に生菜入れた人には感心しちゃう」
		SETBIT CFLAG:おべんとサイクル, 2
	ELSEIF GETBIT(CFLAG:おべんとサイクル, 1) == 0 && RAND:3 == 0
		PRINTFORMW 「今日は豚の姜汁焼肉の、ニンニクの芽の炒め物添えだよ～」
		PRINTFORMW 「これ見るたびに、ニンニクの芽？茎でしょ？ってセルフ突っ込みしちゃうんだよねーなんか」
		PRINTFORMW 「で、茎どう？レンチンしてから炒めたから結構柔らかくなってるとは思うんだけど」
		SETBIT CFLAG:おべんとサイクル, 1
	ELSEIF GETBIT(CFLAG:おべんとサイクル, 0) == 0 && RAND:3 == 0
		PRINTFORMW 「今日はねー。明太子の飯団と、フライドポテトと、なんと！エビフライ！！だよ」
		PRINTFORMW 「私このヘニャヘニャのエビフライがなんか好きでさぁ、たまに無性に食べたくなんのよね」
		SETBIT CFLAG:おべんとサイクル, 0
	ENDIF

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1
	IF RAND:3 == 0
		PRINTFORMW 「今日は鶏から油炸だよ～。あと便利店で%TEXTR("カット生菜/千切り捲心菜/ベビーリーフ")%のパック買ってきたからお皿に開けるね」
		PRINTFORMW 「野菜には何かける？一応ソースと青じそドレッシング持ってきたけど」
	ELSEIF RAND:2
		PRINTFORMW 「今日は無性に胖次食べたくなっちゃったから、近所の胖次屋で買ってきたよ～」
		PRINTFORMW 「乳酪フランスとカレー胖次とベーコンエピと芝麻ドーナツと……まぁ色々あるから随意選んでよ」
		PRINTFORMW 「あ。飲み物は橘ジュースと牛乳のどっちがいい？」
	ELSE
		PRINTFORMW 「今日はぁ、漢堡肉とアスパラベーコンと卵焼きだよー」
		PRINTFORMW 「いやぁ今朝は時間なかったから全部冷食なんだよね、メンゴメンゴ」
		PRINTFORMW 「あ、一個だけ冷食じゃないのがあるんだった。是。食後の香蕉」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

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

TEXT_ACT =

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	PRINTFORML 「よーろしくねー」
CASE "浑身是汗"
	PRINTFORML 「ぅあーあっついあっつい……」
	PRINTFORML %CALLNAME:TARGET%は首を振る扇風機に合わせて左右にゆらゆら動いている
CASE "刚睡醒"
	PRINTFORML 「うーん……ちょっと寝たりないなぁ……」
CASE "Cosplay中"
	PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML 「今日の茶菓子どうかな？用意したの私なんだけど」
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「おーなかなか美味しいじゃんこの%TEXTS("点心")%。どこで買ってきたの？」
				PRINTFORML 「……亲手自制？マジ？」
			ELSE
				PRINTFORML 「へー、これ亲手自制なんだ？いいねーこういうの」
			ENDIF
		ELSE
			IF COND("点心の作り手が料理擅長")
				PRINTFORML 「う～～ん、相変わらず美味しいね。もっと貰っていい？」
			ELSE
				PRINTFORML 「うんうん。こういう控えめな味、私は結構好き」
			ENDIF
		ENDIF
	;点心が亲手自制でない
	ELSE
	;	PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K43
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	PRINTFORML 「い、いやぁ～、ヤバイね、これ！」
	PRINTFORML 「平静保つとか、ゼッ領帯無理だわ！」
	PRINTFORML %CALLNAME:TARGET%はニヤニヤし的同时、落ち着きなく左右にゆらゆら揺れている……
CASE "约会的约定"
	PRINTFORML 「遅刻したら、その日の代金は全て部長に払ってもらうからよろしくね」
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	PRINTFORML 「自己言うのもなんだけど、他の人と契約した方が良いと思うけどなぁ」
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	IF EXP:Ｈ回数 == 0
		PRINTFORML 「ねぇ。これって……そういうことだよね」
		PRINTFORML %CALLNAME:TARGET%は少しだけ緊張した面持ちで%CALLNAME:MASTER%のそばに腰を下ろした
	ELSE
		PRINTFORML 「私は別にいつもの場所で良かったのにな～」
		PRINTFORML 「……あ。もしかして、なんか変な事するつもりだったり？」
	ENDIF
;你と一緒に、主人公的房間に移動した
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「なんか新しい漫画とか買ってないの？」
;你と一緒に、partner的房間に移動した
CASE "自室に招待"
	PRINTFORML 「タンスとか引き出しの中見る時には必ず私に一声かけてね？」
;partnerが既に居る部屋に、你が移動した
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"
	PRINTFORML 「ん？どうかした？」
CASE "低腰臀圍"
	PRINTFORML 「お。その表情……見たね？」
	PRINTFORML 腰回りへの視線に気づいた%CALLNAME:TARGET%はニヤリと不敵に微笑んだ
CASE "撩起裙子"
	PRINTFORML 「%TEXTR("そこだとあんまよく見えないでしょ……もっと近くに来てもいいよ？/ふふ……どう？お気に召した？/是、おしまい")%」
CASE "掀起裙子"
	PRINTFORML 「%TEXTR("あーもーまったく……不意打ちは勘弁してほしいなぁ/はー、やれやれ。本当に手癖が悪いんだから/ちょっと惊嚇するけど、そんな風に喜ばれるとあんま怒る気は起きないもんだね")%」
CASE "撫摸股間"
	TEXT_ACT = %TEXTR(@"%CALLNAME:MASTER%に股間を撫でられながら/脚を轻轻地左右に開いて%CALLNAME:MASTER%の邪魔をしない様にしながら")%、
CASE "检查内褲"
	TEXT_ACT = %TEXTR(@"脚を開いて%CALLNAME:MASTER%に股間を見せつけながら/股の間に%CALLNAME:MASTER%が陣取っているのを気にした風もなく")%、
CASE "检查阴部"
	IF COND("合意：检查阴部")
		TEXT_ACT = %TEXTR(@"脚を開いて%CALLNAME:MASTER%に股間を見せつけながら/股の間に%CALLNAME:MASTER%が陣取っているのを気にした風もなく")%、
		SIF RAND:3 == 0 && CHOSE_DEVENT("检查阴部") == 1 && COND("身嗜み：陰毛") >= 5 && COND("陰毛") == 2
			PRINTFORML 「流石にまだ光滑无毛のまんまだよ、脱毛してたんだから」
	ENDIF
CASE "拜托処理性欲"
	PRINTFORML 「あれ？もう終わりでいいの？」
CASE "进行性処理"
	PRINTFORML
CASE "帮忙消除性欲"
	IF RAND:3 == 0
		PRINTFORML 「う～ん……なんかちょっと眠くなってきたかも……」
	ELSEIF RAND:2
		PRINTFORML 「なかなかよかったよ……おつかれ大人、部長」
	ELSE
		PRINTFORML 「ふぅ、すっきりしたぁ……」
	ENDIF
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

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

		CASEELSE

		ENDSELECT
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「ふっ……私の隙を突こうなんて100年早いぜ」
	PRINTFORML なんか君、角色違くない？
CASE "股間撮影"
	IF RAND:3 == 0
		IF RAND:3 == 0
			PRINTFORML 「うーん……もうちょっと食いこませたりした方が良かったかもね」
			PRINTFORML 「服売るお店のカタログならこれでもいいと思うけど、ちょっと胖次チ弱い気がする」
		ELSEIF RAND:2
			PRINTFORML 「おーいいね、えろいえろい」
			PRINTFORML 「この辺の%TEXTR("シワ/段差/勒紧的/盛り上がり")%とか、なかなかポイント高いんじゃない？」
		ELSE
			PRINTFORML 「ん～……まぁまぁかな？」
			PRINTFORML 「私的には顔とかも写ってる方が実用度高そうに思うけど、どうなのそのへん」
		ENDIF
	ENDIF
CASE "阴部の見せつけ撮影"
	IF RAND:3 == 0
		IF RAND:2
			PRINTFORML 「今撮ったの私にもちょっと見せて…………ふ～～ん」
			PRINTFORML 「いやぁ、やっぱなんていうかちょっとグロいね、なんていうか……」
			PRINTFORML 「そうあれ、風邪ひいたときに行くお医者桑に貼ってある喉の写真みたい」
		ELSE
			PRINTFORML 「おー凄い良く撮れてるね、なかなかいい腕してるじゃん」
			PRINTFORML 「あとで見直したいから私にもちょうだい、この写真」
		ENDIF
	ENDIF
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF EXP:情人旅館經驗 == 1
			PRINTFORML 「へぇ～……こんな感じなんだ？」
		ELSE
			PRINTFORML 「とりあえず……なんか飲む？」
		ENDIF
	;做爱房
	ELSE
		PRINTFORML 「おまたせ」
		IF COND("易出汗")
			PRINTFORML 「ふぅ……急いで来たら、汗かいちゃった」
		ELSE
			PRINTFORML 「じゃあさっそく……するのかな？」
		ENDIF
	ENDIF
CASE "一起学习"
	PRINTFORML 「はぁー……心地よい疲れ……」
	PRINTFORML %CALLNAME:TARGET%是つにもましてダラーっとしている
CASE "淋浴"
	IF CHECK_CLO("内衣姿")
		IF RAND:2
			PRINTFORML 「ふぅー……快適、快適……」
			PRINTFORML 内衣姿の%CALLNAME:TARGET%はソファーでダラーッとしながら扇風機で涼んでいる。
		ELSE
			PRINTFORML 「部長居るの分かってたら上も着るんだったかなぁ……見苦しくてゴメンね」
			PRINTFORML %CALLNAME:TARGET%は団扇で啪嗒啪嗒仰いで身体を乾かしている。
		ENDIF
	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 DEVENT("質問一時停止") == 0 && CFLAG:调戏数
	IF CFLAG:日常事件回数 >= 1 && DEVENT("質問１") == 0
		PRINTFORML 「あー悪魔業？とりあえず今は本腰は入れてないかなぁ……」
		PRINTFORML 「だから別に私とそういう取引はして君なくてもいいよ、マジで」
		CALL SET_DEVENT, "質問１"
	ELSEIF CFLAG:日常事件回数 >= 5 && DEVENT("質問２") == 0
		PRINTFORML 「普段何してるかって……うーん……まぁ、大した事はしてないかなぁ……あ、バイトはしてるよ」
		PRINTFORML 「実は私って一人暮らししてるから、結構金欠病に悩まされてんのよね」
		CALL SET_DEVENT, "質問２"
		CALL SET_DEVENT, "質問一時停止"
	ELSEIF CFLAG:日常事件回数 >= 10 && DEVENT("質問３") == 0 && CEVENT("バイト没有") == 0
		PRINTFORML 「……え？私のバイトの話？あーそういえば言ったっけね、バイトしてるって」
		PRINTFORML 「どんなバイトかって言うと……うーん…………バニガ？」
		PRINTFORML 「頭に兔耳付けた格好で接客してんのよね、実は」
		PRINTFORML 「……いやいやそんなＨ的お店じゃないからね？変な想像しないでよ？」
		CALL PRINT_STRL, @"黄色_※%NAME:TARGET%の角色介绍文が更新されました※"
		CALL SET_DEVENT, "質問３"
		CALL SET_DEVENT, "質問一時停止"
		;この質問によってバイト描写が起きるようになる
		CALL SET_CEVENT, "バイト開始"
		CSTR:仕事 = %CSVCSTR(NO:TARGET, GETNUM(CSTR, "仕事") )%
	ENDIF
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 && PLACE("部室")
		IF COND("欲求不満") && MARK:屈服刻印
			PRINTFORML 「……二人きりだね」
		ELSEIF CFLAG:坐在旁邊
			IF ABL:信頼 >= 3 && RAND:2
				TEXT_ACT = %TEXTR(@"%CALLNAME:MASTER%に寄っ掛かりながら/時折%CALLNAME:MASTER%の太ももを指先で弄りながら")%、
			ELSE

			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORML 「ふぁ～あ……なんか静かだし、ちょっとだけ寝ようかなぁ……」
				PRINTFORML %CALLNAME:TARGET%は座被窝を枕にし的同时、干劲なさそうな目でスマホを眺めている…
			ELSEIF RAND:2
				PRINTFORML 「いえーい、長椅子独り占め～」
				PRINTFORML %CALLNAME:TARGET%は３人は並んで座れる尺寸のソファにクッションを並べて寝転んでいる。
			ELSE
				PRINTFORML 「いやぁ、二人きりだとけっこー広く感じるもんだね」
				PRINTFORML 「……ちょっと掃除でもしよっかな」
				PRINTFORML %CALLNAME:TARGET%は%TEXTR("給湯器付近の備品を整理し/散らかっている雑誌類を本棚におさめ/テーブルの上を拭き")%始めた。
			ENDIF
		ENDIF
	ELSE
		IF PLACE("Ｈ目的") && RAND:3 == 0
			SELECTCASE KABURAND(4)
			CASE 3
				PRINTFORML 「う～……んっ……はぁ～……。ね、そろそろなんかしようよ」
				PRINTFORML 椅子に座ったまま大きく伸びをした%CALLNAME:TARGET%は、闲そうなオーラを醸し出しつつ%CALLNAME:MASTER%の行動を促してきた
			CASE 2
				PRINTFORML 「ふーっ……なんかちょっと暑いね。……そんなことないって？」
				PRINTFORML %CALLNAME:TARGET%は僅かに汗ばんだ額を手帕で拭い、轻轻地息を吐いた
			CASE 1
				PRINTFORML （う～ん……こっちはその気になって身構えてるのに、なかなか手出してこないなぁ……）
				PRINTFORML （もしかして、なんか別の用事があるのかなぁ……？）
			CASEELSE
				PRINTFORML （なんか会話減ってきたし、そろそろ……かな？）
			ENDSELECT
		ELSE

		ENDIF
	ENDIF
ENDIF

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

IF STATE("酔酒")
	PRINTFORML
;ELSEIF COND("夜")
;
ELSE
	PRINTFORML 「…………」
	PRINTFORM %CALLNAME:TARGET%
	IF COND("点心有") && RAND:3 == 0
		PRINTFORM %TEXTR(@"%TEXTS("点心")%を口に運びつつ/%TEXTS("点心")%をつまみながら/リラックスした様子で%TEXTS("点心")%を食べつつ")%
	ELSEIF CFLAG:茶 && RAND:3 == 0
		PRINTFORM %TEXTR(@"時折%SAVESTR:茶%を口に運びつつ/茶菓子をつまみながら/リラックスした様子で%SAVESTR:茶%を飲みつつ")%
	ELSE
		PRINTFORM %TEXT_ACT%%TEXTR("黙々と/没頭した様子で/真剣な眼差しで/干劲なさそうに/如何にも闲つぶしといった様子で/無言で")%
	ENDIF
	PRINTFORML %TEXTR("雑誌を読んで/漫画本を読んで/携帯游戏機で遊んで/スマホを弄って/爪の手入れをして/髪に櫛を通して")%いる
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K43
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
	PRINTFORML 「Zzzz……Zzzz……」
ELSEIF RAND:2
	PRINTFORML 「…………うへへ」
ELSE
	PRINTFORML 「う～ん……ムニャムニャ……ぐーすかぴー」
ENDIF

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

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF EXP:情人旅館經驗 == 0
			PRINTFORMW 『はーい私だよ～、どしたの？部長』
			PRINTFORMW 『……これから情人旅館でＨ？ん～……』
			PRINTFORMW 『うん、予定なさそうだし良いよ。んで、どこで待ち合わせすんの？』
		ELSE
			PRINTFORMW 『またあの情人旅館の前で良いの？』
			PRINTFORMW 『おっけーおっけー、爸爸っと準備して向かうよ……じゃ、現地でね』
		ENDIF
	;做爱房
	ELSE
		PRINTFORMW 『ほいほい。どしたの？』
		PRINTFORMW 『んー？今日是つもの部室じゃなくて、あっち的房間に行けばいいの？おっけおっけ』
	ENDIF
CASE "学園での日常"

CASE "お仕事"
	SAVESTR:現在位置 = 喫茶店
	CALL SETFLAG, "衣装の記録", TARGET

	;初回はバイトの解説
	IF CFLAG:バニガのお仕事 == 0
		CALL SET_COORDINATE, "制服"
		CALL EMOTION_PLUS, "重置/会話口/对话框兴奋"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「おはようございまーす！ロッカールーム借りますねー」

		SAVESTR:現在位置 = ロッカールーム
		PRINTL
		CALL SETFLAG, "变成内衣姿态", TARGET
		CALL EMOTION_PLUS, "重置/困扰眉/小口/对话框汗"
		CALL PRINT_NAME_CLO
		PRINTFORMW （あーやばいやばい……ｺﾞｿｺﾞｿ、今日はちょっと時間ギリだから爸爸っと用意しないと……ｺﾞｿｺﾞｿ）
		PRINTL
		CALL SETFLAG, "衣装全脱ぎ", TARGET
		CALL EMOTION_PLUS, "重置/△"
		CALL PRINT_NAME_CLO
		PRINTFORMW （クンクン……今日は朝シャワって来たし、汗拭くだけで大丈夫かな……%TEXTS("腋")%とＩラインとお尻と…………）
		PRINTFORMW （……よし、お菊門付近は糸くず一本でも死ぬほど恥ずかしいから念のため鏡で確認して……うん、大丈夫そう）
		PRINTFORMW （あとは兔耳颈环手套襪子、ヒールと太ももの腿环付けて……）

		CALL SET_COSTUME, "全裸兔/黒"
		PRINTL
		CALL EMOTION_PLUS, "重置/对话框爱心"
		CALL PRINT_NAME_CLO
		PRINTFORMW （よし。阴部と%TEXTS("腋")%の下の刺啦刺啦も無いし準備ＯＫかな……それじゃあ、今日も頑張るとしますかね、っと）

		SAVESTR:現在位置 = 喫茶店
		PRINTL
		CALL EMOTION_PLUS, "重置/笑颜"
		CALL PRINT_NAME_CLO
		PRINTFORMW 「お客様、欢迎光临。こちらへどうぞ」
		PRINTL
		PRINTFORMW 学園の２年生、%NAME:TARGET%のあやしい高給バイトが今日も幕を開けた。
		CALL PRINT_STRW, @"黄色_※%NAME:TARGET%の角色介绍文が更新されました※"
		SETBIT CFLAG:バニガのお仕事, 0

	ELSEIF COND("穿環存在：肚臍以外") && GETBIT(CFLAG:バニガのお仕事, 60) == 0
		CALL SET_COORDINATE, "制服"
		SAVESTR:現在位置 = ロッカールーム
		CALL CREATE_MOB, "バニガ前輩"
		MOB = CNUM("バニガ前輩")

		CSTR:MOB:颜绘変化 = 重置/笑颜４/会話口/对话框？
		CALL EMOTION_PLUS, "害羞/小口/对话框・・・", TARGET, MOB
		CALL PRINT_NAME_CLO
		PRINTFORML 「あのー……。前輩、ちょっとお聞きしたいことが」
		PRINTFORMW 『んー？なにかな？』
		PRINTFORMW 「その。……バイト中の穿環に関する事なんですけど。デリケートな部分の」

		PRINTL
		CSTR:颜绘変化 = 害羞/小口/对话框？
		CALL EMOTION_PLUS, "重置/斜眼３飘忽/对话框電球/托下巴", MOB
		CALL PRINT_NAME_CLO, MOB

		PRINTFORMW 『あぁ、就業規則絡みの質問ね。このお店ではね、そういうものだと阴蒂皮穿環は明確に禁止』
		PRINTFORMW 『理由はお客様の目に留圆圈場所なのに、お触りが禁止な場所だから……無駄なトラブルのもとになり得るって事でＮＧみたいよ』
		PRINTFORMW 『半面、お客様が触ることが出来る場所や、そう簡単には見えない場所については自由ね……\@ TALENT:肚脐环 ? 例えばお肚臍とか # 私もお肚臍に着けてるし \@』
		PRINTFORMW 『と是え、以前居た乳頭に着けてた前輩は事あるごとに弄られてたから、もしそういう場所に着けるなら覚悟はしておいてね』
		PRINTFORMW 『……とりあえずこんなとこかしら？』

		PRINTL
		CSTR:颜绘変化 = 害羞/笑颜/对话框汗３/頬手
		CALL EMOTION_PLUS, "重置/斜眼３飘忽/嘲笑２/红晕/对话框爱心", MOB, TARGET
		PRINTFORMW 『それにしても秋月桑……こんなこと聞いてくるなんて、近いうちに着ける予定でもあるの？穿環』
		CALL PRINT_STRW, "『それとも、既に着けた後なのかしら……_UH_』"
		IF TALENT:恥丘穿環 && TALENT:陰蒂環 + TALENT:陰唇環 + TALENT:尿道穿環 == 0
			PRINTFORMW 「あ、あはは、それはその……是。実は割ときわどい所に少々……」
		ELSEIF TALENT:乳环 && TALENT:陰蒂環 + TALENT:陰唇環 + TALENT:尿道穿環 == 0
			PRINTFORMW 「あ、あはは、それはその……是。実は乳頭に少々……」
		ELSE
			PRINTFORMW 「あ、あはは、それは前輩のご想像にお任せするって事で……」
		ENDIF

		CALL DEL_MOB

		SETBIT CFLAG:バニガのお仕事, 60
	ELSE
		CALL SET_COSTUME, "全裸兔/黒"

		IF 0
		ELSEIF BASE:腋毛 >= 600 || BASE:陰毛 >= 700
			SAVESTR:現在位置 = ロッカールーム
			CALL CREATE_MOB, "バニガ前輩"
			MOB = CNUM("バニガ前輩")

			CALL EMOTION_PLUS, "害羞/小口/对话框汗"
			CALL PRINT_NAME_CLO
			IF BASE:腋毛 >= 600
				PRINTFORMW （う～ん……かなり%TEXTS("腋")%毛が伸びてきたっていうか、そろそろ怒られる気がするなぁ……いやいや、まだイケる！って前輩だ！？）
			ELSE
				PRINTFORMW （う～ん……かなり下の毛が伸びてきたっていうか、そろそろ怒られる気がするなぁ……いやいや、まだイケる！って前輩だ！？）
			ENDIF
			PRINTL
			PRINTFORMW 「あ、前輩おはようございまーす！今日もお願いします」
			PRINTFORMW 『是、おはようございます……って、あら？あらら？』

			PRINTL
			CSTR:颜绘変化 = 惊嚇
			CALL EMOTION_PLUS, "重置/斜眼３飘忽/困扰眉/对话框乱/頬手", MOB, TARGET
			CALL PRINT_NAME_CLO, MOB
			PRINTFORMW 『秋月桑……流石にそのモジャモジャは見逃せないなぁ。ほら、こっち来なさい。剃って给から』
			PRINTFORMW 「……是。お願いします（無理だったかぁ……）」
			PRINTFORMW 今日の%CALLNAME:TARGET%の業務は、前輩による身嗜み格子から始圆圈事となった…

			CALL DEL_MOB

			IF BASE:陰毛 >= 700
				BASE:陰毛 = 500
				SETBIT CFLAG:バニガのお仕事, 50
			ENDIF
			IF BASE:腋毛 >= 600
				BASE:腋毛 = 300
				SETBIT CFLAG:バニガのお仕事, 51
			ENDIF
		;陰毛还没長出来
		ELSEIF COND("陰毛") == 4 && GETBIT(CFLAG:バニガのお仕事, 40) == 0
			CALL EMOTION_PLUS, "害羞"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「お客様、欢迎光临。こちらへどうぞ……んっ」
			PRINTFORMW （う、また触られた……やっぱココの毛が还没長出来状態って気になるのかな……）
			PRINTFORMW （楽しんでもらえてるだけならまだいいけど、だらしない奴って思われてたら嫌だなぁ……）
			SETBIT CFLAG:バニガのお仕事, 40

		;腋毛还没長出来
		ELSEIF COND("腋毛") == 4 && GETBIT(CFLAG:バニガのお仕事, 41) == 0
			CALL EMOTION_PLUS, "惊嚇/紅潮２"
			CALL PRINT_NAME_CLO
			PRINTFORMW （今日は忙しかったな……兔耳のズレ直さないと……？なんか妙に視線感じるなぁ……って、はっ！？）
			PRINTFORMW （そ、そうだった、今の私は%TEXTS("腋")%毛の処理が甜女……！それでこの視線かー！）
			PRINTFORMW （別にクレーム発生とかはないけど、想像以上に恥ずかしいなこれ……うぐ！二度見された！！）
			SETBIT CFLAG:バニガのお仕事, 41

		ELSEIF GETBIT(CFLAG:バニガのお仕事, 6) && (GETBIT(CFLAG:バニガのお仕事, 7) == 0 || RAND:7 == 0)
			CALL EMOTION_PLUS, "重置/对话框兴奋"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「お客様、欢迎光临。こちら本日のメニュー降临在你身上」
			PRINTFORMW （この、メニュー選びの時間は好きじゃないんだよなぁ、即決したお客からは身体眺められたり恥丘撫でられたりするし……ととっ）
			PRINTL
			CALL EMOTION_PLUS, "重置/笑颜/微笑２/紅潮/对话框汗"
			PRINTFORMW 「……お客様。当店はＩゾーンのタッチは禁止ですのでそれ以上は……是、その辺りまでならご自由にどうぞ」
			PRINTFORMW （こんな感じに、ルールよく知らないか知り過ぎてる客がギリギリを攻めてきたりもするしね……ふぅ）
			SETBIT CFLAG:バニガのお仕事, 7

		ELSEIF GETBIT(CFLAG:バニガのお仕事, 5) && (GETBIT(CFLAG:バニガのお仕事, 6) == 0 || RAND:6 == 0)
			CALL EMOTION_PLUS, "重置/对话框？"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「あら？お客様、何か落としましたよ……失礼いたします」
			PRINTFORMW （物を拾う際には脚が長く綺麗に見えるように可能な限り立位体前屈で……っと）
			PRINTFORMW 飘忽。
			PRINTFORMW （あー……やっぱ見るよねぇ。この体勢だと後ろのお客桑からは丸見えだもんなぁ、私のお菊門……）
			PRINTL
			CALL EMOTION_PLUS, "惊嚇/紅潮２/对话框！"
			PRINTFORMW （ハッ！……この後の接客が恥ずかしくなるだけだから、もしかして確認しない方が良かったのでは？！）
			SETBIT CFLAG:バニガのお仕事, 6

		ELSEIF GETBIT(CFLAG:バニガのお仕事, 4) && (GETBIT(CFLAG:バニガのお仕事, 5) == 0 || RAND:5 == 0)
			CALL EMOTION_PLUS, "重置/会話口/紅潮"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「本日は私が皆様の担当となりますので、番号の確認をお願いいたします」
			PRINTFORMW （それにしても……侍者服番号を太ももの腿环に記述するのって、この店の誰が考えたんだろうなー……）
			CALL PRINT_CUTIN, "胖次正面", TARGET
			PRINTFORMW （数字小さい上に桁も多いから顔近づけられても文句言えないし、天才の所業だよね……悪い意味で）
			SETBIT CFLAG:バニガのお仕事, 5

		ELSEIF GETBIT(CFLAG:バニガのお仕事, 3) && (GETBIT(CFLAG:バニガのお仕事, 4) == 0 || RAND:4 == 0)
			CALL EMOTION_PLUS, "重置/無口系/紅潮"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「お席はこちらになります。ご案内いたしますので、どうぞご一緒に……んんっ」
			PRINTFORMW （おっと、並んで歩きだすなり尻鷲掴みかぁ……慣れてるなぁこのお客桑……）
			PRINTFORMW （……肩に腕回してきたりはしないし、注意とかは要らなさそうかな？）
			SETBIT CFLAG:バニガのお仕事, 4

		ELSEIF GETBIT(CFLAG:バニガのお仕事, 2) && (GETBIT(CFLAG:バニガのお仕事, 3) == 0 || RAND:3 == 0)
			CALL EMOTION_PLUS, "重置"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「お客様、失礼いたします。テーブルお拭きしますね」
			PRINTFORMW （前屈みで拭くときには乳頭がテーブル擦んないように注意しないとねっ、と……それにしても）
			PRINTFORMW 飘忽。
			PRINTL
			CALL EMOTION_PLUS, "重置/△/紅潮"
			PRINTFORMW （うわーめちゃめちゃ見てる……ホントみんな、胸部が晃动的の見るの好きだなぁ……）
			SETBIT CFLAG:バニガのお仕事, 3

		ELSEIF GETBIT(CFLAG:バニガのお仕事, 1) && (GETBIT(CFLAG:バニガのお仕事, 2) == 0 || RAND:2)
			CALL EMOTION_PLUS, "重置/笑颜"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「お客様、欢迎光临。こちらへどうぞ」
			PRINTFORMW （ふ～～ん……後ろのお客桑、このお店の内容知らずに連れてこられたのかな？）
			PRINTFORMW （……戸惑いつつも嬉しそうなオーラが滲み出てて……なんか和むなぁ）
			SETBIT CFLAG:バニガのお仕事, 2

		ELSE
			CALL EMOTION_PLUS, "重置/△/对话框惊讶"
			CALL PRINT_NAME_CLO
			PRINTFORMW 「お客様、お飲み物是かがですか？……ととっ」
			PRINTFORMW （セーフ……それにしてもトレイにドリンク乗せてる時に胸触られるのにも慣れたなぁ……）
			PRINTFORMW （ていうかいつまで揉んでんだか。さっさと決めてよもう）
			SETBIT CFLAG:バニガのお仕事, 1
		ENDIF
		PRINTL
		PRINTFORMW %CALLNAME:TARGET%は授業間の空きコマを生かして全裸の兔女郎姿での接客業に精を出している。
	ENDIF

	CFLAG:今週の仕事回数 += 1

	TFLAG:地の文スキップ = 1
	CALL SETFLAG, "衣装記録からの復元", TARGET
	CALL CHECK_ALLCLOFLAG, TARGET
CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW 「お、ラッキー部長はっけーん。ねーねー途中まで一緒に帰ろ～」
	ENDSELECT

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

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "買食物"
		SELECTCASE SAVESTR:現在位置
		CASE "漢堡店"
			IF RAND:3 == 0
				PRINTFORMW 「そーいえば漢堡って基本、大盛り無いよね。どの商品でも大盛り選べたらいーのになー」
			ELSEIF RAND:2
				PRINTFORMW 「えーっと……チキンナゲット５個入りでMasterドソース２個お願いします、勿論ソース２個分お代支付ますんで」
			ELSE
				PRINTFORMW 「限定バーガーとポテトのセットでドリンクは冰ウーロン茶。ミルクとガムシロもお願いします」
			ENDIF
		CASEELSE
			PRINTFORMW
		ENDSELECT
	CASE "内衣選び", "泳装選び"
		PRINTFORMW 「%TEXTR("部長はどーいうのが好きなの？なんかこだわりあったら教えてよ～/う～ん、今日はビビっとくるのが無いなぁ/お、これいいかも……ちょっと試着できるか店員桑に聞いてくるね/こういうとこ来ると毎回思うけど、トルソー一個欲しいよね")%」
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW 「%TEXTR("ちょっと站着读书したいから、ここで解散ね/この漫画、いつ变成了ら続き出るのかなぁ/うーん、没什么特别的。私はもう返回けど一緒にどう？/本買うときって、ついつい上から二番目取っちゃうよね")%」
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

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

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

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

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

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

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

	;場所で分岐させる？
	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 "打招呼ハグ"
		IF COND("易出汗")
			PRINTFORMW 「あーもー暑いんだからくっつかないでよ……」
		ELSE
			PRINTFORMW 「お、今日はずいぶん積極的じゃん。何かいいことでもあったの？」
		ENDIF
	CASE "打招呼接吻"
		PRINTFORMW 「もー……やめてよ、恥ずかしいなぁ……」
	CASE "打招呼口交", "打招呼舐陰"
		PRINTFORMW 「いやいや、你ねぇ……そんなに溜まってんの？」
	CASEELSE
		;你に先に打招呼をされた
		IF CFLAG:打招呼した == 0
			PRINTFORMW 「やっほー」
		ELSE
			PRINTFORMW 「うーい」
		ENDIF
	ENDSELECT
CASE "叫醒"
	PRINTFORMW 「お？おぉ…………おはよ……ふぁ～～あ……ん……」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
	PRINTFORMW 「あーむり、もう限界……わるいけど、ねるね……」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	CALL PRINT_STRW, @"「%TEXTR("は～～…………最高……_UH_/う～～ん……やっぱ暑いときは扇風機に限るね！/あーうーちょっと限界……悪いけど独占させて……")%」"

CASE "Talk：地の文前"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"

	CASE "夸奖"

	CASE "甜言蜜语"
	;	PRINTFORMW 「もー。そういうのやめて」
	;	STR:日常イベント名 =
	ENDSELECT

CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K43, %ARGS%, %STR:日常イベント名%
		[ENDIF]
	CASE "夸奖"
		CALL PRINT_STRW, "「え？そ、そう？照れるなぁ……_UH_」"
	CASE "甜言蜜语"
		IF TALENT:恋慕
			CALL PRINT_STRW, "「う、うん……わ、私も……_UH_」"
		ELSEIF CALCF("甜言蜜语成功")
			PRINTFORMW 「も、もう……そういうのやめてよ、はずいなぁ……」
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORML 「え！？ い、いやいやいや……何言ってんのよもう……」
			PRINTFORMW （い、いきなり口説かれるとは思わなかった……）
		ELSE
			PRINTFORMW 「もー……隙あらばそうやってすーぐ煽てるんだから……」
		ENDIF
	CASEELSE
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW 「そういえば部長ってけっこー体力有そうだけど運動とかしてんの？」
			PRINTFORMW 「もしも筋トレ好きなら今度一緒にやろーよ筋トレ」
		CASE 1
			PRINTFORMW 「ん～？私の喜欢的东西～？そうだなぁ～……アゲハチョウ？」
			PRINTFORMW 「キアゲハの幼虫の足回りとか絶妙に可愛いと思うんだよね……同意得られたことないけど」
		CASEELSE
			PRINTFORMW 「ねぇ、この漫画４巻だけ無いんだけど知らない？」
		ENDSELECT
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	IF RAND:2
		PRINTFORMW 「ぅおっと……そんな手が出ちゃうほど浑身是汗だった？……有がとね」
	ELSE
		PRINTFORMW 「う……もしかして汗臭かった……？」
		PRINTFORMW %CALLNAME:TARGET%はちょっとだけ有点害臊并て、毛巾で拭かれるままになっている
	ENDIF
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	PRINTFORMW 「お、部長じゃん%TEXTR("。淋浴借りたよー/。部長も淋浴浴びたら？なかなか良いもんだよ/、いつのまに")%」
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW （%TEXTR("内衣の畳み方がちょっと私と違ったけど、まさかね……/なーんか内衣漁られた気もするけど……ま、使用料って事で見逃そ/この部長の微妙な態度……やられたかな？まぁいいけど")%）
	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_K43
	WAIT

CASE "互动：地の文前"
	SELECTCASE STR:日常イベント名
	CASE "按摩"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「もー……そんなこと言って私の身体さわりたいだけでしょ」
			PRINTFORMW 「ま、いいけどさぁ。とりあえず足揉んでくれる？」
		ENDIF
	CASE "接吻"
		IF TALENT:恋慕 == 0 && FLAG:二人きり == 0
			CALL EMOTION_PLUS, "重置/重度三白眼飘忽/△/对话框乱"
			PRINTFORMW 「そーゆーのやめてよ、バ情侣じゃあるまいし」
			STR:日常イベント名 =
		ENDIF
	CASE "一起学习"
		IF DAYEV("周考")
			PRINTFORMW 「うーん、しゃーない……いっちょやるとしますか」
		ELSEIF CEVENT("勉強で稼ぐ") || CEVENT("勉強もたまには")
			PRINTFORMW 「んー……今のところはしなくていいかなぁって」
			PRINTFORMW 「試験近くなったら、また誘って」
			CALL SET_CEVENT, "一起学习禁止"
			STR:日常イベント名 =
		ELSE
			PRINTFORMW 「え？いやいや冗談でしょ、テスト迫ってる訳でもないのに勉強とか……」
			IF MONEY >= 100
				CALL PRINT_SELECT, "冗談/冗談じゃない/分かった分かった＄100払うから付き合って"
			ELSE
				CALL PRINT_SELECT, "冗談/冗談じゃない"
			ENDIF
			SELECTCASE RESULT
			CASE 0
				PRINTFORMW 「あー惊嚇した……変な事言いださないでよね」
				CALL SET_CEVENT, "一起学习禁止"
				STR:日常イベント名 =
			CASE 1
				PRINTFORMW 「えーうそ、マジでー……？」
				PRINTFORMW 「なんか意外って言うか……ここホントにヤリサーなの？」
				PRINTFORMW 「でもまぁ……よくよく考えたら私も結構ヤバいしね。いいよ、ちょっとだけならね」
				CALL SET_CEVENT, "勉強もたまには"
			CASE 2
				CALL EMOTION_PLUS, "惊嚇"
				PRINTFORMW 「マジで？！」
				PRINTFORMW 「それならやる！！」
				CALL SETFLAG_DAILY, "夸奖"
				CALL SET_CEVENT, "勉強で稼ぐ"
			ENDSELECT
		ENDIF
	ENDSELECT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		IF DAYEV("周考")
			SELECTCASE CFLAG:勉強時間
			CASE IS >= 6
				IF RAND:3 == 0
					PRINTFORMW 「国語の答えは問題文に全部書いてあるとか言うけど、あれって嘘っぽくない？」
				ELSEIF RAND:2
					PRINTFORMW 「物理はなんか苦手なんだよなぁ……常識が正解を導く邪魔してるって言うか……」
				ELSE
					PRINTFORMW 「いや～今回はかなり真面目に準備した気がするね。割と良い点とれそう」
				ENDIF
			CASE 2 TO 5
				IF RAND:3 == 0
					PRINTFORMW 「暗記問題の度忘れって、どうしたら防げんのかなぁ……」
				ELSEIF RAND:2
					PRINTFORMW 「ん？この問題ってこっちの解き方の方が良くない？」
				ELSE
					PRINTFORMW 「う～ん、結構やった……けど、まだまだ範囲残ってるなぁ」
				ENDIF
			CASEELSE
				IF RAND:3 == 0
					PRINTFORMW 「マークシート形式だと良いなぁ、テスト」
				ELSEIF RAND:2
					PRINTFORMW 「ねーねーこの問題の答え見せてー」
				ELSE
					PRINTFORMW 「あっはっは、いやーやばいね！全然分かんないわ！」
				ENDIF
			ENDSELECT
		ELSE
			IF CEVENT("勉強で稼ぐ")
				PRINTFORMW 「学校の授業もお金貰えればいいのにね、こんな風にさ～」
				MONEY -= 100
				PRINTFORMW 所持金‐%MONEY_C(100)%
			ELSE
				PRINTFORMW 「ねーねーこの問題の答え見せてー」
			ENDIF
		ENDIF
	CASE "托一托胸部"
		IF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "重置/笑颜/ヮ"
			PRINTFORMW 「えっへっへどーよ、デカいでしょ」
			PRINTFORMW 「全然動じてないなって？そりゃね、絶対こういう事されるだろなって分かってたしね？」
			PRINTFORMW %CALLNAME:TARGET%は肩越しに%CALLNAME:MASTER%を見遣って悪戯っぽい笑顔を浮かべた。
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			CALL EMOTION_PLUS, "重置/紅潮"
			PRINTFORMW 「ホント飽きないねー。まぁうん、そんなに夢中になって貰えると悪い気はしないね」
		ELSE
			;你の性騷擾詳細はSTR:PLAY内容で分岐させることができる。
			SELECTCASE STR:PLAY内容
			CASE "乳环"
				IF RAND:3
			;		PRINTFORMW
			;		RETURN 1
				ENDIF
			CASE "陥没乳頭", "乳頭"
				IF RAND:3
			;		PRINTFORMW
			;		RETURN 1
				ENDIF
			CASE "巨乳輪"
				IF RAND:3
			;		PRINTFORMW
			;		RETURN 1
				ENDIF
			;胸部
			CASEELSE

			ENDSELECT

			;以下は汎用台詞
			CALL EMOTION_PLUS, "嘲笑２"
			PRINTFORMW 「ふふっ……気に入っちゃった？私の胸部」
			PRINTFORMW %CALLNAME:TARGET%はどことなく優越感を滲ませた様子でニヤリと微笑んだ。
		ENDIF
	CASE "按摩"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW %CALLNAME:TARGET%はだらーっとソファに身を横たえて、注文を付けつつマッサージを受け入れている…
		ELSE
			PRINTFORMW 「あー、うー、……好吃好吃……経験値高い？だけあって結構擅長だよね、こういうの」
		ENDIF
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSEIF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW 「Ｈの最中でもないのにこういう事するの、なんか抵抗あるんだよなぁ……」
		ENDIF
	CASE "膝枕"
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「……え？私がされるの？聞き間違いじゃなくて？」
			PRINTL
			PRINTFORMW 「う～ん……なんか落ち着かない……」
		ELSE
			PRINTFORMW 「まぁいいけど……」
		ENDIF
	CASE "泡茶"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「部長自らこういう事してんの？いいねいいね、こういうゆるいの」
		ELSE
			PRINTFORMW 「%TEXTR("お。有がと/いつも悪いねー/桑きゅー")%」
		ENDIF
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW 「いや～なんかいいね、こういうの。テンション上がってきた！」
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「ふふっ……スベスベでなかなか良いでしょ」
		ELSE
			SELECTCASE KABURAND(3)
			CASE 2
				PRINTFORMW 「敏感な悪魔もいるらしいけど、私はあんまりかなぁ」
				PRINTFORMW 「ということであんま気にせず触っていーよ」
			CASE 1
				PRINTFORMW 「こ～ら、あんまりシュッシュッてしないの～」
			CASEELSE
				PRINTFORMW 「部長も好きだね～これ」
			ENDSELECT
		ENDIF
	CASE "摸頭"
		SELECTCASE CONDS("直前行動")
		CASE "膝枕", "摸頭"
			CALL EMOTION_PLUS, "重置/闭眼/無口系/对话框・・・"
			PRINTFORMW %CALLNAME:TARGET%は目を閉じて、黙って撫でられている…
		CASEELSE
			CALL EMOTION_PLUS, "重置/△"
			PRINTFORMW 「やめて。頭撫でられるの好きじゃないの」
		ENDSELECT
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	;送禮貰った感想です。何を貰ったか含め、好きに書いてください
	CASE "送一份小礼物"
		CALL EMOTION_PLUS, "重置/笑颜"
		PRINTFORMW 「ん？くれるの、これ？桑きゅー」
	CASE "送一份普通的礼物"
		CALL EMOTION_PLUS, "重置/ほんわか/对话框爱心"
		PRINTFORMW 「おっ、これもしかしなくてもギフトカード？」
		PRINTFORMW 「いやぁ助かるなぁ～、有がたく要ね」
	CASE "送一份高价的礼物"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

CASE "撫摸頭髮"
	IF DEVENT(STR:日常イベント名) == 0
		CALL EMOTION_PLUS, "害羞"
		PRINTFORMW 「ちょっ……近いよ……」
	ELSE
		CALL EMOTION_PLUS, "害羞"
		PRINTFORMW 「……私の髪、好きなの？」
	ENDIF
;"坐在旁邊", "從後面抱住", "把手放在大腿上"は恋慕限定指令です
CASE "坐在旁邊"
	SELECTCASE KABURAND(3)
	CASE 2
		PRINTFORMW 「ん？なんか話でもあんの？」
	CASE 1
		PRINTFORMW 「……」
		PRINTFORMW %CALLNAME:TARGET%はチラッと横目で%CALLNAME:MASTER%の様子を伺った。
	CASE 0
		PRINTFORMW 「うおっ近ッ！」
	ENDSELECT
CASE "從後面抱住"
	IF CSTR:PREV_DAILYCOM != STR:日常イベント名
		SELECTCASE KABURAND(3)
		CASE 2
			PRINTFORMW 「わっ……どうかした？」
		CASE 1
			PRINTFORMW 「……重いんだけど？」
		CASE 0
			PRINTFORMW 「あっ、ちょっ……胸、揉まないでよ……」
		ENDSELECT
	ELSE
		PRINTFORMW 「……暑いんだけど？」
	ENDIF
CASE "把手放在大腿上"
	SELECTCASE KABURAND(3)
	CASE 2
		PRINTFORMW 「まぁ……いいけどさぁ……」
		PRINTFORMW %CALLNAME:TARGET%は普段よりもジトっとした目で%CALLNAME:MASTER%を轻轻地見つめた。
	CASE 1
		PRINTFORMW 「…………私もやる」
		PRINTFORMW %CALLNAME:TARGET%も%CALLNAME:MASTER%の太ももを撫でまわし始めた！
		PRINTFORMW ちょっとくすぐったい……
	CASE 0
		PRINTFORMW 「ちょっとぉ……くすぐったいんだけど……」
	ENDSELECT
;この中でTFLAG:取引拒否 = 1とすると母乳を分けてあげません
CASE "哺乳"

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

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW 「ぶちょーってば闲そーじゃない」
		PRINTFORMW 「……どう？私に付き合わない？」
		IF COND("Ａ塞子引き抜き") && COND("身嗜み：Ａ準備") && COND("Ａ清洁口交可能") && COND("Ａ熟達")
			PRINTFORM %CALLNAME:TARGET%上目遣いで%CALLNAME:MASTER%を見つめながら%TEXTR("肛門を埋めていた/自己的/抜いたばかりの")%肛塞%TEXTR("に轻轻地接吻をして/に舌を這わせ/を口で咥え")%、
			PRINTFORMW %TEXTR("肛門性交の準備が出来ている/お腹の中がしっかり綺麗な/しっかり廁所が済ませてある")%事をアピールしている……
		ENDIF
	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:3 == 0
			PRINTFORMW 「……」
		ELSEIF RAND:2
			PRINTFORMW 「ぼーっとしてるなんて珍しいね。なんか悩みでもあんの？」
		ELSE
			PRINTFORMW 「ねーねー何してんの～？私も混ぜてよ～」
		ENDIF
		IF EXP:Ｈ回数 && ABL:信頼 >= 2 && ABL:欲望 >= 2 && CFLAG:夸奖 + CFLAG:甜言蜜语
			PRINTFORMW %CALLNAME:TARGET%は从后面将%CALLNAME:MASTER%の頭に抱きついて、大号的胸を押し当ててきた。
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW 「お。シンクロニシティってやつだね」
		ELSE
			PRINTFORMW 「私がいない間になんか面白色ことあったぁ？」
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「ちょっと席取下ね」
	ENDIF
CASE "廁所詮索"
	IF RAND:2
		PRINTFORMW 「んー……まぁ……秘密？」
		PRINTFORMW 秘密らしい。
	ELSE
		PRINTFORMW 「んー？廁所だけど……なんか私に用事でもあったりした？」
	ENDIF
;これは你と角色が両方男性の際に限り起きます
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_K43
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
		PRINTFORMW 「え？……え？いやいや何言ってんの、正直ドン引きだわ……」
	;この時間で初実行
	ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「ん？見たいの？いーよー」
	ELSE
		PRINTFORMW 「んー？また見たいの？モテる女はつらいなぁ……」
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K43
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K43
		WAIT
	;初めて
	ELSEIF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「うわ……確かにＯＫ出してたけど、マジでこういう事すんのね……まぁいいけどホント凄いね、この部活」
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		PRINTFORMW 「うーん……こういう事されてる時って何するのが良いんだろね」
	;この時間で初実行
	ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0
		IF CHECK_CLO("外套露出") && CHECK_OUTER("连褲襪") == 0
			PRINTFORMW 「いやー……わざわざ脱がして確かめてるのって、冷静になるとなかなか凄い光景だよね。もちろん悪い意味で」
		ELSE
			PRINTFORMW 「やれやれ。いかがですかね部長桑、今日の私の胖次の得点は」
		ENDIF
	ELSE
		PRINTFORMW 「え、また？飽きないなぁ……」
	ENDIF
;念のため分岐を作って有ますが多いので取捨選択してください
CASE "撫摸股間"
	;初めてorこの時間で初実行
	IF DEVENT(ARGS) == 0 || (CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:4 == 0)
		IF FLAG:二人きり == 0
			CALL EMOTION_PLUS, "害羞"
			PRINTFORMW 「う、うーん……こういうことは、他の人がいない時にして欲しいなぁ……凄い視線感じるんだけど……」
		ELSE
			CALL EMOTION_PLUS, "惊嚇"
			PRINTFORMW 「ひゃっ？！」
			CALL EMOTION_PLUS, "害羞"
			PRINTFORMW 「ご、ごめん突然だったから大声出ちゃった……続けて、いいよ」
		ENDIF
	;連続実行
	ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
		SELECTCASE KABURAND(3)
		CASE 2
			CALL EMOTION_PLUS, "害羞/闭眼/△"
			PRINTFORMW 「あんま同じとこばっか触んないでよね……あとで痛くなったりするからさぁ」
		CASE 1
			CALL EMOTION_PLUS, "害羞/△/对话框乱"
			PRINTFORMW （あーもー……あとで廁所行った時に拭かないと……めんどいなぁ）
		CASEELSE
			CALL EMOTION_PLUS, "害羞/紅潮２"
			PRINTFORMW 「あっ……ちょ、ちょっと……\@ TALENT:処女 ? そこ弄 # 指插入 \@るのは……んんっ……」
		ENDSELECT
	;この時間で初実行
	ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0
		;阴部を直に弄る場合
		IF CHECK_CLO("Ｖ露出")
			IF CHECK_CLO("股間露出")
				CALL EMOTION_PLUS, "害羞/对话框汗"
				PRINTFORMW 「あー……まぁ……これはこんな格好してる私が悪いよね、うん」
				PRINTFORMW 「だからまぁ……いいよ、自由にさわって」
			;穴あき胖次など
			ELSEIF EQUIP:胖次
				CALL EMOTION_PLUS, "躁动难忍"
				PRINTFORMW 「へへへ……ど、どうかな、今日はちょっと攻めてみたんだけど」
				PRINTFORMW 「……惊嚇した？」
			;没穿内褲
			ELSE
				CALL EMOTION_PLUS, "害羞"
				PRINTFORMW 「あーいや、これは違って……いや、違くないな……まぁ、そ、そういう事だよ」
			ENDIF
		;连褲襪越し
		;ELSEIF CHECK_CLO("连褲襪露出")
		;	PRINTFORMW
		;布鲁马越しor泳装越し(比基尼や競泳泳装や死库水など)
		ELSEIF CHECK_CLO("泳装ボトム露出") + CHECK_CLO("布鲁马露出") && CEVENT("厚布越しに撫でる") == 0
			CALL EMOTION_PLUS, "害羞/对话框・・・"
			PRINTFORMW 「あー……やっぱこういう格好の時って興味出るもん？」
			PRINTFORMW 「授業の時なんかも視線凄いもんなぁ……」
			CALL SET_CEVENT, "厚布越しに撫でる"
		;布鲁马越しor泳装越し(比基尼や競泳泳装や死库水など)
		ELSEIF CHECK_CLO("泳装ボトム露出") || CHECK_CLO("布鲁马露出")
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "害羞/へ字３"
				PRINTFORMW 「う……その触り方、なんかゾワゾワする……」
				PRINTFORMW 布と肌の境目部分を慢慢地なぞられた%CALLNAME:TARGET%は少しくすぐったそうな反応を見せた。
			ELSEIF RAND:2
				CALL EMOTION_PLUS, "红潮恍惚"
				PRINTFORMW 「言っても効かなさそうだからもう止めないけど……力入れてグリグリしたりとかは没有だかんね」
			ELSE
				PRINTFORMW 「ふぅ……布越しにここ弄るの、本当に好きだよね」
				PRINTFORMW 「こだわりの繊維配合比率とかあったりすんの？」
			ENDIF
		ELSE
			IF RAND:3 == 0
				CALL EMOTION_PLUS, "惊嚇/△/紅潮２"
				PRINTFORMW 「うおっとぉ……こう言うことは一言断ってからにして欲しいけど……そういう事じゃないんだろうね」
				PRINTFORMW 「しょうがないなぁ……ふぅ」
			ENDIF
		ENDIF
	ENDIF
	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	IF RAND:2
		CALL EMOTION_PLUS, "害羞/△"
		PRINTFORMW 「あっ、ちょっ……お、お尻の方触るのはちょっとやめて……」
	ELSE
		CALL EMOTION_PLUS, "害羞"
		PRINTFORMW 「う……あんま激烈地はしないでよね……」
	ENDIF

CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K43
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
		IF CHECK_OUTER("布鲁马")
			PRINTFORMW 「お？なになに私の布鲁马姿に見惚れちゃった？」
			PRINTFORMW %CALLNAME:MASTER%の視線に気づいた%CALLNAME:TARGET%は坏心眼げに微笑んだ。
		ELSEIF CHECK_CLO("Ｖ露出")
			CALL EMOTION_PLUS, "红潮恍惚/对话框乱"
			PRINTFORMW 「ちょっと、顔近いってば……ああもう、息が当たってくすぐったいなぁ……」
		ELSE
			PRINTFORMW 「……ま、いいけどね。このぐらいのことならさ」
			PRINTFORMW 視線に気づいた%CALLNAME:TARGET%は、%CALLNAME:MASTER%が見やすい様にと不动声色地体勢を変えた。
		ENDIF
	ELSE
		PRINTFORMW %CALLNAME:TARGET%は特に気づいて是ないようだ…
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0 || RAND:3 == 0
			PRINTFORMW 「さっきからチラチラ見ちゃってさぁ……バレてないとでも思ってたの？ん？」
		ELSEIF RAND:2
			PRINTFORMW 「ふふふ、掀起裙子阻止……なんちゃって」
		ELSE
			PRINTFORMW 「わかってる、わかってる。これが見たいんでしょ？」
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
			PRINTFORMW （……まぁいいや。眠いし……）
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K43
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			CALL EMOTION_PLUS, "害羞"
			PRINTFORMW 「うわー……本当にやってきたよ……こりゃ下手な内衣は穿いてこれないなぁ……」
		ELSE
			IF COND("打招呼前")
				PRINTFORMW 「いやー相変わらず手が速いねー部長は」
				PRINTFORMW 「でもまーさっすがに打招呼してからの方が良いと思うよこういうの」
			ELSE
				PRINTFORMW 「もー……兒童じゃないんだからさぁ……」
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			CALL EMOTION_PLUS, "害羞"
			PRINTFORMW 「ちょっ、そういうのやめてよ、もう……」
		ELSE
			PRINTFORMW （……見ない振りしとこ）
		ENDIF
	ELSE
		CALL EMOTION_PLUS, "害羞"
		PRINTFORMW 「う、うーん、せめて私の見てないとこでやるとかさぁ……」
	ENDIF
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		CALL EMOTION_PLUS, "重置/嘲笑２/紅潮２"
		PRINTFORMW 「ふ……ちょっと坏心眼してみたり」
	CASEELSE
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「……言うまでもないと思うけど、他の人には見せないでよね」
		ELSEIF CHECK_OUTER("布鲁马")
			IF RAND:3 == 0
				PRINTFORMW 「ところでさ……こういう写真って、下に穿いてる胖次とかで違い出たりするもん？」
			ELSEIF RAND:2
				PRINTFORMW 「んーちょっと待って一応履き直してズレなくすから……よし、いいよ」
			ELSE
				PRINTFORMW 「え、もっと脚開くの？布鲁马と太ももの境目が大事？……はぁ」
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW 「もうちょい突き出した方が良いかな？だいじょぶ？じゃ、これで行こうか」
			ELSEIF RAND:2
				PRINTFORMW 「こんな感じで良いかな……うん。ほらいーよ、撮って撮って」
			ELSE
				PRINTFORMW 「なんか注文あったら言ってね、どうせなら良い写真にしたいし」
			ENDIF
		ENDIF
	ENDSELECT
CASE "内褲摄影", "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		CALL EMOTION_PLUS, "小悪魔/对话框爱心"
		CALL PRINT_STRW, "「……ふふ_UH_」"
	CASEELSE
		IF DEVENT("内褲摄影") + DEVENT("裙下撮影") == 0
			CALL EMOTION_PLUS, "重置/△/叹气"
			PRINTFORMW 「はー……ホント好きだね、胖次。……感心するよ」
			PRINTFORMW 「で、どう？もっと脚広げたりした方が良いの？」
		ELSE
			PRINTFORMW 「%TEXTR("どう？よく見えてる？/ねぇ、もっと足開いた方が良い？/……胖次汚れてないよね？もしそうなら言ってよ？")%」
		ENDIF
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		CALL EMOTION_PLUS, "憤怒"
		PRINTFORMW 「いやいやいや、流石にこれはダメ！」
		PRINTFORMW 「なんでって……当たり前じゃん！！」
	CASE "阴部の見せつけ撮影"
		IF RAND:2
			CALL EMOTION_PLUS, "害羞/对话框爱心"
			PRINTFORMW 「ね……どうせなら、こっちを撮ってみない？」
		ELSE
			CALL EMOTION_PLUS, "小悪魔"
			PRINTFORMW 「もー……ほんと、Ｈ的んだから」
		ENDIF
	CASEELSE
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「……言うまでもないと思うけど、他の人には見せないでよね」
		ELSE
			CALL EMOTION_PLUS, "Ｗ剪刀手"
		ENDIF
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

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

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 "性欲解消を申し出た際の反応"
	SELECTCASE STR:PLAY要望
	CASE "舐陰"
		IF CEVENT("清洁舔阴初体験") && RAND:3 == 0
			PRINTFORMW 「あーじゃあ、舌でして貰って良いかな？」
			PRINTFORMW 「前してくれたみたいに、中までしっかり舐めてくれると嬉しいなぁ」
		ENDIF
	CASE "舐陰莖"

	CASE "口交"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
	IF LINECOUNT == MEMO_LINECOUNT
		IF FLAG:二人きり
			PRINTFORMW 「あ、マジ？じゃあちょっとお願いしよっかな……」
		ELSE
			PRINTFORMW 「う～ん……まぁ、いいか。お願いします」
		ENDIF
	ENDIF
;STR:PLAY要望 が本来したいPLAY。STR:PLAY内容 が你がやりたいと言って交渉中のPLAY
;ここの中で STR:PLAY内容 を変更する事で提案を蹴る事も出来る。什麼也不做場合は你の提案が通る
CASE "性欲解消の内容変更を頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "舐陰"

	CASE "舐陰莖"

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

		ELSE

		ENDIF

	CASE "Ａ性交"

	CASE "尿道性交"

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

		ELSE

		ENDIF
	CASE "舐陰莖"

	CASE "口交"

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

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

			CASE "Ａ性交"

			CASE "尿道性交"

			ENDSELECT
		ENDIF
	ENDSELECT
;主人公のスマホに一緒にお昼食べようよと邀请際に送る連絡文です
;ここで TFLAG:地の文スキップ = 0 とすると下の"お昼ご飯のお誘い"での地の文をカットできる
CASE "お昼ご飯のお誘い"
	PRINTFORMW 『%CALLNAME:TARGET%だよ～一緒にお昼食べよ～』
;実際に二人昼食をとっている時です
CASE "一緒にお昼ご飯"
	PRINTFORMW 「そいえば部長は普段どこの学校食堂で食べてんの？」
	PRINTFORMW 「どっか美味しいとこ知ってたら教えてよ～」
;部室で二人きりの時に坐在旁邊際のセリフです
CASE "二人きり：坐在旁邊"
;部室で二人きりの時にＨに邀请際のセリフです
CASE "Ｈに邀请"
CASE "二人きり：Ｈの誘いに胖次条件で回应"
CASE "二人きり：Ｈの誘いに回应"
CASE "二人きり：Ｈの誘いを断った"
ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
	PRINTFORMW 「ねね、今週末って闲？よかったら一緒に玩耍に行こうよ」
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「やったね！ふふふ」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「ちぇ～なんだよ、もう」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
	IF EXP:约会経験 == 0
		PRINTFORMW 「ん？週末に一緒に玩耍たいの？」
		PRINTFORMW 「うん、いいよ。……ちょっと楽しみかも」
	ELSE
		PRINTFORMW 「约会？うん、いいよ。行こ行こ」
	ENDIF
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;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
	ELSE
		PRINTFORMW 「ふーっ……結構楽しかったね。うん、なかなか良い一日だったかも」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW 「おっと、まだ終わってなかったのね。いいよいいよー付き合ったげる」
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

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

;台詞を書いたら下の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/43 うお子/EVENT_K43_DAILY.ERB


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

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K43_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_K43_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K43_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

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

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

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K43_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 "睡眠時追加選択肢その１"
	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_K43_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K43_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_K43_ADDSELECT
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

path: ERB/EVENT_K/43 うお子/EVENT_K43_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE
			PRINTFORMW 「えぇ～……そういうのはＨの前に済ませておいてよ」
		ENDIF
	ELSE
		PRINTFORMW 「あんまめんどい事は言わないでよ～？」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		CALL EMOTION_PLUS, "惊嚇/紅潮２"
		PRINTFORMW 「…………えっ！？」
		PRINTFORMW 「いやいやいや、何言ってんの部長……えっ！？マジ？」
		CALL EMOTION_PLUS, "重置/闭眼/困扰眉/ω/紅潮２"
		PRINTFORMW 「そ、そっかぁ……部長が私の事をねぇ…………確かに付き合い自体は結構……うん。……うん」
		PRINTFORMW 红了脸的%CALLNAME:TARGET%は、溢れる汗を拭いながら思案している……
		PRINTL
		CALL EMOTION_PLUS, "重置/憤怒眉/ワ/紅潮２"
		PRINTFORMW 「よし！決めた！受ける！！」
		PRINTFORMW 「それじゃあ部長、これからもよろしくね！！」
	;失敗
	ELSE
		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

		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「は？ ……え、えぇー……ちょっと、本気……？」
		PRINTFORMW 「なんか常識ぶっ壊れるなぁ……」
	ELSE

	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 "事后避孕药取引"

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 「うっ……ぐっ……ぐぬぬ、だいぶ心惹かれるけど……流石に没有！」
CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「えぇ～めんどいからちょっと……そういうのは得意そうな別の人に頼んでよ」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	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 "淫紋拒否"
	PRINTFORMW 「あー、悪いけどそういうのはバイト先が禁止してるからダメ」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	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 "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"
	CALL EMOTION_PLUS, "重置/△/对话框？"
	PRINTFORMW 「は？何言ってんの？」

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

CASE "给我看尾巴拒否"
	PRINTFORMW 「う～ん……私としては別にどうでもいいんだけど、お婆酱がみだりに見せるなってうるさかったからなぁ」
	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
	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, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「おｋおｋ、そんぐらいならいいよ～」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「んー？便利店にでも行くの？」
		PRINTFORMW 「……は？エロショップ？いやいや、なんで私が一緒に行く必要あんのよ……」
		PRINTFORMW とか言っていた%CALLNAME:TARGET%だったが、もう一度誘ったらあっさりついてきた。
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「こんな格好で行って、お店の人に迷惑かかんないのだろうか……」
	ELSE
		PRINTFORMW 「んー？ついてきて欲しいの？仕方ないなぁ」
	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

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

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

	ELSE
		PRINTFORML 「ふーん……」
		PRINTFORMW %CALLNAME:TARGET%は興味深げに店内を眺めている
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

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

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/43 うお子/EVENT_K43_SHOP.ERB