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