home *** CD-ROM | disk | FTP | other *** search
/ Our World is a Playground 3 / 0_firefly3.iso / pc / files / attic.dxr / 00443_stop.ls < prev    next >
Encoding:
Text File  |  1996-08-19  |  581 b   |  20 lines
  1. on mouseDown
  2.   global gTransPath
  3.   puppetSound(1, 0)
  4.   set theSprite to the clickOn
  5.   set buttonUp to the memberNum of sprite theSprite
  6.   set buttonDown to buttonUp + 1
  7.   puppetSprite(theSprite, 1)
  8.   set the memberNum of sprite theSprite to the number of member buttonDown
  9.   puppetSound(1, "mouse down")
  10.   updateStage()
  11.   wait(0.20000000000000001, 0)
  12.   set the memberNum of sprite theSprite to the number of member buttonUp
  13.   puppetSound(1, "mouse up")
  14.   updateStage()
  15.   puppetSprite(theSprite, 0)
  16.   sound playFile 1, gTransPath & "LPTheme.aif"
  17.   unLoad()
  18.   go(1, "close.dir")
  19. end
  20.