home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / atrium.dxr / 00031.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  553 b   |  34 lines
  1. on AtriumAmbient
  2.   put the soundEnabled, 1
  3.   set the soundLevel to 255
  4.   puppetSound(2, 0)
  5.   sound fadeIn 2, 400
  6.   puppetSound(2, 32)
  7. end
  8.  
  9. on SpoolQT n
  10.   set the movieTime of sprite n to the duration of cast the castNum of sprite n - 10
  11. end
  12.  
  13. on startMovie
  14.   WatchCursor()
  15.   InitCursorNumbers()
  16.   AtriumAmbient()
  17.   PointAt(0)
  18. end
  19.  
  20. on GoPorter
  21.   global slaptopflag, outTo
  22.   puppetSound(1, 0)
  23.   puppetSound(2, 0)
  24.   sound stop 1
  25.   if slaptopflag then
  26.     set outTo to EMPTY
  27.     go("ad1")
  28.     exit
  29.   else
  30.     go("ad" & random(2) & "l")
  31.     exit
  32.   end if
  33. end
  34.