home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / DemoAtlas / Ecran1_2_3.dir / 00095_Script_95 < prev    next >
Text File  |  2002-02-07  |  355b  |  20 lines
  1. -- purge automatique des globes
  2.  
  3. property aPurger
  4.  
  5. on exitFrame me
  6.   s = the currentSpriteNum
  7.   n = sprite(s).memberNum
  8.   if (the frame) mod 5 = 0 then
  9.     repeat with i=1 to count(aPurger)
  10.       member(aPurger[i]).unload()
  11.     end repeat
  12.     aPurger = [n]
  13.   else
  14.     append aPurger, n
  15.   end if
  16. end
  17.  
  18. on beginSprite me
  19.   aPurger = []
  20. end