home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / ingenius / shockwav / quest.dcr / 00017.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  479 b   |  21 lines
  1. on mouseDown
  2.   set c1 to the backColor of sprite 44
  3.   set c2 to 16
  4.   repeat while the mouseDown
  5.     if rollOver(44) then
  6.       set the backColor of sprite 44 to c2
  7.     else
  8.       set the backColor of sprite 44 to c1
  9.     end if
  10.     updateStage()
  11.     put the mouseDown
  12.   end repeat
  13.   set the backColor of sprite 44 to c1
  14.   updateStage()
  15.   if rollOver(44) then
  16.     puppetSprite(41, 1)
  17.     set the castNum of sprite 41 to the number of cast "Guy forward"
  18.     go("cave")
  19.   end if
  20. end
  21.