home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / maximum_rotation.swf / scripts / frame_73 / DoAction.as
Encoding:
Text File  |  2007-03-20  |  1.1 KB  |  54 lines
  1. set("/:$X",location / "10");
  2. loc_h = eval("/:$X") >= int(eval("/:$X")) ? int(eval("/:$X")) : int(eval("/:$X") - "1");
  3. loc_v = location - int(location / "10") * "10";
  4. mvdown_loc = loc_h + (loc_v - "1") * "4";
  5. mvleft_loc = loc_h + "1" + (loc_v - "1") * "4";
  6. mvup_loc = loc_h + "1" + loc_v * "4";
  7. mvright_loc = loc_h + loc_v * "4";
  8. i = "1";
  9. while("16" >= i)
  10. {
  11.    if(eval("n" add i add "loc") == mvdown_loc)
  12.    {
  13.       mvdown = i;
  14.       break;
  15.    }
  16.    i += "1";
  17. }
  18. i = "1";
  19. while("16" >= i)
  20. {
  21.    if(eval("n" add i add "loc") == mvleft_loc)
  22.    {
  23.       mvleft = i;
  24.       break;
  25.    }
  26.    i += "1";
  27. }
  28. i = "1";
  29. while("16" >= i)
  30. {
  31.    if(eval("n" add i add "loc") == mvup_loc)
  32.    {
  33.       mvup = i;
  34.       break;
  35.    }
  36.    i += "1";
  37. }
  38. i = "1";
  39. while("16" >= i)
  40. {
  41.    if(eval("n" add i add "loc") == mvright_loc)
  42.    {
  43.       mvright = i;
  44.       break;
  45.    }
  46.    i += "1";
  47. }
  48. set("n" add mvdown add "loc",mvright_loc);
  49. set("n" add mvleft add "loc",mvdown_loc);
  50. set("n" add mvup add "loc",mvleft_loc);
  51. set("n" add mvright add "loc",mvup_loc);
  52. move = "0";
  53. gotoAndPlay(90);
  54.