Set 装備消費アイテム[1] リペアキット
Set 装備消費アイテム[2] リペアキットS
Set 装備消費アイテム[3] プロペラントタンク
Set 装備消費アイテム[4] プロペラントタンクS
Set 装備消費アイテム[5] カートリッジ
Set 装備消費アイテム[6] ドンキーのパン
Set 装備消費アイテム[7] SPドリンク
Set 装備消費アイテム[8] カットナライザー
Set 装備消費アイテム[9] スーパーリペアキット
Set 装備消費アイテム[10] 火星丼
#######
For i = 1 to 10
If IsEquiped(対象ユニットID,装備消費アイテム[i]) = 1 Then
RemoveItem 対象ユニットID 装備消費アイテム[i]
Item 装備消費アイテム[i]
Equip 対象ユニットID 装備消費アイテム[i]
Endif
Next