home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / intro.dxr / 00041.ls < prev    next >
Encoding:
Text File  |  1996-12-17  |  846 b   |  39 lines
  1. on exitFrame
  2.   rollCheck()
  3.   go(the frame)
  4. end
  5.  
  6. on rollCheck
  7.   set rollerList to [10: 46, 11: 47]
  8.   repeat with x = 10 to 11
  9.     if the mouseDown then
  10.       exit repeat
  11.     end if
  12.     if rollOver(x) = 1 then
  13.       set y to getaProp(rollerList, x)
  14.       if voidp(y) = 1 then
  15.         exit
  16.       end if
  17.       set z to the member of sprite x
  18.       repeat while rollOver(x) = 1
  19.         if the mouseDown then
  20.           exit repeat
  21.         end if
  22.         if rollOver(x) = 1 then
  23.           puppetSprite(x, 1)
  24.           set the member of sprite x to y
  25.           updateStage()
  26.           next repeat
  27.         end if
  28.         puppetSprite(x, 1)
  29.         set the member of sprite x to z
  30.         updateStage()
  31.       end repeat
  32.       puppetSprite(x, 1)
  33.       set the member of sprite x to z
  34.       puppetSprite(x, 0)
  35.       updateStage()
  36.     end if
  37.   end repeat
  38. end
  39.