SKIP - The Laundry Guide/LEVER_CD.iso/lever/flags.dir/00002_StartMovie.ls

Text File | 1997-02-21 | 1.6 KB | 75 lines

on playsound soundid
  global audiocount
  set audiocount to (120 + random(60)) * 30
  if soundid = 1 then
    puppetSound(2, "coveraudio")
  else
    puppetSound(2, "FlagAudio")
  end if
  cursor(0)
end

on setbanner banner
  set the member of sprite 45 to member ("MainBanner" & banner)
  set the ink of sprite 45 to 36
  set the locH of sprite 45 to 10
  set the locV of sprite 45 to 455
end

on setswiss
end

on setlanguage Language
  global languagechosen, oldlanguagechosen, colorcount
  cursor(4)
  set oldlanguagechosen to languagechosen
  set languagechosen to Language
  puppetSprite(45, 0)
  sound stop 2
  puppetSound(1, "flagresponce")
  go("start flag")
end

on startMovie
  global languagechosen, framecount, bannernumber, swisscount, irish, hidetext, obj
  set the exitLock to 1
  set the keyDownScript to "myNoEscape"
  set the centerStage to 1
  cursor(4)
  set irish to 0
  set hidetext to 1
  set swisscount to 0
  set framecount to 0
  set bannernumber to 1
  set languagechosen to "English"
  openXLib("widget")
  set obj to widget(mnew)
  repeat with i = 5 to 17
    set the visible of sprite i to 0
  end repeat
  set the visible of sprite 34 to 0
  set the visible of sprite 35 to 0
  set the visible of sprite 36 to 0
  set the visible of sprite 37 to 0
  set the visible of sprite 38 to 0
  set the visible of sprite 39 to 0
  set the visible of sprite 40 to 0
  set the visible of sprite 33 to 0
end

on myNoEscape
  if the keyCode = 53 then
    dontPassEvent()
    updateStage()
    go("quitting")
  end if
end

on stopMovie
  global obj
  obj(mdispose)
  closeXLib("widget")
  sound stop 1
  sound stop 2
end