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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW 「んっ、う、ど、どうしたのー？」
		ELSE

		ENDIF
	ELSE
			PRINTFORMW 「なになに、どしたの～？」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		;エンディングの結果によって分岐
		IF CFLAG:寄るところ結果 == 2
			CALL EMOTION_PLUS, "目開け", TARGET
			PRINTFORMW 「……有がと」
			CALL EMOTEFACE, "笑顔/赤面２", TARGET
			PRINTFORMW 「有がと、うれしい……」
			PRINTFORMW 「待ってたんだからね」
			PRINTFORMW 「もしかして、%CNAME("二人称")%のほうから言いたかった、とか？ま、いいか」
			PRINTFORMW 「一緒にたく桑、たのしいことして、いろんなもの見て、えっちなことも、して……？ん、」
			PRINTFORMW 「たく桑、生きようね」
			PRINTFORMW 「ね～」
		ELSEIF CFLAG:寄るところ結果 == 3
			CALL EMOTION_PLUS, "目開け/栗口", TARGET
			PRINTFORMW 「诶」
			CALL EMOTEFACE, "笑顔/赤面２", TARGET
			PRINTFORMW 「……呼呼」
			PRINTFORMW 「うれしい……うれしいよ、%CNAME("一人称")%」
			PRINTFORMW 「有がと、その、あのとき、頭の中わーってなっちゃって、」
			PRINTFORMW 「あんなこと言っちゃって……ごめんね……ちょっと心配だったの」
			PRINTFORMW 「でも、受け入れてくれるんだよね、%CNAME("一人称")%のこと」
			PRINTFORMW 「ふふ」
			PRINTFORMW 「……」
			PRINTFORMW 「たーっく桑、一緒に生きよ？」
		ELSE
			CALL EMOTION_PLUS, "目開け", TARGET
			PRINTFORMW 「……有がと」
			CALL EMOTEFACE, "笑顔/赤面２", TARGET
			PRINTFORMW 「有がと、うれしい……ほんとに、うれしい……！」
			PRINTFORMW 「たく桑、たのしいことして、いろんなもの見て、えっちなことも、して……？ん、」
			PRINTFORMW 「たく桑、生きようね」
			PRINTFORMW 「ずーっと、一緒だよ？」
		ENDIF
	;失敗
	ELSE
		PRINTFORMW 「うん、%CNAME("一人称")%も、好きだよ～、えっ」
		IF ABL:信頼 >= 5
			PRINTFORMW 「そういうこと……」
			PRINTFORMW 「や。ごめんなさいっ、だめ……」
			PRINTFORMW 「…………まだ……」
		ELSE
			PRINTFORMW 「なんの話？」
		ENDIF
	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 "事后避孕药取引"

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

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

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「や、だめかなぁ……」
	PRINTFORMW 「%CNAME("一人称")%、まだしばらく、ふらふらしてたいし～」
CASE "同居希望"
	CALL EMOTION_PLUS, "重置", TARGET
	PRINTFORMW 「一緒に暮らしたいって？」
	IF TALENT:恋慕
		CALL EMOTEFACE, "笑顔", TARGET
		PRINTFORMW 「ふふ、うん、うれしい……！」
		PRINTFORMW 「もちろんおっけーだよ、一緒にごはん食べたり、眠ったり、同じおうちで……ふふ、ふふ……」
		CALL EMOTEFACE, "夸奖", TARGET
		PRINTFORMW 「……%CNAME("一人称")%がこんなこと言うことになるなんてね～」
		PRINTFORMW %CALLNAME:TARGET%は頬を染めて困ったように笑着いる……
	ELSE
		CALL EMOTION_PLUS, "重置", TARGET
		PRINTFORMW 「ん、うん、わかったよ」
		PRINTFORMW 「ま、%CNAME("二人称")%と一緒だったら安全かなーって思うし、しばらく一緒に暮らすのもいいかも」
		CALL EMOTEFACE, "害羞", TARGET
		PRINTFORMW 「……おうちでえっちなことしよう、とか言うの？」
		CALL EMOTEFACE, "重置", TARGET
		PRINTFORMW 「ま、それでもいいけど～、%CNAME("一人称")%がいて迷惑にならないんなら……」
	ENDIF

CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「うーん、ちょっとそこまではしてあげられないかな～」
	PRINTFORMW 「あんまり擅長く作れる自信もないし……」

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「便当！そっか、いっしょに住んでるんだもんね、ふふ」
			PRINTFORMW 「わかった、作って给～」
			PRINTFORMW 「一応、むかーしお母桑に教えてもらったりはしたから」
			PRINTFORMW 「うまくできるかわかんないけど、その、楽しみにしてて」
		ELSEIF TALENT:恋慕
			PRINTFORMW 「便当……いいよ～」
			PRINTFORMW 「わかった、作って给～」
			PRINTFORMW 「一応、むかーしお母桑に教えてもらったりはしたから」
			PRINTFORMW 「うまくできるかわかんないけど、その、楽しみにしてて」
			PRINTFORMW 「……ふふ、便当かぁ」
		ELSE
			PRINTFORMW 「便当……それも部活？」
			PRINTFORMW 「ま、いいけど、%CNAME("二人称")%が食べるんだったら」
			PRINTFORMW 「えっと、むかーしお母桑に教えてもらったりしてたから」
			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

			ELSE

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

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

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

CASE "淫紋拒否"

;"淫紋贴纸直前"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 "拜托処理性欲"
	PRINTFORMW 「？どういうこと？」
	PRINTFORMW 「その、えっちなことなら、部室とかでやってると思うんだけど……」
	PRINTFORMW 「授業の合間に……？うーん……そっか」
	PRINTFORMW 「ま、いいよ、そこまでして%CNAME("一人称")%にしてほしいんでしょ～？」
	PRINTFORMW 「……こっそり行くからさ、その、見つからないように手伝ってね」

CASE "性処理の一時中断"

CASE "性処理拒否"

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

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"
	CALL EMOTION_PLUS, "闲", TARGET
	PRINTFORMW 「髪型、変えてほしいの？」
	PRINTFORMW 「うーん、ま、%CNAME("二人称")%が言うんなら、いいよ～」
	CALL EMOTEFACE, "小悪魔", TARGET
	PRINTFORMW 「酱とかわいくしてね～？ふふっ」
CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW 「うんうん、やっぱりこれがしっくりくるね～」
		PRINTFORMW 「ふんわりかるーい感じ、似合ってる、でしょ？」
	CASE "齐刘海"
		PRINTFORMW 「わ……」
		PRINTFORMW 「ちょっとおでこ出てる感じ、変じゃない？大丈夫？」
		PRINTFORMW 「でも、これはこれで可爱かも……ふふ、たしかに、お人形桑みたいだね～」
	CASE "直髪"
		PRINTFORMW 「お、結構印象変わるんだね～」
		PRINTFORMW 「ちょっとおしとやかーな感じに……ふふっ、似合ってる？」
	;卷髪が默认髪型なのでコメントアウト
	CASE "外八"
		PRINTFORMW 「わ、ガラッと変わるね、すごい」
		PRINTFORMW 「……似合ってるかなぁ、こういうのってもっと勝気というか、強気な感じの子に似合うんじゃあ……」
	CASE "双马尾"
		PRINTFORMW 「ふふっ、じゃーん」
		PRINTFORMW 「まんまお子大人って感じだけど、悪くないかも～」
		PRINTFORMW 「可爱？でしょー？」
	CASE "马尾辫"
		PRINTFORMW 「どう？似合ってる？」
		PRINTFORMW 「ゆらゆら晃动的感じがいいんだよね～、そうでしょ？」
		PRINTFORMW 「%CNAME("一人称")%も動いてて、ちょっと楽しい」
	CASE "三股辫"
		PRINTFORMW 「ふふ……なんか思い出しちゃうな～」
		PRINTFORMW 「や、友達同士でね？髪の毛いじくり合ったりしてさ」
		PRINTFORMW 「%CNAME("一人称")%にもそんな時があったんだよ」
	CASE "编起来"
		PRINTFORMW 「ほへー、なんか面白色髪型」
		PRINTFORMW 「これはこれで……可爱かも、だよね？」
	CASE "団子頭"
		PRINTFORMW 「おだんご……ちょっと素朴だけど、そこが可爱のかも」
		PRINTFORMW 「%CNAME("一人称")%ってそっち方面のほうが似合ってるのかなぁ……」
	;其他
	CASEELSE

	ENDSELECT
CASE "改变髪型拒否"
	PRINTFORMW 「ごめんなさい」
	PRINTFORMW 「%CNAME("一人称")%、髪はなるべく就这様にしたいの」
	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, "拒否")
	PRINTFORMW 「それはちょっと、だめかな……」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「うん、いいよ～」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		CALL EMOTION_PLUS, "闲", TARGET
		PRINTFORMW 「何買いに行くの～？」
		PRINTFORMW 「おたのしみ？そっか」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		CALL EMOTION_PLUS, "重置", TARGET
		PRINTFORMW 「わかった、着替えて行くね～、ちょっと待ってて」
	ELSE
		CALL EMOTION_PLUS, "重置", TARGET
		PRINTFORMW 「なんか買いに行くの？いいよ～」
	ENDIF
CASE "目送"
	PRINTFORMW 「いってらっしゃーい」
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「へんたい」
		PRINTFORMW 「戻ったら、酱と返してよ？ほんとに」
	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「このまま行けってこと？うーん……」
		PRINTFORMW 「わかったよ……」
	ELSE
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「……へんたいっ」
		PRINTFORMW 「見られたら責任取ってよ～？」
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「え～？へんだよー、なんでそんなこと……」
		PRINTFORMW 「恥ずかしいって……」
		PRINTFORMW 「…………はーい……」
	ELSEIF CHECK_CLO("体操服姿")
		CALL EMOTION_PLUS, "闲", TARGET
		PRINTFORMW 「泳装とか内衣よりはへんじゃ、ないか……」
		PRINTFORMW 「ま、いいけど……へんな趣味」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「なな、なんで～？恥ずかしいじゃん」
		PRINTFORMW 「……わかったけど」
		CALL EMOTEFACE, "ガチ害羞", TARGET
		PRINTFORMW 「%CNAME("二人称")%がへんたいだってことも、よーくわかったけど……」
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「%CNAME("一人称")%が～？なんで……？」
		PRINTFORMW 「なんでも、って感じだね」
		PRINTFORMW 「%CNAME("一人称")%がへんなの持ってったら、捕まったりとか、しない？」
	ELSE
		IF RAND:2
			PRINTFORMW 「何かへんなもの、買わせようとしてる？」
			PRINTFORMW 「うー……ま、いいよ」
		ELSE
			PRINTFORMW 「ん、わかった」
			PRINTFORMW 「何を持っていけばいいの？」
		ENDIF
	ENDIF
;ここはwaitを使わないようにしてください(PRINTFORMW の代わりに PRINTFORML を使う)
CASE "询问有什么想要的东西"
	;PRINTFORML
;店員相手はこどもロール
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"
		PRINTFORMW 「これ、くーださい」
		PRINTFORMW 「あ、えっと、おかー桑が……はーい、おねがいしまーす」
		PRINTFORMW 「……」
		PRINTFORMW 会計を終えた%CALLNAME:TARGET%が少し不安そうな顔で回来了。
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「もう、とんだおつかいだよ～、まったく……」
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「これください」
			PRINTFORMW 「……えっと、いいんですよね？おとなのひとじゃないと、とか……」
			PRINTFORMW 「は、はーい」
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%がきょろきょろと周囲を見回しながら回来了。
			CALL EMOTION_PLUS, "害羞", TARGET
			PRINTFORMW 「いいんだ……」
		ELSE
			IF MARK:屈服刻印 == 3
				PRINTFORMW 「これ、是、この……うすいやつ……」
				PRINTFORMW 「……」
				CALL EMOTION_PLUS, "ガチ害羞", TARGET
				PRINTFORMW 「っ……」
			ELSE
				IF RAND:2
					PRINTFORMW 「これ、おねがいしまーす……」
					PRINTFORMW 「あ、その、ふくろ、紙のやつで……」
					PRINTFORMW 「や、あ、別になんか困るってわけじゃないんですけど、あ、や、とにかく、えっと！」
					PRINTFORMW 「……」
					PRINTFORMW %CALLNAME:TARGET%がぱたぱたと回来了。
					CALL EMOTION_PLUS, "害羞", TARGET
					PRINTFORMW 「あ、あぶなかった～……」
				ELSE
					PRINTFORMW 「えっと、たぶんこれ、だよね……？おねがいしまーす」
					PRINTFORMW 「……」
					CALL EMOTION_PLUS, "害羞", TARGET
					PRINTFORMW 「なんか妙にどきどきする……いけないことしてる感じ……」
				ENDIF
			ENDIF
		ENDIF
	;えっちな商品
	CASEELSE
		;勢いでごまかし……たい！
		PRINTFORMW 「あ、えーっと……これをー、おねがーいしまーすぅ……」
		PRINTFORMW 「？あ、そうそう、ほごしゃってゆーかー、えーっと、あの、そのっ」
		PRINTFORMW %CALLNAME:TARGET%が焦った様子で%CALLNAME:MASTER%の方に手招きしてくる。
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「……さすがに%CNAME("一人称")%じゃ可疑って～ほら、ほら……」
		CALL EMOTEFACE, "ガチ害羞/笑颜", TARGET
		PRINTFORMW 「是、是！や、そうですよね～、よく子どもにしか見えないって言われるんですけど～、あは、あはは……」
		PRINTFORMW 「酱と使うので～、使うので？っ……そ、その、だ、だいじょうぶです……」
		CALL EMOTEFACE, "ガチ害羞", TARGET
		PRINTFORMW 「……うぅ～」

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

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「う～……はやく返してよ、はーやーく～」
		PRINTFORMW 「ずっと見られてないか、こわかったんだからね～？」
		PRINTFORMW %CALLNAME:TARGET%は紅潮した顔を両手で覆っている……
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		CALL EMOTION_PLUS, "害羞", TARGET
		PRINTFORMW 「うー、はずかし……」
		PRINTFORMW 「見られてなかったー？」
	ENDIF
ENDSELECT

path: ERB/EVENT_K/65 このは/EVENT_K65_SHOP.ERB


path: ERB/EVENT_K/65 このは/UPDATE_K65.ERB

license: unknown