home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / atrium.dxr / 00033_entry.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  355 b   |  22 lines
  1. on mouseUp
  2.   global asim
  3.   if asim = 0 then
  4.     puppetSound(1, 0)
  5.     set the volume of sound 1 to 255
  6.     puppetSound(1, 11)
  7.   end if
  8.   go("aN")
  9. end
  10.  
  11. on exitFrame
  12.   global asim
  13.   if not soundBusy(1) then
  14.     puppetSound(1, 0)
  15.     set asim to 1
  16.     set the volume of sound 1 to 255
  17.     puppetSound(1, 11)
  18.   end if
  19.   SelectCursor(OC())
  20.   go(the frame)
  21. end
  22.