| ＧＡＭＥＭＡＳＴＥＲさんの仰られた部分の修正により
ちゃんとAttaxkイベント後の援護可能ユニットのサポートアタックを
再現することが出来ました。
多少メッセージのつなぎに間隙が入ったり、
仕様上、援護ユニットの残り援護回数が減らせなかったりはしますが
用途に依れば問題はないと思います。
最終的に使用した記述は…
Set 攻撃ユニット 対象ユニット
If Info(ユニット,相手ユニットＩＤ,武器,相手ユニット使用武器) = "" Then
Attack 対象ユニットＩＤ 対象ユニット使用武器 相手ユニットＩＤ 防御
Else
Attack 対象ユニットＩＤ 対象ユニット使用武器 相手ユニットＩＤ 無抵抗
Endif
Local 判別Ｘ 判別Ｙ 所属判別ＩＤ 援護可能武器 援護可能ユニット 援護攻撃可能
For 判別Ｘ = -1 to 1
For 判別Ｙ = -1 to 1
If (判別Ｘ = 0 And 判別Ｙ = 0) Then
Skip
EndIf
所属判別ＩＤ = Info(マップ,X(攻撃ユニット) + 判別Ｘ,Y(攻撃ユニット) + 判別Ｙ,"ユニットＩＤ")
If Party(所属判別ＩＤ) = "味方" Then
If Info(パイロット,Pilot(所属判別ＩＤ),特殊能力所有,援護) = 1 Then
If Info(ユニット,unit(所属判別ＩＤ),残りサポートアタック数) > 0 Then
If Area(攻撃ユニット) = Area(所属判別ＩＤ) Then
For i = 1 To Info(ユニット,unit(所属判別ＩＤ),武器数)
If Info(ユニット,unit(所属判別ＩＤ),武器,i,属性所有,Ｍ) = 0 Then
If Info(ユニット,unit(所属判別ＩＤ),武器,i,最大射程) >= Call(距離測定,相手ユニットＩＤ,所属判別ＩＤ) Then
If ((Info(ユニット,unit(所属判別ＩＤ),武器,i,弾数) > 0) Or (Info(ユニット,unit(所属判別ＩＤ),武器,i,弾数) = 0 And Info(ユニット,unit(所属判別ＩＤ),武器,i,最大弾数) = 0)) And Info(ユニット,unit(所属判別ＩＤ),武器,i,消費ＥＮ) <= EN(所属判別ＩＤ) Then
援護攻撃可能 = 1
援護可能武器 = Info(ユニット,unit(所属判別ＩＤ),武器,i)
援護可能ユニット = Pilot(所属判別ＩＤ)
Endif
Endif
Endif
Next
Endif
Endif
EndIf
EndIf
Next
Next
If 援護攻撃可能 = 1 Then
#相手の反撃の有無＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
If Info(ユニット,相手ユニットＩＤ,武器,相手ユニット使用武器) = "" Then
Attack 援護可能ユニット 援護可能武器 相手ユニットＩＤ 防御
Else
Attack 援護可能ユニット 援護可能武器 相手ユニットＩＤ 無抵抗
Endif
距離測定:
Local Ｘ距離 Ｙ距離 ユニット間距離
Set 測定元ユニットＸ X(Args(1))
Set 測定元ユニットＹ Y(Args(1))
Set 測定先ユニットＸ X(Args(2))
Set 測定先ユニットＹ Y(Args(2))
Set Ｘ距離 (測定元ユニットＸ - 測定先ユニットＸ)
Set Ｙ距離 (測定元ユニットＹ - 測定先ユニットＹ)
Set ユニット間距離 (Abs(Ｘ距離) + Abs(Ｙ距離))
Return ユニット間距離
…です。的確なご指摘ありがとうございました。
|
新着情報