Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/Servis/Katalog/Ma/Menu.dxr/00034.ls

Text File | 1998-05-04 | 602 b | 25 lines

global Vyhodnoceni, Klik_zvuk, Uplny_zacatek, Spusteny_soubor, Historie_Soubor, Micham

on enterFrame
  set Vyhodnoceni to 0
  set Micham to 1
  set Spusteny_soubor to the movie
  if Uplny_zacatek then
    deleteAt(Historie_Soubor, 1)
  end if
  tell window "Menu"
    if Historie_Soubor = [] then
      go("Menu_1")
    else
      go("Menu_2")
    end if
  end tell
  if not soundBusy(2) then
    set Klik_zvuk to 4
    set the volume of sound 1 to Klik_zvuk * 38
    set the volume of sound 2 to Klik_zvuk * 38
    set the volume of sound 3 to Klik_zvuk * 38
    puppetSound(2, "Hudba")
  end if
end