home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / shared.dir / 05298.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  414 b   |  14 lines
  1. on mouseUp
  2.   global gpressed
  3.   puppetSound("click button")
  4.   set the puppet of sprite the clickOn to 1
  5.   set the castNum of sprite the clickOn to the number of cast (the name of cast the castNum of sprite the clickOn && "down")
  6.   repeat with n = 2 to 11
  7.     if n <> the clickOn then
  8.       set the puppet of sprite n to 0
  9.     end if
  10.   end repeat
  11.   set the visible of sprite n to 1
  12.   set gpressed to the clickOn
  13. end
  14.