home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / StackUp.swf / scripts / frame_79 / DoAction.as
Encoding:
Text File  |  2001-07-16  |  1.0 KB  |  54 lines
  1. cc22 = "0";
  2. xx = "0";
  3. while(xx < "6")
  4. {
  5.    yy = "0";
  6.    while(yy < "11")
  7.    {
  8.       col = eval("map" add xx add yy);
  9.       if(col < "6" and col)
  10.       {
  11.          call("check1");
  12.          call("check2");
  13.          call("check3");
  14.          call("check4");
  15.       }
  16.       yy += "1";
  17.    }
  18.    xx += "1";
  19. }
  20. lines = line + diag;
  21. if(cc22)
  22. {
  23.    while(kk >= "0")
  24.    {
  25.       removeMovieClip("o" add kk);
  26.       kk -= "1";
  27.    }
  28.    x = "0";
  29.    kk = "0";
  30.    while(x < "6")
  31.    {
  32.       y = "11";
  33.       while(y >= "0")
  34.       {
  35.          if("99" < eval("map" add x add y))
  36.          {
  37.             col = eval("map" add x add y) - "100";
  38.             set("map" add x add y,"999");
  39.             removeMovieClip("m" add x add y);
  40.             duplicateMovieClip("/c" add col,"o" add kk,x + y * mn + "100" + 16384);
  41.             setProperty("o" add kk, _X, x * width + dx);
  42.             setProperty("o" add kk, _Y, y * width + dy);
  43.             kk += "1";
  44.          }
  45.          y -= "1";
  46.       }
  47.       x += "1";
  48.    }
  49. }
  50. else
  51. {
  52.    gotoAndPlay(71);
  53. }
  54.