home *** CD-ROM | disk | FTP | other *** search
/ MACup 1998 March / Image.iso / showdata / SHOWEIN2.Dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1997-07-31  |  345 b   |  18 lines
  1. on mouseDown
  2.   global mysprite
  3.   set mysprite to the clickOn
  4.   puppetSprite(mysprite, 1)
  5.   set the memberNum of sprite mysprite to the memberNum of sprite mysprite + 1
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global mysprite
  11.   if mysprite > 39 then
  12.     puppetSprite(mysprite, 0)
  13.     go(the frame + 1)
  14.   end if
  15.   set mysprite to 0
  16.   dontPassEvent()
  17. end
  18.