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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW 「在这种时候…？」
		ELSE
			PRINTFORMW 「…如果有事的话、快点说吧」
		ENDIF
	ELSE
		PRINTFORMW 「有什么事情呢…？」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「哎…？」
		PRINTFORMW %CALLNAME:MASTER%向朝着这边微笑的%CALLNAME:TARGET%传达了自己的想法…
		PRINTFORMW %CALLNAME:TARGET%一时之间没能很好地理解自己听到的话语
		PRINTFORMW 在最终反应过来之后，她好像突然失去了控制一样跳进了%CALLNAME:MASTER%的怀里，不停地发出细微的呜咽声…
		;乙女パワーがたまりきっていないので暫定的に上のものとしておくが、たぶん加湿修正する
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW
		;PRINTFORMW

	;失敗
	ELSE
		PRINTFORMW 「…我会当作没听见的」
		PRINTFORMW 说着这种话的%CALLNAME:TARGET%的表情、不知为何很悲伤…
		;正直好感度500くらい下げたい
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「……」
		PRINTFORMW 「你……もしかしてわかっていて言ってるの？」
	ELSE
		PRINTFORMW 「没有穿所以、没法给你啊」
		PRINTFORMW 「……嘁」
		PRINTFORML
		PRINTFORMW 恐ろしく鋭い舌打ちだ……
	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && (BASE:識別番号%(DAY*10 + TIME) )%4 == 0
			PRINTFORMW 「……」
			PRINTFORML
			PRINTFORMW %CALLNAME:TARGET%は%TEXTR("ものすごく嫌そうな顔で/とてつもなく微妙な顔で/限界まで顔をしかめながら/頭痛を忍住ような表情を浮かべながら/恐ろしく深い溜息を吐いて")%胖次を引き渡してきた……
			TFLAG:取引価格 = 3000
		ELSE
			PRINTFORMW 痛いほどの沈黙の後、%CALLNAME:TARGET%は胖次を投げ渡してきた……
		ENDIF
	;断られる
	ELSE
		IF RAND:2 == 0
			PRINTFORMW 「才不给」
		ELSE
			PRINTFORMW 「不给」
		ENDIF
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 2000
	ENDIF

CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW 「……」
		PRINTFORMW 「虽然知道你是个性癖奇怪的人…」
		PRINTFORMW 「你这种人啊、至少在面对自己认为有价值的东西时还是很诚实的」
		PRINTFORMW 「反过来说、你这种行为…总结一下就是、连兴趣都算不上的自我满足吧？」
	ELSE
		PRINTFORMW 「…如果是被碰到内裤的话、当事人的女性应该不会感到为难吧」
		PRINTFORMW 「不过对女性的贴身衣物渴求至如此地步…」
		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 "事后避孕药取引"

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 "同居拒否"
	IF RAND:3 == 0
		PRINTFORMW 「……急に言われても、ね」
		PRINTFORMW 「せめて、ひと月前に言いなさい」
		PRINTFORMW 「そしたら、考えるくらいはして给、わ」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「才不给」
		PRINTFORMW 「……話はそれだけ？」
		PRINTFORMW 「じゃあ、向こうへ行って」
	ELSE
		PRINTFORMW 「そう」
		PRINTFORMW 「一昨日来なさい」
	ENDIF
CASE "同居希望"
	IF RAND:3 == 0
		PRINTFORMW 「そう、じゃああれ」
		PRINTFORML
		PRINTFORMW そう言って%CALLNAME:TARGET%が示した方向を見ると、大号的旅行鞄が一つ置いてある……
		PRINTFORML
		PRINTFORMW 「荷物持ちくらいは、してくれるのでしょう？」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「哎哎，没有関系啊」
		PRINTFORMW 「……ああ、準備については心配しないで」
		PRINTFORMW 「今日、你が家に着くころに、業者の人が運んでくれるから、ね」
	ELSE
		PRINTFORMW %CALLNAME:TARGET%は深々と叹气を吐くと、手元のメモ帳に何かを書き込んだ。
		PRINTFORMW するとメモ帳の页が蝶のように羽ばたき、近くの窓から外へと飛んで行った……
		PRINTFORML
		PRINTFORMW 「……連絡は入れたわ」
		PRINTFORMW 「でも次は、もっと早くに言って」
	ENDIF
CASE "同居頻度的相談"
	IF RAND:2 == 0
		PRINTFORMW 「……まあ、你の都合に合わせる、わ」
	ELSE
		PRINTFORMW 「あまり細かく行き来するのは、%CNAME("一人称")%も手間なのだけど……」
	ENDIF
CASE "便当拒否"
	IF RAND:2 == 0
		PRINTFORMW 「让我做这种不包括在契约范围内的行为、敢问你%CNAME("一人称")%提出这种要求的理由是什么呢？」
		PRINTFORMW 「愿意给你做便当吃的女孩子、除我以外还有很多人吧？」
	ELSE
		PRINTFORMW 「申し訳ないけれど、他を当たってちょうだい」
		PRINTFORMW 「他人様に振舞うほどの腕ではないし、そんな自信も余裕もない、の」
	ENDIF
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「……」
		PRINTFORMW 「%TEXTR("你が良ければ、いいのだけど/そうね、かまわないわ/努力はする、わ")%」
			IF TALENT:恋慕
				IF RAND:3 == 0
					PRINTFORMW 「%CNAME("一人称")%にだって、好きな相手に手料理を食べて欲しい、と」
					PRINTFORMW 「也是会有这种想法的呢」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「なるべく、美味しくなるよう、頑張るから」
				ELSE
					PRINTFORMW 「……あまり、期待はしすぎないで、ね」
				ENDIF
			ELSE
				PRINTFORMW 「不过、最好提前准备好胃药」
			ENDIF
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「你认真的？」
		PRINTFORMW 「不、虽然%CNAME("一人称")%是没什么関系啦」
			IF TALENT:恋慕
				PRINTFORMW 「ただ……%CNAME("一人称")%はあまり、料理の経験があるわけではないから」
				PRINTFORMW 「正直なところ、ただただ美食を求めているなら、他の子に頼んだほうがいいと思う、けど」
			ELSE
				PRINTFORMW 「ただ……もし%CNAME("二人称")%が今の%CNAME("一人称")%との間に、擬似的な恋愛関係のようなものを投影しているのなら」
				PRINTFORMW 「一定、只会给彼此带来不幸、我把话先说在这里、懂吗」
			ENDIF
		PRINTFORMW 「明白这一点之后、如果你还坚持的话」
		PRINTFORMW 「%CNAME("一人称")%就没有拒绝的理由了、呢」
	ENDIF

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

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0
				PRINTFORMW 「あまり、気が進まないのだけど……」
			ELSE

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

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

;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"
	IF RAND:6 == 0
		PRINTFORMW 「お気遣い有がとう」
		PRINTFORMW 「気持ちだけ服用しておくわ」
	ELSEIF RAND:5 == 0
		PRINTFORMW 「こういうものも、飲めれば楽なのでしょうけど、ね」
		PRINTFORMW 「生憎と、%CNAME("一人称")%の体はその手のものを受け付けないの、よ」
	ELSEIF RAND:4 == 0
		PRINTFORMW 「その手の薬は肌に合わないの」
		PRINTFORMW 「ごめんなさいね」
	ELSEIF RAND:3 == 0
		PRINTFORMW 「……ああ、ごめんなさい」
		PRINTFORMW 「体質や魔術の関係で、%CNAME("一人称")%はこの手の薬を服用できない、の」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「面倒なことではあるけれど」
		PRINTFORMW 「月のもの、というのも、占星術師にとっては必要なものなの、よ」
	ELSE
		PRINTFORMW 「だめよ」
		PRINTFORMW 「……你が何と言っても、だめ」
	ENDIF
CASE "淫紋拒否"
	IF RAND:3 == 0
		PRINTFORMW 「……そこまで、你を信用しきれていないの」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「才不给」
		PRINTFORMW 「……何をされるか、わからないもの」
	ELSE
		PRINTFORMW 「一昨日来なさい」
	ENDIF
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW %CALLNAME:TARGET%は深呼吸を何度か繰り返したあと、意を決して%CALLNAME:MASTER%に頷いて見せた……
	ELSE
		IF RAND:6 == 0
			PRINTFORMW 「……せめて、綺麗に貼りなさい」
		ELSEIF RAND:5 == 0
			PRINTFORMW 「……これ、毎回緊張するのよ、ね」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「技術の進歩を喜べばいいのか、倫理の後退を嘆けばいいのか……」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「……これも、技術の進歩というものなのかしら」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「……身体に魔法陣を刻むのは、一流の彫紋師に頼むような大仕事だったはずなのに」
			PRINTFORMW 「今ではこんなシール一つで、だものね」
		ELSE
			PRINTFORMW 「……魔法陣すら、型紙にスプレーで描くような時代だものね」
			PRINTFORMW 「やれやれ……」
		ENDIF
	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「……ふぅ」
	ELSE
		IF RAND:3 == 0
			PRINTFORMW シールを張り終えた%CALLNAME:TARGET%は、先ほどよりも臉上泛起了紅潮いるように見える……
		ELSEIF RAND:2 == 0
			PRINTFORMW 「……何度やっても、慣れないわ」
		ELSE
			PRINTFORMW 「……二十秒だけでいいから、それ以上近づかないで」
		ENDIF
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 1
	;特定条件を満たさない限り淫紋拒否に飛ばすようにしたい
	;その時はここになんか重めのワードで拒否るやつ入れたうえでジャンプさせたい
		PRINTFORMW %CALLNAME:TARGET%は一瞬だけ目を伏せた後、%CALLNAME:MASTER%の目を正面から見つめて言った。
		PRINTFORML
		PRINTFORMW 「仮に%CNAME("一人称")%が、魔道の徒でなかったとして」
		PRINTFORMW 「仮に%CNAME("一人称")%が、ただの女だったとして」
		PRINTFORMW 「その肌に墨を入れる意味を、きちんと理解している、のよね」
		PRINTFORML
		PRINTFORMW 「否、答えなくていい、わ」
		PRINTFORMW 「たとえ今の你の言葉が、単なる興味本位だったとして」
		PRINTFORMW 「ほんの気まぐれ、好奇心、所有欲、あるいは他の何かだったとして」
		PRINTFORMW 「それを接受ことを決めたのは、%CNAME("一人称")%だもの」
		PRINTFORML
		PRINTFORMW 「……でも、覚えておきなさい」
		PRINTFORMW 「你は今、一人の女に、消えない証を刻むの、よ」
		PRINTFORML
		PRINTFORMW 「もう、知っているでしょうけど」
		PRINTFORMW 「%CNAME("一人称")%、少し面倒な性格、だから」
		PRINTFORMW 「覚悟しておくことね」
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	IF RAND:3 == 0
		PRINTFORMW 「单纯做那些事、已经满足不了你了吗？」
		PRINTFORMW 「定期的な性交渉は、契約の本旨にも適うことだけど…」
		PRINTFORMW 「话虽如此、但也得有个限度啊…」
		PRINTFORMW 「…正因如此才这么强烈地渴求%CNAME("一人称")%的身体、这样想的话」
		PRINTFORMW 「…好吧」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「……つくづく、呆れた性欲、ね」
		PRINTFORMW 「その恩恵に与っている%CNAME("一人称")%が、言えたことではないけれど」
		PRINTFORMW 「……他の子の負担になるくらいなら、そうね。いいでしょう」
	ELSE
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("俯いて長々と叹气を吐いた後/頭痛を忍住ように頭に手を当てた後/斜眼でこちらを睨みながら")%、%TEXTR("いかにも不承不承といった感じで/仕方なさそうに/諦めたように")%了承してくれた……
	ENDIF
CASE "性処理の一時中断"

CASE "性処理拒否"
	IF RAND:2 == 0
		PRINTFORML %CALLNAME:MASTER%は%CALLNAME:TARGET%に性処理の打診をしようとしたが、
		PRINTFORMW なぜか毎回ちょうど良い領帯ミングで席を外されてしまっていた。
		PRINTFORMW ……今日のところは諦めたほうがいいかもしれない。
	ELSE
		PRINTFORML 性処理について%CALLNAME:TARGET%に頼もうとしていたのだが、
		PRINTFORMW それを言おうとした瞬間に、痺れたように%CALLNAME:MASTER%の声が出なくなってしまった。
		PRINTFORMW ……素知らぬ顔をしているが、明らかに%CALLNAME:TARGET%の仕業だろう……
	ENDIF
;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

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

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	;その角色の普段の髪型(光滑柔顺や乱髪にはできないので、角色次第ではこの分岐には来ません)
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "盘頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
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, "拒否")
	IF RAND:3 == 0
		PRINTFORMW 「对并不亲近的女生提出过多的要求、并沉浸于这种快感的人虽然我也遇到过…」
		PRINTFORMW 「但我希望自己可以相信、你并不是那种人、呢」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「就算对亲近的伙伴也要有礼貌、哟」
		PRINTFORMW 「関系不亲近的话就更该如此了」
	ELSE
		PRINTFORMW 「不要让我失望」
	ENDIF
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	IF RAND:3 == 0
		PRINTFORMW 「嘛、那好吧」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「我倒不在意」
	ELSE
		PRINTFORMW 「这样、你会高兴的话」
	ENDIF

ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「もっとまともな店に来ようとは思わないの？」
	;着替えてもらう
	ELSEIF CHECK_CLO("泳装姿")
		PRINTFORMW 「わざわざ着替えさせてまで……」
		PRINTFORMW 「你倒是心情挺不错呢…」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「……」
		PRINTFORMW 「まあ、学生が体育の帰りに便利店へ寄るようなものと考えれば……」
		PRINTFORMW 「……そもそも、学生が利用していい店、なのかしら……？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF RAND:3 == 0
			PRINTFORMW 「正気……？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「好冷……」
		ELSE
			PRINTFORMW 「……こういう時、精神に干渉する魔術を会得していてよかったと思うわ」
		ENDIF
	ELSE
		IF RAND:5 == 0
			PRINTFORMW 「これ、人選ミスじゃないかしら……」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「……荷物持ちは期待しないで、ね」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「……下手に、知らないところで妙なものを買われるよりは、か」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「……通販なんかでは、いけないの？」
		ELSE
			PRINTFORMW 「……そうね、じゃあ行きましょうか」
		ENDIF
	ENDIF
CASE "目送"
	PRINTFORMW 「不要买一些浪费钱的东西就好、呢」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		IF RAND:3 == 0
			PRINTFORMW 「……本当に、良い趣味だこと」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「……変態ね」
		ELSE
			PRINTFORMW 「……まあ、どうせ見せるわけでもないもの、ね」
		ENDIF
	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORMW 「你倒是心情挺不错呢…」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「……」
		PRINTFORMW 「まあ、学生が体育の帰りに便利店へ寄るようなものと考えれば……」
		PRINTFORMW 「……そもそも、学生が利用していい店、なのかしら……？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF RAND:3 == 0
			PRINTFORMW 「正気……？」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「好冷……」
		ELSE
			PRINTFORMW 「……こういう時、精神に干渉する魔術を会得していてよかったと思うわ」
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬",

	CASE "飞机杯"
		IF RAND:3 == 0
			PRINTFORMW 「女性器を模した性玩具……」
			PRINTFORMW 「こういうのが、好みなのかしら」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「正直、你の趣味は良くわからないけれど……」
			PRINTFORMW 「……これでいいかしら？」
		ELSE
			PRINTFORMW 「……」
			PRINTFORMW 「…………」
			PRINTFORMW 「………………」
		ENDIF
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「为了避免意外怀孕、或者说为了轻松地拦截住作为怀孕媒介的男性精液」
			PRINTFORMW 「因此要事先把避孕套准备好、这可是非常重要的事情哦」
			PRINTFORMW 「……それを、あえて女に買わせることは別として、ね」
		ELSE
			PRINTFORMW %CALLNAME:TARGET%手里拿着几套避孕套，一脸认真地反复斟酌着……
		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/41 栞/EVENT_K41_SHOP.ERB