home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / elementl / source / fun.dir / 00048.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  208 b   |  14 lines
  1. on mouseDown
  2.   global gWhichElementCast
  3.   startSuck()
  4. end
  5.  
  6. on mouseUp
  7.   global gWhichElementCast
  8.   if rollOver(gWhichElementCast) then
  9.     suckElement(gWhichElementCast - 10)
  10.   else
  11.     unSuck()
  12.   end if
  13. end
  14.