| 中箱様 ご返信ありがとうございます。
中箱様の仰っていた通り、配列を作成していないのが原因でした。 下記のように書き換えた所、正常に動作しました。
↓↓
Local 男性数 ForEach 味方 待機 if 対象パイロット = 主人公 Then Skip Endif if Info(パイロット,対象パイロット,性別) = 女性 Then Skip Else 男性数[対象ユニット] = Pilot() Endif Next
Ask 男性数 夫を選んで下さい。 拡大 Switch 選択 Case "" Case Else Set おっと 選択 ShowUnitStatus おっと talk システム $(おっと)を選択しました。 end endsw
Local 女性数 ForEach 味方 待機 if Info(パイロット,対象パイロット,性別) = 男性 Then Skip Else 女性数[対象ユニット] = Pilot() Endif Next
Ask 女性数 妻を選んで下さい。 拡大 Switch 選択 Case "" Case Else Set つま 選択 ShowUnitStatus つま talk システム $(つま)を選択しました。 end endsw
talk システム $(おっと)と$(つま)をつがいにしますか? end
〜ここから別のインクル〜
↑↑
の、上記の記述で正常に動作いたしました!!!
中箱様、ありがとうございました。
|