| これでどうでしょうか? 家では出来ました。
攻撃 味方 敵: Set 処理用ID 相手ユニットID Set 処理用ID2 対象ユニットID Set 中心X X(対象ユニットID) Set 中心Y Y(対象ユニットID) ForEach 味方 If ( X(対象ユニットID) - 中心X ) = 1 Then If ( Y(対象ユニットID) - 中心Y ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 Set 援護用ID 対象ユニットID EndIf EndIf If ( X(対象ユニットID) - 中心X ) = -1 Then If ( Y(対象ユニットID) - 中心Y ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 Set 援護用ID 対象ユニットID EndIf EndIf If ( Y(対象ユニットID) - 中心Y ) = 1 Then If ( X(対象ユニットID) - 中心X ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 Set 援護用ID 対象ユニットID EndIf EndIf If ( Y(対象ユニットID) - 中心Y ) = -1 Then If ( X(対象ユニットID) - 中心X ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 EndIf EndIf Next Exit
攻撃 敵 味方: Set 処理用ID 相手ユニットID Set 処理用ID2 対象ユニットID Set 中心X X(相手ユニットID) Set 中心Y Y(相手ユニットID) ForEach 味方 If ( X(対象ユニットID) - 中心X ) = 1 Then If ( Y(対象ユニットID) - 中心Y ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 Set 援護用ID 対象ユニットID EndIf EndIf If ( X(対象ユニットID) - 中心X ) = -1 Then If ( Y(対象ユニットID) - 中心Y ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 Set 援護用ID 対象ユニットID EndIf EndIf If ( Y(対象ユニットID) - 中心Y ) = 1 Then If ( X(対象ユニットID) - 中心X ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 Set 援護用ID 対象ユニットID EndIf EndIf If ( Y(対象ユニットID) - 中心Y ) = -1 Then If ( X(対象ユニットID) - 中心X ) = 0 Then SetAbility Pilot(対象ユニットID) 援護する -1 EndIf EndIf Next Exit
破壊 Pilot(処理用ID): Goto 解除用 Exit
破壊 Pilot(処理用ID2): Goto 解除用 Exit
攻撃後 味方 敵: Goto 解除用 Exit
解除用: ForEach 味方 ClearAbility Pilot(対象ユニットID) 援護する Next Exit
これをインクルードとして組み込んで、 メッセージデータに
ダメージ小(対援護する),援護!?しかし、その程度は! ダメージ中(対援護する),くっ・・・!伏兵ですか・・・ ダメージ大(対援護する),また攻撃!?これ以上は・・・!
というふうにデータを入れれば大丈夫だと思います。
|