| 現在、お店のインクルードを作っているのですが、その中でアイテムを売却できるようにしたいんです。
……ですが、毎度の如く、なかなか上手くいきません。
2954番の記事で、幻魔の公子さんに教えていただいた、Askコマンドを利用した全所持アイテムを表示させる方法を利用して表示させたダイアログの中から、売却したいアイテムを選択すると、アイテムを売却することが出来る。
という風にしたいんですけど……
UnSet BOG_Item
Set ItemC 0
ForEach 味方 全て
For i = 1 To BOGC
For a = 1 To CountItem(対象ユニットＩＤ )
Set Seeker 対象ユニットＩＤ
If Item(Seeker,a) = BOG[i] Then
BOG_Item[Seeker,i] = BOG[i]
Incr ItemC
EndIf
Next
Next
Next
For a = 1 To CountItem(未装備)
For i = 1 To BOGC
Set Seeker 未装備
If Item(Seeker,a) = BOG[i] Then
BOG_Item[Seeker,i] = BOG[i]
Incr ItemC
EndIf
Next
Next
Ask BOG_Item "売るものを選択してください"
Switch 選択
For i = 1 To ItemC
If 選択 = BOG_Item[Seeker,i] Then
Confirm 本当に売却してよろしいですか？
If 選択 = 1 Then
RemoveItem BOG_Item[Seeker,i]
Incr 資金 BOG_COST[i]
売却後会話
Else
売却処理
EndIf
EndIf
Next
EndSw
Return
こんな感じに作ってみたんですけど、ダメでした。
方法が分かる方がいらっしゃいましたら、ご助言お願いいたします。
|
新着情報