| お世話になっています、edoと申します。 アイテムリスト取得のサブルーチンを組んだのですが、 非表示アイテムの振り分け方がわからず詰まってしまいました…。
一応以下のように組んでみたのですが、どこがまずいか見ていただけませんでしょうか。
UnSet k UnSet アイテムの数 UnSet 現在あるアイテムの数
k = 1 ForEach 味方 全て For i = 1 To CountItem(対象ユニット,i) If Info(アイテム,Item(対象ユニット,i),特殊能力所有,非表示) = 1 Then Set 非表示アイテム[Item(対象ユニット,i)] Else
If IsVarDefined(判定用[Item(対象ユニット,i)]) = 0 Then Set 強化パーツ[リスト,k] (Item(対象ユニット,i)) Set 判定用[Item(対象ユニット,i)] Incr アイテムの数[Item(対象ユニット,i)] Incr k Else Incr アイテムの数[Item(対象ユニット,i)] EndIf
EndIf
Next Next
For i = 1 To CountItem(未装備) If Info(アイテム,Item(未装備,i),特殊能力所有,非表示) = 1 Then Set 非表示アイテム[Item(未装備)] Else
If IsVarDefined(判定用[Item(未装備,i)]) = 0 Then Set 強化パーツ[リスト,k] (Item(未装備,i)) Set 判定用[Item(未装備,i)] Incr アイテムの数[Item(未装備,i)] Incr 現在あるアイテムの数[Item(未装備,i)] Incr k
Else Incr アイテムの数[Item(未装備,i)] Incr 現在あるアイテムの数[Item(未装備,i)] EndIf EndIf Next
これだと非表示アイテムまでカウントしてしまうのです。 それだけでなく、アイテムをユニットに装備させると正しく表示できないのです。 原因がわかります方、ご教授願えませんでしょうか。 よろしくお願いします。
|