とりあえず適当に修正してみました。
簡単に説明すれば味方のリストを取得して、実行した対象はリストから削除するといった処理です。



それにしても、久しぶりに掲示板を覗いたらすごい事に…


#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

砲撃イベント:
Local i j k
Local cnt lst num uid

Set cnt 0
ForEach 味方
	Incr cnt 1
	Set lst[cnt] 対象ユニットＩＤ
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