home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / elementl / source / main.dir / 00033.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  454 b   |  18 lines
  1. on mouseDown
  2.   buttonDown()
  3. end
  4.  
  5. on mouseUp
  6.   set selectedSprite to the clickOn
  7.   set castMemberNumber to the castNum of sprite selectedSprite
  8.   set castMemberName to the name of cast castMemberNumber
  9.   if rollOver(selectedSprite) = 0 then
  10.     nothing()
  11.   else
  12.     set the foreColor of sprite selectedSprite to 255
  13.     set the backColor of sprite selectedSprite to 0
  14.     updateStage()
  15.     selectInterviewee(castMemberNumber, castMemberName)
  16.   end if
  17. end
  18.