| 自分で作った方が楽しいかと思いますが、 私の作ったやつも良かったら参考にして下さい。
無人という作業用パイロットをデータに作成して、 以下のコードのeveをインターミッションコマンドとして 読み込んで下さい。
プロローグ:
99段階改造メニュー: If 資金 < 200000 Then Talk 資金不足です。 End Continue Endif Ask ("99段階改造メニュー 残り資金" & 資金) 99段階改造ユニット選択画面へ 99段階改造を終了する(改造の確認は普通の機体改造画面でお願いします) End If 選択 = 1 Then Goto 99段階改造ユニット選択 Endif If 選択 = 2 Then If IsDefined(無人) = 1 Then RemovePilot 無人 Endif Continue Endif
99段階改造ユニット選択: If IsDefined(無人) = 0 Then Pilot 無人 1 Endif i = 0 ForEach 味方 待機 If Pilot() = "" Then Ride 無人 Endif If Rank(Pilot()) > 9 Then Incr i PrevX[i] = Pilot() Endif Next j = 0 Goto ユニット選択メニュー
ユニット選択メニュー: If 資金 < 200000 Then Talk 資金不足です。 End Continue Endif Ask ("改造可能ユニットを順次表示します 残り資金" & 資金) 次へ もどる End If 選択 = 1 Then Do While (j < i) Incr j If Rank(PrevX[j]) > 9 Then Talk システム $(Unit(PrevX[j]))(ランク$(Rank(PrevX[j])))を改造しますか? End Ask ("残り資金" & 資金) いいえ はい End If 選択 = 1 Then Goto ユニット選択メニュー Endif If 選択 = 2 Then If 資金 < 200000 Then Talk 資金不足です。 End Continue Endif RankUp Unit(PrevX[j]) 1 Money -200000 Endif Endif Loop Goto ユニット選択メニュー Endif If 選択 = 2 Then Goto 99段階改造メニュー Endif
|