home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / map.dir / 00051.ls < prev    next >
Encoding:
Text File  |  1994-12-12  |  437 b   |  18 lines
  1. on exitFrame
  2.   global getpoints, cursoridnum, jmoviename
  3.   set p to 0
  4.   repeat with i = 1 to 8
  5.     if getAt(getpoints, i) = 1 then
  6.       set p to 1
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   puppetSprite(30, 1)
  11.   set the castNum of sprite 30 to the castNum of sprite 30 + p
  12.   set cursoridnum to 1
  13.   set jmoviename to EMPTY
  14.   set the cursor of sprite 29 to [243, 244]
  15.   set the cursor of sprite 30 to [243, 244]
  16.   cursor([233, 234])
  17. end
  18.