Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct02030.geo/00026.ls

Text File | 1997-03-19 | 3.3 KB | 138 lines

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

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

on GoNext
  if not get_Disabled() then
    sound stop 2
    set nextVal to Get_NEXT()
    if nextVal = 1 then
      go("t1")
    else
      if nextVal = 2 then
        go("t2")
      else
        if nextVal = 3 then
        else
          if nextVal = 4 then
            UpdateCursors(24, 0)
            go("t4")
          else
            if nextVal = 5 then
              go("t5")
            else
              if nextVal = 6 then
                UpdateCursors(20, 0)
                go("t6")
              else
                if nextVal = 7 then
                  go("t7")
                else
                  if nextVal = 8 then
                    UpdateCursors(16, 0)
                    go("t8")
                  else
                    if nextVal = 9 then
                      go("t9")
                    else
                      if nextVal = 10 then
                        go("t10")
                        UpdateCursors(15, 0)
                      else
                        if nextVal = 11 then
                          UpdateCursors(24, 0)
                          go("t11")
                        else
                          if nextVal = 12 then
                            UpdateCursors(16, 0)
                            go("t12")
                          else
                            if nextVal = 13 then
                              go("t13")
                            else
                              if nextVal = 16 then
                                go("t14")
                              else
                                UpdateCursors(20, 0)
                                GoNextMovie()
                                exit
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
    Set_NEXT(Get_NEXT() + 1)
  end if
end

on TheinitCursor
  initCursorCastNum()
  initCursorList(1)
  set CursorCastNum to getCursor(2)
  cursor([CursorCastNum, CursorCastNum + 1])
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

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 PressBtn theBtn
  Set_PressedLast(theBtn)
  switchButt(Get_AnsSprite() + theBtn - 1, "down" & theBtn, "HandleBtn" && theBtn)
end

on set_MarkSprite theNum
  global MarkSprite
  set MarkSprite to theNum
end

on Get_MarkSprite
  global MarkSprite
  return MarkSprite
end

on handleREPLAY
  Set_NEXT(16)
  GoNext()
end