home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / DesktopInvaders.swf / scripts / frame_8 / DoAction_5.as < prev    next >
Encoding:
Text File  |  2006-06-13  |  1.0 KB  |  30 lines
  1. shieldc = "1";
  2. while(shieldc < "4")
  3. {
  4.    shieldy = "0";
  5.    shieldo = eval("shieldo" add shieldc);
  6.    while(shieldy < "6")
  7.    {
  8.       shieldx = "0";
  9.       while(shieldx < "10")
  10.       {
  11.          set(shieldo + shieldx add "dm" add (shieldy + shieldyo),shieldfill);
  12.          shieldx += "1";
  13.       }
  14.       shieldy += "2";
  15.    }
  16.    set(shieldo add "dm" add shieldyo,"0");
  17.    set(shieldo + "9" add "dm" add shieldyo,"0");
  18.    set(shieldo + "2" add "dm" add (shieldyo + "4"),"0");
  19.    set(shieldo + "3" add "dm" add (shieldyo + "4"),"0");
  20.    set(shieldo + "4" add "dm" add (shieldyo + "4"),"0");
  21.    set(shieldo + "5" add "dm" add (shieldyo + "4"),"0");
  22.    set(shieldo + "6" add "dm" add (shieldyo + "4"),"0");
  23.    set(shieldo + "7" add "dm" add (shieldyo + "4"),"0");
  24.    duplicateMovieClip("/shield","shield" add shieldc,shieldc + 16384);
  25.    setProperty("shield" add shieldc, _X, shieldo * "4" + shieldoffx);
  26.    setProperty("shield" add shieldc, _Y, shieldyo * "4" + shieldoffy);
  27.    setProperty("shield" add shieldc, _alpha, "100");
  28.    shieldc += "1";
  29. }
  30.