| 幻魔の公子です。
むー。なんか説明するのも面倒なので、一つ目の方はサクッと質問の箇所の訂正点を上げておきます。
If アイテム数 > 1 Then
↓
Set アイテム数 0 ForEach 味方 全て If IsEquiped(Pilot(),品) = 1 Then For k = 1 To CountItem(Pilot()) If Item(Pilot(),k) = 品 Then Incr アイテム数 Endif Next Endif Next For j = 1 To CountItem(未装備) If Item(未装備,j) = 品 Then Incr アイテム数 Endif Next If アイテム数 > 1 Then
こんな感じですか。
売却の方ですが……なんてゆーか、こっちは問題外です。 アイテムの数を数える前に、売価などの設定や、売却の方法を勉強した方がよろしいでしょう。私がアップしたインクルだとその辺も入ってるはずです。確か。 つーか、この状態からならば、逐一説明するより自分で作った方が早いくらいですから〜。
それでは。
|