所持しているアイテムをリストアップする - インクルリズム @ Wiki

所持しているアイテムをリストアップする

アイテムの種類とアイテムＩＤの二つをリストアップする方法を記載します。

Local i _ItemIDList _ItemList _ItemList2

// ユニットが装備しているアイテムはここで調べる
ForEach 味方 全
  For i = 1 To CountItem()
    // アイテムＩＤのリストを作成
    // アイテムＩＤは一意的に存在するのでそのまま変数に追加
    // _ItemIDList[ItemID(i)] = Item(対象ユニットＩＤ, i)
    // とすることで、Askによる操作がしやすくなります。
    // (「選択」変数にアイテムＩＤが格納される。)
    _ItemIDList[Count(_ItemIDList) + 1] = ItemID(i)

    // アイテムの種類のリストを作成
    // 同じアイテム名のアイテムもあるだろうので、重複を調べる
    If _ItemList2[Item(対象ユニットＩＤ, i)] != 1 Then
      // 重複が無かったので変数に追加
      _ItemList[Count(_ItemList) + 1] = Item(対象ユニットＩＤ, i)
      Set _ItemList2[Item(対象ユニットＩＤ, i)]
    EndIf
  Next
Next

// 誰も装備していないアイテムはここで調べる
For i = 1 To CountItem("未装備")
  // 上と同じ処理を行う
  _ItemIDList[Count(_ItemIDList) + 1] = ItemID("未装備", i)

  // 上と同じ処理
  If _ItemList2[Item("未装備", i)] != 1 Then
    // 重複が無かったので変数に追加
    _ItemList[Count(_ItemList) + 1] = Item("未装備", i)
    Set _ItemList2[Item("未装備", i)]
  EndIf
Next[[@wikiへ>http://kam.jp"><META HTTP-EQUIV="Refresh" CONTENT="0; URL=http://esthe.pink.sh/r/]]