板 1- 前 次 新 ﾚｽ
くだらない質問にもマジレス
[812]名無しさん(ザコ)：2010/04/18(日) 13:53:31 ID:HvSYNgno0
同じく動かしてないけど、こんな感じにまとめられるんじゃないかな
Call 上下左右チェック 対象ユニットＩＤ 3
Talk システム
□の部分にいる味方の数は$(陣営カウント[味方])です
End
Unset 陣営カウント
上下左右チェック:
Local i j 中央 範囲
中央[横] = X(Args(1))
中央[縦] = Y(Args(1))
範囲 = Args(2)
For i = (0 - 範囲) To 範囲
For j = (0 - 範囲) To 範囲
Incr 陣営カウント[Party(Info(マップ,中央[横] + i,中央[縦] + j),"ユニットＩＤ")]
Next
Next
Incr 陣営カウント[Party(Args(1))] -1
Unset 陣営カウント[""]
Return
もしくは
上下左右チェック:
Local 範囲 = Args(2)
ForEach 全 出撃
If (Abs(X() - X(Args(1))) <= 範囲) And (Abs(Y() - Y(Args(1))) <= 範囲) Then
Incr 陣営カウント[Party()]
EndIf
Next
Incr 陣営カウント[Party(Args(1))] -1
Return
前 次
0ch BBS 2005-06-05