Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct11030.geo/00035.ls

Text File | 1997-03-19 | 3.0 KB | 143 lines

on startMovie
  Set_CDcounter(1)
  initLesson()
  CheckForTagWd()
end

on HideLastStep
  if Get_NEXT() = 2 then
    set the movieRate of sprite 15 to 0
  else
    if Get_NEXT() = 3 then
      set the movieRate of sprite 15 to 0
    else
      if Get_NEXT() = 4 then
        set the movieRate of sprite 15 to 0
      else
        if Get_NEXT() = 5 then
          set the movieRate of sprite 15 to 0
        end if
      end if
    end if
  end if
end

on continueQT
  if the castNum of sprite 12 <> 0 then
    if Get_NEXT() = 2 then
      set the movieRate of sprite 15 to 0
      set the movieRate of sprite 15 to 1
    else
      if Get_NEXT() = 3 then
        set the movieRate of sprite 15 to 0
        set the movieRate of sprite 15 to 1
      else
        if Get_NEXT() = 4 then
          set the movieRate of sprite 15 to 0
          set the movieRate of sprite 15 to 1
        else
          if Get_NEXT() = 5 then
            set the movieRate of sprite 15 to 0
            set the movieRate of sprite 15 to 1
          end if
        end if
      end if
    end if
  end if
end

on TheinitCursor
  initCursorCastNum()
  initCursorList(1)
  set CursorCastNum to getCursor(2)
  cursor([CursorCastNum, CursorCastNum + 1])
end

on checkScreenStatus
  CheckRollOver()
  CheckSnakeStatus()
  go(the frame)
end

on BlinkNext
  if (the timer > getTimer()) and not soundBusy(2) then
    startTimer()
    if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
    else
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
    end if
  end if
end

on playTheTSound theTSnd
  PlaySound("NCT11030.s0" & theTSnd)
end

on GoNext
  if not get_Disabled() then
    sound stop 1
    sound stop 2
    if Get_NEXT() < 5 then
      set the stageColor to the stageColor
      RestoreHilites()
    end if
    if Get_NEXT() = 4 then
      UpdateCursors(16, 3)
    end if
    if Get_NEXT() = 6 then
      GoNextMovie()
    else
      go("t" & Get_NEXT())
    end if
    Set_NEXT(Get_NEXT() + 1)
  end if
end

on GoEndMovie
  global ReturnToMenu
  PlaySound("GOSOUND.SO1")
  SaveSeenScreens()
  if (ReturnToMenu = "SUBJECT") and (Get_ScreenSubject() <> "11") then
    set theNum to integer(Get_ScreenSubject())
    go(1, "NCS" & Get_ScreenSubject() & "010.GEO")
  else
    if ReturnToMenu = "TOOL" then
      go(1, "NC_MM020.GEO")
    else
      if ReturnToMenu = "SECTION" then
        go(1, "NC_MM040.GEO")
      else
        if ReturnToMenu = "MAIN MENU" then
          go(1, "NC_MM010.GEO")
        else
          go(1, "NC_MM010.GEO")
        end if
      end if
    end if
  end if
end

on replay
  HideLastStep()
  set the stageColor to the stageColor
  RestoreHilites()
  Set_NEXT(2)
  go("t1")
end

on stopMovie
  sound stop 1
  unLoad()
  setEmptyCursor()
end

on GoNextMovie
  PlaySound("GOSOUND.SO1")
  SaveHilite()
  Add_CDcounter(1)
  set cdNum to Get_CDcounter()
  set movieName to item cdNum of Get_CurrentSnakeScreens()
  go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
end