code:
;XX4箇所をキャラ番号に変える
;一桁のキャラは　X　にする

;口上選択時のタイトル
@KOJO_TITLE_86_0
RESULTS = 東方触手変　サンプル口上妖精

@KOJO_DETAIL_86_0
PRINTFORML サンプル口上です。
PRINTFORML 原作とは異なる場合がございます。
PRINTFORML

;色
@KOJO_DEFAULT_COLOR_86_0
;左から赤緑青で0～255の濃さ
RETURN RGBCOLOR(200, 20, 20)

;口上本体
@KOJO_86_0(ARGS:0, ARG:0, ARGS:1, ARGS:2, ARG:1, ARG:2)

;文字色設定
SETCOLOR CFLAG:700

;LOCAL
;0	LOOP
;1	色のバックアップ

GETCOLOR
LOCAL:1 = RESULT

SELECTCASE ARGS:0
	CASE "オープニング"
	CASE "キャラ別オープニング"
		PRINTFORMW 触手が現れた先には本を読む妖怪の少女が……
	CASE "襲撃"
		SELECTCASE ARG:0
			;ARG:1 0なら触手が攻撃、1なら触手が防御側
			;戦闘開始NPC視点
			CASE 0
				IF ARG:1 == 0
					PRINTFORMW 「ひぃっ…！何よ！」
				ELSEIF ARG:1 == 1

				ENDIF
			;戦闘開始主人公視点
			CASE 1
				IF ARG:1 == 0
					PRINTFORMW 「うっ……身体が……なんで？」
				ELSEIF ARG:1 == 1

				ENDIF
			;支配済みの主人公が敵に寝返った
			CASE 2
				PRINTFORMW 「はぁ…はぁ…身体が動く……？」
				PRINTFORMW 「もう許さないわよ！私の蹴りと弾幕を食らわせてやる…！」

			;支配済みの自分が敵に回った
			CASE 3
				PRINTFORMW 「どうしよう……」

			;自分が主人公に負けた
			CASE 4
				PRINTFORMW 「いやっ……！」
				PRINTFORMW 「やめてっ………！」
				PRINTFORMW その叫びは虚しく、誰にも聞こえることは無かった

			;主人公の自分が勝った
			CASE 5
				PRINTFORMW 「なんで勝っちゃうのよ！」
				PRINTFORMW 「早く倒して……誰か…………」

			;自分は異変を解決した
			CASE 6
				PRINTFORMW 「どんなもんだ！後方注意ね！」

			;異変の原因の自分が負けたので異変が解決した
			CASE 7
				PRINTFORMW 「終わった……のね……」

		ENDSELECT
	CASE "探索察知"
		PRINTFORML
		PRINTFORML
	CASE "状態異常"
		SELECTCASE ARGS:2
			CASE "拘束"
				PRINTFORMW 「うわっ！離してっ……！」
			CASE "恐慌"
				PRINTFORMW 「ひっ……こっち来ないでっ……」
			CASE "睡眠"
				PRINTFORMW 「あれ……？視界がだんだん…………ぐぅ…」
			CASE "発情"
				PRINTFORMW 「んっ……こんなときにぃ……」
			CASE "戦意喪失"
				PRINTFORMW 「ゆ、許して……いやっ……」
			CASE "絶頂"
				PRINTFORMW 「んんっ」
			CASE "強制自慰"
				PRINTFORMW 「いやっ！やめっ……～～～～～～っ」
			CASE "催眠"
				PRINTFORMW 「あっ……」
		ENDSELECT
	CASE "逃走"
		SELECTCASE ARG:0
			;口上主が追跡
			CASE 0
			    PRINTFORMW 「待て！私が倒す！」
			;口上主が逃亡
			CASE 1
				PRINTFORMW 「無理無理無理無理っ！」

		ENDSELECT
	CASE "妊娠"
		SELECTCASE ARG:0
			CASE 0
				PRINTFORMW 「うーん……何だか変だわ……気のせいかしら」
			CASE 1
				PRINTFORMW 「うっ……最近体調が悪い時があるからって運動はしないと……」
				PRINTFORMW 「最近心なしか太ってきた気もするし……」
			CASE 2
				PRINTFORMW 「いや……まさかね………」
				PRINTFORMW 大きくなったお腹はもうただの運動不足による肥満では無い事は明らかだった
			CASE 3
				PRINTFORMW 「ううっ……どうすればいいのよ………」
				PRINTFORMW 朱鷺子はすっかり大きくなったお腹をさすりながら俯いている
			CASE 4
				PRINTFORMW 「もう少しかしら……どうなるの私？」
			CASE 5
				PRINTFORMW 「あぐぅ………いつ産まれてくるの？………怖い…」
		ENDSELECT
	CASE "出産"
		SELECTCASE ARG:0
			CASE 0
				PRINTFORMW 「んんんんんっ……はぁ、はぁ……え？」
				PRINTFORMW 「ひっ…………いやっ」
			CASE 1
				PRINTFORMW 「や、やっと産まれた……良かったのかしら…？」
		ENDSELECT
	CASE "寄生"
		SELECTCASE ARG:0
			CASE 0

			CASE 1

			CASE 2

			CASE 3

			CASE 4

		ENDSELECT
	CASE "寄生出産"
		SELECTCASE ARG:0
			CASE 0

			CASE 1

		ENDSELECT
	CASE "媚薬爆弾"
		SELECTCASE ARG:0
			;爆発した
			CASE 0
				PRINTFORML 「んひぃ～～～♥♥♥」
			;爆発した結果
			CASE 1
				PRINTFORML 「ひ、酷い目に…遭ったわ……んっ♥」
		ENDSELECT
	CASE "諜報"
		SELECTCASE ARG:0
			;初期宿主が誰かの異変探索に気づいた
			CASE 0
				PRINTFORMW 「………誰かがこの異変に気付いたのね………」
			;初期宿主が誰かの異変察知に気づいた
			CASE 1
				PRINTFORMW 「一斉に襲われそうね……なんでこんなことに………」
		ENDSELECT
	CASE "全支配"
		PRINTFORMW 「もうこうなったら………どうにでもなっちゃえばいいのよ！」
	CASE "尋問"
		SELECTCASE ARG:0
			;尋問に屈した
			CASE 0
			    PRINTFORMW 「い、いいまひゅ、いいまひゅからゆりゅしてぇ…♥♥♥」
			;尋問に耐えた
			CASE 1
			    PRINTFORMW 「こ、これぐらいじゃ…口は割らない……わよ」
			;初期宿主用口上
			CASE 2

		ENDSELECT
	CASE "侵食イベント"
		SELECTCASE ARG:0
			;違和感
			CASE 0

			;スライムに襲われる
			CASE 1
				PRINTFORML 「うわっ！？ヌルヌルしてる……！」
				PRINTFORML 「……ってどこ触ってるのよ！」
				PRINTFORML 「うぐっ…はなしてっ……いやっ♥…やめてっ♥んぐっ！」
				PRINTFORML 「んっ～～～～～～♥♥♥」
			;野犬に襲われる
			CASE 2
				PRINTFORML 「うわっ！何よ！急に」
				PRINTFORML 「ちょっとおかしいでしょこんな力……おっ♥」
				PRINTFORML 「んっ…♥なに、挿れてっ♥…やめっ♥」
				PRINTFORML 「こんなっ♥犬にぃぃぃぃ♥♥♥」

			;植物に襲われる
			CASE 4
				PRINTFORML 「……えっ？……なによ！これ！」
				PRINTFORML 「ツタがっ……！んぐぅ！…んー！んー！…ん～っ♥♥♥」
			;落とし穴
			CASE 5
				PRINTFORML 「うわーーーーーっ」
				PRINTFORML 「………って、落ちても飛べるんだし大丈夫じゃな……え？」
				PRINTFORML 朱鷺子は顔を青くした。なぜなら飛ぶ為に必要な翼に触手が絡みついていたからだ
				PRINTFORML 「やめてっ！助けてっ…………」
				PRINTFORML 朱鷺子は全身に絡みついた触手に引きずり込まれ、地上の光が遠ざかっていった
			;虫の大群に襲われる
			CASE 6
				PRINTFORML 「む、虫！？数が多すぎてっ……！」
				PRINTFORML 「うわあああああぁぁぁぁぁ‥‥‥‥」
			;キスされる
			CASE 7

			;野犬に発情する
			CASE 14
				IF ITEM:303
				   PRINTFORML 「な、何？………犬…？あっ…」
				   PRINTFORML 突然、朱鷺子の目がとろんとすると突然服を脱いで四つん這いになった
				   PRINTFORML 催眠の効果で朱鷺子は自分が発情期の雌犬と思い込んでしまったようだ
				   PRINTFORML わんっわんっと鳴きながら朱鷺子は、犬に向かって秘部から滝のように愛液を垂らしたお尻を振っている
				   PRINTFORML 犬のペニスが挿入されても催眠は解ける事は無く、へっ♥へっ♥とだらしない顔で涎を垂らしながら喘いでいる
				   PRINTFORML 朱鷺子は犬が去った後も暫くは服従のポーズのまま痙攣していた
                ELSE
				   PRINTFORML 「な、何？………犬…？あっ…」
				   PRINTFORML 朱鷺子は何故か犬のペニスに釘付けになってしまった
				   PRINTFORML 「何考えてるの……私…こんな事」
				   PRINTFORML 口では否定しながらも、既に頭はペニスの事で一杯になっており下着を脱ごうとする姿があった
				   PRINTFORML 数分間、わずかに残った理性を振り絞って犬がどこかに行く事を願って耐えていたのだが
				   PRINTFORML 「もう……我慢できない……はやく、それを挿れてぇ……」
				   PRINTFORML 理性の糸が切れると朱鷺子は犬のペニスを貪るように求めた
			ENDIF
			;蜂の巣に連れて行かれる
			CASE 16

			;発情
			CASE 21
				PRINTFORML 「はぁ…はぁ…はぁ…今日は暑いわね…」
				PRINTFORML 「んっ♥…何だか変な気分ね……んんっ♥」
			;服が溶ける
			CASE 26
				IF ITEM:128
				  PRINTFORML 「ふ、服がっ……！？」
				  PRINTFORML 「あっ……み、みられっ……」
				  PRINTFORML 大勢に自分の全裸を見られた事に対して朱鷺子は何故か恥ずかしさよりも快感を覚えていた
				  PRINTFORML （どうしてあんなに興奮しちゃったの……？クセになっちゃいそう…♥）
				ELSE
				  PRINTFORML 「えっ！？……ええええええっ」
				  PRINTFORML 「服がっ、見ないで！！！」」
				  PRINTFORML 朱鷺子は急いで物陰に隠れたが、その時には既に服は切れ端程度しか残っていなかった
				  ENDIF
			;搾り取り
			CASE 68
				PRINTFORML 「えっ………力が……抜けて」
				PRINTFORML 「あああぁぁぁ………♥♥♥♥」
			;搾りカス
			CASE 78
				PRINTFORML 「これいじょうはもう…しぼりとれないからぁ」
				PRINTFORML 「ちからがぬけて……ふわふわしてきて……」
				PRINTFORML 「ああああぁぁぁぁ………」
				PRINTFORML 「………♥♥♥♥♥♥」
			;A敏感
			CASE 101

			;B敏感
			CASE 102

			;C敏感
			CASE 103

			;V敏感
			CASE 104

			;M敏感
			CASE 105

			;ショタへ過度ないたずら
			CASE 110

			;ショタへ集団いたずら
			CASE 111
				SELECTCASE ARG:1
					;暗がりに連れ込んだ
					CASE 0

					;異変のきっかけとなった娘と一緒に楽しんだ
					CASE 1

				ENDSELECT
			;自慰没頭
			CASE 123
				PRINTFORML 「んっ♥……ああんっ♥……止まらないのぉ♥」
				PRINTFORML 「もっとぉ♥……切ないのぉ♥……んんっ♥」
				PRINTFORML 朱鷺子は泉のようにとめどなく溢れてくる性欲を押さえり切れず自慰に没頭している
			;自慰祭り
			CASE 125
				SELECTCASE ARG:1
					;自慰祭り元凶
					CASE 0
						PRINTFORML 「もう我慢出来ないっ♥……ああっ♥もう回りなんてどうでもいいっ♥」
						PRINTFORML 朱鷺子が自慰に没頭している間にまた一人、また一人と自慰をはじめていった
					;自慰祭り巻き込まれ
					CASE 1
						PRINTFORML 「な、何？人前で初めて……」
						PRINTFORML 朱鷺子は顔を赤くして手で顔を隠そうとするも何故か目を逸らせない
						PRINTFORML 「あっ…あっ…」
						PRINTFORML 朱鷺子は無意識のうちに手が股座に向かっていった
						PRINTFORML 「あっ…♥だめっ…♥こんな所でっ…♥」
						PRINTFORML 朱鷺子は言葉とは裏腹に笑みを浮かべながら自慰を始めた
				ENDSELECT
			;野外自慰
			CASE 128

			;強制絶頂
			CASE 129

			;おじさん家へ押しかけ
			CASE 130

			;ショタへいたずら
			CASE 131

			;男湯突撃
			CASE 135
				SELECTCASE ARG:1
					;突撃した
					CASE 0

					CASE 1

					CASE 2

					CASE 3

					CASE 4

				ENDSELECT
			;ヤリチンショタ
			CASE 139

			;種付けおじさん
			CASE 140

			;軽い百合
			CASE 141
				SELECTCASE ARG:1
					;イベント開始
					CASE 0

					;実プレイ
					CASE 1

					;好感度上げ
					CASE 2

				ENDSELECT
			;ロリコン
			CASE 142
				SELECTCASE ARG:1
					;イベント開始
					CASE 0

					;実プレイ
					CASE 1

					;好感度上げ
					CASE 2

				ENDSELECT
			;百合
			CASE 143
				SELECTCASE ARG:1
					;侵食された側の口上
					CASE 0

					;巻き込まれた側の口上
					CASE 1

				ENDSELECT

			;カウントダウン
			CASE 150
				PRINTFORML 「す、数字……？なんの数字……」
				PRINTFORML 「10…9…えっ数字が減っていって……嫌な予感しかしない……」
				PRINTFORML 「止まって！絶対これは駄目な予感が……ひっ」
				PRINTFORML 願いは虚しくカウントは減り続ける
				PRINTFORML 「いやっ…ひぃっ！？カウントが……んっ♥」
				PRINTFORML 「んおおおおおおおおっ♥♥♥♥♥」
				PRINTFORML 強烈な快感に朱鷺子は気絶してしまった
			;おっさんを買う
			CASE 207

			;ショタを買う
			CASE 208

			;母乳
			CASE 212

			;膨乳
			CASE 213

			;ふたなり化
			CASE 222

			;ふたなりレイプ
			CASE 223
				SELECTCASE ARG:1
					;レイプ加害者口上
					CASE 0

					;レイプ被害者口上:戦闘素質で負けてる
					CASE 1

					;レイプ被害者口上:好感度高め
					CASE 2

					;レイプ被害者口上:上記二種以外
					CASE 3

				ENDSELECT
			;自己受精
			CASE 225

			;媚薬爆弾埋め込み
			CASE 252

			;超乳
			CASE 254

			;縮乳
			CASE 255

			;絶壁
			CASE 256

			;動物耳
			CASE 261

			;アナルほじり
			CASE 291

			;アナル挿入
			CASE 292

			;尻揉み
			CASE 293

			;乳首責め
			CASE 294

			;乳揉み
			CASE 295

			;クリ責め
			CASE 296

			;まんこほじり
			CASE 297

			;催眠
			CASE 303
			PRINTFORML 「あれぇわたし、なにしてるんだっけぇ……んっ♥」
			PRINTFORML 朱鷺子は何が何だか分からないうちに夢見み心地で自慰行為にふけっている

			CASE 326

		ENDSELECT
	CASE "戦闘補正"
		SELECTCASE ARG:0
			;侵食済みだと弱体化
			CASE 0

			;支配済み初期宿主は仲がいい相手に動揺を与える
			CASE 1

			;衣服溶解液があると恥じらい持ちは弱体化
			CASE 2

			;防衛時触手の領域が戦闘補正
			CASE 3

			;発情+液体散布があると発情液を散布し少女弱体化
			CASE 4

			;炎熱変換があって炎熱耐性がないとよく燃える
			CASE 5

		ENDSELECT

	CASE "全体イベント"
		SELECTCASE ARG:0
			;スライムに襲われる
			CASE 1

			;野犬に襲われる
			CASE 2

			;植物に襲われる
			CASE 4

			;虫の大群に襲われる
			CASE 6

			;スライムに襲われる
			CASE 11
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;野犬に襲われる
			CASE 12
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;植物に襲われる
			CASE 14
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;蜂の巣に連れて行かれる
			CASE 16
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;触手に襲われる
			CASE 19
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;自慰
			CASE 21

			;催眠虫
			CASE 24
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;噂
			CASE 46

			;討伐の噂
			CASE 47

			;壁尻団
			CASE 84
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0
						PRINTFORML 「うわーーーーーっ」
					;被害者の口上
					CASE 1
						PRINTFORML 「えええええええええっ」
				ENDSELECT
			;A敏感
			CASE 101

			;B敏感
			CASE 102

			;C敏感
			CASE 103

			;V敏感
			CASE 104

			;M敏感
			CASE 105

			;おじさん暴走
			CASE 130
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;セクハラ
			CASE 134
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

					;被害者の口上結果：ノーパン
					CASE 2

					;被害者の口上結果：支配済み
					CASE 3

					;被害者の口上結果：侵食済み
					CASE 4

					;被害者の口上結果：弱気
					CASE 5

					;被害者の口上結果：強気
					CASE 6

				ENDSELECT
			;ヤリチンショタ暴走
			CASE 139
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上
					CASE 1

				ENDSELECT
			;膨乳
			CASE 213

			;ふたなり化
			CASE 222

			;縮乳
			CASE 255

			;動物耳
			CASE 261

			;ノーパン流行
			CASE 321
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0
						PRINTFORML 「スリルがあってゾクゾクするわ……」
						PRINTFORML そこで突然風が吹き、目線の先の少女のスカートがめくれる
						PRINTFORML 「ふふふっ…」
						PRINTFORML その少女が下着を穿いていない事を確認して朱鷺子は密かにほくそ笑んだ
					;被害者の口上：侵食済み
					CASE 1
						PRINTFORML 「どうしてこんな事してるんだろう……？」
						PRINTFORML 朱鷺子は何故か下着を身に着ける事が出来なかった
						PRINTFORML 「きゃあっ！風！？」
						PRINTFORML 突然の風に驚き、朱鷺子はスカートを押さえて恥ずかしそうにもじもじとした
						PRINTFORML しかしそのとき周りのスカートを穿いた女性が同じような様子だった事には気づかなかった
					;被害者の口上：異変察知済み
					CASE 2
						PRINTFORML 「うーん……皆様子が変なのよね……えっ！？」
						PRINTFORML 「今の子……何も穿いてなかった………？」
						PRINTFORML 「これも異変のせい……？い、いや考えすぎよ……ね」
					;被害者の口上：それ以外
					CASE 3
						PRINTFORML 「どうしたのかしら……皆様子がおかしいような……」
				ENDSELECT
			;全裸の世界
			CASE 324
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0
						PRINTFORML 「皆やっと全裸の良さに気付いてくれたのね」
						PRINTFORML 「もう服がある生活には戻れないわ！」
						PRINTFORML 朱鷺子はつぶやきながら何の違和感も持たずに全裸で歩き出した
					;被害者の口上：侵食済み
					CASE 1
					    PRINTFORML 「なんで服なんて着てたのかしら」
						PRINTFORML 「今の私はとても開放的な気分だわ！」
						PRINTFORML 朱鷺子は小振りの胸を恥ずかしがる様子もなく歩き回った
					;被害者の口上：異変察知済み
					CASE 2
						PRINTFORML 「これも異変のせいなの……？」
						PRINTFORML 「とんだ悪趣味な異変ね！皆、裸になるなんて」
					;被害者の口上：それ以外
					CASE 3
						PRINTFORML 「な、な、なんで皆服着てないの……？」
						PRINTFORML 「ううう……どうなってるんだろう」
				ENDSELECT
			;エロバトル
			CASE 325
				SELECTCASE ARG:1
					;初期宿主の口上
					CASE 0

					;被害者の口上：侵食済み
					CASE 1

					;被害者の口上：異変察知済み
					CASE 2

					;被害者の口上：それ以外
					CASE 3

				ENDSELECT
		ENDSELECT

	CASEELSE
		;口上がない部分をチェックするための場所
		;口上チェック中は「;」を外して口上がない部分をチェックする
		;TRYCCALLFORM SYSTEM_MESSAGE_%ARGS:0%( ARG:0, ARGS:1, ARGS:2, ARG:1, ARG:2)
		;CATCH
			;PRINTFORMW (SYSTEM_MESSAGE)未実装のメッセージ %ARGS:0% が指定されました ({ARG:0}, %ARGS:1%, %ARGS:2%, {ARG:1}, {ARG:2})
		;ENDCATCH
ENDSELECT

;終わったら色を戻す
SETCOLOR LOCAL:1


code:
朱鷺子口上 ver0.50     作者：Cancer

ダウンロードして頂きありがとうございます。

一応動作確認はしましたが、おかしくなる可能性はあるのでその際は申し訳ありません。

使い方・・・EBRファイルの中の各キャラ口上ファイルにフォルダごと入れるだけで使えるはずです

この口上について・・・自分の想像と妄想で書いたのでイメージと違うかもしれません。ご了承ください

今後・・・まだまだ未完成なので、少しづつ埋めていきたいと思います

加筆、改変などは自由です。というより、して下さった場合寧ろ自分は喜びます。一応された場合はもう一つreadme等を作成してその旨を記入してください。
こんな口上では万一でもあり得無いと思いますが責任が持てない為、商業での利用だけはおやめください。

更新履歴

ver0.50
初期版完成

repo_name: mcstone/syokushuhenth

license: unknown


code:
;口上選択時のタイトル
@KOJO_TITLE_88_0
RESULTS = 東方触手変　サンプル口上上海

@KOJO_DETAIL_88_0
PRINTFORML サンプル口上です。
PRINTFORML 原作とは異なる場合がございます。
PRINTFORML

;色なし
@KOJO_DEFAULT_COLOR_88_0

;口上本体
@KOJO_88_0(ARGS:0, ARG:0, ARGS:1, ARGS:2, ARG:1, ARG:2)

;文字色設定
SETCOLOR CFLAG:700

;LOCAL
;0	LOOP
;1	色のバックアップ

GETCOLOR
LOCAL:1 = RESULT

;システムメッセージ表示中はデフォルトカラーに戻す
RESETCOLOR

SELECTCASE ARGS:0
	CASE "オープニング"

	CASE "キャラ別オープニング"
		PRINTFORMW ｼｬﾝﾊｰｲ
	CASE "襲撃"
		SELECTCASE ARG:0
			;ARG:1 0なら触手が攻撃、1なら触手が防御側
			;戦闘開始NPC視点
			CASE 0
				IF ARG:1 == 0
					PRINTFORMW ﾔｯﾃﾔﾙｾﾞ
				ELSEIF ARG:1 == 1

				ENDIF
			;戦闘開始主人公視点
			CASE 1
				IF ARG:1 == 0
					PRINTFORMW ﾃﾒｴﾓ　ｲｯｼｮﾀﾞｾﾞ
				ELSEIF ARG:1 == 1

				ENDIF
			;支配済みの主人公が敵に寝返った
			CASE 2
				PRINTFORMW ﾊﾞｶｼﾞｬﾈｰﾉ

			;支配済みの自分が敵に回った
			CASE 3
				PRINTFORMW ｱｲﾃｼﾃﾔﾝﾖ

			;自分が主人公に負けた
			CASE 4
				PRINTFORMW ﾏｹﾁﾏｯﾀｾﾞ

			;主人公の自分が勝った
			CASE 5
				PRINTFORMW ｵﾁﾙﾄ　ｷﾓﾁｲｲｾﾞ

			;自分は異変を解決した
			CASE 6
				PRINTFORMW ｶｯﾀｾﾞ
			;異変の原因の自分が負けたので異変が解決した
			CASE 7
				PRINTFORMW ﾔﾗﾚﾁﾏｯﾀｾﾞ

		ENDSELECT
	CASE "探索察知"
		PRINTFORML ｻｶﾞｼﾃﾔｶﾞﾝﾅ
		PRINTFORML
		PRINTFORML
	CASE "状態異常"
		SELECTCASE ARGS:2
			CASE "拘束"

			CASE "恐慌"

			CASE "睡眠"

			CASE "発情"

			CASE "戦意喪失"

			CASE "絶頂"

			CASE "強制自慰"

			CASE "催眠"

		ENDSELECT
	CASE "逃走"

	CASE "妊娠"
		SELECTCASE ARG:0
			CASE 0

			CASE 1

			CASE 2

			CASE 3

			CASE 4

			CASE 5

		ENDSELECT
	CASE "出産"
		SELECTCASE ARG:0
			CASE 0

			CASE 1

		ENDSELECT
	CASE "寄生"
		SELECTCASE ARG:0
			CASE 0

			CASE 1

			CASE 2

			CASE 3

			CASE 4

		ENDSELECT
	CASE "寄生出産"
		SELECTCASE ARG:0
			CASE 0

			CASE 1

		ENDSELECT
	CASE "侵食イベント"
		SELECTCASE ARG:0
			;違和感
			CASE 0
				PRINTFORML ｳｽﾞｳｽﾞｽﾙﾅ
			;スライムに襲われる
			CASE 1
				PRINTFORML ﾇﾙﾇﾙｼﾃﾔｶﾞﾙ
			;野犬に襲われる
			CASE 2
				PRINTFORML ﾊﾅｾﾜﾝｺｳ
				PRINTFORML ﾊﾅｾﾂｯﾃ…ｱｯ
			;
			CASE 3

			;植物に襲われる
			CASE 4

			;落とし穴
			CASE 5
				PRINTFORML ｺｼｶﾞﾇｹﾈｴ
				PRINTFORML ｱｼﾆﾅﾆｶｶﾞ
			;虫の大群に襲われる
			CASE 6
				PRINTFORML ﾖｯﾃｸﾝｼﾞｬﾈｴ
			;キスされる
			CASE 7
				PRINTFORML …ﾊﾞｶｼﾞｬﾈｰﾉ
			;野犬に発情する
			CASE 14
				PRINTFORML ﾑﾗﾑﾗｽﾝﾅ
			;蜂の巣に連れて行かれる
			CASE 16
				PRINTFORML ｱｱｱｱｱｱｱｱｱｱｱｧｧｧｧｧｧｧｧｧ
			;発情
			CASE 21
				PRINTFORML んっ……んっ……
			;服が溶ける
			CASE 26
				PRINTFORML ｷｶﾞｴﾈｰﾄ
			;搾り取り
			CASE 68

			;搾りカス
			CASE 78

			;A敏感
			CASE 101

			;B敏感
			CASE 102

			;C敏感
			CASE 103

			;V敏感
			CASE 104

			;M敏感
			CASE 105

			;ショタへ過度ないたずら
			CASE 110

			;ショタへ集団いたずら
			CASE 111

			;自慰没頭
			CASE 123
				PRINTFORML ﾝｯ……ﾄﾏﾝﾈｴｴ……ﾄﾞｳｼﾁﾏｯﾀﾝﾀﾞ
			;自慰祭り
			CASE 125

			;野外自慰
			CASE 128

			;強制絶頂
			CASE 12
				PRINTFORML ﾝｨｨｨｨｨｨｨｨｨｨｨｨｨｨ
			;おじさん家へ押しかけ
			CASE 130

			;ショタへいたずら
			CASE 131

			;カウントダウン
			CASE 150

			;おっさんを買う
			CASE 207

			;ショタを買う
			CASE 208

			;母乳
			CASE 212

			;膨乳
			CASE 213
				PRINTFORML ﾄﾞｳﾅｯﾃﾝﾀﾞｺﾚ
			;ふたなり化
			CASE 222

			;動物耳
			CASE 261

			;催眠
			CASE 303
				PRINTFORML ﾎﾞｰ
			CASEELSE
				PRINTFORML
		ENDSELECT
	CASE "戦闘補正"
		SELECTCASE ARG:0
			;侵食済みだと弱体化
			CASE 0
				PRINTFORML ﾌｸﾉﾅｶﾆ　ﾅﾆｶｳｺﾞｲﾃﾔｶﾞﾙ
			;支配済み初期宿主は仲がいい相手に動揺を与える
			CASE 1
				PRINTFORML ｼﾞｬﾏｽﾝﾅ

			;衣服溶解液があると恥じらい持ちは弱体化
			CASE 2

			;防衛時触手の領域が戦闘補正
			CASE 3
				PRINTFORML ｼｮｸｼｭｶﾞｳｯﾄｳｼｲﾅ
			;発情+液体散布があると発情液を散布し少女弱体化
			CASE 4
				PRINTFORML ｶﾗﾀﾞｶﾞｱﾂｲ…
			;炎熱変換があって炎熱耐性がないとよく燃える
			CASE 5

		ENDSELECT

	CASE "全体イベント"
		SELECTCASE ARG:0
			;スライムに襲われる
			CASE 1

			;野犬に襲われる
			CASE 2

			;植物に襲われる
			CASE 4

			;虫の大群に襲われる
			CASE 6

			;スライムに襲われる
			CASE 11

			;野犬に襲われる
			CASE 12

			;植物に襲われる
			CASE 14

			;蜂の巣に連れて行かれる
			CASE 16

			;触手に襲われる
			CASE 19

			;自慰
			CASE 21

			;噂
			CASE 46

			;討伐の噂
			CASE 47

			;A敏感
			CASE 100

			;B敏感
			CASE 101

			;C敏感
			CASE 102

			;V敏感
			CASE 103

			;M敏感
			CASE 104

			;おじさん暴走
			CASE 130

			;セクハラ
			CASE 134

			;膨乳
			CASE 213

			;ふたなり化
			CASE 222

			;動物耳
			CASE 261

			;ノーパン流行
			CASE 321

			;全裸の世界
			CASE 324

			;エロバトル
			CASE 325

		ENDSELECT

	CASEELSE

ENDSELECT

;終わったら色を戻す
SETCOLOR LOCAL:1


code:
;所属の汚染度処理
;-------------------------------------------------
;■引数
;ARG:0			所属ID
;ARG:1			所属汚染度の掃除量
;CHARA_ID		掃除するキャラ
;-------------------------------------------------

;拠点所属の掃除処理 @CLEAN_POSITION
@CLEAN_POSITION(ARG:0 , ARG:1, CHARA_ID)
#DIM POSITION_ID
#DIM CHARA_ID

;異常な引数のエラーコード
IF ARG:0 > 20 || ARG:0 < 0
	SETCOLOR 0xFF0000
	PRINTFORML 【ERROR】POLLUTED_POSITION:未定義的數據 > 無法使未被發現的地區(ID({ARG:0}))的侵蝕度上升！
	; PRINTFORML 【ERROR】POLLUTED_POSITION:想定外の引数 > 存在しない所属ID({ARG:0})の侵食度を上げようとしています！
;汚染度の概念のない所属は強制終了
ELSEIF !CHECK_BASE(ARG:0)
	RETURN
ENDIF

POSITION_ID = ARG:0

;どれだけ掃除できるかは隠蔽度の影響を受ける
ARG:1 = - POSITION_POLLUTED_FIND(CHARA_ID, ARG:1)

;綺麗好きで効果上昇
IF TALENT:CHARA_ID:152
	ARG:1 += 1
ENDIF
;浄化知識で効果上昇
IF TALENT:CHARA_ID:160
	ARG:1 += TALENT:CHARA_ID:160
ENDIF

;拠点所属の汚染度を掃除する
;POSITION_IDの汚染度が0以上、かつ未支配なら所属汚染度を掃除する
IF FLAG:(70 + POSITION_ID) > 0 && GETBIT(FLAG:(50 + POSITION_ID) , 2) == 0
	FLAG:(70 + POSITION_ID) += MIN(ARG:1, 0)
ENDIF

;所属汚染度が0を下回らないように修正
SIF FLAG:(70 + POSITION_ID) <= 0
	FLAG:(70 + POSITION_ID) = 0

;無所属の汚染度を更新
FLAG:70 = AVERAGE_BASEPOLLUTION()


code:
;所属の汚染度処理
;-------------------------------------------------
;■引数
;ARG:0			所属ID
;ARG:1			所属汚染度の汚染量
;CHARA_ID		汚染するキャラ
;-------------------------------------------------

;所属地域の汚染処理 @POLLUTED_POSITION
@POLLUTED_POSITION(ARG:0 , ARG:1, CHARA_ID)
#DIM LCOUNT ;ループ用
#DIM TOTAL
#DIM AREA_NUM
#DIM POSITION_ID
#DIM CHARA_ID

;異常な引数のエラーコード
IF ARG:0 > 20 || ARG:0 < 0
	SETCOLOR 0xFF0000
	PRINTFORML 【ERROR】POLLUTED_POSITION:未定義的數據 > 無法使未被發現的地區(ID({ARG:0}))的侵蝕度上升！
	; PRINTFORML 【ERROR】POLLUTED_POSITION:想定外の引数 > 存在しない所属ID({ARG:0})の侵食度を上げようとしています！
;拠点概念のない所属は強制終了
ELSEIF !CHECK_BASE(ARG:0)
	RETURN
ENDIF

POSITION_ID = ARG:0

;どれだけ汚染できるかは隠蔽度の影響を受ける
ARG:1 = POSITION_POLLUTED_FIND(CHARA_ID, ARG:1)

;拠点所属の汚染処理
FLAG:(70 + POSITION_ID) += MAX(ARG:1, 0)

;所属汚染度が100を上回らないように修正
SIF FLAG:(70 + POSITION_ID) > 100
	FLAG:(70 + POSITION_ID) = 100

;無所属の汚染度として全拠点の平均汚染度を代入
FLAG:70 = AVERAGE_BASEPOLLUTION()


code:
;キャラのいる拠点がどれほど汚染されているかのチェック関数
@POSITION_POLLUTED_CHECK(CHARA_ID)
#FUNCTION
#DIM CHARA_ID
#DIM LCOUNT
#DIM POLLUTED_RATE
#DIM VICTIM_NUMBER
#DIM VICTIM_ID

FOR LCOUNT, 1,CHARANUM
	IF CFLAG:CHARA_ID:5 == CFLAG:LCOUNT:5
	; 所屬
		IF CFLAG:LCOUNT:2
		; 侵蝕
			POLLUTED_RATE ++
		ELSE
			VICTIM_NUMBER ++
			VICTIM_ID = LCOUNT
		ENDIF
	ENDIF
NEXT

;一人だけ侵食されていない場合、一人も侵食されていない場合、その他、で分岐
IF VICTIM_NUMBER == 1
	RETURNF VICTIM_ID
ELSEIF POLLUTED_RATE == 0
	RETURNF -1
ELSE
	RETURNF 0
ENDIF


code:
;キャラのいる拠点の侵食がどれほど見つかるかのチェック
@POSITION_POLLUTED_FIND(CHARA_ID, ARG:1)
#FUNCTION
#DIM CHARA_ID
#DIM LCOUNT
#DIM HIDE_TENTACLE
#DIM SEARCH_POINT

;ARG:1	変化量

IF CFLAG:CHARA_ID:4
	HIDE_TENTACLE = FLAG:元凶隠蔽力 + (FLAG:支配力 / 2)
ELSE
	HIDE_TENTACLE = FLAG:異変隠蔽力 + (FLAG:支配力 / 2)
ENDIF

SEARCH_POINT = ABL:CHARA_ID:探索技能

;拠点が警戒していると補正
IF GETBIT(FLAG:(CFLAG:CHARA_ID:5 + 50), 4) && GETBIT(FLAG:(CFLAG:CHARA_ID:5 + 50), 1) == 0
	SEARCH_POINT += 5 + RAND:10
ENDIF

;拘束・恐慌なら探さない
IF CFLAG:CHARA_ID:20
	SEARCH_POINT = 0
ENDIF
IF CFLAG:CHARA_ID:24
	SEARCH_POINT = 0
ENDIF
;睡眠・戦意喪失状態だと気づくことも探すこともない
IF CFLAG:CHARA_ID:25
	SEARCH_POINT = 0
ENDIF
IF CFLAG:CHARA_ID:28
	SEARCH_POINT = 0
ENDIF
;寄生・妊娠は進行しているとうまく探せない
IF CFLAG:CHARA_ID:22 && CFLAG:CHARA_ID:22 < 4
	SEARCH_POINT = SEARCH_POINT / 2
ENDIF
IF CFLAG:CHARA_ID:23 && CFLAG:CHARA_ID:23 < 180
	SEARCH_POINT = SEARCH_POINT / 2
ENDIF

;発情・絶頂・強制自慰状態だとペナルティ
IF CFLAG:CHARA_ID:27
	SEARCH_POINT = SEARCH_POINT / 2
ENDIF
IF CFLAG:CHARA_ID:29
	SEARCH_POINT = SEARCH_POINT / 2
ENDIF
IF CFLAG:CHARA_ID:30
	SEARCH_POINT = SEARCH_POINT / 2
ENDIF

IF HIDE_TENTACLE > SEARCH_POINT + 10
	ARG:1 += 5
ELSEIF HIDE_TENTACLE > SEARCH_POINT + 5
	ARG:1 += 3
ELSEIF HIDE_TENTACLE > SEARCH_POINT
	ARG:1 += 1
ELSEIF HIDE_TENTACLE == SEARCH_POINT
	ARG:1 += 0
ELSEIF HIDE_TENTACLE < SEARCH_POINT - 10
	ARG:1 += -5
ELSEIF HIDE_TENTACLE < SEARCH_POINT - 5
	ARG:1 += -3
ELSEIF HIDE_TENTACLE < SEARCH_POINT
	ARG:1 += -1
ENDIF

RETURNF ARG:1


code:
;拠点の更新処理
;拠点の侵食情報を一括で更新する処理
@POSITION_RENEW()
#DIM LCOUNT	;ループ用
#DIM DCHECK , 20
#DIM DPCHECK , 20
#DIM POSITION
#DIM BASE_SCALE
#DIM CHARA_SCALE , 20
#DIM NON_NOTICED_PERSON,20

FOR LCOUNT, 1, 17
	VARSET DCHECK:LCOUNT
NEXT

FOR LCOUNT, 1 , CHARANUM
	IF CHECK_BASE(CFLAG:LCOUNT:5)
	; 地區

		;■拠点の汚染処理
		;警戒状態だと無菌状態
		IF GETBIT(FLAG:(50+CFLAG:LCOUNT:5), 4) && GETBIT(FLAG:(50+CFLAG:LCOUNT:5), 1) == 0
			FLAG:(70+(CFLAG:LCOUNT:5)) = 0

		;非警戒状態で未支配だと拠点侵食発生
		ELSEIF GETBIT(FLAG:(50+(CFLAG:LCOUNT:5)), 4) == 0 || GETBIT(FLAG:(50+(CFLAG:LCOUNT:5)), 2) == 0
			;キャラ状態侵食
			;支配汚染
			IF CFLAG:LCOUNT:3
				CALL POLLUTED_POSITION((CFLAG:LCOUNT:5) , 10, LCOUNT)
			;侵食汚染
			;掃除
			;察知されてると確定駆除
			ELSEIF CFLAG:LCOUNT:4
				IF CFLAG:LCOUNT:2 == 0
					CALL CLEAN_POSITION((CFLAG:LCOUNT:5) , 10, LCOUNT)
				ELSE
					CALL CLEAN_POSITION((CFLAG:LCOUNT:5) , 5, LCOUNT)
				ENDIF

			;察知されていないと確率駆除
			ELSE
				SIF !CFLAG:LCOUNT:2
					CALL CLEAN_POSITION((CFLAG:LCOUNT:5) , RAND:5, LCOUNT)
			ENDIF
		ELSEIF GETBIT(FLAG:(50+(CFLAG:LCOUNT:5)), 2)
			FLAG:(70+CFLAG:(FLAG:5):5) = 100
		ENDIF

		;初期宿主には元凶触手が寄生しているので必ず1以上になる
		SIF FLAG:(70+CFLAG:(FLAG:5):5) == 0
			FLAG:(70+CFLAG:(FLAG:5):5) = MAX(1, FLAG:(70+CFLAG:(FLAG:5):5))

		;■拠点所属の侵食状態化
		;厳戒態勢ではないPOSITIONの汚染度が0でなくなると所属が新たに侵食される
		IF CFLAG:LCOUNT:2 && FLAG:(70 + (CFLAG:LCOUNT:5)) > 0 && GETBIT(FLAG:(50 + (CFLAG:LCOUNT:5)) , 1) == 0 && GETBIT(FLAG:(50 + (CFLAG:LCOUNT:5)) , 4) == 0
			SETBIT FLAG:(50 + (CFLAG:LCOUNT:5)) , 1
			SETCOLOR 0xA260BF
			PRINTFORML %POSITION_NAME((CFLAG:LCOUNT:5))%正受到異變的侵蝕...
			;TranslatedMark %POSITION_NAME((CFLAG:LCOUNT:5))%は異変によって侵食された……
			RESETCOLOR

			;侵食されたターンは支配されない
			DCHECK:(CFLAG:LCOUNT:5) ++
		;拠点所属の侵食状態解除
		ELSEIF FLAG:(70 + (CFLAG:LCOUNT:5)) == 0 && GETBIT(FLAG:(50 + (CFLAG:LCOUNT:5)) , 1)
			CLEARBIT FLAG:(50 + (CFLAG:LCOUNT:5)) , 1
			PRINTFORML %POSITION_NAME((CFLAG:LCOUNT:5))%中的侵蝕被完全清除了...
			;TranslatedMark %POSITION_NAME((CFLAG:LCOUNT:5))%の侵食は完全に取り除かれた……
		ENDIF
		;■拠点の支配化チェック
		IF GETBIT(FLAG:(50+(CFLAG:LCOUNT:5)), 1)
			IF CFLAG:LCOUNT:3 == 0
				DCHECK:(CFLAG:LCOUNT:5) ++
			ENDIF
		ENDIF
		; 侵蝕？
		IF CFLAG:LCOUNT:2 && ITEM:80 && GETBIT(FLAG:(CFLAG:LCOUNT:5 + 50), 3) == 0
			SETBIT FLAG:(CFLAG:LCOUNT:5 + 50), 3
			PRINTFORML %POSITION_NAME(CFLAG:LCOUNT:5)%被%SAVESTR:0%封鎖了！
			;TranslatedMark %POSITION_NAME(CFLAG:LCOUNT:5)%は%SAVESTR:0%により封鎖されている！
		ENDIF
	ENDIF
NEXT

;拠点の支配化
;拠点の封鎖や厳戒態勢などの状態チェック
FOR LCOUNT , 1, 17
	IF DCHECK:LCOUNT > 0 && GETBIT(FLAG:(50+LCOUNT), 2)
		PRINTFORML %POSITION_NAME(LCOUNT)%在激烈的反抗中脱離了支配
		;TranslatedMark %POSITION_NAME(LCOUNT)%は抵抗により支配地域ではなくなった
		CLEARBIT FLAG:(50+LCOUNT), 2
		; =====自動暫停patch=====
		SIF CFLAG:49 == 1
		WAIT
	ELSEIF DCHECK:LCOUNT == 0 && GETBIT(FLAG:(50+LCOUNT), 2) == 0 && GETBIT(FLAG:(50+LCOUNT), 1)
		SETBIT FLAG:(50+LCOUNT), 2
		SETCOLOR 0xA260BF
		PRINTFORML %POSITION_NAME(LCOUNT)%在完全的壓制后成為了受支配的區域
		;TranslatedMark %POSITION_NAME(LCOUNT)%は完全に制圧されたため支配地域となった
		RESETCOLOR
		; =====自動暫停patch=====
		SIF CFLAG:49 == 1
		WAIT
	ELSEIF GETBIT(FLAG:(LCOUNT + 50), 2)
		CLEARBIT FLAG:(LCOUNT + 50), 4
	ENDIF
	IF DCHECK:LCOUNT == 0
		FLAG:(70 + LCOUNT) = 100
	ENDIF
NEXT


code:
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;各拠点のボタン表示
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@CHECK_STATUS_POSISION
#DIM LCOUNT,3	;ループ用
#DIM SELECT_POSITION

$INPUT_LOOP
PRINTL
PRINTFORML 要確認什麼地區？
FOR LCOUNT , 0, 17
	PRINTFORMLC [{LCOUNT + 1,3}] %POSITION_NAME(LCOUNT),18,LEFT%

	IF GETBIT(FLAG:(LCOUNT + 50), 2)
		PRINTFORM 支配
	ELSEIF GETBIT(FLAG:(LCOUNT + 50), 1)
		PRINTFORM 侵蝕
	ELSE
		PRINTFORM
	ENDIF
	IF GETBIT(FLAG:(LCOUNT + 50), 3)
		PRINTFORM 封鎖
	ELSE
		PRINTFORM
	ENDIF
	IF GETBIT(FLAG:(LCOUNT + 50), 4)
		PRINTFORM 厳戒
	ELSE
		PRINTFORM
	ENDIF
	PRINTL
NEXT

PRINTL
PRINTL
DRAWLINE
PRINTFORML [ 0] 返回

INPUT
SELECT_POSITION = RESULT

IF SELECT_POSITION == 0
	RETURN
ELSEIF SELECT_POSITION >= 1 && SELECT_POSITION <= 17
	CALL CHECK_STATUS_POSISION_GROUP(SELECT_POSITION - 1)
	GOTO INPUT_LOOP
ELSE
	PRINTFORML 輸入錯誤
	GOTO INPUT_LOOP
ENDIF

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;各拠点の所属者表示
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@CHECK_STATUS_POSISION_GROUP(SELECT_POSITION)
#DIM LCOUNT,3	;ループ用
#DIM SELECT_POSITION

$INPUT_LOOP
DRAWLINE
PRINTFORML %POSITION_NAME(SELECT_POSITION)%的状態
PRINTFORML %STR:(10 + SELECT_POSITION)%
PRINTFORML
PRINTL
PRINTFORML %POSITION_NAME(SELECT_POSITION)%的居民一覽
PRINTL
FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:5 == SELECT_POSITION
		IF CFLAG:LCOUNT:19
			SETCOLOR 0x70FF70
		ELSEIF CFLAG:LCOUNT:3
			SETCOLOR 0x2070FF
		ELSEIF CFLAG:LCOUNT:2
			SETCOLOR 0xF07090
			; 屈服支配侵蝕
		ENDIF
		PRINTFORMLC [{LCOUNT + 10,3}]  %CSVNAME(NO:LCOUNT),18,LEFT%
		RESETCOLOR
		PRINTL
	ENDIF
NEXT
FOR LCOUNT, 1, 13
	IF DB:SELECT_POSITION:LCOUNT
		PRINTFORML %POSITION_POLLUTED_NAME(LCOUNT),20,LEFT% {DB:SELECT_POSITION:LCOUNT}
	ENDIF
NEXT
PRINTL
PRINTL
DRAWLINE
PRINTFORML [ 0] 返回

INPUT

IF RESULT == 0
	RETURN
ELSEIF RESULT >= 11 && RESULT <= CHARANUM + 10
	CALL CHECK_STATUS(RESULT - 10)
	GOTO INPUT_LOOP
ELSE
	PRINTFORML 輸入錯誤
	GOTO INPUT_LOOP
ENDIF

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;呼称
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@POSITION_NAME(ARG:0)
#FUNCTIONS

SELECTCASE ARG:0
	CASE 0
		RETURNF "無所属"
	CASE 1
		RETURNF "博麗神社"
	CASE 2
		RETURNF "魔法之森"
	CASE 3
		RETURNF "琪露諾和愉快的夥伴們"
	CASE 4
		RETURNF "紅魔館"
	CASE 5
		RETURNF "迷途之家"
	CASE 6
		RETURNF "人里"
	CASE 7
		RETURNF "永遠亭"
	CASE 8
		RETURNF "月"
	CASE 9
		RETURNF "妖怪之山"
	CASE 10
		RETURNF "地霊殿"
	CASE 11
		RETURNF "命蓮寺"
	CASE 12
		RETURNF "仙界"
	CASE 13
		RETURNF "地獄"
	CASE 14
		RETURNF "天界"
	CASE 15
		RETURNF "幻想郷外"
	CASE 16
		RETURNF "魔界"

	CASEELSE
		RETURNF ""
ENDSELECT

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;拠点汚染呼称
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@POSITION_POLLUTED_NAME(ARG:0)
#FUNCTIONS

SELECTCASE ARG:0
	CASE 0
		RETURNF "觸手汚染指數"
	CASE 1
		RETURNF "史萊姆浸透指數"
	CASE 2
		RETURNF "獸類入侵指數"
	CASE 3
		RETURNF "植物繁茂指數"
	CASE 4
		RETURNF "鉱物感染指數"
	CASE 5
		RETURNF "蟲群繁殖指數"
	CASE 6
		RETURNF "百合百合指數"
	CASE 7
		RETURNF "正太性癖歪曲指數"
	CASE 8
		RETURNF "大叔満足指數"
	CASE 9
		RETURNF "催眠傳染指數"
	CASE 10
		RETURNF "工口入腦指數"
	CASE 11
		RETURNF "精神汚染指數"
	CASE 12
		RETURNF "扶他天堂指數"

	CASEELSE
		RETURNF ""
ENDSELECT


code:
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;指定キャラの詳細能力確認
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@CHECK_STATUS(CHARA_ID)
#DIM LCOUNT,3	;ループ用
#DIM CHARA_ID
#DIM PTID,3
;PTメンバID格納用
;ループ処理を容易にするために使用

#DIM MODE
;表示対象キャラ

#DIM TABN
;タブ位置
;0全般
;1素質
#DIM TABMAX
#DIM 入力
#DIM LINECOUNTBAK

#DIM LINEDEL
;行削除判定
#DIM LINEDELET
;削除する追加行数

#DIM NAMESTRSUM, 3

;タブの数を変える時はココ
IF FLAG:9
	TABMAX = 4
ELSE
	TABMAX = 3
ENDIF

MODE = 0
TABN = 0
LINEDEL = 0
LINEDELET = 0

$INPUT_LOOP
;＝＝＝描画処理ここから＝＝＝
REDRAW 2

;-----前表示消去-----
;基本的に47行消去、表示行数が多い場合それ以上
IF LINEDEL > 0
	IF LINEDEL == 1
		CLEARLINE 39 + LINEDELET
	ENDIF
	LINEDEL = 0
	LINEDELET = 0
ENDIF
DRAWLINEFORM =

	;-----選択キャラステータス------

	;---メイン---
	CALL SHOW_SIMPLE_STATUS(CHARA_ID)

	;---タブ（３行）---
	;ボタン割り当て10-19

	;タブ上部
	PRINTFORM
	PRINTFORM ┌
	FOR LCOUNT, 0, TABMAX
		PRINTFORM ──────
		IF LCOUNT < TABN
			PRINTFORM ┌
		ELSE
			PRINTFORM ┐
		ENDIF
	NEXT
	PRINTL

	;タブ中部
	PRINTFORM
	PRINTFORM │
	FOR LCOUNT, 0, TABMAX
		SETCOLOR LCOUNT == TABN ? 0xFFFF70 # 0x00FF00
		SELECTCASE LCOUNT
		CASE 0
			PRINTBUTTON "[10]總　體  ",10
		CASE 1
			PRINTBUTTON "[11]素　質  ",11
		CASE 2
			PRINTBUTTON "[12]刻　印  ",12
		CASEELSE
			PRINTBUTTON @"[{10+LCOUNT}]未定義  ",10 + LCOUNT
		ENDSELECT
		RESETCOLOR
		PRINTFORM │
	NEXT
	PRINTL

	;タブ下部
	PRINTFORM ─
	PRINTFORM \@TABN == 0?┘#┴\@
	FOR LCOUNT, 0, TABMAX
		PRINTFORM \@LCOUNT == TABN?　　　　　　#──────\@
		IF LCOUNT == TABN
			PRINTFORM └
		ELSEIF LCOUNT + 1 == TABN
			PRINTFORM ┘
		ELSE
			PRINTFORM ┴
		ENDIF

	NEXT

	FOR LCOUNT, 0, 6 - TABMAX
		PRINTFORM ───────
	NEXT
	PRINTL ─────

	;＝＝＝＝＝タブの内容表示ここから＝＝＝＝＝
	LINECOUNTBAK = LINECOUNT
	IF TABN == 0
		;全般
		;CALL CHECK_STATUS_TAB1(CHARA_ID)
		CALL CHECK_STATUS_TAB3(CHARA_ID)

	ELSEIF TABN == 1

		;素質
		CALL SHOW_TALENT_LIST(CHARA_ID)

	ELSEIF TABN == 2
		;刻印
		CALL SHOW_MARK_LIST(CHARA_ID)
	ENDIF

	;---余白自動調整---
	FOR LCOUNT, 0, 28 - (LINECOUNT - LINECOUNTBAK)
		PRINTL
	NEXT
	;---表示行数が多い場合記憶---
	IF 28 - (LINECOUNT - LINECOUNTBAK) < 0
		LINEDELET -= 28 - (LINECOUNT - LINECOUNTBAK)
	ENDIF

	;＝＝＝＝＝タブの内容表示ここまで＝＝＝＝＝
	DRAWLINE

	PRINTFORML [ 0] 返回

REDRAW 1
;＝＝＝入力処理ここから＝＝＝
INPUT
入力 = RESULT

IF 入力 == 0
	RETURN
ELSEIF 入力 >= 10 && 入力 <= (9 + TABMAX)
	TABN = 入力 - 10
	LINEDEL = 1
	GOTO INPUT_LOOP
ELSEIF 入力 == 20
	;愛称変更
	CALL CHECK_STATUS_CHANGE_CALLNAME(CHARA_ID)
	GOTO INPUT_LOOP
ELSE
	LINEDEL = 1
	GOTO INPUT_LOOP
ENDIF

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;全般表示用
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@CHECK_STATUS_TAB1(CHARA_ID)
#DIM CHARA_ID

;性格
CALL SHOW_PERSONALITY(CHARA_ID)

;能力
CALL SHOW_ABL_LIST(CHARA_ID)

;経験補足
PRINTFORM %@"絶頂次數：{EXP:(CHARA_ID):20}回",24,LEFT%
PRINTFORM %@"失禁次數：{EXP:(CHARA_ID):21}回",24,LEFT%
PRINTFORM %@"接吻次數：{EXP:(CHARA_ID):24}回",24,LEFT%
PRINTFORML %@"出産次數：{EXP:(CHARA_ID):22}回",32,LEFT%
PRINTFORM %@"産卵次數：{EXP:(CHARA_ID):23}回",24,LEFT%
PRINTFORML 自慰次數：{EXP:(CHARA_ID):25}回

PRINTFORM 鐘情自慰的部位
IF GETBIT(CFLAG:CHARA_ID:9,0)
	PRINTFORM A
ENDIF
IF GETBIT(CFLAG:CHARA_ID:9,1)
	PRINTFORM B
ENDIF
IF GETBIT(CFLAG:CHARA_ID:9,2)
	PRINTFORM C
ENDIF
IF GETBIT(CFLAG:CHARA_ID:9,3)
	PRINTFORM V
ENDIF
IF GETBIT(CFLAG:CHARA_ID:9,4)
	PRINTFORM M
ENDIF
PRINTFORML {CFLAG:CHARA_ID:9}
PRINTL
PRINTL

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;能力表示用
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@CHECK_STATUS_TAB3(CHARA_ID)
#DIM LCOUNT,3	;ループ用
#DIM CHARA_ID

;性格
PRINT
CALL SHOW_PERSONALITY(CHARA_ID)

PRINTL -基礎能力-
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 0)
PRINT 　￤
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 1)
PRINTL
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 2)
PRINT 　￤
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 3)
PRINTL
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 4)
PRINT 　￤
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 5)
PRINTL
PRINTL

PRINTL -部位感度-
;A
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 6)
PRINT …
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 101, 75
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		PRINTFORM %RESULTS%
	ENDSELECT
NEXT
PRINTL

;B
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 7)
PRINT …
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 102, 76, 107, 108, 109, 110, 158, 159, 162, 222 ,223
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		PRINTFORM %RESULTS%
	ENDSELECT
NEXT
PRINTL

;C
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 8)
PRINT …
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 103, 77, 121
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		PRINTFORM %RESULTS%
	ENDSELECT
NEXT
PRINTL

;V
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 9)
PRINT …
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 104, 78
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		PRINTFORM %RESULTS%
	ENDSELECT
NEXT
PRINTL

;M
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 10)
PRINT …
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 105, 79
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		PRINTFORM %RESULTS%
	ENDSELECT
NEXT
PRINTL
PRINTL

;-----ふたなり-----
IF GET_PENIS(CHARA_ID) & 4
	PRINTL -陰莖-
ELSE
	PRINTL -扶他-
ENDIF
;射精中毒
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 13)
PRINTL
PRINT …

LOCALS =
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 170, 171, 172, 173, 174, 175, 176, 177, 178, 180, 181, 185, 186, 187, 188
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		LOCALS += @"%RESULTS%"
	ENDSELECT
NEXT

STRLENFORM %LOCALS%
IF RESULT > 80
	SUBSTRING LOCALS, 0, 94
	PRINTFORML %RESULTS%
	SUBSTRING LOCALS, 94, -1
	PRINTFORM %RESULTS%

ELSE
	PRINTFORM %LOCALS%
ENDIF

PRINTL
PRINTL
;-----　-----

PRINTL -其他-
;自慰中毒
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 11)
PRINT 　￤
;触手中毒
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 12)
PRINTL
;レズ中毒
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 14)
PRINT 　￤
;精液中毒
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 15)
PRINTL
;噴乳中毒
CALL CHECK_STATUS_TAB_SUB1(CHARA_ID, 16)
FOR LCOUNT, 0, 300
	SELECTCASE LCOUNT
	CASE 130
		CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
		PRINTFORM %RESULTS%
	CASE 220
		IF TALENT:(CHARA_ID):130 >= 1
			CALL PERSONAL_TALENT(CHARA_ID, LCOUNT)
			PRINTFORM %RESULTS%
		ENDIF
	ENDSELECT
NEXT
PRINTL
PRINTL

;経験補足
PRINTFORM %@"絶頂次數：{EXP:(CHARA_ID):20}回",32,LEFT%
PRINTFORM %@"失禁次數：{EXP:(CHARA_ID):21}回",32,LEFT%
PRINTFORML 接吻次數：{EXP:(CHARA_ID):24}回

PRINTFORM %@"出産次數：{EXP:(CHARA_ID):22}回",32,LEFT%
PRINTFORML %@"産卵次數：{EXP:(CHARA_ID):23}回",32,LEFT%

PRINTFORML
PRINTFORML 自慰次數：{EXP:(CHARA_ID):25}回
IF EXP:(CHARA_ID):25 > 3
	PRINTFORM 鐘情部位
	IF GETBIT(CFLAG:CHARA_ID:9,0)
		PRINTFORM 後庭
	ENDIF
	IF GETBIT(CFLAG:CHARA_ID:9,1)
		PRINTFORM 胸部
	ENDIF
	IF GETBIT(CFLAG:CHARA_ID:9,2)
		PRINTFORM 花蕾
	ENDIF
	IF GETBIT(CFLAG:CHARA_ID:9,3)
		PRINTFORM 私處
	ENDIF
	IF GETBIT(CFLAG:CHARA_ID:9,4)
		PRINTFORM 口内
	ENDIF
ENDIF

;＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
;表示補佐
;ARG:0	キャラID
;ARG:1	能力ID
;＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
@CHECK_STATUS_TAB_SUB1(ARG:0, ARG:1)
#DIM LCOUNT,3	;ループ用
#DIM 現在値
#DIM 必要値

	;-----レベル表示-----
	PRINTFORM %ABLNAME:(ARG:1),8,LEFT% Lv{ABL:(ARG:0):(ARG:1)} EXP:

	;-----バー表示-----
	;現在の量
	現在値 = EXP:(ARG:0):(ARG:1)

	;次レベルに必要な量
	;※レベルMAXだと-1を返す
	CALL GET_NEED_EXP(ARG:1, ABL:(ARG:0):(ARG:1) + 1)
	必要値 = RESULT

	IF 必要値 <= 0
		CALL PRINT_COLORBAR( 1, 1, 15, BARCOLORSET("白"), RESULT:1)
	ELSE
		CALL PRINT_COLORBAR( 現在値, 必要値, 15, BARCOLORSET("白"), RESULT:1)
	ENDIF

	;-----数値表示-----
	;---現在値---
	;表示桁調整
	LOCAL = 0
	IF 現在値 > 999999
		FOR LCOUNT:1, 0, 5
			IF 現在値 > 999999
				現在値 /= 1000
				LOCAL += 1
			ENDIF
		NEXT
	ENDIF
	LOCALS:1 = {現在値}
	SELECTCASE LOCAL
		CASE 0

		CASE 1
			LOCALS:1 = %LOCALS:1%k
		CASE 2
			LOCALS:1 = %LOCALS:1%M
		CASE 3
			LOCALS:1 = %LOCALS:1%G
		CASE 4
			LOCALS:1 = %LOCALS:1%T
		CASE 5
			LOCALS:1 = %LOCALS:1%P
		CASE 6
			LOCALS:1 = %LOCALS:1%E
	ENDSELECT

	;---目標値---
	IF 必要値 <= 0
		LOCALS:2 = -----
	ELSE
		LOCALS:2 = {必要値}
	ENDIF

	;---表示---
	PRINTFORM (%LOCALS:1,7,RIGHT%/%LOCALS:2,5,RIGHT%)

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;呼称変更
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@CHECK_STATUS_CHANGE_CALLNAME(ARG:0)

	DRAWLINE
	PRINTFORML 請輸入給%CALLNAME:(ARG)%的愛稱（要取消的話請直接點Enter）
	INPUTS
	IF RESULTS == ""
		PRINTFORMW 已取消愛稱的變更
	ELSE
		PRINTFORMW %CALLNAME:(ARG)%的愛稱變更為%RESULTS%
		CALLNAME:(ARG) = %RESULTS%
	ENDIF


code:
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;現在の能力・EXPを表示
;ARG:0	対象キャラID
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@SHOW_ABL_LIST(ARG:0)
#DIM LCOUNT,3	;ループ用

;LOCAL
;1	NEXT
;2	EXP現在値

;全能力分
FOR LCOUNT, 0, 17

	;次レベルに必要な量
	CALL GET_NEED_EXP(LCOUNT, ABL:(ARG:0):(LCOUNT) + 1)
	LOCAL:1 = RESULT

	;現在の量
	LOCAL:2 = EXP:(ARG:0):(LCOUNT)

	;次のレベルがあるかどうか
	IF LOCAL:1 > 0

		PRINTFORMLC %ABLNAME:(LCOUNT),8,LEFT% Lv{ABL:(ARG:0):(LCOUNT)} (EXP {LOCAL:2,6}/{LOCAL:1,5})

	ELSE
		LOCALS =
		;表示桁調整
		IF LOCAL:2 > 999999
			LOCAL = 0
			FOR LCOUNT:1, 0, 5
				IF LOCAL:2 > 999999
					LOCAL:2 /= 1000
					LOCAL += 1
				ENDIF
			NEXT
			SELECTCASE LOCAL
				CASE 0
					LOCALS =
				CASE 1
					LOCALS = k
				CASE 2
					LOCALS = M
				CASE 3
					LOCALS = G
				CASE 4
					LOCALS = T
				CASE 5
					LOCALS = P
				CASE 6
					LOCALS = E
			ENDSELECT
		ENDIF

		PRINTFORMLC %ABLNAME:(LCOUNT),8,LEFT% Lv{ABL:(ARG:0):(LCOUNT)} (EXP%@"{LOCAL:2,6}%LOCALS%",7,RIGHT%/-----)
	ENDIF

	;最後以外は３つごとに改行
	SIF (LCOUNT % 3) == 2 && LCOUNT != 15
		PRINTL
NEXT
PRINTL
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡


code:
;現在の刻印を表示

@SHOW_MARK_LIST(ARG:0)
;ARG:0	対象キャラID

PRINTFORML 已獲得的屈服刻印
FOR LOCAL:0, 0, 22
	IF MARK:(ARG:0):(LOCAL:0)
		IF LOCAL:0 != 20
			PRINTFORM %MARKNAME:(LOCAL:0),16,LEFT%
		ENDIF
		IF CFLAG:(ARG:0):(210 + LOCAL:0)
			PRINTFORM 第{CFLAG:(ARG:0):(210 + LOCAL:0)}日
		ENDIF
		PRINTFORML 銘刻在了心中
	ELSE
		SETCOLOR 0x333333
		PRINTFORML ---
		RESETCOLOR
	ENDIF
NEXT
PRINTL


code:
;対象の性格を表示
;ARG:0	対象キャラID
@SHOW_PERSONALITY(ARG:0)

PRINTFORM 性格：

IF CFLAG:(ARG:0):12 <= -40
	PRINTFORM 超弱勢
	;TranslatedMark 超弱気
ELSEIF CFLAG:(ARG:0):12 <= -20
	PRINTFORM 弱勢
	;TranslatedMark 弱気
ELSEIF CFLAG:(ARG:0):12 <= 19
	PRINTFORM 普通
ELSEIF CFLAG:(ARG:0):12 <= 39
	PRINTFORM 強勢
	;TranslatedMark 強気
ELSE
	PRINTFORM 超強勢
	;TranslatedMark 超強気
ENDIF

;○○な～～　という形にするので、性格の最初に「な」を入れておく
;一部は「な」だと変なので別の接続詞を使う
SELECTCASE CFLAG:(ARG:0):100
	CASE 1
		PRINTFORML 的多事者
		;TranslatedMark なおせっかい
	CASE 2
		PRINTFORML 的頑皮鬼
		;TranslatedMark なおてんば
	CASE 3
		PRINTFORML 的老頑固
		;TranslatedMark ながんこもの
	CASE 4
		PRINTFORML 的努力家
		;TranslatedMark ながんばりや
	CASE 5
		PRINTFORML 的強力幹將
		;TranslatedMark なきれもの
	CASE 6
		PRINTFORML 的苦勞人
		;TranslatedMark なくろうにん
	CASE 7
		PRINTFORML 的幸運兒
		;TranslatedMark なしあわせもの
	CASE 8
		PRINTFORML 的性感辣妹
		;TranslatedMark なセクシーギャル
	CASE 9
		PRINTFORML 的完美主義者
		;TranslatedMark でぬけめがない
	CASE 10
		PRINTFORML 的熱血鬥士
		;TranslatedMark なねっけつかん
	CASE 11
		PRINTFORML 的悠哉人
		;TranslatedMark なのんきもの
	CASE 12
		PRINTFORML 的内向角色
		;TranslatedMark なひっこみじあん
	CASE 13
		PRINTFORML 的温暖之人
		;TranslatedMark なやさしいひと
	CASE 14
		PRINTFORML 的隨性主義者
		;TranslatedMark なわがまま
	CASEELSE
		;普通なふつう　が割と居る気がする
		;気に入らない場合（嫁キャラな場合）は自分でCSV弄ってあげてください…
		PRINTFORML 的一般人
		;TranslatedMark なふつう
ENDSELECT


code:
;=================================================
;キャラの簡易ステータス表示
;ARG:0	表示するキャラのID
;=================================================
@SHOW_SIMPLE_STATUS(ARG:0)
#DIM LCOUNT,3  ;ループ用

	;---名前---
	;行動不能時は文字を暗く
	SIF TFLAG:13
		SETCOLOR 0x505050
	PRINTFORM %"【"+CALLNAME:(ARG:0)+"】", 15, LEFT%
	;---能力---
	LOCAL = LIMIT (ABL:(ARG:0):98, 0, 9999)
	PRINTFORM (戰鬥{LOCAL, 4})
	RESETCOLOR
	LOCALS = %""%
	RESETCOLOR

	;------
	PRINTL

	;---HP---
	PRINTFORM HP
	CALL PRINT_COLORBAR(BASE:(ARG:0):HP, MAXBASE:(ARG:0):HP, 10, BARCOLORSET("青緑"), RESULT:1)
	LOCAL = LIMIT (BASE:(ARG:0):HP, 0, 99999)
	LOCAL:1 = LIMIT (MAXBASE:(ARG:0):HP, 0, 99999)
	PRINTFORM  ({LOCAL, 5}/{LOCAL:1, 5})
	;---EP---
	PRINTFORM EP
	CALL PRINT_COLORBAR(BASE:(ARG:0):2, MAXBASE:(ARG:0):2, 10, BARCOLORSET("紫"), RESULT:1)
	PRINTFORM  ({BASE:(ARG:0):2, 5}/{MAXBASE:(ARG:0):2, 5})
	;---MP---
	PRINTFORM MP
	CALL PRINT_COLORBAR(BASE:(ARG:0):MP, MAXBASE:(ARG:0):MP, 10, BARCOLORSET("緑"), RESULT:1)
	LOCAL = LIMIT (BASE:(ARG:0):MP, 0, 99999)
	LOCAL:1 = LIMIT (MAXBASE:(ARG:0):MP, 0, 99999)
	PRINTFORM  ({LOCAL, 5}/{LOCAL:1, 5})
	;------
	PRINTL

	;---PP---
	PRINTFORM PP
	CALL PRINT_COLORBAR(BASE:(ARG:0):PP, MAXBASE:(ARG:0):PP, 10, BARCOLORSET("黄"), RESULT:1)
	LOCAL = LIMIT (BASE:(ARG:0):PP, 0, 99999)
	LOCAL:1 = LIMIT (MAXBASE:(ARG:0):PP, 0, 99999)
	PRINTFORM  ({LOCAL, 5}/{LOCAL:1, 5})
	;---SP---
	PRINTFORM SP
	CALL PRINT_COLORBAR(BASE:(ARG:0):SP, MAXBASE:(ARG:0):SP, 10, BARCOLORSET(""), RESULT:1)
	LOCAL = LIMIT (BASE:(ARG:0):SP, 0, 99999)
	LOCAL:1 = LIMIT (MAXBASE:(ARG:0):SP, 0, 99999)
	PRINTFORM  ({LOCAL, 5}/{LOCAL:1, 5})

	;---TP---

	IF MAXBASE:(ARG:0):TP == 0
		MAXBASE:(ARG:0):TP = 200
	ENDIF
	PRINTFORM TP
	IF BASE:(ARG:0):TP <= 50
		LOCAL = BARCOLORSET("青")
		LOCAL:1 = RESULT:1
	ELSEIF BASE:(ARG:0):TP <= 80
		LOCAL = BARCOLORSET("薄青")
		LOCAL:1 = RESULT:1
	ELSEIF BASE:(ARG:0):TP >= 150
		LOCAL = BARCOLORSET("赤")
		LOCAL:1 = RESULT:1
	ELSEIF BASE:(ARG:0):TP >= 120
		LOCAL = BARCOLORSET("薄赤")
		LOCAL:1 = RESULT:1
	ELSE
		LOCAL = BARCOLORSET("白")
		LOCAL:1 = RESULT:1
	ENDIF
	CALL PRINT_COLORBAR(BASE:(ARG:0):TP, MAXBASE:(ARG:0):TP, 10, LOCAL, LOCAL:1)
	PRINTFORM  ({BASE:(ARG:0):4,3})
	PRINTFORM %" ", 10%

	;------
	PRINTL

;=================================================
;=================================================
;ステータス表示用区切り（縦掛線）
;=================================================
@BORDERH
SETCOLOR 0x555555
PRINT |
RESETCOLOR

;=================================================
;ステータス表示用区切り（横掛線）
;=================================================
@BORDERL
SETCOLOR 0x555555
DRAWLINE
RESETCOLOR

;=================================================
;全キャラステータス表示テンプレ<0>
;=================================================
@SHOW_1LINE_STATUS_TEMPLATE_0
;表示する名前の最大文字数(半角は1、全角は2で数える)
#DIM LIMIT_NAME_LETTER = 18
SPLIT "No.,名字,MP,好感度,所在,退場,修養,戰鬥,速度,汚漬,ＡＢＣＶ肌Ｍ", ",", LOCALS

CALL BORDERL
;キャラ番号
PRINTFORM %LOCALS:0,5,LEFT%
CALL BORDERH
;名前
PRINTFORM %LOCALS:1,LIMIT_NAME_LETTER,LEFT%
CALL BORDERH
;MP
PRINTFORM %LOCALS:2,12,LEFT%
CALL BORDERH
;好感度
PRINTFORM %LOCALS:3,6,LEFT%
CALL BORDERH
;現在地
PRINTFORM %LOCALS:4,2,LEFT%
CALL BORDERH
;リタイアフラグ
PRINTFORM %LOCALS:5,2,LEFT%
CALL BORDERH
;復活までの残り時間
PRINTFORM %LOCALS:6,2,LEFT%
CALL BORDERH
;戦闘値
PRINTFORM %LOCALS:7,4,LEFT%
CALL BORDERH
;速度
PRINTFORM %LOCALS:8,4,LEFT%
CALL BORDERH
;汚れ
PRINTFORM %LOCALS:9,2,LEFT%
CALL BORDERH
;各部位感度（ＡＢＣＶ肌Ｍ）
PRINTFORM %LOCALS:10,12,LEFT%
CALL BORDERH
PRINTL
CALL BORDERL

;=================================================
;全キャラステータス表示テンプレ<1>
;=================================================
@SHOW_1LINE_STATUS_TEMPLATE_1
;表示する名前の最大文字数(半角は1、全角は2で数える)
#DIM LIMIT_NAME_LETTER = 18
SPLIT "No.,名字,素質(胸・淫亂陥落系),植入,状態異常", ",", LOCALS

CALL BORDERL
;キャラ番号
PRINTFORM %LOCALS:0,5,LEFT%
CALL BORDERH
;名前
PRINTFORM %LOCALS:1,LIMIT_NAME_LETTER,LEFT%
CALL BORDERH
;素質(胸・淫乱陥落系)
PRINTFORM %LOCALS:2,20,LEFT%
CALL BORDERH
;インプラント
PRINTFORM %LOCALS:3,18,LEFT%
CALL BORDERH
;状態異常
PRINTFORM %LOCALS:4,30,LEFT%
PRINTL
CALL BORDERL

;=================================================
;全キャラステータス表示テンプレ<2> 妊娠寄生管理用
;=================================================
@SHOW_1LINE_STATUS_TEMPLATE_2
;表示する名前の最大文字数(半角は1、全角は2で数える)
#DIM LIMIT_NAME_LETTER = 18
SPLIT "No.,名字,Ｖ寄生／妊娠,Ａ寄生,Ｂ寄生,Ｃ寄生,Ｃ妊娠", ",", LOCALS

CALL BORDERL
;キャラ番号
PRINTFORM %LOCALS:0,5,LEFT%
CALL BORDERH
;名前
PRINTFORM %LOCALS:1,LIMIT_NAME_LETTER,LEFT%
CALL BORDERH
;V寄生妊娠
PRINTFORM %LOCALS:2,15,LEFT%
;A寄生
PRINTFORM %"",3,LEFT%
PRINTFORM %LOCALS:3,11,LEFT%
;B寄生
PRINTFORM %"",4,LEFT%
PRINTFORM %LOCALS:4,11,LEFT%
;C寄生
PRINTFORM %"",4,LEFT%
PRINTFORM %LOCALS:5,11,LEFT%
;C妊娠
PRINTFORM %"",4,LEFT%
PRINTFORM %LOCALS:6,11,LEFT%
PRINTL
CALL BORDERL

;=================================================
;キャラの1行ステータス表示<0>
;ARG:0	表示するキャラのID
;=================================================
@SHOW_1LINE_STATUS_0(CHARA_ID)
#DIM CHARA_ID

	;共通部分(No.+名前)
	CALL SHOW_1LINE_STATUS_COMMON(CHARA_ID)
	;---MP---
	;表示するのは0～99999まで
	LOCAL:0 = LIMIT(BASE:(CHARA_ID):MP, 0, 99999)
	LOCAL:1 = LIMIT(MAXBASE:(CHARA_ID):MP, 0, 99999)
	;MPが0なら赤
	SIF LOCAL == 0
		SETCOLOR 0xA00000
	PRINTFORM {LOCAL, 5}／{LOCAL:1, 5}
	RESETCOLOR
	CALL BORDERH
	;好感度
	;マイナスなら赤
	SIF CFLAG:(CHARA_ID):5 < 0
		SETCOLOR 0xA00000
	;表示するのは-99999～999999まで
	LOCAL:0 = LIMIT(CFLAG:(CHARA_ID):5, -99999, 999999)
	PRINTFORM {LOCAL:0,6}
	RESETCOLOR
	CALL BORDERH
	;---現在地---
	;隔離部屋に居るなら赤
	SIF CFLAG:(CHARA_ID):4 == 59
		SETCOLOR 0xA00000
	PRINTFORM {CFLAG:(CHARA_ID):4,2}
	RESETCOLOR
	CALL BORDERH
	;---リタイアフラグ---
	;リタイアしているなら赤い丸を表示、していないなら何も表示しない
	IF CFLAG:(CHARA_ID):2 > 0
		SETCOLOR 0xA00000
		PRINTFORM ●
	ELSE
		PRINTFORM %"", 2%
	ENDIF
	RESETCOLOR
	CALL BORDERH
	;---復活までの残り時間---
	;復活待ちなら数を表示、生きているなら何も表示しない
	IF CFLAG:(CHARA_ID):3 > 0
		PRINTFORM {CFLAG:(CHARA_ID):3,2}
	ELSE
		PRINTFORM %"", 2%
	ENDIF
	CALL BORDERH
	;---能力---
	;表示するのは0～9999まで
	LOCAL:0 = LIMIT(ABL:(CHARA_ID):98, 0, 9999)
	LOCAL:1 = LIMIT(ABL:(CHARA_ID):97, 0, 9999)
	PRINTFORM {LOCAL, 4}
	CALL BORDERH
	PRINTFORM {LOCAL:1, 4}
	CALL BORDERH
	;---汚れの状況を表示---
	LOCALS = %""%
	IF BASE:(CHARA_ID):5 >= 100
		SETCOLOR 0xEE1010
		LOCALS = 強
	ELSEIF BASE:(CHARA_ID):5 >= 60
		SETCOLOR 0xEE10EE
		LOCALS = 中
	ELSEIF BASE:(CHARA_ID):5 >= 30
		SETCOLOR 0xEEEE10
		LOCALS = 軽
	ENDIF
	PRINTFORM %LOCALS, 2, LEFT%
;	LOCALS = %""%
	RESETCOLOR
	CALL BORDERH
	;---各部位感度---
	TRYCALL PRINT_TALENT_SENSITIVITY_S(CHARA_ID)
	PRINTFORM %"", 12 - RESULT%
	RESETCOLOR
	CALL BORDERH

;=================================================

;=================================================
;キャラの1行ステータス表示(共用する項目)
;ARG:0	表示するキャラのID
;=================================================
@SHOW_1LINE_STATUS_COMMON(CHARA_ID)
;表示する名前の最大文字数(半角は1、全角は2で数える)
#DIM LIMIT_NAME_LETTER = 18
#DIM CHARA_ID

	;---キャラ番号---
	PRINTFORM [{CHARA_ID, 3}]
	;---名前---

	;喪失しているなら赤
	SIF CFLAG:(CHARA_ID):29 >= 1
		SETCOLOR 0xA00000
	;リタイアしているならグレー
	SIF CFLAG:(CHARA_ID):2 >= 1
		SETCOLOR 0x555555
	;復活待ちなら青
	SIF CFLAG:(CHARA_ID):3 >= 1
		SETCOLOR 0x2070FF
	;名前の文字数が最大文字数を超えた場合、全角カナを半角カナに変換する
	STRLENS CALLNAME:(CHARA_ID)
	IF RESULT:0 > LIMIT_NAME_LETTER
		TOHALF CALLNAME:(CHARA_ID)
		;変換処理後でも最大文字数を超えたなら、はみ出た分だけ末尾を削除する
		STRLENS RESULTS:0
		IF RESULT:0 > LIMIT_NAME_LETTER
			SUBSTRING RESULTS:0, 0, LIMIT_NAME_LETTER
			;削除後の文字の末尾が全角文字で半角はみ出た場合、さらに1文字削る
			STRLENS RESULTS:0
			IF RESULT:0 > LIMIT_NAME_LETTER
				SUBSTRING RESULTS:0, 0, LIMIT_NAME_LETTER - 1
				PRINTFORM %RESULTS:0, LIMIT_NAME_LETTER, LEFT%
			ELSE
				PRINTFORM %RESULTS:0, LIMIT_NAME_LETTER, LEFT%
			ENDIF
		ELSE
			PRINTFORM %RESULTS:0, LIMIT_NAME_LETTER, LEFT%
		ENDIF
	ELSE
		PRINTFORM %""+CALLNAME:(CHARA_ID)+"", LIMIT_NAME_LETTER, LEFT%
	ENDIF
	RESETCOLOR
	CALL BORDERH


code:
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;現在の素質を表示
;ARG:0	対象キャラID
;ARG:1	素質のみ表示
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@SHOW_TALENT_LIST(ARG:0, ARG:1 = 0)
#DIM LCOUNT,3	;ループ用

;LOCAL
;0	表示素質数

LOCAL = 0
FOR LCOUNT, 0, 300

	RESULTS =
	CALL PERSONAL_TALENT(ARG, LCOUNT)
	LOCALS = %RESULTS%

	;表示できる素質があれば表示
	IF LOCALS != ""
		IF ARG:1 == 0
			PRINTFORM %LOCALS:0,16,LEFT%
			CALL SHOW_TALENT_EXPLAIN(LCOUNT, TALENT:(ARG):(LCOUNT))
			PRINTL
		ELSE
			;図鑑のキャラ説明などでは改行と説明を抜く
			PRINTFORM %LOCALS:0%
			SIF (LOCAL % 6) == 5
				PRINTL
		ENDIF
		LOCAL++
	ENDIF
NEXT

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;素質名＿キャラの状態等を考慮する場合
;ARG:0	キャラID
;ARG:1	素質ID
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@PERSONAL_TALENT(ARG:0, ARG:1)
;特殊な条件はこっちで
;表示されない場合の条件を入れる

RESULTS =

;超乳の表示にはコンフィグの許可が必要
SIF ARG:1 == 158 && FLAG:521 >= 1
	RETURN
;超々乳の表示にはコンフィグの許可が必要
SIF ARG:1 == 222 && FLAG:521 >= 1
	RETURN
;接地乳房の表示にはコンフィグの許可が必要
SIF ARG:1 == 223 && FLAG:521 >= 1
	RETURN

;排卵異常を表示するにはコンフィグの許可が必要
SIF ARG:1 == 137 && FLAG:535 == 0
	RETURN

;拡張乳腺を表示するにはコンフィグの許可が必要
SIF ARG:1 == 162 && FLAG:507 < 1
	RETURN

;ふたなり系素質の表示には[ふたなり]が必要
SIF ARG:1 >= 170 && ARG:1 <= 188 && GET_PENIS(ARG:0) < 1
	RETURN

CALL TALENT_NAME(ARG:1, TALENT:(ARG):(ARG:1))
RETURN
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;素質名＿値によって名前が変わるタイプの素質に対応する場合
;ARG:0	素質ID
;ARG:1	素質値（値によって名前が変わる物があるので）
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@TALENT_NAME(ARG:0, ARG:1)
;※ここでは引数以外の値（特殊な条件）等は参照しない

IF ARG:1 == 0
	RESULTS =
	RETURN
ENDIF

LOCALS =
SELECTCASE ARG

	;体型
	CASE 100
		IF ARG:1 == 2
			LOCALS = [小人体型]
		ELSEIF ARG:1 == 1
			LOCALS = [小柄体型]
		ENDIF

	;各部位感度
	CASE 101 TO 106
		;部位
		IF ARG == 101
			LOCALS = [Ａ
		ELSEIF ARG == 102
			LOCALS = [Ｂ
		ELSEIF ARG == 103
			LOCALS = [Ｃ
		ELSEIF ARG == 104
			LOCALS = [Ｖ
		ELSEIF ARG == 105
			LOCALS = [Ｍ
		ELSEIF ARG == 106
			LOCALS = [肌
		ENDIF
		;感度
		IF ARG:1 <= -1
			LOCALS += "鈍感]"
		ELSEIF ARG:1 == 1
			LOCALS += "敏感]"
		ELSEIF ARG:1 == 2
			LOCALS += "過敏]"
		ELSEIF ARG:1 >= 3
			LOCALS += "異常過敏]"
		ENDIF

	;動物耳
	CASE 124
		LOCALS = [動物耳
		IF ARG:1 >= 2
			LOCALS += "★]"
		ELSE
			LOCALS += "]"
		ENDIF
	;母乳体質
	CASE 130
		LOCALS = [母乳
		IF ARG:1 == 1
			LOCALS += "体質]"
		ELSEIF ARG:1 == 2
			LOCALS += "分泌過多]"
		ELSEIF ARG:1 == 3
			LOCALS += "異常分泌]"
		ELSEIF ARG:1 == 4
			LOCALS += "製造装置]"
		ELSEIF ARG:1 == 5
			LOCALS += "間欠泉]"
		ELSEIF ARG:1 >= 6
			LOCALS += "活火山]"
		ENDIF

	;排卵異常
	CASE 137
		IF ARG:1 == -1
			LOCALS = [未熟卵巣]
		ELSEIF ARG:1 == 1
			LOCALS = [異常排卵巣]
		ELSEIF ARG:1 == 2
			LOCALS = [肥大化卵巣]
		ELSEIF ARG:1 == 3
			LOCALS = [苗床卵巣]
		ENDIF

	;ペット
	CASE 140
		IF ARG:1 == 1
			LOCALS = [ペット]
		ELSEIF ARG:1 == 2
			LOCALS = [花嫁]
		ELSEIF ARG:1 == 3
			LOCALS = [しもべ]
		ENDIF

	;超乳
	CASE 158
		LOCALS = [超乳
		IF ARG:1 == 1
			LOCALS += "]"
		ELSEIF ARG:1 >= 2
			LOCALS += "+" + TOSTR(ARG:1-1) + "]"
		ENDIF

	;浄化知識
	CASE 160
		IF ARG:1 == 1
			LOCALS = [浄化
		ELSEIF ARG:1 == 2
			LOCALS = [結界
		ENDIF
		LOCALS += "知識]"

	;体術習熟
	CASE 161
		IF ARG:1 == 1
			LOCALS = [体術
		ELSEIF ARG:1 == 2
			LOCALS = [剣術
		ENDIF
		LOCALS += "習熟]"

	;拡張乳腺
	CASE 162
		LOCALS = [拡張乳腺
		IF ARG:1 == 1
			LOCALS += "]"
		ELSEIF ARG:1 >= 2
			LOCALS += "+" + TOSTR(ARG:1-1) + "]"
		ENDIF

	;術式知識
	CASE 164
		IF ARG:1 == 1
			LOCALS = [波動感知]
		ELSEIF ARG:1 == 2
			LOCALS = [術式知識]
		ENDIF

	;神気
	CASE 168
		IF ARG:1 == 1
			LOCALS = [神気]
		ELSEIF ARG:1 == 2
			LOCALS = [神の血]
		ENDIF

	;------ここから、ふたなり系素質※[ふたなり]時のみ有効-----
	;竿の長さ
	CASE 170
		IF ARG:1 == -1
			LOCALS = [短小]
		ELSEIF ARG:1 == 1
			LOCALS = [巨根]
		ELSEIF ARG:1 == 2
			LOCALS = [爆根]
		ELSEIF ARG:1 == 3
			LOCALS = [超巨根]
		ENDIF

	;精力
	CASE 172
		IF ARG:1 == -1
			LOCALS = [精力薄弱]
		ELSEIF ARG:1 == 1
			LOCALS = [絶倫]
		ELSEIF ARG:1 == 2
			LOCALS = [超絶倫]
		ENDIF

	;包茎
	CASE 173
		IF ARG:1 == 1
			LOCALS = [剥けかけ]
		ELSEIF ARG:1 == 2
			LOCALS = [仮性包茎]
		ELSEIF ARG:1 == 3
			LOCALS = [真性包茎]
		ENDIF

	;先天的
	CASE 176
		IF ARG:1 == 1
			LOCALS = [先天的ふたなり]
		ELSEIF ARG:1 == 2
			LOCALS = [後天的ふたなり]
		ENDIF
	;早漏
	CASE 178
		IF ARG:1 == -1
			LOCALS = [遅漏]
		ELSEIF ARG:1 == 1
			LOCALS = [早漏]
		ENDIF

	;玉
	CASE 180
		IF ARG:1 == 1
			LOCALS = [玉あり]
		ELSEIF ARG:1 == 2
			LOCALS = [巨玉]
		ELSEIF ARG:1 == 3
			LOCALS = [爆玉]
		ELSEIF ARG:1 == 4
			LOCALS = [超巨玉]
		ELSEIF ARG:1 == 11
			LOCALS = [片玉]
		ELSEIF ARG:1 == 12
			LOCALS = [片巨玉]
		ELSEIF ARG:1 == 13
			LOCALS = [片爆玉]
		ELSEIF ARG:1 == 14
			LOCALS = [超片巨玉]
		ENDIF

	;毛
	CASE 181
		IF ARG:1 == 1
			LOCALS = [毛玉]
		ELSEIF ARG:1 == 2
			LOCALS = [剛毛玉]
		ENDIF

	;液量
	CASE 185
		IF ARG:1 == -1
			LOCALS = [少量射精]
		ELSEIF ARG:1 == 1
			LOCALS = [大量射精]
		ELSEIF ARG:1 == 2
			LOCALS = [超大量射精]
		ENDIF

	;濃度
	CASE 186
		IF ARG:1 == -1
			LOCALS = [精液薄め]
		ELSEIF ARG:1 == 1
			LOCALS = [精液濃厚]
		ELSEIF ARG:1 == 2
			LOCALS = [精液特濃]
		ENDIF
	;-----ここまで、ふたなり系素質-----
	;羽
	CASE 213
		IF ARG:1 == 1
			LOCALS = [羽]
		ELSEIF ARG:1 == 2
			LOCALS = [翼]
		ENDIF
	;尻尾
	CASE 215
		IF (ARG:1 % 10) == 1
			LOCALS = [尻尾
		ELSEIF (ARG:1 % 10) == 2
			LOCALS = [もふ尻尾
		ENDIF
		IF ARG:1 >= 10
			LOCALS += "★]"
		ELSE
			LOCALS += "]"
		ENDIF
	;母乳粘度
	CASE 220
		IF ARG:1 == 1
			LOCALS = [さらさら母乳]
		ELSEIF ARG:1 == 2
			LOCALS = [とろとろ母乳]
		ELSEIF ARG:1 == 3
			LOCALS = [ねっとり母乳]
		ELSEIF ARG:1 == 4
			LOCALS = [こくまろ母乳]
		ELSEIF ARG:1 == 5
			LOCALS = [特濃母乳]
		ELSEIF ARG:1 >= 6
			LOCALS = [超特濃母乳]
		ENDIF
	;超々乳
	CASE 222
		LOCALS = [超々乳
		IF ARG:1 == 1
			LOCALS += "]"
		ELSEIF ARG:1 >= 2
			LOCALS += "+" + TOSTR(ARG:1-1) + "]"
		ENDIF
	;接地乳房
	CASE 223
		LOCALS = [接地乳房
		IF ARG:1 == 1
			LOCALS += "]"
		ELSEIF ARG:1 >= 2
			LOCALS += "+" + TOSTR(ARG:1-1) + "]"
		ENDIF

	CASEELSE
		LOCALS = [%TALENTNAME:(ARG)%]

ENDSELECT

RESULTS = %LOCALS%
RETURN
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
;素質の詳細を表示
;ARG:0	素質ID
;ARG:1	素質の強さ（感度で利用）
;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
@SHOW_TALENT_EXPLAIN(ARG:0, ARG:1)

;一部の説明はわざと省略
SELECTCASE ARG:0
	CASE 0
		PRINTFORM V属性の攻撃を受けた際に処女喪失し、MPに大ダメージを受けます
	CASE 10
		PRINTFORM 尋問に弱くなります
	CASE 11
		PRINTFORM 尋問に強くなります
	CASE 12
		PRINTFORM 精神的なダメージが90％に減ります
	CASE 13
		PRINTFORM MPSPダメージが110％に増えます
	CASE 14
		PRINTFORM
	CASE 15
		PRINTFORM
	CASE 16
		PRINTFORM 尋問成功率が低下しPP回復量が増加します
	CASE 17
		PRINTFORM
	CASE 18
		PRINTFORM
	CASE 20
		PRINTFORM
	CASE 21
		PRINTFORM
	CASE 22
		PRINTFORM
	CASE 23
		PRINTFORM 探索の成功率が上がります
	CASE 24
		PRINTFORM SPダメージが増加します
	CASE 25
		PRINTFORM
	CASE 26
		PRINTFORM
	CASE 27
		PRINTFORM 各種感覚・中毒の能力が上がりづらくなります
	CASE 28
		PRINTFORM
	CASE 30
		PRINTFORM
	CASE 31
		PRINTFORM
	CASE 32
		PRINTFORM
	CASE 33
		PRINTFORM
	CASE 34
		PRINTFORM 敵の拘束から抜け出しやすくなります　また、拘束中にTPが上がりやすくなります
	CASE 35
		PRINTFORM PPダメージが増加します
	CASE 36
		PRINTFORM PPダメージが減少します
	CASE 40
		PRINTFORM HPダメージが1割増加し、TPも変化しやすくなります
	CASE 41
		PRINTFORM HPダメージを1割軽減します
	CASE 42
		PRINTFORM A・V属性の攻撃を受けた際のEPダメージが増加し、MPダメージを軽減します
	CASE 43
		PRINTFORM A・V属性の攻撃を受けた際のEPダメージを軽減します
	CASE 50
		PRINTFORM 弾幕戦闘・道具戦闘が上がりやすくなります
	CASE 51
		PRINTFORM 気配察知・危機回避が上がりやすくなり、弾幕戦闘・道具戦闘が上がりづらくなります
	CASE 52
		PRINTFORM 話術が上がりやすくなります
	CASE 53
		PRINTFORM 消耗武器による攻撃力が上がります
	CASE 54
		PRINTFORM M感覚が上がりやすくなります
	CASE 55
		PRINTFORM 探索時に回復アイテムなどを手に入れる確率が上がります
	CASE 56
		PRINTFORM 睡眠・発情になる確率が下がります
	CASE 57
		IF FLAG:521 == 0
			PRINTFORM NPが溜まりやすくなり、愛液が出やすくなります。
		ELSE
			PRINTFORM NPが溜まりやすくなり、おもらしもしやすくなります。
		ENDIF
	CASE 60
		PRINTFORM 自慰が発生しやすくなります
	CASE 61
		PRINTFORM 丸呑み拘束中にTPが下がらなくなります
	CASE 62
		PRINTFORM 丸呑み拘束中にTPが変化しやすくなります
	CASE 63
		PRINTFORM 前に出ても友好度が下がらず、回避率も下がらなくなります
	CASE 70
		PRINTFORM 性攻撃を受けた際に、TPが上がりやすくなります
	CASE 71
		PRINTFORM 各種感覚の能力が上がりづらくなります
	CASE 72
		PRINTFORM 各種中毒の能力が上がりやすくなります
	CASE 73
		PRINTFORM 悪堕ちさせられ普段の姿は偽装です
	CASE 74
		PRINTFORM 快楽に負け、牝へと堕ちた烙印です。
	CASE 75
		PRINTFORM 排泄するだけでイきそうになる、出口兼入口です
	CASE 76
		IF FLAG:507 > 0
			PRINTFORM 乳暈は下品に肥大し、乳首は太く長く成長しきっています
		ELSE
			PRINTFORM 乳暈は張り出す様に肥大し、乳首も太く長く肥大しています
		ENDIF
	CASE 77
		PRINTFORM 成長しすぎた醜い程の淫核は剥き出しの弱点そのものです
	CASE 78
		PRINTFORM どれだけ精を注がれても満たされることのない哀れな肉穴です
	CASE 79
		PRINTFORM キスするだけで体が震えるはしたない口です

	CASE 81
		PRINTFORM レズ中毒が上がりやすくなり、女性型触手との相性が上がります
	CASE 94
		PRINTFORM 出会った相手の真偽を判別できます
	CASE 95
		PRINTFORM 成長点を算出しません

	CASE 100
		PRINTFORM 回避率が上がります　A・V属性の攻撃を受けた際のMPダメージが増加します
	CASE 101 TO 106
		IF ARG:1 <= -1
			PRINTFORM 対応する属性の攻撃を受けた際のダメージを軽減します
		ELSEIF ARG:1 == 1
			PRINTFORM 対応する属性の攻撃を受けた際のダメージが増加します
		ELSEIF ARG:1 == 2
			PRINTFORM 対応する属性の攻撃を受けた際のダメージが大きく増加します
		ELSEIF ARG:1 >= 3
			PRINTFORM 対応する属性の攻撃を受けた際のダメージが非常に大きく増加します
		ENDIF
	CASE 107
		PRINTFORM 乳がありません。なのに何故か、B属性の攻撃が無効にならないのでしょうか？
	CASE 108
		IF FLAG:507 > 0
			PRINTFORM 身体の限界まで成長した胸　巨乳暈と極太乳首で垂れ気味の巨大すぎる乳房
		ELSE
			PRINTFORM 衣服に収まる限界までに卑猥に成長した胸です
		ENDIF
	CASE 109
		PRINTFORM B属性の攻撃を受けた際のダメージが増加し、TPが上がりやすくなります
	CASE 110
		PRINTFORM 片手では隠しきれない胸です　B属性の攻撃を受けた際のダメージを軽減します
	CASE 111
		PRINTFORM 時間経過による自然回復量が上がります
	CASE 112
		PRINTFORM 時間経過による自然回復量が下がります
	CASE 114
		PRINTFORM 時間経過による自然回復量が、HPは大きく上がり、MPも上がります
	CASE 115
		PRINTFORM 時間経過による自然回復量が、HPは上がり、MPは大きく上がります
	CASE 116
		PRINTFORM 時間経過による自然回復量が、夕と夜のみ大きく上がります
	CASE 117
		PRINTFORM 戦闘終了時にPT全体のHPを少し回復します　健康だと一部のアイテムが強化されます
	CASE 118
		PRINTFORM 戦闘終了時にPT全体のMPを少し回復します　健康だと一部のアイテムが強化されます
	;不思議な根追加
	CASE 120
		PRINTFORM 射精中毒が上がりやすくふたなりが治りにくいかわりに、射精に耐性があります
	CASE 121
		PRINTFORM あなたはふたなりであり女性同士でも子をなすことができます
	CASE 122
		PRINTFORM 男です。V系無効、男性器あり、レズ中毒あがらず
	;狂気追加
	CASE 123
		PRINTFORM 迷宮の空気に完全に馴染みきっています
	CASE 124
		PRINTFORM 気配察知と危機回避のレベルに応じて戦闘を回避出来ますが、肌ダメージが増加します
	;◆禁断の知識追加
	CASE 125
		PRINTFORM アヤシイ知識を持っています……が、持ってるだけです。これ単体では役に立ちません
	;◆◆
	CASE 127
		PRINTFORM 射精にやや耐性があります　射精時のペナルティ軽減
	CASE 128
		PRINTFORM 一部の敵が相手の場合を除き、捕食されてもその場で復活します
	CASE 130
		IF ARG:1 == 1
			PRINTFORM 胸で絶頂した際のMPダメージが増加し、相手のHPを回復させてしまいます
		ELSEIF ARG:1 == 2
			PRINTFORM 胸で絶頂した際のMPダメージが大きく増加し、相手のHPを回復させてしまいます
		ELSEIF ARG:1 == 3
			PRINTFORM 胸で絶頂した際のMPダメージが非常に大きく増加し、相手のHPを回復させてしまいます
		ELSEIF ARG:1 == 4
			PRINTFORM 常に母乳を作り出すミルクサーバーになってしまいました
		ELSEIF ARG:1 == 5
			PRINTFORM 高熱を持つ母乳が湧き出る様子は、まるで間欠泉のようです
		ELSEIF ARG:1 >= 6
			PRINTFORM 灼熱の母乳が噴出す様子は、正に火山爆発です
		ENDIF
	CASE 132
		PRINTFORM 寄生攻撃を受けた際に、寄生される確率が下がります
	CASE 135
		PRINTFORM 卵を生む体質です　産卵時のペナルティ軽減
	CASE 136
		PRINTFORM 産卵に慣れてしまった肉体です　産卵時のペナルティ軽減の代わりに産卵攻撃の成功率が増加します
	CASE 137
		IF ARG:1 == -1
			PRINTFORM 少女の幼い卵巣は排卵しないため妊娠しません
		ELSEIF ARG:1 == 1
			PRINTFORM いじられ続けて排卵間隔が短くなった卵巣です
		ELSEIF ARG:1 == 2
			PRINTFORM ぶっくりと肥大化した卵巣は種付けの快楽を待っています
		ELSEIF ARG:1 >= 3
			PRINTFORM 醜く肥大化して受精快楽を覚えた卵巣は常に排卵し、受精を待っています
		ENDIF
	CASE 138
		PRINTFORM 拠点の外のキャラクターと接触をほとんど行いません
	CASE 139
		PRINTFORM 自身の胸の大きさや体型を変更できます
	CASE 140
		PRINTFORM 肉体が主人に忠誠を捧げています
		IF ARG:1 == 2
			PRINTFORM  一生をそい遂げる誓いを立てています
		ELSEIF ARG:1 == 3
			PRINTFORM  さらに自由意志すらなく精神も屈服しています
		ENDIF
	CASE 141
		PRINTFORM 反乱の首謀者になりやすいです
	CASE 149
		PRINTFORM ペット関連で様々な優遇を受けます
	CASE 150
		PRINTFORM 一部の敵が相手の場合を除き、捕食されても暫く経ってから復活します
	CASE 151
		PRINTFORM 弾幕攻撃の際に、炎属性の弾幕も撃てるようになります
	CASE 152
		PRINTFORM 寄生攻撃を受けた際に、TPが下がりやすくなります
	CASE 153
		PRINTFORM 全裸以外の状態で戦闘を終了した場合、CPが少し回復します
	CASE 154
		PRINTFORM 寝こみを襲われた際に敵に気付きやすくなります
	CASE 155
		PRINTFORM 性攻撃・寄生攻撃を受けた際に、TPが下がらなくなります
	;◆淫魔追加
	;従来の説明は悪堕ちへ移行
	CASE 156
		PRINTFORM 性行為に対して嫌悪することなくむしろ快楽を求めます
	;◆◆
	CASE 157
		PRINTFORM あなたの心と体に惚れ込んだ触手の証です
	;超乳を細分化
	CASE 158
		IF FLAG:507 < 1
			IF ARG:1 <= 1
				PRINTFORM 限界を超えて成長した乳房です　乳暈も肥大し初めました
			ELSEIF ARG:1 <= 2
				PRINTFORM 限界を超えて成長した乳房です　乳暈がさらに肥大しています
			ELSEIF ARG:1 <= 3
				PRINTFORM 限界は疾うに超えて熟れきった乳房です　乳暈も限界までに張り詰めています
			ELSE
				PRINTFORM もはや歩くのが辛い程までに育ちきった乳房です
			ENDIF
		ELSE
			IF ARG:1 <= 1
				PRINTFORM 母乳が溜まりすぎて人の限界をとうに超えてしまった醜い乳房です
			ELSEIF ARG:1 <= 2
				PRINTFORM 両手で抱え切れないほど醜く肥大した乳房。母乳をたっぷり蓄えています。おっぱいオバケ
			ELSEIF ARG:1 <= 3
				PRINTFORM ミルクタンクと化した双乳からは間欠泉の如く白い蜜が迸り続けるでしょう。
			ELSE
				PRINTFORM 乳タンクから滾々と湧き出る母乳は触手へと捧げられ、新たな苗床を育てる事でしょう。
			ENDIF
		ENDIF
	CASE 159
		PRINTFORM 絶頂するまで母乳とBダメージを減らします
	;浄化知識、結界知識追加
	CASE 160
		IF ARG:1 == 1
			PRINTFORM 浄化を行なった際、触手暴走を回避する条件が緩和されます　体調が悪いと機能しません
		ELSEIF ARG:1 == 2
			PRINTFORM 浄化時の触手暴走回避及び結界使用の条件が緩和されます　体調が悪いと機能しません
		ENDIF
	;体術、剣術
	CASE 161
		IF ARG:1 == 1
			PRINTFORM 非消耗武器による攻撃時、戦闘素質に合わせた補正が掛かります
		ELSEIF ARG:1 == 2
			PRINTFORM 剣による攻撃時、戦闘素質に合わせた補正が掛かります
		ENDIF
	;拡張乳腺
	CASE 162
		IF ARG:1 == 1
			PRINTFORM ゴムの様に靭やかに伸びる卑猥な乳首と乳腺です　乳姦発生率↑　乳姦時のダメージ↑
		ELSEIF ARG:1 == 2
			PRINTFORM ゴムの様に靭やかに伸びる卑猥な乳首と乳腺です　乳姦発生率↑↑　乳姦時のダメージ↑↑
		ELSEIF ARG:1 >= 3
			PRINTFORM 乳膣穴と呼べるほど発達した巨乳首と乳腺は触手たちの出入りする淫猥な肉壷となりました
		ENDIF
	;鷲の目
	CASE 163
		PRINTFORM 飛び道具による戦闘に特に精通しています。
	;術式知識
	CASE 164
		PRINTFORM 魔法陣の罠の回避率が上がります。
	CASE 165
		IF ARG:1 == 1
			PRINTFORM 元男の娘でしたが、身体だけ女にされてしまいました。
		ELSEIF ARG:1 == 2
			PRINTFORM 元女でしたが、男の娘にされてしまいました。
		ENDIF
	CASE 166
		PRINTFORM 能力値が上下し、初期素質や能力がランダム取得になります。
	CASE 167
		PRINTFORM 全裸だとMPが回復するようになります。
	CASE 168
		PRINTFORM EPCPダメージが減少しますが、ABCVM感覚が増加するほど効果が減ります
	CASE 170
		IF ARG:1 <= -1
			PRINTFORM 子供のように小さな「おちんちん」。可愛らしくもあり情けなくもあり
		ELSEIF ARG:1 == 1
			PRINTFORM 成人男性より大きい男根も触手たちにとってはいいおもちゃです
		ELSEIF ARG:1 == 2
			PRINTFORM 勃起すれば臍を隠すほどに大きく反りかえる男性器は嫌でも目立ち少女を辱しめます
		ELSEIF ARG:1 >= 3
			PRINTFORM 抱きかかえられるほどの大きさのペニスはもはや快楽だけを得るためだけの器官です
		ENDIF
	CASE 171
		PRINTFORM 大きさに見合わぬ太さを有しています
	CASE 172
		IF ARG:1 <= -1
			PRINTFORM すぐに力尽きてしまうおちんちんです。最も、迷宮ではすぐに元気にしてもらえるでしょう
		ELSEIF ARG:1 == 1
			PRINTFORM すぐに復活する男性器はそれだけ辱しめを受けるということでもあります
		ELSEIF ARG:1 >= 2
			PRINTFORM 萎えません。いつでも気持ちいいコトを待っている精力旺盛な肉棒です
		ENDIF
	CASE 173
		IF ARG:1 == 1
			PRINTFORM 亀頭は露出していますが残りの部分が皮に覆われています
		ELSEIF ARG:1 == 2
			PRINTFORM 柔らかな包皮をつるりと剥けば敏感な亀頭が無防備に顔を出してしまいます
		ELSEIF ARG:1 >= 3
			PRINTFORM 固く閉じた包皮の中をたっぷり可愛がる手段を持つ者はこの迷宮に山ほどいます
		ENDIF
	CASE 174
		PRINTFORM ペニスの新陳代謝が良すぎるみたいです。洗ってもいつの間にか汚れています
	CASE 175
		PRINTFORM きつい臭いが常に漂っています
	CASE 176
		IF ARG:1 == 1
			PRINTFORM 体質。生まれた時から身体の一部
		ELSEIF ARG:1 == 2
			PRINTFORM 寄生・魔法・薬品・森のキノコなど。本来はあるはずがなかったのに
		ENDIF
	CASE 177
		PRINTFORM 色黒の力強さを感じさせる竿です
	CASE 178
		IF ARG:1 <= -1
			PRINTFORM 射精するまでが遅いペニスです。しかし、感度が低いかは別の話。
		ELSEIF ARG:1 == 1
			PRINTFORM すぐにカウパーがしみだすような白濁液を出しやすい竿です。
		ENDIF
	CASE 180
		IF ARG:1 == 1
			PRINTFORM ペニスの下に睾丸がぶら下がっています
		ELSEIF ARG:1 == 2
			PRINTFORM 大きな金の玉。鶏の卵くらいの大きさにずっしりとした質感
		ELSEIF ARG:1 == 3
			PRINTFORM 巨大な睾丸。片手には余る大きさのその中には精液がふんづまっています
		ELSEIF ARG:1 >= 4
			PRINTFORM 特大の睾丸。両手で抱えるほどの肉玉の中では性欲が塊となって煮えたぎっています
		ENDIF
	CASE 181
		IF ARG:1 == 1
			PRINTFORM 睾丸にうっすらと毛が生えています
		ELSEIF ARG:1 == 2
			PRINTFORM 睾丸がびっしりと毛まみれです。気持ち悪い
		ENDIF
	CASE 185
		IF ARG:1 <= -1
			PRINTFORM ほんのちょっとの精液を必死に搾り出します。応援したり嗤ったりしてあげましょう
		ELSEIF ARG:1 == 1
			PRINTFORM たっぷりと出る精液が尿道を通り抜ける感覚は少女にとって毒でしかありません
		ELSEIF ARG:1 >= 2
			PRINTFORM 辺り一面にザーメンの水溜りがでるほどの射精。腰が抜けるほど心地いいでしょう
		ENDIF
	CASE 186
		IF ARG:1 <= -1
			PRINTFORM 水のようにシャバシャバの薄い精液
		ELSEIF ARG:1 == 1
			PRINTFORM プリプリのゼリーのような濃厚な精液の中には元気な精虫がうようよしています
		ELSEIF ARG:1 >= 2
			PRINTFORM つきたてのお餅のように濃く重い精の塊は少女に潜む繁殖欲の強さを物語っています
		ENDIF
	CASE 187
		PRINTFORM 火傷しそうなくらいに熱いほかほか湯気立つ精液
	CASE 188
		PRINTFORM ちょっと黄ばんでいます。なぜか不潔な印象
	CASE 200
		PRINTFORM このゲームもこの人に支配されています
	CASE 213
		IF ARG:1 == 1
			PRINTFORM 肌感度に応じて回避に補正、敏感だとマイナス
		ELSEIF ARG:1 == 2
			PRINTFORM 肌感度に応じて回避と拘束脱出率に補正、敏感だとマイナス
		ENDIF
	CASE 214
		PRINTFORM 人外の証です
	CASE 215
		IF ARG:1 == 1 || ARG:1 == 11
			PRINTFORM 肌感度に応じてA・V属性の攻撃のEPダメージに補正、敏感だとマイナス
		ELSEIF ARG:1 == 2 || ARG:1 == 12
			PRINTFORM 肌感度に応じてA・V属性の攻撃のEPダメージに補正、敏感だとマイナス PTの睡眠効率アップ
		ENDIF
		;母乳の粘り気
	CASE 220
		IF ARG:1 == 1
			PRINTFORM 普通のサラサラとした母乳です
		ELSEIF ARG:1 == 2
			PRINTFORM とろみがある濃いめの母乳です
		ELSEIF ARG:1 == 3
			PRINTFORM 粘り気のある濃い母乳です
		ELSEIF ARG:1 == 4
			PRINTFORM 練乳状態のとても濃い母乳です
		ELSEIF ARG:1 == 5
			PRINTFORM 半固形物が混じるかなり濃い母乳です
		ELSEIF ARG:1 >= 6
			PRINTFORM 全てヨーグルト状の濃過ぎる母乳です
		ENDIF

	;超々乳
	CASE 222
		PRINTFORM もはや歩行に障害が出る程に肥大したひどい胸です。乳暈も限界まで前に張り出ています
	;接地乳房
	CASE 223
		PRINTFORM 既に乳房が地面に当たるまで肥大しました。今や乳暈だけで胸のように見えます
	;機械
	CASE 250
		PRINTFORM ロボットやサイボーグです。有機体ではない為侵食しにくいです。チキチキ……
	CASEELSE
		PRINTFORM この素質の説明は未実装です
ENDSELECT

;≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡


code:
;能力値初期化
@TENTACLE_RENEW
#DIM LCOUNT
#DIM RANDOM_CHARA_ID
;DA		特殊能力内部数値

;10	侵食力増加量
;11	支配力増加量
;12	成長力増加量
;13	戦闘力増加量
;14	異変隠蔽力増加量
;15	元凶隠蔽力増加量
;16	肉体支配力増加量
;17	精神支配力増加量

;フラグリセット
FLAG:10 = 0
FLAG:11 = 0
FLAG:12 = 0
FLAG:13 = 0
FLAG:14 = 0
FLAG:15 = 0
FLAG:16 = 0
FLAG:17 = 0
FLAG:18 = 0
FLAG:19 = 0

IF ITEM:78 && TFLAG:逃走中
	FLAG:ドレイン += 350
	RANDOM_CHARA_ID = RANDOM_GET_CAUGHT_VICTIM_ID_2(FLAG:初期宿主)
	SETCOLOR 0xF07090
	PRINTFORMW %SAVESTR:0%完全吸收%CALLNAME:(RANDOM_CHARA_ID)%的能量后重振旗鼓了……
	RESETCOLOR
	CALL SURRENDER(RANDOM_CHARA_ID, 1)
ENDIF

TFLAG:逃走中 = 0

;各フラグにそれぞれの増加量を合計して能力値を再計算
FOR LCOUNT, 0, 1000
	IF ITEM:LCOUNT
		FLAG:10 += DA:LCOUNT:10
		FLAG:11 += DA:LCOUNT:11
		FLAG:12 += DA:LCOUNT:12
		FLAG:13 += DA:LCOUNT:13
		FLAG:14 += DA:LCOUNT:14
		FLAG:15 += DA:LCOUNT:15
		FLAG:16 += DA:LCOUNT:16
		FLAG:17 += DA:LCOUNT:17

	ENDIF
NEXT

FLAG:逃走ボーナス = FLAG:15

;隠蔽力は侵食したキャラが増えるごとに減る
FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:2
		FLAG:18 += -1
		FLAG:19 += -1
	ENDIF
	; 傀儡
	IF CFLAG:LCOUNT:40 == 4
		FLAG:14 += 2
		FLAG:15 += 2
	ENDIF
NEXT
IF ITEM:180
	IF FLAG:難易度 >= 1
		FLAG:18 = FLAG:18 * 3 / 4
		FLAG:19 = FLAG:19 * 3 / 4
	ELSE
		FLAG:18 = FLAG:18 * 2 / 3
		FLAG:19 = FLAG:19 * 2 / 3
	ENDIF
ENDIF

;侵食力支配力成長力戦闘力は初期値が1ある
;隠蔽力は初期値が11ある　（初期侵食キャラが居るので実質10）
;成長力元凶隠蔽力は初期宿主に応じて補正がある
FLAG:10 += 1
FLAG:11 += 1
FLAG:12 += 1 + FLAG:初期ボーナス
FLAG:13 += 1
FLAG:14 += 11 + FLAG:初期ボーナス + FLAG:18
FLAG:15 += 11 + FLAG:初期ボーナス + FLAG:19


code:
;特殊能力取得条件
@TENTACLE_SKILL_REQUIRED(ARG:0)
#FUNCTION
#DIM LCOUNT

;ARG:0	特殊能力番号

;DA		特殊能力内部数値

;20	前提能力1
;21	前提能力1互換
;22	前提能力1互換
;23	前提能力2
;24	前提能力2互換
;25	前提能力2互換
;26	同時取得不可能力1
;27	同時取得不可能力2
;28	同時取得不可能力3

;取得済みだと再取得不可
IF ITEM:(ARG:0)
	RETURNF 0
ENDIF

;即落ちは難易度チートのみ
IF ARG:0 == 20 && FLAG:4 != -1
	RETURNF 0
ENDIF

;変数リセット
LOCAL:1 = 0

;とりあえず前提能力は一種の場合のみ作成しておく
;前提能力が指定されている場合取得していないと不可（指定されていない場合ITEM:0は初期所持なので自動で条件を満たす）
IF DA:(ARG:0):20 || DA:(ARG:0):21 || DA:(ARG:0):22
	IF ITEM:(DA:(ARG:0):20) && ITEM:(DA:(ARG:0):21) && ITEM:(DA:(ARG:0):22)
		LOCAL:1 = 1
	ENDIF
ELSEIF DA:(ARG:0):20 == 0 && DA:(ARG:0):21 == 0 && DA:(ARG:0):22 == 0
	LOCAL:1 = 1
ELSE
	LOCAL:1 = 0
ENDIF

RETURNF LOCAL:1


path: ERB/触手特殊能力/成長能力内部数値一覧.ERB


code:
;図鑑や取得画面での特殊能力の詳細を表示
;ARG:0	特殊能力ID
@SHOW_ITEM_EXPLAIN_WIKI(ARGS:0)

;ステータスのコピペ
SELECTCASE ARGS:0
	CASE "命"
		PRINTFORML 生命。失去生命后觸手異變就會結束。
	CASE "液体侵食"
		PRINTFORML 可以液體為媒介進行侵蝕
		PRINTFORML 能混入飲用水中以展開新的侵蝕
		PRINTFORML 《特殊效果》史萊姆襲撃事件可發生，史萊姆動員事件必備條件
	CASE "動物侵食"
		PRINTFORML 能以動物為媒介展開侵蝕
		PRINTFORML 對一部分長有【動物耳】的角色有特效
		PRINTFORML 《特殊效果》野狗襲撃事件可發生，野狗發情事件、狗群動員事件必備條件
	CASE "鳥類侵食"
		PRINTFORML 可通過禽類發生侵蝕
		PRINTFORML 落下的羽毛以及生下的卵都會受到影響
	CASE "植物侵食"
		PRINTFORML 將植物轉化為觸手執行侵蝕
		PRINTFORML 可依靠種子增殖
		PRINTFORML 《特殊效果》植物襲撃事件可發生，植物動員事件必備條件
	CASE "鉱物侵食"
		PRINTFORML 能將岩石和金属化為觸手發生侵蝕
		PRINTFORML 可以在地面和岩壁中製造出觸手機關
		PRINTFORML 《特殊效果》觸手陷坑事件可發生
	CASE "昆虫侵食"
		PRINTFORML 以飛蟲為媒介開始侵蝕
		PRINTFORML 《特殊效果》蟲襲撃事件、蟲類劫持事件可發生，蟲群動員事件必備條件
	CASE "女性侵食"
		PRINTFORML 經由女性的體液傳播侵蝕
		PRINTFORML 《特殊效果》意外之吻事件、突發口交事件發生條件，NPC接触自動侵蝕必備條件
	CASE "男性侵食"
		PRINTFORML 能經男性的體液傳播侵蝕
		PRINTFORML 《特殊效果》路人強姦事件、大叔強姦事件必備條件
	CASE "自動侵食"
		PRINTFORML 會自行侵蝕所有發生接觸的角色
		PRINTFORML 作為異變向幻想郷攤牌，可能直接導致大範圍的爆發性侵蝕
		PRINTFORML 《特殊效果》宿主與NPC接觸時將發生侵蝕判定，NPC接触自動侵蝕必備條件
	CASE "宿主大事に"
		PRINTFORML 將不再嘗試從最初選擇的宿主身上攝取營養
		PRINTFORML 但與宿主的意志無関，其身邊的觸手変不會受抑制
		PRINTFORML 《特殊效果》部分負面效果不會再宿主身上發生
	CASE "液状化"
		PRINTFORML 本體可化為史萊姆状
		PRINTFORML
	CASE "獣化"
		PRINTFORML 本體可如獸類一般活動
		PRINTFORML
	CASE "飛翔"
		PRINTFORML 可以在空中飛行
		PRINTFORML
	CASE "植物化"
		PRINTFORML 得到植物態的身體
		PRINTFORML
	CASE "鉱物同化"
		PRINTFORML 保持行動能力并能同化為礦物
		PRINTFORML 身體可機械，且自身將部分覆甲
		PRINTFORML 亦可以擬態為劍或鎧甲
	CASE "産卵"
		PRINTFORML 可通過卵的孵化進行增殖
		PRINTFORML
	CASE "女体化"
		PRINTFORML 獲得形似女性的身體
		PRINTFORML 自身也可成為觸手的母體
	CASE "男体化"
		PRINTFORML 獲得形似男性的身體
		PRINTFORML
	CASE "群体"
		PRINTFORML 可具有觸手集群形態
		PRINTFORML 《特殊效果》觸手襲撃事件可發生
	CASE "即落ち"
		PRINTFORML 觸手怎麼會輸給幻想少女
		PRINTFORML
		; 絶對可以，輕易可以呀
	CASE "媚薬注入"
		PRINTFORML 習得注射媚藥的能力
		PRINTFORML 在戰鬥中也可使用
		PRINTFORML 《特殊效果》發情事件可發生
	CASE "粘液"
		PRINTFORML 可以粘滑的液體覆蓋少女的身體
		PRINTFORML
	CASE "柔軟"
		PRINTFORML 可變得更柔軟
		PRINTFORML 更難以切斷的同時抗撃打能力也會增強
		PRINTFORML 摸起來觸感也會更好
	CASE "巻き付き"
		PRINTFORML 能纏卷對方進行束縛
		PRINTFORML 《特殊效果》羞恥系事件可發生
	CASE "吸い取り"
		PRINTFORML 使表面和末梢都攝入吸收體液的能力
		PRINTFORML 《特殊效果》股間吸附事件可發生
	CASE "衣服溶解液"
		PRINTFORML 可分泌僅會溶解衣物的液体
		PRINTFORML 《特殊效果》衣裝破壞事件可發生，對【容易害羞】特攻
	CASE "液体散布"
		PRINTFORML 可如花灑一般噴射液體
		PRINTFORML
	CASE "呑み込み"
		PRINTFORML 能吞下人形生物的半個身體
		PRINTFORML
	CASE "丸呑み"
		PRINTFORML 可以吞下人形生物的整個身體
		PRINTFORML 《特殊效果》丸吞事件可發生
	CASE "触手の領域"
		PRINTFORML 能製造類似巣穴一般的觸手構成的舒適空間
		PRINTFORML 在少女的攻入時有將得到陣地加成
		PRINTFORML 《特殊效果》被襲撃時獲得戰鬥力補正
	CASE "薬物耐性"
		PRINTFORML 産生對藥劑的耐性
		PRINTFORML
	CASE "寒気耐性"
		PRINTFORML 産生對低温的耐性
		PRINTFORML
	CASE "炎熱耐性"
		PRINTFORML 産生對高温的耐性
		PRINTFORML 《特殊效果》【炎熱変換】特攻
	CASE "斬撃耐性"
		PRINTFORML 産生對斬撃的耐性
		PRINTFORML
	CASE "肥大化"
		PRINTFORML 可以將体液匯集于觸手的一部分以暫時使其膨脹
		PRINTFORML
	CASE "複数の触手"
		PRINTFORML 觸手可以分化為多條
		PRINTFORML 《特殊效果》大量觸手事件可發生
	CASE "精密動作"
		PRINTFORML 可執行在不傷及粘膜的情況下深入口中等纖細的行動
		PRINTFORML
	CASE "伸長"
		PRINTFORML 能使觸手在一瞬間伸長至原本長度的數倍
		PRINTFORML
	CASE "巨大化"
		PRINTFORML 能使觸手在一瞬間增大至3m級
		PRINTFORML
	CASE "再生"
		PRINTFORML 受到創傷后當時就會開始修復
		PRINTFORML
	CASE "言語理解"
		PRINTFORML 理解當前在幻想郷所使用的語言
		PRINTFORML
	CASE "意思疎通"
		PRINTFORML 在理解的基礎上做出適當的反應
		PRINTFORML
	CASE "口止め"
		PRINTFORML 被觸手完全侵蝕后將無法向他人求助
		PRINTFORML
	CASE "発声"
		PRINTFORML 使觸手也能吐出人言
		PRINTFORML
	CASE "悪意理解"
		PRINTFORML 探及和理解具有知能的生命体的負面情緒
		PRINTFORML 是否利用則不在此處的討論範圍
		PRINTFORML
	CASE "噂"
		PRINTFORML 能隨機傳出不實的信息
		PRINTFORML 《特殊效果》謠言事件必備條件
	CASE "不和"
		PRINTFORML 對此次異變本身變得疑神疑鬼
		PRINTFORML
		PRINTFORML 《特殊效果》已被侵蝕的角色隨時間受到SP傷害
	CASE "困惑"
		PRINTFORML 隨機造成無差別的與異變相關的善性或惡性事件
		PRINTFORML 發生混亂后對普通人的安置方法也會成為需要費心的課題
		PRINTFORML 《特殊效果》已被侵蝕的角色隨時間受到SP傷害
	CASE "恐慌"
		PRINTFORML 對異變將會出現遠超過必要的畏懼
		PRINTFORML 成群結隊的恐慌者的行為可能會超出任何人的控制和想象
		PRINTFORML 《特殊效果》特定事件必備條件
		; 嘗試避免來自能力界面的完全劇透
	CASE "友情"
		PRINTFORML 觸手、是、朋友
		PRINTFORML
		PRINTFORML 《特殊效果》可邀請見面的少女成為夥伴
	CASE "強打"
		PRINTFORML 使出強力一撃的戰鬥技巧
		PRINTFORML
	CASE "不意打ち"
		PRINTFORML 尋找突襲機會的戰鬥技巧
		PRINTFORML
	CASE "駆け引き"
	;伺機而動
		PRINTFORML 尋找破綻和控制戰局的技巧
		PRINTFORML
	CASE "なぎ払い"
		PRINTFORML 將觸手廣範圍橫掃的戰技
		PRINTFORML
	CASE "突き"
		PRINTFORML 用觸手集中攻撃一處的戰技
		PRINTFORML
	CASE "フェイント"
		PRINTFORML 佯攻以製造破綻的戰技
		PRINTFORML
	CASE "埋伏"
		PRINTFORML 增長侵蝕后到出現症状的潛伏期
		PRINTFORML
	CASE "被覆"
		PRINTFORML 將異變的症状以流行病進行偽裝
		PRINTFORML
	CASE "身代わり"
		PRINTFORML 製造元兇的替身的能力
		PRINTFORML 《特殊效果》被發現異變元兇后可在戰鬥失敗時逃脱
	CASE "逃走技術"
		PRINTFORML 時刻注意逃脱路線且在戰鬥中妨害對方的視野
		PRINTFORML 《特殊效果》被發現異變元兇后可在戰鬥失敗時逃脱
		PRINTFORML 與替身衝突

	CASE "寄生"
		PRINTFORML 可植入寄生體
		PRINTFORML 《特殊效果》異常状態[寄生]可發生
	CASE "妊娠"
		PRINTFORML 可因觸手造成妊娠
		PRINTFORML 《特殊效果》異常状態[妊娠]可發生
	CASE "托卵"
		PRINTFORML 可將卵産在他人體内
		PRINTFORML
	CASE "無性生殖"
		PRINTFORML 僅有觸手也可進行增殖
		PRINTFORML
	CASE "クエン酸回路"
		PRINTFORML 更高效的能量代謝通路
		PRINTFORML
	CASE "悪食"
		PRINTFORML 將更多種物質消化為能量
		PRINTFORML
	CASE "耐劣悪環境"
		PRINTFORML 可在較極端的環境中存活更長時間
		PRINTFORML
	CASE "搾り取り"
		PRINTFORML 奪取宿主的營養物質
		PRINTFORML 《特殊效果》壓搾事件可發生
	CASE "悪臭減少"
		PRINTFORML 將宿主會發出異味的物質吸收從而減輕體味
		PRINTFORML
	CASE "ブラシ触手"
		PRINTFORML 生長出末端呈刷型的觸手
		PRINTFORML 摩擦挑逗乃是強項
		PRINTFORML  《特殊效果》刷型觸手事件可發生
	CASE "口触手"
		PRINTFORML 化生出末端像嘴一樣的觸手
		PRINTFORML 具有舌頭也能吸吮
		PRINTFORML
	CASE "丸呑み触手"
		PRINTFORML 分化出極具伸縮性的囊袋觸手
		PRINTFORML 能將成人大小的對象整個容納在其中
		PRINTFORML
	CASE "手触手"
		PRINTFORML 轉化出形似人手的觸手
		PRINTFORML 無論是抓取還是揉搓都能執行
		PRINTFORML
	CASE "目玉触手"
		PRINTFORML 在觸手各處製造出眼球
		PRINTFORML 能從各個角度全方位觀察獵物
		PRINTFORML
	CASE "なめなめ"
		PRINTFORML 使嘴状觸手專注于精準地進攻性感帶
		PRINTFORML
	CASE "くすぐり"
		PRINTFORML 在體表的弱點輕柔地進行撫摸
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "録画能力"
		PRINTFORML 將雙眼所見的景色記録程度的能力
		PRINTFORML 當然也能進行輸出
	CASE "搾りカス"
		PRINTFORML 將沒有使用價値的受支配者的所有全部掠奪一空
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "ハーレム分身"
		PRINTFORML 製造大量的分身用以與被侵蝕的角色互動
		PRINTFORML 《特殊效果》參與各事件的無名角色將大部分被替換為%SAVESTR:0%
	CASE "封鎖"
		PRINTFORML 封鎖指定地區將獵物禁閉其中
		PRINTFORML 《特殊效果》將抑制已侵蝕角色向所處區域外發起侵蝕的行動，
		PRINTFORML  同時以支配力為基礎提升侵蝕和隱蔽能力
	CASE "勧誘"
		PRINTFORML 被侵蝕的角色更容易將認識的人捲入異變中
		PRINTFORML 可能是無意之間的行為，抑或是因為觸手的脅迫，為達成這一結果的原因會更容易出現
		PRINTFORML 《特殊效果》發生相識角色被捲入事件的條件
	CASE "動員"
		PRINTFORML 能命令侵蝕并圈養的生物襲撃已受侵蝕的角色
		PRINTFORML 削弱已經受到影響的對象來增強支配的力度
		PRINTFORML 《特殊效果》已侵蝕角色受襲事件發生條件
	CASE "襲撃"
		PRINTFORML 能命令侵蝕并圈養的生物襲撃未受觸手侵蝕的角色
		PRINTFORML 不考慮異變被發現的後果，以最直接的方式擴大侵蝕發生的範圍
		PRINTFORML 《特殊效果》未侵蝕角色受襲事件發生條件
	CASE "壁尻団結成"
		PRINTFORML 能命令侵蝕并圈養的生物將角色製成壁尻
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生・壁尻化事件發生必備條件
	CASE "双成搾精団結成"
		PRINTFORML 能命令侵蝕并圈養的生物形成搾取用的結塊
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "デスマッチ"
		PRINTFORML 被支配的角色之間將會發起決鬥
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "処刑"
		PRINTFORML 被支配的角色將會發起公開處刑
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生

	CASE "侵食強化Ⅰ"
		PRINTFORML 強化侵蝕力
	CASE "侵食強化Ⅱ"
		PRINTFORML 強化侵蝕力
	CASE "支配強化Ⅰ"
		PRINTFORML 強化支配力
	CASE "支配強化Ⅱ"
		PRINTFORML 強化支配力
	CASE "成長強化Ⅰ"
		PRINTFORML 強化成長力
	CASE "成長強化Ⅱ"
		PRINTFORML 強化成長力
	CASE "異変隠蔽強化Ⅰ"
		PRINTFORML 強化異變隱蔽力
	CASE "異変隠蔽強化Ⅱ"
		PRINTFORML 強化異變隱蔽力
	CASE "元凶隠蔽強化Ⅰ"
		PRINTFORML 強化元兇隱蔽力
	CASE "元凶隠蔽強化Ⅱ"
		PRINTFORML 強化元兇隱蔽力

	CASE "Ａ感度"
		PRINTFORML 使少女屁股的敏感度變高
		PRINTFORML 《特殊效果》A敏感化事件可發生
	CASE "Ｂ感度"
		PRINTFORML 使少女胸部的敏感度變高
		PRINTFORML 《特殊效果》B敏感化事件可發生
	CASE "Ｃ感度"
		PRINTFORML 使少女花蕾的敏感度變高
		PRINTFORML 《特殊效果》C敏感化事件可發生
	CASE "Ｖ感度"
		PRINTFORML 使少女私處的敏感度變高
		PRINTFORML 《特殊效果》V敏感化事件可發生
	CASE "Ｍ感度"
		PRINTFORML 使少女口腔的敏感度變高
		PRINTFORML 《特殊效果》M敏感化事件可發生
	CASE "肌感度"
		PRINTFORML 使少女全身皮膚敏感度變高
		PRINTFORML
	CASE "発汗"
		PRINTFORML 被侵蝕角色會變得更容易出汗
		PRINTFORML
	CASE "火照り"
		PRINTFORML 被侵蝕的角色會變得全身火熱
		PRINTFORML 但比起不適感更像是一種包裹感
		PRINTFORML
	CASE "尿意"
		PRINTFORML 被侵蝕的角色會有更強的排洩需求
		PRINTFORML
	CASE "おもらし癖"
		PRINTFORML 被侵蝕的角色排洩的需求緊張到經常來不及前往衛生間
		PRINTFORML 或者是這種行為本身也能帶來快感？
		PRINTFORML
	CASE "失禁"
		PRINTFORML 受侵蝕的角色在強烈的亢奮、緊張或恐懼情緒下會漏尿
		PRINTFORML 《特殊效果》絶頂時將會失禁
	CASE "潮吹き"
		PRINTFORML 被侵蝕的角色達到性行為絶頂時會發生潮吹
		PRINTFORML 《特殊效果》絶頂時將會潮吹
	CASE "便意"
		PRINTFORML 被侵蝕的角色會有更強的排遺需求
		PRINTFORML 是否會發生進一歩的事件就只能任君想象了
		PRINTFORML
	CASE "腸内スライム"
		PRINTFORML 被侵蝕的角色結腸内將出現消除排洩物的史萊姆
		PRINTFORML
	CASE "ミントの香り"
		PRINTFORML 被侵蝕的角色的排洩物將會變成帶有薄荷香味的軟膏
		PRINTFORML
	CASE "ゼリービーンズ"
		PRINTFORML 少女從不大便
		PRINTFORML 從後庭排出的東西是各色的軟糖
		PRINTFORML
	CASE "眠気"
		PRINTFORML 被侵蝕的角色睡眠需求會增加
		PRINTFORML 是不是真的去睡則看角色各人行為
	CASE "熟睡"
		PRINTFORML 被侵蝕的角色在入眠后將更難以喚醒
		PRINTFORML 在睡眠中被做了什麼想來也不會意識到
	CASE "発情"
		PRINTFORML 被侵蝕的角色將會有更強烈的性慾
		PRINTFORML
	CASE "自慰"
		PRINTFORML 被侵蝕的角色將會愛上自慰
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生・野外自慰事件發生必備條件
	CASE "自慰狂い"
		PRINTFORML 被侵蝕的角色一有空就會開始自慰
		PRINTFORML
	CASE "自慰祭り"
		PRINTFORML 被侵蝕角色將無視所處環境和情況開始自慰
		PRINTFORML 而且觀看這一事件的角色也會受到感染
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "自慰見せつけ"
		PRINTFORML 被侵蝕后將會無視本人意願
		PRINTFORML 尋找「附近有其他人的場所」進行自慰
	CASE "覗き癖"
		PRINTFORML 被侵蝕后會下意識地多看一眼別人的住所和陰暗的小巷
		PRINTFORML 而且似乎最近總能看到些珍奇無比的場景耶
	CASE "視線悦楽"
		PRINTFORML 被侵蝕的角色感受到視線的集中就會性奮并産生快感
		PRINTFORML 有時會為反復體驗這種感覺做出過激行為
		PRINTFORML 《特殊效果》野外自慰事件發生必備條件
	CASE "強制絶頂"
		PRINTFORML 被侵蝕角色可能在公共廣場突然強烈絶頂
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "おじコン"
		PRINTFORML 被侵蝕的角色會更喜歡中年男性
		PRINTFORML 至於對男性是否有效就任君想象了
		PRINTFORML 《特殊效果》解鎖正太控后大叔類事件也可發生・部分大叔類事件發生必備條件
	CASE "ショタコン"
		PRINTFORML 被侵蝕的角色會更喜歡看起來未成年的男孩
		PRINTFORML 至於對男性是否有效就任君想象了
		PRINTFORML 《特殊效果》正太類事件可發生・部分正太類事件發生必備條件
	CASE "バイ"
		PRINTFORML 被侵蝕的角色會對男女都保有性方面的興趣
		PRINTFORML 至於對男性是否有效就任君想象了
	CASE "売春"
		PRINTFORML 被侵蝕的角色會積極地將以金錢交易性關係
		PRINTFORML 部分是自願行為，部分是「不知為何」很抗拒但依然在進行
	CASE "セクハラ上等"
		PRINTFORML 被侵蝕的角色會對有性趣的對象以
		PRINTFORML 身體接觸、讚揚魅力點等方式進行問候
		PRINTFORML 《特殊效果》%ARGS:0%事件發生必備條件
	CASE "男湯突撃"
		PRINTFORML 被侵蝕的角色會進入男公共浴室
		PRINTFORML 至於之後發生的事就由當時情況決定了
		PRINTFORML 《特殊效果》%ARGS:0%事件發生必備條件
	CASE "性的魅力"
		PRINTFORML 被侵蝕的角色會散發出對異性同性而言都無法拒絶的魅力
		PRINTFORML
	CASE "フェロモン"
		PRINTFORML 被侵蝕的角色會散發出擾人清明的氣味
		PRINTFORML 在其影響下保持理智亦是煎熬
	CASE "男臭弱点"
		PRINTFORML 被侵蝕后會因強烈的男性氣味發情
		PRINTFORML 雖然一直認為是異味，但一直聞著卻變得想要了起來
	CASE "ヤリチンショタ"
		PRINTFORML 將會出現妙に射精が好きで女性に強引に迫るショタが現れるようになります
		PRINTFORML 女性はなし崩しにエロいことに巻き込まれます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
		;好崩潰，不想焊這些根本不會點的perk
	CASE "種付けおじさん"
		PRINTFORML 妙に射精が好きで女性に強引に迫るおじさんが現れるようになります
		PRINTFORML 女性はなし崩しにエロいことに巻き込まれます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "百合の目覚め"
		PRINTFORML 侵食されると女性を性の対象として見るようになります
		PRINTFORML すでに開花しているともっとひどくなります
		PRINTFORML 《特殊效果》軽い百合イベント条件・百合イベント条件
	CASE "ロリコン"
		PRINTFORML 侵食されると女性の、特に小さい女の子を好むようになります
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "肉欲の百合"
		PRINTFORML 侵食されると女性を性の対象として見るのに加え、
		PRINTFORML 性欲が抑えきれず爛れた関係になります
		PRINTFORML 《特殊效果》百合イベント条件
	CASE "メスガキ"
		PRINTFORML 小さい女児は相手を屈服させることを好むようになります
		PRINTFORML 生意気なサディストが大量発生します
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件

	CASE "ラヴ度チェック"
		PRINTFORML 会いに来たキャラの初期宿主に対する好感度がわかります
		PRINTFORML 秘めてる想いも丸裸です
		PRINTFORML 《特殊效果》好感度が表示
	CASE "ドッペルゲンガー"
		PRINTFORML 特定の相手そっくりに化けます
		PRINTFORML 《特殊效果》初期宿主に会いに行くことで百合をできるように
	CASE "カウントダウン"
		PRINTFORML 侵食されると、眼の前に突如数字が現れたり、謎の声が数字をささやきます
		PRINTFORML 数字はどんどん減っていき、0になると強制絶頂します
		PRINTFORML 一度に複数数字が進むこともある上、他の人に数字は見えたり聞こえたりしません
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件

	CASE "動物結婚"
		PRINTFORML 動物との交尾の結果愛が芽生え結婚にまでたどり着きます
		PRINTFORML
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "虫結婚"
		PRINTFORML 虫との交尾の結果愛が芽生え結婚にまでたどり着きます
		PRINTFORML
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "百合結婚"
		PRINTFORML 女性同士で愛が芽生え結婚にまでたどり着きます
		PRINTFORML
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "触手結婚"
		PRINTFORML 動物との交尾の結果愛が芽生え結婚にまでたどり着きます
		PRINTFORML
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "犬侵食"
		PRINTFORML 動物侵食で特に犬に侵食します
		PRINTFORML 発情した野犬は人型の女性を襲うでしょう
		PRINTFORML 《特殊效果》馬侵食や豚侵食があっても野犬によるイベントが起きるように
	CASE "馬侵食"
		PRINTFORML 動物侵食で特に馬に侵食します
		PRINTFORML 発情した馬は人型の女性を襲うでしょう
		PRINTFORML 《特殊效果》馬によるイベントが起きるように
	CASE "豚侵食"
		PRINTFORML 動物侵食で特に豚に侵食します
		PRINTFORML 発情した豚は人型の女性を襲うでしょう
		PRINTFORML 《特殊效果》豚によるイベントが起きるように
	CASE "寄生花"
		PRINTFORML 侵食された植物は人型生物へ寄生を行います
		PRINTFORML 頭や身体から植物が生え、思考も操られます
		PRINTFORML 《特殊效果》植物同化事件可發生条件
	CASE "寄生虫"
		PRINTFORML 侵食された虫は人型生物へ寄生を行います
		PRINTFORML 卵や小型虫が体内で繁殖し生きた巣にされます
	CASE "触手の怪物"
		PRINTFORML 触手の怪物が幻想郷で散見されるようになります
		PRINTFORML 積極的に危害を加えるわけではありませんが近寄ると危険です
	CASE "スライムの怪物"
		PRINTFORML スライムの怪物が幻想郷で散見されるようになります
		PRINTFORML 積極的に危害を加えるわけではありませんが近寄ると危険です
	CASE "植物の怪物"
		PRINTFORML 植物の怪物が幻想郷で散見されるようになります
		PRINTFORML 積極的に危害を加えるわけではありませんが近寄ると危険です
	CASE "虫の怪物"
		PRINTFORML 虫の怪物が幻想郷で散見されるようになります
		PRINTFORML 積極的に危害を加えるわけではありませんが近寄ると危険です
	CASE "海産の怪物"
		PRINTFORML 幻想郷にいないはずの海産の怪物が幻想郷で散見されるようになります
		PRINTFORML 積極的に危害を加えるわけではありませんが近寄ると危険です
	CASE "換金可能"
		PRINTFORML 幻想郷で発見される怪物を倒すとお金になります
		PRINTFORML 死骸に有用な使いみちがあったり、討伐の依頼があったりと様々です
	CASE "狩猟経済"
		PRINTFORML 怪物の狩猟で経済が回るようになります
		PRINTFORML 肉・皮・体液など様々な部位が使われます
	CASE "デスエンカウント"
		PRINTFORML 触手の怪物に混じって元凶触手が現れる場合があります
		PRINTFORML 《特殊效果》低確率で幻想少女と戦闘が発生します
	CASE "大量生産"
		PRINTFORML 怪物たちを大量に生み出します
		PRINTFORML どこから生まれるかは場合によります
	CASE "紛れ込み"
		PRINTFORML 生み出した怪物たちに紛れます
		PRINTFORML 異変の元凶を探すのは困難でしょう
	CASE "行方知れず"
		PRINTFORML 怪物退治に失敗して帰ってこなくなるのは日常茶飯事です
		PRINTFORML 数人消えたくらいではよくある日常です
		PRINTFORML 《特殊效果》異変隠蔽度のペナルティを軽減
	CASE "傀儡作成"
		PRINTFORML 支配したキャラクターに成長点算出以外の意義を与えます
		PRINTFORML 命令には従順ですが、元の能力関係ない弱い部下しか作れません
		PRINTFORML 《特殊效果》傀儡作成が可能に
	CASE "触手服支給"
		PRINTFORML 部下に触手服を着せます
		PRINTFORML
	CASE "淫紋支給"
		PRINTFORML 部下に淫紋を与えます
		PRINTFORML
	CASE "媚薬爆弾支給"
		PRINTFORML 部下に媚薬爆弾を埋め込みます
		PRINTFORML 各種拠点に特攻させることもできるようになります
	CASE "悪堕ち"
		PRINTFORML 戦闘員にした際に能力の上がった部下を作ります
		PRINTFORML ある程度自律もできます
		PRINTFORML 《特殊效果》傀儡作成で悪堕ちが選択可能に
	CASE "侵食指令"
		PRINTFORML 侵食先を命令できます
		PRINTFORML
		PRINTFORML 《特殊效果》毎日の侵食先を手動決定に
	CASE "オナホ化"
		PRINTFORML オナホ状態になります
		PRINTFORML 四肢がない、もしくは、足と上半身がない状態ですがこれでも生きています
		PRINTFORML 残った身体のパーツを繋いで治療すれば治る可能性があります
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "触手の巣"
		PRINTFORML 触手たちが廃棄された建物や洞窟を根城にしだします
		PRINTFORML 攻略すると一獲千金だと言われます
		PRINTFORML 《特殊效果》行方不明イベント条件
	CASE "どこでも発情"
		PRINTFORML 人前だろうと野外だろうと発情します
		PRINTFORML 発情状態でもキャラクターが出歩くようになります
		PRINTFORML 《特殊效果》発情状態のキャラクターにもイベントが発生
	CASE "触手部屋"
		PRINTFORML 触手まみれの部屋を作成します
		PRINTFORML 密かに触手を楽しむことができます
	CASE "どこでも動物交尾"
		PRINTFORML 人前だろうと野外だろうと動物の交尾の相手をさせられます
		PRINTFORML それが自発的なのか嫌々なのかは不明です
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "エロ花粉"
		PRINTFORML 状態異常の花粉をばらまきます
		PRINTFORML 正常な人すら巻き込まれるでしょう
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "どこでも虫交尾"
		PRINTFORML 人前だろうと野外だろうと虫の交尾の相手をさせられます
		PRINTFORML オスに注ぎ込まれたりメスに産卵されたりお構いなしです
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "発情周期"
		PRINTFORML 発情が突発的なものでなく周期的なものになります
		PRINTFORML 主に危険日付近で発生します
	CASE "淫乱"
		PRINTFORML 肉体、もしくは心が性的な快楽を求めます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "尻穴狂い"
		PRINTFORML 尻穴が性的な快楽を受け入れるにふさわしい器官に成長します
		PRINTFORML 感度や拡張性が上がります
		PRINTFORML 《特殊效果》淫乱イベント時%ARGS:0%に派生
	CASE "淫乳"
		PRINTFORML 乳肉や乳首が性的な快楽を受け入れるにふさわしい器官に成長します
		PRINTFORML 感度や母乳などが男を誘うのにふさわしくなります
		PRINTFORML 《特殊效果》淫乱イベント時%ARGS:0%に派生
	CASE "淫核"
		PRINTFORML クリトリスが性的な快楽を受け入れるにふさわしい器官に成長します
		PRINTFORML ふたなりの場合は竿も発達します
		PRINTFORML 《特殊效果》淫乱イベント時%ARGS:0%に派生
	CASE "淫壷"
		PRINTFORML 女性器が性的な快楽を受け入れるにふさわしい器官に成長します
		PRINTFORML 濡れやすく搾り取りやすい器官になります
		PRINTFORML 《特殊效果》淫乱イベント時%ARGS:0%に派生
	CASE "Ｖ支配"
		PRINTFORML 主に女性器を支配しています
		PRINTFORML 寄生体となって住み着いたり体の一部を挿入したり様々です
		PRINTFORML
	CASE "常時挿入"
		PRINTFORML 侵食されると常に女性器に触手を入れられています
		PRINTFORML
		PRINTFORML
	CASE "カテーテル"
		PRINTFORML 膀胱から直接溜まった尿を触手で吸い取ります
		PRINTFORML 《特殊效果》飲尿事件可發生
	CASE "中出し中毒"
		PRINTFORML 中出しの中毒になります
		PRINTFORML 侵食度合いによって頻度が増していきます
		PRINTFORML 依存症と違い、肉体が中出しを欲しがります
		PRINTFORML
	CASE "子宮支配"
		PRINTFORML 女性器の特に子宮を支配します
		PRINTFORML 着床率があがったり胎児の成長に影響します
		PRINTFORML
	CASE "卵巣支配"
		PRINTFORML 女性器の特に卵巣を支配します
		PRINTFORML 女性ホルモンや卵子の排卵などに影響を与えます
		PRINTFORML 《特殊效果》強制初潮イベント条件
	CASE "名器"
		PRINTFORML 女性器が性を搾り取るのに適した進化をします
		PRINTFORML 挿入に反応して締め付けたり、膣壁がこすりつけると気持ちいい形状になったりします
		PRINTFORML
	CASE "セックス中毒"
		PRINTFORML セックスの中毒になります
		PRINTFORML 侵食度合いによって頻度が増していきます
		PRINTFORML 依存症と違い、肉体が中出しを欲しがります
		PRINTFORML
	CASE "膣内放尿"
		PRINTFORML 中出し後膣内に放尿を促します
		PRINTFORML 温かい液体まみれは、ぬるま湯につかったような気持ちよさがあります
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "高速出産"
		PRINTFORML 通常の十倍の速度で胎児が成長します
		PRINTFORML 一ヶ月もあれば出産します
		PRINTFORML 《特殊效果》妊娠時間1/10
	CASE "超高速出産"
		PRINTFORML 通常の三十倍の速度で胎児が成長します
		PRINTFORML 十日もあれば出産します
		PRINTFORML 《特殊效果》妊娠時間1/30

	CASE "Ｂ支配"
		PRINTFORML 胸を支配下に置きます
		PRINTFORML
		PRINTFORML
	CASE "母乳"
		PRINTFORML 母乳が出るようになります
		PRINTFORML 妊娠していなくても問題ありません
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "膨乳"
		PRINTFORML 胸が一段階大きくなります
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "Ｂ寄生"
		PRINTFORML 乳腺に卵などで寄生します
		PRINTFORML 胸から産卵もできるようになります
		PRINTFORML
	CASE "陥没乳首"
		PRINTFORML 乳首が陥没します
		PRINTFORML
	CASE "長乳首"
		PRINTFORML 勃起した乳首が指くらいの長さになります
		PRINTFORML
	CASE "濃厚母乳"
		PRINTFORML 母乳が濃厚になります
		PRINTFORML 少しのみにくいですが栄養は豊富です
		PRINTFORML
	CASE "噴乳"
		PRINTFORML 母乳が勢いよく吹き出すようになります
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "搾乳中毒"
		PRINTFORML 搾乳しないと体に悪い頻度で母乳が出るようになります
		PRINTFORML 授乳したり機械を利用して搾乳する必要があります
		PRINTFORML 《特殊效果》搾乳おねだりイベント条件
	CASE "母乳量上昇"
		PRINTFORML 母乳体質になった際、母乳が壊れるほど出るようになります
		PRINTFORML 搾乳中毒と違い一度に出る量が多くなります
		PRINTFORML

	CASE "Ｃ支配"
		PRINTFORML クリトリスやふたなりちんぽ、尿道などを支配します
		PRINTFORML
		PRINTFORML
	CASE "ふたなり"
		PRINTFORML 触手により男根が生えます
		PRINTFORML 長期間触らず射精を我慢すれば自然と取れます
		PRINTFORML 《特殊效果》%ARGS:0%化イベント条件
	CASE "性欲過剰"
		PRINTFORML レイプしないと足りないくらい強い性欲に襲われます
		PRINTFORML 《特殊效果》レイプ系イベント条件
	CASE "射精中毒"
		PRINTFORML 体に悪いほど精液ができます
		PRINTFORML 量というより成分の問題です
		PRINTFORML
	CASE "自己受精"
		PRINTFORML ふたなりちんぽの精液を自分に注ぎ込ませ妊娠させます
		PRINTFORML 触手やスライムなどが精液を取り込んで膣内にぶちまけます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "睾丸寄生"
		PRINTFORML ふたなりちんぽの玉に寄生します
		PRINTFORML 卵や寄生体を尿道から流し込みます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "睾丸妊娠"
		PRINTFORML ふたなりちんぽの玉を妊娠させます
		PRINTFORML 精液を流し込み体外受精させます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件

	CASE "Ａ支配"
		PRINTFORML お尻の穴や尻肉を支配します
		PRINTFORML
		PRINTFORML
	CASE "Ａ寄生"
		PRINTFORML お尻から産卵するように体内に寄生します
		PRINTFORML
		PRINTFORML
	CASE "下痢"
		PRINTFORML 肛門からの排泄物が水気の多い液状になります
		PRINTFORML 腹痛や排泄欲求も伴います
		PRINTFORML
	CASE "排泄許可"
		PRINTFORML 排泄に触手が許可を出します
		PRINTFORML 許可が出るまで我慢を強要します
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "体液汚染"
		PRINTFORML 体液が触手に汚染されます
		PRINTFORML 発情液や下剤などを仕込みます
		PRINTFORML
	CASE "老廃物汚染"
		PRINTFORML 老廃物が触手に汚染されます
		PRINTFORML 排泄物だけでなく汗や脂すら影響します
		PRINTFORML
	CASE "Ａ拡張"
		PRINTFORML お尻を太いものが入るくらいに広げます
		PRINTFORML 拡張が進むと人の腕くらいは入るようになります
		PRINTFORML
	CASE "Ａ粘膜強化"
		PRINTFORML お尻の粘膜を強化します
		PRINTFORML 本来傷つきやすい粘膜に柔軟さや再生力を与えます
		PRINTFORML
	CASE "排泄欲求"
		PRINTFORML 触手のさじ加減ひとつで催すようになります
		PRINTFORML 実際に出そうになっているかは別問題です
		PRINTFORML

	CASE "キス魔"
		PRINTFORML キス癖がつきます
		PRINTFORML するのもされるのも大好きです
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "舌技"
		PRINTFORML 舌が指のように自在に動きます
		PRINTFORML 相手を気持ちよくするなんて朝飯前です
		PRINTFORML
	CASE "中毒性唾液"
		PRINTFORML いつまでも飲みたくなる唾液が分泌されます
		PRINTFORML 中毒が進むと自分からキスをせがむことでしょう
		PRINTFORML
	CASE "口内敏感"
		PRINTFORML 口の中が敏感になります
		PRINTFORML 口でドライオーガズムも余裕です
		PRINTFORML
	CASE "唾液中毒"
		PRINTFORML キスされて相手の唾液を飲むのが癖になります
		PRINTFORML 心が拒否しても体が求めます
		PRINTFORML
	CASE "精飲中毒"
		PRINTFORML 侵食されると精液を飲むのを体が求めます
		PRINTFORML 心が拒否しても体が求めます
		PRINTFORML

	CASE "排卵異常"
		PRINTFORML 妊娠しやすいように
		PRINTFORML 性的興奮に反応して排卵するように肉体改造します
		PRINTFORML
	CASE "媚薬爆弾"
		PRINTFORML 膣内に媚薬爆弾が埋め込みます
		PRINTFORML 埋め込んで数日で爆発し、壊れそうな激しい快感を与えます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "欲張りセット"
		PRINTFORML 侵食時に状態異常を与えます
		PRINTFORML 母乳・ふたなり・媚薬爆弾、などのうち能力取得済みのものを一度に与えます
		PRINTFORML 《特殊效果》侵食時に状態異常
	CASE "超乳"
		PRINTFORML 膨乳の限界を超えます
		PRINTFORML 人間の最上位～それを超えるほどにまで肥大化させます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "縮乳"
		PRINTFORML 胸が小さくなります
		PRINTFORML 最低限あると分かる程度しか残りません
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "絶壁"
		PRINTFORML 胸がなくなります
		PRINTFORML 男と勘違いされたり背中と間違われても仕方がありません
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件

	CASE "動物耳"
		PRINTFORML 対象の動物の耳と尻尾が生えます
		PRINTFORML なんの動物かは個人差があります
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "獣人化"
		PRINTFORML 動物の耳と尻尾に加え、対象の顔や四肢まで動物化します
		PRINTFORML 日常生活に支障が出るでしょう
		PRINTFORML
	CASE "ケモ化"
		PRINTFORML 対象の全身が動物の体になります
		PRINTFORML 人語は喋れますが二本足で立つのすら困るでしょう
		PRINTFORML 《特殊效果》ケモ化イベント条件・末路の追加
	CASE "四肢麻痺"
		PRINTFORML 対象の四肢の動きが悪くなります
		PRINTFORML 細かい動作はうまくできなくなるでしょう
		PRINTFORML
	CASE "触手服"
		PRINTFORML 侵食した相手の服を触手に変えます
		PRINTFORML 脱ぐことはできず常に体を蝕みます
		PRINTFORML 《特殊效果》%ARGS:0%イベント条件
	CASE "四肢石化"
		PRINTFORML 対象の四肢が硬化し動かせなくなります
		PRINTFORML 硬いですが再生ができず壊れたら壊れたままです
	CASE "石化"
		PRINTFORML 対象の全身が石化します
		PRINTFORML 仮死状態のようなもので適切な治療を根気よく続けなければ元には戻りません
		PRINTFORML 《特殊效果》石化イベント条件・末路の追加

	CASE "神経支配"
		PRINTFORML 神経を末端から支配し脳まで勢力を広げます
		PRINTFORML 直接脳に刺激を送ることも可能でしょう
	CASE "快楽刺激注入"
		PRINTFORML 神経支配で脳を掌握し快楽刺激を直接脳に送り込みます
		PRINTFORML 《特殊效果》脳クチュイベント条件

	CASE "腹ボコ"
		PRINTFORML 子宮やお腹が柔らかくなり大量の精液や卵が中にはいっても受け入れられます
		PRINTFORML 《特殊效果》妊娠・寄生取得済みの場合成功率上昇
	CASE "注ぎ込み"
		PRINTFORML 触手や男性などの精液量が増加します
		PRINTFORML 《特殊效果》妊娠・寄生取得済みの場合成功率上昇
	CASE "アナルほじり"
		PRINTFORML 指ほどの細いものでアナルをグリグリとほじられるようになります
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "アナル挿入"
		PRINTFORML 男性器くらいの大きさのものをアナルに挿入します
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "尻肉揉み"
		PRINTFORML 尻肉をもみほぐします
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "乳首責め"
		PRINTFORML 乳首を重点的にいじめます
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "乳肉揉み"
		PRINTFORML 乳肉をもみます
		PRINTFORML 小さくてもどうにかします
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "クリトリス責め"
		PRINTFORML クリトリスをつまんだり押したりいじめられるようになります
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "まんこほじり"
		PRINTFORML 指ほどの細いものでまんこをグリグリとほじられるようになります
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "腸疲労"
		PRINTFORML 腸の働きを抑えます
		PRINTFORML 便秘になったり屁がでやすくなります
		PRINTFORML
	CASE "代謝悪化"
		PRINTFORML 代謝がうまく働かなくなります
		PRINTFORML 風邪のような寒気を感じたり、老廃物がうまく分解できずに体臭がひどくなったりします
		PRINTFORML

	CASE "幻聴"
		PRINTFORML 頭に響くように聞こえないはずのささやき声が聞こえます
		PRINTFORML どこか聞いていたくなるような不思議な声です
		PRINTFORML 《特殊效果》侵食済みキャラに毎ターンSPダメージ
	CASE "淫らな夢"
		PRINTFORML エッチな夢を見るようになります
		PRINTFORML 多感な娘は身体が反応してしまうこともあるでしょう
		PRINTFORML 《特殊效果》侵食済みキャラに毎ターンSPダメージ
	CASE "精神汚染"
		PRINTFORML 常人には理解できない思考に染まります
		PRINTFORML 例えば触手を崇めたり、友人を苗床にしたりです
	CASE "催眠"
		PRINTFORML 触手の意思に対して抵抗が薄くなっていきます
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "人形催眠"
		PRINTFORML 心が拒否しても身体が拒否できなくなります
		PRINTFORML まるで性人形のように
		PRINTFORML
	CASE "常識改変"
		PRINTFORML 新しい常識を受け入れてしまいます
		PRINTFORML 知らない人から見たら妄想ですが、あなたにとっては日常です
		PRINTFORML
	CASE "偽りの愛情"
		PRINTFORML 恋をします
		PRINTFORML 好きで好きで仕方がない
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "命令実行"
		PRINTFORML 主人の命令に従うようになります
		PRINTFORML
		PRINTFORML
	CASE "脅迫"
		PRINTFORML 脅されて命令をこなさなければなりません
		PRINTFORML たとえどんな理不尽なものでも人間性が削れようとも
		PRINTFORML
	CASE "崇拝"
		PRINTFORML 触手を崇拝します
		PRINTFORML
		PRINTFORML

	CASE "魔力侵食"
		PRINTFORML 魔力を変質させそこから侵食します
		PRINTFORML 召喚物が触手になったり、肉体強化で身体が敏感になったりします
		PRINTFORML
	CASE "怪談侵食"
		PRINTFORML 知るだけで対象を汚染します
		PRINTFORML 怪談や妖怪のように知ることそのものが侵食の原因になります
		PRINTFORML 《特殊效果》侵食済みキャラに毎ターンSPダメージ
	CASE "狂気侵食"
		PRINTFORML 深淵を覗く時深淵もまたお前を覗くのだ
		PRINTFORML 覗いてしまった事実はなくならない
		PRINTFORML 《特殊效果》侵食済みキャラに毎ターンSPダメージ
	CASE "意識同調侵食"
		PRINTFORML 触手の意思が対象に入り込み侵食します
		PRINTFORML 眠っている間や無意識の行動が汚染されていきます
		PRINTFORML 《特殊效果》侵食済みキャラに毎ターンSPダメージ
	CASE "時空侵食"
		PRINTFORML 時間や空間に干渉できるようになります
		PRINTFORML それらを操る相手の力を削ぐのに役立ちます
		PRINTFORML 《特殊效果》ワープホールレイプイベント条件
	CASE "海産侵食"
		PRINTFORML 幻想郷にないはずの海産生物に侵食します
		PRINTFORML どこから現れるかは謎でなぜか巨大化していたりします
		PRINTFORML 《特殊效果》海産イベント条件

	CASE "ノーパン万歳"
		PRINTFORML ぱんつをはかなくなります
		PRINTFORML 《特殊效果》ぱんつをはかなくなります
	CASE "下半身露出癖"
		PRINTFORML パンツやズボンをはかなくなります
		PRINTFORML スカートはとても短いものだけ履く場合があります
		PRINTFORML 《特殊效果》パンツやズボンをはかなくなります
	CASE "上半身露出癖"
		PRINTFORML 胸を露出するようになります
		PRINTFORML 《特殊效果》胸を露出するようになります
	CASE "全裸の世界"
		PRINTFORML すっぱだかーすっぱだかー
		PRINTFORML ぜんらーぜんらー
		PRINTFORML 《特殊效果》全裸になります
	CASE "エロバトル"
		PRINTFORML SPが0であったり催眠状態ならエッチな戦闘を仕掛けてくるようになります
		PRINTFORML 正気を失いエロバトルで触手を倒せると本気で思うようになります
		PRINTFORML 《特殊效果》エロバトルイベント条件・催眠キャラとの戦闘が特殊に
	CASE "魔法少女活動"
		PRINTFORML 女児向けだがどことなく性的なコスチュームで魔法少女活動に勤しみます
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生・ふたなり%ARGS:0%イベント条件
	CASE "双エロバトル"
		PRINTFORML ふたなりキャラがちんぽバトルをしだすようになります
		PRINTFORML 弾幕ごっこに変わる新たなバトルです
		PRINTFORML 《特殊效果》%ARGS:0%事件可發生
	CASE "エロ衣装魔法少女"
		PRINTFORML 魔法少女活動をエッチな衣装で行わせます
		PRINTFORML 《特殊效果》魔法少女活動衣装変更
	CASE "エロ運動会"
		PRINTFORML 支配された拠点は卑猥な運動会を開くようになります
		PRINTFORML 何のために行われるのか本人たちも不明です
		PRINTFORML 《特殊效果》エロ運動会イベント条件

	CASE "セックス依存症"
		PRINTFORML 心がセックス大好きになります
		PRINTFORML セックスしない日常なんて考えられません
		PRINTFORML
	CASE "中出し依存症"
		PRINTFORML 中出しされるのが大好きになります
		PRINTFORML 妊娠のリスクなんて関係ありません
		PRINTFORML
	CASE "精飲依存症"
		PRINTFORML 精液を飲むのが大好きになります
		PRINTFORML お茶のようにごくごくと飲んでしまいます
		PRINTFORML
	CASE "ちんぽ屈服"
		PRINTFORML ちんぽに勝てなくなります
		PRINTFORML 見せられるだけで発情し、挿入されるだけで逝きそうになります
		PRINTFORML 《特殊效果》ちんぽ属性エロダメージ大幅増加
	CASE "自慰依存症"
		PRINTFORML オナニーが大好きになります
		PRINTFORML 大好きなのにしてもしても足りません
		PRINTFORML
	CASE "獣ちんぽ屈服"
		PRINTFORML 獣ちんぽに勝てなくなります
		PRINTFORML 獣の雄々しいちんぽに発情し、即敗北します
		PRINTFORML 《特殊效果》獣ちんぽ属性エロダメージ大幅増加

	CASE "ファンファーレ"
		PRINTFORML 侵食されたキャラが性的な行為をする際、周囲に和太鼓のBGMが流れるようになります
		PRINTFORML
	CASE "エクステンド音"
		PRINTFORML 卵子と精子でエクステンド音とグレイズ音が周囲に鳴るようになります
		PRINTFORML

	CASE "健忘症"
		PRINTFORML 侵食されると物忘れが激しくなります
		PRINTFORML
	CASE "記憶消去"
		PRINTFORML 侵食されると記憶をどんどん失っていきます
		PRINTFORML
	CASE "記憶書き換え"
		PRINTFORML 侵食されると触手に都合の悪い記憶が書き換えられてしまいます
		PRINTFORML
	CASE "誤認"
		PRINTFORML 異変だと気づかれにくくなります
		PRINTFORML 心が納得の行く説明を作ってしまいます
	CASE "発散"
		PRINTFORML 不安や怒りを性的に発散します
		PRINTFORML 自慰であったり軽いセックスで済ませます
		PRINTFORML 《特殊效果》性欲発散事件可發生
	CASE "倒錯発散"
		PRINTFORML 不安や怒りを倒錯的な性衝動で発散します
		PRINTFORML 異種姦や野外露出を行います
		PRINTFORML 《特殊效果》性欲倒錯発散事件可發生

	CASE "機械侵食"
		PRINTFORML 複雑な機械に侵食し、その機能を乗っ取ります
		PRINTFORML 《特殊效果》チキチキイベント追加
	CASE "機械化"
		PRINTFORML 支配した少女を【機械】として改造します
		PRINTFORML 機械化後の外見は想像にお任せします
		PRINTFORML 《特殊效果》侵食済み少女の機械化が可能に

	CASE ""
		PRINTFORML
		PRINTFORML
	CASE ""
		PRINTFORML
		PRINTFORML
	CASE ""
		PRINTFORML
		PRINTFORML
	CASE ""
		PRINTFORML
		PRINTFORML
	CASE ""
		PRINTFORML
		PRINTFORML
	CASE ""
		PRINTFORML
		PRINTFORML
	CASE ""
		PRINTFORML
		PRINTFORML

	CASEELSE
		PRINTFORML 沒有説明信息的特殊能力
ENDSELECT

path: ERB/触手特殊能力/触手特殊能力説明.ERB


code:
;自動侵食処理
@AUTO_PARASITE_TENTACLE(CHARA_ID)
#DIM LCOUNT	;ループ用
#DIM CHARA_ID
#DIM CHARA_CON

CALL PARASITE_TENTACLE_RATE(CHARA_ID)
CHARA_CON = RESULT

;失敗した場合察知力と隠蔽度合いを比較
IF CHARA_CON > FLAG:10 + 5
	PRINTFORML 未能成功侵蝕%CALLNAME:CHARA_ID%
	;TranslatedMark %CALLNAME:CHARA_ID%の侵食に失敗した

	;異変に気づく判定、失敗しても察知力経験入手
	IF FLAG:異変隠蔽力 < ABL:CHARA_ID:異變發覺 && CFLAG:CHARA_ID:4 == 0
		CFLAG:CHARA_ID:4 = 1
		; 異變察覺
		CALL ADD_ABL_EXP(1, CHARA_ID, 2000 + RAND:2000)
	ELSE
		CALL ADD_ABL_EXP(1, CHARA_ID, 2000 + RAND:3000)
	ENDIF
	RETURN
ENDIF

;成功すれば侵食
CALL POLLUTED(CHARA_ID)


code:
;戦闘処理

@BATTLE(CHARA_ID, ARG:1)
#DIM CHARA_ID
#DIM LCOUNT
#DIM TENTACLE_BATTLE_POWER
#DIM ANTI_TENTACLE_BATTLE_POWER
#DIM DAMAGED_TENTACLE
#DIM DAMAGED_DAY
#DIM DAMAGE_AMOUNT

;CHARA_ID	対戦相手
;ARG:1		0なら触手が攻撃、1なら触手が防御側

;初期宿主は当たり前だが戦わない
IF CHARA_ID == FLAG:初期宿主
	RETURN
ENDIF

IF CFLAG:CHARA_ID:逃走中 && ARG:1 == 1
	RETURN
ELSEIF ESCAPE_FROM_BATTLE(CHARA_ID) && CFLAG:CHARA_ID:逃走中 == 0
	DRAWLINE
	PRINTFORML %CALLNAME:(CHARA_ID)%意識到僅憑自己無法解決異變后果斷逃離了...
	;TranslatedMark %CALLNAME:(CHARA_ID)%は異変の解決は無理だと悟り逃げ出した……
	CFLAG:CHARA_ID:逃走中 = 1
	DRAWLINE
	PRINTFORML
	RETURN
ELSEIF TFLAG:逃走中
	DRAWLINE
	PRINTFORML 正在尋找的%CALLNAME:(CHARA_ID)%似乎已逃脱了...
	;TranslatedMark %CALLNAME:(CHARA_ID)%が探しているがすでに逃げ出したあとだった……
	DRAWLINE
	PRINTFORML
	RETURN
ELSEIF ARG:1 == 0
	DRAWLINE
	PRINTFORML %CALLNAME:(CHARA_ID)%、襲來！
	;TranslatedMark %CALLNAME:(CHARA_ID)%に襲いかかった！
	IF CFLAG:CHARA_ID:仲間
		PRINTFORML %CALLNAME:(CFLAG:CHARA_ID:仲間)%也加入了戰鬥！
		;TranslatedMark %CALLNAME:(CFLAG:CHARA_ID:仲間)%も一緒だ！
	ENDIF
ELSEIF ARG:1 == 1
	DRAWLINE
	PRINTFORML %CALLNAME:(CHARA_ID)%發起了挑戰！
	;TranslatedMark %CALLNAME:(CHARA_ID)%が勝負を仕掛けてきた！
	IF CFLAG:CHARA_ID:仲間
		PRINTFORML %CALLNAME:(CFLAG:CHARA_ID:仲間)%也加入了對決！
		;TranslatedMark %CALLNAME:(CFLAG:CHARA_ID:仲間)%も一緒だ！
	ENDIF
ENDIF
DRAWLINE
PRINTFORML
PRINTFORMW
CALL SHOW_TUTORIAL(4)

IF ITEM:9
	CALL AUTO_PARASITE_TENTACLE(CHARA_ID)
ENDIF

CALL PRINT_MESSAGE(CHARA_ID, "襲撃", 0, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
CALL PRINT_MESSAGE(FLAG:初期宿主, "襲撃", 1, CALLNAME:(FLAG:初期宿主), CALLNAME:CHARA_ID, ARG:1)

;基本的に対戦相手と戦闘素質を比べ合う
;状態異常とかで補正

TENTACLE_BATTLE_POWER = FLAG:戦闘力
ANTI_TENTACLE_BATTLE_POWER = ABL:(CHARA_ID):戦闘素質

;戦闘技能で補正
IF ABL:CHARA_ID:戦闘技能
	ANTI_TENTACLE_BATTLE_POWER += ABL:CHARA_ID:戦闘技能 * 10
ENDIF

;仲間による補正
IF CFLAG:CHARA_ID:仲間
	ANTI_TENTACLE_BATTLE_POWER += FRIENDSHIP(CHARA_ID, CFLAG:CHARA_ID:仲間)
	IF CFLAG:(CFLAG:CHARA_ID:仲間):支配済
		CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 7, CALLNAME:CHARA_ID, CALLNAME:(CFLAG:CHARA_ID:仲間))
	ENDIF
ENDIF

;神気で補正
IF TALENT:CHARA_ID:神気
	ANTI_TENTACLE_BATTLE_POWER += 3
ENDIF
IF TALENT:CHARA_ID:浄化知識
	ANTI_TENTACLE_BATTLE_POWER += 5 * TALENT:CHARA_ID:浄化知識
ENDIF

;テンションで補正
IF BASE:CHARA_ID:TP > 150
	ANTI_TENTACLE_BATTLE_POWER = ANTI_TENTACLE_BATTLE_POWER * 11 / 10
ELSEIF BASE:CHARA_ID:TP >= 120
	ANTI_TENTACLE_BATTLE_POWER = ANTI_TENTACLE_BATTLE_POWER * 105 / 100
ENDIF

;初期宿主が支配済だと参戦
IF CFLAG:(FLAG:初期宿主):支配済 && TALENT:(FLAG:初期宿主):犠牲者 == 0
	TENTACLE_BATTLE_POWER += ABL:(FLAG:初期宿主):戦闘素質 / 2
	PRINTFORMW %CALLNAME:(FLAG:初期宿主)%站在了%CALLNAME:(CHARA_ID)%的對面
	;TranslatedMark %CALLNAME:(FLAG:初期宿主)%は%CALLNAME:(CHARA_ID)%の敵に回った
	CALL PRINT_MESSAGE(CHARA_ID, "襲撃", 2, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
	CALL PRINT_MESSAGE(FLAG:初期宿主, "襲撃", 3, CALLNAME:(FLAG:初期宿主), CALLNAME:CHARA_ID, ARG:1)
ENDIF

;侵食済みだと弱体化
IF CFLAG:CHARA_ID:侵食済
	TENTACLE_BATTLE_POWER += FLAG:支配力 * (100 - POLLUTED_STRENGTH(CHARA_ID)) / 100
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 0, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;支配済み初期宿主は仲がいい相手に動揺を与える
IF CFLAG:(FLAG:初期宿主):支配済 && CFLAG:CHARA_ID:(300 + (FLAG:初期宿主)) >= 120
	ANTI_TENTACLE_BATTLE_POWER -= 10
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 1, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;衣服溶解液があると恥じらい持ちは弱体化
IF TALENT:CHARA_ID:恥じらい && ITEM:26
	ANTI_TENTACLE_BATTLE_POWER -= 5
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 2, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;防衛時触手の領域が戦闘補正
IF ITEM:30 && ARG:1 == 1
	TENTACLE_BATTLE_POWER += 10
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 3, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;発情+液体散布があると発情液を散布し少女弱体化
IF ITEM:122 && ITEM:27
	ANTI_TENTACLE_BATTLE_POWER -= 5
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 4, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;炎熱変換で補正
IF TALENT:CHARA_ID:炎熱変換 && ITEM:33 == 0
	ANTI_TENTACLE_BATTLE_POWER += 15
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 5, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;戦闘員や悪堕ち補正
IF (FLAG:戦闘員数 || FLAG:悪堕ち数)
	TENTACLE_BATTLE_POWER += (FLAG:戦闘員数 * 3) + (FLAG:悪堕ち数 * 5)
	CALL PRINT_MESSAGE(CHARA_ID, "戦闘補正", 6, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
ENDIF

;拘束・戦意喪失だとペナルティ
IF CFLAG:CHARA_ID:拘束
	ANTI_TENTACLE_BATTLE_POWER = ANTI_TENTACLE_BATTLE_POWER / 2
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 20, CALLNAME:CHARA_ID, "拘束")
ENDIF
IF CFLAG:CHARA_ID:戦意喪失
	ANTI_TENTACLE_BATTLE_POWER = ANTI_TENTACLE_BATTLE_POWER / 2
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 28, CALLNAME:CHARA_ID, "戦意喪失")
ENDIF

;恐慌・睡眠・絶頂・強制自慰・催眠状態だと侵食の強さに応じてペナルティ
IF CFLAG:CHARA_ID:恐慌
	ANTI_TENTACLE_BATTLE_POWER -= (ANTI_TENTACLE_BATTLE_POWER / 2) * POLLUTED_STRENGTH(CHARA_ID) / 100
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 24, CALLNAME:CHARA_ID, "恐慌")
ENDIF
IF CFLAG:CHARA_ID:睡眠
	ANTI_TENTACLE_BATTLE_POWER -= (ANTI_TENTACLE_BATTLE_POWER / 2) * POLLUTED_STRENGTH(CHARA_ID) / 100
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 25, CALLNAME:CHARA_ID, "睡眠")
ENDIF
IF CFLAG:CHARA_ID:絶頂
	ANTI_TENTACLE_BATTLE_POWER -= (ANTI_TENTACLE_BATTLE_POWER / 2) * POLLUTED_STRENGTH(CHARA_ID) / 100
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 29, CALLNAME:CHARA_ID, "絶頂")
ENDIF
IF CFLAG:CHARA_ID:強制自慰
	ANTI_TENTACLE_BATTLE_POWER -= (ANTI_TENTACLE_BATTLE_POWER / 2) * POLLUTED_STRENGTH(CHARA_ID) / 100
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 30, CALLNAME:CHARA_ID, "強制自慰")
ENDIF
IF CFLAG:CHARA_ID:催眠
	ANTI_TENTACLE_BATTLE_POWER -= (ANTI_TENTACLE_BATTLE_POWER / 2) * POLLUTED_STRENGTH(CHARA_ID) / 100
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 31, CALLNAME:CHARA_ID, "催眠")
ENDIF

IF CFLAG:CHARA_ID:発情
	ANTI_TENTACLE_BATTLE_POWER = ANTI_TENTACLE_BATTLE_POWER - 10
ENDIF

;連戦補正
IF DAY == DAMAGED_DAY
	TENTACLE_BATTLE_POWER -= DAMAGED_TENTACLE
	PRINTFORML 接連不斷的戰鬥使觸手的戰鬥力下降了{DAMAGED_TENTACLE}
	;TranslatedMark 連戦により触手戦闘力が{DAMAGED_TENTACLE}下がった
ELSE
	DAMAGED_TENTACLE = 0
	DAMAGED_DAY = 0
ENDIF

;幽々子は戦闘において強い
IF CALLNAME:(CHARA_ID) == "幽々子" && FLAG:難易度 > 1 && (CFLAG:CHARA_ID:侵食済 == 0 || FLAG:支配力 < ANTI_TENTACLE_BATTLE_POWER)
	ANTI_TENTACLE_BATTLE_POWER += 999
	PRINTFORML %CALLNAME:(CHARA_ID)%發動了操縱死亡程度的能力！
	;TranslatedMark %CALLNAME:(CHARA_ID)%は死を操る程度の能力を使った！
ENDIF

;===============================
;ここから実際の比較
;===============================

PRINTFORML 觸手計算補正后的戰鬥力   {TENTACLE_BATTLE_POWER}
;TranslatedMark 補正入り触手戦闘力   {TENTACLE_BATTLE_POWER}
PRINTFORMW %CALLNAME:(CHARA_ID)%計算補正后的戰鬥力 {ANTI_TENTACLE_BATTLE_POWER}
;TranslatedMark 補正入り%CALLNAME:(CHARA_ID)%の戦闘力 {ANTI_TENTACLE_BATTLE_POWER}

IF CFLAG:CHARA_ID:催眠 && ITEM:325
	CALL RANDOM_ERO_BATTLE_TYPE
	PRINTFORMW %CALLNAME:(CHARA_ID)%向%SAVESTR:0%發起了%RANDOM_ERO_BATTLE()%的挑戰！
	;TranslatedMark %CALLNAME:(CHARA_ID)%は%SAVESTR:0%に%RANDOM_ERO_BATTLE()%で勝負を仕掛けた！
ENDIF

IF TENTACLE_BATTLE_POWER >= ANTI_TENTACLE_BATTLE_POWER
	PRINTFORMW %CALLNAME:(CHARA_ID)%輸了...
	;TranslatedMark %CALLNAME:(CHARA_ID)%は負けてしまった……
	CALL PRINT_MESSAGE(CHARA_ID, "襲撃", 4, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), ARG:1)
	CALL PRINT_MESSAGE(FLAG:初期宿主, "襲撃", 5, CALLNAME:(FLAG:初期宿主), CALLNAME:CHARA_ID, ARG:1)
	IF FLAG:肉体支配力 >= FLAG:精神支配力
		BASE:CHARA_ID:HP = -1 * (FLAG:支配力 + FLAG:肉体支配力) * 100
		CALL DOMINATE(CHARA_ID, 1)
	ELSEIF FLAG:肉体支配力 < FLAG:精神支配力
		BASE:CHARA_ID:MP = -1 * (FLAG:支配力 + FLAG:精神支配力) * 100
		CALL DOMINATE(CHARA_ID, 1)
	ENDIF
	CALL ADD_ABL_EXP(3, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ADD_ABL_EXP(6, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ADD_ABL_EXP(7, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ADD_ABL_EXP(8, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ADD_ABL_EXP(9, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ADD_ABL_EXP(10, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ADD_ABL_EXP(11, CHARA_ID, TENTACLE_BATTLE_POWER * 10)
	CALL ADD_ABL_EXP(12, CHARA_ID, TENTACLE_BATTLE_POWER * 10)
	IF ITEM:222 && GET_PENIS(CHARA_ID)
		CALL ADD_ABL_EXP(13, CHARA_ID, TENTACLE_BATTLE_POWER * 10)
	ENDIF
	IF ITEM:17
		CALL ADD_ABL_EXP(14, CHARA_ID, TENTACLE_BATTLE_POWER * 10)
	ENDIF
	CALL ADD_ABL_EXP(15, CHARA_ID, TENTACLE_BATTLE_POWER * 10)
	IF TALENT:CHARA_ID:母乳体質
		CALL ADD_ABL_EXP(16, CHARA_ID, TENTACLE_BATTLE_POWER * 10)
	ENDIF
	IF CFLAG:CHARA_ID:仲間
		PRINTFORMW %CALLNAME:(CFLAG:CHARA_ID:仲間)%輸了...
		;TranslatedMark %CALLNAME:(CFLAG:CHARA_ID:仲間)%は負けてしまった……
		CALL PRINT_MESSAGE(CFLAG:CHARA_ID:仲間, "襲撃", 4, CALLNAME:(CFLAG:CHARA_ID:仲間), CALLNAME:(FLAG:初期宿主), ARG:1)
		CALL PRINT_MESSAGE(FLAG:初期宿主, "襲撃", 5, CALLNAME:(FLAG:初期宿主), CALLNAME:(CFLAG:CHARA_ID:仲間), ARG:1)
		IF FLAG:肉体支配力 >= FLAG:精神支配力
			BASE:(CFLAG:CHARA_ID:仲間):HP = -1 * (FLAG:支配力 + FLAG:肉体支配力) * 100
			CALL DOMINATE((CFLAG:CHARA_ID:仲間), 1)
		ELSEIF FLAG:肉体支配力 < FLAG:精神支配力
			BASE:(CFLAG:CHARA_ID:仲間):MP = -1 * (FLAG:支配力 + FLAG:精神支配力) * 100
			CALL DOMINATE((CFLAG:CHARA_ID:仲間), 1)
		ENDIF
		CALL ADD_ABL_EXP(3, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 100)
		CALL ADD_ABL_EXP(6, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 100)
		CALL ADD_ABL_EXP(7, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 100)
		CALL ADD_ABL_EXP(8, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 100)
		CALL ADD_ABL_EXP(9, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 100)
		CALL ADD_ABL_EXP(10, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 100)
		CALL ADD_ABL_EXP(11, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 10)
		CALL ADD_ABL_EXP(12, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 10)
		IF ITEM:222 && GET_PENIS((CFLAG:CHARA_ID:仲間))
			CALL ADD_ABL_EXP(13, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 10)
		ENDIF
		IF ITEM:17
			CALL ADD_ABL_EXP(14, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 10)
		ENDIF
		CALL ADD_ABL_EXP(15, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 10)
		IF TALENT:(CFLAG:CHARA_ID:仲間):母乳体質
			CALL ADD_ABL_EXP(16, (CFLAG:CHARA_ID:仲間), TENTACLE_BATTLE_POWER * 10)
		ENDIF
	ENDIF
ELSE
	CALL ADD_ABL_EXP(3, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ESCAPE_TENTACLE(CHARA_ID, ARG:1)
ENDIF

;連戦補正
IF ANTI_TENTACLE_BATTLE_POWER > 0
	DAMAGE_AMOUNT = RAND:(ANTI_TENTACLE_BATTLE_POWER + 1) / 3
	DAMAGED_TENTACLE += DAMAGE_AMOUNT
	DAMAGED_DAY = DAY
	IF ITEM:25 && ITEM:71 && TALENT:CHARA_ID:母乳体質
		PRINTFORML %SAVESTR:0%吮吸著%CALLNAME:(CHARA_ID)%的乳首，開始\@ TALENT:CHARA_ID:母乳体質 >= 3? 大聲地 # \@啜飲母乳！
		;TranslatedMark %SAVESTR:0%は%CALLNAME:(CHARA_ID)%の乳首に吸いつき、\@ TALENT:CHARA_ID:母乳体質 >= 3? 音を立てて# \@母乳を飲み始めた！
		PRINTFORML %CALLNAME:(CHARA_ID)%的乳量：{TALENT:CHARA_ID:母乳体質} 濃度：{TALENT:CHARA_ID:母乳粘度}
		;TranslatedMark %CALLNAME:(CHARA_ID)%の乳量：{TALENT:CHARA_ID:母乳体質} 濃度：{TALENT:CHARA_ID:母乳粘度}
		PRINTFORMW %SAVESTR:0%的疲勞稍微減輕了
		;TranslatedMark %SAVESTR:0%は疲労を少し回復した
		DAMAGED_TENTACLE -= DAMAGE_AMOUNT * (TALENT:CHARA_ID:母乳体質 + TALENT:CHARA_ID:母乳粘度) * 2 / 100
	ENDIF
ENDIF


code:
;キャラの初期レベルと経験値が見合っていない部分を補正
@CHARA_EXP_INIT
;LOCAL
;0	LOOP
;1	LOOP2

FOR LOCAL:0, 1, CHARANUM
	CALL CHARA_EXP_INIT_SINGLE(LOCAL:0)
NEXT

@CHARA_EXP_INIT_SINGLE(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT

FOR LOCAL:1, 0, 17
	IF (ABL:(CHARA_ID):(LOCAL:1) > 0)
		;レベルが１以上だった場合、補正する
		CALL GET_NEED_EXP(LOCAL:1, ABL:(CHARA_ID):(LOCAL:1))
		EXP:(CHARA_ID):(LOCAL:1) = RESULT
	ENDIF
NEXT

FOR LOCAL:1, 0, 17
	FOR LCOUNT, 0, 3
		IF (EXP:(CHARA_ID):(LOCAL:1) > 0)
			;レベルが１以上だった場合、補正する
			CALL GET_NEED_EXP(LOCAL:1, ABL:(CHARA_ID):(LOCAL:1))
			IF EXP:(CHARA_ID):(LOCAL:1) > RESULT
				ABL:(CHARA_ID):(LOCAL:1) ++
			ENDIF
		ENDIF
	NEXT
NEXT


code:
;信用度チェック
;PARTNER→CHARA_IDへの信用度をチェックする関数
@CHECK_TRUST(CHARA_ID, PARTNER, REQUIRED)
#FUNCTION
#DIM LCOUNT	;ループ用
#DIM CHARA_ID
#DIM TRUST_POINT
#DIM REQUIRED
#DIM PARTNER

TRUST_POINT = 0

;好感度・話術・恋人補正
IF PARTNER != 0
	;TRUST_POINT += CFLAG:CHARA_ID:(300 + PARTNER)
	TRUST_POINT += CFLAG:PARTNER:(300 + CHARA_ID)
	;IF CFLAG:CHARA_ID:(300 + PARTNER) > 110
	IF CFLAG:PARTNER:(300 + CHARA_ID) > 110
		TRUST_POINT += 10
	ENDIF
ELSE
	TRUST_POINT += 100
ENDIF

TRUST_POINT += ABL:CHARA_ID:話術 * 5

IF CFLAG:PARTNER:恋人 == CHARA_ID
	TRUST_POINT += 100
ENDIF

;補正ブレ
TRUST_POINT += RAND:10 + RAND:10

;触手能力によるデバフ
TRUST_POINT += - ITEM:46 * 3
TRUST_POINT += - ITEM:47 * 3

IF CFLAG:CHARA_ID:侵食済 && CFLAG:PARTNER:侵食済
	TRUST_POINT += 100
ENDIF

IF TRUST_POINT >= REQUIRED
	RETURNF 1
ELSE
	RETURNF 0
ENDIF