home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 2 / cd.iso / mac / share / Funkit / FunKit / funkit8.Dxr / 00020.ls < prev    next >
Encoding:
Text File  |  1997-07-03  |  360 b   |  18 lines
  1. on mouseUp
  2.   set mynum to the clickOn
  3.   set the cursor of sprite mynum to [307, 308]
  4.   sound stop 1
  5.   repeat with i = 1 to 48
  6.     puppetSprite(i, 0)
  7.     set the visible of sprite i to 1
  8.   end repeat
  9.   set the visible of sprite 45 to 0
  10.   updateStage()
  11.   go("exit")
  12. end
  13.  
  14. on mouseDown
  15.   set mynum to the clickOn
  16.   set the cursor of sprite mynum to [301, 302]
  17. end
  18.