home *** CD-ROM | disk | FTP | other *** search
/ 404 Jogos / CLJG.iso / Diversos / orbitballs10-blank.swf / scripts / frame_2 / DoAction.as
Encoding:
Text File  |  2008-09-02  |  995 b   |  46 lines
  1. if(level > 1)
  2. {
  3.    removeMovieClip(ball1);
  4.    removeMovieClip(ball2);
  5.    speedx1 = 0;
  6.    speedy1 = 0;
  7.    speedx2 = 0;
  8.    speedy2 = 0;
  9. }
  10. actif = 1;
  11. lv.level = level;
  12. scori = 8 + level * 2;
  13. score.score = scori;
  14. scorepts.scorepts = scorp;
  15. game_over = 0;
  16. timeb._width = 600;
  17. first_boum = 0;
  18. drag1 = false;
  19. drag2 = false;
  20. friction = 0.98;
  21. startx = 300;
  22. starty = 200;
  23. min = 1;
  24. max = 50;
  25. tap = 1.75;
  26. i = 1;
  27. while(Number(i) <= 2)
  28. {
  29.    duplicateMovieClip("/ball","ball" add i,16384 + i);
  30.    set("/ball" add i add ":n",i);
  31.    setProperty("/ball" add i, _X, Number(560 * (i - 1)) + 20);
  32.    setProperty("/ball" add i, _Y, 200);
  33.    set("nowx" add i,startx);
  34.    set("nowy" add i,starty);
  35.    set("accelx" add i,0);
  36.    set("accely" add i,0);
  37.    i = Number(i) + 1;
  38. }
  39. ball1.bleu2._alpha = 100;
  40. ball2.bleu._alpha = 100;
  41. duplicateMovieClip("/matte","matte",16389);
  42. duplicateMovieClip(fond_noir,"fond_noir_new",17384);
  43. fond_noir_new._x = 0;
  44. fond_noir_new._y = 0;
  45. play();
  46.