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

SELECTCASE ARGS
CASE "取引開始"
	IF COND("Ｈ最中の取引")
		;しかも挿入中！
		IF INSERT("インサート相手") == MASTER
			PRINTFORML 「こんな時に……%CNAME("一人称")%にお願いですか？」
			CALL PRINT_STR, @"「後でもいいじゃないですか……あっ_HH_　%CNAME("主人")%の意地悪」_W"
		ELSE
			PRINTFORML 「%CNAME("一人称")%にお願いがあるんですか？」
			PRINTFORML 「別の服に着替えて欲しいとか、キスして欲しいとか……」
			PRINTFORMW 「そういうお願いは取引ではなく……ちゃんと言ってくださいね」
		ENDIF
	;オトコの場合、バレンタイン戦争を見ていなくてもチョコをもらえる
	ELSEIF TEXTS("日付対応イベント") == "バレンタイン" && TALENT:恋慕 && (CEVENT("イベント：バレンタイン戦争の始まり２／マリー") || TALENT:MASTER:オトコ) && CEVENT("イベント：バレンタイン戦争の始まり３／マリー") == 0
			PRINTFORML 「あ、あのですねっ！！」
			PRINTFORML 「%CNAME("二人称")%にお渡ししたいものがあるのですが……」
			PRINTFORML %CALLNAME:TARGET%は赤面しながら後ろ手に隠していたものを%CALLNAME:MASTER%に渡してきた。
			PRINTFORMW 「バレンタインチョコレートです、一生懸命作ったので良かったら食べてくださいね」
			CALL SET_CEVENT, "イベント：バレンタイン戦争の始まり３／マリー"
	;2019/10/14　服装変更機能暫定版　同棲頻度の話ではフラグを踏みにくいので此方に移動
	ELSEIF (TALENT:恋慕 || TALENT:淫乱) && CEVENT("着せ替え：マリー") == 0
		;調教開始時にガンガン着替えているので説得力皆無のセリフ
		IF CEVENT("コスプレに興味はありますか？：マリー")
			PRINTFORML 「%CNAME("主人")%はコスプレとか……興味があると聞きました」
			PRINTFORML 「%CNAME("一人称")%はその……社会勉強と言うか、%CNAME("主人")%がどうしてもと言うなら着てあげても良いですよ」
			PRINTFORMW 「ち……違います。聖職者の%CNAME("一人称")%は純粋に興味があるだけですからね。コスプレをしてみたいわけではないですから」
		ELSE
			CALL PRINT_STRL, @"「……質問なのですが、%TEXTR("例えば着て欲しい服とか……ありませんか？/好みの服装とか、教えてもらえると嬉しいですね/好きな服装などありますか？")%」"
			PRINTFORMW 「%CNAME("二人称")%好みの服を着てみたいなんて……解っているとは思いますが、ちゃんと時と場合は考えてくださいね？」
		ENDIF
		SETCOLOR DEF_COLOR("黄色")
			PRINTFORML
			PRINTFORML - システムメッセージ -
			PRINTFORML 【取引で服装の変更が可能になりました】
		RESETCOLOR
		CALL SET_CEVENT, "着せ替え：マリー"
	;悪魔の契約者でありながら多額の寄付を収め信仰を示した　イベント自体が暫定なので事実上到達不能とする
	ELSEIF CFLAG:3302 == 1 && CEVENT("イベント：教会復興初回／マリー") == 0
		PRINTFORML 「……あのですね」
		PRINTFORML 「%CNAME("二人称")%にお願いと言うか……お金が余る事があればこれからも教会への寄付をお願いしても宜しいでしょうか」
		PRINTFORMW 「とある教会に支援したいのですが訳あって%CNAME("一人称")%が直接支援する事は出来ないのです」
		CALL SET_CEVENT, "イベント：教会復興初回／マリー"
	;＄500000の行方は……約5000万。この教会赤字スギィ！
	ELSEIF CFLAG:3302 >= 10 && CEVENT("イベント：教会復興１０回／マリー") == 0
		PRINTFORML 「%CNAME("二人称")%のおかげで教会の経営も大分良くなったみたいです」
		PRINTFORMW 「図々しいお願いなのは解っていますが……これからも良かったら助けてください」
		CALL SET_CEVENT, "イベント：教会復興１０回／マリー"
	;これはもう教会から都合のいい金蔓と思われているのでは？？？
	ELSEIF CFLAG:3302 >= 20 && CEVENT("イベント：教会復興２０回／マリー") == 0
		PRINTFORML 「%CNAME("二人称")%のおかげで教会を新しく建て直す目途がたったみたいです」
		PRINTFORMW 「負担にならない程度で良いので……これからも寄付をお願いしてもいいでしょうか」
		CALL SET_CEVENT, "イベント：教会復興２０回／マリー"
	;教会が新築されました。祝え、あなた教会の誕生である。
	ELSEIF CFLAG:3302 >= 50 && CEVENT("イベント：教会復興５０回／マリー") == 0
		;口上側からデート先・移動先の追加が出来る様になるまでフレーバーです
		PRINTFORML 「新しい教会が出来たみたいです」
		PRINTFORML 「ここまでのご協力本当にありがとうございました」
		PRINTFORMW 「良かったら今度のデートの時に教会に足を運んでみませんか？」
		CALL SET_CEVENT, "イベント：教会復興５０回／マリー"
	;ELSEIF CFLAG:3302 >= 114514 && CEVENT("イベント：真夏の夜の教会復興／マリー") == 0
	;	PRINTFORML 「%CNAME("二人称")%、幾らなんでも払いすぎぃ！！」
	;	PRINTFORMW 「†悔い改めて†」
	;	CALL SET_CEVENT, "イベント：真夏の夜の教会復興／マリー"
	ELSEIF CFLAG:3302 >= 1 && RAND:2 == 0
		PRINTFORML 「%TEXTR(@"今日も%CNAME("二人称")%に神のご加護がありますように/神は何時でも%CNAME("一人称")%達を見守っておられます")%」
		PRINTFORMW 「何か%TEXTR("悩み事でしょうか/お困りでしょうか")%？　%CNAME("一人称")%に出来る事であればお伺いしましょう」
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「さぁ、主を称えましょう。%CNAME("二人称")%もまた神の子なのですから」
		ELSEIF RAND:2 == 0
			PRINTFORMW 「悩める子羊よ、汝の悩みを聞き届けましょう」
		ELSE
			PRINTFORMW 「お悩みがあるなら聞きましょう。悪魔退治も受けつけていますよ」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	;愛が重たい！！
	IF TALENT:相思相愛
		PRINTFORML 「……ありがとうございます」
		PRINTFORML 「すべては主の御心のままに……」
		PRINTFORML 「健やかなるときも、病めるときも、喜びのときも、 悲しみのときも、富めるときも、貧しいときも」
		PRINTFORML 「%CNAME("二人称")%を愛し、これを敬い、これを慰め、これを助け、その命ある限り」
		PRINTFORMW 「真心を尽くすことを%CNAME("一人称")%は誓います……」
	;失敗
	ELSE
		CALL PRINT_STR, @"「%TEXTR("っ！？/えっ……/嘘ですね、嘘ですね、これは嘘だと思います！！")%」_W"
		CALL PRINT_STR, @"「%TEXTR("そんな甘い言葉には騙されませんから！！/そうやって騙すつもりですね？？？/騙そうと思っているのが顔に出ていますよ！！")%」_W"
	ENDIF
;パンツのお願いした時に相手がノーパンだった
CASE "ノーパン"
	IF COND("合意：パンツ取引")

	ELSE

	ENDIF
;パンツを貰う前の会話。
CASE "パンツ取引"

CASE "パンツ"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「%CNAME("一人称")%の下着が欲しいんですか……」
		PRINTFORML 「魂と下着の交換は釣り合いが取れていない気もしますけど、信頼を確かめ合う手段としては有効なのは認めます」
		PRINTFORMW 「……皆さんには内緒にしてくださいね」
	;二回目以降
	ELSE
		IF CHARA_NUM("室内の邪魔者")
			PRINTFORML 「っ……」
			PRINTFORML 「後で覚えておいてくださいね……」
			PRINTFORMW 「命令には従いますけど、恥ずかしくて死にそうなんですから」
		ELSE
			PRINTFORML 「……パンツが欲しいんですか」
			PRINTFORMW 「ちゃんとお願いしてくれたら……いいですよ」
		ENDIF
	ENDIF
	;パンツを脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"
CASE "パンツ拒否"
	IF CHARA_NUM("室内の邪魔者")
		PRINTFORML 「%CNAME("一人称")%にも立場というものがあります」
		PRINTFORMW 「聖職者としては応えられないお願いですね」
	;場所が野外などの理由で断った
	ELSE
		IF RAND:2 == 0
			PRINTFORML 「……熱でもあるのでしょうか」
			PRINTFORMW 「う～ん、熱はないみたいですね」
		ELSE
			PRINTFORMW 「変態ですね、%CNAME("二人称")%は」
		ENDIF
	ENDIF
CASE "全裸取引"
;	IF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
;		PRINTFORMW 「お願いではなく……もっと強い感じで命令%TEXTR("してくれたら……いいですよ/してください……/されたいです……")%」
;	ELSE
;		PRINTFORML 「Franchement, je ne comprends pas……」
;		PRINTFORMW 「%TEXTR(@"失礼しました。%CNAME("二人称")%には何時も驚かされますね……悪い意味で/時と場合を考えましょうね？　%CNAME("一人称")%は%CNAME("二人称")%が嫌いではないですが、何でも言う事を聞くわけではないですよ")%」
;	ENDIF
CASE "全裸"
	IF SAVESTR:現在位置 == "公園"
		;PRINTFORMW 「もうどうにでもな～れ～☆」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORML 「%TEXTR("こ、こんな場所で脱げなんて……/公園ですよ……誰か来たらどうするんですか")%」
		PRINTFORMW 「%TEXTR(@"%CNAME("主人")%に命令されたから仕方なく脱いだだけですから……%CNAME("一人称")%は恥ずかしくって死にそうです/%CNAME("主人")%の命令じゃなかったら……こんな事しませんからね……")%」
	ELSEIF TALENT:恋慕 && CHARA_NUM("室内の邪魔者") == 0
		PRINTFORMW 「お願いではなく……もっと強い感じで命令%TEXTR("してくれたら……いいですよ/してください……/されたいです……")%」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
	ELSEIF ABL:露出癖 >= 3 && CHARA_NUM("室内の邪魔者") == 0
		PRINTFORML 「%TEXTR(@"%CNAME("二人称")%がどうしても見たいって言うのなら良いですけど……/%CNAME("二人称")%のお願いなら何でも聞いてあげたいですけど……")%」
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORMW 「%TEXTR("恥ずかしいです……もう服を着てもいいですか？/こ、これでいいですか……満足してくれたなら服を着たいのですが")%」
	ELSE
		;汎用地の文
		CALL EVENT_DATUI, "裸体"
		PRINTFORML 「%TEXTR("Pervers……/ペルヴェール……/ヘンタイ……")%」
		PRINTFORMW 「%TEXTR("他の人もいるんですからね……/もう終わりにしますよ？/もう見ましたね？　見たなら服を着ますからね/今度は誰もいない時にしてくださいね")%」
	ENDIF
CASE "全裸拒否"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORML 「Franchement, je ne comprends pas……」
		PRINTFORMW 「%TEXTR(@"失礼しました。%CNAME("二人称")%には何時も驚かされますね……悪い意味で/時と場合を考えましょうね？　%CNAME("一人称")%は%CNAME("二人称")%が嫌いではないですが、何でも言う事を聞くわけではないですよ")%」
	ELSE
		IF TALENT:MASTER:オトコ
			CALL PRINT_STR, @"「%TEXTR(@"%CNAME("一人称")%も男の子の気持ちは少しぐらいは解るつもりですが……/年頃の%CNAME("二人称")%の気持ちも解らない訳ではないのですが……/水着と変わらないと言う意見は何となく解りますが……")%」_L"
		ELSE
			CALL PRINT_STR, @"「%TEXTR("同性のハダカを見たいなら更衣室にでも行けばよいのではないでしょうか……/恥ずかしがる姿を見たいのですか、ちょっと悪趣味だと思いますよ/熱は……ありませんね")%」_L"
		ENDIF
		;PRINTFORML （本音を言うなら%CNAME("一人称")%も男の子の筋肉とか見たいですから、気持ちだけは解ります。何時も薄着のリューナさんが男の子だったらと考えたらドキドキしちゃいます）
		;PRINTFORML （ですが、聖女たるものそんな本音は絶対に表に出しません。聖女ですからっ）
		CALL PRINT_STR, @"「%TEXTR(@"そう言うお願いは……その恋人に、頼むものですよ？/そうですね……%CNAME("二人称")%がいやらしい事をしないと言うなら考えてあげてもいいでしょう/%CNAME("二人称")%の視線がいやらしいのでダメです")%」_W"
	ENDIF
CASE "アフターピル取引"
	TFLAG:取引拒否 = 1
CASE "アフターピル"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕なしの時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕ありの時のみ
	ELSE
		;普通にお金を払った場合
		;口上なしでも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "アフターピル拒否"
	;これはCASE "アフターピル取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否
		PRINTFORML 「%CNAME("主人")%は%CNAME("一人称")%との%TEXTR("子供/赤ちゃん")%が欲しくないんですか！！」
		PRINTFORMW 「%CNAME("二人称")%がそんな無責任な人だとは思いませんでした……%CNAME("一人称")%との関係は遊びだったんですね」
		PRINTFORML - システムメッセージ -
		PRINTFORML %CALLNAME:TARGET%が本番行為をさせてくれなくなりました。
		CALL SET_CEVENT, "アフターピル拒否：マリー"
;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;軽く地の文が表示されます。口上ありなしどちらでも大丈夫そうです。
	;その他、あなたが薬代を払わない場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐れがある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、払わないを選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(ハート)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;払わない、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上なしでも自然な感じです
		;お金が足りなかった場合
		ELSE
			;払わないを選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同棲拒否"
	PRINTFORML 「%CNAME("一人称")%の立場上、悪魔と同棲している%CNAME("二人称")%を監視したいのは山々なのですが……」
	PRINTFORMW 「こ……心の準備が出来るまで待っていただけませんか？」
CASE "同棲希望"
	PRINTFORML 「は、はい」
	PRINTFORML 「ふつつかものですが末永く、ど、どうかよろしくお願いします」
	PRINTFORMW %CALLNAME:TARGET%は緊張の余り、直立不動の姿勢で%CALLNAME:MASTER%に答えた。
CASE "同棲頻度の相談"
	PRINTFORMW 「%CNAME("一人称")%に至らぬ点があるのなら遠慮なく言ってくださいね」
CASE "お弁当拒否"
	PRINTFORML 「メイドさんがいるでしょう。彼女に頼みなさい」
	PRINTFORMW 「それともお弁当を魂と取引したのですか。それなら話は別ですけど」
CASE "お弁当作って"
	;お弁当のお願い２回目以降
	IF COND("合意：お弁当")
		PRINTFORML 「前回はガッカリさせてしまって……%CNAME("一人称")%は反省しました」
		PRINTFORML 「少しはお弁当作りも上達したと思いますから、期待してくださいね」
	;以下は初めて作ってもらうようになったとき
	ELSE
		IF COND("同棲中")
			PRINTFORML 「自信はないのですが……頑張ってみますね」
		ELSE
			PRINTFORML 「専属メイドさんがいるのではないんですか？」
		ENDIF
	ENDIF

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

		;ピルの服用を止めてもらう
		ELSE
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		ENDIF
	;キャラがピル派でないなら、こっちだけ書いてください
	ELSE
		;ピルを服用してもらう
		IF CFLAG:ピル
			;初回
			;IF DEVENT(ARGS) == 0
				;ツェツィ師匠のミニコラム
				;「避妊の護符を持っているだけ、貼っているだけで絶対に妊娠しない。その作用と効能は随分とオカルトな話になるね」
				;「だが、魔術的に作り出された子宮内避妊具という意味合いであれば不確かな部分も明らかになるのではないかな？」
				;「その場合、処女の子宮内に避妊具をどの様にして入れたのか。その疑問は残るがね」
				;「もっとも悪魔の手に掛かれば淫紋の様な現代科学では解明の出来ない文字通りの魔法の領域に属するモノも作り出せる。あながち避妊の護符の効果も本物かもしれないね」
				;ちなみに死に分岐だ
				IF TALENT:避妊の護符
					PRINTFORML 「法皇庁の悪魔祓いは避妊の護符で対策していますから、ピルを飲まなくても大丈夫なんですよ」
					PRINTFORMW 「それでも心配だと言うならＯＫですが」
				ELSE
					IF TALENT:恋慕
						PRINTFORML 「%TEXTR(@"%CNAME("主人")%との子供なら何人でも産みたいと思ってますけど……/大家族になるのもそれはそれで楽しいと思うんですが……")%」
						PRINTFORMW 「……%TEXTR(@"%CNAME("主人")%が望まないのであれば仕方ありませんね/必要なら避妊の護符を手配するのでそっちの方がいいのではないでしょうか？")%」
					ELSE
						;避妊の護符解除が恋慕を条件とするので本来なら死に分岐
						PRINTFORML 「避妊の護符を外しておいて、ピルを飲んで欲しいというのは……」
						PRINTFORMW 「人としてどうかと思うのですが、%CNAME("一人称")%も妊娠は困るので飲みますね」
					ENDIF
				ENDIF
			;ELSE
			;	PRINTFORMW
			;ENDIF
		;ピルの服用を止めてもらう
		ELSE
			PRINTFORMW 「ピルを飲まなくていいのですね？
		ENDIF
	ENDIF
;COND("ピル派")の人にピル服用を止めてもらうお願いをしたけど聞き入れてもらえなかった場合
CASE "ピル中断拒否"

;COND("ピル嫌い")の人にピル服用のお願いをしたけど聞き入れてもらえなかった場合
CASE "ピル服用拒否"

;恋慕のみ　避妊の護符を外す
CASE "避妊解除可"
	PRINTFORML 「%CNAME("主人")%の赤ちゃんを授かる為なら、喜んで避妊の護符を外させていただきます」
	PRINTFORMW 「二人の子供が欲しいなんて嬉しいです……学校を卒業したら%CNAME("一人称")%と一緒になってくれますよね」
CASE "避妊解除拒否"
	PRINTFORML 「避妊の護符を外すのは生涯を共にする伴侶と子供を作りたいと言う意味です」
	PRINTFORMW 「その意味を良く考えてくださいね？」
	IF PENIS(MASTER) == 0
		PRINTFORML 「それから……これは本当は内緒にしておきたい話なのですが」
		PRINTFORML 「貴方の身体にも関係がある話なので伝えておきますね」
		PRINTFORML 「リザレクションによる魂の再生。この力は魂を消費する事で肉体の損傷も修復出来ます」
		PRINTFORML 「処女喪失を事故・怪我による肉体の喪失と自分が強く願っていれば、神の奇跡で魂の力により処女が再生する事も充分ありえます」
		PRINTFORMW 「何よりも女の子ですし、最初は好きな人とするのが一番ですけど……もしもの時にはそう言ったトラブルが起こるのは知っておいてくださいね」
	ENDIF
CASE "淫紋拒否"

;"淫紋シール直前"or"淫紋シール"の片方を書けば十分だと思います
CASE "淫紋シール直前"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF

CASE "淫紋シール"
	;初回
	IF DEVENT(ARGS) == 0

	ELSE

	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2
		IF TALENT:恋慕
			PRINTFORML 「%CNAME("一人称")%が%CNAME("主人")%のモノであると言う烙印を刻みたいのですね」
			PRINTFORMW 「個人的には必要ないと思いますが、%CNAME("主人")%が望まれるのならば応えるまでです」
		ELSE
			PRINTFORML 「……これはある種の悪魔の烙印なのではないでしょうか」
			PRINTFORML 「いえ、望まれる以上は命令には従います……これも神の与えた試練なのでしょう」
			PRINTFORMW 「どんな苦難も悲嘆も乗り越えられない試練はありませんから」
		ENDIF
	CASE 3
		IF TALENT:恋慕
			PRINTFORMW 「この身に刻む罪の数は後幾つ増えていくのでしょうか」
		ELSE
			PRINTFORML 「未だ神の試練は終わらず……ですね」
			PRINTFORMW 「受け入れましょう。この身に%CNAME("二人称")%の与える罪を」
		ENDIF
	CASE 4

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

	CASE 3

	CASE 4

	ENDSELECT
CASE "性処理を頼む"
	PRINTFORML 「な、なな、何を言ってるんですか」
	PRINTFORML 「えっ……そうなんですね。%CNAME("一人称")%じゃないとダメなんですね」
	PRINTFORML 「うーん、そこまで頼まれると……断れませんね。わかり…ましたよ……」
	PRINTFORMW 「みんなには内緒にしてくれるって約束してくださいね」
CASE "性処理の一時中断"
	PRINTFORML 「%TEXTR("やめても良いんですか？/するのを…やめてもいいんですね？")%」
	CALL PRINT_STR, @"「%TEXTR(@"したくなったら、ちゃんと言ってくださいね？/また、困った事があれば言ってくださいね/%CNAME("一人称")%はまたしたいなんて思ってませんからね！")%」_W"
CASE "性処理拒否"
	PRINTFORML 「すいません。何を言ってるのか良くわからないのですが」
	PRINTFORMW 「そんなにもお説教して欲しいのですか？」
;悪魔、淫魔、妖狐専用
CASE "尻尾を見せて"

CASE "尻尾を見せて拒否"

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORML 「無理をしてはいけませんよ」
	PRINTFORMW 「魂の傷は癒えると言っても無限ではありませんから」
CASE "力持ち"
	PRINTFORML 「やっとその気になってくれましたか」
	PRINTFORMW 「今日から毎日一緒にトレーニングしましょうね。大丈夫ですよ、死ぬ気でやれば死なない程度の安全な修練ですから」
CASE "お金が欲しい"
	IF RAND:2 == 0
		PRINTFORML 「ありがとうございます。法皇庁の方から御代を支払わせていただきますね」
		PRINTFORMW 「現金で良ければ今すぐお支払いしますけど……」
	ELSE
		PRINTFORML 「最近は何でもハイテクで困りますよね。電子マネー決済？と言うのが出来るそうなんですけど」
		PRINTFORMW 「%CNAME("一人称")%には難しいので現金払いでも宜しいでしょうか？」
	ENDIF
CASE "魂の寄付"
	IF RAND:2 == 0
		PRINTFORML 「主のご加護があらん事を……」
		PRINTFORMW 「少しづつ善行を重ねていきましょうね」
	ELSE
		PRINTFORML 「%CNAME("二人称")%の贖罪は必ず認められるでしょう」
		PRINTFORMW 「善き行いは必ずや報われますからね」
	ENDIF
	;魂を寄付する毎に善行Ｐが溜まっていく
	CFLAG:3351 += 1
CASE "避妊解除可"
	IF TALENT:相思相愛
		CALL PRINT_STR, @"「末永く愛してくださいね_HH_」_L"
		PRINTFORMW 「これからも宜しくお願いします、%CNAME("主人")%」
	ELSE
		PRINTFORML 「%CNAME("二人称")%の子供を授かるなら、それはきっと主の思し召しでしょう」
		CALL PRINT_STR, @"「これからたっぷり……してくださいね_HH_」_W"
	ENDIF
CASE "避妊解除拒否"
	PRINTFORML 「%CNAME("一人称")%と%CNAME("二人称")%が愛し合う仲になったら考えてみますね」
	PRINTFORMW 「それまでは我慢してくださいますよね？」

;髪を弄るのは、長さがセミロング以上の人のみ。未設定だとセミロング扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝いさんを指名したい場合にはその人をASSIにして下さい
CASE "髪を弄る"
	IF TALENT:恋慕
		IF RAND:3 == 0
			PRINTFORMW 「髪型を変えて欲しいんですか。良いですけど%CNAME("二人称")%の好みはどの様な感じでしょうか？」
		ELSEIF RAND:2 == 0
			CALL PRINT_STR, @"「%CNAME("二人称")%が望まれるのなら……どんな髪型にしたいんですか_HH_」_W"
		ELSE
			CALL PRINT_STR, @"「髪型を変えて見たいのですか。%CNAME("二人称")%の頼みなら良いですよ_HH_」_W"
		ENDIF
	ELSE
		PRINTFORMW 「%TEXTR(@"%CNAME("一人称")%の髪型を変えたいのですか……まあ良いですけど/髪型を弄って欲しいのですか。どの様な髪型にしたいのですか？")%」
	ENDIF

CASE "髪型変更の感想"
	PRINTFORML
	;どの髪型になったかで分岐可能
	SELECTCASE CONDS("髪型の種類")
	;そのキャラの普段の髪型(伸びっぱなしやボサボサにはできないので、キャラ次第ではこの分岐には来ません)
	CASE CONDS("普段の髪型")
		PRINTFORMW 「%TEXTR("やっぱり普段の髪型が落ち着きますね/他の髪型もいいですけど、普段の髪型が一番落ち着きます")%
	CASE "ぱっつん"
		PRINTFORMW 「%TEXTR(@"理知的な感じに見えますね。%CNAME("二人称")%は頭の良い子が好きなのですか？/この髪型だとちょっぴり賢そうに見えませんか？")%」
	CASE "ストレート"
		PRINTFORMW 「%TEXTR("髪を整えてもらうとちょっぴり頭が軽くなった気がしますね。ありがとうございます/髪の毛がスッキリすると背筋もピンと伸びる気がしませんか？")%」
	CASE "ウェーブ"
		PRINTFORMW 「%TEXTR("似合っているでしょうか？　普段しない髪型なのでちょっぴり不安です/どうでしょうか……似合っていると良いのですが")%」
	CASE "ツインテール"
		;アドバイザーを伴っている場合＆助手も同じ髪型をしている
		IF FIND_COND("現在存在", "助手") && CONDS("髪型の種類", ASSI) == "ツインテール"
			IF RAND:2 == 0
				PRINTFORMW 「%CNAME("助手")%とお揃いですね。%CNAME("二人称")%はこう言うちょっと幼い感じの方が好みなのでしょうか？」
			ELSE
				PRINTFORMW 「ＴＶで見たアイドルグループみたいですね。ちょっと%CNAME("助手")%と二人で歌ってみましょうか♪」
			ENDIF
		ELSE
			IF COND("夏")
				PRINTFORMW 「%TEXTR("この髪型はちょっと子供っぽいですけど……夏は楽なんですよ/日本の夏は暑いので縛るとちょっぴり涼しいですね")%」
			ELSE
				PRINTFORMW 「%TEXTR(@"ちょっと子供っぽい感じがしますけど……似合ってますか？/この髪型にすると子供の頃を思い出しますね。もちろん、%CNAME("一人称")%は大人しい良い子でしたよ")%」
			ENDIF
		ENDIF
	CASE "ポニーテール"
		IF COND("夏")
			PRINTFORMW 「%TEXTR(@"暑いので助かります。夏は髪が長いと大変なんですよ/運動の時なんかは簡単に縛ったりしてるんですけどね。普段からこの髪型にしてる方が%CNAME("二人称")%は好きですか？")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"運動の時は良く縛ってますけど普段から縛っていた方が%CNAME("二人称")%の好みでしょうか？/楽な髪型ですけどシスターっぽくないのであまり普段はしないのです")%」
		ENDIF
	CASE "三つ編み"
		PRINTFORMW 「%TEXTR(@"お疲れ様です。%CNAME("一人称")%の髪はちょっと長いので三つ編みにするの大変だったでしょう/お疲れ様です。三つ編みは好きなのですが長いから大変なんです")%」
	CASE "編み上げ"
		PRINTFORMW 「%TEXTR("こうやって髪の毛をくるくるしてもらうとちょっと大人びた感じがしますね。自分でも試したのですが……ちょっぴり難しいみたいで/上手にアレンジしてくださってありがとうございます。自分でするより何倍も素敵です♪")%」
	CASE "お団子"
		PRINTFORMW 「%TEXTR("そうやってお団子を作るんですね。なるほど……器用に出来るものなのですね/凄いですね。綺麗にお団子になりました。どうでしょうか、似合ってますか？")%」
	;その他
	CASEELSE
		PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%はこう言う髪型が好きなのですね。なるほど/どうでしょうか？　似合っていると嬉しいのですが……")%」
	ENDSELECT
CASE "髪を弄る拒否"
	PRINTFORMW 「%TEXTR("髪を弄りたいのですか？　それはちょっと……/髪を弄りたいのですか。もっと仲良くなってからでしたら良いですよ")%」

;これは普段からパンストを履く人じゃないとあんまり見る機会ないと思う
;CALL PRINT_STRW, "イエロー_(※パンストを履き替えてもらうには、[信頼LV3]に加えて[露出癖LV3]or[奉仕精神LV5]が必要です)"
CASE "パンスト着替え"
	;台詞を書いたら下のRETURN 1を消してください
	;RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("オープンパンスト")
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%のお願いならしょうがないですね。その代わり……%CNAME("一人称")%のお願いも聞いて貰いますからね？/こう言うのが%CNAME("二人称")%の趣味なのですか……ちょっぴり恥ずかしいですね")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"はぁ……どうしてこんなパンストを持っているのですか、%CNAME("二人称")%は/このパンストを履いて欲しいんですか？　%CNAME("二人称")%はその情熱をもっと別の事に向けるべきだと思うのですが……")%」
		ENDIF
	ELSEIF CHECK_OUTER("網パンスト")
		IF TALENT:恋慕
			PRINTFORMW 「%TEXTR(@"感想ですか？　そうですね……ちょっぴり恥ずかしいです/服装次第ではそんなにオカシイ恰好ではないと思いますけど。%CNAME("一人称")%は聖職者なのを忘れておられませんか？")%」
		ELSE
			PRINTFORMW 「%TEXTR(@"これを履くのですか！？　%CNAME("二人称")%は%CNAME("一人称")%が聖職者である事をお忘れなのでは……/あの……%CNAME("一人称")%は聖職者ですのでこの様な恰好は本当は許されないのですからね。これはあくまで命令されたから致し方なく履くだけですから")%」
		ENDIF
	ELSEIF CHECK_OUTER("パンスト")
		IF COND("春")
			PRINTFORMW 「%TEXTR("少し暖かいので微妙ですが、どうしてもと言うなら良いですよ/寒い日もあるので気遣いは嬉しいのですが……今日はどうでしょうか？")%」
		ELSEIF (COND("秋") || COND("冬"))
			PRINTFORMW 「%TEXTR(@"%CNAME("二人称")%は気が利きますね。涼しい季節にパンストがあると少し温かくなって動きやすくなります。動きすぎるとすぐ電線するのが欠点ですけどね……/少し肌寒くなってきていたので助かります。%CNAME("一人称")%の場合はすぐにダメにしちゃうので着替え用のパンストを用意してるんですけどね")%」
		ELSE
			PRINTFORMW 「%TEXTR("すぐに汗だくになっちゃいますよ？　え……それが良いんですか/ええと……夏なのにパンストを履いて欲しいんですか。すぐに蒸れてしまうと思うのですが/汗臭くなっちゃいそうですけど……それでも履いて欲しいのですか？")%」
		ENDIF
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "パンスト着替え拒否"
	PRINTFORMW 「%TEXTR(@"ちょっぴり恥ずかしいですし……そう言うのは恋人にお願いしてくださいね/%CNAME("一人称")%は%CNAME("二人称")%の彼女ではないですから遠慮させていただきますね/%CNAME("一人称")%は何でも言う事を聞くわけではありませんからね。もっと%CNAME("二人称")%が信頼出来る人だと思えるようになったら良いですよ")%」

CASE "パンスト着替え拒否"

CASE "巨根化して"
	;これは"大きくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含むペニスサイズ")
	CASE "短小"

	CASE "普通"
		PRINTFORMW 「大きくするんですか？」
	CASE "巨根"

	CASE "馬並み"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

CASE "短小化して"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含むペニスサイズ")
	CASE "普通"

	CASE "巨根"

	CASE "馬並み"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

CASE "甘い言葉"

CASE "謎の魅力"

CASE "錬金術"

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

	CASE "普通"

	CASE "巨根"

	CASE "馬並み"

	;腕並以上
	CASEELSE

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

	CASE "巨根"

	CASE "馬並み"

	;腕並、規格外
	CASEELSE

	ENDSELECT

;その他汎用
CASEELSE
	;汎用拒否
	IF STRCOUNT(ARGS, "拒否")
		PRINTFORMW
	;汎用取引（特に記述することがないならスキップ）
	ELSEIF STRCOUNT(ARGS, "取引")

	ELSE
		PRINTFORMW
	ENDIF
ENDSELECT

;-------------------------------------------------
;お買い物での台詞
;-------------------------------------------------
@KOJO_SHOP_K23, ARGS

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORMW 「お買い物ですか？　そうですね、%CNAME("一人称")%も買いたいものがあったので良いですよ」
	;着替えてもらう
	ELSEIF CHECK_CLO("ハダカ") || CHECK_CLO("水着姿") || CHECK_CLO("体操服姿") || CHECK_CLO("下着姿")
		PRINTFORMW 「ちょっと待っていてくださいね。着替えちゃうので……」
	ELSE
		PRINTFORML 「これもデート……と言うのでしょうか」
		IF TALENT:恋慕
			PRINTFORMW 「て…手を繋いでもいいですか……」
		ENDIF
	ENDIF
CASE "お見送り"
	PRINTFORMW 「%TEXTR("行ってらっしゃい。何かあったらすぐに連絡してくださいね/気をつけて行ってらっしゃい。困った事があれば連絡してくださいね")%」
CASE "パンツ没収して出発"
	;初回
	IF SEVENT(ARGS) == 0
		PRINTFORML 「……は、恥ずかしいです」
		PRINTFORMW 「あの……本当に大丈夫でしょうか」
	;既にノーパン
	ELSEIF EQUIP:パンツ == 0
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「……今日は履いてないんですからね？」
			PRINTFORMW （ノーパンなのがバレちゃうかもって思うと変な気分になってきちゃいます……）
		ELSE
			PRINTFORMW 「準備万端です。と言うか……この為にパンツを没収したんですか？」
		ENDIF
	ELSE
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「%TEXTR("後で返してくださいね/命令ですから、仕方なくですよ")%……」
			PRINTFORMW （%TEXTR("ノーパンなのがバレたら……想像するだけで濡れてきちゃいます……/意地悪されて……濡れてきちゃうなんて……バレない様にしなくちゃ……/ダメっ……パンツを脱いだだけで溢れてきちゃう……")%）
		ELSE
			PRINTFORMW 「%TEXTR("またですか/本当はダメなんですからね/後でお説教しますからね……もう")%……」
		ENDIF
	ENDIF
CASE "今の格好のまま出発"
	IF CHECK_CLO("水着姿")
		PRINTFORMW 「そんなに急ぎのご用事なのでしょうか。ええまあ、行きますけど……」
	ELSEIF CHECK_CLO("体操服姿")
		PRINTFORMW 「授業を抜け出して、こんな不良みたいな事をしちゃうなんて……本当はダメですからね？」
	ELSEIF CHECK_CLO("下着姿") || CHECK_CLO("ハダカ")
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			CALL PRINT_STRL, @"「……%TEXTR("んっ/ふぅ")%_HH_」"
			PRINTFORML 「%TEXTR("こんな恥ずかしい恰好をさせるなんて……もう意地悪なんだから/誰かに見られたらどうするんですか……こんなはしたない恰好をさせるなんて")%」
			PRINTFORMW （%TEXTR(@"嫌なのに……身体が火照って……%CNAME("主人")%にバレない様にしないと……/恥ずかしいだけのはずなのに……見られちゃうと思うとダメ……濡れてきちゃいます……")%）
		ELSE
			PRINTFORML 「%TEXTR("あの……/えっと……")%」
			PRINTFORMW 「%TEXTR("これは認識阻害で外からは普通に見えている……んですよね？/ちゃんと外からは普通に見えているのでしょうか。そう言う悪魔の魔法もあるとは聞いていますけど")%」
		ENDIF
	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0
		PRINTFORMW 「必要なら代わりに代金を払ってもいいのですが、そう言う事ではないのですね？」
	ELSE
		PRINTFORML 「%TEXTR("お会計してきますね/これを買ってくればいいのですね")%」
		IF CHECK_CLO("下着姿") || CHECK_CLO("ハダカ")
			IF TALENT:淫乱 && ABL:露出癖 >= 3
				CALL PRINT_STRW, @"「%TEXTR("はぁ/ふぅ")%_HH_……」"
				PRINTFORMW （%TEXTR("こんな格好でレジに行くなんてちょっぴり緊張しますけど……何だかドキドキしてしまいます/恥ずかしいはずなのに……ドキドキするなんてこんな事本当はイケないのに……")%」
			ELSE
				PRINTFORMW （%TEXTR(@"視線が痛い様な……/何故か、妙に視線を感じちゃうのですが……/店員さんが商品じゃなくて、%CNAME("一人称")%を見ている様に思うんですけど……きっと気のせいですよね")%）
			ENDIF
		ELSE
			PRINTFORMW （%TEXTR("堂々としていればきっと平気です……/もう……後でお説教です/平常心……平常心……これはただのお買い物。何の問題もありません")%）
		ENDIF
	ENDIF
CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入アイテム
	;ギリギリ通常商品の範疇orあなた用
	CASE "撮影機材", "ローション", "媚薬", "オナホ"
		PRINTFORMW （%TEXTR("ふぅ……少しドキドキしましたけどこの位は高校生でも普通の買い物ですよね/ちゃんと買い物出来ました……変な風には思われていないようですね")%）
	CASE "コンドーム"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入アイテム) == 0
			PRINTFORMW 「こほん……避妊の意識が高いのは良い事ですが、本当は女の子にこう言う買い物をさせるのはダメですからね」
		ELSE
			PRINTFORMW 「%TEXTR(@"避妊の為に必要と言うのは解ります……ですが、%CNAME("一人称")%も女の子ですので恥ずかしいんですよ……/避妊は大切です。でも、%CNAME("一人称")%は%CNAME("二人称")%のお母様ではないんです。買い物を頼む内容は考えてくださいね")%」
		ENDIF
	;えっちな商品
	CASEELSE
		PRINTFORML 「%TEXTR("もう……/本当に……/……帰ったらお説教ですからね")%」
		PRINTFORMW %CALLNAME:TARGET%は%TEXTR("少し怒った様子で商品を手渡してきた/羞恥に頬を染めながら、眉根を寄せて小言を口にした")%
	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;パンツ没収中
	IF COND("買い物パンツ没収中")
		PRINTFORMW （%TEXTR("早く……帰りたいんですけど……/少し……落ち着かないですね……")%）
	ELSE
		PRINTFORMW 「%TEXTR(@"欲しいものは見つかりましたか？/%CNAME("一人称")%は別に……き、興味なんてありませんからね")%
	ENDIF
;2020/1/31　新規追加分岐対応サンプル
CASE "欲しい物を聞く"
	PRINTFORML 「欲しい物ですか？」
	PRINTFORM 「%TEXTR("折角なので……/そうですね、")%
	IF COND("身嗜み：Ｖ拡張") && COND("身嗜み：Ａ拡張")
		PRINTFORML %TEXTR("拡張/両穴")%用の新しいバイブとか……」
	ELSEIF COND("身嗜み：Ｖ拡張")
		PRINTFORML %TEXTR("アソコ/膣/おま〇こ/ヴァギナ")%用の新しいバイブとか……」
	ELSEIF COND("身嗜み：Ａ拡張")
		PRINTFORML %TEXTR("アナル/お尻/不浄の穴")%に入れる……アナル%TEXTR("パール/ビーズ/バイブ")%でしょうか……」
	ELSEIF COND("身嗜み：尿道拡張")
		PRINTFORML 尿道に入れる用の新しいカテーテルなど……如何でしょう」
	ELSE
		PRINTFORML 新しい%TEXTR("衣装/下着")%なんか……欲しいかもしれません」
	ENDIF
CASE "お買い物終了"
	;パンツ没収中
	IF COND("買い物パンツ没収中")
		PRINTFORMW 「%TEXTR(@"……%CNAME("二人称")%に言いたい事は沢山ありますが。もしもバレたらどうするつもりだったんですか？/ドキドキして%CNAME("一人称")%は死んじゃいそうでしたからね。次はこういう悪戯をするのは控えてくださいね？")%」
	;なにも買わなかった
	ELSEIF COND("買上品数") == 0
		PRINTFORMW 「%TEXTR("そうですね。お店で買わなくても今はネット通販がありますし/本当に買わなくても平気ですか？　後でフェリシエルさんに買いに行ってもらうのは悪いですよ")%」
	ELSEIF CHECK_CLO("水着姿") || CHECK_CLO("体操服姿")
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「ちょっぴりスリリングでしたね。恥ずかしかったですけど……その……」
			PRINTFORMW 「嫌ではないですから……また命令してくれるなら付き合ってあげても良いですからね？」
		ELSE
			PRINTFORMW 「ふぅ……」
		ENDIF
	ELSEIF CHECK_CLO("下着姿") || CHECK_CLO("ハダカ")
		IF TALENT:淫乱 && ABL:露出癖 >= 3
			PRINTFORML 「%TEXTR(@"こんな恥ずかしい事をしてしまうなんて……聖職者失格ですね。あとで%CNAME("一人称")%の懺悔を聞いてくださいね/恥ずかしいのに……ドキドキしてしまうなんて。こんな事では神様に怒られてしまいますね")%」
			PRINTFORMW 「……%TEXTR(@"違います。%CNAME("一人称")%は命令されて仕方なく……けっして変態ではないんですからね/露出して興奮しているなんて……違いますから、こ、これは……恥ずかしくって濡れちゃっただけです")%」
		ELSE
			PRINTFORM 「もうっ、楽しかったのは%CNAME("二人称")%だけですからね
			IF TALENT:恋慕
				PRINTFORM 。%TEXTR("二人っきりの場所なら良いですけど、お店は他の人の迷惑になりますからダメですよ？/そう言う事がしたいなら……他の人がいない夜の公園とかにしましょうね")%
			ENDIF
			PRINTFORMW 」
		ENDIF
	ELSE
		PRINTFORMW 「良かったら、荷物持ちましょうか？」
	ENDIF
ENDSELECT

path: 加笔/玛丽加笔版 树子版/23 マリー/EVENT_K23_SHOP.ERB


path: 加笔/玛丽加笔版 树子版/23 マリー/EVENT_K23_マリー.ERB

license: unknown


code:
;-------------------------------------------------
;口上随机生成関数
;ARGSは種別
;式中関数として呼び出すのはひとまず保留
;
;@KOJO_RAND_K5をベースに使用して良いと元の作者桑から許可を得ています
;使いたい人は自分の角色の口調に合わせてどうぞ
;
;改変：表示されるセリフを二行に修正
;
;2020/08/01　一度整理してLOCAL変数への代入ではなく実数による分岐を取る形に整理しなおした
;
;@HANYOUHEARTMARK
;SETCOLOR DEF_COLOR("爱心粉紅")
;CALL HEARTMARK
;RESETCOLOR

;-------------------------------------------------
@KOJO_RAND_K23(ARGS)
SELECTCASE ARGS
CASE "接吻"
	;情緒による口上変化度合いを決定
	;情緒30につき爱心一個分に相当する
	;情緒が150以上

	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)
		CALL PRINT_STR, @"「%TEXTR("啾~/嗯啾~/嗯~/嗯嗯~")%_HH_"
		IF FLAG:情緒 >= 150 && TALENT:恋慕
			CALL PRINT_STR, @"　%TEXTR(@"%CNAME("主人", "甘え")%…/%CNAME("主人")%、")%%TEXTR("好喜欢/最喜欢了/喜欢……")%%TEXTR(@"请和%CNAME("一人称")%接吻……/请多爱%CALLNAME:TARGET%一些……/请永远在我身边……")%"
		ENDIF
		PRINTFORMW 」
	ENDIF
	;本文開始
	;ちゅっちゅ系
	IF RAND:2 == 0
		PRINTFORM 「%TEXTR("ちゅっ、/ちゅ…/ちゅっ…/ちゅぅ……/んちゅっ、")%%TEXTR("ちゅっ/ちゅっ…チュッ/ちゅ…チュウッ/ちゅ…ちゅう/ちゅっ…ちゅっ")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
			ELSE
				CALL PRINT_STR, @"_HH_"
			ENDIF
		ENDIF
		PRINTFORMW 」
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("＿/ん、/んっ、/ん……")%%TEXTR("んっ…/ちゅ、んん…/んん……/んん…っ、ん…/んんっ、ん…/ぁふっ、ん…/んっ、ちゅ…")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("…ん/…んぅ/…んんっ/っ/…んっ")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
				CALL PRINT_STR, @"_HH_"
			ELSE
				CALL PRINT_STR, @"_HH_"
			ENDIF
		ENDIF
		PRINTFORMW 」
	ENDIF

CASE "口交"
	;情緒による口上変化度合いを決定
	;情緒が高いほど深く咥えこんでいることを意識
	;情緒が150以上

	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)
		PRINTFORM 「%TEXTR("嗯咕~/嗯姆~/嗯~/嗯嗯~")%
		IF FLAG:情緒 >= 150 && TALENT:恋慕
			CALL PRINT_STR, @"_HH_　%TEXTR(@"%CNAME("主人", "甘え")%…/%CNAME("主人")%、")%%TEXTR(@"気持ちいいんですね/びくびくして可愛い/こんなに脈打って/こんなに熱くなって/%CNAME("一人称")%のご奉仕はどうでしょうか/好きです/大好きです")%"
		ENDIF
		CALL PRINT_STRW, @"_HH_」"
	ENDIF
	;レロレロレロレロ　「やはりeraか……いつ出発する？我も同行する」「你院」
	IF RAND:3 == 0
		PRINTFORM 「%TEXTR("んっ、/んっ…、/んぅ、/んぅ…/ちゅっ、/んんっ……/れろ、/れろっ、/れろ…/れろ…/れろ…")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("れろ…/れろ……/ぁむ…/れろっ…/はむ……")%%TEXTR("＿/んっ/んぅっ/ちゅっ/ちゅぷっ")%
	;んぐっ系
	ELSEIF RAND:2 == 0
		PRINTFORM 「%TEXTR("んっ、/んっ…、/んん…/ん…ぐっ……/んぐっ、/んむっ、")%%TEXTR("んぐっ…/んぅ……/んん……/んっ…/んむっ……/んん…")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("＿/っ/んっ")%
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("ん、/んっ、/んん…っ、/んんっ、")%%TEXTR("んっ/んっ…っ/んん……っ/ん…っ/ぷはっ、ん…っ")%
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)) && RAND:3 == 0
			CALL PRINT_STR, @"_HH_　"
		ENDIF
		PRINTFORM %TEXTR("＿/、ちゅ、んん…っ/、ちゅ…っ")%
	ENDIF
	IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
		IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ELSE
			CALL PRINT_STR, @"_HH_"
		ENDIF
	ENDIF
	PRINTFORMW 」
	;……巻髪は作業量が増えた事に悲しんだ
	IF COND("開口口枷")
		PRINTFORML
		IF ABL:受虐属性 >= 3
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%很乐意的同时、从嵌套的环形口枷中伸出舌頭来竭力地侍奉着
			ELSEIF RAND:2 == 0
				PRINTFORMW 被強制開口的%CALLNAME:TARGET%脸颊泛红、前后摆动脑袋为%CALLNAME:PLAYER%侍奉着
			ELSE
				PRINTFORMW %CALLNAME:TARGET%为被戴上了强制開口枷而感到兴奋的同时、收拢舌頭在口内缠绕舔抵那样的奋不顾身地侍奉着
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%从嵌套的环形口枷中伸出舌頭来做着侍奉
			ELSEIF RAND:2 == 0
				PRINTFORMW 被强制開口的%CALLNAME:TARGET%前后摆动脑袋地侍奉着
			ELSE
				PRINTFORMW 尽管%CALLNAME:TARGET%感到不自由、但依然收拢舌頭在口内缠绕舔抵那样的侍奉着
			ENDIF
		ENDIF
	ENDIF

;強制口交状態を想定
CASE "強制口交"
	;情緒による口上変化度合いを決定
	;情緒が高いほど深く咥えこんでいることを意識

	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)
		PRINTFORM 「%TEXTR("姆咕/姆咕~~/蒽蒽/嗯噗~~")%
		;情緒がさらに高いと追加口上
		IF FLAG:情緒 >= 150 && (TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)))
			CALL PRINT_STR, @"_HH_　%TEXTR("嗯嗯/嗯牟/嗯咕~~/咕噗~~")%"
		ENDIF
		CALL PRINT_STRW, @"_HH_」"
	ENDIF
	;んぐっ系
	IF RAND:2 == 0
		PRINTFORM 「%TEXTR("んぐっ、/んぐ、んっ…/ん゛んっ、/んむぅっ、")%%TEXTR("むぐぅっ…/んむぅ…っ/んん゛っ…、ぶぐ、ぅ…/っ…ぐぶっ/んむ゛っ……っ/ん゛ん…っ")%
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("んっ、/んぅっ、/んん…っ、")%%TEXTR("んっ…っ/んぐ…っ/ぐむ……っ/んぐ…っ/んんぅ゛っ/んぐむ…っ/んっ、ごぇぇ…っ")%
	ENDIF
	IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
		IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && RAND:4
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ELSE
			CALL PRINT_STR, @"_HH_"
		ENDIF
	ENDIF
	PRINTFORMW 」
	;……巻髪は作業量が増えた事に二重に悲しんだ
	IF COND("開口口枷")
		IF ABL:受虐属性 >= 3
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%虽然看起来挺难受的样子、却还是含入喉咙深处、前后摆动螓首地侍奉着
			ELSEIF RAND:2 == 0
				PRINTFORMW 被强制撑開口腔的%CALLNAME:TARGET%尽管浮现出了痛苦的表情、却还是含至根部地舌頭取悦着%CALLNAME:PLAYER%
			ELSE
				PRINTFORMW %CALLNAME:TARGET%难受地皱着眉頭、眼瞳却荡漾着快感、难过的吐息从開口器中漏了出来
			ENDIF
		ELSE
			IF RAND:3 == 0
				PRINTFORMW %CALLNAME:TARGET%由于被套上了环型口枷而无法抵抗、被顶到喉咙深处为止地吞吐着
			ELSEIF RAND:2 == 0
				PRINTFORMW 被强制開口的%CALLNAME:TARGET%被吞食至根部的深喉着、脸上浮现出苦闷的表情
			ELSE
				PRINTFORMW %CALLNAME:TARGET%尽管眉頭紧皱、却做不出抵抗的被侵犯着口腔
			ENDIF
		ENDIF
	ENDIF

;打屁股　打屁股、鞭、針等の苦痛系
CASE "打屁股"
	;良い子は参考にしてはイケナイ糞分岐、出るぞ！！
	IF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && ABL:受虐属性 >= 3
		PRINTFORM %TEXTR("くっ/ぐっ/くぅっ")%
		;情緒がさらに高いと追加口上
		IF FLAG:情緒 >= 150
			CALL PRINT_STRW, @"%TEXTR("んっ…/んぅっ…/はぁ…/っ…")%%TEXTR(@"もっとお仕置きしてください/もっと叩いてください/もっと強くしてください/%CNAME("主人")%の望むままに")%_HH_」"
		ELSE
			PRINTFORML ……」
			PRINTFORMW （%TEXTR(@"お尻を叩くなんて/%CNAME("一人称")%のお尻……叩かれちゃってる/絶対に……打屁股されて、感じたりなんか")%……）
		ENDIF
	ENDIF
	;んぐっ系
	IF RAND:2 == 0
		PRINTFORM 「%TEXTR("んぐっ/くっ/くぅっ/んっ/んぅ")%
	;んっんっ系
	ELSE
		PRINTFORM 「%TEXTR("んっ/んぅっ/んんっ")%
	ENDIF
	;苦痛　痛い
	IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
		IF RAND:2 == 0
			PRINTFORMW ！！　はぁはぁ……絶対に負けません……」
		ELSE
			PRINTFORMW ！！　この程度……耐えてみせます……」
		ENDIF
	;苦痛　苦しい
	ELSEIF CUP:苦痛 >= 100 || (CUP:苦痛 >= 1000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 2000 && ABL:受虐属性 >= 5)
		IF RAND:2 == 0
			PRINTFORMW ！　こんな事をされても%CNAME("一人称")%は負けたりしませんから……」
		ELSE
			PRINTFORMW ！　疼痛には慣れていますから。こんな事で%CNAME("一人称")%は負けません……」
		ENDIF
	;情緒に依存して爱心マークである確率が上がる
	ELSEIF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && ABL:受虐属性 >= 3 && RAND:4
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ENDIF
		CALL PRINT_STR, @"_HH_　"
		IF RAND:2 == 0
			CALL PRINT_STRW, @"%CNAME("主人")%のせいですからね……%CNAME("一人称")%は……痛くされるのが好きになっちゃいました_HH_」"
		ELSE
			CALL PRINT_STRW, @"あんまり酷い事ばかりするから……%CNAME("一人称")%は痛くされると……気持ち良くなってしまう身体になっちゃいましたよ_HH_」"
		ENDIF
	ELSEIF LOCAL >= 3 && ABL:受虐属性 >= 3
		CALL PRINT_STR, @"_HH_　"
		IF RAND:2 == 0
			CALL PRINT_STRW, @"す、少しぐらいなら……叩いてくれても、耐えてみせますから。遠慮しないでくださいね_HH_」"
		ELSE
			CALL PRINT_STRW, @"違います。その……ビッ阴蒂して声が出ただけなんですからね_HH_」"
		ENDIF
	ENDIF
	;……巻髪は雪だるま式に増え続ける作業量にエルフのせんしに復讐を誓った
	IF ABL:受虐属性 >= 5
		IF RAND:3 == 0
			PRINTFORMW %CALLNAME:TARGET%尽管一副难受的样子、却还是泄出了烦恼的吐息……
		ELSEIF RAND:2 == 0
			PRINTFORMW %CALLNAME:TARGET%将疼痛作为快感承受、痛苦地喘息着……
		ELSE
			PRINTFORMW %CALLNAME:TARGET%对遭受摧残而感到快感、吐出甜美的吐息……
		ENDIF
	ENDIF

;ギャグ状態を想定
CASE "口枷"
	;実験仕様
	;快感許容値の100％以上
;	IF BASE:快感許容値女性 >= MAXBASE:快感許容値女性
;		LOCAL = 5
;	;絶頂ゲージの100％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂
;		LOCAL = 5
;	;快感許容値の75％以上
;	ELSEIF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 3 / 4
;		LOCAL = 4
;	;絶頂ゲージの75％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂 * 3 / 4
;		LOCAL = 4
;	;快感許容値の50％以上
;	ELSEIF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 2 / 4
;		LOCAL = 3
;	;絶頂ゲージの50％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂 * 2 / 4
;		LOCAL = 3
;	;快感許容値の25％以上
;	ELSEIF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 1 / 4
;		LOCAL = 3
;	;絶頂ゲージの25％以上
;	ELSEIF BASE:絶頂 >= MAXBASE:絶頂 * 1 / 4
;		LOCAL = 2
;	ELSE
;		LOCAL = 1
;	ENDIF
	;情緒が高い場合の追加口上
	;快感許容値の75％以上
	IF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 3 / 4
		PRINTFORM 「%TEXTR("んぅぅ/んぅっ/んんぅっ/ん゛ぅっ/ん゛ん゛っ/ん゛ぅーっ/ん゛ん゛ぅ/ん゛ぅっー")%
	ENDIF
	;情緒がさらに高いと追加口上
	IF BASE:快感許容値女性 >= MAXBASE:快感許容値女性 && (TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI)))
		CALL PRINT_STR, @"_HH_　%TEXTR("んぅっ/んんっ/んぅう/んうぅ/んっ/んー/んぅっ/ん゛ぅう/ん゛うぅ/ん゛ん゛ぅ/ん゛ぅっ/ん゛ん゛っ/ん゛っ/ん゛ー/ん゛ぅっ/ん゛ん゛ぅ")%_HH_"
	ENDIF
	PRINTFORMW 」
	IF RAND:2 == 0
		;苦痛　痛い
		IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
			PRINTFORML %LOCALS%%TEXTR("んぐっ、/んぐ、んっ…/ん゛んっ、/んむぅっ、/んぅっ/ん゛ぐぅ/んー/ん゛っー/んぅっ/んんっ/んぅう/んうぅ/んっ/んー/んぅっ/ん゛ぅう/ん゛うぅ/ん゛ん゛ぅ/ん゛ぅっ/ん゛ん゛っ/ん゛っ/ん゛ー/ん゛ぅっ/ん゛ん゛ぅ")%%TEXTR("むぐぅっ/んむぅ…っ/ん゛むぅ…っ/んん゛っ…、ぶぐ、ぅ/っ…ぐぶっ/んむ゛っ……っ/ん゛ん…っ")%
		ELSE
			PRINTFORML %LOCALS%%TEXTR("んぐっ/んぐ、んっ/ん゛んっ/んむぅっ/んぅっ/ん゛ぐぅ/んー/ん゛っー/んぅっ/んんっ/んぅう/んうぅ/んっ/んー/んぅっ/ん゛ぅう/ん゛うぅ/ん゛ん゛ぅ/ん゛ぅっ/ん゛ん゛っ/ん゛っ/ん゛ー/ん゛ぅっ/ん゛ん゛ぅ")%
		ENDIF
	ELSE
		;苦痛　痛い
		IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
			PRINTFORM %LOCALS%%TEXTR("嗯、/嗯、嗯、/嗯唔、/蒽唔、/嗯嗯…、/蒽蒽…、")%%TEXTR("嗯…っ/蒽…っ/嗯咕…っ/嗯咕…/蒽咕…っ/咕姆……っ/嗯嗯噁/嗯咕姆~…っ/嗯、…/蒽…っ/嗯、嗯唔~")%
		ELSE
			PRINTFORM %LOCALS%%TEXTR("嗯/嗯、嗯、/嗯唔、/蒽唔、/嗯嗯…、/蒽蒽…、")%
		ENDIF
	ENDIF
	;苦痛　痛い
	IF CUP:苦痛 >= 1000 || (CUP:苦痛 >= 3000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 6000 && ABL:受虐属性 >= 5)
		PRINTFORMW ！！」
	;苦痛　苦しい
	ELSEIF CUP:苦痛 >= 100 || (CUP:苦痛 >= 1000 && ABL:受虐属性 >= 3) || (CUP:苦痛 >= 2000 && ABL:受虐属性 >= 5)
		PRINTFORMW ！」
	;情緒に依存して爱心マークである確率が上がる
	ELSEIF (FLAG:情緒 >= 120 || (FLAG:情緒 >= 90 && FLAG:情緒 >= RAND:180)) && ABL:受虐属性 >= 3 && RAND:4
		IF TALENT:恋慕 || (ASSIPLAY && COND("相性☆", ASSI))
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
			CALL PRINT_STR, @"_HH_"
		ELSE
			CALL PRINT_STR, @"_HH_"
		ENDIF
		PRINTFORMW 」
	ENDIF
	IF RAND:3 == 0
		;口球装備中
		IF COND("口球")
			PRINTFORMW 从%CALLNAME:TARGET%被套上的口球中液体不断地溢出来后滑落而下……
		;環形口枷装備中
		ELSEIF COND("開口口枷")
			PRINTFORMW %CALLNAME:TARGET%从套着的环形口枷中伸出舌頭来、使得口水不断地流出着
		ENDIF
	ELSEIF RAND:2 == 0
		IF ABL:受虐属性 >= 3
			;口球装備中
			IF COND("口球")
				PRINTFORMW 虽然嘴巴被口球堵住了、%CALLNAME:TARGET%却露出了陶醉的表情
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%因欢喜而脸颊泛红
			ENDIF
		ELSE
			;口球装備中
			IF COND("口球")
				PRINTFORMW 嘴巴被口球塞住的%CALLNAME:TARGET%死死的瞪着%CALLNAME:MASTER%
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%厌恶得脸都扭曲了
			ENDIF
		ENDIF
	ELSE
		IF ABL:受虐属性 >= 3
			;口球装備中
			IF COND("口球")
				PRINTFORMW 嘴巴被口球塞住的%CALLNAME:TARGET%高兴似的羞红着脸、发出失声的呻吟
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%泄漏出甜美的吐息以致唾液啪嗒啪嗒地洒落着、发出失声的呻吟
			ENDIF
		ELSE
			;口球装備中
			IF COND("口球")
				PRINTFORMW 嘴巴被口球塞住的%CALLNAME:TARGET%泄漏出难受的吐息、发出失声的呻吟
			;環形口枷装備中
			ELSEIF COND("開口口枷")
				PRINTFORMW 被强迫開口的%CALLNAME:TARGET%泄出难受的吐息、漏出了失声的呻吟……
			ENDIF
		ENDIF
	ENDIF
ENDSELECT

path: 加笔/玛丽加笔版 树子版/23 マリー/汎用口上K23_K5改変 魔改造編.ERB


code:
使用方法：
1、将解压得到的 23 マリー 文件夹整个拖入 ERB/EVENT_K 中。
2、出现是否进行覆盖时选择是
注： 一旦选择覆盖将会导致无法逆转

内容说明：增加了多个长文本事件和一些事件选项
整体内容偏甜
可能会破坏原有的人物设定。

path: 加笔/玛丽加笔版 树子版/使用说明.txt


code:
繧ｿ繧､繝医Ν・哘muera
繝舌・繧ｸ繝ｧ繝ｳ・・1.824
闡嶺ｽ懆・ｼ哺inorShift, 螯奇ｼ榎ﾐｴ・・縺ｮ荳ｭ縺ｮ莠ｺ
鬆貞ｸ・・ｼ哺inorShift
騾｣邨｡蜈茨ｼ嗄inorshift@hotmail.co.jp
騾｣邨｡蜈茨ｼ喇ttps://twitter.com/MinorShift
Web繝壹・繧ｸ・喇ttp://osdn.jp/projects/emuera/
謚輔￡驫ｭ繝ｻ蟇・ｻ假ｼ喇ttps://emuera.booth.pm/items/933704
繝ｩ繧､繧ｻ繝ｳ繧ｹ・喙繝ｩ繧､繧ｻ繝ｳ繧ｹ]縺ｮ鬆・ｒ蜿ら・縲・
譖ｴ譁ｰ縺ｮ隧ｳ邏ｰ縺ｯ荳願ｨ聾eb繝壹・繧ｸ繧偵＃隕ｧ荳九＆縺・・

[Emuera縺ｫ縺､縺・※]
Emuera・医お繝溘Η繝ｼ繝ｩ・峨・eramaker縺ｮ繧ｨ繝溘Η繝ｬ繝ｼ繧ｿ・勤ｱ縺ｧ縺吶・
eramaker.exe縺ｨ蜷後§繝輔か繝ｫ繝縺ｫ縺・ｌ縺ｦ襍ｷ蜍輔☆繧九％縺ｨ縺ｧeramaker.exe縺ｮ莉｣繧上ｊ縺ｫERB繧ｹ繧ｯ繝ｪ繝励ヨ繧貞ｮ溯｡後＠縺ｾ縺吶・
繝槭え繧ｹ縺ｧ謫堺ｽ懊＠縺溘ｊ邁｡蜊倥↑繝槭け繝ｭ讖溯・繧剃ｽｿ逕ｨ縺吶ｋ縺薙→縺ｪ縺ｩ縺後〒縺阪∪縺吶・

[蜍穂ｽ懃腸蠅ゾ
.NET Framework 4.5迺ｰ蠅・′蠢・ｦ√〒縺吶・

縲後い繝励Μ繧ｱ繝ｼ繧ｷ繝ｧ繝ｳ繧呈ｭ｣縺励￥蛻晄悄蛹悶〒縺阪∪縺帙ｓ縺ｧ縺励◆縲阪→縺・≧繧ｨ繝ｩ繝ｼ縺悟・縺ｦ襍ｷ蜍輔〒縺阪↑縺・ｴ蜷医・NET Framework 4.5縺梧ｭ｣縺励￥繧､繝ｳ繧ｹ繝医・繝ｫ縺輔ｌ縺ｦ縺・∪縺帙ｓ縲・
Microsoft繝繧ｦ繝ｳ繝ｭ繝ｼ繝峨そ繝ｳ繧ｿ繝ｼ縺九ｉ.NET Framework 4.5繝ｩ繝ｳ繧ｿ繧､繝繧偵ム繧ｦ繝ｳ繝ｭ繝ｼ繝峨＠縺ｦ繧､繝ｳ繧ｹ繝医・繝ｫ縺励※縺上□縺輔＞縲・

[菴ｿ逕ｨ譁ｹ豕評
EmueraXXXX.exe繧弾ramaker.exe縺ｨ蜷後§繝輔か繝ｫ繝縺ｫ蜈･繧後※襍ｷ蜍輔＠縺ｦ縺上□縺輔＞縲・
(XXXX縺ｫ縺ｯ繝舌・繧ｸ繝ｧ繝ｳ繧定｡ｨ縺呎焚蟄励′蜈･繧翫∪縺吶ゅ∪縺溘∫腸蠅・↓繧医▲縺ｦ縺ｯ.exe縺瑚｡ｨ遉ｺ縺輔ｌ縺ｪ縺・％縺ｨ縺後≠繧翫∪縺・
襍ｷ蜍輔＠縺ｪ縺・ｴ蜷医ー蜍穂ｽ懃腸蠅ゾ縺ｮ遽繧偵♀隱ｭ縺ｿ荳九＆縺・・
襍ｷ蜍慕峩蠕後↓emuera.config縲√お繝ｩ繝ｼ邨ゆｺ・＠縺溷ｴ蜷医↓縺ｯemuera.log繧堤函謌舌＠縺ｾ縺吶・
隧ｳ邏ｰ縺ｯ
http://osdn.jp/projects/emuera/wiki/FrontPage
繧貞盾辣ｧ縺励※縺上□縺輔＞縲・

[縺昴・莉悶・鬆貞ｸ・黄]
繧ｽ繝ｼ繧ｹ繧ｳ繝ｼ繝峨ｄ諡｡蠑ｵ讖溯・縺ｮ繧ｵ繝ｳ繝励Ν縺ｪ縺ｩ繧剃ｻ･荳九・繝壹・繧ｸ縺ｧ鬆貞ｸ・＠縺ｦ縺・∪縺吶・
http://osdn.jp/projects/emuera/releases/
縺ｮ繧ｽ繝ｼ繧ｹ繧ｳ繝ｼ繝峨∪縺溘・髢｢騾｣繝輔ぃ繧､繝ｫ縺九ｉ繝繧ｦ繝ｳ繝ｭ繝ｼ繝峨＠縺ｦ縺上□縺輔＞縲・

[eramaker縺ｫ縺､縺・※]
eramaker縺ｯ繧ｵ繝ｼ繧ｯ繝ｫ迯上・菴占陸謨乗ｰ上′菴懈・縺励◆繧ｽ繝輔ヨ縺ｧ縺吶・
隧ｳ邏ｰ縺ｯ荳玖ｨ倥し繧､繝医ｒ蜿ら・縺励※縺上□縺輔＞縲・
http://www.hakagi.com
窶ｻ18豁ｳ譛ｪ貅縺ｮ譁ｹ縺ｯ髢ｲ隕ｧ繧偵＃驕諷ｮ縺上□縺輔＞縲・

[謚輔￡驫ｭ繝ｻ蟇・ｻ肋
https://emuera.booth.pm/items/933704
Emuera縺ｮ菴懆・・荳莠ｺMinorShift縺ｯ荳願ｨ倥し繧､繝医↓縺ｦ謚輔￡驫ｭ繧貞供縺｣縺ｦ縺翫ｊ縺ｾ縺吶・
縺疲髪謠ｴ鬆ゅ￠繧後・蟷ｸ縺・〒縺吶・

[騾｣邨｡蜈・
minorshift@hotmail.co.jp

窶ｻeramaker縺ｮ菴懆・ｧ倥・Emuera縺ｮ陬ｽ菴懊↓縺ｯ髢｢荳弱＠縺ｦ縺・∪縺帙ｓ縲・
Emuera縺ｸ縺ｮ闍ｦ諠・ｄ繝舌げ蝣ｱ蜻翫↑縺ｩ繧偵し繝ｼ繧ｯ繝ｫ迯上ｄ菴占陸豌丞ｮ帙※縺ｫ騾√ｉ縺ｪ縺・〒荳九＆縺・・

[繝ｩ繧､繧ｻ繝ｳ繧ｹ]・・lib/libpng繝ｩ繧､繧ｻ繝ｳ繧ｹ・・
Copyright (C) 2008- MinorShift, 螯奇ｼ榎ﾐｴ・・縺ｮ荳ｭ縺ｮ莠ｺ

譛ｬ繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢縺ｯ縲檎樟迥ｶ縺ｮ縺ｾ縺ｾ縲阪〒縲∵・遉ｺ縺ｧ縺ゅｋ縺区囓鮟吶〒縺ゅｋ縺九ｒ蝠上ｏ縺壹∽ｽ輔ｉ縺ｮ菫晁ｨｼ繧ゅ↑縺乗署萓帙＆繧後∪縺吶・譛ｬ繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢縺ｮ菴ｿ逕ｨ縺ｫ繧医▲縺ｦ逕溘§繧九＞縺九↑繧区錐螳ｳ縺ｫ縺､縺・※繧ゅ∽ｽ懆・・荳蛻・・雋ｬ莉ｻ繧定ｲ繧上↑縺・ｂ縺ｮ縺ｨ縺励∪縺吶・

莉･荳九・蛻ｶ髯舌↓蠕薙≧髯舌ｊ縲∝膚逕ｨ繧｢繝励Μ繧ｱ繝ｼ繧ｷ繝ｧ繝ｳ繧貞性繧√※縲∵悽繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢繧剃ｻｻ諢上・逶ｮ逧・↓菴ｿ逕ｨ縺励∬・逕ｱ縺ｫ謾ｹ螟峨＠縺ｦ蜀埼貞ｸ・☆繧九％縺ｨ繧偵☆縺ｹ縺ｦ縺ｮ莠ｺ縺ｫ險ｱ蜿ｯ縺励∪縺吶・

1.譛ｬ繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢縺ｮ蜃ｺ閾ｪ縺ｫ縺､縺・※陌壼⊃縺ｮ陦ｨ遉ｺ繧偵＠縺ｦ縺ｯ縺ｪ繧翫∪縺帙ｓ縲ゅ≠縺ｪ縺溘′繧ｪ繝ｪ繧ｸ繝翫Ν縺ｮ繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢繧剃ｽ懈・縺励◆縺ｨ荳ｻ蠑ｵ縺励※縺ｯ縺ｪ繧翫∪縺帙ｓ縲・縺ゅ↑縺溘′譛ｬ繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢繧定｣ｽ蜩∝・縺ｧ菴ｿ逕ｨ縺吶ｋ蝣ｴ蜷医∬｣ｽ蜩√・譁・嶌縺ｫ隰晁ｾ槭ｒ蜈･繧後※縺・◆縺縺代ｌ縺ｰ蟷ｸ縺・〒縺吶′縲∝ｿ・医〒縺ｯ縺ゅｊ縺ｾ縺帙ｓ縲・
2.繧ｽ繝ｼ繧ｹ繧貞､画峩縺励◆蝣ｴ蜷医・縲√◎縺ｮ縺薙→繧呈・遉ｺ縺励↑縺代ｌ縺ｰ縺ｪ繧翫∪縺帙ｓ縲ゅが繝ｪ繧ｸ繝翫Ν縺ｮ繧ｽ繝輔ヨ繧ｦ繧ｧ繧｢縺ｧ縺ゅｋ縺ｨ縺・≧陌壼⊃縺ｮ陦ｨ遉ｺ繧偵＠縺ｦ縺ｯ縺ｪ繧翫∪縺帙ｓ縲・
3.繧ｽ繝ｼ繧ｹ縺ｮ鬆貞ｸ・黄縺九ｉ縲√％縺ｮ陦ｨ遉ｺ繧貞炎髯､縺励◆繧翫∬｡ｨ遉ｺ縺ｮ蜀・ｮｹ繧貞､画峩縺励◆繧翫＠縺ｦ縺ｯ縺ｪ繧翫∪縺帙ｓ縲・


code:
前書き：
大姐姐といちゃつくだけのバリアントです
ちょっとエロい悪戯しても「仕方ない人ですね」って言ってもらえるような関係が好きなんですよね

このバリアントについての注意・ライセンスなど：
・虽然很可惜まだ未完成も未完成です。游戏として玩遊戲のは今しばらくお待ちください
・マウス操作ができる前提です
・資料フォルダにあるseinoji.otfをイン披肩すると性処理回数を正の字で表記します
・Ｈ布トなどは私の過去作eraSQNをベースとしています
・このバリアントをベースにバリアントを作るのは勘弁してください
・他のバリアントへの部分的な拝借は私に聞いてください
・口上の流用、改変等については、その作者桑に判断を求めてください
　既存角色への口上加筆は角色崩壊に注意してください。それと、大量加筆する場合には別の角色を作るのが推奨です
　私の作ったもの以外のReamdMeは『各種ReadMe』フォルダに入っています
・再アップロードは era悪魔で女仆ろだ https://ux.getuploader.com/eraAkumaMaid/ が消滅している場合に限り、非商用で認めます

・感想や要望、バグ報告や不具合などは
　era悪魔で女仆製作スレ	https://jbbs.shitaraba.net/bbs/read.cgi/otaku/16783/1684598304/
　discordの同製作サーバー	https://discord.gg/Ak5JPRN
　にお願いします。

・discordに行くと何か良い事ある？
　有ません。役職も秘密のチャンネル等も何もなく、案の覚え書きや雑談があるだけです。

　以上お願いします。

このバリアント独自のルール等：
23/08/19
・颜绘や特写を常にONにするようにしました
22/09/13
・勧誘画面で使用する颜绘をsavフォルダ内に生成するよう成为了
22/07/07
・フォントサイズ:18、一行の高さ:19を想定して作って有ます
19/02/21
・受精→着床して、初めて妊娠します
18/12/13
・なんと二週間ごとに四季が移り変わります！
18/02/19
・魂は你専用のパラメータで、他の角色で言う体力です。モリモリ回復するので減っても気にすることはないです
　０变成了ら復活！して0.01变成了のちにエロシーン強制終了となります
・精力は絶頂・射精できる残数です。強絶頂とかすると很多に減ります
・気力が有些ません。体力500が他のバリアントでの気力０に相当するイメージです。なお体力は時間ごとに全快します
・経験値を使う事で、幾つかの素質を得たり失ったりできます
・避孕套装着を毎回選ぶのが面倒な人は[V避孕套](肛門性交なら[A避孕套])过滤器をONにしてください
・能力などの横の字母表顺序は強さの目安です。[S]を目指しましょう。ちなみに各能力はMAX99LVです
・partner是わゆるTARGETです
・指导者是わゆる助手です。ASSIです
・実は反発刻印が有些ません。割と好き勝手して大丈夫です
　ただし相手が嫌がることをすると反感の珠がモリモリたまって「～感覚の珠」以外を打ち消しまくります
　指导者の助言に従うと良いかもしれません
・合意はメイン画面で取れる行動にモロ影響します。[300]で相手と交渉して追加入手できるので、得ましょう
・メイン画面で日期の下に羅列されている名前を阴蒂ックするとTARGETに変更できます。黄色がTARGETのしるしです
　名前の横にある α は指导者可能の印です。阴蒂ックするとその人が指导者になります。緑がそのしるしです
　その下に並ぶ角色名に添えられた番号を入力すると能力表示をします
・大人のおもちゃは同じ物を買うほどに+修正が付いて強くなります。お金が余ったらどうぞ
・お金やスキルが欲しかったら悪魔に魂を売ってください
・時間を進めたい場合は[100]or[999]を選択してください


code:
octocat, squirrel, shipit
Copyright (c) 2013 GitHub Inc. All rights reserved.

bowtie, neckbeard, fu
Copyright (c) 2013 37signals, LLC. All rights reserved.

feelsgood, finnadie, goberserk, godmode, hurtrealbad, rage 1-4, suspect
Copyright (c) 2013 id Software. All rights reserved.

trollface
Copyright (c) 2013 whynne@deviantart. All rights reserved.

All other images
Copyright (c) 2013 Apple Inc. All rights reserved.

Source code:

Copyright (c) 2013 GitHub, Inc.

Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following
conditions:

The above copyright notice and this permission notice shall be
included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.


code:
全ての口上においてバグ修正はＯＫ

・改変・再配布ＯＫその１（作者が推奨。角色が崩壊していない場合はだいたい組み込みます）
 4 [原人类の淫魔]阿丽努
 5 [白蛇の式神]六華
 7 [人狼]哈娜
 8 [继承了鬼之血的女孩]鬼頭優里
 9 [驱魔人]帕拉奇娜
11 [枯木の精霊]莉雅拉
12 [委員長]双葉成美
13 [猫耳少女]九重亜依璃
14 [ＴＳ吸血鬼娘]織
16 [一般生徒]玉寄杏珠
17 [美術室の市松人形]小菊
18 [炎の人妻体育教師]長谷川焰
19 [落第淫魔]万音
20 [執事の天使]卡莉斯塔
21 [見習火鼠]蓬莱祥子
22 [竜人]琉娜
24 [一般生徒]春夏冬千穂
25 [堕天使伪娘]乃々
26 [放課後の魔法少女]桂木恭子
28 [秘密留学的精灵]西露芙
30 [没落魔貴族]奥丝卡
31 [元人类の猫娘]詩燈寧子
32 [年齢詐称同班同学]千堂玲子
33 [精欠乏症]青空鈴
34 [具現少女]望木真
35 [女装少年]望木灯
37 [風精令嬢]風鳴格蕾丝
38 [異端の聖職者]安娜
39 [白百合姫]小早川百合香
45 [被欺负的前辈]久留木小夜
46 [合法社会科教師]诺伊.德米那
48 [露出少女]望木莉
50 [小恶魔]休托莉
51 [归来的青梅竹马]森賀棗
54 [发情白兔]
55 [純情伪娘]都築紬希
57 [襲来的少年]土内遥
59 [古悪魔女孩or男孩]蔻卡
60 [悪食]生実千裕
62 [実姉]霧江
63 [妖中華娘]秦桜嵐
65 [彷徨的小不死]此花

・改変・再配布ＯＫ之２（作者が吟味した後に組み込み。ボツの可能性が多少あると思ってください）
 1 [女仆の悪魔]弗理希艾尔
 2 [狐妖]濡烏の君
 6 [実妹]樱
10 [未亡人悪魔]麦莉爱娜
15 [魔界人]槞彁
42 [実妹]南実
43 [獣之悪魔]秋月鲛子
47 [改造幼猫]莉迪亚
56 [后庭魅魔]米娅
61 [怠惰狐]白狐真妃

・改変ＮＧ
23 [現代の聖女]玛丽
27 [被遗弃的半妖]風花維吹
36 [一般生徒]卯月佑香
40 [園芸部員]織笠綾乃
41 [天文部の魔女]氷之守栞
44 [只知杀戮的杀人姫]白藤千紗
49 [收集死亡的神之农夫]纯白死神
52 [人妻教師]小鳥遊静菜
66 [舞月的褪色灰烬猎人]尤佟丝
77 [专属Sexaroid]HaLL-5c68a32

・不明。基本的には改変ＮＧと思ってください。作者桑からＧＯサインが出たら組み込みます
 3 [若手魔導士]西西莉亚
58 [淫魔訓練]魔華
64 [養護教諭]天野恵
100[冷冷的恶魔女仆]帕图拉

path: 原版本里所带的若干txt/口上ライセンス一覧.txt