modify RHouse and add RMovieShowSeating