home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / baritone.dxr / 00002_MainView.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  540 b   |  26 lines
  1. on exitFrame
  2.   UpdateCursor([[left(), leftcursor()], [right(), rightcursor()], [4, ObjectCursor()], [5, ObjectCursor()]])
  3.   go(the frame)
  4. end
  5.  
  6. on mouseDown
  7.   if PointingAt(4) then
  8.     WatchCursor()
  9.     cursor(0)
  10.     set the volume of sound 1 to 255
  11.     set the volume of sound 2 to 255
  12.     go("video")
  13.   end if
  14.   if PointingAt(left()) or PointingAt(right()) then
  15.     puppetSound(1, 16)
  16.     WatchCursor()
  17.     repeat while soundBusy(1)
  18.     end repeat
  19.     quit()
  20.   end if
  21.   if PointingAt(5) then
  22.     WatchCursor()
  23.     go("stand")
  24.   end if
  25. end
  26.