code:
;-------------------------------------------------
;共通で発生させる地の文
;-------------------------------------------------
@KOJO_EVENT_DEFAULT(ARG)
#DIM DYNAMIC ルーム有無判定

;-------------------------------------------------
;ファーストキス
;-------------------------------------------------
IF ARG == 1

	;-------------------------------------------------
	;告白成功
	;-------------------------------------------------
ELSEIF ARG == 2
	PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%に自分の思いを告げた

	IF IS_SAMESEX(MASTER, TARGET) && !TALENT:両刀
		PRINTFORMW %ANAME(MASTER)%を恋愛の対象として見ていなかった%ANAME(TARGET)%は突然の告白に驚いているようだ…
		PRINTFORMW 少し戸惑いながらも、%ANAME(TARGET)%は%ANAME(MASTER)%の思いを受け入れた
	ELSEIF GET_INITIATIVE_RATE(TARGET) <= 0
		PRINTFORMW ……%ANAME(TARGET)%は、笑顔でその思いを受け入れた
	ELSE
		PRINTFORMW ……%ANAME(TARGET)%は、少し顔を赤くしながらその思いを受け入れた
	ENDIF

	IF TALENT:キス未経験 && !TALENT:TARGET:霊体 && !TALENT:MASTER:霊体
		PRINTFORMW 恋人となった%ANAME(MASTER)%と%ANAME(TARGET)%は、長く、熱い口づけを交わした
	ENDIF

	;-------------------------------------------------
	;告白失敗
	;-------------------------------------------------
ELSEIF ARG == 3
	PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%に自分の思いを告げた

	IF IS_SAMESEX(MASTER, TARGET) && !TALENT:両刀
		PRINTFORMW %ANAME(MASTER)%を恋愛の対象として見ていなかった%ANAME(TARGET)%は突然の告白に驚いているようだ…
		PRINTFORMW 結局ただの冗談だと思われて、軽くあしらわれてしまった
	ELSEIF GET_INITIATIVE_RATE(TARGET) <= 0
		IF TALENT:恋慕
			PRINTFORMW ……%ANAME(TARGET)%は顔を真っ赤にして逃げ出してしまった
		ELSE
			PRINTFORMW ……%ANAME(TARGET)%は困ったような表情を浮かべると、遠回しに拒絶の意思を伝えてきた
		ENDIF
	ELSE
		IF TALENT:恋慕
			PRINTFORMW ……%ANAME(TARGET)%は顔を真っ赤にして慌てながら拒否した
		ELSE
			PRINTFORMW ……%ANAME(TARGET)%にきっぱりと断られてしまった
		ENDIF
	ENDIF

	;-------------------------------------------------
	;押し倒し成功(合意は得られない)
	;-------------------------------------------------
ELSEIF ARG == 4
	IF ABL:性知識 == 0
		PRINTFORML 服に手を掛けると、%ANAME(TARGET)%は不思議そうな顔をした
		PRINTFORMW どうやら、これから何をするかよくわかっていないようだ…
	ELSE
		PRINTFORMW すっかり酔いの回った%ANAME(TARGET)%は、服に手をかけられても抵抗せずなすがままだ…
	ENDIF

	;-------------------------------------------------
	;押し倒し成功(合意を取得)
	;-------------------------------------------------
ELSEIF ARG == 5
	IF ABL:性知識 == 0
		PRINTFORML %ANAME(TARGET)%の服に手を掛けると、%ANAME(TARGET)%は不思議そうな顔をした
		PRINTFORMW どうやら、これから何をするかよくわかっていないようだ…
	ELSEIF TALENT:ツンデレ
		PRINTFORML 服を脱がせようとすると、%ANAME(TARGET)%は激しく罵ってきた
		PRINTFORMW ……だが、抵抗する気はないようだ
	ELSEIF TALENT:貞操観念
		PRINTFORML 服を脱がせようとすると、%ANAME(TARGET)%は素直に受け入れながらも
		PRINTFORMW 責任を取ってくれるよう迫っている
	ELSE
		PRINTFORMW 服を脱がせようとすると、%ANAME(TARGET)%は素直に受け入れた
	ENDIF

	;-------------------------------------------------
	;押し倒し失敗
	;-------------------------------------------------
ELSEIF ARG == 6
	IF TALENT:合意
		PRINTFORMW 服を脱がせようとすると、%ANAME(TARGET)%は今はそんな気分ではないと言って断った
	ELSE
		PRINTFORMW 服を脱がせようとすると、%ANAME(TARGET)%は激しく抵抗した
	ENDIF

	;-------------------------------------------------
	;押し倒し成功(既に合意あり)
	;-------------------------------------------------
ELSEIF ARG == 7
	;-------------------------------------------------
	;押し倒し成功(睡眠中)
	;-------------------------------------------------
ELSEIF ARG == 8

	;-------------------------------------------------
	;真名を許すイベント
	;-------------------------------------------------
ELSEIF ARG == 10
	;睡姦を行った場合
	IF TFLAG:睡姦中フラグ
		PRINTFORMW どうやら%NAME%は%ANAME(MASTER)%が介抱してくれたと思い込んでいるらしく、%ANAME(MASTER)%に感謝の言葉を述べた
		PRINTFORMW %NAME%は%ANAME(MASTER)%に対し、これからは真名の%CALLNAME%で呼ぶように言った
	ELSE
		PRINTFORMW どうやら十分に%NAME%の信頼を得たようだ…
		PRINTFORMW %NAME%は%ANAME(MASTER)%に対し、これからは真名の%CALLNAME%で呼ぶように言った
	ENDIF

	;-------------------------------------------------
	;怒りの限界で追い返される
	;-------------------------------------------------
ELSEIF ARG == 13
	IF FLAG:ウフフフラグ || ABL:身体 < 60
		PRINTFORML %ANAME(TARGET)%は激しい剣幕で怒鳴りながら\@ FLAG:調教モード != 調教_捕虜調教 ? %ANAME(MASTER)%を追い返した… # 帰っていった… \@
	ELSE
		PRINTFORML %ANAME(TARGET)%は激高して%ANAME(MASTER)%に斬り掛かってきた…
	ENDIF

	;-------------------------------------------------
	;哀しみの限界で追い返される
	;-------------------------------------------------
ELSEIF ARG == 14
	PRINTFORML %ANAME(TARGET)%は一人にして欲しいと言って%ANAME(MASTER)%を追い返した…

	;-------------------------------------------------
	;怒りの限界で勝手に帰る
	;-------------------------------------------------
ELSEIF ARG == 15
	PRINTFORML %ANAME(TARGET)%は怒って帰ってしまった…

	;-------------------------------------------------
	;哀しみの限界で勝手に帰る
	;-------------------------------------------------
ELSEIF ARG == 16
	PRINTFORML %ANAME(TARGET)%はその場から走り去って帰ってしまった…

	;-------------------------------------------------
	;行動終了時に向こうからキス
	;-------------------------------------------------
ELSEIF ARG == 20
	PRINTFORMW %ANAME(MASTER)%が帰ろうとすると、突然%ANAME(TARGET)%に呼び止められた
	IF GROUPMATCH(TALENT:性別, 0, 3)
		IF TALENT:小悪魔
			PRINTFORMW 振り返ってみると、その途端、%ANAME(TARGET)%は強引に%ANAME(MASTER)%の唇を奪った
			PRINTFORMW 唇を離すと、%ANAME(TARGET)%は何事もなかったかのように%ANAME(MASTER)%の手を取って歩き始めた…
			PRINTL
		ELSEIF TALENT:ツンデレ
			PRINTFORMW 振り返ってみると、その途端、%ANAME(TARGET)%は強引に%ANAME(MASTER)%の唇を奪った
			PRINTFORMW 唇を離すと、%ANAME(TARGET)%は勘違いするなと言って、露骨に不機嫌そうな様子で顔を背けた…
			PRINTL
		ELSE
			PRINTFORMW 振り返ってみると、そこには緊張した面持ちの%ANAME(TARGET)%が立っていた
			IF GET_INITIATIVE_RATE(TARGET) <= 0
				PRINTFORMW %ANAME(TARGET)%はそっと%ANAME(MASTER)%を抱きしめ、ぎこちない動きで口づけた
				PRINTL
			ELSE
				PRINTFORMW %ANAME(TARGET)%は強引に%ANAME(MASTER)%を抱きしめると、少し乱暴に口づけてきた
				PRINTL
			ENDIF
		ENDIF
	ELSE
		IF TALENT:小悪魔
			PRINTFORMW 振り返ってみると、その途端、%ANAME(TARGET)%が抱きついてきて%ANAME(MASTER)%の唇を奪った
			PRINTFORMW 唇を離すと、%ANAME(TARGET)%はイタズラっぽく%ANAME(MASTER)%に微笑んだ…
			PRINTL
		ELSEIF TALENT:ツンデレ
			PRINTFORMW 振り返ってみると、その途端、%ANAME(TARGET)%は強引に%ANAME(MASTER)%の唇を奪った
			PRINTFORMW 唇を離すと、%ANAME(TARGET)%は勘違いするなと言って、露骨に不機嫌そうな様子で顔を背けた…
			PRINTL
		ELSE
			PRINTFORMW 振り返ってみると、そこには顔を真っ赤にした%ANAME(TARGET)%が俯いて立っていた
			IF GET_INITIATIVE_RATE(TARGET) <= 0
				PRINTFORMW %ANAME(TARGET)%は、ゆっくりと近付いてきて、そっと%ANAME(MASTER)%に口づけた
				PRINTL
			ELSE
				PRINTFORMW %ANAME(TARGET)%は、%ANAME(MASTER)%を近くに呼びつけると、少し乱暴に口づけてきた
				PRINTL
			ENDIF
		ENDIF
	ENDIF

	;-------------------------------------------------
	;行動終了時に向こうから告白
	;キス未経験の場合、このタイミングで一緒にファーストキスもする
	;-------------------------------------------------
ELSEIF ARG == 21
	PRINTFORMW %ANAME(MASTER)%が帰ろうとすると、突然%ANAME(TARGET)%に呼び止められた
	;一回目
	IF CFLAG:44 == 0
		PRINTFORMW 振り返ってみると、そこには顔を真っ赤にした%ANAME(TARGET)%が俯いて立っていた
		IF GET_INITIATIVE_RATE(TARGET) <= 0
			PRINTFORMW そして%ANAME(TARGET)%は、恥ずかしがりながら、%ANAME(MASTER)%の事が好きだと伝えてきた
			PRINTL
		ELSE
			PRINTFORMW そして%ANAME(TARGET)%は、少し乱暴な口調で、%ANAME(MASTER)%の事が好きだと伝えてきた
			PRINTL
		ENDIF
		;二回目以降
	ELSE
		IF GET_INITIATIVE_RATE(TARGET) <= 0
			PRINTFORMW %ANAME(TARGET)%は真剣な表情で、再び%ANAME(MASTER)%に想いを伝えてきた
			PRINTL
		ELSE
			PRINTFORMW %ANAME(TARGET)%は、いい加減に想いを受け入れて欲しいと%ANAME(MASTER)%に迫った
			PRINTL
		ENDIF
	ENDIF

	CALL ASK_YN("受け入れる", "断る")

	IF RESULT == 0
		IF TALENT:TARGET:霊体 || TALENT:MASTER:霊体
			PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%の想いを受け入れると、%ANAME(TARGET)%は嬉しそうに%ANAME(MASTER)%を見つめ、感謝の言葉を伝えた
		ELSEIF GROUPMATCH(TALENT:性別, 0, 3)
			PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%の想いを受け入れると、%ANAME(TARGET)%は嬉しそうに%ANAME(MASTER)%を抱きしめてきた
		ELSE
			PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%の想いを受け入れると、%ANAME(TARGET)%は嬉しそうに%ANAME(MASTER)%に抱きついてきた
		ENDIF
		IF !TALENT:TARGET:霊体 && !TALENT:MASTER:霊体
			PRINTFORMW 恋人となった%ANAME(MASTER)%と%ANAME(TARGET)%は、長く、熱い口づけを交わした
		ENDIF
		PRINTL
		;告白成功時はTFLAG:告白成功に1を代入
		TFLAG:告白成功 = 1

	ELSE
		PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%の告白を断った……
		PRINTL
		;告白成功時はTFLAG:告白成功に0を代入
		TFLAG:告白成功 = 0
	ENDIF

	;-------------------------------------------------
	;相手から押し倒される(合意なし)
	;-------------------------------------------------
ELSEIF ARG == 22
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとして振り返ると、突然%ANAME(TARGET)%に押し倒されてしまった
	PRINTFORMW 焦る%ANAME(MASTER)%の服を%ANAME(TARGET)%は上気した顔で次々と脱がしていく…
	PRINTFORMW そして完全に%ANAME(MASTER)%の服を脱がした%ANAME(TARGET)%は、自らも一糸纏わぬ姿になった
	PRINTFORMW ……どうやらこれは覚悟を決めねばならないようだ

	;-------------------------------------------------
	;相手から押し倒される(合意なし＆酔った勢い)
	;-------------------------------------------------
ELSEIF ARG == 23
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとして振り返ると、突然%ANAME(TARGET)%に押し倒されてしまった
	PRINTFORMW 焦る%ANAME(MASTER)%の服を%ANAME(TARGET)%は上気した顔で次々と脱がしていく…
	PRINTFORMW そして完全に%ANAME(MASTER)%の服を脱がした%ANAME(TARGET)%は、自らも一糸纏わぬ姿になった
	PRINTFORMW ……どうやら%ANAME(TARGET)%はかなり酔っているようだ
	PRINTFORMW ここは覚悟を決めるしかないだろう

	;-------------------------------------------------
	;相手から押し倒される(合意あり)
	;-------------------------------------------------
ELSEIF ARG == 24
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとすると、%ANAME(TARGET)%に強引に押し倒されてしまった…

	;-------------------------------------------------
	;相手から押し倒される(合意あり＆酔った勢い)
	;-------------------------------------------------
ELSEIF ARG == 25
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとすると、酔った%ANAME(TARGET)%に強引に押し倒されてしまった…

	;-------------------------------------------------
	;相手からおねだりされる(合意なし)
	;-------------------------------------------------
ELSEIF ARG == 26
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとすると、%ANAME(TARGET)%に引き止められた
	IF TALENT:ツンデレ
		PRINTFORMW %ANAME(TARGET)%は視線を彷徨わせながら、%ANAME(MASTER)%に自分を抱けと要求した…
	ELSE
		PRINTFORMW %ANAME(TARGET)%は熱を帯びた瞳で%ANAME(MASTER)%を見つめながら、%ANAME(MASTER)%に抱いて欲しいとねだった…
	ENDIF

	;-------------------------------------------------
	;相手からおねだりされる(合意なし＆酔った勢い)
	;-------------------------------------------------
ELSEIF ARG == 27
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとすると、%ANAME(TARGET)%に引き止められた
	PRINTFORMW かなり酔った様子の%ANAME(TARGET)%は、熱を帯びた瞳で%ANAME(MASTER)%を見つめながら、%ANAME(MASTER)%に抱いて欲しいとねだった…

	;-------------------------------------------------
	;相手からおねだりされる(合意あり)
	;-------------------------------------------------
ELSEIF ARG == 28
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%と一旦別れようとすると、%ANAME(TARGET)%は%ANAME(MASTER)%に抱いて欲しいとねだってきた

	;-------------------------------------------------
	;酔い限界で倒れる
	;-------------------------------------------------
ELSEIF ARG == 32
	PRINTFORML %ANAME(TARGET)%はすっかり酔いが回ってバッタリと倒れてしまった…

	;-------------------------------------------------
	;妊娠発覚
	;-------------------------------------------------
ELSEIF ARG == 40
	;崩壊
	IF TALENT:崩壊
		;捕虜調教
	ELSEIF CFLAG:9 == CFLAG:MASTER:1
		;父親不明
		IF CFLAG:23 == 0
			IF ABL:出産 >= 3
				PRINTFORMW %ANAME(TARGET)%は父親が誰かもわからない子を孕んで悦びに打ち震えている…
			ELSE
				PRINTFORMW %ANAME(TARGET)%は父親が誰かもわからない子を孕んだ恐怖に震えている…
			ENDIF
			;主人公の子を孕んだ
		ELSEIF CFLAG:23 == GET_ID(MASTER)
			IF TALENT:親愛 || TALENT:隷属 || TALENT:所有者
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は幸せそうにお腹を撫でた…
			ELSEIF TALENT:恋慕 || TALENT:服従 || TALENT:親友 || TALENT:主人
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は嬉しそうにしている…
			ELSEIF TALENT:恋人 || TALENT:烙印
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は恨めしそうに%ANAME(MASTER)%を睨んだ…
			ELSE
				IF ABL:出産 >= 3
					PRINTFORMW %ANAME(MASTER)%に孕まされた%ANAME(TARGET)%は、恨めしそうにしながらも雌の悦楽に顔を緩ませてしまっている…
				ELSEIF CFLAG:崩壊 < 1000
					PRINTFORMW %ANAME(MASTER)%に孕まされた%ANAME(TARGET)%は殺意を込めて%ANAME(MASTER)%を睨んだ…
				ELSE
					PRINTFORMW %ANAME(MASTER)%に孕まされた%ANAME(TARGET)%は激しいショックを受けているようだ…
				ENDIF
			ENDIF
			;触手の子を孕んだ
		ELSEIF CFLAG:23 == GET_SPERM_ID("触手")
			;★
			;他の士官の子を孕んだ
		ELSE
			;★
		ENDIF
		;捕虜調教以外
	ELSE
		;父親不明
		IF CFLAG:23 == 0
			IF ABL:出産 >= 3
				PRINTFORMW %ANAME(TARGET)%は父親が誰かもわからない子を孕んで悦びに打ち震えている…
			ELSE
				PRINTFORMW %ANAME(TARGET)%は父親が誰かわからず不安そうだ…
			ENDIF
			;主人公の子を孕んだ
		ELSEIF CFLAG:23 == GET_ID(MASTER)
			IF TALENT:親愛 || TALENT:隷属 || TALENT:所有者
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は幸せそうにお腹を撫でた…
			ELSEIF TALENT:恋慕 || TALENT:服従 || TALENT:親友
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は嬉しそうにしている…
			ELSEIF TALENT:恋人 || TALENT:烙印
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は少し困惑しているようだ…
			ELSE
				PRINTFORMW %ANAME(MASTER)%の子を宿した%ANAME(TARGET)%は\@ RAND:2 == 0 ? 無責任な # 恨めしそうに \@%ANAME(MASTER)%を睨んだ…
			ENDIF
			;触手の子を孕んだ
		ELSEIF CFLAG:23 == GET_SPERM_ID("触手")
			;★
			;他の士官の子を孕んだ
		ELSE
			;★
		ENDIF
	ENDIF

	;-------------------------------------------------
	;臨月に入った
	;-------------------------------------------------
ELSEIF ARG == 41
	PRINTFORML %ANAME(TARGET)%は臨月に入りました
	PRINTFORMW しばらくの間は安静が必要です

	;-------------------------------------------------
	;子供を出産した
	;-------------------------------------------------
ELSEIF ARG == 42
	;父親のキャラ番号を取得
	LOCAL:0 = ID_TO_CHARA(CFLAG:23)

	IF LOCAL:0 == MASTER && CFLAG:所属 == CFLAG:MASTER:所属
		PRINTFORM %ANAME(MASTER)%に見守られながら、
	ENDIF
	PRINTFORMW %ANAME(TARGET)%は無事に出産を終えました

	;-------------------------------------------------
	;主人公に自分の子供を産ませた
	;-------------------------------------------------
ELSEIF ARG == 43
	SIF CFLAG:所属 == CFLAG:MASTER:所属
		PRINTFORM %ANAME(TARGET)%に見守られながら、
	PRINTFORMW %ANAME(MASTER)%は無事に出産を終えました

	;-------------------------------------------------
	;触手の子供を出産した
	;-------------------------------------------------
ELSEIF ARG == 44
	CALL HO_FIND_ROOM_BY_TAG("触手")
	ルーム有無判定 = RESULT
	IF CFLAG:1 >= 1 && CFLAG:1 == CFLAG:MASTER:1 && ルーム有無判定 != -1
		;同一勢力で触手部屋がある
		PRINTFORM 肉腫の檻の中で%ANAME(TARGET)%は
		SELECTCASE RAND:13
			CASE 0
				PRINTL 触手に支えらて両脚を広げている……
				PRINTFORML 腕と足にはゆるく触手が絡み付いており、時折ゆっくりと腹を撫で回している
			CASE 1
				PRINTL 仰向けのまま、触手の愛撫を受けていた……
				PRINTFORML 触手達は%ANAME(TARGET)%の腹を念入りに撫で回し、出産を促している
			CASE 2
				PRINTL 触手の吐き出した白濁液に四つんばいになって浸かっていた……
				PRINTFORML 青臭い粘性の白濁液に雫が滴り、ぽちゃり、ぽちゃりという音と共に波紋を立てている
			CASE 3
				PRINTL 座ったまま触手に撫で回されていた……
				PRINTFORML 出産を促すように触手は%ANAME(TARGET)%の秘部を刺激し、時折左右に開いたりしている
			CASE 4
				PRINTL 触手の繭の中で揺らされていた……
				PRINTFORML 身体には触手がゆるく絡みついており、母体である%ANAME(TARGET)%をしきりに愛撫している
			CASE 5
				PRINTL 触手に支えられ、膝立ちになっていた……
				PRINTFORML 腕は触手が掴んで上に吊るされており、その下で触手が子宮から幼体が這い出るのを待ちわびている
			CASE 6
				PRINTL 触手の作った花冠を頭に載せて、立ち膝になっていた……
				PRINTFORML 触手達は%ANAME(TARGET)%の手を繋ぐようにして掴み、%ANAME(TARGET)%の姿勢を安定させている
			CASE 7
				PRINTL 触手に抱き上げられて、座位の体勢を空中でとっていた……
				PRINTFORML 宙で触手達は%ANAME(TARGET)%の身体を撫で回し、刺激を与え続けている
			CASE 8
				PRINTL あたりを触手に囲まれ、見守られていた……
				PRINTFORML 円を作るようにして触手達は%ANAME(TARGET)%を取り囲み、新たなる仲間の誕生を見守っている
			CASE 9
				PRINTL 出産補助用の触手に取り囲まれていた……
				PRINTFORML %ANAME(TARGET)%の臍の穴を触手達は舐めほぐし、緊張を和らげようとしている
			CASE 11
				PRINTL 純白のシートの上で仰向けになっていた……
				PRINTFORML 手足には太い触手が巻きつき、新たに生まれる触手が出やすいように%ANAME(TARGET)%の姿勢を整えている
			CASE 12
				PRINTL 手足を触手に絡めとられていた……
				PRINTFORML %ANAME(TARGET)%の秘部からは中に居る触手の子が分泌した、粘りの強い媚薬がドロドロと流れ落ちている
		ENDSELECT
	ELSEIF CFLAG:1 >= 1 && CFLAG:1 == CFLAG:MASTER:1
		;同一勢力
		PRINTFORM 分娩室と書かれた部屋で%ANAME(TARGET)%は
		SELECTCASE RAND:4
			CASE 0
				PRINTL 産婆達に世話を受けていた……
			CASE 1
				PRINTL 白いベットに横たわっていた……
			CASE 2
				PRINTL 両手両ひざをついて息を荒げていた……
			CASE 3
				PRINTL 座位の姿勢になり、お腹を擦っていた……
		ENDSELECT
	ELSEIF CFLAG:9 == CFLAG:MASTER:1 && ITEM:触手部屋
		;捕虜で触手部屋がある
		PRINTFORM 触手部屋の中央で%ANAME(TARGET)%は
		SELECTCASE RAND:13
			CASE 0
				PRINTL 触手達に掴まれて拘束されていた……
				PRINTFORML 手足には触手が絡み付いており、激しく動く%ANAME(TARGET)%を押さえつけている
			CASE 1
				PRINTL 仰向けのまま、触手達に押さえつけられていた……
				PRINTFORML 触手達は%ANAME(TARGET)%のお腹を撫で回して指圧し、出産を促している
			CASE 2
				PRINTL 触手達の出した生殖液の池に浸されていた……
				PRINTFORML 白い生殖液には、ぽちゃり、ぽちゃりという音と共に波紋が立っている
			CASE 3
				PRINTL 座らせられて触手に撫で回されていた……
				PRINTFORML 触手達は%ANAME(TARGET)%の手足を拘束したまま秘部を刺激し、時折左右に開いたりしている
			CASE 4
				PRINTL 触手のゆりかごに捕まっていた……
				PRINTFORML 身体は触手によってがんじがらめにされ、全身を指圧されている
			CASE 5
				PRINTL 触手に絡めとられ、膝立ちにさせられていた……
				PRINTFORML 腕は触手が掴んで上に吊るされており、%ANAME(TARGET)%の股間からはぽたぽたと体液が漏れている
			CASE 6
				PRINTL 触手の作った花冠を頭に載せて、座らさせられていた……
				PRINTFORML 触手達は%ANAME(TARGET)%の手足をしっかり縛り、%ANAME(TARGET)%を押さえつけている
			CASE 7
				PRINTL 触手の塊に吊り上げられ、天井近くへ絡め取られていた……
				PRINTFORML 宙で触手達は%ANAME(TARGET)%の股を無理やり開かせ、出産を促している
			CASE 8
				PRINTL 生殖液に満たされた出産用の触手檻へ囚われていた……
				PRINTFORML ごぽり、ごぽりと言う音を鳴らせながら、触手檻の中では新しい生命が誕生していた
			CASE 9
				PRINTL ぬめりけのある触手に取り囲まれていた……
				PRINTFORML 触手達は%ANAME(TARGET)%の臍の穴を舐めほぐし、膨らんだお腹に刺激を与えている
			CASE 10
				PRINTL 首輪に繋がれて座り込んでいた……
				PRINTFORML 辺りには同じように触手を宿したらしい妖精達が甘い声を出して触手を出産している
			CASE 11
				PRINTL 肉質の地面に手足を埋め込まれて拘束されていた……
				PRINTFORML 太い触手が定期的に内股へ取り付き、触手が出やすいよう催淫液を流し込んでいる
			CASE 12
				PRINTL 手足を触手に拘束されていた……
				PRINTFORML 秘部からは中に居る触手の子が分泌した、粘りの強い媚薬がドロドロと流れ落ちている
		ENDSELECT
	ELSEIF CFLAG:9 == CFLAG:MASTER:1
		;捕虜
		IF CFLAG:(TARGET):軟禁中 == 0
			;牢屋
			PRINTFORM 暗く明かりの落ちた牢屋の一室で、%ANAME(TARGET)%は
		ELSE
			;軟禁
			PRINTFORM 明るい軟禁用の部屋で%ANAME(TARGET)%は
		ENDIF

		SELECTCASE RAND:7
			CASE 0
				PRINTL 手足を固定されたまま女官達に助産を受けていた……
			CASE 1
				PRINTL ベットに首輪と手枷で固定させられていた……
			CASE 2
				PRINTL 両手両ひざを縛られた状態で息を荒げていた……
			CASE 3
				PRINTL 用意された出産用プールの中へ縛り付けられていた……
			CASE 4
				PRINTL 裸に鎖をつけた姿で腰を吊り上げていた……
			CASE 5
				PRINTL 手足を鉄具で固定させられていた……
			CASE 6
				PRINTL 触手出産用の椅子に座らされていた……
		ENDSELECT
	ELSE
		;他所の子
		PRINTFORM %ANAME(TARGET)%は自室で
		SELECTCASE RAND:5
			CASE 0
				PRINTL 仰向けのまま、涙を浮かべていた……
			CASE 1
				PRINTL 床に座り込んで息を荒げていた……
			CASE 2
				PRINTL 膝立ちになり、ぶるぶると震えていた……
			CASE 3
				PRINTL 荒い息遣いをついて、ベットに倒れていた……
			CASE 4
				PRINTL 座位の体勢で、精一杯力んでいた……
		ENDSELECT
	ENDIF

	IF TALENT:(LOCAL:1):虚ろ || TALENT:(LOCAL:1):崩壊
		PRINTL %ANAME(TARGET)%は額に脂汗を浮かべながら、
	ELSEIF ABL:(TARGET):触手 >= 5
		SELECTCASE RAND:8
			CASE 0
				PRINTFORM 触手に開発された%ANAME(TARGET)%は快楽に悶え涙を零しながら、
			CASE 1
				PRINTFORM 触手に開発された%ANAME(TARGET)%は顔を朱色に染めながら、
			CASE 2
				PRINTFORM 触手に開発された%ANAME(TARGET)%は口元から涎を零しながら、
			CASE 3
				PRINTFORM 触手に開発された%ANAME(TARGET)%は腰をがくがくと震わせながら、
			CASE 4
				PRINTFORM 触手に開発された%ANAME(TARGET)%は強い快楽の奔流を感じながら、
			CASE 5
				PRINTFORM 触手に開発された%ANAME(TARGET)%はあえぎ声を上げながら、
			CASE 6
				PRINTFORM 触手に開発された%ANAME(TARGET)%は愛液を零しながら、
			CASE 7
				PRINTFORM 触手に開発された%ANAME(TARGET)%は甘い息を洩らしながら、
		ENDSELECT
	ELSEIF ABL:(TARGET):触手 >= 3
		SELECTCASE RAND:3
			CASE 0
				PRINTFORM %ANAME(TARGET)%は額に脂汗を浮かべながら、
			CASE 1
				PRINTFORM %ANAME(TARGET)%は目を見開いて呻きながら、
			CASE 2
				PRINTFORM %ANAME(TARGET)%は嗚咽を洩らしながら、
		ENDSELECT
	ELSE
		SELECTCASE RAND:3
			CASE 0
				PRINTFORM %ANAME(TARGET)%は泣き叫びながら、
			CASE 1
				PRINTFORM %ANAME(TARGET)%は否定する言葉を繰り返しながら、
			CASE 2
				PRINTFORM %ANAME(TARGET)%は悲鳴を上げながら、
		ENDSELECT
	ENDIF

	IF CFLAG:触手産卵実行者 >= 1
		IF CFLAG:触手Ａ産卵実行者 >= 1
			;両穴に産みつけられている
			IF CFLAG:触手Ｕ産卵実行者 >=1
				LOCALS:1 = 穴という穴から
			ELSE
				LOCALS:1 = 両方の穴から
			ENDIF
			SELECTCASE RAND:14
				CASE 0
					PRINTFORML %LOCALS:1%何匹もの触手の子を産み落としている…
				CASE 1
					PRINTFORML %LOCALS:1%長い触手を産み落としている…
				CASE 2
					PRINTFORML %LOCALS:1%丸まった触手を産み落としている…
				CASE 3
					PRINTFORML %LOCALS:1%大きな触手の受精卵を産み落としている…
				CASE 4
					PRINTFORML %LOCALS:1%膨れあがった小触手を何匹も産み落としている…
				CASE 5
					PRINTFORML %LOCALS:1%分泌液にまみれた触手の子を産み落としている…
				CASE 6
					PRINTFORML %LOCALS:1%半透明な触手の子を産み落としている…
				CASE 7
					PRINTFORML %LOCALS:1%激しくのたうつ触手を産み落としている…
				CASE 8
					PRINTFORML %LOCALS:1%蔓状の触手を産み落としている…
				CASE 9
					PRINTFORML %LOCALS:1%無数の糸状の触手を産み落としている…
				CASE 10
					PRINTFORML %LOCALS:1%グロテスクな触手を産み落としている…
				CASE 11
					PRINTFORML %LOCALS:1%ぬめりのある光沢を帯びた触手を産み落としている…
				CASE 12
					PRINTFORML %LOCALS:1%蠢く触手を産み落としている…
				CASE 13
					PRINTFORML %LOCALS:1%腕ほどの太さの触手を産み落としている…
			ENDSELECT
			LOCALS:0 = 膣とアナル
		ELSE
			;膣に産みつけられている
			SELECTCASE RAND:14
				CASE 0
					PRINTL 何匹もの触手の子を産み落としている…
				CASE 1
					PRINTL 長い触手を産み落としている…
				CASE 2
					PRINTL 丸まった触手を産み落としている…
				CASE 3
					PRINTL 大きな触手の受精卵を産み落としている…
				CASE 4
					PRINTL 膨れあがった小触手を何匹も産み落としている…
				CASE 5
					PRINTL 分泌液にまみれた触手の子を産み落としている…
				CASE 6
					PRINTL 半透明な触手の子を産み落としている…
				CASE 7
					PRINTL 元気のいい触手を産み落としている…
				CASE 8
					PRINTL 蔓状の触手を産み落としている…
				CASE 9
					PRINTL 目玉のついた触手を産み落としている…
				CASE 10
					PRINTL グロテスクな触手を産み落としている…
				CASE 11
					PRINTL みずみずしい触手を産み落としている…
				CASE 12
					PRINTL 蠢く触手を産み落としている…
				CASE 13
					PRINTL 腕ほどの太さの触手を産み落としている…
			ENDSELECT
			LOCALS:0 = 膣
		ENDIF
	ELSEIF CFLAG:TARGET:触手Ａ産卵実行者 || CFLAG:TARGET:触手Ｕ産卵実行者
		;アナルに産みつけられている
		IF CFLAG:TARGET:触手Ａ産卵実行者
			LOCALS:0 = アナル
			LOCALS:1 = 尻穴
		ELSE
			LOCALS:0 = 尿道
			LOCALS:1 = 尿道
		ENDIF
		SELECTCASE RAND:14
			CASE 0
				PRINTFORML %LOCALS:1%で何匹もの触手の子を産み落としている…
			CASE 1
				PRINTFORML %LOCALS:1%で長い触手を産み落としている…
			CASE 2
				PRINTFORML %LOCALS:1%で丸まった触手を産み落としている…
			CASE 3
				PRINTFORML %LOCALS:1%で大きな触手の受精卵を産み落としている…
			CASE 4
				PRINTFORML %LOCALS:1%で膨れあがった小触手を何匹も産み落としている…
			CASE 5
				PRINTFORML %LOCALS:1%で分泌液にまみれた触手の子を産み落としている…
			CASE 6
				PRINTFORML %LOCALS:1%で半透明な触手の子を産み落としている…
			CASE 7
				PRINTFORML %LOCALS:1%で元気のいい触手を産み落としている…
			CASE 8
				PRINTFORML %LOCALS:1%で蔓状の触手を産み落としている…
			CASE 9
				PRINTFORML %LOCALS:1%で目玉のついた触手を産み落としている…
			CASE 10
				PRINTFORML %LOCALS:1%でグロテスクな触手を産み落としている…
			CASE 11
				PRINTFORML %LOCALS:1%でみずみずしい触手を産み落としている…
			CASE 12
				PRINTFORML %LOCALS:1%で蠢く触手を産み落としている…
			CASE 13
				PRINTFORML %LOCALS:1%で腕ほどの太さの触手を産み落としている…
		ENDSELECT
	ELSE
	ENDIF
	IF ABL:出産 >= 3 || ABL:(TARGET):触手 >= 5
		IF (ABL:Ｖ感 >= 5 && CFLAG:触手産卵実行者 >= 1) || (ABL:Ａ感 >= 5 && CFLAG:触手Ａ産卵実行者 >= 1)
			SELECTCASE RAND:6
				CASE 0
					PRINTFORML %ANAME(TARGET)%は出産の悦びに震えながら、%LOCALS:0%を押し広げられる強烈な絶頂感に
					PRINTFORMW 獣のような叫び声を上げて悶え狂っている
				CASE 1
					PRINTFORMW %LOCALS:0%を触手が通るたびに%ANAME(TARGET)%は絶頂し、何度も艶のある嬌声を上げ続けた
				CASE 2
					PRINTFORMW %ANAME(TARGET)%は孕んでいた触手の子に内側から%LOCALS:0%を犯され、弓のように身体を跳ねさせたながら出産した
				CASE 3
					PRINTFORML %ANAME(TARGET)%は異形が身体から這い出しているというのに、口を緩ませて乱れ狂っており
					PRINTFORMW %LOCALS:0%から一匹、また一匹と触手を産むたびに艶めかしい声を上げた
				CASE 4
					PRINTFORMW %ANAME(TARGET)%は腰を何度も跳ね上げ絶頂しながら、トロけた顔をして%LOCALS:0%から触手を産み続けた
				CASE 5
					PRINTFORMW %ANAME(TARGET)%は%LOCALS:0%を触手が擦る事による快楽に悶え、ふやけた笑みを浮かべながら淫声を上げた
			ENDSELECT
		ELSE
			SELECTCASE RAND:6
				CASE 0
					PRINTFORML %ANAME(TARGET)%は%LOCALS:0%を押し広げられて苦痛のあまり意識を飛ばしそうになりながらも、
					PRINTFORMW 出産の悦びにどこか幸せそうな表情を浮かべている
				CASE 1
					PRINTFORMW 触手が%LOCALS:0%を通る事に%ANAME(TARGET)%は悲鳴を上げたが、全ての触手を産み終えるとうっすら笑みを浮かべた
				CASE 2
					PRINTFORMW %ANAME(TARGET)%は孕んでいた触手の子に内側から%LOCALS:0%を犯され、何度か意識を飛ばしながらも無事に出産を終えた
				CASE 3
					PRINTFORMW 強く目を瞑った%ANAME(TARGET)%は、辛そうながらも精一杯力を込めて孕まされた触手を産み落とした
				CASE 4
					PRINTFORMW %ANAME(TARGET)%は壊れたように腰を何度も跳ね上げながらも、無事に%LOCALS:0%から触手を産み終えた
				CASE 5
					PRINTFORMW %ANAME(TARGET)%は%LOCALS:0%を触手が擦る焼ける様な感覚に悶え、ふやけた笑みを浮かべて気を失った
			ENDSELECT
		ENDIF
	ELSE
		IF (ABL:Ｖ感 >= 5 && CFLAG:触手産卵実行者 >= 1) || (ABL:Ａ感 >= 5 && CFLAG:触手Ａ産卵実行者 >= 1)
			SELECTCASE RAND:6
				CASE 0
					PRINTFORMW %ANAME(TARGET)%は無理やり%LOCALS:0%を押し広げられるたびに、強烈な絶頂感を味わって獣のような叫び声を上げた
				CASE 1
					PRINTFORMW 触手が%LOCALS:0%を通るたびに%ANAME(TARGET)%は何度も絶頂し、嬌声を上げ続けている
				CASE 2
					PRINTFORMW %ANAME(TARGET)%は孕んでいた触手の子に内側から%LOCALS:0%を犯され、淫声を漏らしながら出産した
				CASE 3
					PRINTFORMW %LOCALS:0%から一匹、また一匹と触手を産むたびに、%ANAME(TARGET)%は艶めかしい悲鳴を上げた
				CASE 4
					PRINTFORMW %ANAME(TARGET)%は腰を何度も跳ね上げて絶頂しながら、%LOCALS:0%から触手を産み続けた
				CASE 5
					PRINTFORMW %ANAME(TARGET)%は%LOCALS:0%を触手が擦る事による快楽に絶頂し、淫声を上げた
			ENDSELECT
		ELSEIF ABL:(TARGET):触手 >= 1
			SELECTCASE RAND:5
				CASE 0
					PRINTFORMW あまりに強い刺激に%ANAME(TARGET)%は目を見開いて悲鳴を上げ、全ての触手を産み終えると力なく崩れ落ちた
				CASE 1
					PRINTFORMW %ANAME(TARGET)%は孕んでいた触手の子に内側から%LOCALS:0%を犯され、ぼろぼろ泣きながら出産を続けた
				CASE 2
					PRINTFORMW %ANAME(TARGET)%はぐしゃぐしゃの顔で喚きながら、長く続く出産に耐え続けた
				CASE 3
					PRINTFORMW %ANAME(TARGET)%は壊れたように腰を何度も跳ね上げながら、必死に%LOCALS:0%から触手を産み落とした
				CASE 4
					PRINTFORMW %ANAME(TARGET)%は%LOCALS:0%を触手が擦る焼ける様な感覚に耐えられず、気を失ってしまった
			ENDSELECT
		ELSE
			PRINTFORMW %ANAME(TARGET)%は苦痛のあまり意識が飛んでいるのか、虚ろな表情であらぬ方向を見つめている
		ENDIF
	ENDIF

	;-------------------------------------------------
	;母親が自分を子育て中に妊娠発覚した
	;-------------------------------------------------
ELSEIF ARG == 45
	PRINTFORMW %ANAME(ID_TO_CHARA(CFLAG:TARGET:母親))%に育てられている%ANAME(TARGET)%は自分も少し前まではこうして胎の中にいたということに不思議さと驚きを感じているようだ

	;-------------------------------------------------
	;母親が自分を子育て中に臨月になった
	;-------------------------------------------------
ELSEIF ARG == 46
	PRINTFORMW %ANAME(ID_TO_CHARA(CFLAG:TARGET:母親))%に育てられていた%ANAME(TARGET)%は母が子育ての最中に臨月となることに驚きながらも体調を心配している

	;-------------------------------------------------
	;忠誠を誓わせる/成功
	;-------------------------------------------------
ELSEIF ARG == 50
	;自国の捕虜の場合
	IF CFLAG:(MTAR:0):捕虜先 == CFLAG:MASTER:1
		PRINTFORMW %ANAME(MASTER)%は、%ANAME(TARGET)%に自分に忠誠を誓うように言った
		IF TALENT:服従
			PRINTFORMW ……%ANAME(TARGET)%は、どこか虚ろな表情で、嬉しそうに%ANAME(MASTER)%への恭順を誓った
		ELSE
			PRINTFORMW ……%ANAME(TARGET)%は、%ANAME(MASTER)%の言葉に力なく頷いた
		ENDIF
		SIF !TALENT:烙印 && !IS_LOVER(TARGET)
			PRINTFORMW 忠誠を誓った証として、%ANAME(MASTER)%は%ANAME(TARGET)%の体に消えない烙印を焼き入れた
		;それ以外
	ELSE
		PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%に対し、%ANAME(MASTER)%に服従し忠誠を誓うように言った
		IF TALENT:服従
			PRINTFORMW ……%ANAME(TARGET)%は、どこか虚ろな表情で、嬉しそうに%ANAME(MASTER)%への恭順を誓った
		ELSE
			PRINTFORMW ……%ANAME(TARGET)%は、%ANAME(MASTER)%の言葉に力なく頷いた
		ENDIF
		SIF !TALENT:烙印 && !IS_LOVER(TARGET)
			PRINTFORMW 忠誠を誓った証として、%ANAME(MASTER)%は%ANAME(TARGET)%の体に消えない烙印を焼き入れた
	ENDIF

	;-------------------------------------------------
	;忠誠を誓わせる/失敗
	;-------------------------------------------------
ELSEIF ARG == 51
	;自国の捕虜の場合
	IF CFLAG:(MTAR:0):捕虜先 == CFLAG:MASTER:1
		PRINTFORMW %ANAME(MASTER)%は、%ANAME(TARGET)%に自分に忠誠を誓うように言った
		IF TALENT:服従
			PRINTFORMW ……%ANAME(TARGET)%は少し考えた後で、悲しそうに首を振った
		ELSE
			PRINTFORMW ……だが、%ANAME(TARGET)%は%ANAME(MASTER)%を力強く睨み返し、拒否した
		ENDIF
		PRINTFORMW まだ調教が足りないようだ…
		;それ以外
	ELSE
		PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%に対し、%ANAME(MASTER)%に服従し忠誠を誓うように言った
		IF TALENT:服従
			PRINTFORMW ……%ANAME(TARGET)%は少し考えた後で、悲しそうに首を振った
		ELSE
			PRINTFORMW ……だが、%ANAME(TARGET)%に白い目で見られてしまった
		ENDIF
	ENDIF

	;-------------------------------------------------
	;自国に誘う/成功
	;-------------------------------------------------
ELSEIF ARG == 52
	PRINTFORMW %ANAME(MASTER)%は、%ANAME(TARGET)%に我が国へ来て欲しいと頼んだ
	PRINTFORMW ……%ANAME(TARGET)%はしばらく悩んだ末、%ANAME(MASTER)%の提案を受け入れた

	;-------------------------------------------------
	;自国に誘う/失敗
	;-------------------------------------------------
ELSEIF ARG == 53
	PRINTFORMW %ANAME(MASTER)%は、%ANAME(TARGET)%に我が国へ来て欲しいと頼んだ
	PRINTFORMW ……だが、%ANAME(TARGET)%は首を横に振った

	;-------------------------------------------------
	;自国に誘う/成功(捕虜会話の場合)
	;-------------------------------------------------
ELSEIF ARG == 54
	PRINTFORMW %ANAME(MASTER)%は、%ANAME(TARGET)%に一緒に我が国へ来て欲しいと頼んだ
	PRINTFORMW ……%ANAME(TARGET)%はしばらく悩んだ末、%ANAME(MASTER)%と共にこの国を離れる覚悟を決めたようだ

	;-------------------------------------------------
	;自国に誘う/失敗(捕虜会話の場合)
	;-------------------------------------------------
ELSEIF ARG == 55
	PRINTFORMW %ANAME(MASTER)%は、%ANAME(TARGET)%に一緒に我が国へ来て欲しいと頼んだ
	PRINTFORMW ……だが、%ANAME(TARGET)%は呆れた様子で断った

	;-------------------------------------------------
	;[恋慕]取得
	;-------------------------------------------------
ELSEIF ARG == 60
	PRINTFORMW %ANAME(TARGET)%のこちらを見る目がおかしい…
	IF TALENT:親友
		PRINTFORMW %ANAME(TARGET)%が%ANAME(MASTER)%に抱いていた友情は恋愛感情へと変わったようだ
	ELSEIF TALENT:恋人
		PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%への恋心をついに自覚したようだ
	ELSE
		PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%へと恋焦がれるようになった
	ENDIF

	;-------------------------------------------------
	;[親友]取得
	;-------------------------------------------------
ELSEIF ARG == 61
	PRINTFORMW %ANAME(TARGET)%のこちらを見る目が変わった…
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%との間に強い絆を感じているようだ

	;-------------------------------------------------
	;[親愛]取得
	;-------------------------------------------------
ELSEIF ARG == 62
	PRINTFORMW %ANAME(TARGET)%のこちらを見る目が変わった…
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%に心からの愛情を感じているようだ

	;-------------------------------------------------
	;[服従]取得
	;-------------------------------------------------
ELSEIF ARG == 63
	PRINTFORMW %ANAME(TARGET)%のこちらを見る目がおかしい…
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%にすっかり依存しきっているようだ

	;-------------------------------------------------
	;[隷属]取得
	;-------------------------------------------------
ELSEIF ARG == 64
	PRINTFORMW %ANAME(TARGET)%のこちらを見る目が変わった…
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%に従うことに心からの悦びを感じているようだ

	;-------------------------------------------------
	;[淫乱]取得
	;-------------------------------------------------
ELSEIF ARG == 65
	PRINTFORMW %ANAME(TARGET)%のこちらを見る目がおかしい…
	PRINTFORMW %ANAME(TARGET)%は肉体の快楽に溺れているようだ

	;-------------------------------------------------
	;[主人]取得
	;-------------------------------------------------
ELSEIF ARG == 80
	PRINTFORMW %ANAME(MASTER)%の様子がおかしい…
	PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%にすっかり依存しきっている

	;-------------------------------------------------
	;[所有者]取得
	;-------------------------------------------------
ELSEIF ARG == 81
	PRINTFORMW %ANAME(MASTER)%の%ANAME(TARGET)%を見る目が変わった…
	PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%に従うことに心からの悦びを感じている

	;-------------------------------------------------
	;[酒豪]取得
	;-------------------------------------------------
ELSEIF ARG == 74
	PRINTFORMW %ANAME(TARGET)%の様子がおかしい…
	PRINTFORMW %ANAME(TARGET)%は酒を飲む快感に目覚めたようだ

	;-------------------------------------------------
	;[おもらし癖]取得
	;-------------------------------------------------
ELSEIF ARG == 76
	PRINTFORMW %ANAME(TARGET)%の様子がおかしい…
	PRINTFORML 人前で何度もおもらしを繰り返した%ANAME(TARGET)%の心と体には、
	PRINTFORMW 無意識におもらしをする癖が刻み込まれてしまったようだ

	;-------------------------------------------------
	;[虚ろ]取得
	;-------------------------------------------------
ELSEIF ARG == 78
	PRINTFORMW %ANAME(TARGET)%の様子がおかしい…
	PRINTFORMW 度重なるストレスによって%ANAME(TARGET)%の心はひどく疲弊しているようだ

	;-------------------------------------------------
	;[崩壊]取得
	;-------------------------------------------------
ELSEIF ARG == 79
	PRINTFORMW %ANAME(TARGET)%の様子がおかしい…
	PRINTFORMW 度重なるストレスによって%ANAME(TARGET)%の心は壊れてしまったようだ

	;-------------------------------------------------
	;婚姻の儀(選択時)
	;-------------------------------------------------
ELSEIF ARG == 90
	PRINTFORMW %ANAME(MASTER)% proposed marriage to %ANAME(TARGET)%
	PRINTFORM %ANAME(TARGET)% was so shocked that he froze for a moment, but
	IF TALENT:親愛
		PRINTFORMW their face immediately lit up with happiness and embraced %ANAME(MASTER)%
	ELSEIF TALENT:隷属
		PRINTFORMW %ANAME(TARGET)% had never thought that %ANAME(MASTER)% saw them as a marriage candidate, so they burst into tears of joy...
	ELSEIF TALENT:恋人
		PRINTFORMW smiling a little shyly, accepted %ANAME(MASTER)%'s proposal
	ELSE
		PRINTFORMW gently took %ANAME(MASTER)%'s hand, bowed respectfully, and accepted the proposal
	ENDIF

	;-------------------------------------------------
	;婚姻の儀(イベント)
	;-------------------------------------------------
ELSEIF ARG == 91
	PRINTFORMW 終始緊張気味の%ANAME(TARGET)%だったが、無事に式を終えることができた

	;-------------------------------------------------
	;おねだりに対して「おあずけ」を選択
	;-------------------------------------------------
ELSEIF ARG == 103
	PRINTFORML %ANAME(MASTER)%は%ANAME(TARGET)%の誘いを断り、物欲しそうな表情を浮かべる%ANAME(TARGET)%を放置して立ち去った…

	;-------------------------------------------------
	;誘惑成功(合意は得られない)
	;-------------------------------------------------
ELSEIF ARG == 104

	;-------------------------------------------------
	;誘惑成功(合意を取得)
	;-------------------------------------------------
ELSEIF ARG == 105

	;-------------------------------------------------
	;誘惑失敗
	;-------------------------------------------------
ELSEIF ARG == 106
	IF TALENT:MASTER:霊体 || TALENT:TARGET:霊体
		PRINTFORMW だが、データ上の存在の為触れ合うことはできなかった。素体にデータをアップロードする必要があるだろう...
	ELSEIF TALENT:合意
		PRINTFORMW だが、%ANAME(TARGET)%に今はそんな気分ではないと言われて断られてしまった
	ELSEIF ABL:性知識 == 0
		PRINTFORMW だが、%ANAME(TARGET)%は%ANAME(MASTER)%の意図が理解できず、不思議そうに首を傾げた
	ELSE
		PRINTFORMW だが、%ANAME(TARGET)%に無視されてしまった
	ENDIF

	;-------------------------------------------------
	;誘惑成功(既に合意あり)
	;-------------------------------------------------
ELSEIF ARG == 107

	;-------------------------------------------------
	;酔い潰れたところでイタズラ
	;-------------------------------------------------
ELSEIF ARG == 110
	IF TFLAG:デート場所
		IF TFLAG:デート場所 == 1
			PRINTFORMW %ANAME(MASTER)%は眠っている%ANAME(TARGET)%を座敷に連れ込むと、%ANAME(TARGET)%の服を脱がせていった…
		ELSEIF TFLAG:デート場所 == 7
			PRINTFORMW %ANAME(MASTER)%は眠っている%ANAME(TARGET)%を湯船の縁に腰掛けさせると、%ANAME(TARGET)%の股を開かせた…
		ELSE
			PRINTFORMW %ANAME(MASTER)%は眠っている%ANAME(TARGET)%を物陰に連れ込むと、%ANAME(TARGET)%の服を脱がせていった…
		ENDIF
	ELSE
		PRINTFORMW %ANAME(MASTER)%は%ANAME(TARGET)%が完全に眠っているのを確認すると、%ANAME(TARGET)%の服を脱がせていった…
	ENDIF

	;-------------------------------------------------
	;主人公が失神しても調教継続
	;-------------------------------------------------
ELSEIF ARG == 111

	;-------------------------------------------------
	;主人公が疲労しても調教継続
	;-------------------------------------------------
ELSEIF ARG == 112

	;-------------------------------------------------
	;浣腸＆プラグを実行後、プラグを引き抜く
	;-------------------------------------------------
ELSEIF ARG == 151
	PRINTFORML %ANAME(TARGET)%の尻穴から、下品な音と共に茶色く濁った液体が吐き出された…

	;-------------------------------------------------
	;夜イベント(添い寝)
	;-------------------------------------------------
ELSEIF ARG == 200
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%に、一緒に寝たいと言ってきた

	;-------------------------------------------------
	;夜イベント(晩酌)
	;-------------------------------------------------
ELSEIF ARG == 201
	PRINTFORMW %ANAME(TARGET)%は持ってきた酒瓶を%ANAME(MASTER)%に見せ、一緒に飲まないかと誘ってきた

	;-------------------------------------------------
	;夜イベント(談笑)
	;-------------------------------------------------
ELSEIF ARG == 202
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%と少し話がしたいようだ

	;-------------------------------------------------
	;夜這い奉仕(通常)
	;-------------------------------------------------
ELSEIF ARG == 210
	PRINTFORML %ANAME(TARGET)%は%ANAME(MASTER)%の寝床に入り込むと、
	PRINTFORM 気持ち良くしてあげると言って
	IF HAS_PENIS(MASTER)
		PRINTFORMW %ANAME(MASTER)%のペニスを取り出し奉仕し始めた…
	ELSE
		PRINTFORMW %ANAME(MASTER)%の体に覆いかぶさった…
	ENDIF

	;-------------------------------------------------
	;夜這い奉仕(加虐)
	;-------------------------------------------------
ELSEIF ARG == 211
	PRINTFORML %ANAME(TARGET)%は%ANAME(MASTER)%を無理やり押し倒すと、
	IF HAS_PENIS(MASTER)
		PRINTFORMW %ANAME(MASTER)%のペニスを踏みつけながら、嗜虐的な表情で鞭を構えた…
	ELSE
		PRINTFORMW %ANAME(MASTER)%の体を縛り上げ、嗜虐的な表情で鞭を構えた…
	ENDIF

	;-------------------------------------------------
	;夜這い愛撫(通常)
	;-------------------------------------------------
ELSEIF ARG == 212
	PRINTFORML %ANAME(TARGET)%は上気した表情で%ANAME(MASTER)%を見つめると、
	PRINTFORMW すっかり火照った体を預け、気持ち良くして欲しいと懇願してきた…

	;-------------------------------------------------
	;夜這い愛撫(被虐)
	;-------------------------------------------------
ELSEIF ARG == 213
	PRINTFORML %ANAME(TARGET)%は上気した表情で%ANAME(MASTER)%を見つめると、
	PRINTFORMW すっかり火照った体を預け、思い切り虐めて欲しいと懇願してきた…

	;-------------------------------------------------
	;夜這い性交(対象のＶに挿入)
	;-------------------------------------------------
ELSEIF ARG == 220
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%に体を預けると、何かを期待するように潤んだ瞳で見つめてきた
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%の服を脱がせると、既にその秘唇は期待に濡れていた…

	;-------------------------------------------------
	;夜這い性交(対象のＡに挿入)
	;-------------------------------------------------
ELSEIF ARG == 221
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%に体を預けると、何かを期待するように潤んだ瞳で見つめてきた
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%の服を脱がせると、既にその秘唇は期待に濡れていた…

	;-------------------------------------------------
	;夜這い性交(主人公のＶに挿入)
	;-------------------------------------------------
ELSEIF ARG == 222
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%を飢えた獣のような瞳で見つめ、抱かせて欲しいと懇願してきた
	PRINTFORMW %ANAME(MASTER)%が了承すると、%ANAME(TARGET)%は欲望に任せて乱暴に%ANAME(MASTER)%を押し倒した…

	;-------------------------------------------------
	;夜這い性交(主人公のＡに挿入)
	;-------------------------------------------------
ELSEIF ARG == 223
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%を飢えた獣のような瞳で見つめ、抱かせて欲しいと懇願してきた
	PRINTFORMW %ANAME(MASTER)%が了承すると、%ANAME(TARGET)%は欲望に任せて乱暴に%ANAME(MASTER)%を押し倒した…

	;-------------------------------------------------
	;夜這い性交(レズセックス)
	;-------------------------------------------------
ELSEIF ARG == 224
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%に体を預けると、何かを期待するように潤んだ瞳で見つめてきた
	PRINTFORMW %ANAME(MASTER)%が%ANAME(TARGET)%の服を脱がせると、既にその秘唇は期待に濡れていた…

	;-------------------------------------------------
	;夜イベント/主人公が臨月のときのお見舞い(確定父親)
	;-------------------------------------------------
ELSEIF ARG == 230
	PRINTFORMW %ANAME(MASTER)%と%ANAME(TARGET)%は生まれてくる子供のことについて語り合った…

	;-------------------------------------------------
	;夜イベント/主人公が臨月のときのお見舞い(父親以外)
	;-------------------------------------------------
ELSEIF ARG == 231
	PRINTFORMW すっかり大きくなった%ANAME(MASTER)%のお腹を、%ANAME(TARGET)%は興味深そうに見つめている…

	;-------------------------------------------------
	;夜イベント/主人公が育児中のときのお見舞い(確定父親)
	;-------------------------------------------------
ELSEIF ARG == 232
	;子供のキャラ番号を取得
	LOCAL:0 = ID_TO_CHARA(CFLAG:MASTER:育児対象)

	IF LOCAL:0 >= 0
		IF TALENT:(LOCAL:0):素直
			PRINTFORMW %ANAME(LOCAL:0)%はすっかり%ANAME(TARGET)%になついているようで、%ANAME(TARGET)%を中々放そうとしなかった…
		ELSEIF TALENT:(LOCAL:0):反抗的 || TALENT:(LOCAL:0):生意気
			PRINTFORMW やんちゃな%ANAME(LOCAL:0)%は、父親である%ANAME(TARGET)%に反抗的な態度を取っている…
		ELSE
			PRINTFORMW %ANAME(LOCAL:0)%は父親である%ANAME(TARGET)%が来てくれたことを素直に喜んでいる…
		ENDIF
	ENDIF

	;-------------------------------------------------
	;夜イベント/主人公が育児中のときのお見舞い(父親以外)
	;-------------------------------------------------
ELSEIF ARG == 233
	;子供のキャラ番号を取得
	LOCAL:0 = ID_TO_CHARA(CFLAG:MASTER:育児対象)

	IF LOCAL:0 >= 0
		IF TALENT:(LOCAL:0):恥じらい || TALENT:(LOCAL:0):臆病
			PRINTFORMW %ANAME(LOCAL:0)%は人見知りしているようで、%ANAME(MASTER)%の服の裾を握ったまま中々%ANAME(TARGET)%と打ち解けようとしなかった…
		ELSEIF TALENT:(LOCAL:0):生意気 || TALENT:(LOCAL:0):プライド高い
			PRINTFORMW %ANAME(TARGET)%は%ANAME(LOCAL:0)%の遊びに無理やり付き合わされて苦笑していた…
		ELSE
			PRINTFORMW %ANAME(TARGET)%は%ANAME(LOCAL:0)%を誘って、一緒に遊びに出掛けました…
		ENDIF
	ENDIF

	;-------------------------------------------------
	;夜イベント/主人公が重傷のときのお見舞い
	;-------------------------------------------------
ELSEIF ARG == 234
	;PRINTFORMW

	;-------------------------------------------------
	;朝イベント/自ら性知識を学ぶ
	;-------------------------------------------------
ELSEIF ARG == 240
	PRINTFORMW %ANAME(TARGET)%は、%ANAME(MASTER)%のために自ら性知識を学んでいるようだ…

	;-------------------------------------------------
	;朝イベント/自ら性知識を学ぶ(逆調教)
	;-------------------------------------------------
ELSEIF ARG == 241
	PRINTFORMW %ANAME(TARGET)%は%ANAME(MASTER)%を調教するための性知識を学んでいるようだ…

	;-------------------------------------------------
	;触手処刑される(捕虜調教画面から)
	;-------------------------------------------------
ELSEIF ARG == 343
	;※触手部屋の管理者(=触手処刑の実行者)のキャラ番号はFLAG:触手部屋管理者に格納

	CALL SINGLE_DRAWLINE
	PRINTFORML どのような形で処刑しますか？
	PRINTL [0] 触手に身も心も捧げてもらう
	PRINTL [1] 触手と共存させて社会的に消えてもらう
	PRINTL [2] 記憶を消して触手部屋の副管理人となって貰う
	PRINTL [3] 厄介者は閉じ込めて無期懲役
	PRINTL [4] 自由を奪って出荷する
	PRINTL [5] 別世界送り
	INPUT

	IF RESULT == 0

		PRINTFORMW %ANAME(MASTER)%は牢屋番の兵士に、%ANAME(TARGET)%を縛り上げて触手部屋へ放り込むように命令した…
		PRINTW …………
		PRINTFORML 兵士たちが拘束された%ANAME(TARGET)%を触手部屋の中に蹴り出して扉を閉めると、
		PRINTFORMW 待ってましたとばかりに部屋中の触手が%ANAME(TARGET)%の体目掛けて殺到する
		PRINTFORML 触手はあっという間に%ANAME(TARGET)%の全身を飲み込むと、
		IF HAS_PENIS(TARGET)
			PRINTFORMW 全身の穴という穴を犯しながらペニスに絡み付き精を搾ろうと蠢いた
			LOCALS:0 = 何度も精を吐き出しながら
		ELSE
			PRINTFORMW 全身の穴という穴を犯しながら体中を愛撫していく
			LOCALS:0 = 何度も絶頂しガクガクと体を震わせながら
		ENDIF

		IF TALENT:崩壊
			PRINTFORMW 既に心の壊れた%ANAME(TARGET)%は抵抗することもなく、
			PRINTFORMW %LOCALS:0%触手に飲み込まれていった…
		ELSEIF TALENT:虚ろ
			PRINTFORMW 既に疲弊しきった%ANAME(TARGET)%はほとんど抵抗することもできず、
			PRINTFORMW %LOCALS:0%触手に飲み込まれていった…
		ELSE
			IF ABL:触手 >= 5
				PRINTFORML すっかり触手の虜になった%ANAME(TARGET)%は、襲いかかる暴力的な快感と苦痛に身を任せ、
				IF HAS_PENIS(TARGET)
					PRINTFORMW 激しく痙攣しながら何度となく絶頂し精を吐き出していく…
				ELSE
					PRINTFORMW 激しく痙攣しながら何度となく絶頂していく…
				ENDIF
				IF TALENT:妊娠
					PRINTFORMW 更に触手は%ANAME(TARGET)%の体内に宿った小さな命まで貪り尽くすべく
					PRINTFORMW %ANAME(TARGET)%の子宮口を食い破り、腹をボコボコと変形させる程に中身を蹂躙するが
					PRINTFORMW 既に心身ともに触手の餌へと成り下がった%ANAME(TARGET)%には、そのおぞましい行為にすら快感をおぼえ、絶頂を繰り返す…
				ENDIF
				PRINTFORML 触手たちは%ANAME(TARGET)%が抵抗しないのを確認すると、%ANAME(TARGET)%の体を奥へと引きずり込み、
				PRINTFORMW 至上の快楽を与えながら自分たちの一部へと同化させていった…
			ELSE
				PRINTFORML %ANAME(TARGET)%は暴力的な苦痛と快感を強制的に与えられ、
				IF HAS_PENIS(TARGET)
					PRINTFORMW なすすべなく何度となく絶頂しながら精を搾り取られていく…
				ELSE
					PRINTFORMW なすすべなく何度となく絶頂させられてしまう…
				ENDIF
				IF TALENT:妊娠
					PRINTFORMW 更に触手は%ANAME(TARGET)%の体内に宿った小さな命まで貪り尽くすべく
					PRINTFORMW %ANAME(TARGET)%の子宮口を食い破り、腹をボコボコと変形させる程に中身を蹂躙していく
					PRINTFORMW そのおぞましい行為に半狂乱となった%ANAME(TARGET)%は、せめてお腹の子だけは救おうと最後の力を振り絞るも
					PRINTFORMW 虚しい抵抗は触手からの無慈悲な制裁によってひねり潰されてしまう…
				ENDIF
				PRINTFORML やがて、絶え間ない絶頂で力尽きぐったりとした%ANAME(TARGET)%の体を触手がさらに奥へと引きずり込み、
				PRINTFORMW 至上の快楽を与えながら自分たちの一部へと同化させていった…
			ENDIF
		ENDIF

	ELSEIF RESULT == 1
		PRINTFORMW %ANAME(MASTER)%は調教係の女官達に、%ANAME(TARGET)%を触手部屋へ放り込むように命令した…
		PRINTW …………
		PRINTFORML 女官達たちは%ANAME(TARGET)%を解放すると言うと、触手部屋に案内して硬く鍵を掛けた
		PRINTFORMW 驚いて振り返る%ANAME(TARGET)%の身体に触手達は巻きつき、磔刑のようにして拘束してきた
		PRINTFORMW 辺り一面には新しい共存者を歓迎する触手達で溢れている…

		IF TALENT:妊娠
			PRINTFORML 触手は%ANAME(TARGET)%の体を撫で回すと、ソナーのように体内に宿った小さな命を感知した
			PRINTFORMW ……思わぬ収穫に喜んだ触手達は、%ANAME(TARGET)%の頭を撫でている
		ELSEIF TALENT:処女 && HAS_VAGINA(TARGET)
			PRINTFORML 触手が%ANAME(TARGET)%の膣を貫くと、処女の証である血が零れてきた
			PRINTFORMW ……思わぬ上玉に喜んだ触手達は、%ANAME(TARGET)%の頭を撫でている
		ELSE
		ENDIF

		IF HAS_VAGINA(TARGET)
			PRINTFORMW 触手達は%ANAME(TARGET)%の体を犯し、中毒性の高い粘液をたっぷり注ぎ込んだ……
			PRINTFORML さらに触手達は身体のあちこちを穿ち、細胞因子を組み入れ神経を同化させていった
			PRINTFORMW %ANAME(TARGET)%は触手を身に宿していなければ生きられないように身体を組み替えられてしまった！
			PRINTFORML 彼女はこれからずっと触手達に養われ、犯され、新しい触手を産み落とす生活をする事になる
			PRINTFORMW 次第に生命体として変化していき、やがては新しい妖怪となるだろう……
		ELSE
			PRINTFORML 触手達は%ANAME(TARGET)%の体へ潜り込み、細胞因子を組み入れ神経を同化させていった
			PRINTFORMW %ANAME(TARGET)%は触手を身に宿していなければ生きられないように身体を組み替えられてしまった！
			PRINTFORML 彼はこれからずっと触手達に養われ、拒否権を奪われ、触手を培養する生活を送る事になる
			PRINTFORMW 次第に生命体として変化していき、やがては新しい妖怪となるだろう……
		ENDIF

		PRINTFORMW ………………

		IF TALENT:妊娠
			PRINTFORML お腹に宿った命は触手に取り上げられ、同じく触手を産み落とす存在になるようだ
			PRINTFORMW 外を知らずにここで触手達に育てられれば産まれた子は不幸と感じないかもしれない……
		ENDIF

		PRINTFORML 住めば都と言うように、ここに慣れる日が来るかもしれない
		PRINTFORMW しかし%ANAME(TARGET)%という存在は、もう死んだも当然であった……

	ELSEIF RESULT == 2
		PRINTFORMW %ANAME(TARGET)%は白いベットの上で目を覚ました…
		PRINTW …………
		PRINTFORML 身なりを整え、侍従服に着替えると朝の仕事を開始した
		PRINTFORMW まず触手部屋へ行って新しく産まれた触手がどのぐらいかの確認
		PRINTFORML それが終わったら未使用の部屋の掃除、衛生面に気を使って零れた体液はしっかりふき取る
		PRINTFORMW 次に新しく来た子がちゃんと気持ちよくなれるように触手達もよく洗っておく

		PRINTFORML 夕時には終わる仕事だが、ここまでの間に元気の無い触手を見かけたので
		PRINTFORMW 親身になってカウンセリングを行ってやらなければならない。

		IF HAS_VAGINA(TARGET)
			PRINTFORMW 幸いにも%ANAME(TARGET)%は女性だったので、触手の為に自分の身体を使うことにした
			IF TALENT:妊娠
				PRINTFORML 妊娠しているので胎内は使わせてあげることは出来なかったが、
				PRINTFORMW 変わりに夜までお尻を好き勝手犯させて、自信をつけさせた
				PRINTFORMW %ANAME(TARGET)%を犯し倒した触手はすっかり元気を取り戻したようだ
			ELSEIF TALENT:処女 && HAS_VAGINA(TARGET)
				PRINTFORML 触手と%ANAME(TARGET)%が繋がると、赤い雫が零れ落ちた。触手は胎内へと侵入したようだ
				PRINTFORML ……この仕事についた時から興味はあったのだと、%ANAME(TARGET)%は心配する触手へ自由に動くよう指示した
				PRINTFORMW 触手は%ANAME(TARGET)%の始めてを貰って自信をつけたようだ
			ELSE
				PRINTFORML 触手の頭にちょんと口をつけ、唾液で潤してから膣口へと導いてやった……
				IF ABL:触手 >= 10
					PRINTFORML 元気の無い触手が甘やかされているのを見て、他の触手も集まってきてしまった
					PRINTFORMW 仕方ないので手や足でぐりぐり擦り上げ、口で咥えて舌で撫でる
					PRINTFORML ……一斉に精子を吐き出された。掃除のやり直しのようだ
				ELSE
					PRINTFORMW 胎内にちゃんと潜りこんだのを確認して、夜まで一緒に繋がっててやる事にした
					PRINTFORMW %ANAME(TARGET)%を犯し倒した触手はすっかり元気を取り戻したようだ
				ENDIF
			ENDIF
		ELSE
			PRINTFORMW いざという時に動けないようでは犯された側も犯した側も幸せになれないだろう
			PRINTFORMW 夜まで付き合ってやり、自信を取り戻すよう指導を行った……
		ENDIF

		PRINTFORMW ………………
		PRINTFORML 気がついた時には何も覚えていなかった身だが、仕事もあるし触手達も居る。
		PRINTFORMW 過去の事はどうでもいい。そう思って夜はベットに戻る
		PRINTFORMW それが自分の名前すらも忘れた%ANAME(TARGET)%の新しい生活となった……

	ELSEIF RESULT == 3
		PRINTFORMW %ANAME(TARGET)%は地下深くへ封じ込められた…
		PRINTW …………
		PRINTFORMW グチュグチュと淫靡な音が、止まず響き渡っている
		PRINTFORML 幾つもの触手たちが%ANAME(TARGET)%の身体を犯していた
		PRINTFORMW 何の術が掛かっているのか、%ANAME(TARGET)%の身体はずっと来た時のままを保っている
		PRINTFORMW 成長もしない老いもしない、腹も減らず髪も伸びず感覚も衰えない……
		PRINTFORML 朝も昼も無く時間が止まった世界でずっと触手達に犯され続けている

		PRINTFORMW もはやどのぐらいの時間が経過したのか%ANAME(TARGET)%には分からなかった

		IF TARGET:0 == NAME_TO_CHARA("豊姫") || TARGET:0 == NAME_TO_CHARA("依姫") || TARGET:0 == NAME_TO_CHARA("サグメ") || TARGET:0 == NAME_TO_CHARA("レイセン") || TARGET:0 == NAME_TO_CHARA("清蘭") || TARGET:0 == NAME_TO_CHARA("鈴瑚")
			PRINTFORMW 感じるのは月の都の懐かしい記憶と、心を焦がす程に身体を蝕んでいく快楽だけである
		ELSEIF TARGET:0 == NAME_TO_CHARA("蓮子") || TARGET:0 == NAME_TO_CHARA("マエリベリー") || TARGET:0 == NAME_TO_CHARA("菫子")
			PRINTFORMW 感じるのは外の世界の懐かしい記憶と、心を焦がす程に身体を蝕んでいく快楽だけである
		ELSE
			PRINTFORMW 感じるのは幻想郷の懐かしい記憶と、心を焦がす程に身体を蝕んでいく快楽だけである
		ENDIF

		PRINTFORMW 誰かが助けに来るのはとうの昔に諦めてしまった

		IF TALENT:妊娠
			PRINTFORML 腹に誰かの子を身に宿していた記憶はあるが、それも最早どうでもいいことである
			PRINTFORMW この空間では産まれてくる事も失われる事も無いのだ
		ENDIF

		IF HAS_VAGINA(TARGET)
			PRINTFORML 大きな触手が股間へ宛がわれた。%ANAME(TARGET)%は身体を攀じ曲げ入れるのに不自然ないよう調整した
			PRINTFORMW 触手は進入して膣口を打ちつけて大量の精を注ぎ込んだ
		ELSE
			PRINTFORML 大きな触手が股間へ宛がわれた。%ANAME(TARGET)%は身体を攀じ曲げ入れるのに不自然ないよう調整した
			PRINTFORMW 触手は進入してアナルを打ちつけて大量の精を注ぎ込んだ
		ENDIF

		IF ABL:触手 >= 5
			PRINTFORMW %ANAME(TARGET)%はそれを受け入れると、触手達に向かって次をおねだりした……
			PRINTFORMW この絶望から解放されるために、もっと快楽を感じるために……
		ELSEIF TALENT:処女 && HAS_VAGINA(TARGET)
			PRINTFORML 触手が抜かれると、%ANAME(TARGET)%から赤と白の入り混じった液体が零れ落ちた
			PRINTFORMW この空間ではすぐに膜は再生する。永遠と純潔を散らされ続けるのだ
			PRINTFORMW 身を溶かすような痛みに対して、%ANAME(TARGET)%は惚けた目でお腹をさすった……
		ELSE
			PRINTFORMW 全く慣れる事のできない感覚に、%ANAME(TARGET)%は背中を沿って絶頂した……
		ENDIF

	ELSEIF RESULT == 4
		PRINTFORMW %ANAME(TARGET)%は全裸のまま拘束され、小さな檻の中へ閉じ込められた…
		PRINTW …………
		PRINTFORMW 檻の隙間を通って、%ANAME(TARGET)%へと触手達が殺到した
		PRINTFORML 出来るだけ高い繁殖力を持つ触手から、順々に%ANAME(TARGET)%を犯していく
		PRINTFORMW 触手に責め立てられ音が響く度に、さるぐつわを噛まされた%ANAME(TARGET)%は唸り声を上げていたが
		PRINTFORML 休む事も無く襲い掛かる触手を相手にするうちに、\@ RAND:2 ? 目を見開いたまま # 俯き目を伏せて \@大人しくなった
		IF TALENT:妊娠
			PRINTFORMW ごぷり、と%ANAME(TARGET)%の尻穴からはおびただしい量の精液が漏れ出している
			PRINTFORMW ………………
			PRINTFORMW %ANAME(TARGET)%の体には幾つもの種子が植えつけられた
		ELSE
			IF TALENT:処女 && HAS_VAGINA(TARGET)
				PRINTFORMW どろり、と破瓜した%ANAME(TARGET)%の割れ目からは血が入り混じった精液が漏れ出している
				PRINTFORMW ………………
				PRINTFORMW 目玉のついた触手が%ANAME(TARGET)%の体をチェックし、着床を確認した
			ELSEIF HAS_VAGINA(TARGET)
				PRINTFORMW ごぷり、と%ANAME(TARGET)%の雌穴からはおびただしい量の精液が漏れ出している
				PRINTFORMW ………………
				PRINTFORMW 目玉のついた触手が%ANAME(TARGET)%の体をチェックし、着床を確認した
			ELSE
				PRINTFORMW しかし%ANAME(TARGET)%の体中の血管は浮かび上がり、拒絶反応を起している
				PRINTFORMW ………………
				PRINTFORMW 暫くすると%ANAME(TARGET)%と触手は無事一体化したようだ、ペニスには寄生した触手が纏わりついている
			ENDIF
		ENDIF
		PRINTFORML 途中の生命維持用の触手が檻に乗り込むと、檻の周りは幾十もの紙で包まれた
		PRINTFORMW %ANAME(MASTER)%が取り扱い注意というラベルと、必要な情報を書いた紙を貼り付けると

		SELECTCASE RAND:9
			CASE 0
				PRINTFORML 旅の支度をした我が軍の兵士達が檻を回収していった
				PRINTFORMW %ANAME(TARGET)%は行く先で戦力を生み出すために活躍してもらう事になる
				PRINTFORMW 行く先でコロニーが出来れば%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 1
				PRINTFORML 隣の部屋で待たせていた妖精達がそれを回収していった
				PRINTFORMW %ANAME(TARGET)%は行く先で騙された妖精を巻き込みながら、触手を繁栄させる事になる
				PRINTFORMW 触手が増えれば%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 2
				PRINTFORML 屈強な鬼達が軽くそれを持ち上げ回収していった
				PRINTFORMW %ANAME(TARGET)%は行く先で変わった見世物として使われる事になるだろう
				PRINTFORMW 鬼から受け取った道具で%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 3
				PRINTFORML 裏取引をした陣営の兵士が檻を回収していった
				PRINTFORMW %ANAME(TARGET)%はあちらの国の、恐らくは触手関連の施設に何らかの貢献を果たす事になる
				PRINTFORMW 代償として手に入れたノウハウで%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 4
				PRINTFORML 怪しい顔をした商人がそれを回収していった
				PRINTFORMW %ANAME(TARGET)%は商人達に一つの商品として扱われる事になる
				PRINTFORMW 礼として受け取った術具で%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 5
				PRINTFORML ローブに身を纏った魔法使いが檻を回収していった
				PRINTFORMW %ANAME(TARGET)%は魔術の媒体か、実験台か、多分その辺に使われる事になる
				PRINTFORMW 交換で受け取った魔術書で%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 6
				PRINTFORML Anazonと服に書かれた業者がそれを回収して行った。
				PRINTFORMW %ANAME(TARGET)%はまだ見ぬ新天地へと届けられ、そこで種を反映させる事になる
				PRINTFORMW 世界に触手が満ちれば%ANAME(LOCAL:35)%の力も増加するだろう
			CASE 7
				PRINTFORML 地面に魔方陣が浮かび上がり、そこから出た蛸の様な触手が檻を回収していった
				PRINTFORMW %ANAME(TARGET)%は知られざる邪悪な者の貢物となった。運が良ければつがいに使われるかもしれない
				PRINTFORML 彼らから受け取った貴重な書物で%ANAME(LOCAL:35)%の力もまた増すだろう
			CASE 8
				PRINTFORML 外の世界から忍び込んだ科学者達がそれを回収していった。
				PRINTFORMW %ANAME(TARGET)%はサンプルとして生かされ、様々な実験に使われることになる
				PRINTFORMW 報酬と受け取った外の技術で%ANAME(LOCAL:35)%の力もまた増すだろう
		ENDSELECT
		PRINTFORMW ………非人道的な事だが、これも戦いに勝つ為である

	ELSE
		PRINTFORMW %ANAME(TARGET)%は突然地面に空いた穴に落ちていった…
		PRINTW …………
		PRINTFORML 目を覚ますと一見どこかの洞窟のような場所に%ANAME(TARGET)%は居た
		PRINTFORMW 洞窟のあちこちには触手が見え隠れしており、ここが普通では無い事を伺わせる。
		PRINTFORMW 足元を調べれば一本の棍棒が落ちていた……。これでどうしろと言うのか

		IF TALENT:崩壊 || TALENT:虚ろ
			PRINTFORMW 虚ろな目で辺りを見つめる%ANAME(TARGET)%の頭上から触手が襲い掛かった！
			PRINTFORMW 既に心が折れていた%ANAME(TARGET)%は呆然と立ち尽くしたままそれに捕らえられてしまった……
			PRINTFORMW ………………
		ELSEIF TALENT:妊娠
			PRINTFORMW 困惑する%ANAME(TARGET)%の頭上から触手が襲い掛かった！
			PRINTFORML 素早く横に避け、能力で応戦しようとする%ANAME(TARGET)%だったが
			PRINTFORMW 悪阻に襲われ、座り込んでしまった……！
			PRINTFORMW ………………
		ELSE
			PRINTFORMW 困惑する%ANAME(TARGET)%の頭上から触手が襲い掛かった！
			PRINTFORML 素早く横に避け、能力で応戦しようとする%ANAME(TARGET)%だったが
			PRINTFORMW なんと、力を発揮することが出来なかった……！
			PRINTFORMW ………………
		ENDIF

		IF HAS_VAGINA(TARGET)
			IF TALENT:妊娠
				PRINTFORMW ……洞窟の奥で%ANAME(TARGET)%は水飴のような生き物に囚われていた
				PRINTFORMW 触手達に敗北した後どれだけ経ったのか、%ANAME(TARGET)%は長い時間犯され続けている
				PRINTFORMW 一人の影がそこへ近づいてきた。顔はよく%ANAME(TARGET)%に似ていた
				PRINTFORMW かつてお腹に居た子供は、触手に取り上げられ迷宮の一員として立派にやっているようだ
				PRINTFORMW この先%ANAME(TARGET)%達がどうなるのか、それはもうこちらの世界には関係ない事だろう……
			ELSEIF TALENT:崩壊 || TALENT:虚ろ
				PRINTFORMW %ANAME(TARGET)%は洞窟の奥へ連れて行かれ、触手の束のような生物に組み込まれた
				PRINTFORMW 別世界の生物の中は液体で満たされており、%ANAME(TARGET)%はそこで犯され続けている
				PRINTFORMW この先、%ANAME(TARGET)%は触手の苗床として生きることになる。こちらの世界に戻ってくる事は無いだろう……
			ELSEIF ABL:触手 >= 10
				PRINTFORMW ……数時間後、そこには触手から精を搾り尽くした%ANAME(TARGET)%の姿があった
				PRINTFORMW %ANAME(TARGET)%は慣れた手つきで触手たちへ奉仕し、環境に溶け込むことに成功したようだ！
				PRINTFORMW 別世界の触手と共存関係を築いた%ANAME(TARGET)%は、触手達の女王として君臨する事になった……
			ELSEIF ABL:触手 >= 8
				PRINTFORMW 触手に敗北した%ANAME(TARGET)%は洞窟の奥へ連れ去られてしまった……
				PRINTFORMW そして、洞窟の奥ではなんと%ANAME(TARGET)%と瓜二つの人物が触手に犯されていた！
				PRINTFORMW %ANAME(TARGET)%は触手に組み敷かれ、もう一人の%ANAME(TARGET)%と抱き合わせられて触手を突き込まれた！
				PRINTFORMW ……この後、二人の%ANAME(TARGET)%は末永く触手の元で暮らす事になった
			ELSEIF ABL:触手 >= 6
				PRINTFORMW ……%ANAME(TARGET)%は、触手の巧みな動きに勝てず敗北してしまった
				PRINTFORMW そして洞窟の奥へ連れて行かれ、横向きで壁に埋め込まれてしまった！
				PRINTFORMW 洞窟の施設となった%ANAME(TARGET)%は大人気で、しっかりと管理され、下半身は毎日触手が群がっている……
				PRINTFORMW 愛されてるようなので死ぬ事は無いだろうが、こちらの世界に戻ってくる事も無いだろう……
			ELSEIF ABL:触手 >= 4
				PRINTFORMW 必死に棍棒で応戦した%ANAME(TARGET)%は事なきを得た。
				PRINTFORMW 倒した触手は%ANAME(TARGET)%の普段着と同じ服を落としていった……
				PRINTFORMW 投獄されまともな服を着ていなかった%ANAME(TARGET)%は、怪しいと思いつつもそれを身につけてしまった！
				PRINTFORMW 服に擬態していた触手は突然蠢きだし、しっかりと%ANAME(TARGET)%の体へ密着して犯し始めた！
				PRINTFORMW 悶える%ANAME(TARGET)%は無事この迷宮を脱出できるだろうか。それはもうこちらの世界には関係ない事だろう……
			ELSEIF ABL:触手 >= 2
				PRINTFORMW 必死に棍棒で応戦した%ANAME(TARGET)%は事なきを得た。
				PRINTFORMW 一息をついた%ANAME(TARGET)%は宙へ持ち上げられた、見れば鳥のような化物が自分を持ち上げている……
				PRINTFORMW 鳥のような化物は巣まで飛ぶと、すぐさまペニスに寄生した触手で%ANAME(TARGET)%を犯し始めた！
				PRINTFORMW 不意を付かれた%ANAME(TARGET)%はこの後、異世界の触手を孕むまで犯される事となるが
				PRINTFORMW もはやこちらの世界には関係ない事だろう……
			ELSE
				PRINTFORMW %ANAME(TARGET)%は必死に棍棒で応戦して事なきを得た
				PRINTFORMW 非常識に程がある状況だが、きっとここから脱出してみせる！
				PRINTFORMW そう心に誓った%ANAME(TARGET)%は洞窟を進んでいった。……ここが別世界であるなどと知らずに
			ENDIF
		ELSE
			PRINTFORMW %ANAME(TARGET)%は必死に棍棒で応戦して事なきを得た
			PRINTFORMW 非常識に程がある状況だが、きっとここから脱出してみせる！
			PRINTFORMW そう心に誓った%ANAME(TARGET)%は洞窟を進んでいった。……ここが別世界であるなどと知らずに
		ENDIF
	ENDIF

	;-------------------------------------------------
	;登用に応じる(放浪イベント)
	;-------------------------------------------------
ELSEIF ARG == 350
	PRINTFORMW %NAME%は考えた末、我が国への仕官を決めたようです

	;-------------------------------------------------
	;忠誠を誓わせる(逆調教)
	;-------------------------------------------------
ELSEIF ARG == 450
	LOCAL:5 = GET_COUNTRY_BOSS(CFLAG:1)
	IF LOCAL:5 == TARGET
		IF ABL:主導度Ｕ >= 500 || GETBIT(TALENT:淫乱系, 素質_淫乱_サド)
			PRINTFORML %ANAME(TARGET)%は%ANAME(MASTER)%に対して、自分の配下になるように強い口調で命令した
		ELSE
			PRINTFORML %ANAME(TARGET)%は%ANAME(MASTER)%に対して、自分の配下になるように言い聞かせた
		ENDIF
	ELSE
		IF ABL:主導度Ｕ >= 500 || GETBIT(TALENT:淫乱系, 素質_淫乱_サド)
			PRINTFORML %ANAME(TARGET)%は%ANAME(MASTER)%に対して、%ANAME(LOCAL:5)%に仕官するように強い口調で命令した
		ELSE
			PRINTFORML %ANAME(TARGET)%は%ANAME(MASTER)%に対して、%ANAME(LOCAL:5)%に仕官するように言い聞かせた
		ENDIF
	ENDIF

	;-------------------------------------------------
	;忠誠を誓わせる(逆調教)/成功
	;-------------------------------------------------
ELSEIF ARG == 451
	PRINTFORMW %ANAME(MASTER)%が頷くと、%ANAME(TARGET)%は満足そうに笑みを浮かべ、%ANAME(MASTER)%の縄を解いた…

	;-------------------------------------------------
	;忠誠を誓わせる(逆調教)/失敗
	;-------------------------------------------------
ELSEIF ARG == 452
	PRINTFORMW %ANAME(TARGET)%は残念そうに首を振ると、さらなる調教を加えるために%ANAME(MASTER)%に向き直った

ENDIF

RETURN 1


code:
;-------------------------------------------------
;;; 口上のフラグ管理用関数群
;-------------------------------------------------
;;; 口上フラグの全初期化
@KOJO_FLAG_INIT_ALL(CHARA_ID)
#DIM CHARA_ID
CSTR:CHARA_ID:XML_KOJO_FLAG '= "<kojoFlag></kojoFlag>"

;-------------------------------------------------
;;; 指定のキャラクターに口上フラグを設定する
;;; ※すでに同フラグ名がある場合は上書きされる
;;; - ARGS
;;;     - CHARA_ID {int}: キャラクターID
;;;     - FLAG_NAME {string}: フラグ名
;;;     - VALUES {string}: フラグ値
;;; - RETURN
;;;     - RESULT {int}: 0 失敗 1 成功
;-------------------------------------------------
@KOJO_SET_FLAG(CHARA_ID, FLAG_NAME, VALUES)
#DIM  CHARA_ID
#DIMS FLAG_NAME
#DIMS VALUES

; 口上フラグが空の場合は初期化
IF CSTR:CHARA_ID:XML_KOJO_FLAG == ""
    CALL KOJO_FLAG_INIT_ALL(CHARA_ID)
ENDIF

VARS XML
VARI KOJO_ID
XML = %CSTR:CHARA_ID:XML_KOJO_FLAG%
KOJO_ID = KOJO_NO(CHARA_ID)

SIF !KOJO_ID
    RETURN 0

IF !XML_GET(XML, @"/kojoFlag/kojo[@id = {KOJO_ID}]", 1)
    XML_ADDNODE XML, @"/kojoFlag", @"<kojo id='{KOJO_ID}'/>"
ENDIF
IF !XML_GET(XML, @"/kojoFlag/kojo[@id = '{KOJO_ID}']/flag[@name = '%FLAG_NAME%']", 1)
    XML_ADDNODE XML, @"/kojoFlag/kojo[@id = '{KOJO_ID}']", @"<flag name='%FLAG_NAME%' value='%VALUES%'/>"
ELSE
    XML_ADDATTRIBUTE XML, @"/kojoFlag/kojo[@id = '{KOJO_ID}']/flag[@name = '%FLAG_NAME%']", "value", @"%VALUES%", 1
ENDIF

CSTR:CHARA_ID:XML_KOJO_FLAG = %XML%
RETURN 1

;-------------------------------------------------
;;; 式中関数:指定のキャラクターの指定のフラグを取得する
;;; - ARGS
;;;     - CHARA_ID {int}: キャラクターID
;;;     - FLAG_NAME {string}: フラグ名
;;; - RETURN
;;;     - RESULTS {string}: フラグ値
;-------------------------------------------------
@KOJO_GET_FLAG(CHARA_ID, FLAG_NAME)
#FUNCTIONS
#DIM  CHARA_ID
#DIMS FLAG_NAME
#DIMS DYNAMIC XML
#DIM  DYNAMIC KOJO_ID

VARSET RESULTS
XML = %CSTR:CHARA_ID:XML_KOJO_FLAG%
SIF XML == ""
    RETURNF
KOJO_ID = KOJO_NO(CHARA_ID)

XML_GET XML, @"/kojoFlag/kojo[@id = '{KOJO_ID}']/flag[@name = '%FLAG_NAME%']/@value", 1
RETURNF RESULTS

;-------------------------------------------------
;;; 式中関数:指定のキャラクターの指定のフラグを整数で取得する
;;; 用法は@KOJO_GET_FLAGと同じ
;-------------------------------------------------
@KOJO_GET_FLAGINT(CHARA_ID, FLAG_NAME)
#FUNCTION
#DIM  CHARA_ID
#DIMS FLAG_NAME

RETURNF TOINT(KOJO_GET_FLAG(CHARA_ID, FLAG_NAME))

;-------------------------------------------------
;;; 指定のキャラクターの指定のフラグを削除する
;;; - ARGS
;;;     - CHARA_ID {int}: キャラクターID
;;;     - FLAG_NAME {string}: フラグ名
;;; - RETURN
;;;     - RESULT {int}: 0 失敗 1 成功
;-------------------------------------------------
@KOJO_REMOVE_FLAG(CHARA_ID, FLAG_NAME)
#DIM  CHARA_ID
#DIMS FLAG_NAME
VARSET RESULTS
VARS XML
VARI KOJO_ID
XML = %CSTR:CHARA_ID:XML_KOJO_FLAG%
KOJO_ID = KOJO_NO(CHARA_ID)

XML_REMOVENODE XML, @"/kojoFlag/kojo[@id = '{KOJO_ID}']/flag[@name = '%FLAG_NAME%']"
IF RESULT
    CSTR:CHARA_ID:XML_KOJO_FLAG = %XML%
    RETURN 1
ELSE
    RETURN 0
ENDIF

;-------------------------------------------------
;;; 指定のキャラクターに現在設定されている口上のフラグを全て削除する
;;; - ARGS
;;;     - CHARA_ID {int}: キャラクターID
;;; - RETURN
;;;     - RESULT {int}: 0 失敗 1 成功
;-------------------------------------------------
@KOJO_REMOVE_ALL_FLAG(CHARA_ID)
#DIM  CHARA_ID
VARSET RESULTS
VARS XML
VARI KOJO_ID
XML = %CSTR:CHARA_ID:XML_KOJO_FLAG%
KOJO_ID = KOJO_NO(CHARA_ID)

XML_REMOVENODE XML, @"/kojoFlag/kojo[@id = '{KOJO_ID}']", 1
IF RESULT
    CSTR:CHARA_ID:XML_KOJO_FLAG = %XML%
    RETURN 1
ELSE
    RETURN 0
ENDIF

repo_name: pervysquirrelz/erafl

license: unknown


code:
;-------------------------------------------------
; 居住区モードの各データを口上出力用に取得するための関数
; 口上で使用することを想定してなるべく平易な名称で。
;-------------------------------------------------
;-------------------------------------------------
; キャラIDからキャラクターが実行しているアクションを取得する
; RESULTS:0 = "実行中の行動"(待機中、食事中、休憩中など)
;-------------------------------------------------
@KJ_行動(CHARA_ID)
#DIM CHARA_ID
CALL HO_GET_CHARAACT(CHARA_ID)
RETURN

;-------------------------------------------------
; キャラIDからキャラクターがいるエリアの名称とROOM_IDを取得
; RESULTS:0 = "部屋名"
; RESULT:0 = ROOM_ID
;-------------------------------------------------
@KJ_エリア(CHARA_ID)
#DIM CHARA_ID
#DIM ROOM_IDX
#DIM ROOM_ID
CALL HO_GET_CHARAPLACE(CHARA_ID)
ROOM_IDX = RESULT
CALL HO_GET_ROOM_ID(ROOM_IDX)
ROOM_ID = RESULT
CALL HO_GET_ROOM_NAME(ROOM_IDX)
RETURN ROOM_ID

;-------------------------------------------------
; キャラIDからキャラクターが使用している設備の名称とMODULE_IDを取得
; RESULTS:0 = "設備名"
; RESULT:0 = MODULE_ID
;-------------------------------------------------
@KJ_設備(CHARA_ID)
#DIM CHARA_ID
#DIM MODULE_ID
#DIMS MODULE_NAME

CALL HO_GET_USE_MODULE_INFO(CHARA_ID)
MODULE_ID = RESULT
MODULE_NAME = %RESULTS%
RESULTS = %MODULE_NAME%
RETURN MODULE_ID

;-------------------------------------------------
; キャラIDと属性名からキャラクターが使用している設備の属性と合致するかを取得
; @HO_CHECK_USE_MODULE_ELEMENT のラッパー関数
; RETURN = 1(一致), 0(不一致)
;-------------------------------------------------
@KJ_設備属性(CHARA_ID, 属性名)
#DIM CHARA_ID
#DIMS 属性名
CALL HO_CHECK_USE_MODULE_ELEMENT(CHARA_ID, 属性名)
RETURN RESULT

;-------------------------------------------------
;●DATAFORM文の中で口上カラーを無効にして出力
;-------------------------------------------------
@DF_PLAIN(ARGS:0)
#FUNCTIONS
#DIMS 表示テキスト
表示テキスト '= ""

PRINTFORMD %ARGS:0%
RETURNF 表示テキスト

;-------------------------------------------------
;;;HTMLカラータグ付きの❤文字列を返す式中関数
;;;@FUNCTIONS
;;;@ARGS
;;;- NUM   {int} :ハートの数(省略時一つ)
;;;- STYLE {string} :ハートのスタイル{省略時❤}
;;;- COLOR {int} :カラーコード(0xFFFFFF)指定(省略時ピンク)
;;;@RETURN
;;;- RETURNF
;;;  - {string} :タグ付きの❤文字列 (\❤\)
;-------------------------------------------------
@KJ_HRT(NUM = 1, STYLE = "❤", COLOR = カラー_ピンク)
;region
#FUNCTIONS
#DIM  NUM
#DIMS STYLE
#DIM  COLOR
#DIM DYNAMIC H_COLOR

;RETURNF @"%STYLE * NUM%"
RETURNF @"@C:{COLOR}@%STYLE * NUM%@/C@"
;#endregion


code:
;-------------------------------------------------
;番号ARG:0のキャラについて、素質を元にどの汎用口上を使うかを決定する
;-------------------------------------------------
@SET_KOJO_PATTERN(ARG:0)
;子供である場合
IF IS_CHILD(ARG:0)
	;男性・男双
	IF GROUPMATCH(TALENT:(ARG:0):性別, 0, 3)
		CFLAG:(ARG:0):汎用口上パターン = 1300
	;女性・女双・男の娘
	ELSE
		;万能
		IF TALENT:(ARG:0):成長型 == 0
			CFLAG:(ARG:0):汎用口上パターン = 1400
		;知将
		ELSEIF TALENT:(ARG:0):成長型 == 1
			CFLAG:(ARG:0):汎用口上パターン = 1400
		;学士
		ELSEIF TALENT:(ARG:0):成長型 == 2
			CFLAG:(ARG:0):汎用口上パターン = 1410
		;両道
		ELSEIF TALENT:(ARG:0):成長型 == 3
			CFLAG:(ARG:0):汎用口上パターン = 1400
		;武官
		ELSEIF TALENT:(ARG:0):成長型 == 4
			CFLAG:(ARG:0):汎用口上パターン = 1400
		;軍師
		ELSEIF TALENT:(ARG:0):成長型 == 5
			CFLAG:(ARG:0):汎用口上パターン = 1410
		;文官
		ELSEIF TALENT:(ARG:0):成長型 == 6
			CFLAG:(ARG:0):汎用口上パターン = 1410
		;芸能
		ELSEIF TALENT:(ARG:0):成長型 == 7
			CFLAG:(ARG:0):汎用口上パターン = 1410
		;料理
		ELSEIF TALENT:(ARG:0):成長型 == 8
			CFLAG:(ARG:0):汎用口上パターン = 1400
		;天才
		ELSEIF TALENT:(ARG:0):成長型 == 9
			CFLAG:(ARG:0):汎用口上パターン = 1400
		ENDIF
	ENDIF

;通常の汎用キャラの場合(子供以外)
ELSE
	;男性・男双
	IF GROUPMATCH(TALENT:(ARG:0):性別, 0, 3)
		CFLAG:(ARG:0):汎用口上パターン = 1100

	;女性・女双・男の娘
	;万能
	ELSEIF TALENT:(ARG:0):成長型 == 0
		CFLAG:(ARG:0):汎用口上パターン = 1200
	;知将
	ELSEIF TALENT:(ARG:0):成長型 == 1
		CFLAG:(ARG:0):汎用口上パターン = 1201
	;学士
	ELSEIF TALENT:(ARG:0):成長型 == 2
		CFLAG:(ARG:0):汎用口上パターン = 1202
	;両道
	ELSEIF TALENT:(ARG:0):成長型 == 3
		CFLAG:(ARG:0):汎用口上パターン = 1203
	;武官
	ELSEIF TALENT:(ARG:0):成長型 == 4
		CFLAG:(ARG:0):汎用口上パターン = 1204
	;軍師
	ELSEIF TALENT:(ARG:0):成長型 == 5
		CFLAG:(ARG:0):汎用口上パターン = 1205
	;文官
	ELSEIF TALENT:(ARG:0):成長型 == 6
		CFLAG:(ARG:0):汎用口上パターン = 1206
	;芸能
	ELSEIF TALENT:(ARG:0):成長型 == 7
		CFLAG:(ARG:0):汎用口上パターン = 1207
	;料理
	ELSEIF TALENT:(ARG:0):成長型 == 8
		CFLAG:(ARG:0):汎用口上パターン = 1200
	;天才
	ELSEIF TALENT:(ARG:0):成長型 == 9
		CFLAG:(ARG:0):汎用口上パターン = 1200
	ENDIF
ENDIF


code:
;口上に関する処理

;--------------------------------------------------
;キャラARG:0の口上ナンバーを返す
;ユニークキャラ……NOがそのまま返る
;汎用キャラ……口上パターン番号が返る
;--------------------------------------------------
@KOJO_NO(ARG:0)
#FUNCTION
IF IS_UNIQUE_CHARA(ARG:0) && ARG != MASTER
	RETURNF NO:(ARG:0)
ENDIF
IF CFLAG:(ARG:0):汎用口上パターン >= 1000 && CFLAG:(ARG:0):汎用口上パターン <= 6000
	RETURNF CFLAG:(ARG:0):汎用口上パターン
ENDIF
RETURNF 999

;--------------------------------------------------
;状況に応じた付加文字列を返す
;ARG:0に1を設定すると、分岐が細かくなる
;--------------------------------------------------
@KOJO_STATE(ARG:0 = 0)
#FUNCTIONS
IF ARG:0
	;会いに行く
	IF FLAG:調教モード == 0
		RETURNF "A1"
		;閨に呼ぶ
	ELSEIF FLAG:調教モード == 1
		RETURNF "A2"
		;子育て
	ELSEIF FLAG:調教モード == 3
		RETURNF "A3"
		;捕虜会話
	ELSEIF FLAG:調教モード == 6
		RETURNF "A4"
		;捕虜の調教
	ELSEIF FLAG:調教モード == 2
		RETURNF "B"
		;捕虜逆調教(通常)
	ELSEIF FLAG:調教モード == 5
		RETURNF "C"
		;捕虜逆調教(外来)
	ELSEIF FLAG:調教モード == 4
		RETURNF "D"
	ENDIF
ELSE
	;会いに行く・閨に呼ぶ・子育て・捕虜会話
	IF GROUPMATCH(FLAG:調教モード, 0, 1, 3, 6)
		RETURNF "A"
		;捕虜の調教
	ELSEIF FLAG:調教モード == 2
		RETURNF "B"
		;捕虜逆調教(通常)
	ELSEIF FLAG:調教モード == 5
		RETURNF "C"
		;捕虜逆調教(外来)
	ELSEIF FLAG:調教モード == 4
		RETURNF "D"
	ENDIF
ENDIF

RETURNF "X"

;--------------------------------------------------
;口上の存在判定  口上が存在すれば1を、存在しなければ0を返す
;ARG:0にはキャラのNOを指定する
;--------------------------------------------------
@IS_KOJO(ARG:0)
;イベントキャラは口上を表示しない
; IF ARG:0 >= 2000
; 	RETURN 0
; ENDIF

;口上を表示しない設定なら常に0を返す
IF (ARG:0 <= 100 && CONFIG:40 == 1) || (ARG:0 >= 101 && CONFIG:41 == 1)
	RETURN 0
ENDIF

TRYCCALLFORM KOJO_EXIST_K{ARG:0}
	RETURN 1
CATCH
ENDCATCH
RETURN 0

;--------------------------------------------------
;調教開始時の口上
;--------------------------------------------------
@FL_EVENTTRAIN_KOJO
;現在のターゲットを記録
LOCAL:0 = TARGET

;相手が一人の場合のみ口上呼び出し 捕虜調教の場合は人数制限を無視してメインターゲットの口上を表示 逆調教,特殊勢力逆調教の場合は全てじょうじ
;IF TFLAG:参加者数 == 1 || GROUPMATCH(FLAG:調教モード,2,4,5)
FOR LOCAL:0, 0, CHARANUM
	;調教参加フラグが立っていれば口上呼び出し(捕虜調教の場合はメインターゲットのみ)
	IF CFLAG:(LOCAL:0):調教参加フラグ && (FLAG:調教モード != 2 || FINDELEMENT(PRISONER_TARGET, LOCAL:0) != -1)
		TARGET = LOCAL:0
		LOCAL:5 = KOJO_NO(TARGET)

		CALL IS_KOJO(LOCAL:5)
		IF RESULT
			TRYCALLFORM KOJO_TRAIN_START_K{LOCAL:5}
			TRYCALLFORM KOJO_TRAIN_START_%KOJO_STATE(1)%_K{LOCAL:5}
		ENDIF
	ENDIF
NEXT
;ENDIF

;ターゲットを戻す
TARGET = LOCAL:0

;--------------------------------------------------
;交流終了時の口上
;--------------------------------------------------
@FL_EVENTEND_KOJO
;現在のターゲットを記録
LOCAL:0 = TARGET

;相手が一人の場合のみ口上呼び出し 捕虜調教の場合は人数制限を無視してメインターゲットの口上を表示 逆調教,特殊勢力逆調教の場合は全て口上を表示
IF TFLAG:参加者数 == 1 || GROUPMATCH(FLAG:調教モード,2,4,5)
	FOR LOCAL:0, 0, CHARANUM
		;調教参加フラグが立っていれば口上呼び出し(捕虜調教の場合はメインターゲットのみ)
		IF CFLAG:(LOCAL:0):調教参加フラグ && (FLAG:調教モード != 2 || FINDELEMENT(PRISONER_TARGET, LOCAL:0) != -1)
			TARGET = LOCAL:0
			LOCAL:5 = KOJO_NO(TARGET)

			CALL IS_KOJO(LOCAL:5)
			IF RESULT
				TRYCALLFORM KOJO_TRAIN_END_K{LOCAL:5}
				TRYCALLFORM KOJO_TRAIN_END_%KOJO_STATE(1)%_K{LOCAL:5}
			ENDIF
		ENDIF
	NEXT
ENDIF

;ターゲットを戻す
TARGET = LOCAL:0

@KOJO_COM_NEW(KOJO_PLACE)
#DIMS  KOJO_PLACE
VARS KOJO_PLACE_K
VARI CUR_TARGET = TARGET
VARI 地の文カット = 0
VARI CHARA_ID
VARI KOJO_NO

IF KOJO_PLACE == "TOP"
	KOJO_PLACE_K '= "BEFORE"
ELSEIF KOJO_PLACE == "MIDDLE"
	KOJO_PLACE_K '= ""
ELSEIF KOJO_PLACE == "BOTTOM"
	KOJO_PLACE_K '= "AFTER"
ENDIF

;実行者側口上呼び出し
FOR LOCAL, 0, MPLY_NUM
	SIF TARGET == -1
		CONTINUE
	CHARA_ID = MPLY:(LOCAL)
	SIF TCVAR:CHARA_ID:失神フラグ || TCVAR:CHARA_ID:離脱フラグ
		CONTINUE
	KOJO_NO = KOJO_NO(CHARA_ID)
	;システム変数TARGETをセット
	TARGET = CHARA_ID
	IF CHARA_ID == MASTER
		;あなた口上の呼び出し
		CALL KOJO_COM_MASTER(KOJO_PLACE)
		SIF RESULT == 2
			地の文カット = 1
	ELSE
		CALL IS_KOJO(KOJO_NO)
		IF RESULT
			IF IS_MPLY(MASTER) || IS_MTAR(MASTER)
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_PLAYER_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_PLAYER_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
			ELSE
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_PLAYER_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_PLAYER_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
			ENDIF
		ENDIF
		;口上XMLからの口上呼び出し
		CALL KOJO_XML_COM(CHARA_ID, KOJO_NO, KOJO_PLACE)
		SIF RESULT == 2
			地の文カット = 1
	ENDIF
NEXT

;ターゲット側口上呼び出し
FOR LOCAL, 0, MTAR_NUM
	SIF MTAR:0 == -1
		CONTINUE
	CHARA_ID = MTAR:(LOCAL)
	SIF TCVAR:CHARA_ID:失神フラグ || TCVAR:CHARA_ID:離脱フラグ
		CONTINUE
	KOJO_NO = KOJO_NO(CHARA_ID)
	;システム変数TARGETをセット
	TARGET = CHARA_ID
	IF CHARA_ID == MASTER
		;あなた口上の呼び出し
		CALL KOJO_COM_MASTER(KOJO_PLACE)
		SIF RESULT == 2
			地の文カット = 1
	ELSE
		CALL IS_KOJO(KOJO_NO)
		IF RESULT
			IF IS_MPLY(MASTER) || IS_MTAR(MASTER)
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_TARGET_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_%KOJO_PLACE_K%_TARGET_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
			ELSE
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_TARGET_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
				RESULT = 0
				TRYCALLFORM KOJO_COM_THIRD_%KOJO_PLACE_K%_TARGET_%KOJO_STATE()%_K{KOJO_NO}
				地の文カット |= RESULT
			ENDIF
		ENDIF
		;口上XMLからの口上呼び出し
		CALL KOJO_XML_COM(CHARA_ID, KOJO_NO, KOJO_PLACE)
		SIF RESULT == 2
			地の文カット = 1
	ENDIF
NEXT

; #region
; ;--------------------------------------------------
; ;コマンド実行前の口上
; ;戻り値に1を設定すると地の文がカットされる
; ;--------------------------------------------------
; @KOJO_COM_BEFORE
; #DIM XMLID
; ;現在のターゲットを記録
; LOCAL:0 = TARGET

; ;戻り値のデフォルト値を0に設定
; LOCAL:1 = 0

; ;主人公がプレイヤーの場合
; IF IS_MPLY(MASTER)
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("TOP")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	FOR LOCAL, 0, MTAR_NUM
; 		TARGET = MTAR:(LOCAL)
; 		SIF TARGET == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)

; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_TARGET_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_TARGET_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "TOP")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	;主人公がターゲットの場合
; ELSEIF IS_MTAR(MASTER)
; 	FOR LOCAL, 0, MPLY_NUM
; 		TARGET = MPLY:(LOCAL)
; 		SIF TARGET == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)

; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_PLAYER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_BEFORE_PLAYER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "TOP")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("TOP")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	;プレイヤーにもターゲットにも主人公を含まない
; ELSE
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("TOP")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	FOR LOCAL, 0, MPLY_NUM
; 		TARGET = MPLY:LOCAL
; 		SIF TARGET:LOCAL == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)
; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_PLAYER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_PLAYER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 		ENDIF
; 		;口上XMLからの口上呼び出し
; 		CALL KOJO_XML_COM(TARGET, LOCAL:5, "TOP")
; 		SIF RESULT == 2
; 			LOCAL:1 = 1
; 	NEXT
; 	FOR LOCAL, 0, MTAR_NUM
; 		TARGET = MTAR:LOCAL
; 		SIF TARGET:LOCAL == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)
; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_TARGET_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_BEFORE_TARGET_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "TOP")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; ENDIF

; ;ターゲットを戻す
; TARGET = LOCAL:0

; RETURN LOCAL:1

; ;--------------------------------------------------
; ;コマンド実行時の口上
; ;--------------------------------------------------
; @KOJO_COM
; ;現在のターゲットを記録
; LOCAL:0 = TARGET

; ;戻り値のデフォルト値を0に設定
; LOCAL:1 = 0

; ;主人公がプレイヤーの場合
; IF IS_MPLY(MASTER)
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("MIDDLE")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	FOR LOCAL, 0, MTAR_NUM
; 		TARGET = MTAR:(LOCAL)
; 		SIF TARGET:LOCAL == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)

; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_TARGET_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_TARGET_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "MIDDLE")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	;主人公がターゲットの場合
; ELSEIF IS_MTAR(MASTER)
; 	FOR LOCAL, 0, MPLY_NUM
; 		TARGET = MPLY:(LOCAL)
; 		SIF TARGET:LOCAL == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)

; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_PLAYER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_PLAYER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "MIDDLE")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("MIDDLE")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	;プレイヤーにもターゲットにも主人公を含まない
; ELSE
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("MIDDLE")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	FOR LOCAL, 0, MPLY_NUM
; 		TARGET = MPLY:LOCAL
; 		SIF TARGET:LOCAL == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)
; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_PLAYER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_PLAYER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "MIDDLE")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	FOR LOCAL, 0, MTAR_NUM
; 		TARGET = MTAR:LOCAL
; 		SIF TARGET:LOCAL == -1
; 			CONTINUE
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)
; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_TARGET_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_TARGET_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "MIDDLE")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; ENDIF

; ;ターゲットを戻す
; TARGET = LOCAL:0

; RETURN LOCAL:1

; ;-------------------------------------------------
; ;コマンド実行後の口上
; ;パラメータの変化や絶頂の有無を参照可能
; ;-------------------------------------------------
; @KOJO_COM_AFTER
; ;現在のターゲットを記録
; LOCAL:0 = TARGET

; ;戻り値のデフォルト値を0に設定
; LOCAL:1 = 0

; ;主人公がプレイヤーの場合
; IF IS_MPLY(MASTER)
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("BOTTOM")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	FOR LOCAL, 0, MTAR_NUM
; 		TARGET = MTAR:(LOCAL)
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)

; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_TARGET_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_TARGET_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "BOTTOM")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT

; 	;主人公がターゲットの場合
; ELSEIF IS_MTAR(MASTER)
; 	FOR LOCAL, 0, MPLY_NUM
; 		TARGET = MPLY:(LOCAL)
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)

; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_PLAYER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_AFTER_PLAYER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "BOTTOM")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("BOTTOM")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	;プレイヤーにもターゲットにも主人公を含まない
; ELSE
; 	;あなた口上の呼び出し
; 	CALL KOJO_COM_MASTER("BOTTOM")
; 	SIF RESULT == 2
; 		LOCAL:1 = 1
; 	FOR LOCAL, 0, MPLY_NUM
; 		TARGET = MPLY:LOCAL
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)
; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_PLAYER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_PLAYER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "BOTTOM")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; 	FOR LOCAL, 0, MTAR_NUM
; 		TARGET = MTAR:LOCAL
; 		;失神・睡眠・離脱状態なら口上を非表示
; 		IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
; 			LOCAL:5 = KOJO_NO(TARGET)
; 			CALL IS_KOJO(LOCAL:5)
; 			IF RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_TARGET_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 				RESULT = 0
; 				TRYCALLFORM KOJO_COM_THIRD_AFTER_TARGET_%KOJO_STATE()%_K{LOCAL:5}
; 				LOCAL:1 |= RESULT
; 			ENDIF
; 			;口上XMLからの口上呼び出し
; 			CALL KOJO_XML_COM(TARGET, LOCAL:5, "BOTTOM")
; 			SIF RESULT == 2
; 				LOCAL:1 = 1
; 		ENDIF
; 	NEXT
; ENDIF

; ;ターゲットを戻す
; TARGET = LOCAL:0

; RETURN LOCAL:1
; #endregion

;;;あなた専用口上の呼び出し
@KOJO_COM_MASTER(PLACE)
#DIMS PLACE
#DIM  DYNAMIC KOJO_NO
TARGET = MASTER
;失神・睡眠・離脱状態なら口上を非表示
IF !(TCVAR:失神フラグ || TCVAR:離脱フラグ)
	KOJO_NO = KOJO_NO(TARGET)
	CALL KOJO_XML_COM(TARGET, KOJO_NO, PLACE)
	RETURN RESULT
ENDIF

;-------------------------------------------------
;;;各種イベント口上を出力するKOJO_EVENTのラッパー
;;;@ARGS
;;;- CHARA_ID {int}
;;;- EVENT_NAME {string} イベント名はKojoEvent.CSVを参照
;;;@RETURN
;;;- RESULT
;;;	- 1:口上側にイベント口上が存在
;;;	- 0:表示なし、またはデフォルトメッセージ
;;;	- -1:対応するイベントが存在しない
;-------------------------------------------------
@KJ_EVENT(CHARA_ID, EVENT_NAME)
#DIM  CHARA_ID
#DIMS EVENT_NAME
#DIM  DYNAMIC EVENT_ID

EVENT_ID = GETNUM(KOJOEVENT, EVENT_NAME)
IF EVENT_ID == -1
	DEBUGPRINTFORML ERROR @KJ_EVENT:指定されたイベント名:%EVENT_NAME% が存在しません
	RETURN -1
ENDIF

CALL KOJO_EVENT(CHARA_ID, EVENT_ID)
RETURN RESULT

@KOJO_EVENT(ARG:0, ARG:1)
#DIM  DYNAMIC IS_EXIST_KOJO
;対象キャラが主人公なら表示せずに戻る
IF ARG:0 == MASTER
	RETURN 0
ENDIF

;現在のターゲットを記録してからターゲットをARG:0に変更
LOCAL:0 = TARGET
TARGET = ARG:0
LOCAL:5 = KOJO_NO(TARGET)

CALL IS_KOJO(LOCAL:5)
IF RESULT
	TRYCALLFORM KOJO_EVENT_K{LOCAL:5}, ARG:1
	IF RESULT
		IS_EXIST_KOJO = 1
	ENDIF
ENDIF
CALL KOJO_XML_EVENT(ARG:0, ARG:1)
IF RESULT == -1 && !IS_EXIST_KOJO
	IS_EXIST_KOJO = 0
ELSE
	IS_EXIST_KOJO = 1
ENDIF

IF !IS_EXIST_KOJO
	;デフォルトメッセージ
	CALL KOJO_EVENT_DEFAULT(ARG:1)
ENDIF
;ターゲットを元に戻す
TARGET = LOCAL:0
IF IS_EXIST_KOJO
	RETURN 1
ELSE
	RETURN 0
ENDIF

;-------------------------------------------------
;単体エンディング口上
;対象となるキャラの番号をARG:0に代入
;-------------------------------------------------
@KOJO_SINGLE_ENDING(ARG:0)
LOCAL:1 = 0

;現在のターゲットを記録してからターゲットをARG:0に変更
LOCAL:0 = TARGET
TARGET = ARG:0
LOCAL:5 = KOJO_NO(TARGET)

CALL IS_KOJO(LOCAL:5)
IF RESULT
	RESULT = 0
	TRYCALLFORM KOJO_SINGLE_ENDING_K{LOCAL:5}
	LOCAL:1 = RESULT
ENDIF

;ターゲットを元に戻す
TARGET = LOCAL:0

RETURN LOCAL:1

;-------------------------------------------------
;斬首エンディング口上
;対象となるキャラの番号をARG:0に代入
;-------------------------------------------------
@KOJO_DEAD_ENDING(ARG:0)
LOCAL:1 = 0

;現在のターゲットを記録してからターゲットをARG:0に変更
LOCAL:0 = TARGET
TARGET = ARG:0
LOCAL:5 = KOJO_NO(TARGET)

CALL IS_KOJO(LOCAL:5)
IF RESULT
	RESULT = 0
	TRYCALLFORM KOJO_DEAD_ENDING_K{LOCAL:5}
	LOCAL:1 = RESULT
ENDIF

;ターゲットを元に戻す
TARGET = LOCAL:0

RETURN LOCAL:1

;-------------------------------------------------
;キャラARG:0のコマンド実行済みフラグをONにする(＝初回判定をOFF)
;SELECTCOMとプレイヤー、ターゲット、主導権を元に自動で設定
;-------------------------------------------------
@SET_COM_FIRST_FLAG(ARG:0)
LOCAL:0 = SELECTCOM
IF LOCAL:0 < 0 || LOCAL:0 > 999
	RETURN
ENDIF

;コマンド番号20～29は特殊判定(プレイヤー・ターゲットの区別がないため、両方のフラグを立てる)
IF LOCAL:0 >= 20 && LOCAL:0 <= 29
	IF !IS_MPLY(ARG:0) && !IS_MTAR(ARG:0)
		;プレイヤーでもターゲットでもないときは無視
		RETURN
	ENDIF

	IF IS_INITIATIVE(ARG:0)
		LOCAL:0 += 2000
	ELSE
		LOCAL:0 += 0
	ENDIF

	LOCAL:1 = LOCAL:0 + 1000

	LOCAL:2 = LOCAL:0 / 50 + 2000
	LOCAL:3 = LOCAL:0 % 50
	LOCAL:4 = LOCAL:1 / 50 + 2000
	LOCAL:5 = LOCAL:1 % 50

	;使用フラグ 2000～2079
	CFLAG:(ARG:0):(LOCAL:2) |= (1 << LOCAL:3)
	CFLAG:(ARG:0):(LOCAL:4) |= (1 << LOCAL:5)

ELSE
	IF IS_MPLY(ARG:0)
		LOCAL:0 += 1000
	ELSEIF IS_MTAR(ARG:0)
		LOCAL:0 += 0
	ELSE
		;プレイヤーでもターゲットでもないときは無視
		RETURN
	ENDIF

	IF IS_INITIATIVE(ARG:0)
		LOCAL:0 += 2000
	ELSE
		LOCAL:0 += 0
	ENDIF

	LOCAL:1 = LOCAL:0 / 50 + 2000
	LOCAL:2 = LOCAL:0 % 50

	;使用フラグ 2000～2079
	CFLAG:(ARG:0):(LOCAL:1) |= (1 << LOCAL:2)
ENDIF

;-------------------------------------------------
;コマンドの初回判定
;現在のTARGETの実行済みフラグを調べる
;ARG:0に0を設定すると主導権別に、1を設定すると主導権によらずに判定する
;-------------------------------------------------
@IS_COM_FIRST(ARG:0 = 0)
#FUNCTION
LOCAL:0 = SELECTCOM
IF LOCAL:0 < 0 || LOCAL:0 > 999
	RETURNF 0
ENDIF

IF IS_MPLY(TARGET)
	LOCAL:0 += 1000
ELSEIF IS_MTAR(TARGET)
	LOCAL:0 += 0
ELSE
	RETURNF 0
ENDIF

IF ARG:0
	LOCAL:1 = LOCAL:0 / 50 + 2000
	LOCAL:2 = LOCAL:0 / 50 + 2040
	LOCAL:3 = LOCAL:0 % 50

	IF (CFLAG:(LOCAL:1) & (1 << LOCAL:3)) || (CFLAG:(LOCAL:2) & (1 << LOCAL:3))
		RETURNF 0
	ENDIF

ELSE
	IF IS_INITIATIVE(TARGET)
		LOCAL:0 += 2000
	ELSE
		LOCAL:0 += 0
	ENDIF

	LOCAL:1 = LOCAL:0 / 50 + 2000
	LOCAL:2 = LOCAL:0 % 50

	IF CFLAG:(LOCAL:1) & (1 << LOCAL:2)
		RETURNF 0
	ENDIF
ENDIF
RETURNF 1

;-------------------------------------------------
;デートイベント用の関数。ARG:0はキャラ番号で、ARG:1は行き先。
;呼び出されたDATE_EVENT_K内で、自作したイベント本体の関数を呼び出してください
;行き先を参照する場合はDATE_EVENT_Kに渡ってるARG:1を利用すると良いでしょう。
;-------------------------------------------------
@KOJO_DATE_EVENT(ARG:0, ARG:1)
LOCAL:5 = KOJO_NO(ARG:0)
CALL IS_KOJO(LOCAL:5)
IF RESULT
	TRYCCALLFORM DATE_EVENT_K{LOCAL:5}(ARG:1)
		RETURN RESULT
	CATCH
		RETURN 0
	ENDCATCH
ELSE
	RETURN 0
ENDIF

;-------------------------------------------------
;ARG:0が口上デイリーイベントを実施できるかの簡易チェック関数。
;細かな条件は自分で設定してね
;ARG:1 0 MASTERと別勢力である 1 MASTERと同一勢力である　-1 どちらでもよい
;ARG:2 0 捕虜でない 1 捕虜である -1 どちらでもよい
;ARG:3 0 面識がない 1 面識がある -1 どちらでもよい
;-------------------------------------------------
@CHECK_KOJO_DAILY_HAPPEN(ARG:0, ARG:1 = -1, ARG:2 = -1, ARG:3 = -1)
#FUNCTION
#DIM EVENT_ODDS
EVENT_ODDS = KOJO_DAILY_EVENT_ODDS

;MASTERならダメ
SIF ARG:0 == MASTER
	RETURNF 0

;範囲外はもちろんアウト
SIF ARG:0 < 0 || CHARANUM <= ARG:0
	RETURNF 0
;死んでたら駄目
SIF CFLAG:(ARG:0):特殊状態 == 特殊状態_死亡
	RETURNF 0
;未登場もだめ
SIF CFLAG:(ARG:0):所属 == 0 && CFLAG:(ARG:0):特殊状態 == 0 && !CFLAG:(ARG:0):捕虜先
	RETURNF 0
;所属判定
SELECTCASE ARG:1
	CASE -1
	CASE 0
		SIF CFLAG:(ARG:0):所属 == CFLAG:MASTER:所属
			RETURNF 0
	CASE 1
		SIF CFLAG:(ARG:0):所属 != CFLAG:MASTER:所属
			RETURNF 0
	CASEELSE
		RETURNF 0
ENDSELECT
;捕虜判定
SELECTCASE ARG:2
	CASE -1
	CASE 0
		SIF CFLAG:(ARG:0):捕虜先
			RETURNF 0
	CASE 1
		SIF !CFLAG:(ARG:0):捕虜先
			RETURNF 0
	CASEELSE
		RETURNF 0
ENDSELECT
;面識判定
SELECTCASE ARG:3
	CASE -1
	CASE 0
		SIF CFLAG:(ARG:0):面識
			RETURNF 0
	CASE 1
		SIF !CFLAG:(ARG:0):面識
			RETURNF 0
	CASEELSE
		RETURNF 0
ENDSELECT
RETURNF 1