home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / flashbox.swf / scripts / DefineSprite_140 / frame_13 / DoAction.as
Encoding:
Text File  |  2006-09-05  |  1.4 KB  |  68 lines
  1. RowComplete = "1";
  2. NumComplete = "0";
  3. while(RowComplete)
  4. {
  5.    RowComplete = "0";
  6.    i = "0";
  7.    while(i < PitHeight and !RowComplete)
  8.    {
  9.       j = "0";
  10.       RowComplete = "1";
  11.       while(j < PitWidth and RowComplete)
  12.       {
  13.          if(eval("pit_" add j add "_" add i) == "0")
  14.          {
  15.             RowComplete = "0";
  16.          }
  17.          j += "1";
  18.       }
  19.       if(!RowComplete)
  20.       {
  21.          i += "1";
  22.       }
  23.    }
  24.    if(RowComplete)
  25.    {
  26.       RowToDelete = i;
  27.       j = "0";
  28.       while(j < PitWidth)
  29.       {
  30.          removeMovieClip("PitBlock" add eval("Pit_" add j add "_" add i));
  31.          j += "1";
  32.       }
  33.       i = RowToDelete;
  34.       while("0" < i)
  35.       {
  36.          j = "0";
  37.          while(j < PitWidth)
  38.          {
  39.             Block = eval("Pit_" add j add "_" add (i - "1"));
  40.             set("Pit_" add j add "_" add i,Block);
  41.             if(Block != "0")
  42.             {
  43.                setProperty("PitBlock" add Block, _Y, getProperty("PitBlock" add Block, _Y) + getProperty("RedBlock", _height));
  44.             }
  45.             j += "1";
  46.          }
  47.          i -= "1";
  48.       }
  49.       j = "0";
  50.       while(j < PitWidth)
  51.       {
  52.          set("Pit_" add j add "_0","0");
  53.          j += "1";
  54.       }
  55.       NumComplete += "1";
  56.    }
  57. }
  58. if("0" < NumComplete)
  59. {
  60.    NumLayers = NumComplete;
  61.    call("AddScore");
  62.    tellTarget("ExplodeSound")
  63.    {
  64.       gotoAndStop("ExplodeSound");
  65.       play();
  66.    }
  67. }
  68.