home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch06_med / 1bitgrph / andromed.dir / 00015.ls < prev    next >
Encoding:
Text File  |  1996-12-02  |  307 b   |  17 lines
  1. on mouseDown
  2.   puppetSprite(6, 1)
  3.   repeat while the stillDown
  4.     if rollOver(6) then
  5.       set the castNum of sprite 6 to cast "highliteRight"
  6.     else
  7.       set the castNum of sprite 6 to cast "right"
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   puppetSprite(6, 0)
  12. end
  13.  
  14. on mouseUp
  15.   go(the frame + 1)
  16. end
  17.