home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / mcny / source / funhouse.dir / 00059.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  176 b   |  10 lines
  1. on mouseUp
  2.   global a, x, opensesame, playphono
  3.   puppetSound("organ3")
  4.   updateStage()
  5.   set x to 3
  6.   if (x = a) and (playphono = 1) then
  7.     set opensesame to 1
  8.   end if
  9. end
  10.