code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;36は角色番号に置換してください
;-------------------------------------------------

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K36_ADDSELECT
;お菓子以外も食わせるし、昼に合わせて点心に統一
SIF (COND("夜") || CHARA_NUM("约会的约定") == 0) && CFLAG:夸奖 == 0 && (PLACE("居間") || PLACE("主人公的房間"))
	STR:選択肢 += "点心を给/"
;無限お菓子ループ。やめよう
;SIF COND("夜") && CFLAG:夸奖 == 2 && PLACE("居間")
;	STR:選択肢 += "デコピンをする/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K36_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "点心を给"
	PRINTFORM %CALLNAME:MASTER%
	IF RAND:2
		IF PLACE("居間")
			IF RAND:5 == 0
				PRINTFORMW 拿着快要过赏味期的%TEXTR("干面包/桃罐頭/松果罐頭/饼干")%、将其%TEXTR("给予了/交付给了")%%CALLNAME:TARGET%。
			ELSE
				PRINTFORM 从冰箱里
				IF COND("冬") || (COND("夏") == 0 && RAND:3 == 0)
					PRINTFORMW 取出了%TEXTR("豆沙包/披萨包/肉包/咖喱包")%、用微波炉加热后%TEXTR("给予了/交付给了")%%CALLNAME:TARGET%。
				ELSE
					PRINTFORMW 取出了%TEXTR("布丁/咖啡果冻/冰淇淋/软冰淇淋/水洋管/蕨饼")%%TEXTR("给予了/交付给了")%%CALLNAME:TARGET%。
				ENDIF
			ENDIF
		ELSE
			IF COND("冬") && RAND:3 == 0
				PRINTFORMW 拿起被炉上的一个橘子、抛给了%CALLNAME:TARGET%。
			ELSE
				PRINTFORMW 从点心存放处适当抽出%TEXTR("粗点心/点心")%%TEXTR("给予了/交付给了")%%CALLNAME:TARGET%。
			ENDIF
		ENDIF
	ELSE
		PRINTFORM 吃掉了
		IF STATE("酔酒",MASTER) && STATE("酔酒",TARGET) && RAND:2
			PRINTFORM 下酒菜
		ELSEIF CFLAG:MASTER:茶 && RAND:3 == 0
			PRINTFORM 茶点
		ELSE
			PRINTFORM %TEXTR("粗点心/膨化食品/爆米花/薯片/百奇饼/曲奇饼/金平糖")%
		ENDIF
		PRINTFORM を
		PRINTFORMW 分给了%CALLNAME:TARGET%一点。
	ENDIF
	PRINTL
	CALL EMOTION_PLUS, "夸奖", TARGET
	PRINTFORMW %TEXTR("（幸福的笑容）/「谢谢♪」/「哇哦♪」")%
	PRINTL
	CALL PRINT_STR, @"%CALLNAME:TARGET%变成了[心情好]状态_黄色_(実行値+5BOUNS)_W"
	CFLAG:夸奖 = 2
CASE "デコピンをする"
	PRINTFORMW %CALLNAME:MASTER%%TEXTR("突然/趁机/毫无预兆地")%对%CALLNAME:TARGET%的脑袋弹了一下。
	PRINTL
	CALL EMOTION_PLUS, "憤怒", TARGET
	PRINTFORMW 「%TEXTR("好痛！？/干什么！/干什么啊！")%」
	PRINTL
	PRINTFORMW %CALLNAME:TARGET%变得不高兴了。
	CALL SETFLAG_DAILY, "心情差"
	CFLAG:夸奖 = 0
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K36_ADDSELECT
;しばらく凍結。うちでおと无くしてろ
;SIF CEVENT("约会：サイ阴蒂ングに行く解禁")
;	STR:選択肢 += "サイ阴蒂ングに行く/"
;サイ阴蒂ング约会というより、自転車で連れ回されるが正確。

@KOJO_DATE_K36_ADDSELECT
SELECTCASE SAVESTR:约会
;サイ阴蒂ング行き先memo
;1.デイキャンプ(冬×)（弁当持参時も×）
;2.突然の豪雨で雨宿り（夏のみ）（弁当持参時も×）（かなり低確率）
;3.鍾乳洞(夏のみ)
;4A.滝(冬×)
;4B.動物とふれあいできる自然公園
;5.湖(冬×)
;6.海辺にある道の駅
;7A.混浴温泉
;7B.見晴らしのいい丘(冬×)（おまけ）
;後でＨすることも考慮して一応スタミナ配分を計算してくれるので、あまり過酷な探検には行かない。
;你「……温泉で釣ってくる割りに選出率低くない？」
;冬場はかなり候補減る。

CASE "サイ阴蒂ングに行く"
	CALL SET_CEVENT, "サイ阴蒂ング约会した"
;導入
	PRINTFORMW 「%TEXTR(@"好。跟着%CALLNAME:TARGET%小姐吧！/有来的时候，也有回去的时候，所以要好好管理自己的体力啊？/目的地是到达后的乐趣！/要好好补充水分哦？")%」
	PRINTFORMW %TEXTR("似乎是为了配合这边的节奏，但仍然以很快的速度/充满活力/无限的活力/以飞快的速度/以不像背着大背包的速度/完全没有放慢速度")%骑着自行车。%CALLNAME:TARGET%的后面的%CALLNAME:MASTER%在%TEXTR("不停地喘着气/拼命地/勉强地/咿咿呀呀地")%追逐着。
	;足腰が鍛えられる。使う筋肉が違うのではないか？
	EXP:腰靈活経験 += 2 + RAND:3
	EXP:MASTER:腰靈活経験 += RAND:3
;ショー胖次からちらりと見えるぱんつを糧に干劲を出す你とか……。厳しいか。
TFLAG:偷瞄内衣可能 = 1

;行き先。
;一分岐当たりの文量をどの程度にするかがけっこう難しい。
;途中で選択肢が表示されない関係上、もうちょっとかさ増ししても大丈夫かも。どうだろう。
		PRINTFORML
	;さらに４分岐するし、便当持って来るとスキップされるのでちょっと発生率を優遇
	IF RAND:4 == 0 && COND("冬") == 0 && CEVENT("约会の便当") == 0
		PRINTFORMW 这次的目的地是附近有大片树林的河边露营地。
		IF CEVENT("初回デイキャンプ约会") == 0
			PRINTFORMW 「叔叔！你好！」
			PRINTFORMW 『哦、%CALLNAME:TARGET%酱。早就等着了。要吃点心吗？』
			PRINTFORMW 「要吃！　超想吃！」
			PRINTFORMW 是已经来过好几次了吗、和一个很熟的男管理员亲热地聊了一会儿，
			PRINTFORMW 不一会儿，抱着帐篷里的工具回到了这边。
			PRINTFORMW 「%CALLNAME:MASTER%、你组装过这样的东西吗？」
			PRINTFORML 两个人一起搭起帐篷，走进去一边谈笑一边分享点心，
			PRINTFORMW 一会儿休息一会儿睡午觉，享受着与平常的喧嚣隔绝的平静时光。
			CALL SET_CEVENT, "初回デイキャンプ约会"
		ELSE
			IF RAND:3 == 0
				IF RAND:3 == 0
					PRINTFORMW 「啊，ごろごろー（拟声词咕噜咕噜，在日语中悠闲无事的意思）。偶尔放松一下也不错啊……」
				ELSEIF RAND:2
					PRINTFORMW 「啊哈哈、什么嘛。%CNAME("一人称")%偶尔也会读普通的小说啊」
				ELSE
					PRINTFORMW 「在这里。就算是星期天也几乎没人，很安静，想思考的时候我就来这里」
					PRINTFORMW 「旺季也没遇到过人多的时候，有点担心经营啊」
				ENDIF
				PRINTFORMW 两个人在河滩上搭起帐篷，偶尔闲聊几句，各自做自己喜欢的事。
				PRINTFORMW 潺潺的水声听起来很舒服，每天的疲劳似乎都消失了一些……。
				;帰りがしんどいし普通に相殺だわ
			;夏はセミがうるさいのでスキップして下のご飯率を上げる。まぁこの季節は去游泳が
			ELSEIF RAND:2 && COND("夏") == 0
				IF RAND:3 == 0
					PRINTFORMW 「虽然没见过、听说偶尔会有野猪下来。%TEXTR(@"到了怎么办/全力冲刺的话能逃掉吗？/%CALLNAME:MASTER%、能打倒野猪吗？ /虽然不比熊强，但也很可怕")%」
				ELSEIF RAND:2 == 0
					PRINTFORMW 「像这样在树中行走，会不会想抓、%TEXTR("独角仙/锹形虫")%呢？」
					PRINTFORMW 「不过，现在不是季节，所以那个。到了夏天怎么样？去找一找怎么样？」
				ELSE
					PRINTFORMW 「%TEXTR(@"有一天♪　森林里面♪/呵呵呵♪今天也是晴天太好了！")%」
				ENDIF
					PRINTFORMW 和%CALLNAME:TARGET%在杂木林中一边聊天一边探险，找了个不错的地方并排设置了折叠式摇椅。
					PRINTFORMW 坐在椅子上，静静地闭上眼睛，听着树叶轻轻摇动的声音，度过了放松的时光……。
			ELSE
				IF RAND:2
					IF RAND:3 == 0
						PRINTFORMW 「……嗯，对对。还想再来点那种感觉的树枝吗」
					ELSE
						PRINTFORMW 「今天我们要生火！　来烤%TEXTR("棉花糖/香肠/法兰克福/奶酪")%吧！」
					ENDIF
					PRINTFORMW 从附近的树林里捡了一些可以当柴火的树枝，用篝火台生火。
					PRINTFORMW 面对面地烤着食物，香气扑鼻，令人流口水……。
					PRINTFORMW 「%TEXTR(@"怎么样？偶尔这样也不错吧？/下次吧。想不想借竿钓鱼什么的%CNAME("一人称")%、也想烤鱼啊/哦、%CNAME("一人称")%烧烤的方法应该还不错？/哼哼哼♪」")%
					PRINTFORMW 两人比平时更兴奋地聊着天，度过了愉快的时光。
				ELSE
					IF RAND:2
						PRINTFORMW 「今天做咖喱喽！」
						PRINTFORMW 「只是把哥哥准备的配料煮一下、%CNAME("一人称")%也绰绰有余！」
					ELSE
						PRINTFORMW 「%CALLNAME:TARGET%小姐下厨！　今天中午、是直接吃方便面！」
						PRINTFORMW 「呵呵呵，在外面吃的话，美味度会增加五成，这样就不能小视了？」
					ENDIF
					PRINTFORMW 从附近的树林里捡来可以当柴火的树枝，在篝火台上生火。
					PRINTFORMW 在锅里咕嘟咕嘟地煮着菜，美味的香味扑鼻而来，强烈地刺激着食欲……。
					PRINTFORML
					PRINTFORMW 「好，完成了！　我開动了！」
					PRINTFORMW ……
					PRINTFORMW …………
				ENDIF
			ENDIF
		ENDIF
	ELSEIF COND("夏") && CEVENT("约会の便当") == 0 && RAND:8 == 0 && EQUIP:胸罩
		PRINTFORMW 途中在公园稍事休息时，刚刚还是晴朗的天气，突然变得乌云蔽日。
		PRINTFORMW 「%TEXTR(@"不会吧。听天气预报说今天是晴天……/总有种不祥的预感。今天去附近的店吧……/不会吧!刚才还是晴天……")%」
		PRINTFORMW %CALLNAME:TARGET%还没说完，就開始滴滴答答地下雨，转眼间就下起了倾盆大雨。
		PRINTFORMW 「%TEXTR(@"呜哇！/撤退！/%CALLNAME:MASTER%！　这边！")%」
		PRINTFORMW 匆匆忙忙地，把自行车拉到亭子里避雨去了。
		PRINTFORMW 「哈啊。照这样下去，好像暂时停不下来…」
		PRINTFORMW 看着暴雨的样子，连刚才坐的长椅都看不清，%CALLNAME:TARGET%的脸阴沉了下来。
		PRINTFORMW 因为浑身湿透，隔着薄衬衫隐约可以看到她的胸罩。
		PRINTFORMW 现在身上穿的好像是%BRA(TARGET)%……。
		PRINTFORMW 「喏，先用这个擦身子。要是感冒了就麻烦了吧？？」
		PRINTFORMW 接过%CALLNAME:TARGET%从背包里翻出来的毛巾，边说边打发时间，直到雨停。
		PRINTFORMW 结果这一天先回家再出发，在附近的家庭餐厅吃饭，切换得很快的%CALLNAME:TARGET%看起来意外的開心。
	CALL SET_CEVENT, "サイ阴蒂ング约会で雨宿りした"
		;ふつう胸罩も着替えてくるだろうけど誤魔化す
	ELSEIF COND("夏") && RAND:4 == 0
		PRINTFORMW 下了自行车，沿着林间小路大步走着，来到了似乎是今天目的地的洞穴入口。
		PRINTFORMW 从附近的招牌上看，好像是钟乳洞，侧耳倾听，能听见哗啦哗啦的水声……。
		PRINTFORMW 「这里夏天非常凉爽，推荐探险地哦」
		PRINTFORMW 「我带了雨靴，在这里换。还有手电筒。很滑，要小心脚下哦？」
		PRINTFORMW 在熟练的%CALLNAME:TARGET%的指示下，做好了可以进行相应搜索的准备。
		PRINTFORMW 「%TEXTR(@"那么出发！/%CALLNAME:TARGET%小姐调查队、出发！/那么，let ' s go！")%」
		PRINTFORMW %TEXTR("虽然被一踏进屋子就跳出来的大群蝙蝠吓了一跳/中途有几次摔倒在地/听着回响的脚步声，小心翼翼地向昏暗的洞穴深处走去")%、带着童心未泯的心情享受了一次小小的冒险。
	ELSEIF RAND:4 == 0
		IF COND("冬") == 0 && RAND:3
			PRINTFORMW 下了自行车，沿着河边在山脚下的森林中前行了十几分钟，传来了哗啦哗啦的水声。
			PRINTFORMW 「啊哈哈，瀑布来了!虽然没准备游泳，不过先玩水吧！」
			PRINTFORMW %CALLNAME:TARGET%光着脚，啪嗒啪嗒地踏进河中，向这边招手。
			PRINTFORMW 应她的邀请，%CALLNAME:MASTER%也脱了鞋，两个人一起享受清凉舒适的水的触感。
	ELSE
			PRINTFORMW 到达似乎是这次的目的地的大型自然公园后，不知从哪里传来了牛鸣声。
			PRINTFORMW 「这里啊，有很多动物。牛等一下再说、先看看%TEXTR("驼鸟/骆驼/驼羊/食蚁兽")%吧！」
			PRINTFORMW 被欢快的%CALLNAME:TARGET%牵着手，接触了各种各样的动物，度过了快乐的时光。
		ENDIF
	ELSEIF RAND:3 == 0 && COND("冬") == 0
		PRINTFORMW 没有波浪的清澈的水面像一面大镜子一样的湖边似乎是这次的目的地。
		PRINTFORMW 「怎么样，很漂亮吧？　%TEXTR("中意吗？ /冬天好像能钓到年轻的鹭鸟，不适合约会啊……/这里是我很喜欢的地方/前几天，我带朋友来的时候，朋友说『殺人鬼要出现了！』")%」
		PRINTFORMW 我们在附近一块适中的岩石上坐下，以平静的心情享受着偶尔鸟鸣的静谧氛围。
	ELSEIF RAND:2
		PRINTFORMW 沿着海风怡人的沿海道路一直往前走，前面的车站就是这次的目的地。
		IF RAND:3 && CEVENT("约会の便当") == 0
			PRINTFORMW 「我喜欢这里的%TEXTR("软冰淇淋/大判烧/豆沙团子/糯米团子")%♪　%TEXTR("今天很努力/作为努力的奖励/顺便补充回来的能量")%%CNAME("一人称")%来请客！」
			PRINTFORMW 两人坐在长椅上，靠在沙滩上，一边眺望波涛翻滚，一边大口大口地品尝美味的甜品。
		ELSE
			PRINTFORMW 「景色不错吧？　%TEXTR("虽然地形上不适合游泳，要不要去浪岸边游一下？/今天虽然谁都没有，但是作为钓鱼的地方好像也很有名哦/听说这里每年都有海龟来下蛋。真想看一次啊……")%」
			PRINTFORMW 和開心地跟自己说话的%CALLNAME:TARGET%并肩，在美丽的沙滩上悠闲地散步。
		ENDIF
	ELSE
		PRINTFORM 我进了山路，又下了自行车
		IF RAND:4 || COND("冬") || COND("夏") || EXP:约会経験 < 10
			PRINTFORMW 徒步爬上狭窄的小路大约十几分钟，
			PRINTFORMW 我们来到了一间虽然老旧但看起来保养得很好的木造小屋前。
			PRINTFORMW 「呵呵呵，就是上次说过的混浴露天温泉哦♪」
			PRINTFORMW 「我还带来了两份好好擦身体的毛巾，一起进去吧♪」
			PRINTFORMW 在简易的更衣处并排脱衣服、%TEXTR("＿（口上原作者待施工的空位）/＿（口上原作者待施工的空位）/虽然中途有猴子乱入的意外、")%%CALLNAME:TARGET%慢慢地泡进了热水里，放松了身心。
			BASE:MASTER:精力 = MIN(BASE:MASTER:精力 + 10, MAXBASE:MASTER:精力)
			BASE:TARGET:精力 = MIN(BASE:TARGET:精力 + 10, MAXBASE:TARGET:精力)
			PRINTL
			PRINTFORML 精力+10（两人都是）
		ELSE
			PRINTFORMW 在没有路的路上与%CALLNAME:TARGET%牵着手走了几十分钟左右，
			PRINTFORMW 突然觉得视野開阔起来，来到了可以将整个城市尽收眼底的小山丘上。
			PRINTFORMW 「太阳升起的时候来是最棒的，即使是中午也感觉很好吧？」
			PRINTFORMW 「告诉你这个位置%CNAME("二人称")%可是第一次。要对其他人保密啊？」
			SIF CEVENT("约会の便当") == 0
				PRINTFORMW 一边喝着%CALLNAME:TARGET%带来的水壶里的茶，一边欣赏着珍贵的绝景……。
		ENDIF
	ENDIF
	PRINTL
	;情緒はさほど上がらんけど、一緒に和我一起玩もらえてうれしいこいつの好感度は上がる
	CFLAG:TARGET:好感度 += 50
	PRINTFORMW 好感度+50
	FLAG:情緒 += 15

ENDSELECT

path: ERB/EVENT_K/36 ユカ/EVENT_K36_SELECT.ERB


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
			PRINTFORML 「%TEXTR("啊，怎么了？ /怎么了？ /嗯？")%」
	ENDIF

CASE "称呼変更完了"
	IF STRCOUNTS(CNAME("主人"), "兄") || CNAME("主人") == "欧尼酱" || CNAME("主人") == "お尼酱" || CNAME("主人") == "尼酱"
		PRINTFORMW 「%CNAME("二人称")%不是这样的身份所以驳回！」
		TFLAG:取引拒否 = 1
	ENDIF

CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「两个人在一起很開心，如果可以的话，我希望永远是好朋友」
		PRINTFORMW 「%CNAME("二人称")%和%CNAME("一人称")%抱有一样的感情、是什么意思……？」
		PRINTFORMW 「在这种情况下就算说是成为恋人，也完全搞不明白。现在能确认这些就足够了吗」
	;失敗
	ELSE
		IF CHARA_NUM("相思相愛")
			PRINTFORMW 「喂喂，已经有本命恋人了吧？」
			PRINTFORMW 「随便说这种话，对双方都很失礼的？」
		ELSE
			PRINTFORMW 「%TEXTR("不可以/不行/不可能的吧")%」
		ENDIF
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「不可思议的是，我现在已经不穿了」
	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		IF COND("合意：胖次交易") && CHECK_PANTIES("性感")
			PRINTFORML 「这件内衣要加钱的。」
			PRINTFORMW 「在外面这种H的东西需要很大的勇气啊？」
			TFLAG:取引価格 = 800
		ENDIF
	ELSE
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW 「好啦好啦♪」
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW 「不行的事情就是不行」
		TFLAG:取引承諾 = 0
	;取引初承諾
	ELSEIF COND("合意：胖次交易") == 0
		PRINTFORMW 「唔姆……」
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
		PRINTFORMW 「呐呐、果然打算拿它当自慰的施法材料？」
		PRINTFORMW 「你想怎么用就怎么用，但不要在其他人面前这样做哦。会害羞的…………」
	ELSE
		PRINTFORMW 「%TEXTR("是的是的……/哈啊……/好的/真是够了……")%」
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
	ENDIF
	RETURN 1
CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否
		PRINTFORMW 「欸、虽然正常来说应该拒绝的」
	ELSE
		PRINTFORMW 「那可不行」
	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		IF COND("冬") && PLACE("野外")
			PRINTFORMW 「你知道现在是几月份吗！会感冒的吧！」
			TFLAG:取引拒否 = 1
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0
		PRINTFORMW 「虽然可以，但你要好好陪我啊？」
	ELSE

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

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && CHARA_NUM("室内の邪魔者")
		PRINTFORMW 「在这里脱有点…」
	ELSEIF PLACE("野外")
		PRINTFORMW 「你在说什么！你以为这里是哪里啊！」
	ELSEIF COND("冬") && PLACE("個室") == 0
		PRINTFORMW 「你知道现在是几月份吗！会感冒的吧！」
	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 「不要，太麻烦了」
	SIF ABL:信頼 >= 3
		PRINTFORMW 「如果晚上还想交流的话，用LINE联系不就好了？」
CASE "同居希望"
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「嗯，算了，不过哥哥们会担心的，来打声招呼吧。」
		PRINTFORMW 「……怎么了？你那露骨的不愿意的反应？」
		PRINTFORMW 「我想应该会很啰嗦，但应该不会被吃掉的，没関系的。大概」
	ENDIF
CASE "同居頻度的相談"
	SIF COND("同居：一直")
			PRINTFORMW 「偶尔也去看看哥哥他们吧」

CASE "便当拒否"
	PRINTFORMW 「%CNAME("一人称")%可是专門吃这个来着的」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORML 「%TEXTR("好了好了。这次也是一周/好了。交给我吧/做了！")%」
	ELSE
		PRINTFORMW 「嗯，既然你这么说，那就试试吧」
		IF COND("同居中")
			PRINTFORMW 「拜托的话，弗理希艾尔小姐能帮忙吗？你怎么想？」
		ELSE
			PRINTFORMW 「虽然是有哥哥帮忙的，一半以上的便当都是他做的」
		ENDIF
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			PRINTFORMW 「嘛，还是喝酒比较轻松」
		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回。相思相愛以外でどう反応させればいいのか私には分からない。
			IF DEVENT(ARGS) == 0
				IF TALENT:相思相愛
					PRINTFORMW 「什么、什么啊……你还打算生孩子啊……」
					PRINTFORMW 「不，没関系。如果是%CNAME("一人称")%和%CALLNAME:MASTER%的孩子的话，还是想要的……」
					PRINTFORMW 「但是，如果真的生下的话，一定会要负起责任哦。绝对不会放你离開的……♪」
					;一応ここで解除しておくけど、特に妊娠耐性はないので別に危険日じゃなくても口服避孕薬さえ剥がせば普通に孕む。
					SETCOLOR DEF_COLOR("黄色")
					PRINTFORML
					PRINTFORML 从%CALLNAME:TARGET%那里得到了[危険日性交]的合意。
					RESETCOLOR
					CALL DEL_CEVENT, "合意禁止：危険日生性交"
					CALL SET_GOUI, "危険日生性交"
				ENDIF
			ELSE

			ENDIF
		ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"
	PRINTFORMW 「不要。%CNAME("二人称")%因为粗心大意，所以害怕发生事故」
;COND("讨厌口服避孕薬")の人に口服避孕薬服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬服用拒否"

CASE "淫紋拒否"
	PRINTFORMW 「我觉得这东西并不适合%CNAME("一人称")%啊」
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「……真的能剥落下来吧。骗我的话可是会生气的哦？」
	ELSE
		PRINTFORMW 「贴的时候要好好照顾%CNAME("一人称")%啊？」
	ENDIF

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

	ENDIF
;和我一起玩る側だと普通につけちゃうけど、一般人にどう反応させるかとなると難しい
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

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

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「虽然我觉得还是让它在这里休息一下比较好……」
		PRINTFORMW %CALLNAME:TARGET%用指尖从裤子上方摩擦着%CALLNAME:MASTER%的股间。
		PRINTFORMW 「只是稍微碰一下，就会勃起来啊……♪」
		PRINTFORMW 「没办法，就由温柔的%CALLNAME:TARGET%小姐来照顾你吧」
	ELSE
		PRINTFORMW 「好，交给我吧！」
	ENDIF
CASE "性処理の一時中断"
	PRINTFORMW 「榨得太多，累得够呛了吗？要保重身体哦？」
CASE "性処理拒否"
	PRINTFORMW 「对……休息时间就休息一下吧…」
;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	SELECTCASE CONDS("蝴蝶結")
		CASE "无蝴蝶結"
		CASEELSE
			IF CEVENT("蝴蝶結装備") == 0
				PRINTFORMW 「%CNAME("一人称")%、以前可从来没有一次做过这样的……」
				PRINTFORMW %CALLNAME:TARGET%一边露出微妙的表情一边摆弄着頭上的缎带。
				CALL SET_CEVENT, "蝴蝶結装備"
			ELSE
				PRINTFORMW 「嗯，缎带。缎带啊……」
			ENDIF
	ENDSELECT
CASE "改变髪型拒否"
	PRINTFORMW 「太麻烦了，pass吧」
;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
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 "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	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
	[IF_DEBUG]
		PRINTFORMW @KOJO_WISH_K36, 汎用ＯＫ
	[ENDIF]
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「买的东西太多，需要帮助吗？　那我就帮你一把吧。」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")
		PRINTFORMW 「好了好了。我要换衣服了所以%TEXTR("转过身去吧/不要偷看哦？/稍微等一下")%」
	ELSE
		IF RAND:5 == 0
			PRINTFORMW 「钱包没忘吧？」
		ELSEIF RAND:4 == 0
			PRINTFORMW 「肚子饿了，顺便买点什么吧」
		ELSEIF RAND:3 == 0
			PRINTFORMW 「let's go！」
		ELSEIF RAND:2
			PRINTFORMW 「哦，是去买东西吗？」
		ELSE
			PRINTFORMW 「好，走吧」
		ENDIF
	ENDIF
CASE "目送"
	IF RAND:2 && COND("夜")
		PRINTFORMW 「现在去买东西？天已经黑了，小心点哦？」
	ELSE
		PRINTFORMW 「慢走！」
	ENDIF
CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0
			PRINTFORMW 「哈啊、色狼呢……」
	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	;制服以外だとまず裙履かないから実質昼だけ
	ELSEIF TALENT:淫乱 && COND("欲求不満") && CHECK_SKIRT("裙")
		PRINTFORMW 「嗯……如果是这样的话、就由%CALLNAME:MASTER%来脱好了♪」
		PRINTFORMW %CALLNAME:TARGET%通过にいと笑うと、你の目の前で%SKIRT(TARGET, "略")%の下摆をひらりとめくり上げた。
	ELSE
		PRINTFORMW 「啊，好的好的……」
	ENDIF

CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")
		PRINTFORMW 「欸、现在这身打扮就出去？　是有什么大甩卖吗？」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「嗯？ 有急事吗？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
			PRINTFORMW 「……说好了？　说好了？　绝对不能从%CNAME("一人称")%的身旁离開哦？」
			PRINTFORMW %CALLNAME:TARGET%紧紧捏着%CALLNAME:MASTER%的衣服的衣角。
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「突然怎么了？收银员是熟人而感到尴尬了吗？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORMW 「这身打扮吗？被报警了怎么办…」
	ELSE
		PRINTFORMW 「太好了，交给我吧！」
	ENDIF

CASE "询问有什么想要的东西"
	IF ITEM:避孕套 < 5 && CFLAG:口服避孕薬
		PRINTFORML 「对了，弗理希艾尔小姐说避孕套快要不够了」
		PRINTFORML 「顺便再买些说不定会很高兴」
	ELSEIF ITEM:潤滑液 < 3 && CFLAG:口服避孕薬
		PRINTFORML 「对了，弗理希艾尔小姐说过，化妆水的存量已经不多了」
		PRINTFORML 「如果钱有富余的话买下来不是更好吗？」
	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		PRINTFORML 「现在这种情况下怎么能问这种话！悠哉的家伙！」
	ELSE
		CALL SET_CEVENT, "询问有什么想要的东西：何か食べたい"
		IF COND("冬") && COND("夜") && RAND:2
			PRINTFORML 「関东煮看起来很好吃啊……不去买一点吗？」
		ELSEIF COND("夏") && COND("昼")
			PRINTFORML 「太热了、想吃%TEXTR("冰糕/软冰淇淋/刨冰")%了」
		ELSE
			PRINTFORML 「说的也是。现在有点想吃%TEXTR("肉包/披萨包/豆沙包/热狗/炸鸡块/可乐饼")%呢」
		ENDIF
	ENDIF
CASE "商品購入"
	;事案
	SIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		RETURN 1
	;今買った物。別に店員に恥じらう必要ないだろ（堂々とした構え）
	SELECTCASE STR:購入道具
	CASE "撮影機材"
		IF SEVENT(STR:購入道具) == 0
			PRINTFORMW （欸。%MONEY_C(30000)%！？）
			PRINTFORMW （原来摄像机是这样贵的。我不知道……）
		ELSE
			PRINTFORMW （那家伙，又要换新了吗！真有钱啊……）
		ENDIF
	CASE "媚薬"
		IF SEVENT(STR:購入道具) == 0 && EXP:媚薬経験 == 0
			PRINTFORMW （媚药啊。这种东西有效吗……）
		ELSE
			PRINTFORMW 「不好意思。请进行结账」
		ENDIF
	CASE "肛用振動棒","ぺ二バン"
		IF EXP:玩弄Ａ経験 >= 20 && ABL:施虐属性 >= 3 && EXP:MASTER:Ａ経験 >= 20
			IF SEVENT(STR:購入道具) == 0
				PRINTFORMW 「欸、%CNAME("一人称")%来选择也可以吗？　唔……？」
			ELSE
				PRINTFORMW 「选哪个好呢……♪」
			ENDIF
		ENDIF
	CASEELSE
		PRINTFORMW 「不好意思，请结账」
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	IF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")
		CALL PRINT_STR, "「……_／／／_」_W"
	ELSE
		PRINTFORML %TEXTR("「哦……」/「嗯……」/(这个，实际用起来舒服吗？)是什么呢？完全想不出用途……)/(原来如此啊……)(肚子饿了……）")%
		PRINTFORMW %CALLNAME:TARGET%对货架上的商品%TEXTR("一边拿着看/一边饶有兴趣地观察/一边盯着/一边阅读说明")%来打发时间。

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSEIF CHECK_CLO("裸体")
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		;高確率で↑で聞いた食べたいものと一致しないのでその場合は弾く
		IF COND("夜") && CEVENT("询问有什么想要的东西：何か食べたい") == 0
			PRINTFORMW （吞咽咀嚼声）
			PRINTFORMW 回去的路上、%CALLNAME:TARGET%边走边吃自己买的%TEXTR("肉包/披萨包/豆沙包/热狗/炸鸡块/可乐饼")%。
			PRINTFORMW 「%TEXTR("呵呵呵，一口的话可以分给你哦。/不礼貌吗？反正是晚上没関系吧？ /最近，肚子马上就饿了。可能是身体活动过度了")%」
			CALL DEL_CEVENT, "询问有什么想要的东西：何か食べたい"
		ELSE
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/36 ユカ/EVENT_K36_SHOP.ERB

license: unknown