home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / flashbox.swf / scripts / DefineSprite_140 / frame_7 / DoAction.as
Encoding:
Text File  |  2006-09-05  |  589 b   |  36 lines
  1. i = "1";
  2. Moved = "1";
  3. while("4" >= i and Moved)
  4. {
  5.    x = eval("x_" add i);
  6.    y = eval("y_" add i);
  7.    call(MoveMode);
  8.    x = newX;
  9.    y = newY;
  10.    call("IsOccupied");
  11.    if(Occupied)
  12.    {
  13.       Moved = "0";
  14.    }
  15.    i += "1";
  16. }
  17. if(Moved)
  18. {
  19.    i = "1";
  20.    while("4" >= i)
  21.    {
  22.       x = eval("x_" add i);
  23.       y = eval("y_" add i);
  24.       call(MoveMode);
  25.       set("x_" add i,newX);
  26.       set("y_" add i,newY);
  27.       i += "1";
  28.    }
  29.    if(MoveMode eq "Translate")
  30.    {
  31.       PieceX += xDelta;
  32.       PieceY += yDelta;
  33.    }
  34.    call("UpdatePieceGraphics");
  35. }
  36.