home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / minka_a.dir / 00053_Script_53 < prev    next >
Text File  |  1994-12-06  |  644b  |  38 lines
  1. on exitframe
  2.   global getpoints,getitems
  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.   repeat with i=1 to 7
  13.     if not(getat(getitems,i)) then
  14.       puppetsprite (i+30),1
  15.       set the castnum of sprite (i+30)=0
  16.     end if
  17.   end repeat
  18.   puppetsprite 48,true
  19.   set the castnum of sprite 48=210
  20.   set the loch of sprite 48=0
  21.   set the locv of sprite 48=0
  22.   global getpieces
  23.   if getat(getpieces,1) then
  24.     puppetsprite 15,1
  25.   end if
  26. end
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.