If Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 空 Then
If Info(アイテム,Item(対象ユニットID,1),特殊能力所有, 空中移動) = 0 Then
Talk
換装可能な地形ではありません
End
Cancel
EndIf
EndIf
If Area(相手ユニットID) = 空中 Then
If Info(アイテム,Item(対象ユニットID,1),特殊能力所有, 空中移動) = 0 Then
If Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 陸 Then
ChangeArea Pilot(相手ユニットID) 地上
ElseIf Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 水 Then
ChangeArea Pilot(相手ユニットID) 水中
ElseIf Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 深海 Then
ChangeArea Pilot(相手ユニットID) 水中
EndIf
EndIf
EndIf
Exit
使用後 Unit(対象ユニットID) ストライカーパック換装 :
スカグラ武器数 = Info(ユニットデータ,Unit(対象ユニットID),武器数)
スカグラ装備中パック = (Item(対象ユニットID,1))
For i = 1 To Info(アイテム,Item(対象ユニットID,1),武器数)
ストライカーパック武器名[i] = Info(アイテム,Item(対象ユニットID,1),武器, i)
ストライカーパック武器弾数[i] = Info(ユニット,対象ユニットID,武器, (i + スカグラ武器数), 弾数)
Next
If Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 空 Then
If Info(アイテム,戦艦換装ストライカーパック[選択],特殊能力所有, 空中移動) = 0 Then
Talk
換装可能な地形ではありません
End
Cancel
EndIf
EndIf
If Area(相手ユニットID) = 空中 Then
If Info(アイテム,戦艦換装ストライカーパック[選択],特殊能力所有, 空中移動) = 0 Then
If Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 陸 Then
ChangeArea Pilot(相手ユニットID) 地上
ElseIf Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 水 Then
ChangeArea Pilot(相手ユニットID) 水中
ElseIf Info(マップ, X(相手ユニットID), Y(相手ユニットID), 地形クラス) = 深海 Then
ChangeArea Pilot(相手ユニットID) 水中
EndIf
EndIf