home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / flashbox.swf / scripts / DefineSprite_140 / frame_5 / DoAction.as
Encoding:
Text File  |  2006-09-05  |  539 b   |  29 lines
  1. XDelta = "0";
  2. YDelta = "1";
  3. MoveMode = "Translate";
  4. call("MovePiece");
  5. if(Dropping)
  6. {
  7.    Drop += "1";
  8. }
  9. if(!Moved)
  10. {
  11.    i = "1";
  12.    while("4" >= i)
  13.    {
  14.       NumBlocks += "1";
  15.       duplicateMovieClip("Block" add i,"PitBlock" add NumBlocks,"200" + NumBlocks + 16384);
  16.       removeMovieClip("Block" add i);
  17.       set("pit_" add eval("x_" add i) add "_" add eval("y_" add i),NumBlocks);
  18.       i += "1";
  19.    }
  20.    call("CreatePiece");
  21.    Fell = "0";
  22.    Dropping = "0";
  23. }
  24. else
  25. {
  26.    Fell = "1";
  27. }
  28. call("MeltLevels");
  29.