| 現在、第２次スパロボαのようなパイロットに特殊技能を習得させるインクルードを作っています。
プロローグ:
UnSet メンバーリスト
ForEach 味方 待機
Set メンバーリスト[i] 対象ユニット
Incr i
Next
Exit
スタート:
UnSet 選択メンバー
Talk システム
ここでは、PP値を使って、パイロットの能力をアップすることができます
現在のＰＰ値は$(ＰＰ値)です
End
Ask 能力付加を選択してください。 キャンセル可
格闘 20
射撃 20
命中 20
回避 20
技量 20
反応 25
底力 60
不屈 60
闘争本能 60
集中力 60
ＳＰ高成長 80
逆切れ 80
資金獲得 100
ＳＰ回復 100
超反応強化 130
援護攻撃 150
援護防御 150
End
Switch 選択
Case 1
GoTo 格闘強化
（略）
Case 15
GoTo 援護防御付加
Case Else
Continue
EndSw
Exit
格闘強化:
Do
Ask メンバーリスト パイロット選択 キャンセル可
選択メンバー = メンバーリスト[選択]
If メンバーリスト[選択] = "" Then
FadeOut 10
ClearPicture
ClearObj
GoTo スタート
EndIf
Confirm このパイロットでよろしいですか？
Loop While (選択 = 0)
If ＰＰ値 >= 20 Then
Switch Skill(選択メンバー,格闘ＵＰ)
Case 0
Incr ＰＰ値 -20
SetAbility 選択メンバー 格闘ＵＰ 1
Talk システム
$(選択メンバー)に格闘強化スキルを与えました
End
GoTo スタート
Case Else
Incr ＰＰ値 -20
SetAbility 選択メンバー 格闘ＵＰ (Skill(選択メンバー,格闘ＵＰ) + 1)
Talk システム
$(選択メンバー)の格闘強化レベルを上昇させました。
End
GoTo スタート
Endsw
Exit
Else
Talk システム
ＰＰが足りません
End
GoTo 格闘強化
EndIf
Exit
（略）
援護防御付加:
Do
Ask メンバーリスト パイロット選択 キャンセル可
選択メンバー = メンバーリスト[選択]
If メンバーリスト[選択] = "" Then
FadeOut 10
ClearPicture
ClearObj
GoTo スタート
EndIf
Confirm このパイロットでよろしいですか？
Loop While (選択 = 0)
If ＰＰ値 >= 150 Then
Switch Skill(選択メンバー,援護防御)
Case 0
Incr ＰＰ値 -150
SetAbility 選択メンバー 援護防御 1
Talk システム
$(選択メンバー)に援護防御スキルを与えました
End
GoTo スタート
Case Else
Incr ＰＰ値 -150
SetAbility 選択メンバー 援護防御 (Skill(選択メンバー,援護防御) + 1)
Talk システム
$(選択メンバー)の援護防御レベルを上昇させました。
End
GoTo スタート
Endsw
Exit
Else
Talk システム
ＰＰが足りません
End
GoTo 援護防御付加
EndIf
Exit
このように作ってみたのですが、これでは、メインパイロットには特殊技能を習得させることができるのですが、サブパイロットやサポートパイロットには特殊技能を習得させることができません。どうすれば、サブやサポートパイロットにも特殊技能を習得させることができるのでしょうか？どなたかご指導よろしくお願いします。
|
新着情報