「所持しているアイテムをリストアップする」の編集履歴（バックアップ）一覧はこちら

「所持しているアイテムをリストアップする」(2007/12/09 (日) 22:31:03) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

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


 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

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

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


 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/]]