home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / sharewar / slunec / app / muchtom.exe / scripts / frame_52 / DoAction.as
Text File  |  2002-07-25  |  1KB  |  68 lines
  1. play();
  2. i = 1;
  3. while(i < 8)
  4. {
  5.    set("bild" + i,eval("bild" + i) - inkrement);
  6.    i = 1 + i;
  7. }
  8. if(random(seed) == 1)
  9. {
  10.    counter += 1;
  11.    if(100 < counter)
  12.    {
  13.       counter = 1;
  14.    }
  15.    duplicateMovieClip("itemdummy","item" + counter,16384 + (10 + counter));
  16.    i = 1;
  17.    set("item" + counter + ":pos",random(level) + 1);
  18.    while(i < 20 and 0 < eval("bild" + eval("item" + counter + ":pos")))
  19.    {
  20.       set("item" + counter + ":pos",random(level) + 1);
  21.       i = 1 + i;
  22.    }
  23.    if(i < 20)
  24.    {
  25.       set("bild" + eval("item" + counter + ":pos"),20);
  26.       setProperty("item" + counter, _Y, -10);
  27.    }
  28.    else
  29.    {
  30.       set("bild" + eval("item" + counter + ":pos"),40);
  31.       setProperty("item" + counter, _Y, -30);
  32.    }
  33.    setProperty("item" + counter, _X, startpos + (eval("item" + counter + ":pos") - 1) * abstand);
  34. }
  35. if(punkte == pcount + level * 5)
  36. {
  37.    level += 1;
  38.    i = 1;
  39.    while(i < 8)
  40.    {
  41.       removeMovieClip("muchte" + i);
  42.       i = 1 + i;
  43.    }
  44.    i = 1;
  45.    while(i < 101)
  46.    {
  47.       removeMovieClip("item" + i);
  48.       i = 1 + i;
  49.    }
  50.    gotoAndStop(50);
  51. }
  52. if(lost == 10)
  53. {
  54.    i = 1;
  55.    while(i < 8)
  56.    {
  57.       removeMovieClip("muchte" + i);
  58.       i = 1 + i;
  59.    }
  60.    i = 1;
  61.    while(i < 101)
  62.    {
  63.       removeMovieClip("item" + i);
  64.       i = 1 + i;
  65.    }
  66.    gotoAndStop(55);
  67. }
  68.