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