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