SRC総合支援センター

ヘルプh| 連絡先

GSCトップ掲示板データ総合掲示板


データ総合掲示板

注意事項


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

【812】インクルード

名前
 ナオヒラ
投稿日時
 - 2014年02月01日(土) 19時46分 -
設定
引用なし
パスワード
### 祈りバグ修正 ############################

*使用 全 祈り:
Call 祈りバグ修正 相手ユニットID
Exit

祈りバグ修正:
If IsAvailable(Args(1),追加サポート) = 1 Then
RecoverSP LIndex(Info(ユニット,Args(1),特殊能力データ,追加サポート),1) 100
Endif
Return

# 追加サポートのSPを回復。


### 追加パイロット経験値バグ修正 #############################

# 追加パイロットに経験値が入らないバグを無理矢理修正するインクルード。
# インクルードなしでも、クイックセーブ&ロードすると直ります。

*攻撃後 味方 敵:
Call 経験値バグ修正 対象ユニットID
Exit

*攻撃後 敵 味方:
Call 経験値バグ修正 相手ユニットID
Exit

*破壊 敵:
Call 経験値バグ修正 相手ユニットID
Exit

経験値バグ修正:
If IsAvailable(Args(1),追加パイロット) = 1 Then
    If Info(パイロット,Pilot(Args(1)),累積経験値) <> Info(パイロット,Pilot(Args(1),1),累積経験値) Then
        # 追加パイロットの累積経験値が異なることを確認。
        ExpUp Pilot(Args(1)) (- & (Info(パイロット,Pilot(Args(1)),累積経験値)))
        # 追加パイロットの累積経験値を0にする。
        ExpUp Pilot(Args(1)) Info(パイロット,Pilot(Args(1),1),累積経験値)
        # 追加パイロットの累積経験値を同じにする。
    Endif
    
    If Level(Pilot(Args(1))) < Level(Pilot(Args(1),1)) Then
        LevelUp Pilot(Args(1)) (Level(Pilot(Args(1),1)) - Level(Pilot(Args(1))))
        # レベルが異なる場合は同じにする。
    Endif
Endif
Return

#Pilot(相手ユニットID) →追加パイロットの名称
#Pilot(相手ユニットID,1) →第1パイロットの名称


### 追加パイロット経験値バグ修正2 #######################################

# 合体・分離・変形先に追加パイロット能力がある場合の処理。

*合体 Unit(対象ユニットID) Unit(対象ユニットID):
*変形 Pilot(対象ユニットID) Unit(対象ユニットID):

# ↑このような書式で指定すると、どのユニットでも無造作に判定してくれるみたい。
# 合体のイベントラベルは何故かUnit関数で指定しないと働かないようだ。

*分離 Pilot(対象ユニットID) LIndex(Info(ユニット,対象ユニットID,特殊能力データ,合体),2):

Call 経験値バグ修正 対象ユニットID
Exit

# LIndex(Info(ユニット,対象ユニットID,特殊能力データ,合体),2)
# 例:合体=合体 「ガンバスター」 バスターマシン2号
# 「」の部分を切り取って読んでる。

# 合体形態が複数あって、分離後に追加パイロットがあるユニットや、
# メインパイロット以外の分離機が追加パイロットを持つ場合は判定していません。
# 書式が面倒くさいわりに該当するユニットが少なすぎるから。

### 合体時アイテム統合バグ修正 ##########################################

# 各分離機に同じ消費アイテムを持たせて再度合体すると、メインパイロットが全員分のアイテムを使えてしまうSRC本体のバグ。
# 例えばコンバトラーVのバトルマシン5機にSPドリンクを持たせて合体すると、メインパイロットの葵豹馬がSPドリンクを5個使える。

# あくまで条件は「全員が同じアイテムを装備しているとき」である。
# よってメインパイロットのアイテムを一旦削除して装備しなおせば解決。

*合体 Unit(対象ユニットID) Unit(対象ユニットID):

Set 装備消費アイテム[1] リペアキット
Set 装備消費アイテム[2] リペアキットS
Set 装備消費アイテム[3] プロペラントタンク
Set 装備消費アイテム[4] プロペラントタンクS
Set 装備消費アイテム[5] カートリッジ
Set 装備消費アイテム[6] ドンキーのパン
Set 装備消費アイテム[7] SPドリンク
Set 装備消費アイテム[8] カットナライザー
Set 装備消費アイテム[9] スーパーリペアキット
Set 装備消費アイテム[10] 火星丼

#######

For i = 1 to 10
    If IsEquiped(対象ユニットID,装備消費アイテム[i]) = 1 Then
    RemoveItem 対象ユニットID 装備消費アイテム[i]
    Item 装備消費アイテム[i]
    Equip 対象ユニットID 装備消費アイテム[i]
    Endif
Next

Unset 装備消費アイテム
Exit

757 hits



103 / 912 ←次へ前へ→

ページ:

記事番号:

153,841

(SS)C-BOARD v3.8 is Free

ページトップへt


SRC総合支援センター