SRC総合支援センター

ヘルプh| 連絡先

GSCトップ掲示板巨大データ掲示板


巨大データ掲示板

注意事項


当掲示板に掲載されているテストシナリオは、
SRC総合支援センターの登録式画像パック、非登録式画像パック、丸投げ画像パック、
SRCオリジナルサポートセンターのオリサポパックを利用しています。

【2106】インクルード

名前
 ぶれーかー
投稿日時
 - 2008年05月17日(土) 01時56分 -
設定
引用なし
パスワード
#ストライカーパックを交換するとき用のインクルード

使用 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

874 hits



4618 / 6689 ←次へ前へ→

ページ:

記事番号:

538,507

(SS)C-BOARD v3.8 is Free

ページトップへt


SRC総合支援センター