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