code:
;-------------------------------------------------
;猫の日（游戏内５６日）に猫内衣を着ける
;部室入室時、もしくは性処理時に変更
;-------------------------------------------------
@CATDAY_K13
;今日は猫の日？
IF TEXTS("日期対応イベント") == "猫の日"
	;既に今回の猫の日イベントを見たならRETURN 0
	SIF CEVENT("猫の日")
		RETURN 0
;猫の日でないなら次の猫の日に備えてフラグ消しつつRETURN 0
ELSE
	CALL DEL_CEVENT, "猫の日"
	RETURN 0
ENDIF

;着替えさせたり脱がせた際は勝手に着替えない
SIF CFLAG:Cosplay中 || CSTR:没収済胖次 != "" || COND("全裸状態終了可能")
	RETURN 0
SIF COND("Ｈ的サプライズ可能") == 0
	RETURN 0
;泳装の場合は制服に更衣
IF CHECK_CLO("泳装")
	CALL SETFLAG, "扒成裸体", TARGET
	CALL SET_COORDINATE, "制服", TARGET
	CALL FOLLOW_RULES
	CALL SET_OTHER, "围巾"
ENDIF

CALL SET_BRA, "猫型胸罩"
CALL SET_PANTIES, "肉球印花胖次"
CALL SET_CEVENT, "猫の日"

;-------------------------------------------------
;躁动难忍室内二人きりで就寝選択で発生
;一人でアレします
;-------------------------------------------------
@SOLOPLAY_K13
#DIM MEMO_ORGASM
#DIM LCOUNT

PRINTFORMW %CALLNAME:TARGET%は欲求不満が限界らしくどうにも我慢ができなさそうだ…
PRINTFORMW %CALLNAME:TARGET%はそわそわしながらこちらを見ている…
PRINTFORMW 「……」
CALL PRINT_SELECT, "推倒てみる/寝たふりをしてみる"
IF RESULT == 0
	PRINTFORMW 「あっ…」
	IF COND("発情中")
		PRINTFORMW 「……ばれちゃう、わよね…やっぱり」
	ELSE
		PRINTFORMW 「……べ、別に、待ってなかったし」
	ENDIF
	CALL SET_CEVENT, "調教開始：限界"
	TFLAG:床イン = 1
ELSE
	PRINTFORMW 「%TEXTR("もう、何なのよ……今日はナシなの…？/せめて自分的房間で寝てよぉ…/…起きて、起きてってば、ねぇ")%」
	PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%が寝てしまったことに落胆している…
	PRINTFORMW 「……」
	PRINTFORMW そして、%CALLNAME:MASTER%が起きないと悟ると、自己自分を慰めることにしたようだ…
	PRINTFORMW ……
	IF ITEM:跳蛋 && RAND:2
		PRINTFORMW %CALLNAME:TARGET%はこっそりと跳蛋を取り出し、スイッチを入れた…
		IF RAND:2
			PRINTFORMW ｳﾞｨｲｲｲｲｲ…という無機質なモーター音に時おり艶っぽい声が混じる。
			PRINTFORMW 粉紅色の振動部を何度も敏感な場所に着けては離しを繰り返し、快感を貪っている様子だ
			PRINTFORMW やがて%CALLNAME:TARGET%は跳蛋を阴蒂に押しあてたまま体をきゅうっ、と強張らせた…
		ELSE
			PRINTFORMW その表情を快感で切なそうにゆがませ的同时、自ら阴蒂をいじめている…
			CALL PRINT_STRW, "「んぅぅぅぅん…_H_」"
			PRINTFORMW やがて、体をビクビクと痙攣させて絶頂を迎えた%CALLNAME:TARGET%はぐったりと脱力し、床に伸びてしまった…
		ENDIF
		CALL SIMULATE_TRAIN_FIRST
		MEMO_ORGASM = EXP:絶頂経験
		FOR LCOUNT, 0, 10
			CALL SIMULATE_TRAIN_COM, 30, 1
			;すでに絶頂済みならここでおしまい
			SIF EXP:絶頂経験 > MEMO_ORGASM
				BREAK
		NEXT
		CALL SIMULATE_TRAIN_CALC
		CALL SIMULATE_TRAIN_SHOW
	ELSE
		IF RAND:4 == 0
			PRINTFORMW %CALLNAME:TARGET%は寝転がった姿勢で秘所を愛撫し始めた。
			PRINTFORMW 切なそうな表情で必死に手を動かしている…とても気持ちよさそうだ
			PRINTFORMW 高まっていくにつれて、もう片方の手で堵住口から、くぐもった甜声が漏れ始める…
			PRINTFORMW 「んぅぅっ……」
			PRINTFORMW やがて、ひときわ大号的喘ぎと共に、一瞬だけ体が跳ねる。
			PRINTFORMW %CALLNAME:TARGET%はしばらくの間余韻に浸った後、おもむろに善后工作を始めた…
		ELSEIF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%は、床にうずくまりくぐもった喘ぎ声を挙げながら手慰みの快感にふけっている
			PRINTFORMW その息遣いは徐々に荒さを増して行き、やがて頂点に達すると同時にビク、と体を震わせた…
			CALL PRINT_STRW, "「はぁ……はぁ……_H_」"
			PRINTFORMW 幸せそうな表情で横たわる%CALLNAME:TARGET%の姿はとても扇情的だった…
		ELSEIF RAND:2
			PRINTFORMW %CALLNAME:TARGET%は少しためらいながらも秘所に手を伸ばした…
			PRINTFORMW 発情期で快感が強すぎるのか、自己的愛撫を嫌がるように身をよじっている
			PRINTFORMW それでも貪欲に官能を求めて敏感な場所を責め立てる姿はなんとも可愛らしく見えた
			PRINTFORMW そして、%CALLNAME:MASTER%が隣で寝ていることなどすっかり忘れてしまったのか、嬌声を抑えようともせずにはしたなく絶頂を迎えた。
		ELSE
			PRINTFORM %CALLNAME:TARGET%是
			IF CHECK_CLO("裸体") || CHECK_CLO("没穿下衣")
				PRINTFORMW 恐る恐る裸の下半身に手を伸ばし、声を抑えながら淫核を擦り始めた…
			ELSEIF EQUIP:贴身制服
				PRINTFORMW %BODYS(TARGET)%の股布をずらすと、声を抑えながら淫核を擦り始めた…
			ELSE
				IF EQUIP:外套 && EQUIP:裙
					PRINTFORM %SKIRT(TARGET)%と%OUTER(TARGET)%
				ELSEIF EQUIP:外套
					PRINTFORM %OUTER(TARGET)%
				ELSEIF EQUIP:裙
					PRINTFORM %SKIRT(TARGET)%
				ENDIF
				SIF EQUIP:胖次 == 0
					PRINTFORMW を脱ぎ捨て下半身裸になると、声を抑えながら淫核を擦り始めた…
			ENDIF
			IF EQUIP:胖次
				PRINTFORMW を脱ぎ捨て、内衣の上から淫核を擦り始めた…
				PRINTFORMW やがて気分が盛り上がって来たのか、%PANTIES(TARGET)%までも脱ぎ捨て、下半身裸の冰雹もない姿のまま自慰に耽り続ける…
			ELSEIF EQUIP:胖次 == 0
				PRINTFORMW やがて気分が盛り上がって来たのか、徐々に喘ぎ声を漏らし始め、冰雹もない姿のまま自慰に耽り続ける…
			ENDIF
			PRINTFORMW その後満足いくまで一人で暴れまわり、善后工作を終えた%CALLNAME:TARGET%は、何食わぬ顔で再びくつろぎ始めた…
		ENDIF
		CALL SIMULATE_TRAIN_FIRST
		MEMO_ORGASM = EXP:絶頂経験
		FOR LCOUNT, 0, 10
			CALL SIMULATE_TRAIN_COM, 3, 1
			;すでに射精済みならここでおしまい
			SIF EXP:絶頂経験 > MEMO_ORGASM
				BREAK
		NEXT
		CALL SIMULATE_TRAIN_CALC
		CALL SIMULATE_TRAIN_SHOW
		WAIT
	ENDIF
ENDIF


code:
;-------------------------------------------------
;Talk指令の選択肢を追加
@DAILY1_K13_ADDSELECT
SIF CEVENT("髪型変化：アイリ") && CFLAG:夸奖 == 0
	STR:選択肢 += "髪型を夸奖/"
SIF ABL:信頼 >= 5 && COND("発情中") == 0
	STR:選択肢 += "雑談：猫/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K13_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "髪型を夸奖"
	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%の髪型%TEXTR("がとても似合っていると伝えた/のセンスがいいと褒めてみた")%
	PRINTL
	PRINTFORMW 「%TEXTR(@"まあ、雑誌に載ってたの真似しただけなんだけどね…/でしょ？決めるの結構苦労したんだから/…見るところは見てるのね、%CNAME("二人称")%も/そ、そう…？お世辞だとは思うけど、有がと")%」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%開心的笑著。
	CFLAG:夸奖 = 1
	IF CSTR:改髪 == "马尾辫" && CFLAG:ポニテ手応え < 5
		CFLAG:ポニテ手応え += 1
	ELSEIF CSTR:後髪 == "卷髪" && CFLAG:卷髪手応え < 5
		CFLAG:卷髪手応え += 1
	ENDIF
CASE "雑談：猫"
	PRINTFORML 猫に関することわざにかこつけて%CALLNAME:TARGET%と戯れてみようか…
	PRINTL
	CALL PRINT_SELECT, "猫の目のように変わる/猫の手も借りたい/猫を叱るより猫を囲え/猫に小判/猫に鰹節/猫の額"
	SELECTCASE RESULT
	;猫の目のように変わる
	CASE 0
		PRINTFORMW 「たしかに私の瞳孔ってどうなってるんだろ」
		PRINTFORMW 「……ちょっと見てくれる？」
		PRINTFORMW %CALLNAME:TARGET%の目をしばらく見つめてみたが一向に変化がない…
		IF RAND:2
			PRINTFORMW 「……ぶふっ」
			PRINTFORMW 「ちょ、なんでそんな思いっきり目開けてんの…！くふふっ…！」
		ELSE
			PRINTFORMW ……スマホのライトを当ててみるのはどうだろう？
			PRINTFORMW 「まぶしいからやめてね」
		ENDIF
	;猫の手も借りたい
	CASE 1
		IF ABL:信頼 >= 5 && RAND:2
			PRINTFORMW 「……是、じゃあどうぞ」
			PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%に向けて手を差し出してきた…
			PRINTFORMW 「どうしたの？借りたかったんじゃないの？」
		ELSE
			PRINTFORMW 「んー…？課題のことなら、私も忙しいからまた今度ね」
		ENDIF
	;猫を叱るより猫を囲え
	CASE 2
		IF RAND:2 && COND("同居中") && TALENT:相思相愛
			PRINTFORMW 「猫は自由でいるべきじゃないのかしら、叱られたり囲われたりにはあんまり向いてないのよ」
			PRINTFORMW 「%CNAME("二人称")%も、囲ってる猫\@ FIND_COND("同居中", "種族：猫") ? たち # \@はせめて酱と大事にしてよ？」
		ELSE
			PRINTFORMW 「どっちかっていうと%CNAME("一人称")%が%CNAME("二人称")%を叱ることの方が多いわよね？」
			PRINTFORMW 「%CNAME("二人称")%も囲いに入れといたら大人しくなるかしら？」
		ENDIF
	;猫に小判
	CASE 3
		IF RAND:2
			PRINTFORMW 「…お金の価値がわかる猫だっているはずよね」
			PRINTFORMW 「豚に真珠を给よりはきっと有効活用できると思うわ、根拠はないけど」
		ELSE
			PRINTFORMW 「手っ取り早く猫のご心情を取るんならおいしいものの方がいいと思うわ、うん」
			PRINTFORMW 「…小判もちょっと欲しいけど」
		ENDIF
	;猫に鰹節
	CASE 4
		PRINTFORMW やはり%CALLNAME:TARGET%も鰹節が好きなのだろうか…
		IF RAND:2
			PRINTFORMW 「%CNAME("一人称")%的には小鱼干し出汁なのよね最近は」
			PRINTFORMW 「あ、あとサバ節も悪くないと思うの」
			PRINTFORMW 「……あー…お味噌汤飲みたい…」
		ELSE
			PRINTFORMW 「いい气味よね、鰹節」
			PRINTFORMW 「涼拌菜とかお豆腐とか食べる時、ついかけすぎちゃうのよね…」
		ENDIF
	;猫の額
	CASE 5
		PRINTFORMW %CALLNAME:TARGET%の額はどれくらい狭窄のだろうか…？
		PRINTFORMW 気になってしまったのでちょうど無防備にしている%CALLNAME:TARGET%の頭に手を伸ばした…
		IF RAND:2
			PRINTFORMW 「あ、こら、やめて！前髪が！」
			PRINTFORMW 「なにすんのよもー！」
		ELSE
			PRINTFORMW 「なに、どしたの？」
			PRINTFORMW 「人のおでこ触って何がしたいの？」
		ENDIF
	ENDSELECT
ENDSELECT
;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K13_ADDSELECT
SIF STATE("酔酒", TARGET) == 0 && COND("夜") && CFLAG:マタタビ > 0 && CFLAG:マタタビ < 3
	STR:選択肢 += "让她闻木天蓼/"
SIF CFLAG:じゃれつき具合 != 0
	STR:選択肢 += "逗猫棒/"
SIF CEVENT("爪保养完毕") == 0 && ABL:信頼 >= 3
	STR:選択肢 += "爪のお手入れ/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K13_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "让她闻木天蓼"
	;CFLAG:マタタビが1の場合初回反応っぽくなる
	PRINTFORMW 说起来今天\@ CFLAG:マタタビ == 2 ? 也准备了木天蓼 # 把以前说过的木天蓼准备好了 \@…
	PRINTFORML 要给%CALLNAME:TARGET%闻一下试试看吗？
	CALL PRINT_SELECT, "试着做做看/今天还是算了"
	SELECTCASE RESULT
	CASE 0
		IF CFLAG:マタタビ == 2
			PRINTFORMW 「肯定出了什么问题啊…本来、应该没有这样的效果的…本不应该…」
		ELSE
			PRINTFORMW 「嘛，好吧、反正嗅一嗅也没什么大不了的…」
			CFLAG:マタタビ += 1
		ENDIF
		PRINTFORMW 「……」
		PRINTFORMW 「……」
		CALL PRINT_STR, "「…唔、唔嗯嗯……_／／／_」_W"
		PRINTFORML
		CALL PRINT_STRW, @"%CALLNAME:TARGET%变成了[_爱心粉紅_酔酒_]的状态_黄色_(実行値と情緒にBOUNS＆偶尔奇行)"
		CALL ADD_STATE, TARGET, "酔酒"
	CASE 1
		PRINTFORMW 「怎么了？现在在藏着什么东西吗…？」
	ENDSELECT
	CFLAG:マタタビ += 2
CASE "逗猫棒"
	PRINTFORM %CALLNAME:MASTER%在%CALLNAME:TARGET%的眼前%TEXTR("微微地/轻轻地/＿")%
	IF CSTR:PREV_DAILYCOM != STR:日常イベント名
		PRINTFORMW 试着晃动了一下逗猫棒…
	ELSE
		PRINTFORMW 持续地晃动着逗猫棒…
	ENDIF
	PRINTL
	;発情中はえろいことにしか興味ない
	SIF COND("発情中")
		CFLAG:じゃれつき具合 = 0
	;途中でやめる（この時間に初回でない、かつ連続実行でない）と飽きちゃう　例外有
	SIF CHOSE_DEVENT(STR:日常イベント名) && CSTR:PREV_DAILYCOM != STR:日常イベント名 && !(CONDS("直前行動") == "露脐装超短裙胖次チラ" && CFLAG:じゃれつき具合 >= 4)
		CFLAG:じゃれつき具合 = 0
	;低確率で気まぐれ発動
	IF RAND:20 == 0 && CFLAG:じゃれつき具合 > 0 && CHOSE_DEVENT(STR:日常イベント名)
		IF RAND:3 == 0 && CFLAG:じゃれつき具合 < 4
			PRINTFORMW 「嘿、抓到了、呼」
			PRINTFORMW 「无论如何都要玩的话就给我再摇得认真一点啊…」
			PRINTFORMW %CALLNAME:TARGET%好像很嫌弃这种半桶水的挑逗的样子…
		ELSEIF RAND:2
			PRINTFORMW 「あっ」
			PRINTFORMW %CALLNAME:TARGET%は勢い余って%CALLNAME:MASTER%の手をひっかいてしまった…
			PRINTFORMW 「……えっと、ご、ごめん……大丈夫？」
			PRINTFORMW なんだかお互い急にテンションが下がってしまった……
		ELSE
			PRINTFORMW 「……」
			PRINTFORMW 「喂、已经够了吧…」
			PRINTFORMW 「稍微有点厌倦了、停下来吧」
			PRINTFORMW %CALLNAME:TARGET%好像已经厌倦了逗猫棒的样子…
		ENDIF
		CFLAG:じゃれつき具合 = 0
		RETURN 1
	ENDIF

	SELECTCASE CFLAG:じゃれつき具合
	CASE 0
		IF COND("発情中")
			PRINTFORMW 「%TEXTR("唔…现在并没有玩那个心情呀…/无论如何都要玩的话、玩别的“游戏”也是可以的呀…♪")%」
			PRINTFORMW 发情中的%CALLNAME:TARGET%对逗猫棒完全没兴趣的样子…
		ELSEIF CONDS("直前行動") == "露脐装超短裙胖次チラ"
			PRINTFORMW 「那个、绝对不会再做了……！」
			PRINTFORMW 「已经看穿了%CNAME("二人称")%的阴谋了…！」
			PRINTFORMW %CALLNAME:TARGET%为了避免被看到胖次而警戒着…
		ELSEIF CSTR:PREV_DAILYCOM == "掀起裙子"
			PRINTFORMW 「今天就算了わ…これ以上%CNAME("二人称")%に卖个破绽のは危険だから」
		ELSE
			PRINTFORMW 「又是那个啊、已经厌倦了…」
			PRINTFORMW 「没有其他可以玩的吗？」
			PRINTFORMW %CALLNAME:TARGET%对逗猫棒完全失去了兴趣的样子…
		ENDIF
	CASE 1
		IF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%は猫じゃらしを横目でちらっと見た…
			PRINTFORMW わざと興味がなさそうなふりをしているようだ…
		ELSE
			IF RAND:2
				PRINTFORMW 「……」
				PRINTFORMW 「打、打算做什么……」
				PRINTFORMW 「我不会答应陪你玩那个的……」
			ELSE
				PRINTFORMW 「把我当作笨蛋吗？」
				PRINTFORMW 「……才不是对所有会动的东西都有兴趣呢…」
			ENDIF
			PRINTFORMW 说着这样的话%CALLNAME:TARGET%还是无意识地盯着逗猫棒…
		ENDIF
	CASE 2, 3
		IF RAND:2
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%快速地转动着脖子，目光紧紧跟着逗猫棒的动作…
		ELSE
			PRINTFORMW 「…！」
			PRINTFORMW %CALLNAME:TARGET%配合着逗猫棒的动作不时地扭动着身体…
		ENDIF
	CASEELSE
		IF RAND:4 == 0
			IF RAND:3 == 0
				PRINTFORMW 「………%TEXTR("呀/就是现在/呼")%っ！！」
				PRINTFORMW 「做、做到了……！抓住了……！！」
				PRINTFORMW 「………啊」
				IF RAND:2
					CALL PRINT_STR, "「嘛、嘛？冷静下来好好想想的话、这种游戏…_／／／_」_W"
				ELSE
					PRINTFORMW 「啊啊够了……为什么要这么认真啊%CNAME("一人称")%…！」
				ENDIF
				PRINTFORMW %CALLNAME:TARGET%%TEXTR("好像感觉很羞耻地/好像回过神、慌张地/装作好像从最開始就没有兴趣一样")%丢掉了逗猫棒…
			ELSEIF RAND:2
				PRINTFORMW 「………にゃーっ！」
				PRINTFORMW %CALLNAME:TARGET%の%TEXTR("右/左")%手が猫じゃらしをとらえた！
				PRINTFORMW そして%CALLNAME:TARGET%はその勢いのまま猫じゃらしに噛みついた！
				PRINTFORMW 「……
				CLEARLINE 1
				PRINTFORMW 「……那个」
				PRINTFORMW 「……あんまり興奮させないでよね」
				PRINTFORMW %CALLNAME:TARGET%は猫じゃらしを吐き出すと有点害臊的つぶやいた…
			ELSE
				PRINTFORMW 「……取ったっ！」
				PRINTFORMW %CALLNAME:TARGET%は見事に猫じゃらしを捕まえた！
				PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%を夸奖ように頭を撫でてあげた…
				PRINTFORMW 「……」
				PRINTFORMW 「…何のつもり？なんかバカにしてる？」
				PRINTFORMW %CALLNAME:TARGET%は何故か急に不服そうにしている…
			ENDIF
			CFLAG:じゃれつき具合 = 0
		ELSE
			IF RAND:5 == 0
				PRINTFORMW 「………」
				PRINTFORMW %CALLNAME:TARGET%は四つん這い变成了まま身体をくねくねと動かして「ため」を作っている…
			ELSEIF RAND:4 == 0
				PRINTFORMW 「……！！」
				PRINTFORMW 「不、还不行……离这里太远了呀…」
				PRINTFORMW 「再往这边靠近一点才有机会……」
				PRINTFORMW %CALLNAME:TARGET%为了抓住逗猫棒、在寻找最佳的时机…
			ELSEIF RAND:3 == 0
				PRINTFORMW 「……っ！」
				PRINTFORMW 「………唔噜…下次、不会让你逃走的…」
				PRINTFORMW %CALLNAME:TARGET%似乎在为刚才那精心计算的一击没有抓住目标而后悔的样子…
			ELSEIF RAND:2
				PRINTFORMW 「…………哈！！」
				PRINTFORMW 「诶、那个……？诶！！」
				PRINTFORMW 「咕噜……有一套嘛……！」
				PRINTFORMW %CALLNAME:TARGET%在一瞬间感到惋惜之后又马上抬起手開始拼命追逐逗猫棒…
			ELSE
				PRINTFORMW 「………」
				PRINTFORMW 「…绝对、会抓到你的……」
				PRINTFORMW %CALLNAME:TARGET%%TEXTR("用认真的眼神/随时准备扑上去一样")%盯着逗猫棒…
			ENDIF
		ENDIF
	ENDSELECT
	IF CFLAG:じゃれつき具合 > 0
		CFLAG:じゃれつき具合 += 1
	ENDIF
CASE "爪のお手入れ"
	PRINTFORMW %CALLNAME:TARGET%の爪をお手入れして给ことにした…
	PRINTFORML どっちを先にヤスリで削ってあげますか？
	CALL PRINT_SELECT, "手の爪/足の爪"
	SELECTCASE RESULT
	CASE 0
		IF CFLAG:爪お手入れ熟練度 >= 9 && RAND:2
			IF RAND:2
				PRINTFORMW 「ん、じゃあよろしくね」
				PRINTFORM %CALLNAME:TARGET%是%CALLNAME:MASTER%に片手を差し出すともう片方の手で
				PRINTFORMW %TEXTR("スマホをいじり始めた/本を読み始めた")%…
			ELSE
				PRINTFORMW 「なーに、ご心情取り？」
				PRINTFORMW 「ふふ…酱と%CNAME("一人称")%をご心情にできるのかしら？」
				PRINTFORMW %CALLNAME:TARGET%はなんだか女王様気取りだ…
			ENDIF
		ELSEIF CFLAG:爪お手入れ熟練度 >= 5
			IF RAND:2
				PRINTFORMW 「……ん、そんな感じね」
				PRINTFORMW %CALLNAME:TARGET%はくつろぎながら時々こちらの作業に目を向けている…
			ELSE
				PRINTFORMW 「……だいぶ慣れてきたんじゃない？」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の手つきに信頼を感じているようだ…
			ENDIF
		ELSEIF CFLAG:爪お手入れ熟練度 >= 1
			IF RAND:2
				PRINTFORMW 「なんだか手つきがぎこちないんだけど」
				PRINTFORMW %CALLNAME:TARGET%は不安そうにこちらを看了过来…
			ELSE
				PRINTFORMW 「んー、その指はもういいかな…じゃあ次は…」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%にすべてを任せるのがどうも不安なようだ…
			ENDIF
		ELSEIF CFLAG:爪お手入れ熟練度 == 0
			PRINTFORMW 「……本当に大丈夫なの？」
			PRINTFORMW 「削りすぎると結構痛いのよ？慎重にやってね」
		ENDIF
	CASE 1
		IF CFLAG:爪お手入れ熟練度 >= 9 && RAND:2
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%の差し出した手に慢慢地足を乗せた…
				PRINTFORMW 「やるからにはきっちりやってよ？」
				PRINTFORMW %CALLNAME:TARGET%は期待に満ちた目でこちらを見ている…
			ELSEIF RAND:2
				PRINTFORMW 「ん、じゃあよろしくね」
				PRINTFORMW %CALLNAME:TARGET%はおもむろに襪子を脱いで裸足变成了…
				PRINTFORMW そして、椅子に座ると跪く%CALLNAME:MASTER%の前に素足を差し出した…
			ELSE
				PRINTFORMW 「……」
				PRINTFORMW 「ふふ、なんだかいい眺めね」
				PRINTFORMW %CALLNAME:TARGET%は足を組んで座り、爪を削る%CALLNAME:MASTER%を満足げに看了过来…
			ENDIF
		ELSEIF CFLAG:爪お手入れ熟練度 >= 5
			IF RAND:2
				PRINTFORMW 「自己やるよりもやりやすいし、実際助かるのよね」
				PRINTFORMW 「%CNAME("二人称")%が妙なことさえ考えてなければ完璧なんだけどね…」
			ELSE
				PRINTFORMW 「…そう？じゃあ拜托了けど」
				PRINTFORMW 「なんか、頼むのに抵抗が薄れてる自分に惊嚇だわ…」
			ENDIF
		ELSEIF CFLAG:爪お手入れ熟練度 >= 1
			IF RAND:2
				PRINTFORMW 「……なんか、変な気分」
				PRINTFORMW 「いたたまれないっていうか、落ち着かないっていうか…」
			ELSE
				PRINTFORMW 「……その、できれば顔近づけないでやってほしいんだけど」
				PRINTFORMW 「%CNAME("二人称")%は良くても%CNAME("一人称")%が気にするの！」
			ENDIF
		ELSEIF CFLAG:爪お手入れ熟練度 == 0
			PRINTFORMW 「何言ってんのよ、さすがに恥ずかしいんだけど…」
			PRINTFORMW 「…どうしてもやりたいの？」
			PRINTFORMW 「はぁ…また%CNAME("二人称")%の変態に付き合わされるのね…」
		ENDIF
	ENDSELECT
	PRINTFORMW ………
	PRINTFORMW ……
	PRINTFORMW …
	IF CFLAG:爪お手入れ熟練度 >= 9
		IF RAND:2
			PRINTFORMW 「おー…完璧じゃない」
			PRINTFORMW 「…これからも%CNAME("二人称")%に頼もうかしら？」
		ELSE
			PRINTFORMW 「随分小心地やってくれたみたいね、形もきれいだし」
			PRINTFORMW 「…いつも有がとね」
		ENDIF
	ELSEIF CFLAG:爪お手入れ熟練度 >= 5
		IF RAND:2
			PRINTFORMW 「ふーん、いい感じね」
			PRINTFORMW 「これなら服とかにも引っかからないし、助かるわ」
		ELSE
			PRINTFORMW 「んー、合格ね」
			PRINTFORMW 「……ごめん、ちょっと偉そうだったかも」
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「うん、思ったより悪くないわね」
			PRINTFORMW 「有がと」
		ELSE
			PRINTFORMW 「ん、これで大丈夫」
			PRINTFORMW 「最後の仕上げは自己やるわ」
		ENDIF
	ENDIF
	CALL SET_CEVENT, "爪保养完毕"
	CFLAG:爪お手入れ熟練度 += 1
ENDSELECT

path: ERB/EVENT_K/13 アイリ/EVENT_K13_SELECT.ERB

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	PRINTFORMW 「有想要拜托的事情…？」
	PRINTFORMW 「在力所能及的范围内的话一定会帮忙的…」
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「…明明一直想着一定要%CNAME("一人称")%这边先说出这份感情的…」
		PRINTFORMW 「为什么会被%CNAME("二人称")%那边抢先了啊…」
		PRINTFORMW 「……」
		PRINTFORMW 「那、那个、跟%CNAME("二人称")%一起生活的这一段时间里承蒙了很多照顾，真的感激不尽…一起在部室里的生活也好…一起出去约会也好…还、还有在%CNAME("一人称")%忍受着发情期的煎熬的时候也好…%CNAME("二人称")%总是那样温柔，不由得渐渐变得想跟%CNAME("一人称")%一直呆在一起了…所、所以，这份感情…」
		PRINTFORMW 「…所以这份来自一只想报恩的小猫的感情，能传达到%CNAME("二人称")%心里吗…」
	;失敗
	ELSE
		PRINTFORMW 「ふーん、那个、%CNAME("一人称")%的事情…」
		PRINTFORMW 「嘛，有时候话只要听一半就可以了」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「無理、虽然不是因为讨厌这样做、但是無理…」
		PRINTFORMW 「因、因为…本来就没有的东西是没有办法给出去的吧！」
	ELSE
		PRINTFORMW 「不是故意这样说的吧？绝对不是故意这样说的吧？肯定是这样的…」
		PRINTFORMW %CALLNAME:TARGET%的脸不知道为什么比平常红的更加厉害了，紧紧压住裙子好像很害怕%CALLNAME:MASTER%发现裙子里面的状态的样子…
	ENDIF
;胖次を要前の会話。
CASE "胖次交易"
	;お金では応じない
	TFLAG:取引価格 = 0
CASE "胖次"
	;取引初成功
	IF COND("合意：胖次交易") == 0
		PRINTFORMW 「………」
		PRINTFORMW 「…啊啊真是的！知道了，知道了啊！」
		PRINTFORMW %CALLNAME:TARGET%一口气脱下胖次拔出双腿、把胖次塞到%CALLNAME:MASTER%的手里让%CALLNAME:MASTER%紧紧握住…
		PRINTFORMW 「满意了？这之后%CNAME("二人称")%要怎么用%CNAME("一人称")%都不会再管了！」
		PRINTFORMW 「但是要是被转交给其他人的话，%CNAME("一人称")%就真的要生气了！」
	ELSE
		IF RAND:2 && COND("易出汗")
			PRINTFORMW 「…无论如何、今天也不能不给吗…？」
			PRINTFORMW %CALLNAME:TARGET%一副快要哭出来的样子，递出了一条\@ COND("浑身是汗") ? 稍微带有一些咸湿的汗水的气味的 # 被汗水浸透的 \@胖次…
		ELSEIF COND("発情中")
			IF RAND:2
				PRINTFORMW 「怎么想要%CNAME("一人称")%穿的胖次吗？还是说让%CNAME("一人称")%脱衣服露出这件事情很让%CNAME("一人称")%兴奋？…嘛，怎么样都行吧♪」
				PRINTFORMW %CALLNAME:TARGET%带着邪魅的微笑坐到椅子上，故意对着%CALLNAME:MASTER%抬起美妙的双腿，用两根手指挑起胖次的两边，像是在展示一样慢慢地从股间拖到脚尖…
				PRINTFORMW 「…嗯哼~把手拿出来…」
				PRINTFORMW %CALLNAME:TARGET%双手捧着热腾腾地散发着香味的胖次放在%CALLNAME:MASTER%拿出的双手上，轻轻地放開任其滑落%CALLNAME:MASTER%的手中…
			ELSE
				;胖次を脱いで渡してくる汎用地の文
				CALL DAILY_MESSAGE, "脱下胖次交了出去"
				PRINTFORMW 「…讨厌~、比起刚刚到手的胖次，现在正处于NO胖次状态的本人就在眼前的说…」
				PRINTFORMW %CALLNAME:TARGET%稍微有些不满的样子蹙起眉毛…
			ENDIF
		ELSE
			PRINTFORMW 「はぁ…这么想得到别人穿着的内衣吗…」
			PRINTFORMW 「明明不是为了送给%CNAME("二人称")%而特意穿来的衣服…」
			;胖次を脱いで渡してくる汎用地の文
			CALL DAILY_MESSAGE, "脱下胖次交了出去"
		ENDIF
	ENDIF
CASE "胖次拒否"
	;まだ取引が成功していない
	IF COND("合意：胖次交易") == 0
		PRINTFORMW 「不是故意这样说的吧？绝对不是故意这样说的吧？肯定是这样的…」
		PRINTFORMW %CALLNAME:TARGET%的脸不知道为什么比平常红的更加厉害了，紧紧压住裙子好像很害怕%CALLNAME:MASTER%发现裙子里面的状态的样子…
	ELSE
		PRINTFORMW 「…今天不行、下次再说吧…」
	ENDIF
CASE "全裸交易"
	RETURN 0
CASE "全裸"
	;取引初成功
	IF COND("合意：全裸化") == 0
		PRINTFORMW 「那、那么想看吗……？无论如何都想要…？」
		CALL PRINT_STR, "「………知、知道了…_／／／_」_W"
	ELSE
		PRINTFORMW 「……想郑重拜托的事情就是这个吗…？」
		PRINTFORMW 「ほんと、やらしいんだから……\@ COND("発情中") ? ♪ # \@」
	ENDIF
	PRINTFORMW 忍受着羞耻感的%CALLNAME:TARGET%咬着嘴唇羞红了脸，慢慢地把衣服全部脱掉了…
CASE "全裸拒否"
	IF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「在这里…？怎么说比较好，稍微考虑一下现在的状况啊…」
		PRINTFORMW %CALLNAME:TARGET%有点顾及现在房间里的状态的样子…
	ELSE
		PRINTFORMW 「……？！」
		PRINTFORMW 「不、不要说蠢话啊…！这肯定是不行的吧！」
	ENDIF
CASE "同居拒否"
	PRINTFORMW 「在别人的家里还是有些不适应…」
	PRINTFORMW 「不太懂到别人家做客的礼仪、也可能会添很多麻烦、总之谢谢%CNAME("二人称")%的邀请…」
CASE "同居希望"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「…突、突然之间说出这样的话，太仓促了…！」
		PRINTFORMW 「得快点整理行李…还、还有不好好跟父母说明一下的话…！」
		PRINTFORMW 带着因为即将開始的同居生活而快溢出来的兴奋之情，%CALLNAME:TARGET%慌慌张张地開始了准备…
	ELSE
		PRINTFORMW 「哼…说的很简单，搬家的时候可是很辛苦的哦？」
		PRINTFORMW 「…诶？等、等一下，%CNAME("一人称")%也不是说很讨厌这种事情…！」
	ENDIF
CASE "同居頻度的相談"
	PRINTFORMW 「んー…？嘛，好吧，确实，%CNAME("二人称")%那边也方便的时候比较好…」
CASE "便当拒否"
	PRINTFORMW 「即使被这样拜托、也没有什么做出好吃的便当的自信啊…」
	PRINTFORMW 「不如说、拜托%CNAME("二人称")%家里的女仆小姐不就好了嘛…」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「…如果喜欢的话…嘛，再为%CNAME("二人称")%做便当也可以」
		PRINTFORMW 「う、摆出那么高兴的表情的话…压力又要增加了，真是的…」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")
			PRINTFORMW 「说的也是呢，现在寄居在%CNAME("二人称")%的家里，这种程度是事情还是可以做到的…」
			PRINTFORMW 「…味道的话请不要太期待比较好哦？」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%、不是很擅长料理…」
			PRINTFORMW 「…一边练习地做一边试吃检验的话、这样做出来的料理也可以吧」
		ENDIF
	ENDIF
CASE "口服避孕薬"
	IF CFLAG:口服避孕薬
		;初回
		IF DEVENT(ARGS) == 0
			PRINTFORMW 「确实呢、\@ COND("発情期") ? 现在的%CNAME("一人称")%对于自己能否冷静地判断很不安呐 # 发情期的时候、理性说不定随时会蒸发掉 \@…」
			PRINTFORMW 「嘛，稍微喝点也可以吧…」
		ELSE
			PRINTFORMW 「说的也是呢，因为对方比较安全也不是不可以」
		ENDIF
	ELSE
		IF COND("合意：危険日生性交") && COND("発情期")
			PRINTFORMW 「诶多…那样的话，也就是说…」
			PRINTFORMW 「うん、明白了……其实可以不用喝酒的…」
		ELSE
			PRINTFORMW 「……嘛，好吧，不过除了酒以外，那种一次性用的橡胶制品准备好了吗？」
		ENDIF
	ENDIF
CASE "淫紋拒否"
	PRINTFORMW 「那样是不行的吧、要不然以后要更加辛苦地忍耐了…」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「…发着奇怪的光啊，这个…」
		PRINTFORMW 「真的没有问题吗…？」
	ELSE
		PRINTFORMW 「又要贴在上面吗…？」
		PRINTFORMW 「うぅ、现在開始一周的时间…好长啊…」
	ENDIF

CASE "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORMW 「那、那个，怎么做才好…？所以…？」
		PRINTFORMW 「うっ……んぅぅうっ……！」（呻吟）（呻吟）
	CASE 3
		PRINTFORMW 「为了刻画成更加华丽图案…」
		PRINTFORMW 「如果是被%CNAME("二人称")%这样拜托的话，没有办法说讨厌的话呢…」
	CASE 4
		PRINTFORMW 「哼…想要做的话就做吧…」
		PRINTFORMW 「反正全身心都已经献给了%CNAME("二人称")%，早就再也回不去了呢…」
	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	;しょうがないにゃあ
	PRINTFORMW 「嘛、可以吧、%CNAME("一人称")%知道忍受着积累的欲望是一件很辛苦的事情…」
	PRINTFORMW 「那么……做、做到什么地步才能满意呢？」
CASE "性処理の一時中断"
	PRINTFORMW 「嗯…这样吗？已经治好了就好」
CASE "性処理拒否"
	PRINTFORMW 「不行…不论何时何地、这样的要求都是不可能的…」
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「恕我拒绝」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「ま、それぐらいならいいけど…」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;着替えてもらう
	IF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「ん、出去买东西？…这样的衣着没法出去的吧、稍微等一下呐…」
	ELSE
		;初回
		IF SEVENT(ARGS) == 0
			PRINTFORML 「去买社团活动用的东西？咿呀，非要评价的话…不是很好吗？」
			PRINTFORMW 「想让%CNAME("一人称")%一起去选？…はぁ…为什么非得是%CNAME("一人称")%不可啊…」
		ELSEIF COND("発情中")
			PRINTFORML 「要去买东西…？啊、%CNAME("一人称")%也要跟着？」
			PRINTFORMW 「…ふふ、如果能买到不错的东西就好了呢」
		ELSE
			PRINTFORML 「又是那家可疑的店？不能稍微收敛一点吗…」
			PRINTFORMW 「…如果被记住了脸的话会很不方便吧？」
		ENDIF
	ENDIF
CASE "目送"
	PRINTFORMW 「去买东西？记得不要买一些没有用的回来哦？」
CASE "没収胖次出発"
	;既に没穿内褲
	IF EQUIP:胖次 == 0
		PRINTFORMW 「…那个…现在、没有穿着的说…///」
		PRINTFORMW 「…要求出示证据？」
		IF COND("合意：检查阴部") == 0
			PRINTFORMW 「为什么非要做到那个地步不可啊…已经够了快点走啦」
		ELSE
			PRINTFORMW 「……真拿%CNAME("二人称")%没办法呢…」
			PRINTFORMW %CALLNAME:TARGET%は有点害臊的\@ COND("発情中") ? 笑いながら # 目を逸らしつつ \@、%SKIRT(TARGET, "略")%を%TEXTR("怯生生地/そろそろと")%たくし上げた。
		ENDIF
	ELSE
		;初回
		IF SEVENT(ARGS) == 0
			PRINTFORMW 「现、现在马上就要出发了为什么还要要求这样的事情啊…！」
			PRINTFORMW 「…啊啊知道了啊！不要再说了！给%CNAME("一人称")%这个变态就行吧，给%CNAME("一人称")%的话！」
			PRINTFORMW 渐渐自暴自弃的%CALLNAME:TARGET%哭丧着脸把胖次递给了%CALLNAME:MASTER%…
		ELSEIF COND("発情中")
			PRINTFORMW 「真是的…要是不小心摔倒了话不就变成大事故了吗…」
			PRINTFORMW 「为了不变成那个样子%CNAME("二人称")%要好好保护%CNAME("一人称")%哦♪」
		ELSE
			PRINTFORMW 「うう…怎么办、现在吹着这么强的风…」
			PRINTFORMW %CALLNAME:TARGET%给了%CALLNAME:MASTER%胖次后、愁眉苦脸地把手放在胸前祈祷今天能平安度过…
		ENDIF
	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		IF COND("発情中")
			PRINTFORMW 「穿着这身装束去街上…？怎么看都会和周围环境格格不入吧…」
		ELSE
			PRINTFORMW 「真、真的要这个样子穿着出去…？至少让%CNAME("一人称")%穿件外套…！」
		ENDIF
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		IF COND("発情中")
			PRINTFORMW 「…突然变得很热的缘故…这身装扮刚刚好呢♪」
			PRINTFORMW 脸红的快要滴出血的%CALLNAME:TARGET%就这样穿着内衣跟着%CALLNAME:MASTER%出門了…
		ELSE
			PRINTFORMW 「うぅ…冷静下来啊%CNAME("一人称")%，现在没有出去呢…」
			PRINTFORMW 「…如果被拘捕的话、就完全是%CNAME("二人称")%的错了呢…」
			PRINTFORMW %CALLNAME:TARGET%用手臂遮住胸部和重要的部位跟着%CALLNAME:MASTER%出去了…
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORML 「说过讨厌了的吧！自己的东西自己买就行了吧！」
		PRINTFORMW 在收银台前，揉着%CNAME("二人称")%的頭轻声安抚着的%CALLNAME:MASTER%和生气地嘟着嘴的%CALLNAME:TARGET%的样子让店员看到了…
		PRINTFORMW 「哼……生气了、%CNAME("一人称")%自己一个人要先回去了…」
	ELSEIF COND("発情中")
		PRINTFORML 「怎么样都没有办法拿出买下来的勇气吗…？」
		PRINTFORMW 「话是这样说、其实只是想让%CNAME("一人称")%帮忙买一些奇怪的东西对吧？」
	ELSE
		PRINTFORML 「又让%CNAME("一人称")%买？」
		PRINTFORMW 「哈（叹气）…%CNAME("一人称")%可不想因为这种事情而神经衰弱啊…」
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"
		PRINTFORML 「积分卡？…这样的东西没有哦…」
		PRINTFORMW （…经常光顾这家店的人都是些什么人啊？）
	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW 「这个东西，购买者的年龄……没、没有确认的必要吗、这样啊…」
		ELSEIF COND("発情中")
			PRINTFORML 「没有问题，不需要袋子…」
			PRINTFORMW %CALLNAME:TARGET%把付完帐的大量的避孕套塞进了口袋里…
		ELSE
			PRINTFORML 「あ、胶带就行了，用胶带！」
			PRINTFORMW %CALLNAME:TARGET%把付完帐的东西捆在一起，抱着逃回了家里…
		ENDIF
	;えっちな商品
	CASEELSE
		IF COND("発情中")
			PRINTFORML 「对，自己用的…ええ、可以的话希望使用纸袋…」
			PRINTFORMW %CALLNAME:TARGET%忍受着从心底不断涌出来的羞耻感完成了付账的工作…
		ELSE
			PRINTFORML 「…因、因为被朋友拜托了来买这些…」
			PRINTFORML 「包装的话，这个样子就行了……那个，不对，诶多…」
			PRINTFORMW %CALLNAME:TARGET%向这边投来求救的眼神，因为太羞耻而混乱的%CALLNAME:TARGET%看起来快要哭出来了…
		ENDIF
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")
		IF COND("発情中")
			PRINTFORML 「真是的，要是就这样被放置在一边的话…发生了什么危险的事情都不会管的哦…」
			PRINTFORMW 「……心虚了吗？这是威胁哦…呼呼呼♪」
		ELSE
			PRINTFORML 「已、已经可以了吧…？早点回家好不好…！」
			PRINTFORMW %CALLNAME:TARGET%带着湿润的泪眼警戒着四周、不安地压住裙子跟在后面…
		ENDIF
	;「下の段の棚」で正しいのでしょうか？それとも「棚の下の段」が正しいのでしょうか？誰か教えてください
	ELSE
		PRINTFORML %TEXTR("「……」/「经常想着这样的事情啊…」/（原来如此，那个东西是这样用的啊…）/（这两边设计成这样的形状，也就是说…）/（草莓的香味？橡皮擦还有这种气味吗…）")%
		PRINTFORM %CALLNAME:TARGET%是
		IF COND("発情中")
			PRINTFORM %TEXTR("不时发出感叹的声音/蹲下去/摆出意味深厚的表情像是有什么想说的样子")%
		ELSE
			PRINTFORM %TEXTR("露出为难的表情/有时候不自觉地歪着頭/装出没有任何兴趣的样子")%
		ENDIF
		PRINTFORMW 在架子上挑选着商品……
	ENDIF
CASE "询问有什么想要的东西"
	IF ITEM:避孕套 <= 5 && COND("発情中") == 0 && RAND:2
		PRINTFORML 「じゃあ……避孕套、かな」
		IF PLACE("出先")
			PRINTFORML 「その…無いと、まずいでしょ…この後」
		ELSE
			PRINTFORML 「とりあえず、いっぱいあったほうがいいんじゃない…？」
		ENDIF
	ELSEIF (ABL:Ａ感覚 >= 5 || SIZE("阴茎", MASTER) >= 3) && RAND:3 == 0
		PRINTFORML 「じゃあ…これ、潤滑液」
		IF ABL:Ａ感覚 >= 5
			PRINTFORML 「どうせ、また……その、お尻いじるんでしょ…」
		ELSE
			PRINTFORML 「その……おっきすぎるし、痛いと困るし…」
		ENDIF
	ELSEIF RAND:2
		PRINTFORML 「じゃあそれ、粉紅の…震えるの」
		IF ITEM:跳蛋 && RAND:2
			PRINTFORML 「%TEXTR("新しいやつ、出てるから/前のとは別のも")%…試してみたい、かも」
		ELSE
			PRINTFORML 「……だめなら、いいけど…」
		ENDIF
	ELSE
		PRINTFORML 「いや…特に、ないけど…」
		PRINTFORML 「無理してないから！ホントにないんだってば！」
	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")
		IF COND("発情中")
			PRINTFORML 「明明不用那么老实地还给%CNAME("一人称")%的…」
			PRINTFORMW %CALLNAME:TARGET%露出不可思议的表情拿回了胖次…
		ELSE
			PRINTFORML 「这样就结束了，这种无聊的恶作剧…！」
			PRINTFORMW %CALLNAME:TARGET%气呼呼地从を%CALLNAME:MASTER%的手中夺回胖次…
		ENDIF
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「什么都不买吗？嘛，确实是看看就满足的人比较多…」
	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")
		PRINTFORML 「难道谁都不想吐槽穿着这身衣服出門吗？」
		PRINTFORMW 「因为长着耳朵和尾巴太不寻常了，而没有人在意衣服吗…？」
	ENDIF
ENDSELECT

path: ERB/EVENT_K/13 アイリ/EVENT_K13_SHOP.ERB