code:
;自発的に誰かに会いに行く
@TALK_SELECT
#DIM LCOUNT
#DIM ALIGN_BUTTON

$INPUT_LOOP
DRAWLINE
PRINTFORML 打算去见谁呢？
;TranslatedMark 誰に会いに行きますか？

ALIGN_BUTTON = 0
VARSET LOCAL

FOR LCOUNT , 1 , CHARANUM
	IF CFLAG:LCOUNT:住所特定
		IF TALENT:LCOUNT:犠牲者
			SETCOLOR 0x444444
			PRINTPLAINFORM 　 {LCOUNT:LOCAL,3}  %CSVNAME(NO:LCOUNT),16,LEFT%
		ELSE
			IF CFLAG:LCOUNT:屈服済
				SETCOLOR 0x70FF70
			ELSEIF CFLAG:LCOUNT:支配済
				SETCOLOR 0x2070FF
			ELSEIF CFLAG:LCOUNT:侵食済
				SETCOLOR 0xF07090
			ENDIF
			PRINTFORM 　[{LCOUNT:LOCAL,3}] %CSVNAME(NO:LCOUNT),16,LEFT%
		ENDIF
		RESETCOLOR

		LOCAL:LCOUNT = 1
		ALIGN_BUTTON += 1
		IF (ALIGN_BUTTON % 4) == 0
			PRINTL
		ENDIF
	ENDIF

NEXT
PRINTL
DRAWLINE
PRINTFORML [ 0] 放弃
;TranslatedMark [ 0] 戻る

INPUT

IF RESULT == 0
	RETURN 1
ELSEIF RESULT > 0 && GETCHARA(NO:RESULT) > 0
	IF RESULT != FLAG:初期宿主 && CFLAG:RESULT:支配済 == 0
		CALL TALK(GETCHARA(NO:RESULT))
	ELSEIF RESULT == FLAG:初期宿主 || CFLAG:RESULT:支配済
		CALL TALK_2(GETCHARA(NO:RESULT))
	ENDIF
ELSE
	GOTO INPUT_LOOP
ENDIF

;会話実処理
@TALK(CHARA_ID)
#DIM CHARA_ID

DRAWLINE

PRINTFORML
PRINTFORML %CALLNAME:(FLAG:初期宿主)%去与%CALLNAME:(CHARA_ID)%见面了
;TranslatedMark %CALLNAME:(FLAG:初期宿主)%は%CALLNAME:(CHARA_ID)%と出会った

;拘束・恐慌・睡眠・戦意喪失・絶頂・強制自慰状態だとメッセージ
IF CFLAG:CHARA_ID:拘束
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 20, CALLNAME:CHARA_ID, "拘束")
ENDIF
IF CFLAG:CHARA_ID:恐慌
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 24, CALLNAME:CHARA_ID, "恐慌")
ENDIF
IF CFLAG:CHARA_ID:睡眠
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 25, CALLNAME:CHARA_ID, "睡眠")
ENDIF
IF CFLAG:CHARA_ID:発情
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 25, CALLNAME:CHARA_ID, "発情")
ENDIF
IF CFLAG:CHARA_ID:戦意喪失
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 28, CALLNAME:CHARA_ID, "戦意喪失")
ENDIF
IF CFLAG:CHARA_ID:絶頂
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 29, CALLNAME:CHARA_ID, "絶頂")
ENDIF
IF CFLAG:CHARA_ID:強制自慰
	CALL PRINT_MESSAGE(CHARA_ID, "状態異常", 30, CALLNAME:CHARA_ID, "強制自慰")
ENDIF
PRINTFORML

IF ITEM:9
	CALL AUTO_PARASITE_TENTACLE(CHARA_ID)
ENDIF
IF ITEM:148
	PRINTFORML 現在%CALLNAME:(CHARA_ID)%对%CALLNAME:(FLAG:初期宿主)%的好感度为{CFLAG:CHARA_ID:(300 + FLAG:初期宿主)}
	;TranslatedMark 現在の%CALLNAME:(CHARA_ID)%の%CALLNAME:(FLAG:初期宿主)%に対する好感度は{CFLAG:CHARA_ID:(300 + FLAG:初期宿主)}です
ENDIF
IF TALENT:CHARA_ID:覚
	CALL BATTLE(CHARA_ID, 1)
ELSE
	CALL MEET_NPC(CHARA_ID)
ENDIF

RETURN

;会話実処理
;ALIGN_BUTTON	ボタン数
;EVENT_LIMIT	イベント番号範囲
@TALK_2(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT
#DIM ALIGN_BUTTON
#DIM TALK_EVENT
#DIM EVENT_LIMIT

DRAWLINE
PRINTFORML 要对%CALLNAME:CHARA_ID%做些什么？
;TranslatedMark %CALLNAME:CHARA_ID%に対して何をしますか？
PRINTFORML
PRINTFORML [ 1] 发生异变
;TranslatedMark [ 1] 異変を発生させる
PRINTFORML [ 2] 拷问
;TranslatedMark [ 2] 尋問する
IF CHARA_ID != FLAG:初期宿主 || ITEM:149
	PRINTFORML [ 3] 调情
	;TranslatedMark [ 3] いちゃいちゃする
ENDIF
IF ITEM:181 && CHARA_ID != FLAG:初期宿主 && CFLAG:CHARA_ID:傀儡 == 0
	PRINTFORML [ 4] 邀请成为部下
	;TranslatedMark [ 4] 部下にする
ENDIF
PRINTFORML [ 8] 蹂躏
;TranslatedMark [ 8] 蹂躙する
INPUT

IF RESULT == 1
	$INPUT_LOOP
	ALIGN_BUTTON = 0
	EVENT_LIMIT = 500
	VARSET LOCAL

	FOR LCOUNT , 0 , EVENT_LIMIT
		FLAG:21 = 0
		TRYCCALLFORM EVENTABLE{LCOUNT}(CHARA_ID)
			IF FLAG:21
				CALLFORM EVENTNAME{LCOUNT}
				PRINTFORM 　[{LCOUNT:LOCAL,3}] %RESULTS%
			ENDIF
			ALIGN_BUTTON += 1
			IF (ALIGN_BUTTON % 3) == 0
				PRINTL
			ENDIF

		CATCH

		ENDCATCH
	NEXT

	VARSET TFLAG

	PRINTL
	DRAWLINE

	INPUT
	TALK_EVENT = RESULT

	TRYCCALLFORM EVENTABLE{TALK_EVENT}(CHARA_ID)
	CATCH
	ENDCATCH

	IF TALK_EVENT >= 0 && TALK_EVENT <= EVENT_LIMIT && FLAG:21
		CALLFORM EVENT{TALK_EVENT}(CHARA_ID)
		FLAG:21 = 0
	ELSE
		GOTO INPUT_LOOP
	ENDIF
ELSEIF RESULT == 2
	CALL QUESTION(CHARA_ID)
ELSEIF RESULT == 3 && (CHARA_ID != FLAG:初期宿主 || ITEM:149)
	CALL LEZBIAN_PLAY(FLAG:初期宿主, CHARA_ID)
ELSEIF RESULT == 4 && ITEM:181 && CHARA_ID != FLAG:初期宿主 && CFLAG:CHARA_ID:傀儡 == 0
	CALL ENPLOY_CHARA(CHARA_ID)
ELSEIF RESULT == 8
	CALL TRAMPLE_ON(CHARA_ID)
ENDIF


code:
;蹂躙
;プライド折ったりぐしゃっとしたり
@TRAMPLE_ON(CHARA_ID)
#DIM LCOUNT
#DIM CHARA_ID
#DIM TENTACLE_BATTLE_POWER
#DIM ANTI_TENTACLE_BATTLE_POWER

;CHARA_ID	対戦相手

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

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

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 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 TENTACLE_BATTLE_POWER >= ANTI_TENTACLE_BATTLE_POWER
	PRINTFORMW %CALLNAME:(CHARA_ID)%战败了...
	;TranslatedMark %CALLNAME:(CHARA_ID)%は負けてしまった……
	CALL PHYSICAL_DEVELOP(CHARA_ID, FLAG:戦闘力)
	CALL TRAMPLE_ON_LOSER(CHARA_ID)

	IF CFLAG:CHARA_ID:仲間
		PRINTFORMW %CALLNAME:(CFLAG:CHARA_ID:仲間)%战败了...
		;TranslatedMark %CALLNAME:(CFLAG:CHARA_ID:仲間)%は負けてしまった……
		CALL PHYSICAL_DEVELOP(CHARA_ID, FLAG:戦闘力)
		CALL TRAMPLE_ON_LOSER(CFLAG:CHARA_ID:仲間)
	ENDIF
ELSE
	CALL ADD_ABL_EXP(3, CHARA_ID, TENTACLE_BATTLE_POWER * 100)
	CALL ESCAPE_TENTACLE(CHARA_ID, 0)
ENDIF

;===============================
;敗者への処理
;===============================
@TRAMPLE_ON_LOSER(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT
#DIM BREAK_LOOP

$INPUT_LOOP

PRINTFORML 要怎么做？
;TranslatedMark どうしますか？
PRINTFORML [ 1] 破坏
;TranslatedMark [ 1] 壊す
IF ITEM:45
	PRINTFORML [ 2] 使之彻底臣服
	;TranslatedMark [ 2] プライドを折る
ENDIF
PRINTFORML

INPUT

BREAK_LOOP = 0

IF RESULT == 1
	FOR LCOUNT, 0, 100
		IF (BREAK_LOOP % 4) == 3
			CALL RANDOM_BREAK_2_TYPE
			PRINTFORML %RANDOM_BREAK_2()%

			BREAK_LOOP += 1
		ELSE
			CALL RANDOM_BREAK_TYPE
			PRINTFORM %RANDOM_BREAK()%
			CALL RANDOM_BREAK_TYPE
			PRINTFORM %RANDOM_BREAK()%

			BREAK_LOOP += 1
		ENDIF
		CALL PHYSICAL_DEVELOP(CHARA_ID, FLAG:戦闘力)
		IF BASE:CHARA_ID:HP < -2000 && BREAK_LOOP > 7
			BREAK
		ENDIF
	NEXT
	FOR LCOUNT, 0, BREAK_LOOP
		CALL PHYSICAL_DEVELOP(CHARA_ID, FLAG:戦闘力)
	NEXT
	PRINTFORML
	PRINTFORML ………
	PRINTFORMW %SAVESTR:0%就这样抛下崩坏的%CALLNAME:CHARA_ID%离开了
	;TranslatedMark 壊れた%CALLNAME:CHARA_ID%を投げ捨てると%SAVESTR:0%は去っていった
ELSEIF RESULT == 2 ;&& ITEM:45
	IF QUESTION_RATE(CHARA_ID)
		CALL RANDOM_BREAK_3_TYPE
		CALL RANDOM_BREAK_4_TYPE(CHARA_ID)
		PRINTFORML 在%SAVESTR:0%所发出的%RANDOM_BREAK_3()%的命令下，%CALLNAME:CHARA_ID%%RANDOM_BREAK_4()%地屈服了...
		;TranslatedMark %SAVESTR:0%は%RANDOM_BREAK_3()%と命令し、%CALLNAME:CHARA_ID%は%RANDOM_BREAK_4()%従った……

		CALL MENTAL_DEVELOP(CHARA_ID, FLAG:戦闘力)
	ELSE
		IF ITEM:41 == 0
			PRINTFORM %SAVESTR:0%无法理解这些言语
			;TranslatedMark %SAVESTR:0%の言葉が理解できず、
		ENDIF
		PRINTFORML 看来%CALLNAME:CHARA_ID%即使是败北后也没有服从命令...
		;TranslatedMark %CALLNAME:CHARA_ID%は敗北しても命令に従わなかったようだ……
		CALL RANDOM_BREAK_TYPE
		PRINTFORM %RANDOM_BREAK()%
		CALL RANDOM_BREAK_TYPE
		PRINTFORM %RANDOM_BREAK()%
		CALL RANDOM_BREAK_2_TYPE
		PRINTFORML %RANDOM_BREAK_2()%
		CALL RANDOM_BREAK_TYPE
		PRINTFORM %RANDOM_BREAK()%
		CALL RANDOM_BREAK_TYPE
		PRINTFORM %RANDOM_BREAK()%
		CALL RANDOM_BREAK_2_TYPE
		PRINTFORML %RANDOM_BREAK_2()%
		PRINTFORML
		PRINTFORML ………
		PRINTFORMW %SAVESTR:0%抛下%CALLNAME:CHARA_ID%后就离开了
		;TranslatedMark %CALLNAME:CHARA_ID%を捨てると%SAVESTR:0%は去っていった

		CALL PHYSICAL_DEVELOP(CHARA_ID, FLAG:戦闘力)
	ENDIF

ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

repo_name: mcstone/syokushuhenth

license: unknown


code:
;ヘルプのような何か一覧表示
;内容が多いのでここでは各自への呼び出し処理のみ
;実際の内容は関数の方へ
@WIKI
REDRAW 0
DRAWLINE
PRINTL 请选择需要检查的内容
;TranslatedMark 確かめたいことを選んでください
DRAWLINE
PRINTFORML [ 1] 身体状态一览
;TranslatedMark [ 1] 体調・状態について
PRINTFORML [ 2] 触手基础能力一览
;TranslatedMark [ 2] 触手基礎能力一覧
PRINTFORML [ 3] 素质一览
;TranslatedMark [ 3] キャラ素質一覧
PRINTFORML [ 4] 少女の秘密
;TranslatedMark [ 4] 乙女の秘密
PRINTFORML [ 5] 教程
;TranslatedMark [ 5] チュートリアル
PRINTFORML
PRINTFORML [0] 取消
;TranslatedMark [0] 戻る
REDRAW 1

$INPUT_LOOP
INPUT

IF RESULT == 0
	RETURN
ELSEIF RESULT == 1
	CALL SHOW_STATUS_WIKI
ELSEIF RESULT == 2
	CALL SHOW_TENTACLE_WIKI
ELSEIF RESULT == 3
	CALL SHOW_TALENT_WIKI
ELSEIF RESULT == 4
	CALL SHOW_CHARA_WIKI
ELSEIF RESULT == 5
	CALL SHOW_TUTORIAL_WIKI
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

RESTART


code:
;キャラ一覧表示
@SHOW_CHARA_WIKI
#DIM LINE
#DIM 選択中キャラ
#DIM 現ページ
#DIM 表示人数
#DIM 一列表示キャラ数
#DIM 登録人数
#DIM キャラリスト , 200
#DIM キャラページ
#DIMS ページ内容 , 4

	;初期化処理&設定
	REDRAW 0
	LINE = LINECOUNT
	選択中キャラ = -1
	現ページ = 0
	キャラページ = 0
	表示人数 = 40
	一列表示キャラ数 = 4
	;キャラクタのリストを作成
	;というよりは人数の取得
	VARSET キャラリスト , -1
	FOR LOCAL , 1 , 200
		SIF EXISTCSV(LOCAL)
			キャラリスト:FINDELEMENT(キャラリスト , -1) = LOCAL
	NEXT
	登録人数 = FINDELEMENT(キャラリスト , -1)

	$PRINT
	;画面を更新
	CLEARLINE LINECOUNT - LINE
	DRAWLINE
	IF EXISTCSV(選択中キャラ)
		;先にページの内容を決める
		;最初に初期化
		VARSET ページ内容 , ""
		;1ページ目は能力で固定
		ページ内容:0 = 能力

		;現ページがページ数を超えてたら調整
		SIF FINDELEMENT(ページ内容 , "" , , , 1) <= 現ページ
			現ページ = 0
		;説明を表示
		CALL SHOW_CHARA_EXPLAIN_WIKI(選択中キャラ , ページ内容:現ページ)

		;操作UI表示
		;他の関数参照しない力技タイプ

		;[-]前のページ [+]次のページ
		IF FINDELEMENT(ページ内容 , "" , , , 1) != 1
			LOCAL = STRLENS(GETLINESTR(" ")) - STRLENS("[-]前のページ[+]次のページ")
			PRINTBUTTON "[-]上一页" , "-"
			;TranslatedMark "[-]前のページ" , "-"
			PRINTFORM %" " * LOCAL%
			PRINTBUTTON "[+]下一页" , "+"
			;TranslatedMark "[+]次のページ" , "+"
		ENDIF
		PRINTL
		;[<]前のキャラ [>]次のキャラ
		IF 登録人数 > 1
			LOCAL = STRLENS(GETLINESTR(" ")) - STRLENS("[<]前のキャラ[>]次のキャラ")
			PRINTBUTTON "[<]前一个角色" , "<"
			;TranslatedMark "[<]前のキャラ" , "<"
			PRINTFORM %" " * LOCAL%
			PRINTBUTTON "[>]下一个角色" , ">"
			;TranslatedMark "[>]次のキャラ" , ">"
		ENDIF
		PRINTL
	ELSE
		FOR LOCAL , 0 , 24
			PRINTL
		NEXT
	ENDIF

	DRAWLINE
	PRINTFORML 你要查看哪位少女的情报？
	;TranslatedMark どの乙女の情報を見ますか？
	FOR LOCAL, キャラページ * 表示人数 , (キャラページ + 1) * 表示人数
		IF キャラリスト:LOCAL != -1
			SIF キャラリスト:LOCAL == 選択中キャラ
				SETCOLORBYNAME Cyan
			PRINTFORM 　[{キャラリスト:LOCAL,3}] %CSVNAME(キャラリスト:LOCAL),16,LEFT%
			;4つ表示するごとに改行
			SIF LOCAL % 一列表示キャラ数 == 一列表示キャラ数 -1  && LOCAL > 0
				PRINTL
			RESETCOLOR
		ENDIF
	NEXT
	PRINTL
	PRINTL 　[  0] 取消
	;TranslatedMark [  0] キャンセル
	PRINTL 　[500] 下一页
	;TranslatedMark [500] 次へ
	PRINTL 　[600] 上一页
	;TranslatedMark [600] 前へ

	$INPUT_LOOP
	INPUTS

	IF RESULTS == "0"
		REDRAW 1
		RETURN
	ELSEIF RESULTS == "500"
		キャラページ ++
		SIF キャラページ > 登録人数 / 表示人数
			キャラページ = 0
	ELSEIF RESULTS == "600"
		キャラページ --
		SIF キャラページ < 0
			キャラページ = 登録人数 / 表示人数
	;キャラデータ表示のページ送り
	ELSEIF FINDELEMENT(ページ内容 , "" , , , 1) != 1 && GROUPMATCH(RESULTS , "-" , "+")
		IF RESULTS == "-"
			現ページ --
			SIF 現ページ < 0
				現ページ = FINDELEMENT(ページ内容 , "" , , , 1) - 1
		ELSE
			現ページ ++
			SIF 現ページ > FINDELEMENT(ページ内容 , "" , , , 1) - 1
				現ページ = 0
		ENDIF
	;表示キャラ送り
	ELSEIF 登録人数 > 1 && GROUPMATCH(RESULTS , "<" , ">")
		LOCAL = FINDELEMENT(キャラリスト , 選択中キャラ)
		IF RESULTS == "<"
			LOCAL --
			SIF LOCAL < 0
				LOCAL = 登録人数 - 1
		ELSE
			LOCAL ++
			SIF LOCAL > 登録人数 - 1
				LOCAL = 0
		ENDIF
		選択中キャラ = キャラリスト:LOCAL
	ELSEIF ISNUMERIC(RESULTS) && MATCH(キャラリスト , TOINT(RESULTS))
		選択中キャラ = TOINT(RESULTS)
	ELSE
		REUSELASTLINE 入力が不正です！
		CLEARLINE 1
		GOTO INPUT_LOOP
	ENDIF
	GOTO PRINT

;指定されたキャラの基本ステータスを表示
;ARG	指定キャラ
;ARGS	表示ページ
@SHOW_CHARA_EXPLAIN_WIKI(ARG:0 , ARGS)
#DIM LINE
LINE = LINECOUNT
PRINTFORML %CSVNAME(ARG),15,LEFT%
SELECTCASE ARGS
	CASE "能力"
		ADDCHARA ARG
		PRINTFORML

		SETCOLOR 0x70FFFF
		PRINTFORM HP {CSVBASE(NO:ARG,0)}
		SETCOLOR 0x70FF70
		PRINTFORM MP {CSVBASE(NO:ARG,1)}
		SETCOLOR 0xFF70FF
		PRINTFORM EP {CSVBASE(NO:ARG,2)}
		SETCOLOR 0xFFFF70
		PRINTFORML CP {CSVBASE(NO:ARG,3)}
		RESETCOLOR
		PRINTFORML

		PRINTFORM 初期经验
		;TranslatedMark 初期経験
		FOR LOCAL:0 , 0 ,15
			IF ABL:(CHARANUM-1):(LOCAL:0)
				PRINTFORM %ABLNAME:(LOCAL:0)% Lv{ABL:(CHARANUM-1):(LOCAL:0)}
				LOCAL:5 += 1
			ENDIF
		NEXT
		IF LOCAL:5 == 0
			PRINTFORM 无
			;TranslatedMark なし
		ENDIF
		PRINTFORML

		PRINTFORM 初期
		CALL SHOW_PERSONALITY(CHARANUM-1)

		PRINTFORML 战斗素质 {NO:CSVABL(ARG, 98, 0), 3}
		;TranslatedMark 戦闘素質 {NO:CSVABL(ARG, 98, 0), 3}
		PRINTFORM 初期素质：
		;TranslatedMark 初期素質：
		CALL SHOW_TALENT_LIST(CHARANUM-1,1)
		PRINTFORML

		PRINTFORM 相性：
		FOR LOCAL:0 , 0 ,200
			IF RELATION:(CHARANUM-1):(LOCAL:0)
				PRINTFORM %CSVNAME(NO:(LOCAL:0))% {RELATION:(CHARANUM-1):(LOCAL:0) - 100}
			ENDIF
		NEXT
		PRINTFORML
		IF CFLAG:ARG:7 > 0
			PRINTFORM 弱点 %ITEMNAME:(CFLAG:ARG:7)%
		ENDIF

		IF CFLAG:ARG:8 > 0
			PRINTFORML 　对抗 %ITEMNAME:(CFLAG:ARG:8)%
			;TranslatedMark 対抗 %ITEMNAME:(CFLAG:ARG:8)%
		ENDIF
		PRINTFORML
		;見栄えのため2行ほど開ける
		PRINTFORML
		PRINTFORML
		CALL SHOW_CHARA_EXPLAIN(ARG)

		LOCAL = 22 - (LINECOUNT - LINE) ;左：このページで表示させたい行数　右：現在この関数で消費した行数　LOCAL：不足行数
		WHILE LOCAL > 0
			PRINTL
			LOCAL --
		WEND

		DELCHARA CHARANUM-1

ENDSELECT


code:
;アイテム一覧表示
@SHOW_ITEM_WIKI
;LOCAL
;0	ループ用
;1	表示回数
;2	直前に選択した番号
;3	アイテム詳細を見た
;10	行削除用カウント1(計算用)
;11	行削除用カウント2(計算用)
;12	行削除用カウント3(項目の改行数)
;13	行削除用カウント4(計算用)
;14	行削除用カウント5(計算用)
;15	行削除用カウント6(詳細の改行数)

	$START
	REDRAW 0
	LOCAL:10 = LINECOUNT

	LOCAL:1 = 0
	DRAWLINE
	PRINTFORML 想要查看哪件物品？
	;TranslatedMark どのアイテムを見ますか？
	FOR LOCAL:0, 1, 300
		IF ITEMNAME:(LOCAL:0) != ""
			PRINTFORM [{LOCAL:0+1,3}] %ITEMNAME:(LOCAL:0),22,LEFT%
			LOCAL:1 += 1
			;3つ表示するごとに改行
			SIF (LOCAL:1 % 3) == 0 && LOCAL:1 > 0
				PRINTL
		ENDIF
	NEXT
	PRINTL
	PRINTL
	PRINTL [  0] 取消
	;TranslatedMark [  0] キャンセル

	$INPUT_LOOP
	INPUT

	LOCAL:11 = LINECOUNT
	;項目表示の改行数を記録
	LOCAL:12 = LOCAL:11 - LOCAL:10

	IF RESULT == 0
		REDRAW 1
		LOCAL:3 = 0
		RETURN
	ELSEIF ITEMNAME:(RESULT-1) != "" && RESULT > 0
		;行削除(初回)
		IF LOCAL:3 == 0
			CLEARLINE LOCAL:12
		;行削除(2回目～)
		ELSEIF LOCAL:3 == 1 && LOCAL:2 != RESULT
			CLEARLINE LOCAL:15 + LOCAL:12 + 3
		;連打のログ流れ防止
		ELSEIF LOCAL:2 == RESULT
			CLEARLINE 1
			GOTO INPUT_LOOP
		ENDIF
		LOCAL:2 = RESULT
		DRAWLINE
		SETCOLOR 0x60C0FF
		PRINTFORML >> %ITEMNAME:(RESULT-1),15,LEFT%
		RESETCOLOR
		LOCAL:13 = LINECOUNT
		CALL SHOW_ITEM_EXPLAIN_WIKI(ITEMNAME:(RESULT-1))
		LOCAL:14 = LINECOUNT
		;説明表示の改行数を記録
		LOCAL:15 = LOCAL:14 - LOCAL:13
		PRINTL
		LOCAL:3 = 1
		GOTO START
	ELSE
		CLEARLINE 1
		REUSELASTLINE 入力が不正です！
		GOTO INPUT_LOOP
	ENDIF


code:
;体調・状態一覧表示
@SHOW_STATUS_WIKI
;LOCAL
;0	ループ用
;1	改行用
;2	直前に選択した番号
;3	体調・状態詳細を見た
;10	行削除用カウント1(計算用)
;11	行削除用カウント2(計算用)
;12	行削除用カウント3(項目の改行数)
;13	行削除用カウント4(計算用)
;14	行削除用カウント5(計算用)
;15	行削除用カウント6(詳細の改行数)

	$START
	REDRAW 0
	LOCAL:10 = LINECOUNT

	LOCAL:1 = 0
	DRAWLINE
	PRINTFORML 要查看哪个项目？
	;TranslatedMark どの項目を見ますか？

	FOR LOCAL:0 , 1 , 31
		PRINTFORM [{LOCAL:0,2}] %STATUS_NAME(LOCAL:0),14,LEFT%
		LOCAL:1 += 1
		;4つ表示するごとに改行
		SIF (LOCAL:1 % 4) == 0 && LOCAL:1 > 0
			PRINTL
	NEXT
	PRINTL
	PRINTL
	PRINTL [ 0] 取消
	;TranslatedMark [ 0] キャンセル

	$INPUT_LOOP
	INPUT

	LOCAL:11 = LINECOUNT
	;項目表示の改行数を記録
	LOCAL:12 = LOCAL:11 - LOCAL:10

	IF RESULT == 0
		REDRAW 1
		LOCAL:3 = 0
		RETURN
	ELSEIF RESULT > 0 && RESULT <= 30
		;行削除(初回)
		IF LOCAL:3 == 0
			CLEARLINE LOCAL:12
		;行削除(2回目～)
		ELSEIF LOCAL:3 == 1 && LOCAL:2 != RESULT
			CLEARLINE LOCAL:12 + LOCAL:15 + 3
		;連打のログ流れ防止
		ELSEIF LOCAL:2 == RESULT
			CLEARLINE 1
			GOTO INPUT_LOOP
		ENDIF
		LOCAL:2 = RESULT
		DRAWLINE
		SETCOLOR 0x60C0FF
		PRINTFORML >> %STATUS_NAME(RESULT)%
		RESETCOLOR
		LOCAL:13 = LINECOUNT
		CALL SHOW_STATUS_EXPLAIN(RESULT)
		LOCAL:14 = LINECOUNT
		;説明表示の改行数を記録
		LOCAL:15 = LOCAL:14 - LOCAL:13
		PRINTFORML
		LOCAL:3 = 1
		GOTO START
	ELSE
		CLEARLINE 1
		REUSELASTLINE 輸入錯誤！
		GOTO INPUT_LOOP
	ENDIF

@STATUS_NAME(ARG:0)
#FUNCTIONS

SELECTCASE ARG:0
	CASE 1
		RETURNF "HP"
	CASE 2
		RETURNF "MP"
	CASE 3
		RETURNF "EP"
	CASE 4
		RETURNF "PP"
	CASE 5
		RETURNF "SP"
	CASE 6
		RETURNF "TP"
	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 "Ｖ感覚"
	CASE 17
		RETURNF "Ｍ感覚"
	CASE 18
		RETURNF "自慰中毒"
	CASE 19
		RETURNF "触手中毒"
	CASE 20
		RETURNF "射精中毒"
	CASE 21
		RETURNF "百合中毒"
	CASE 22
		RETURNF "精液中毒"
	CASE 23
		RETURNF "噴乳中毒"
	CASE 24
		RETURNF "親密度"
	CASE 25
		RETURNF "戦闘素質"
	CASE 26
		RETURNF "失禁經驗"
	CASE 27
		RETURNF "出産回数"
	CASE 28
		RETURNF "産卵回数"
	CASE 29
		RETURNF "親吻經驗"
	CASE 30
		RETURNF "自慰回数"

	CASEELSE
		RETURNF "不存在的体調・状態"
ENDSELECT

@SHOW_STATUS_EXPLAIN(ARG:0)
SELECTCASE ARG:0
	CASE 0
		PRINTFORML
	CASE 1
		PRINTFORML 肉體的堅忍程度
		PRINTFORML 抵抗肉體性支配的能力
		PRINTFORML 歸零時身體將被完全支配
	CASE 2
		PRINTFORML 精神力、精神的承受能力
		PRINTFORML 抵抗精神性支配的能力
		PRINTFORML 歸零時精神將被完全支配
	CASE 3
		PRINTFORML 對快感的抵抗能力
		PRINTFORML
		PRINTFORML 歸零時發生絶頂，對PP及SP均會造成傷害
	CASE 4
		PRINTFORML 自尊與驕傲的耐久度
		PRINTFORML 會降低收到的精神性的影響
		PRINTFORML
	CASE 5
		PRINTFORML 理智，維持理性的意志
		PRINTFORML
		PRINTFORML 歸零后會將能接受原本公序良俗絶不允許的行為
	CASE 6
		PRINTFORML 幹勁和作戰積極性
		PRINTFORML 較高時更傾向於以戰鬥解決問題
		PRINTFORML 較低時將陷入恐慌，更容易影響其行為
	CASE 7
		PRINTFORML 更易探究異變原因的能力
		PRINTFORML 在發現異變后發現元兇時所用的能力
	CASE 8
		PRINTFORML 更易發現重視異變的能力
		PRINTFORML 在受到侵蝕時及遇到受侵蝕的角色時會獲得補正
	CASE 9
		PRINTFORML 個人在幻想郷能造成多少輿論影響，影響其發現異變后會造成多大的動員效果
		PRINTFORML 被支配后也能降低相應的異變被重視程度
	CASE 10
		PRINTFORML 對觸手的戰鬥能力，並非戰單純的戰鬥力而是實戰中的綜合考量
		PRINTFORML 受到各種觸手的影響后會受到相應的減益
	CASE 11
		PRINTFORML 對觸手的侵蝕與支配的抗性強度
	CASE 12
		PRINTFORML 從戰鬥中逃脱時的能力，同樣影響從觸手的侵蝕下逃出的能力
		PRINTFORML 也影響初期宿主與觸手一起逃離的能力
	CASE 13
		PRINTFORML 后穴及其周辺的開發程度
		PRINTFORML 增加受到尻屬性攻撃時的EP傷害
		PRINTFORML 會依據傷害的數量增加對應的經驗
	CASE 14
		PRINTFORML 乳房與乳頭的開發程度
		PRINTFORML 增加胸部受到攻撃時的EP傷害
		PRINTFORML 會依據傷害的數量增加對應的經驗
	CASE 15
		PRINTFORML 陰蒂與尿道或陰莖的開發程度
		PRINTFORML 增加受到Ｃ屬性攻撃時的EP傷害
		PRINTFORML 會依據傷害的數量增加對應的經驗
	CASE 16
		PRINTFORML 女性器内部及其入口的開發程度
		PRINTFORML 增加女性器受到攻撃時的EP傷害
		PRINTFORML 會依據傷害的數量增加對應的經驗
	CASE 17
		PRINTFORML 口内及嘴唇的開發程度
		PRINTFORML 增加口腔周圍受到攻撃時的EP傷害
		PRINTFORML 會依據傷害的數量增加對應的經驗
	CASE 18
		PRINTFORML 是否中意自慰
		PRINTFORML 越是習慣就越容易渇求更多快感
	CASE 19
		PRINTFORML 對觸手的依存度
	CASE 20
		PRINTFORML 的射精的渇望
	CASE 21
		PRINTFORML 對女性同性間接觸的依存度
	CASE 22
		PRINTFORML 對精液的依存度
	CASE 23
		PRINTFORML 母乳体質時産出母乳時的快感
	CASE 24
		PRINTFORML 與宿主的親密度，達到一定水平后可通過宿主進行侵蝕
		PRINTFORML 若如此做，此侵蝕行為不會使任何人有所發覺
	CASE 25
		PRINTFORML 作戰時的強度
		PRINTFORML 在發現觸手的侵蝕進行退治時所用
		PRINTFORML 也用於協助觸手進行戰鬥時的計算
	CASE 26
		PRINTFORML 失禁的次數
	CASE 27
		PRINTFORML 出産的次數
	CASE 28
		PRINTFORML 産卵的次數
	CASE 29
		PRINTFORML 接吻的次數
		PRINTFORML 再濃厚也是一次算一次
	CASE 30
		PRINTFORML 自慰的次數
		PRINTFORML 自慰經驗表示是否習慣于此，這邊僅用作次數計算
		PRINTFORML 再怎麼激烈也是一次算一次
	CASEELSE
		;特に何も表示しない
ENDSELECT


code:
;素質一覧表示
@SHOW_TALENT_WIKI
#DIMS SLV,4	;LVにより名称の変わる素質用
;LOCAL
;0	ループ用
;1	表示回数
;2	表示する素質番号の範囲
;3	ヘルプを見る素質番号
;4	ループ用2
;5	初期素質持ちがいるかどうかの判定
;6	直前に選択した番号
;7	素質を見たかどうか
;10	行削除用カウント1(計算用)
;11	行削除用カウント2(計算用)
;12	行削除用カウント3(項目の改行数)
;13	行削除用カウント4(計算用)
;14	行削除用カウント5(計算用)
;15	行削除用カウント6(詳細の改行数)

	$START
	REDRAW 0
	LOCAL:10 = LINECOUNT

	DRAWLINE
	PRINTFORML 要看什麼素質？
	IF LOCAL:2 == 0 || LOCAL:2 > 300
		LOCAL:2 = 100
	ENDIF
	FOR LOCAL:0, (LOCAL:2 - 100), LOCAL:2
		IF TALENTNAME:(LOCAL:0) != ""
			PRINTFORM [{LOCAL:0+1,3}] %TALENTNAME:(LOCAL:0),15,LEFT%
			LOCAL:1 += 1
			;3つ表示するごとに改行
			SIF (LOCAL:1 % 3) == 0 && LOCAL:1 > 0
				PRINTL
		ENDIF
	NEXT
	LOCAL:1 = 0
	PRINTL
	PRINTL
	PRINTFORM [500] %"上一個",15,LEFT%
	PRINTFORML [600] %"下一個",15,LEFT%
	PRINTFORML [  0] 取消

	$INPUT_LOOP
	INPUT

	LOCAL:11 = LINECOUNT
	;項目表示の改行数を記録
	LOCAL:12 = LOCAL:11 - LOCAL:10

	IF RESULT == 0
		REDRAW 1
		LOCAL:6 = 0
		LOCAL:7 = 0
		RETURN
	ELSEIF RESULT == 500
		IF LOCAL:2 > 100
			LOCAL:2 -= 100
		ELSE
			LOCAL:2 = 300
		ENDIF
		CLEARLINE LOCAL:12
		GOTO START
	ELSEIF RESULT == 600
		LOCAL:2 += 100
		CLEARLINE LOCAL:12
		GOTO START
	ELSEIF TALENTNAME:(RESULT-1) != "" && RESULT > 0
		;行削除(初回)
		IF LOCAL:7 == 0
			CLEARLINE LOCAL:12
		;行削除(2回目～)
		ELSEIF LOCAL:7 == 1 && LOCAL:6 != RESULT
			CLEARLINE LOCAL:12 + LOCAL:15 + 3
		;連打のログ流れ防止
		ELSEIF LOCAL:6 == RESULT
			CLEARLINE 1
			GOTO INPUT_LOOP
		ENDIF
		LOCAL:6 = RESULT
		LOCAL:3 = RESULT-1
		DRAWLINE
		SETCOLOR 0x60C0FF
		PRINTFORML %"["+TALENTNAME:(RESULT-1)+"]",15,LEFT%
		RESETCOLOR
		LOCAL:13 = LINECOUNT
		CALL SHOW_TALENT_EXPLAIN_WIKI(RESULT-1)
		PRINTL
		SETCOLOR 0x60C0FF
		PRINTFORML >> 最初就有的角色
		RESETCOLOR

		VARSET SLV
		IF LOCAL:3 == 100
			SLV:1 = ■ [小個体型]
			SLV:2 = ■ [小人体型]
		ELSEIF LOCAL:3 >= 101 && LOCAL:3 <= 106
			SELECTCASE LOCAL:3
			CASE 101
				LOCALS:0 = Ａ
			CASE 102
				LOCALS:0 = Ｂ
			CASE 103
				LOCALS:0 = Ｃ
			CASE 104
				LOCALS:0 = Ｖ
			CASE 105
				LOCALS:0 = Ｍ
			CASE 106
				LOCALS:0 = 肌
			ENDSELECT
			SLV:0 = ■ [%LOCALS:0%鈍感]      (EP傷害 -40％)
			SLV:1 = ■ [%LOCALS:0%敏感]      (EP傷害 +30％)
			SLV:2 = ■ [%LOCALS:0%過敏]      (EP傷害 +60％)
			SLV:3 = ■ [%LOCALS:0%異常過敏]  (EP傷害+100％)
		ELSEIF LOCAL:3 == 160
			SLV:1 = ■ [浄化知識]
			SLV:2 = ■ [結界知識]
		ELSEIF LOCAL:3 == 161
			SLV:1 = ■ [体術熟練]
			SLV:2 = ■ [剣術熟練]
		ELSEIF LOCAL:3 == 164
			SLV:1 = ■ [波動感知]
			SLV:2 = ■ [術式知識]
		ELSEIF LOCAL:3 == 169
			SLV:1 = ■ [神之氣]
			SLV:2 = ■ [神之血]
		ELSEIF LOCAL:3 == 213
			SLV:1 = ■ [羽]
			SLV:2 = ■ [翼]
		ELSEIF LOCAL:3 == 215
			SLV:1 = ■ [尾巴]
			SLV:2 = ■ [毛毛尾巴]
		ENDIF

		IF GROUPMATCH(LOCAL:3,100,101,102,103,104,105,106,160,161,164,213,215)
			IF LOCAL:3 >= 101 && LOCAL:3 <= 106
				SETCOLOR 0x2070FF
				PRINTFORML %SLV:0%
				RESETCOLOR
				FOR LOCAL:4, 1, FLAG:2
					IF CSVTALENT(NO:(LOCAL:4),LOCAL:3) == -1
						PRINTFORM %CSVNAME(LOCAL:4,0)%
						SIF LOCAL:5 == 0
							LOCAL:5 += 1
					ENDIF
					IF LOCAL:4 + 1 == FLAG:2
						IF LOCAL:5
							PRINTL
						ELSE
							SETCOLOR 0x333333
							PRINTFORML －－－
							RESETCOLOR
						ENDIF
					ENDIF
				NEXT
				LOCAL:5 = 0
				PRINTL
			ENDIF
			PRINTFORML %SLV:1%
			FOR LOCAL:4, 1, FLAG:2
				IF CSVTALENT(NO:(LOCAL:4),LOCAL:3) == 1
					PRINTFORM %CSVNAME(NO:(LOCAL:4),0)%
					SIF LOCAL:5 == 0
						LOCAL:5 += 1
				ENDIF
				IF LOCAL:4 + 1 == FLAG:2
					IF LOCAL:5
						PRINTL
					ELSE
						SETCOLOR 0x333333
						PRINTFORML －－－
						RESETCOLOR
					ENDIF
				ENDIF
			NEXT
			LOCAL:5 = 0
			PRINTL
			SIF LOCAL:3 >= 101 && LOCAL:3 <= 106
				SETCOLOR 0xD022D0
			PRINTFORML %SLV:2%
			RESETCOLOR
			FOR LOCAL:4, 1, FLAG:2
				IF CSVTALENT(LOCAL:4,LOCAL:3) == 2
					PRINTFORM %CSVNAME(LOCAL:4,0)%
					SIF LOCAL:5 == 0
						LOCAL:5 += 1
				ENDIF
				IF LOCAL:4 + 1 == FLAG:2
					IF LOCAL:5
						PRINTL
					ELSE
						SETCOLOR 0x333333
						PRINTFORML －－－
						RESETCOLOR
					ENDIF
				ENDIF
			NEXT
			LOCAL:5 = 0
			PRINTL
			IF LOCAL:3 >= 101 && LOCAL:3 <= 106
				SETCOLOR 0xA00000
				PRINTFORML %SLV:3%
				RESETCOLOR
				FOR LOCAL:4, 1, FLAG:2
					IF CSVTALENT(LOCAL:4,LOCAL:3) == 3
						PRINTFORM %CSVNAME(LOCAL:4,0)%
						SIF LOCAL:5 == 0
							LOCAL:5 += 1
					ENDIF
					IF LOCAL:4 + 1 == FLAG:2
						IF LOCAL:5
							PRINTL
						ELSE
							SETCOLOR 0x333333
							PRINTFORML －－－
							RESETCOLOR
						ENDIF
					ENDIF
				NEXT
				LOCAL:5 = 0
			ENDIF
		ELSE
			FOR LOCAL:4, 1, FLAG:2
				IF EXISTCSV(LOCAL:4, 0) <= 0
					CONTINUE
				ELSEIF CSVTALENT(LOCAL:4,LOCAL:3)
					PRINTFORM %CSVNAME(LOCAL:4,0)%
					SIF LOCAL:5 == 0
						LOCAL:5 += 1
				ENDIF
				IF LOCAL:4 + 1 == FLAG:2
					IF LOCAL:5
						PRINTL
					ELSE
						SETCOLOR 0x333333
						PRINTFORML －－－
						RESETCOLOR
					ENDIF
				ENDIF
			NEXT
			LOCAL:5 = 0
		ENDIF

		LOCAL:14 = LINECOUNT
		;説明表示の改行数を記録
		LOCAL:15 = LOCAL:14 - LOCAL:13
		LOCAL:5 = 0
		PRINTFORML
		LOCAL:7 = 1
		GOTO START
	ELSE
		CLEARLINE 1
		REUSELASTLINE 輸入錯誤！
		GOTO INPUT_LOOP
	ENDIF

;素質の詳細を表示
;ARG:0	素質ID
@SHOW_TALENT_EXPLAIN_WIKI(ARG:0)

;ステータスのコピペ
SELECTCASE ARG:0
	CASE 0
		PRINTFORML
	CASE 10
		PRINTFORML 對質問抗性較差
	CASE 11
		PRINTFORML 對質問抗性較強
	CASE 12
		PRINTFORML 受到的精神類傷害降低為90％
	CASE 13
		PRINTFORML 受到的精神類傷害提升為110％
	CASE 14
		PRINTFORML
	CASE 15
		PRINTFORML
	CASE 16
		PRINTFORML 質問成功率低　PP回復量増加
	CASE 17
		PRINTFORML
	CASE 18
		PRINTFORML
	CASE 20
		PRINTFORML
	CASE 21
		PRINTFORML
	CASE 22
		PRINTFORML
	CASE 23
		PRINTFORML 侵蝕抵抗-5
	CASE 24
		PRINTFORML
	CASE 25
		PRINTFORML
	CASE 26
		PRINTFORML
	CASE 27
		PRINTFORML 各種感度、中毒等級難以上升
		PRINTFORML Lv1→2 80％、2→3 50％
	CASE 28
		PRINTFORML 侵蝕抵抗-5
	CASE 30
		PRINTFORML
	CASE 31
		PRINTFORML
	CASE 32
		PRINTFORML
	CASE 33
		PRINTFORML
	CASE 34
		PRINTFORML
	CASE 35
		PRINTFORML
	CASE 36
		PRINTFORML
	CASE 40
		PRINTFORML
	CASE 41
		PRINTFORML
	CASE 42
		PRINTFORML
	CASE 43
		PRINTFORML
	CASE 50
		PRINTFORML
	CASE 51
		PRINTFORML
	CASE 52
		PRINTFORML 話術經驗値140％
	CASE 53
		PRINTFORML
	CASE 54
		PRINTFORML M感覚經驗値110％
	CASE 55
		PRINTFORML
	CASE 56
		PRINTFORML
	CASE 57
		IF FLAG:521 == 0
			PRINTFORML
		ELSE
			PRINTFORML
		ENDIF
	CASE 60
		PRINTFORML 自慰中毒經驗値150％
	CASE 61
		PRINTFORML
	CASE 62
		PRINTFORML 精液中毒經驗値50％
	CASE 63
		PRINTFORML
	CASE 70
		PRINTFORML 各種感覚經驗値120％
	CASE 71
		PRINTFORML 各種感覚經驗値80％
	CASE 72
		PRINTFORML 各種中毒經驗値が150％
	CASE 73
		PRINTFORML
	CASE 74
		PRINTFORML
	CASE 75
		PRINTFORML A感覚經驗値200％
	CASE 76
		PRINTFORML B感覚經驗値200％
	CASE 77
		PRINTFORML C感覚經驗値200％
	CASE 78
		PRINTFORML V感覚經驗値200％
	CASE 79
		PRINTFORML M感覚經驗値200％
	CASE 81
		PRINTFORML 百合中毒經驗値200％
	CASE 94
		PRINTFORML 認識的人被侵蝕時，異變察覺獲得大量補正
	CASE 95
		PRINTFORML 犠牲者
		PRINTFORML 不會影響結局條件或成長點獲取
	CASE 100
		PRINTFORML
		SETCOLOR 0x60C0FF
		PRINTFORML [小人体型]
		RESETCOLOR
		PRINTFORML
	CASE 101 TO 106
		PRINTFORML 各部位敏感度
		PRINTFORML 70％・130％・175％・200％補正
	CASE 107
		PRINTFORML
	CASE 108
		PRINTFORML
	CASE 109
		PRINTFORML
	CASE 110
		PRINTFORML
	CASE 111
		PRINTFORML HP與MP回復量增加
		PRINTFORML 固定HP+100 MP+50
	CASE 112
		PRINTFORML HP與MP回復量減少
		PRINTFORML 固定HP-100 MP-50
	CASE 114
		PRINTFORML HP與MP回復量增幅
		PRINTFORML 變為150％
	CASE 115
		PRINTFORML HP與MP回復量增幅
		PRINTFORML HP150％ MP120％
	CASE 116
		PRINTFORML HP與MP回復量增幅
		PRINTFORML HP120％ MP150％
	CASE 117
		PRINTFORML
	CASE 118
		PRINTFORML
	CASE 120
		PRINTFORML 射精中毒經驗値150％
	CASE 121
		PRINTFORML
	CASE 122
		PRINTFORML 男
		PRINTFORML 具有男性器，不會受到妊娠及V寄生效果，不會增加百合中毒
	CASE 123
		PRINTFORML
	CASE 124
		PRINTFORML
	CASE 125
		PRINTFORML
	CASE 127
		PRINTFORML
	CASE 128
		PRINTFORML HP過低時發生全回復
	CASE 130
		PRINTFORML 會分泌母乳
		PRINTFORML 吸收系事件效果上升三成
	CASE 132
		PRINTFORML
	CASE 135
		PRINTFORML 卵生体質 産卵時受到影響減輕
	CASE 136
		PRINTFORML 習慣産卵的肉体 産卵的成功率增加
	CASE 137
		PRINTFORML
	CASE 138
		PRINTFORML 很少離開其所處據點
	CASE 139
		PRINTFORML
	CASE 140
		PRINTFORML
	CASE 149
		PRINTFORML
	CASE 150
		PRINTFORML 難易度Hard以上時因HP0或戦闘敗北被支配后會復活
	CASE 151
		PRINTFORML
	CASE 152
		PRINTFORML
	CASE 153
		PRINTFORML
	CASE 154
		PRINTFORML
	CASE 155
		PRINTFORML
	CASE 156
		PRINTFORML
	CASE 157
		PRINTFORML
	CASE 158
		PRINTFORML
	CASE 159
		PRINTFORML
	CASE 160
		PRINTFORML
	CASE 161
		PRINTFORML
	CASE 162
		PRINTFORML
	CASE 163
		PRINTFORML
	CASE 164
		PRINTFORML
	CASE 166
		PRINTFORML
	CASE 167
		PRINTFORML
	CASE 168
		PRINTFORML EPCP受傷減少
		SETCOLOR 0x60C0FF
		PRINTFORML [神の血]
		RESETCOLOR
		PRINTFORML
	CASE 170
		PRINTFORML 陰莖的長度
		PRINTFORML 短小→普通→較長→長→極長
	CASE 171
		PRINTFORML 陰莖的粗細
	CASE 172
		PRINTFORML 角色的精力
		PRINTFORML 精力有限→普通→絶倫→超絶倫
		PRINTFORML
		PRINTFORML 絶倫級別之上的扶他陰莖在彈藥庫清空后亦不會脱落，因射精絶頂也將不會受到HP傷害
	CASE 173
		PRINTFORML 包皮的状態
		PRINTFORML 裸露→假性包莖→真性包莖
	CASE 174
		PRINTFORML 看來陰莖附近的新陳代謝有些過於活躍，清洗后也會很快充滿恥垢
	CASE 175
		PRINTFORML 常年散發著強而有力的氣味
	CASE 176
		PRINTFORML 來自寄生、魔法、薬品、奇怪的菌子等，原本沒有長著
	CASE 177
		PRINTFORML 充滿力量感的黑色肉竿
	CASE 178
		PRINTFORML 射精前的耐久度
		PRINTFORML 遅洩→普通→早洩
	CASE 180
		PRINTFORML 陰囊的大小
		PRINTFORML 有陰囊→大陰囊→巨陰囊→巨大陰囊
	CASE 181
		PRINTFORML 陰囊上還長了毛，真可怕
		PRINTFORML 軟毛→剛毛
	CASE 185
		PRINTFORML 精液量
		PRINTFORML 少量射精→普通→大量射精→超大量射精
	CASE 186
		PRINTFORML 精液濃度
		PRINTFORML 精液稀薄→普通→精液濃厚→精液特濃
	CASE 187
		PRINTFORML 接觸后感覺要燒傷一樣的高温精液
	CASE 188
		PRINTFORML 顏色有些發黄。有種不乾淨的感覺
	CASE 200
		PRINTFORML 這部遊戲亦受此人的支配
	CASE 213
		PRINTFORML
		SETCOLOR 0x60C0FF
		PRINTFORML [翼]
		RESETCOLOR
		PRINTFORML
	CASE 214
		PRINTFORML
		PRINTFORML
	CASE 215
		PRINTFORML
		SETCOLOR 0x60C0FF
		PRINTFORML [毛毛尾巴]
		RESETCOLOR
		PRINTFORML
	CASE 250
		PRINTFORML 是機器人或人造人。
		PRINTFORML 直接黑入是很有效的選擇
	CASE 251
		PRINTFORML 是付喪神
		PRINTFORML 更容易進行機械化改造
	CASE 252
		PRINTFORML 非生物
		PRINTFORML 更容易進行機械化改造
	CASEELSE
		PRINTFORML 本素質的説明暫未実装
ENDSELECT


code:
;体調・状態一覧表示
@SHOW_TENTACLE_WIKI
;LOCAL
;0	ループ用
;1	改行用
;2	直前に選択した番号
;3	体調・状態詳細を見た
;10	行削除用カウント1(計算用)
;11	行削除用カウント2(計算用)
;12	行削除用カウント3(項目の改行数)
;13	行削除用カウント4(計算用)
;14	行削除用カウント5(計算用)
;15	行削除用カウント6(詳細の改行数)

	$START
	REDRAW 0
	LOCAL:10 = LINECOUNT

	LOCAL:1 = 0
	DRAWLINE
	PRINTFORML 要看什麼項目？

	FOR LOCAL:0 , 1 , 8
		PRINTFORM [{LOCAL:0,2}] %TENTACLE_NAME(LOCAL:0),14,LEFT%
		LOCAL:1 += 1
		;4つ表示するごとに改行
		SIF (LOCAL:1 % 4) == 0 && LOCAL:1 > 0
			PRINTL
	NEXT
	PRINTL
	PRINTL
	PRINTL [ 0] 取消

	$INPUT_LOOP
	INPUT

	LOCAL:11 = LINECOUNT
	;項目表示の改行数を記録
	LOCAL:12 = LOCAL:11 - LOCAL:10

	IF RESULT == 0
		REDRAW 1
		LOCAL:3 = 0
		RETURN
	ELSEIF RESULT > 0 && RESULT <= 8
		;行削除(初回)
		IF LOCAL:3 == 0
			CLEARLINE LOCAL:12
		;行削除(2回目～)
		ELSEIF LOCAL:3 == 1 && LOCAL:2 != RESULT
			CLEARLINE LOCAL:12 + LOCAL:15 + 3
		;連打のログ流れ防止
		ELSEIF LOCAL:2 == RESULT
			CLEARLINE 1
			GOTO INPUT_LOOP
		ENDIF
		LOCAL:2 = RESULT
		DRAWLINE
		SETCOLOR 0x60C0FF
		PRINTFORML %TENTACLE_NAME(RESULT)%
		RESETCOLOR
		LOCAL:13 = LINECOUNT
		CALL SHOW_TENTACLE_EXPLAIN_WIKI(RESULT)
		LOCAL:14 = LINECOUNT
		;説明表示の改行数を記録
		LOCAL:15 = LOCAL:14 - LOCAL:13
		PRINTFORML
		LOCAL:3 = 1
		GOTO START
	ELSE
		CLEARLINE 1
		REUSELASTLINE 輸入錯誤！
		GOTO INPUT_LOOP
	ENDIF

@TENTACLE_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 "精神支配力"
	CASEELSE
		RETURNF "不存在的能力"
ENDSELECT

;素質の詳細を表示
;ARG:0	素質ID
@SHOW_TENTACLE_EXPLAIN_WIKI(ARG:0)

;ステータスのコピペ
SELECTCASE ARG:0
	CASE 0
		PRINTFORML 角色受到觸手影響時判定用
		PRINTFORML 侵蝕力為0則不會發生毎日隨機侵蝕，
		PRINTFORML 想進行侵蝕控制潛伏到底可控制此項
		PRINTFORML 侵蝕判定會基於侵蝕力、角色最大HP、最大MP、戦闘素質進行
		PRINTFORML 通常状態判定角色最低的一項數據，發覺異變后則判定角色最高的一項數據
		PRINTFORML
		PRINTFORML 被侵蝕的角色將毎日提供成長点，此外在解決異変的戰鬥中會被削弱
		PRINTFORML
	CASE 1
		PRINTFORML 對被侵蝕的角色造成影響的能力
		PRINTFORML 與被侵蝕的角色發生事件時受到的HPMPEP等傷害正相關
		PRINTFORML
		PRINTFORML 初期宿主被支配后，發生戦闘時將會與觸手一同參與戰鬥
		PRINTFORML 此外被支配的角色將會無法發現異變的元兇
		PRINTFORML
	CASE 2
		PRINTFORML 成長點的獲取基於已侵蝕人數、已支配人數及成長力
		PRINTFORML
		PRINTFORML 成長力為0的話成長點的獲取將會很慢，推薦在初期多少加一點
		PRINTFORML 消費成長點3點可獲取一項新能力
		PRINTFORML
	CASE 3
		PRINTFORML 戦闘的能力
		PRINTFORML 以戦闘的方式打敗幻想少女所用的数値
		PRINTFORML 武德充沛則可通過打倒幻想少女強行進行支配
	CASE 4
		PRINTFORML 使幻想郷不聚焦于異變的能力　包括懶得去解決、影響不大等輕視状態
		PRINTFORML 在侵蝕失敗時及少女注意到友人被侵蝕時會進行判定
		PRINTFORML 與幻想少女的「異變發覺」相對的就是異變隠蔽力
		PRINTFORML 異變被重視后侵蝕的難度會提升，少女們也會更傾向於出發解決異變
	CASE 5
		PRINTFORML 在異變被注意到后到異變的黑幕被發現前的倒計時
		PRINTFORML 在異變遭受重視后各角色會逐漸開始搜索調査
		PRINTFORML 「探索技能」与捜索人数和捜索所用時間会增加幻想少女對異變元兇的認識，元兇隠蔽力越高這個過程就越久
		PRINTFORML
		PRINTFORML 發現異變黑幕的角色會當即開始戰鬥
	CASE 6
		PRINTFORML 支配力中與肉体支配相關的部分
		PRINTFORML
		PRINTFORML
	CASE 7
		PRINTFORML 支配力中與精神支配的部分
		PRINTFORML
		PRINTFORML
	CASEELSE
		PRINTFORML  "不存在的能力"
ENDSELECT


code:
;チュートリアル一覧表示
@SHOW_TUTORIAL_WIKI
;LOCAL
;0	ループ用
;

	DRAWLINE
	PRINTFORML 要觀看什麼教程？
	FOR LOCAL:0, 0, 10
			PRINTFORM [{LOCAL:0,3}] %TUTORIAL_NAME(LOCAL:0),18,LEFT%
			LOCAL:1 += 1
			;2つ表示するごとに改行
			SIF (LOCAL:1 % 3) == 0 && LOCAL:1 > 0
				PRINTL
	NEXT
	LOCAL:1 = 0
	PRINTL
	PRINTL [  0] 取消

	$INPUT_LOOP
	INPUT

	IF RESULT == 0
		RETURN
	ELSEIF RESULT > 0 && RESULT < 23
		DRAWLINE
		SETCOLOR 0xF2A0A1

		TRYCCALLFORM TUTORIAL_{RESULT-1}
		CATCH
			;該当するチュートリアルが未実装の場合、何もしない
			RESETCOLOR
			RETURN 0
		ENDCATCH

		RESETCOLOR
		CALL SHOW_TUTORIAL_WIKI
	ELSE
		CLEARLINE 1
		REUSELASTLINE 輸入錯誤！
		GOTO INPUT_LOOP
	ENDIF

@TUTORIAL_NAME(ARG:0)
#FUNCTIONS

SELECTCASE ARG:0
	CASE 1
		RETURNF "導入劇情"
	CASE 2
		RETURNF "選擇初期宿主"
	CASE 3
		RETURNF "觸手能力説明"
	CASE 4
		RETURNF "主画面"
	CASE 5
		RETURNF "關於戦闘"
	CASEELSE
		RETURNF "不存在的教程"
ENDSELECT


code:
;キャラ説明
;一応図鑑なので「だ・である」にそろえる
;ARG:0	素質ID
@SHOW_CHARA_EXPLAIN(ARG:0)

SELECTCASE CSVNAME(ARG:0)
	CASE "あなた"
		PRINTFORML
		PRINTFORML
	CASE "霊夢"
		PRINTFORML Hard難度以上時侵蝕數達到一定量后會自動察覺異變
		PRINTFORML
	; CASE "魔理沙"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "ルーミア"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "大妖精"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "チルノ"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "紅美鈴"
	; 	PRINTFORML
	; CASE "小悪魔"
	; 	PRINTFORML
	; CASE "パチュリー"
	; 	PRINTFORML
	; CASE "咲夜"
	; 	PRINTFORML
	CASE "レミリア"
		PRINTFORML 因為總是在喝紅茶所以液体侵蝕較有效
		PRINTFORML Hard難度以上時會以期操作命運的能力毎天隨機無效化一定量的侵蝕
		PRINTFORML
	; CASE "フランドール"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "レティ"
	; 	PRINTFORML
	; CASE "橙"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "アリス"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "リリーホワイト"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "リリカ"
	; 	PRINTFORML
	; CASE "メルラン"
	; 	PRINTFORML
	; CASE "ルナサ"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "妖夢"
	; 	PRINTFORML
	CASE "幽々子"
		PRINTFORML Hard難度以上時會在戰鬥中使用操作死亡程度的能力
		PRINTFORML
	; CASE "八雲藍"
	; 	PRINTFORML
	; CASE "八雲紫"
	; 	PRINTFORML
	; CASE "萃香"
	; 	PRINTFORML
	; CASE "リグル"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "ミスティア"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "慧音"
	; 	PRINTFORML
	; CASE "てゐ"
	; 	PRINTFORML
	; CASE "鈴仙"
	; 	PRINTFORML
	; 	PRINTFORML
	; 	PRINTFORML
	CASE "永琳"
		PRINTFORML Hard難度以上時會治療被侵蝕的角色
		PRINTFORML
	; 	PRINTFORML
	; CASE "輝夜"
	; 	PRINTFORML
	; CASE "妹紅"
	; 	PRINTFORML
	; CASE "文"
	; 	PRINTFORML
	; CASE "メディスン"
	; 	PRINTFORML
	; CASE "幽香"
	; 	PRINTFORML
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "小町"
	; 	PRINTFORML
	; CASE "映姫"
	; 	PRINTFORML
	; CASE "静葉"
	; 	PRINTFORML
	; CASE "穣子"
	; 	PRINTFORML
	; CASE "雛"
	; 	PRINTFORML
	; CASE "にとり"
	; 	PRINTFORML
	; CASE "椛"
	; 	PRINTFORML
	; CASE "早苗"
	; 	PRINTFORML
	; CASE "神奈子"
	; 	PRINTFORML
	; CASE "諏訪子"
	; 	PRINTFORML
	; CASE "サニーミルク"
	; 	PRINTFORML
	; CASE "ルナチャイルド"
	; 	PRINTFORML
	; CASE "スターサファイア"
	; 	PRINTFORML
	; CASE "阿求"
	; 	PRINTFORML
	; CASE "蓮子"
	; 	PRINTFORML
	; CASE "メリー"
	; 	PRINTFORML
	; CASE "魅魔"
	; 	PRINTFORML
	; CASE "神綺"
	; 	PRINTFORML
	; CASE "豊姫"
	; 	PRINTFORML
	; CASE "依姫"
	; 	PRINTFORML
	; CASE "レイセン"
	; 	PRINTFORML
	; CASE "リリーブラック"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "サラ"
	; 	PRINTFORML
	; CASE "ルイズ"
	; 	PRINTFORML
	; CASE "ユキ"
	; 	PRINTFORML
	; CASE "マイ"
	; 	PRINTFORML
	; CASE "夢子"
	; 	PRINTFORML
	; CASE "衣玖"
	; 	PRINTFORML
	; CASE "天子"
	; 	PRINTFORML
	; CASE "里香"
	; 	PRINTFORML
	; CASE "明羅"
	; 	PRINTFORML
	; CASE "エレン"
	; 	PRINTFORML
	; CASE "小兎姫"
	; 	PRINTFORML
	; CASE "カナ"
	; 	PRINTFORML
	; CASE "理香子"
	; 	PRINTFORML
	; CASE "ちゆり"
	; 	PRINTFORML
	; CASE "夢美"
	; 	PRINTFORML
	; CASE "オレンジ"
	; 	PRINTFORML
	; CASE "くるみ"
	; 	PRINTFORML
	; CASE "エリー"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "夢月"
	; 	PRINTFORML
	; CASE "幻月"
	; 	PRINTFORML
	; CASE "キスメ"
	; 	PRINTFORML
	; CASE "ヤマメ"
	; 	PRINTFORML
	; CASE "パルスィ"
	; 	PRINTFORML
	; CASE "勇儀"
	; 	PRINTFORML
	CASE "さとり"
		PRINTFORML 唯一一名[覚]
		PRINTFORML [覚]會立刻發現身邊人身上的異常
		PRINTFORML
		PRINTFORML 因常被動物包圍故動物侵蝕有特效
	; CASE "燐"
	; 	PRINTFORML
	; CASE "空"
	; 	PRINTFORML
	; CASE "こいし"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "華扇"
	; 	PRINTFORML
	; CASE "朱鷺子"
	; 	PRINTFORML
	; CASE "半霊"
	; 	PRINTFORML
	; CASE "上海人形"
	; 	PRINTFORML
	; CASE "蓬莱人形"
	; 	PRINTFORML
	; CASE "ちびアリス"
	; 	PRINTFORML
	; CASE "ナズーリン"
	; 	PRINTFORML
	; CASE "小傘"
	; 	PRINTFORML
	; CASE "一輪"
	; 	PRINTFORML
	; CASE "ムラサ"
	; 	PRINTFORML
	; CASE "星"
	; 	PRINTFORML
	; CASE "白蓮"
	; 	PRINTFORML
	; CASE "ぬえ"
	; 	PRINTFORML
	; CASE "はたて"
	; 	PRINTFORML
	; CASE "ひまわり妖精"
	; 	PRINTFORML
	; CASE "響子"
	; 	PRINTFORML
	; CASE "芳香"
	; 	PRINTFORML
	; CASE "青娥"
	; 	PRINTFORML
	; CASE "屠自古"
	; 	PRINTFORML
	; CASE "布都"
	; 	PRINTFORML
	; CASE "神子"
	; 	PRINTFORML
	; CASE "マミゾウ"
	; 	PRINTFORML
	; CASE "小鈴"
	; 	PRINTFORML
	; CASE "こころ"
	; 	PRINTFORML
	; CASE "わかさぎ姫"
	; 	PRINTFORML
	; CASE "赤蛮奇"
	; 	PRINTFORML
	; CASE "影狼"
	; 	PRINTFORML
	; CASE "弁々"
	; 	PRINTFORML
	; CASE "八橋"
	; 	PRINTFORML
	; CASE "正邪"
	; 	PRINTFORML
	; CASE "針妙丸"
	; 	PRINTFORML
	; CASE "雷鼓"
	; 	PRINTFORML
	; CASE "菫子"
	; 	PRINTFORML
	; CASE "清蘭"
	; 	PRINTFORML
	; CASE "鈴瑚"
	; 	PRINTFORML
	; CASE "ドレミー"
	; 	PRINTFORML
	; 	PRINTFORML
	; CASE "サグメ"
	; 	PRINTFORML
	; CASE "クラウンピース"
	; 	PRINTFORML
	; CASE "純狐"
	; 	PRINTFORML
	; CASE "ヘカーティア"
	; 	PRINTFORML
	; CASE "ラルバ"
	; 	PRINTFORML
	; CASE "ネムノ"
	; 	PRINTFORML
	; CASE "あうん"
	; 	PRINTFORML
	; CASE "成美"
	; 	PRINTFORML
	; CASE "舞"
	; 	PRINTFORML
	; CASE "里乃"
	; 	PRINTFORML
	; CASE "隠岐奈"
	; 	PRINTFORML
	; CASE "女苑"
	; 	PRINTFORML
	; CASE "紫苑"
	; 	PRINTFORML
	; CASE "瓔花"
	; 	PRINTFORML
	; CASE "潤美"
	; 	PRINTFORML
	; CASE "久侘歌"
	; 	PRINTFORML
	; CASE "八千慧"
	; 	PRINTFORML
	; CASE "磨弓"
	; 	PRINTFORML
	; CASE "袿姫"
	; 	PRINTFORML
	; CASE "早鬼"
	; 	PRINTFORML
	CASEELSE
		PRINTFORML 這名少女暫無特殊説明
ENDSELECT

path: ERB/メインメニュー（SHOP）/WIKI用関数/WIKI用キャラ説明.ERB


code:
;ステータス図鑑
@SYSTEM_MESSAGE_516(ARG:0, ARG:1, ARGS:0, ARGS:1, ARG:2, ARG:3, ARG:4, ARG:5, ARG:6)

;一応図鑑なので「だ・である」語尾
;幻想郷少女たち視点なのでメタ要素はなし

;t:好像哪裡都沒有Call這個啊，先不翻了

SELECTCASE ARG:1
	CASE 0
		PRINTFORML (SYSTEM_MESSAGE_516)輸入錯誤 ({ARG:1}, %ARGS:0%, %ARGS:1%, {ARG:2}, {ARG:3}, {ARG:4}, {ARG:5}, {ARG:6})
	CASE 1
		PRINTFORML 顯示角色是否處於觸手的影響下
		PRINTFORML 最初是受到侵蝕，之後發展為受觸手支配、成為傀儡或苗床等都有可能
		PRINTFORML 可能被卵或分身寄生、在催眠的影響下遭到汚染，或是在直接戰鬥中輸給了觸手都有可能
	CASE 2
		PRINTFORML 肉体を触手で侵食する力です
		PRINTFORML 快楽や分泌物に依存したり、肉体を改造されて自由に動けなくなったりします
		PRINTFORML 痛みや快楽がいやで従う場合もあるでしょう
	CASE 3
		PRINTFORML 心を触手で侵食する力です
		PRINTFORML 最終的に、触手の意図を理解し触手のために動くようになります
		PRINTFORML あるいは、触手がいることを疑問に思わなかったり、触手の与える快楽に支配されます
	CASE 4
		PRINTFORML 触手が支配しやすい環境を作ります
		PRINTFORML 襲撃された際の戦闘力にボーナスを得ます
		PRINTFORML また、触手がいる状態が正常な世界になっていくため侵食されていないキャラクターを弱体化させます
	CASE 5
		PRINTFORML 異変が発生しているのがバレにくくなります
		PRINTFORML 触手によって侵食されたキャラクターは、
		PRINTFORML 他のキャラクターに出会うたびに異変察知判定が発生しますがそれを失敗させやすくし潜伏できます。
	CASE 6
		PRINTFORML 異変が察知された後に異変の元凶の調査が始まります
		PRINTFORML この能力が高いと異変の調査を遅らせることができます
		PRINTFORML
		PRINTFORML
	CASE 7
		PRINTFORML 成長ポイントの増えやすさ
		PRINTFORML
		PRINTFORML
		PRINTFORML
	CASE 8
		PRINTFORML 異変を察知されて戦闘になった時の強さ
		PRINTFORML
		PRINTFORML
		PRINTFORML
	CASE 9
		PRINTFORML 触手が快楽を与える強さです
		PRINTFORML
	CASEELSE
		;特に何も表示しない
ENDSELECT

path: ERB/メインメニュー（SHOP）/WIKI用関数/WIKI用触手能力説明.ERB


code: ;チュートリアルメッセージ

path: ERB/メインメニュー（SHOP）/WIKI用関数/チュートリアルメッセージ.ERB


code:
;口上用文字色関係の処理

;色変更対象の選択
@CHANGE_PT_KOJO_COLOR
;LOCAL
;0	LOOP
;1	主人公
;2	味方１
;3	味方２
;4	TEMP

DRAWLINE
PRINTL 誰の口上の文字色を変更しますか？
DRAWLINE

LOCAL:1 = 1
LOCAL:2 = FLAG:10
LOCAL:3 = FLAG:11

;PTメンバー表示
FOR LOCAL:0, 1, 4
	IF LOCAL:(LOCAL:0) > 0
		LOCAL:4 = CFLAG:(LOCAL:(LOCAL:0)):700
		PRINTFORM [{LOCAL:0}] %CALLNAME:(LOCAL:(LOCAL:0)),10,LEFT%  現在の文字色：
		SETCOLOR LOCAL:4
		PRINTFORML %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:4 / 0x10000} G:{(LOCAL:4 & 0xFF00) / 0x100} B:{LOCAL:4 & 0xFF})
		RESETCOLOR
	ENDIF
NEXT

PRINTL [0] 戻る

$INPUT_LOOP
INPUT

IF RESULT == 0
	RETURN
ELSEIF RESULT >= 1 && RESULT <= 3
	IF LOCAL:(RESULT) > 0
		CALL SET_KOJO_COLOR(LOCAL:(RESULT))
	ELSE
		REUSELASTLINE 入力値が不正です。再入力してください
		GOTO INPUT_LOOP
	ENDIF
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

RESTART

;指定キャラの文字色変更
;ARG:0	対象キャラID
@SET_KOJO_COLOR(ARG:0)
;LOCAL
;0	LOOP
;1	今の文字色
;2	デフォルトカラー

PRINTFORML
PRINTFORML %CALLNAME:(ARG:0)% の口上文字色を設定します
LOCAL:1 = CFLAG:(ARG:0):700
CALL GET_KOJO_DEFAULT_COLOR(ARG:0)
LOCAL:2 = RESULT
SETCOLOR LOCAL:1
PRINTFORML 現在の文字色：%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
RESETCOLOR
PRINTFORML
PRINTFORML 何色に変更しますか？
SETCOLOR LOCAL:2
PRINTFORML [1] 口上のデフォルト色 %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:2 / 0x10000} G:{(LOCAL:2 & 0xFF00) / 0x100} B:{LOCAL:2 & 0xFF})
RESETCOLOR
PRINTFORML [2] 直接色を指定：16進数（0xFFFFFF）形式で指定
PRINTFORML [3] 直接色を指定：RGBを10進数で指定
PRINTFORML [4] システムの標準色
PRINTFORML [5] サンプルカラーの中から選ぶ
PRINTFORML [0] キャンセル

$INPUT_LOOP
INPUT

IF RESULT == 0
	RETURN
ELSEIF RESULT == 1
	CFLAG:(ARG:0):700 = LOCAL:2
ELSEIF RESULT == 2
	CALL INPUT_FULL_COLOR
	IF RESULT == 0
		;キャンセルされているので、何もしない
		RETURN
	ENDIF
	CFLAG:(ARG:0):700 = RESULT
ELSEIF RESULT == 3
	CALL INPUT_RGB_COLOR
	IF RESULT == 0
		;キャンセルされているので、何もしない
		RETURN
	ENDIF
	CFLAG:(ARG:0):700 = RESULT
ELSEIF RESULT == 4
	RESETCOLOR
	CFLAG:(ARG:0):700 = GETCOLOR()
ELSEIF RESULT == 5
	CALL INPUT_SAMPLE_COLOR
	IF RESULT == 0
		;キャンセルされているので、何もしない
		RETURN
	ENDIF
	CFLAG:(ARG:0):700 = RESULT
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

SETCOLOR CFLAG:(ARG:0):700
PRINTFORMW %CALLNAME:(ARG:0)% の口上文字色を %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{CFLAG:(ARG:0):700 / 0x10000} G:{(CFLAG:(ARG:0):700 & 0xFF00) / 0x100} B:{CFLAG:(ARG:0):700 & 0xFF}) に設定しました
RESETCOLOR

RETURN

;16進数による文字色指定
@INPUT_FULL_COLOR
;LOCAL
;1	TEMP

PRINTFORML
PRINTFORML 文字色を16進数（0xFFFFFF）形式で指定してください

INPUTS

LOCAL:1 = TOINT(RESULTS)

IF LOCAL:1 == 0 || LOCAL:1 > 0xFFFFFF || LOCAL:1 < 0
	;本当に0（真っ黒）を入力された場合も認識できない扱いになるけど、気にしない
	PRINTFORML 入力された内容が認識できなかったため、システムカラー（0xC0C0C0）を利用します
	LOCAL:1 = 0xC0C0C0
ENDIF

SETCOLOR LOCAL:1
PRINTFORML %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
RESETCOLOR
PRINTFORML この色でよろしいですか？
PRINTFORML [0] はい
PRINTFORML [1] いいえ
PRINTFORML [2] 変更をキャンセルする

$INPUT_LOOP
INPUT

IF RESULT == 0
	RETURN LOCAL:1
ELSEIF RESULT == 1
	RESTART
ELSEIF RESULT == 2
	PRINTFORMW 色の変更をキャンセルしました
	RETURN 0
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

;10進数RGBによる文字色指定
@INPUT_RGB_COLOR
;LOCAL
;1	TEMP
;2	R
;3	G
;4	B

PRINTFORML
PRINTFORML 文字色のRGBを10進数で指定します

PRINTFORML R(赤色) の割合を 0～255 で指定してください

$INPUT_LOOP_R
INPUT

IF RESULT < 0 || RESULT > 255
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP_R
ENDIF

LOCAL:2 = RESULT

PRINTFORML G(緑色) の割合を 0～255 で指定してください

$INPUT_LOOP_G
INPUT

IF RESULT < 0 || RESULT > 255
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP_G
ENDIF

LOCAL:3 = RESULT

PRINTFORML B(青色) の割合を 0～255 で指定してください

$INPUT_LOOP_B
INPUT

IF RESULT < 0 || RESULT > 255
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP_B
ENDIF

LOCAL:4 = RESULT

LOCAL:1 = CONVERT_RGB(LOCAL:2, LOCAL:3, LOCAL:4)

IF LOCAL:1 == 0
	PRINTFORML 真っ黒は利用できないため、システムカラー（0xC0C0C0）を利用します
	LOCAL:1 = 0xC0C0C0
ENDIF

SETCOLOR LOCAL:1
PRINTFORML %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
RESETCOLOR
PRINTFORML この色でよろしいですか？
PRINTFORML [0] はい
PRINTFORML [1] いいえ
PRINTFORML [2] 変更をキャンセルする

$INPUT_LOOP
INPUT

IF RESULT == 0
	RETURN LOCAL:1
ELSEIF RESULT == 1
	RESTART
ELSEIF RESULT == 2
	PRINTFORMW 色の変更をキャンセルしました
	RETURN 0
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

;サンプル色選択による文字色指定
@INPUT_SAMPLE_COLOR
;LOCAL
;1	TEMP

PRINTFORML
PRINTFORML 文字色を以下のサンプル色の中から選んでください

LOCAL:1 = 0xCF0125
SETCOLOR LOCAL:1
PRINTFORML [ 1] %"チェリーレッド", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0xEB5381
SETCOLOR LOCAL:1
PRINTFORML [ 2] %"カーネーションピンク", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0xF5A0BD
SETCOLOR LOCAL:1
PRINTFORML [ 3] %"フクシアピンク", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0xF79101
SETCOLOR LOCAL:1
PRINTFORML [ 4] %"ゴールデンオレンジ", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0xE49E61
SETCOLOR LOCAL:1
PRINTFORML [ 5] %"小麦色", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0xFFF352
SETCOLOR LOCAL:1
PRINTFORML [ 6] %"レモンイエロー", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x7FFF00
SETCOLOR LOCAL:1
PRINTFORML [ 7] %"シャルトリューズ", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x2CB232
SETCOLOR LOCAL:1
PRINTFORML [ 8] %"パラキートグリーン", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x00A6AF
SETCOLOR LOCAL:1
PRINTFORML [ 9] %"薄浅葱", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x49BDF0
SETCOLOR LOCAL:1
PRINTFORML [10] %"パステルブルー", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x4169E1
SETCOLOR LOCAL:1
PRINTFORML [11] %"ロイヤルブルー", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x0063A7
SETCOLOR LOCAL:1
PRINTFORML [12] %"シアンブルー", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x7F1184
SETCOLOR LOCAL:1
PRINTFORML [13] %"ロイヤルパープル", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0xBC64A4
SETCOLOR LOCAL:1
PRINTFORML [14] %"若紫", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x626063
SETCOLOR LOCAL:1
PRINTFORML [15] %"スレートグレイ", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
LOCAL:1 = 0x55461B
SETCOLOR LOCAL:1
PRINTFORML [16] %"ガンメタル", 20, LEFT% %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{LOCAL:1 / 0x10000} G:{(LOCAL:1 & 0xFF00) / 0x100} B:{LOCAL:1 & 0xFF})
RESETCOLOR
PRINTFORML [ 0] キャンセル

$INPUT_LOOP
INPUT

IF RESULT == 0
	RETURN 0
ELSEIF RESULT == 1
	RETURN 0xCF0125
ELSEIF RESULT == 2
	RETURN 0xEB5381
ELSEIF RESULT == 3
	RETURN 0xF5A0BD
ELSEIF RESULT == 4
	RETURN 0xF79101
ELSEIF RESULT == 5
	RETURN 0xE49E61
ELSEIF RESULT == 6
	RETURN 0xFFF352
ELSEIF RESULT == 7
	RETURN 0x7FFF00
ELSEIF RESULT == 8
	RETURN 0x2CB232
ELSEIF RESULT == 9
	RETURN 0x00A6AF
ELSEIF RESULT == 10
	RETURN 0x49BDF0
ELSEIF RESULT == 11
	RETURN 0x4169E1
ELSEIF RESULT == 12
	RETURN 0x0063A7
ELSEIF RESULT == 13
	RETURN 0x7F1184
ELSEIF RESULT == 14
	RETURN 0xBC64A4
ELSEIF RESULT == 15
	RETURN 0x626063
ELSEIF RESULT == 16
	RETURN 0x55461B
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

;指定キャラのデフォルト文字色取得
;ARG:0	対象キャラID
@GET_KOJO_DEFAULT_COLOR(ARG:0)
TARGET = ARG:0
TRYCCALLFORM KOJO_DEFAULT_COLOR_{NO:(ARG:0)}_{CFLAG:(ARG:0):701}
CATCH
	;デフォルト色取得関数が無い場合、標準の文字色
	RESULT = 0xC0C0C0
ENDCATCH

IF RESULT == 0
	;0が帰ってきている場合は、標準の文字色を使う
	RESULT = 0xC0C0C0
ENDIF

RETURN RESULT

;全員の文字色初期設定
@INIT_KOJO_DEFAULT_COLOR
#DIM LCOUNT

	FOR LCOUNT, 1, CHARANUM
		CALL INIT_KOJO_DEFAULT_COLOR_SINGLE(LCOUNT)
	NEXT

;文字色初期設定 キャラクタ単体版
@INIT_KOJO_DEFAULT_COLOR_SINGLE(CHARA_ID)
#DIM CHARA_ID

	;グローバルセーブから取得　念のためロードしなおしておく
	LOADGLOBAL

	CFLAG:CHARA_ID:701 = GLOBAL:(NO:CHARA_ID + 300)
	IF CFLAG:CHARA_ID:700 == 0
		CALL GET_KOJO_DEFAULT_COLOR(CHARA_ID)
		CFLAG:CHARA_ID:700 = RESULT
	ENDIF

;!!! ぱにめーしょんが標準搭載になったので、多分こっちは不要
;RGB形式の文字色指定を16進数に変換
;ARG:0	R
;ARG:1	G
;ARG:2	B
@CONVERT_RGB(ARG:0, ARG:1, ARG:2)
#FUNCTION

LOCAL:0 = (ARG:0 * 0x10000) + (ARG:1 * 0x100) + ARG:2

RETURNF LOCAL:0


code:
;口上詳細設定
@KOJO_SELECT
PRINTFORML 各キャラクターの口上について、表示/非表示や、どの口上を使うかを設定します
PRINTFORML 誰の口上を設定しますか？

FOR LOCAL:0, 1, CHARANUM
	IF CFLAG:(LOCAL:0):104 == 0
		LOCALS:0 = %CALLNAME:(LOCAL:0)%の口上
		PRINTFORM [{LOCAL:0, 2}] %LOCALS:0, 25, LEFT%
		IF CFLAG:(LOCAL:0):701 < 0
			RESULTS = 表示しない
		ELSE
			TRYCCALLFORM KOJO_TITLE_{NO:(LOCAL:0)}_{CFLAG:(LOCAL:0):701}
			CATCH
				;タイトルが取得できない場合、本体があるかどうか確認
				TRYCCALLFORM KOJO_{NO:(LOCAL:0)}_{CFLAG:(LOCAL:0):701}(0, 0)
					;口上本体がある場合、汎用タイトルを表示
					RESULTS = %CALLNAME:(LOCAL:0)% 口上その{CFLAG:(LOCAL:0):701 + 1}
				CATCH
					;口上本体が無い場合、表示状態のみ
					RESULTS = 表示する
				ENDCATCH
			ENDCATCH
		ENDIF
		PRINTFORML %RESULTS%
	ENDIF
NEXT
DRAWLINEFORM -

PRINTFORML [\@(FLAG:595 == 0) ? 98 # --\@] %"汎用口上に自動で色を付ける", 40, LEFT%\@(FLAG:596 == 0) ? 利用する # 利用しない\@
RESETCOLOR
PRINTFORML [99] 全OFF
PRINTFORML [ 0] 決定

$INPUT_LOOP
INPUT
IF RESULT == 0
	RETURN
ELSEIF RESULT == 97
	FLAG:595 = (FLAG:595 == 0) ? -1 # 0
	RESTART
ELSEIF RESULT == 98
	FLAG:596 = (FLAG:596 == 0) ? -1 # 0
	RESTART
ELSEIF RESULT == 99
	FOR LOCAL:0, 1, CHARANUM
		CFLAG:(LOCAL:0):701 = -1
	NEXT
	FLAG:595 = -1
	RESTART
ELSEIF RESULT > 0 && RESULT < CHARANUM && CFLAG:(RESULT):104 == 0
	CALL KOJO_SELECT_2(RESULT)
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

RESTART

;個別の口上設定
;ARG:0	対象キャラID
@KOJO_SELECT_2(ARG:0)
#DIM PREV_KOJO_COLOR
TARGET = ARG:0
VARSET LOCAL, 0, 1, 11

PRINTFORML %CALLNAME:(ARG:0)%の口上としてどの口上を利用するか選択してください
IF CFLAG:(ARG:0):701 < 0
	PRINTFORML 現在は口上非表示に設定されています
ELSE
	PRINTFORML 現在は{CFLAG:(ARG:0):701 + 1}番目の口上を利用するように設定されています
ENDIF

FOR LOCAL:0, 1, 11
	TRYCCALLFORM KOJO_{NO:(ARG:0)}_{LOCAL:0 - 1}(0, 0)
		;口上本体がある場合、項目を表示
		LOCAL:(LOCAL:0) = 1
	CATCH
		;口上本体が無い場合、表示を飛ばす
		LOCAL:(LOCAL:0) = 0
		CONTINUE
	ENDCATCH

	PRINTFORM [{LOCAL:0, 2}]
	TRYCCALLFORM KOJO_TITLE_{NO:(ARG:0)}_{LOCAL:0 - 1}
		PRINTFORML %RESULTS%
	CATCH
		;タイトルが取得できない場合、汎用タイトルを表示
		PRINTFORML %CALLNAME:(ARG:0)% 口上その{LOCAL:0}
	ENDCATCH
NEXT
IF LOCAL:1 == 0
	;デフォルト口上が存在しない場合、「表示する」を足しておく
	PRINTFORML [ 1] 口上を表示する
ENDIF
PRINTFORML [-1] 口上を表示しない
PRINTFORML [ 0] キャンセル

$INPUT_LOOP
INPUT

IF RESULT == -1
	PRINTFORMW %CALLNAME:(ARG:0)%の口上を表示しないようにしました
	CFLAG:(ARG:0):701 = -1
ELSEIF RESULT == 0
	RETURN
ELSEIF RESULT > 0 && RESULT < 11 && LOCAL:(RESULT) == 1
	LOCAL:0 = RESULT
	TRYCCALLFORM KOJO_DETAIL_{NO:(ARG:0)}_{LOCAL:0 - 1}
	CATCH
		;詳細表示ができない場合、デフォルト文章を表示
		PRINTFORML この口上に詳細な説明はありません
	ENDCATCH
	PRINTFORML
	PRINTFORML この口上でよろしいですか？
	CALL ASK_YN
	IF RESULT == 0
		;口上文字色の変更確認で使う情報を保存
		PREV_KOJO_COLOR = CFLAG:(ARG:0):700

		PRINTFORMW %CALLNAME:(ARG:0)%の口上を変更しました
		CFLAG:(ARG:0):701 = LOCAL:0 - 1

		;現在の文字色と変更後の文字色が同じ場合も変化が起きない為、選択処理をスキップ
		CALL GET_KOJO_DEFAULT_COLOR(ARG:0)
		IF PREV_KOJO_COLOR == RESULT
			CFLAG:(ARG:0):700 = RESULT

		;口上色選択
		ELSE
			PRINTFORML
			PRINTFORML 利用する口上文字色を選択して下さい

			SETCOLOR PREV_KOJO_COLOR
			PRINTFORML [0] 現在の文字色：%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{PREV_KOJO_COLOR / 0x10000} G:{(PREV_KOJO_COLOR & 0xFF00) / 0x100} B:{PREV_KOJO_COLOR & 0xFF})
			RESETCOLOR

			CALL GET_KOJO_DEFAULT_COLOR(ARG:0)
			SETCOLOR RESULT
			PRINTFORML [1] 変更後口上のデフォルト色 %UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%%UNICODE(0x2586)%　(R:{RESULT / 0x10000} G:{(RESULT & 0xFF00) / 0x100} B:{RESULT & 0xFF})
			RESETCOLOR

			$KOJO_COLOR_SELECT
			INPUT

			SELECTCASE RESULT
			CASE 0
				CFLAG:(ARG:0):700 = PREV_KOJO_COLOR
				PRINTFORMW %CALLNAME:(ARG:0)%の口上色を決定しました
			CASE 1
				CALL GET_KOJO_DEFAULT_COLOR(ARG:0)
				CFLAG:(ARG:0):700 = RESULT
				PRINTFORMW %CALLNAME:(ARG:0)%の口上色を決定しました
			CASEELSE
				REUSELASTLINE 入力値が不正です。再入力してください
				GOTO KOJO_COLOR_SELECT
			ENDSELECT
		ENDIF
	ELSE
		RESTART
	ENDIF
ELSEIF RESULT == 1
	;デフォルト口上無しで「表示する」を選択した場合
	PRINTFORMW %CALLNAME:(ARG:0)%の口上を表示するようにしました
	CFLAG:(ARG:0):701 = 0
ELSE
	REUSELASTLINE 入力値が不正です。再入力してください
	GOTO INPUT_LOOP
ENDIF

;ここまで来た場合、設定が変わっているのでグローバルにも保存
LOADGLOBAL
GLOBAL:(NO:(ARG:0) + 300) = CFLAG:(ARG:0):701
SAVEGLOBAL


code:
;メッセージ
;表示部分の入り口
;触手宮からの変更点として数値(ARG)でなく文字列(ARGS)で分岐
;数値だと使用済みの分岐がわかりにくかったため
;ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3 は他の関数に渡すだけのためDIMしない
@PRINT_MESSAGE(ARG:0, ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)
#DIM TEMP_REDRAW
#DIM CHARA_ID

CHARA_ID = ARG:0

IF CHARA_ID == 0
	;存在しないキャラは無視
	RETURN
ELSEIF CHARA_ID == -1
	TARGET = -1

	CALL SYSTEM_MESSAGE(ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)

	;キャラNOが-1の場合の画像表示
	CURRENTREDRAW
	TEMP_REDRAW = RESULT
	REDRAW 0
	STR:1 = %ARGS:0%
	STR:2 = {ARG:1}
	SPRITECREATED @"NNN_%STR:1%_%STR:2%"
	IF RESULT
		HTML_PRINT @""
		FOR LOCAL , 0 , 10
			PRINTL
		NEXT
		PRINTW
	ELSE
		SPRITECREATED @"NNN_%STR:1%"
		IF RESULT
			HTML_PRINT @""
			FOR LOCAL , 0 , 10
				PRINTL
			NEXT
			PRINTW
		ENDIF
	ENDIF
	REDRAW TEMP_REDRAW

	TARGET = 0
	RETURN
ENDIF

$START
TARGET = CHARA_ID

TRYCCALLFORM KOJO_{NO:(CHARA_ID)}_{CFLAG:(CHARA_ID):701}(ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)
	IF RESULT == 0
		;キャラ口上で何もしなかった場合、デフォルトのメッセージ＋口上を表示
		CALL PRINT_MESSAGE_DEFAULT(ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)
	ENDIF
	;口上一時停止 一個後ろにまとめたので
	;SIF KOJOWAIT:CHARA_ID
	;	WAITANYKEY
CATCH
	;該当キャラの口上が無い場合、デフォルトのメッセージ＋口上
	CALL PRINT_MESSAGE_DEFAULT(ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)
	;口上一時停止 一個後ろにまとめたので
	;SIF KOJOWAIT:CHARA_ID
	;	WAITANYKEY
ENDCATCH
;口上色が他に侵食しないようにリセット
RESETCOLOR

;ログに改行挟む用のフラグ、@END_PHASE内で使用
MESSAGE_DISPLAY_FLAG = 1

;口上一時停止
IF KOJOWAIT:CHARA_ID
	WAITANYKEY
ELSEIF LOG_AUTO_SCROLL == 1
	;@END_PHASEでやる
	;TWAIT MAX(FLAG:502, 1200), 0
ENDIF

;バグ対策
IF CHARA_ID < 1
	PRINTFORML ARG:0がありえない数値{CHARA_ID}でこの行に到達しました
	RETURN
ENDIF

;画像表示
CURRENTREDRAW
TEMP_REDRAW = RESULT
REDRAW 0
STR:0 = %NAME:(CHARA_ID)%
STR:1 = %ARGS:0%
STR:2 = {ARG:1}
SPRITECREATED @"%STR:0%_%STR:1%_%STR:2%"
IF RESULT
	HTML_PRINT @""
	FOR LOCAL , 0 , 10
		PRINTL
	NEXT
	PRINTW
ELSE
	SPRITECREATED @"XXX_%STR:1%_%STR:2%"
	IF RESULT
		HTML_PRINT @""
		FOR LOCAL , 0 , 10
			PRINTL
		NEXT
		PRINTW
	ELSE
		SPRITECREATED @"%STR:0%_%STR:1%"
		IF RESULT
			HTML_PRINT @""
			FOR LOCAL , 0 , 10
				PRINTL
			NEXT
			PRINTW
		ENDIF
	ENDIF
ENDIF
REDRAW TEMP_REDRAW

;デフォルトのメッセージ・口上
@PRINT_MESSAGE_DEFAULT(ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)

;システムメッセージの表示
CALL SYSTEM_MESSAGE(ARGS:0, ARG:1, ARGS:1, ARGS:2, ARG:2, ARG:3)


code:
;システムメッセージ
;
;一番下のCASEELSEで別ファイルのものに飛ぶ処理をしている
;逆に言うとここに無いメッセージを追加する場合他のファイルを参考に新規ファイルを用意すればOK　ここを弄る必要はなし

@SYSTEM_MESSAGE(ARGS:0, ARG:0, ARGS:1, ARGS:2, ARG:1, ARG:2)
;LOCAL
;0	LOOP
;1	色のバックアップ

GETCOLOR
LOCAL:1 = RESULT

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

SELECTCASE ARGS:0
	CASE "オープニング"
		PRINTFORMW 在这天，一根触手诞生了
		;TranslatedMark この日、一本の触手が生まれた
		PRINTFORMW 这就是，从那根触手所开始的，幻想乡的异变故事
		;TranslatedMark これは、その一本の触手から始まる幻想郷の異変の物語
	CASE "キャラ別オープニング"

	CASE "襲撃"

	CASE "探索察知"
		PRINTFORML %ARGS:1%似乎正在搜寻异变的根源...
		;TranslatedMark %ARGS:1%は異変の元凶を探しているようだ…
	CASE "状態異常"
		SELECTCASE ARGS:2
			CASE "拘束"
				PRINTFORML %ARGS:1%因被捕获而无法移动...
				;TranslatedMark %ARGS:1%は捕らえられて動けないようだ……
			CASE "恐慌"
				PRINTFORML %ARGS:1%感到了强烈的恐慌...
				;TranslatedMark %ARGS:1%はパニックに陥っている……
			CASE "睡眠"
				PRINTFORML %ARGS:1%陷入了无论如何也不会醒来的睡眠...
				;TranslatedMark %ARGS:1%は何があっても起きないほどウトウトしている……
			CASE "発情"
				PRINTFORML 发情的%ARGS:1%在强烈欲望下浑身发热...
				;TranslatedMark %ARGS:1%は発情して全身がうずいているようだ……
			CASE "戦意喪失"
				PRINTFORML %ARGS:1%丧失了战意...
				;TranslatedMark %ARGS:1%は戦意を喪失している……
			CASE "絶頂"
				PRINTFORML %ARGS:1%的身体在绝顶中痉挛不止...
				;TranslatedMark %ARGS:1%は身体が絶頂で痙攣しまともに動けないようだ……
			CASE "強制自慰"
				PRINTFORML %ARGS:1%无法停止自慰...
				;TranslatedMark %ARGS:1%は自慰をする手が止まらない……
			CASE "催眠"
				PRINTFORML %ARGS:1%被催眠了...
				;TranslatedMark %ARGS:1%は催眠状態だ……
		ENDSELECT
	CASE "逃走"

	CASE "妊娠"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%似乎意识到自己怀孕了...
				;TranslatedMark %ARGS:1%は自分が妊娠したことに気づいたようだ……
			CASE 1
				PRINTFORML %ARGS:1%严重地孕吐着...
				;TranslatedMark %ARGS:1%はつわりが辛いようだ……
			CASE 2
				PRINTFORML %ARGS:1%腹部的膨胀变得越来越明显...
				;TranslatedMark %ARGS:1%のお腹の膨らみが目立つようになってきた……
			CASE 3
				PRINTFORML %ARGS:1%腹部的膨胀清晰可见...
				;TranslatedMark %ARGS:1%のお腹の膨らみがはっきりとわかり、
				PRINTFORML %ARGS:1%腹中的孩子似乎正在活跃着...
				;TranslatedMark %ARGS:1%の子供がたまに動いているようだ……
			CASE 4
				PRINTFORML %ARGS:1%似乎会产生母乳了...
				;TranslatedMark %ARGS:1%はたまに染みるように母乳が出るようだ……
			CASE 5
				PRINTFORML %ARGS:1%的孩子可能将在未来几天内诞生...
				;TranslatedMark %ARGS:1%の子供が数日以内に産まれそうだ……
		ENDSELECT
		IF ARG:0 > 1 && ITEM:209
			PRINTFORML %ARGS:1%因自己的腹部正以惊人的速度涨大而感到担忧...
			;TranslatedMark %ARGS:1%は恐ろしい早さで大きくなっていくお腹を見て不安げにしている……
		ENDIF
		RESETCOLOR
	CASE "出産"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%的阵痛未曾停止，破了羊水的同时，她开始了分娩
				;TranslatedMark %ARGS:1%は陣痛が止まらず、破水し、出産が始まってしまった
				PRINTFORML 似乎是因为触手的缘故，过程的感觉意外不错！
				;TranslatedMark しかし触手のせいで何故か気持ちがいいようだ！
			CASE 1
				PRINTFORML 在快感下挣扎数小时后，%ARGS:1%平安无事地完成了出产
				;TranslatedMark 数時間の快感との格闘の後、%ARGS:1%は無事出産した
		ENDSELECT
		RESETCOLOR
	CASE "寄生"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%似乎意识到自己已被寄生了...
				;TranslatedMark %ARGS:1%は自分が寄生されたことに気づいたようだ……
			CASE 1
				PRINTFORML %ARGS:1%的身体似乎很沉重...
				;TranslatedMark %ARGS:1%は身体が重いようだ……
			CASE 2
				PRINTFORML %ARGS:1%腹部的膨胀变得越来越明显...
				;TranslatedMark %ARGS:1%のお腹の膨らみが目立つようになってきた……
			CASE 3
				PRINTFORML %ARGS:1%腹部的膨胀清晰可见...
				;TranslatedMark %ARGS:1%のお腹の膨らみがはっきりとわかり、
				PRINTFORML %ARGS:1%的身体活动似乎开始不受控制了...
				;TranslatedMark %ARGS:1%の中身がたまに動いているようだ……
			CASE 4
				PRINTFORML %ARGS:1%与%ARGS:2%的孩子可能会在数日内诞生...
				;TranslatedMark %ARGS:1%と%ARGS:2%の子供が数日以内に産まれそうだ……
		ENDSELECT
		RESETCOLOR
	CASE "寄生出産"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%体内寄生的幼体正蠢蠢欲动...
				;TranslatedMark %ARGS:1%の体内に寄生した幼体が出てこようと蠢き始めた！
				PRINTFORML 似乎是因为触手的缘故，过程的感觉意外不错！
				;TranslatedMark しかし触手のせいで何故か気持ちがいいようだ！
			CASE 1
				PRINTFORML 在快感下挣扎数小时后，%ARGS:1%平安无事地完成了拟似出产
				;TranslatedMark 数時間の快感との格闘の後、%ARGS:1%は無事擬似的な出産をした！
		ENDSELECT
		RESETCOLOR
	CASE "媚薬爆弾"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%体内埋藏的媚药爆弹爆发了！
				;TranslatedMark %ARGS:1%の体内に埋め込まれた媚薬爆弾が爆発した！
				PRINTFORML
			CASE 1
				PRINTFORML 在足以烧却大脑的快感下，%ARGS:1%的身体不住地痉挛！
				;TranslatedMark 脳が焼ききれそうな快感の末、ピクピク痙攣する%ARGS:1%が残された！
		ENDSELECT
		RESETCOLOR
	CASE "諜報"
		SETCOLOR 0xFFFF70
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%似乎在跟着%ARGS:2%探索异变...
				;TranslatedMark %ARGS:2%によると%ARGS:1%が異変を探索しているようだ！
			CASE 1
				PRINTFORML 根据%ARGS:2%的说法，%ARGS:1%似乎得到了异变相关的某些信息！
				;TranslatedMark %ARGS:2%によると%ARGS:1%が異変にきづいたようだ！
			CASE 2
				PRINTFORML %ARGS:1%就异变的情况对%ARGS:2%发出了警告，但对方似乎并不相信的样子！
				;TranslatedMark %ARGS:1%は異変について%ARGS:2%に警告するも信じてもらえなかったようだ！
			CASE 3
				PRINTFORML %ARGS:1%试图将异变的消息告诉%ARGS:2%
				;TranslatedMark %ARGS:1%は%ARGS:2%に異変を話そうとした
				PRINTFORML 但是，在被强迫的高潮里，她的这一举动失败了
				;TranslatedMark が、無理やり絶頂させられて失敗したようだ
		ENDSELECT
		RESETCOLOR
	CASE "全支配"

	CASE "尋問"
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%在%QUESTION_TIME()%的%RESULTS%下\@ TALENT:機械 > 0 ? 字面意义的大脑短路地 # \@屈服了，%QUESTION_RESULT()%着说出了%ARGS:2%的情报！
				;TranslatedMark %ARGS:1%は%RESULTS%を受け%QUESTION_TIME()%で\@ TALENT:機械 > 0 ? 頭脳回路を文字通りショートさせ # \@屈服し、%QUESTION_RESULT()%%ARGS:2%の情報を吐いた！
			CASE 1
				PRINTFORML %ARGS:1%尽管被%RESULTS%着，\@ TALENT:機械 > 0 ? 即使是大脑回路将被烧坏 # \@也未曾屈服，什么也没有说！
				;TranslatedMark %ARGS:1%は%RESULTS%を受けたが、\@ TALENT:機械 > 0 ? 回路が焼き切れそうになりながらも # \@屈服せず何も喋らなかった！
			CASE 2

			CASE 3

			CASE 4
				PRINTFORML %ARGS:1%在%QUESTION_TIME()%的%RESULTS%下\@ TALENT:機械 > 0 ? 字面意义的大脑短路地 # \@屈服了，%QUESTION_RESULT()%着透露了%ARGS:2%正在图谋叛乱的情报！
				;TranslatedMark %ARGS:1%は%RESULTS%を受け%QUESTION_TIME()%で\@ TALENT:機械 > 0 ? 頭脳回路を文字通りショートさせ # \@屈服し、%QUESTION_RESULT()%%ARGS:2%が反乱を企てていることを明かした！
			CASE 5

		ENDSELECT
	CASE "日常"

	CASE "傀儡"
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML
			CASE 1
				PRINTFORML 任命了%ARGS:1%为监视者！
				;TranslatedMark %ARGS:1%を監視者に任命した！
			CASE 2
				PRINTFORML 将%ARGS:1%送进了家畜小屋！
				;TranslatedMark %ARGS:1%を家畜小屋送りにした！
				PRINTFORML %ARGS:1%被以四肢着地跪趴着的姿势固定着！
				;TranslatedMark %ARGS:1%は四つん這いで去っていった！
			CASE 3
				PRINTFORML %ARGS:1%的体表浮现一身使得身材曲线更加突出的战斗员衣装！
				;TranslatedMark %ARGS:1%を体の線が浮き出る衣装の戦闘員にした！
				PRINTFORML %ARGS:1%做了个敬礼的手势！
				;TranslatedMark %ARGS:1%は敬礼している！
			CASE 4
				PRINTFORML %ARGS:1%已被任命为间谍！
				;TranslatedMark %ARGS:1%をスパイに任命した！
			CASE 5
				PRINTFORML %ARGS:1%恶堕了！
				;TranslatedMark %ARGS:1%を悪堕ちさせた！
				PRINTFORML %ARGS:1%带着淫荡的笑容穿上了往日绝对不会出现在身上的猥亵衣装！
				;TranslatedMark %ARGS:1%は淫靡な衣装と表情になっている！
			CASE 6
				PRINTFORML %ARGS:1%已被任命为潜入小队！
				;TranslatedMark %ARGS:1%を潜入隊に任命した！
				PRINTFORML %ARGS:1%拿起自己的装备向拠点走去！
				;TranslatedMark %ARGS:1%は装備を持って拠点へ向かった！
		ENDSELECT
	CASE "潜入隊"
		PRINTFORML %ARGS:1%带着大量触手与媚药爆弹潜入到了%ARGS:2%！
		;TranslatedMark %ARGS:1%は大量の触手の素と媚薬爆弾を持って%ARGS:2%に潜入した！
	CASE "狂気"
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%因异变而失去了理智...
				;TranslatedMark %ARGS:1%は異変のせいで正気を失ってきているようだ……
			CASE 1
				PRINTFORML %ARGS:1%的行为变得越来越奇怪...
				;TranslatedMark %ARGS:1%はおかしな言動が増えてきているようだ……
			CASE 2
				PRINTFORML %ARGS:1%似乎认为现在的这场异变是正常现象...
				;TranslatedMark %ARGS:1%は異変が日常だと受け入れているようだ……
		ENDSELECT
	CASE "治療"
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:2%似乎治愈了%ARGS:1%的植物化！
				;TranslatedMark %ARGS:2%は%ARGS:1%を植物化から治療したようだ！
			CASE 1
				PRINTFORML %ARGS:2%似乎治愈了%ARGS:1%的兽化！
				;TranslatedMark %ARGS:2%は獣化した%ARGS:1%を治療したようだ！
			CASE 2
				PRINTFORML %ARGS:2%似乎治愈了%ARGS:1%的石化！
				;TranslatedMark %ARGS:2%は石化した%ARGS:1%を治療したようだ！
			CASE 3
				PRINTFORML %ARGS:2%似乎已将%ARGS:1%从壁尻里救了出来！
				;TranslatedMark %ARGS:2%は%ARGS:1%を壁尻当番からおろしたようだ！
			CASE 4
				PRINTFORML 找到了行踪不明的%ARGS:1%似乎被%ARGS:2%找到了！
				;TranslatedMark %ARGS:2%は行方不明の%ARGS:1%を見つけたようだ！
			CASE 5
				PRINTFORML %ARGS:2%似乎治愈了%ARGS:1%的飞机杯化！
				;TranslatedMark %ARGS:2%はオナホ化した%ARGS:1%を治療したようだ！
			CASE 6
				PRINTFORML
		ENDSELECT
	CASE "反乱"
		SETCOLOR 0xFFFF70
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML 在%CALLNAME:(FLAG:首謀者)%的旗号下，一场针对%SAVESTR:0%的叛乱爆发了...
				;TranslatedMark %CALLNAME:(FLAG:首謀者)%を旗頭にして%SAVESTR:0%に対する反乱が発生したようだ……
			CASE 1
				PRINTFORML %ARGS:1%似乎是这场叛乱的首要策划者...
				;TranslatedMark %ARGS:1%は反乱を企てる首謀者だったようだ……
				PRINTFORML 叛乱的种子似乎被彻底碾碎了...
				;TranslatedMark 反乱の芽が潰えたようだ……
		ENDSELECT
		RESETCOLOR

	CASE "睾丸妊娠"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%的睾丸感到刺痛...
				;TranslatedMark %ARGS:1%は自分の金玉がうずいている……
			CASE 1
				PRINTFORML %ARGS:1%似乎已经有了自己的睾丸里蕴藏着新的生命的自觉...
				;TranslatedMark %ARGS:1%は自分の金玉に新たな生命が宿ったと自覚してしまったようだ……
			CASE 2
				PRINTFORML %ARGS:1%的睾丸时常会自行移动...
				;TranslatedMark %ARGS:1%の金玉が時折うごめいている……
		ENDSELECT
		RESETCOLOR
	CASE "睾丸出産"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%的睾丸出产开始了
				;TranslatedMark %ARGS:1%の睾丸から出産が始まってしまった
				PRINTFORML 似乎是因为触手的缘故，过程的感觉意外不错！
				;TranslatedMark しかし触手のせいでなぜか気持ちがいいようだ！
			CASE 1
				PRINTFORML 在快感下挣扎数小时后，%ARGS:1%伴随着浓稠精液的大量喷出从尿道中完成了出产！
				;TranslatedMark 数時間の快感との格闘の後、%ARGS:1%はドロドロの精液を吹き出しながら尿道から出産した！
				PRINTFORML 疲劳的%ARGS:1%的扶她肉棒已然软了下去...
				;TranslatedMark 流石に疲れたのか%ARGS:1%のふたなりちんぽは萎れている……
		ENDSELECT
		RESETCOLOR
	CASE "睾丸寄生"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML %ARGS:1%似乎意识到自己的睾丸已被寄生了...
				;TranslatedMark %ARGS:1%は自分の金玉が寄生されたことに気づいたようだ……
			CASE 1
				PRINTFORML %ARGS:1%的睾丸似乎很沉重...
				;TranslatedMark %ARGS:1%は金玉が重いようだ……
			CASE 2
				PRINTFORML %ARGS:1%的睾丸显得愈发涨大...
				;TranslatedMark %ARGS:1%の金玉の膨らみが目立つようになってきた……
			CASE 3
				PRINTFORML %ARGS:1%睾丸的膨胀清晰可见...
				;TranslatedMark %ARGS:1%の金玉の膨らみがはっきりとわかり、
				PRINTFORML %ARGS:1%的身体活动似乎开始不受控制了...
				;TranslatedMark %ARGS:1%の中身がたまに動いているようだ……
			CASE 4
				PRINTFORML %ARGS:1%睾丸中的寄生体似乎正在活跃着...
				;TranslatedMark %ARGS:1%の金玉の中の寄生体がもうすぐ生まれそうだ……
		ENDSELECT
		RESETCOLOR
	CASE "睾丸寄生出産"
		SETCOLOR 0xE02020
		SELECTCASE ARG:0
			CASE 0
				PRINTFORML 寄生在%ARGS:1%睾丸中的幼体正在蠢蠢欲动...
				;TranslatedMark %ARGS:1%の金玉内に寄生した幼体が出てこようと蠢き始めた！
				PRINTFORML 似乎是因为触手的缘故，过程的感觉意外不错！
				;TranslatedMark しかし触手のせいで何故か気持ちがいいようだ！
			CASE 1
				PRINTFORML 在快感下挣扎数小时后，%ARGS:1%伴随着浓稠精液的大量喷出完成了拟似出产！
				;TranslatedMark 数時間の快感との格闘の後、%ARGS:1%は精液を吹き出しながら無事擬似的な出産をした！
				PRINTFORML 疲劳的%ARGS:1%的扶她肉棒已然软了下去...
				;TranslatedMark 流石に疲れたのか%ARGS:1%のふたなりちんぽは萎れている……
		ENDSELECT
		RESETCOLOR

	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})
			;TranslatedMark (SYSTEM_MESSAGE)未実装のメッセージ %ARGS:0% が指定されました ({ARG:0}, %ARGS:1%, %ARGS:2%, {ARG:1}, {ARG:2})
		ENDCATCH
ENDSELECT

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


code:
@SYSTEM_MESSAGE_NPCイベント(ARG:0, ARGS:0, ARGS:1, ARG:1, ARG:2)

SETCOLOR 0x10EEEE

SELECTCASE ARG:0
	CASE 0
		PRINTFORML
	CASE 1
		PRINTFORML
	CASE 2
		PRINTFORML
	CASE 3
		PRINTFORML
	CASE 4
		PRINTL
		;8=下線
		FONTSTYLE 8
		PRINTFORML  %ARGS:0%前往了%ARGS:1%之所在
		;TranslatedMark %ARGS:1%の所に%ARGS:0%が会いに来たようだ
		FONTSTYLE 0
	CASE 5
		PRINTFORML
	CASE 6
		PRINTFORML %ARGS:0%的劝告成功使得%ARGS:1%开始警惕起来！
		;TranslatedMark %ARGS:0%の働きかけで%ARGS:1%が厳戒態勢になったようだ！
	CASE 7
		PRINTFORML 在%ARGS:0%的倡议下，%ARGS:1%的成员们开展了作战会议...
		;TranslatedMark %ARGS:0%の働きかけで%ARGS:1%のメンバーを集めた作戦会議を開いた
		PRINTFORML 然而，似乎除了%ARGS:0%以外的所有人都已经受到了来自%SAVESTR:0%的影响...
		;TranslatedMark が、どうやら%ARGS:0%以外のすべてがすでに%SAVESTR:0%の影響下にあったようだ…
	CASE 9
		SELECTCASE ARG:1
			CASE 0
				PRINTFORML 由于%ARGS:0%的游说，人们决定对%ARGS:1%进行突击检查
				;TranslatedMark %ARGS:0%の働きかけで%ARGS:1%のメンバーの抜き打ち検査をやることになった
				PRINTFORML 然而，似乎除了%ARGS:0%以外的所有人都已经受到了来自%SAVESTR:0%的影响...
				;TranslatedMark が、どうやら%ARGS:0%以外のすべてがすでに%SAVESTR:0%の影響下にあったようだ…
				PRINTFORML %ARGS:0%长出了复数条手臂...
				;TranslatedMark %ARGS:0%の元に複数の腕が伸びていく……
			CASE 1
				PRINTFORML %ARGS:0%接受了%ARGS:1%的成员的突击检查！
				;TranslatedMark %ARGS:0%は%ARGS:1%メンバーによる抜き打ち検査をされた！
				PRINTFORML 就这样剥光了她全身的异物，连着膣穴与屁眼的最深处都被检查了...
				;TranslatedMark 衣服を全て剥ぎ取られ体の隅々まで、前の穴や後ろの穴の奥まで調べられた……
			CASE 2
				PRINTFORML 被发现已受到%SAVESTR:0%的影响的%ARGS:0%被从%ARGS:1%中踢出了！
				;TranslatedMark %ARGS:0%は%SAVESTR:0%の影響が見つかり%ARGS:1%を追い出された！
		ENDSELECT

	CASE 14
		PRINTFORMW 看来%ARGS:0%已经秘密邀请%ARGS:1%加入到了自己的拠点中...
		;TranslatedMark %ARGS:0%はこっそりと自分の拠点に%ARGS:1%を招き入れたようだ……
	CASE 15
		PRINTFORML %ARGS:0%的报道使得%ARGS:1%注意到了异变的情况！
		;TranslatedMark %ARGS:1%は%ARGS:0%の新聞を信じ異変に気づいた！
	CASE 16
		PRINTFORML %ARGS:0%发现了%SAVESTR:0%的整体，并向%ARGS:1%发出了求助的请求！
		;TranslatedMark %ARGS:0%は%SAVESTR:0%の正体を知り、%ARGS:1%に助けを求めた！
		PRINTFORML 但是，%ARGS:1%已经被异变所支配...
		;TranslatedMark しかし、%ARGS:1%は異変にすでに支配されていた……
		PRINTFORML %ARGS:1%向%ARGS:0%的身体伸出了手...
		;TranslatedMark %ARGS:0%の身体に%ARGS:1%の腕が伸びていく……
	CASE 18
		PRINTFORML %ARGS:0%的劝告成功使得%ARGS:1%高度警戒起来！
		;TranslatedMark %ARGS:0%の働きかけで%ARGS:1%が厳戒態勢を解いたようだ！
	CASE 19
		PRINTFORML %ARGS:0%不再探索异变了！
		;TranslatedMark %ARGS:0%は異変の探索を取りやめたようだ！
	CASE 20
		SELECTCASE ARG:1
			CASE 0
				PRINTFORML %ARGS:0%召集了%ARGS:1%的成员举办了宴会！
				;TranslatedMark %ARGS:0%は%ARGS:1%のメンバーを集めて宴会を開いた！
			CASE 1
				PRINTFORML %ARGS:1%在宴会上被已遭支配的%ARGS:0%以亲吻的方式传播了侵蚀！
				;TranslatedMark %ARGS:1%は宴会中、支配済みの%ARGS:0%にキスで侵食されたようだ！
			CASE 2
				PRINTFORML %ARGS:1%在宴会上喝下了已遭支配的%ARGS:0%所递上的酒，就这样被传播了侵蚀！
				;TranslatedMark %ARGS:1%は宴会中、支配済みの%ARGS:0%に酒への仕込みで侵食されたようだ！
			CASE 3
				PRINTFORML %ARGS:1%在宴会上食用了已遭支配的%ARGS:0%的卵料理，就这样被传播了侵蚀！
				;TranslatedMark %ARGS:1%は宴会中、支配済みの%ARGS:0%に卵料理の仕込みで侵食されたようだ！
		ENDSELECT
	CASEELSE

ENDSELECT

RESETCOLOR


code:
@SYSTEM_MESSAGE_イチャイチャ(ARG:0, ARGS:0, ARGS:1, ARG:1, ARG:2)
SELECTCASE ARG:0

	CASE 0
		PRINTFORML 无法抗拒的%ARGS:0%给了%ARGS:1%一个深吻作为问候
		;TranslatedMark %ARGS:0%は我慢できずに%ARGS:1%に挨拶代わりの濃厚なキスをした
		PRINTFORML 唾液在彼此方才交合的唇间拉出一条银线
		;TranslatedMark 口がはなれたときには唾液が糸を引いて二人をつないだ
	CASE 1
		PRINTFORML %ARGS:0%与%ARGS:1%随意地交谈着
		;TranslatedMark %ARGS:0%は%ARGS:1%と当たり障りのない会話をした

	CASE 10
		PRINTFORML %ARGS:0%握住了%ARGS:1%的手
		;TranslatedMark %ARGS:0%は%ARGS:1%の手を握った
		PRINTFORML 明显能察觉到其间温暖的感觉
		;TranslatedMark じんわりとした温かさを感じることができた
	CASE 11
		PRINTFORML %ARGS:0%轻轻拍了拍%ARGS:1%的肩膀
		;TranslatedMark %ARGS:0%は%ARGS:1%の肩を触った
		PRINTFORML %ARGS:1%似乎感觉好一点了
		;TranslatedMark %ARGS:1%は少し気持ちよかったようだ
	CASE 12
		PRINTFORML %ARGS:0%抱住了%ARGS:1%
		;TranslatedMark %ARGS:0%は%ARGS:1%に抱きついた
		PRINTFORML 被柔软的感觉与%ARGS:1%的体香所包围
		;TranslatedMark ふんわりとした柔らかさと%ARGS:1%の匂いに包まれた
	CASE 13
		PRINTFORML %ARGS:0%捏了捏%ARGS:1%的屁股
		;TranslatedMark %ARGS:0%は%ARGS:1%のお尻を触った
		PRINTFORML 非常柔软的感觉
		;TranslatedMark とても柔らかかった
	CASE 14
		PRINTFORML %ARGS:0%揉了揉%ARGS:1%的胸部
		;TranslatedMark %ARGS:0%は%ARGS:1%の胸を触った
		PRINTFORML 非常柔软的感觉
		;TranslatedMark とても柔らかかった
	;キスをする
	CASE 15
		IF CFLAG:侵食済 && ITEM:242
			PRINTFORML %ARGS:0%灵巧地缠绕着%ARGS:1%的舌头...
			;TranslatedMark %ARGS:0%の舌が%ARGS:1%の舌を巧みに絡めとっていく……
			PRINTFORML %ARGS:1%的眼神像是融化了一般...
			;TranslatedMark %ARGS:1%の蕩けきった瞳が目の前にある……
		ELSE
			PRINTFORML %ARGS:0%在%ARGS:1%的唇上轻轻留下一吻
			;TranslatedMark %ARGS:0%は%ARGS:1%に軽くキスをした
			PRINTFORML %ARGS:1%的眼瞳悄然染上了几分湿润的感觉...
			;TranslatedMark %ARGS:1%の潤んだ瞳が目の前にある……
		ENDIF
	CASE 16
		PRINTFORML %ARGS:0%爱抚着%ARGS:1%的屁股
		;TranslatedMark %ARGS:0%は%ARGS:1%のお尻を愛撫した
		PRINTFORML 就这样仔细地揉捏着，%ARGS:1%的感觉似乎还不错...
		;TranslatedMark こねるようにじっくりと揉むと%ARGS:1%も気持ち良いようだ……
	CASE 17
		PRINTFORML %ARGS:0%爱抚着%ARGS:1%的胸部
		;TranslatedMark %ARGS:0%は%ARGS:1%の胸を愛撫した
		PRINTFORML %ARGS:1%的乳头似乎挺立起来了...
		;TranslatedMark %ARGS:1%は乳首が気持ちいいらしい……
	CASE 18
		PRINTFORML %ARGS:0%触碰了%ARGS:1%的股间
		;TranslatedMark %ARGS:0%は%ARGS:1%の股間を触った
		PRINTFORML 被轻轻抚摸着的时候，%ARGS:1%似乎就会感觉很奇怪
		;TranslatedMark スリスリと撫でられると%ARGS:1%は変な気分になるらしい
	CASE 19
		PRINTFORML %ARGS:0%将手伸进了%ARGS:1%的下着
		;TranslatedMark %ARGS:0%は%ARGS:1%のパンツの中に手を入れた
		PRINTFORML 享受轻微的湿润与掌下温暖柔软的感觉
		;TranslatedMark 軽い湿り気と温かく柔らかい感触を楽しんだ
	CASE 20
		PRINTFORML %ARGS:0%与%ARGS:1%磨着豆腐
		;TranslatedMark %ARGS:0%は%ARGS:1%と貝合せをした
		PRINTFORML 彼此下身的肉唇如同接吻般纠缠在一起，将快乐传递到彼此的脑海...
		;TranslatedMark 粘膜同士がキスをするように絡み合い快楽を伝えてくる……
	CASE 21
		PRINTFORML %ARGS:0%与%ARGS:1%发生了百合性爱
		;TranslatedMark %ARGS:0%は%ARGS:1%とレズセックスをした
		PRINTFORML 加深了彼此的爱情
		;TranslatedMark 愛情と感度が深まった
	CASE 22
		PRINTFORML %ARGS:0%与%ARGS:1%摩擦着彼此的胸部
		;TranslatedMark %ARGS:0%は%ARGS:1%と胸をもみ合った
		PRINTFORML 享受着柔软的触感
		;TranslatedMark 柔らかさと感触を存分に楽しんだ

	CASE 30
		PRINTFORML %ARGS:0%让%ARGS:1%为她的扶她肉棒做着口交
		;TranslatedMark %ARGS:0%は%ARGS:1%にふたなりちんぽをフェラしてもらった
		PRINTFORML 柔软的口腔粘膜侍奉着肉棒的感觉使得她非常舒服...
		;TranslatedMark 柔らかい粘膜がちんぽに吸い付いてとても気持ちがいい……
	CASE 31
		PRINTFORML %ARGS:0%与%ARGS:1%做爱了
		;TranslatedMark %ARGS:0%は%ARGS:1%とセックスをした
		PRINTFORML 沉浸在快感之中的%ARGS:0%射入了%ARGS:1%的膣内！
		;TranslatedMark 快楽に溺れ%ARGS:0%は%ARGS:1%の膣内にだした！
	CASE 32
		PRINTFORML %ARGS:0%は%ARGS:1%にパイズリしてもらった
		PRINTFORML 柔らかさに包まれもどかしい快感が%ARGS:0%を襲った！

	CASE 40
		PRINTFORML %ARGS:0%为%ARGS:1%的扶她肉棒做着口交
		;TranslatedMark %ARGS:0%は%ARGS:1%のふたなりちんぽをフェラした

	CASE 97
		PRINTFORML %ARGS:0%向%ARGS:1%求婚了！
		;TranslatedMark %ARGS:0%は%ARGS:1%に結婚を申し込んだ！
		PRINTFORML %ARGS:1%羞涩地答应了！
		;TranslatedMark %ARGS:1%は恥じらいながら了承した！
	CASE 98
		PRINTFORML %ARGS:0%袭击了%ARGS:1%
		;TranslatedMark %ARGS:0%は%ARGS:1%に襲いかかった
		PRINTFORML 被支配的%ARGS:1%眼底流露出绝望的神色...
		;TranslatedMark %ARGS:1%は瞳に絶望を映しながら支配されていく……
	CASE 99
		PRINTFORML %ARGS:0%告诉了%ARGS:1%一个秘密
		;TranslatedMark %ARGS:0%は%ARGS:1%に秘密を打ち明けた
		PRINTFORML %ARGS:1%沉默了几秒后，表示会为%ARGS:0%保守的...
		;TranslatedMark %ARGS:1%は数秒沈黙したのち%ARGS:0%を受け入れたいと願った……

	CASEELSE
		PRINTFORMW (SYSTEM_MESSAGE_1)コマンドIDが不正です ({ARG:0}, %ARGS:0%, %ARGS:1%, {ARG:2}, {ARG:3}, {ARG:4}, {ARG:5}, {ARG:6})
ENDSELECT

RESETCOLOR

path: ERB/メッセージ・口上関連/各種地の文章/SYSTEM_MESSAGE_イチャイチャ.ERB


code:
@SYSTEM_MESSAGE_エンディング(ARG:0, ARGS:0, ARGS:1, ARG:1, ARG:2)

SETCOLOR 0x10EEEE

SELECTCASE ARG:0
	CASE 0
		PRINTFORML 幻想乡最终还是落在了%SAVESTR:0%的手中
		;TranslatedMark 幻想郷は%SAVESTR:0%の手に落ちた
		PRINTFORML 即使是抵抗到最后的%ARGS:1%，现在也还是被这场异常事态所吞噬
		;TranslatedMark 最後まで抵抗した%ARGS:1%もこの異常事態に呑み込まれた
		PRINTFORML 这就是后来被称之为东方触手变的事件的完整始末
		;TranslatedMark これが、後に東方触手変と呼ばれる事件の一部始終である

	CASE 1
		PRINTFORML %SAVESTR:0%已被幻想乡所接受
		;TranslatedMark %SAVESTR:0%は幻想郷に受け入れられた
		PRINTFORML 而在%SAVESTR:0%的引导下，快感也已成为幻想乡的家常便饭
		;TranslatedMark 幻想郷では快感を得ることが当たり前になったのだ
		PRINTFORML 她们将继续作为好邻居一同度过往后的时光
		;TranslatedMark 良き隣人としてこれからも一緒に過ごすことになるだろう

	CASE 2
		PRINTFORML 至于%ARGS:1%，则是在所有人面前被处刑了
		;TranslatedMark %ARGS:1%は皆の前で処刑された
		PRINTFORML 异变造成的损失都被认为是由%ARGS:1%所造成的
		;TranslatedMark 異変による不利益は%ARGS:1%によるものとされ、
		PRINTFORML 新的习惯就这样被人类与妖怪们所接受
		;TranslatedMark 新しい習慣が人々に妖怪に受け入れられたのだ
		PRINTFORML %SAVESTR:0%的秘密行动永无止境地进行着...
		;TranslatedMark %SAVESTR:0%による暗躍は終わらない……

	CASE 3
		PRINTFORML 今天的淫靡的主题曲也依旧在壁尻团的周边响彻
		;TranslatedMark 今日も壁尻団のテーマソングが流れる中
		PRINTFORML 大量颤抖着的屁股就这样从肉壁中被伸出来
		;TranslatedMark 大量のメス尻が壁から突き出されている
		PRINTFORML 被人类，触手与野兽们自由地使用着
		;TranslatedMark 町ゆくは人も触手も獣も尻を自由に使う
		PRINTFORML 啊啊，我们的壁尻团
		;TranslatedMark ああ、我らが壁尻団
	CASE 4
		PRINTFORML 双成榨精团的早晨，是从对扶她肉棒的榨精开始的
		;TranslatedMark 双成搾精団の朝はふたなりちんぽフェラチオから始まる
		PRINTFORML 当女孩们方才醒来时，就要从她们的扶她肉棒里榨取大量浓厚的牛奶
		;TranslatedMark 少女たちのギンギンに朝立ちしたちんぽから濃いミルクを搾り取るのだ
		PRINTFORML 从早到晚，她们的扶她肉棒几乎都是处于勃起状态
		;TranslatedMark おはようからおやすみまでふたなりちんぽが勃起するたびに
		PRINTFORML 因射精而满足着
		;TranslatedMark 射精させて満足させる
		PRINTFORML 这就是新世界的开端...
		;TranslatedMark それが新世界の幕開けなのだ

	CASE 5
		PRINTFORML 人间之里看似平和
		;TranslatedMark 一見すると平和な人里
		PRINTFORML 但%ARGS:1%知道
		;TranslatedMark しかし%ARGS:1%は知っていた
		PRINTFORML 只要来到小巷里，就会发现那些彻底沉醉于侍奉肉棒的快乐的幻想少女们
		;TranslatedMark 裏路地を覗き込めば何人もの幻想少女がうっとりしながらゆきずりちんぽを頬張ったり
		PRINTFORML 正用下身的秘所容纳着插入其中的异物，并发出着属于雌性的淫荡声音...
		;TranslatedMark 下の口で咥えこんでメスの声を上げているのだ……
		PRINTFORML 「当男性提出要求时，任何女性都必须无条件地提供性服务」，这是幻想乡的新规则
		;TranslatedMark 幻想郷の決まりとして「女性は男性に求められたら性奉仕を行う事」
		PRINTFORML 就这样被男女双方所共同接受了...
		;TranslatedMark それを男女問わず受け入れている……
		PRINTFORML %ARGS:1%的肩膀被轻轻拍了一下
		;TranslatedMark ポンと%ARGS:1%の肩が叩かれる
		PRINTFORML 然后，独身一人的少女就这样在小巷里失踪了...
		;TranslatedMark そしてまた一人、路地裏に少女が消えた……

	CASE 6
		PRINTFORML 无人知晓
		;TranslatedMark 知りたくなかった
		PRINTFORML 寄生于她身上的植物，彻底支配了她的身心
		;TranslatedMark 身体に植え付けられ生えてきた植物に身も心も支配されていく感触
		PRINTFORML 在徒劳的反抗后，很快就也变成了植物的苗床...
		;TranslatedMark 抵抗も虚しく体が苗床に変わっていく……
		PRINTFORML 水分...土壤...阳光......
		;TranslatedMark 水…土……日光……
		PRINTFORML 就这样被操纵着汲取着并不适用于自身的那些养分...
		;TranslatedMark 自分でないナニカが養分を求める……
		PRINTFORML %ARGS:1%的意志又还能够维持多久呢...？
		;TranslatedMark %ARGS:1%だったモノの意志はいつまで残るのだろう……
		PRINTFORML 不过至少目前的情况...残余的意志就这样消失掉什么的，恐怕甚至都已经是比这样活着还要更加幸福的结局了吧...
		;TranslatedMark あるいは……意志が残されたままより消えてしまったほうが幸せかもしれない……

	CASE 7
		PRINTFORML 今天是%ARGS:1%的结婚仪式
		;TranslatedMark 今日は%ARGS:1%の結婚式だ
		PRINTFORML 四肢爬行的%ARGS:1%穿着婚纱
		;TranslatedMark 花嫁衣装をまとった%ARGS:1%は四つん這いになり、
		PRINTFORML 与作为新郎的%RANDOM_INU()%淫乱地交尾着
		;TranslatedMark 花婿の%RANDOM_INU()%と交尾する
		PRINTFORML 这就是幻想乡如今的日常
		;TranslatedMark 幻想郷ではこれが日常なのだ
		PRINTFORML 在众人的祝福下，又一对夫妇在此诞生
		;TranslatedMark 多くの人の祝福を浴びながらここにまた新しい夫婦が誕生した

	CASE 8
		PRINTFORML 持续着
		;TranslatedMark 動いている
		PRINTFORML 来自%ARGS:1%的夫君，%RANDOM_INSECT()%的孩子正在她的子宫里逐渐孵化
		;TranslatedMark お腹の中で%ARGS:1%の夫である%RANDOM_INSECT()%の子供が体内で孵化したのだ……
		PRINTFORML 她子宫的嫩肉悄然开始蠕动起来，就好像在庆祝孩子的诞生那般
		;TranslatedMark カサカサと誕生を祝うかのように室内の兄弟たちが蠢き出す
		PRINTFORML 伴随着腹部的抽动，新的生命从股间喷涌而出...
		;TranslatedMark お腹がボコボコと蠢き、新たな生命が股間から湧き出てきた……

	CASE 9
		PRINTFORML 幻想乡的膨乳异变已然结束
		;TranslatedMark 幻想郷膨乳異変は幕を閉じた
		PRINTFORML 对于女性来说，乳房大到足以从手中溢出这种事情已然成为了常态
		;TranslatedMark 女性たちは手からあふれるくらいの乳に育つのが当たり前になり
		PRINTFORML 而男人们对此也是十分欢迎的态度
		;TranslatedMark 男性陣もまたそれを受け入れた

	CASE 10
		PRINTFORML 至于%ARGS:1%的胸部，则是交由%SAVESTR:0%来榨取
		;TranslatedMark %ARGS:1%は胸に溜まったミルクを%SAVESTR:0%に搾られる
		PRINTFORML 伴随着微弱的喷出声，乳汁就这样被挤出并储存在罐子里
		;TranslatedMark んっ、と微かな声を上げながら粛々とミルクが絞り出されタンクへ貯められていく
		PRINTFORML 像是%ARGS:1%那样等待着挤奶的女性就这样排着队
		;TranslatedMark 辺りには%ARGS:1%のような女達が並べられ搾乳されている
		PRINTFORML 就像是家畜那样被对待，反复被挤榨着乳汁...
		;TranslatedMark まるで家畜のように扱われながら、溜まったミルクを搾られるのだ……

	CASE 11
		PRINTFORML 幻想乡里再也没有人类了
		;TranslatedMark 幻想郷に人間はいない
		PRINTFORML 留下的只有一群连服装文明都遗忘掉的野兽
		;TranslatedMark いるのは衣服という文明さえ忘れた獣たちだけだ
		PRINTFORML 他们将保留着像以前的人类一样思考的能力，并继续过着自己的生活
		;TranslatedMark 彼らは元人間として思考能力を持ちながらこれからも生活を営む

	CASE 12
		PRINTFORML %ARGS:1%的身体被石化了
		;TranslatedMark %ARGS:1%の身体が石化していく
		PRINTFORML 就这样被脱光衣服，被迫保持着站立不动的姿态
		;TranslatedMark 衣服を全て剥ぎ取られ、直立不動の姿勢を維持させられたまま
		PRINTFORML 与触手变对抗到底的%ARGS:1%，最后也变成了一座失语的石像
		;TranslatedMark 最後まで触手変に対抗していた%ARGS:1%も物言わぬ石像と化した
	CASE 13
		PRINTFORML 她只能眼睁睁地看着那些被石化的熟人与朋友，就这样被%SAVESTR:0%所摧毁
		;TranslatedMark %ARGS:1%の目の前で、石化された知り合いが友人が%SAVESTR:0%に壊されていく
		PRINTFORML 最终还是晚了一步...
		;TranslatedMark 間に合わなかったのだ……
		PRINTFORML 四肢被石化而无法活动的她
		;TranslatedMark 四肢を石化されまともに動くことのできない
		PRINTFORML 唯一能做的就只有看着朋友们被挨个摧毁
		;TranslatedMark 壊されていくのを見ていることしかできない
		PRINTFORML 在%ARGS:1%的眼睛也被石化的那一刻，无慈悲的处刑终于结束了
		;TranslatedMark %ARGS:1%の瞳も石化していきながら、無慈悲な処刑が終わった

	CASE 14
		PRINTFORML 「呐，你知道吗？有一个地方，叫做幻想乡」
		;TranslatedMark 「ねえ知ってる？幻想郷ってところ」
		PRINTFORML 「那是某个隐藏着的村庄吗？妖怪所居住的地方」
		;TranslatedMark 「隠れ里的なところなんだっけ？妖怪の住む」
		PRINTFORML 「嗯，最近，那里的统治者已经换人了呢」
		;TranslatedMark 「この前支配者が変わって近々出てくるらしいよ」
		PRINTFORML 「嗯，但是妖怪真的存在吗？」
		;TranslatedMark 「へぇでも妖怪って本当にいるのかな」
		PRINTFORML 「哎？」
		;TranslatedMark 「さあ？」

	CASE 15
		PRINTFORML 左右好奇的目光集中在了%ARGS:1%的身上
		;TranslatedMark %ARGS:1%に好奇の目が向けられる
		PRINTFORML 很快周边便传出了窃窃私语的声音
		;TranslatedMark ヒソヒソとした話し声
		PRINTFORML 「她竟然穿着衣服哎」「好奇怪啊...」「嘘，不要看」
		;TranslatedMark 「アイツ服を着ているぞ」「なんて、はしたない」「しっ、見ちゃいけません」
		PRINTFORML 直到%ARGS:1%终于愿意当场脱掉衣服时，周边的声音才平息下来
		;TranslatedMark %ARGS:1%が意を決して服をその場で脱ぐとざわめきは収まっていった
		PRINTFORML %ARGS:1%因羞耻而颤抖着，可如今的幻想乡已然成为了全裸才是常态的世界
		;TranslatedMark %ARGS:1%は羞恥に震えるがここでは全裸が当たり前の世界
		PRINTFORML 为了尽可能隐藏自己，%ARGS:1%悄然消失在了人间之里...
		;TranslatedMark 少しでも隠そうと身を縮こませながら%ARGS:1%はこそこそと人里へ消えてゆく……
	CASE 16
		PRINTFORML 现在是自慰大会的潮吹环节
		;TranslatedMark さあ始まりましたオナニー大会潮吹きの部
		PRINTFORML 选手们努力刺激着自己的膣穴，比拼着彼此高潮时爱液飞溅的距离
		;TranslatedMark 選手は膣をかき回し絶頂とともに飛ばす愛液の飛距離を競います
		PRINTFORML 限制时间为五分钟
		;TranslatedMark 制限時間は5分
		PRINTFORML 众人的目光纷纷集中在了初次登场的%ARGS:1%选手的身上
		;TranslatedMark 個人的には初登場の%ARGS:1%選手に注目が集まります
		PRINTFORML 现在，裁判已经举起了旗帜
		;TranslatedMark さあ審判が旗を構えました
		PRINTFORML 选手们一同将手放在了自己的股间...开始！
		;TranslatedMark 選手一斉に股間に手を当て……スタートです！
	CASE 17
		PRINTFORML 被光芒所贯穿的%ARGS:1%的身体，被%RANDOM_MAGICAL_CLOTH()%所包裹了
		;TranslatedMark %ARGS:1%の身が光に包まれ%RANDOM_MAGICAL_CLOTH()%を身にまとう
		PRINTFORML 打败迎面而来的敌方怪物，保护人间之里不受邪恶组织的侵扰！
		;TranslatedMark 迫りくる敵の怪物を倒し、悪の組織から人里を守るのだ！
		PRINTFORML 今天也要在村民们的欢呼中努力战斗！
		;TranslatedMark 村人たちの声援を浴び今日も戦え！
	CASE 18
		PRINTFORML 现在是决出第一名的时候了
		;TranslatedMark さあ始まりましたふたなりナンバーワン決定戦
		PRINTFORML 新秀%ARGS:1%在自己的首战中对阵老将%ARGS:0%
		;TranslatedMark 新人%ARGS:1%がデビュー戦でベテランの%ARGS:0%に挑みます
		PRINTFORML 此时的二人都兴奋异常，下身的肉棒也一抽一抽的
		;TranslatedMark 両者気合十分ちんぽもビンビンと言ったところ
		PRINTFORML 她们正在互相瞪着彼此...来吧——开始！
		;TranslatedMark さあ睨み合って、ハッケヨーイのこったー
		PRINTFORML 糟糕！%ARGS:1%在开始信号时就射精了！不会吧！
		;TranslatedMark おおっと%ARGS:1%開始合図で射精！これはいけません！
		PRINTFORML 无论%ARGS:0%的攻势如何，胜负都已经决定了！
		;TranslatedMark %ARGS:0%構わず攻勢！早いが勝負がもう決まってしまうのか！？

	CASE 19
		PRINTFORML 实验对象编号736-个体名%ARGS:1%的机械化手术即将开始
		;TranslatedMark 被験体番号736-個体名%ARGS:1%の機械化施術を開始します
		PRINTFORML 最终目标：将对象90％的生物部分都由机械部件所替代
		;TranslatedMark 最終目的：生体パーツの9割を機械部品で置き換え
		PRINTFORML 手术开始时，实验对象很快就开始挣扎，而束缚也相应的随之收紧
		;TranslatedMark 施術開始直後、被検体が暴れだしたため拘束を強化
		PRINTFORML 在手术过程进行23％时，束缚开始有了被破坏的迹象，因此对其进行了全身麻醉
		;TranslatedMark 施術工程の23％を終えたところで拘束を破壊しだしたため全身麻酔を投与
		PRINTFORML 手术继续...
		;TranslatedMark 施術を続行……

	CASE 20
		PRINTFORML 这一切发生在不到一个月的时间里
		;TranslatedMark それは一ヶ月にも満たない出来事だった
		PRINTFORML 从%ARGS:0%开始扩散的异变迅速覆盖了整个幻想乡
		;TranslatedMark %ARGS:0%から広がった異変はまたたく間に幻想郷全土を覆い尽くし、
		PRINTFORML 许多聚集起来想要退治%SAVESTR:0%的人都被拒之门外...
		;TranslatedMark %SAVESTR:0%を退治しようと集った多くが返り討ちになった……
		PRINTFORML 战斗者和逃跑者最终都同等的被异变所吞噬...
		;TranslatedMark 戦ったものも逃げ惑ったものも等しく異変に呑み込まれたのであった……

	CASE 21
		PRINTFORML %ARGS:1%的平静日常已经崩溃了
		;TranslatedMark %ARGS:1%の住んでいた日常は崩壊した
		PRINTFORML %SAVESTR:0%的影响已然渗透到了幻想乡的每一处角落
		;TranslatedMark %SAVESTR:0%の影響が隅々まで届いた幻想郷
		PRINTFORML 现在，除了%ARGS:1%之外
		;TranslatedMark 今やそれが当たり前の世界
		PRINTFORML 其他人都继续过着仿佛一直如此的生活
		;TranslatedMark %ARGS:1%以外は昔からそうであったかのように暮らしている
		PRINTFORML 在现实与常识的差异面前，%ARGS:1%的世界观轰然倒塌
		;TranslatedMark 現実と常識の差異に押しつぶされて、%ARGS:1%のナニカがボキリと折れた
	CASE 22
		PRINTFORML 无论是否接受，难以置信的景象都展现在%ARGS:1%的眼前
		;TranslatedMark %ARGS:1%の目の前には信じられない光景が広がっていた
		PRINTFORML 女性们在%SAVESTR:0%的身下乞求着快乐的姿态
		;TranslatedMark 自ら%SAVESTR:0%からの快楽を求めるメスたちの姿
		PRINTFORML 一些少女就这样四肢着地的爬行着，张开女性器出声乞求着
		;TranslatedMark あるものは四つん這いではしたなく女性器を開いておねだりし、
		PRINTFORML 而另一些少女则是在被侵犯时，露出了满面的淫荡笑容，并沉醉于享受之中
		;TranslatedMark またあるものは犯されながら満面の笑顔を浮かべ享楽にふける
		PRINTFORML 在%ARGS:1%意识到这一切最终也将会发生在自己身上时候，她的爱液也不禁顺着大腿流了下来...
		;TranslatedMark %ARGS:1%は自分もこうなるのだと悟り、太ももを愛液が伝っていった……

	CASE 23
		PRINTFORML %ARGS:0%在粘腻的接吻中
		;TranslatedMark %ARGS:1%の唇が柔らかく塞がれる…
		PRINTFORML 感受着%ARGS:1%那柔软紧闭的唇
		;TranslatedMark %ARGS:0%のねっとりとしたキス
		PRINTFORML 甜香的气息就这样在彼此间蔓延...
		;TranslatedMark 甘い香りがする……
		PRINTFORML %ARGS:1%就这样沉溺在了这片温柔甜蜜的世界里...
		;TranslatedMark 優しく甘美な世界に%ARGS:1%は溺れていった……

	CASE 24
		PRINTFORML 白浊液从%ARGS:1%的扶她肉棒中缓缓漏出
		;TranslatedMark %ARGS:1%のふたなりちんぽから白濁液が漏れる
		PRINTFORML 已然完全沉溺于互相怀孕的快感之中的%ARGS:1%
		;TranslatedMark すっかり孕ませ合いにはまった%ARGS:1%は、
		PRINTFORML 今天也在享受着轮番射精的淫乱活动
		;TranslatedMark どくどくと射精しながら交代とばかり
		PRINTFORML 很快，%ARGS:1%就邀请到了身旁的一位扶她，将她的肉棒插入到了自己的的体内
		;TranslatedMark 自分のナカにふたなりちんぽを招き入れるのだった
	CASE 25
		PRINTFORML %ARGS:1%的身体被%SAVESTR:0%所吞噬了
		;TranslatedMark %ARGS:1%の身体が%SAVESTR:0%に呑み込まれていく
		PRINTFORML %ARGS:1%只能在周边挤压自身的肉壁下不住地悲鸣着
		;TranslatedMark のたうつ肉の圧力に%ARGS:1%は悲鳴を上げることしかできない
		PRINTFORML 而片刻后，求救的声音也因身体的乏力而变得越来越小了
		;TranslatedMark そして助けを求める声は段々と小さくなり……
		PRINTFORML 直到最后也都没有传达到任何人的耳中...
		;TranslatedMark 結局その声が誰かに届くことはなかった……
	CASEELSE

ENDSELECT

RESETCOLOR

path: ERB/メッセージ・口上関連/各種地の文章/SYSTEM_MESSAGE_エンディング.ERB