code:
;------------------------------------------------------------------------------------
;日記
;------------------------------------------------------------------------------------
@K49_ORDINARY_DAIRY
GETFONT
CHKFONT "游明朝"
IF RESULT
	SETFONT "游明朝"
ELSE
	CHKFONT "ＭＳ 明朝"
	SIF RESULT
	SETFONT "ＭＳ 明朝"
ENDIF
IF RAND:7 == 0
	PRINTFORMW 音も無く、はらり、ひらひらと緩やかに降る。
	PRINTFORMW 花弁ではなくて、水ではない、もっと寂しい粒。
	PRINTFORMW 積もり、白に辺りを染める。
	PRINTFORMW 温かさに触れたら溶けて消えてしまう。
	PRINTFORMW さようならの言葉も残せずに。
ELSEIF RAND:6 == 0
	PRINTFORMW 傷口を撫ぜる様に柔らかに触れる彼の手に。
	PRINTFORMW %CNAME("一人称")%の胸は熱を帯びて往く。
	PRINTFORMW 零れ落ちる声が静かな部屋に響く。
	PRINTFORMW けれど、其れは未だ前戯。
	PRINTFORMW 具体的な数は書かないけれど、%CNAME("一人称")%は彼に沢山泣かされた。
ELSEIF RAND:5 == 0
	PRINTFORMW 人类の喧騒を横目に%CNAME("一人称")%は安楽椅子に腰掛けていた。
	PRINTFORMW 何の様な場所であっても自らが静寂であるのなら、其処は静謐であると思う様に。
	PRINTFORMW ふと、彼と目が合った。気の所為だったかもしれない。
	PRINTFORMW 彼が此方来了。気の所為ではなかった。
	PRINTFORMW 何と无に其れが嬉しく思えて%CNAME("一人称")%は薄く笑みを浮かべた。
	PRINTFORMW 「やぁ、両手に花どころじゃない色事師桑。%CNAME("一人称")%に何か用かな？」
	PRINTFORMW 何て、少し文句を言っても良いだろう。
	PRINTFORMW %CNAME("一人称")%も彼を思っているのだから。
ELSEIF RAND:4 == 0
	PRINTFORMW 逢瀬、情事、秘事。
	PRINTFORMW 何れも先程まで彼としていた事を示す言葉。
	PRINTFORMW しっとりと%CNAME("一人称")%の肌を濡らすのは、%CNAME("一人称")%のモノだけじゃなくて。
	PRINTFORMW 彼と混じり合ったモノ。
	PRINTFORMW 肌が湿的ると言う感覚にまだ慣れない。
	PRINTFORMW けれども、
	PRINTFORMW %CNAME("一人称")%は此れを愛おしく思う。
ELSEIF RAND:3 == 0
	PRINTFORMW 紫宵が曙へ変わりゆく朝焼けに滲む空を眺める。
	PRINTFORMW 誰もが寝静まり起き行く時間であっても%CNAME("一人称")%は起き続ける。
	PRINTFORMW 看取り人、見送り人。%CNAME("一人称")%の責務。
	PRINTFORMW 最初は四つ、途中で二つ、最後は三つ。
	PRINTFORMW %CNAME("一人称")%は永遠の二つ。
	PRINTFORMW 此処で如何に過ごしても最後は変わらない。
	PRINTFORML
	PRINTFORMW 成ればこそ、
	PRINTFORMW 軽い足取りで%CNAME("一人称")%は%CNAME("一人称")%に宛がわれた部屋を出る。
	PRINTFORMW %CNAME("一人称")%が看取りたいと思う彼の寝顔を見る為に。
	PRINTFORMW 何の様な夢を見ているのだろう。
	PRINTFORMW 若しかしたら見ていないのかもしれない。
	PRINTFORMW 若しも、見ているのだとしたら。
	PRINTFORMW 其処に%CNAME("一人称")%が居ると嬉しく思う。
ELSEIF RAND:2 == 0
	PRINTFORMW 身を凍えさす寒き冬。吐いた息が白くなる。
	PRINTFORMW 空からはひらりひらりと花弁の様に降ってくる寂しい粒。
	PRINTFORMW 地に落ちて身を溶かして消え行く。
	PRINTFORMW 其れらが積もって漸く人类の目に留圆圈。
	PRINTFORMW 其れも何時か忘れ去られて消えてしまう。
	PRINTFORMW 自然と読んでいた本を畳み、窓辺に立つ。
	PRINTFORMW %CNAME("一人称")%には見る事しか出来ない。
	PRINTFORMW 音も無く消え行く彼らを。
ELSE
	PRINTFORMW 归途、偶々彼と一緒变成了。
	PRINTFORMW 借住の身だから返回先は同じ。
	PRINTFORMW 何時もと違って少し遠回りをしていたら、街道雨。
	PRINTFORMW 駆け込んだ休憩所から見えた紫陽花が綺麗だった。
	PRINTFORMW 所以、洒落を効かせて「しようか」なんて言葉が出てしまった。
	PRINTFORMW 答えは熱い口付け。
ENDIF
SETFONT RESULTS
RETURN 1
;------------------------------------------------------------------------------------
;Ｖ系RAND喘ぎ
;やってることは枯れた基礎知識のごり押し絶対にスマートじゃない。
;じゃあ、何故作ったかを聞かれると、こう言うの作っておくと整理整頓が楽になるかなって。
;そもそも、何故先駆者の汎用喘ぎを使わないかを聞かれると、
;合間に意味のある言葉を挟み込む時に矛盾なく組み立てる腕が無いからである。
;------------------------------------------------------------------------------------
@K49_RAND_V
IF SELECTCOM == 66
	IF TALENT:恋慕 && RAND:2
		IF RAND:3 == 0
			CALL PRINT_STRW, @"「っ_HH_そ、こ…はぅっ_HH_かい、かんが……ぃっ_HH_つよい、から…あっ_HH_やさしく、し _爱心粉紅_～～～っ_HH_」"
		ELSEIF RAND:2
			CALL PRINT_STRW, @"「っ_HH_はっ…ぃひっ_HH_%CNAME("二人称")%の、かり…くび、が……すれて……ひぅっ_HH_」"
		ELSE
			CALL PRINT_STRW, @"「ひゃっ_HH_そ、こ…きもち…いい、よ……ひぅっ_HH_ぁっ、ぁっ、ぁっ_HH_」"
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「ぁっ…くっ…はっ…ひょう、めん……ぃっ…が……はぅっ…あわだった、ぁんっ……みたいに、なって……」
		ELSEIF RAND:2
			PRINTFORMW 「ぃっ……ぁっ……なみが……はぁっ……んぅっ……つよ、く……んんっ……なって……」
		ELSE
			PRINTFORMW 「そ、こ……ひぅっ…せ…すじ、が…ぁっ、はぅっ…んふぅ……ゾクゾクって……なる……」
		ENDIF
	ENDIF
ELSEIF SELECTCOM == 67
	IF TALENT:恋慕 && RAND:2
		IF RAND:3 == 0
			CALL PRINT_STRW, @"「ぃっ_HH_ぁんっ……_HH_こつこつって……%CNAME("二人称" , "かな")%のが……しきゅう、こうを…たたい、て……」"
		ELSEIF RAND:2
			CALL PRINT_STRW, @"「ぁっ_HH_いっ_HH_は、ぁ……そこ……つか、れると……かい、かんが……ほか、より……つよく、て……――ﾍ/%UNICODE(0x2216)%%UNICODE(0x0780)%っ_HH__HH_」"
		ELSE
			CALL PRINT_STRW, @"「んぃひっ_HH_ぁっ_HH_はぅっ_HH_フ──……ッ_HH_フ──……ッ_HH_らんぼう…に……シて…いいから……きに、しないで……？」"
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「あっ……は、ひぅっ……もじ、どおり……ないぞう、を…えぐられて……こえ、が……」
		ELSEIF RAND:2
			PRINTFORMW 「ぁっ、ぁっ、あっ！かい、かんが……ほうわ、して……ぁあっ！」
		ELSE
			PRINTFORMW 「はぁ……、はぁ……ぁぅっ……んぁっ……いっ！おく、にぃ……はぅっ！」
		ENDIF
	ENDIF
;ELSEIF SELECTCOM == 68
;	IF TALENT:恋慕 &&
;		IF RAND:3 == 0
;			PRINTFORMW
;		ELSEIF RAND:2
;			PRINTFORMW
;		ELSE
;			PRINTFORMW
;		ENDIF
;	ELSE
;		IF RAND:3 == 0
;			PRINTFORMW
;		ELSEIF RAND:2
;			PRINTFORMW
;		ELSE
;			PRINTFORMW
;		ENDIF
;	ENDIF
ENDIF
IF RAND:8 == 0
	PRINTFORMW 「んっ、んっ……ぁんっ……んっ…」
ELSEIF RAND:7 == 0
	PRINTFORMW 「はぁ…はぁ…んんっ…ぁぅんっ……んっ…んんっ……」
ELSEIF RAND:6 == 0
	PRINTFORMW 「はぁっ……はぁ、はぁ……んんっ、ぁっ、ぁぅんっ……」
ELSEIF RAND:5 == 0
	PRINTFORMW 「っ……！ふー…ふー…、ぃっ……ぁんっ……」
ELSEIF RAND:4 == 0
	PRINTFORMW 「ぁっ、ぁっ、あっ……ふ、ぅっ……ひゃっ……」
ELSEIF RAND:3 == 0
	PRINTFORMW 「ぁぅ…っ、…っ！んんん…っ、ん…っ」
ELSEIF RAND:2
	PRINTFORMW 「ぁっ……ん……ふ、ぁ……」
ELSE
	PRINTFORMW 「ひゃっ……、んっ……んっ、んぅっ……んっ……ぁっ……」
ENDIF
IF TALENT:恋慕 && BASE:快感許容値女性 >= MAXBASE:快感許容値女性 * 2 / 4
	IF RAND:8 == 0
		CALL PRINT_STRW, @"「んっ、んんっ、んぁっ、ぁんっ_HH_」"
	ELSEIF RAND:7 == 0
		CALL PRINT_STRW, @"「ぁっ、ぁっ……んぅんっ、ぁっ、んんっ……ぁっ、あぁっ_HH_」"
	ELSEIF RAND:6 == 0
		CALL PRINT_STRW, @"「んっ、んぅっ、ぁっ、ぁんっ_HH_」"
	ELSEIF RAND:5 == 0
		CALL PRINT_STRW, @"「ぁんっ、ぁっ、はんっ……んっ、んんっ、ぁんっ_HH_」"
	ELSEIF RAND:4 == 0
		CALL PRINT_STRW, @"「ぁっ、ぁっ、ぁっ……んんんっ_HH_ぁぅっ、んっ_HH_」"
	ELSEIF RAND:3 == 0
		CALL PRINT_STRW, @"「ぁっ……はぁん……ぁっ、ぁっ、あぁっ_HH_」"
	ELSEIF RAND:2
		CALL PRINT_STRW, @"「……っ_HH_ぁっ…んっ…ぅ、あぁぁっ……」"
	ELSE
		CALL PRINT_STRW, @"「ゃっ、ん……ふ、ぁ……くぅ……ぁっ…_HH_ふーっ…_HH_ふーっ…_HH_」"
	ENDIF
ENDIF
IF COND("絶頂")
	IF RAND:2 && COND("絶頂", PLAYER)
		PRINTFORMW 「ぁっ、ぁっ…んぅんっ、はぁ…はぁ……%CNAME("二人称" , "かな")%の、はり、んぅ、ぁんっ……つめて、るね……」
		IF TALENT:恋慕
			IF COND("危険日")
				CALL PRINT_STRW, @"「な、か……んぅんっ…に…_HH_ひぅっ、ほしい……」"
				PRINTFORMW 「%CNAME("二人称" , "かな")%の、が……ほしい、よ……」
				CALL PRINT_STRW, @"「おね、がい……っ_HH_」"
			ELSE
				CALL PRINT_STRW, @"「%CNAME("一人称" , "かな")%も、んっ…_HH_そろそろ、ぁっ…_HH_ぁぅっ…_HH_だからっ……」"
				CALL PRINT_STRW, @"「いっしょ、に………イこっ……_HH_」"
			ENDIF
		ENDIF
	ELSE
		IF RAND:3 == 0
			PRINTFORMW 「はぁ……はぁ……んんっ…ぁぅんっ……んっ…んんっ…んはっ、あっ、ぁんっ……」
		ELSEIF RAND:2
			PRINTFORMW 「ひぅっ……なか、でっ……あっ、くぅっ……%CNAME("二人称" , "かな" , "どもり")%の、が……んっ、はぅっ……えぐれてっ……」
		ELSE
			PRINTFORMW 「そ、こ……っ、ぁっ、ぁあっ、ん…ふっ…きもち、いい…よ……」
		ENDIF
	ENDIF
ENDIF
RETURN 1
;------------------------------------------------------------------------------------
;あれやこれやで、地の文スキップした時にそれでも流用したい部分を呼び出せるように
;別名自己それっぽいの酱と書け
;------------------------------------------------------------------------------------
@K49_NewDay_Cowgirl
PRINTFORM 睁開眼睛就发现%CALLNAME:TARGET%
IF SIZE("阴茎", PLAYER) >= 2 && RANDIF(1, TALENT:巨乳)
	IF ABL:Ｖ拡張 >= SIZE("阴茎", PLAYER)
		PRINTFORM 跨在上面、把
		IF STRCOUNTS(CONDS("体型"), "苗条", "高挑")
			PRINTFORM 纤细的身体把
		ELSEIF TALENT:娇小
			PRINTFORM 小小的身体
		ENDIF
	ENDIF
	PRINTFORM %CALLNAME:MASTER%的
	SELECTCASE SIZE("阴茎", PLAYER)
	CASE IS >= 4
		PRINTFORM 規格外的巨根
	CASEELSE
		PRINTFORM 巨根
	ENDSELECT
	PRINTFORM \@ABL:Ｖ拡張 >= SIZE("阴茎", PLAYER) ? 用膣一直吞到最根部 # 压在胯下摩擦 \@
ELSE
	PRINTFORM 跨在上面
	IF TALENT:巨乳
		IF RAND:3 == 0
			PRINTFORM 、%TOFULL(CONDS("罩杯") )%罩杯的%TALENT_NAME(GETNUM(TALENT, "巨乳"), TALENT:巨乳)%揺晃着
		ELSEIF TALENT:巨乳 >= 2
			IF RAND:2
				PRINTFORM 、豊満的胸部夸张地摇晃着
			ELSE
				PRINTFORM 、看上去很重的胸部悠悠地摇晃着
			ENDIF
		ELSEIF RAND:2
			PRINTFORM 、大大的胸部摇晃着
		ELSE
			PRINTFORM 、一边揉着自己的胸
		ENDIF
	ENDIF
ENDIF
PRINTFORMW 喘いでいる……
RETURN 1

;------------------------------------------------------------------------------------
;個別イベント
;------------------------------------------------------------------------------------
;【死神のお仕事】
@K49_Work_01
PRINTFORMW 興味もあるのでついて行く事を四番に伝えた。
CALL PRINT_STRW, @"赤_《了解りょーかい！》"
PRINTFORMW 元気な声と共に結晶体が緋色に輝きを増す。
CALL PRINT_STRW, @"赤_《世界面制御開始、光速度、作用量子定数、万有引力定数取得》"
PRINTFORMW 紡がれる言葉と共に境界線がハッキリとした揺らぎが%CALLNAME:MASTER%と結晶体を包む。
CALL PRINT_STRW, @"赤_《時間単位を改変、重力場を指定偏向》"
PRINTFORMW 揺らぎが%CALLNAME:MASTER%と結晶体を包み込むと、
PRINTFORMW 何が起こったのか分からなかった。
PRINTFORMW しかし、身体は前へ滑る様に勝手に落ちていく。
PRINTFORMW 地面は足元にあるのに重力は前へ掛かり、身体は前へ落下していく。
PRINTFORMW その重力に抗わずに窓の外へ身体を任せて飛び出したその先は、
PRINTFORML
PRINTFORMW 世界が止まっていた。
PRINTFORML
PRINTFORMW 枝から散った木の葉は宙で、人影は踏み出した足を就这様に
PRINTFORMW 目に映る全てが絵で切り取った様に世界が止まっていた。
PRINTFORMW これは一体？
CALL PRINT_STRW, @"赤_《んーざっくり説明すると好い人を包んでる揺らぎは簡単に言うと『都合の良い空間』なんだよー》"
CALL PRINT_STRW, @"赤_《ここでなら好い人は光とほぼ同じ速度で動けて、空を翔ぶことだって出来る》"
CALL PRINT_STRW, @"赤_《そんな『都合の良い空間』》"
	;周囲の空間の光速度と重力相互作用と光子のエネルギーと振動数の比例定数を改変する事によって重力を制御して空中移動が出来て亜光速で運動できるようになる空間を創っている。
	;亜光速、つまり光速を超えない理由としては、運動している素子・物体は本質的にはどれだけエネルギーを与えたとしても光速を超える事は出来ないからである。
	;一時的に虚数に身を置くことで超光速移動に必要なタキオン粒子を擬似的に精製する事も出来なくは無いかもしれないが観測しなければ意味消失する。
	;この意味消失を防ぐ、つまり観測するにはエネルギーが必要となり疑似タキオンはエネルギーを加えるに連れて逆に光速に近づく。
	;しかし前述した街道光速を超える事が出来ず、観測し続けるために無駄なエネルギーを消費する事になるので効率的な問題で光速度を変更し亜光速に抑えている。
	;まぁそもそもタキオン自体が親殺しのパラドックスの様な論理的パラドックスが生じるモノなので現在的物理学的には有えないとされている。
	;え？そもそも魔法が存在する世界なんだからそんなの関係ない？うるせぇ、物質界に存在する限り物理法則を受けるんだよ！
PRINTFORMW 世界面制御はあんまり得意じゃないんだけどねーとオーフェス四番は呟く。
PRINTFORMW 難しい事は清爽だが、超スピードで動いているという事で良いのだろうか？
CALL PRINT_STRW, @"赤_《そう言うざっくりとした認識で良いよー》"
PRINTFORML
PRINTFORMW 主観的に止まった世界の中を前方へ落下し的同时、夜の街を翔けてると真っ白色存在が視界に入った。
PRINTFORMW その白色存在は説明するまでもなく%CALLNAME:TARGET%で、
PRINTFORMW 向かいに相対する存在は背に骨ばった单薄的皮膜の大号的翼、頭には捩れた角、瞳は白が黒に。
PRINTFORMW 四肢は四足獣如く太く大きく、爪は肉を切り裂くことなど容易いだろうと思わせるほど鋭かった。
PRINTFORMW 那可真是、話に出てくる絵に描いたような異形としての悪魔。
PRINTFORMW 揺らぎのこちらに居る%CALLNAME:MASTER%でも理解できる剣呑とした空気。
CALL PRINT_STRW, @"赤_《到着―！いやぁ間に合った間に合った》"
PRINTFORMW そんな剣呑とした空気をものともしない気の抜けたはつらつとした声で気が抜けそうになる。
PRINTFORMW 「ん…四番一体何をしていた……は？」
PRINTFORMW 揺らぎが解けて世界が元に戻り、%CALLNAME:TARGET%は瞳を大きく睁開驚愕とした表情をする。
CALL PRINT_STRW, @"赤_《いえーい！ご主人！好い人を連れてきましたよ！》"
PRINTFORMW 「付いて来ない様に中座したのに……嗚呼もう……」
PRINTFORMW 頭を抱えたげな声を出しながら%CALLNAME:TARGET%は叹气を吐き、%CALLNAME:MASTER%を見て、
PRINTFORMW 「%CNAME("二人称")%はそこから動いちゃダメだよ。七番、十七番。彼の傍に」
CALL PRINT_STRW, @"赤_《承りました》《あいよー》"
PRINTFORMW %CALLNAME:TARGET%の声で两个結晶体が%CALLNAME:MASTER%の傍に漂う。
PRINTFORML
PRINTFORMW 「さて、と……話の腰を折ってごめんね。要件は先程言った街道に此方は契約違反を検知したのだけれど」
PRINTFORMW 普段と変わらない穏やかな声で%CALLNAME:TARGET%は目の前の異形に話しかける。
PRINTFORMW 『おいおい、確かに俺は悪魔だが嘘はつかねぇぞ？』
PRINTFORMW 『真っ当に契約を結んで、真っ当に契約を履行して、真っ当に対価を支払って貰っている』
PRINTFORMW なんとも胡散臭い言葉だ。真っ当と言う言葉を前面に押し出すのは大体は詐欺師と相場が決まっている。
PRINTFORMW 「確かに、契約を履行して、其の分の対価を支払って貰っている」
PRINTFORMW 『そうだろう、そうだろう。俺は真っ当だ。ハハハハ！』
PRINTFORMW 自分の言っている事の正しさを見せつける様に悪魔は愉し気に嗤う。
PRINTFORMW 「けれども」
PRINTFORMW 『あ？』
PRINTFORMW 悪魔の嗤いを切り捨てる様に%CALLNAME:TARGET%が言葉を挟む。
PRINTFORMW 「其の契約を結ぶ様に誘導したのは協定第三編二章十七条に違反してるね？」
CALL PRINT_STRW, @"『ッチ、_暗灰色_屍拾い共がそこまで調べてるのか_』"
PRINTFORMW 吐き捨てる様に呟いたつもりなのだろうが、少し出口た%CALLNAME:MASTER%にも聞こえる声だった。
PRINTFORMW 「と言うわけで你が回収した魂は%CNAME("一人称")%達が蒐集させてもらうよ」
PRINTFORMW 『吠えたな、木っ端死天使が』
PRINTFORMW そんなセリフが聞こえた瞬間、悪魔の姿が消え失せ――――
CALL PRINT_STRW, @"赤_《おっと、知覚速度二十倍に》"
PRINTFORMW たかの様に見えたが七番と呼ばれた結晶体の声で、悪魔の動く姿が見えた。
CALL PRINT_STRW, @"赤_《失礼ながら好い人の知覚速度を引き上げてみました》"
CALL PRINT_STRW, @"赤_《これで好い人はこれから起こるすべてを視覚出来ます》"
CALL PRINT_STRW, @"赤_《ここで私達がサボっては四番が連れてきた意味が有ませんからね》"
PRINTFORMW 全く清爽理屈が分からんがどうやらそう言う事らしい。
PRINTFORMW 「はぁ……斯うなると予想はしていたけれど、斯うも血の気が逸っているとはね……」
PRINTFORMW %CALLNAME:TARGET%が叹气を吐き突っ込んでくる悪魔に両手を広げるように構えて、
PRINTFORML
GETFONT
CHKFONT "游明朝"
IF RESULT
	SETFONT "游明朝"
ELSE
	CHKFONT "ＭＳ 明朝"
	SIF RESULT
	SETFONT "ＭＳ 明朝"
ENDIF
PRINTFORMW 「――――われら、つるぎをふるいたもうては、いのちをあつめるものなり」
PRINTFORMW 謡う様に言葉を紡ぎ始めた。
PRINTFORMW 「――――われら、はかりをふるいたもうては、ひげきをあつめるものなり」
PRINTFORMW 普段はただの真円だったはずの頭上の輪は王冠を思わせるモノに、
PRINTFORMW 然后、初めて出会った時に見た時とは違う緋色の翼を二枚、背に広げる。
PRINTFORMW 「――――われら、かまをふるいたもうては、くべつなくあつめるものなり」
PRINTFORMW 然后、激突すると思われた瞬間、あの魂を軋ませる大号的鎌が割り込み攻撃を受け止めた。
PRINTFORMW 「――――此れより死を蒐集します」
PRINTFORMW 「死に、祝福を」
PRINTFORML
SETFONT RESULTS
PRINTFORMW ただの一言だと言うのに悪寒が走り身体が震える。これはただの身体が恐怖を覚えてるだけなのか？
PRINTFORMW しかし、漏れ出た呼気は白く。この悪寒が錯覚ではなく現実に温度が下がっていることを知らせる。
CALL PRINT_STRW, @"赤_《ああ、忘れていましたね。分子運動制御を並列で起動》"
PRINTFORMW 七番と言われた結晶体の言葉で寒気を感じなくなった。
PRINTFORMW ちらちらと上の方から白色何かが降り注ぐ。
PRINTFORMW 肌に触れたそれは解けてようやくそれが雪であることが%CALLNAME:MASTER%には分かった。
	;分子運動を制御することによって熱エネルギーの流出、つまりは乱雑化を防いで体温を一定に保つようにしてる。
	;ちなみに、そもそもここで気温が下がった理由は蒐集状態に移行した時にアーリャが分子運動制御を開始して、一時的にマクスウェルの悪魔と化したからで。
	;その初動の為の熱エネルギーを大気中のを使った結果周囲の温度が下がったので局所的に真冬状態变成了ので雪が降り始めた。
	;え？氷の方が妥当だって？うるせぇ！雪が嫌いだと言っている女の子が皮肉にも雪と似合うとか良いだろ？！
PRINTFORMW 『この寒さは何だ……？それに雪……？なっ、まさか。死神ィ！？』
PRINTFORMW %CALLNAME:TARGET%が天使では無く死神だと予想してなかった悪魔は情けない声を上げる。
PRINTFORMW 但是，%CALLNAME:MASTER%ははらりはらはらと幻想的に降ってくる雪と翼を広げ神として振舞う%CALLNAME:TARGET%の姿に見惚れていた。
PRINTFORMW 「運動法則力学予想による短期未来予測開始。計算終了、八手詰み。最小資源消費による手順の消化開始」
	;解説いる？？？よくある未来予測能力だよ。
	;まぁ重要なのは予知ではなく予測。予知が不可能な理由は、量子の持つ不確定性があるので完全な予測が不可能とされているのでラプラスの悪魔は死にましたとさ。
	;なので、此処では古典力学で予測できる力学的状態と力を解析して確度の高い情報の中で最小リソース消費のモノを選んでいる。
	;勿論、予測なので外れる。そうなったら、そうなったらで段階的にリミッターが外れる。つまり後五回変身を残してる。
PRINTFORMW 「閉鎖空間一番から七番の制御を自立術式執行機構、一から六、八番に委託」
PRINTFORMW 普段とは違う抑揚のない機械的に呟かれた%CALLNAME:TARGET%の声で言葉が紡がれる。
CALL PRINT_STRW, @"赤_《仕事だ仕事！》《畏まり！》《是な！》《ずびーっと！》《狙い撃つぜー》《シュート！》《バスター！》"
PRINTFORMW 然后、賑やかなオーフェスたちの声と共に悪魔を取り囲む様に配置され、
PRINTFORMW 「全機、<槍>射出」
PRINTFORMW 短く下された命令と共に、七本の閃光と遅れて空気を割いた音が鳴り、悪魔の手足を貫く。
PRINTFORML
PRINTFORMW 何の光ィ！？え、何あれ。
CALL PRINT_STRW, @"赤_《簡単に説明するとなぁ、ビームや。七番倍率上昇を提案》《承認、知覚速度五十倍に再定義》"
PRINTFORMW 少し西訛りのある十七番がそう解説してくる。
CALL PRINT_STRW, @"赤_《ざっくばらんに解説するとや、》"
CALL PRINT_STRW, @"赤_《空間制御で極小の閉鎖空間を生成して、そん中にある光や原子、分子を加速して撃ち出してるんや》"
CALL PRINT_STRW, @"赤_《ものごっつ簡単に言うと水鉄砲やな。ただしその射出される速度が光の速度ってだけや》"
CALL PRINT_STRW, @"赤_《見てから回避は不可で、回避するには射出軌道を事前に予測するしかない》"
CALL PRINT_STRW, @"赤_《あるいは虚数に身を置くもんなら可能性はあるくらいか》"
	;タキオン粒子は虚数なので。
	;まぁでも実際タキオン粒子で構成された存在が居るとしたら存在が虚数なのに実数と言う矛盾が発生するので多分俗にいう神とかそう言う部類になるんじゃないかな。知らんけど。
	;とにかく何が言いたいかと言うと、射出を見てからは回避不可です。
CALL PRINT_STRW, @"赤_《お家騒動ではこれが普通に飛び交ってたらしいけど、お上の現行機種ではオミットされとるんやないかな》"
PRINTFORMW いつから我が家のポンコツ死神は機動戦士变成了？？？
CALL PRINT_STRW, @"赤_《最初からやで、と言う冗談は置いといて。八手目や》"
PRINTFORMW そう言う十七番の言葉に釣られて視線を戻すと、%CALLNAME:TARGET%が鎌を振りかぶり、
PRINTFORMW 「休息、さようなら」
PRINTFORMW 葬送の言葉を呟き、抵抗なく悪魔の首が斬首された。
CALL PRINT_STRW, @"赤_《存在と言う根本的な概念から解体して死を与える》"
CALL PRINT_STRW, @"赤_《全知全能なるあの存在が、どんな存在にも終わりをもたらすのがご主人のつこうてる鎌や》"
PRINTFORMW 噴き出るはずの血は無く、どさりと膝から崩れ落ちてサラサラと白色結晶となる悪魔だったモノ。
CALL PRINT_STRW, @"赤_《そして死した肉体は結晶と身を変え散る。まぁ…白色ご主人とは映えるな》"
	;正しくは、斬首と同時に解体開始、そして再利用可能な資源へ変換してそれを分子に再結晶化して資源の消費を無くしてる。
	;魂とか言われる21gもこの時にすでに回収済み。
	;なので、どこぞの直死とは違って殺してるのではなくて、原初の姿に戻してるのが正しい表現になるのか。
	;死は新たな生の始まりと言うから多分そう言う事。
	;他とのつながりを物理的、概念的に断った上での変換なので分子から再生は不可能。
	;この分子を使って再生は可能だが。
PRINTFORMW それが吹いた風と共に散る瞬間に%CALLNAME:TARGET%の口元からは冷えたような白色息が出て。
PRINTFORMW 「状況終了。各機、周辺の損壊箇所を修復。其の後、戦闘論文の提出を」
PRINTFORMW 何事もなかったように翼は消え、王冠は輪に戻った。
PRINTFORMW 「………」
PRINTFORMW そうして、何も言わずに%CALLNAME:TARGET%が%CALLNAME:MASTER%の元へずかずかと歩いてくる。
PRINTFORMW 然后、就这様抱き着いてきた。
PRINTFORMW 触れた%CALLNAME:TARGET%の身体は驚くほどに冷え切っており人类の形をした氷の様だった。
PRINTFORMW 「ごめん、少しだけ温まらせて。ホントはこんなのしなくても大丈夫だけど」
PRINTFORMW 「でも今は%CNAME("二人称")%の熱が欲しい」
PRINTFORMW そう言って抱きしめてくる%CALLNAME:TARGET%を%CALLNAME:MASTER%は空気に流されて抱き返してやる。
CALL PRINT_STRW, @"赤_《ヒューヒュ！お熱いねぇ！》"
PRINTFORMW 「全機発話機能停止！……………はぁ。ごめん」
PRINTFORML
PRINTFORMW 「………説明するとね」
PRINTFORMW 少しだけ熱の戻った%CALLNAME:TARGET%が言葉呟き始める。
PRINTFORMW 「分子運動制御で情報を資源に変換する事が出来るんだ」
PRINTFORMW 「簡単に言えば一時的に資源を無制限に使えるって事」
PRINTFORMW 「だけれど、分子運動制御を解除した時に安全機構が働いて熱量が一気に胡乱なって温度が下がるんだ」
PRINTFORMW 「前はこの冷たさの事、気にしなかったのに。今はこれが少し怖く感じるんだ」
PRINTFORMW 顔は見えないが%CALLNAME:TARGET%の声是つもの穏やかな声じゃなくて少しだけ震えている。
PRINTFORMW 「でも、嗚呼。やっぱり」
PRINTFORMW 「うん、四番には少し感謝だね」
PRINTFORMW 「此処に%CNAME("二人称")%が居てくれて嬉しいよ」
PRINTFORML
PRINTFORMW 「有がと」
PRINTFORMW 胸に収まった%CALLNAME:TARGET%が顔を上げて笑いかけてきた………
PRINTFORML
PRINTFORMW 「それで」
PRINTFORMW 落ち着いたのか%CALLNAME:TARGET%は結晶体に向かって少し良い露出笑容話しかけている。
PRINTFORMW 「誰の命令で動いていたのかな？」
PRINTFORMW 結晶体達は一か所に集まって人类が何かをひそひそ話で交わす様な素振りをして、
PRINTFORMW 你は行けよとか、いやここは你だろ、と本当に人类みたいな事をして話を長引かせるようにしている。
PRINTFORMW 「はぁ……どうせ、某个畜生の勅令だったんでしょ」
PRINTFORMW その言葉にふわふわだったのがピンとなって、
CALL PRINT_STRW, @"赤_《はーい！ご主人！その街道！》"
PRINTFORMW 元気よさげに答えたのだった。今のを答えたのは四番だろう。声色で何となく分かる様になってきた。
PRINTFORMW 「一体誰の子機何だか……まぁ良いよ。それなりに感謝はしてるから」
CALL PRINT_STRW, @"赤_《おぉ！》《ご鈴んが！》《デレた！》《いぇーい！》"
PRINTFORMW 「調子良いなぁ……ホント、誰の子機何だか……」
PRINTFORMW 沸き立つオーフェスたちに%CALLNAME:TARGET%は呆れる様な声で、少しだけ笑着。
PRINTFORMW 「さてと、返回かい」
PRINTFORMW %CALLNAME:MASTER%の方へ手を伸ばしてきて微笑む。
PRINTFORMW 然后、今は温かい%CALLNAME:TARGET%の手を握って家路をたどった………
PRINTFORML
PRINTFORMW 【死神のお仕事】 END
SIF CEVENT("死神のお仕事：中止")
	CALL DEL_CEVENT, "死神のお仕事：中止"
RETURN 1

;【幕間：何時かの夏の氷山大噴火顛末】
@K49_Ice_eruption
PRINTFORMW 「はぁ……暑い……」
PRINTFORMW そう言いながら啪嗒啪嗒と手団扇で冷を取ろうとしている%CALLNAME:TARGET%。
PRINTFORMW 確かに今日は昨日よりも暑く感じる。純粋に温度だけじゃなくて湿度も高くて蒸し蒸しと不快さを感じる暑さだ。
PRINTFORMW 「温度や湿度の差異を感じるって不便だね。%CNAME("二人称")%と同じ感覚を感じれてるってのは良いけれどさ」
PRINTFORMW なんて少し微笑んでいる%CALLNAME:TARGET%の頬に汗がつーっと伝っているせいでどこか何時もの穏やかな感じが全くしない。
PRINTFORMW 涼しくなれる飲み物を飲もうと冷蔵庫へ行きついでに氷をと思って冷凍庫を開くと冰が一本あった。
PRINTFORMW こんなに暑いんだから食べても誰も文句は言わないだろうと取り出して袋を割いて冰を取り出して口に咥えてから戻った。
PRINTFORMW 「おかえり……って%CNAME("二人称")%、其れ……」
PRINTFORMW そう言う%CALLNAME:TARGET%の緋の瞳の視線は%CALLNAME:MASTER%の口元に咥えられた棒状冰に注がれていた。
PRINTFORMW 「ふ、ふふふ。ねぇ%CNAME("二人称")%、その氷菓子、美味しそうだね。%CNAME("一人称")%が楽しみにしていたモノとよぉく似てとても、とても美味しそうだ。何処から取ったのかな？」
PRINTFORMW ……冷凍庫からだ。そう引きつった笑顔の%CALLNAME:TARGET%に%CALLNAME:MASTER%は坦率に……しかし恐る恐る答える。
PRINTFORMW すると案の定、夏の火山は見事に吹き出した。
PRINTFORMW 「人类のモノを盗んだら泥棒と教わらなかったのかい？其れとも冷凍庫の中の品は共有財産だと？一応許可を得て%CNAME("一人称")%専用の場所を用意して貰っているのだよ？其処に置いて在った筈だよね？確かに、此の様な事で一々言葉を挟むというのは狭量だと言えるけれどね、其れでも人类の楽しみを取ると言うのは其れほどの事なんだよ？だから其の小さいモノを見つめる瞳は止め給え。抑々、其れは私の氷菓子だからね？私のだ、意味は解るね？盗んだものはどうするか、解るよね、良い子だからね？」
PRINTFORMW とても暑さしか感じさせない%CALLNAME:TARGET%のTalkに気圧されるまま%CALLNAME:MASTER%は咥えていた冰を引き抜いて差し出した。
PRINTFORMW 「理解してるなら宜しい。賠償は勘弁しようじゃないか。ん……この美味しさに免じてね……♪」
PRINTFORMW 返してからふと、口を付けたものでこれが所謂間接接吻に相当すると気付いた。
PRINTFORMW しかし理屈屋で仮にも死神を冠する彼女だ。今さらそんな事で動じたりは……
CALL PRINT_STRW, @"「あ、あぁ！！え、えぇと、これ………かっ……かん…_／／／_」"
PRINTFORMW どうやら春と夏がいっぺん来了ようだ…
RETURN 1

;【幕間：白色彼女と乾酪】
@K49_cheese_cheese_cheese
PRINTFORMW しかし、吃飯をする必要がない%CALLNAME:TARGET%が乳酪を食べた切っ掛けは何だろうか？
PRINTFORMW 「ん？%CNAME("一人称")%が乾酪と出会った話かい？」
PRINTFORMW 緋の瞳を閉じて、少し考える様な素振りをしてから口を開く。
PRINTFORMW 「そうだね………まぁ昔の話だよ。其れもうんと昔の」
PRINTFORMW 懐かしむ様な、少し悲しみを覚える様な声で%CALLNAME:TARGET%は語り始める。
PRINTFORML
GETFONT
CHKFONT "游明朝"
IF RESULT
	SETFONT "游明朝"
ELSE
	CHKFONT "ＭＳ 明朝"
	SIF RESULT
	SETFONT "ＭＳ 明朝"
ENDIF
PRINTFORMW 今でこそ門の前で水先案内人をしながら地獄を管理して居たけれど、
PRINTFORMW 昔は私が現世を駆け巡って魂を蒐集していた時期が在ったのさ。
PRINTFORMW 人类が死なない日、何て無いからね………
PRINTFORMW 其の日は……何て事も無い普通の日だった。
PRINTFORMW 何時もの様に死んだ人类の魂を蒐集して次の場所に向かおうとした時だよ。
PRINTFORMW 御使様と声を掛けられたんだ。
PRINTFORMW 其の時は驚いたよ、何せ迷彩をして瞳に映らない筈なのに声を掛けられたのだから。
PRINTFORMW 振り返ると齢にして七つの少女が其処に居たんだ。瞳を盲してる少女が。
PRINTFORMW %CNAME("一人称")%の姿が見えなくとも少女には气息とか感と言ったモノで%CNAME("一人称")%を捉える事が出来たみたいだね。
PRINTFORMW 少女は「お祖父酱を神様の御許迄連れって行って下さい」と言って、
PRINTFORMW 「此れを捧げますから」と乾いた白色塊を差し出して来たんだ。
PRINTFORMW 見た目は今のモノとは比べ物にならない程悪いけれど其れは乾酪だった。
PRINTFORMW 何かを捧げて要為に蒐集を行っていた訳じゃ無いのに要のは何処か居心地が悪い気がした。
PRINTFORMW 但是、少女は不安そうな顔付きで「御使様？」と%CNAME("一人称")%の返事を待っていた。
PRINTFORMW %CNAME("一人称")%は受け取って必ず連れて行くよと短く告げて次の場所へ向かった。
PRINTFORMW 向かっている途中受け取った乾酪を如何するかを考えた。
PRINTFORMW 捨てると言うのは何処か躊躇いを覚えて、人类に倣って食べてみる事にした。
PRINTFORMW 味はそうだね………うんやっぱり今と違って整っていなかったけれど彼れは美味しいと言えたかな。
PRINTFORMW 其れから暫くは日々の繰り返し。
PRINTFORMW 世界を駆け巡り、死を蒐めて、嘆きを拾いを繰り返したんだ。
PRINTFORMW 或る日訪れた場所は少女と出会った村だった。
PRINTFORMW 蒐集相手は………彼の少女だった。
PRINTFORMW 瞳を盲して七つ迄生きて来れたのが、当時としては奇跡と言えたからね。
PRINTFORMW 仕方の無い、何処にでも在る、有些触れた話だよ。
PRINTFORMW 其の後、旅人に扮して其の村で乾酪を交換したんだ。
PRINTFORMW 見た目も味もあの時と然程変わらない乾酪を。
SETFONT RESULTS
PRINTFORML
PRINTFORMW 「其れ以来、交易品等で乾酪を扱っている村に訪れる度に食べていたのさ」
PRINTFORMW 「祖父を連れて行くのに祖父を思って捧げモノをして来た少女を思い返して」
PRINTFORMW 「何て、只の感傷だよ」と少しだけ陰のある表情で微笑む。
PRINTFORMW なるほど、%CALLNAME:TARGET%と乳酪の出会いはそうだったのか……
PRINTFORMW 出会いは分かったが結局好んだ理由は何だろうか？
PRINTFORMW 「味だよ。単純に美味しいと感じたからね。何れも美味しいから最も美味しいのを決めろと言われたら基準を決める為の評価値を決めるのだけど、如何しても感情と言う揺らぎが入って自己協議を始めるから演算負荷が掛かって……」
PRINTFORMW %CALLNAME:MASTER%が途中から聞いていないのに永遠と%CALLNAME:TARGET%の口は回り続ける。
PRINTFORMW やはり、この死神ポンコツでは？
RETURN 1

license: unknown


code:
;-------------------------------------------------
;ここに記述する事で各指令の選択肢を増やすことができる
;X1は角色番号に置換してください
;-------------------------------------------------
;お願い・取引での選択肢を追加。番号は60～89を使ってよい
@WISH_K49_ADDSELECT
IF TALENT:恋慕 || TALENT:相思相愛
	IF TALENT:Ｖ妊娠不能
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("妊娠して欲しい", 16)% … %CALLNAME:TARGET%に妊娠出来るようにしてもらいます/
	ELSE
		STR:選択肢 = %STR:選択肢% [60] %TEXT_LJ("妊娠しないで欲しい", 16)% … %CALLNAME:TARGET%に妊娠不会うにしてもらいます/
	ENDIF
ENDIF
IF COND("調教中") && INSERT("Ｖ挿入中", MASTER) && BASE:MASTER:魂 > 101 && TALENT:恋慕 && TALENT:阴茎 <= 5
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "規格外"
		STR:選択肢 = %STR:選択肢%灰色/ [61] %TEXT_LJ("挿入中に巨根化", 16)% … これ以上大きくは出来ない/
	CASE "腕粗"
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("挿入中に巨根化", 16)% … [規格外]になる/
	CASE "馬根"
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("挿入中に巨根化", 16)% … [腕並]になる/
	CASE "巨根"
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("挿入中に巨根化", 16)% … [馬根]になる/
	CASE "普通"
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("挿入中に巨根化", 16)% … [巨根]になる/
	CASE "短小"
		STR:選択肢 = %STR:選択肢% [61] %TEXT_LJ("挿入中に巨根化", 16)% … [普通]になる/
	ENDSELECT
ENDIF
IF COND("調教中") == 0
	IF TALENT:恋慕 && BASE:MASTER:魂 > 201 && TALENT:MASTER:復活 <= 299 && CFLAG:魂の器拡張済み == 0
		STR:選択肢 = %STR:選択肢% [62] %TEXT_LJ("魂の器を大きく", 16)% … %CALLNAME:TARGET%に復活を強化してもらいます/
	ELSE
		IF TALENT:恋慕 && TALENT:MASTER:復活 >= 300
			STR:選択肢 = %STR:選択肢%灰色/ [62] %TEXT_LJ("魂の器を大きく", 16)% … これ以上は不行/
		ELSEIF TALENT:恋慕 && CFLAG:魂の器拡張済み == 1
			STR:選択肢 = %STR:選択肢%灰色/ [62] %TEXT_LJ("魂の器を大きく", 16)% … 今日はもう駄目です/
		ELSEIF TALENT:恋慕 && BASE:MASTER:魂 <= 200
			STR:選択肢 = %STR:選択肢%灰色/ [62] %TEXT_LJ("魂の器を大きく", 16)% … %CALLNAME:MASTER%の魂が2.01以上必要です/
		ENDIF
	ENDIF
ENDIF
;お願い・取引で増やした選択肢の地の文と台詞
@KOJO_WISH_K49_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "妊娠して欲しい"
    PRINTFORMW 「ん……兒童を作りたいのかい？」
    PRINTFORMW 「良いよ」
    PRINTFORMW 「其の代わりいっぱい出して、ね？」
	CALL SETFLAG, "妊娠可能にする", TARGET

CASE "妊娠しないで欲しい"
    PRINTFORMW 「んー？無責任にしたいのかい？」
    PRINTFORMW 「……ふふっ。いっぱい中にだしたいんだね？」
    PRINTFORMW 「うん、好きにすると良いよ」
    PRINTFORMW 「%CNAME("一人称")%は%CNAME("二人称")%がシたいようにするだけだよ」
	CALL SETFLAG, "妊娠不能にする", TARGET

CASE "魂の器を大きく"
	IF CEVENT("魂の器大きくしてほしい：初回") == 0
		PRINTFORMW 「魂の器を大きくしたい……？」
		PRINTFORMW 「うーん、出来るけど」
		PRINTFORMW 「ホントだったらしちゃダメなんだけど」
		PRINTFORMW 「……うん、%CNAME("二人称")%だったら良いかな？」
		PRINTFORMW そう言って%CALLNAME:TARGET%は%CALLNAME:MASTER%の胸に手を添えて
		PRINTFORMW 「иадукак ов авуту он ийхсамат он уохсиат иеснихс.」
		PRINTFORMW 「укадоыкуоыруж,ихци,ин,нас.」
		;iadukak ow wautu on iihsamat on uohsiat iesnihs.
		;ukadoykuoyruj,ihci,in,nas.
		;原文「申請―――対象の魂の器を拡大。三、二、一、受領許諾」
		;ローマ字にした後に逆にした後にキリル文字に変換しただけの雑言語。
		PRINTFORMW 良く分からない言語を呟き始めた。
		PRINTFORMW 「ん、これで大丈夫だよ」
		PRINTFORMW 「でも、何か不具合があったら怖いから一日一回だけだよ？」
		CALL SET_CEVENT, "魂の器大きくしてほしい：初回"
	ELSEIF TALENT:MASTER:復活 >= 290
		PRINTFORMW 「んー、多分これが最後とだと思うね」
		PRINTFORMW 「何でか？うん、それは」
		PRINTFORMW 「これ以上魂の器を大きくしたら肉体の方が耐えられなくなりそうだからだよ」
		PRINTFORMW 「流石に%CNAME("二人称")%が吹き飛ぶのを見たくはないから、これ以上はしたくないな」
		PRINTFORMW 「じゃあ、始めよっか」
		PRINTFORMW 何時もの街道に%CALLNAME:TARGET%は%CALLNAME:MASTER%の胸に手を添えて何かを呟く。
		PRINTFORML
		PRINTFORMW 「%CNAME("二人称")%に頼まれてやった事だけど」
		PRINTFORMW 「%CNAME("一人称")%はもしかしたら取り返しのつかない事をやったかもしれないね？」
		PRINTFORMW 「ふふっ、まぁでも」
		PRINTFORMW 「某个畜生が咎めてないって事は罪じゃないね」
		PRINTFORMW そう%CALLNAME:TARGET%は蠱惑的に笑った。
	ELSE
		PRINTFORMW 「ん、まただね」
		PRINTFORMW そう言って%CALLNAME:TARGET%は%CALLNAME:MASTER%の胸に手を添えて何時もの何かの呪文を呟き始めた。
		PRINTFORML
		PRINTFORMW 「ん、良し」
		PRINTFORMW 「最初は初めての事だから不安だったけど二回目以降になると簡単に感じるね」
		PRINTFORMW 「でも、何かあったら怖いから何時も街道一日一回だけだよ」
	ENDIF
	PRINTL
	CALL PRINT_STRW, @"%CALLNAME:MASTER%の復活が_黄色_0.1LV_だけ上昇した。"
	BASE:MASTER:魂 -= 200
	TALENT:MASTER:復活 += 10
	CFLAG:魂の器拡張済み = 1
CASE "挿入中に巨根化"
	IF TALENT:妊娠
		PRINTFORMW 「ん……、今はダメ、だよ」
		PRINTFORMW 「忘れてるかもだけれど、%CNAME("二人称")%との子が胎に居るからね」
		PRINTFORMW 「だから、無茶は酱と産んでからね」
	ELSE
		SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
		CASE "短小"
			PRINTFORMW 「然う言うのはせめて情事の前に言って欲しかったなぁ……」
			PRINTFORMW 「若しかして、中で大きくなって戸惑う姿が見たいのかな？」
			PRINTFORMW そう揶揄う様に笑った後に%CALLNAME:TARGET%が文言を呟くと熱が股間に集い、魂消る感覚が。
			PRINTFORMW 「んっ……、大きくしたよ」
			PRINTFORMW 「%CNAME("一人称")%は気にしないけれど。人类にとって大きい小さいは大号的問題みたいだからね」
		CASE "普通"
			PRINTFORMW 「然う言うのはせめて情事の前に言って欲しかったなぁ……」
			PRINTFORMW 「若しかして、中で大きくなって戸惑う姿が見たいのかな？」
			PRINTFORMW そう揶揄う様に笑った後に%CALLNAME:TARGET%が文言を呟くと熱が股間に集い、魂消る感覚が。
			PRINTFORMW 「んっ…ふ、ぅ……、大きくなったから納めきれなくなったね……」
			PRINTFORMW 「ひゃっ……%CNAME("二人称")%の雁首も張りが増したから少し動いただけで……」
			PRINTFORMW 望んだリアクションを見れた事にニヤニヤとしていると。
			PRINTFORMW 「こら、揶揄うんだったら仕返しをするんだよ？」
			PRINTFORMW と、%CALLNAME:TARGET%が言い、不規則に肉壺を動かし腰が抜けそうな快感を与えてくる。
			PRINTFORMW 「やったんだから、やり返されるのだからね」
			PRINTFORMW 悪戯が成功した様に轻轻地笑う%CALLNAME:TARGET%にひぃひぃ言わせてやろうと思う%CALLNAME:MASTER%だった……
			BASE:MASTER:絶頂 += MAXBASE:MASTER:快感許容値男性 / 3
		CASEELSE
				IF CEVENT("腹部变形される死神") && INSERT("Ｖ挿入相手") == MASTER
					PRINTFORMW 「若しかして、%CNAME("一人称")%がまた気を遣って乱れる様を見たいのかい？」
					PRINTFORMW 「助平」
					CLEARLINE 1
					PRINTFORMW 「助平、変態」
					CLEARLINE 1
					PRINTFORMW 「助平、変態、鬼畜」
					CLEARLINE 1
					PRINTFORMW 「助平、変態、鬼畜、ごくあくひどう」
					CLEARLINE 1
					PRINTFORMW 「助平、変態、鬼畜、ごくあくひどう。……でも、良いよ」
					PRINTFORMW 「%CNAME("二人称")%の望みだからね。その代わり」
				ELSE
					PRINTFORMW 「ねぇ」
					PRINTFORMW 「%CNAME("一人称")%だからと無理しても良い何て考えに為ってないかい？」
					PRINTFORMW 少しだけ困った様な表情で%CALLNAME:TARGET%が笑う。
					PRINTFORMW 「でも、%CNAME("一人称")%なら大丈夫だと信頼されてる何て思うと面映いね」
					PRINTFORMW 「%CNAME("二人称")%が望む反応を見せれるか分からないけれど」
				ENDIF
				PRINTFORMW 「―――%CNAME("一人称")%を見て？」
				PRINTFORMW 緋色が柔らかく笑い、僅かな旋律と共に熱が集い、失われ。
				SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
				CASE "巨根"
					CALL PRINT_STRW, @"「―――っ_HH_」"
					PRINTFORMW 噛み殺した様な小小的嬌声が%CALLNAME:TARGET%の口から零れる。
					CALL PRINT_STRW, @"「ひゅっ_HH_はっ…けほっ、すぅ…はぁ……_HH_人类の身体で受けるとしたら…こんな感覚、なんだね……」"
					PRINTFORMW 先程に比べ僅かに膨れたお腹に手を当てながら%CALLNAME:TARGET%が呟く。
					PRINTFORMW 「んふふ……少し、情けない姿だったかな？%CNAME("二人称")%が望んでいたモノじゃなかったら……ごめんね」
					PRINTFORMW 轻轻地頬を掻きながら%CALLNAME:TARGET%は困った様に笑う。
					PRINTFORMW 「ね、続き…シよ？%CNAME("二人称")%が…欲しい、よ……」
					PRINTFORMW 瞳を薄め、愛おし気に見つめてくる%CALLNAME:TARGET%に頷き、%CALLNAME:MASTER%は続きをする事にした……
				CASEELSE
					CALL PRINT_STRW, @"「っ――ﾍ/%UNICODE(0x2216)%%UNICODE(0x0780)%_HH__HH__HH_」"
					PRINTFORMW 激烈地身体を震わし、押し殺した様な%CALLNAME:TARGET%の声が艶のある響きを残して溶けていく。
					IF CEVENT("腹部变形される死神")
						CALL PRINT_STRW, @"「ふっ、ふーっ……_HH_ふーっ……_HH_きぃ…た……ぁ_HH_」"
						PRINTFORMW 淫靡に顔を蕩けさせた%CALLNAME:TARGET%が歓喜の色の声を上げる。
						IF ABL:受虐属性 >= 5 && RAND:2
							CALL PRINT_STRW, @"「はぁ……_HH_はぁ……_HH_此れ……ダメ、だね……」"
							PRINTFORMW 荒れた息でぽつりと、%CALLNAME:TARGET%が呟く。
							CALL PRINT_STRW, @"「斯うして%CNAME("二人称")%に乱暴されるのを……楽しみにしてる……%CNAME("一人称")%がいる……から……_／／／_」"
							PRINTFORMW 言っている途中で恥ずかしくなったのか言葉は途切れ途切れになり、頬の赤みが強くなっている。
							CALL PRINT_STRW, @"「ぅ……、今の没有にして_／／／_」"
							PRINTFORMW 顔を手で隠し発言を取り消そうとする%CALLNAME:TARGET%にどうしてだと聞き返す。
							CALL PRINT_STRW, @"「被虐に歓びを覚える様な発言だったからだよ！ぅ～……_／／／_%CNAME("一人称")%が斯う成ったのは%CNAME("二人称")%の所為だからね……」"
							PRINTFORMW 唐突な責任転換に苦笑しながら%CALLNAME:TARGET%の頬を温柔的撫でてやる。
							PRINTFORMW 「ん……、御心情取りが擅長いね……」
							PRINTFORMW 瞳を闭眼、%CALLNAME:MASTER%の手の感触に穏やかな顔をする。
							PRINTFORMW 「こんな願いを叶えるのは%CNAME("二人称")%だけだからね」
							PRINTFORMW そう、%CALLNAME:TARGET%は言い苦笑する様な顔をしてから
							PRINTFORMW 「だから――%CNAME("一人称")%を可愛がって？」
							PRINTFORMW 緋色の瞳が%CALLNAME:MASTER%を見つめ返してきた……
						ELSE
							CALL PRINT_STRW, @"「はぁ……_HH_はぁ……_HH_すっかり……%CNAME("二人称")%に玩具にされてる、ね……」"
							PRINTFORMW 荒れた息を整えながら自嘲する様に%CALLNAME:TARGET%が呟く。
							PRINTFORMW 「嫌じゃ…ないよ……。浅ましいけれど……、%CNAME("一人称")%だから%CNAME("二人称")%の無茶に応えられる事が出来るって思えるから……」
							PRINTFORMW 「そんな事を考える%CNAME("一人称")%は嫌い、かな……？」
							PRINTFORMW 何て聞いてくる%CALLNAME:TARGET%に%CALLNAME:MASTER%は言葉ではなく頭を撫でてやった。
							PRINTFORMW 「んっ……、ふふっ。此れで嫌いって言われたら悲しくて泣いて泣いて海を創る所だったよ」
							PRINTFORMW 「湿っぽくなったね……。続き、シてほしいな？」
							PRINTFORMW 「悲しみではなくて、歓びで%CNAME("一人称")%を泣かせて……？」
							PRINTFORMW %CALLNAME:TARGET%の誘いに%CALLNAME:MASTER%は頷き、続ぎをする事にした……
						ENDIF
					ELSE
						CALL PRINT_STRW, @"「ぃっ……_HH_ぁっ、はぁ…_HH_はぁ…_HH_し、きゅぅ…に……_HH_」"
						PRINTFORMW %CALLNAME:TARGET%の言葉に気が付く。何かを貫いた感覚があったと思えば%CALLNAME:TARGET%の子宮口のその先まで届いた様だ。
						PRINTFORMW %CALLNAME:MASTER%の阴茎の全てを包み込む%CALLNAME:TARGET%の膣肉は不規則に蠢き、けれど離さない。
						CALL PRINT_STRW, @"「ふ…ぅ、ぁっ_HH_はぁ………」"
						PRINTFORMW 深く息を吸い、身体を落ち着けようとする%CALLNAME:TARGET%の姿は人类の様だ。
						PRINTFORMW 「ん……、子宮に…挿入るのは最初から分かっていたけれど……」
						PRINTFORMW 落ち着いたのかぽつりと、呟く様に%CALLNAME:TARGET%がそう話を切り出す。
						PRINTFORMW 「流れ込んで来た感覚に気を遣りそうに……うぅん、其れは嘘」
						PRINTFORMW 「正直に言うと気を遣ってしまったよ……、其れに此れを見てみなよ」
						PRINTFORMW そう言って指で%CALLNAME:TARGET%は自己的お腹の方を指さす。
						PRINTFORMW その先には魂を使い大きくした%CALLNAME:MASTER%の阴茎の尺寸が%CALLNAME:TARGET%のお腹越しでも分かる様に膨らんでいる。
						PRINTFORMW 「んっ……興奮、した？ふふっ、膣でまた少し大きくなったの分かったよ」
						PRINTFORMW 「ね、大きくなった…%CNAME("二人称")%の、で……%CNAME("一人称")%を此の侭、犯して？」
						PRINTFORMW 熱に浮かされ陶酔した顔で%CALLNAME:TARGET%が誘って来る。その言葉に%CALLNAME:MASTER%は頷き、続きをする事にした……
						CALL SET_CEVENT, "腹部变形される死神"
					ENDIF
					;何か頑張って指令後の数値表示再現頑張ろうとしたけど擅長くいかなくて諦めた
					;CALL SIMULATE_TRAIN_COM, 68
					;BASE:絶頂 += MAXBASE:快感許容値女性 * 5
					;NOWEX:绝顶忍耐 = 0
					;CALL CALC_SOURCE
					;CALL ORGASM_ADD_A
					;CALL ORGASM_ADD_B
					;CALL ORGASM_ADD_TEXT
					;CALL NEW_UPCHECK
				ENDSELECT
		ENDSELECT
		BASE:MASTER:魂 -= 100
		TALENT:MASTER:阴茎 += 1
		PRINTFORMW %CALLNAME:PLAYER%用魂做交易、变成了[%TALENT_NAME(GETNUM(TALENT, "阴茎"), TALENT:PLAYER:阴茎, PLAYER)%]。
	ENDIF
ENDSELECT

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

;Talk指令で増やした選択肢の地の文と台詞
;@KOJO_DAILY1_K49_ADDSELECT, ARGS
;SELECTCASE ARGS
;CASE "追加選択肢その１"
;	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;CASE "追加選択肢之２"
;	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
;ENDSELECT

;-------------------------------------------------
;互动指令の選択肢を追加
@DAILY2_K49_ADDSELECT
IF DEVENT("紫煙を燻らせる") == 1 && CHARA_NUM("室内の邪魔者") == 0
	STR:選択肢 += "紫煙を燻らせる/"
ENDIF
;STR:選択肢 += "追加選択肢之２/"

;互动指令で増やした選択肢の地の文と台詞
@KOJO_DAILY2_K49_ADDSELECT, ARGS
SELECTCASE ARGS
CASE "紫煙を燻らせる"
	PRINTFORMW %CALLNAME:MASTER%は%CALLNAME:TARGET%に喫煙を勧めた。
	PRINTFORMW 「ん、有がと」
	;「あれ？火付けが……、(ッボ)すぅ……はぁ……」
	;面倒变成了のか人差し指に黑色炎を灯して煙草に火をつけた。
	;その炎は生理的恐怖を沸かせるモノだった。
	;「……あっごめん。尋找のが面倒で少し地獄の火を使っちゃった」
	;からからと笑う白色死神。
	;……そんなに気軽に地獄の火は使っていい物なのだろうか？？？

	PRINTFORMW そう言うと、%CALLNAME:TARGET%は煙草を取り出して咥え、火を点けた。
	CALL EMOTION_PLUS, "烟"
	PRINTFORMW 「すぅ……%TEXTR("ふぅー/はぁー")%……」
	IF RAND:3 == 0
		PRINTFORMW 「ん、%CNAME("一人称")%が吸っている銘柄？」
		PRINTFORMW 「Pax」と書かれているのは知っているがどんなのかは知らないから聞いてみた。
		PRINTFORMW 「うん、平和って意味の銘柄の煙草だよ」
		PRINTFORMW 「他の煙草より少し重たいのだけど、甜味で個人的に好きな味だね」
	ELSEIF RAND:2 == 0
		IF DEVENT("喫煙の理由") == 0
			PRINTFORMW 「煙草を吸い始めた理由？」
			PRINTFORMW ふと気变成了ので聞いてみる事にした。
			PRINTFORMW 「最初は……そうだね你達の真似だったかな」
			PRINTFORMW 「煙に巻けば、この胸の憤りをマシに出来るかとか考えていたんだ」
			PRINTFORMW 「実際少しはマシ变成了けどね……」
			CALL SET_DEVENT, "喫煙の理由"
		ELSE
			PRINTFORMW 「煙草が好きか、かい？」
			PRINTFORMW 「そうだね……うん好きだと思う」
			PRINTFORMW 「少しずつ燃えて、灰になって、最期に煙になって消えていく」
			PRINTFORMW 「少し悲しいけれど你達人类みたいだからね……」
		ENDIF
	ELSE
		GETFONT
		CHKFONT "ＭＳ 明朝"
		SIF RESULT
			SETFONT "ＭＳ 明朝"
			PRINTFORMW 「私は時宜にも合わない你の開朗な顔を眺め、
			PRINTFORMW 　か无く煙草を吹かすのだ、
			PRINTFORMW 　一服、一服、吹かすのだ……」
		SETFONT RESULTS
		PRINTFORMW ふと%CALLNAME:TARGET%はそんな事を呟き始めた。
		IF DEVENT("わが喫煙") == 0
			PRINTFORMW 「ん、ああ。昔そんな事を呟きながら煙草を吸っていた人类を見かけた事があったんだ」
			CALL SET_DEVENT, "わが喫煙"
		ENDIF
		IF TALENT:恋慕
			PRINTFORMW 「今だったら分かるなぁ」
			PRINTFORMW 「%CNAME("二人称")%が%CNAME("一人称")%を見てくれないってなるとこんな事を呟きながら」
			PRINTFORMW 「煙草を吸っちゃうかも」
			PRINTFORMW そう少し%CALLNAME:TARGET%は悲しそうに笑った。
		ELSE
			PRINTFORMW 「一体どう言う意味だったのだろうね？」
			PRINTFORMW 煙と共に%CALLNAME:TARGET%はそう笑った。
		ENDIF
	ENDIF
	IF CFLAG:心情差指数 > 0
		CFLAG:心情差指数 -= 5
	ENDIF
;CASE "追加選択肢之２"
;	PRINTFORMW %CALLNAME:MASTER%进行了%ARGS%。
;	PRINTL
;	PRINTFORMW 「台詞」
;	PRINTL
;	PRINTFORMW 受到%ARGS%的%CALLNAME:TARGET%的反应
ENDSELECT

;-------------------------------------------------
;约会行き先の選択肢を追加。
@DATE_K49_ADDSELECT
;ここで増やした選択肢を選ぶと、それがSAVESTR:约会 に代入される仕組みです
;STR:選択肢 += "追加選択肢その１/"
;STR:選択肢 += "追加選択肢之２/"
;
;増やした行先での地の文と台詞。起きうるイベントのフラグもここで決める
@KOJO_DATE_K49_ADDSELECT
;SELECTCASE SAVESTR:约会
;CASE "追加選択肢その１"
;	PRINTFORMW 「台詞」
;	;地の文
;	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
;	;地の文を用意していない場合には汎用のものを使う
;	;CALL DAILY_MESSAGE, "约会本番"
;	PRINTL
;	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
;	FLAG:情緒 += 30
;	;それぞれ可能なもののコメントアウトを取下
;	;TFLAG:约会中H可能 = 1
;	;TFLAG:约会中牵手可能 = 1
;	;TFLAG:偷瞄内衣可能 = 1
;	;TFLAG:泳装约会 = 1
;CASE "追加選択肢之２"
;	PRINTFORMW 「台詞」
;	;地の文
;	PRINTFORMW %SAVESTR:约会%での%CALLNAME:TARGET%の反応存疑
;	;地の文を用意していない場合には汎用のものを使う
;	;CALL DAILY_MESSAGE, "约会本番"
;	PRINTL
;	;情緒BOUNSが高い場所でFLAG:情緒+60、普通ならFLAG:情緒+30、约会っぽくない場所だと修正无
;	FLAG:情緒 += 30
;	;それぞれ可能なもののコメントアウトを取下
;	;TFLAG:约会中H可能 = 1
;	;TFLAG:约会中牵手可能 = 1
;	;TFLAG:偷瞄内衣可能 = 1
;	;TFLAG:泳装约会 = 1
;ENDSELECT


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

MEMO_LINECOUNT = LINECOUNT

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

		ELSE

		ENDIF
	ELSE
		IF CEVENT("魂の取引：初回") == 0
			PRINTFORMW 「死神に魂の取引を求めるなんてね」
			PRINTFORMW 「くふっ、全く%CNAME("二人称")%は怖いモノ知らずなのか笨蛋なのか」
			PRINTFORMW 「さて、」
			PRINTFORML
			GETFONT
			CHKFONT "游明朝"
			IF RESULT
				SETFONT "游明朝"
			ELSE
				CHKFONT "ＭＳ 明朝"
				SIF RESULT
				SETFONT "ＭＳ 明朝"
			ENDIF
			PRINTFORMW 瞬間、%CALLNAME:TARGET%と出会った時に感じた重圧が空間を支配する。
			PRINTFORMW 緋は緑の虹に、普段は展開していない翼を広げ人ではない人外、
			PRINTFORMW いや神としての在り様を%CALLNAME:TARGET%は解き放った。
			PRINTFORMW 重圧に負けて、いや身体が自然と首を垂れ跪く。
			PRINTFORML
			PRINTFORMW 「神前なるや人类の子よ」
			PRINTFORMW 「%CNAME("二人称")%は何を願う？」
			PRINTFORMW 「%CNAME("二人称")%は何を望む？」
			SETFONT RESULTS
			PRINTFORML
			PRINTFORMW 「なんてね」
			PRINTFORMW 「偶には%CNAME("一人称")%が死神である事を忘れないで欲しかっただけ」
			PRINTFORMW 「じゃあ取引を始めようか」
			CALL SET_CEVENT, "魂の取引：初回"
		ELSE
			PRINTFORMW 「おや、何か入用かい？」
			PRINTFORMW 「%CNAME("二人称")%は何を願う？」
			PRINTFORMW 「%CNAME("二人称")%は何を望む？」
			PRINTFORMW 「%CNAME("一人称")%に叶えられる事であるなら叶えてあげよう」
			PRINTFORMW 「なんてね」
			PRINTFORMW 「じゃあ取引を始めようか」
		ENDIF
	ENDIF
CASE "愛の告白"
	;告白成功！
	IF TALENT:相思相愛
		PRINTFORMW 思いを告げられたなら、
		PRINTFORMW 思いを告げ返す。
		IF CEVENT("愛の告白失敗")
			PRINTFORMW 何時か断られた言葉をもう一度%CALLNAME:TARGET%に告げる。
			PRINTFORMW 「う、あ……」
			PRINTFORMW 瞳を見開いて少し視線が晃动的。
			PRINTFORMW 感情の発露が零れだし頬を伝う。
			PRINTFORMW 「ごめん、ごめんね。一回断っておきながら厚顔だと思ってる」
			PRINTFORMW 「%CNAME("一人称")%が%CNAME("二人称")%を思っているだけで良かったから」
			PRINTFORMW 「とても嬉しくて」
		ENDIF
		PRINTFORMW 「……十分感谢」
		PRINTFORMW 「%CNAME("一人称")%も%CNAME("二人称")%が、………好きだよ」
	;失敗
	ELSE
		PRINTFORMW 「%CNAME("二人称")%にはもっと良い人类が出来るよ」
		PRINTFORMW 「だから、こんなおばあ酱に言っちゃダメだよ？」
		PRINTFORMW 真剣な眼差しで言われてしまった……
		PRINTFORMW 「でも、%CNAME("二人称")%に良く思われているのは嬉しいかな」
		IF CEVENT("愛の告白失敗") == 0
			CFLAG:好感度 += 10
		ENDIF
		CALL SET_CEVENT, "愛の告白失敗"
	ENDIF
;胖次のお願いした時に相手が没穿内褲だった
CASE "没穿内褲"
	IF COND("合意：胖次交易")

	ELSE

	ENDIF
;胖次を要前の会話。
;ただし、悪魔の場合には魂を払っているので確実に渡すことになる
;ここで本来胖次を给かどうかなどを加味して分岐を設ける事も出来る。特に書かなくてもよい
;TFLAG:取引承諾 = 0とすると胖次拒否に行くようになり、TFLAG:取引承諾 = 1とすると判定無視で胖次を渡せるようになる
;TFLAG:取引価格 に数字を入れる事で好きな額を要求できるようになる。基準相場は$500です
;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで胖次を渡す展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "胖次交易"
	;ＯＫ！
	IF TFLAG:取引承諾
		;日期と時間参照随机
		IF COND("合意：胖次交易") && RANDC(4) == 0
			PRINTFORMW
			TFLAG:取引価格 = 1000
		ELSE
			PRINTFORMW
		ENDIF
	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		TFLAG:値上げ交渉 = 500
	ENDIF
CASE "胖次"
	;値上げ交渉した
	IF TFLAG:値上げ交渉
		PRINTFORMW
	;相場より高い額を要求されるままに払った
	ELSEIF TFLAG:取引価格 > 500
		PRINTFORMW
	;値切って相場と変わらず$500払う。ここでTFLAG:取引承諾 = 0とすることで拒否するのもよいでしょう
	ELSEIF TFLAG:値切った
		PRINTFORMW
	ELSE
		PRINTFORMW
	ENDIF
	;胖次を脱いで渡してくる汎用地の文
	CALL DAILY_MESSAGE, "脱下胖次交了出去"

CASE "胖次拒否"
	;取引を拒否した際
	IF TFLAG:取引拒否

	ELSE

	ENDIF

;TFLAG:値上げ交渉 に数字を入れておくと、断られた際もその値上乗せで服を脱掉展開に出来る
;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "全裸交易"
	;ＯＫ！
	IF TFLAG:取引承諾

	;断られる
	ELSE
		;これを指定しておくと、実行値が足りない際にこの額上乗せで応じてくれるようになる
		;TFLAG:値上げ交渉 = 2000
	ENDIF
CASE "全裸"
	;値上げ交渉した("全裸交易"で設定した場合のみ)
	IF TFLAG:値上げ交渉

	;取引初成功
	ELSEIF COND("合意：全裸化") == 0

	ELSE

	ENDIF
	;汎用地の文
	CALL EVENT_DATUI, "裸体"
CASE "全裸拒否"
	;取引を拒否した際("全裸交易"で設定した場合のみ)
	IF TFLAG:取引拒否

	;二人きりなら脱いでくれるけど状況が悪い
	ELSEIF COND("合意：全裸化") && (CHARA_NUM("室内の邪魔者") || PLACE("個室") == 0)

	ELSE

	ENDIF

;TFLAG:取引拒否 = 1 とすると本来取引できるかに関わらず、取引しなくなる
CASE "事后避孕药取引"

CASE "事后避孕药"
	;代金をまけてくれた場合
	IF TFLAG:値切った
		;所持金が足りなかった場合です
		;現状、ここに来るのは恋慕无の時のみ
	;拝み倒したら代金を払わなくても許してくれた場合
	ELSEIF TFLAG:取引価格 == 0
		;現状、ここに来るのは恋慕有の時のみ
	ELSE
		;普通にお金を払った場合
		;口上无でも自然な感じです
		;ですが恋慕のときなどは、なにか一言あってもいいかもですね
	ENDIF

CASE "事后避孕药拒否"
	;これはCASE "事后避孕药取引"内でTFLAG:取引拒否 = 1 となる分岐を作った場合のみ
	IF TFLAG:取引拒否

	;拝み倒して失敗した場合
	ELSEIF TFLAG:取引価格 == 0
		;轻轻地地の文が表示されます。口上有无どちらでも大丈夫そうです。
	;其他、你が薬代を不支付場合
	ELSE
		;恋慕状態で、それなりに妊娠の恐惧がある場合
		IF ( COND("受精確認") || COND("胎内の精液量") ) && TALENT:恋慕
			;お金がないか、不支付を選んだ場合です。
			;それなら避妊できなくて妊娠しちゃっても仕方ないね…(爱心)って感じのやつです。
			;地の文が表示されるので何も書かないほうが良いかもしれません。
		;不支付、を選んだ場合
		ELSEIF MONEY >= TFLAG:取引価格
			;口上无でも自然な感じです
		;お金が足りなかった場合
		ELSE
			;不支付を選んだ場合も、お金が足りないときはここへ来ます。
		ENDIF
	ENDIF
CASE "同居拒否"

CASE "同居希望"

CASE "同居頻度的相談"

CASE "便当拒否"

CASE "做便当"
	;便当のお願い２回目以降
	IF COND("合意：便当")

	;以下は初めて作ってもらうよう变成了とき
	ELSE
		IF COND("同居中")

		ELSE

		ENDIF
	ENDIF

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

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

			ELSE

			ENDIF
		ENDIF
	;角色が口服避孕薬派でないなら、こっちだけ書いてください
	ELSE
		;口服避孕薬を服用してもらう
		IF CFLAG:口服避孕薬
			;初回
			IF DEVENT(ARGS) == 0

			ELSE

			ENDIF
		;口服避孕薬の服用を止めてもらう
		ELSE

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

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

CASE "淫紋拒否"

;"淫紋贴纸直前"or"淫紋贴纸"の片方を書けば十分だと思います
CASE "淫紋贴纸直前"
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「ふむ、成る程……肉体に影響を与える型の呪符だね」
		PRINTFORMW 「嗚呼、少し待って此の術式に対しての抵抗力を下げてるから」
		PRINTFORMW 「貼ったのに効かない何て面白可笑しい事に成るからね」
	ELSE
		PRINTFORMW 「ん、此の間の呪符だね。設定を読み込み直せば直ぐに適応出来るよ」
	ENDIF

CASE "淫紋贴纸"
	;台詞を書いたら下のRETURN 0を消してください
	;RETURN 0
	PRINTFORMW 「ん、適応完了と」
	;初回
	IF DEVENT(ARGS) == 0
		PRINTFORMW 「んー、事前に試算した街道の変化だね」
	ELSE
		PRINTFORMW 「当たり前だけど、前回と値は変わらないね」
	ENDIF
;"淫紋直前"or"淫紋"の片方を書けば十分だと思います
CASE "淫紋直前"
	SELECTCASE MARK:淫紋
	CASE 2

	CASE 3

	CASE 4

	ENDSELECT
CASE "淫紋"
	;台詞を書いたら下のRETURN 0を消してください
	RETURN 0
	SELECTCASE MARK:淫紋
	CASE 2
		PRINTFORMW 「旧き時代から他者に印を彫り込むのは自己的所有物で在ると言う行為で証明」
		PRINTFORMW 「はてさて、死神を所有物にして%CNAME("二人称")%は如何したいのかな？」
		PRINTFORMW 「何て、彫り込んだ術式からして愚問だったね」
	CASE 3
		PRINTFORMW 「術式の強度としては次が最後だね」
		PRINTFORMW 「んー？日常生活に変化は無いかって？」
		PRINTFORMW 「ふふっ、ズルだけど%CNAME("二人称")%の前以外だと変化する値を正常値に戻してるからね」
		PRINTFORMW 「%CNAME("二人称")%の術式は接受けど、%CNAME("一人称")%にもやる事が在るからね」
	CASE 4
		PRINTFORMW 「ん……此処迄来ると感慨深いモノが……」
		PRINTFORMW 「ふふっ、あんまり無いね」
		IF TALENT:恋慕
			PRINTFORMW 「こんな術式が無くても%CNAME("一人称")%は%CNAME("二人称")%を想っているからね」
			PRINTFORMW 「まぁ、斯うやって独占欲を見せて貰えるのは嬉しいけれど」
			PRINTFORMW 「ふふっ、此処迄して於いて今日は放置何て酷い事は不会ね……？」
		ENDIF
	ENDSELECT

CASE "拜托処理性欲"

CASE "性処理の一時中断"

CASE "性処理拒否"

;悪魔、淫魔、妖狐専用
CASE "给我看尾巴"

CASE "给我看尾巴拒否"

;改变髪型のは、長さが披肩以上の人のみ。未設定だと披肩扱いです
;髪型を弄る際に手伝ってくれる人がASSIになっています。お手伝い桑を指名したい場合にはその人をASSIにして下さい
CASE "改变髪型"

CASE "髪型変更の感想"
	;どの髪型变成了かで分岐可能
	SELECTCASE CONDS("髪型の種類")
	CASE CONDS("普段の髪型")
		PRINTFORMW
	CASE "齐刘海"
		PRINTFORMW
	CASE "直髪"
		PRINTFORMW
	CASE "卷髪"
		PRINTFORMW
	CASE "外八"
		PRINTFORMW
	CASE "双马尾"
		PRINTFORMW
	CASE "马尾辫"
		PRINTFORMW
	CASE "三股辫"
		PRINTFORMW
	CASE "编起来"
		PRINTFORMW
	CASE "団子頭"
		PRINTFORMW
	;其他
	CASEELSE
		PRINTFORMW
	ENDSELECT
CASE "改变髪型拒否"

;これは普段から连褲襪を履く人じゃないとあんまり見る機会ないと思う
CASE "连褲襪着替え"
	;台詞を書いたら下のRETURN 1を消してください
	RETURN 1
	;どれに履き替えてもらったか
	IF CHECK_OUTER("開放型连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("渔网连褲襪")
		PRINTFORMW
	ELSEIF CHECK_OUTER("连褲襪")
		PRINTFORMW
	;生足
	ELSE
		PRINTFORMW
	ENDIF
CASE "连褲襪着替え拒否"

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

	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並以上
	CASEELSE

	ENDSELECT

CASE "巨根化して拒否"

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

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT

CASE "短小化して拒否"

;以下は悪魔専用
CASE "魂が足りない"
	PRINTFORMW 「ん……取引に使う魂が足りて無いね」
	PRINTFORMW 「死んでも復活するとは言えあんまり無理しちゃダメ、だよ？」
CASE "想要钱"
	IF CEVENT("魂の値段") == 0
		PRINTFORMW 「………ごめん、もう一度言ってくれるかな？」
		PRINTFORMW おかねがほしい
		PRINTFORMW 「………うん、確かにお金は生きていく上で重要な品だよ？」
		PRINTFORMW おかねがほしい
		PRINTFORMW 「其れを手に入れるために魂を代価にするって本末転倒だと思わないのかい？」
		PRINTFORMW おかねがほしい
		PRINTFORMW 「その、あー、うん。もう、仕方ないね%CNAME("二人称")%は……」
		PRINTFORMW とても呆れた表情をしながらも%CALLNAME:TARGET%はお金を出してくれた。
		CALL SET_CEVENT, "魂の値段"
	ELSE
		PRINTFORMW おかね……
		PRINTFORMW 「その拝金主義者的な目つきはやめてお願い」
		PRINTFORMW 「全く……」
		PRINTFORMW 「交換率悪いのは戒め込みだから、何時かは真っ当に働いてね？」
	ENDIF
CASE "甜言蜜语"

CASE "謎之魅力"

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

		ELSE

		ENDIF
	ELSE

	ENDIF
CASE "巨根化"
	;自分を相手にＨしてる最中にお願いされた
	IF COND("Ｈ最中の取引")
		;しかもＶ挿入中！
		IF INSERT("Ｖ挿入相手") == MASTER || INSERT("Ａ挿入相手") == MASTER
			SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
			CASE "短小"
				PRINTFORMW 「然う言うのはせめて情事の前に言って欲しかったなぁ……」
				PRINTFORMW 「若しかして、中で大きくなって戸惑う姿が見たいのかな？」
				PRINTFORMW そう揶揄う様に笑った後に%CALLNAME:TARGET%が文言を呟くと熱が股間に集い、魂消る感覚が。
				PRINTFORMW 「んっ……、大きくしたよ」
				PRINTFORMW 「%CNAME("一人称")%は気にしないけれど。人类にとって大きい小さいは大号的問題みたいだからね」
			CASE "普通"
				PRINTFORMW 「然う言うのはせめて情事の前に言って欲しかったなぁ……」
				PRINTFORMW 「若しかして、中で大きくなって戸惑う姿が見たいのかな？」
				PRINTFORMW そう揶揄う様に笑った後に%CALLNAME:TARGET%が文言を呟くと熱が股間に集い、魂消る感覚が。
				PRINTFORMW 「んっ…ふ、ぅ……、大きくなったから納めきれなくなったね……」
				IF TALENT:恋慕
					PRINTFORMW 「ひゃっ……%CNAME("二人称")%の雁首も張りが増したから少し動いただけで……」
					PRINTFORMW 望んだリアクションを見れた事にニヤニヤとしていると。
					PRINTFORMW 「こら、揶揄うんだったら仕返しをするんだよ？」
					PRINTFORMW と、%CALLNAME:TARGET%が言い、不規則に肉壺を動かし腰が抜けそうな快感を与えてくる。
					PRINTFORMW 「やったんだから、やり返されるのだからね」
					PRINTFORMW 悪戯が成功した様に轻轻地笑う%CALLNAME:TARGET%にひぃひぃ言わせてやろうと思う%CALLNAME:MASTER%だった……
					BASE:MASTER:絶頂 += MAXBASE:MASTER:快感許容値男性 / 3
				ENDIF
			CASEELSE
				IF TALENT:恋慕
					IF CEVENT("腹部变形される死神") && INSERT("Ｖ挿入相手") == MASTER
						PRINTFORMW 「若しかして、%CNAME("一人称")%がまた気を遣って乱れる様を見たいのかい？」
						PRINTFORMW 「助平、変態、鬼畜、ごくあくひどう」
						CLEARLINE 1
						PRINTFORMW 「助平、変態、鬼畜、ごくあくひどう。……でも、良いよ」
						PRINTFORMW 「%CNAME("二人称")%の望みだからね。その代わり」
					ELSE
						PRINTFORMW 「ねぇ」
						PRINTFORMW 「%CNAME("一人称")%だからと無理しても良い何て考えに為ってないかい？」
						PRINTFORMW 少しだけ困った様な表情で%CALLNAME:TARGET%が笑う。
						PRINTFORMW 「でも、%CNAME("一人称")%なら大丈夫だと信頼されてる何て思うと面映いね」
						PRINTFORMW 「%CNAME("二人称")%が望む反応を見せれるか分からないけれど」
					ENDIF
					PRINTFORMW 「―――%CNAME("一人称")%を見て？」
					PRINTFORMW 緋色が柔らかく笑い、僅かな旋律と共に熱が集い、失われ。
					IF INSERT("Ｖ挿入相手") == MASTER
						SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
						CASE "巨根"
							CALL PRINT_STRW, @"「―――っ_HH_」"
							PRINTFORMW 噛み殺した様な小小的嬌声が%CALLNAME:TARGET%の口から零れる。
							CALL PRINT_STRW, @"「ひゅっ_HH_はっ…けほっ、すぅ…はぁ……_HH_人类の身体で受けるとしたら…こんな感覚、なんだね……」"
							PRINTFORMW 先程に比べ僅かに膨れたお腹に手を当てながら%CALLNAME:TARGET%が呟く。
							PRINTFORMW 「んふふ……少し、情けない姿だったかな？%CNAME("二人称")%が望んでいたモノじゃなかったら……ごめんね」
							PRINTFORMW 轻轻地頬を掻きながら%CALLNAME:TARGET%は困った様に笑う。
							PRINTFORMW 「ね、続き…シよ？%CNAME("二人称")%が…欲しい、よ……」
							PRINTFORMW 瞳を薄め、愛おし気に見つめてくる%CALLNAME:TARGET%に頷き、%CALLNAME:MASTER%は続きをする事にした……
						CASEELSE
							CALL PRINT_STRW, @"「っ――ﾍ/%UNICODE(0x2216)%%UNICODE(0x0780)%～_HH_」"
							;CALL PRINT_STRW, @"「っ――ﾍ/??～_HH_」"
							PRINTFORMW 激烈地身体を震わし、押し殺した様な%CALLNAME:TARGET%の声が艶のある響きを残して溶けていく。
							IF CEVENT("腹部变形される死神")

							ELSE
								CALL PRINT_STRW, @"「ぃっ……_HH_ぁっ、はぁ…_HH_はぁ…_HH_し、きゅぅ…に……_HH_」"
								PRINTFORMW %CALLNAME:TARGET%の言葉に気が付く。何かを貫いた感覚があったと思えば%CALLNAME:TARGET%の子宮口のその先まで届いた様だ。
								PRINTFORMW %CALLNAME:MASTER%の阴茎の全てを包み込む%CALLNAME:TARGET%の膣肉は不規則に蠢き、けれど離さない。
								CALL PRINT_STRW, @"「ふ…ぅ、ぁっ_HH_はぁ………」"
								PRINTFORMW 深く息を吸い、身体を落ち着けようとする%CALLNAME:TARGET%の姿は人类の様だ。
								PRINTFORMW 「ん……、子宮に…挿入るのは最初から分かっていたけれど……」
								PRINTFORMW 落ち着いたのかぽつりと、呟く様に%CALLNAME:TARGET%がそう話を切り出す。
								PRINTFORMW 「流れ込んで来た感覚に気を遣りそうに……うぅん、其れは嘘」
								PRINTFORMW 「正直に言うと気を遣ってしまったよ……、其れに此れを見てみなよ」
								PRINTFORMW そう言って指で%CALLNAME:TARGET%は自己的お腹の方を指さす。
								PRINTFORMW その先には魂を使い大きくした%CALLNAME:MASTER%の阴茎の尺寸が%CALLNAME:TARGET%のお腹越しでも分かる様に膨らんでいる。
								PRINTFORMW 「んっ……興奮、した？ふふっ、膣でまた少し大きくなったの分かったよ」
								PRINTFORMW 「ね、大きくなった…%CNAME("二人称")%の、で……%CNAME("一人称")%を此の侭、犯して？」
								PRINTFORMW 熱に浮かされ陶酔した顔で%CALLNAME:TARGET%が誘って来る。その言葉に%CALLNAME:MASTER%は頷き、続きをする事にした……
								BASE:絶頂 += MAXBASE:快感許容値女性 * 5
								CALL SET_CEVENT, "腹部变形される死神"
							ENDIF
						ENDSELECT
					ELSEIF INSERT("Ａ挿入相手") == MASTER
						SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
						CASE "巨根"
							CALL PRINT_STRW, @"「―――っ_HH_」"
						CASEELSE
							PRINTFORMW
						ENDSELECT
					ENDIF
					CALL SET_CEVENT, "腹部变形される死神"
				ELSE
					PRINTFORMW 「ねぇ」
					PRINTFORMW 「%CNAME("一人称")%だからと無理しても良い何て考えに為ってないかい？」
					PRINTFORMW 少しだけ怒った様な声で%CALLNAME:TARGET%が聞いてくる。
					PRINTFORMW 「まぁ、良いけれど。その代わり、%CNAME("一人称")%の感覚を一時的に凍結するからね」
					PRINTFORMW そう淡々と言い%CALLNAME:TARGET%が文言を呟くと熱が股間に集い、魂消る感覚が。
					PRINTFORMW 「是、大きくしたよ」
					PRINTFORMW 平然とした声で返されて期待していたリアクションが見れなくてがっかりしていると
					PRINTFORMW 「まぁ当然だよ。何事にも順序あるのだからね」
					PRINTFORMW 片目を閉じて窘める様に%CALLNAME:TARGET%は言った……
				ENDIF
			ENDSELECT
		ELSE
			SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
			CASE "短小"
				PRINTFORMW 「然う言うのは褥の前に言って欲しかったなぁ……」
				PRINTFORMW 困った様に%CALLNAME:TARGET%は笑いながら%CALLNAME:MASTER%の阴茎に手を添えて
				PRINTFORMW 「ん、此れで普通位变成了よ」
				PRINTFORMW 「大きければ良いってモノじゃないだろうけれど」
				PRINTFORMW 「小さすぎると自信がなくなるからね」
			CASE "普通"
				PRINTFORMW 「然う言うのは褥の前に言って欲しかったなぁ……」
				PRINTFORMW 困った様に%CALLNAME:TARGET%は笑いながら%CALLNAME:MASTER%の阴茎に手を添えて
				PRINTFORMW 「ん、此れで所謂巨根位变成了ね」
				PRINTFORMW 「んー斯うして見つめると大きいね」
			CASE "巨根"
				PRINTFORMW 「然う言うのは褥の前に言って欲しかったなぁ……」
				PRINTFORMW 困った様に%CALLNAME:TARGET%は笑いながら%CALLNAME:MASTER%の阴茎に手を添えて
				PRINTFORMW 「ん、此れでかなり大きくなったね」
				PRINTFORMW 「……此の尺寸だと私生活に差し障りが出そうだね」
				PRINTFORMW 「困ったら言ってね？小さくするからさ」
			CASE "馬根"
				PRINTFORMW 「然う言うのは褥の前に言って欲しかったなぁ……」
				PRINTFORMW 困った様に%CALLNAME:TARGET%は笑いながら%CALLNAME:MASTER%の阴茎に手を添えて
				PRINTFORMW 「………%CNAME("二人称")%は一体何処を目指してるのかな？」
				PRINTFORMW 「履物を履くのにも苦労しそうだけれど……」
				PRINTFORMW 「嗚呼、うん。是から此の尺寸の%CNAME("二人称")%のに色々されるんだね」
				PRINTFORMW 「%CNAME("一人称")%は大丈夫だけど、他の子は大丈夫かなぁ……」
			;腕並以上
			CASEELSE
				PRINTFORMW 「…………」
				PRINTFORMW 絶句した様に黙りこくる%CALLNAME:TARGET%にどうかしたのかと問うと
				PRINTFORMW 「人类の欲望は尽きぬと言うけれど……此処迄するのかい？？？」
				PRINTFORMW 「もう足が三本在る様なモノじゃないか」
				PRINTFORMW 老人ではないぞ。
				PRINTFORMW 「小粋な冗談を返すんじゃないよ！」
				PRINTFORMW 「はぁ……兎も角、困ったら言ってよ小さくするからさ」
				;PRINTFORMW 嚯、つまり奉仕をしてくれて小さくしてくれると
				;PRINTFORMW 「然う言う事を言っているのじゃないよ！」
			ENDSELECT
		ENDIF
	ELSE
		;これは"大きくなる前"のサイズなのに注意
		SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
		CASE "短小"
			PRINTFORMW 「ん、此れで普通位变成了よ」
			PRINTFORMW 「大きければ良いってモノじゃないだろうけれど」
			PRINTFORMW 「小さすぎると自信がなくなるからね」
		CASE "普通"
			PRINTFORMW 「ん、此れで所謂巨根位变成了ね」
			PRINTFORMW 「んー斯うして見つめると大きいね」
		CASE "巨根"
			PRINTFORMW 「ん、此れでかなり大きくなったね」
			PRINTFORMW 「……此の尺寸だと私生活に差し障りが出そうだね」
			PRINTFORMW 「困ったら言ってね？小さくするからさ」
		CASE "馬根"
			PRINTFORMW 「………%CNAME("二人称")%は一体何処を目指してるのかな？」
			PRINTFORMW 「履物を履くのにも苦労しそうだけれど……」
		;腕並以上
		CASEELSE
			PRINTFORMW 「…………此れ、ホントに日常生活で困らない？？？」
			PRINTFORMW 「大きくしたのは%CNAME("一人称")%だけれどホントに後悔してない？？？」
			PRINTFORMW 困惑した表情で聞いてくる%CALLNAME:TARGET%に力強く頷いて返すと
			PRINTFORMW 「う、うん。%CNAME("二人称")%が然うなら%CNAME("一人称")%がとやかく言うのはお門違いだね」
			CALL PRINT_STRW, @"_暗灰色_「ホントに大丈夫かなぁ……」"
		ENDSELECT
	ENDIF
CASE "短小化"
	;これは"小さくなる前"のサイズなのに注意
	SELECTCASE CONDS("潜在的含む阴茎尺寸", PLAYER)
	CASE "普通"

	CASE "巨根"

	CASE "馬根"

	;腕並、規格外
	CASEELSE

	ENDSELECT
ENDSELECT

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

;汎用拒否
IF STRCOUNT(ARGS, "拒否")
	PRINTFORMW 「んー……其れはもう少し関係性を深めてからにして欲しいかな？」
	PRINTFORMW 「取引を斯うにしてもお互いが信用して、納得してからした方が後で問題が起きにくいからね」
	PRINTFORMW 「然う言う理由で拒否させて要ね。ごめんね」
;汎用取引（特に記述することがないならスキップ）
ELSEIF STRCOUNT(ARGS, "取引")

;汎用ＯＫ
ELSE
	PRINTFORMW 「ん、其れ位なら簡単な事だから良いよ」
ENDIF

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

SELECTCASE ARGS
CASE "一緒に出発"
	;初回
	IF SEVENT(ARGS) == 0

	;着替えてもらう
	ELSEIF CHECK_CLO("裸体") || CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿") || CHECK_CLO("内衣姿")

	ELSE

	ENDIF
CASE "目送"

CASE "没収胖次出発"
	;初回
	IF SEVENT(ARGS) == 0

	;既に没穿内褲
	ELSEIF EQUIP:胖次 == 0

	ELSE

	ENDIF
CASE "保持现在的装扮出発"
	IF CHECK_CLO("泳装姿")

	ELSEIF CHECK_CLO("体操服姿")

	ELSEIF CHECK_CLO("内衣姿") || CHECK_CLO("裸体")

	ENDIF
CASE "会計交代"
	;初回
	IF SEVENT(ARGS) == 0 || SEVENT("商品購入") == 0

	ELSE

	ENDIF
CASE "询问有什么想要的东西"

CASE "商品購入"
	;今買った物
	SELECTCASE STR:購入道具
	;ギリギリ通常商品の範疇or你用
	CASE "撮影機材", "潤滑液", "媚薬", "飞机杯"

	CASE "避孕套"
		;この商品を初めて買わされた
		IF SEVENT(STR:購入道具) == 0

		ELSE

		ENDIF
	;えっちな商品
	CASEELSE

	ENDSELECT
CASE "店内待機"
	;とりあえず何か一個買った時or33％で喋る
	SIF COND("買上品数") != 1 && RAND:3
		RETURN 0
	;胖次没収中
	IF COND("買い物胖次没収中")

	ELSE

	ENDIF
CASE "购物終了"
	;胖次没収中
	IF COND("買い物胖次没収中")

	;なにも買わなかった
	ELSEIF COND("買上品数") == 0

	ELSEIF CHECK_CLO("泳装姿") || CHECK_CLO("体操服姿")

	ENDIF
ENDSELECT

path: ERB/EVENT_K/49 白い死神/EVENT_K49_SHOP.ERB