home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch11_sfx / shhome.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-11-12  |  445 b   |  14 lines
  1. global gForeCol, gRealClick
  2.  
  3. on mouseDown
  4.   set gRealClick to the clickOn
  5.   set gForeCol to the foreColor of sprite gRealClick
  6.   set divSpot to (the mouseH - the left of sprite the clickOn) / the width of sprite the clickOn
  7.   set divSpot to (the mouseH - the left of sprite the clickOn) / (the width of sprite the clickOn / 3)
  8.   if divSpot <> 3 then
  9.     set divSpot to divSpot + 1
  10.   end if
  11.   puppetSound(cast (30 + divSpot))
  12.   updateStage()
  13. end
  14.