Meet MediaBand/meetmediaband.bin/main/shared.dir/00457_Script_RandomPlay

Text File | 1995-07-13 | 4KB | 176 lines

on randomplay
  repeat while 1 = 1
    set randomMovie = random(13)
    if randomMovie = 1 then
      set nextMovie = "archives"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:Archives"
      end if
    end if

    if randomMovie = 2 then
      set nextMovie = "giftshop"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:giftshop"
      end if
    end if

    if randomMovie = 3 then
      set nextMovie = "playroom"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:playroom"
      end if
    end if

    if randomMovie = 4 then
      set nextMovie = "stage"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:Stage"
      end if
    end if

    if randomMovie = 5 then
      set nextMovie = "AethMenu"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:AethMenu"
      end if
    end if

    if randomMovie = 6 then
      set nextMovie = "smartbar"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:smartbar"
      end if
    end if

    if randomMovie = 7 then
      set nextMovie = "techroom"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:techroom"
      end if
    end if

    if randomMovie = 8 then
      set nextMovie = "HJMenu"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play frame "begin" of movie "@:..:videos:HouseJam:HJMenu"
      end if
    end if

    if randomMovie = 9 then
      set nextMovie = "Blast"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:Blast"
      end if
    end if

    if randomMovie = 10 then
      set nextMovie = "Intro"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:Intro"
      end if
    end if

    if randomMovie = 11 then
      set nextMovie = "ArcMenu"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:..:Archives:ArcMenu"
      end if
    end if

    if randomMovie = 12 then
      set nextMovie = "Invemenu"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        updatestage
        play movie "@:Invemenu"
      end if
    end if

    if randomMovie = 13 then
      set the colordepth = 16
      if the colordepth <> 16 then set the colordepth = 32

      if the colordepth = 16 then
        set nextMovie = "undome16"
        if the movie = nextmovie then
          nothing
        else
          puppetsound "wah wah wo oh"
          play frame 17 of movie "@:..:videos:undome16"
        end if
      end if

      if the colordepth = 32 then
        set nextMovie = "undome32"
        if the movie = nextmovie then
          nothing
        else
          puppetsound "wah wah wo oh"
          play frame 17 of movie "@:..:videos:undome32"
        end if
      end if

      -- all other colordepths - use the 8-bit movie
      set nextMovie = "undome8"
      if the movie = nextmovie then
        nothing
      else
        puppetsound "wah wah wo oh"
        play frame 17 of movie "@:..:videos:undome8"
      end if


    end if

  end repeat

end randomplay