| 作業用に無人というパイロットをデータに用意し、
以下のｅｖｅをインターミッションコマンドとして読み込んで下さい。
プロローグ:
９９段階改造メニュー:
If 資金 < 200000 Then
Talk
資金不足です。
End
Continue
Endif
Ask ("９９段階改造メニュー 残り資金" & 資金)
９９段階改造ユニット選択画面へ
９９段階改造を終了する(改造の確認は普通の機体改造画面でお願いします)
End
If 選択 = 1 Then
Goto ９９段階改造ユニット選択
Endif
If 選択 = 2 Then
If IsDefined(無人) = 1 Then
RemovePilot 無人
Endif
Continue
Endif
９９段階改造ユニット選択:
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 ９９段階改造メニュー
Endif
|
新着情報