function move_chest4d(id)
-- 箱の中のアイテムを LIMBO の箱の中に移動
for iobj in dsb_in_obj(id) do
dsb_move(iobj, IN_OBJ, exvar[id].subst, VARIABLE, 0)
end
end