| ハクというものです。
以下の方法で動作を確認しました。※A→Bと変化するとしています
=====
Pilot B Level(A) ExpUp B Info(A, 累積経験値)
For i = 1 To Info(パイロット, A, 特殊能力数) If Info(パイロット, B, 特殊能力所有, Info(パイロット, A, 特殊能力, i) ) <> "1" Then If Info(パイロット, A, 特殊能力レベル, i) = 1 Then SetSkill B Info(パイロット, A, 特殊能力, i) -1 Info(パイロット, A, 特殊能力名称, i) Else SetSkill B Info(パイロット, A, 特殊能力, i) Info(パイロット, A, 特殊能力レベル, i) Info(パイロット, A, 特殊能力名称, i) EndIf EndIf Next
〜Aを消してBを乗せる〜
=====
ただし解説用のダミー特殊能力の継承は想定していません。 その場合は別の処理が必要です(Info関数の特殊能力データ等を使用)
とりあえずこれで試してみて下さい。それでは。
|