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

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K30_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_K30_ADDSELECT
SIF CEVENT("トランクの中身は？") == 0 && CEVENT("悪魔のトランク") && PLACE("partner的房間") && BASE:魂 >= 300
	STR:選択肢 += "トランクの中身を見る/"
SIF CEVENT("一日一話") == 0 && CEVENT("ソロモン７２柱の裏側")
	STR:選択肢 += "悪魔の裏話を聞く/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K30_ADDSELECT, ARGS

#DIM CHOICE
#DIMS CHOICES

SELECTCASE ARGS
CASE "トランクの中身を見る"
	IF CFLAG:4001 >= 13
			PRINTFORMW 「我检查了这个箱子好几遍才弄明白怎么用它」
			PRINTFORMW 「里面的东西好像自己就会补充、有什么想要的我们直接拿就好了」
			CALL PRINT_SELECT, "開ける/还是算了"
			IF RESULT == 0
				PRINTFORMW 要把什么拿出来…。
				PRINTFORML [0] 爱情魔药
				PRINTFORML [1] 每天的零花钱
				PRINTFORML [2] 消耗品
				PRINTFORML [3] 箱庭
				CALL INPUT_SELECT, 4
				CHOICE = RESULT

				SELECTCASE CHOICE
					CASE 0
						PRINTFORMW 「喝了这个、%CNAME("二人称")%看起来会比平时更有魅力…」
						PRINTFORMW %CALLNAME:TARGET%也一起喝了下去…。
						BASE:欲求不満 += 30
						BASE:MASTER:精力 += 10
					CASE 1
						PRINTFORMW 「hmm、我们这次也把它分了吧」
						PRINTFORMW %CALLNAME:TARGET%也分享了这笔钱。
						MONEY += 5000
					CASE 2
						PRINTFORMW 「库库、这是给我用的%CNAME("一人称")%、还是给…」
						PRINTFORMW 补充了避孕套等消耗品。
						ITEM:潤滑液 += 3
						ITEM:避孕套 += 3
						ITEM:媚薬 += 1
					CASE 3
						PRINTFORMW 「哦、%CNAME("二人称")%发现它的魅力了吗」
						PRINTFORMW 「不过你可要小心，他们一旦发现我们，就可能会发起攻击」
						PRINTFORMW 暂时和%CALLNAME:TARGET%一起游览了箱庭世界…。
				ENDSELECT
			ELSE
				PRINTFORMW 「嗯、没事吗？不用客气」
			ENDIF
			CALL SET_CEVENT, "トランクの中身は？"
		ELSE
			PRINTFORMW 「哇哦…让我们看看今天里面有什么？」
			CALL PRINT_SELECT, "開ける/还是算了"
			IF RESULT == 0
				PRINTFORMW 「好吧、不知道每个番号含义的人就是这样…你选哪个？」
				SIF CEVENT("中身：獅子の瞳") == 0
					PRINTFORML [ 0] 『４４０１１３』
				SIF CEVENT("中身：真夏の夜の淫夢") == 0
					PRINTFORML [ 1] 『１１４５１４』
				SIF CEVENT("中身：呪いの偽札") == 0
					PRINTFORML [ 2] 『３６９６１３』
				SIF CEVENT("中身：ＰＳＶＲ？") == 0
					PRINTFORML [ 3] 『５１２２５６』
				SIF CEVENT("中身：タブレット") == 0
					PRINTFORML [ 4] 『５８８６０５』
				SIF CEVENT("中身：飲む愛の魔法") == 0
					PRINTFORML [ 5] 『２４０８７２』
				SIF CEVENT("中身：おこづかい") == 0
					PRINTFORML [ 6] 『３１６９６３』
				SIF CEVENT("中身：消耗品セット")
					PRINTFORML [ 7] 『４５６１０６』
				SIF CEVENT("中身：？？？") == 0
					PRINTFORML [ 8] 『１２３４５６』
				SIF CEVENT("中身：魔物の死体") == 0
					PRINTFORML [ 9] 『１１１１１１』
				SIF CEVENT("中身：箱庭") == 0
					PRINTFORML [10] 『１９８９２２』
				SIF CEVENT("中身：魔界へのポータル") == 0
					PRINTFORML [11] 『１７１０２６』
				CALL INPUT_SELECT, 11
				CHOICE = RESULT

				SELECTCASE CHOICE
					CASE 0
						PRINTFORMW 「番号設定…完了。好了、里面装的什么？」
						PRINTFORMW 打開箱子后、里面装着一枚狮子頭造型的黄金戒指。
						PRINTFORMW 狮子頭的上半部分镶嵌着鲜红的宝石…。
						PRINTFORMW 「这是很有价值的珠宝。好，好好收起来吧」
						PRINTFORMW 「番号事…『４４０１１３』吗」
						CALL SET_CEVENT, "中身：獅子の瞳"
					CASE 1
						PRINTFORMW 「这个吗？『１１４５１４』」
						PRINTFORMW 打開后备箱…在某间屋子里。
						PRINTFORMW 「这样这样…嗯，看来是穿越时空来到了人间的某个地方。进去看看吧」
						PRINTFORMW 一边交谈%CALLNAME:TARGET%和%CALLNAME:MASTER%手牵着手打量行李箱中的世界。
						PRINTFORMW 「日期上写着…公园２００１年的夏天吗。哼啊的声音好吵啊」
						PRINTFORMW 「冰箱里面…只有冰红茶可以吗、%CNAME("二人称")%要来点吗？」
						PRINTFORMW %CALLNAME:TARGET%就像回到自己的房间里一样四处翻找…。
						PRINTFORMW 「我好像看出来了、住这里的人是个年轻的男人。生活状态出人意料的好啊…嗯？」
						PRINTFORMW 『ko↑ko↓』『はえ～すっごい大きい…』
						PRINTFORMW 「哎呀、房主回来了。是时候离開了」
						PRINTFORMW 外面传来两个男人的声音，两人慌忙收拾好杯子，回到原来的世界。
						CALL SET_CEVENT, "中身：真夏の夜の淫夢"
					CASE 2
						PRINTFORMW 「番号『３６９６１３』啊、这样这样」
						PRINTFORMW 里面是…哇里面有好多钞票啊…！
						PRINTFORMW 「哈呜、钱吗…但是等等，你看看这个」
						PRINTFORMW 「看吧、这些钱的编号都是1和3对吧？再魔界里这些都是用了会受到诅咒的假钞」
						PRINTFORMW 「在哪里都能用但是会越用越多。就算想要处理撕掉烧掉也会分裂成新的…就是这样的诅咒」
						PRINTFORMW 「用它的人很快就会被用不完的钞票淹没…搞不好整个魔界都会因为被这钞票淹没而灭亡」
						CALL SET_CEVENT, "中身：呪いの偽札"
					CASE 3
						PRINTFORMW 「好了、咔哒咔哒…『５１２２５６』」
						PRINTFORMW 箱子里面装的是…ＰＳＶＲ。
						PRINTFORMW 「是最近流行的戴在頭上的…頭戴式显示器。带上看看效果吧」
						PRINTFORMW 「哦…？这是…%CNAME("二人称")%的周围有什么数字。玩一会儿就放回去吧」
						PRINTFORMW %CALLNAME:MASTER%也戴上看看、确实能在%CALLNAME:TARGET%周围看见几个数字…。
						PRINTFORMW {CFLAG:好感度}、{EXP:Ｖ性交経験}、{EXP:絶頂経験}…这些数字代表什么吗？
						CALL SET_CEVENT, "中身：ＰＳＶＲ？"
					CASE 4
						PRINTFORMW 「『５８８６０５』走」
						PRINTFORMW 里面是…一个品相很差的平板电脑。
						PRINTFORMW 打開一看、一堆破烂的乱七八糟的机器人发出了很多怨恨的图像、
						PRINTFORMW 在一页页『好想复活』的最后是以『我复活了』为结尾的一个文本文件。
						PRINTFORMW 「除此之外的数据好像都损坏了…太吓人了，还是收起来比较好吧」
						PRINTFORMW 「…嗯？%CNAME("二人称")%よ、电脑后面写了什么吗」
						PRINTFORMW 听她这么说，我翻了过来，上面用漂亮的文字写着。
						PRINTFORMW 『这是死去的我们残留思念数据的bug，永别了，我们回忆的残骸。』
						CALL SET_CEVENT, "中身：タブレット"
					CASE 5
						PRINTFORMW 「好、打開了…番号是『２４０８７２』」
						PRINTFORMW 里面装的是…装满了羊皮纸和各种颜色液体的瓶子。
						PRINTFORMW 我拿起来一看，画着一个眨眼的魔女，上面贴着『爱情魔药』的标签。
						PRINTFORMW 羊皮纸上用弯弯曲曲的字体写着『增强与所爱之人的夜生活!一支强力效果!』
						CALL PRINT_STRW, @"『感谢定期购买合同_H_　一个月一次，自动补货，请尽情使用_H_」上面写着。_"
						PRINTFORMW 「呼，哪个哪个…桃子味的很好喝…而且好像也没有下毒…咕噜…咕噜…」
						PRINTFORMW 「哈哈哈…这个、普通人喝了也没问题。%CNAME("二人称")%要来一口吗？」
						PRINTFORMW %CALLNAME:TARGET%一口气干了一瓶粉红色魔药后，递过来一瓶蓝色魔药。
						PRINTFORMW 喝了之后，伴随着清爽的汽水风味，身体充满活力…这样的感觉。
						PRINTFORMW …%CALLNAME:TARGET%下意识地舔着嘴唇、情欲浑浊的目光紧紧地盯着%CALLNAME:MASTER%…。
						BASE:欲求不満 += 30
						BASE:MASTER:精力 += 10
						CALL SET_CEVENT, "中身：飲む愛の魔法"
					CASE 6
						PRINTFORMW 「番号是『３１６９６３』吗、咔哒咔哒」
						PRINTFORMW 里里面是…一个装钱的信封。
						PRINTFORML 信封上面写着『■■■■每天的零花钱　如果你拿到了它　一定要　！绝对要！　把它放回去』
						PRINTFORMW 在后面是『这一次我还是没做成隆胸手术　我受够没钱的日子了(>_<)』…上面这样写着。
						PRINTFORMW 「嘿咻嘿咻、看来里面是实实在在的真钱啊」
						PRINTFORMW 「而且好像一天过后又会出现…库库、要平分吗、%CNAME("二人称")%♪」
						PRINTFORMW %CALLNAME:MASTER%和%CALLNAME:TARGET%平分了信封里的钱，%MONEY_C(5000)%到手。
						MONEY += 5000
						CALL SET_CEVENT, "中身：おこづかい"
					CASE 7
						PRINTFORMW 「番号是…『４５６１０６』吗、里面是什么呢？」
						PRINTFORMW 箱子里的东西是……大量的润滑液、避孕套和春药。
						PRINTFORMW 一旁放着的纸上面写道『请自由使用。財団法人【愉快的夜生活和明朗的家庭计划】。
						PRINTFORMW 「这、这是…就看到的这样…%CNAME("二人称")%觉得该怎么办。看起来没什么异常」
						PRINTFORMW %CALLNAME:MASTER%决定饱含感激地收下…。
						ITEM:50 += 3
						ITEM:51 += 3
						ITEM:52 += 1
						CALL SET_CEVENT, "中身：消耗品セット"
					CASE 8
						PRINTFORMW 「『１２３４５６』…好随便的感觉」
						PRINTFORMW 箱子里面是…是从上方观察到%CALLNAME:MASTER%和%CALLNAME:TARGET%看箱子里的样子。
						PRINTFORMW 箱子里的%CALLNAME:MASTER%和%CALLNAME:TARGET%也在看着箱子里的箱子里的%CALLNAME:MASTER%和%CALLNAME:TARGET%…。
						PRINTFORMW 「这是什么…感觉有点不舒服…还是関上吧」
						PRINTFORMW %CALLNAME:MASTER%関上箱子的瞬间、好像传来了関上箱子的声音…似乎是上面传来的。
						CALL SET_CEVENT, "中身：？？？"
					CASE 9
						PRINTFORM 「番号是『１１１１１１』
						IF CEVENT("中身：魔物") == 0
							PRINTFORMW 吗…怎么说呢，太简单了」
							PRINTFORMW 「里卖弄是…啊！？危险%CNAME("二人称")%！！」
							PRINTFORMW %CALLNAME:TARGET%朝着%CALLNAME:MASTER%大声喊道，通知抓住他的领子用力向后拉去！
							PRINTFORMW 就在这一瞬间，从敞開的箱子里里一柄血淋淋的镰刀似的东西突然刺向了%CALLNAME:MASTER%刚才所在的地方…！
							PRINTFORMW 「喂、你这混蛋！！」
							PRINTFORMW 怒火中烧的%CALLNAME:TARGET%、一脚踢向袭击者、纠缠有黑红色的闪电、
							PRINTFORMW 接着她用脚把镰刀踢了回去、又流畅地用脚后跟把打開的箱子関上、锁上锁、压在了上面。
							PRINTFORMW 「对不起%CNAME("二人称")%、都是我的错！？虽然干掉那家伙了、但没有小心提放都是%CNAME("一人称")%的问题…真的对不起」
								PRINTFORMW 从冷汗浸湿的%CALLNAME:TARGET%压着的箱子里传来一声恐惧的悲鸣、然后消失了…。
							CALL SET_CEVENT, "中身：魔物"
						ELSE
							PRINTFORMW …等一下！这个不是会出现魔物的番号吗！？」
							PRINTFORMW 「不对、虽然那个可能死掉了，但万一还有别的话…啊啊啊、好了，真要打開那就%CNAME("一人称")%亲自来打開！」
							PRINTFORMW 说着一把推開%CALLNAME:MASTER%，%CALLNAME:TARGET%小心翼翼地把手放在箱子上…一口气打開了！
							PRINTFORMW ………嗯？何も反応が無什么反应都没有い。
							PRINTFORMW 「………？」
							PRINTFORMW %CALLNAME:TARGET%惊讶地看向里面…嗯、松了口气，回过頭向%CALLNAME:MASTER%招了招手。
							PRINTFORMW 往里面一看，是一个十米左右深有散发着霉味的深井，井底躺着螳螂一样的魔物尸体。…。
							PRINTFORMW 「你看%CNAME("二人称")%、那东西焦黑得一塌糊涂。而且这里好像是深井的牢房」
							PRINTFORMW 「看来是不用担心了…但小心起见，以后还是不要输这个番号了」
							CALL SET_CEVENT, "中身：魔物の死体"
						ENDIF
					CASE 10
						PRINTFORMW 「番号『１９８９２２』。会有什么呢…」
						PRINTFORMW 打開箱子…里面是一个小小的箱庭。
						PRINTFORMW 就像中世纪欧洲的村庄，仔细一看，还有像米粒一样的居民在微微移动…。
						PRINTFORMW 「咦，这不就是魔界流行的现实箱庭吗！」
						PRINTFORMW 「好怀念啊…经常一个人玩。喂，动起来，动起来」
						PRINTFORMW 用手指戳着里面的小人、%CALLNAME:TARGET%得意地说着。
						PRINTFORMW 「以人类世界的游戏为基础，魔界的创作者们聚集在一起想要制作更厉害的游戏。」
						PRINTFORMW 「这是好事者和所罗門72柱的一部分共同出资開发的。%CNAME("一人称")%也是股东之一」
						PRINTFORMW 「人间的手柄也能连上这东西来玩…」
						PRINTFORMW 「这样一边用手直接干涉，一边观赏人们的生活…很厉害吧？」
						PRINTFORMW 「…好像也有喜欢这样的部员呢。要不要使用空间转移传送进去…？」
						CALL SET_CEVENT, "中身：箱庭"
					CASE 11
						PRINTFORMW 「番号『１７１０２６』…」
						PRINTFORMW 打開箱子…里面竟然是一个从未见过的动植物横行霸道的异世界。
						PRINTFORMW 「这个，这个…！难道是通往魔界的大門！？」
						PRINTFORMW %CALLNAME:TARGET%一边推開%CALLNAME:MASTER%一边这样说道，打算跳进去。
						PRINTFORMW 一只脚接触大門的瞬间、伴随着破裂声响起、%CALLNAME:TARGET%被弹了出来、%CALLNAME:MASTER%安全地把她接进了怀中…。
						PRINTFORMW 「咕…我、我忘了…。今现在%CNAME("一人称")%已经不能随便进去了…」
						PRINTFORMW %CALLNAME:TARGET%在%CALLNAME:MASTER%公主抱内下咬牙切齿地说道、但不久又大胆地笑了出来。
						PRINTFORMW 「不过、现在%CNAME("一人称")%只是不能进入魔界，还是可以通过箱子和魔界里的东西进行交换…」
						PRINTFORMW 「总有一天能找到回去的希望的…这已经是很大的收獲了……先写封信吧…」
						PRINTFORMW 「…哦、对不起，%CNAME("二人称")%。我栽进自己的世界里了。肯定很重吧」
						PRINTFORMW %CALLNAME:TARGET%从%CALLNAME:MASTER%的腕上轻轻滑下来、用小脚点点箱子。
						PRINTFORMW 「如你所见，这是通往魔界的出入口。不过，我真没想到他们竟然联系得这么紧密。」
						PRINTFORMW 「虽然想让谁下去调查一下，但魔界是只有恶魔才能正常活动的环境」
						PRINTFORMW 「而且发生什么事的时候%CNAME("一人称")%也没法帮忙…」
						CALL SET_CEVENT, "中身：魔界へのポータル"
				ENDSELECT
				CFLAG:4001 += 1
			ELSE
				PRINTFORMW 「嗯、没事吗？不用客气」
			ENDIF
			CALL SET_CEVENT, "トランクの中身は？"
		ENDIF
CASE "悪魔の裏話を聞く"
	IF CFLAG:4000 >= 9
				PRINTFORMW 「说到所罗門。関于七十二支柱的事我已经讲过了…」
				PRINTFORMW 「还有什么想再听一遍的故事吗？如果有的话就说吧」
				CALL PRINT_SELECT, "もう一度話を聞く/还是算了"
				IF RESULT == 0
					PRINTFORMW 「那么、对谁的故事感兴趣？」
					PRINTFORML [0] バアルの話
					PRINTFORML [1] ブエルとデカラビアの話
					PRINTFORML [2] グレモリーの話
					PRINTFORML [3] アスタロトの話
					PRINTFORML [4] グラシャラボラスとアンドラスの話
					PRINTFORML [5] アムドゥシアスの話
					PRINTFORML [6] セーレの話
					PRINTFORML [7] ベリアルの話
					PRINTFORML [8] アスモデウスの話
					CALL INPUT_SELECT, 9
					CHOICE = RESULT

					SELECTCASE CHOICE
						CASE 0
						GOTO K30_DAILY_TALK_0
						CASE 1
						GOTO K30_DAILY_TALK_1
						CASE 2
						GOTO K30_DAILY_TALK_2
						CASE 3
						GOTO K30_DAILY_TALK_3
						CASE 4
						GOTO K30_DAILY_TALK_4
						CASE 5
						GOTO K30_DAILY_TALK_5
						CASE 6
						GOTO K30_DAILY_TALK_6
						CASE 7
						GOTO K30_DAILY_TALK_7
						CASE 8
						GOTO K30_DAILY_TALK_8
					ENDSELECT
				ELSE
					PRINTFORMW 「嗯…那就来次普通的闲聊吧」
					PRINTFORMW 和%CALLNAME:TARGET%笑着谈论一会。
				ENDIF
			ELSE
				PRINTFORMW 「那么…要不要告诉你所罗門72柱的故事?」
				CALL PRINT_SELECT, "話を聞く/还是算了"
				IF RESULT == 0
					PRINTFORMW 「那么、对谁的故事感兴趣？」
					SIF CEVENT("バアルの話") == 0
						PRINTFORML [0] バアルの話
					SIF CEVENT("ブエルとデカラビアの話") == 0
						PRINTFORML [1] ブエルとデカラビアの話
					SIF CEVENT("グレモリーの話") == 0
						PRINTFORML [2] グレモリーの話
					SIF CEVENT("アスタロトの話") == 0
						PRINTFORML [3] アスタロトの話
					SIF CEVENT("グラシャラボラスとアンドラスの話") == 0
						PRINTFORML [4] グラシャラボラスとアンドラスの話
					SIF CEVENT("アムドゥシアスの話") == 0
						PRINTFORML [5] アムドゥシアスの話
					SIF CEVENT("セーレの話") == 0
						PRINTFORML [6] セーレの話
					SIF CEVENT("ベリアルの話") == 0
						PRINTFORML [7] ベリアルの話
					SIF CEVENT("アスモデウスの話") == 0
						PRINTFORML [8] アスモデウスの話
					CALL INPUT_SELECT, 9
					CHOICE = RESULT

					SELECTCASE CHOICE
						CASE 0
						$K30_DAILY_TALK_0
						PRINTFORMW 「好、序列１位、就聊聊バアル的故事吧」
						PRINTFORMW 「那个人是魔界的王之一，能使人变得不可见，也能给予人智慧。」
						PRINTFORMW 「在人间有名的恶魔ベルゼブブ…传说蠅王は也是バアル的化身」
						PRINTFORMW 「性格惊人的好、和%CNAME("一人称")%这样的下级恶魔交谈也能保持优雅」
						PRINTFORMW 「对人似乎也不像其他恶魔那样鄙夷或厌恶」
						PRINTFORMW 「最近的兴趣是带着仆人猫和青蛙去人类世界一日游。」
						PRINTFORMW 「据妻子アスタロト说，最近她喜欢去中东一带」
						CALL SET_CEVENT, "バアルの話"
						CASE 1
						$K30_DAILY_TALK_1
						PRINTFORMW 「序列１０位的ブエル大人和序列６９位的デカラビア的故事」
						PRINTFORMW 「这两个恶魔在我们恶魔看来都很奇怪……嗯，应该说太有个性了吧」
						PRINTFORMW 「毕竟ブエル大人的样子就是狮子頭上长着人的五条腿。而且还会滚来滚去」
						PRINTFORMW 「デカラビア大人更像是中间有眼睛的海星…不是，是五角星的形状」
						PRINTFORMW 「就那本书的插图来说、也不准确。我想作者也写不明白」
						PRINTFORMW 「现在他们两个吗？还是老样子，在恶魔大学担任药草学的名誉教授」
						CALL SET_CEVENT, "ブエルとデカラビアの話"
						CASE 2
						$K30_DAILY_TALK_2
						PRINTFORMW 「好、序列５６位的グレモリー大人的故事吗」
						PRINTFORMW 「グレモリー大人会告诉我们过去、现在、未来的事和隐藏的财宝」
						PRINTFORMW 「他还拥有獲得所有女性爱情的力量，…」
						PRINTFORMW 「…最近，我也不小心受到了爱的影响。」
						PRINTFORMW 「他还把召唤者绑架到魔界来骑着大骆驼去度蜜月。他沉浸在爱情中很久了」
						CALL SET_CEVENT, "グレモリーの話"
						CASE 3
						$K30_DAILY_TALK_3
						PRINTFORMW 「序列２９位、アスタロト大人。バアル大人的另一半」
						PRINTFORMW 「再说%CNAME("一人称")%的私事，她也是%CNAME("一人称")%的老师之一…我在她那学到的是战斗技巧」
						PRINTFORMW 「她是个漂亮的美女，精通各种学问，传授隐藏的知识。」
						PRINTFORMW 「但他有着男人以上的勇猛和刻薄，所以书上都说他是男性，这也没办法」
						PRINTFORMW 「说到这里，我想起来了，以前的アスタロト大人嘴里一直散发着恶臭的毒气。」
						PRINTFORMW 「看不下去的バアル还说了出来、让アスタロト大人生气了还爆发了夫妻间的争吵…」
						PRINTFORMW 「动摇魔界的大战持续了一周内结束，并且，从此魔界有2座山和1座岛消失了。」
						PRINTFORMW 「从那以后，アスタロト大人学会了控制口中的毒气，性格也变得圆滑了。」
						PRINTFORMW 「…最后一个…夫妻吵架后再有了一个孩子后『重归于好』这是他们间的秘密…」
						CALL SET_CEVENT, "アスタロトの話"
						CASE 4
						$K30_DAILY_TALK_4
						PRINTFORMW 「序列２５位的グラシャラボラス和序列６３位的アンドラス…都是魔界里首屈一指的危险恶魔」
						PRINTFORMW 「他们性格非常凶暴，会将召唤者连同同伴一起杀光，引发杀戮和流血事件。」
						PRINTFORMW 「虽然グラシャラボラス能预见过去和未来，提供人文科学知识，但是……」
						PRINTFORMW 「アンドラス会在周围播下不和的种子，有一种让别人互相仇恨的棘手能力。」
						PRINTFORMW 「魔界里好像发生过几次以此为原因的大规模暴动。」
						PRINTFORMW 「现在他们因为多次暴动而被剥夺爵位，监禁在魔界的某个地方。」
						PRINTFORMW 「…对了，最近有个混账想把他们放出来，利用他们搞纷争…」
						PRINTFORMW 「是吗…那个ダエモスラビヤ是个天使吗…？」
						CALL SET_CEVENT, "グラシャラボラスとアンドラスの話"
						CASE 5
						$K30_DAILY_TALK_5
						PRINTFORMW 「序列６７位的アムドゥシアス的故事吗」
						PRINTFORMW 「召喚者の注文に応じた木々の加工を得意とし、他にも音楽の才能や良い使い魔を与えてくださる」
						PRINTFORMW 「またアムドゥシアス公自身も魔界屈指の音楽の才能に溢れており、専属の音楽隊で演奏会を開催するほどだ」
						PRINTFORMW 「召喚された際も音楽隊を率いているのだが、人类には音楽隊の姿が見えないのが残念だな」
						PRINTFORMW 「そんなアムドゥシアス公、最近は人类界の音ゲ―とやらにハマっているそうだ」
						PRINTFORMW 「最高得点の更新に余念がなく、游戏の関係者に干渉して自己的楽曲を追加させているとかいないとか…」
						CALL SET_CEVENT, "アムドゥシアスの話"
						CASE 6
						$K30_DAILY_TALK_6
						PRINTFORMW 「%CNAME("一人称")%の師の一人で有憧れ、序列７０位のセーレ様の話だ」
						PRINTFORMW 「盗品や宝物、其他諸々の事柄について真摯に語り、移動する、物を運ぶという点において右に並ぶ者是ない」
						PRINTFORMW 「非常に誠実かつ温柔性格の方で、召喚者だけでなく他の悪魔の無理難題も難なく叶えてくださるのだ」
						PRINTFORMW 「昔、%CNAME("一人称")%はセーレ様に無茶を言って弟子にしていただいてな」
						PRINTFORMW 「空間転移の魔法だけでなく、悪魔と人类の関係について色々と教わった…」
						PRINTFORMW 「父や母と並んで%CNAME("一人称")%の原点ともいえる、尊敬する師なのだ」
						CALL SET_CEVENT, "セーレの話"
						CASE 7
						$K30_DAILY_TALK_7
						PRINTFORMW 「７２柱一番の有名どころ…序列６８位、ベリアル様…いや陛下についてだ」
						PRINTFORMW 「悪徳を愛し、耳障りの良い言葉で人を欺き、無様に破滅する様を見て楽しむ」
						PRINTFORMW 「人类を愛しているとは言うが、あの方にとって人类は自分を楽しませるための玩具程度でしかない」
						PRINTFORMW 「ベリアル陛下はまさしく人类の思う悪魔そのもので有、最も悪魔らしい悪魔と呼ばれているな」
						PRINTFORMW 「…ここまでだと悪いイメージしかないだろうが、実際のベリアル陛下は中々親しみやすい方だぞ」
						PRINTFORMW 「わがままで恶作剧好きで自分を陛下と呼ぶよう強要するが、本当は義理堅く面倒見が良い」
						PRINTFORMW 「率先して他の７２柱や部下の誕生日会を開いたり、紛争の戦災孤児から赤おじ桑と呼び親しまれて…」
						PRINTFORMW 「ほとんど会ったことのないはずの%CNAME("一人称")%に毎年誕生日送禮が送られてくるのだ」
						PRINTFORMW 「亲手自制のバースデーカードと蛋糕までついてな。…意外だろう？」
						CALL SET_CEVENT, "ベリアルの話"
						CASE 8
						$K30_DAILY_TALK_8
						PRINTFORMW 「序列３２位、アスモデウス様の話だ」
						PRINTFORMW 「知っているかもしれないが、あの方は『色欲』を司る偉大なる魔王だ…一度かのソロモン王に下剋上を果たしたとか」
						PRINTFORMW 「凄まじい御姿…牛、人、羊の頭にガチョウの足と毒蛇の尾巴、軍旗と槍を持ち火竜に乗っておられる」
						PRINTFORMW 「しかし恐惧ずに敬意を払って接すると非常に喜ばれる…喜び過ぎて素が出てしまうのだが…」
						PRINTFORMW 「とにかく、美徳を司る指輪やガチョウの肉、幾何学や天文術の知識を授けてくださる」
						PRINTFORMW 「で、あの方の素は…忌憚なく言うと開朗なエロジジイそのものだ。それに加減を知らない」
						PRINTFORMW 「厳かな口調が一転、人を酱付けで呼び、機関銃のような性騷擾発言連発…まさしく色欲の魔王だ」
						PRINTFORMW 「何より、三日間三食ガチョウ料理にせざるを得ないぐらい肉を出すのは本当に勘弁して欲しかったな…」
						CALL SET_CEVENT, "アスモデウスの話"
					ENDSELECT
					CFLAG:4000 += 1
					CALL SET_CEVENT, "一日一話"
				ELSE
					PRINTFORMW 「%TEXTR("hmm/是吗")%…有什么想知道的就问我」
				ENDIF
			ENDIF
ENDSELECT

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

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

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K30_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K30_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "追加選択肢その１"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %CALLNAME:TARGET%对%SAVESTR:约会%的反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %CALLNAME:TARGET%对%SAVESTR:约会%的反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			IF RAND:2
				PRINTFORMW 「嗯…%CNAME("二人称")%、%CNAME("二人称")%怎么了…啊…」
				CALL PRINT_STRW, "「在做爱的时候、啊、哦、魂的交易啊…噫、好的、我听你说…啊嗯_H_」"
			ELSE
				PRINTFORMW 「啊…在这、这种时候…呼、拜托我…？」
				CALL PRINT_STRW, "「好、好、我知道了、我在听你说话、停下来、先别再插了、哇啊_H_」"
			ENDIF
		ELSE
			PRINTFORMW 「魂的交易？在幽会的时候吗？」
			PRINTFORMW 「算了吧。你想要什么？%CNAME("二人称")%よ」
		ENDIF
	ELSE
		IF RAND:2
			PRINTFORMW 「%CNAME("二人称")%怎么了、有什么事吗？」
			PRINTFORMW 「好的，说说看」
		ELSE
			PRINTFORMW 「好了、魂的交易開始了」
			PRINTFORMW 「%CNAME("二人称")%、今天有什么想要的？」
		ENDIF
	ENDIF
CASE "愛の告白"
	PRINTFORMW 「呐…喜欢%CNAME("一人称")%吗？」
	PRINTFORMW 「…应该是開玩笑的吧、%CNAME("二人称")%」
	PRINTFORMW 「如果你是认真的，我向你道歉，但爱上一个恶魔是不会有好结果的」
	;告白成功！
	IF TALENT:恋慕
		PRINTFORMW %CALLNAME:TARGET%想早早结束这个话题、但%CALLNAME:MASTER%却紧紧地抱住了她。
		PRINTFORMW 瞬間、%CALLNAME:TARGET%的深红眼眸中充满了愤怒，身上散发出让人背脊发冷的气息。
		PRINTFORML
		PRINTFORMW 「……怎么？%CNAME("二人称")%是听不懂话的笨蛋吗？」
		PRINTFORMW 「…我再说一遍。爱上一个恶魔，这不是正常人做的出来的事。不会有好结果的」
		PRINTFORMW 「明白了吗？你听明白了吗？现在、把%CNAME("一人称")%放開」
		PRINTFORMW …没有放手。
		PRINTFORMW 「………怎么了？你没听见吗？」
		PRINTFORMW 「再来一次…把頭转过来。看着%CNAME("一人称")%的眼睛。%CNAME("一人称")%说看眼睛」
		PRINTFORMW 「『把手放開』『离開%CNAME("一人称")%』『马上』」
		PRINTFORMW …就像第一次遇到%CALLNAME:TARGET%那样、通过瞳孔直接向我的大脑发出了命令。
		PRINTFORMW 但是%CALLNAME:MASTER%不会放開%CALLNAME:TARGET%。
		PRINTFORML
		PRINTFORMW 「…竟然可以对抗%CNAME("一人称")%的瞳術…这不可能…这怎么可能…！」
		PRINTFORMW 「…好…我要让你再明白这是件蠢事…！」
		PRINTFORMW 咬牙切齿地说道，在这瞬间%CALLNAME:TARGET%明显动摇了、但眼中马上開始燃烧起比刚才更激烈的愤怒。
		PRINTFORMW 此时此刻、一股没有用语言作为载体的拒绝的命令如洪水般席卷%CALLNAME:MASTER%的大脑。
		PRINTFORMW 『住手』『防守』『别过来』『讨厌』『滚開』『消失』『为什么』『到底为什么』………
		PRINTFORMW 一个一个命令像暴风雨一样敲打着远去的意识远…但、%CALLNAME:MASTER%仍然没有放開%CALLNAME:TARGET%。
		PRINTFORML
		PRINTFORMW …不知道过了多久，命令的风暴突然停止了。
		PRINTFORMW 「く哈、哈、哈…的…为什么，为什么…瞳術……怎么不起作用…？」
		PRINTFORMW 像是要支撑喃喃自语、喘着粗气崩溃的%CALLNAME:TARGET%一样、紧紧地抱着。
		PRINTFORMW 被%CALLNAME:MASTER%抱住地%CALLNAME:TARGET%好像变了个人似的、断断续续的说了几句话。
		PRINTFORML
		PRINTFORMW 「为什么这么贴近%CNAME("一人称")%？」
		PRINTFORMW 「为什么这么温柔地接触%CNAME("一人称")%？」
		PRINTFORMW 「为什么抱得那么紧？？」
		PRINTFORMW 「为什么…明明这么严厉地拒绝…只是契约对象地%CNAME("一人称")%很重要吗？」
		PRINTFORMW …此时此刻%CALLNAME:MASTER%把所有的想法都传递给了%CALLNAME:TARGET%。
		PRINTFORMW 时不时地参杂着心意、一味地、直截了当的…。
		PRINTFORML
		PRINTFORMW 在%CALLNAME:MASTER%传达了自己地心意之后、沉默一会的%CALLNAME:TARGET%再次開口。
		PRINTFORMW 「…嗯、%CNAME("二人称")%。%CNAME("一人称")%…%CNAME("一人称")%很害怕」
		PRINTFORMW 「%CNAME("一人称")%害怕和彼此深爱的人永别」
		PRINTFORMW 「我害怕忘记曾经爱我的人然后没心没肺地活着」
		PRINTFORMW 「就像失去父母时一样，我害怕幸福的时光会崩塌。」
		PRINTFORMW 「特别是%CNAME("一人称")%是个永生的恶魔、而%CNAME("二人称")%仅仅只是时光短暂的凡人」
		PRINTFORMW 「无论多么相爱相偎，人终究会离開恶魔逝去」
		PRINTFORMW 「这是无论怎么挣扎都无法改变的命运…是无法忍受的讨厌和害怕…不过，已经够了」
		PRINTFORML
		PRINTFORMW 「%CNAME("一人称")%…我、%CALLNAME:TARGET%爱%NAME:MASTER%」
		PRINTFORMW 「爱%CNAME("二人称")%，忠诚于%CNAME("二人称")%，无论是生病的时候、健康的时候…富裕的时候、贫穷的时候…」
		PRINTFORMW 「直到死亡将我们分開…不、死亡也不能将我们分開…」
		PRINTFORMW 「我发誓，作为妻子，我爱你，尊重你，爱你」
		PRINTFORMW 「然后…在此之前我一直接受父母的爱和仆人的爱。」
		PRINTFORMW 「今后我也接受%NAME:MASTER%的爱…也给予%NAME:MASTER%爱…」
		PRINTFORMW 「发誓会抱着绝对不能忘记，再也不能放手的爱活下去。」
		PRINTFORMW 充满泪水的鲜红双眼直视着%CALLNAME:MASTER%、%CALLNAME:TARGET%缔造出爱与誓言。
		PRINTFORMW 最为回应%CALLNAME:MASTER%给了%CALLNAME:TARGET%一个深深的吻，她也闭上眼睛回应。
		PRINTFORMW …两个人好像忘记了时间，继续着最甜蜜的、连接内心的吻…。
		PRINTFORML
		PRINTFORMW 「…库库、这样的感觉好吗？%CNAME("二人称")%♪」
		PRINTFORMW 「托你的福心情舒畅了…或者说放松了。谢谢，%CNAME("二人称")%」
		PRINTFORMW 「还有…真的对不起。因为软弱，%CNAME("一人称")%没有做好心理准备，才会做出那么过分的事…」
		PRINTFORMW 和刚才完全不同，完全恢复了平时的状态。%CALLNAME:TARGET%说没什么関系。
		PRINTFORMW 「库库、你真是个特别的人对吧？这就是我的丈夫♪」
		PRINTFORMW 「啊，对了、我真想%CNAME("一人称")%到我父母的墓前告诉他们」
		PRINTFORMW 「现在…是啊、是向%CNAME("二人称")%和你%CNAME("一人称")%共同的父母祈祷？」
		PRINTFORMW 「…谢谢。我爱你、%NAME:MASTER%…♪」
	;失敗
	ELSE
		PRINTFORMW 「…%CNAME("二人称")%身边一定有人愿意与你共度一生吧。」
		PRINTFORMW 「如果喜欢%CNAME("一人称")%、就给那个人幸福吧。好吗、%CNAME("二人称")%？」
		PRINTFORMW %CNAME("二人称")%的幸福就是%CNAME("一人称")%的幸福、%CALLNAME:TARGET%微笑的表情下、暗藏着一丝寂寞与无奈…。
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「好啊。…我是想这么说但现在不行」
		PRINTFORMW 「…物理上就没法给你」
	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	RETURN 0
CASE "胖次"
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「嗯、为了一块步而交易魂…」
		PRINTFORMW %CALLNAME:TARGET%一脸困惑地脱下%PANTIES(TARGET, "胖次")%用手递了过来…。
		PRINTFORMW 「给、价值一魂地胖次。%CNAME("二人称")%喜欢就好」
	ELSE
		IF RAND:2 && COND("易出汗") && CHECK_PANTIES("泳装") == 0
			CALL DAILY_MESSAGE, "脱下胖次交了出去"
			PRINTFORMW 「好，给你吧……我身上全是汗」
			PRINTFORMW %CALLNAME:TARGET%的胖次、散发着令人上瘾的汗水、香水和雌性的气味…。
		ELSEIF RAND:2 || CHECK_PANTIES("泳装")
			PRINTFORMW 「如果你这么想要，为什么不把它脱下来？嗯？」
			PRINTFORMW %CALLNAME:TARGET%把手伸向%PANTIES(TARGET, "胖次")%，露出挑逗的笑容、慢慢地脱了下来…。
			PRINTFORMW 「库库、对啊对啊…改变一下兴趣也是好的吧」
		ELSE
			PRINTFORMW 「喏，这可是前贵族恶魔的高级内裤哦。…クククッ♪」
			PRINTFORMW 「拿来当配还是收藏都是%CNAME("二人称")%的自由，要好好珍惜哦」
			PRINTFORMW 「如果是普通人的话……即使耗费掉无可替代的一生也得不到吧」
		ENDIF
	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0
		PRINTFORMW 「呜、呜呣…既然是%CNAME("二人称")%请求的话…」
	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 「对不起，那件事以后再说吧」
CASE "同居希望"
	PRINTFORMW 「咦、可以吗？不、如果%CNAME("二人称")%决定可以的话…」
	PRINTFORMW 「…太好了，这样就可以摆脱租空房子的生活了」
CASE "同居頻度的相談"

CASE "便当拒否"
	PRINTFORMW 「便当？…找那个女仆也行吧」
	PRINTFORMW 「…因为还没弄清楚%CNAME("二人称")%的口味。%CNAME("一人称")%也没有让你满意的自信」
	PRINTFORMW 「如果能更了解%CNAME("二人称")%一些的话…」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")
		PRINTFORMW 「想吃%CNAME("一人称")%的便当吗？」
		PRINTFORMW 「好吧，明天開始怎样？」
	;以下は初めて作ってもらうよう变成了とき
	ELSE
		;IF COND("同居中")

		;ELSE
			PRINTFORMW 「便当…便当吗…我还是能把握%CNAME("二人称")%的口味的…呜呣…」
			PRINTFORMW 试着叫%CALLNAME:TARGET%做便当时、她发出了少有的含糊不清的反应。
			PRINTFORMW 「说来惭愧，我在魔界的时候就一直把做饭这件事交给别人」
			PRINTFORMW 「%CNAME("一人称")%没多少做的出来的菜谱…」
			PRINTFORMW 「%CNAME("二人称")%如果不介意的话…%CNAME("一人称")%明天就带过来」
		;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 "淫紋贴纸"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3
		PRINTFORMW 「行、就用这只毛笔吧。只要顺着纹路画就好，它会修正成效果最好的图样，是个很方便的道具」
		PRINTFORMW 「库库、我被看到都不觉得羞耻、画得淫靡一点、拜托你了♪」
		PRINTFORMW
		PRINTFORMW …%CALLNAME:TARGET%開着玩笑说到、但当毛笔触碰到她的肌肤的时候就突然安静下来。
		PRINTFORMW 「库、呼………啊咕………啊呜……啊、啊、咯、哈呜………」
		PRINTFORMW 「………去了、去、了…呼呜……啊呼呜、呼、呼………！」
		PRINTFORMW 听说在刻上深度淫纹的期间，难以忍受的快乐和痛苦会不断袭来。。
		PRINTFORMW 似乎是为了证明这一点，躺在床上，满身大汗着粗气的%CALLNAME:TARGET%的陰唇上，愛液滴答滴答地向下滴落…。
		PRINTFORMW 看见她痛苦的样子%CALLNAME:PLAYER%不由得停下了手、%CALLNAME:TARGET%马上呵斥他。
		PRINTFORMW 「等等…!停下，别……!现在停下来的话，会更痛苦地…!」
		PRINTFORMW 「身体、嘎、还没有、撑不住、因、因为只、只是…！等结束了、就、一下子、就、好了…继续…继续啊！」
		PRINTFORMW …听从%CALLNAME:TARGET%的恳求、%CALLNAME:PLAYER%在她甜蜜而痛苦地喘息中默默绘制着淫纹…。
	CASE 4
		PRINTFORMW 「去了…！嗯呜、啊哈、哈啊啊、哈啊啊……！」
		PRINTFORMW 「噫、咕、去了、去了、去、了啊…！了…嘎、哈啊啊……！」
		PRINTFORMW …为了不让%CALLNAME:PLAYER%被狂暴的自己伤害、先使用魔法荆棘束缚住自己后、%CALLNAME:TARGET%再向身上绘制淫纹。
		PRINTFORMW 感受到比以往更为强烈的快感和痛苦后，她甜美悲痛的叫声逐渐混浊，从秘部溢出的爱液的量越来越大也越来越粘稠…。
		PRINTFORMW 「啊咕呜、啊嘎…呜咕、咕、嘎哈、嗯、哈啊啊、啊、哈啊、嘎哈啊啊…！」
		PRINTFORMW 「呱……更…多、嘎…更…多、不…不行…行…嘎噫、噫噫噫……」
		PRINTFORMW %CALLNAME:TARGET%不情愿地摇着頭，眼角闪烁着泪光、%CALLNAME:PLAYER%告诉他马上就好后、默默地完成淫纹地最后一笔…。
	ENDSELECT
CASE "淫紋"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3
		PRINTFORMW 「嗯……！？哈、哈噫、哈啊啊啊啊啊！！」
		PRINTFORMW 「啊…哈、哈——、哈——、哈…啊嗯……」
		PRINTFORMW 在刻完淫纹的瞬间、%CALLNAME:TARGET%一改之前痛苦的声音，发出令人荡然的娇媚呐喊。
		PRINTFORMW 与此同时，她的阴唇微微涌出了潮水…。
		PRINTFORMW 「哈啊、哈啊、啊、呼…哈啊………」
		PRINTFORMW 「…库、库库…刻得很好…不来做吗、%CNAME("二人称")%…」
		PRINTFORMW 「啊嗯♪不、不要、不要用力…！我还很敏感…っ」
		PRINTFORMW 被汗液浸湿的%CALLNAME:TARGET%一边慢悠悠地满足地抚摸小腹上地淫纹、一边和%CALLNAME:PLAYER%调情…。
	CASE 4
		PRINTFORMW 「哈、去、去…去了了了了了了…～～～～～～～～！！？」
		PRINTFORMW 「哈、嘎！？哦、啊、啊！！？啊～～～～～～～～！！！」
		PRINTFORMW 写完最后一笔的瞬间，荆棘消失了、%CALLNAME:TARGET%的尖叫瞬间决堤，反弓起腰不停的痉挛。
		PRINTFORMW 潮水从她的阴唇喷涌而出，不断发出扑哧扑哧的声音，打湿了%CALLNAME:PLAYER%的脸…。
		PRINTFORMW 「……啊゛啊、哈啊………啊哈、哈、哈呜、啊、哈啊………」
		PRINTFORMW 潮喷结束后，%CALLNAME:TARGET%沉浸在高潮的余韵中…。
		PRINTFORMW 「哈啊…哈啊…对不起、%CNAME("二人称")%…把%CNAME("二人称")%脸弄脏了…给%CNAME("二人称")%擦干净…」
		PRINTFORMW 从强烈的高潮中坠落的%CALLNAME:TARGET%露出奄奄一息的神色、用颤抖的手擦拭%CALLNAME:PLAYER%的面孔。
		PRINTFORMW 在她的下腹、完整的淫纹向四周发出淡淡的淫靡光辉…。
	ENDSELECT

CASE "拜托処理性欲"
	PRINTFORMW 「性处理吗…其实最近%CNAME("一人称")%有时候到了中午都消解不了性欲…」
	PRINTFORMW 「刚才还在厕所里面一个人自慰…所以说、这是双赢♪」
	PRINTFORMW 「那我就接受了…上课的时候就把地点写纸条上传给我。我到时候就去找你♪」
	PRINTFORMW %CALLNAME:TARGET%向%CALLNAME:PLAYER%露出了可怜又淫荡的笑容…。
CASE "性処理の一時中断"
	PRINTFORMW 「怎么…？不需要%CNAME("一人称")%处理%CNAME("二人称")%的性欲了吗？」
	PRINTFORMW 「好吧…那在床上%CNAME("二人称")%要好好满足%CNAME("一人称")%」
CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"
	;フェリ桑のより尖ってる感
	PRINTFORMW 「嗯、%CNAME("二人称")%想看看吗」
	PRINTFORMW %CALLNAME:TARGET%的屁股上，长这带頭部带有尖锐的箭頭型的黑色长尾巴。
	PRINTFORMW 「嘿咻嘿咻♪怎么样，感觉和预想的一样吧」
	PRINTFORMW %CALLNAME:TARGET%灵巧地操纵着尾巴，用頭部挠着%CALLNAME:PLAYER%的胸口和脸…。
CASE "给我看尾巴拒否"
	PRINTFORMW 「不行。不好意思，那不能随便给别人看的」
CASE "髪型変更の感想"
	RETURN 1
	PRINTFORMW

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
;CASE "连褲襪着替え拒否"

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORMW 「…不、魂不够了」
	PRINTFORMW 「最好再稍微恢复一下再来、%CNAME("二人称")%よ」
CASE "想要钱"
	PRINTFORMW 「嗯，钱吗……确实，不管做什么都需要钱。」
	PRINTFORMW 「已经给你了。打開%TEXTR("钱包/口袋")%确认一下就好」
CASE "甜言蜜语"
	PRINTFORMW 「啊、你想要要东西吗」
	IF RAND:2
		PRINTFORMW 「那就把这本『罗斯尼尔诗集　完全版』从1卷到100卷全部背下来吧」
		PRINTFORMW 「这是開玩笑。要是认真读这种书，全身都会变成糖蜜融化的、库库♪」
		PRINTFORMW 「这是一个魔咒、只要你看到封面就会记住里面的内容…交易完成」
	ELSE
		PRINTFORMW 「好啊。来，把额頭伸过来」
		PRINTFORMW %CALLNAME:PLAYER%按要求把頭伸过来，%CALLNAME:TARGET%用额頭轻轻碰了一下。
		PRINTFORMW 瞬間、%CALLNAME:PLAYER%的頭感觉到有什么东西流进来了…。
	ENDIF
CASE "謎之魅力"
	PRINTFORMW 「嗯，想增加魅力…好吧」
	PRINTFORMW %CALLNAME:TARGET%低声嘟囔着什么，摸了%CALLNAME:PLAYER%一下脸…。
	PRINTFORMW 「这样就好了…。什么？没什么感觉？」
	PRINTFORMW 「那是当然。变的不是外貌，而是其他地方。」
	PRINTFORMW 「不用担心，现在至少在%CNAME("一人称")%的眼里已经很有魅力了…库库♪」
CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER
			PRINTFORMW 「啊，什么？现在要强化你的射精量吗？」
			PRINTFORMW 「真是的、%CNAME("二人称")%啊、老是想一些不像话的事啊♪」
			PRINTFORMW %CALLNAME:TARGET%笑骂道、把手放到%CALLNAME:PLAYER%的下腹部…。。
			PRINTFORMW 「哇哦、哇哦、感觉到了吗、%CNAME("二人称")%的精液正在粘合到一起、变成块膨胀起来了♪」
			PRINTFORMW 「%CNAME("一人称")%感觉到了、它在%CNAME("一人称")%的小穴里不断膨胀、已经在沿着尿道向上爬了…！」
			PRINTFORMW 「就那样、别客气、用更多的射精量让%CNAME("一人称")%快乐吧、%CNAME("二人称")%♪」
		ELSE
			PRINTFORMW 「什么?现在要强化射精量?」
			PRINTFORMW 「库库、好啊…我还是会榨干你的」
			PRINTFORMW %CALLNAME:TARGET%笑着叼住%CALLNAME:PLAYER%的睾丸、轻轻吟唱着…。
		ENDIF
	ELSE
		PRINTFORMW 「哇~强化射精量吗…。好啊」
		PRINTFORMW %CALLNAME:TARGET%咯咯地笑着伸手去摸%CALLNAME:PLAYER%的精巣…。
		PRINTFORMW 「好吧，可能会疼一会儿，等半天或者射出来就舒服了。要不现在就试一试？」
	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"
		PRINTFORMW 「原来如此，确实%CNAME("二人称")%的大小说好听点是可爱，说难听点就是寒酸。」
		PRINTFORMW 「哎呀，别生气，别生气。已经结束了」
		PRINTFORMW 「…这样就可以了。怎么样，变得和一般人差不多了吧」
	CASE "普通"
		PRINTFORMW 「库库、一般人的大小也不满足吗…%CNAME("二人称")%膨胀了啊」
		PRINTFORMW 「…好，已经可以了吧。…这大小摸起来挺舒服的」
		PRINTFORMW …%NAME:MASTER%的阴茎被%CALLNAME:TARGET%当成了玩具…。
	CASE "巨根"
		PRINTFORMW 「嗯，我觉得已经够大了…%CNAME("二人称")%真是贪心啊」
		PRINTFORMW 「…好了，现在已经非常大了……真想尝尝。库库♪」
		PRINTFORMW %CALLNAME:TARGET%说着，舌頭从阴茎的龟頭慢慢地舐到根部，露出淫荡的笑容…。
	CASE "馬根"
		PRINTFORMW 「…%CNAME("二人称")%，你是认真的吗？并不是越大越好…」
		PRINTFORMW 「不，如果说这是你的愿望，那我就听你的……这么大的家伙，会有人喜欢吗？」
		PRINTFORMW 「…好了。…都能当作第三条胳膊或腿了、唔嗯」
	;腕並以上
	CASEELSE
		PRINTFORMW 「…为什么%CNAME("二人称")%要这样做…」
		PRINTFORMW 「………我就不说什么了」
	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"
		PRINTFORMW 「这真是太小了…嗯，好可爱啊」
		PRINTFORMW 「整个玉袋都能含在嘴里了…库库♪」
	CASE "巨根"
		PRINTFORMW 「呼呣…和其他人一样」
		PRINTFORMW 「难道说和你做爱的人被你弄哭了吗？嗯？」
	CASE "馬根"
		PRINTFORMW 「好、好吗？这么漂亮的东西？」
		PRINTFORMW 「…话虽这么说，但还是挺坚强的…库库♪」
	;腕並、規格外
	CASEELSE
		PRINTFORMW 「没错，你重新考虑了一下」
		PRINTFORMW 「好，快点变小吧」
	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「不好意思，你的要求不行」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「好吧」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

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
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

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

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

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

	ENDIF
ENDSELECT

path: ERB/EVENT_K/30 オスカー/EVENT_K30_SHOP.ERB