home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / w_puzzle.dir / 00077.ls < prev    next >
Encoding:
Text File  |  1994-12-05  |  779 b   |  32 lines
  1. on exitFrame
  2.   global cpictblock, lmoveblock, rmoveblock, cmoveblock, lpictblock, rpictblock, leftable, rightable
  3.   set cpictblock to []
  4.   set lmoveblock to 0
  5.   set rmoveblock to 0
  6.   set cmoveblock to 0
  7.   set lpictblock to []
  8.   set rpictblock to []
  9.   repeat with i = 1 to 20
  10.     add(lpictblock, 1)
  11.     add(rpictblock, 1)
  12.   end repeat
  13.   repeat with i = 2 to 41
  14.     puppetSprite(i, 1)
  15.     add(cpictblock, 0)
  16.   end repeat
  17.   set the cursor of sprite 47 to [243, 244]
  18.   repeat with i = 11 to 50
  19.     set r to random(40)
  20.     repeat while getAt(cpictblock, r) > 0
  21.       set r to random(40)
  22.     end repeat
  23.     setAt(cpictblock, r, i)
  24.   end repeat
  25.   set leftable to 0
  26.   set rightable to 0
  27.   puppetSprite(48, 1)
  28.   set the castNum of sprite 48 to 0
  29.   cursor([245, 246])
  30.   go("center_f")
  31. end
  32.