home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / sharewar / slunec / app / muchtom.exe / scripts / frame_51 / DoAction.as
Text File  |  2002-07-25  |  677b  |  43 lines
  1. pcount = punkte;
  2. i = 1;
  3. while(i < 8)
  4. {
  5.    removeMovieClip("muchte" + i);
  6.    i = 1 + i;
  7. }
  8. abstand = 550 / level;
  9. startpos = abstand / 2;
  10. i = 1;
  11. while(level >= i)
  12. {
  13.    duplicateMovieClip("muchtendummy","muchte" + i,16384 + i);
  14.    setProperty("muchte" + i, _X, startpos + abstand * (i - 1));
  15.    setProperty("muchte" + i, _Y, 300);
  16.    if(random(2) == 1)
  17.    {
  18.       setProperty("muchte" + i, _xscale, -80);
  19.    }
  20.    i = 1 + i;
  21. }
  22. if(level < 7)
  23. {
  24.    seed = seeder - 4 * level;
  25. }
  26. else
  27. {
  28.    seed -= 2;
  29.    if(seed < 8)
  30.    {
  31.       seed = 8;
  32.    }
  33. }
  34. if(4 < level)
  35. {
  36.    inkrement += 1;
  37.    if(10 < inkrement)
  38.    {
  39.       inkrement = 10;
  40.    }
  41. }
  42. play();
  43.