code:
;-------------------------------------------------
;;; 汎用口上デイリーを登録する。REGISTER_COMMON_KOJO_DAILYを呼び出す
;;; ユニークキャラ向け口上デイリーの登録と少し書式が違う点に注意
;;; KOJO_IDの値は汎用口上の番号と同じ値(KXXXX)を指定
;-------------------------------------------------
@CREATE_COMMON_KOJO_DAILY_MAP_K1120()
#DIM CONST KOJO_ID = 1120
CALL REGISTER_COMMON_KOJO_DAILY(KOJO_ID, デイリー_通常, "BUDDY", "親しき仲には")
CALL REGISTER_COMMON_KOJO_DAILY(KOJO_ID, デイリー_通常, "OWNER", "服従の誓い")

repo_name: pervysquirrelz/erafl

license: unknown


code:
;---------------------
;基本的な発生確率(1000分率 100で10%)
;これにコンフィグ項目の発生頻度がかけられるので、必ずしもこの通りにはならない
;---------------------
@KOJO_DAILY_K1120_OWNER_RATE(対象)
#DIM 対象
RETURN 1000

;---------------------
;確率以外の発生判定
;〇期以降になると発生するとか、デイリー側で利用している変数が-1だったら起こさない　みたいなはじき方をするときに使う
;---------------------
@KOJO_DAILY_K1120_OWNER_DECISION(対象)
#DIM 対象

SIF !TALENT:対象:主人 && !TALENT:対象:所有者
	RETURN 0
SIF KOJO_GET_FLAGINT(対象, "K1120_服従の誓い")
	RETURN 0

RETURN 1

;---------------------
;ジャンル
;コンフィグ設定で使用
;---------------------
@KOJO_DAILY_K1120_OWNER_GENRE(対象)
#DIM 対象
RETURN デイリー_ジャンル_エロ

;---------------------
;本体
;イベントが発生した場合は1、発生しなかった場合は0を返す
;発生しなかったというのは例えば、特定条件を満たすキャラからランダムに一人選ぶデイリーで、そもそもその条件を満たすキャラが一人もいないみたいなとき
;旧仕様で作ったことある人向けにいうと「旧仕様のデイリー本体冒頭で-1を返すような状況」
;---------------------
@KOJO_DAILY_K1120_OWNER(対象)
#DIM 対象

PRINTL
PRINTFORML %ANAME(MASTER)%と%ANAME(対象)%の関係が変化してから数日経った、ある日のこと
PRINTFORML 夜半、%ANAME(MASTER)%は\@IS_MALE(対象) ? 彼 # 彼女\@の部屋へ呼び出された
PRINTW
CALL FL_PLAYBGM("Train_0.ogg")
PRINTFORML いかなる経緯だとしても、%ANAME(MASTER)%の心は既に%ANAME(対象)%に依存しきっている
PRINTFORML 高鳴る胸を抑える術もなく、その部屋の扉を開けることになるだろう
PRINTW
CALL DRAW_PORTRAIT(対象, "[感情:通常][サイズ:180px][POS_X:0]",,1)
PRINTL
CALL KJ_PRINT(対象,@"「……来たか」", 0)
CALL KJ_PRINT(対象,@"「話があって、呼び出した」", 0)
PRINTW
PRINTFORML 近付いてきた%ANAME(対象)%は、%ANAME(MASTER)%を真っ直ぐに見つめてきている
PRINTFORML お互いの吐息が触れそうなほどの距離だ……
PRINTFORML さらに%ANAME(MASTER)%の顎に指を置いてきて、視線を逸らすことさえ許さない……
PRINTW
CALL KJ_PRINT(対象,@"「……%_K1120_FP(対象)%に、主人になって欲しいようだが」", 0)
CALL KJ_PRINT(対象,@"「主人……その言葉には、様々な意味がある」", 0)
CALL KJ_PRINT(対象,@"「%_K1120_FP(対象)%が主人となれば、おまえの立場はなんだ？」", 0)
$CONFUSED
PRINTW
CALL ASK_MULTI("使用人になりたい", "奴隷になりたい", "ペットになりたい", "実は普通の関係に戻りたい")
$ANGRY
PRINTL
IF RESULT == 3
	CALL KJ_PRINT(対象,@"「……ッ！？」", 0)
	CALL KJ_PRINT(対象,@"「……気の迷いだったということか？」", 0)
	PRINTW
	CALL ASK_MULTI("気の迷いだった", "やっぱり戻りたくない")
	PRINTL
	IF RESULT == 0
		CALL KJ_PRINT(対象,@"「……そうか」", 0)
		PRINTW
		PRINTFORML %ANAME(MASTER)%の顎に触れていた手が頬へ移動して、両頬を挟まれて頭を固定された
		PRINTFORML 苛立ちと怒りを隠さない%ANAME(対象)%の鋭い目が、至近距離で睨みつけてくる……
		PRINTW
		CALL KJ_PRINT(対象,@"「……なにを勘違いしている？」", 0)
		CALL KJ_PRINT(対象,@"「例え気の迷いだろうと、後戻りできると思うな」", 0)
		PRINTW
		PRINTFORML これほど\@IS_MALE(対象) ? 彼 # 彼女\@が怒っているところは見たことがない……
		PRINTW
		CALL KJ_PRINT(対象,@"「……もう一度だけ聞いてやろう」", 0)
		CALL KJ_PRINT(対象,@"「おまえの立場はなんだ？」", 0)
		PRINTW
		CALL ASK_MULTI("使用人になりたい", "奴隷になりたい", "ペットになりたい")
		GOTO ANGRY
	ELSE
		CALL KJ_PRINT(対象,@"「……わがままなやつだな」", 0)
		PRINTW
		PRINTFORML %ANAME(対象)%の眉間がわずかに緩んだように見えた
		PRINTFORML どうやら安堵しているらしい……
		PRINTW
		CALL KJ_PRINT(対象,@"「……ならばもう一度聞く。おまえの立場はなんだ？」", 0)
		GOTO CONFUSED
	ENDIF
ELSE
	IF RESULT == 0
		CALL KJ_PRINT(対象,@"「……フッ、なるほどな」", 0)
		IF HAS_PENIS(対象) || (!HAS_PENIS(MASTER) && !HAS_PENIS(対象))
			CALL KJ_PRINT(対象,@"「つまり、%_K1120_FP(対象)%に仕えるメイドか」", 0)
		ELSE
			CALL KJ_PRINT(対象,@"「つまり、%_K1120_FP(対象)%に仕える執事か」", 0)
		ENDIF
		PRINTW
		PRINTFORML 真っ直ぐに瞳を覗き込んできたまま、ふっとわずかに頬を緩ませる
		PRINTFORML そうして%ANAME(対象)%は、%ANAME(MASTER)%の唇に指を触れさせてきた……
		PRINTW
		CALL KJ_PRINT(対象,@"「……主従には、相応の態度がある」", 0)
		CALL KJ_PRINT(対象,@"「言葉にしてみろ。主に従うという、その誓いを」", 0)
		$MAID
		PRINTW
		CALL ASK_MULTI(@"%ANAME(対象)%を主人として、仕えたい", "ご主人様にお仕えさせてください", "（なにも言わない）")
		PRINTL
			IF RESULT == 0
				CALL KJ_PRINT(対象,@"「……主人に対する言葉遣いではないが」", 0)
				CALL KJ_PRINT(対象,@"「まあいい。それもおまえらしい」", 0)
				PRINTW
				PRINTFORML 気恥ずかしさによるものか、あるいは特に他意もなかったのか
				PRINTFORML %ANAME(MASTER)%の誓いの言葉は、二人の気安い関係性をそのまま表したものだった
				PRINTW
				CALL KJ_PRINT(対象,@"「使用人を教育するのも主人の役目だろう」", 0)
				CALL KJ_PRINT(対象,@"「……これからが、楽しみだ」", 0)
				PRINTW
				PRINTFORML いつになく感情を顔に出して、%ANAME(対象)%は目を細めて微笑んでいる
				PRINTFORML %ANAME(MASTER)%と\@IS_MALE(対象) ? 彼 # 彼女\@との関係性は、この先も気安いものであり続けるのか、それとも……
			ELSEIF RESULT == 1
				CALL KJ_PRINT(対象,@"「……良い子だ」", 0)
				PRINTW
				PRINTFORML つぷ、と%ANAME(MASTER)%の唇に指が差し込まれそうになるも、直前で止まる
				PRINTFORML そのまま、唇をくすぐるように指を往復させながら、%ANAME(対象)%が耳元に囁いてくる……
				PRINTW
				CALL KJ_PRINT(対象,@"「……明日から%_K1120_FP(対象)%の使用人として、教育してやろう」", 0)
				CALL KJ_PRINT(対象,@"「じっくりと、たっぷりと……な」", 0)
				PRINTW
				PRINTFORML いつになく感情の出たその声音は、\@IS_MALE(対象) ? 彼 # 彼女\@にしては珍しくどこか悪戯っぽい
				PRINTFORML %ANAME(MASTER)%の身体を駆け抜けた感情がなんであれ、もう\@IS_MALE(対象) ? 彼 # 彼女\@から逃げることはできないだろう……
			ELSE
				CALL KJ_PRINT(対象,@"「……なにを躊躇っている？」", 0)
				CALL KJ_PRINT(対象,@"「一度願いを口にした以上、もう逃がしはしない」", 1)
				CALL KJ_PRINT(対象,@"「……もう一度言う。%_K1120_FP(対象)%に服従を誓え」", 0)
				GOTO MAID
			ENDIF
		CALL KOJO_SET_FLAG(対象, "K1120_服従の誓い", "1")
	ELSEIF RESULT == 1
		CALL KJ_PRINT(対象,@"「……フッ、奴隷、か」", 0)
		CALL KJ_PRINT(対象,@"「よく正直に言えた」", 0)
		PRINTW
		PRINTFORML 言い切った%ANAME(MASTER)%の頬には手のひらが当てられて、褒めるように撫でられる
		PRINTFORML %ANAME(対象)%はさらに顔を近づけてきた……
		PRINTW
		CALL KJ_PRINT(対象,@"「……奴隷とは、人の姿だが人ではない、主人の所有物だ」", 0)
		CALL KJ_PRINT(対象,@"「奴隷に堕ちるということは、人としての権利全てを失うということだ」", 0)
		CALL KJ_PRINT(対象,@"「……それをわかっていて、%_K1120_FP(対象)%の奴隷になりたいと、そう言うのか」", 0)
		PRINTW
		PRINTFORML なにか強い感情を押し殺した冷たい瞳が、%ANAME(MASTER)%を射抜いてくる……
		PRINTFORML しかし、%ANAME(MASTER)%が反応をする前に\@IS_MALE(対象) ? 彼 # 彼女\@が息をつき、わずかに緊張が緩んだ
		PRINTW
		CALL KJ_PRINT(対象,@"「……おまえにも立場があるだろう」", 0)
		CALL KJ_PRINT(対象,@"「まずは奴隷のように扱い、調教してやろう」", 1)
		CALL KJ_PRINT(対象,@"「おまえが本気ならば、いずれ本当に%_K1120_FP(対象)%の所有物に……」", 0)
		PRINTW
		PRINTFORML そこまで言い掛けて%ANAME(対象)%は、ふう、と再び息をつく
		PRINTW
		CALL KJ_PRINT(対象,@"「……さあ、覚悟ができたなら、%_K1120_FP(対象)%に服従を誓ってみせろ」", 0)
		$SLAVE
		PRINTW
		CALL ASK_MULTI(@"それでも%ANAME(対象)%の奴隷になりたい", "どうかご主人様の奴隷にしてください", "（なにも言わない）")
		PRINTL
		IF RESULT == 0
			CALL KJ_PRINT(対象,@"「……奴隷らしい態度ではないな」", 0)
			CALL KJ_PRINT(対象,@"「まあいい。それもおまえらしい」", 0)
			PRINTW
			PRINTFORML %ANAME(対象)%は目を閉じて、かすかに口の端を持ち上げている
			PRINTFORML どうやら苦笑しているようだ……
			PRINTW
			CALL KJ_PRINT(対象,@"「その態度、今日のところは不問だ」", 0)
			CALL KJ_PRINT(対象,@"「……だが、明日からは厳しく立場をわからせてやろう」", 0)
		ELSEIF RESULT == 1
			CALL KJ_PRINT(対象,@"「……良い子だ」", 0)
			CALL KJ_PRINT(対象,@"「調教のしがいがありそうな、良い\@HAS_PENIS(対象) ? 雌 # \@奴隷だ」", 0)
			PRINTW
			PRINTFORML %ANAME(MASTER)%の誓いは滑らかに発せられただろうか、羞恥に焦がれてたどたどしくなっていただろうか……
			PRINTFORML いずれにしても%ANAME(対象)%は上機嫌の様子で、もう一度、頬を撫でてくる
		ELSE
			CALL KJ_PRINT(対象,@"「……いまさら、怖くなりでもしたか？」", 0)
			CALL KJ_PRINT(対象,@"「だが、一度願いを口にした以上、もう逃がしはしない」", 1)
			CALL KJ_PRINT(対象,@"「……もう一度言う。%_K1120_FP(対象)%に服従を誓え」", 0)
			GOTO SLAVE
		ENDIF
		PRINTW
		CALL KJ_PRINT(対象,@"「……いま、おまえは%_K1120_FP(対象)%の奴隷となった」", 0)
		CALL KJ_PRINT(対象,@"「これはその証だ」", 0)
		PRINTW
		PRINTFORML %ANAME(対象)%が取り出したのは無骨な首輪……奴隷用の首輪だ
		PRINTFORML 前面部分の金具には太い鎖が繋がれている
		PRINTFORML 揺れる鎖の金属音が、静かな夜の部屋にひどく大きく響いたように感じられた……
		PRINTW
		CALL CHANGE_CLOTH_STOCK(衣装部位_首, 11, 1)
		CALL COLOR_PRINTL(@"奴隷の首輪を受け取った", カラー_注意)
		PRINTW
		CALL KJ_PRINT(対象,@"「着けるも外すも容易い首輪だ。だが……」", 0)
		CALL KJ_PRINT(対象,@"「……最初の命令だ。いついかなるときも、これを外すことは許さない」", 0)
		PRINTW
		PRINTFORML %ANAME(MASTER)%の頬にあてられている手のひらが、ゆっくりと往復する
		PRINTFORML 優しげな手付きだが、\@IS_MALE(対象) ? 彼 # 彼女\@への服従心がそう思わせるのか、どこか威圧感がある……
		PRINTW
		CALL KJ_PRINT(対象,@"「……これでおまえは%_K1120_FP(対象)%のものだ」", 0)
		PRINTW
		PRINTFORML いつになく感情が表に出た%ANAME(対象)%のその顔は、背筋を冷たくさせるほど嗜虐的な微笑みを浮かべている
		PRINTFORML %ANAME(MASTER)%の身体を駆け抜けた感情がなんであれ、もう\@IS_MALE(対象) ? 彼 # 彼女\@から逃げることはできないだろう……
		CALL KOJO_SET_FLAG(対象, "K1120_服従の誓い", "1")
		CALL KOJO_SET_FLAG(対象, "K1120_奴隷ルート", "1")
	ELSE
		CALL KJ_PRINT(対象,@"「……フッ、そうか、ペットか」", 0)
		CALL KJ_PRINT(対象,@"「%_K1120_FP(対象)%に飼われたいと、そう言っているのか？」", 0)
		PRINTW
		PRINTFORML 言い切った%ANAME(MASTER)%の頭に手のひらが乗せられて、髪を梳くように撫でられる
		PRINTFORML それはまさしく愛玩動物に対する飼い主の態度だ……
		PRINTW
		CALL KJ_PRINT(対象,@"「……ペットとして飼うならば、%_K1120_FP(対象)%は忠実な犬が好みだ」", 0)
		CALL KJ_PRINT(対象,@"「ヒトを辞めて犬になるというならば、飼ってやってもいい」", 0)
		CALL KJ_PRINT(対象,@"「……もっとも、いまさら取り消しなどはさせないがな」", 0)
		PRINTW
		PRINTFORML %ANAME(対象)%が獲物を狙う捕食者のように鋭い眼光を向けてくる
		PRINTFORML 射竦められた%ANAME(MASTER)%には、もはや\@IS_MALE(対象) ? 彼 # 彼女\@に逆らうことはできそうにない……
		PRINTW
		CALL KJ_PRINT(対象,@"「……そう怖がるな。いきなり厳しくはしない」", 0)
		CALL KJ_PRINT(対象,@"「ゆっくりと調教して、犬としての自覚を持たせてやろう」", 1)
		CALL KJ_PRINT(対象,@"「おまえが本気ならば、いずれ本当に%_K1120_FP(対象)%の飼い犬に……」", 0)
		PRINTW
		PRINTFORML そこまで言い掛けて%ANAME(対象)%は、ふう、と再び息をつく
		PRINTW
		CALL KJ_PRINT(対象,@"「……さあ、覚悟ができたなら、%_K1120_FP(対象)%に服従を誓ってみせろ」", 0)
		PRINTW
		PRINTFORML そう言って%ANAME(対象)%は、上向けた手のひらを差し出してきた……
		$DOG
		PRINTW
		CALL ASK_MULTI(@"%ANAME(対象)%のペットになりたい", "どうかご主人様の飼い犬にしてください（お手をしながら）", "（なにも言わない）")
		PRINTL
		IF RESULT == 0
			CALL KJ_PRINT(対象,@"「……犬らしく、と言ったのだがな」", 0)
			CALL KJ_PRINT(対象,@"「まあいい。それもおまえらしい」", 0)
			PRINTW
			PRINTFORML %ANAME(MASTER)%の頭の上の手が、やや乱暴に往復して髪を乱してくる
			PRINTFORML 苛立っているわけではなく、ペットらしくない気安い態度を楽しんでいるようだ……
			PRINTW
			CALL KJ_PRINT(対象,@"「その態度、今日のところは不問だ」", 0)
			CALL KJ_PRINT(対象,@"「……だが、明日からは厳しく立場をわからせてやろう」", 0)
		ELSEIF RESULT == 1
			CALL KJ_PRINT(対象,@"「……良い子だ」", 0)
			CALL KJ_PRINT(対象,@"「%_K1120_FP(対象)%がなにも言わなくても、\@HAS_PENIS(対象) ? 雌 # \@犬らしくできたな」", 0)
			PRINTW
			PRINTFORML 倒錯感に酔って身体が動いたのか、それとも激しい羞恥を抑えて主人の期待に応えたのか……
			PRINTFORML いずれにしても%ANAME(MASTER)%の態度に%ANAME(対象)%は上機嫌の様子で、もう一度、頭を撫でてくる
		ELSE
			CALL KJ_PRINT(対象,@"「……取り消しはさせないと言った」", 0)
			CALL KJ_PRINT(対象,@"「一度おまえの願望を聞いた以上、もう逃がしはしない」", 1)
			CALL KJ_PRINT(対象,@"「……もう一度言う。%_K1120_FP(対象)%に服従を誓え」", 0)
			GOTO DOG
		ENDIF
		PRINTW
		CALL KJ_PRINT(対象,@"「……いま、おまえは%_K1120_FP(対象)%の飼い犬となった」", 0)
		CALL KJ_PRINT(対象,@"「これはその証だ」", 0)
		PRINTW
		PRINTFORML %ANAME(対象)%が取り出したのは首輪……大型犬用の首輪だ
		PRINTFORML アクセサリーと言うにはあまりにも目立つ、奴隷用の物ともまた違う作り
		PRINTFORML こんなものを着けていれば、自分は誰かに飼われていると喧伝するようなものだ……
		PRINTW
		CALL CHANGE_CLOTH_STOCK(衣装部位_首, 8, 1)
		CALL COLOR_PRINTL(@"犬用首輪を受け取った", カラー_注意)
		PRINTW
		CALL KJ_PRINT(対象,@"「着けるも外すも容易い首輪だ。だが……」", 0)
		CALL KJ_PRINT(対象,@"「……最初の躾けだ。いついかなるときも、これを外すことは許さない」", 0)
		PRINTW
		PRINTFORML %ANAME(MASTER)%の頭に乗せられている手のひらが、ゆっくりと往復する
		PRINTFORML 優しげな手付きだが、\@IS_MALE(対象) ? 彼 # 彼女\@への服従心がそう思わせるのか、どこか威圧感がある……
		PRINTW
		CALL KJ_PRINT(対象,@"「……これでおまえは%_K1120_FP(対象)%のものだ」", 0)
		PRINTW
		PRINTFORML いつになく感情が表に出た%ANAME(対象)%のその顔は、背筋を冷たくさせるほど嗜虐的な微笑みを浮かべている
		PRINTFORML %ANAME(MASTER)%の身体を駆け抜けた感情がなんであれ、もう\@IS_MALE(対象) ? 彼 # 彼女\@から逃げることはできないだろう……
		CALL KOJO_SET_FLAG(対象, "K1120_服従の誓い", "1")
		CALL KOJO_SET_FLAG(対象, "K1120_犬ルート", "1")
	ENDIF
	PRINTW
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORML …………
ENDIF

PRINTW

CALL FL_STOPBGM

RETURN 1


code:
;kom1様が作成してくれた汎用口上デイリー用関数の使用例が含まれたテスト用ファイルを残してあるものです

;---------------------
;基本的な発生確率(1000分率 100で10%)
;これにコンフィグ項目の発生頻度がかけられるので、必ずしもこの通りにはならない
;---------------------
@KOJO_DAILY_K1120_TEST_RATE(対象)
#DIM 対象
;RETURN 1000
RETURN 0 ;テスト用なので発生確率0%に

;---------------------
;確率以外の発生判定
;〇期以降になると発生するとか、デイリー側で利用している変数が-1だったら起こさない　みたいなはじき方をするときに使う
;---------------------
@KOJO_DAILY_K1120_TEST_DECISION(対象)
#DIM 対象
SIF KOJO_GET_FLAGINT(対象, "K1120_テスト")
	RETURN 0

RETURN 1

;---------------------
;ジャンル
;コンフィグ設定で使用
;---------------------
@KOJO_DAILY_K1120_TEST_GENRE(対象)
#DIM 対象
RETURN デイリー_通常

;---------------------
;本体
;イベントが発生した場合は1、発生しなかった場合は0を返す
;発生しなかったというのは例えば、特定条件を満たすキャラからランダムに一人選ぶデイリーで、そもそもその条件を満たすキャラが一人もいないみたいなとき
;旧仕様で作ったことある人向けにいうと「旧仕様のデイリー本体冒頭で-1を返すような状況」
;---------------------
@KOJO_DAILY_K1120_TEST(対象)
#DIM 対象

;汎用口上用のフラグ操作
;※KOJO_SET_FLAG/GET_FLAGによるフラグ操作は口上毎にセットされるので、フラグ名称の被りを気にする必要はなく、
;汎用口上のフラグは各キャラクター、汎用口上毎に保持されます
;汎用口上を切り替えても口上毎のフラグ状況は保持されます

;口上用のフラグをキャラクターにセット(値は文字列でセット)
CALL KOJO_SET_FLAG(対象, "K1120_HOGE", "てすと")
CALL KOJO_SET_FLAG(対象, "K1120_FUGA", "1")

;口上用のフラグを取得
;文字列で取得
PRINTFORMW 期待値:てすと　結果:%KOJO_GET_FLAG(対象, "K1120_HOGE")%
;整数で取得
PRINTFORMW 期待値:1 　　　結果:{KOJO_GET_FLAGINT(対象, "K1120_FUGA")}

;口上用フラグ消去
CALL KOJO_REMOVE_FLAG(対象, "K1120_HOGE")
PRINTFORMW 期待値:空文字　結果:%KOJO_GET_FLAG(対象, "K1120_HOGE")%

CALL KOJO_SET_FLAG(対象, "K1120_HOGE", "てすと")
;現在設定されている汎用口上の全フラグを消去
CALL KOJO_REMOVE_ALL_FLAG(対象)
PRINTFORMW 期待値:空文字　結果:%KOJO_GET_FLAG(対象, "K1120_HOGE")%
PRINTFORMW 期待値:0 　　　結果:{KOJO_GET_FLAGINT(対象, "K1120_FUGA")}

RETURN 1

path: ERB/口上/1120_汎用_冷然風味/DAILY/KOJO_DAILY_K1120_汎用口上デイリー用関数使用例.ERB


code:
;---------------------
;基本的な発生確率(1000分率 100で10%)
;これにコンフィグ項目の発生頻度がかけられるので、必ずしもこの通りにはならない
;---------------------
@KOJO_DAILY_K1120_BUDDY_RATE(対象)
#DIM 対象
RETURN 1000

;---------------------
;確率以外の発生判定
;〇期以降になると発生するとか、デイリー側で利用している変数が-1だったら起こさない　みたいなはじき方をするときに使う
;---------------------
@KOJO_DAILY_K1120_BUDDY_DECISION(対象)
#DIM 対象
SIF CFLAG:(対象):好感度 < 1500
	RETURN 0
SIF TALENT:対象:合意
	RETURN 0
SIF KOJO_GET_FLAGINT(対象, "K1120_親しき仲には")
	RETURN 0

RETURN 1

;---------------------
;ジャンル
;コンフィグ設定で使用
;---------------------
@KOJO_DAILY_K1120_BUDDY_GENRE(対象)
#DIM 対象
RETURN デイリー_ジャンル_エロ

;---------------------
;本体
;イベントが発生した場合は1、発生しなかった場合は0を返す
;発生しなかったというのは例えば、特定条件を満たすキャラからランダムに一人選ぶデイリーで、そもそもその条件を満たすキャラが一人もいないみたいなとき
;旧仕様で作ったことある人向けにいうと「旧仕様のデイリー本体冒頭で-1を返すような状況」
;---------------------
@KOJO_DAILY_K1120_BUDDY(対象)
#DIM 対象

PRINTL
PRINTFORML ある日のこと、とある村で用事を済ませた%ANAME(MASTER)%が帰路につこうとしたとき
PRINTFORML 一緒に来ていた%ANAME(対象)%がふと足を止めて、村の外れを指し示した
PRINTW
CALL FL_PLAYBGM("Nostalgic_0.ogg")
CALL DRAW_PORTRAIT(対象, "[感情:通常][サイズ:180px][POS_X:0]",,1)
PRINTL
CALL KJ_PRINT(対象,@"「……あちらのほうに、この時期にしか湧かない温泉があると聞いた」", 0)
CALL KJ_PRINT(対象,@"「二人で入るのも悪くはない。どうだ？」", 0)
PRINTW
PRINTFORML どうやら、一緒に温泉に浸かっていかないかと誘っているようだ
SIF !IS_SAMESEX(対象, MASTER)
	PRINTFORML ……いくら親友と言える間柄であっても、%ANAME(MASTER)%と%ANAME(対象)%は異性同士だ
PRINTFORML \@IS_MALE(対象) ? 彼 # 彼女\@に他意があるのかどうかは、その表情からは推し量れない……
PRINTW
CALL ASK_MULTI("一緒に温泉へ入ることに合意する", "別々に温泉に入る", "早く帰りたい")
PRINTL
IF RESULT == 0
	PRINTFORML %ANAME(MASTER)%は頷き、二人で温泉へと足を運ぶ
	PRINTFORML 村からは近いが、周囲に生え揃った樹々が天然の目隠しになってくれているようだ
	PRINTFORML これならば人目を気にせずに衣服を脱ぐことができるだろう……
	PRINTW
	IF (IS_SAMESEX(対象, MASTER) && ABL:MASTER:露出 >= 4) || ABL:MASTER:露出 >= 6
		IF !IS_SAMESEX(対象, MASTER)
			PRINTFORML 曲がりなりにも\@IS_MALE(対象, 1) ? 男性 # 女性\@である%ANAME(対象)%に裸を見られることになるが……
			PRINTFORML まるで気にしていないのか、それとも悪戯心か、あるいは密やかな興奮を抱いてか
		ENDIF
		PRINTFORML %ANAME(MASTER)%は%ANAME(対象)%の隣で一糸まとわぬ姿となり、温かな天然湯に身を沈めた……
		PRINTW
	ELSE
		PRINTFORM しかし、
		IF !IS_SAMESEX(対象, MASTER)
			PRINTFORML 曲がりなりにも%ANAME(MASTER)%と%ANAME(対象)%は男と女
		ENDIF
		PRINTFORML 例え親友であっても、秘部までも晒すことに%ANAME(MASTER)%は抵抗を感じてしまう……
		PRINTW
		CALL KJ_PRINT(対象,@"「……どうした？」", 0)
		PRINTL
		PRINTFORML その隣で%ANAME(対象)%は、躊躇うことなく衣服を脱ぎ進めている
		PRINTFORML 堂々とした様子は、親友同士で妙な意識をするほうがおかしいとでも言っているようだ
		PRINTW
		CALL KJ_PRINT(対象,@"「……心配はない。この時間には村人は来ないと聞いた」", 0)
		CALL KJ_PRINT(対象,@"「だがモタモタしていると、村人が利用する時間になる」", 0)
		PRINTW
		PRINTFORML 自らの裸体を隠すこともなく、%ANAME(MASTER)%をじっと待っている
		PRINTFORML 全裸の%ANAME(対象)%に半裸の身体を見られ続ける、そんな状況は余計に羞恥心を煽ってくる……
		PRINTW
		PRINTFORML やがて根負けした%ANAME(MASTER)%も一糸まとわぬ姿となり、隣り合って温かな天然湯に身を沈めた……
		PRINTFORM \@IS_MALE(対象) ? 彼 # 彼女\@の言う通り、
	ENDIF
	PRINTFORML 時間帯のせいか他に村人の姿もなく、二人で肩を並べてゆっくりと湯を堪能することができた
	PRINTW
	PRINTFORML %ANAME(MASTER)%と%ANAME(対象)%は以前以上に気兼ねのない関係になれたようだ
	PRINTW
	CALL COLOR_PRINTW(@"いつのまにか、%ANAME(対象)%に<合意>を得られてしまった！", カラー_注意)
	TALENT:対象:合意 = 1
ELSEIF RESULT == 1
	PRINTFORML 肌を見せ合うことに抵抗を覚えてか、あるいは無防備な入浴時を狙う盗賊に対する用心か
	PRINTFORML %ANAME(MASTER)%は別々に入ることを提案し、%ANAME(対象)%も同意した
	PRINTW
	PRINTFORML 交互に温泉を堪能し終えた%ANAME(MASTER)%達は、改めて領地への帰路についた
	PRINTFORML ……心なしか%ANAME(対象)%の顔が残念そうに見えたのは、気のせいだろうか
ELSE
	PRINTFORML %ANAME(MASTER)%が入浴を断ると、%ANAME(対象)%もそれ以上は何も言わずに頷いた
	PRINTFORML ……心なしか%ANAME(対象)%の顔が残念そうに見えたのは、気のせいだろうか
ENDIF

PRINTW

CALL FL_STOPBGM
CALL KOJO_SET_FLAG(対象, "K1120_親しき仲には", "1")

RETURN 1


code:
;---------------------
;基本的な発生確率(1000分率 100で10%)
;これにコンフィグ項目の発生頻度がかけられるので、必ずしもこの通りにはならない
;---------------------
@KOJO_DAILY_K1120_BUDDY_RATE(対象)
#DIM 対象
RETURN 1000

;---------------------
;確率以外の発生判定
;〇期以降になると発生するとか、デイリー側で利用している変数が-1だったら起こさない　みたいなはじき方をするときに使う
;---------------------
@KOJO_DAILY_K1120_BUDDY_DECISION(対象)
#DIM 対象
SIF !TALENT:対象:親友
	RETURN 0
SIF TALENT:対象:合意
	RETURN
SIF KOJO_GET_FLAGINT(対象, "K1120_親友との一幕")
	RETURN 0

RETURN 1

;---------------------
;ジャンル
;コンフィグ設定で使用
;---------------------
@KOJO_DAILY_K1120_BUDDY_GENRE(対象)
#DIM 対象
RETURN デイリー_ジャンル_エロ

;---------------------
;本体
;イベントが発生した場合は1、発生しなかった場合は0を返す
;発生しなかったというのは例えば、特定条件を満たすキャラからランダムに一人選ぶデイリーで、そもそもその条件を満たすキャラが一人もいないみたいなとき
;旧仕様で作ったことある人向けにいうと「旧仕様のデイリー本体冒頭で-1を返すような状況」
;---------------------
@KOJO_DAILY_K1120_BUDDY(対象)
#DIM 対象

PRINTL
PRINTFORML ある日のこと、とある村で用事を済ませた%ANAME(MASTER)%が帰路につこうとしたとき
PRINTFORML 一緒に来ていた%ANAME(対象)%がふと足を止めて、村の外れを指し示した
PRINTW
CALL FL_PLAYBGM("Nostalgic_0.ogg")
CALL DRAW_PORTRAIT(対象, "[感情:通常][サイズ:180px][POS_X:0]",,1)
PRINTL
CALL KJ_PRINT(対象,@"「……あちらのほうに、この時期にしか湧かない温泉があると聞いた」", 0)
CALL KJ_PRINT(対象,@"「二人で入るのも悪くはない。どうだ？」", 0)
PRINTW
PRINTFORML どうやら、一緒に温泉に浸かっていかないかと誘っているようだ
SIF !IS_SAMESEX(対象, MASTER)
	PRINTFORML ……いくら親友と言える間柄であっても、%ANAME(MASTER)%と%ANAME(対象)%は異性同士だ
PRINTFORML \@IS_MALE(対象) ? 彼 # 彼女\@に他意があるのかどうかは、その表情からは推し量れない……
PRINTW
CALL ASK_MULTI("一緒に温泉へ入ることに合意する", "別々に温泉に入る", "早く帰りたい")
PRINTL
IF RESULT == 0
	PRINTFORML %ANAME(MASTER)%は頷き、二人で温泉へと足を運ぶ
	PRINTFORML 村からは近いが、周囲に生え揃った樹々が天然の目隠しになってくれているようだ
	PRINTFORML これならば人目を気にせずに衣服を脱ぐことができるだろう……
	PRINTW
	IF (IS_SAMESEX(対象, MASTER) && ABL:MASTER:露出 >= 4) || ABL:MASTER:露出 >= 6
		IF !IS_SAMESEX(対象, MASTER)
			PRINTFORML 曲がりなりにも\@IS_MALE(対象, 1) ? 男性 # 女性\@である%ANAME(対象)%に裸を見られることになるが……
			PRINTFORML まるで気にしていないのか、それとも悪戯心か、あるいは密やかな興奮を抱いてか
		ENDIF
		PRINTFORML %ANAME(MASTER)%は%ANAME(対象)%の隣で一糸まとわぬ姿となり、温かな天然湯に身を沈めた……
		PRINTW
	ELSE
		PRINTFORM しかし、
		IF !IS_SAMESEX(対象, MASTER)
			PRINTFORML 曲がりなりにも%ANAME(MASTER)%と%ANAME(対象)%は男と女
		ENDIF
		PRINTFORML 例え親友であっても、秘部までも晒すことに%ANAME(MASTER)%は抵抗を感じてしまう……
		PRINTW
		CALL KJ_PRINT(対象,@"「……どうした？」", 0)
		PRINTL
		PRINTFORML その隣で%ANAME(対象)%は、躊躇うことなく衣服を脱ぎ進めている
		PRINTFORML 堂々とした様子は、親友同士で妙な意識をするほうがおかしいとでも言っているようだ
		PRINTW
		CALL KJ_PRINT(対象,@"「……心配はない。この時間には村人は来ないと聞いた」", 0)
		CALL KJ_PRINT(対象,@"「だがモタモタしていると、村人が利用する時間になる」", 0)
		PRINTW
		PRINTFORML 自らの裸体を隠すこともなく、%ANAME(MASTER)%をじっと待っている
		PRINTFORML 全裸の%ANAME(対象)%に半裸の身体を見られ続ける、そんな状況は余計に羞恥心を煽ってくる……
		PRINTW
		PRINTFORML やがて根負けした%ANAME(MASTER)%も一糸まとわぬ姿となり、隣り合って温かな天然湯に身を沈めた……
		PRINTFORM \@IS_MALE(対象) ? 彼 # 彼女\@の言う通り、
	ENDIF
	PRINTFORML 時間帯のせいか他に村人の姿もなく、二人で肩を並べてゆっくりと湯を堪能することができた
	PRINTW
	PRINTFORML %ANAME(MASTER)%と%ANAME(対象)%は以前以上に気兼ねのない関係になれたようだ
	PRINTW
	CALL COLOR_PRINTW(@"いつのまにか、%ANAME(対象)%に<合意>を得られてしまった！", カラー_注意)
	TALENT:対象:合意 = 1
ELSEIF RESULT == 1
	PRINTFORML 肌を見せ合うことに抵抗を覚えてか、あるいは無防備な入浴時を狙う盗賊に対する用心か
	PRINTFORML %ANAME(MASTER)%は別々に入ることを提案し、%ANAME(対象)%も同意した
	PRINTW
	PRINTFORML 交互に温泉を堪能し終えた%ANAME(MASTER)%達は、改めて領地への帰路についた
	PRINTFORML ……心なしか%ANAME(対象)%の顔が残念そうに見えたのは、気のせいだろうか
ELSE
	PRINTFORML %ANAME(MASTER)%が入浴を断ると、%ANAME(対象)%もそれ以上は何も言わずに頷いた
	PRINTFORML ……心なしか%ANAME(対象)%の顔が残念そうに見えたのは、気のせいだろうか
ENDIF

PRINTW

CALL FL_STOPBGM
CALL KOJO_SET_FLAG(対象, "K1120_親友との一幕", "1")

RETURN 1


code:
;冷然"風味"な口上
;言葉少なめな強引系青年を意識していますが、一人称は元性別に合わせるので女性キャラとしても使用できないことはないはず
;メインは主人・所有者ルートです
;制作中未完成！

;;; `@FL_INIT_LOADER`から呼ばれる口上初期読み込み
@KOJO_DEFINE_K1120
#DIMS CONST XML_PATH_COM = "ERB/口上/1120_汎用_冷然風味/KOJO_K1120_COM.xml"
#DIMS CONST XML_PATH_EVENT = "ERB/口上/1120_汎用_冷然風味/KOJO_K1120_EVENT.xml"
#DIM CONST 汎用口上番号 = 1120

CALL KOJO_XML_REGISTER(XML_PATH_COM, 汎用口上番号, XMLID_KOJO_CLASS_COM)
CALL KOJO_XML_REGISTER(XML_PATH_EVENT, 汎用口上番号, XMLID_KOJO_CLASS_EVENT)
RETURN 1

;;;口上選択画面の表示名
@KOJO_DEFINE_NAME_K1120
RESULTS '= "汎用口上_冷然風味"
RETURN 1

;;;口上選択画面で表示する口上情報、サンプル
@KOJO_DEFINE_KOJO_INFO_K1120(CHARA_ID)
#DIM CHARA_ID
#DIM カラー
カラー = CFLAG:CHARA_ID:口上カラーコード

CALLF TAG_PRINT(@"@C:{カラー_注釈}@◇　口上の特徴　◇@/C@", 1)
PRINTFORML 冷淡っぽい態度に主人公への好意を秘めた強引系、あなた受け向きの汎用口上
PRINTFORML 元性別が男の場合は「俺」、男の娘の場合は「ボク」、女性の場合は「私」が基本の一人称
PRINTFORML 現性別や体格によっては、一人称の漢字カナひらがな表記が変化する場合がある
PRINTL
CALLF TAG_PRINT(@"@C:{カラー_注釈}@◇　サンプル　◇@/C@", 1)
PRINTFORML 会話:
CALLF TAG_PRINT(@"@C:{カラー}@「……ああ」「……そうだ」「……いや」@/C@", 1)
PRINTL
PRINTFORML 採集:
CALLF TAG_PRINT(@"@C:{カラー}@「おまえは下がっていろ。……足手まといだ」@/C@", 1)
PRINTL
PRINTFORML 頭を撫でる:
CALLF TAG_PRINT(@"@C:{カラー}@「……良い子だ」@/C@", 1)
PRINTFORML

;;;口上出力前の初期処理。共通処理以外で口上出力前に予め取得しておきたい情報があれば別途ここに記述
@KOJO_XML_INIT_K1120(KOJO_CHARA_ID)
#DIM  KOJO_CHARA_ID
#DIM  CONST OLD_XML_FORMAT = 0  ;基本は0指定。v0.211以前のXML口上フォーマットの場合 1
;出力前の共通初期処理
CALL KOJO_XML_INIT_COMMON_BEFORE_PRINT(KOJO_CHARA_ID)

RETURN OLD_XML_FORMAT

;;;SELECTCOMがどのグループに属するのかを文字列で返す
;;;RESULTSで返却するグループ名のリストは口上シートA列COM|GROUPに指定した名称と一致している必要がある
;;;@args
;;;- KOJO_CHARA_ID 口上参照キャラの登録番号
;;;- PLACE 口上出力箇所 コマンド実行前と後で参照グループを切り替えたいならばこの引数を見る
;;;@returns
;;;- REUSLT:
;;;  - 0 合致グループなし
;;;  - 1 合致グループあり
;;;  - 2 合致グループあり、排他(該当グループ以外に適合する条件の口上があっても該当するグループのみ出力)
;;;- RESULTS: グループ名のリスト
@KOJO_XML_COMGROUP_K1120(KOJO_CHARA_ID, PLACE)
#DIM  KOJO_CHARA_ID
#DIMS PLACE
;口上固有の条件グループはここに定義

;共通のコマンドグループ
CALL KOJO_GET_COMGROUP(KOJO_CHARA_ID, PLACE)

RETURN RESULT


code:
;口上固有の一人称
;元性別を参照して基本の一人称が決まり、現代の性別、体格で表記方法が変わる
@_K1120_FP(CHARA_ID)
#FUNCTIONS
#DIM CHARA_ID
#DIM ORIGINAL_SEX

;TS経験がない場合は元性別が一律ゼロなので、その場合は処理を変える
IF TALENT:(CHARA_ID):元性別 == 0
	ORIGINAL_SEX = TALENT:(CHARA_ID):性別
	ORIGINAL_SEX += 10
	;元性別の値は性別+10なので、それに合わせる
ELSE
	ORIGINAL_SEX = TALENT:(CHARA_ID):元性別
ENDIF

SELECTCASE ORIGINAL_SEX
	;男性の場合は「俺」「オレ」「おれ」のどれかになる
	CASE 10, 13
		;男の娘を男扱いする設定に関係なく、いまの身体が男性とそれ以外で分岐させる
		IF TALENT:(CHARA_ID):性別 == 0 || TALENT:(CHARA_ID):性別 == 3
			IF TALENT:(CHARA_ID):体格 >= 0
				;普通以上の体格の男性の場合は漢字
				RETURNF "俺"
			ELSE
				;小柄以下の体格の男性の場合はカタカナ
				RETURNF "オレ"
			ENDIF
		ELSE
			IF TALENT:(CHARA_ID):体格 >= -1
				;小柄以上の体格の男の娘、あるいは女性の場合はカタカナ
				RETURNF "オレ"
			ELSE
				;子供体格の男の娘、あるいは女性の場合はひらがな
				RETURNF "おれ"
			ENDIF
		ENDIF
	;女性の場合は「私」「わたし」のどちらかになる
	CASE 11, 12
		IF TALENT:(CHARA_ID):性別 == 0 || TALENT:(CHARA_ID):性別 == 3
			IF TALENT:(CHARA_ID):体格 >= -1
				RETURNF "私"
			ELSE
				RETURNF "わたし"
			ENDIF
		ELSE
			IF TALENT:(CHARA_ID):体格 >= 0
				RETURNF "私"
			ELSE
				RETURNF "わたし"
			ENDIF
		ENDIF
	;男の娘の場合は「僕」「ボク」のどちらかになる
	CASE 14, 15
		IF (TALENT:(CHARA_ID):性別 == 0 || TALENT:(CHARA_ID):性別 == 3) && TALENT:(CHARA_ID):体格 >= -1
			RETURNF "僕"
		ELSE
			RETURNF "ボク"
		ENDIF
ENDSELECT

;主人・所有者の奴隷ルートか犬ルートの場合、主人公が首輪類を着けているかの判定
;着けていれば1を返す
@_K1120_COLLAR(CHARA_ID)
#FUNCTION
#DIM CHARA_ID

SIF !KOJO_GET_FLAGINT(CHARA_ID, "K1120_奴隷ルート") && !KOJO_GET_FLAGINT(CHARA_ID, "K1120_犬ルート")
	RETURNF 0

SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 8, 0)
	RETURNF 1
SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 9, 0)
	RETURNF 1
SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 11, 0)
	RETURNF 1
SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 12, 0)
	RETURNF 1

RETURNF 0

;主人・所有者の奴隷ルートか犬ルートの場合、主人公が首輪類を着けていないかの判定
;着けていなければ1を返す
@_K1120_NO_COLLAR(CHARA_ID)
#FUNCTION
#DIM CHARA_ID

SIF !KOJO_GET_FLAGINT(CHARA_ID, "K1120_奴隷ルート") && !KOJO_GET_FLAGINT(CHARA_ID, "K1120_犬ルート")
	RETURNF 0

SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 8, 0)
	RETURNF 0
SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 9, 0)
	RETURNF 0
SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 11, 0)
	RETURNF 0
SIF CLOTH_IS_EQUIP(MASTER, 衣装部位_首, 12, 0)
	RETURNF 0

RETURNF 1


code:
<?xml version="1.0" encoding="utf-8"?>
<data>
  <command com="300" name="会話-朝" kojoPlace="TOP" priority="110" isFall="!LOVER" eval="{HO_OCLOCK() <= 800}" isExclusive="true">
    <contents>「……起きたか」
[$KNAME]はこちらへ視線を向けると、立ち止まった
どうやら、\@IS_MALE(MTAR) ? 彼 # 彼女\@なりの朝の挨拶らしい……</contents>
  </command>
  <command com="300" name="会話-朝恋" kojoPlace="TOP" priority="110" isFall="LOVER" eval="{HO_OCLOCK() <= 800}" isExclusive="true">
    <contents>「……悪くない朝だ」
[$KNAME]はこちらと目を合わせて、ほんの僅か、口元を緩ませた
[$MNAME]でもなければ気付かないその微笑は、\@IS_MALE(MTAR) ? 彼 # 彼女\@なりの朝の挨拶だ</contents>
  </command>
  <command com="300" name="会話-朝主" kojoPlace="TOP" priority="110" isFall="SLAVED_BY" eval="{HO_OCLOCK() <= 800}" isExclusive="true">
    <contents>「……遅いぞ」
不機嫌そうな言葉とは裏腹に、[$KNAME]は目を細めている
[$MNAME]でもなければ気付かないその微笑は、自らのペットへの、\@IS_MALE(MTAR) ? 彼 # 彼女\@なりの朝の挨拶だ</contents>
  </command>
  <command com="300" name="会話-ネガ" kojoPlace="TOP" priority="200" isExclusive="true" emotion="NEGATIVE">
    <contents>「少しでいい、おまえの時間をくれ」
珍しく[$KNAME]は自分からも[$MNAME]へ近付いてくると、そう切り出した
普段よりも強く眉を顰めて、心なしか目付きも鋭く威圧的だ……</contents>
  </command>
  <command com="300" name="会話-ネガ" kojoPlace="BOTTOM" priority="200" isExclusive="true" emotion="NEGATIVE">
    <contents>「……すまないな、つまらない話をした」
\@IS_MALE(MTAR) ? 彼 # 彼女\@なりに、愚痴を聞いてくれた礼を言いたいようだ</contents>
  </command>
  <command com="300" name="会話" kojoPlace="TOP" priority="100">
    <contents>「……おまえか」
[$KNAME]はこちらを一瞥すると、それだけ呟いて目を閉じた
どうやら、[$MNAME]が話を始めるのを待っているらしい</contents>
  </command>
  <command com="300" name="会話" kojoPlace="TOP" priority="100">
    <contents>「……ああ」
「……そうだ」
「……いや」
[$KNAME]は自分から話をすることはないが、[$MNAME]の話には欠かさず相槌を打っている</contents>
  </command>
  <command com="300" name="会話" kojoPlace="TOP" priority="100">
    <contents>「話があるなら、構わない」
[$KNAME]はそれ以上なにも言わず、[$MNAME]を真っ直ぐに見つめてくる
どうやら、[$MNAME]の話を聞きたいのだと誘っているようだ……</contents>
  </command>
  <command com="300" name="会話-春" kojoPlace="TOP" priority="100" eval="{HO_SEASON()==HO_季節_春}">
    <contents>「……。……。……ッ！」
「……なんだ？」
腕組みをしてじっと目を閉じていた[$KNAME]が、突然、目を開いて[$MNAME]を睨む
微かに頬を染めている様子を見ると、どうやら春の陽気に誘われてうたた寝してしまっていたようだ……</contents>
  </command>
  <command com="300" name="会話-夏" kojoPlace="TOP" priority="100" eval="{HO_SEASON()==HO_季節_夏}">
    <contents>「……これを飲め、抵抗するな」
いきなり、[$MNAME]の唇へ[$KNAME]の水筒の口が突っ込まれてきた
流し込まれる液体は無味無臭でサラサラとしている、ただの水のようだ
どうやらこの暑さで熱中症にならないか、心配しての行動らしい……</contents>
  </command>
  <command com="300" name="会話-秋" kojoPlace="TOP" priority="100" eval="{HO_SEASON()==HO_季節_秋}">
    <contents>「……備えておけ」
[$KNAME]が小さなものをこちらの手のひらへと乗せてきた
一粒のどんぐりの実だ
おそらく\@IS_MALE(MTAR) ? 彼 # 彼女\@なりになにかのメッセージを籠めているのだろう……</contents>
  </command>
  <command com="300" name="会話-冬" kojoPlace="TOP" priority="100" eval="{HO_SEASON()==HO_季節_冬}">
    <contents>「手を出せ」
言うやいなや、[$MNAME]が返事をする前に[$KNAME]に手を取られる
まじまじと指先を確認する様子は、どこかホッとしているようにも感じられる……

「……問題ない。だが、油断はするな」
どうやら、寒さであかぎれを起こしていないか心配されたようだ……</contents>
  </command>
  <command com="ANY" name="休憩、待機" kojoPlace="TOP" priority="100" eval="{!RAND:3 && GROUPMATCH(SELECTCOM, 700, 705)}">
    <contents>「……」
[$KNAME]はどこか遠くを見ながら、考え事をしているようだ……</contents>
  </command>
  <command com="ANY" name="休憩、待機" kojoPlace="TOP" priority="100" eval="{!RAND:5 && GROUPMATCH(SELECTCOM, 700, 705) && _K1120_COLLAR([$KC])}">
    <contents>「……命令通り、着けているな」
「良い子だ」
[$KNAME]は[$MNAME]の首輪に指を差し込み、軽く引っ張りながら微笑んでいる……</contents>
  </command>
  <command com="ANY" name="休憩、待機" kojoPlace="TOP" priority="100" eval="{!RAND:5 && GROUPMATCH(SELECTCOM, 700, 705) && _K1120_NO_COLLAR([$KC])}">
    <contents>「……首輪はどうした？」
「時間を見つけて、躾け直さなければならないな」
[$KNAME]は[$MNAME]の首を指先で撫でながら、その目に冷たい怒りを湛えている……</contents>
  </command>
  <command com="704" name="食事" kojoPlace="TOP" priority="100">
    <contents>「……いただく」
背筋を正し、目を閉じて、[$KNAME]は両手を合わせた……</contents>
  </command>
  <command com="706" name="運動" kojoPlace="TOP" priority="100">
    <contents>「……水分補給を忘れるな」
[$KNAME]は小さな水筒を[$MNAME]へ投げて渡してきた……</contents>
  </command>
  <command com="706" name="運動" kojoPlace="TOP" priority="100">
    <contents>「……おまえはもっと体力をつけるべきだな」
[$KNAME]は汗をかきながらも、自身の疲労を一切顔に出していない……</contents>
  </command>
  <command com="706" name="運動" kojoPlace="TOP" priority="50">
    <contents>「……まだ走るぞ」
「もっと速くだ」
「弱音を吐くな。足を動かせ。走り続けろ！」
[$MNAME]と並走しながら、[$KNAME]はなにかのスイッチが入ってしまったようだ……</contents>
  </command>
  <command com="707" name="模擬戦" kojoPlace="BOTTOM" priority="100">
    <contents>「……大丈夫か？」
模擬戦を終えて駆け寄ってきた[$KNAME]は、どこか申し訳ないという表情を浮かべているようだ……</contents>
  </command>
  <command com="707" name="模擬戦" kojoPlace="BOTTOM" priority="20">
    <contents>「……怪我はないか？」
「……痛みは？」
「……脱げ。全てだ。傷を確認する」
模擬戦が終わったあとも、[$KNAME]はなかなか解放してくれない……</contents>
  </command>
  <command com="708" name="入浴" kojoPlace="TOP" priority="100">
    <contents>「……なにを見ている？」
湯船に浸かっている[$KNAME]は、自分の身体を全く隠す気がないようだ……</contents>
  </command>
  <command com="708" name="入浴" kojoPlace="TOP" priority="100">
    <contents>「……フッ」
「おまえの身体は、見ていて飽きないな」
僅かに微笑んだだけの[$KNAME]が、どういう意味でそう言ったのかは推し量れそうにない……</contents>
  </command>
  <command com="354" name="水浴び" kojoPlace="TOP" priority="100">
    <contents>「水場は滑りやすい、足元に気をつけろ」
[$KNAME]は[$MNAME]へ向けて真っ直ぐに腕を伸ばし、手を開いている
転ばないようにと、真顔で手を繋ごうとしているようだ……</contents>
  </command>
  <command com="354" name="水浴び" kojoPlace="TOP" priority="100">
    <contents>「……水浴びなどと、子どもの遊びだな」
「悪くはないが、な」
嘆息する[$KNAME]に油断した隙を突かれて、[$MNAME]は思いきり水を浴びせられてしまった……</contents>
  </command>
  <command com="722" name="勉強" kojoPlace="TOP" priority="100">
    <contents>「……」
「……疲れてはいないか？」
[$KNAME]は黙々と本を読みながらも、ときどき顔をあげて[$MNAME]を気遣ってくる……</contents>
  </command>
  <command com="752" name="クラフト" kojoPlace="TOP" priority="100">
    <contents>「……指示をしろ。作業は%_K1120_FP([$KC])%がやる」
[$MNAME]が刃物や薬品に手を伸ばそうとすると、すかさず[$KNAME]が割り入ってくる……</contents>
  </command>
  <command com="754" name="採集" kojoPlace="TOP" priority="1">
    <contents>「おまえは下がっていろ。……足手まといだ」
[$KNAME]はひとりで作業をしようとしているようだ……</contents>
  </command>
  <command com="754" name="採集" kojoPlace="TOP" priority="1" eval="{C_COND_MAP_GETS([$KC],"設備名") == "薬草群生地"}">
    <contents>「……手袋はしているか？」
「破れてはいないだろうな」
何度も[$MNAME]の手を取って確認してくる[$KNAME]は怪我の心配をしてくれているようだ……</contents>
  </command>
  <command com="754" name="採集" kojoPlace="TOP" priority="1" eval="{C_COND_MAP_GETS([$KC],"設備名") == "伐採場"}">
    <contents>「どけ、邪魔だ」
「……まだ近い。もっと離れていろ」
[$KNAME]は伐っている木の高さの倍以上、[$MNAME]に距離を取らせている……</contents>
  </command>
  <command com="703" name="一緒に遊ぶ" kojoPlace="TOP" priority="100">
    <contents>「……くだらないが、負けるつもりはない」
[$KNAME]は剣を手にしたかのような殺気を放っている……</contents>
  </command>
  <command com="720" name="演奏する" kojoPlace="TOP" priority="100">
    <contents>「……」
無言で頷いた[$KNAME]は、準備万端のようだ……</contents>
  </command>
  <command com="721" name="踊る" kojoPlace="TOP" priority="100">
    <contents>「……」
言葉を発さないまま、[$KNAME]はステップを踏み始めている……</contents>
  </command>
  <command com="320" name="Tｽｷﾝｼｯﾌﾟ" kojoPlace="TOP" priority="100" PLYorTGT="target" isInitiative="false">
    <contents>「……まるで犬だな、おまえは」
眉を顰める[$KNAME]だが、声色は穏やかだ</contents>
  </command>
  <command com="320" name="Tｽｷﾝｼｯﾌﾟ" kojoPlace="TOP" priority="100" PLYorTGT="target" isInitiative="true">
    <contents>「……来い」
[$KNAME]が[$PNAME]の腕を握って、無造作に引き寄せた……</contents>
  </command>
  <command com="320" name="Pｽｷﾝｼｯﾌﾟ" kojoPlace="TOP" priority="100" PLYorTGT="player" isInitiative="true">
    <contents>「……。……フッ」
[$KNAME]は[$TNAME]の頬に手を当てて、慈しむかのように撫でてきた</contents>
  </command>
  <command com="320" name="Rｽｷﾝｼｯﾌﾟ" kojoPlace="TOP" priority="100" eval="{TFLAG:リアクションコマンド実行}" PLYorTGT="player" isInitiative="true">
    <contents>「……調子に乗るなよ」
お返しとばかりに[$TNAME]の身体へ手を伸ばしてきた[$KNAME]は、どこか楽しそうだ……</contents>
  </command>
  <command com="320" name="Rｽｷﾝｼｯﾌﾟ" kojoPlace="TOP" priority="100" eval="{TFLAG:リアクションコマンド実行}" PLYorTGT="player" isInitiative="true">
    <contents>「……おまえはもう少し、躾けてやらないとな」
[$TNAME]を振り払うでもなくやり返してくる[$KNAME]の声は、珍しく弾んでいるように聞こえる……</contents>
  </command>
  <command com="321" name="P頭を撫でる" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>%S_R(@"「……良い子だ」/「……ふっ」/「……どうした、そんな顔をして」")%
[$KNAME]は穏やかな顔で[$TNAME]を眺めている……</contents>
  </command>
  <command com="321" name="T頭を撫でる" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……%_K1120_FP([$KC])%をなんだと思っている？」
不満げな[$KNAME]だが、しかし振り払う様子はない……</contents>
  </command>
  <command com="327" name="P抱き" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……逃げるな」
「おまえの感触を確かめさせろ」
[$KNAME]は[$TNAME]の頭と腰を抱き寄せ、自分の身体に強く押し付ける……</contents>
  </command>
  <command com="327" name="P抱き" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……憶えておけ」
「おまえの居場所はここだ」
[$KNAME]は[$TNAME]の身体にしっかりと腕を回し、身動きできないほど強く抱き締める……</contents>
  </command>
  <command com="327" name="P抱き-汗" kojoPlace="TOP" priority="100" eval="{TCVAR:[$KC]:汗量 >= 3000 && TCVAR:MTAR:汗量 >= 3000}		" PLYorTGT="player">
    <contents>「……汗が気になるか？」
「%_K1120_FP([$KC])%は不快ではない。おまえもそう思え」
汗に塗れた二人の身体が密着してにちゃりと水音を立てる
しかし、[$KNAME]はむしろそれらを溶け合わせるかのように[$TNAME]に身体を擦り付けさせようとしている……</contents>
  </command>
  <command com="327" name="T抱き" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……フッ」
「おまえに甘えられるのは、悪くない気分だ」
心なしか、[$KNAME]は頬を緩めて感触に浸っているようだ……</contents>
  </command>
  <command com="327" name="T抱き" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……仔犬のようだな、おまえは」
[$KNAME]の表情にも声にも、あまり感情は感じられない
しかしその胸に顔を埋めれば、[$PNAME]の耳には強い鼓動が伝わってくる……</contents>
  </command>
  <command com="327" name="T抱き-汗" kojoPlace="MIDDLE" priority="100" eval="{TCVAR:[$KC]:汗量 >= 3000 && TCVAR:MPLY:汗量 >= 3000}		" PLYorTGT="target">
    <contents>「……お互いに、汗が酷いが」
「%_K1120_FP([$KC])%は、おまえの汗の香りは気に入っている。おまえもそうなのか？」
抱き寄せられた[$KNAME]は顔を[$PNAME]の鎖骨に寄せて、そうとわかるように息を吸い込んだ……</contents>
  </command>
  <command com="328" name="P膝枕" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……眠りたければ、眠れ」
[$TNAME]が目を閉じても、瞼越しに[$KNAME]の視線を強く顔に感じる……</contents>
  </command>
  <command com="328" name="T膝枕" kojoPlace="TOP" priority="100" PLYorTGT="target">
    <contents>「……」
「……。……」
「……。……。……」
[$PNAME]の膝に頭を乗せたまま、[$KNAME]は微動だにしない
表情も変えないまま、じっと[$PNAME]の顔を見つめ続けている……</contents>
  </command>
  <command com="341" name="Pソフトキス" kojoPlace="MIDDLE" priority="100" PLYorTGT="player">
    <contents>「ん、む」
「……柔らかいな、おまえの唇は」
触れるだけのキスを終えたあとも、[$KNAME]は[$TNAME]の頬に添えた手を離そうとしない……</contents>
  </command>
  <command com="341" name="Tソフトキス" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……ん」
「どうした、やけに甘えてくるじゃないか」
表情にはあまり出していないが、[$KNAME]の口端は微かに持ち上がっている……</contents>
  </command>
  <command com="325" name="見る-顔失敗" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 == -1 && C_COND_MAP_GETS(MPLY:0, "視線") == "顔"}" PLYorTGT="target">
    <contents>「……なんだ？」</contents>
  </command>
  <command com="325" name="見る-胸失敗" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 == -1 && C_COND_MAP_GETS(MPLY:0, "視線") == "胸"}" PLYorTGT="target">
    <contents>「……」
眉を顰めて身動ぎしながら、[$KNAME]が睨み返してくる……</contents>
  </command>
  <command com="325" name="見る-股失敗" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 == -1 && C_COND_MAP_GETS(MPLY:0, "視線") == "股"}" PLYorTGT="target">
    <contents>「……おい」
鋭く威圧的な視線で、[$KNAME]が睨み返してくる……</contents>
  </command>
  <command com="325" name="見る-尻失敗" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 == -1 && C_COND_MAP_GETS(MPLY:0, "視線") == "尻"}" PLYorTGT="target">
    <contents>「……気付いているぞ」
呆れたような目で、[$KNAME]が睨み返してくる……</contents>
  </command>
  <command com="325" name="見る-顔" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 == 0 && C_COND_MAP_GETS(MPLY:0, "視線") == "顔"}" PLYorTGT="target">
    <contents>「……」
じっと見つめ返してくる[$KNAME]の視線は、普段と比べて穏やかなものだ……</contents>
  </command>
  <command com="325" name="見る-胸" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 >= 0 && C_COND_MAP_GETS(MPLY:0, "視線") == "胸"}" PLYorTGT="target">
    <contents>「……なにが楽しい？」
そう言いながらも、[$KNAME]は誇示するように胸を反らしている……</contents>
  </command>
  <command com="325" name="見る-身体" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 >= 0 && C_COND_MAP_GETS(MPLY:0, "視線") != "顔"}" PLYorTGT="target">
    <contents>「……好きにしろ」
[$KNAME]の声に不快感は籠められていない……</contents>
  </command>
  <command com="325" name="見る-身体" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 >= 0 && C_COND_MAP_GETS(MPLY:0, "視線") != "顔"}" PLYorTGT="target">
    <contents>「……ふん」
顔を逸らす[$KNAME]は、視線に恥じらっているようにも見える……</contents>
  </command>
  <command com="325" name="見る-身体" kojoPlace="MIDDLE" priority="100" eval="{TFLAG:コマンド成否 >= 0 && C_COND_MAP_GETS(MPLY:0, "視線") != "顔"}" PLYorTGT="target">
    <contents>「……おかしなやつだ」
呆れたように嘆息する[$KNAME]だが、視線を咎める気はないようだ……</contents>
  </command>
  <command com="325" name="見る-欲情" kojoPlace="MIDDLE" priority="200" eval="{TFLAG:コマンド成否 >= 0 && IS_ESTRUS([$KC], 7)}" PLYorTGT="target">
    <contents>「……見るという行為は、見られてもいるということだ」
「兎が飢えた狼をただ見つめていればどうなるか、わかっているんだろうな？」
珍しく口数の多い[$KNAME]は、ひどく苛立たしげに[$PNAME]を睨み返してくる……</contents>
  </command>
  <command com="0" name="T愛撫" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……ずいぶんと、物欲しげな手付きだな」
「%_K1120_FP([$KC])%のなにが欲しいのか、言ってみろ」
触れられながらも、[$KNAME]は一見動じることなく身を任せている……</contents>
  </command>
  <command com="0" name="P愛撫" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……%_K1120_FP([$KC])%が触れるたびに、おまえの\@HAS_PENIS(MTAR) ? ここ # 身体\@が跳ねているぞ」
「下品な反応をしている自覚はあるのか？」
[$KNAME]は[$TNAME]の耳を、静かに高揚した声音混じりの吐息でくすぐってくる……</contents>
  </command>
  <command com="1" name="T胸愛撫-小" kojoPlace="MIDDLE" priority="100" eval="{TALENT:[$KC]:バストサイズ <= -1}" isExclusive="true" PLYorTGT="target">
    <contents>「……なにが楽しいのかは知らないが」
「おまえの手のひらを感じるのは、悪くない」
胸板を撫で回されながら、[$KNAME]は落ち着いた様子で微笑んでいる……</contents>
  </command>
  <command com="1" name="T胸愛撫-大" kojoPlace="MIDDLE" priority="100" eval="{TALENT:[$KC]:バストサイズ >= 0}" isExclusive="true" PLYorTGT="target">
    <contents>「……ンッ。……ううん……ふむ……」
「……そんなに揉み回すな。……芯に響く」
豊かな乳房が形を変えると、[$KNAME]は落ち着かない様子で眉根を寄せる……</contents>
  </command>
  <command com="1" name="P胸愛撫-絶" kojoPlace="TOP" priority="100" eval="{TALENT:MTAR:バストサイズ <= -2}" isExclusive="true" PLYorTGT="player">
    <contents>「……毎日こうしていれば、\@IS_MALE(MTAR, 1) ? おまえが男であろうと、 # 少しは\@この胸も育っていくかもしれないな」
「……もしも充分な大きさに育ったら、おまえを雌牛として飼ってやるか？」
[$KNAME]は[$TNAME]の胸を両手で覆い、まるで膨らみがあるかのように柔らかく揉み込んでくる……</contents>
  </command>
  <command com="1" name="P胸愛撫-貧" kojoPlace="TOP" priority="100" eval="{TALENT:MTAR:バストサイズ == -1}" isExclusive="true" PLYorTGT="player">
    <contents>「……大きくはないが、悪くない感触だ」
「おまえの、その声もだ……悪くない」
[$TNAME]のわずかな膨らみを、[$KNAME]は丁寧に調理するように捏ね回してくる……

[$TNAME]が少しでも痛みを感じそうになれば、すぐに力を弱めて捏ね方を変える
かすかな声音の変化で、[$TNAME]の感覚を見透かしているようだ……</contents>
  </command>
  <command com="1" name="P胸愛撫-普" kojoPlace="TOP" priority="100" eval="{TALENT:MTAR:バストサイズ == 0 && TALENT:MTAR:バストサイズ == 1}" isExclusive="true" PLYorTGT="player">
    <contents>「……見下ろして、自分の胸を見てみろ」
「おまえのここが誰に支配されているか、しっかりと見ておけ」
[$KNAME]の指が沈み込む乳房が、柔軟なボールのようにゆっくりと形を変えられていく……

「……自分の胸を見下ろすたびに、この光景を思い出せ」
乳輪の縁を探るように、[$KNAME]の指先が乳肌に触れたままくるりと円を描いた……</contents>
  </command>
  <command com="1" name="P胸愛撫-爆" kojoPlace="TOP" priority="100" eval="{TALENT:MTAR:バストサイズ >= 2}" isExclusive="true" PLYorTGT="player">
    <contents>「……%_K1120_FP([$KC])%の手にも余るな、おまえのここは」
「雌牛のような……いや、雌牛そのものだな、おまえは」
揶揄しているような言葉でありながら、[$KNAME]の声はどこか優しげだ……

「心地良いならば遠慮なく鳴け。……頭の中まで、ケモノに堕ちろ」
囁きながら、[$TNAME]のあまりにも豊満な乳房を揉みしだき、そうかと思えば乳輪周りをくすぐってくる……</contents>
  </command>
  <command com="4" name="T A愛撫♂" kojoPlace="MIDDLE" priority="100" eval="{IS_MALE([$KC])}" isExclusive="true" PLYorTGT="target">
    <contents>「クッ……なにを……どこを触っている？」
[$KNAME]は不快そうに腰を逃がしながら、[$PNAME]を睨んでいる……</contents>
  </command>
  <command com="4" name="T A愛撫♀" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……ッ！？　ク……ハァ、ぐっ……！」
「おまえにそこを、そうされると……妙な気分、だ……ッ！」
ひっきりなしに尻穴をひくつかせながら、抑えきれないかのように[$KNAME]の声は跳ねている……
普段の[$KNAME]からは考えられないような、艶めかしい声音だ……</contents>
  </command>
  <command com="4" name="P A愛撫V無" kojoPlace="TOP" priority="100" eval="{!HAS_VAGINA(MTAR)}" isExclusive="true" PLYorTGT="player">
    <contents>「……じっとしていろ。フッ……そうひくつかせるな」
「根本まで挿入れた……苦しいか？　次は抜く、息を吐け……」
[$KNAME]は慎重かつ、やや強引に、[$TNAME]の尻穴を穿り続けている……</contents>
  </command>
  <command com="4" name="P A愛撫V無" kojoPlace="TOP" priority="100" eval="{!HAS_VAGINA(MTAR)}" isExclusive="true" PLYorTGT="player">
    <contents>「……ここはおまえが%_K1120_FP([$KC])%\@HAS_PENIS(MPLY) ? に抱かれるための # を楽しませるための\@雌穴だ」
「繰り返せ、頭の中で。……何度もだ」
まるで催眠術にかけようとでもしているように、[$KNAME]は手を止めないまま囁いてくる……</contents>
  </command>
  <command com="4" name="P A愛撫V有" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……フッ、尻の穴どころか、雌穴までひくついているぞ」
「品のない玩具のようだな、おまえの身体は」
[$KNAME]は呆れたように笑いながら、手を動かして腸壁を抉るポイントを変えていく……
そのたびに喘ぐように開閉する秘部の様子を楽しまれているようだ……</contents>
  </command>
  <command com="9" name="P乳首吸い" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……はぁ、んむ……ぢゅろ……」
「膨らんで、濃くなっているな……見てみろ」
[$TNAME]の乳首を舌先で転がし、吸う合間に、自分でもそこを見るように促してきた
ぷっくりと充血した乳輪とその先端は唾液に濡れ、[$KNAME]の舌先と銀の糸で繋がっている……</contents>
  </command>
  <command com="10" name="T手コキ" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……悪く、ない」
「そのまま、続けろ」
時折、[$PNAME]の手の中で、%BAR_NAME([$KC])%がビクリと震える
ニチャニチャと水音を立てる先走りの量は、[$KNAME]本人とは違い、雄弁に快感の程度を物語っている……</contents>
  </command>
  <command com="10" name="P手コキ" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……なんだ、そのだらしない顔は？」
「%_K1120_FP([$KC])%になにをされてそんな声を出している？　言ってみろ……」
[$TNAME]の%BAR_NAME(MTAR)%を擦っていた手が、ピタリと止まる
焦燥に耐えかねた[$TNAME]が淫らな言葉を口にするまで、意地の悪い焦らしは続いた……</contents>
  </command>
  <command com="20" name="Tキス" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「ん、む……もっと、舌を伸ばせ……」
「そうだ……ンッ」
目を閉じて[$PNAME]の舌を受け入れた[$KNAME]は、自らの口腔奥へと招き入れる
二枚の舌が絡み合いながら、互いの唾液が混ぜ合わされていく……

「じゅぷ……フッ……」
そうしてわずかに鼻で笑うと、撹拌された唾液を[$PNAME]の口内に流し込んできた
目を白黒させて必死に嚥下する様を、楽しんでいるようだ……</contents>
  </command>
  <command com="20" name="Pキス" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……口を開けろ」
[$TNAME]の顎を指で掴んだ[$KNAME]が、強引にその口を塞いだ
心構えをする暇もなく、[$TNAME]は頬裏や舌先をくすぐられるままになっている……</contents>
  </command>
  <command com="24" name="T指舐め" kojoPlace="TOP" priority="100" PLYorTGT="target">
    <contents>「……そうだ、丁寧に舐めろ」
[$PNAME]の口腔を出入りする指が、舌を擦り、頬裏を撫で、口蓋をくすぐる
じゅぽじゅぽと水音を立てて注挿されると、溢れた唾液が胸元にまで滴り落ちた……</contents>
  </command>
  <command com="27" name="P乳首責め" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……おまえはこんなところまで、無防備だな」
「それともこうして貰いたくて、勃たせているのか？」
[$TNAME]の乳頭が、無遠慮に指先で弾かれた
衝撃に背を仰け反らせる様子を見て楽しんでいるようだ……</contents>
  </command>
  <command com="81" name="P尻を叩く" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……%_K1120_FP([$KC])%に背を向けて、尻を上げろ」
「お仕置きだ、いくぞ」
言うが早いか、[$TNAME]の尻房に全く容赦のない平手が打ち付けられた
思わず逃げようとすれば、普段の[$KNAME]からは考えられないほど強い叱責が飛んでくる

「逃げるな！」
「もっと尻を上げろ……まだだ」
[$TNAME]のプライドを削ぎ取るように無様な姿勢を要求しては、赤い手形を刻み続ける……</contents>
  </command>
  <command com="81" name="P尻を叩く" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……おまえにはまだ躾けが必要だな」
「尻を向けろ」
[$TNAME]が身構えるよりも一瞬早く、音高い打擲が尻肉を打ち鳴らした
目眩がするほどの強烈な痛みと屈辱が、反抗する気力の一切を奪っていく……

「反省したならば許しを乞え」
「……気が向いたら、終わらせてやる」
[$TNAME]がどれだけ涙を零しても、じんじんと疼く尻肉の痛みは増えるばかりだ……</contents>
  </command>
  <command com="ORAL" name="T口淫" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……ッ！　――ッ！」
「……ずいぶんと、熱心に舐めるじゃないか」
何かを堪えるように眉根を寄せながらも、合間に話し掛けてくる[$KNAME]の声の抑揚は普段と変わらない
股間に顔を埋めて奉仕する[$PNAME]をじっと眺めている……

「……まるで好物に飛びつく仔犬だな」
揶揄とも取れるその声にも、感情はほとんど表れていない
しかし、[$PNAME]の口腔内を埋める肉棒は快感に震え、先走り汁を注ぎ続けている……</contents>
  </command>
  <command com="ORAL" name="P口淫" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……じっとしていろ」
「ン……む。あむ……じゅぷ……ン、ふぅ……」
ねっとりとした唾液が糸を引く様を見せつけるように口を開いた[$KNAME]が、[$TNAME]の股間に顔を埋めた
生暖かく濡れた感触が[$TNAME]を包み込み、吸引まで織り交ぜてくる……

「じゅぽっ……じゅずずずぶっ……！」
「……フッ、この程度で音を上げるのか？」
一度口腔から解放したそれを、濡れた舌で見せつけるように舐め上げながら、妖艶な笑みで[$TNAME]を挑発している……</contents>
  </command>
  <command com="VSEX" name="T V性交" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……ッ！　……クッ……ッ！」
[$KNAME]は声を殺しているが、その顔はあきらかに紅潮している
そんな様子を[$PNAME]に知られたことに気付いたのか、喉を詰まらせるように笑う

「……この程度で%_K1120_FP([$KC])%を鳴かせられるとでも思ったか？」
「調子に乗っているならば……ッ」
途端に、[$PNAME]のそれがぎゅうと締め付けられる
ひくひくと震える肉襞は[$KNAME]の意識した動きなのか、それとも言葉ほどは\@IS_MALE([$KC]) ? 彼 # 彼女\@にも余裕がないのか……</contents>
  </command>
  <command com="VSEX" name="P V性交" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「ン……いいぞ、受け入れろ……」
「……悪くない気分だ」
根本まで挿入して息をついた[$KNAME]は、高揚を隠していない

「……思うままに鳴け」
「そうすれば、%_K1120_FP([$KC])%の子を孕ませてやる」
突き上げる場所を変えては、[$TNAME]の反応を楽しんでいるようだ……</contents>
  </command>
  <command com="ASEX" name="T A性交" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……ウッ、グ……おまえ、そこは……」
「憶えて……おけよ……ッ！」
突き上げられるたびに、[$KNAME]は珍しく怒りを隠さない声を途切れ途切れに漏らしている……</contents>
  </command>
  <command com="ASEX" name="P A性交" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「息をついて、力を抜け」
「……ここでの快感を、刻み込んでやる」
その言葉通り、腸壁を突き上げる[$KNAME]の腰使いはひどく執拗だ……

「……おまえは、\@IS_MALE(MTAR, 1) ? こうして犯されなければ満足できない # 尻穴でも悶えるような恥知らずな\@雌だ」
「それを忘れるな」
注挿を繰り返しながら、まるで[$TNAME]に暗示をかけようとしているかのように何度も囁く……</contents>
  </command>
  <command com="120" name="T自慰" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「……まったく、下品な\@HAS_PENIS(MTAR) ? 雌犬 # 犬\@だな」
自らを慰めている[$PNAME]を冷ややかに眺める[$KNAME]は、しかし喉を鳴らして笑っている……</contents>
  </command>
  <command com="120" name="T自慰" kojoPlace="MIDDLE" priority="100" PLYorTGT="target">
    <contents>「なにを考えながら、そうしている？　口に出してみろ」
[$KNAME]は意地の悪い微妙を浮かべている……</contents>
  </command>
  <command com="120" name="P自慰" kojoPlace="MIDDLE" priority="100" PLYorTGT="player">
    <contents>「……どうした？　見ているだけでは我慢ができないか？」
自らを慰めながらも、むしろ[$TNAME]を試しているかのように[$KNAME]は落ち着いている……</contents>
  </command>
  <command com="ANY" name="T射精" kojoPlace="BOTTOM" priority="100" eval="{NOW_BUKKAKED([$KC]) >= 0}">
    <contents>「フッ……ずいぶんと、出したじゃないか」
[$KNAME]の声は心なしか上擦っているようだ……</contents>
  </command>
  <command com="ANY" name="T射精" kojoPlace="BOTTOM" priority="100" eval="{NOW_BUKKAKED([$KC]) >= 0}">
    <contents>「……おまえはこの程度の我慢もできないのか？」
「これでは発情した獣となにが違う？」
[$KNAME]は堪えきれずに射精した[$PNAME]を責めて、楽しんでいるようだ……</contents>
  </command>
  <command com="ANY" name="P射精" kojoPlace="BOTTOM" priority="100" eval="{NOW_BUKKAKED(MTAR) >= 0}">
    <contents>「クッ……出すぞ」
痛みを耐えるような顔と声で、[$KNAME]は腰を震わせている……</contents>
  </command>
  <command com="ANY" name="P射精" kojoPlace="BOTTOM" priority="100" eval="{NOW_BUKKAKED(MTAR) >= 0}">
    <contents>「……ッ！」
腰を突き出して、[$KNAME]は勢い良く精を吐き出し続けている……</contents>
  </command>
  <command com="853" name="P脱衣" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「……動くな。抵抗もするな」
有無を言わさず、[$KNAME]が[$TNAME]の服を脱がしていく
その手は苛立たしげで、少し乱暴なものだ……</contents>
  </command>
  <command com="853" name="P脱衣" kojoPlace="TOP" priority="100" PLYorTGT="player">
    <contents>「おまえの肌を見せろ。……もっとだ」
[$TNAME]の耳に吐息を囁きながら、[$KNAME]はなめらかにそれを剥ぎ取っていく……</contents>
  </command>
</data>


code:
<?xml version="1.0" encoding="utf-8"?>
<data>
  <command eventId="300" name="同行に誘う" priority="100">
    <contents>「……おまえの行きたいところへ行け」
[$KNAME]は、行き先は任せると言いたいようだ……</contents>
  </command>
  <command eventId="320" name="押し倒す" priority="100">
    <contents>「……ただ転んだ、というわけではなさそうだな」
「いや……どちらでもいい」
押し倒されたにも関わらず、[$KNAME]は逆に[$MNAME]の腕をしっかりと掴んできた

「……逃げるなよ」
にやりと笑う[$KNAME]の瞳の奥が、ギラリと光ったような気がした……</contents>
  </command>
  <command eventId="321" name="誘い受け" priority="100">
    <contents>「……クッ、おまえというやつは」
珍しく声を荒げた[$KNAME]に、突然、勢い良く押し倒された！

「……その無防備さ、いい加減、不愉快だ」
「%_K1120_FP([$KC])%を苛立たせたことを後悔させてやろう」
その顔にうっすらと浮かぶ微笑は、凶暴な嗜虐に染まって見える……</contents>
  </command>
</data>


code:
攻め口上を主にした、表向きの態度は冷たくて口数が少ない、強引系をイメージしたキャラの口上です
クールとも少し違う、主人公への好意が強めなところがあるので冷然風味とさせて頂きました
元性別で基本的な一人称が変わり、現性別や体格で漢字カナひらがなが変わります
攻め青年、攻め男の娘、攻めお姉さんに使用できるかと思います

ライセンスに特に拘りはありません
口上の追加などは自由にしてくださって結構です
ただ、既に書かれている部分の削除、修正はご遠慮頂けると助かります
この口上を元にして別の口上を作るのも、全然問題ありません

まだまだ未完成ですが気力のあるときに追加していければ……
攻め役口上がこれを機に増えたらいいなあと思いつつ、現時点で発表させて頂きます
……自分の書いた口上使ったり発表するのちょっと恥ずかしくてですね

また、今回の口上デイリー作成にあたってはkom1様が汎用口上デイリーのためのシステム、また、着用中の衣装をチェックするシステムを新たに作ってくださいました
深く感謝を
そして、そのときに頂いた汎用口上デイリー用関数が詰まったテスト用ファイルを、DAILYフォルダの中に同梱させて頂いています
他の汎用口上デイリーを作る方にも助けになりますように

・更新履歴
2024/10/17 発表


code:
;-------------------------------------------------
; @FL_INIT_LOADER から呼ばれる口上初期読み込み
;-------------------------------------------------
@KOJO_DEFINE_K1130
#DIMS CONST XML_PATH_COM = "ERB/口上/1130_汎用_明るいボクっ娘/KOJO_K1130_COM.xml"
#DIMS CONST XML_PATH_EVENT = "ERB/口上/1130_汎用_明るいボクっ娘/KOJO_K1130_EVENT.xml"
#DIMS CONST XML_PATH_COMBAT = "ERB/口上/1130_汎用_明るいボクっ娘/KOJO_K1130_COMBAT.xml"
#DIM CONST 汎用口上番号 = 1130

CALL KOJO_XML_REGISTER(XML_PATH_COM, 汎用口上番号, XMLID_KOJO_CLASS_COM)
CALL KOJO_XML_REGISTER(XML_PATH_EVENT, 汎用口上番号, XMLID_KOJO_CLASS_EVENT)
CALL KOJO_XML_REGISTER(XML_PATH_COMBAT, 汎用口上番号, XMLID_KOJO_CLASS_COMBAT)
RETURN 1

;口上選択画面の表示名
@KOJO_DEFINE_NAME_K1130
RESULTS '= "汎用口上_明るいボクっ娘"
RETURN 1

;口上選択画面で表示する口上情報、サンプル
@KOJO_DEFINE_KOJO_INFO_K1130(CHARA_ID)
#DIM CHARA_ID
#DIM カラー
カラー = CFLAG:CHARA_ID:口上カラーコード

CALLF TAG_PRINT(@"@C:{カラー_注釈}@◇　口上の特徴　◇@/C@", 1)
PRINTFORML 明るいボクっ娘
PRINTL
CALLF TAG_PRINT(@"@C:{カラー_注釈}@◇　サンプル　◇@/C@", 1)
PRINTFORML 会話:
CALLF TAG_PRINT(@"@C:{カラー}@「なぁに？ボクに何か用？」@/C@", 1)
PRINTL
PRINTFORML 入浴:
CALLF TAG_PRINT(@"@C:{カラー}@「一緒に入るの？まぁいいけど……変な目で見ないでよー？」@/C@", 1)
PRINTL
PRINTFORML 抱きしめる:
CALLF TAG_PRINT(@"@C:{カラー}@「%CALLNAME:MASTER%も甘えたくなるんだねぇ……仕方ないなぁ♪ほら、ぎゅー……♥」@/C@", 1)
PRINTFORML

;口上出力前の初期処理。共通処理以外で口上出力前に予め取得しておきたい情報があれば別途ここに記述
@KOJO_XML_INIT_K1130(KOJO_CHARA_ID)
#DIM  KOJO_CHARA_ID
#DIM  CONST OLD_XML_FORMAT = 0  ;基本は0指定。v0.211以前のXML口上フォーマットの場合 1
;出力前の共通初期処理
CALL KOJO_XML_INIT_COMMON_BEFORE_PRINT(KOJO_CHARA_ID)

RETURN OLD_XML_FORMAT

;-------------------------------------------------
; SELECTCOMがどのグループに属するのかを文字列で返す
; RESULTSで返却するグループ名のリストは口上シートA列COM|GROUPに指定した名称と一致している必要がある
; KOJO_CHARA_ID 口上参照キャラの登録番号
; PLACE 口上出力箇所 コマンド実行前と後で参照グループを切り替えたいならばこの引数を見る
; REUSLT = 0 合致グループなし
; REUSLT = 1 合致グループあり
; REUSLT = 2 合致グループあり、排他(該当グループ以外に適合する条件の口上があっても該当するグループのみ出力)
; RESULTS: グループ名のリスト
;-------------------------------------------------
@KOJO_XML_COMGROUP_K1130(KOJO_CHARA_ID, PLACE)
#DIM  KOJO_CHARA_ID
#DIMS PLACE
;口上固有の条件グループはここに定義

;共通のコマンドグループ
CALL KOJO_GET_COMGROUP(KOJO_CHARA_ID, PLACE)

RETURN RESULT