home *** CD-ROM | disk | FTP | other *** search
/ Online Today 2002 April / OTODAY042002.ISO / pc / progwin / lighths.swf / scripts / DefineSprite_1457 / frame_2 / DoAction.as
Encoding:
Text File  |  2001-08-13  |  485 b   |  23 lines
  1. zyklus = ++zyklus;
  2. if(7 < zyklus)
  3. {
  4.    zyklus = 1;
  5.    k = 0;
  6.    while(k < blasenprozyklus)
  7.    {
  8.       i = zyklus * blasenprozyklus - k;
  9.       removeMovieClip("blase" + i);
  10.       k++;
  11.    }
  12. }
  13. k = 0;
  14. while(k < blasenprozyklus)
  15. {
  16.    i = zyklus * blasenprozyklus - k;
  17.    duplicateMovieClip(blase,"blase" + i,16384 + i);
  18.    setProperty("blase" + i, _X, 0);
  19.    setProperty("blase" + i, _Y, random(260) - 130);
  20.    setProperty("blase" + i, _alpha, random(100));
  21.    k++;
  22. }
  23.