home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch11_sfx / shhome.dir / 00001.ls next >
Encoding:
Text File  |  1996-11-12  |  465 b   |  21 lines

  1. on mouseDown
  2.   global gVSprite
  3.   set gVSprite to the clickOn
  4.   puppetSound("switches1")
  5.   goPage("../e_sorder.htm")
  6. end
  7.  
  8. on mouseUp
  9.   global gVSprite
  10.   if not rollOver(gVSprite) then
  11.     exit
  12.   end if
  13.   puppetSprite(gVSprite, 1)
  14.   repeat while the bottom of sprite gVSprite > -10
  15.     set the loc of sprite gVSprite to the loc of sprite gVSprite + point(1, -1)
  16.     updateStage()
  17.   end repeat
  18.   set the visible of sprite gVSprite to 0
  19.   puppetSprite(gVSprite, 0)
  20. end
  21.