home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / DesktopInvaders.swf / scripts / frame_8 / DoAction_2.as next >
Encoding:
Text File  |  2006-06-13  |  863 b   |  36 lines
  1. alienc = "1";
  2. count = "0";
  3. while(count < "5")
  4. {
  5.    ink = "0";
  6.    y = toplevel + count * "4";
  7.    while(ink < "8")
  8.    {
  9.       x = "10" + ink * "5";
  10.       set("alienx" add alienc,x);
  11.       set("alieny" add alienc,y);
  12.       duplicateMovieClip("/alien" add count,"aliens" add alienc,"200" + alienc + 16384);
  13.       setProperty("aliens" add alienc, _X, x * "4" + alienoffx);
  14.       setProperty("aliens" add alienc, _Y, y * "4" + alienoffy);
  15.       set(x add "adm" add y,alienc);
  16.       set(x + "1" add "adm" add y,alienc);
  17.       set(x + "2" add "adm" add y,alienc);
  18.       alienc += "1";
  19.       ink += "1";
  20.    }
  21.    count += "1";
  22. }
  23. alienc = "1";
  24. count = "0";
  25. while(count < "5")
  26. {
  27.    ink = "0";
  28.    while(ink < "8")
  29.    {
  30.       set("alienp" add alienc,eval("alienscr" add count));
  31.       alienc += "1";
  32.       ink += "1";
  33.    }
  34.    count += "1";
  35. }
  36.