板 1- 前 次 新 ﾚｽ
どんなくだらねぇ質問にもマジレスするスレPart16
[112]名無しさん(ザコ)：2008/03/31(月) 11:13:14 ID:n4ALuu/+0
Item外し:
ForEach 味方
RemoveItem 対象パイロット
Next
#味方全員の装備を外す
Set カウント数 CountItem(未装備)
#所持アイテムの総数を確認
For i = 1 To カウント数
アイテム名 = Item(未装備,i)
Set 配列A[i] アイテム名
RemoveItem アイテム名
Next
#アイテム番号１番からn番までのアイテム名を格納
#アイテム名を格納したらそのアイテムを一時的に削除
Return
Item再入手:
For i = 1 To カウント数
Item 配列A[i]
Next
#配列Aに格納されたアイテムを全て再入手
Return
こんな感じかな？
引数「カウント数」と「配列A」はeveをまたぐのならGlobalで定義する必要あり。
前 次
0ch BBS 2005-06-05