home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / story / story.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  1996-12-16  |  479 b   |  23 lines
  1. on exitFrame
  2.   repeat with x = 9 to 12
  3.     if rollOver(x) = 1 then
  4.       puppetSprite(x, 1)
  5.       set the visible of sprite x to 1
  6.       updateStage()
  7.       repeat while rollOver(x) = 1
  8.         if the mouseDown then
  9.           exit repeat
  10.         end if
  11.         if rollOver(x) = 0 then
  12.           exit repeat
  13.         end if
  14.       end repeat
  15.       next repeat
  16.     end if
  17.     set the visible of sprite x to 0
  18.     updateStage()
  19.     puppetSprite(x, 0)
  20.   end repeat
  21.   go(the frame)
  22. end
  23.