| こんにちは、ヒロキです。
暇だったんでちょっと書いてみました。 何かの足しにでもしてください
それでは
*ターン 全 味方: Local GtoB GtoR RtoB
GtoB = GetDistance(ジースタッグ,ブルービート) GtoR = GetDistance(ジースタッグ,レッドル) RtoB = GetDistance(レッドル,ブルービート)
If GtoB < 4 And GtoR < 4 Then SetStatus 攻撃力UP ジースタッグ 1 SetStatus 防御力UP ジースタッグ 1 SetStatus 運動性UP ジースタッグ 1 EndIf
If GtoB < 4 And RtoB < 4 Then SetStatus 攻撃力UP ブルービート 1 SetStatus 防御力UP ブルービート 1 SetStatus 運動性UP ブルービート 1 EndIf
If RtoB < 4 And GtoR < 4 Then SetStatus 攻撃力UP レッドル 1 SetStatus 防御力UP レッドル 1 SetStatus 運動性UP レッドル 1 EndIf
Exit
GetDistance: If Status(Args(1)) != 出撃 Or Status(Args(2)) != 出撃 Then Return 99 EndIf Retrun (Abs(X(Args(1)) - X(Args(2))) + Abs(Y(Args(1)) - Y(Args(2))))
|