home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / w_puzzle.dir / 00079.ls < prev    next >
Encoding:
Text File  |  1994-12-05  |  742 b   |  31 lines
  1. on exitFrame
  2.   global lmoveblock, rmoveblock
  3.   set the locH of sprite 48 to mouseH()
  4.   set the locV of sprite 48 to mouseV()
  5.   if rollOver(43) then
  6.     set the castNum of sprite 45 to the castNum of sprite 45 + 2
  7.     updateStage()
  8.     repeat with i = 2 to 42
  9.       puppetSprite(i, 0)
  10.     end repeat
  11.     repeat with i = 2 to 44
  12.       set the cursor of sprite i to 0
  13.     end repeat
  14.     go("left")
  15.   else
  16.     if rollOver(44) then
  17.       set the castNum of sprite 46 to the castNum of sprite 46 + 2
  18.       updateStage()
  19.       repeat with i = 2 to 42
  20.         puppetSprite(i, 0)
  21.       end repeat
  22.       repeat with i = 2 to 44
  23.         set the cursor of sprite i to 0
  24.       end repeat
  25.       go("right")
  26.     else
  27.       go(#loop)
  28.     end if
  29.   end if
  30. end
  31.