2016/10/28(Fri) 04:09:20 編集(投稿者)
とりあえず適当に修正してみました。
簡単に説明すれば味方のリストを取得して、実行した対象はリストから削除するといった処理です。
それにしても、久しぶりに掲示板を覗いたらすごい事に…
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
砲撃イベント:
Local i j k
Local cnt lst num uid
Set cnt 0
ForEach 味方
Incr cnt 1
Set lst[cnt] 対象ユニットID
Next
# 攻撃回数を変更したい場合は↓を変更して下さい。
Set num Min(cnt,3)
For i = 1 To num
Set j Random(cnt)
Set uid lst[j]
For k = j To (cnt - 1)
Set lst[k] lst[(k + 1)]
Next
Incr cnt -1
Center X(uid) Y(uid)
ExPlode M X(uid) Y(uid)
HP(uid) = HP(uid) - 2000
# 修正前の「 $(対象パイロット) 」と変わらないように「 $(PilotID(uid)) 」としてますけど、
# これだと汎用パイロットだとID部分も表示され、()付きのパイロットだと()の部分も表示されしまうので、
# 必要なら下記の様に愛称で表示させるのも良いかも知れません。
#
# $(PilotID(uid)) → $(Nickname(PilotID(uid)))
Talk システム
$(PilotID(uid))に2000のダメージ。
End
Next
Return