home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / elementl / source / fun.dir / 00073.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  268 b   |  14 lines
  1. on mouseDown
  2.   global gSuckedElement, gDroppedElement, gIsSucked
  3.   if gIsSucked = 1 then
  4.     set the foreColor of sprite 9 to 20 + (3 * gSuckedElement)
  5.     cursor([2])
  6.     set the visible of sprite 9 to 1
  7.     updateStage()
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   dropElement()
  13. end
  14.