板 1- 前 次 新 ﾚｽ
くだらない質問にもマジレス
[810]名無しさん(ザコ)：2010/04/18(日) 13:14:09 ID:GIvLso9U0
Call 上下左右チェック 対象ユニットＩＤ
Talk システム
□の部分にいる味方の数は$(CountParty[味方])です
End
上下左右チェック:
Local i_x i_y StartX StartY
StartX = (X(Args(1)) - 3)
StartY = (Y(Args(1)) - 3)
CountParty[味方] = 0
CountParty[ＮＰＣ] = 0
CountParty[敵] = 0
CountParty[中立] = 0
For i_x = 1 To 7
For i_y = 1 To 7
If Info(マップ, (StartX + i_x), (StartY + i_y), ユニットＩＤ) != "" And Info(マップ, (StartX + i_x), (StartY + i_y), ユニットＩＤ) != Args(1) Then
If Party(Info(マップ, (StartX + i_x), (StartY + i_y), ユニットＩＤ)) = 味方 Then
Incr CountParty[味方]
ElseIf Party(Info(マップ, (StartX + i_x), (StartY + i_y), ユニットＩＤ)) = ＮＰＣ Then
Incr CountParty[ＮＰＣ]
ElseIf Party(Info(マップ, (StartX + i_x), (StartY + i_y), ユニットＩＤ)) = 敵 Then
Incr CountParty[敵]
ElseIf Party(Info(マップ, (StartX + i_x), (StartY + i_y), ユニットＩＤ)) = 中立 Then
Incr CountParty[中立]
EndIf
EndIf
Next
Next
Return動かしてないから絶対にバグ出ると思うけど多分こんな感じ
もうちょっと綺麗に書けると思う
前 次
0ch BBS 2005-06-05