- 名前
-
ぶれーかー
- 投稿日時
- - 2008年06月09日(月) 23時58分 -
- 設定
-
使用 Unit(対象ユニットID) ストライカーパック換装 :
If Not 使用済みSPナンバー > 0 Then
使用済みSPナンバー = 1
EndIf
#↑戦艦からの換装を使用するとき用の処理
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
Call 使用済みストライカーパック処理
Equip 対象ユニットID ダミーストライカーパック
Equip 相手ユニットID スカグラ装備中パック
RemoveItem (対象ユニットID) ダミーストライカーパック
For i = 1 To Info(アイテム,Item(相手ユニットID,1),武器数)
SetBullet 相手ユニットID ストライカーパック武器名[i] ストライカーパック武器弾数[i]
Next
UnSet スカグラ武器数
UnSet スカグラ装備中パック
UnSet ストライカーパック武器名
UnSet ストライカーパック武器弾数
RecoverEN 相手ユニットID 100
Exit
##以下戦艦側から換装するとき用
使用 Unit(対象ユニットID) ストライカーパック換装(S) :
If Not 使用済みSPナンバー > 0 Then
使用済みSPナンバー = 1
EndIf
戦艦換装SPナンバー = 1
For i = 0 To CountItem(未装備)
If i = 0 Then
戦艦換装ストライカーパック[0] = キャンセル
EndIf
If Info(アイテム,Item(未装備,i),アイテムクラス) = ストライカーパック Then
For j = 1 To 使用済みSPナンバー
If 使用済みストライカーパック[j] = Item(未装備,i) Then
このSPは使用済み = 1
EndIf
Next
If Not このSPは使用済み = 1 Then
戦艦換装ストライカーパック[戦艦換装SPナンバー] = Item(未装備,i)
Incr 戦艦換装SPナンバー
EndIf
EndIf
UnSet このSPは使用済み
Next
Ask 戦艦換装ストライカーパック "$(Unit(相手ユニットID))に装備するストライカーパックを選択してください"
If 選択 = 0 Then
SpecialPower 対象ユニットID 覚醒
Cancel
EndIf
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
EndIf
Exit
使用後 Unit(対象ユニットID) ストライカーパック換装(S) :
Call 使用済みストライカーパック処理
Equip 対象ユニットID ダミーストライカーパック
Equip 相手ユニットID 戦艦換装ストライカーパック[選択]
RemoveItem (対象ユニットID) ダミーストライカーパック
UnSet i
UnSet j
UnSet 戦艦換装SPナンバー
UnSet 戦艦換装ストライカーパック
RecoverEN 相手ユニットID 100
Exit
使用済みストライカーパック処理:
For i = 0 To CountItem(相手ユニットID)
If Info(アイテム,Item(相手ユニットID,i),アイテムクラス) = ストライカーパック Then
使用済みストライカーパック[使用済みSPナンバー] = Item(相手ユニットID,i)
EndIf
Next
Incr 使用済みSPナンバー
Return
1,039 hits
ページトップへt
SRC総合支援センター