added script.R
added play_movie()