code:
;-------------------------------
;テンプレ
;-------------------------------
@PREPARE_HELP_CONTENT_TEMPLATE
CALL ADD_HELP_LINE("非コンテント行を頭に持ってくる場合、第二引数に1を指定すること。")
CALL ADD_HELP_LINE("でないとコンテントの次の行とみなされインデントされることがある")
CALL ADD_HELP_LINE("`コンテント`'数値'<ランク> ショートハンドは以上")
CALL ADD_HELP_LINE("コンテントに連続する行は自動でインデントされる")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("空行を挟むと、コンテントによるインデントは解除")
CALL ADD_HELP_LINE("`コンテント`")
CALL ADD_HELP_LINE("`コンテント`コンテントを連続させても、インデントは重複しない")

;-------------------------------
;空テンプレ
;-------------------------------
@PREPARE_HELP_CONTENT_EMPTY_TEMPLATE
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")

;-------------------------------
;仲間にスケジュールを割り当ててみよう
;-------------------------------
@PREPARE_HELP_CONTENT_SET_SCHEDULE
CALL ADD_HELP_LINE("自分で木を伐るのに疲れたら、あるいは自分でツルハシを振るうのに疲れたら、仲間に作業を任せるのもよいでしょう")
CALL ADD_HELP_LINE("ホームメニュー、または領内交流の[SCHEDULE]からキャラクターに作業を割り当てることができます")
CALL ADD_HELP_LINE("スケジュールは朝・昼・夕・晩のそれぞれに割り当てられます")
CALL ADD_HELP_LINE("ただし、晩のみ割当可能な作業に制限があります。彼らにも休憩が必要なのです")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("◆主な作業")
CALL ADD_HELP_LINE("`炊事`キッチンがあれば昼食や夕食を作ります。きちんと食事の支度ができていれば食事時により多くの体力を回復できるでしょう")
CALL ADD_HELP_LINE("関連能力：料理")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`採集`森や畑を用意することができれば、クラフトに役立つ様々なアイテムを採集できます")
CALL ADD_HELP_LINE("関連能力：観察・身体・器用・知識など")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`採掘`鉱山で石材や鉱石を採掘することができます。これらはクラフトや装備の製作・強化に役立つでしょう")
CALL ADD_HELP_LINE("関連能力：身体")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`店番`商店が経営可能な状態であればアイテムの販売を任せることができます。詳細は「アイテムの販売」のページを参照してください")
CALL ADD_HELP_LINE("関連能力：社交")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`娼館`娼館が経営可能な状態であれば客を取ることができます。詳細は「娼館の運用」のページを参照してください")
CALL ADD_HELP_LINE("関連能力：閨事全般")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`宿場`宿場が経営可能な状態であれば宿泊客を呼ぶことができます。詳細は「宿場の運用」のページを参照してください")
CALL ADD_HELP_LINE("関連能力：社交")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`芸能`ピアノなどの楽器や舞台があれば仲間や訪問客に歌や踊りを披露させることが出来ます")
CALL ADD_HELP_LINE("関連能力：歌唱")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`クラフト`アイテムの加工を仲間に任せる事ができます。任せる指示は予め工房の作業台などで実行可能な「クラフト」コマンドから")
CALL ADD_HELP_LINE("割り当てたい加工レシピを「レシピを指示書に登録」ボタンで登録しておく必要があります")
CALL ADD_HELP_LINE("関連能力：器用")

;-------------------------------
;能力値についてパラメーターについて
;-------------------------------
@PREPARE_HELP_CONTENT_ABOUT_ABL
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`身体(身)`総合的な運動能力の高さ。戦闘時の行動力に影響する")
CALL ADD_HELP_LINE("運動や採掘など身体を使う作業で向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`器用(器)`手先の器用さ。解錠判定などに影響する")
CALL ADD_HELP_LINE("狩りや加工といった精密な動作を要求する作業で向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`知識(知)`学識や事象への造詣の深さ。知識判定などに影響する")
CALL ADD_HELP_LINE("学習や錬金術といった知識を要求する作業で向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`社交(社)`他者との交渉能力。商店経営などに影響する")
CALL ADD_HELP_LINE("商店でのアイテムの販売などを通して向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`魔術(魔)`マナを自在に行使する先天的な才覚。戦闘時の魔力ダメージに影響")
CALL ADD_HELP_LINE("魔術師素質があれば戦闘を通して向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`観察(観)`事物への洞察の深さ。観察判定などに影響する")
CALL ADD_HELP_LINE("酪農などで向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`料理(料)`調理の巧みさ。拠点での食事の品質に影響")
CALL ADD_HELP_LINE("料理などの作業を通して向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`歌唱(歌)`歌や踊りの巧みさ。演奏、演舞の質に影響")
CALL ADD_HELP_LINE("歌や踊りの実施を通して向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`話術(話)`会話の巧みさ。他者との打ち解けやすさに影響")
CALL ADD_HELP_LINE("会話を通して向上")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`戦闘(戦)`武芸や状況判断、総合的な戦闘能力の高さ。戦闘時の攻撃力に影響する")
CALL ADD_HELP_LINE("戦闘を通して向上")

;-------------------------------
;戦闘パラメーターについて
;-------------------------------
@PREPARE_HELP_CONTENT_ABOUT_COMBAT_ABL
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`攻撃力`ダメージ決定に使用。キャラの戦闘を基準値として、装備の攻撃とあわせて算出")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`魔力`ダメージ点の上乗せ、防御時の魔力追加ダメージの相殺に使用(※１)")
CALL ADD_HELP_LINE("キャラの魔術(知識)を基準値として装備の魔力とあわせて算出")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`防御力`被ダメージの割合軽減に使用。装備の防御から算出(※２)")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`軽減値`被ダメージの実数軽減に使用。装備の軽減から算出")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`行動力`戦闘時の行動順決定に使用。キャラの身体を基準値として、装備の行動とあわせて算出")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`敵視`ターゲット決定時の狙われやすさに影響。装備の敵視から算出")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`脅威選定`通常攻撃や標的の指定が無いスキルのターゲット決定基準に影響")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`※１`魔術師素質がない場合、魔力算出時にペナルティを受ける。知識の値で一定の軽減が可能")
CALL ADD_HELP_LINE("`※２`魔術師素質がある場合、防御力、軽減値にペナルティを受ける")

;-------------------------------
;素質の意味
;-------------------------------
@PREPARE_HELP_CONTENT_ABOUT_TALENT
CALL ADD_HELP_LINE("`臆病`？  怒りを覚えにくく、悲しみと恐怖を覚えやすい。従属度が上がりやすく、支配度が上がりにくい。")
CALL ADD_HELP_LINE("`反抗的`難  欲情しにくい。怒りを覚えやすい。コマンドを実行しにくい。好感度・依存度・従属度が上がりにくく、支配度が上がりやすい。")
CALL ADD_HELP_LINE("`気丈`難  欲情しにくい。怒りを覚えやすく、悲しみと恐怖を覚えにくい。コマンドを実行しにくい。依存度が上がりにくく、支配度が上がりやすい。")
CALL ADD_HELP_LINE("`素直`楽  怒りを覚えにくい。コマンドが実行しやすい。好感度・依存度・従属度が上がりやすい。")
CALL ADD_HELP_LINE("`大人しい`？  欲情しにくい。怒りを覚えにくく、悲しみを覚えやすい。コマンドの実行者になりにくい。好感度が上がりやすい。")
CALL ADD_HELP_LINE("`プライド高い`難  怒りを覚えやすく、恐怖を覚えにくい。コマンドをかなり実行しにくい。好感度・依存度・従属度が上がりにくく、支配度が上がりやすい。")
CALL ADD_HELP_LINE("`生意気`難  好感度が上がりにくい。")
CALL ADD_HELP_LINE("`プライド低い`楽  怒りを覚えにくく、恐怖を覚えやすい。コマンドを実行しやすい。好感度・従属度が上がりやすく、支配度が上がりにくい。")
CALL ADD_HELP_LINE("`ツンデレ`？  恋慕かつ恋人でないとき、怒りと悲しみを覚えやすい。")
CALL ADD_HELP_LINE("`自制心`難  欲望と自慰が上がりにくい。淫乱でない場合、感じにくい。依存度・従属度・支配度が上がりにくい。")
CALL ADD_HELP_LINE("`無関心`？  奉仕が上がりにくい。欲情しにくい。感情が揺らぎにくい。好感度・依存度・従属度・支配度が上がりにくい。")
CALL ADD_HELP_LINE("`感情乏しい`？  奉仕が上がりにくい。欲情しにくい。感情がかなり揺らぎにくい。好感度・依存度・従属度・支配度が上がりにくい。")
CALL ADD_HELP_LINE("`好奇心`楽  怒りと恐怖を覚えにくい。コマンドを実行しやすい。")
CALL ADD_HELP_LINE("`保守的`難  怒りと恐怖を覚えやすい。コマンドをかなり実行しにくい。")
CALL ADD_HELP_LINE("`楽観的`？  悲しみと恐怖を覚えにくい。")
CALL ADD_HELP_LINE("`悲観的`？  悲しみと恐怖を覚えやすい。")
CALL ADD_HELP_LINE("`一線越えない`難  欲望が上がりにくい。コマンドをかなり実行しにくい。")
CALL ADD_HELP_LINE("`目立ちたがり`楽  露出が上がりやすい。コマンドを実行しやすい。")
CALL ADD_HELP_LINE("`貞操観念`難  恋慕の場合、性交時の愛情が大きくなる。恋慕でない場合、性交時に反感を買う。")
CALL ADD_HELP_LINE("`貞操無頓着`難  恋慕の場合、性交時の愛情が小さくなる。恋慕でない場合、童貞・処女でも性交時に反感を買いにくい。")
CALL ADD_HELP_LINE("`抑圧`難  かなり欲情しにくい。感情がかなり揺らぎにくいが、比較的悲しみを覚えやすい。好感度・依存度・従属度・支配度が上がりにくい。")
CALL ADD_HELP_LINE("`解放`楽  欲情しやすい。怒りと悲しみを覚えやすく、恐怖を覚えにくい。")
CALL ADD_HELP_LINE("`孤高`難  欲情しにくい。怒りをかなり覚えやすく、悲しみと恐怖を覚えにくい。好感度・依存度・従属度がかなり上がりにくく、支配度が上がりやすい。コマンドをかなり実行しにくい。")
CALL ADD_HELP_LINE("`恥じらい`難  露出と排泄が上がりにくい。コマンドを実行しにくい。")
CALL ADD_HELP_LINE("`恥薄い`楽  露出と排泄が上がりやすい。")
CALL ADD_HELP_LINE("`サボり魔`難  SLG系能力が上がりにくい。訓練の効率が悪い。")
CALL ADD_HELP_LINE("`痛みに弱い`楽  苦痛により悲しみと恐怖を覚えやすい。")
CALL ADD_HELP_LINE("`痛みに強い`難  苦痛により悲しみと恐怖を覚えにくい。")
CALL ADD_HELP_LINE("`濡れやすい`楽  潤滑が増加しやすい。")
CALL ADD_HELP_LINE("`濡れにくい`難  潤滑が増加しにくい。")
CALL ADD_HELP_LINE("`習得早い`楽  性技が上がりやすい。")
CALL ADD_HELP_LINE("`習得遅い`難  性技が上がりにくい。")
CALL ADD_HELP_LINE("`舌使い`楽  舌を使うプレイの効果が高い。")
CALL ADD_HELP_LINE("`おもらし癖`楽  放尿系コマンドが常に使える。")
CALL ADD_HELP_LINE("`自慰しやすい`楽  自慰が上がりやすい。自慰系コマンドを実行しやすい。")
CALL ADD_HELP_LINE("`汚臭鈍感`楽  精愛が上がりやすい。不潔な行為をあまり気にしない。")
CALL ADD_HELP_LINE("`汚臭敏感`難  精愛が上がりにくい。不潔な行為を気にする。")
CALL ADD_HELP_LINE("`献身的`楽  奉仕が上がりやすい。好感度が上がりやすい。コマンドの実行者になりやすい。")
CALL ADD_HELP_LINE("`汚れ無視`楽  精愛が上がりやすい。不潔な行為を気にしない。")
CALL ADD_HELP_LINE("`快感に素直`楽  欲情しやすい。")
CALL ADD_HELP_LINE("`快感の否定`難  欲情しにくい。悲しみを覚えやすい。コマンドを実行しにくい。")
CALL ADD_HELP_LINE("`中毒しやすい`楽  奉仕や露出等、精神的な能力が上がりやすい。")
CALL ADD_HELP_LINE("`倒錯的`楽  倒錯度が上がりやすい。")
CALL ADD_HELP_LINE("`両刀`楽  レズ・BLが上がりやすい。同性のとき、コマンドを実行しやすい。")
CALL ADD_HELP_LINE("`男嫌い`難  BLが上がりにくい。男相手だと、好感度・依存度・従属度が上がりにくい。")
CALL ADD_HELP_LINE("`女嫌い`難  レズが上がりにくい。女相手だと、好感度・依存度・従属度が上がりにくい。")
CALL ADD_HELP_LINE("`Ｓ気質`楽  サドが上がりやすい。主導度が上がりやすい。")
CALL ADD_HELP_LINE("`Ｍ気質`楽  マゾが上がりやすい。主導度が下がりやすい。")
CALL ADD_HELP_LINE("`小悪魔`楽  支配度が上がりやすい。主人公が所持していると好感度が上がりやすい。")
CALL ADD_HELP_LINE("`魅惑`楽  支配度が上がりやすい。主人公が所持しているとコマンドを実行しやすく、好感度・依存度・従属度が上がりやすい。")
CALL ADD_HELP_LINE("`謎の魅力`楽  支配度が上がりやすい。主人公が所持しているとコマンドを実行しやすく、好感度・依存度・従属度が上がりやすい。")
CALL ADD_HELP_LINE("`人気`楽  主人公が所持していると好感度が上がりやすい。")
CALL ADD_HELP_LINE("`Ｃ鈍感`難  Ｃ感が上がりにくい。クリトリスで感じにくい。")
CALL ADD_HELP_LINE("`Ｃ敏感`楽  Ｃ感が上がりやすい。クリトリスで感じやすい。")
CALL ADD_HELP_LINE("`Ｖ鈍感`難  Ｖ感が上がりにくい。膣で感じにくい。")
CALL ADD_HELP_LINE("`Ｖ敏感`楽  Ｖ感が上がりやすい。膣で感じやすい。")
CALL ADD_HELP_LINE("`Ａ鈍感`難  Ａ感が上がりにくい。アナルで感じにくい。")
CALL ADD_HELP_LINE("`Ａ敏感`楽  Ａ感が上がりやすい。アナルで感じやすい。")
CALL ADD_HELP_LINE("`Ｂ鈍感`難  Ｂ感が上がりにくい。胸で感じにくい。")
CALL ADD_HELP_LINE("`Ｂ敏感`楽  Ｂ感が上がりやすい。胸で感じやすい。")
CALL ADD_HELP_LINE("`Ｍ鈍感`難  Ｍ感が上がりにくい。口で感じにくい。")
CALL ADD_HELP_LINE("`Ｍ敏感`楽  Ｍ感が上がりやすい。口で感じやすい。")
CALL ADD_HELP_LINE("`回復早い`楽  調教中の体力・気力回復が速い")
CALL ADD_HELP_LINE("`回復遅い`楽  調教中の体力・気力回復が遅い")
CALL ADD_HELP_LINE("`美脚`楽  足コキなどの効果が高い。")
CALL ADD_HELP_LINE("`美尻`楽  尻コキなどの効果が高い。")
CALL ADD_HELP_LINE("`母乳体質`？  母乳が出る。妊娠中の一時的なもの、恒久的なものがある。")
CALL ADD_HELP_LINE("`幼児`？  幼児。SLG系能力の伸びが速い。")
CALL ADD_HELP_LINE("`幼稚`楽  好感度が上がりやすい。")
CALL ADD_HELP_LINE("`酒豪`？  酒で酔いにくい。")
CALL ADD_HELP_LINE("`絶倫`楽  調教中に体力・気力が極めて減りにくい。射精するとき、量が増える。")
CALL ADD_HELP_LINE("`下戸`？  酒で酔いやすい。")
CALL ADD_HELP_LINE("`動物耳`楽  動物耳が生えている。PやＶへの快感で好感度・依存度・従属度が上がりやすい。")
CALL ADD_HELP_LINE("`しっぽ`楽  しっぽが生えている。一部コマンドが実行可能。PやＶへの快感で好感度・依存度・従属度が上がりやすい。")
CALL ADD_HELP_LINE("`天の御遣い`楽  主人公が所持していると好感度が上がりやすい。")
CALL ADD_HELP_LINE("`魔術師`楽  戦闘で魔術ステータスによる補正を完全に受けられる。戦闘終了後魔術経験値を得られる")
CALL ADD_HELP_LINE("`技師`楽  道具を使うコマンドの効果が上昇する。クラフトでより複雑なアイテムの制作が可能になる")
CALL ADD_HELP_LINE("`調合`楽  クラフトでより複雑な薬剤の制作が可能になる")
CALL ADD_HELP_LINE("`君主の器`楽  支配度が上がりやすい。主人公が所持していると従属度が上がりやすい。")
CALL ADD_HELP_LINE("`求心力`楽  主人公が所持していると依存度が上がりやすい。")
; CALL ADD_HELP_LINE("`強運`楽  ターンエンドの徴税量が増える。一定確率でクールタイムを無効化する。")
CALL ADD_HELP_LINE("`チョロイン`楽  特定イベントで付与される隠れ素質。調教が圧倒的に楽になる。")

;-------------------------------
;ゲームの流れ
;-------------------------------
@PREPARE_HELP_CONTENT_ABOUT_GAME_FLOW
CALL ADD_HELP_LINE("eraFLには明確な目的は存在しません。キャラクターたちとまったりと日々を過ごすのも爛れた生活を送るのも自由です。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("生活の舞台であるあなたの領地は最初はほとんど何もありません。人や資材を集め、新たな設備や道具を生み出すことで生活を充実させていきましょう。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("あなたの領地は大きく分けて二つの要素から構成されます。")
CALL ADD_HELP_LINE("`エリア`５×５の空間に配置される部屋や土地による区分け。")
CALL ADD_HELP_LINE("居間やプレイヤーの居室である私室、森林や山岳のような土地から構成されます")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`設備`")
CALL ADD_HELP_LINE("エリアに配置されるテーブル等の家具や施設、小部屋などを設備と呼びます。")
CALL ADD_HELP_LINE("プレイヤーを含むあらゆるキャラクターたちの活動や交流は基本的に設備を介して行われます。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("エリアや設備は領内活動メニューから配置を変更することができます。")
CALL ADD_HELP_LINE("あなたの箱庭を拡充していきましょう。")

;-------------------------------
;領内活動での交流のについて
;-------------------------------
@PREPARE_HELP_CONTENT_QUICKSTART
CALL ADD_HELP_LINE("領内活動での交流について")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("画面左上、マップの黄色いコマがプレイヤーが現在いるエリアを指します。通常は[居間]にいるはずです")
CALL ADD_HELP_LINE("クリックすることで別のエリアに移動が可能です。何をしてよいか分からなければ、まずは[食堂]をクリックし移動してみましょう")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("移動すると「このエリアにいるキャラ」にゲームスタート時に選択したキャラクターのポートレイトが表示されているはずです")
CALL ADD_HELP_LINE("彼または彼女と同じ空間にいることを意味しています。ただしこのままではこのキャラクターに会話やスキンシップを試みることは出来ません")
CALL ADD_HELP_LINE("そのためには対象キャラと同じ設備を共有している必要があります")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("画面右上にはこのエリアに配置されている設備（家具や道具など）が表示されており、クリックすることで使用できます")
CALL ADD_HELP_LINE("基本的にキャラクターと交流するには『同じ設備を共有している』必要があります")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("よくわからなければまずは[ちゃぶ台]をクリックし[待機]コマンドをクリックし少し時間を進めてみましょう")
CALL ADD_HELP_LINE("お腹をすかせたキャラクターがそばにやってくるはずです")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("同じ設備を共有しているキャラクターは名前が緑色になっているはずです")
CALL ADD_HELP_LINE("この状態で画面下、対象キャラクターの右側の[+]ボタンをクリックしてみましょう。会話やスキンシップなどのコマンドが実行できるようになったはずです")

;-------------------------------
;商品の販売
;-------------------------------
@PREPARE_HELP_CONTENT_HOW_TO_SHOP
CALL ADD_HELP_LINE("収穫やクラフトしたアイテムを近隣の住人や旅人に販売することができます。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`１．商店の作成`クラフトにて露店など、商店としての用途を持つ設備を作成します")
CALL ADD_HELP_LINE("`２．商店の配置`自身の領地に作成した設備を配置します。")
CALL ADD_HELP_LINE("`３．店番の任命`交流画面の[SCHEDULE]タブより任意のキャラクターに店番の活動を割り当てます。")
CALL ADD_HELP_LINE("`４．販売品設定`交流画面の[TRADE]タブより販売したいアイテムをクリックし、販売品として並べます。")
CALL ADD_HELP_LINE("`５．見守る`商店に店番担当のキャラクタがいる間、時間経過により自動でアイテムの販売を試みます。")

;-------------------------------------------------
;娼館の運用
;-------------------------------------------------
@PREPARE_HELP_CONTENT_HOW_TO_PROSTITUTE
CALL ADD_HELP_LINE("条件を満たすキャラクターを売春させ、金銭などを得ることができます。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`１．娼館の作成　`クラフトにてエリア「娼館」を作成します")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`２．娼館の設備①`NPCを呼ぶための設備「娼館受付」を作成し、「娼館」に配置します")
CALL ADD_HELP_LINE("`３．娼館の設備②`サービスを供する設備（「娼館個室」、「グローリーホール」など）を作成し、「娼館」に配置します")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`４．娼婦の任命①`交流画面の[SCHEDULE]タブより任意のキャラクターに[売春]の活動を割り当てます。(※)")
CALL ADD_HELP_LINE("`５．娼婦の任命②`娼婦を担当するキャラは[売春]を許容させる条件を満たしている必要があります。(職業:娼婦やスキル:誘蛾の色香を所持しているなど)")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`６．見守る　　　`娼館に売春担当のキャラクタがいる間、時間経過により来訪者に売春を試みます。")

;-------------------------------------------------
;宿の運用
;-------------------------------------------------
@PREPARE_HELP_CONTENT_HOW_TO_MANAGE_INN
CALL ADD_HELP_LINE("宿場を作成することで宿泊客から金銭などを得ることができます。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`１．宿場の作成　`クラフトにてエリア「宿場」を作成します")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`２．宿場の設備①`NPCを呼ぶための設備「宿場受付」を作成し、「宿場」に配置します")
CALL ADD_HELP_LINE("`３．宿場の設備②`サービスを供する設備（「個室」、「バーカウンター」など）を作成し、「宿場」に配置します")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`４．宿番の任命①`交流画面の[SCHEDULE]タブより任意のキャラクターに[宿番]の活動を割り当てます。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`５．見守る　　　`宿場に担当のキャラクタがいる間、時間経過により宿泊客が訪れます")
CALL ADD_HELP_LINE("`　　　　　　　　`彼らはその日のうちは帰ることなく、飲み食いし、商店や娼館があれば顔を出し、歌や踊りが供されればそれを眺めて過ごします")

;-------------------------------
;拠点フェイズのコマンド
;-------------------------------
; @PREPARE_HELP_CONTENT_ABOUT_LIFE_PHASE_COMMAND
; CALL ADD_HELP_LINE("拠点フェイズのコマンド")
; CALL ADD_HELP_LINE("一部コマンドは、主人公が臨月だったりクールタイム中だと行えない。")
; CALL ADD_HELP_LINE("また、放浪中も行えないコマンドがある。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`会いに行く`士官や軟禁中の捕虜、子供と会って会話や訓練を楽しむ。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`閨に呼ぶ`＜合意＞を得た士官とスケベなことをする。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`夜這いする`隣接勢力の士官を襲う。")
; CALL ADD_HELP_LINE("自分と助手の身体・知識合計が対象よりはるかに高くないといけない。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`手引きさせる`隣接勢力の士官に内通させ、別の士官を襲う。")
; CALL ADD_HELP_LINE("対象勢力に陥落済みキャラが必要だが、夜這いよりは条件が緩い。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`民の慰安`放浪中は「春を売る」。民に体を開き、金を稼ぐ。")
; CALL ADD_HELP_LINE("調教中の絶頂回数で報酬が決まる。つまりある程度調教してエロくなった士官でないと効果が薄い。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`あてがう`ある士官を別の士官にあてがい、夜の世話をさせる。")
; CALL ADD_HELP_LINE("一応あてがったキャラの好感度が稼げるが、見て楽しむ意味合いが強い。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`捕虜の調教`捕虜を調教し、屈服させる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`投獄する`士官を投獄する。当然ながら、相手からは嫌われる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`説得させる`士官に捕虜を説得させ、仲間に引き入れる努力をする。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`捕虜の扱い`コンフィグで設定していると選択可。")
; CALL ADD_HELP_LINE("通常はターンエンド時に行う捕虜の扱いの設定を、ここから行える。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`労働`労働の指示を出す。拠点フェイズ終了時に、金と、内容に応じた経験値を獲得できる。")
; CALL ADD_HELP_LINE("まっとうかつ主たる金策手段。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`領地探索`領地を探索する。良いことなり悪いことなりが起こる。")
; CALL ADD_HELP_LINE("「危険な探索」をオンにすると、強制的に貞操を失うイベントも発生するようになる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`闘技場`3の倍数の期に開催。地下闘技場で賭け試合を行う。")
; CALL ADD_HELP_LINE("勝てば金がもらえて経験値も手に入るが、女が負けるとろくなことにならない。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`士官を募る`ランダムキャラありの設定のとき選択可。ランダムキャラを士官として獲得する。")
; CALL ADD_HELP_LINE("1フェイズに1度のみ実行できる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`出稼ぎへ派遣`仲の良いランダムキャラや子供を地方に派遣する。")
; CALL ADD_HELP_LINE("士官はいなくなり、代わりに兵と経済規模が増える。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`デート`士官とデートして仲良くなる。金が必要。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`諸国訪問`諸勢力を訪ねる。その勢力の士官と知り合える。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`婚姻の儀`結婚する。二人目以降は妾という扱いになるので、一人目は慎重に選ぼう。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`触手部屋`アイテム「触手部屋」を所持していると選択可。触手部屋の管理者を決める。")
; CALL ADD_HELP_LINE("捕虜の扱いで「触手」を選んだ場合などに、管理者に魔術経験値が入る。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`お気に入り`お気に入りキャラを設定し、能力を振りなおす。")
; CALL ADD_HELP_LINE("一度しか選択できないので悩もう。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`親友設定`指定したキャラが<親友>以外の陥落素質を獲得しないようにする。")
; CALL ADD_HELP_LINE("霖之助の好感度を上げたいけど恋慕にはしたくない……みたいなときに使おう。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`スキル習得`金を払い、スキルを習得/忘却する。")

;-------------------------------
;キャラの陥落
;-------------------------------
@PREPARE_HELP_CONTENT_GET_TALENT
CALL ADD_HELP_LINE("交流や逢瀬を繰り返し、一定条件を満たしたキャラは陥落する。")
CALL ADD_HELP_LINE("具体的な取得条件は以下の通り")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`恋慕`好感度'1500'、依存度'300'、同性で＜両刀＞なしなら＜恋人＞が必要")
CALL ADD_HELP_LINE("`親愛`好感度'10000'、依存度'3000'、奉仕<C>")
CALL ADD_HELP_LINE("`服従`従属度'1500'、依存度'300'")
CALL ADD_HELP_LINE("`隷属`従属度'10000'、依存度'3000'、奉仕<C>")
CALL ADD_HELP_LINE("`主人`支配度'1500'、依存度'300'")
CALL ADD_HELP_LINE("`所有者`支配度'10000'、依存度'3000'、奉仕<C>")

CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("なお、＜親友＞という素質もある。")
CALL ADD_HELP_LINE("＜両刀＞がなく陥落していない同性キャラが好感度1500獲得で得られる。")
CALL ADD_HELP_LINE("コマンド実行判定などにプラスになるが、陥落扱いではないので注意。")
CALL ADD_HELP_LINE("また、恋慕・服従などを取得すると消滅する。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("各陥落素質は、取得すると以下のボーナスが得られる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`恋慕`＜一線越えない＞＜無関心＞削除")
CALL ADD_HELP_LINE("`親愛`＜孤高＞削除")
CALL ADD_HELP_LINE("`従属`＜一線越えない＞＜反抗的＞削除")
CALL ADD_HELP_LINE("`隷属`＜抑圧＞削除")
CALL ADD_HELP_LINE("`主人`＜一線越えない＞＜自制心＞削除")
CALL ADD_HELP_LINE("`所有者`＜解放＞獲得")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("恋慕・親愛を取得すると、服従・隷属・主人・所有者は取得できない。その他も同様である。")
CALL ADD_HELP_LINE("なので、恋慕ルートか服従ルート、支配ルートを選ぶことになる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("ただし、＜虚ろ＞＜崩壊＞を取得したキャラは、条件を満たしていても陥落しない。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("なお、陥落させた人数が一定に達するごとに、ボーナスを取得できる。")

;-------------------------------
;陥落素質①
;-------------------------------
@PREPARE_HELP_CONTENT_SPECIAL_TALENT
CALL ADD_HELP_LINE("特に断りがなければ、各条件はそれ以上を満たしていればよいものとする。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`淫乱`欲望<B>、精愛か奉仕<C>、性交かレズか自慰<D>")
CALL ADD_HELP_LINE("感覚と射精の合計'20'、絶頂経験'500'。")
CALL ADD_HELP_LINE("取得時に＜貞操観念＞＜快感の否定＞削除。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`精液便女`欲望<B>、性交<C>、輪姦経験'200'。")
CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`薬物中毒`マスクデータ「薬物依存値」が'300'。")
; CALL ADD_HELP_LINE("薬物依存値はコマンドでは「麻薬」で増える。あとは各種イベントで増える。")
; CALL ADD_HELP_LINE("取得すると特殊なデイリーの対象になる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`傀儡`催眠<S>、被催眠経験'300'、催眠絶頂経験'500'。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`浮気癖`浮気経験'5'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("以下は＜淫乱＞取得を前提とする")
CALL ADD_HELP_LINE("条件が2種類あるものはどちらかひとつ満たせばOK")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`サド`奉仕<A>、性技<B>、サド<A>、主導度Ｕ'1000'、倒錯度'800'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`マゾ`マゾ<B>、主導度Ｕ'-1000'、倒錯度'800'、苦痛快楽経験'400'、今回の絶頂強度'100'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`淫核`竿なし、Ｃ感覚<S>、倒錯度'100'、今回のＣ絶頂強度'50'。")
CALL ADD_HELP_LINE("`射精狂い`竿あり、Ｃ感覚<C>、射精<A>、今回の射精量'30'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`淫壺`条件１…Ｖ感覚<A>、性交<D>、Ｖ拡張経験'30'、今回のＶ絶頂強度'50'。")
CALL ADD_HELP_LINE("条件２…Ｖ感覚<S>、性交<C>、今回のＶ絶頂強度'50'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`尻穴狂い`条件１…Ａ感覚<A>、Ａ拡張経験'50'、今回のＡ絶頂強度'50'。")
CALL ADD_HELP_LINE("条件２…Ａ感覚<S>、倒錯度'800'、今回のＡ絶頂強度'50'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`淫乳`Ｂ感覚<S>、倒錯度'100'、今回のＢ絶頂強度'50'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`蕩唇`Ｍ感覚<A>、キス経験'200'、口淫経験'100'、今回のＭ絶頂強度'50'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`尿道狂い`条件１…Ｕ感覚<A>、Ｕ開発経験'200'、今回のＵ絶頂強度'50'。")
CALL ADD_HELP_LINE("条件２…Ｕ感覚<S>、倒錯度'800'、今回のＵ絶頂強度'50'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`苗床`触手<C>、触手出産経験'100'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`生ハメ依存`条件１…Ｖ感覚<A>、Ｖ性交経験'200'、膣内射精経験'150'、今回の絶頂強度'100'。")
CALL ADD_HELP_LINE("条件２…Ａ感覚<A>、Ａ性交経験'200'、腸内射精経験'150'、今回の絶頂強度'100'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`孕みたがり`出産<C>、性交<A>")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`露出狂`露出<A>、欲望<A>、自慰<C>。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`娼婦`女限定、欲望<B>、性技<C>、奉仕<C>売春経験'100'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`雌犬`欲望<A>、性交<B>、獣姦経験'200'。")
CALL ADD_HELP_LINE("取得すると特殊なデイリーの対象になる。")
CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("`ＡＶ女優`女限定、欲望<A>、性技<A>、露出<C>、撮影経験'300'。")
; CALL ADD_HELP_LINE("取得すると特殊なデイリーの対象になる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`良質母胎`条件１…触手<A>、触手出産経験'300'、苗床所持。")
CALL ADD_HELP_LINE("条件２…出産<A>、妊娠経験'30'。孕みたがり所持。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`濃厚精液`性交<S>、射精<S>、孕ませ経験'10'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`自慰狂い`自慰<A>、倒錯度'800'。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`雌牛`女限定、母乳体質、淫乳所持、噴乳<A>、倒錯度'600'")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`精飲中毒`精愛<S>、Ｍ感覚<S>、口内射精経験'250'、口淫経験'300'、今回のＭ絶頂回数'50'。")
CALL ADD_HELP_LINE("")
;-------------------------------
;キャラがすぐ怒って帰る
;-------------------------------
@PREPARE_HELP_CONTENT_THEY_GET_MAD
CALL ADD_HELP_LINE("主導権を対象に握らせてやることで緩和することができる。")
CALL ADD_HELP_LINE("相手に★マークを付けることで主導権を渡せる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("◇対象キャラの選択◇   900[実行／対象の反転]")
CALL ADD_HELP_LINE("キャラ名[  ] <実行>[情報]Ｃ  Ｖ  Ａ  Ｂ  Ｍ  精  乳  潤0 欲0 平  平")
CALL ADD_HELP_LINE("          ↑この[  ]をクリックすると★がつく")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("それ以外には、もしかすると好感度や従属度、支配度に見合っていないコマンドを実行しているのかもしれない。")
CALL ADD_HELP_LINE("たいして仲良くもない奴からスケベな話を振られたら怒りもするというものだ。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`会いに行く`最初は対象の成長型にあった訓練で好感度を稼ぐとよい")
CALL ADD_HELP_LINE("成長型に合わない訓練だとキレられることがあるので注意")
CALL ADD_HELP_LINE("最悪、酒を飲ませて酔わせれば雰囲気はよくなる。肝臓が高いキャラだと通じないのが難点")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`閨に呼ぶ`いきなりハードでディープなプレイはNG")
CALL ADD_HELP_LINE("愛撫とかでじっくりならしてあげよう")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("なお＜ツンデレ＞の場合、陥落するまで怒りや悲しみを会話等で軽減できない。")
CALL ADD_HELP_LINE("陥落まで攻略がちょっと難しくなる。")

;-------------------------------
;キャラがすぐ気絶する
;-------------------------------
@PREPARE_HELP_CONTENT_THEY_EASYLY_GET_UNCONSCIOUS
CALL ADD_HELP_LINE("キャラは体力がなくなると疲労、気力がなくなると気絶し、コマンドに制限がかかる。")
CALL ADD_HELP_LINE("これをなるべくなくす方法は三つある。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`何度もイかせる`体力と気力の消費量は、絶頂経験によって軽減される。つまり「イき慣れる」。")
CALL ADD_HELP_LINE("また、絶頂した回数に応じて、ウフフの後に体力や気力の最大値が成長している。")
CALL ADD_HELP_LINE("なので何度もイかせれば、そのうち疲労も気絶もしなくなる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`何もしないを活用`コマンド「何もしない」は対象の体力・気力を回復させる効能がある。")
CALL ADD_HELP_LINE("疲労・気絶しそうになったら何もしない、というのを覚えておこう。")
CALL ADD_HELP_LINE("なお実行にはコマンド実行者を主人公にし、主導権を握る必要がある。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`メイガスの夜`アイテム「メイガスの夜」はその調教中の体力・気力の消費を激減させる。")
CALL ADD_HELP_LINE("ただしかなり高価。ここぞのセックスで使おう。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("なお、自分が疲労・気絶する場合、陥落ボーナスで素質「絶倫」の取得を検討しよう。")
CALL ADD_HELP_LINE("体力的な心配からはほぼ解放される。")

;-------------------------------
;捕虜調教のやりかた
;-------------------------------
@PREPARE_HELP_CONTENT_HOW_TO_TRAIN_HOSTAGE
CALL ADD_HELP_LINE("捕虜調教ではコマンド「忠誠を誓わせる」に成功し、対象を自勢力に引き込むのが目標になる。")
CALL ADD_HELP_LINE("＜服従＞を取得するルートになるので、＜恋慕＞＜主人＞狙いなら捕虜調教メニューから軟禁に切り替えよう。")
CALL ADD_HELP_LINE("さて、捕虜調教にあたっては以下の要素が重要になる。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`従属度`捕虜調教は相手を屈服させ、＜服従＞取得を狙うのが基本。")
CALL ADD_HELP_LINE("＜服従＞取得に従属度が必須なので（依存度も必要だが）、重要なファクターになる。")
CALL ADD_HELP_LINE("`精神力`これを可能な限り低く、できればゲージが赤い状態で留めること。")
CALL ADD_HELP_LINE("要は対象の心を追い詰めていこうという話である。")
CALL ADD_HELP_LINE("精神力が削れているほど従属度が入りやすく、コマンドも成功しやすい。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("なにはともあれ、従属度稼ぎのため、まず精神力を削るのがセオリーになる。精神力は恐怖で削れる。")
CALL ADD_HELP_LINE("手っ取り早く恐怖を与えるため、対象に痛みを与えよう。")
CALL ADD_HELP_LINE("最初はスパンキングなどの軽めのSMをお勧めする。金があれば鞭など購入して使うのもいい。")
CALL ADD_HELP_LINE("また、目隠しや口枷は手っ取り早く恐怖を増幅してくれる。費用対効果がとてもよいコマンドだ。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("ただし、この手が通じにくいキャラもいる。")
CALL ADD_HELP_LINE("＜プライド高い＞や＜気丈＞、＜孤高＞所持者……平たく言えば気位の高そうなキャラだ。")
CALL ADD_HELP_LINE("こういった素質は調教中に与える恐怖を軽減する効果があり、精神力を削りにくくする。")
CALL ADD_HELP_LINE("そこで有効なのが、捕虜の扱いの設定における「拷問」である。")
CALL ADD_HELP_LINE("拷問はこれら素質による影響を受けにくく、相手に効率的に恐怖を与え精神力を削る。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("……ただ、精神力が低くなればいいというものでもない。")
CALL ADD_HELP_LINE("精神力ゲージが0を割ると、対象は「絶望」になり、赤ゲージが伸びる状態になる。")
CALL ADD_HELP_LINE("この赤ゲージがマックスになると、対象は＜虚ろ＞を取得する。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("＜虚ろ＞なキャラは従属度が上がりにくく、＜恋慕＞や＜服従＞、＜主人＞の取得も不可。調教が困難になる。")
CALL ADD_HELP_LINE("数期経つと回復するが、時間が無駄になってしまう。精神力の削りすぎには注意しよう。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("＜虚ろ＞状態でさらに虐めすぎると、対象の精神は＜崩壊＞してしまう。")
CALL ADD_HELP_LINE("これは虚ろをさらに悪くしたバージョンで、自然回復「しない」。")
CALL ADD_HELP_LINE("実質の攻略不可になるので、サディズムはほどほどに。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("もし精神力が危険域にあるなら、継続中のコマンドをすべて解除し、「何もしない」を選択しよう。")
CALL ADD_HELP_LINE("「何もしない」には精神力を回復させる作用がある。何度か繰り返せば落ち着くはずだ。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("ところで、もしエロいことだけで従属度を稼ぎたいなら、捕虜の扱いで「Ｃ開発」「Ｂ開発」「性処理」を実行しよう。")
CALL ADD_HELP_LINE("体が開発済みなら、調教中の従属度の獲得量も増える。恐怖を与えるよりは難しい道だが……。")
CALL ADD_HELP_LINE("もちろんこれらも精神力を削る効果があるため、やりすぎると＜虚ろ＞取得の可能性がある。")
CALL ADD_HELP_LINE("また「性処理」はいろんなところの初体験を奪うので、そのへん自分で奪いたい場合も注意。")

;-------------------------------
;好感度補正
;-------------------------------
; @PREPARE_HELP_CONTENT_ABOUT_LOVE_POWER
; CALL ADD_HELP_LINE("キャラの能力に好感度などが補正する。これが好感度補正だ。")
; CALL ADD_HELP_LINE("便宜上「好感度」補正と呼んでいるが、実際は好感度・従属度・依存度・支配度の中で一番高いものを利用する。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("ともかく、この補正は戦闘時に各種能力を最大20%まで引き上げる。")
; CALL ADD_HELP_LINE("割合での強化なので、能力が高いほど効果も高い。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("eratohoKでは高能力であるほど能力を上げにくくなる。")
; CALL ADD_HELP_LINE("身体90を91にするくらいなら、好感度を稼いだ方がよっぽど強くなれるというものだ。")
; CALL ADD_HELP_LINE("以上から、好感度補正は強キャラがより強くなるための鍵といえる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("なお、＜正妻＞は補正上限を100%にする効果がある。＜妾＞の場合は50%になる。")
; CALL ADD_HELP_LINE("通常よりさらに強くなれるので、金に余裕があればどんどん結婚しよう。ハーレムは正義である。")
; CALL ADD_HELP_LINE("結婚していない場合、＜恋慕＞や＜親愛＞、＜服従＞＜隷属＞、＜主人＞＜所有者＞が上限を少しだけ引き上げてくれる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("さらに、お気に入りに指定したキャラは上限が50%引き上げられる。上記の素質群と重複可能だ。")
; CALL ADD_HELP_LINE("正妻でお気に入りなら上限150%アップ。1人で2.5人分の働きをすることになる。まぎれもないエースだ。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("ただし、いずれも補正の「上限」引き上げであり、補正そのものを引き上げるわけでないことには注意しよう。")
; CALL ADD_HELP_LINE("補正のために必要な好感度は別途稼ぐ必要がある。まあ正妻にする時点で好感度はぶっちぎってる気がするけど……。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("なお、主人公自身には好感度補正がかからないが、代わりに今まで陥落させた人数が補正をかける。")
; CALL ADD_HELP_LINE("こちらは1人2%で最大100人まで。つまり200%まで補正がかかる。")
; CALL ADD_HELP_LINE("要はコマせばコマすほど自分も相手も強くなる。こだわりがないなら積極的にハーレムを作ろう。")

;-------------------------------
;デイリーイベント
;-------------------------------
; @PREPARE_HELP_CONTENT_ABOUT_DAILY_EVENT
; CALL ADD_HELP_LINE("拠点フェイズ終わりにイベントが発生することがある。")
; CALL ADD_HELP_LINE("これらはデイリーイベントと呼ばれ、内容はイベントごとに多岐にわたる。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("例えば「薬売りの来訪」では、能力が上がったり下がったりする薬を売る商人が訪れる。")
; CALL ADD_HELP_LINE("この薬を女が飲むと、まれに凌辱系エロイベントに入る。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("デイリーイベントによっては、キャラに専用の素質がつくこともある。")
; CALL ADD_HELP_LINE("これらは調教などには特に効果を及ぼさない、鑑賞（？）用のものである。")
; CALL ADD_HELP_LINE("ステータス画面を見てニヤニヤしたい人向け。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("また、各キャラ固有のイベントである口上デイリーが発生することもある。")
; CALL ADD_HELP_LINE("例えば霊夢だと、賽銭を要求してくるデイリーがある。")
; CALL ADD_HELP_LINE("")
; CALL ADD_HELP_LINE("どちらもコンフィグからオフに出来るので、ウェって思ったら切ろう。")

;-------------------------------
;アイテム入手先について
;-------------------------------
@PREPARE_HELP_CONTENT_ITEM_1
CALL ADD_HELP_LINE("以下に、各種素材アイテムの入手先の一例を記す。")
CALL ADD_HELP_LINE("")
CALL ADD_HELP_LINE("`  0木材`…施設「伐採場」で採集を行う")
CALL ADD_HELP_LINE("`  1石材`…施設「採石場」で採掘を行う")
CALL ADD_HELP_LINE("`  2銅鉱石`…クエスト「ドワーフの大鉱床」で採掘を行う")
CALL ADD_HELP_LINE("`  3鉄鉱石`…施設「鉄鉱脈」で採掘を行う")
CALL ADD_HELP_LINE("`  4銀鉱石`…クエスト「採掘助手」で採掘を行う")
CALL ADD_HELP_LINE("`  5金鉱石`…クエスト「採掘助手」で採掘を行う")
CALL ADD_HELP_LINE("` 10マナ結晶`…施設「マナ鉱脈」で採掘を行う")
CALL ADD_HELP_LINE("` 12動物の革`…施設「狩場」で採集を行う")
CALL ADD_HELP_LINE("` 13動物の肉`…施設「狩場」で採集を行う")
CALL ADD_HELP_LINE("` 14生乳`…施設「牛舎」で採集を行う        ▼「牛舎」作成には「小麦」「搾乳機」「建築資材」が必要")
CALL ADD_HELP_LINE("` 15骨`…「スケルトン」系エネミーがドロップ")
CALL ADD_HELP_LINE("` 16薬草`…施設「薬草群生地」で採集を行う")
CALL ADD_HELP_LINE("` 17香草`…施設「薬草群生地」で採集を行う")
CALL ADD_HELP_LINE("` 31小麦`…施設「畑」で採集を行う          ▼「畑」作成には「肥料」（石炭か動物の糞）が必要")
CALL ADD_HELP_LINE("` 37動物の卵`…施設「鶏小屋」で採集を行う      ▼「鶏小屋」作成には「小麦」が必要")
CALL ADD_HELP_LINE("` 38動物性油`…施設「厩」で採集を行う          ▼「厩」作成には「小麦」「建築資材」が必要")
CALL ADD_HELP_LINE("` 39鳥の羽`…施設「鶏小屋」で採集を行う")
CALL ADD_HELP_LINE("` 40魔獣の肉片`…「魔獣」系エネミーがドロップ／施設「ワーグの檻」で採集を行う")
CALL ADD_HELP_LINE("` 41魔獣の心核`…「魔獣」系エネミー（強敵）がドロップ")
CALL ADD_HELP_LINE("` 44動物の糞`…施設「豚小屋」で採集を行う      ▼「豚小屋」作成には「小麦」「建築資材」が必要")
CALL ADD_HELP_LINE("` 45石炭`…施設「天然鉱」で採掘を行う      ▼「天然鉱」はクエスト「湯泡郷」クリアで入手")
CALL ADD_HELP_LINE("` 46硫黄`…施設「天然鉱」で採掘を行う")
CALL ADD_HELP_LINE("` 49岩塩`…施設「塩抗」で採掘を行う        ▼「塩抗」作成には「建築資材」が必要")
CALL ADD_HELP_LINE("` 57竜の牙`…「ドラゴン」系エネミーがドロップ")
CALL ADD_HELP_LINE("` 58精霊石`…「精霊」系エネミーがドロップ")
CALL ADD_HELP_LINE("` 59ｳｰﾂ鋼ｲﾝｺﾞｯﾄ`…クエスト「城塞都市ヴェロエア」の直売所で購入")
CALL ADD_HELP_LINE("` 61川エビ`…施設「小川」で採集を行う        ▼「小川」作成には「火薬」（肥料…石炭か動物の糞）が必要")
CALL ADD_HELP_LINE("` 62ザリガニ`…施設「小川」で採集を行う")
CALL ADD_HELP_LINE("` 63カニの肉`…家具「カニかご」を設置した施設「小川」で「春～秋」に採集を行う")
CALL ADD_HELP_LINE("` 64スッポン`…家具「カニかご」を設置した施設「小川」で「春～秋」に採集を行う")
CALL ADD_HELP_LINE("` 65東方ｽﾊﾟｲｽ`…クエスト「交易都市フォルメン」の市場で購入／領地の「商業の評判」が良いと商人が持ち込んでくる")
CALL ADD_HELP_LINE("` 67鮮肉の大塊`…施設「狩場」で採集を行うと低確率で入手／領地の「商業の評判」が良いと村人が持ち込んでくる")
CALL ADD_HELP_LINE("` 68竜の肉`…「ドラゴン」系エネミーがドロップ／領地の「商業の評判」が良いと冒険者が持ち込んでくる")
CALL ADD_HELP_LINE("` 70キャベツ`…施設「菜園」で「春」に採集を行う▼「菜園」作成には「肥料」が必要")
CALL ADD_HELP_LINE("` 71ニンニク`…施設「菜園」で「春」に採集を行う")
CALL ADD_HELP_LINE("` 72トマト`…施設「菜園」で「夏」に採集を行う")
CALL ADD_HELP_LINE("` 73カボチャ`…施設「菜園」で「夏」に採集を行う")
CALL ADD_HELP_LINE("` 74ニンジン`…施設「菜園」で「秋」に採集を行う")
CALL ADD_HELP_LINE("` 75タマネギ`…施設「菜園」で「秋」に採集を行う")
CALL ADD_HELP_LINE("` 76カブ`…施設「菜園」で「冬」に採集を行う")
CALL ADD_HELP_LINE("` 77ネギ`…施設「菜園」で「冬」に採集を行う")
CALL ADD_HELP_LINE("` 78ﾚｯﾄﾞﾍﾟｯﾊﾟｰ`…クエスト「交易都市フォルメン」の市場で購入／領地の「商業の評判」が良いと商人が持ち込んでくる")
CALL ADD_HELP_LINE("` 90石油`…クエスト「城塞都市ヴェロエア」で投資をすることで入手")
CALL ADD_HELP_LINE("`128ｽｷｭﾗのﾌｪﾛﾓﾝ`…クエスト「海岸の探索」のイベント進行で入手")


code:
;-------------------------------------------------
;FLの要素に関するコンフィグ
;-------------------------------------------------
;コンフィグのデフォルト値
;ゲーム開始時に一度呼ばれる
@INIT_CONFIG_FLCONFIG
FLCONFIG:リアクション許可 = 1
FLCONFIG:ゲストの好色率 = 40
FLCONFIG:エネミーの好色率 = 30
FLCONFIG:買物ゲストの男性率 = 40
FLCONFIG:売春ゲストの男性率 = 80
FLCONFIG:公演ゲストの男性率 = 50
FLCONFIG:女性ゲストのふたなり率 = 0
;宿泊客に関する設定
FLCONFIG:宿泊ゲストの男性率 = 40
FLCONFIG:カップル客の生成率 = 50
FLCONFIG:カップル客の個室以外での逢瀬を許可 = 1
FLCONFIG:同性カップル客の生成率 = 20
FLCONFIG:女性同性カップルの許可 = 1
FLCONFIG:男性同性カップルの許可 = 0
;ゲームプレイに関する設定
FLCONFIG:BGMの音量 = 30
FLCONFIG:SEの音量 = 80
FLCONFIG:ルビ表示 = 2
;デバッグ用項目
FLCONFIG:絶対妊娠 = 0
FLCONFIG:里子に出さない = 0

;調教画面のキャラクター情報表示はデフォルトオン
HO_キャラ行動表示 = 1
HO_キャラ衣装表示 = 1

@CONFIG_HOUSING
#DIM FIRST_LINE

FIRST_LINE = LINECOUNT
CALL SINGLE_DRAWLINE
PRINTL ●領内活動に関する設定●
CALL SINGLE_DRAWLINE

PRINTL ◇全般◇
LOCALS:0 '= "好色なゲストの登場確率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "ゲストの好色率")
PRINT
PRINTFORM {FLCONFIG:ゲストの好色率}\%
PRINTL

LOCALS:0 '= "買物ゲストの男性率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "買物ゲストの男性率")
PRINT
PRINTFORM {FLCONFIG:買物ゲストの男性率}\%
PRINTL

LOCALS:0 '= "売春ゲストの男性率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "売春ゲストの男性率")
PRINT
PRINTFORM {FLCONFIG:売春ゲストの男性率}\%
PRINTL

LOCALS:0 '= "公演ゲストの男性率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "公演ゲストの男性率")
PRINT
PRINTFORM {FLCONFIG:公演ゲストの男性率}\%
PRINTL

; LOCALS:0 '= "酒場ゲストの男性率"
; PRINTFORM %LOCALS:0, 35, RIGHT% -
; PRINTBUTTON "  1[変更]", GETNUM(FLCONFIG, "酒場ゲストの男性率")
; PRINT
; PRINTFORM {FLCONFIG:酒場ゲストの男性率}\%
; PRINTL

LOCALS:0 '= "女性ゲストのふたなり率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "女性ゲストのふたなり率")
PRINT
PRINTFORM {FLCONFIG:女性ゲストのふたなり率}\%
PRINTL

LOCALS:0 '= "戦闘エネミーの好色率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "エネミーの好色率")
PRINT
PRINTFORM {FLCONFIG:エネミーの好色率}\%
PRINTL

CALL COLOR_LINE
PRINTL ◇宿泊客に関する設定◇
LOCALS:0 '= "宿泊ゲストの男性率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "宿泊ゲストの男性率")
PRINT
PRINTFORM {FLCONFIG:宿泊ゲストの男性率}\%
PRINTL

LOCALS:0 '= "カップル客の生成率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "カップル客の生成率")
PRINT
PRINTFORM {FLCONFIG:カップル客の生成率}\%
PRINTL

LOCALS:0 '= "カップル客の個室以外での逢瀬を許可"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "カップル客の個室以外での逢瀬を許可")
PRINT
PRINTFORM %FLCONFIG:カップル客の個室以外での逢瀬を許可 ? "許可" # "無効"%
PRINTL

LOCALS:0 '= "同性カップル客の生成率"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "同性カップル客の生成率")
PRINT
PRINTFORM {FLCONFIG:同性カップル客の生成率}\%
PRINTL

LOCALS:0 '= "女性同性カップルの許可"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "女性同性カップルの許可")
PRINT
PRINTFORM %FLCONFIG:女性同性カップルの許可 ? "許可" # "無効"%
PRINTL

LOCALS:0 '= "男性同性カップルの許可"
PRINTFORM %LOCALS:0, 35, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "男性同性カップルの許可")
PRINT
PRINTFORM %FLCONFIG:男性同性カップルの許可 ? "許可" # "無効"%
PRINTL

CALL SINGLE_DRAWLINE
PRINTBUTTON " 999[決定]", 999
PRINTL

REDRAW 1
$INPUT_LOOP
INPUT

SELECTCASE RESULT
	CASE GETNUM(FLCONFIG, "ゲストの好色率")
		FLCONFIG:ゲストの好色率 += 10
		IF FLCONFIG:ゲストの好色率 > 100
			FLCONFIG:ゲストの好色率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "エネミーの好色率")
		FLCONFIG:エネミーの好色率 += 10
		IF FLCONFIG:エネミーの好色率 > 100
			FLCONFIG:エネミーの好色率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "買物ゲストの男性率")
		FLCONFIG:買物ゲストの男性率 += 10
		IF FLCONFIG:買物ゲストの男性率 > 100
			FLCONFIG:買物ゲストの男性率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "売春ゲストの男性率")
		FLCONFIG:売春ゲストの男性率 += 10
		IF FLCONFIG:売春ゲストの男性率 > 100
			FLCONFIG:売春ゲストの男性率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "公演ゲストの男性率")
		FLCONFIG:公演ゲストの男性率 += 10
		IF FLCONFIG:公演ゲストの男性率 > 100
			FLCONFIG:公演ゲストの男性率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "女性ゲストのふたなり率")
		FLCONFIG:女性ゲストのふたなり率 += 10
		IF FLCONFIG:女性ゲストのふたなり率 > 100
			FLCONFIG:女性ゲストのふたなり率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "宿泊ゲストの男性率")
		FLCONFIG:宿泊ゲストの男性率 += 10
		IF FLCONFIG:宿泊ゲストの男性率 > 100
			FLCONFIG:宿泊ゲストの男性率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "カップル客の生成率")
		FLCONFIG:カップル客の生成率 += 10
		IF FLCONFIG:カップル客の生成率 > 100
			FLCONFIG:カップル客の生成率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "カップル客の個室以外での逢瀬を許可")
		FLCONFIG:カップル客の個室以外での逢瀬を許可 = !FLCONFIG:カップル客の個室以外での逢瀬を許可
	CASE GETNUM(FLCONFIG, "同性カップル客の生成率")
		FLCONFIG:同性カップル客の生成率 += 10
		IF FLCONFIG:同性カップル客の生成率 > 100
			FLCONFIG:同性カップル客の生成率 = 0
		ENDIF
	CASE GETNUM(FLCONFIG, "女性同性カップルの許可")
		FLCONFIG:女性同性カップルの許可 = !FLCONFIG:女性同性カップルの許可
	CASE GETNUM(FLCONFIG, "男性同性カップルの許可")
		FLCONFIG:男性同性カップルの許可 = !FLCONFIG:男性同性カップルの許可
	CASE 999
		RETURN
	CASEELSE
		GOTO INPUT_LOOP
ENDSELECT

REDRAW 0
CLEARLINE LINECOUNT - FIRST_LINE
RESTART

@CONFIG_GAMEPLAY
; #region
#DIM FIRST_LINE

FIRST_LINE = LINECOUNT
CALL SINGLE_DRAWLINE
PRINTL ●ゲームプレイに関する設定●
CALL SINGLE_DRAWLINE
PRINTL ◇表示関連◇

LOCALS:0 '= "処理実行後のログを消去しない"
PRINTFORM %LOCALS:0, 45, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "処理実行後のログを消去しない")
PRINT
PRINTFORM %FLCONFIG:処理実行後のログを消去しない ? "はい" # "いいえ"%
PRINTL

CALL COLOR_LINE

PRINTL ◇サウンドに関する設定◇
LOCALS:0 '= "全てのサウンドを再生しない"
PRINTFORM %LOCALS:0, 45, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "サウンドを再生しない")
PRINT
PRINTFORM %FLCONFIG:サウンドを再生しない ? "はい" # "いいえ"%
PRINTL

LOCALS:0 '= "性交のサウンドを再生しない(注挿,射精など)"
PRINTFORM %LOCALS:0, 45, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "性交のサウンドを再生しない")
PRINT
PRINTFORM %FLCONFIG:性交のサウンドを再生しない ? "はい" # "いいえ"%
PRINTL

LOCALS:0 '= "BGMの音量"
PRINTFORM %LOCALS:0, 45, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "BGMの音量")
PRINT
PRINTFORM {FLCONFIG:BGMの音量}\%
PRINTL

LOCALS:0 '= "SEの音量"
PRINTFORM %LOCALS:0, 45, RIGHT% -
PRINTBUTTON "[変更]", GETNUM(FLCONFIG, "SEの音量")
PRINT
PRINTFORM {FLCONFIG:SEの音量}\%
PRINTL

CALL SINGLE_DRAWLINE
PRINTBUTTON " 999[決定]", 999
PRINTL

REDRAW 1
$INPUT_LOOP
INPUT

SELECTCASE RESULT
	CASE GETNUM(FLCONFIG, "処理実行後のログを消去しない")
		INVERTBIT FLCONFIG:処理実行後のログを消去しない, 0
	CASE GETNUM(FLCONFIG, "サウンドを再生しない")
		CALL FL_STOPBGM()
		INVERTBIT FLCONFIG:サウンドを再生しない, 0
	CASE GETNUM(FLCONFIG, "性交のサウンドを再生しない")
		INVERTBIT FLCONFIG:性交のサウンドを再生しない, 0
	CASE GETNUM(FLCONFIG, "BGMの音量")
		FLCONFIG:BGMの音量 += 10
		IF FLCONFIG:BGMの音量 > 100
			FLCONFIG:BGMの音量 = 0
		ENDIF
		CALL FL_STOPBGM(0)
		CALL FL_PLAYBGM("Nostalgic_1.ogg")
	CASE GETNUM(FLCONFIG, "SEの音量")
		FLCONFIG:SEの音量 += 10
		IF FLCONFIG:SEの音量 > 100
			FLCONFIG:SEの音量 = 0
		ENDIF
		CALL FL_PLAYSE("Dice_0.mp3")
	CASE 999
		CALL FL_STOPBGM()
		RETURN
	CASEELSE
		GOTO INPUT_LOOP
ENDSELECT

REDRAW 0
CLEARLINE LINECOUNT - FIRST_LINE
RESTART
; #endregion

repo_name: pervysquirrelz/erafl

license: unknown


code:
;-------------------------------------------------
;;; 特典コードの入力
;-------------------------------------------------
@CONFIG_INPUT_CODE

CALL SINGLE_DRAWLINE
PRINTFORML Enter the award code (canceled without entry)
CALL SINGLE_DRAWLINE

CALL PRINTLINE_RESERVE

$INPUT_LOOP
INPUTS

;「まぁ……気持ち程度に誤魔化してはいるがねぇ……」
;「後続の処理を見れば何が手に入るのか分かるのだから意味があるか無いかで言えば、無いんじゃないかな」
;「しかしこういうのは雰囲気が大事なんだよ、雰囲気が。キミもそう思うだろう？」
IF RESULTS == @"%UNICODE(0x0049)%%UNICODE(0x0052)%%UNICODE(0x0055)%%UNICODE(0x0050)%%UNICODE(0x0048)%%UNICODE(0x0051)%"
	IF HO_ITEM_STOCK:800 < 1
		PRINTFORML Thank you for your cooperation in the player questionnaire!
		CALL QST_CHANGE_ITEM("800,1," )
		RETURN 0
	ELSE
		PRINTFORMW This code has already been entered
	ENDIF
ELSEIF RESULTS == ""
	RETURN 0
ELSE
	PRINTFORMW The code is wrong
ENDIF

CALL PRINTLINE_CLEAR

GOTO INPUT_LOOP


code:
@CHARACTER_EDIT(対象, 切り替え可能 = 0)
#DIM 対象
#DIM 切り替え可能
#DIM 現在タブ
#DIMS CONST タブ英名 = "NAME", "BASE", "ABL",  "TALENT", "EXP",  "MARK", "OTHER", "PORTRAIT","KOJO", "CLOTH", "INFO"
#DIMS CONST タブ名   = "名前", "基礎", "能力", "素質",   "経験", "陥落", "他", "ポートレイト", "口上", "衣装", "情報"
#DIM FIRST_LINE, 2
#DIM CREDRAW
#DIMS DYNAMIC 入力値

デバッグメニュー = 切り替え可能

CREDRAW = CURRENTREDRAW()
REDRAW 0

$SHOW_LOOP

FIRST_LINE = LINECOUNT

CALL SINGLE_DRAWLINE
PRINTFORML %ANAME(対象)%を編集中
CALL SINGLE_DRAWLINE
FIRST_LINE:1 = LINECOUNT
TRYCALLFORM CHARACTER_EDIT_UI_%タブ英名:現在タブ%(対象)
FOR LOCAL, 0, FIRST_LINE:1 + 25 - LINECOUNT
	PRINTL
NEXT
CALL SINGLE_DRAWLINE

FOR LOCAL, 0, VARSIZE("タブ名")
	PRINTBUTTON @"[%タブ名:LOCAL%]", 10000 + LOCAL
	PRINT
NEXT
PRINTL

IF 切り替え可能
	CALL SINGLE_DRAWLINE
	PRINTBUTTON "[前のキャラ]", 20000
	PRINT
	PRINTBUTTON "[次のキャラ]", 20001
	PRINTL
ENDIF

CALL SINGLE_DRAWLINE
PRINTBUTTON "[BACK]", 30000

BINPUTS
CLEARLINE 1
入力値 = %RESULTS%

RESULT = TOINT(入力値)
IF RESULT == 30000
	REDRAW CREDRAW
	RETURN
ELSEIF RESULT == 20000 && 切り替え可能
	LOCAL:0 = 0
	LOCAL:1 = 0
	WHILE 1
		LOCAL:2 = SHOP_CHARA_LIST:(LOCAL:0)
		IF LOCAL:1
			IF LOCAL:2 != -1
				対象 = SHOP_CHARA_LIST:(LOCAL:0)
				BREAK
			ENDIF
		ELSEIF LOCAL:2 == 対象
			LOCAL:1 = 1
		ENDIF
		LOCAL:0 --
		SIF LOCAL:0 < 0
			LOCAL:0 = CHARANUM - 1
	WEND
	CLEARLINE LINECOUNT - FIRST_LINE
	GOTO SHOW_LOOP
ELSEIF RESULT == 20001 && 切り替え可能
	LOCAL:0 = 0
	LOCAL:1 = 0
	WHILE 1
		LOCAL:2 = SHOP_CHARA_LIST:(LOCAL:0)
		IF LOCAL:1
			IF LOCAL:2 != -1
				対象 = SHOP_CHARA_LIST:(LOCAL:0)
				BREAK
			ENDIF
		ELSEIF LOCAL:2 == 対象
			LOCAL:1 = 1
		ENDIF
		LOCAL:0 ++
		SIF LOCAL:0 >= CHARANUM
			LOCAL:0 = 0
	WEND
	CLEARLINE LINECOUNT - FIRST_LINE
	GOTO SHOW_LOOP
ELSEIF INRANGE(RESULT, 10000, 10000 + VARSIZE("タブ名") - 1)
	現在タブ = RESULT - 10000
	IF タブ名:現在タブ == "情報"
		現在タブ = 0
		CALL SHOW_INFO_WITH_UI(対象,,,"CHARA_EDIT")
	ELSEIF タブ名:現在タブ == "スキル"
		現在タブ = 0
		CALL SHOP_LIFE_USERSHOP41(対象, 1)
	ELSEIF タブ英名:現在タブ == "PORTRAIT"
		現在タブ = 0
		CALL SHOW_CHARACTER_PORTRAIT_EDIT_MENU(対象)
	ELSEIF タブ英名:現在タブ == "KOJO"
		現在タブ = 0
		CALL SHOW_CHARACTER_KOJO_EDIT_MENU(対象)
	ELSEIF タブ英名:現在タブ == "CLOTH"
		現在タブ = 0
		FLAG:能力表示モード = 5
		CALL SHOW_INFO_WITH_UI(対象,,,"CHARA_EDIT")
	ENDIF
	CLEARLINE LINECOUNT - FIRST_LINE
	GOTO SHOW_LOOP
ENDIF

CALLFORM CHARACTER_EDIT_INPUT_%タブ英名:現在タブ%(対象, 入力値)

CLEARLINE LINECOUNT - FIRST_LINE
GOTO SHOW_LOOP


code: #DIM CHARACTER_EDIT_PAGE


code:
@CHARACTER_EDIT_UI_ABL(対象)
#DIM 対象

;成長型
PRINTBUTTON "[成長型]:", @"[GROWTH:{GETNUM(TALENT, "成長型")}]"
PRINTFORML %TOSTR_GROWTYPE(TALENT:対象:GETNUM(TALENT, "成長型"))%
;成長型に基づくパラメータリロール
PRINTBUTTON "[能力をリロール]", @"[REROLL:1]"
PRINTL

CALL COLOR_LINE

;ＲＰＧ部分に関するパラメータ
LOCAL:1 = 0
FOR LOCAL, 0, VARSIZE("ABL")
	SIF ABLNAME:(LOCAL) == ""
		CONTINUE
	{
		IF GROUPMATCH(LOCAL
			, GETNUM(ABL, "身体")
			, GETNUM(ABL, "器用")
			, GETNUM(ABL, "知識")
			, GETNUM(ABL, "社交")
			, GETNUM(ABL, "料理")
			, GETNUM(ABL, "歌唱")
			, GETNUM(ABL, "魔術")
			, GETNUM(ABL, "観察")
			, GETNUM(ABL, "話術")
			, GETNUM(ABL, "戦闘")
			)
	}
		PRINTBUTTON @"% "[" + ABLNAME:LOCAL + "]" , 10, LEFT%:", @"[ABL:{LOCAL}]"
		CALL PRINT_ALPHABET_RANK(ランク_ＳＬＧ, ABL:対象:LOCAL)
	ELSE
		CONTINUE
	ENDIF

	PRINTFORM  {ABL:対象:LOCAL, 4, RIGHT}
	LOCAL:1 ++
	SIF LOCAL:1 != 0 && LOCAL:1 % 5 == 0
		PRINTL
NEXT
CALL COLOR_LINE
LOCAL:1 = 0
;閨に関するパラメータ
FOR LOCAL, 0, VARSIZE("ABL")
	SIF ABLNAME:(LOCAL) == ""
		CONTINUE
	;表示させないパラメータ
	{
		IF GROUPMATCH(LOCAL
			, GETNUM(ABL, "攻撃力")
			, GETNUM(ABL, "防御力")
			, GETNUM(ABL, "軽減値")
			, GETNUM(ABL, "行動力")
			, GETNUM(ABL, "敵視")
			, GETNUM(ABL, "隠蔽性")
			, GETNUM(ABL, "脅威選定")
			, GETNUM(ABL, "演技力ＣＯ")
			, GETNUM(ABL, "演技力ＣＵ")
			, GETNUM(ABL, "演技力ＰＡ")
			, GETNUM(ABL, "演技力ＬＥ")
			, GETNUM(ABL, "野心")
			, GETNUM(ABL, "身体")
			, GETNUM(ABL, "器用")
			, GETNUM(ABL, "知識")
			, GETNUM(ABL, "社交")
			, GETNUM(ABL, "料理")
			, GETNUM(ABL, "歌唱")
			, GETNUM(ABL, "魔術")
			, GETNUM(ABL, "野心")
			, GETNUM(ABL, "観察")
			, GETNUM(ABL, "話術")
			, GETNUM(ABL, "戦闘")
			)
	}
		CONTINUE
	ENDIF
	PRINTBUTTON @"% "[" + ABLNAME:LOCAL + "]" , 10, LEFT%:", @"[ABL:{LOCAL}]"
	IF LOCAL == GETNUM(ABL, "性知識")
		CALL PRINT_ALPHABET_RANK(ランク_性知識, ABL:対象:LOCAL)
	ELSE
		CALL PRINT_ALPHABET_RANK(ランク_その他, ABL:対象:LOCAL)
	ENDIF

	PRINTFORM  {ABL:対象:LOCAL, 4, RIGHT}
	LOCAL:1 ++
	SIF LOCAL:1 != 0 && LOCAL:1 % 5 == 0
		PRINTL
NEXT
PRINTL

@CHARACTER_EDIT_INPUT_ABL(CHARA_ID, INPUT_VALUES)
#DIM  CHARA_ID
#DIMS INPUT_VALUES
#DIM  DYNAMIC ABL_ID
#DIM  DYNAMIC VALUE

IF DIC_CONTAINSKEY(INPUT_VALUES, "ABL")
	ABL_ID = TOINT(DIC_GET(INPUT_VALUES, "ABL"))

	PRINTFORML 値を入力 現在値{ABL:CHARA_ID:ABL_ID}
	PRINTFORML %ABLNAME:ABL_ID%を編集中 {ABL_MIN:ABL_ID}～{ABL_MAX:ABL_ID}
	INPUT
	CLEARLINE 1
	RESULT = LIMIT(RESULT, ABL_MIN:ABL_ID, ABL_MAX:ABL_ID)

	ABL:CHARA_ID:ABL_ID = RESULT
ELSEIF DIC_CONTAINSKEY(INPUT_VALUES, "GROWTH")
	VALUE = TOINT(DIC_GET(INPUT_VALUES, "GROWTH"))
	TALENT:CHARA_ID:VALUE = ROUND_INCREMENT(TALENT:CHARA_ID:VALUE, 0, 11)
ELSEIF DIC_CONTAINSKEY(INPUT_VALUES, "REROLL")
	CALL CHARACTER_EDIT_SET_ABL_BY_GROWTH(CHARA_ID)
ELSE
	RETURN 0
ENDIF

;;;成長型に基づく初期ABLの決定
@CHARACTER_EDIT_SET_ABL_BY_GROWTH(CHARA_ID)
#DIM CHARA_ID
SELECTCASE TALENT:CHARA_ID:成長型
		;万能
		;ベースとして
		;4能力期待値180
		;6能力期待値220
		;8能力期待値270
	CASE 成長型_万能
		ABL:CHARA_ID:身体 = RAND(25, 65)
		ABL:CHARA_ID:器用 = RAND(25, 65)
		ABL:CHARA_ID:知識 = RAND(25, 65)
		ABL:CHARA_ID:社交 = RAND(25, 65)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(10, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;知将 身体器用知識
	CASE 成長型_士官
		ABL:CHARA_ID:身体 = RAND(30, 70)
		ABL:CHARA_ID:器用 = RAND(30, 70)
		ABL:CHARA_ID:知識 = RAND(30, 70)
		ABL:CHARA_ID:社交 = RAND(20, 40)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(10, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;学士 知識社交
	CASE 成長型_学者
		ABL:CHARA_ID:身体 = RAND(20, 50)
		ABL:CHARA_ID:器用 = RAND(20, 50)
		ABL:CHARA_ID:知識 = RAND(40, 70)
		ABL:CHARA_ID:社交 = RAND(40, 70)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(10, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;両道 身体器用社交
	CASE 成長型_両道
		ABL:CHARA_ID:身体 = RAND(30, 70)
		ABL:CHARA_ID:器用 = RAND(30, 70)
		ABL:CHARA_ID:知識 = RAND(20, 40)
		ABL:CHARA_ID:社交 = RAND(30, 70)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(10, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;武官 身体器用戦闘
	CASE 成長型_戦士
		ABL:CHARA_ID:身体 = RAND(40, 70)
		ABL:CHARA_ID:器用 = RAND(40, 70)
		ABL:CHARA_ID:知識 = RAND(20, 50)
		ABL:CHARA_ID:社交 = RAND(20, 50)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(30, 50)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(30, 50)
		;軍師 知識
	CASE 成長型_参謀
		ABL:CHARA_ID:身体 = RAND(20, 60)
		ABL:CHARA_ID:器用 = RAND(20, 60)
		ABL:CHARA_ID:知識 = RAND(45, 75)
		ABL:CHARA_ID:社交 = RAND(20, 60)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(45, 75)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;文官　社交
	CASE 成長型_商人
		ABL:CHARA_ID:身体 = RAND(20, 60)
		ABL:CHARA_ID:器用 = RAND(20, 60)
		ABL:CHARA_ID:知識 = RAND(20, 60)
		ABL:CHARA_ID:社交 = RAND(45, 75)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(45, 75)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;芸能
		;4能力160
		;6能力220
		;8能力270
	CASE 成長型_詩人
		ABL:CHARA_ID:身体 = RAND(20, 60)
		ABL:CHARA_ID:器用 = RAND(20, 60)
		ABL:CHARA_ID:知識 = RAND(20, 60)
		ABL:CHARA_ID:社交 = RAND(20, 60)
		ABL:CHARA_ID:料理 = RAND(10, 30)
		ABL:CHARA_ID:歌唱 = RAND(30, 50)
		ABL:CHARA_ID:観察 = RAND(10, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;料理
	CASE 成長型_執事
		ABL:CHARA_ID:身体 = RAND(20, 60)
		ABL:CHARA_ID:器用 = RAND(20, 60)
		ABL:CHARA_ID:知識 = RAND(20, 60)
		ABL:CHARA_ID:社交 = RAND(20, 60)
		ABL:CHARA_ID:料理 = RAND(30, 50)
		ABL:CHARA_ID:歌唱 = RAND(10, 30)
		ABL:CHARA_ID:観察 = RAND(10, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:戦闘 = RAND(15, 35)
		;天才
		;4能力220
		;6能力270
		;8能力330
	CASE 成長型_天才
		ABL:CHARA_ID:身体 = RAND(35, 65)
		ABL:CHARA_ID:器用 = RAND(35, 65)
		ABL:CHARA_ID:知識 = RAND(35, 65)
		ABL:CHARA_ID:社交 = RAND(35, 65)
		ABL:CHARA_ID:料理 = RAND(20, 30)
		ABL:CHARA_ID:歌唱 = RAND(20, 30)
		ABL:CHARA_ID:観察 = RAND(20, 30)
		ABL:CHARA_ID:話術 = RAND(25, 45)
		ABL:CHARA_ID:戦闘 = RAND(25, 45)
		;無才 期待値140
	CASE 成長型_無能
		ABL:CHARA_ID:身体 = RAND(10, 30)
		ABL:CHARA_ID:器用 = RAND(10, 30)
		ABL:CHARA_ID:知識 = RAND(10, 30)
		ABL:CHARA_ID:社交 = RAND(10, 30)
		ABL:CHARA_ID:料理 = RAND(1, 20)
		ABL:CHARA_ID:歌唱 = RAND(1, 20)
		ABL:CHARA_ID:観察 = RAND(1, 20)
		ABL:CHARA_ID:話術 = RAND(1, 20)
		ABL:CHARA_ID:戦闘 = RAND(1, 20)
	CASE 成長型_魔術
		ABL:CHARA_ID:戦闘 = RAND(15, 30)
		ABL:CHARA_ID:身体 = RAND(15, 30)
		ABL:CHARA_ID:器用 = RAND(15, 30)
		ABL:CHARA_ID:知識 = RAND(30, 60)
		ABL:CHARA_ID:社交 = RAND(15, 60)
		ABL:CHARA_ID:料理 = RAND(20, 40)
		ABL:CHARA_ID:歌唱 = RAND(15, 30)
		ABL:CHARA_ID:観察 = RAND(15, 30)
		ABL:CHARA_ID:話術 = RAND(15, 35)
		ABL:CHARA_ID:魔術 = RAND(30, 60)
	ENDSELECT


code:
@CHARACTER_EDIT_UI_BASE(対象)
#DIM 対象
PRINTBUTTON "[  体力]", 0
PRINTFORML  現在:{MAXBASE:対象:体力}
PRINTBUTTON "[  気力]", 1
PRINTFORML  現在:{MAXBASE:対象:気力}
PRINTBUTTON "[精神力]", 2
PRINTFORML  現在:{MAXBASE:対象:精神力}
PRINTBUTTON "[性別]", 3
PRINTFORML  現在:%TOSTR_SEX(TALENT:対象:性別)%
PRINTBUTTON "[職業]", 4
PRINTFORML  現在:%JOB_NAME:(TALENT:対象:職業)%
PRINTL
PRINTBUTTON "[ＴＳ経験]", 5
IF TALENT:対象:元性別 == 0 || (TALENT:対象:元性別)-10 == TALENT:対象:性別
	PRINTFORML  なし
ELSE
	PRINTFORML  元%TOSTR_SEX((TALENT:対象:元性別)-10)%
ENDIF

@CHARACTER_EDIT_INPUT_BASE(対象, INPUT_VALUES)
#DIM  対象
#DIMS INPUT_VALUES
#DIM  入力値

入力値 = TOINT(INPUT_VALUES)

IF 入力値 == 3
	CALL CHANGE_SEX(対象)
ELSEIF 入力値 == 4
	CALL CHANGE_JOB(対象)
ELSEIF 入力値 == 5
	CALL CHANGE_TSF(対象)
ELSE
	SIF !INRANGE(入力値, 0, 2)
		RETURN 0

	PRINTFORML 値を入力 現在値{MAXBASE:対象:入力値}
	PRINTFORML %BASENAME:入力値%を編集中 0～5000)

	INPUT

	RESULT = LIMIT(RESULT, 0, 5000)

	MAXBASE:対象:入力値 = RESULT
	BASE:対象:入力値 = MAXBASE:対象:入力値
ENDIF

@CHANGE_SEX(対象)
#DIM 対象
#DIM 入力値

$INPUT_LOOP
PRINTL 性別を選択してください
PRINTFORML 現在:%TOSTR_SEX(TALENT:対象:性別)%
PRINTBUTTON "[男性]", 0
PRINT
PRINTBUTTON "[女性]", 1
PRINT
PRINTBUTTON "[女双]", 2
PRINT
PRINTBUTTON "[男双]", 3
PRINT
PRINTBUTTON "[男の娘]", 4
PRINT
PRINTBUTTON "[男の娘双]", 5
PRINT

INPUT
入力値 = RESULT
SIF !INRANGE(入力値, 0, 5)
	GOTO INPUT_LOOP

TALENT:対象:性別 = 入力値
TALENT:対象:元性別 = 入力値 + 10

@CHANGE_TSF(対象)
#DIM 対象
#DIM 入力値

$INPUT_LOOP
PRINTL ＴＳ経験がある場合の、元の性別を選択してください
IF TALENT:対象:元性別 == 0 || (TALENT:対象:元性別)-10 == TALENT:対象:性別
	PRINTFORML ＴＳ経験なし
ELSE
	PRINTFORML 元%TOSTR_SEX((TALENT:対象:元性別)-10)%
ENDIF
PRINTBUTTON "[男性]", 10
PRINT
PRINTBUTTON "[女性]", 11
PRINT
PRINTBUTTON "[女双]", 12
PRINT
PRINTBUTTON "[男双]", 13
PRINT
PRINTBUTTON "[男の娘]", 14
PRINT
PRINTBUTTON "[男の娘双]", 15
PRINT

INPUT
入力値 = RESULT
SIF !INRANGE(入力値, 10, 15)
	GOTO INPUT_LOOP

TALENT:対象:元性別 = 入力値

@CHANGE_JOB(対象)
#DIM 対象
#DIM 入力値

$INPUT_LOOP
PRINTL ◆ 職業を選択してください
PRINTFORML 現在:%JOB_NAME:(TALENT:対象:職業)%
PRINTL
FOR LOCAL, 0, VARSIZE("JOB_NAME")
	CALL PRINT_RADIO_BUTTON(@"%@"[%JOB_NAME:LOCAL%]", 14, LEFT%", LOCAL, TALENT:対象:職業 == LOCAL)
	IF LOCAL % 7 == 0
		PRINTL
	ENDIF
NEXT

INPUT
入力値 = RESULT
SIF !INRANGE(入力値, 0, VARSIZE("JOB_NAME") - 1)
	GOTO INPUT_LOOP

TALENT:対象:職業 = 入力値


code:
@CHARACTER_EDIT_UI_EXP(対象)
#DIM 対象
LOCAL:1 = 0
FOR LOCAL, 0, VARSIZE("EXP")
	SIF EXPNAME:LOCAL == "" || STRFIND(EXPNAME:LOCAL, "経験値") != -1
		CONTINUE
	PRINTBUTTON @"% "[" + EXPNAME:LOCAL + "]" , 15, LEFT%:", LOCAL

	PRINTFORM  {EXP:対象:LOCAL, 5, RIGHT}
	LOCAL:1 ++
	SIF LOCAL:1 != 0 && LOCAL:1 % 4 == 0
		PRINTL
NEXT
PRINTL

@CHARACTER_EDIT_INPUT_EXP(対象, INPUT_VALUES)
#DIM  対象
#DIMS INPUT_VALUES
#DIM  入力値

入力値 = TOINT(INPUT_VALUES)

SIF !INRANGE(入力値, 0, VARSIZE("EXP") - 1) || STRFIND(EXPNAME:入力値, "経験値") != -1
	RETURN 0

PRINTFORML 値を入力 現在値{EXP:対象:入力値}
PRINTFORML (%EXPNAME:入力値%を編集中)

INPUT

SIF RESULT >= 0
	EXP:対象:入力値 = RESULT


code:
@CHARACTER_EDIT_UI_MARK(対象)
#DIM 対象

PRINTBUTTON "[好感度] ", 500
PRINTFORML 現在:{CFLAG:対象:好感度}
PRINTBUTTON "[従属度] ", 501
PRINTFORML 現在:{CFLAG:対象:従属度}
PRINTBUTTON "[支配度] ", 503
PRINTFORML 現在:{CFLAG:対象:支配度}
PRINTBUTTON "[依存度] ", 502
PRINTFORML 現在:{CFLAG:対象:依存度}
CALL COLOR_LINE
CALL PRINT_TOGGLE_BUTTON("[親友] ", 0, TALENT:対象:親友)
PRINTL
CALL PRINT_TOGGLE_BUTTON("[恋慕] ", 10, TALENT:対象:恋慕)
CALL PRINT_TOGGLE_BUTTON("[親愛] ", 11, TALENT:対象:親愛)
PRINTL
CALL PRINT_TOGGLE_BUTTON("[服従] ", 20, TALENT:対象:服従)
CALL PRINT_TOGGLE_BUTTON("[隷属] ", 21, TALENT:対象:隷属)
PRINTL
CALL PRINT_TOGGLE_BUTTON("[主人] ", 22, TALENT:対象:主人)
CALL PRINT_TOGGLE_BUTTON("[所有者] ", 23, TALENT:対象:所有者)
PRINTL
CALL PRINT_TOGGLE_BUTTON("[合意] ", 30, TALENT:対象:合意)
CALL PRINT_TOGGLE_BUTTON("[烙印] ", 31, TALENT:対象:烙印)
CALL PRINT_TOGGLE_BUTTON("[恋人] ", 32, TALENT:対象:恋人)
PRINTL
CALL PRINT_TOGGLE_BUTTON("[虚ろ] ", 40, TALENT:対象:虚ろ)
CALL PRINT_TOGGLE_BUTTON("[崩壊] ", 41, TALENT:対象:崩壊)
PRINTL
CALL PRINT_TOGGLE_BUTTON("[面識]", 50, CFLAG:対象:面識)
PRINTL
[IF_DEBUG]
CALL PRINT_TOGGLE_BUTTON("[スケベモブ]", 90, CFLAG:対象:スケベモブ)
PRINTL
[ENDIF]
CALL COLOR_LINE
FOR LOCAL, 0, VARSIZE("SEX_TALENT_NAME")
	CALL PRINT_TOGGLE_BUTTON(@"%@"[%SEX_TALENT_NAME:LOCAL%]", 14, LEFT%", 100 + LOCAL, GETBIT(TALENT:対象:淫乱系, LOCAL))
	IF LOCAL != 0 && LOCAL % 8 == 0
		PRINTL
	ENDIF
NEXT
PRINTL
CALL COLOR_LINE
FOR LOCAL, 1, VARSIZE("SP_FALLEN_TALENT_NAME")
	CALL PRINT_TOGGLE_BUTTON(@"[%SP_FALLEN_TALENT_NAME:LOCAL%] ", 200 + LOCAL, GETBIT(TALENT:対象:特殊勢力陥落系, LOCAL))
	IF LOCAL != 0 && LOCAL % 8 == 0
		PRINTL
	ENDIF
NEXT
PRINTL
CALL COLOR_LINE
FOR LOCAL, 0, VARSIZE("DAILY_TALENT_NAME")
	CALL PRINT_TOGGLE_BUTTON(@"[%DAILY_TALENT_NAME:LOCAL%] ", 300 + LOCAL, GETBIT(TALENT:対象:デイリー系, LOCAL))
	IF LOCAL != 0 && LOCAL % 8 == 0
		PRINTL
	ENDIF
NEXT
PRINTL

@CHARACTER_EDIT_INPUT_MARK(対象, INPUT_VALUES)
#DIM  対象
#DIMS INPUT_VALUES
#DIM  入力値

入力値 = TOINT(INPUT_VALUES)

IF 入力値 == 500
	PRINTFORM 好感度を入力(下限 -1000)
	INPUT
	CFLAG:対象:好感度 = MAX(RESULT, -1000)
ELSEIF 入力値 == 501
	PRINTFORM 従属度を入力(下限 -1000)
	INPUT
	CFLAG:対象:従属度 = MAX(RESULT, -1000)
ELSEIF 入力値 == 502
	PRINTFORM 依存度を入力(下限 -1000)
	INPUT
	CFLAG:対象:依存度 = MAX(RESULT, -1000)
ELSEIF 入力値 == 503
	PRINTFORM 支配度を入力(下限 -1000)
	INPUT
	CFLAG:対象:支配度 = MAX(RESULT, -1000)
ELSEIF INRANGE(入力値, 100, 100 + VARSIZE("SEX_TALENT_NAME"))
	INVERTBIT TALENT:対象:淫乱系, 入力値 - 100
ELSEIF INRANGE(入力値, 201, 200 + VARSIZE("SP_FALLEN_TALENT_NAME"))
	INVERTBIT TALENT:対象:特殊勢力陥落系, 入力値 - 200
ELSEIF INRANGE(入力値, 300, 300 + VARSIZE("DAILY_TALENT_NAME"))
	INVERTBIT TALENT:対象:デイリー系, 入力値 - 300
ENDIF

SELECTCASE 入力値
	CASE 0
		TALENT:対象:親友 = !TALENT:対象:親友
		IF TALENT:対象:親友
			TALENT:対象:恋慕 = 0
			TALENT:対象:親愛 = 0
			TALENT:対象:服従 = 0
			TALENT:対象:隷属 = 0
			TALENT:対象:主人 = 0
			TALENT:対象:所有者 = 0
			CFLAG:対象:好感度 = 1500
		ENDIF
	CASE 10
		TALENT:対象:恋慕 = !TALENT:対象:恋慕
		IF TALENT:対象:恋慕
			TALENT:対象:親友 = 0
			TALENT:対象:服従 = 0
			TALENT:対象:隷属 = 0
			TALENT:対象:烙印 = 0
			TALENT:対象:主人 = 0
			TALENT:対象:所有者 = 0
			CFLAG:対象:好感度 = 1500
			CFLAG:対象:依存度 = 300
		ENDIF
		TALENT:対象:親愛 = 0
	CASE 11
		TALENT:対象:親愛 = !TALENT:対象:親愛
		IF TALENT:対象:親愛
			TALENT:対象:恋慕 = 1
			TALENT:対象:親友 = 0
			TALENT:対象:服従 = 0
			TALENT:対象:隷属 = 0
			TALENT:対象:烙印 = 0
			TALENT:対象:主人 = 0
			TALENT:対象:所有者 = 0
			CFLAG:対象:好感度 = 10000
			CFLAG:対象:依存度 = 3000
		ENDIF
	CASE 20
		TALENT:対象:服従 = !TALENT:対象:服従
		IF TALENT:対象:服従
			TALENT:対象:親友 = 0
			TALENT:対象:恋慕 = 0
			TALENT:対象:親愛 = 0
			TALENT:対象:恋人 = 0
			TALENT:対象:主人 = 0
			TALENT:対象:所有者 = 0
			CFLAG:対象:従属度 = 1500
			CFLAG:対象:依存度 = 300
		ENDIF
		TALENT:対象:隷属 = 0
	CASE 21
		TALENT:対象:隷属 = !TALENT:対象:隷属
		IF TALENT:対象:隷属
			TALENT:対象:服従 = 1
			TALENT:対象:親友 = 0
			TALENT:対象:恋慕 = 0
			TALENT:対象:親愛 = 0
			TALENT:対象:恋人 = 0
			TALENT:対象:主人 = 0
			TALENT:対象:所有者 = 0
			CFLAG:対象:従属度 = 10000
			CFLAG:対象:依存度 = 3000
		ENDIF
	CASE 22
		TALENT:対象:主人 = !TALENT:対象:主人
		IF TALENT:対象:主人
			TALENT:対象:親友 = 0
			TALENT:対象:恋慕 = 0
			TALENT:対象:親愛 = 0
			TALENT:対象:服従 = 0
			TALENT:対象:隷属 = 0
			TALENT:対象:恋人 = 0
			CFLAG:対象:支配度 = 1500
			CFLAG:対象:依存度 = 300
		ENDIF
		TALENT:対象:所有者 = 0
	CASE 23
		TALENT:対象:所有者 = !TALENT:対象:所有者
		IF TALENT:対象:所有者
			TALENT:対象:主人 = 1
			TALENT:対象:親友 = 0
			TALENT:対象:恋慕 = 0
			TALENT:対象:服従 = 0
			TALENT:対象:隷属 = 0
			TALENT:対象:親愛 = 0
			TALENT:対象:恋人 = 0
			CFLAG:対象:支配度 = 10000
			CFLAG:対象:依存度 = 3000
		ENDIF
	CASE 30
		TALENT:対象:合意 = !TALENT:対象:合意
	CASE 31
		TALENT:対象:烙印 = !TALENT:対象:烙印
		IF TALENT:対象:烙印
			TALENT:対象:恋人 = 0
			TALENT:対象:恋慕 = 0
			TALENT:対象:親愛 = 0
		ENDIF
	CASE 32
		TALENT:対象:恋人 = !TALENT:対象:恋人
		IF TALENT:対象:恋人
			TALENT:対象:烙印 = 0
			TALENT:対象:服従 = 0
			TALENT:対象:隷属 = 0
			TALENT:対象:主人 = 0
			TALENT:対象:所有者 = 0
		ENDIF
	CASE 40
		TALENT:対象:虚ろ = !TALENT:対象:虚ろ
		CFLAG:対象:崩壊 = 0
		IF TALENT:対象:虚ろ
			CFLAG:対象:崩壊 = 1500
		ENDIF
	CASE 41
		TALENT:対象:崩壊 = !TALENT:対象:崩壊
		CFLAG:対象:崩壊 = 0
		IF TALENT:対象:崩壊
			TALENT:対象:虚ろ = 1
			CFLAG:対象:崩壊 = 3500
		ENDIF
	CASE 50
		CFLAG:対象:面識 = !CFLAG:対象:面識
	CASE 90
		CFLAG:対象:スケベモブ = !CFLAG:対象:スケベモブ
ENDSELECT

SIF !GETBIT(TALENT:対象:淫乱系, 素質_淫乱_薬物中毒)
	CFLAG:対象:薬物依存 = 0


code:
@CHARACTER_EDIT_UI_NAME(対象)
#DIM 対象
PRINTFORML 姓 -- %CSTR:対象:0, MAX_CHARANAME_LENGTH, LEFT% (%CSTR:対象:5, MAX_CHARANAME_LENGTH, LEFT%)
PRINTBUTTON "[入力]", 0
PRINTBUTTON " [ランダム]", 1
PRINTBUTTON " [消去]", 2
PRINTL
PRINTFORML 名 -- %CSTR:対象:1, MAX_CHARANAME_LENGTH, LEFT% (%CSTR:対象:6, MAX_CHARANAME_LENGTH, LEFT%)
PRINTBUTTON "[入力]", 100
PRINTBUTTON " [ランダム]", 101
PRINTBUTTON " [消去]", 102
PRINTL
PRINTFORML 字 -- %CSTR:対象:2, MAX_CHARANAME_LENGTH, LEFT% (%CSTR:対象:7, MAX_CHARANAME_LENGTH, LEFT%)
PRINTBUTTON "[入力]", 200
PRINTBUTTON " [ランダム]", 201
PRINTBUTTON " [消去]", 202
PRINTL

PRINTFORML 愛称 -- %CSTR:対象:98, MAX_CHARANAME_LENGTH, LEFT%
PRINTBUTTON "[入力]", 300
PRINTBUTTON " [消去]", 302
PRINTL
CALL PRINT_TOGGLE_BUTTON("[姓名逆転]", 999, TALENT:対象:姓名逆転)
PRINTL

@CHARACTER_EDIT_INPUT_NAME(対象, INPUT_VALUES)
#DIM  対象
#DIMS INPUT_VALUES
#DIM  入力値
#DIMS 名前
#DIMS ルビ

入力値 = TOINT(INPUT_VALUES)

;手入力
IF 入力値 % 100  == 0
	IF 入力値 / 100 != 3
		PRINTFORML 文字列を入力
		INPUTS
		名前 = %RESULTS%
		PRINTFORML ルビを入力
		INPUTS
		ルビ = %RESULTS%
		CSTR:対象:(入力値 / 100) = %名前%
		CSTR:対象:(入力値 / 100 + 5) = %ルビ%
		IF 入力値 / 100 == 1
			NAME:対象 = %名前%
			CALLNAME:対象 = %名前%
		ENDIF
	ELSE
		PRINTFORML 文字列を入力
		INPUTS
		CSTR:対象:98 = %RESULTS%
	ENDIF
	;消去
ELSEIF 入力値 % 100 == 2
	IF 入力値 / 100 != 3
		CSTR:対象:(入力値 / 100) =
		CSTR:対象:(入力値 / 100 + 5) =
	ELSE
		CSTR:対象:98 =
	ENDIF
	;性ランダム
ELSEIF 入力値 == 1
	CALL ASK_MULTI("洋名", "和名", "中華")
	SELECTCASE RESULT
		CASE 0
			CALL GENERATE_FAMILY_NAME_K
		CASE 1
			CALL GENERATE_FAMILY_NAME_J
		CASE 2
			CALL GENERATE_FAMILY_NAME
	ENDSELECT
	CSTR:対象:0 = %RESULTS:0%
	CSTR:対象:5 = %RESULTS:1%
	;名ランダム
ELSEIF 入力値 == 101
	CALL ASK_MULTI("洋名", "和名", "中華")
	LOCAL = RESULT
	IF GROUPMATCH(LOCAL, 0, 1)
		CALL ASK_MULTI("男性", "女性")
		LOCAL:1 = RESULT
	ENDIF
	SELECTCASE LOCAL
		CASE 0
			IF LOCAL:1 == 0
				CALL GENERATE_FIRST_NAME_KM
			ELSE
				CALL GENERATE_FIRST_NAME_KF
			ENDIF
		CASE 1
			IF LOCAL:1 == 0
				CALL GENERATE_FIRST_NAME_JM
			ELSE
				CALL GENERATE_FIRST_NAME_JF
			ENDIF
		CASE 2
			CALL GENERATE_FIRST_NAME
	ENDSELECT
	CSTR:対象:1 = %RESULTS:0%
	NAME:対象 = %RESULTS:0%
	CALLNAME:対象 = %RESULTS:0%
	CSTR:対象:6 = %RESULTS:1%
	;字ランダム
ELSEIF 入力値 == 201
	CALL GENERATE_MIDDLE_NAME
	CSTR:対象:2 = %RESULTS:0%
	CSTR:対象:7 = %RESULTS:1%
ELSEIF 入力値 == 999
	TALENT:対象:姓名逆転 = !TALENT:対象:姓名逆転
ENDIF


code:
@CHARACTER_EDIT_UI_OTHER(対象)
#DIM 対象

IF FLAG:周回数 > 0
	PRINTFORM 所属:
	IF CFLAG:対象:所属 == 0
		IF CFLAG:対象:特殊状態 == 特殊状態_死亡
			PRINTFORM 無所属(死亡)
		ELSEIF CFLAG:対象:特殊状態 == 特殊状態_放浪
			PRINTFORM 無所属(放浪)
		ELSE
			PRINTFORM 無所属(未登場)
		ENDIF
	ELSE
		PRINTFORM %ANAME(GET_COUNTRY_BOSS(CFLAG:対象:所属)), MAX_CHARANAME_LENGTH + 4, LEFT%
	ENDIF
	IF GET_COUNTRY_BOSS(CFLAG:対象:所属) == 対象
		SETCOLOR カラー_選択不可
		PRINTPLAIN ※君主は変更不可※
		RESETCOLOR
	ELSE
		CALL PRINTBUTTON_EX("[変更] ", 0)
		CALL PRINTBUTTON_EX("[一覧] ", 1)
	ENDIF
	PRINTL

	PRINTFORM 捕虜:
	IF CFLAG:対象:捕虜先 == 0
		PRINTFORM %"なし", MAX_CHARANAME_LENGTH + 4, LEFT%
	ELSE
		PRINTFORM %ANAME(GET_COUNTRY_BOSS(CFLAG:対象:捕虜先)), MAX_CHARANAME_LENGTH + 4, LEFT%
	ENDIF
	IF GET_COUNTRY_BOSS(CFLAG:対象:所属) == 対象
		SETCOLOR カラー_選択不可
		PRINTPLAIN ※君主は変更不可※
		RESETCOLOR
	ELSE
		CALL PRINTBUTTON_EX("[変更] ", 10)
		CALL PRINTBUTTON_EX("[一覧] ", 11)
	ENDIF
	PRINTL
	CALL COLOR_LINE
	PRINTBUTTON "[クールタイム]:", 109
	IF COOLTIME:対象:0 > 0
		PRINTFORM 残り{COOLTIME:対象:0}期
	ELSE
		PRINTFORM なし
	ENDIF
	PRINTL

	CALL COLOR_LINE
ENDIF
;特殊処理
PRINTBUTTON "[      性別]:", 100
PRINTFORML %TOSTR_SEX(TALENT:対象:GETNUM(TALENT, "性別"))%
PRINTBUTTON "[      陰毛]:", 105
PRINTFORML %GET_INMOU_NAME(TALENT:対象:陰毛現在値)%
PRINTBUTTON "[      腋毛]:", 106
PRINTFORML %GET_ARMPIT_NAME(TALENT:対象:腋毛現在値)%
PRINTBUTTON "[  タトゥー]:", 107
CALL PRINT_TATTOO(対象)
PRINTL
PRINTBUTTON "[    ピアス]:", 108
CALL PRINT_PIERCE(対象)
PRINTL
CALL COLOR_LINE
PRINTFORM タグ:
FOR LOCAL, 0, VARSIZE("TAG_NAME")
	CALL PRINT_TOGGLE_BUTTON(@"[%TAG_NAME:LOCAL%]", 1000 + LOCAL, HAS_TAG(対象, LOCAL))
NEXT
PRINTL
CALL COLOR_LINE

CALL SHOW_BODYSIZE(対象)
SIF IS_FEMALE(対象)
	PRINTFORM 乳房:%TOSTR_BUSTSIZE(GET_BUSTSIZE(対象)), 10, LEFT%
SIF HAS_PENIS(対象)
	PRINTFORM 陰茎:%TOSTR_PENISSIZE(GET_PENISSIZE(対象)), 10, LEFT%
PRINTFORML   尻:%TOSTR_HIPSIZE(GET_HIPSIZE(対象)), 10, LEFT%

IF HAS_VAGINA(対象)
	PRINTFORM 膣締:%TOSTR_TIGHTNESS(TALENT:(対象):Ｖ締まり), 10, LEFT%
ENDIF
PRINTFORM 尻締:%TOSTR_TIGHTNESS(TALENT:(対象):Ａ締まり), 10, LEFT%
PRINTL
PRINT 髪色:
CALL PRINT_HAIR_COLOR(TALENT:対象:髪色)
PRINTFORML 髪長:%TOSTR_HAIR_LENGTH(TALENT:対象:髪の長さ)%
PRINTBUTTON "[ボディ設定]", 101
IF 対象 != MASTER
	PRINTL
	CALL COLOR_LINE
	PRINTBUTTON "[全ウフフコマンドの実行回数を100に]", 102
	PRINTL
	PRINTBUTTON "[全ウフフコマンドの実行回数を0に]", 103
	PRINTL
ENDIF
PRINTBUTTON "[胃・子宮・腸内精液のクリア]", 104

IF デバッグメニュー
	PRINTL
	PRINTL
	PRINTBUTTON "[血縁設定]", 110
ENDIF

@CHARACTER_EDIT_INPUT_OTHER(対象, INPUT_VALUES)
#DIM  対象
#DIMS INPUT_VALUES
#DIM  入力値

入力値 = TOINT(INPUT_VALUES)

SELECTCASE RESULT
		;性別
	CASE 100
		LOCAL:1 = HAS_PENIS(対象)
		LOCAL:2 = IS_MALE(対象)
		TALENT:対象:性別 = ROUND_INCREMENT(TALENT:対象:性別, 0, 5)
		SIF LOCAL:2 != IS_MALE(対象)
			CALL SET_BODYSIZE(対象)
		SIF LOCAL:1 == 0 && HAS_PENIS(対象)
			CALL SET_PENISSIZE(対象)
		;胸
	CASE 101
		CALL BEAUTIFY(対象)
		;性癖
	CASE 102
		PRINTL 全てのコマンドの実行回数を100にします
		PRINTL 既に100を超えているものについては現在の値が維持されます
		PRINTL 主に性癖設定での好みLvを自由に変更するために使います
		CALL ASK_YN("実行", "キャンセル")
		IF RESULT == 0
			FOR LOCAL:0, 0, 900
				COM_EXP:対象:(LOCAL:0) = MAX(COM_EXP:対象:(LOCAL:0), 1000)
				COM_EXP:対象:(LOCAL:0 + 1000) = MAX(COM_EXP:対象:(LOCAL:0), 1000)
				COM_EXP:対象:(LOCAL:0 + 2000) = MAX(COM_EXP:対象:(LOCAL:0), 1000)
			NEXT
		ENDIF
	CASE 103
		PRINTL 全てのコマンドの実行回数を0にします
		PRINTL 主に性癖設定での好みLvを育て直すために使います
		CALL ASK_YN("実行", "キャンセル")
		IF RESULT == 0
			FOR LOCAL:0, 0, 900
				COM_EXP:対象:(LOCAL:0) = 0
				COM_EXP:対象:(LOCAL:0 + 1000) = 0
				COM_EXP:対象:(LOCAL:0 + 2000) = 0
			NEXT
		ENDIF
	CASE 104
		PRINTW 子宮・胃・腸の精液をクリアしました
		CALL CLEAR_CREAMPIE_HISTORY(対象, 1)
		;陰毛
	CASE 105
		CALL ASK_MULTI("パイパン", "つるつる", "うっすら", "柔毛", "ふんわり", "標準", "多め", "ふさふさ", "もっさり", "剛毛", "尻まで", "♥")
		TALENT:対象:陰毛現在値 = RESULT -1
		TALENT:対象:陰毛目標値 = RESULT - 1
		;腋毛
	CASE 106
		CALL ASK_MULTI("脱毛", "つるつる", "手入れ済み", "うっすら", "ふんわり", "普通", "無精", "ふさふさ", "もっさり", "剛毛", "密林")
		TALENT:対象:腋毛現在値 = RESULT -1
		TALENT:対象:腋毛目標値 = RESULT - 1
	CASE 107
		CALL TATTOO_MENU(対象, 1)
	CASE 108
		CALL PIERCE_MENU(対象, 1)
	CASE 109
		PRINTFORML クールタイムをいくらにしますか？(負の数で現状維持)
		INPUT
		IF RESULT < 0
		ELSE
			COOLTIME:対象:0 = RESULT
		ENDIF
	CASE 110
		CALL CHARACTER_EDIT_RELATION_SETTING(対象)
	CASE 1000 TO 1000 + VARSIZE("TAG_NAME")
		CALL INVERT_TAG(対象, 入力値 - 1000)
	CASE 2000 TO 2000 + VARSIZE("JOB_NAME")
		TALENT:対象:職業 = 入力値 - 2000
ENDSELECT

IF FLAG:周回数 > 0
	SELECTCASE 入力値
		CASE 0
			SIF GET_COUNTRY_BOSS(CFLAG:対象:所属) == 対象
				RETURN
			IF CFLAG:対象:所属 == 0 && CFLAG:対象:特殊状態 == 0 && !CFLAG:対象:捕虜先
				CFLAG:対象:特殊状態 = 特殊状態_放浪
			ELSEIF CFLAG:対象:所属 == 0 && CFLAG:対象:特殊状態 == 特殊状態_放浪
				CFLAG:対象:特殊状態 = 特殊状態_死亡
			ELSE
				LOCAL:1 = 0
				FOR LOCAL, CFLAG:対象:所属 + 1, MAX_COUNTRY
					SIF !IS_COUNTRY(LOCAL)
						CONTINUE
					CALL CHANGE_COUNTRY(対象, LOCAL)
					LOCAL:1 = 1
					BREAK
				NEXT
				IF LOCAL:1 == 0
					CALL CHANGE_COUNTRY(対象, 0)
					CFLAG:対象:特殊状態 = 0
				ENDIF
			ENDIF
		CASE 1
			SIF GET_COUNTRY_BOSS(CFLAG:対象:所属) == 対象
				RETURN
			FOR LOCAL, 0, MAX_COUNTRY
				SIF !IS_COUNTRY(LOCAL)
					CONTINUE
				PRINTFORML [{LOCAL, 2, RIGHT}] %ANAME(GET_COUNTRY_BOSS(LOCAL))%
			NEXT
			PRINTFORML [{MAX_COUNTRY}] 無所属(未登場)
			PRINTFORML [{MAX_COUNTRY + 1}] 無所属(放浪)
			PRINTFORML [{MAX_COUNTRY + 2}] 無所属(死亡)
			INPUT
			IF INRANGE(RESULT, 0, MAX_COUNTRY - 1)
				CALL CHANGE_COUNTRY(対象, RESULT, 0)
			ELSEIF RESULT == MAX_COUNTRY
				CALL CHANGE_COUNTRY(対象, 0, 1)
				CFLAG:対象:特殊状態 = 0
			ELSEIF RESULT == MAX_COUNTRY + 1
				CALL CHANGE_COUNTRY(対象, 0, 1)
			ELSEIF RESULT == MAX_COUNTRY + 2
				CALL CHANGE_COUNTRY(対象, 0, 1, 1)
			ENDIF
		CASE 10
			SIF GET_COUNTRY_BOSS(CFLAG:対象:所属) == 対象
				RETURN
			LOCAL:1 = 0
			FOR LOCAL:0, CFLAG:対象:捕虜先 + 1, MAX_COUNTRY
				IF IS_COUNTRY(LOCAL)
					CALL CAPTURE(対象, LOCAL)
					LOCAL:1 = 1
					BREAK
				ENDIF
			NEXT
			SIF LOCAL:1 == 0
				CALL CAPTURE(対象, 0)
		CASE 11
			SIF GET_COUNTRY_BOSS(CFLAG:対象:所属) == 対象
				RETURN
			FOR LOCAL, 0, MAX_COUNTRY
				SIF !IS_COUNTRY(LOCAL)
					CONTINUE
				PRINTFORML [{LOCAL, 2, RIGHT}] %ANAME(GET_COUNTRY_BOSS(LOCAL))%
			NEXT
			PRINTFORML [{MAX_COUNTRY}] なし
			INPUT
			IF INRANGE(RESULT, 0, MAX_COUNTRY - 1)
				CALL CAPTURE(対象, RESULT)
			ELSEIF RESULT == MAX_COUNTRY
				CALL CAPTURE(対象, 0)
			ENDIF
	ENDSELECT
ENDIF


code:
;-------------------------
;血縁設定
;-------------------------
@CHARACTER_EDIT_RELATION_SETTING(対象)
#DIM 対象
#DIM FIRST_LINE

FIRST_LINE = LINECOUNT

CHARACTER_EDIT_SELECT_CHARA = 対象

SIF CFLAG:CHARACTER_EDIT_SELECT_CHARA:父親 > 0 && CHARACTER_EDIT_FATHER_CANDIDATE == 0
CHARACTER_EDIT_FATHER_CANDIDATE = CFLAG:CHARACTER_EDIT_SELECT_CHARA:父親 + 99

SIF CFLAG:CHARACTER_EDIT_SELECT_CHARA:母親 > 0 && CHARACTER_EDIT_MOTHER_CANDIDATE == 0
CHARACTER_EDIT_MOTHER_CANDIDATE = CFLAG:CHARACTER_EDIT_SELECT_CHARA:母親 + 99

CALL SINGLE_DRAWLINE
PRINTBUTTON "[父親の設定]", 0
IF CHARACTER_EDIT_FATHER_CANDIDATE > 99
	PRINTFORML  現在:%ANAME(ID_TO_CHARA((CHARACTER_EDIT_FATHER_CANDIDATE) - 99))%
ELSE
	PRINTFORML  現在:なし
ENDIF
PRINTBUTTON "[母親の設定]", 1
IF CHARACTER_EDIT_MOTHER_CANDIDATE > 99
	PRINTFORML  現在:%ANAME(ID_TO_CHARA((CHARACTER_EDIT_MOTHER_CANDIDATE) - 99))%
ELSE
	PRINTFORML  現在:なし
ENDIF

PRINTBUTTON "[きょうだいの設定]", 2
IF CHARACTER_EDIT_BROTHER_CANDIDATE_NUM > 0
	PRINTFORM 現在:
	FOR LOCAL, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM
		SIF CHARACTER_EDIT_BROTHER_CANDIDATE:LOCAL > 0
			PRINTFORM %ANAME(ID_TO_CHARA((CHARACTER_EDIT_BROTHER_CANDIDATE:LOCAL) - 99))%
	NEXT
	PRINTFORML
ELSE
	PRINTFORML 現在:なし
ENDIF

PRINTBUTTON "[息子・娘の設定]", 3
IF CHARACTER_EDIT_CHILD_CANDIDATE_NUM > 0
	PRINTFORM 現在:
	FOR LOCAL, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM
		SIF CHARACTER_EDIT_CHILD_CANDIDATE:LOCAL > 0
			PRINTFORM %ANAME(ID_TO_CHARA((CHARACTER_EDIT_CHILD_CANDIDATE:LOCAL) - 99))%
	NEXT
	PRINTFORML
ELSE
	PRINTFORML 現在:なし
ENDIF

PRINTL
PRINTBUTTON "[設定して戻る]", 999
PRINTL
PRINTBUTTON "[キャンセル]", 9999

INPUT

IF RESULT == 0
	CALL SELECT_CHARA_LIST_ONLY_LOGIC_SLG("CHARACTER_EDIT_FATHER", "NONE")
	IF RESULT != -1
		CHARACTER_EDIT_FATHER_CANDIDATE = GET_ID(RESULT) + 99
		;排他処理
		SIF CHARACTER_EDIT_FATHER_CANDIDATE == CHARACTER_EDIT_MOTHER_CANDIDATE && !HAS_VAGINA((CHARACTER_EDIT_FATHER_CANDIDATE) - 100)
			CHARACTER_EDIT_MOTHER_CANDIDATE = 1

		LOCAL = FINDELEMENT(CHARACTER_EDIT_BROTHER_CANDIDATE, CHARACTER_EDIT_FATHER_CANDIDATE, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM)
		IF LOCAL != -1
			ARRAYSHIFT CHARACTER_EDIT_BROTHER_CANDIDATE, -1, 0, LOCAL
			CHARACTER_EDIT_BROTHER_CANDIDATE_NUM --
		ENDIF

		LOCAL = FINDELEMENT(CHARACTER_EDIT_CHILD_CANDIDATE, CHARACTER_EDIT_FATHER_CANDIDATE, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM)
		IF LOCAL != -1
			ARRAYSHIFT CHARACTER_EDIT_CHILD_CANDIDATE, -1, 0, LOCAL
			CHARACTER_EDIT_CHILD_CANDIDATE_NUM --
		ENDIF
	ELSE
		CHARACTER_EDIT_FATHER_CANDIDATE = 1
	ENDIF
ELSEIF RESULT == 1
	CALL SELECT_CHARA_LIST_ONLY_LOGIC_SLG("CHARACTER_EDIT_MOTHER", "NONE")
	IF RESULT != -1
		CHARACTER_EDIT_MOTHER_CANDIDATE = GET_ID(RESULT) + 99
		;排他処理
		SIF CHARACTER_EDIT_MOTHER_CANDIDATE == CHARACTER_EDIT_FATHER_CANDIDATE && !HAS_PENIS((CHARACTER_EDIT_FATHER_CANDIDATE) - 100)
			CHARACTER_EDIT_FATHER_CANDIDATE = 1

		LOCAL = FINDELEMENT(CHARACTER_EDIT_BROTHER_CANDIDATE, CHARACTER_EDIT_MOTHER_CANDIDATE, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM)
		IF LOCAL != -1
			ARRAYSHIFT CHARACTER_EDIT_BROTHER_CANDIDATE, -1, 0, LOCAL
			CHARACTER_EDIT_BROTHER_CANDIDATE_NUM --
		ENDIF

		LOCAL = FINDELEMENT(CHARACTER_EDIT_CHILD_CANDIDATE, CHARACTER_EDIT_MOTHER_CANDIDATE, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM)
		IF LOCAL != -1
			ARRAYSHIFT CHARACTER_EDIT_CHILD_CANDIDATE, -1, 0, LOCAL
			CHARACTER_EDIT_CHILD_CANDIDATE_NUM --
		ENDIF
	ELSE
		CHARACTER_EDIT_MOTHER_CANDIDATE = 1
	ENDIF
ELSEIF RESULT == 2
	CALL SELECT_CHARA_LIST_MULTI_ONLY_LOGIC_SLG(CHARACTER_EDIT_CANDIDATE_MAX, "CHARACTER_EDIT_BROTHER", "NONE")
	FOR LOCAL, 0, SELECTED_CHARA_NUM
		CHARACTER_EDIT_BROTHER_CANDIDATE:LOCAL = GET_ID(SELECTED_CHARA:LOCAL) + 99
	NEXT
	CHARACTER_EDIT_BROTHER_CANDIDATE_NUM = SELECTED_CHARA_NUM

	;排他処理
	SIF FINDELEMENT(CHARACTER_EDIT_BROTHER_CANDIDATE, CHARACTER_EDIT_FATHER_CANDIDATE, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM) != -1
		CHARACTER_EDIT_FATHER_CANDIDATE = 1

	SIF FINDELEMENT(CHARACTER_EDIT_BROTHER_CANDIDATE, CHARACTER_EDIT_MOTHER_CANDIDATE, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM) != -1
		CHARACTER_EDIT_MOTHER_CANDIDATE = 1

	FOR LOCAL, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM
		LOCAL:1 = CHARACTER_EDIT_BROTHER_CANDIDATE:LOCAL
		LOCAL:2 = FINDELEMENT(CHARACTER_EDIT_CHILD_CANDIDATE, LOCAL:1, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM)

		IF LOCAL:2 != -1
			ARRAYSHIFT CHARACTER_EDIT_CHILD_CANDIDATE, -1, 0, LOCAL:2
			CHARACTER_EDIT_CHILD_CANDIDATE_NUM --
		ENDIF
	NEXT

ELSEIF RESULT == 3
	CALL SELECT_CHARA_LIST_MULTI_ONLY_LOGIC_SLG(CHARACTER_EDIT_CANDIDATE_MAX, "CHARACTER_EDIT_CHILD", "NONE")
	FOR LOCAL, 0, SELECTED_CHARA_NUM
		LOCAL:1 = SELECTED_CHARA:LOCAL
		CHARACTER_EDIT_CHILD_CANDIDATE:LOCAL = GET_ID(LOCAL:1) + 99
	NEXT
	CHARACTER_EDIT_CHILD_CANDIDATE_NUM = SELECTED_CHARA_NUM

	;排他処理
	SIF FINDELEMENT(CHARACTER_EDIT_CHILD_CANDIDATE, CHARACTER_EDIT_FATHER_CANDIDATE, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM) != -1
		CHARACTER_EDIT_FATHER_CANDIDATE = 1

	SIF FINDELEMENT(CHARACTER_EDIT_CHILD_CANDIDATE, CHARACTER_EDIT_MOTHER_CANDIDATE, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM) != -1
		CHARACTER_EDIT_MOTHER_CANDIDATE = 1

	FOR LOCAL, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM
		LOCAL:1 = CHARACTER_EDIT_CHILD_CANDIDATE:LOCAL
		LOCAL:2 = FINDELEMENT(CHARACTER_EDIT_BROTHER_CANDIDATE, LOCAL:1, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM)

		IF LOCAL:2 != -1
			ARRAYSHIFT CHARACTER_EDIT_BROTHER_CANDIDATE, -1, 0, LOCAL:2
			CHARACTER_EDIT_BROTHER_CANDIDATE_NUM --
		ENDIF
	NEXT

ELSEIF RESULT == 999 || 9999
	SIF RESULT == 999
		CALL CHARACTER_EDIT_RELATION_CONFIRM
	CHARACTER_EDIT_FATHER_CANDIDATE = 0
	CHARACTER_EDIT_MOTHER_CANDIDATE = 0
	CHARACTER_EDIT_BROTHER_CANDIDATE_NUM = 0
	CHARACTER_EDIT_CHILD_CANDIDATE_NUM = 0
	RETURN 0
ENDIF

CLEARLINE LINECOUNT - FIRST_LINE
RESTART

@SELECT_CHARA_LIST_SHOW_LOGIC_CHARACTER_EDIT_FATHER(対象)
#DIM 対象
RETURN HAS_PENIS(対象) && 対象 != CHARACTER_EDIT_SELECT_CHARA

@SELECT_CHARA_LIST_SHOW_LOGIC_CHARACTER_EDIT_MOTHER(対象)
#DIM 対象
RETURN HAS_VAGINA(対象) && 対象 != CHARACTER_EDIT_SELECT_CHARA

@SELECT_CHARA_LIST_SHOW_LOGIC_CHARACTER_EDIT_BROTHER(対象)
#DIM 対象
RETURN 対象 != CHARACTER_EDIT_SELECT_CHARA

@SELECT_CHARA_LIST_SHOW_LOGIC_CHARACTER_EDIT_CHILD(対象)
#DIM 対象
RETURN 対象 != CHARACTER_EDIT_SELECT_CHARA

@CHARACTER_EDIT_RELATION_CONFIRM(対象)
#DIM 対象
#DIM 候補, MAX_CHARA_NUM
#DIM 候補数
#DIM 父候補
#DIM 母候補
VARSET 候補, -1
VARSET 候補数, 0

対象 = CHARACTER_EDIT_SELECT_CHARA

IF CHARACTER_EDIT_FATHER_CANDIDATE > 99
	父候補 = ID_TO_CHARA((CHARACTER_EDIT_FATHER_CANDIDATE) - 99)
	CFLAG:CHARACTER_EDIT_SELECT_CHARA:父親 = GET_ID(父候補)
ELSEIF CHARACTER_EDIT_FATHER_CANDIDATE >= 0
	父候補 = -1
	CFLAG:CHARACTER_EDIT_SELECT_CHARA:父親 = 0
ENDIF

IF CHARACTER_EDIT_MOTHER_CANDIDATE > 99
	母候補 = ID_TO_CHARA((CHARACTER_EDIT_MOTHER_CANDIDATE) - 99)
	CFLAG:CHARACTER_EDIT_SELECT_CHARA:母親 = GET_ID(母候補)
ELSEIF CHARACTER_EDIT_MOTHER_CANDIDATE >= 0
	母候補 = -1
	CFLAG:CHARACTER_EDIT_SELECT_CHARA:母親 = 0
ENDIF

IF 父候補 >= 0
	CALL VIRGINIZE_LOST(父候補, 初体験_童貞, 母候補 >= 0 ? ANAME(母候補) + "の膣" # "不明")
	IF CFLAG:CHARACTER_EDIT_SELECT_CHARA:父親 != 父候補
		EXP:父候補:Ｖ挿入経験 += 5
	ENDIF
ENDIF

IF 母候補 >= 0
	CALL VIRGINIZE_LOST(母候補, 初体験_処女, 父候補 >= 0 ? ANAME(父候補) # "不明")
	IF CFLAG:CHARACTER_EDIT_SELECT_CHARA:母親 != 母候補
		EXP:母候補:Ｖ性交経験 += 5
		EXP:母候補:膣内射精経験 += 5
		EXP:母候補:出産経験 += 1
	ENDIF
ENDIF

IF CHARACTER_EDIT_BROTHER_CANDIDATE_NUM > 0
	;きょうだい候補のきょうだいも、きょうだいとして追加する
	FOR LOCAL, 0, CHARACTER_EDIT_BROTHER_CANDIDATE_NUM
		LOCAL:1 = ID_TO_CHARA((CHARACTER_EDIT_BROTHER_CANDIDATE:LOCAL) - 99)
		IF LOCAL:1 >= 0
			候補:候補数 = LOCAL:1
			候補数 ++
			FOR LOCAL:2, 0, CHARANUM
				IF IS_PURE_BROTHER(LOCAL:1, LOCAL:2) && FINDELEMENT(候補, LOCAL:2, 0, 候補数) == -1
					候補:候補数 = LOCAL:2
					候補数 ++
				ENDIF
			NEXT
		ENDIF
	NEXT

	IF 父候補 < 0 && 母候補 < 0
		FOR LOCAL, 0, SPERM_MAX_ADDRESS
			IF SPERM_NAME_ARRAY:LOCAL == ""
				LOCAL:2 = LOCAL
				LOCAL --
				BREAK
			ENDIF
		NEXT
		SIF LOCAL == SPERM_MAX_ADDRESS
			THROW SPERM_NAME_ARRAYがいっぱいです

		SPERM_NAME_ARRAY:(LOCAL:2) = 不明
		BROTHER_SPERM_FLAG:(LOCAL:2) = 1
	ENDIF

	FOR LOCAL, 0, 候補数
		CFLAG:(候補:LOCAL):父親 = 父候補 >= 0 ? GET_ID(父候補) # LOCAL:2 * -1
		CFLAG:(候補:LOCAL):母親 = 母候補 >= 0 ? GET_ID(母候補) # LOCAL:2 * -1
	NEXT
	CFLAG:対象:父親 = 父候補 >= 0 ? GET_ID(父候補) # LOCAL:2 * -1
	CFLAG:対象:母親 = 母候補 >= 0 ? GET_ID(母候補) # LOCAL:2 * -1
	VARSET 候補
	VARSET 候補数
ENDIF

IF CHARACTER_EDIT_CHILD_CANDIDATE_NUM > 0
	;子供候補の子供も、子供候補として追加する
	FOR LOCAL, 0, CHARACTER_EDIT_CHILD_CANDIDATE_NUM
		LOCAL:1 = ID_TO_CHARA((CHARACTER_EDIT_CHILD_CANDIDATE:LOCAL) - 99)
		IF LOCAL:1 >= 0
			候補:候補数 = LOCAL:1
			候補数 ++
			FOR LOCAL:2, 0, CHARANUM
				IF IS_PURE_BROTHER(LOCAL:1, LOCAL:2) && FINDELEMENT(候補, LOCAL:2, 0, 候補数)
					候補:候補数 = LOCAL:2
					候補数 ++
				ENDIF
			NEXT
		ENDIF
	NEXT

	FOR LOCAL, 0, SPERM_MAX_ADDRESS
		IF SPERM_NAME_ARRAY:LOCAL == ""
			LOCAL:2 = LOCAL
			LOCAL --
			BREAK
		ENDIF
	NEXT
	SIF LOCAL == SPERM_MAX_ADDRESS
		THROW SPERM_NAME_ARRAYがいっぱいです

	SPERM_NAME_ARRAY:(LOCAL:2) = 不明
	BROTHER_SPERM_FLAG:(LOCAL:2) = 1

	FOR LOCAL, 0, 候補数
		IF IS_MALE(CHARACTER_EDIT_SELECT_CHARA)
			CFLAG:(候補:LOCAL):父親 = GET_ID(CHARACTER_EDIT_SELECT_CHARA)
			CFLAG:(候補:LOCAL):母親 = LOCAL:2 * -1
			CALL VIRGINIZE_LOST(CHARACTER_EDIT_SELECT_CHARA, 初体験_童貞, "不明")
			EXP:CHARACTER_EDIT_SELECT_CHARA:Ｖ挿入経験 += 5

		ELSE
			CFLAG:(候補:LOCAL):父親 = LOCAL:2 * -1
			CFLAG:(候補:LOCAL):母親 = GET_ID(CHARACTER_EDIT_SELECT_CHARA)
			CALL VIRGINIZE_LOST(CHARACTER_EDIT_SELECT_CHARA, 初体験_処女, "不明")
			EXP:CHARACTER_EDIT_SELECT_CHARA:Ｖ性交経験 += 5
			EXP:CHARACTER_EDIT_SELECT_CHARA:膣内射精経験 += 5
			EXP:CHARACTER_EDIT_SELECT_CHARA:出産経験 += 1
		ENDIF
	NEXT
	VARSET 候補
	VARSET 候補数
ENDIF


code:
#DIM デバッグメニュー

#DIM CONST CHARACTER_EDIT_CANDIDATE_MAX = 10

#DIM CHARACTER_EDIT_SELECT_CHARA

#DIM CHARACTER_EDIT_FATHER_CANDIDATE
#DIM CHARACTER_EDIT_MOTHER_CANDIDATE

#DIM CHARACTER_EDIT_BROTHER_CANDIDATE_NUM
#DIM CHARACTER_EDIT_BROTHER_CANDIDATE, CHARACTER_EDIT_CANDIDATE_MAX

#DIM CHARACTER_EDIT_CHILD_CANDIDATE_NUM
#DIM CHARACTER_EDIT_CHILD_CANDIDATE, CHARACTER_EDIT_CANDIDATE_MAX


code:
@CHARACTER_EDIT_UI_TALENT(対象)
#DIM 対象
LOCAL:1 = 0
FOR LOCAL, 0, 300
	SIF CHARACTER_EDIT_IGNORE_TALENT(LOCAL)
		CONTINUE
	SIF TALENTNAME:LOCAL == ""
		CONTINUE
	CALL PRINT_TOGGLE_BUTTON(@"%"[" + TALENTNAME:(LOCAL) + "]" , 14, LEFT%", LOCAL, TALENT:対象:LOCAL == 1)
	PRINT
	LOCAL:1 ++

	SIF LOCAL:1 != 0 && LOCAL:1 % 6 == 0
		PRINTL
NEXT
PRINTL

CALL COLOR_LINE
PRINTBUTTON "[成長型]:", GETNUM(TALENT, "成長型")
PRINTFORML %TOSTR_GROWTYPE(TALENT:対象:GETNUM(TALENT, "成長型"))%
CALL PRINT_TOGGLE_BUTTON("[チョロイン]", GETNUM(TALENT, "チョロイン"), TALENT:対象:チョロイン)
PRINTL
PRINTBUTTON "[危険日]:", GETNUM(TALENT, "危険日")
PRINTFORML %TOFULL(TOSTR(TALENT:対象:危険日))%, %TOFULL(TOSTR(TALENT:対象:危険日 + 5))%
CALL PRINT_TOGGLE_BUTTON("[キス]", GETNUM(TALENT, "キス未経験"), TALENT:対象:キス未経験)
CALL PRINT_TOGGLE_BUTTON("[処女]", GETNUM(TALENT, "処女"), TALENT:対象:処女)
CALL PRINT_TOGGLE_BUTTON("[アナル処女]", GETNUM(TALENT, "アナル処女"), TALENT:対象:アナル処女)
CALL PRINT_TOGGLE_BUTTON("[童貞]", GETNUM(TALENT, "童貞"), TALENT:対象:童貞)
PRINTL

@CHARACTER_EDIT_INPUT_TALENT(対象, INPUT_VALUES)
#DIM  対象
#DIMS INPUT_VALUES
#DIM  入力値

入力値 = TOINT(INPUT_VALUES)

;ガード節
SIF (CHARACTER_EDIT_IGNORE_TALENT(入力値) && !GROUPMATCH(入力値, GETNUM(TALENT, "処女"), GETNUM(TALENT, "アナル処女"), GETNUM(TALENT, "キス未経験"), GETNUM(TALENT, "童貞"), GETNUM(TALENT, "危険日"))) || TALENTNAME:入力値 == ""
	RETURN 0

IF 入力値 == GETNUM(TALENT, "成長型")
	TALENT:対象:入力値 = ROUND_INCREMENT(TALENT:対象:入力値, 0, 11)
ELSEIF 入力値 == GETNUM(TALENT, "危険日")
	PRINTL 0～4で入力
	INPUT
	TALENT:対象:危険日 = LIMIT(RESULT, 0, 4)
ELSEIF 入力値 == GETNUM(TALENT, "チョロイン")
	TALENT:対象:入力値 = !TALENT:対象:入力値
ELSEIF GROUPMATCH(入力値, GETNUM(TALENT, "処女"), GETNUM(TALENT, "アナル処女"), GETNUM(TALENT, "キス未経験"), GETNUM(TALENT, "童貞"))
	TALENT:対象:入力値 = !TALENT:対象:入力値
	SELECTCASE 入力値
		CASE GETNUM(TALENT, "処女")
			IF TALENT:対象:処女
				CALL VIRGINIZE(対象, 初体験_処女)
			ELSE
				CALL VIRGINIZE_LOST(対象, 初体験_処女)
			ENDIF
		CASE GETNUM(TALENT, "アナル処女")
			IF TALENT:対象:アナル処女
				CALL VIRGINIZE(対象, 初体験_アナル処女)
			ELSE
				CALL VIRGINIZE_LOST(対象, 初体験_アナル処女)
			ENDIF
		CASE GETNUM(TALENT, "キス未経験")
			IF TALENT:対象:キス未経験
				CALL VIRGINIZE(対象, 初体験_キス)
			ELSE
				CALL VIRGINIZE_LOST(対象, 初体験_キス)
			ENDIF
		CASE GETNUM(TALENT, "童貞")
			IF TALENT:対象:童貞
				CALL VIRGINIZE(対象, 初体験_童貞)
			ELSE
				CALL VIRGINIZE_LOST(対象, 初体験_童貞)
			ENDIF
	ENDSELECT
ELSEIF INRANGE(入力値, 0, 299) && 入力値 != GETNUM(TALENT, "性別")
	TALENT:対象:入力値 = !TALENT:対象:入力値
ENDIF

; SIF !TALENT:対象:魔術師
; 	ABL:対象:魔術 = 0

SIF !TALENT:対象:母乳体質
	CFLAG:対象:一時的母乳体質 = 0

@CHARACTER_EDIT_IGNORE_TALENT(ARG:0)
#FUNCTION
{
	RETURNF GROUPMATCH(ARG:0, GETNUM(TALENT, "性別"), GETNUM(TALENT, "処女"), GETNUM(TALENT, "アナル処女"), GETNUM(TALENT, "キス未経験"), GETNUM(TALENT, "童貞"), GETNUM(TALENT, "恋慕"), GETNUM(TALENT, "親愛"), GETNUM(TALENT, "恋人"), GETNUM(TALENT, "服従"), GETNUM(TALENT, "隷属"), GETNUM(TALENT, "烙印"), GETNUM(TALENT, "親友"), GETNUM(TALENT,"主人"), GETNUM(TALENT,"所有者"),
		GETNUM(TALENT, "崩壊"), GETNUM(TALENT, "虚ろ"), GETNUM(TALENT, "正妻"), GETNUM(TALENT, "妾"), GETNUM(TALENT, "妊娠"), GETNUM(TALENT, "育児中"), GETNUM(TALENT, "幼児"),
		GETNUM(TALENT, "触手妊娠"), GETNUM(TALENT, "Ａ触手妊娠"), GETNUM(TALENT, "Ｕ触手妊娠"), GETNUM(TALENT, "子供人質"), GETNUM(TALENT, "母性"), GETNUM(TALENT, "危険日"), GETNUM(TALENT, "合意"))
}


code:
;---------------------------------------
;カスタムキャラ用メニュー
;---------------------------------------
@CUSTOM_CHARA_MENU
#DIM 対象
#DIM FIRST_LINE
#DIM ページ
LOADGLOBAL

;XMLドキュメント読み込み
CALL SKILL_XML_LOAD
;ランダムキャラの名前候補リストを作成
CALL CREATE_NAME_LIST
;ランク閾値の生成
CALL INIT_RANK
;能力値の最大最小の設定
CALL SET_ABL_MIN_MAX
;タトゥーのランダム入力内容リストを作成
CALL CREATE_TATTOO_LIST

;全ての東方キャラと「あなた」を作成する
FOR LOCAL:0, 0, MAX_FIXED_CHARA
	;CSVファイルの存在判定
	SIF EXISTCSV(LOCAL:0)
		CALL ADD_CHARA_FROM_CSV(LOCAL:0)
NEXT

VARSET HAVE_CLOTH, 1

$END_INIT
FIRST_LINE = LINECOUNT

CALL SINGLE_DRAWLINE
PRINTFORML カスタムキャラ管理画面
CALL SINGLE_DRAWLINE

CALL LISTUP_CUSTOM_CHARACTER(0, ページ, 20)
CALL SINGLE_DRAWLINE
PRINTBUTTON "[終了]", 10000

INPUT

IF RESULT == 10000
	DELALLCHARA
	RETURN
ELSEIF RESULT == MAX_CUSTOM_CHARA
	ページ = ROUND_DECREMENT(ページ, 0, MAX_CUSTOM_CHARA / 20)
ELSEIF RESULT == MAX_CUSTOM_CHARA + 1
	ページ = ROUND_INCREMENT(ページ, 0, MAX_CUSTOM_CHARA / 20)
ELSEIF INRANGE(RESULT, 0, MAX_CUSTOM_CHARA)
	LOCAL = RESULT
	IF FIND_CHARADATA(TOSTR(LOCAL))
		CALL LOAD_CUSTOM_DATA(LOCAL)
		CALL EDIT_CUSTOM_DATA(LOCAL, RESULT)
	ELSE
		CALL INIT_CUSTOM_DATA()
		CALL EDIT_CUSTOM_DATA(LOCAL, RESULT)
	ENDIF
ENDIF
CLEARLINE FIRST_LINE - LINECOUNT
GOTO END_INIT

;---------------------------------------
;カスタムキャラのリストアップ
;---------------------------------------
@LISTUP_CUSTOM_CHARACTER(番号 = 0, ページ = 0, 最大数 = 20)
#DIM 番号
#DIM ページ
#DIM 最大数
FOR LOCAL, ページ * 最大数, MIN(ページ * 最大数 + 最大数, MAX_CUSTOM_CHARA)
	IF FIND_CHARADATA(TOSTR(LOCAL))
		CHKCHARADATA RESULTS:0
		PRINTBUTTON @"[%RESULTS:0%]", LOCAL + 番号
	ELSE
		PRINTBUTTON "[CREATE NEW]", LOCAL + 番号
	ENDIF
	PRINTL
NEXT
PRINTL
PRINTBUTTON "[NEXT]", 番号 + MAX_CUSTOM_CHARA
PRINTFORM {ページ + 1}/{MAX_CUSTOM_CHARA / 最大数 + 1}
PRINTBUTTON "[PREV]", 番号 + MAX_CUSTOM_CHARA + 1
PRINTL

;---------------------------------------
;カスタムキャラのリストアップ（選択式）
;---------------------------------------
@LISTUP_SELECTED_CUSTOM_CHARACTER(番号 = 0, ページ = 0, 最大数 = 20, 選択済み一覧, CAN_EDIT = 0)
#DIM 番号
#DIM ページ
#DIM 最大数
#DIM REF 選択済み一覧
#DIM CAN_EDIT
#DIM CONST EDIT_BTN_ID = 100000

FOR LOCAL, ページ * 最大数, MIN(ページ * 最大数 + 最大数, MAX_CUSTOM_CHARA)
	IF FIND_CHARADATA(TOSTR(LOCAL))
		CHKCHARADATA RESULTS:0
		SIF 選択済み一覧:LOCAL
			SETCOLOR カラー_選択中
		LOCALS '= @"[%RESULTS%]"
		PRINTBUTTON @"%LOCALS, 18, LEFT%", LOCAL + 番号
		RESETCOLOR
		IF CAN_EDIT
			PRINTBUTTON @"[EDIT]", LOCAL + 番号 + EDIT_BTN_ID
		ENDIF
	ELSE
		PRINTBUTTON "[新規作成]", LOCAL + 番号
	ENDIF
	PRINTL
NEXT
PRINTL
PRINTBUTTON "[NEXT]", 番号 + MAX_CUSTOM_CHARA
PRINTFORM {ページ + 1}/{MAX_CUSTOM_CHARA / 最大数 + 1}
PRINTBUTTON "[PREV]", 番号 + MAX_CUSTOM_CHARA + 1
PRINTL


code: #DIM CONST MAX_CUSTOM_CHARA = 1000


code:
;-----------------------
;カスタムキャラの初期化処理
;-----------------------
@INIT_CUSTOM_DATA()
#DIM 対象
CALL ADD_VOID_CHARA()
対象 = RESULT
CFLAG:対象:キャラＩＤ = 0
FLAG:IDカウント用変数 --
NAME:対象 = カスタム太郎
CALLNAME:対象 = カスタム太郎
CSTR:対象:1 = カスタム太郎
CSTR:対象:3 = カスタムタロウ
CSTR:対象:4 = カスタムタロウ
CSTR:対象:6 = カスタムタロウ
MAXBASE:対象:体力 = 1500
MAXBASE:対象:気力 = 1500
MAXBASE:対象:精神力 = 1500
BASE:対象:体力 = MAXBASE:対象:体力
BASE:対象:気力 = MAXBASE:対象:気力
BASE:対象:精神力 = MAXBASE:対象:精神力
TALENT:対象:髪の長さ = 0
TALENT:対象:髪色 = 1
TALENT:対象:Ｖ締まり = 締まり_普通 + 50
TALENT:対象:Ａ締まり = 締まり_普通 + 50
CFLAG:対象:口上カラーコード = カラー_白
RETURN 対象

;-----------------------
;カスタムキャラのセーブ処理
;IDが存在しないキャラはINIT_CUSTOM_DATAで作成したものと考え保存して削除する
;IDが存在するキャラは既存のキャラを突っ込んだものと考えコピーを作り保存、そのコピーを削除
;-----------------------
@SAVE_CUSTOM_DATA(番号, 対象)
#DIM 番号
#DIM 対象

LOCAL = NO:対象
NO:対象 = __INT_MIN__
TALENT:対象:カスタムキャラバージョン = GAMEBASE_VERSION
SAVECHARA TOSTR_CUSTOM_FILENAME(番号, ANAME(対象)), ANAME(対象), 対象
TALENT:対象:カスタムキャラバージョン = 0
NO:対象 = LOCAL

;-----------------------
;カスタムキャラのロード処理
;-----------------------
@LOAD_CUSTOM_DATA(番号)
#DIM 番号
#DIM 対象
FIND_CHARADATA TOSTR(番号)
SIF RESULT == 0
	THROW 指定した番号のキャラデータは存在しません
LOADCHARA RESULTS
対象 = CHARANUM - 1
NO:対象 = GET_EMPTY_NO()
FLAG:IDカウント用変数 ++
CFLAG:対象:キャラＩＤ = FLAG:IDカウント用変数
FOR LOCAL, 0, PREGNANT_RECORD_MAX
	PREGNANT_RECORD_FATHER:対象:LOCAL = 0
	PREGNANT_RECORD_TIMES:対象:LOCAL = 0
NEXT
TALENT:対象:奴隷市場モブ = 0
TALENT:対象:妊娠 = 0
CSTR:対象:99 =
FOR LOCAL, 0, VARSIZE("CFLAG")
	SIF GROUPMATCH(LOCAL, GETNUM(CFLAG, "キャラＩＤ"), GETNUM(CFLAG, "面識"), GETNUM(CFLAG, "好感度"), GETNUM(CFLAG, "従属度"), GETNUM(CFLAG, "支配度"), GETNUM(CFLAG, "依存度"))
		CONTINUE
	SIF GROUPMATCH(LOCAL, GETNUM(CFLAG, "ポートレイト画像タイプ"), GETNUM(CFLAG, "汎用口上パターン"), GETNUM(CFLAG, "口上カラーコード"))
		CONTINUE
	CFLAG:対象:LOCAL = 0
NEXT

;CALL CUSTOM_DATA_VERSIONUP(対象)

TALENT:対象:カスタムキャラ = 1
TALENT:対象:カスタムキャラバージョン = 0

RETURN 対象

;-----------------------
;カスタムキャラ編集のラッパ
;-----------------------
@EDIT_CUSTOM_DATA(番号, 対象)
#DIM 番号
#DIM 対象
#DIM FIRST_LINE

FIRST_LINE = LINECOUNT

$EDIT_LOOP
VARSET HAVE_CLOTH, 1
CALL CHARACTER_EDIT(対象)

CALL SINGLE_DRAWLINE
PRINTFORML 編集を確定しますか？
CALL ASK_MULTI("確定する", "変更を破棄する", "まだ弄る")

IF RESULT == 1
	VARSET HAVE_CLOTH
	CALL DELETE_CHARA(対象)
	RETURN 0
ELSEIF RESULT == 2
	CLEARLINE LINECOUNT - FIRST_LINE
	GOTO EDIT_LOOP
ENDIF

VARSET HAVE_CLOTH
CALL SAVE_CUSTOM_DATA(番号, 対象)
RETURN 1

;-----------------------
;カスタムキャラ用のファイル名を取得（セーブ時用）
;-----------------------
@TOSTR_CUSTOM_FILENAME(番号, キャラ名)
#FUNCTIONS
#DIM 番号
#DIMS キャラ名

RETURNF TOSTR(番号);

;-----------------------
;古いカスタムキャラのデータファイルを読み込んだ場合の処理
;-----------------------
@CUSTOM_DATA_VERSIONUP(対象)
#DIM 対象
IF TALENT:対象:カスタムキャラバージョン < GET_VERSION_VALUE("1.7.0")
	CALL SET_BODYSIZE(対象)
	SELECTCASE TALENT:対象:髪の長さ
		CASE IS < 2
			TALENT:対象:髪の長さ = 0
		CASE IS < 25
			TALENT:対象:髪の長さ = 1
		CASE IS < 175
			TALENT:対象:髪の長さ = 2
		CASE IS < 275
			TALENT:対象:髪の長さ = 3
		CASE IS < 475
			TALENT:対象:髪の長さ = 4
		CASE IS < 675
			TALENT:対象:髪の長さ = 5
		CASEELSE
			TALENT:対象:髪の長さ = 6
	ENDSELECT
ENDIF

IF TALENT:対象:カスタムキャラバージョン < GET_VERSION_VALUE("1.20.0")
	CALL COLOR_PRINTL("1.20.0より古いバージョンでセーブされたカスタムキャラのため、スキルのリセットを行いました", カラー_注意)
	FOR LOCAL, 0, SKILL_GENRE_NUM
		FOR LOCAL:1, 0, MAX_SKILL_SLOT
			SKILL_NO_SLOT:対象:(LOCAL):(LOCAL:1) = -1
			SKILL_ID_SLOT:対象:(LOCAL):(LOCAL:1) = -1
		NEXT
	NEXT
ENDIF

RETURN