オススメ商品ズ

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を超えています。残念ながら全部は表示しません。
    くだらない質問にもマジレス

    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

    動かしてないから絶対にバグ出ると思うけど多分こんな感じ
    もうちょっと綺麗に書けると思う

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

    0ch BBS 2005-06-05