板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart16
[114]名無しさん(ザコ)：2008/03/31(月) 12:37:56 ID:HYbGB9lQ0
直すならこうかな。
初めのループ内でアイテム名を取得した直後に削除しちゃうと、
アイテムの番号がズレるんだろう。
For i = 1 To カウント数
アイテム名 = Item(未装備,i)
Set 配列A[i] アイテム名
Next
For i = 1 To カウント数
RemoveItem 配列A[i]
Next
#アイテム番号１番からn番までのアイテム名を格納
#アイテム名を格納したらそのアイテムを一時的に削除
Return
Item再入手:
For i = 1 To カウント数
Item 配列A[i]
Next
#配列Aに格納されたアイテムを全て再入手
Return
前 次
0ch BBS 2005-06-05