code:
;-------------------------------------------------
; eraTheWorld proto用 天子口上（キャラクターの名前を入れる、下にコンセプトなど一言あれば入れる）
;-------------------------------------------------
;
;**** 注意天 ****************************************************************
;この口上を導入し、初対面イベントを発生させると絶壁になります
;更新が非常に遅いです。期待しないでお待ちください
;絶壁にします
;純愛？そんなことより陵辱だ！
;絶壁になりました
;
;
;
;
;
;
;
;※※※※※※他者による修正、加筆、改変についての但し書き※※※※※※
;前提としてオリジナル作者以外が手を入れる場合は、オリジナル作者の許可を求めること
;オリジナル作者とコンタクトが取れない場合には以下の但し書きに従ってUPできるかどうか判断してください。

;------ ｷﾘﾄﾘ ｶｲｼ -----------
;eraTheWorld proto4.07パッチ取り込み用 Ver1.13
;テンプレートの使い方
;初めに置換コマンド等により K34 を K(キャラNo) に変更して下さい
;キャラNoはCSVフォルダのCharaファイルを参照　例(霧雨 魔理沙の場合)：K34 =置換=> K11
;
;------ ｷﾘﾄﾘ ｵﾜﾘ -----------

;**** Copyright ****************************************************************
;本口上の修正について（許可する行為のみ残してください）
;【誤字・脱字修正】【分岐条件・erb構文に関する修正】【本体Ver・Rev変更対応】【フラグの管理・修正】

;本口上の加筆・改変について（許可する行為のみ残してください）
;【未記入部位加筆】【ランダム分岐加筆】【記入済部位加筆】【記入済部位削除】【記入済部位コメントアウト】

;本口上に対するメンテナンス禁止時限について（設定しない場合、未設定のみ残してください）
;【未設定】【設定：期間 YY-MM-DDからYY-MM-DDまでオリジナル作者のみ修正可】【期限延長 有】

;本口上に対するその他但し書き
;【 】【 】
;******************************************************************************
;**** FlagManagement **********************************************************
;本口上にて使用しているCFLAG・TCVAR等
;CFLAG:34:1001　パンツ剥ぎ取りカウント
;CFLAG:34:1002  謎の快感・絶頂カウント
;CFLAG:34;1003　時姦堕ちフラグ
;CFLAG:34:1004  時姦膣内射精カウント
;TCVAR:34:350   パンツ剥ぎ取り重複阻止フラグ
;TCVAR:34:351   時姦膣射カウント爆上げ抑制フラグ
;******************************************************************************

;PS 寅の人
;オリジナル作者と連絡が取れない場合、上記Copyrightに従い加筆改変を行って下さい
;また本体処理・他口上処理等に干渉する異常処理がある場合でオリジナル作者による修正が
;行われない・もしくは困難な場合、Copyrightに関わらず有志による修正を許可します
;その際は元処理を削除せずコメントアウトし修正処理を挿入して下さい

;### 口上存在判定 ###################################
@M_KOJO_K34(ARG)
;ここでRESULTSを設定すると他の同キャラ口上を突っ込まれても正常動作する。

;RESULTS = _TEST_

;と設定すると、"EVENT"系イベントだと
;M_KOJO_TEST_EVENT_K34_1() とかで呼ばれる…はず。（未テスト機能）
RETURN 1
;### 口上色判定 ###################################
@M_KOJO_COLOR_K34
SETCOLOR 60, 180, 255
;ここでSETCOLORすることで口上に色を付けられます
;例：SETCOLOR 0xC07070
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"ENCOUNTER"系イベント（エクストラ構文）
;※※※※※※※※※※※※※※※※※※※※※※※※※※
@M_KOJO_ENCOUNTER_K34
;初対面、挨拶のタイミング
;TALENTの変更はここでどうぞ。
SELECTCASE CFLAG:MASTER:現在位置
CASE 1 TO 3,5,11,20 TO 24
	PRINTL
	PRINTL
	PRINTFORML 　　　　　　　　　天にして大地を制し
	PRINTL
	PRINTW
	PRINTFORML 　　　　　　　　　 地にして要を除き
	PRINTL
	PRINTW
	PRINTFORML 　　　　　　　　人の緋色の心を映し出せ
	PRINTL
	PRINTW
	PRINTFORML どこからともなく聞こえる声の主を探して%CALLNAME:MASTER%は周りを見渡すが、それらしい人物は見つからない
	PRINTFORML 首をかしげながら再び歩きだそうとすると
	PRINTFORML ズドンッ！
	PRINTFORML っと目の前に何かが落ちてきた
	PRINTFORML 「初めまして、新しい神社の住人」
	PRINTFORML 驚いて尻餅を付いている%CALLNAME:MASTER%を他所に、落ちてきた岩の上に立っている少女が%CALLNAME:MASTER%を見下ろしながら喋りだす
	PRINTFORML 「私は天界に住む比那名居の人」
	PRINTFORML 「すなわち天人ということです」
	PRINTFORML 「私は以前この神社の巫女に大変お世話になって……いえ、この神社の巫女が私にお世話になった縁で時々この神社に足を運ばせてもらっているのですが……」
	PRINTFORML %CALLNAME:MASTER%のことなど目もくれず一方的に自己紹介を始める少女に、%CALLNAME:MASTER%は不覚にも目を奪われてしまう
	PRINTFORML その少女はまさに天人というに相応しい美しさを持っていた
	PRINTFORML 青空のように輝く長い髪　思わず見入ってしまいそうになる紅い瞳
	PRINTFORML 少女らしいか細い腕も折れてしまいそうな滑らかな指も言葉を紡ぐ麗しい唇も
	PRINTFORML グラマーではないが、それゆえに全身の美しさを引き締める身体も
	PRINTFORMW それら全てが完成された理想の少女像のようで、決して穢してはいけないように感じて、%CALLNAME:MASTER%は……
	PRINTL
	PRINTFORML 抑えきれない劣情を覚え、自分の能力を発動させた
	PRINTFORML 高らかに歌うように言葉を紡ぎ続けていた少女はピタリと動きを止め、木々のざわめきさえも止まり
	PRINTFORML 世界の時は止まった
	PRINTFORML %CALLNAME:MASTER%はのそりと立ち上がると、いまだ岩の上に乗ったままの少女に近づき、その穢れのない身体へ無遠慮に手を伸ばし
	PRINTFORML 天人であるらしいその少女の身体にゆっくりと指を這わせていく
	PRINTFORML 頬はプニプニして柔らかく、肌はどこを触ってもスベスベだ
	PRINTFORML 服の上からでもわかる薄い胸は不満など湧かないほどに、この少女に似合っていると思わせる
	PRINTFORML %CALLNAME:MASTER%はサラサラの髪を指に絡めながら、天人と人間や妖怪との違いは無く、この少女も自分の性欲を満たすための存在であると認識した
	PRINTFORML そして%CALLNAME:MASTER%は滾る劣情を無理矢理押さえ込み、元居たように尻餅を付くように座り
	PRINTFORMW 時間を動かした
	PRINTL
	PRINTFORML 「……つまり、この神社は私の神社と同義であるのです。理解しましたか？」
	PRINTFORML 時間と共に動き出した少女は最後にそう締めくくると、%CALLNAME:MASTER%に初めて視線を向けた
	PRINTFORML %CALLNAME:MASTER%は慌てた風に座り直し名前を尋ねた
	PRINTFORML すると、少女は一瞬視線を逸らし
	PRINTFORML 「私は天界に住む比那名居の人　名は天子です」
	PRINTFORML と、先ほど聞いたセリフを繰り返して名を名乗った
	PRINTFORML %CALLNAME:MASTER%は名前を言い忘れていたのか？と思うと、天子と名乗った少女の本性が少し垣間見えた気がした
	PRINTFORML もし、上辺を取り繕っていたとしてもこの少女の美しさは微塵も色褪せることはなく
	PRINTFORMW %CALLNAME:MASTER%は身体をまさぐられたことなど気づきもしない天子をどのように陵辱しようかと思いを馳せた
CASE 4,6 TO 10,12 TO 19,52
	PRINTFORML 「初めまして、新しい神社の住人」
	PRINTFORML %CALLNAME:MASTER%は初めて見るその少女に思わず目を奪われた
	PRINTFORML 「私は天界に住む比那名居の人　名は天子」
	PRINTFORML 「すなわち天人ということです」
	PRINTFORML 天人とは全ての煩悩を捨て、人間を超越した人々だと聞いたことがある
	PRINTFORML なるほど、であればこの人間離れした美しさにも納得する
	PRINTFORML 「私は以前この神社の巫女に大変お世話になって……いえ、この神社の巫女が私にお世話になった縁で時々この神社に足を運ばせてもらっているのですが……」
	PRINTFORML 天子と名乗った少女は呆然としているしている%CALLNAME:MASTER%のことなど目もくれず、一方的に自己紹介を始めた
	PRINTFORML 青空のように輝く長い髪　思わず見入ってしまいそうになる紅い瞳
	PRINTFORML 少女らしいか細い腕、折れてしまいそうな滑らかな指、言葉を紡ぐ麗しい唇
	PRINTFORML グラマーではないが、それゆえに全身の美しさを引き締める身体
	PRINTFORML まるで一つの完成された芸術のような美しさを持つ天子に%CALLNAME:MASTER%は見蕩れてしまい、天子の話がまるで耳に入ってこない
	PRINTFORML 「……つまり、この神社は私の神社と同義であるのです。理解しましたか？」
	PRINTFORML 天子の話が終わり、天子が初めて%CALLNAME:MASTER%に視線を向ける
	PRINTFORML %CALLNAME:MASTER%はその視線に我に返り、慌てて挨拶を返した
	PRINTFORML 天子は%CALLNAME:MASTER%の恐縮した様子に満足したようで、そのまま%CALLNAME:MASTER%の横を通り過ぎて行った
	PRINTFORMW %CALLNAME:MASTER%は天子の後ろ姿を眺めながら、あの芸術のような美しい肉体をどう穢してやろうかと思いを馳せた
CASEELSE
	PRINTFORML 「んん？」
	PRINTFORML 初対面であるはずの少女は%CALLNAME:MASTER%の顔をしげしげと見つめてきた
	PRINTFORML 人間離れした美しさを持つ少女に見つめられ%CALLNAME:MASTER%は柄にもなく緊張してしまう
	PRINTFORML 「貴方もしかして、神社の新しい住人？」
	PRINTFORML 緊張したままの%CALLNAME:MASTER%はなんとか肯定の言葉を返す
	PRINTFORML 「そう……私は天界に住む比那名居の人　名は天子」
	PRINTFORML 「すなわち天人ということです」
	PRINTFORML 天人とは全ての煩悩を捨て、人間を超越した人々だと聞いたことがある
	PRINTFORML なるほど、であればこの人間離れした美しさにも納得する
	PRINTFORML 「私は以前神社の巫女に大変お世話になって……いえ、神社の巫女が私にお世話になった縁で時々神社に足を運ばせてもらっています」
	PRINTFORML 「これからお会いする機会も増えるでしょうから、以後よろしくお願いしますね」
	PRINTFORML よろしくとは言うものの、あまり友好的な態度ではない気がするのは気のせいだろうか？
	PRINTFORML 挨拶を済ませた天子は、これ以上興味は無いとばかりに通り過ぎていった
	PRINTFORMW %CALLNAME:MASTER%はその後ろ姿を眺めながら、あの肉体を弄ぶ算段をはじめるのだった
ENDSELECT
;「まな板にしようぜ！」「かなりまな板だよコレ！」
TALENT:34:105 = -2
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"SP_EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;デート帰りにファーストKISS（合意も付く）
;==================================================
@M_KOJO_SPEVENT_K34_1(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_1(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	PRINTFORMW 「……」
	PRINTFORMW 家路についている最中、なんとなく何も言えない雰囲気になった
	PRINTFORMW ただ、気まずい雰囲気ではない。なんとなく安心できる雰囲気だ
	PRINTFORMW 「…ち、ちょっといいかしら？」
	PRINTFORMW 隣を歩いている天子が声をかけてきた
	PRINTFORMW なん……
	PRINTFORMW 「んんっ……」
	PRINTFORMW 天子は突然抱きつくようにキスをしてきた
	PRINTFORMW 突然のことに呆然としていると、口を離し
	PRINTFORMW 「こ、これは今日のお礼よ！ふ、深い意味はないんだからね！ないったらないんだからね！」
	PRINTFORMW そういい残し天子は走り去っていった
	;キスをキャンセルしたい場合は以下を開放
	;TCVAR:キスキャンセル = 1
ENDIF
RETURN 1

;==================================================
;デート帰りに告白（恋人が付く）
;==================================================
@M_KOJO_SPEVENT_K34_2(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_2(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;告白内容
	;この告白内容表示後に受けるかどうかの選択分が表示されます
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORMW 「あのね、%CALLNAME:MASTER%」
		PRINTFORMW いつもとは違った表情をしている天子がそこにいた。
		PRINTFORMW 真剣なまなざしでこちらを見つめていた。
		PRINTFORMW 「%CALLNAME:MASTER%って好きな人、いる？」
		PRINTFORMW いるよ。
		PRINTFORMW 「……………そっか
		PRINTFORMW 　でも、これだけは言わせて。
		PRINTFORMW 　私、%CALLNAME:MASTER%が好き、これだけはゆずれない！」
		PRINTFORMW 天子は自分の気持ちを素直に打ち明けた。
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白オッケー（恋人が付く）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW 天子、しっかり聞いてほしい。
		PRINTFORMW 俺が好きなのは“天子”っていう、とってもかわいい女の子だよ。
		PRINTFORMW 「……………えっ？」
		PRINTFORMW 俺には好きな人がいる。そいつの名前は天子って言った。天子、俺も同じ気持ちだよ。
		PRINTFORMW 「………もう、馬鹿…………」
		PRINTFORMW 天子は緊張の糸が切れたのか、泣き出してしまった。
		PRINTFORMW 「ぐっす…ひっぐ……」
		PRINTFORMW %CALLNAME:MASTER%はいつの間にか天子の唇を奪っていた。
		PRINTFORMW 「―――――――ッ！？」
		PRINTFORMW 天子は一瞬驚いた顔をしていたが、次第に体を%CALLNAME:MASTER%へ預けていった。
		PRINTFORMW 「ん、ちゅ………、ちゅぷ……ぷあっ
		PRINTFORMW 　%CALLNAME:MASTER%、好き……。この手を離さないでね………」
		PRINTFORMW 一生、離すものか………………
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;告白失敗
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF

ENDIF
RETURN 1

;==================================================
;デート帰り
;==================================================
@M_KOJO_SPEVENT_K34_3(ARG,ARG:1)
;口上主はTARGET
;地の文表示
CALL SPEVENT_MESSAGE_3(ARG,ARG:1)
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 0
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印消去イベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印2>1レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;反発刻印3>2レベルダウンイベント
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;※※※※※※※※※※※※※※※※※※※※※※※※※※
;"EVENT"系イベント
;※※※※※※※※※※※※※※※※※※※※※※※※※※
;==================================================
;部屋で遭遇
;==================================================
@M_KOJO_EVENT_K34_1(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて一緒に入る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて出て行った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;TARGETが風呂に入ってきて追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1

;==================================================
;朝起きたとき（おはよう口上）
;==================================================
@M_KOJO_EVENT_K34_2(ARG,ARG:1)
CALL MESSAGE_GOODMONING(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常起床（定時になって起きる等）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;添い寝起床
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 2
		;PRINTFORMW
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;夜寝るとき（おやすみ口上）
;==================================================
@M_KOJO_EVENT_K34_3(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;自室に帰る（定時になって寝る）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;眠そうにしている
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;睡眠中（起きていないので会話というよりは寝言？）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;イタズラ中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;衰弱中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORMW
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERがダウン（部屋まで運ばれる）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		PRINTFORMW
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;移動時すれちがい
;==================================================
@M_KOJO_EVENT_K34_4(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;立ち止まった
	;この後遭遇口上に接続
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;軽く会釈して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無視して通り過ぎた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;他者介入でムード変化
;==================================================
@M_KOJO_EVENT_K34_5(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;霊夢が入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;る～ことが入ってきた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を目撃した
;==================================================
@M_KOJO_EVENT_K34_6(ARG,ARG:1)
;口上主はTARGET
;ARGに情事相手
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を目撃した（馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;負けじと参加（馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;気まずそうに立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;情事を見られた
;==================================================
@M_KOJO_EVENT_K34_7(ARG,ARG:1)
;口上主はTARGET
;ARGに目撃者
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;情事を見られた（目撃者の馴れ合い度:低）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が負けじと参加（目撃者の馴れ合い度:高）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目撃者が立ち去る
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;MASTERに誘われて目撃者も参加
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG:1 == 4
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;目撃した情事を問い詰める
;==================================================
@M_KOJO_EVENT_K34_8(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERだけ問い詰め
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;二人とも説教
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;弱みを握った
;==================================================
@M_KOJO_EVENT_K34_9(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;同じ場所に居てパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;遠距離移動中にパンツを回収された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;押し倒した
;==================================================
@M_KOJO_EVENT_K34_10(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;MASTERを押し倒した（開始時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;なだめられた（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;浴場で遭遇
;==================================================
@M_KOJO_EVENT_K34_11(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;追い出された
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;目が合った（追い出されない）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;寝床に忍び込み
;==================================================
@M_KOJO_EVENT_K34_12(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;寝床に侵入
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;寝床に侵入（相手が恋慕・衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;追い出される（衰弱）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG:1 == 5
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;お仕事中
;==================================================
@M_KOJO_EVENT_K34_13(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;仕事開始（職場へ移動する）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;業務中
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;仕事終了
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;食事系
;==================================================
@M_KOJO_EVENT_K34_14(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;持っていた食物を食べられた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == -1
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;MASTERが押し倒した
;==================================================
@M_KOJO_EVENT_K34_15(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;未実装（押し倒しコマンドに統合？
	;MASTERが押し倒した（ウフフ開始時）
	;記入チェック（=0, 非表示、1, 表示）
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;逢瀬終了（ウフフ終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

;==================================================
;添い寝する
;==================================================
@M_KOJO_EVENT_K34_16(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;添い寝を始めた（開始時）(存在せず
	;記入チェック
	;LOCAL:1 = 0
	;-------------------------------------------------
	;IF LOCAL:1 && ARG == 1
		;PRINTFORML
		;RETURN 1
	;ENDIF
	;-------------------------------------------------
	;添い寝を終了した（終了時）
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;時止め終了時
;==================================================
@M_KOJO_EVENT_K34_17(ARG,ARG:1)
;口上主はTARGET
;排他と明記されていないモノは状況によっては連続で表示されるので注意
;ARGに射精状況
;ARG:1に射精状態
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------

IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;ARG=1～3は排他
	;謎の快感
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		;絶頂回数カウント
		LOCAL:4 = 0
		LOCAL:4 += EX:34:50
		LOCAL:4 += EX:34:51
		LOCAL:4 += EX:34:52
		LOCAL:4 += EX:34:53
		;絶頂箇所判定
		LOCAL:5 = 0
		SIF EX:34:50 > 0
			LOCAL:5 += 1
		SIF EX:34:51 > 0
			LOCAL:5 += 1
		SIF EX:34:52 > 0
			LOCAL:5 += 1
		SIF EX:34:53 > 0
			LOCAL:5 += 1
		IF CFLAG:34:1002 == 0
			PRINTFORML 「―――っ！？」
			PRINTFORM 天子は突然身体に走った感覚に戸惑い、
			IF LOCAL:5 > 1
				PRINTFORML まだ快感に震える身体を抱いて周囲の様子を伺った
			ELSEIF EX:34:50 > 0 || EX:34:51 > 0
				PRINTFORML ジンジンと快感を訴える股間を押さえて周囲の様子を伺った
			ELSEIF EX:34:52 > 0
				PRINTFORML ジンジンと快感を訴えるアナルを庇いながら周囲の様子を伺った
			ELSEIF EX:34:53 > 0
				PRINTFORML ジンジンと快感を訴える胸を抱いて周囲の様子を伺った
			ENDIF
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:34:350 == 0
					IF CFLAG:34:1001 == 0
						PRINTFORML 「な！？そんな……」
						PRINTFORML そして、自身のパンツが無くなっていることに気がつき顔を青ざめたが
						PRINTFORMW 他人に気づかれないよう瞬時に態度を取り繕った
					ELSEIF CFLAG:34:1001 < 10
						PRINTFORML 「そんな……」
						PRINTFORML そして、以前からあった履いていたはずの下着が無くなる現象が同時に起きていることに気がき
						PRINTFORMW 顔を青ざめる天子だったが、他人に気づかれないようすぐに態度を取り繕った
					ELSEIF CFLAG:34:1001 < 20
						PRINTFORML 「くっ……」
						PRINTFORML そして、以前からあった履いていたはずの下着が無くなる現象が同時に起きていることに気がついた
						PRINTFORMW 下着がなくなる以外の事に戸惑いはしたが、他人に気づかれないようすぐに態度を取り繕った
					ELSEIF CFLAG:34:1001 == 100
						PRINTFORML 「……」
						PRINTFORML そして、自身のパンツが無くなっていることに気がついた天子は
						PRINTFORML 以前から起こっていたことの延長であることを理解した途端
						PRINTFORMW 諦観の念に囚われ、何事もなかったかのように振る舞った
					ENDIF
					TCVAR:34:350 = 1
					CFLAG:34:1001 += 1
					CFLAG:34:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「いま、何か……」
			PRINTFORMW 天子は嫌な予感を振り切るように気のせいだと思い込んだ
		ELSEIF CFLAG:34:1002 < 250
			PRINTFORML 「―――っ！？」
			PRINTFORM 天子は再び身体に走る快感を感じ、
			IF LOCAL:5 > 1
				PRINTFORML まだ快感に震える身体を抱いて周囲の様子を伺った
			ELSEIF EX:34:50 > 0 || EX:34:51 > 0
				PRINTFORML ジンジンと快感を訴える股間を押さえて周囲の様子を伺った
			ELSEIF EX:34:52 > 0
				PRINTFORML ジンジンと快感を訴えるアナルを庇いながら周囲の様子を伺った
			ELSEIF EX:34:53 > 0
				PRINTFORML ジンジンと快感を訴える胸を抱いて周囲の様子を伺った
			ENDIF
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:34:350 == 0
					IF CFLAG:34:1001 == 0
						PRINTFORML 「な！？そんな……」
						PRINTFORML そして、自身のパンツが無くなっていることに気がつき顔を青ざめたが
						PRINTFORMW 他人に気づかれないよう瞬時に態度を取り繕った
					ELSEIF CFLAG:34:1001 < 10
						PRINTFORML 「また……」
						PRINTFORML そして、同時に下着が無くなる現象が起きていることに気がつき
						PRINTFORMW 顔を青ざめる天子だったが、他人に気づかれないようすぐに態度を取り繕った
					ELSEIF CFLAG:34:1001 < 20
						PRINTFORML 「くっ……」
						PRINTFORML そして、同時に下着が無くなる現象が起きていることに気がついた
						PRINTFORMW 犯人である何者かに対する憎しみの念を募らせるが、他人に気づかれないよう態度を取り繕った
					ELSEIF CFLAG:34:1001 == 100
						PRINTFORML 「……」
						PRINTFORML そして、やはり自身のパンツが無くなっていることに天子は気がついた
						PRINTFORML もはや諦めているとは言え、このままエスカレートしていったら自分はどうされてしまうのか
						PRINTFORMW 不安を感じずにはいられなかった
					ENDIF
					TCVAR:34:350 = 1
					CFLAG:34:1001 += 1
					CFLAG:34:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「また、こんな……」
			PRINTFORMW 天子は気のせいではないとわかっているが、信じられないという気持ちがそれを否定する
		ELSEIF CFLAG:34:1002 < 400
			PRINTFORML 「――っあ」
			PRINTFORML 天子は突然身体に走った快感に身を震わせた
			PRINTFORML 不意に襲ってくる快感を天子は受け入れてしまいそうになっていた
			PRINTFORM 無意識に
			IF LOCAL:5 > 1
				PRINTFORM 身体を
			ELSEIF EX:34:50 > 0 || EX:34:51 > 0
				PRINTFORM 股間を
			ELSEIF EX:34:52 > 0
				PRINTFORM アナルを
			ELSEIF EX:34:53 > 0
				PRINTFORM 胸を
			ENDIF
			PRINTFORML 弄ってしまいそうになるのを必死で押さえ込んで
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:34:350 == 0
					IF CFLAG:34:1001 == 0
						PRINTFORML 自身のパンツが無くなっていることに気がついた
						PRINTFORML しかし天子には、それが些細なことに思え
						PRINTFORMW 動揺することもなく、普段通りの振る舞いに戻った
					ELSEIF CFLAG:34:1001 < 10
						PRINTFORML 以前のように自身のパンツが無くなっていることに気がついた
						PRINTFORML しかし天子には、それが些細なことに思え
						PRINTFORMW 動揺することもなく、普段通りの振る舞いに戻った
					ELSEIF CFLAG:34:1001 < 20
						PRINTFORML いつものように自身のパンツが無くなっていることに気がついた
						PRINTFORML しかし天子とってはそれが日常的なものとなっており
						PRINTFORMW 別段何も感じることなく、普段通りの振る舞いに戻った
					ELSEIF CFLAG:34:1001 == 100
						PRINTFORML 当然のように自身のパンツが無くなっていることに気がついた
						PRINTFORML しかし天子とっては、もはや常識のような感覚になっており
						PRINTFORMW 何事もなかったかのように普段通りの振る舞いに戻った
					ENDIF
					TCVAR:34:350 = 1
					CFLAG:34:1001 += 1
					CFLAG:34:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「ふぅ、……ふふ」
			PRINTFORMW 次はいつ来るのかを想像して、薄く笑みを浮かべていた
		ELSEIF CFLAG:34:1003 == 0
			PRINTFORML 「―――っん%UNICODE(0x2665)%」
			PRINTFORML 天子はこの不意に襲ってくる快感を、いまや完全に受け入れていた
			PRINTFORML 「はぁ%UNICODE(0x2665)%はぁ%UNICODE(0x2665)%また…きた…%UNICODE(0x2665)%」
			PRINTFORML むしろこの快感を心待ちにし、不意の快感に襲われるたび恥も外聞もなく
			PRINTFORML その場で自慰を初めてしまいそうになる自分を必死に押さえ込まなければならないほどだった
			PRINTFORM 天子は快感を訴える
			IF LOCAL:5 > 1
				PRINTFORM 身体を
			ELSEIF EX:34:50 > 0
				PRINTFORM 陰核を
			ELSEIF EX:34:51 > 0
				PRINTFORM 膣内を
			ELSEIF EX:34:52 > 0
				PRINTFORM アナルを
			ELSEIF EX:34:53 > 0
				PRINTFORM 胸を
			ENDIF
			PRINTFORM そのままにして
			IF CFLAG:291 == 1
				PRINTFORM 、いつのまにか剥ぎ取られていたパンツのことなど興味を持たずに
				TCVAR:34:350 = 1
				CFLAG:34:1001 += 1
			ENDIF
			PRINTFORMW 日常へと戻っていった
			CFLAG:34:1003 = 1
		ELSE
			PRINTFORML 「―――っん%UNICODE(0x2665)%」
			PRINTFORML 天子は心待ちにしていた快感に身体を震わせて恍惚となり
			PRINTFORM 顔を紅潮させたまま
			IF CFLAG:291 == 1
				PRINTFORM 、いつのまにか剥ぎ取られていたパンツのことなど興味を持たずに
				TCVAR:34:350 = 1
				CFLAG:34:1001 += 1
			ENDIF
			PRINTFORMW 日常へと戻っていった
		ENDIF
		CFLAG:34:1002 += LOCAL:4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;絶頂
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		;絶頂回数カウント
		LOCAL:4 = 0
		LOCAL:4 += EX:34:50
		LOCAL:4 += EX:34:51
		LOCAL:4 += EX:34:52
		LOCAL:4 += EX:34:53
		IF CFLAG:34:1002 == 0
			PRINTFORML 「っんむ―――！？」
			PRINTFORML 天子は突然身体に走った強烈な快感に思わず声が漏れそうになる口を慌てて塞ぎ
			PRINTFORML その場にへたりこみそうになるのを必死に我慢して、快感が収まるまで耐え忍んだ
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:34:350 == 0
					IF CFLAG:34:1001 == 0
						PRINTFORML 「な！？そんな……」
						PRINTFORML そして、自身のパンツが無くなっていることに気がつき顔を青ざめたが
						PRINTFORMW 他人に気づかれないよう瞬時に態度を取り繕った
					ELSEIF CFLAG:34:1001 < 10
						PRINTFORML 「そんな……」
						PRINTFORML そして、以前からあった履いていたはずの下着が無くなる現象が同時に起きていることに気がき
						PRINTFORMW 顔を青ざめる天子だったが、他人に気づかれないようすぐに態度を取り繕った
					ELSEIF CFLAG:34:1001 < 20
						PRINTFORML 「くっ……」
						PRINTFORML そして、以前からあった履いていたはずの下着が無くなる現象が同時に起きていることに気がついた
						PRINTFORMW 下着がなくなる以外の事に戸惑いはしたが、他人に気づかれないようすぐに態度を取り繕った
					ELSEIF CFLAG:34:1001 == 100
						PRINTFORML 「……」
						PRINTFORML そして、自身のパンツが無くなっていることに気がついた天子は
						PRINTFORML 以前から起こっていたことの延長であることを理解した途端
						PRINTFORMW 諦観の念に囚われ、何事もなかったかのように振る舞った
					ENDIF
					TCVAR:34:350 = 1
					CFLAG:34:1001 += 1
					CFLAG:34:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「なに？いまの……」
			PRINTFORMW 天子は自身の身になにが起こったのか理解できないようだった
		ELSEIF CFLAG:34:1002 < 250
			PRINTFORML 「っくぅ―――%UNICODE(0x2665)%」
			PRINTFORML 天子は再び身体に走る強烈な快感を感じ、その場に座り込んでしまった
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:34:350 == 0
					IF CFLAG:34:1001 == 0
						PRINTFORML 「な！？そんな……」
						PRINTFORML そして、自身のパンツが無くなっていることに気がつき顔を青ざめたが
						PRINTFORMW 他人に気づかれないよう瞬時に態度を取り繕った
					ELSEIF CFLAG:34:1001 < 10
						PRINTFORML 「また……」
						PRINTFORML そして、同時に下着が無くなる現象が起きていることに気がつき
						PRINTFORMW 顔を青ざめる天子だったが、他人に気づかれないようすぐに態度を取り繕った
					ELSEIF CFLAG:34:1001 < 20
						PRINTFORML 「くっ……」
						PRINTFORML そして、同時に下着が無くなる現象が起きていることに気がついた
						PRINTFORMW 犯人である何者かに対する憎しみの念を募らせるが、他人に気づかれないよう態度を取り繕った
					ELSEIF CFLAG:34:1001 == 100
						PRINTFORML 「……」
						PRINTFORML そして、やはり自身のパンツが無くなっていることに天子は気がついた
						PRINTFORML もはや諦めているとは言え、このままエスカレートしていったら自分はどうされてしまうのか
						PRINTFORMW 不安を感じずにはいられなかった
					ENDIF
					TCVAR:34:350 = 1
					CFLAG:34:1001 += 1
					CFLAG:34:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「くっ、なんで……こんな……」
			PRINTFORMW 天子は再び起こった事態に不安を募らせている
		ELSEIF CFLAG:34:1002 < 400
			PRINTFORML 「―――っああ%UNICODE(0x2665)%」
			PRINTFORML 天子は突然身体に走った強烈な快感に身を震わせた
			PRINTFORML 不意に襲ってくる快感を天子は受け入れてしまいそうになっていた
			IF CFLAG:291 == 1
				;一日一回
				IF TCVAR:34:350 == 0
					IF CFLAG:34:1001 == 0
						PRINTFORML 自身のパンツが無くなっていることに気がついたが
						PRINTFORML 天子には、それが些細なことに思え
						PRINTFORMW 動揺することもなく、普段通りの振る舞いに戻った
					ELSEIF CFLAG:34:1001 < 10
						PRINTFORML 以前のように自身のパンツが無くなっていることに気がついたが
						PRINTFORML 天子には、それが些細なことに思え
						PRINTFORMW 動揺することもなく、普段通りの振る舞いに戻った
					ELSEIF CFLAG:34:1001 < 20
						PRINTFORML いつものように自身のパンツが無くなっていることに気がついたが
						PRINTFORML 天子とってはそれが日常的なものとなっており
						PRINTFORMW 別段何も感じることなく、普段通りの振る舞いに戻った
					ELSEIF CFLAG:34:1001 == 100
						PRINTFORML 当然のように自身のパンツが無くなっていることに気がついたが
						PRINTFORML 天子とっては、もはや常識のような感覚になっており
						PRINTFORMW 何事もなかったかのように普段通りの振る舞いに戻った
					ENDIF
					TCVAR:34:350 = 1
					CFLAG:34:1001 += 1
					CFLAG:34:1002 += LOCAL:4
					RETURN 1
				ENDIF
			ENDIF
			PRINTFORML 「これ%UNICODE(0x2665)%――いぃ%UNICODE(0x2665)%」
			PRINTFORMW 快楽に支配されかけている天子は、恍惚としてつぶやいた
		ELSEIF CFLAG:34:1003 == 0
			PRINTFORML 「―――あ%UNICODE(0x2665)%き%UNICODE(0x2665)%たぁ%UNICODE(0x2665)%」
			PRINTFORML 天子はこの不意に襲ってくる快感を、いまや完全に受け入れていた
			PRINTFORML 「はぁ%UNICODE(0x2665)%はぁ%UNICODE(0x2665)%また…きた…%UNICODE(0x2665)%」
			PRINTFORML むしろこの快感を心待ちにし、不意の快感に襲われるたび恥も外聞もなく
			PRINTFORML その場で自慰を初めてしまいそうになる自分を必死に押さえ込まなければならないほどだった
			PRINTFORM そして荒くなった息を整え、
			IF CFLAG:291 == 1
				PRINTFORML いつのまにか剥ぎ取られていたパンツのことなど興味を持たずに、
				TCVAR:34:350 = 1
				CFLAG:34:1001 += 1
			ENDIF
			PRINTFORMW 再びこの快楽に襲われるために日常へと戻っていった
			CFLAG:34:1003 = 1
		ELSE
			PRINTFORML 「―――あ%UNICODE(0x2665)%き%UNICODE(0x2665)%たぁ%UNICODE(0x2665)%」
			PRINTFORML 天子は心待ちにしていた快感に身体を震わせて恍惚となり
			PRINTFORM 荒くなった息を落ち着かせながら、
			IF CFLAG:291 == 1
				PRINTFORM いつのまにか剥ぎ取られていたパンツのことなど興味を持たずに、
				TCVAR:34:350 = 1
				CFLAG:34:1001 += 1
			ENDIF
			PRINTFORMW 日常へと戻っていった
		ENDIF
		CFLAG:34:1002 += LOCAL:4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;パンツ紛失
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		;一日一回
		SIF TCVAR:34:350 == 1
			RETURN 1
		LOCAL:3 = 0
			FOR LOCAL,1,CHARANUM
			SIF CFLAG:LOCAL:同室
				LOCAL:3 ++
		NEXT
		IF CFLAG:34:1001 == 0
			PRINTFORML 違和感を感じた天子は腰の辺りを手で探り、履いていたはずの下着がなくなっていることに気がついた
			PRINTFORML 「な…なんで……？」
			PRINTFORM 顔を青ざめた天子であったが、瞬時に周囲の気配を探るように鋭い視線を巡らせ
			IF LOCAL:3 == 1
				PRINTL
				PRINTFORML あなたの気配に気づいた天子はあなたに睨みつけるような視線を向けた
				PRINTFORML %CALLNAME:MASTER%が素知らぬ顔で声をかけると、天子は探るような眼つきで%CALLNAME:MASTER%を見ている
				PRINTFORML 「…………なんでもありません」
				PRINTFORMW だが、%CALLNAME:MASTER%を犯人だと断定する証拠は何もなく%CALLNAME:MASTER%への疑惑を抱えたまま会話を終了させた
				CALL CHANGE_CFLAG(2, 34, -200)
				CALL CHANGE_CFLAG(4, 34, -50)
			ELSE
				PRINTFORML た
				PRINTFORML しかし、周囲には複数の気配があり犯人を特定することは不可能だった
				PRINTFORML %CALLNAME:MASTER%が素知らぬ顔で声をかけると、天子は疑惑の眼を%CALLNAME:MASTER%に向けた
				PRINTFORML 「…………なんでもありません」
				PRINTFORML だが、%CALLNAME:MASTER%を犯人とするには無理があると思って誤魔化したようだ
				PRINTFORML 天子は下半身の違和感を押さえつけて、普段通りの振る舞いをしている
				PRINTFORMW %CALLNAME:MASTER%はその天子の様子に内心でほくそ笑んだ
				CALL CHANGE_CFLAG(2, 34, -50)
				CALL CHANGE_CFLAG(4, 34, -20)
			ENDIF
			CFLAG:34:1001 += 1
		ELSEIF CFLAG:34:1001 < 10
			PRINTFORML 違和感を感じた天子は腰の辺りを手で探り、履いていたはずの下着がなくなっていることに気がついた
			PRINTFORML 「ま…また？」
			IF LOCAL:3 == 1
				PRINTFORML 天子は周囲に%CALLNAME:MASTER%以外の気配がないことを確認すると、%CALLNAME:MASTER%を睨みつけてきた
				PRINTFORML 「…………」
				PRINTFORML %CALLNAME:MASTER%はその視線に耐え切れず天子に話しかける
				PRINTFORML 「…………なんでもありません」
				PRINTFORMW 確信はないであろうが、天子は%CALLNAME:MASTER%への疑惑を深めたようだ
				CFLAG:34:1001 += 2
				CALL CHANGE_CFLAG(2, 34, -200)
				CALL CHANGE_CFLAG(4, 34, -50)
			ELSE
				PRINTFORML 困惑している天子に%CALLNAME:MASTER%は再び素知らぬ顔で声をかけた
				PRINTFORML 「…………なんでもありません」
				PRINTFORMW 以前にも同じことがあった為か、天子は%CALLNAME:MASTER%への疑惑を深めたようだ
				CFLAG:34:1001 += 1
				CALL CHANGE_CFLAG(2, 34, -50)
				CALL CHANGE_CFLAG(4, 34, -20)
			ENDIF
		ELSEIF CFLAG:34:1001 < 20
			PRINTFORM 履いていたはずの下着がなくなっていることに気がついた天子は、もはや確認することもなく
			IF LOCAL:3 == 1
				PRINTFORML %CALLNAME:MASTER%の様子を伺うように見つめてきた
				PRINTFORML %CALLNAME:MASTER%はその視線に耐え切れず天子に話しかけると
				PRINTFORML 「どうかいたしまして？」
				PRINTFORML と、逆に%CALLNAME:MASTER%の方が不自然だと言うように疑問で返してきた
				PRINTFORMW 今度は%CALLNAME:MASTER%が誤魔化しながら話を切り上げた
				CFLAG:34:1001 += 2
				CALL CHANGE_CFLAG(2, 34, -300)
				CALL CHANGE_CFLAG(4, 34, -70)
			ELSE
				PRINTFORML 辺りを見回した
				PRINTFORML そして最後に%CALLNAME:MASTER%の様子を伺うように見つめてきた
				PRINTFORML %CALLNAME:MASTER%はその視線に耐え切れず天子に話しかけると
				PRINTFORML 「どうかいたしまして？」
				PRINTFORML と、逆に%CALLNAME:MASTER%の方が不自然だと言うように疑問で返してきた
				PRINTFORMW 今度は%CALLNAME:MASTER%が誤魔化しながら話を切り上げた
				CFLAG:34:1001 += 1
				CALL CHANGE_CFLAG(2, 34, -150)
				CALL CHANGE_CFLAG(4, 34, -40)
			ENDIF
		ELSEIF CFLAG:34:1001 == 100
			PRINTFORML 下着を抜き取られた天子は、一切の動揺を見せず
			PRINTFORMW まるで何事もなかったかのように振舞っている
				CALL CHANGE_CFLAG(2, 34, -500)
				CALL CHANGE_CFLAG(4, 34, -200)
		ELSE
			PRINTFORML もはや履いていたはずの下着が忽然と消えることは、天子にとって非日常ではなくなっていた
			PRINTFORML 天子も既に犯人の特定を諦めており、ただ粛々と受け入れるしかなかった
			IF TARGET == 34
				PRINTFORML しかし、最も疑わしき目の前の男には自身の弱みなど見せるつもりはなく
				PRINTFORML 一切の動揺を押さえ込んで普段通りの受け答えを続けた
				PRINTFORMW %CALLNAME:MASTER%は、そんな天子の様子を見て更なる劣情を抱いたのである
			ELSE
				PRINTFORML そして、最も疑わしき男の視線に気づいた天子は詰め寄りたい気持ちを押さえ込んで
				PRINTFORML %CALLNAME:MASTER%の視線に気づかないふりをした
				PRINTFORMW %CALLNAME:MASTER%は、そんな天子の様子を見て更なる劣情を抱いたのである
			ENDIF
				CALL CHANGE_CFLAG(2, 34, -500)
				CALL CHANGE_CFLAG(4, 34, -200)
			CFLAG:34:1001 = 100
		ENDIF
		TCVAR:34:350 = 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚口内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		;精液中毒低精飲
		IF ARG:1 == 1
		;精液中毒低吐き出し
		ELSEIF ARG:1 == 2
		;精液中毒低手で覆う
		ELSEIF ARG:1 == 3
		;精液中毒高精飲
		ELSEIF ARG:1 == 4
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚顔面射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		;精液経験ありぬぐい取り
		IF ARG:1 == 1
		;精液経験なしぬぐい取り
		ELSEIF ARG:1 == 2
		;顔射精液舐めとり
		ELSEIF ARG:1 == 3
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚手淫射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 6
		;ぬぐい取り
		IF ARG:1 == 1
		;舐めとり
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚アナル射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 7
		;Ａ感覚0
		IF ARG:1 == 1
		;ソレ以外
		ELSEIF ARG:1 == 2
		ENDIF
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;【無自覚処女喪失】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 8
		;膣内射精済みの場合スキップ
		SIF CFLAG:34:286 == 2
			RETURN 1
		;時姦堕ち済み
		IF CFLAG:34:1003 == 1
			PRINTFORML 「―――っ…！」
			PRINTFORML いつもとは違い、快感ではなく痛みが襲ってきたことに天子は戸惑った
			PRINTFORML しかし、無自覚の内に開発されてきた天子の身体と精神は、その痛みさえも大したことではないと捉えてしまう
			PRINTFORMW 天子は痛みの正体など気にするでもなく、次は快感が襲ってくることを期待して日常へと戻っていった
		ELSE
			PRINTFORML 「―――いっ！っ…！！」
			PRINTFORML 天子は突然襲われた強烈な痛みに声にならない呻きを上げた
			PRINTFORML 「なに…？これ……？」
			PRINTFORML 自らの股の当たりから痛みが湧き上がっていることに気づいた天子であったが
			PRINTFORMW 痛みの正体についてはまったく心当たりがなく、ただただ戸惑うばかりであった
		ENDIF
	ENDIF
	;-------------------------------------------------
	;【無自覚膣内射精】
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 9
		;非処女膣内射精ピルなし
		IF ARG:1 == 1
			;時姦堕ち済み
			;地の文と噛み合わせが悪いのはご愛嬌
			IF CFLAG:34:1003 == 1
				IF CFLAG:34:1004 == 0
					PRINTFORML 「この感触って……精液？」
					PRINTFORML 既に与えられる快感を受け入れていた天子は、自らの膣内に突然精液が現れても大して驚きはしなかった
					PRINTFORML それは天子にとって、さらなる快楽を得られるようになる合図でしかなく
					PRINTFORML これまで以上の快感を味わう期待に、笑いを抑えられなかった
					PRINTFORMW 「は%UNICODE(0x2665)%、ふふ%UNICODE(0x2665)%、ふふふふふ%UNICODE(0x2665)%」
				ELSEIF CFLAG:34:1004 < 10
					PRINTFORML 天子は\@ CFLAG:34:291 == 1 ? 太腿を流れる # 下着にシミを作る \@精液を気にする様子は無い
				ELSEIF CFLAG:34:1004 < 35
					PRINTFORM 天子は
					IF 充填率(34,1) >= 100
						PRINTFORM 限界まで精液を注ぎ込まれた下腹部を苦しそうに庇いながら
					ELSEIF 充填率(34,1) >= 60
						PRINTFORM \@ CFLAG:34:291 == 1 ? 秘裂から溢れ、太腿を汚す # 下着をドロドロに汚し、隙間から溢れる \@精液を気にする様子も無く
					ELSE
						PRINTFORM \@ CFLAG:34:291 == 1 ? 太腿を流れる # 下着にシミを作る \@精液を気にする様子も無く
					ENDIF
					PRINTFORMW 恍惚としている
				ENDIF
			ELSE
				IF CFLAG:34:1004 == 0
					PRINTFORML 「この感触って……まさか」
					PRINTFORML 膣内にあるはずのない感触を感じた天子は青ざめながらも
					PRINTFORMW ここで確認するわけには行かず、しばし途方に暮れてしまった
				ELSEIF CFLAG:34:1004 < 10
					PRINTFORML 「うっ…また…この感触」
					PRINTFORML 再び膣内に突然精液らしき感触を感じた天子は、やはりどうすることも出来ずに
					PRINTFORMW 誰にも気づかれないよう普段通りに振る舞った
				ELSEIF CFLAG:34:1004 < 25
					PRINTFORML 「もう、いや……」
					PRINTFORML 再び膣内に突然精液らしき感触を感じた天子は、泣き喚きたいのを我慢して
					PRINTFORMW 誰にも気づかれないよう普段通りに振る舞った
				ELSEIF CFLAG:34:1004 < 35
					PRINTFORML 「……く、うぅ」
					PRINTFORML 天子は再び膣内に突然精液らしき感触が現れるのを感じ、もはや諦めに似た感情で無視を決め込んだ
					PRINTFORMW 誰にも気づかれないよう取り繕ってはいるが、事情を知っている%CALLNAME:MASTER%にとって天子のその姿は滑稽で劣情を誘うものでしかなかった
				ENDIF
			ENDIF
		;非処女膣内射精ピルあり
		ELSEIF ARG:1 == 2
		;処女膣内射精
		ELSEIF ARG:1 == 3
			;時姦堕ち済み
			;地の文と噛み合わせが悪いのはご愛嬌
			IF CFLAG:34:1003
				;無自覚処女喪失時
				IF EX:34:7 == 1
					PRINTFORML 「―――っ…！」
					PRINTFORML いつもとは違い、快感ではなく痛みが襲ってきたことに天子は戸惑った
					PRINTFORML 「……なにかしら？これ」
					PRINTFORML 更には\@ CFLAG:34:291 == 1 ? 太腿に # 下着に \@奇妙な感触があることにも気がついたが
					PRINTFORML 無自覚の内に開発されてきた天子の身体と精神は、その痛みと奇妙な感触さえも大したことではないと捉えてしまう
					PRINTFORML その痛みと奇妙な感触の正体など天子は知る由もなかったが天子の直感か本能か
					PRINTFORML 【それ】はさらなる快楽を得られるようになる合図なのだと感じていた
					PRINTFORML 天子はこれまで以上の快感を味わう期待に、笑いを抑えられなかった
					PRINTFORMW 「は%UNICODE(0x2665)%、ふふ%UNICODE(0x2665)%、ふふふふふ%UNICODE(0x2665)%」
				ELSE
					IF CFLAG:34:1004 == 0
						PRINTFORML 「……なにかしら？これ」
						PRINTFORML 天子は突然現れた奇妙な感触に戸惑った
						PRINTFORML 秘裂から溢れるその感触に何故か嫌悪感を感じることはなった
						PRINTFORML むしろ無自覚の内に開発されてきた天子の身体と精神は、【それ】は自分に快楽を与えてくれるものだと悟ってしまったのだ
						PRINTFORML 天子はこれまで以上の快感を味わう期待に、笑いを抑えられなかった
						PRINTFORMW 「は%UNICODE(0x2665)%、ふふ%UNICODE(0x2665)%、ふふふふふ%UNICODE(0x2665)%」
					ELSEIF CFLAG:34:1004 < 10
						PRINTFORML 「――んっ%UNICODE(0x2665)%」
						PRINTFORML 天子は突然膣内に現れた感触に声を漏らした
						PRINTFORMW しかし、その声は嫌悪ではなく甘い期待に満ちていた
					ELSEIF CFLAG:34:1004 < 35
						PRINTFORML 「――あぁ%UNICODE(0x2665)%」
						PRINTFORML 天子は突然膣内に現れた感触に声を漏らした
						PRINTFORML しかし、その声は嫌悪ではなく甘い期待に満ちており
						IF 充填率(34,1) >= 100
							PRINTFORM とめどなく溢れる
						ELSEIF 充填率(34,1) >= 60
							PRINTFORM \@ CFLAG:34:291 == 1 ? 秘裂から溢れ、太腿を汚す # 下着をドロドロに汚し、隙間から溢れる \@
						ELSE
							PRINTFORM \@ CFLAG:34:291 == 1 ? 太腿を流れる # 下着にシミを作る \@
						ENDIF
						PRINTFORMW 精液の感触に恍惚としている
					ENDIF
				ENDIF
			ELSE
				;無自覚処女喪失時
				IF EX:34:7 == 1
					PRINTFORML 「―――いっ！っ…！！」
					PRINTFORML 天子は突然襲われた強烈な痛みに声にならない呻きを上げた
					PRINTFORML 「な、なによ…？これ……！？」
					PRINTFORML 更には\@ CFLAG:34:291 == 1 ? 太腿に # 下着に \@奇妙な感触があることにも気がつき、頭の中がパニックになってしまった
					PRINTFORML しかし、こんなところで服を脱いで確認するわけにもいかず途方に暮れているところへ
					PRINTFORML %CALLNAME:MASTER%がなにくわぬ顔で声をかけた
					PRINTFORML 「――！！な、なんでもありません！」
					PRINTFORMW 我に返った天子は痛みと気持ち悪い感触を押さえ込んで誤魔化してみせた
				ELSE
					IF CFLAG:34:1004 == 0
						PRINTFORML 「――え？……なに、この感触」
						PRINTFORML 天子は突然股の辺りに現れた奇妙な感触に戸惑いの声を上げた
						PRINTFORML しかし、こんなところで服を脱いで確認するわけにもいかず途方に暮れているところへ
						PRINTFORML %CALLNAME:MASTER%がなにくわぬ顔で声をかけた
						PRINTFORML 「――あ…な、なんでもありません」
						PRINTFORMW 我に返った天子は股の辺りの気持ち悪さを押さえ込んで誤魔化した
					ELSEIF CFLAG:34:1004 < 10
						PRINTFORML 「うっ…また…この感触」
						PRINTFORML 再び股の辺りに現れた奇妙な感触に天子は呻き声を上げた
						PRINTFORML 「なんなのよ……これ」
						PRINTFORMW 感じたことのない不快感を与えてくる【それ】に天子は悪態をつきながら平静を装った
					ELSEIF CFLAG:34:1004 < 25
						PRINTFORML 「もう、いや……」
						PRINTFORML 再び股の辺りに現れた奇妙な感触に、天子は泣き喚きたくなったが
						PRINTFORMW 天人としてのプライドが正体もわからぬ何者かに屈服することを拒否し、なんとか持ちこたえさせた
					ELSEIF CFLAG:34:1004 < 35
						PRINTFORML 「……く、うぅ」
						PRINTFORML 天子は再び股の辺りに現れた奇妙な感触を感じ、もはや諦めに似た感情で無視を決め込んだ
						PRINTFORMW 誰にも気づかれないよう取り繕ってはいるが、事情を知っている%CALLNAME:MASTER%にとって天子のその姿は滑稽で劣情を誘うものでしかなかった
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		;一日3カウントまで
		IF TCVAR:34:351 == 3
			RETURN 1
		ELSE
			CFLAG:34:1004 += 1
			TCVAR:34:351 += 1
		ENDIF
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;ナマでやらせろ時
;==================================================
@M_KOJO_EVENT_K34_18(ARG,ARG:1)
;口上主はTARGET
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;避妊要求台詞
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断った
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;断ったのに粘られて切れた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日以外許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;危険日許可
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;神社暮らしを承認して貰う
;==================================================
@M_KOJO_EVENT_K34_19(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;認められる
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;認められない
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;帰宅時
;==================================================
@M_KOJO_EVENT_K34_20(ARG,ARG:1)
;口上主はLOCALS or RESULT
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;通常帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;デート中帰宅
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;陥落素質取得時
;==================================================
@M_KOJO_EVENT_K34_21(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		PRINTFORMW (もう、いつどこに居てもあなたが忘れられない…)
		PRINTFORMW (例え天界から追放されちゃっても構わない)
	PRINTFORMW (ずっと…ずっと、あなたと一緒に居たいよ…)
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		PRINTFORMW （何かしら、この胸の高鳴り…）
		PRINTFORMW （いつも通りに接してるはずなのに、つい意識しちゃう…）
		PRINTFORMW （もしかして、これが好きになるっていう事なのかしら…？）
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛欲取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;愛人取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		PRINTFORML
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;セフレ取得
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 5
		PRINTFORML
		RETURN 1
	ENDIF
ENDIF
RETURN 1
;==================================================
;調教終了時に自慰
;==================================================
@M_KOJO_EVENT_K34_22(ARG,ARG:1)
;口上主はARG
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 0
;-------------
IF LOCAL
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;浴場連れだし
;==================================================
@M_KOJO_EVENT_K34_23(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;断られた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;一緒に入ってくれた
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 1
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;懐妊
;==================================================
@M_KOJO_EVENT_K34_24(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1
;==================================================
;出産
;==================================================
@M_KOJO_EVENT_K34_25(ARG,ARG:1)
;口上主はLOCAL
;--------------------------------------------------
;記入チェック（=0, 非表示、1, 表示）
LOCAL = 1
;-------------
IF LOCAL
	;-------------------------------------------------
	;小分岐
	;-------------------------------------------------
	;恋慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 1
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;思慕
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 2
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;陥落素質無し
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 3
		RETURN 1
	ENDIF
	;-------------------------------------------------
	;無自覚
	;記入チェック（=0, 非表示、1, 表示）
	LOCAL:1 = 0
	;-------------------------------------------------
	IF LOCAL:1 && ARG == 4
		RETURN 1
	ENDIF
	;その他
	PRINTFORML
ENDIF
RETURN 1

path: 原版+前人整合等各种readme/パッチ/eraTW4.810用 修正パッチ/ERB/口上・メッセージ関連/個人口上/天子/M_KOJO_K34_イベント.ERB