home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / maximum_rotation.swf / scripts / frame_3 / DoAction.as
Encoding:
Text File  |  2007-03-20  |  606 b   |  21 lines
  1. i = "1";
  2. while("16" >= i)
  3. {
  4.    set("n" add i add "set","0");
  5.    i += "1";
  6. }
  7. i = "1";
  8. while("16" >= i)
  9. {
  10.    set("/:$X","16" * (random("2147483647") / "2147483647"));
  11.    randnum = "1" + (eval("/:$X") >= int(eval("/:$X")) ? int(eval("/:$X")) : int(eval("/:$X") - "1"));
  12.    while(eval("n" add randnum add "set") == "1")
  13.    {
  14.       set("/:$X","16" * (random("2147483647") / "2147483647"));
  15.       randnum = "1" + (eval("/:$X") >= int(eval("/:$X")) ? int(eval("/:$X")) : int(eval("/:$X") - "1"));
  16.    }
  17.    set("n" add randnum add "loc",i);
  18.    set("n" add randnum add "set","1");
  19.    i += "1";
  20. }
  21.