home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / mcny / source / funhouse.dir / 00061.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  466 b   |  27 lines
  1. on mouseUp
  2.   global gotkey, a, x, playphono
  3.   set playphono to 1
  4.   if gotkey = 0 then
  5.     sound fadeOut 2, 15
  6.     startTimer()
  7.     repeat while the timer < 30
  8.       nothing()
  9.     end repeat
  10.   end if
  11.   if a = 1 then
  12.     puppetSound("organ1")
  13.     updateStage()
  14.   else
  15.     if a = 2 then
  16.       puppetSound("organ2")
  17.       updateStage()
  18.     else
  19.       if a = 3 then
  20.         puppetSound("organ3")
  21.         updateStage()
  22.       end if
  23.     end if
  24.   end if
  25.   showGlobals()
  26. end
  27.