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

MEMO_LINECOUNT = LINECOUNT

SELECTCASE ARGS
CASE "朝拘束"
;地の文見ながら作ったし大丈夫なはず
		PRINTFORMW 「ごめん、我慢できなかった。他に我慢できなかった二人もつれてきたけど、いいよね？存疑」
		SIF TALENT:母乳体質
			PRINTFORMW 「想吃早饭吗？给你，这是我的母乳」
		;PRINTFORMW %CALLNAME:TARGET%の母乳を飲まされて、
;朝のＨイベントでのセリフ。下の"打招呼"だけ書いてあれば十分だと思います
;ここでCALL SETFLAG, "地の文スキップ"すると地の文、経験表示、本来なら続いて表示される下のCASE "打招呼"の台詞、を全てすっ飛ばせます(上級者向け)
;詳しくは@EVENT_NEWDAYの注釈などを見てください
CASE "朝袭"
	SELECTCASE CSTR:朝袭
	CASE "朝逆正常位"

	CASE "朝舐陰"

	CASE "朝足交"

	CASE "朝の新妻PLAY"
		CALL EMOTION_PLUS, "躁动难忍", TARGET
		PRINTFORMW 「稍微克制一下，再怎么说也太危险了呀！」
	CASE "朝乳交"

	CASE "朝騎乗位"

	CASE "朝Ａ騎乗位"

	CASE "朝接吻"
		PRINTFORMW 「嗯~」
		PRINTFORMW 「啊，起来了吗。早上好」
		PRINTFORMW 「女仆小姐正在做饭呢，要一起吃吗?」
	CASE "朝添い寝"
		PRINTFORMW 「早上好」
		PRINTFORMW 「女仆小姐正在做饭呢，要一起吃吗?」
	CASE "朝口交", "朝六九式"

	ENDSELECT
;朝のＨイベント終了後にする打招呼
CASE "打招呼"
	SELECTCASE CSTR:朝袭
	CASE "朝口交"
		PRINTFORMW 「多谢款待。很美味哦」
	CASE "朝騎乗位"
		CALL PRINT_STRW, "「嗯…_WH_」"
		PRINTFORMW 「啊，起来了吗。早上好」
	ENDSELECT

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

	IF COND("体育")
		PRINTFORMW 「给，这是%CNAME("二人称")%的体育服。今天有体育课哦，加油吧。」
	ELSE
		PRINTFORMW 「快点吃晚早饭去学校吧，不然就要迟到了吧？」
	ENDIF
CASE "一番乗り"
	PRINTFORMW 「我们也想一起去呢」
	PRINTFORMW 「嘛，大家不久以后就会来了吧」
	;SIF ABL:欲望 >= 5 && BASE:欲求不満 >= 90
	;	PRINTFORMW 「でもその前に%CNAME("一人称")%としない？その…溜まっちゃって…」
CASE "ただいま"
		PRINTFORMW 「就在刚刚。」
CASE "既に入室"
	;家で出迎えてくれる時
	IF COND("夜")
		PRINTFORMW 「欢迎回家，稍等一下哦」
		SIF BASE:欲求不満 <= 80 && COND("発情期") && ABL:欲望 >= 5
			PRINTFORMW 「吃晚饭前要先和我一起上床吗？洗澡？不用在意这种事情也可以啦」
	ELSE
		PRINTFORMW 「我先来了哟。今天要做什么呢？」
		SIF BASE:欲求不満 <= 80 && COND("発情期") && ABL:欲望 >= 5
		 	PRINTFORMW 「当然要和我做了对吧，我已经忍耐到极限了」
	ENDIF

CASE "入室打招呼"
	IF CFLAG:呼び出された
		PRINTFORMW 「有急事？总之先跟我来就好啦」
	;你が現在的partnerにＨ的悪戯をしている最中に入室した
	ELSEIF COND("Ｈ的いちゃつき中", MASTER)
		PRINTFORMW 「唔唔...进去真的没问题吗....」
		PRINTFORMW 她一边感到很不安，一边进入了。
	ELSE

	ENDIF
;部屋にいる他の人から打招呼を返される打招呼。WAITの使用は一回が望ましい
CASE "簡易入室打招呼"
	;遅れた時のセリフ（既に部員の４分の３が集合済）
	IF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 「啊，大家已经到期了吗。下午好。」
	ELSEIF CFLAG:呼び出された
		PRINTFORMW 「听到有人在叫我，所以我过来了哦」
		PRINTFORMW 「%CNAME("二人称")%接下来有什么预定吗」
	ELSE
		PRINTFORMW 「下午好。」
	ENDIF
;簡易入室打招呼に対する返し。WAITの使用は一回が望ましい
;誰が入室してきた人はCOND("入室打招呼中")がONなのでFIND_COND("入室打招呼中")で検索可能
;また、入ってきた人数はCHARA_NUM("入室打招呼中")で調べられる
CASE "打招呼返し"
	;打招呼してきた人の中から一人選ぶ
	ACTOR = FIND_COND("入室打招呼中")
	;選ばれた角色の默认のCALLNAME。この角色への呼びかけはCNAME(CALLNAME_ACTOR) で出来る
	CALLNAME_ACTOR = %CSVCALLNAME(NO:ACTOR)%

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

	;打招呼してきた人に老师が混じっている
	IF FIND_COND("教員", "入室打招呼中")
		ACTOR = FIND_COND("教員", "入室打招呼中")
		PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%老师、下午好。』
	;相手が現れるのが遅かった（既に部員の４分の３が集合済）
	ELSEIF CHARA_NUM("入室打招呼時の室内人数") >= CHARANUM*3/4 && RAND:3 == 0
		PRINTFORMW 『%CNAME(CALLNAME_ACTOR)%。你来晚了呢』
	ELSE
		PRINTFORMW 『下午好』
	ENDIF

CASE "居間に現れた"
	IF CFLAG:呼び出された
		PRINTFORMW 「我来了哟，找我有什么事吗？」
	;一度居間から別の場所に行って、居間に帰って来た時
	ELSEIF CMOVE("居間")
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
CASE "抜け出された"
		PRINTFORMW 「一路顺风。接下来交给%CNAME("一人称")%收拾就好。」
CASE "便当"
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「因为被拜托了，所以就给你做了…」
		PRINTFORML 一边这么说着一边打開饭盒，里面只有米饭和一条烧成焦黑的鱼…
		PRINTFORMW 「那个...对不起…不用勉强去吃也可以的…」
		PRINTFORML %CALLNAME:PLAYER%将米饭就着既没有盐味也没有酱油味的烧焦的鱼，狼吞虎咽地吃了起来。
	ELSEIF	DEVENT(STR:日常イベント名)
		PRINTFORMW 「给，这是今天的便当」
		PRINTFORMW 「这次是弗理希艾尔教我做的，应该没问题了...我猜..」
	ELSE
		PRINTFORMW 「给，这是今天的便当」
		PRINTFORMW 「昼間っから盛んな事するのかなと思って、性がつくもの作ってきた，存疑」
	ENDIF
;同じ部屋にいる他の人がＨを開始した際のセリフです
CASE "他の人がＨ開始"
	IF ABL:露出癖 > 4
		CALL EMOTION_PLUS, "躁动难忍", TARGET
		PRINTFORMW 「可以看吗？太好了！」
	ELSE
		CALL EMOTION_PLUS, "惊嚇", TARGET
		PRINTFORMW 「诶，要在这里做吗？」
		PRINTFORMW 「怎么想都很奇怪吧？你也不要不说话，快说你也觉得很奇怪呀。」
	ENDIF
ENDSELECT

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

SELECTCASE ARGS
;初回のセリフ
CASE "初回台詞"
	IF CHECK_CLO("全裸")
		CALL SET_COORDINATE, "内衣"
		CALL SET_COORDINATE, "便装"
		CALL REPRINT_SHOP_NAME
	ENDIF
	PRINTFORML 「那个...十分感谢你能给我衣服和住所」
	PRINTFORML 她十分礼貌地对%CALLNAME:PLAYER%说道

CASE "浑身是汗"
	PRINTFORML 「唔…好热…好热呀…」
CASE "刚睡醒"
	PRINTFORML 「唔喵~，早上好。现在是几点钟了？」
CASE "Cosplay中"
	PRINTFORML 「偶尔也想像这样穿穿看…怎么样？」
CASE "点心の感想"
	;今日の点心を用意したのは自分
	IF COND("点心当番")
		PRINTFORML
	;今日の点心は誰かの亲手自制
	ELSEIF COND("亲手自制点心")
		;今日の点心当番の人の亲手自制を初めて食べた
		IF DEVENT(@"%TEXTS("点心当番")%の亲手自制") == 0
			;点心当番が[料理擅長]
			IF COND("点心の作り手が料理擅長")
				PRINTFORML
			ELSE
				PRINTFORML
			ENDIF
		ELSE
			PRINTFORML
		ENDIF
	;点心が亲手自制でない
	ELSE
		SELECTCASE TEXTS("点心")
		CASE "イナゴ料理"
			IF DEVENT("虫料理の感想") == 0
				PRINTFORML 「没想到被收养之后还能有机会再吃虫子」
				PRINTFORML 「诶？问我吃过什么?」
				PRINTFORML 「我从研究所逃离之后，在遇到%CNAME("二人称")%之前，根本找不到什么能吃的东西呐、蛞蝓、蜗牛、老鼠、蟑螂，无论什么我都吃哦？」
				PRINTFORML 「因为如果不吃的话就会被饿死...」
				PRINTFORML 看来最好去医院仔细检测一下%CALLNAME:TARGET%有没有感染什么病菌比较好呢...
				CALL SET_DEVENT, "虫料理の感想"
			ENDIF
		ENDSELECT
	ENDIF
;沉眠著
CASE "睡眠"
	;梦话
	CALL KOJO_SLEEP_K47
	;梦话用の汎用地の文呼出
	CALL DAILY_MESSAGE, "梦话"
ENDSELECT

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

;前回指令対応台詞
SELECTCASE CONDS("直前行動")

CASE "愛の告白"
	PRINTFORML 「感谢你至今为止的照顾，然后接下来也请多指教？」
CASE "约会的约定"
	PRINTFORML
;これは悪魔や天使や驱魔人のみ
CASE "契約成立"
	[IF_DEBUG]
		PRINTFORML KOJO_DAILY_K47, %CSTR:PREV_DAILYCOM%後
	[ENDIF]
;你にお願いされて、自分の力で巨根になってあげた(悪魔と天使のみ)
CASE "巨根化契約成立"
	PRINTFORML
CASE "短小化契約成立"
	PRINTFORML
CASE "摆脱"
	PRINTFORML 「…要在这里做吗？」
CASE "主人公的房間に連れ込まれた"
	PRINTFORML 「虽然也没什么関系，不过为什么要到%CNAME("二人称")%的房间里？」
CASE "自室に招待"
		PRINTFORML 「欢迎来到%CNAME("一人称")%的房间」
		PRINTFORML 「…虽然这么说，实际上什么也没有就是了」
		SIF BASE:欲求不満 >= 80 && COND("発情期") && ABL:欲望 >= 5
			PRINTFORML 在称得上空无一物的房间里弥漫着淫靡的气味，在房间的角落里一个湿润的跳蛋正在嗡嗡地震动着，这些%CALLNAME:PLAYER%没有看漏…
CASE "自室に訪問された"
	;指导者を伴っている場合
	IF FIND_COND("現在存在", "助手")
		PRINTFORML
	ELSE
		PRINTFORML
	ENDIF
CASE "指导者部屋訪問"
	PRINTFORML
;自宅移動の後に你に連れられて居間に回来了場合など。優先度は低いです
CASE "帰還"
	PRINTFORML
CASE "オナバレ"
	PRINTFORML 「诶、啊、那个…」
	PRINTFORML 「既然有看的功夫就快过来帮忙呀！」
	PRINTFORML 「已经积攒到这种程度了呀！」
CASE "露脐装超短裙胖次チラ"
		PRINTFORML 「啊，被看到了吗？」
		PRINTFORML 「没関系哦，只是这种程度的话。反正我也没有损失什么」
CASE "低腰臀圍"
	PRINTFORML
CASE "掀起裙子"
	PRINTFORML
CASE "检查内褲"
	IF COND("合意：检查内褲")
		PRINTFORML
	ENDIF
CASE "检查阴部"
	IF COND("合意：检查阴部")
		PRINTFORML
	ENDIF
;"拜托処理性欲"と"进行性処理"は事後なので台詞の時系列が少し変かなと
CASE "拜托処理性欲"
;	PRINTFORML 「いいよ。少し待ってね。」
CASE "进行性処理"
;	PRINTFORML 「ごめん。今忙しい」
CASE "清洁口交"
	PRINTFORML
CASE "買東西"
	;買ってきた道具などで分岐
	IF COND("巨大振動棒購入")
	PRINTFORML 「哎呀、再怎么说这个大小…是魔术道具对吧？」
	;	CALL SET_DEVENT, "巨大振動棒感想"
	;ELSE
		;単純にいっぱい買ったかどうかで分岐
		SELECTCASE COND("買上品数")
		CASE IS >= 4

		CASEELSE

		ENDSELECT
	 ENDIF
CASE "隐秘摄影失敗"
	PRINTFORML 「偷拍是不好的，不要再做这种事了？好吗？」

CASE "变成裸体"
	;他に人がいる
	IF CHARA_NUM("室内の邪魔者")
		ACTOR = FIND_COND("現在存在", "男性")
		IF ACTOR
			PRINTFORML 「但是%CNAME(CALLNAME:ACTOR)%还在这里」
		ELSE
			PRINTFORML 「明明还有其他人在场…」
		ENDIF
	;まさかの野外
	ELSEIF PLACE("野外")
		PRINTFORML
	;不在個室
	ELSEIF PLACE("個室") == 0
		PRINTFORML
	;個室で二人きり
	ELSE
		PRINTFORML
	ENDIF
CASE "Ｈ目的で呼び出された"
	IF PLACE("情人旅館")
		IF BASE:欲求不満 >= 80 && COND("発情期") && ABL:欲望 >= 5
			PRINTFORML 「要在这里做对吧？%CNAME("一人称")%已经忍耐到极限了。快点開始吧？」
		ELSE
			PRINTFORML 「那么就快点開始吧？」
		ENDIF
	;做爱房
	ELSE
		PRINTFORML 「为什么在学校里会有这种地方…」
		PRINTFORML 「算了怎么都好。让我们快点開始吧？」
	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
	PRINTFORMW 「嗯？%CNAME("一人称")%的名字？不久之前还装在胳膊上的命名牌写着Lydie呐。实在要说的话是因为莉迪亚的发音感觉和这个比较像，所以才叫莉迪亚。」
	PRINTFORMW 「为什么连自己的名字都不确定？在研究所时我的记忆似乎被篡改过。对家乡的事情基本上没有什么印象了，对自己的过去也是，自己的身体为什么会变成这样也是。」
	PRINTFORMW 「或许只会说日语也是由于记忆被篡改的原因。这么说的话和%CNAME("二人称")%相遇看来是很幸运的事呢。」
	CALL SET_DEVENT, "質問１"
ELSEIF CFLAG:日常事件回数 >= 15 && DEVENT("質問２") == 0
	PRINTFORMW 「想知道我是怎么使用的魔法？」
	PRINTFORMW 「%CNAME("一人称")%是用血转化成魔力，然后使用各种各样的魔法的呢。」
	PRINTFORMW 「虽然和女仆小姐靠灵魂使用魔法不太一样，但是能使用的魔法基本上没有什么差别…我猜是这样的。」
	CALL SET_DEVENT, "質問２"
ELSEIF CFLAG:日常事件回数 >= 20 && DEVENT("質問３") == 0
	PRINTFORMW 「诶？你问我穿成这样在学校里来回走有没有问题？」
	PRINTFORMW 「我用了认知阻碍的魔法，应该没有问题？」
	PRINTFORMW 「况且衣服是%CNAME("二人称")%给的，我只有这一件衣服能穿…洗衣服怎么办？我是用魔法清洗的所以应该没问题？」
	CALL SET_DEVENT, "質問３"
;ELSEIF CFLAG:日常事件回数 >= 25 && DEVENT("質問４") == 0
;	CALL SET_DEVENT, "質問４"
ENDIF

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

;他の人といちゃついた後にpartner変更
IF COND("いちゃいちゃ") == 0 && FIND_COND("Ｈ的いちゃつき中")
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORML 「…刚和别人调完情，就立刻转向我这边呢」
		PRINTFORML 「…不，也不是在生气，只是对你的胆量感到惊讶而已」
	ELSE
		PRINTFORML 「…下一个是%CNAME("一人称")%吗？」
	ENDIF
ENDIF

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

;以下は随机台詞など

;時間帯と場所と関係で変化有些
IF STATE("酔酒")
	PRINTFORML
ELSEIF COND("夜")
	PRINTFORML %CALLNAME:TARGET%正透过窗户眺望夜空…
ELSE
	PRINTFORML %CALLNAME:TARGET%正透过窗户眺望天空…
ENDIF

;-------------------------------------------------
;梦话。随意むにゃむにゃ言わせてください
;-------------------------------------------------
@KOJO_SLEEP_K47
;上から順に発言頻度が高いようにする(== 0の付け忘れではない)
IF RAND:3
		PRINTFORML 「zzz…」
ELSEIF RAND:2
		PRINTFORML 「午饭喵…」
ELSE

		PRINTFORML 「…開饭了喵…」
ENDIF

;-------------------------------------------------
;メイン画面で選択肢として独立している日常イベントでのセリフ。WAIT使って大丈夫です
;こっちはあくまで選択肢で選ばれた場合に限るのに注意。
;-------------------------------------------------
@KOJO_DAILYCOM_K47, 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 「要一起打一把伞吗？谢谢」
		SIF TALENT:恋慕
			PRINTFORMW 「简直就像夫妻一样呢」
	CASE "内衣選び", "泳装選び"
		PRINTFORMW
	;特定行動でのセリフ。DAILY_MESSAGE, "归途"の地の文を参考に随意場合分けしてください。
	CASE "打情骂俏", "站着读书", "買食物", "物色游戏"
		PRINTFORMW
	CASE "检查新刊"
		PRINTFORMW
	CASE "繞道"
		PRINTFORMW
	CASE "直帰"
		PRINTFORMW
	CASE "圣诞节前夕"
		PRINTFORMW
	CASEELSE
		PRINTFORMW
	ENDSELECT

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

;お浴室に一緒に入ろうと誘われた場合。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "一緒にお浴室"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0 && TALENT:母乳体質
			PRINTFORMW 「你问我在做什么？我只是在挤出母乳哦？」
			PRINTFORMW 「因为要是不这么做的话衣服会被弄脏…」
		 	PRINTFORMW %CALLNAME:TARGET%一边揉着乳房，一边将母乳流入排水口
			PRINTFORMW 「想要喝吗？可以的哟」
		ENDIF
;[999]選択後の台詞。TFLAG:床イン = 1とすることで強制的にエロにも行ける
;浴室でスタートする場合には、代わりにTFLAG:お浴室でＨ = 1として下さい
CASE "休憩"
	;台詞を書いたらRETURN 0を消してください
	RETURN 0
	IF PLACE("自宅")
		IF COND("夜")
			IF BASE:欲求不満 >= 100 && TALENT:淫乱
				PRINTFORMW 「もう寝るの…？」
				PRINTFORMW 「ねえ、欲求不満だからさ、寝る前に少しだけでいいから構って」
				PRINTFORMW %CALLNAME:TARGET%は%CALLNAME:MASTER%を引き留めている……
				PRINTFORML ……那么要怎么做呢？
				CALL PRINT_SELECT, "推倒在床上！/晚安"
				IF RESULT == 0
					TFLAG:床イン = 1
				ELSE
					PRINTFORMW 「疲れてるの？そっか、お休み」
					IF FIND_COND("現在存在","乃々") && FLAG:乱性 >= 1
						PRINTFORMW 「%CNAME("乃々")%。%CNAME("一人称")%と一緒に気持ち良くなろ？」
						PRINTFORMW 「ちょ、ちょっと！いきなり何言いだすんですか！」
						PRINTFORMW 「%CNAME("一人称")%とするの嫌？」
						CALL PRINT_STRW, @" 「そういうことを言ってるわけでは…はぅん_HH_」"
						PRINTFORMW 「体は正直だね。居間を汚すとよくないから%CNAME("一人称")%のお部屋に行こ？」
						CALL PRINT_STRW, @" 「わ_HH_、分かりました_HH_行きますから_HH_その手を止め、あんっ_HH_」"
					ENDIF
				ENDIF
			ENDIF
			;お浴室
			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
	ELSE
		PRINTFORMW
	ENDIF
CASE "性処理：後"
	;口上を書いた場合はRETURN 0を消してください
	RETURN 0
	;避孕套を使う場合
	IF TEQUIP:PLAYER:避孕套
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
;ここには特殊な条件での角色独自のイベントを書く。別に無くても構わない
;発生領帯ミングは日常イベント選択後の好感度を得た直後
CASE "特殊事件"
	;眠ってる時でも来るので書くことないならRETURN 0してください
	SIF CFLAG:睡眠
		RETURN 0
	;公の場で話すことではない気もするけど、まぁいいや
	IF CEVENT("身体を元に戻して") == 0 && ABL:信頼 > 4
		PRINTFORMW 「那个…虽然至今为止都没有提过」
		PRINTFORMW 「如果可以的话，我也想恢复成像部员的大家那样的普通的身体呢」
		PRINTFORMW 「本来的话，这句话在刚刚相遇的时候就该讲到的…」
		PRINTFORMW 「但是没有拜托到这种地步的勇气」
		PRINTFORMW 「说到底基本找不到能解除我的贴在腹部的这个东西的人」
		PRINTFORMW 「虽然%CNAME("一人称")%不知道%CNAME("二人称")%现在怎么看待我的身体」
		PRINTFORMW 「如果%CNAME("二人称")%可以的话、希望你帮%CNAME("一人称")%寻找恢复原来身体的办法」
		PRINTFORMW 「对不起呐，总是。如果觉得这是无理的要求的话，请你当做没听到就好了」
		PRINTFORML	- 系统信息 -
		PRINTFORMW 当知道如何恢复她的身体的人以指导者的身份在场时、可以在拜托里与%CALLNAME:TARGET%交涉，询问她是否选择恢复原来的身体。
		CALL SET_CEVENT, "身体を元に戻して"
	ENDIF
;場所を変えた際のセリフ。通常は没有で構いません。SAVESTR:現在位置 や @PLACE(ARGS)で場所を条件分けして使ってください
CASE "場所を変える"

;この角色が点心当番で、その時間帯で部室に最初からいる時のセリフ
CASE "点心を用意した"
	;本日の点心はこの角色の亲手自制
	IF COND("亲手自制点心")&& COND("発情中") && ABL:欲望 >= 4 && BASE:欲求不満 >= 90

	ELSE

	ENDIF
;これは昼か夜
CASE "打招呼"
	IF COND("夜")
		GREETING = こんばんは
	ELSEIF COND("昼")
		GREETING = こんにちは
	ELSE
		GREETING = おはようございます
	ENDIF
	;你に先に打招呼をされた
	IF CFLAG:打招呼した == 0
			PRINTFORMW 「下午好。今天要做什么呢？」
	ELSE
			PRINTFORMW 「下午好。今天要做什么呢？」
	ENDIF
CASE "打招呼口交", "打招呼舐陰"
	IF TALENT:淫乱 && ABL:露出癖 >= 5 && COND("発情期") && COND("欲求不満")
		PRINTFORMW 打过招呼之后，莱迪亚牢牢地抓住%CALLNAME:PLAYER%的頭，然后就这么压在自己的那个地方！
		PRINTFORMW 被以惊人的力量压着頭、连呼吸都做不到，被强制地舔着小穴…
	ELSEIF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「你觉得这样的算打招呼吗？」

		IF COND("男性")
			PRINTFORMW 在她咏唱什么东西的一瞬间，射精感涌上了你的阴茎!
			PRINTFORMW 你就像失禁了一样射精了…
			PRINTFORMW 裤子上有一片污渍在不断扩大…
		ELSE
			PRINTFORMW 在她咏唱什么东西的一瞬间。从你的腰部传来了触电般的强烈快感!
			IF PENIS(MASTER) == 1
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样同时射精和高潮了！
				PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
			ELSE
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样一边潮吹一边高潮了！
				PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
			ENDIF
		ENDIF
		PRINTFORMW 「欲求不满现在缓解一点了吗？至少要注意时间和场合吧？」
		BASE:MASTER:精力 = 1
	ELSE
		PRINTFORMW 「你觉得这样的算打招呼吗？」
	 	PRINTFORMW 「嘛、反正没有其他人在场，也没什么问题。」
	ENDIF
CASE "叫醒"
	PRINTFORMW
;酔った際に眠くなって自分的房間に返回際のセリフ
CASE "眠い"
		PRINTFORMW 「開始犯困了，%CNAME("二人称")%晚安。」
;全裸終了の際のセリフ
CASE "服を着た"
	PRINTFORMW
;暑かったり躁动难忍してたり酔っぱらってたりで内衣姿变成了際のセリフ
CASE "薄着变成了"
	PRINTFORMW 「因为太热了所以脱了」
;易出汗状態の際に裙の中に扇風機の風を当てた際のセリフ。[粗野]or[開朗]or[小悪魔]限定
CASE "股間に扇風機"
	PRINTFORMW
CASE "Talk"
	SELECTCASE STR:日常イベント名
	;これはCSTR:点心 に亲手自制属性のものが設定されている時のみ
	CASE "夸奖点心"
			PRINTFORMW 「能做成这样真的很辛苦呢，你能这么说真是太好了」
	CASE "夸奖"
		PRINTFORML 「那个...即使夸奖我也不会发生什么事哦？」
		PRINTFORMW 她看上去感觉很高兴

	CASE "甜言蜜语"
		IF TALENT:恋慕
				PRINTFORMW 「嗯，%CNAME("一人称")%也爱%CNAME("二人称")%哦」
				PRINTFORML 她一边微笑一边回复道
		ELSEIF CALCF("甜言蜜语成功")
				PRINTFORMW 「啊、这样啊、唔…」
				PRINTFORML 听到爱的话语的%CNAME("一人称")%脸一瞬间变得通红。
		ELSE
				PRINTFORML 「比%CNAME("一人称")%的情话更厉害的话语、让你见识一下吧」
				PRINTFORMW 她一边这么说着，一边開始编织一些听不懂的咒语…
				PRINTFORMW 不知从何时開始，%CALLNAME:PLAYER%已经不能将自己的目光从她身上移開…	彼女から目が離せなくなっていた…
		ENDIF
	CASEELSE
		IF RAND:6 && COND("初秋")
			PRINTFORMW 「天气渐渐变凉了，夏天差不多要结束了呢」
		ELSEIF RAND:5 && COND("初夏")
			PRINTFORMW 「很热的夏天就要来了呢，真讨厌…」
		ELSEIF RAND:4
				;ドライフラワー製造機がいるし枯れてるの多いはず
			PRINTFORMW 「这个学园的花明明很美，却有很多都枯萎了。为什么会这样呢？」
		ELSEIF RAND:3
			PRINTFORMW 「在这之前，部员们在玩一种游戏，但是我不知道规则所以参加不了。」
			PRINTFORMW 「我下次也想参加，你可以教我规则吗？」
		ELSEIF RAND:2

		ELSE

		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 「要帮我擦汗吗？谢谢你」
		PRINTFORMW 「但是去闻擦汗之后的毛巾再怎么说也不太好吧？」
CASE "淋浴独り言"
;	IF COND("発情中") && ABL:自慰中毒 >= 4 && BASE:欲求不満 >= 100
	;	CALL PRINT_STRW, @"「はぁ…_H_淋浴気持ちいい_H_」"
	;	CALL PRINT_STRW, @"「イキそう…あっ_H_イクっ_H_」"
	;	CALL PRINT_STRW, @"「あっ_H_はぁ…_H_はぁ…_H_」"
	;	BASE:欲求不満 = 0
;	ELSE
		PRINTFORMW 「咿呀，好凉！」
		PRINTFORMW 「把热水和凉水搞错了…」
;	ENDIF
CASE "淋浴"
	;実は内衣を漁ったのに気づかれています
	IF COND("淋浴：内衣漁りバレ") && COND("発情中") && ABL:欲望 >= 4 && BASE:欲求不満 >= 90
		PRINTFORMW
		PRINTFORMW 「啊，并不是感到讨厌、今天的身体实在是疼得受不了所以才没穿内衣，希望你能看看%CNAME("一人称")%的裸体呢。」
	ELSEIF COND("淋浴：内衣漁りバレ")
		PRINTFORMW 「你刚刚动了%CNAME("一人称")%的内衣，对吧？」
		PRINTFORMW 「这次是%CNAME("一人称")%所以没问题。要是其他人的话生气我也不管哦？」
	ELSE
		PRINTFORMW 「呼，清爽多了。」
	ENDIF
CASE "淋浴後换装"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0

	ELSE
	ENDIF

CASE "淋浴後换装失敗"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「我现在已经穿着别的衣服了，不准备新的衣服也没関系的…」
	ELSE
		PRINTFORMW 「…难道你想让我穿放在那里的衣服？」
		PRINTFORMW 「…还是算了吧，洗完再还回去也很麻烦」
	ENDIF

;睡眠中の悪戯
CASE "趁睡袭击"
	;梦话
	CALL KOJO_SLEEP_K47
	WAIT
CASE "互动"
	SELECTCASE STR:日常イベント名
	CASE "一起学习"
		PRINTFORMW 「%CNAME("一人称")%不用去上学，所以没有必要学习…」
		PRINTFORMW 「这个地方不明白吗？需要%CNAME("一人称")%来教你吗？」
		PRINTFORMW 「你问为什么%CNAME("一人称")%会明白这些知识？%CNAME("一人称")%也想找人告诉我为什么自己会有这些记忆。」
	CASE "托一托胸部"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「等，等下，你在做什么呢!」
			PRINTFORML 她用惊人的力量将%CALLNAME:PLAYER%的手从胸部挪開了…
			IF TALENT:母乳体質
				PRINTFORMW 「那个…如果这么揉胸部的话、母乳会流出来的…稍微注意下时间和场合呀。」
			ELSE
				PRINTFORMW 「那个…要是触摸胸部的话…稍微注意下时间和场合呀。」
			ENDIF
		ELSEIF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
			PRINTFORMW 「希望你能注意一下时间和场所呐？」

			IF COND("男性")
				PRINTFORMW 在她咏唱了什么东西的一瞬间，从%CALLNAME:PLAYER%的阴茎突然涌上了射精感!
				PRINTFORMW %CALLNAME:PLAYER%仿佛漏尿一样射精了…
				PRINTFORMW 裤子上有一片污渍在不断扩大…
			ELSE
				PRINTFORMW 在她咏唱了什么东西的一瞬間，从%CALLNAME:PLAYER%腰部传来了触电般强烈的快感!

				IF PENIS(MASTER)
					PRINTFORMW 保持着跪着的姿势，%CALLNAME:PLAYER%像失禁了一样同时射精和高潮了！
					PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
				ELSE
					PRINTFORMW 保持着跪着的姿势，%CALLNAME:PLAYER%像失禁了一样一边潮吹一边绝顶了！
					PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
				ENDIF
			ENDIF

			PRINTFORMW 「欲求不满现在缓解一点了吗？至少要注意时间和场合呐？」
			BASE:MASTER:精力 = 1
		ELSE
			PRINTFORMW 「胸、想要摸一摸？我知道了，可以的哟」
		ENDIF
	CASE "按摩"
		PRINTFORMW 「按摩？虽然并没有按摩的必要就是了…」
		PRINTFORMW 「只要不做奇怪的事情的话，可以哟？」
	CASE "接吻"
		IF CSTR:PREV_DAILYCOM == STR:日常イベント名
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "膝枕"

	CASE "泡茶"
		PRINTFORMW
	;CALL SET_CEVENT, "飲酒拒否"でお酒を飲まないようにできる。
	;このフラグはCALL DEL_CEVENT, "飲酒拒否"で消すことができる
	CASE "勸酒"
		PRINTFORMW 「抱歉。%CNAME("一人称")%还未成年所以容我拒绝。」
		CALL SET_CEVENT, "飲酒拒否"
	;当然だが尾巴がある相手のみ
	CASE "抚摸尾巴"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「诶？想摸尾巴？」
			PRINTFORMW 「唔嗯，如果只是为了满足好奇心的话，稍微摸一摸倒是可以。」
			PRINTFORMW 「不能向其他的前辈们提出这种请求哟，这是性骚扰哟？」
		;連続実行
		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_K47
	WAIT
CASE "被拒绝了学习的邀请"

CASE "勉強前に胖次要求"

CASE "卖个破绽"
	SELECTCASE STR:日常イベント名
	　CASE "邀请一起入浴"
		IF TALENT:恋慕
			PRINTFORMW 「%CNAME("一人称")%差不多该去洗澡了，一起洗吧？」
		ELSE
			PRINTFORMW 「%CNAME("一人称")%差不多该去洗澡了，要不要一起洗？」
		ENDIF

	CASE "Ｈ的邀请"
		PRINTFORMW
	CASE "邀请学习"
		;胖次を要求した
		IF CHOSE_DEVENT("勉強前に胖次要求")
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "推倒"
		PRINTFORMW 「抱歉，已经到极限了」
		PRINTFORMW 「希望你能帮%CNAME("一人称")%进行性处理呢…」
	CASE "展示内褲"
		;複数人が並んで你に展示内褲ている場合
		IF FLAG:対複数
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	CASE "清洁口交"
		PRINTFORMW
	CASE "口淫"
		PRINTFORMW
	CASE "亲脸頬", "接吻"
		PRINTFORMW
	CASE "膝枕", "抱住", "把胸部压了上去", "摩擦股間"
		PRINTFORMW
	CASE "抚摸", "手淫"
		PRINTFORMW
	CASE "膝枕"
		PRINTFORMW 「因为很难得所以给你清理一下耳朵吧，棉签是在这里对吧?」
		PRINTFORMW 「找到了，那么请在%CNAME("一人称")%的膝盖这里躺下吧」
	CASE "沏茶"
				PRINTFORMW 「给你，这是茶」
			;CSTR:茶 を指定してある場合には、SAVESTR:茶 で何を用意したかが判定できる
			;例）PRINTFORMW 「よければ%SAVESTR:茶%どうぞ」
	;	IF ABL:露出癖 >= 5 && BASE:欲求不満 >= 100 && SAVESTR:茶 == "牛乳" && COND("発情期")
	;		PRINTFORMW 「是、どうぞ。牛乳。」
	;		PRINTFORML しかし%CALLNAME:TARGET%が渡した牛乳は何故か彼女の甜香りがし、生暖かった…
	;		PRINTFORML よく見ると彼女の頬は少し朱に染まってるように見える…
			;SIF ABL:Ｂ感覚 >= 7
			;条件分はあっているのですが、SIFは下の一文にしか効果がないため、おそらく予定とは違う動作になってしまうと思われます
			;具体的には「PRINTFORMW さっき部屋の端っこで猫背になりながらビクビク震えてたがどうやら自分の乳を搾ってたらしい」だけがＢ感覚が7以上のときにしか出ないようになり、その下の株や経験の増加は就这様になってしまうと思われます
	;		IF ABL:Ｂ感覚 >= 7
	;			PRINTFORMW さっき部屋の端っこで猫背になりながらビクビク震えてたがどうやら自分の乳を搾ってたらしい
	;			PRINTFORML 　【%CALLNAME:TARGET%の快Bの珠　+300】
	;			PRINTFORML 　【%CALLNAME:TARGET%の恥情の珠　+300】
	;			JUEL:快Ｂ += 300
	;			JUEL:恥情 += 300
	;		ENDIF
	;	ENDIF
	;それ以外
	CASEELSE
		IF COND("昼") && RAND:2
			PRINTFORMW 「什么都不做吗？明明现在是社团时间」
		ELSE
			PRINTFORMW 「闲、構って」
		ENDIF
	ENDSELECT
;これは素質に[開朗]ないし[粗野]を持っている角色のみです
CASE "構って欲しい！"
	PRINTFORMW
CASE "廁所"
	;廁所で用を済ませた後の台詞
	IF BASE:尿意 == 0
		;主人も廁所で済ませてきた
		IF BASE:MASTER:尿意 == 0
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	;廁所に行く際の台詞
	ELSE
		PRINTFORMW 「稍微外出一下。」
	ENDIF
CASE "廁所詮索"
	IF BASE:欲求不満 >= 100	&&	ABL:自慰中毒 > 5 && COND("身嗜み：自慰禁止") == 0
		PRINTFORMW 「我自己一个人解决好了…」
		PRINTFORMW 「因为%CNAME("二人称")%都不愿意陪我做那个…」
		EXP:自慰経験 += 1
		BASE:欲求不満 = 0
		PRINTFORML 自慰経験 + 1
	ELSE
		PRINTFORMW 「在厕所里要做的事就算不说也知道吧？」
	ENDIF
;これは你と角色が両方男性の際に限り起きます
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_K47
		WAIT
	ELSEIF COND("合意：检查阴部") == 0
			PRINTFORMW 「那个，你是认真地在说这话吗...？」
	ELSE
		[IF_DEBUG]
			PRINTFORMW KOJO_DAILYCOM_K47, %ARGS%
		[ENDIF]
	ENDIF
CASE "检查菊穴"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K47
		WAIT
	ELSE
		PRINTFORMW
	ENDIF
CASE "检查内褲"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K47
		WAIT
	ELSEIF COND("合意：检查内褲") == 0
			PRINTFORMW 「唉，我知道了。既然你积攒了这么多，那么现在就给你解脱」

			IF COND("男性")
				PRINTFORMW 在她咏唱了什么东西的一瞬间，从%CALLNAME:PLAYER%的阴茎突然涌上了射精感!
				PRINTFORMW %CALLNAME:PLAYER%仿佛漏尿一样射精了…
				PRINTFORMW 裤子上有一片污渍在不断扩大…
			ELSE
				PRINTFORMW 在她咏唱了什么东西的一瞬間，从%CALLNAME:PLAYER%腰部传来了触电般强烈的快感!

				IF PENIS(MASTER)
					PRINTFORMW 保持着跪着的姿势，%CALLNAME:PLAYER%像失禁了一样同时射精和高潮了！
					PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
				ELSE
					PRINTFORMW 保持着跪着的姿势，%CALLNAME:PLAYER%像失禁了一样一边潮吹一边绝顶了！
					PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
				ENDIF
			ENDIF

			PRINTFORMW 「这下子欲求不満有没有缓解一些？至少要注意一下时间和场合呐？」
			BASE:MASTER:精力 = 1
	ELSE
			PRINTFORMW 「检查胖次这种事…完全不理解到底有什么意义」
	ENDIF
CASE "撫摸股間"
	PRINTFORMW
CASE "检查布鲁马", "股間観察"
	;睡眠中の悪戯
	IF CFLAG:睡眠
		;梦话
		CALL KOJO_SLEEP_K47
		WAIT
	;じっくり観察
	ELSEIF CFLAG:股間確認済
			PRINTFORMW 「比起在这里盯着看，不如去床上怎么样？」
	ELSE
			PRINTFORMW 「…你在看哪里我现在是知道的哟？」
			PRINTFORMW 「…嘛算了，反正只是看看」
	ENDIF

CASE "掀起裙子"
	SELECTCASE STR:日常イベント名
	CASE "撩起裙子"
		;初めて
		IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「呜哇、等等，再怎么说也不要这样做啊！」
			PRINTFORMW 「真是的～、明明还有其他人在这里！」
			PRINTFORMW 被说教了一番…
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「呜哇、等等，再怎么说也不要这样做啊！」
			PRINTFORMW 「真是的～、明明还有其他人在这里！」
			PRINTFORMW 被说教了一番…
		ELSE
			PRINTFORMW 「呜哇、等等，再怎么说也不要这样做啊！」
			PRINTFORMW 「不，虽然确实没有什么损失，但是还有其他人在这里呢！」
			PRINTFORMW 被说教了一番…
		ENDIF
	;掀起裙子
	CASEELSE
		;刚睡醒の胡乱な状態を襲う
		IF CFLAG:刚睡醒
				PRINTFORMW 「嗯？在做什么呢？」
				PRINTFORMW 还睡得迷迷糊糊的，不能理解自己正在被做什么…
		;睡眠中の悪戯
		ELSEIF CFLAG:睡眠
			;梦话
			CALL KOJO_SLEEP_K47
			WAIT
		;初めて
		ELSEIF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「呜哇、等等，再怎么说也不要这样做啊！」
			PRINTFORMW 「真是的～、明明还有其他人在这里！」
			PRINTFORMW 被说教了一番…
		;胖次チラ直後
		ELSEIF COND("胖次チラ直後")
			PRINTFORMW 「呜哇、等等，再怎么说也不要这样做啊！」
			PRINTFORMW 「不，虽然确实没有什么损失，但是还有其他人在这里呢！」
			PRINTFORMW 被说教了一番…
		ELSEIF COND("打招呼前")
			IF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
				PRINTFORMW 「你觉得这样的算打招呼吗？」
				IF COND("男性")
					PRINTFORMW 在她咏唱什么东西的一瞬间，射精感涌上了你的阴茎!
					PRINTFORMW 你就像失禁了一样射精了…
					PRINTFORMW 裤子上有一片污渍在不断扩大…
				ELSE
					PRINTFORMW 在她咏唱什么东西的一瞬间。从你的腰部传来了触电般的强烈快感!
					IF PENIS(MASTER) == 1
						PRINTFORMW 保持着跪着的姿势，你像失禁了一样同时射精和高潮了！
						PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
					ELSE
						PRINTFORMW 保持着跪着的姿势，你像失禁了一样一边潮吹一边高潮了！
						PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
					ENDIF
				ENDIF
				PRINTFORMW 「欲求不满现在缓解一点了吗？至少要注意时间和场合吧？」
				BASE:MASTER:精力 = 1
			ELSE
				PRINTFORMW 「你觉得这样的算打招呼吗？」
			 	PRINTFORMW 「嘛、反正没有其他人在场，也没什么问题。」
			ENDIF
		ELSE
			;胖次沒穿
			IF EQUIP:胖次 == 0
				PRINTFORMW 「呜哇。等等，今天没有穿鞋子所以不要这样」
			ELSE
				PRINTFORMW 「呜哇、等等，再怎么说也不要这样做啊！」
				PRINTFORMW 「真是的～、明明还有其他人在这里！」
				PRINTFORMW 被说教了一番…
			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 "口交"
		PRINTFORMW
		CASE "乳交"

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		CASE "乳頭奸"

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

		CASE "Ｖ性交"

		CASE "Ａ性交"

		CASE "尿道性交"

		ENDSELECT
	ENDIF
CASE "見抜きを頼んだ際の反応"
	SELECTCASE STR:PLAY内容
	CASE "胖次見抜き"
		PRINTFORMW 「胖次就可以了吗？我知道了。」
	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 "Ｖ性交"
	;PRINTFORMW 射精が終わったと感じた瞬間
	;PRINTFORML 「ご、ごめんなさい、収まらない！」
	;PRINTFORMW そう言って今度は杭を打つかの如く激烈地腰を振ってきた！
	;CALL PRINT_STRW, "「ご…_WH_ごめんなさい…_WH_。せっ_WH_性欲処理の約束だったのに、こっ_WH_腰が止まらない！」"
	;PRINTFORMW %CNAME("二人称")%の射精間が込みあがった時に
	;CALL PRINT_STRW, "「あっ_WH_また来る…_WH_イっ_WH_イくぅうううう_WH_」"
	;PRINTFORMW 彼女は絶頂しぐったりとしたまま%CALLNAME:PLAYER%に抱き着いてきた
	;CALL SIMULATE_TRAIN, 60,1
	;作り直したい
	CASE "Ａ性交"

	CASE "尿道性交"

	CASE "乳頭奸"

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

	CASE "手淫"

	CASE "Ｖ性交"

	CASE "Ａ性交"

	CASE "尿道性交"

	ENDSELECT
ENDSELECT

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

SELECTCASE ARGS
;你を週末约会に誘った
CASE "约会のお誘い"
		PRINTFORMW 「次の周日一緒に约会とか、どうかな？」
CASE "约会のお誘い：結果"
	;约会決定！
	;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
	IF COND("约会的约定")
		PRINTFORMW 「太棒了！那么我就满怀期待地等着吧」
	;你に保留されてしまった
	ELSE
		PRINTFORMW 「我知道了，那我就等你的回复了呢」
	ENDIF
;你から週末约会に誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "约会に誘われた"
		PRINTFORMW 「约会？可以哟，我明白了」
;你に便当を作ってきてと頼まれた
CASE "便当を頼まれた"

	;これのコメントアウトを取下と、便当を作ってあげません
	;CALL DEL_CEVENT, "约会の便当"
;你から约会当日にいきなり誘われた
;自発的に约会の做便当给よ！って場合はCALL SET_CEVENT, "约会の便当"としてください。
CASE "邀请去约会"
	;同居していない相手を誘った時
	IF COND("同居中") == 0
		PRINTFORMW 「约会？可以哟，我明白了」
		PRINTFORMW 「从今天起%CNAME("一人称")%就去%CNAME("二人称")%的家里住呐」
	ELSE

		PRINTFORMW 「约会？可以哟，我明白了」
		PRINTFORMW 「反正衣服只有这一件，不用%CNAME("一人称")%は特地去准备也行。」
		PRINTFORMW 「倒是%CNAME("二人称")%要做准备没问题吗？」
	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:恋慕
			PRINTFORMW 「今天过得很開心呐」
			PRINTFORMW 「这份幸福要是能一直这样持续下去就好了…」
	ELSE
			PRINTFORMW 「今天过得很開心呐」
	ENDIF
CASE "约会終了"
	;エッチをする場合
	IF TFLAG:床イン
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW
		ELSE
			PRINTFORMW
		ENDIF
	ENDIF
ENDSELECT

path: ERB/EVENT_K/47 リディア/EVENT_K47_DAILY.ERB


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
@WISH_K47_ADDSELECT
;これどんどん長くなっていきそう
IF TALENT:Ｖ妊娠不能 && CEVENT("身体を元に戻して") && CEVENT("身体を元に戻した") == 0
	IF FIND_COND("現在存在", "助手", "奥丝卡") && BASE:MASTER:魂 >= 101
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("呪いを解いて要", 16)% … 向%CALLNAME:ASSI%询问能不能解除%CALLNAME:TARGET%身上的淫纹和避孕的护符/
	ELSEIF FIND_COND("現在存在", "助手", "種族：驱魔人")
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("呪いを解いて要", 16)% … 向%CALLNAME:ASSI%询问能不能解除%CALLNAME:TARGET%身上的淫纹和避孕的护符/
	ENDIF
ENDIF

;詳しくは@FIND_COND参照。@CONDにおける現在存在、助手、奥丝卡を満たす場合 == 1を満たす　魂が1.0以上ある
@KOJO_WISH_K47_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "呪いを解いて要",
	IF FIND_COND("現在存在", "助手", "奥丝卡")
		PRINTFORMW 你正在向奥斯卡询问能不能解除莉迪亚的护符。
		PRINTFORML
		CALL PRINT_STRL, "黄色_- 奥丝卡 -_"
		PRINTFORMW 『原来如此，正在为解除不了避孕的护符而感到困扰。』
		PRINTFORMW 『好吧，我能帮你解開』
		CALL PRINT_STRL, "黄色_- 莉迪亚 -_"
		PRINTFORMW 「可以吗？但是听说要让恶魔视线愿望，好像必需要献上灵魂？%CNAME("一人称")%没有足够的灵魂来支付哦？」
		CALL PRINT_STRL, "黄色_- 奥丝卡 -_"
		PRINTFORMW 『就算你没有足够的灵魂也会支付，没错吧？%CNAMET(ASSI, "二人称")%。』
		PRINTFORMW 你回答说当然。
		CALL PRINT_STRL, "黄色_- 莉迪亚 -_"
		PRINTFORMW 「谢谢你，%CALLNAME:ASSI%小姐，支付灵魂的%CNAME("二人称")%也是。%CNAME("一人称")%永元不会忘记你们两人为我做的一切的。」
		PRINTFORMW 以你的灵魂为代价，莉迪亚的护符被完全解除了

		;魂のやり取り　奥丝卡に魂を払う処理
		CALL EXCHANGE_SOUL, "取引", 100, ASSI

	;詳しくは@FIND_COND参照。@CONDにおける現在存在、助手、玛丽を満たす場合 == 1を満たす
	ELSEIF FIND_COND("現在存在", "助手", "玛丽")
		PRINTFORMW 你正在正向%CALLNAME:ASSI%询问能不能解除莉迪亚的护符。
		PRINTFORML
		CALL PRINT_STRL, "黄色_- 玛丽 -_"
		PRINTFORMW 『原来如此，因为被迫打上避孕的护符而感到困扰吗。』
		PRINTFORMW 『没问题的哟，现在就可以解除。』
		CALL PRINT_STRL, "黄色_- 莉迪亚 -_"
		PRINTFORMW 「可以吗？%CNAME("一人称")%没有任何能支付给你的东西。」
		CALL PRINT_STRL, "黄色_- 玛丽 -_"
		PRINTFORMW 『有困难时就要互相帮助嘛』
		CALL PRINT_STRL, "黄色_- 莉迪亚 -_"
		PRINTFORMW 「谢谢%CNAME(@"{FIND_COND("玛丽")}")%。我永远不会忘记你对我的帮助的。」
		PRINTFORMW 在%CALLNAME:ASSI%的帮助下莉迪亚的护符被完全解除了
	ELSE
		;現状帕拉奇娜専用。口上がない驱魔人がいればここに来るはず
		;【余談】
		;実の所、@FIND_CONDは複数の@COND条件をすべて満たす場合==1を返すのでFIND_COND("種族：驱魔人", "現在存在", "助手")にまとめられる
		;あえて分けた理由は@CONDの解説の為。COND("XXX", ASSI)の後半部分はARG、TARGET、ASSI、MASTER等でなければ成立しない。"助手"の様な文字列は弾かれる
		PRINTFORMW 你正在正向%CALLNAME:ASSI%询问，能不能解除莉迪亚的护符。
		PRINTFORMW …看来似乎愿意帮忙解除莉迪亚的护符！
		PRINTFORMW 「谢谢你%CALLNAME:ASSI%。我永远不会忘记你对我的帮助的。」
		PRINTFORMW 在%CALLNAME:ASSI%的帮助下莉迪亚的护符被完全解除了。
	ENDIF
	CALL SET_CEVENT, "身体を元に戻した"
	TALENT:吸精体質 = 0
	TALENT:Ｖ妊娠不能 = 0
	MARK:淫紋 = 0
	;彼女に手を出してなければ元に返回部分が増える。条件が厳しすぎる気もするがとりあえずこれで。というかeraできれい清爽元に戻して给ことの需要はあるのか？
	IF CEVENT("調教開始：初調教") == 0
		TALENT:Ｖ名器 = 2
		TALENT:母乳体質 = 0
		ABL:Ｃ感覚 = 0
		ABL:Ｂ感覚 = 0
		ABL:Ｖ感覚 = 0
		ABL:尿道感覚 = 0
	ENDIF
ENDSELECT

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

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

;-------------------------------------------------
;互动指令の選択肢を追加

;hokaguru	@付きは関数宣言	ここで一括の処理なので２つ以上は要らないとおぼえておけばおーけい
@DAILY2_K47_ADDSELECT
;hokaguru	多分これが一番スマート　実際の内容は下の関数で分岐させる
SIF BASE:MASTER:魂 >= 100 && BASE:MASTER:精力 >= 10
	STR:選択肢 += "供给血液/"

SIF DEVENT("托一托胸部") > 0
	STR:選択肢 += "从乳頭挤奶/"

SIF DEVENT("托一托胸部") > 0
	STR:選択肢 += "玩弄小豆豆/"

SIF DEVENT("托一托胸部") > 0
	STR:選択肢 += "玩弄小穴/"

@KOJO_DAILY2_K47_ADDSELECT, ARGS
SELECTCASE ARGS
;同じ血を渡す、とするなら名前で処理を判断している為被るとエラーになる。
;なので血を渡すに入った場合に選択肢追加の条件で就这様で内容を分岐させる
;上の選択肢追加を削るのも考えたけど多分
CASE "血を渡す"
	IF BASE:欲求不満 == 100 && COND("発情期")
		PRINTFORMW 产生了某种强烈的讨厌的预感…现在把血液交出去似乎会发生很危险的事…即便如此也要把血液交%CALLNAME:TARGET%吗？
		CALL PRINT_SELECT, "转让血液/还是算了"
		SELECTCASE RESULT
		CASE 0
			PRINTFORMW 「可以吗？谢谢。那我就不客气地收下了呐!」
			PRINTFORML 这句话说完之后，突然把你推倒在地，然后一口咬在你的喉咙上！
			PRINTFORMW 感受到剧烈痛觉的同时你的意识越来越模糊…
			PRINTFORML
			PRINTFORML
			PRINTFORML
			;この辺りはそれっぽい系统信息
			CALL PRINT_STR, "紅_＜复活！＞_W_"
			PRINTFORMW %CALLNAME:MASTER%使用最后的一丝力气，嘶声竭力般复活了
			PRINTFORML 　【%CALLNAME:TARGET%の恭順の珠　+400】
			PRINTFORMW 　【%CALLNAME:TARGET%对%CALLNAME:MASTER%的好感　+30】
			;この辺りは随意平衡決めて
			CFLAG:好感度 += 30
			BASE:MASTER:魂 = 1
			BASE:MASTER:精力 = 1
			JUEL:恭順 += 400
			BASE:欲求不満 -= 100
		CASE 1
			PRINTFORMW 果然还是算了…
		ENDSELECT
	ELSEIF BASE:欲求不満 >= 1
			PRINTFORMW 「可以吗？谢谢。那我就不客气地收下了呐」
			PRINTFORMW 这句话说完之后抱住了我，朝着耳朵低语了什么，然后咬在了我的脖子上
			PRINTFORML 頭脑逐渐变得昏沉…
			;この辺りはそれっぽい系统信息
			PRINTFORML 　【%CALLNAME:MASTER%の魂-0.50】
			PRINTFORML 　【%CALLNAME:MASTER%の精力-10】
			PRINTFORML 　【%CALLNAME:TARGET%の恭順の珠　+300】
			PRINTFORMW 　【%CALLNAME:TARGET%对%CALLNAME:MASTER%的好感　+20】
			CFLAG:好感度 += 20
			BASE:MASTER:魂 -= 50
			BASE:MASTER:精力 -= 10
			JUEL:恭順 += 300
			BASE:欲求不満 -= 70
	;hokaguru どれにも掛からなかった場合ここにいく
	ELSE
		PRINTFORMW 「谢谢，但是我现在已经没问题了哟」
	ENDIF
CASE "乳絞り"
	IF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「希望你能注意一下时间和场所呐？」
		IF COND("男性")
			PRINTFORMW 在她咏唱什么东西的一瞬间，射精感涌上了你的阴茎!
			PRINTFORMW 你就像失禁了一样射精了…
			PRINTFORMW 裤子上有一片污渍在不断扩大…
		ELSE
			PRINTFORMW 在她咏唱什么东西的一瞬间。从你的腰部传来了触电般的强烈快感!
			IF TALENT:扶她
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样同时射精和高潮了！
				PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
			ELSE
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样一边潮吹一边高潮了！
				PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
			ENDIF
		ENDIF
		PRINTFORMW 「欲求不满现在缓解一点了吗？至少要注意时间和场合呐？」
		BASE:MASTER:精力 = 1
	ELSE
		;初めて
		;IF DEVENT(STR:日常イベント名) == 0
			PRINTFORMW 「诶？想给%CNAME("一人称")%挤奶？」
			PRINTFORMW 「你的精神还正常吗？」
			PRINTFORMW 「唔姆，嘛，必竟约定好了呢。给你摸一摸也可以哟。」
		; 二回目以降の条件分岐がまだ書けないのでとりあえず書いたものを置いておく（恐らくコメントアウト外しただけでは乳絞り成功しなくても成功した扱いになるのでは
		;ELSE
		;	PRINTFORMW 「え？またやるの？」
		;	PRINTFORMW 「唔姆，嘛，必竟约定好了呢。给你摸一摸也可以哟。」
		;ENDIF
		IF BASE:TARGET:精力 >= 6
			PRINTFORMW 将她的乳房袒露出来，你拿着准备好的杯子開始榨乳。
			PRINTFORMW 将乳頭用手指捏住然后轻轻一拉，像这样刺激一下母乳就流了出来…
			PRINTFORML %CALLNAME:MASTER%の精力+5
			PRINTFORML %CALLNAME:TARGET%の精力-5
			BASE:MASTER:精力 += 5
			BASE:TARGET:精力 -= 5
			PRINTFORMW 「诶，你要把这个喝掉吗？」
		ELSE
			PRINTFORMW 然而，无论怎么尝试都没有母乳流出...
		ENDIF
	ENDIF
CASE "豆弄り"
	IF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「希望你能注意一下时间和场所呐？」
		IF COND("男性")
			PRINTFORMW 在她咏唱什么东西的一瞬间，射精感涌上了你的阴茎!
			PRINTFORMW 你就像失禁了一样射精了…
			PRINTFORMW 裤子上有一片污渍在不断扩大…
		ELSE
			PRINTFORMW 在她咏唱什么东西的一瞬间。从你的腰部传来了触电般的强烈快感!
			IF TALENT:扶她
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样同时射精和高潮了！
				PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
			ELSE
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样一边潮吹一边高潮了！
				PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
			ENDIF
		ENDIF
		PRINTFORMW 「欲求不满现在缓解一点了吗？至少要注意时间和场合呐？」
		BASE:MASTER:精力 = 1
	;精力ガン無視でイキ地獄とかやりたいけどいろいろと問題快要醒了で怖い
	ELSEIF BASE:TARGET:精力 <= 6
		PRINTFORMW 「抱歉，我已经累了。希望今天不要玩弄%CNAME("一人称")%的身体了。」
	ELSE
		PRINTFORMW 「诶？想玩弄%CNAME("一人称")%的阴蒂？不是去床上做而是就直接就这么做？」
		PRINTFORMW 「你说这话是认真的吗？」
		PRINTFORMW 「唔姆，嘛，必竟约定好了呢。给你摸一摸也可以哟。」
		PRINTFORM %CALLNAME:PLAYER%将
		SIF EQUIP:胖次
			PRINTFORM %TEXTR("手伸入了%CALLNAME:TARGET%的胖次里/手包在了%CALLNAME:TARGET%的胖次上/%CALLNAME:TARGET%的胖次挪開")%
		PRINTFORMW 開始抚摸敏感的小豆豆。
		;胖次履いてる時の条件分岐はこれで動くとと信じたい。PRINTFORM君は初めて使います。想像どうりの挙動をしてると信じたい
		IF TALENT:淫乱
			PRINTFORM %CALLNAME:PLAYER%%TEXTR("用跳蛋刺激阴蒂/用手指来回挑弄阴蒂/画圈圈一样进行爱抚/对阴蒂根部进行刺激/轻轻按压阴蒂/在狭缝里来回摩擦")%，%CALLNAME:TARGET%感到十分開心，
		ELSE
			PRINTFORM %CALLNAME:PLAYER%%TEXTR("用跳蛋刺激阴蒂/用手指来回挑弄阴蒂/画圈圈一样进行爱抚/对阴蒂根部进行刺激/轻轻按压阴蒂/在狭缝里来回摩擦")%，%CALLNAME:TARGET%对此产生了反应，
		ENDIF
		PRINTFORMW 敏感な場所への很强刺激に%TEXTR(@"腰を浮かして/发出甜美的声音て/悶えて/股を強く閉じて/%CALLNAME:PLAYER%の手を押さえて")%いる…
		;跳蛋所持の条件分岐が書けません(血涙。もし問題あったら跳蛋の部分は引っこ抜いてくださいな
		;;PRINTFORMW 「ちょ、ちょっと！激しいって！もっと温柔的してよ！」
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR(@"声を我慢しながら/膝をがくがくと揺らしながら/足をぴんと延ばしながら/发出甜美的声音ながら/%CALLNAME:PLAYER%の手を強く抑え押さえて")%%TEXTR("潮/尿")%を%TEXTR("圆圈で漏らすように/胖次に带污迹的ができる程度に/激烈地")%出しながら絶頂した。
		PRINTFORMW 在肩膀上下起伏地呼吸着的同时沉浸在高潮的余韵里，液体像涓流一样从小穴内不断流出…
		PRINTFORML %CALLNAME:TARGET%の精力-5
		;PRINTFORML %CALLNAME:MASTER%の手淫経験＋30
		BASE:TARGET:精力 -= 5
		EXP:MASTER:手淫経験 += 30
		;EXP:MASTER:手淫経験 += 30でも平衡ぶっ壊すリスクがあれば下げても大丈夫です
	ENDIF
CASE "壺弄り"
	IF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
		PRINTFORMW 「希望你能注意一下时间和场所呐？」
		IF COND("男性")
			PRINTFORMW 在她咏唱什么东西的一瞬间，射精感涌上了你的阴茎!
			PRINTFORMW 你就像失禁了一样射精了…
			PRINTFORMW 裤子上有一片污渍在不断扩大…
		ELSE
			PRINTFORMW 在她咏唱什么东西的一瞬间。从你的腰部传来了触电般的强烈快感!
			IF TALENT:扶她
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样同时射精和高潮了！
				PRINTFORMW 裙子下面已经湿透，各种液体滴答滴答地滴在床上…
			ELSE
				PRINTFORMW 保持着跪着的姿势，你像失禁了一样一边潮吹一边高潮了！
				PRINTFORMW 裙子下面已经湿透，从小穴流出的液体滴答滴答地滴在床上…
			ENDIF
		ENDIF
		PRINTFORMW 「欲求不满现在缓解一点了吗？至少要注意时间和场合呐？」
		BASE:MASTER:精力 = 1
	;精力ガン無視でイキ地獄とかやりたいけどいろいろと問題快要醒了で怖い
	ELSEIF BASE:TARGET:精力 <= 6
		PRINTFORMW 「抱歉，我已经累了。希望今天不要玩弄%CNAME("一人称")%的身体呐」
	ELSE
		PRINTFORMW 「诶？想玩弄%CNAME("一人称")%的小穴？不是想要把那个东西放进去而只是想玩弄小穴？」
		PRINTFORMW 「虽然不知道你想做什么…」
		PRINTFORMW 「唔姆，嘛，毕竟约定好了呢，可以哟。」
		PRINTFORM %CALLNAME:PLAYER%将
		SIF EQUIP:胖次
			PRINTFORM %TEXTR("手伸入%CALLNAME:TARGET%的胖次里/%CALLNAME:TARGET%的胖次挪開")%
		PRINTFORMW 開始爱抚敏感的小穴。
		;胖次履いてる時の条件分岐はこれで動くとと信じたい。PRINTFORM君は初めて使います。想像どうりの挙動をしてると信じたい
		IF TALENT:淫乱
			PRINTFORM %CALLNAME:PLAYER%%TEXTR("使用振动棒按摩阴蒂/使用振动棒刺激G点/在小穴里不断蠕动手指/将振动棒插入小穴深处/用振动棒来回摩擦/用手指来回摩擦G点/用手指来回拨弄G点/用手指插入小穴深处")%，%CALLNAME:TARGET%感到開心，
		ELSE
			PRINTFORM %CALLNAME:PLAYER%%TEXTR("使用振动棒按摩阴蒂/使用振动棒刺激G点/在小穴里不断蠕动手指/将振动棒插入小穴深处/用振动棒来回摩擦/用手指来回摩擦G点/用手指来回拨弄G点/用手指插入小穴深处")%，%CALLNAME:TARGET%对此产生了反应，
		ENDIF
		PRINTFORMW 敏感な場所への很强刺激に%TEXTR(@"腰を浮かして/发出甜美的声音て/悶えて/股を強く閉じて/%CALLNAME:PLAYER%の手を押さえて")%いる…
		;跳蛋所持の条件分岐が書けません(血涙。もし問題あったら振動棒の部分は引っこ抜いてくださいな
		;PRINTFORMW 「ちょ、ちょっと！激しいって！もっと温柔的してよ！」
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR(@"声を我慢しながら/膝をがくがくと揺らしながら/足をぴんと延ばしながら/发出甜美的声音ながら/%CALLNAME:PLAYER%の手を強く抑え押さえて")%%TEXTR("潮/尿")%を%TEXTR("圆圈で漏らすように/胖次に带污迹的ができる程度に/激烈地")%出しながら絶頂した。
		PRINTFORMW 在肩膀上下起伏地呼吸着的同时沉浸在高潮的余韵里，液体像涓流一样从小穴内不断流出…
		PRINTFORML %CALLNAME:TARGET%の精力-5
		;PRINTFORML %CALLNAME:MASTER%の手淫経験＋30
		BASE:TARGET:精力 -= 5
		EXP:MASTER:手淫経験 += 30
		;EXP:MASTER:手淫経験 += 30でも平衡ぶっ壊すリスクがあれば下げても大丈夫です
 	ENDIF
ENDSELECT

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

;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K47_ADDSELECT
SELECTCASE SAVESTR:约会
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
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

license: unknown


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		PRINTFORMW 「有想要拜托%CNAME("一人称")%的事？如果我能做到的话倒是没関系…」
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 「%CNAME("一人称")%呐，如果没有被%CNAME("二人称")%收养的话，现在大概已经变成某个有钱人的玩具了吧。」
		PRINTFORMW 「但是，正因为有%CNAME("二人称")%在，%CNAME("一人称")%才能体验到恋爱，并且最终有了爱着的人。」
		PRINTFORMW 「谢谢，我爱你。」
	;失敗
	ELSE
		PRINTFORMW 「对不起，你是个好人」
		PRINTFORMW 「%CNAME("一人称")%虽然对被收养一事非常感谢。但是我对%CNAME("二人称")%没有爱」
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")
		PRINTFORMW 「说到底我根本没穿，所以不行」
	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！

	;断られる
	;ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 500
	;ENDIF
CASE "胖次"
	;初めて
	IF DEVENT(STR:日常イベント名) == 0
		PRINTFORMW 「不行，况且你要这种东西有什么用」
		PRINTFORMW 「…既然你想要就说明是想用在什么地方吧。你想用在什么地方说来给我听听」
		PRINTFORMW 「因为没有备用的，所以不要弄成即使洗了也不能穿的状态呐？」
		CALL DAILY_MESSAGE, "脱下胖次交了出去"
	ELSE
		PRINTFORMW 「还要给你吗？」
		PRINTFORMW 「嘛，倒是没有関系，不过这东西有这么让你迷恋吗？」
		PRINTFORMW 「明明%CNAME("一人称")%都允许%CNAME("二人称")%玩弄我的身体了」
	    CALL DAILY_MESSAGE, "脱下胖次交了出去"
	ENDIF

	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	IF CHARA_NUM("室内の邪魔者") && COND("合意：胖次交易") == 1
		PRINTFORMW 「再怎么说也不能在这里脱下来给你吧」
	ELSEIF PLACE("自室") == 1
		PRINTFORMW 「不要。」
		PRINTFORMW 「把这条胖次给你我就没有胖次能穿了哟？呐？」
	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 "便当拒否"
	PRINTFORMW 「不行」
	PRINTFORMW 「别说是便当了，我根本连饭都没做过」
CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		PRINTFORMW 「%CNAME("一人称")%虽然根本没做过料理…」
		PRINTFORMW 我可以给你做便当，但到时候可不要抱怨哦?
	ENDIF

;COND("口服避孕薬派")かどうかで初回が"口服避孕薬を飲んで欲しい"or"口服避孕薬を止めて欲しい"に分かれます
CASE "口服避孕薬"
	;角色が口服避孕薬派なら、こっちだけ書いてください
	IF COND("口服避孕薬派")
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬

		;口服避孕薬の服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		IF TALENT:Ｖ妊娠不能
			PRINTFORMW 「口服避孕药什么的，%CNAME("一人称")%可是不会怀孕的体制哦…」
			PRINTFORMW 「嘛，也行。只要你愿意承担药费的话那%CNAME("二人称")%也没什么関系。」
		ENDIF
		;口服避孕薬を服用してもらう
		;IF CFLAG:口服避孕薬
		;	IF TALENT:避妊の護符 == 0
		;		;PRINTFORMW 「%CNAME("一人称")%。護符外してもらった後に付け方も聞いたよ？護符で良くない？」
		;		;PRINTFORMW 「嘛，也行。只要你愿意承担药费的话那%CNAME("二人称")%也没什么関系。」
		;口服避孕薬の服用を止めてもらう
		;ELSE
		;
		;ENDIF
	ENDIF
;COND("口服避孕薬派")の人に口服避孕薬服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "口服避孕薬中断拒否"

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

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「这是什么？看起来像是淫纹？」
		PRINTFORMW 「是把这个贴到肚子上吗？」
		IF (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)
			PRINTFORMW 「我知道了，待会会贴上的」
		ELSE
			PRINTFORMW 「好好，贴上吧？」
			PRINTFORML 她把衣服掀起来了
		ENDIF
	ELSE

	ENDIF

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

	ELSE

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT

CASE "拜托処理性欲"

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 "魂が足りない"

CASE "想要钱"

CASE "甜言蜜语"

CASE "謎之魅力"

CASE "射精量強化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "短小"

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

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

;汎用ＯＫ
ELSE
		PRINTFORMW 「いいよ。」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「诶？买东西？」
		PRINTFORMW 「稍等，我准备一下。」
	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE
        PRINTFORMW 「%CNAME("一人称")%也要一起来吗？」
		PRINTFORMW 「唔…%CNAME("一人称")%在想这是不是一家我可以进去的店…」
	ENDIF
CASE "目送"
    IF ITEM:潤滑液 == 0 && RANDIF(1, ITEM:避孕套 == 0, ITEM:媚薬 == 0, ITEM:創口貼 == 0)
        PRINTFORMW 「一路顺风，话说润滑液已经用光了别忘了买哦？」
    ELSEIF ITEM:避孕套 == 0 && RANDIF(1, ITEM:媚薬 == 0, ITEM:創口貼 == 0)
        PRINTFORMW 「已经没有安全套了。如果哪天必须用到的时候没有就糟了，所以绝对不要忘了买哦？」
    ELSEIF ITEM:創口貼 == 0
        PRINTFORMW 「一路顺风，话说创可贴已经用光了，如果能再买些的话我会很高兴的呐」
    ELSE
	ENDIF

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
	        PRINTFORMW 「把钱给%CNAME("二人称")%，然后去买东西？」
	ELSE

	ENDIF
CASE "询问有什么想要的东西"
    PRINTFORMW 「诶？想要的东西？」
    IF ITEM:潤滑液 == 0 && RANDIF(1, ITEM:避孕套 == 0, ITEM:媚薬 == 0, ITEM:創口貼 == 0)
        PRINTFORMW 「因为已经没有润滑液了所以买些怎么样？」
		PRINTFORMW 「对于刚開始的人来说使用这个或许会比较好。」
    ELSEIF ITEM:避孕套 == 0 && RANDIF(1, ITEM:媚薬 == 0, ITEM:創口貼 == 0)
        PRINTFORMW 「安全套已经用光了。虽然对%CNAME("一人称")%来说没什么问题，但对前辈们来说这样就不行了吧。不能因为是安全日所以就找借口，一定要好好戴上安全套呐？」
    ELSEIF ITEM:創口貼 == 0
        PRINTFORMW 「创可贴已经用光了。有备无患，虽然是不会受伤的社团活动，但是多准备一些还是没有损失的」
    ELSE
        PRINTFORMW 「唔～嗯，现在没有想要的东西呐」
    ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "媚薬","飞机杯",
	CASE "潤滑液"
		   	    PRINTFORMW 「因为不是很清楚所以就适当的都买了一些回来…这样可以吗？」
	CASE "振動棒套装"
	 IF PENIS(MASTER) == 1
		IF TALENT:阴茎 == 1
			PRINTFORMW 「给，我买来了比%CNAME("二人称")%的那个稍微大一些的，没找到比这个更小的呐。」
			PRINTFORMW 「话说、虽然自己长着的比这个小了一点，但是用这种东西难道不会感到空虚吗？」
			PRINTFORMW 「嘛、%CNAME("一人称")%倒是更喜欢%CNAME("二人称")%的小一点的呐，我觉得就算更大也只会更痛苦呢。」
			SIF ABL:Ｖ拡張 > 3
				PRINTFORMW 「…虽然现在的%CNAME("一人称")%已经没问题了…最開始的时候可是吃了不少苦頭呢。」
		ELSEIF TALENT:阴茎 > 3
			PRINTFORMW 「给，我买来了稍微小一点的哟。」
			PRINTFORMW 「虽然我知道自己和普通的女孩子不太一样，不过使用这种东西难道不会感到空虚吗？」
		ELSEIF TALENT:阴茎 < 4
			PRINTFORMW 「给，我买来了比%CNAME("二人称")%的那个稍微小一点的哟。」
			PRINTFORMW 「就算更大也只会更痛苦哟？」
			SIF ABL:Ｖ拡張 > 3
				PRINTFORMW 「…虽然现在的%CNAME("一人称")%已经没问题了…最開始的时候可是吃了不少苦頭呢。」
		ENDIF
	ENDIF
	CASE "假阳具"
	 IF PENIS(MASTER) == 1
		PRINTFORMW 「反正自己也长着，我想应该不需要这种东西…」
		PRINTFORMW 「总之既然已经买来了所以就算了，部室里有很多人，被捅到屁股里我可不管哟？」
	ELSE
		PRINTFORMW 「给，我买来了哟。」
	ENDIF

	CASE "避孕套"
		PRINTFORMW 「给，我把最厚的那个买回来了」
	;えっちな商品
	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/47 リディア/EVENT_K47_SHOP.ERB