code:
;-------------------------------------------------
;この角色独自の衣装を設定する。制服、体操服、泳装は既存のものから選ぶのが楽です
;-------------------------------------------------
@CLOTHES_K100, ARGS

SELECTCASE ARGS
;高めの頻度で着用します。設定しなくてもかまいません
CASE "内衣"
	CSTR:胖次 = 蕾丝的胖次/純白/透明/
	CSTR:胸罩 = 蕾丝胸罩/純白/透明/

;衣装に関わらず常に付けている飾品です。設定しなくてもかまいません
CASE "飾品"
	CSTR:飾品 =

;学園での便装です。設定必須です
CASE "制服"
	CALL SET_COSTUME, "女仆装"
;学園の体育の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "体操服"
	CALL SET_COSTUME, "体操服布鲁马"
;学園の水泳の授業で着ます。この格好のまま部室に現れたりもする。設定必須です
CASE "泳装"
	CALL SET_COSTUME, "死库水"

;自宅など学園外で着ます。設定必須です
CASE "便装"
	CALL SET_COSTUME, "女仆装"

;自分的房間(not主人公的房間)で着ます
CASE "居家服"

;约会以外で家から外出際に着ます。情人旅館呼出とかね
CASE "外出装"

;もちろん约会の際に着ます
CASE "约会衣装"

ENDSELECT

;-------------------------------------------------
;時間帯や場所に応じた髪型、表情の変化を記述する。設定しなくてもかまいません
;-------------------------------------------------
@MAIDFACE_K100
IF PLACE("自宅")

ELSE

ENDIF


code:
;-------------------------------------------------
;各種打招呼
;-------------------------------------------------
@KOJO_GREETING_K100, ARGS
#DIM MEMO_LINECOUNT
;イベント発生中の角色
#DIM ACTOR
;イベント発生中の角色の默认のCALLNAME
#DIMS CALLNAME_ACTOR

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"

;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"

	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"

	CASE "朝添い寝"

	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「んぅっ…はむっ…どうぞ、お好きな時に…_HH_」_W"
			SIF EXP_GAIN("射精経験", PLAYER)
				PRINTFORMW 含糊不清地说起了话，结果来不及吞咽的白浆流了出来……
		ELSE
			PRINTFORMW 「哈……这是清晨份的女仆服务，希望您会喜欢。」
		ENDIF
	CASE "朝乳交", "朝足交"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「早上好呢~嗯哼~_H_」_W"
			CALL PRINT_STR, @"「从早上開始就很有精神呢」_W"
			SIF EXP_GAIN("射精経験", PLAYER)
				CALL PRINT_STR, @"「很有精神地射出来了_H_这样就会清爽起来了吧~」_W"
		ELSE
			PRINTFORMW 「哈……这是清晨份的服务，希望%CNAME("二人称")%会喜欢。」
		ENDIF
	CASE "朝騎乗位"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「啊哈~啊哈~，大清早就这么有精神……」_W"
			CALL PRINT_STR, @"「嗯哼~好硬呢~清早在的身体里发泄一下的话，一天都会过的很舒服吧_HH_」_W"
			SIF EXP_GAIN("射精経験", PLAYER)
				CALL PRINT_STR, @"「哈，肚子里热热的……真不少呢_HH_」_W"
		ELSE
			PRINTFORML 「希望%CNAME("二人称")%会喜欢……这样的叫醒方式……」
		ENDIF
	CASE "朝の新妻PLAY"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「早上好呢~亲爱的~_HH_」_W"
			CALL PRINT_STR, @"「要服侍亲爱的起床了呢~」_W"
			CALL PRINT_STR, @"「请好好地期待吧~」_W"
		ELSE
			PRINTFORMW 「接下来%CALLNAME:TARGET%会扮演服侍%CNAME("二人称")%起床的新婚妻子」
			PRINTFORMW 「希望%CNAME("二人称")%会喜欢这样的服务」
		ENDIF
	ENDSELECT

	;何か発言してたらここまで
	SIF LINECOUNT > MEMO_LINECOUNT
		RETURN 1

	IF COND("体育")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "一番乗り"
	PRINTFORMW 「啊……这里只有%CNAME("一人称")%和%CNAME("二人称")%两个人呢」
	IF TALENT:恋慕 && ABL:欲望 >= 6
		PRINTFORMW %CALLNAME:TARGET%用水汪汪的眼神看了过来，眼神装满了欲望
		CALL PRINT_STR, @"「那个……_HH_」_W"
		PRINTFORMW %CALLNAME:TARGET%似乎開始不自觉地摩擦着大腿……
	ELSEIF TALENT:恋慕
		PRINTFORMW %CALLNAME:TARGET%恭恭敬敬的坐在了%CALLNAME:MASTER%的身边。看起来很乖巧的样子
		PRINTFORMW 「如果%CNAME("二人称")%有什么吩咐的话……」
	ELSE
		PRINTFORMW 「如果%CNAME("二人称")%有什么吩咐的话……」
	ENDIF
CASE "ただいま"

CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("二人称")%终于回来了，有什么能为%CNAME("二人称")%做的吗？」
			PRINTFORMW 「今天一天都遇到了什么事情呢？有什么不顺心的事的的话，可以讲给%CNAME("一人称")%听」
		ELSE
			PRINTFORMW 「%CNAME("二人称")%回来了，有什么吩咐吗？」
			PRINTFORMW 「今天一天过得怎么样呢？」
		ENDIF
	ELSE
		PRINTFORMW 「%CNAME("二人称")%回来了，有什么吩咐吗？」
		PRINTFORMW 「今天一天过得怎么样呢？」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された

	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)

	ELSE

	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0

	ELSEIF CFLAG:呼び出された

	ELSE

	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

	;ここでは括弧に『』を使う

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")

	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0

	ELSE

	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW
CASE "便当"
	IF RAND:6 == 0 && TALENT:淫乱
		PRINTFORMW 「呐、这是今天的便当呢」
		PRINTFORMW %CALLNAME:MASTER%把便当盒打開确认了一下，都是不知名的食材呢……
		PRINTFORMW 「请%CNAME("二人称")%不用担心呢，都是对身体非常“有益”的材料」
		PRINTFORMW %CALLNAME:TARGET%的嘴角挂着意味深长的微笑
	ELSEIF RAND:5 == 0 && TALENT:恋慕
		PRINTFORMW 「这是%CNAME("二人称")%今天的午餐」
		PRINTFORMW 「做的是%TEXTR("辣子鸡丁/麻婆豆腐/鱼香肉丝/夫妻肺片")%呢，如果%CNAME("二人称")%不想吃辣的话」
		PRINTFORMW 「也有%TEXTR("龙井虾仁/粉丝白菜/素三鲜/竹笋红烧肉")%可以选呢」
		PRINTFORMW 看来%CALLNAME:TARGET%准备了不止一份的可选项啊……
	ELSEIF RAND:4 == 0 && TALENT:恋慕
		PRINTFORMW 「觉得今天的料理有别样的美味吗…」
		PRINTFORMW 「是洋葱，我加了洋葱」
		PRINTFORMW 「開个玩笑…料理是有自己的灵魂的，%CNAME("一人称")%只是倾注了自己的心意在里面……」
	ELSEIF RAND:3 == 0
		PRINTFORMW 今天的便当是由紫菜，米饭，以及一些蔬菜和肉类做成的……
		PRINTFORMW 看起来图案像是一名正在劳作的女仆呢
		PRINTFORMW 「啊……您说这个便当吗？」
		PRINTFORMW 「只是一时心血来潮摆的，打算叫它“小小妹抖亦有几分魂魄”」
		PRINTFORMW 「開个玩笑」
	ELSEIF RAND:2
		PRINTFORMW 「怎么样？喜欢这种味道吗？」
		PRINTFORMW 「那样的话、可以考虑一会多做几次这一种呢……」
		PRINTFORMW %CALLNAME:TARGET%好像在思量着什么
	ELSE
		PRINTFORMW 「希望%CNAME("二人称")%会喜欢」
		PRINTFORMW 「明天想吃什么的话，也请%CNAME("二人称")%吩咐一下」
		PRINTFORMW 「…」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"

ENDSELECT

;-------------------------------------------------
;メイン画面での台詞。いわゆる一言イベント強化版
;ちなみに画面随机属性しても同じセリフを喋ります
;選択肢に挟まれた場所で出力するのでWAITの使用は禁止
;-------------------------------------------------
@KOJO_DAILY_K100, ARGS
#DIM MEMO_LINECOUNT
MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"

CASE "浑身是汗"
	PRINTFORMW 感觉真是炎热的天气呢
	PRINTFORMW %CALLNAME:TARGET%在一旁嘟囔着
	PRINTFORMW 汗水在%CALLNAME:TARGET%的身体上肆意的留着，湿润的肉体看起来分外诱人

CASE "刚睡醒"
	PRINTFORMW 「啊…这里是？」
	PRINTFORMW 刚睡醒的看起来有些茫然，四处打量着确认着情况
	PRINTFORMW 「哦…是啊，有%CALLNAME:MASTER%什么吩咐吗」
CASE "Cosplay中"
	PRINTFORML
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		PRINTFORML
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K100
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;前回指令対応台詞
SELECTCASE CONDS("直前行動")
CASE "愛の告白"
	IF TALENT:相思相愛
		PRINTFORML 「居然……」
		PRINTFORML 「为什么会这么的温柔……」
	ELSE
		PRINTFORML 「……」
		PRINTFORML 「不可能的吧……」
		PRINTFORML 「做恋人什么的……」
	ENDIF
CASE "约会的约定"
	IF TALENT:恋慕
		PRINTFORML 「要一起去约会吗？」
		PRINTFORML 「和女仆去约会，会不会显得有些奇怪？」
		PRINTFORML 「不，%CNAME("一人称")%并不是不愿意……」
	ELSE
		PRINTFORML 「一起去约会吗？」
		PRINTFORML 「%CNAME("二人称")%确定要和自己的女仆约会吗？」
		PRINTFORML 「既然%CNAME("二人称")%这么说了，请等%CNAME("一人称")%准备一下…」
	ENDIF
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	IF RAND:3 == 0
		PRINTFORML 「想要灵魂用来做什么？」
		PRINTFORML 「Emmmm……不太好讲呢……」
		;単純的霊魂事件
	ELSEIF RAND:2
		PRINTFORML 「为什么要收集灵魂？」
		PRINTFORML 「这对于恶魔来说，不应该是很正常的事情吗？」
		PRINTFORMW 「%CALLNAME:TARGET%也并不知道有什么其他的生活方式了……」
	ELSE
		PRINTFORML 「这只是交易的内容。」
		PRINTFORML 「这一切……都是。」
		SIF TALENT:恋慕
			PRINTFORML 女仆几乎是用挤的方式从嘴唇里吐出肯定的话语……说完了却又下意识地摇了摇頭。
		SIF TALENT:相思相愛
			PRINTFORML 「请%CNAME("二人称")%不要再……%CALLNAME:TARGET%只是个女仆而已……」
	ENDIF
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML
CASE "主人公的房間に連れ込まれた"

CASE "自室に招待"

CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML 「欢迎~」
		PRINTFORML 「请问有什么需要吗？」
	ELSE
		PRINTFORML 「%CNAME("二人称")%来了。」
		PRINTFORML 「其实只要%CNAME("二人称")%摇铃召唤%CNAME("一人称")%，%CNAME("一人称")%就会过去的……」
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML
CASE "露脐装超短裙胖次チラ"

CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML 「またですか…もう少しこちらの気持ちも尊重していただきたいです、%CNAME("二人称")%……」
	PRINTFORML 「駄目という訳ではないですが…他の方に見られたら、%CNAME("二人称")%にとっても不利益が生じますよ」
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
CASE "拜托処理性欲"

CASE "进行性処理"
	PRINTFORML
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	;IF COND("巨大振動棒購入")

	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		IF COND("巨大振動棒購入")
			PRINTFORML 「这个……有些太大了吧……」
			IF RAND:4
				PRINTFORML 「%CNAME("二人称")%使用的时候一定要注意啊……」
			ELSE
				PRINTFORML 「如果对没什么经验的女孩子直接粗暴地使用的话……」
				PRINTFORML 「会非常……非常的疼……」
				PRINTFORML %CALLNAME:TARGET%一副若有所思的样子。
			ENDIF
			CALL SET_DEVENT, "巨大振動棒感想"
		ELSE
			;単純にいっぱい買ったかどうかで分岐
			SELECTCASE COND("買上品数")
			CASE IS >= 4
				PRINTFORML 「话说回来……买了很多东西呢……」
				PRINTFORML 「%CALLNAME:TARGET%会帮%CNAME("二人称")%整理好的。」
			CASEELSE
				PRINTFORML 「好的，确实买到了。」
			ENDSELECT
		ENDIF
	;ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML
CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")

	;做爱房
	ELSE

	ENDIF
ENDSELECT

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;標語の反応。書いたらコメントアウトを外してください
IF CFLAG:標語実践
	IF STRCOUNT(SAVESTR:標語, "注意口渴")
		;IF DEVENT("標語茶") == 0
		;	PRINTFORML
		;	CALL SET_DEVENT, "標語茶"
		;ENDIF
	ELSEIF STRCOUNT(SAVESTR:標語, "体操服")
		SELECTCASE SAVESTR:標語
		CASE "体操服はやっぱり布鲁马"
			;IF DEVENT("標語布鲁马") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語布鲁马"
			;ENDIF
		CASE "体操服はやっぱり运动短褲"

		CASE "体操服はやっぱり紧身短褲"

		CASE "体操服はやっぱり运动衫"
		;各分岐を細かく埋めずに、上の分岐を消して望みの体操服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ELSEIF STRCOUNT(SAVESTR:標語, "学生服")
		SELECTCASE SAVESTR:標語
		CASE "学生服は露脐装超短裙に限る"
			;IF DEVENT("標語露脐装超短裙") == 0
			;	PRINTFORML
			;	CALL SET_DEVENT, "標語露脐装超短裙"
			;ENDIF
		CASE "学生服は超短迷你に限る"
		;各分岐を細かく埋めずに、上の分岐を消して望みの学生服に着替えてやったぞ発言をここに書くのも良いと思います
		CASEELSE

		ENDSELECT
	ENDIF
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;イベント台詞。CFLAG:日常事件回数が10増えるたびに一つ叫醒ぐらいで良いでしょう
;IF CFLAG:日常事件回数 >= 5 && DEVENT("質問１") == 0

;	CALL SET_DEVENT, "質問１"
;ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0

;	CALL SET_DEVENT, "質問２"
;ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	PRINTFORML
ENDIF

;何か発言してたらここまで
SIF LINECOUNT > MEMO_LINECOUNT
	RETURN 1

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	;CFLAG:11010　手がかり：泥酔
	IF RAND:4 == 0 && CFLAG:手がかり：泥酔 == 0
		PRINTFORML 「宝宝的护身符~」
		PRINTFORML	「哪里去了啊……」
		PRINTFORML	「哪……哪里？」
		PRINTFORMW 听起来唱给小孩子的歌曲……%CALLNAME:TARGET%又是在哪里听到的呢？
		PRINTFORML 童謡のようだが……%CALLNAME:TARGET%是ったいどこで覚えたのだろう？
		CFLAG:手がかり += 1
		CFLAG:手がかり：泥酔 += 1
	ELSE
		PRINTFORMW 「咿呀……有……有些頭晕……」
		PRINTFORMW 并没有喝太多，%CALLNAME:TARGET%的脸已经红扑扑的了……
	ENDIF
ELSEIF COND("夜")
	IF RAND:2 == 0 && TALENT:相思相愛
		PRINTFORML %CALLNAME:TARGET%拉了拉的%CALLNAME:MASTER%手，似乎想去没人的地方
	ELSEIF RAND:3 == 0
		PRINTFORML %CALLNAME:TARGET%正在凝视着%CALLNAME:MASTER%，被发现之后移開了眼神
		SIF TALENT:相思相愛
			PRINTFORML 片刻之后，又用湿润的目光看了过来
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%打理着各个角落
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%正观察着%CALLNAME:MASTER%在做什么
	ELSE
		PRINTFORML %CALLNAME:TARGET%恭敬地等在一旁等候着吩咐
	ENDIF
ELSE
	IF RAND:3 == 0
		PRINTFORML %CALLNAME:TARGET%正在凝视着%CALLNAME:MASTER%，被发现之后移開了眼神
		SIF TALENT:相思相愛
			PRINTFORML 片刻之后，又用湿润的目光看了过来
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%打理着各个角落
	ELSEIF RAND:2 == 0
		PRINTFORML %CALLNAME:TARGET%正观察着%CALLNAME:MASTER%在做什么
	ELSE
		PRINTFORML %CALLNAME:TARGET%恭敬地等在一旁等候着吩咐
	ENDIF
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K100
IF RAND:2
	PRINTFORML 「呜……」
	PRINTFORMW 沉睡中的%CALLNAME:TARGET%的身体猛然的紧绷了一下
ELSEIF RAND:2
	PRINTFORML 「求……不……不要……疼」
	PRINTFORMW 沉睡中的%CALLNAME:TARGET%好像在做噩梦的样子……
;CFLAG:5011 手がかり：夢Ａ
;CFLAG:5012 手がかり：夢Ｂ
ELSEIF RAND:3 == 0 && CFLAG:手がかり：夢Ａ == 0
	PRINTFORML 「让……让……回」
	PRINTFORMW 沉睡中的%CALLNAME:TARGET%用平常从来没听到过的哭泣腔调说着意义不明的语言……
	PRINTFORMW 「求求……让……回」
	PRINTFORMW 「不要……好疼，唔」
	PRINTFORMW 「逃……逃……」
	CFLAG:手がかり：夢Ａ += 1
	CFLAG:手がかり += 1
ELSEIF RAND:3 == 0 && CFLAG:手がかり：夢Ｂ == 0
	PRINTFORML 「宝宝的护身符~」
	PRINTFORMW 「哪里去了啊……」
	PRINTFORMW 「翻过那座山……」
	PRINTFORMW 「去村里了啊———」
	PRINTFORMW 沉睡中的%CALLNAME:TARGET%哼唱着从来没有听过的奇怪曲调……
	PRINTFORMW 大颗的泪珠从%CALLNAME:TARGET%的眼角滑了出来……
	CFLAG:手がかり += 1
	CFLAG:手がかり：夢Ｂ += 1
ELSE
	PRINTFORMW 不知道为什么，沉睡中的%CALLNAME:TARGET%的身体仍旧十分紧张
	PRINTFORMW 好像在说着什么，但是因为声音太轻了，并不能听得清楚
ENDIF
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
;IF RAND:3
;	[IF_DEBUG]
;		PRINTFORML KOJO_SLEEP_K100, 汎用台詞(梦话３)
;	[ENDIF]
;ELSEIF RAND:2
;	[IF_DEBUG]
;		PRINTFORML KOJO_SLEEP_K100, 汎用台詞(梦话２)
;	[ENDIF]
;ELSE
;	[IF_DEBUG]
;		PRINTFORML KOJO_SLEEP_K100, 汎用台詞(梦话１)
;	[ENDIF]
;ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K100, ARGS
;打招呼
#DIMS GREETING

SELECTCASE ARGS
;通話などでの呼出なので括弧は「」ではなく『』推奨。TFLAG:地の文スキップ = 1とすると地の文をスキップ出来ます
CASE "Ｈ目的で呼び出された"
	;台詞を書いたらRETURN 0 を消してください
	RETURN 0
	IF PLACE("情人旅館")
		PRINTFORMW 『』
	;做爱房
	ELSE
		PRINTFORMW 『』
	ENDIF
CASE "学園での日常"

CASE "お仕事"

CASE "归途"
	;SAVESTR:現在位置 と SAVESTR:归途の行動 を決定する
	CALL SETFLAG, "遭遇地点"

	;地の文の前の台詞がある場合はここに書く
	SELECTCASE SAVESTR:現在位置
	CASE "阵雨"
		PRINTFORMW
	ENDSELECT

	;地の文を出す
	CALL DAILY_MESSAGE, "归途"

	SELECTCASE SAVESTR:归途の行動
	CASE "相合傘"
		PRINTFORMW
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

;归途イベントの後になんとなく情人旅館に行こっかとなった際のセリフです
CASE "放課後Ｈ的邀请"

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
	PRINTFORMW

;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			;お浴室
			IF PLACE("居間")
				PRINTFORMW
			ELSE
				PRINTFORMW
			ENDIF
		ELSE
			PRINTFORMW
		ENDIF
	;ここは実質昼のみ
	ELSEIF PLACE("部室")
		PRINTFORMW
	;場所移動後
	ELSE
		PRINTFORMW
	ENDIF

CASE "清洁口交：お誘い"

CASE "清洁口交：射精後"

CASE "清洁口交：断った"

;NOWEXを分岐に用いることが出来る。また、TFLAG:地の文スキップで地の文を飛ばせる
CASE "性処理：前"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW 「%CNAME("二人称")%做了安全措施呢……」
	ELSE
		PRINTFORMW 「可以開始了吗？」
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW 「里面都要装满了呢……」
		PRINTFORMW 「%CNAME("二人称")%能满意就好了……」
	ELSE
		PRINTFORMW 「……」
		PRINTFORMW 「%CNAME("二人称")%開心就好了……」
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0

	ELSE

	ENDIF
CASE "叫醒"
	PRINTFORMW 「对不起，不小心睡着了……」
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"

;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"

	CASE "夸奖"
		PRINTFORMW 「啊……感谢%CNAME("二人称")%的夸奖呢……」

	CASE "甜言蜜语"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「这样的话，多少会有些不好意思……_H_」_W"
			CALL PRINT_STR, @"「实在是太……啊，并不是讨厌听到这样的话」_W"
		ELSEIF CALCF("甜言蜜语成功")
			CALL PRINT_STR, @"「啊、继续说下去也没関系的……_H_」_W"
			CALL PRINT_STR, @"「虽然多少会有些不好意思……但是并不讨厌听到这样的话」_W"
		ELSE
			CALL PRINT_STR, @"「这样的话，%CNAME("二人称")%还是留给其他的女孩子吧」_W"
		ENDIF
	CASEELSE
		IF RAND:3 == 0
			PRINTFORMW 「如果%CNAME("二人称")%有什么需求的话……」
		ELSEIF RAND:2
			PRINTFORMW 「%CNAME("一人称")%只是%CNAME("二人称")%的女仆……女仆怎么会介意%CNAME("二人称")%到底和几个女孩子在交往的事情呢。」
			PRINTFORMW 「%CNAME("二人称")%が何人の女性と付き合っていようと女仆には関係のないことです。」
			SIF TALENT:恋慕 && ABL:施虐属性 >= 3
				CALL PRINT_STR, @"「只不过……%CNAME("二人称")%一定要预留足够的体力来撑过女仆的惩罚游戏呢……_HH_」_W"
		ELSE
			PRINTFORMW 「%CNAME("二人称")%不需要过多的好奇%CALLNAME:TARGET%的事情呢。」
			PRINTFORMW 「%CNAME("二人称")%只需要按照契约随意地使用%CALLNAME:TARGET%就好了。」
			IF TALENT:恋慕
				PRINTFORMW 然而%CALLNAME:TARGET%并不敢和%CALLNAME:MASTER%对视，不知道是害怕继续追问还是想到了平时%CALLNAME:MASTER%对女仆的使用……
				PRINTFORMW それ以上の質問を恐惧ているのか、普段の%CALLNAME:MASTER%の女仆の扱いについて考えているのか……
			ENDIF
		ENDIF
	ENDSELECT
;TFLAG:取引拒否 = 1とすることで、你のたわごとを却下できます
CASE "Ｈ的約定"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;この角色自身が前回赤点で、それどころではない（学生以外は、この分岐には来ません）
	IF COND("成績：赤点")
		PRINTFORMW
		TFLAG:取引拒否 = 1
	;以下はご褒美を给事にＯＫして给
	ELSE
		;前回既に你が良い点を取っている場合には”学年上位”を要求します
		IF COND("成績：優秀", MASTER)
			PRINTFORMW
		;そうでない場合には平均点を結構上回る程度でＯＫです
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
CASE "拭汗"
	PRINTFORMW 「非常感谢，其实自己来也可以的」
	IF TALENT:恋慕
		CALL PRINT_STR, @"「喜欢那里吗，可以仔细地多擦一擦呦~……_BH_」_W"
	ELSE
		PRINTFORMW 「啊…请不要总是着重于奇怪的地方…」
	ENDIF
CASE "淋浴独り言"
	;PRINTFORMW
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K100
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW
	CASE "托一托胸部"
		IF TALENT:恋慕
			CALL PRINT_STR, @"「喜欢%CNAME("一人称")%的胸部吗，可以多来几次呢~……_BH_」_W"
			PRINTFORMW 「直到%CNAME("二人称")%满意为止…」
		ELSE
			PRINTFORMW 「看来%CNAME("二人称")%很喜欢这里呢……」
			PRINTFORMW 「随%CNAME("二人称")%喜欢吧……」
		ENDIF
	CASE "按摩"
		PRINTFORMW 「谢谢%CNAME("二人称")%的好意……不过真的只是想帮%CALLNAME:TARGET%按摩而已嘛？」
		PRINTFORMW 「しかし、本当は%CALLNAME:TARGET%にマッサージをしたいだけなのではないですか？」
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「啊……如果%CNAME("二人称")%喜欢的话……」
			PRINTFORMW 「%CNAME("一人称")%？对于一名女仆的话……并不能拒绝呢……」
			SIF TALENT:恋慕
				CALL PRINT_STR, @"「不能拒绝……这么喜欢的事……_HH_」_W"
		ELSE
			PRINTFORMW 「真拿%CNAME("二人称")%没办法啊」
			PRINTFORMW 「不过这看来也是女仆的工作之一呢」
		ENDIF
	CASE "膝枕"
		IF TALENT:恋慕
			PRINTFORMW %CALLNAME:TARGET%的大腿并不是最适合膝枕的那种软软的呢……多少有久经锻炼的意思……
			PRINTFORMW 「不是很舒服吗？」
		ELSE
			PRINTFORMW 「这就去为%CNAME("二人称")%准备茶水……」
			PRINTFORMW %CALLNAME:TARGET%枕在%CALLNAME:MASTER%的大腿上歇息着……
		ENDIF
	CASE "泡茶"
		PRINTFORMW
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW 「这种事情，是一定要尽兴的啊？」
		IF RAND:3 == 0
			PRINTFORMW 「要再来一杯吗？」
			PRINTFORML [1]一起来喝酒吧
			PRINTFORML [2]来服侍%CNAME("一人称")%喝酒吧
			INPUT
			IF RESULT == 1
				PRINTFORMW 「谢谢%CNAME("二人称")%的好意了呢。」
				PRINTFORMW 「%CALLNAME:TARGET%过去好像也是很喜欢喝酒的，会边喝酒边唱歌……」
				IF RAND:3 == 0
					PRINTFORMW 「唱的什么歌吗？不太记得清了呢……」
					PRINTFORMW 「好像是和寻找什么东西有関的呢……」
					PRINTFORMW 「咳咳！咳！咳！……」
					PRINTFORMW 喝下了一口酒的%CALLNAME:TARGET%剧烈地咳嗽了起来。
					PRINTFORMW 「咳……没……没関系。应该……咳咳！只是太久没喝过……咳！」
					PRINTFORMW 「这么辣的吗……」
				ELSE
					PRINTFORMW 「不过今天就先算了吧……」
				ENDIF
			ELSEIF RESULT == 2
				PRINTFORMW 「遵命……」
				PRINTFORMW %CALLNAME:TARGET%轻轻地抿了一口酒。
				PRINTFORMW %CALLNAME:TARGET%皱了皱眉頭，随后闭上了眼睛，把嘴唇向%CALLNAME:MASTER%贴近。
				PRINTFORMW 微微地张開了嘴，小巧的舌尖翘起着伸了出来，
				PRINTFORMW 「啊……」
			ENDIF
		ELSE
			PRINTFORMW 「%CNAME("二人称")%喜欢这个味道吗？」
		ENDIF
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「这种跟人类不同的样子，%CNAME("二人称")%不会觉得反感吗？」
		;連続実行
		ELSEIF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「啊……请不要一直……」
		;この時間で初実行
		ELSEIF CHOSE_DEVENT(STR:日常イベント名) == 0 && RAND:2
			PRINTFORMW 「真是奇怪的人呢，不会害怕这种非人类的样子……」
		ELSE
			PRINTFORMW 「真是奇怪的人呢，没办法……」
		ENDIF
	CASE "摸頭"
		PRINTFORMW 「奇怪的爱好呢……」
		PRINTFORMW 「嘛，随您喜欢吧…」
	;胸元にチップを差し込まれます。兔女郎制服限定
	CASE "给小费"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "整理睡姿"
	;梦话
	CALL KOJO_SLEEP_K100
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	CASE "邀请一起入浴"
		PRINTFORMW
	CASE "Ｈ的邀请"
		PRINTFORMW 「%CNAME("二人称")%真是很有兴致啊…」
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW 「现在是服务的时间了」
		PRINTFORMW 「不要忍耐了，对身体不好哦」
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW 「%CNAME("二人称")%真是很有兴致啊…」
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW 「要在这里进行服务吗？」
		PRINTFORMW 「好的」
	CASE "亲脸頬", "接吻"
		PRINTFORMW 「请%CNAME("二人称")%随意吧」
		PRINTFORMW 「虽然这些不像是正常的女仆的服务职责呢」
	CASE "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW 「请%CNAME("二人称")%尽情享受吧」
		PRINTFORMW 「虽然这些不像是正常的女仆的服务职责呢」
	CASE "膝枕"
		PRINTFORMW 「%CNAME("二人称")%、どうぞ楽になさってくださいね……」
		PRINTFORMW %CALLNAME:TARGET%の太ももは、膝枕としては少し硬すぎる……どれだけの鍛錬を積んでいたのだろう……
		PRINTFORMW 「もしかして、快適では有ませんか？」
		PRINTFORMW 「申し訳有ません、日々の仕事が原因でしょうか……腕や脚が筋肉になってしまって……」
		IF TALENT:相思相愛 && ABL:信頼 + ABL:欲望 >= 10 && RAND:2 == 0
			CALL PRINT_STR, @"「しかし、悪いことばかりでは有ませんよ…例えば馬に乗る時です」"
			CALL PRINT_STR, @"「馬がどんなに暴れても、%CALLNAME:TARGET%の太ももがしっかりしていれば、決して離すことは有ません…_HH_」_W"
		ENDIF
	CASE "抚摸", "手淫"
		PRINTFORMW 「现在吗？」
		PRINTFORMW 「不是不行，只是感叹%CNAME("二人称")%真的很有兴致呢」
	CASE "膝枕"
		IF TALENT:恋慕
			PRINTFORMW %CALLNAME:TARGET%的大腿并不是最适合膝枕的那种软软的呢……多少有久经锻炼的意思……
			PRINTFORMW 「不是很舒服吗？」
		ELSE
			PRINTFORMW 「这就去为%CNAME("二人称")%准备茶水……」
			PRINTFORMW %CALLNAME:TARGET%枕在%CALLNAME:MASTER%的大腿上歇息着……
		ENDIF
	CASE "沏茶"
		;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
		;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
		IF RAND:2
			PRINTFORMW %CALLNAME:TARGET%鞠了个躬就去准备茶水了
			SIF RAND:3 == 0
				PRINTFORMW 「紅花茶とダンギク茶が有ます…%CNAME("二人称")%はどちらになさいますか？」
		ELSE
			PRINTFORMW 「自信は有ませんが……%CNAME("二人称")%のご要望であれば。少々お待ちください」
			PRINTFORMW %CALLNAME:TARGET%はお辞儀をして茶の準備をしに行った。
		ENDIF
	;それ以外
	CASEELSE
		IF RAND:2
			PRINTFORMW 「嗯？有什么需求吗？」
		ELSE
			PRINTFORMW 「请%CNAME("二人称")%吩咐」
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW
	ENDIF
CASE "廁所詮索"
	PRINTFORMW
;これは你と角色が両方男性の際に限り起きます
CASE "連れション"
	PRINTFORMW
;これは你と角色が両方男性でない際に限り起きます
CASE "廁所で井戸端会議"
	PRINTFORMW
;你に廁所を覗かれた！
CASE "廁所ハプニング"
	PRINTFORMW
;廁所ハプニングから派生するＨイベント
CASE "廁所Ｈ"
	SELECTCASE STR:日常イベント名
	CASE "廁所イベント：見せつけくぱぁ"
		PRINTFORMW
	CASE "廁所イベント：相互自慰"
		PRINTFORMW
	CASE "廁所イベント：口交"
		PRINTFORMW
	CASE "廁所イベント：Ｖ性交"
		PRINTFORMW
	CASE "廁所イベント：Ａ性交"
		PRINTFORMW
	ENDSELECT
CASE "检查阴部"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K100
		WAIT
	ELSEIF COND("合意：检查阴部") == 0

	ELSE
		PRINTFORMW
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K100
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K100
		WAIT
	ELSEIF COND("合意：检查内褲") == 0

	ELSE
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW 「啊……%CNAME("二人称")%看够了没有啊……」
		ELSE
			PRINTFORMW 「……」
			PRINTFORMW %CALLNAME:TARGET%犹豫了一下依旧服从了命令。
		ENDIF
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K100
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済

	ELSE

	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0

		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE

		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒

		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K100
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0

		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW
		ELSE
			IF COND("打招呼前")

			ELSE
				;胖次沒穿
				IF EQUIP:胖次 == 0

				ELSE
					IF TALENT:恋慕
						IF ABL:自慰中毒 >= 3 && !RAND:3
							PRINTFORMW 裙の下の光景が目に飛び込んでくる…
							PRINTFORMW %CALLNAME:TARGET%は開洞をずらし、美しく充分湿润的秘所を露わにした…
							PRINTFORMW 黒くツヤのある尾巴は太ももに巻き付き、何かを隠してかいるかのようにもぞもぞと蠢いている
							PRINTFORMW しかし、心型の尾巴の先端は太ももの後ろに隠れてよく見えない…
							PRINTFORMW 先端付近では正体不明の透明な粘液が光を反射しており、大号的雫となって滴り落ちようとしている…
							CALL PRINT_STR, "「はぁ…」_W"
							PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%から目を逸らし的同时、尾巴をきつく締め太ももに食い込ませている…
						;胎内の精液量追加したほうがよさげかも・・・？
						ELSEIF ABL:精液中毒 >= 3 && RAND:2
							CALL PRINT_STR, "「あ…」_W"
							PRINTFORMW 形だけの抵抗の後、女仆装の裙がめくり上げられ、その下の淫靡な光景があらわになる…
							PRINTFORMW 内衣は脇にずらされ、%CALLNAME:TARGET%の尾巴の膨らんだ先端は自己的蜜穴に挿入されている
							CALL PRINT_STR, "「お腹の中に沢山いただいてしまったので、保存しておいて後で味見をしようかと思いまして…」_W"
							PRINTFORMW %CALLNAME:TARGET%は無表情的、そう説明した…
						ELSE
							CALL PRINT_STR, "「あ…」_W"
							PRINTFORMW KOJO_DAILYCOM_K100, %ARGS%
							CALL PRINT_STR, @"「どうしました、%CNAME("二人称")%？よろしければ%CNAME("一人称")%が裙を持ち上げましょうか？」_W"
							SIF ABL:施虐属性 >= 3
								PRINTFORMW 錯覚かもしれないが、%CALLNAME:TARGET%の顔にからかうような笑みが浮かんだ気がする…
						ENDIF
					ELSE
						CALL PRINT_STR, "「あ…」_W"
						PRINTFORMW KOJO_DAILYCOM_K100, %ARGS%
						CALL PRINT_STR, @"「%CALLNAME:MASTER%…満足なされましたか？十分ご覧变成了ら一声おかけくださいね」_W"
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDSELECT
CASE "胖次ドーピング"
	;初回
	IF DEVENT(ARGS) == 0
		;自分の胖次
		IF COND("胖次ドーピング")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		PRINTFORMW
	ENDIF
CASE "裙下撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "股間撮影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "内褲摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部のチラ見せ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "阴部摄影"
	SELECTCASE STR:日常イベント名
	CASE "撮影失敗"
		PRINTFORMW
	CASE "阴部の見せつけ撮影"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "性処理を頼んだ際の反応"
	;干劲がある場合
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	;何かしながらで良いならして给よって場合。何をしながらなのかは SAVESTR:夢中 で参照できる。
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"

	ENDSELECT
CASE "性処理の内容変更を頼んだ際の反応"
	IF COND("干劲性処理")
		SELECTCASE STR:PLAY内容
		CASE "口交"

		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

		ENDSELECT
	ELSEIF COND("进行性処理")
		SELECTCASE STR:PLAY内容
		CASE "手淫"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "拜托処理性欲"
	SELECTCASE NAMES("性処理")
	CASE "口交"

	CASE "乳交"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

	ENDSELECT
CASE "进行性処理"
	SELECTCASE NAMES("性処理")
	CASE "胖次見抜き"

	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
ENDSELECT

;-------------------------------------------------
;自撮りにメッセージを添えます　一言くらい
;加筆の際には RETURN 0 を消去し、MAIL_BODY を埋めて使ってください
;地の文も必要であれば適宜変更してください
;-------------------------------------------------
@SELFY_MAIL_K100, ARGS
#DIMS MAIL_BODY

MAIL_BODY =
;メッセージ本文
SELECTCASE ARGS
CASE "ヌード自撮り"
	RETURN 0
	MAIL_BODY =
CASE "阴部自撮り", "阴茎自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸部自撮り"
	RETURN 0
	MAIL_BODY =
CASE "今年の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "学校指定の泳装自撮り"
	RETURN 0
	MAIL_BODY =
CASE "体操服自撮り"
	RETURN 0
	MAIL_BODY =
CASE "胸罩自撮り" ,"胖次自撮り"
	RETURN 0
	MAIL_BODY =
CASEELSE
	RETURN 0
	MAIL_BODY =
ENDSELECT

;地の文
PRINTFORMW 消息中附有「%MAIL_BODY%」的照片…

;-------------------------------------------------
;约会の際のセリフ
;システム側の地の文や反応を出力させたくない場合には TFLAG:地の文スキップ = 1 としてください
;约会回数は EXP:约会経験 が+1ずつされます。初回のセリフは IF EXP:约会経験 == 0 で分岐するのが良いでしょう
;素質で分岐させる場合にはTALENT:恋慕での分岐がおすすめです
;-------------------------------------------------
@KOJO_DATE_K100, ARGS

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"

CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW
	;你に保留されてしまった
	ELSE
		PRINTFORMW
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"

;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0

	ELSE

	ENDIF

;约会するにあたり、特殊な条件で着替えたりしたい時に使ってください。台詞没有で換装操作のみするのが推奨です
CASE "约会衣装に更衣"

;地の文はpartnerが遅れて現れる展開になっています
;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "待ち合わせ"
	IF COND("同居中") == 0
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;地の文が用意されているので、轻轻地１行程度の反応で良いと思います
CASE "约会本番"
	SELECTCASE SAVESTR:约会
	CASE "去买泳衣"
		PRINTFORMW
	CASE "散歩"
		PRINTFORMW
	CASE "尋訪美食"
		PRINTFORMW
	CASE "逛街"
		PRINTFORMW
	CASE "去水族馆"
		PRINTFORMW
	CASE "去游乐园"
		PRINTFORMW
	CASE "去电影院"
		PRINTFORMW
	CASE "去图书馆"
		PRINTFORMW
	CASE "赏花"
		PRINTFORMW
	CASE "去游泳"
		PRINTFORMW
	CASE "爬山"
		PRINTFORMW
	CASE "赏红叶"
		PRINTFORMW
	CASE "滑雪"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

CASE "手をつなぐ"
	PRINTFORMW
CASE "手をつながない"
	PRINTFORMW
;泳装を買いに行った時です
CASE "泳装選び開始"
	;Micro比基尼とかもＯＫ
	IF COND("Ｈ的泳装選択可能") && RAND:2
		PRINTFORMW
	ELSEIF RAND:2
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;泳装を買いに行って、結果的に選んだ泳装に対するセリフです
;もしも去年も泳装を選んでいたなら、CSTR:今年の泳装 に記録されているので比較する事が出来る
CASE "泳装決定"
	SELECTCASE SWIM(STR:選んだ泳装, "種類")
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "比基尼"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	CASE "高開衩連衣裙"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;泳池などで泳装姿に着替え、待ち合わせ場所に集合した時です
CASE "泳装に着替えた"
	;どの泳装に着替えたか？
	SELECTCASE SWIM(CSTR:今年の泳装, "種類")
	CASE "比基尼"
		PRINTFORMW
	CASE "Micro比基尼"
		PRINTFORMW
	CASE "連体泳装"
		PRINTFORMW
	CASE "競泳泳装"
		PRINTFORMW
	;其他はだいたいエロ泳装です
	CASEELSE
		PRINTFORMW
	ENDSELECT

;草丛口交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "到暗处去……"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1

;映画館などで横並びに座った状態での手交です。地の文が用意されているので、轻轻地１行程度の反応でも良いと思います
CASE "请求偷偷手交"

CASE "接吻"

CASE "摸屁股"
	IF TALENT:恋慕
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;你が草丛口交や接吻や性騷擾をしない紳士な場合はここに来ます
CASE "下次去哪里呢？询问", "专心看电影"

	;地の文を自己書きたい場合にはコメントアウトを外してください
	;TFLAG:地の文スキップ = 1
;帰り際のセリフです。不动声色地エッチに邀请のもいいでしょう
CASE "帰り際"
	IF TALENT:恋慕

	ELSE

	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

license: unknown


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

;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K100_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_K100_ADDSELECT
SIF CFLAG:手がかり >= 101
	STR:選択肢 += "整理思路/"
	;STR:選択肢 += "追加選択肢之２/"

;Talk指令で増やした選択肢の地の文と台詞
@KOJO_DAILY1_K100_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "帕图拉についての考えをまとめる"
	PRINTFORMW 总觉得……有哪里不太对啊……
	PRINTFORMW 如果是，封存了过去的记忆的话——
	SIF CFLAG:手がかり：泥酔 == 1
		PRINTFORMW 在醉酒时候哼唱的儿歌，是怎么一回事呢……
	SIF CFLAG:手がかり：夢Ｂ == 1
		PRINTFORMW 睡梦里也听到了相似的旋律……
	SIF CFLAG:手がかり：夢Ａ == 1
		PRINTFORMW 在说梦话的时候在痛苦地求饶……嗯……
	SIF CFLAG:調教の悪夢 == 1
		PRINTFORMW 总是不能，好好地安眠呢……
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K100_ADDSELECT
SIF CFLAG:手がかり >= 3 && CFLAG:真エンド条件 == 0 && TALENT:恋慕
	STR:選択肢 += "打開箱子/"
;STR:選択肢 += "追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K100_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "箱を開ける"
	PRINTFORMW 想了个借口把%CALLNAME:TARGET%支開了
	PRINTFORMW 从一開始做爱都像在应付的女仆，到现在时常也会露出笑容了
	PRINTFORMW 不过…如果说是封印了记忆的话
	PRINTFORMW 为什么还会？
	PRINTFORMW 醉后的呓语…
	PRINTFORMW 深陷的噩梦…
	PRINTFORMW 对密室的谜之排斥…
	PRINTFORMW 还有一些共处时令人在意的…
	PRINTFORMW 如果是传说的话
	PRINTFORMW 打開了潘多拉的魔盒，放出了世上的种种灾难
	PRINTFORMW 只有希望，仍被関在魔盒里
	PRINTFORMW 虽然%CALLNAME:TARGET%曾经说过不要打開，但还是很在意啊…
	PRINTFORML [1] 想要一探究竟
	PRINTFORML [2] 还是算了吧…
			INPUT
			IF RESULT == 1
				PRINTFORMW 出乎意料的，没有任何的锁
				PRINTFORMW 并不沉重，打開时也没有发出来吱吱呀呀的声音
				PRINTFORMW 打開盒子时扬起来尘土，光线慢慢的展開在盒子里
				PRINTFORMW 空无一物……除了尘土之外，什么都没有
				PRINTFORMW 「%CNAME("二人称")%啊…这下不全都跑出来了吗？」
				PRINTFORMW 不知道什么时候，%CALLNAME:TARGET%已经站在身后了
				PRINTFORMW 「很麻烦的…%CNAME("二人称")%让開一下啊」
				PRINTFORMW 「咳…咳，好多灰啊…%CNAME("二人称")%開之前不能先擦一下吗？」
				PRINTFORMW 「这下好了，还得扫地啊…」
				PRINTFORMW 「怎么想都是%CNAME("二人称")%的错吧，来帮%CALLNAME:TARGET%打扫吧」
				PRINTFORMW 「一定要打扫的干干净净才行啊」
				PRINTFORMW 「一定啊…」
				CFLAG:真エンド条件 += 1
				CFLAG:TARGET:好感度 += 500
			ELSEIF RESULT == 2
				PRINTFORMW ……
				PRINTFORMW 还是再思考一下……
			ENDIF
CASE "追加選択肢之２"
	PRINTFORMW %CALLNAME:MASTER%は%ARGS%をした。
	PRINTL
	PRINTFORMW 「台詞」
	PRINTL
	PRINTFORMW %ARGS%を受けての%CALLNAME:TARGET%の反応
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K100_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
SIF TALENT:相思相愛
	STR:選択肢 += "密室逃脱/"
;STR:選択肢 += "追加選択肢之２/"

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K100_ADDSELECT
SELECTCASE SAVESTR:约会
CASE "リアル脱出游戏"
	IF CFLAG:脱出游戏 == 0
		PRINTFORMW 「密室逃脱吗…还是…不要了吧」
		PRINTFORMW 「之前？并没有…」
		PRINTFORMW 「之前那朝不保夕的日子…哪里有可能玩这些…」
		PRINTFORMW 「唉，本来是不想的，会想起一些…」
		PRINTFORMW 「算了，就陪%CNAME("二人称")%去玩吧」
		CFLAG:手がかり += 1
		CFLAG:脱出游戏 += 1
	ELSEIF CFLAG:脱出游戏 == 1
		PRINTFORMW 「还要去吗，%CNAME("二人称")%这是上瘾了吗？」
		PRINTFORMW 「从伸手不见五指的密室里逃出去，也不可以用法术什么的…」
		PRINTFORMW 「黑暗环境下%CALLNAME:TARGET%是看得见啦…不过，宁愿还是看不到的为好」
		PRINTFORMW 「所以！看不见啦！请%CNAME("二人称")%牵着%CALLNAME:TARGET%的手，带%CALLNAME:TARGET%逃出去…」
		CFLAG:脱出游戏 += 1
	ELSEIF CFLAG:脱出游戏 == 2
		PRINTFORMW 「有时候回想，虽然%CNAME("二人称")%人还是蛮温柔的，但总是喜欢欺负人啊」
		PRINTFORMW 「第一次就说过不想去密室啊」
		PRINTFORMW 「不过随%CNAME("二人称")%的便吧」
		PRINTFORMW 「如果是和%CNAME("二人称")%在一块儿玩这个的话，似乎还可以…」
		PRINTFORMW 「即使逃不出去…」
		CFLAG:脱出游戏 += 1
	ELSEIF RAND:2
		PRINTFORMW 「明明从第一次開始就没有成功逃脱过啊…」
		PRINTFORMW 「怪%CALLNAME:TARGET%没有帮忙吗，%CALLNAME:TARGET%只是陪%CNAME("二人称")%去玩的啊，坐在那里看着就好了吧」
		PRINTFORMW 「为什么只是看着…」
		PRINTFORMW 「逃出去了，就要回家了吧…」
		PRINTFORMW 「%CNAME("二人称")%只有周末才在家啊…偶尔也想多和%CNAME("二人称")%待一会儿的」
		PRINTFORMW 「出来之后去情人旅馆？好吧好吧，就帮%CNAME("二人称")%想想办法吧」
		PRINTFORMW 「『じゃあ、出られた後で情人旅館に』…？我明白了！脱出方法を考えるお手伝いをいたします！」
	ELSE
		PRINTFORMW 「上一次玩的很開心呢…」
		PRINTFORMW 「…还是不喜欢密室啊…不过跟在%CNAME("二人称")%一起的话，哪里都好」
	ENDIF
	;地の文
	;PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 60
	;それぞれ可能なもののコメントアウトを取下
	TFLAG:约会中H可能 = 1
	TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
CASE "追加選択肢之２"
	PRINTFORMW 「台詞」
	;地の文
	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応
	;地の文を用意していない場合には汎用のものを使う
	;CALL DAILY_MESSAGE, "约会本番"
	PRINTL
	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
	FLAG:情緒 += 30
	;それぞれ可能なもののコメントアウトを取下
	;TFLAG:约会中H可能 = 1
	;TFLAG:约会中牵手可能 = 1
	;TFLAG:偷瞄内衣可能 = 1
	;TFLAG:泳装约会 = 1
ENDSELECT


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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "取引開始"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("挿入相手") == MASTER
			PRINTFORMW 「想要在这个时候进行交易吗？」
			PRINTFORMW 「真是有兴致啊%CNAME("二人称")%」
		ELSE
			PRINTFORMW 「想要在这个时候进行交易吗？」
			PRINTFORMW 「像契约里一样，支付灵魂就可以了……」
		ENDIF
	ELSE
		PRINTFORMW 「想要进行交易吗？」
		PRINTFORMW 「像契约里一样，支付灵魂就可以了」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「……」
		PRINTFORMW 「恋人……吗？」
		PRINTFORMW 「如果是过去的%CALLNAME:TARGET%，一定会觉得这是最大的耻笑和惩罚吧……」
		PRINTFORMW 「%CNAME("二人称")%……%CNAME("二人称")%是真心的吗？」
		PRINTFORML [1] 沉默不语
		PRINTFORML [2] 当然是真的！
		INPUT
		IF RESULT == 1
			PRINTFORMW 「%CNAME("二人称")%……果然是……在開玩笑的吧？」
			PRINTFORMW 「也是呢……」
			CFLAG:苦痛レベル += 1
			RETURN 0
		ELSEIF RESULT == 2
			PRINTFORMW 「谢谢……%CNAME("二人称")%……」
			PRINTFORMW 「能在一起的日子里……%CNAME("二人称")%确实是真的非常的温柔对待着……」
			PRINTFORMW 「但是说起来……%CNAME("二人称")%并不是第一个服侍的主人。」
			PRINTFORMW 「%CALLNAME:TARGET%曾经作为奴隶被卖给了人类，被迫服从于他不短的时间……」
			PRINTFORMW 「那是一段对于恶魔来说都暗无天日的时间……」
			PRINTFORMW 「所以说不管是身体也好，心灵也好……」
			PRINTFORMW 「%CALLNAME:TARGET%想……%CNAME("二人称")%值得更好的女孩子去渡过%CNAME("二人称")%的一生呢……」
			PRINTFORML [1] 沉默不语
			PRINTFORML [1] 沉默不语
			PRINTFORML [2] 抱住她
			INPUT
			IF RESULT == 1
				PRINTFORMW 「是的呢……」
				PRINTFORMW 「啊……不用担心，%CALLNAME:TARGET%会继续在这里任职%CNAME("二人称")%的女仆呦。」
				PRINTFORMW 「直到%CNAME("二人称")%厌倦了为止……」
				RETURN 0
			ELSEIF RESULT == 2
				PRINTFORMW 「居然呢……」
				PRINTFORMW 「看来是%CALLNAME:TARGET%多话了啊。」
				$K100_PAST_LP1
				PRINTFORML [1] 询问她过去的主人
				PRINTFORML [2] 询问她过去的生活
				PRINTFORML [3] 询问她带来的箱子
				PRINTFORML [4] 一个恋人之间的吻
				INPUT
				IF RESULT == 1
					PRINTFORMW 「过去的主人吗……」
					PRINTFORMW 「是个残酷的人呢……只记得如果%CALLNAME:TARGET%非常非常的疼……他就会很兴奋……」
					PRINTFORMW 「后来他的身体因为过度的放纵而崩坏了……」
					PRINTFORMW 「结束……如果真的那么简单就好了……」
					GOTO K100_PAST_LP1
				ELSEIF RESULT == 2
					PRINTFORMW 「很多都已经不记得了……」
					PRINTFORMW 「那个人为了不那么死掉，强迫着%CALLNAME:TARGET%去为他收集灵魂……」
					PRINTFORMW 「欺骗也好，诱惑也好……无论用什么办法……只要没有收集到灵魂就会疼的不想活下去……」
					PRINTFORMW 「还好……找到了机会毁掉了束缚的契约逃了出来……」
					PRINTFORMW 「運よく……契約を破棄する機会を見つけて逃げ出すことができたのです……」
					GOTO K100_PAST_LP1
				ELSEIF RESULT == 3
					PRINTFORMW 「因为实在是太痛苦了……」
					PRINTFORMW 「一想到那段日子，即使恶魔不会留下伤疤，那些过去的伤口都在疼……」
					PRINTFORMW 「还有那些被我骗走了灵魂的可怜人……那些和我一起被折磨的奴隶……」
					PRINTFORMW 「想过……当然想过去复仇……可是……可是……」
					PRINTFORMW 「等到回去时候，才知道在我逃出去之后……没多少日子他就因为身体支撑不住死掉了……」
					PRINTFORMW %CALLNAME:TARGET%紧紧地咬住了牙齿，眼圈发红……
					PRINTFORMW 「好绝望啊……好绝望啊……即使这样都觉得好绝望啊！！！该怎么向一个死人复仇啊！」
					PRINTFORMW 「%CALLNAME:TARGET%的精神撑不住了……复仇不了也好……黑暗的往日也好……」
					PRINTFORMW 「但是不想那么简单地疯掉……想活下去……明明都已经逃出来了……」
					PRINTFORMW 「于是，用法术把自己过去的一切记忆……都封印在了那个箱子里。只给苏醒后的新的自己留下了必要的记事……」
					PRINTFORMW 「但是也因此失去了一切……我给自己取了一个新的名字……」
					PRINTFORMW 「潘多拉（帕图拉）……，永远，永远不要打開潘多拉的盒子。」
					PRINTFORMW 「还剩下的……就是恶魔寻求灵魂的本能了，但是%CALLNAME:TARGET%并不想因此去害人……直到听说了有个可以再生的灵魂。」
					PRINTFORMW 「然后就……遇……遇……鱼……嘘、嘘……唏、唏……呜呜……呜呜呜……」
					PRINTFORMW 啜泣声掩盖了接下来的话语……
					PRINTFORMW 「『再生できる魂』の噂を聞くまでは。」
					PRINTFORMW 「そして…ここで、%CNAME("二人称")%と……うぅ……ぐすっ、ぐすっ……うぅ…うぅぅっ……」
					PRINTFORMW 続く言葉は泣き声にかき消されてしまった……
					CFLAG:手がかり += 100
					GOTO K100_PAST_LP1
				ELSEIF RESULT == 4
					PRINTFORMW %CALLNAME:TARGET%并没有接受……
					PRINTFORMW 她只是紧紧地抱住了%CALLNAME:MASTER%，把自己的脸埋进了%CALLNAME:MASTER%的胸膛。
					PRINTFORMW 「呜呜呜……对不起……呜呜……对、对不起……」
					PRINTFORMW ——————今でも你は我の光——————
				ENDIF
			ENDIF
		ENDIF
	;失敗
	ELSE
		PRINTFORMW 「……」
		PRINTFORMW 「请不要拿这种事開玩笑……」
	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 "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

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

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		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 "淫紋拒否"
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「不行。」
		PRINTFORMW 「不行就是不行……%CALLNAME:MASTER%请不要再问了。」
	ELSEIF RAND:2 == 0
		PRINTFORMW 「不行。」
		PRINTFORMW 「说过了不行就是不行……%CALLNAME:MASTER%请不要再问了。」
	ELSE
		PRINTFORMW 「%CNAME("二人称")%在想什么呢……」
		PRINTFORMW 「想像公狗在电线杆上撒尿那样的宣誓主权吗？真是无耻。」
		PRINTFORMW 「请%CNAME("二人称")%别误会了，%CALLNAME:TARGET%是契约的女仆而不是%CNAME("二人称")%的所有物。」
		PRINTFORMW 「也从来不是……」
		PRINTFORMW %CALLNAME:TARGET%的反应非常激烈，说到后来几乎就是咬牙切齿的语气了。
		PRINTFORMW 「任何人的……玩物……！」
	ENDIF
;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「啧……如果只是贴纸的话……」
		PRINTFORMW 「反正只能持续一段时间……算了……」
	ELSE
		PRINTFORMW %CALLNAME:TARGET%的无奈地看着你。
		PRINTFORMW 「总是这样……」
		PRINTFORMW 「反正只是贴纸……」
	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		IF TALENT:恋慕
			PRINTFORMW 「%CALLNAME:TARGET%本来是非常反感这种术法的……」
			PRINTFORMW 「不过……如果是……」
			PRINTFORMW 掀開了自己的衣服，露出了光滑而诱人的小腹……
			CALL PRINT_STR, @"「请%CNAME("二人称")%尽可能地温柔一点……」_W"
		ELSE
			PRINTFORMW 「%CNAME("二人称")%的请求真的让%CALLNAME:TARGET%非常为难……」
			PRINTFORMW 「这么做和给奴隶烙上印记有什么区别呢……」
			PRINTFORMW 「贴纸还好……这种的可是到死去都会印在身体和灵魂上的啊……」
			PRINTFORMW 「那就到在一起到……開……開什么玩笑……」
		ENDIF
	CASE 3
		IF TALENT:恋慕
			PRINTFORMW 「早就知道……有一就有二」
			PRINTFORMW 「不过……如果是%CNAME("二人称")%的要求话」
			PRINTFORMW %CNAME("一人称")%掀開了自己的衣服，褐色的性感小腹上已经雕刻上了粉红的纹路……
			CALL PRINT_STR, @"「请%CNAME("二人称")%尽可能地温柔一点……」_W"
		ELSE
			PRINTFORMW 「%CNAME("二人称")%的请求真的让%CALLNAME:TARGET%非常为难……」
			PRINTFORMW 「%CNAME("一人称")%很清楚接下来的纹路效果……」
			PRINTFORMW 「请容%CNAME("一人称")%拒绝」
			PRINTFORMW 「……不要用那样的眼神看着%CNAME("一人称")%，这绝对是最后一次了！」
		ENDIF
	CASE 4
		IF TALENT:恋慕
			PRINTFORMW 「从上次之后，%CALLNAME:TARGET%的身体已经变得非常奇怪了……」
			PRINTFORMW 「被摸一摸肚子也有感觉，下面很容易就湿漉漉的……」
			PRINTFORMW 掀開了自己的衣服，之前刻下的淫纹散发出淫霏的光芒
			CALL PRINT_STR, @"「请%CNAME("二人称")%一定要负起责任啊……」_W"
		ELSE
			PRINTFORMW 「%CNAME("二人称")%……又来了」
			PRINTFORMW 「一点要这样的占有%CALLNAME:TARGET%吗」
			PRINTFORMW 「到死去为止都会印在身体和灵魂上，变成欲望的奴隶」
			PRINTFORMW 「……」
		ENDIF
	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
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
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
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 "给我看尾巴"
	PRINTFORMW 「想要看尾巴？」
	PRINTFORMW 「不会觉得不舒服么？恶魔的样子……」
	PRINTFORMW 「您真是奇怪呢……」
CASE "给我看尾巴拒否"
	PRINTFORMW 「还请容我拒绝啊。」
	PRINTFORMW 「您有没有想过要怎么把尾巴从女仆服里伸出来呢？」
;以下は悪魔専用
CASE "魂が足りない"

CASE "想要钱"
	PRINTFORMW 「意料之中呢……」
CASE "甜言蜜语"
	PRINTFORMW 「哄骗的技巧……这种东西还是看个人的吧？」
	PRINTFORMW 「虽说也不是做不到……」
CASE "謎之魅力"
	PRINTFORMW 「向恶魔提出这种交易的，一般是女孩子多一点……」
	PRINTFORMW 「对我有没有效？您在想什么啊……」
CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER
			CALL PRINT_STR, @"「啊哈~嗯哈~_H_您在这种时候提这种要求……」_W"
			SIF ABL:精液中毒 >= 5
				CALL PRINT_STR, @"「想要把%CALLNAME:TARGET%里面灌的满满的吗_HH_……」_W"
			CALL PRINT_STR, @"「让人怎么拒绝呢_H_……」_W"
		ELSE
			PRINTFORMW 「好吧，好吧……」
			PRINTFORMW 「太过分的话……会损害身体的……」
			PRINTFORMW 「我怎么知道……嗯……这是秘密呢。」
		ENDIF
	ELSE
		CALL PRINT_STR, @"「下流的要求呢_H_……」_W"
	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"
		IF TALENT:恋慕
			PRINTFORMW 「啊……其实，对%CALLNAME:TARGET%来说，怎么样的型号都有其乐趣呢~」
			PRINTFORMW %CALLNAME:TARGET%笑吟吟的把%CALLNAME:MASTER%的阴茎变大了！
		ELSE
			PRINTFORMW 「嗯……您是应付不了哪个女孩子了吗？」
			PRINTFORMW 「啊……不好意思，是女仆多嘴了呢~」
		ENDIF
	CASE "普通"
		IF TALENT:恋慕
			PRINTFORMW 「变成了坏家伙呢~」
			PRINTFORMW 「您是要用这个坏家伙去祸害哪个女孩子呢……先用您的女仆适应一下怎么样？」
			PRINTFORMW %CALLNAME:TARGET%笑吟吟的把的阴茎变大了！
			PRINTFORMW %CALLNAME:TARGET%は微笑着并手の中の阴茎を増大させた！
		ELSE
			PRINTFORMW 「您是想用这个去玩弄哪个女孩子呢？」
			PRINTFORMW 「啊……不好意思，是女仆多嘴了呢~」
		ENDIF
	CASE "巨根"
		IF TALENT:恋慕
			PRINTFORMW 「啊……真不愧是%CALLNAME:MASTER%，这么雄伟~」
			PRINTFORMW 「还这么硬~在手里一跳一跳的……」
			PRINTFORMW %CALLNAME:TARGET%双眼迷离着把%CALLNAME:MASTER%的阴茎变大了！
		ELSE
			PRINTFORMW 「嗯……相当夸张的尺寸呢……」
			PRINTFORMW 「需要的话……可以和您去买润滑液。」
		ENDIF
	CASE "馬根"
		IF TALENT:恋慕
			PRINTFORMW %CALLNAME:TARGET%跪坐在%CALLNAME:MASTER%身前把%CALLNAME:MASTER%的阴茎变大了！
			PRINTFORMW 「这……这也太……」
			PRINTFORMW %CALLNAME:TARGET%呆呆地看着竖直在自己面前的巨大肉棒，仿佛视野里已经容不下其他的东西……
		ELSE
			PRINTFORMW 「嗯……您真的是……」
			PRINTFORMW 「这一根如果没有好好的做好之前的工作的话……女孩子是可是不会感到舒服的……」
		ENDIF
	;腕並以上
	CASEELSE
		IF TALENT:恋慕
			PRINTFORMW 「……」
			PRINTFORMW 「这样的尺寸……怎么会……」
			PRINTFORMW %CALLNAME:TARGET%虽然声音有些颤抖，但仍旧把%CALLNAME:MASTER%的阴茎变大了。
		ELSE
			PRINTFORMW 「啧，您真的是要拿这根来做爱吗？」
			PRINTFORMW 「这已经不是做爱了吧……这是为了满足您嗜虐心理的折磨吧……」
			PRINTFORMW 「搞什么啊……」
			PRINTFORMW %CALLNAME:TARGET%难得一见地明显地很生气，但仍然履行了契约……
		ENDIF
	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"
		IF TALENT:恋慕
			PRINTFORMW 「变成可怜兮兮的样子了……不过就算这样女仆也不会嫌弃的……」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%的阴茎变小了！
		ELSE
			PRINTFORMW 「嗯……奇怪的要求呢……」
		ENDIF
	CASE "巨根"
		IF TALENT:恋慕
			PRINTFORMW 「呐呐……这样的话不会变得容易被驯服了吗？」
			PRINTFORMW 「还是说……这就是您的愿望呢~？」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%的阴茎变小了！
		ELSE
			PRINTFORMW 「嗯……奇怪的要求呢……」
		ENDIF
	CASE "馬根"
		IF TALENT:恋慕
			PRINTFORMW 「就算这样，还是好厉害的样子？」
			PRINTFORMW 「从凶暴的种马变成了……？」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%的阴茎变小了！
		ELSE
			PRINTFORMW 「嗯……奇怪的要求呢……」
		ENDIF
	;腕並、規格外
	CASEELSE
		IF TALENT:恋慕
			PRINTFORMW 「交易达成了呢」
			PRINTFORMW 「このままだと女の子の大事な所が緩んでしまいますからね……まあ、悪魔の場合は簡単に元に戻りますが」
			PRINTFORMW %CALLNAME:TARGET%把%CALLNAME:MASTER%的阴茎变小了！
		ELSE
			PRINTFORMW 「交易达成了」
			PRINTFORMW 「情事の際に相手をいじめたりする場合も有ますが……」
			PRINTFORMW 「それは、相手を傷つけるだけとの行為とは違う、と思います……」
			PRINTFORMW %CALLNAME:TARGET%は珍しく真剣な表情をしている。
		ENDIF
	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")

;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE

ENDIF

;-------------------------------------------------
;购物での台詞
;-------------------------------------------------
@KOJO_SHOP_K100, 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 "询问有什么想要的东西"

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/100 パトラ/EVENT_K100_SHOP.ERB