home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / ink&imag / demo / fmlndinv.dir / 00014.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  2.5 KB  |  114 lines
  1. on startMovie
  2.   preLoadCast(401, 419)
  3. end
  4.  
  5. on menu
  6.   repeat with X = 5 to 10
  7.     puppetSprite(X, 1)
  8.     if the clickOn = X then
  9.       set the castNum of sprite X to 422
  10.       updateStage()
  11.       repeat while the mouseDown
  12.         if rollOver(X) = 0 then
  13.           set the castNum of sprite X to 421
  14.         else
  15.           set the castNum of sprite X to 422
  16.         end if
  17.         updateStage()
  18.       end repeat
  19.     end if
  20.   end repeat
  21. end
  22.  
  23. on MenuGo
  24.   repeat with X = 5 to 10
  25.     puppetSprite(5, 0)
  26.     puppetSprite(6, 0)
  27.     puppetSprite(7, 0)
  28.     puppetSprite(8, 0)
  29.     puppetSprite(9, 0)
  30.     puppetSound(0)
  31.     if the castNum of sprite 5 = 422 then
  32.       go("1")
  33.     end if
  34.     if the castNum of sprite 6 = 422 then
  35.       go("intro")
  36.     end if
  37.     if the castNum of sprite 7 = 422 then
  38.       go("end")
  39.     end if
  40.     if the castNum of sprite 8 = 422 then
  41.       go("index")
  42.     end if
  43.     if the castNum of sprite 9 = 422 then
  44.       go("start")
  45.     end if
  46.   end repeat
  47. end
  48.  
  49. on Nav
  50.   if the clickOn = 46 then
  51.     set the castNum of sprite 46 to 424
  52.     updateStage()
  53.     repeat while the mouseDown
  54.       if rollOver(46) = 0 then
  55.         set the castNum of sprite 46 to 423
  56.       else
  57.         set the castNum of sprite 46 to 424
  58.       end if
  59.       updateStage()
  60.     end repeat
  61.   else
  62.     if the clickOn = 47 then
  63.       set the castNum of sprite 47 to 426
  64.       updateStage()
  65.       repeat while the mouseDown
  66.         if rollOver(47) = 0 then
  67.           set the castNum of sprite 47 to 425
  68.         else
  69.           set the castNum of sprite 47 to 426
  70.         end if
  71.         updateStage()
  72.       end repeat
  73.     else
  74.       if the clickOn = 48 then
  75.         set the castNum of sprite 48 to 428
  76.         updateStage()
  77.         repeat while the mouseDown
  78.           if rollOver(48) = 0 then
  79.             set the castNum of sprite 48 to 427
  80.           else
  81.             set the castNum of sprite 48 to 428
  82.           end if
  83.           updateStage()
  84.         end repeat
  85.       end if
  86.     end if
  87.   end if
  88. end
  89.  
  90. on NavGo whichButton, where
  91.   if the castNum of sprite 46 = 424 then
  92.     set the castNum of sprite 46 to 423
  93.     updateStage()
  94.     puppetSound(0)
  95.     go(marker(-1))
  96.   else
  97.     if the castNum of sprite 47 = 426 then
  98.       set the castNum of sprite 47 to 425
  99.       updateStage()
  100.       puppetSound(0)
  101.       go(marker(1))
  102.     else
  103.       if the castNum of sprite 48 = 428 then
  104.         set the castNum of sprite 48 to 427
  105.         updateStage()
  106.         puppetSound(0)
  107.         go(marker(1))
  108.       else
  109.         nothing()
  110.       end if
  111.     end if
  112.   end if
  113. end
  114.