home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct11020.geo / 00032.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.8 KB  |  85 lines
  1. on startMovie
  2.   Set_CDcounter(3)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on TheinitCursor
  8.   initCursorCastNum()
  9.   initCursorList(1)
  10.   set CursorCastNum to getCursor(2)
  11.   cursor([CursorCastNum, CursorCastNum + 1])
  12. end
  13.  
  14. on checkScreenStatus
  15.   CheckRollOver()
  16.   CheckSnakeStatus()
  17.   go(the frame)
  18. end
  19.  
  20. on BlinkNext
  21.   if (the timer > getTimer()) and not soundBusy(2) then
  22.     startTimer()
  23.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  24.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  25.     else
  26.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  27.     end if
  28.   end if
  29. end
  30.  
  31. on playTheTSound theTSnd
  32.   PlaySound("NCT11020.s0" & theTSnd)
  33. end
  34.  
  35. on GoNext
  36.   if not get_Disabled() then
  37.     sound stop 2
  38.     if Get_NEXT() >= 3 then
  39.       GoEndMovie()
  40.     else
  41.       go("t" & Get_NEXT())
  42.     end if
  43.     Set_NEXT(Get_NEXT() + 1)
  44.   end if
  45. end
  46.  
  47. on GoEndMovie
  48.   global ReturnToMenu
  49.   PlaySound("GOSOUND.SO1")
  50.   SaveSeenScreens()
  51.   if (ReturnToMenu = "SUBJECT") and (Get_ScreenSubject() <> "11") and (Get_ScreenSubject() <> "00") then
  52.     set theNum to integer(Get_ScreenSubject())
  53.     go(1, "NCS" & Get_ScreenSubject() & "010.GEO")
  54.   else
  55.     if ReturnToMenu = "TOOL" then
  56.       go(1, "NC_MM020.GEO")
  57.     else
  58.       if ReturnToMenu = "SECTION" then
  59.         go(1, "NC_MM040.GEO")
  60.       else
  61.         if ReturnToMenu = "MAIN MENU" then
  62.           go(1, "NC_MM010.GEO")
  63.         else
  64.           go(1, "NC_MM010.GEO")
  65.         end if
  66.       end if
  67.     end if
  68.   end if
  69. end
  70.  
  71. on stopMovie
  72.   sound stop 1
  73.   unLoad()
  74.   setEmptyCursor()
  75. end
  76.  
  77. on GoNextMovie
  78.   PlaySound("GOSOUND.SO1")
  79.   SaveHilite()
  80.   Add_CDcounter(1)
  81.   set cdNum to Get_CDcounter()
  82.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  83.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  84. end
  85.