@verb #8084:"convert_room" this none this rxdo #8084
@program #8084:"convert_room" this none this
{room} = args
idx = length(room.contents)
while (idx > 0)
  exit = room.contents[idx]
  if (exit:isa($exit))
    vexit = player:convert_exit(exit)
    vexit = $xml:to_xml(vexit)
    room.vexits = {@room.vexits, vexit}
    $recycler:recycle(exit)
  endif
  idx = idx - 1
endwhile
"Last modified by Lao-Tzu (#8084) on Fri Nov  1 11:44:26 2002 MST."
.