スペシャルパワー

調子に乗って作ってみた。

共鳴, きょうめい
共, 60, 味方, 即効, -, -, -
イベント=スペシャルパワー共鳴
指定したユニットに掛かっているSPが全て自分にもかかる

# 出典:無印
# 原作での効果:忠義0以外のユニットに対する説得が必ず成功する

スペシャルパワー共鳴:

Local UID TID
Set UID 対象ユニットID
Set TID 相手ユニットID

If ((SpecialPower(TID, 追風) = 1) And (SpecialPower(UID, 追風) = 0)) Then
 SpecialPower UID 追風
EndIf
If ((SpecialPower(TID, 隠れ身) = 1) And (SpecialPower(UID, 隠れ身) = 0)) Then
 SpecialPower UID 隠れ身
 SpecialPowerAnime 隠れ身 UID
EndIf
If ((SpecialPower(TID, 加速) = 1) And (SpecialPower(UID, 加速) = 0)) Then
 SpecialPower UID 加速
 SpecialPowerAnime 加速 UID
EndIf
If ((SpecialPower(TID, 我慢) = 1) And (SpecialPower(UID, 我慢) = 0)) Then
 SpecialPower UID 我慢
EndIf
If ((SpecialPower(TID, 機先) = 1) And (SpecialPower(UID, 機先) = 0)) Then
 SpecialPower UID 機先
EndIf
If ((SpecialPower(TID, 激闘) = 1) And (SpecialPower(UID, 激闘) = 0)) Then
 SpecialPower UID 激闘
 SpecialPowerAnime 激闘 UID
EndIf
If ((SpecialPower(TID, 決意) = 1) And (SpecialPower(UID, 決意) = 0)) Then
 SpecialPower UID 決意
EndIf
If ((SpecialPower(TID, 堅牢) = 1) And (SpecialPower(UID, 堅牢) = 0)) Then
 SpecialPower UID 堅牢
EndIf
If ((SpecialPower(TID, 幸運) = 1) And (SpecialPower(UID, 幸運) = 0)) Then
 SpecialPower UID 幸運
 SpecialPowerAnime 幸運 UID
EndIf
If ((SpecialPower(TID, 渾身) = 1) And (SpecialPower(UID, 渾身) = 0)) Then
 SpecialPower UID 渾身
EndIf
If ((SpecialPower(TID, 集中) = 1) And (SpecialPower(UID, 集中) = 0)) Then
 SpecialPower UID 集中
 SpecialPowerAnime 集中 UID
EndIf
If ((SpecialPower(TID, 修行) = 1) And (SpecialPower(UID, 修行) = 0)) Then
 SpecialPower UID 修行
EndIf
If ((SpecialPower(TID, 助言) = 1) And (SpecialPower(UID, 助言) = 0)) Then
 SpecialPower UID 助言
EndIf
If ((SpecialPower(TID, 神速) = 1) And (SpecialPower(UID, 神速) = 0)) Then
 SpecialPower UID 神速
 SpecialPowerAnime 神速 UID
EndIf
If ((SpecialPower(TID, 捨て身) = 1) And (SpecialPower(UID, 捨て身) = 0)) Then
 SpecialPower UID 捨て身
 SpecialPowerAnime 捨て身 UID
EndIf
If ((SpecialPower(TID, 狙撃) = 1) And (SpecialPower(UID, 狙撃) = 0)) Then
 SpecialPower UID 狙撃
EndIf
If ((SpecialPower(TID, 魂) = 1) And (SpecialPower(UID, 魂) = 0)) Then
 SpecialPower UID 魂
 SpecialPowerAnime 魂 UID
EndIf
If ((SpecialPower(TID, 探索) = 1) And (SpecialPower(UID, 探索) = 0)) Then
 SpecialPower UID 探索
EndIf
If ((SpecialPower(TID, 直撃) = 1) And (SpecialPower(UID, 直撃) = 0)) Then
 SpecialPower UID 直撃
 SpecialPowerAnime 直撃 UID
EndIf
If ((SpecialPower(TID, 痛撃) = 1) And (SpecialPower(UID, 痛撃) = 0)) Then
 SpecialPower UID 痛撃
EndIf
If ((SpecialPower(TID, てかげん) = 1) And (SpecialPower(UID, てかげん) = 0)) Then
 SpecialPower UID てかげん
 SpecialPowerAnime てかげん UID
EndIf
If ((SpecialPower(TID, 鉄壁) = 1) And (SpecialPower(UID, 鉄壁) = 0)) Then
 SpecialPower UID 鉄壁
 SpecialPowerAnime 鉄壁 UID
EndIf
If ((SpecialPower(TID, 電瞬) = 1) And (SpecialPower(UID, 電瞬) = 0)) Then
 SpecialPower UID 電瞬
EndIf
If ((SpecialPower(TID, 闘志) = 1) And (SpecialPower(UID, 闘志) = 0)) Then
 SpecialPower UID 闘志
EndIf
If ((SpecialPower(TID, 突撃) = 1) And (SpecialPower(UID, 突撃) = 0)) Then
 SpecialPower UID 突撃
EndIf
If ((SpecialPower(TID, 特訓) = 1) And (SpecialPower(UID, 特訓) = 0)) Then
 SpecialPower UID 特訓
EndIf
If ((SpecialPower(TID, 努力) = 1) And (SpecialPower(UID, 努力) = 0)) Then
 SpecialPower UID 努力
 SpecialPowerAnime 努力 UID
EndIf
If ((SpecialPower(TID, 忍耐) = 1) And (SpecialPower(UID, 忍耐) = 0)) Then
 SpecialPower UID 忍耐
EndIf
If ((SpecialPower(TID, 熱血) = 1) And (SpecialPower(UID, 熱血) = 0)) Then
 SpecialPower UID 熱血
 SpecialPowerAnime 熱血 UID
EndIf
If ((SpecialPower(TID, 必中) = 1) And (SpecialPower(UID, 必中) = 0)) Then
 SpecialPower UID 必中
 SpecialPowerAnime 必中 UID
EndIf
If ((SpecialPower(TID, ひらめき) = 1) And (SpecialPower(UID, ひらめき) = 0)) Then
 SpecialPower UID ひらめき
 SpecialPowerAnime ひらめき UID
EndIf
If ((SpecialPower(TID, 復活) = 1) And (SpecialPower(UID, 復活) = 0)) Then
 SpecialPower UID 復活
 SpecialPowerAnime 復活 UID
EndIf
If ((SpecialPower(TID, 報復) = 1) And (SpecialPower(UID, 報復) = 0)) Then
 SpecialPower UID 報復
EndIf
If ((SpecialPower(TID, 見極め) = 1) And (SpecialPower(UID, 見極め) = 0)) Then
 SpecialPower UID 見極め
 SpecialPowerAnime 見極め UID
EndIf

If ((SpecialPower(TID, 足かせ) = 1) And (SpecialPower(UID, 足かせ) = 0)) Then
 SpecialPower UID 足かせ
 SpecialPowerAnime 足かせ UID
EndIf
If ((SpecialPower(TID, 威圧) = 1) And (SpecialPower(UID, 威圧) = 0)) Then
 SpecialPower UID 威圧
 SpecialPowerAnime 威圧 UID
EndIf
If ((SpecialPower(TID, かく乱) = 1) And (SpecialPower(UID, かく乱) = 0)) Then
 SpecialPower UID かく乱
 SpecialPowerAnime かく乱 UID
EndIf
If ((SpecialPower(TID, 策謀) = 1) And (SpecialPower(UID, 策謀) = 0)) Then
 SpecialPower UID 策謀
EndIf
# If ((SpecialPower(TID, 挑発) = 1) And (SpecialPower(UID, 挑発) = 0)) Then
#  SpecialPower UID
# EndIf
# 挑発したユニットを取得する方法を調査中
If ((SpecialPower(TID, 毒舌) = 1) And (SpecialPower(UID, 毒舌) = 0)) Then
 SpecialPower UID 毒舌
EndIf
If ((SpecialPower(TID, 分析) = 1) And (SpecialPower(UID, 分析) = 0)) Then
 SpecialPower UID 分析
EndIf
If ((SpecialPower(TID, 魅惑) = 1) And (SpecialPower(UID, 魅惑) = 0)) Then
 SpecialPower UID 魅惑
 SpecialPowerAnime 魅惑 UID
EndIf
If ((SpecialPower(TID, 目眩し) = 1) And (SpecialPower(UID, 目眩し) = 0)) Then
 SpecialPower UID 目眩し
EndIf
If ((SpecialPower(TID, 誘爆) = 1) And (SpecialPower(UID, 誘爆) = 0)) Then
 SpecialPower UID 誘爆
EndIf

Exit

サブルーチン組み始めるとキリがないんだけどね。
いいじゃないか、作りたかったんだ……


なお、これもアニメ関係ちゃんと作りこむまで
サイトには上げませんのであしからず。