オススメ商品ズ

Amazon

  • 鋼の錬金術師(12) 初回限定特装版(\600)
  • コミックスペシャルカレンダー2006 鋼の錬金術師(\2,000)
  • テイルズ オブ ジ アビス 特典 10周年記念ファンディスク テイルズ オブ ファンダム 外伝DVD付(\6,069/\1,071OFF)
  • 機動戦士ガンダムSEED 連合VS.Z.A.F.T 特典 プレイヤーズリファレンスブック付き(\6,069/\1,071OFF)


    • ネットでできる友達の輪     		Click Here!
    日本ファンド
    最短３時間でご融資可能かメールでお答えします。

    スイートボートブログ管理人のブログ     		Click Here!
    月額125円からのレンタルサーバ 　
    Click Here!
    ★可愛いレンタルサーバLOLIPOP!     		Click Here!
    バイクの無料出張買取なら バイク王
    ■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50


    レス数が1000を超えています。残念ながら全部は表示しません。
    くだらない質問にもマジレス

    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

    250KB
    掲示板に戻る 全部 前100 次100 最新50

    0ch BBS 2005-06-05