エンディングリスト

　
○下準備１
　
endlist.txtというファイルを用意して、その中に

エンディング１　？？？
エンディング２　？？？
エンディング３　？？？
エンディング４　？？？

と書いておく。
　
　
○下準備２
　
シナリオまたはインクルードファイルに以下の関数を追加する。

エンディング追加:
Local F
Open endlist.txt For 入力 As F
LineRead F ending[1]
LineRead F ending[2]
LineRead F ending[3]
LineRead F ending[4]
Close F
Open endlist.txt For 出力 As F
for i = 1 to 4
　if args(1) <> i then
　　Print F ending[i]
　else
　　switch i
　　case 1
　　　Print F "エンディング１　「無謀」"
　　case 2
　　　Print F "エンディング２　「犠牲を無駄に」"
　　case 3
　　　Print F "エンディング３　「眼前にあった希望」"
　　case 4
　　　Print F "エンディング４　「神の気まぐれ」"
　　endsw
　endif
　next
Close F
return

　
　
○使い方
　
シナリオで

Call エンディング追加 2

という処理をすると、endlist.txtの中身が

エンディング１　？？？
エンディング２　「犠牲を無駄に」
エンディング３　？？？
エンディング４　？？？

になる。
　
　
…正直、ヘルプ見れば誰でも作れるレベルのインクルなんだけど
せっかく作ったので晒しておきます。