データ総合掲示板

【812】インクルード

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

### 祈りバグ修正 ############################

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

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

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

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

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

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

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

*破壊敵:
Call 経験値バグ修正相手ユニットＩＤ
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(相手ユニットＩＤ)　→追加パイロットの名称
#Pilot(相手ユニットＩＤ,1)　→第１パイロットの名称

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

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

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

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

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

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

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

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

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

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

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

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

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

#######

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

Unset 装備消費アイテム
Exit

757 hits