Iona Software Demo/MacWin_IonaSoftware_DemoCD.iso/pc/movies/hbchild.dir/00016.ls

Text File | 1996-02-23 | 1.5 KB | 59 lines

on exitFrame
  global pathTolang, muppetplayed, pathToMain, spacer, SelfRunning, langPrefix, reallyQuit
  set i to 4
  if SelfRunning <> 1 then
    if the timeoutScript = EMPTY then
      set the timeoutScript to "continueWithoutClick"
    end if
  end if
  if rollOver(i) then
    puppetSprite(i, 1)
    set the castNum of sprite i to 25
    updateStage()
    repeat while rollOver(i)
      if the mouseDown then
        set the castNum of sprite i to the number of cast 25
        updateStage()
        puppetSprite(i, 0)
        exit repeat
      end if
    end repeat
  end if
  set the castNum of sprite i to 24
  updateStage()
  if muppetplayed = 0 then
    if not soundBusy(1) then
      set muppetplayed to 1
      sound playFile 1, pathTolang & "BC-M1"
      repeat while soundBusy(1)
        checkForSelfRunWhenInSnd()
        if the mouseDown then
          sound stop 1
          sound stop 2
          exit repeat
        end if
      end repeat
    end if
  end if
  if muppetplayed = 1 then
    if not soundBusy(2) then
      set muppetplayed to 2
      sound playFile 2, pathTolang & "BC-M2"
      repeat while soundBusy(2)
        checkForSelfRunWhenInSnd()
        if the mouseDown then
          sound stop 1
          sound stop 2
          exit repeat
        end if
      end repeat
    end if
  end if
  if SelfRunning = 1 then
    set reallyQuit to 0
    set mov to pathToMain & "muppets" & spacer & "rll" & spacer & langPrefix & "Rll.dir"
    play movie mov
  end if
  go("idle")
end