home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / usr_pc.dir / 00150.ls < prev    next >
Encoding:
Text File  |  1996-03-09  |  1.9 KB  |  85 lines
  1. on startMovie
  2.   global mycursor
  3.   set the colorDepth to 8
  4.   set mycursor to [1, 2]
  5.   set the visible of sprite 15 to 0
  6.   set the visible of sprite 16 to 0
  7.   set the visible of sprite 17 to 0
  8.   set the visible of sprite 18 to 0
  9.   set the visible of sprite 19 to 0
  10.   set the visible of sprite 20 to 0
  11. end
  12.  
  13. on idle
  14. end
  15.  
  16. on resetit
  17.   set a to 0
  18.   set the timeoutScript to "nothing"
  19.   puppetSprite(30, 0)
  20.   puppetSprite(31, 0)
  21.   puppetSprite(32, 0)
  22.   puppetSprite(33, 0)
  23.   puppetSprite(34, 0)
  24.   puppetSprite(35, 0)
  25.   puppetSprite(36, 0)
  26.   puppetSprite(37, 0)
  27.   puppetSprite(38, 0)
  28.   puppetSprite(39, 0)
  29.   puppetSprite(40, 0)
  30.   puppetSprite(41, 0)
  31.   puppetSprite(42, 0)
  32.   set the visible of sprite 15 to 0
  33.   set the visible of sprite 16 to 0
  34.   set the visible of sprite 17 to 0
  35.   set the visible of sprite 18 to 0
  36.   set the visible of sprite 19 to 0
  37.   set the visible of sprite 20 to 0
  38.   updateStage()
  39. end
  40.  
  41. on rollme
  42.   global mycursor
  43.   repeat with a = 30 to 42
  44.     if rollOver(a) then
  45.       puppetSprite(a, 1)
  46.       set old to the castNum of sprite a
  47.       set the castNum of sprite a to old + 1
  48.       set the visible of sprite (a - 20) to 1
  49.       set the cursor of sprite a to mycursor
  50.       updateStage()
  51.       repeat while rollOver(a)
  52.         go(the frame)
  53.         if the mouseDown then
  54.           sound playFile 1, "NOISE.AIF"
  55.           repeat while the mouseDown
  56.             if a < 30 then
  57.               set the castNum of sprite a to old
  58.               set the visible of sprite (a - 20) to 0
  59.               updateStage()
  60.               beep()
  61.               puppetSprite(a, 0)
  62.             end if
  63.           end repeat
  64.           exit
  65.           exit repeat
  66.         end if
  67.       end repeat
  68.       set the castNum of sprite a to old
  69.       set the visible of sprite (a - 20) to 0
  70.       puppetSprite(a, 0)
  71.       updateStage()
  72.     end if
  73.   end repeat
  74. end
  75.  
  76. on Gothere
  77.   sound fadeOut 1, 2 * 60
  78.   go("main2")
  79. end
  80.  
  81. on gothere2
  82.   set the timeoutScript to "nothing"
  83.   go("internet")
  84. end
  85.