Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/Democd3/video.dxr/00129_play frame script.ls

Text File | 1997-06-04 | 610 b | 25 lines

on enterFrame
  global gtotallength, open1
  set the soundEnabled to 1
  if open1 = 0 then
    set the visible of sprite 3 to 1
    set the movieTime of sprite 3 to 0
    setTrackEnabled(sprite(3), 1, 1)
    setTrackEnabled(sprite(3), 2, 1)
    set the movieRate of sprite 3 to 1
  end if
  set open1 to 1
  updateStage()
  set gtotallength to trackStopTime(sprite(3), 1)
  if the movieTime of sprite 3 > (gtotallength - 20) then
    set the visible of sprite 3 to 0
    setTrackEnabled(sprite(3), 1, 0)
    setTrackEnabled(sprite(3), 2, 0)
    go(the frame - 1)
  end if
end

on exitFrame
  go(the frame)
end