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