home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / START.Dxr / 00075.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  670 b   |  24 lines
  1. on mouseDown
  2.   global gDown
  3.   set gDown to 6
  4.   set the memberNum of sprite 6 to 24
  5.   puppetSound(3, "vol 1")
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global gDown, gTestList, gCursor
  11.   if gDown = 6 then
  12.     cursor(4)
  13.     set gPhysDown to 0
  14.     set the memberNum of sprite 6 to 25
  15.     updateStage()
  16.     set gTestList to [310321: [1101, 9, 0.0, 0.0], 310202: [1101, 9, 0.0, 0.0], 310333: [1101, 9, 0.0, 0.0], 310209: [1101, 9, 0.0, 0.0], 330123: [1101, 9, 0.0, 0.0], 320115: [1101, 9, 0.0, 0.0], 330201: [1101, 9, 0.0, 0.0], 330215: [1101, 9, 0.0, 0.0]]
  17.     puppetSound(3, "vol 1")
  18.     repeat while soundBusy(3)
  19.     end repeat
  20.     set gCursor to 1
  21.     go("finishG")
  22.   end if
  23. end
  24.