巨大データ掲示板

【2209】インクルード

名前: ぶれーかー
投稿日時: - 2008年06月09日(月) 23時58分 -
設定: 引用なし
パスワード

使用 Unit(対象ユニットＩＤ) ストライカーパック換装 :

If Not 使用済みSPナンバー > 0 Then
　使用済みSPナンバー = 1
EndIf

#↑戦艦からの換装を使用するとき用の処理

If Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 空 Then
　If Info(アイテム,Item(対象ユニットＩＤ,1),特殊能力所有, 空中移動) = 0 Then
　　Talk
　　換装可能な地形ではありません
　　End
　　Cancel
　EndIf
EndIf

If Area(相手ユニットＩＤ) = 空中 Then
　If Info(アイテム,Item(対象ユニットＩＤ,1),特殊能力所有, 空中移動) = 0 Then
　 If Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 陸 Then
　　 ChangeArea Pilot(相手ユニットＩＤ) 地上
　 ElseIf Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 水 Then
　　 ChangeArea Pilot(相手ユニットＩＤ) 水中
　 ElseIf Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 深海 Then
　　 ChangeArea Pilot(相手ユニットＩＤ) 水中
　 EndIf
　EndIf
EndIf

Exit

使用後 Unit(対象ユニットＩＤ) ストライカーパック換装 :

スカグラ武器数 = Info(ユニットデータ,Unit(対象ユニットＩＤ),武器数)

スカグラ装備中パック = (Item(対象ユニットＩＤ,1))

For i = 1 To Info(アイテム,Item(対象ユニットＩＤ,1),武器数)
　ストライカーパック武器名[i] = Info(アイテム,Item(対象ユニットＩＤ,1),武器, i)
　ストライカーパック武器弾数[i] = Info(ユニット,対象ユニットＩＤ,武器, (i + スカグラ武器数), 弾数)
Next

Call 使用済みストライカーパック処理

Equip 対象ユニットＩＤダミーストライカーパック
Equip 相手ユニットＩＤスカグラ装備中パック
RemoveItem (対象ユニットＩＤ) ダミーストライカーパック

For i = 1 To Info(アイテム,Item(相手ユニットＩＤ,1),武器数)
　SetBullet 相手ユニットＩＤストライカーパック武器名[i] ストライカーパック武器弾数[i]
Next

UnSet スカグラ武器数
UnSet スカグラ装備中パック
UnSet ストライカーパック武器名
UnSet ストライカーパック武器弾数

RecoverEN 相手ユニットＩＤ 100

Exit

##以下戦艦側から換装するとき用

使用 Unit(対象ユニットＩＤ) ストライカーパック換装(Ｓ) :

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
　　　　このＳＰは使用済み = 1
　　　EndIf
　　Next

　　　If Not このＳＰは使用済み = 1 Then
　　　　戦艦換装ストライカーパック[戦艦換装SPナンバー] = Item(未装備,i)
　　　　Incr 戦艦換装SPナンバー
　　　EndIf

　EndIf

UnSet このＳＰは使用済み

Next

Ask 戦艦換装ストライカーパック "$(Unit(相手ユニットＩＤ))に装備するストライカーパックを選択してください"

　If 選択 = 0 Then
　　SpecialPower 対象ユニットＩＤ覚醒
　　Cancel

　EndIf

If Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 空 Then
　If Info(アイテム,戦艦換装ストライカーパック[選択],特殊能力所有, 空中移動) = 0 Then
　　Talk
　　換装可能な地形ではありません
　　End
　　Cancel
　EndIf
EndIf

If Area(相手ユニットＩＤ) = 空中 Then

　If Info(アイテム,戦艦換装ストライカーパック[選択],特殊能力所有, 空中移動) = 0 Then
　 If Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 陸 Then
　　 ChangeArea Pilot(相手ユニットＩＤ) 地上
　 ElseIf Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 水 Then
　　 ChangeArea Pilot(相手ユニットＩＤ) 水中
　 ElseIf Info(マップ, X(相手ユニットＩＤ), Y(相手ユニットＩＤ), 地形クラス) = 深海 Then
　　 ChangeArea Pilot(相手ユニットＩＤ) 水中
　 EndIf
　EndIf

EndIf

Exit

使用後 Unit(対象ユニットＩＤ) ストライカーパック換装(Ｓ) :

Call 使用済みストライカーパック処理

Equip 対象ユニットＩＤダミーストライカーパック
Equip 相手ユニットＩＤ戦艦換装ストライカーパック[選択]
RemoveItem (対象ユニットＩＤ) ダミーストライカーパック

UnSet i
UnSet j
UnSet 戦艦換装SPナンバー
UnSet 戦艦換装ストライカーパック
RecoverEN 相手ユニットＩＤ 100
Exit

使用済みストライカーパック処理:

For i = 0 To CountItem(相手ユニットＩＤ)

If Info(アイテム,Item(相手ユニットＩＤ,i),アイテムクラス) = ストライカーパック Then
　使用済みストライカーパック[使用済みSPナンバー] = Item(相手ユニットＩＤ,i)
EndIf

Next

Incr 使用済みSPナンバー

Return

1,041 hits