home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct06045.geo / 00105.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.9 KB  |  104 lines
  1. on startMovie
  2.   Set_CDcounter(9)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   CursorsReset()
  9.   RestoreHilites()
  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() > 2 then
  40.       GoNextMovie()
  41.     else
  42.       go("t" & Get_NEXT())
  43.     end if
  44.     Set_NEXT(Get_NEXT() + 1)
  45.   end if
  46. end
  47.  
  48. on stopMovie
  49.   sound stop 1
  50.   unLoad()
  51.   setEmptyCursor()
  52. end
  53.  
  54. on GoNextMovie
  55.   PlaySound("GOSOUND.SO1")
  56.   SaveHilite()
  57.   Add_CDcounter(1)
  58.   set cdNum to Get_CDcounter()
  59.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  60.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  61. end
  62.  
  63. on playTheTSound theTSnd
  64.   PlaySound("NCT06045.s0" & theTSnd)
  65. end
  66.  
  67. on handleExit
  68.   repeat with i = 21 to 24
  69.     UpdateCursors(i, 0)
  70.   end repeat
  71.   go("t2b")
  72. end
  73.  
  74. on go_pn theSpriteNum
  75.   go("x" & theSpriteNum)
  76.   set the castNum of sprite theSpriteNum to the number of cast ("BTN" & theSpriteNum & "_V")
  77.   repeat with i = 21 to 23
  78.     UpdateCursors(i, 2)
  79.   end repeat
  80.   UpdateCursors(24, 3)
  81. end
  82.  
  83. on CursorsReset
  84.   repeat with i = 12 to 13
  85.     puppetSprite(i, 0)
  86.     UpdateCursors(i, 0)
  87.   end repeat
  88.   repeat with i = 16 to 20
  89.     puppetSprite(i, 0)
  90.     UpdateCursors(i, 0)
  91.   end repeat
  92. end
  93.  
  94. on step_prep
  95.   repeat with i = 12 to 13
  96.     UpdateCursors(i, 3)
  97.     puppetSprite(i, 1)
  98.   end repeat
  99.   repeat with i = 16 to 20
  100.     UpdateCursors(i, 3)
  101.     puppetSprite(i, 1)
  102.   end repeat
  103. end
  104.