どんなくだらねぇ質問にもマジレスするスレPart16

オススメ商品ズ

Amazon

鋼の錬金術師(12) 初回限定特装版(\600)

コミックスペシャルカレンダー2006 鋼の錬金術師(\2,000)

テイルズオブジアビス特典 10周年記念ファンディスクテイルズオブファンダム外伝DVD付(\6,069/\1,071OFF)

機動戦士ガンダムSEED 連合VS.Z.A.F.T 特典プレイヤーズリファレンスブック付き(\6,069/\1,071OFF)

ネットでできる友達の輪	日本ファンド最短３時間でご融資可能かメールでお答えします。
スイートボートブログ管理人のブログ	月額125円からのレンタルサーバ
★可愛いレンタルサーバLOLIPOP!	バイクの無料出張買取ならバイク王

■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50

レス数が1000を超えています。残念ながら全部は表示しません。

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で定義する必要あり。

221KB

掲示板に戻る全部前100 次100 最新50

0ch BBS 2005-06-05