Kingdom Take Items

#==============================================================================
# Kingdom Take Items
# por King Gerar
#
# Método de ganhar/perder itens por: Shiroyasha
# Método de desequipar itens por: Xypher
#------------------------------------------------------------------------------
# Este script não precisa do "Kingdom - Módulo".
#
# Este script permite remover todos itens/armas/armaduras e ouro do personagem
# utilizando um comando via "Chamar Script", bem como devolver todos os itens
# retirados pelo mesmo jeito.
#
# Para remover todo o inventário utilize o código: "ktake_items"
#
# Para devolver todo o inventário utilize o código: "kdevolve_items"
#==============================================================================
class Game_Party < Game_Unit

  def unequip_all
    members.each do |i|
      i.equip_slots.each do |j|
        i.change_equip(j, nil)
      end
    end
  end
end
#==============================================================================
class Game_Interpreter
  alias knew_initialize initialize
  def initialize
    knew_initialize
    $inventary = Array.new(4)
    $inventary[0] = Array.new($data_items.size - 1)
    $inventary[1] = Array.new($data_weapons.size - 1)
    $inventary[2] = Array.new($data_armors.size - 1)
    $inventary[3] = Array.new(1)
  end

  def ktake_items
    $game_party.unequip_all
    for n in 0..$data_items.size
      $inventary[0][n] = $game_party.item_number($data_items[n])
    end
    for n in 0..$data_weapons.size
      $inventary[1][n] = $game_party.item_number($data_weapons[n])
    end
    for n in 0..$data_armors.size
      $inventary[2][n] = $game_party.item_number($data_armors[n])
    end
    $inventary[3] = $game_party.gold
    $game_party.init_all_items
    $game_party.gain_gold(-999999)
  end

  def kdevolve_items
    for n in 0..$data_items.size
      $game_party.gain_item($data_items[n], $inventary[0][n])
    end
    for n in 0..$data_weapons.size
      $game_party.gain_item($data_weapons[n], $inventary[1][n])
    end
    for n in 0..$data_armors.size
      $game_party.gain_item($data_armors[n], $inventary[2][n])
    end
    $game_party.gain_gold($inventary[3])
  end
end