home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / ShangaiDynasty.swf / scripts / frame_53 / DoAction.as
Encoding:
Text File  |  2005-08-05  |  1.1 KB  |  51 lines
  1. i = "1";
  2. while("36" >= i)
  3. {
  4.    set("cell" add i,i);
  5.    i += "1";
  6. }
  7. i = "1";
  8. while("36" >= i)
  9. {
  10.    set("random" add i,random("1000"));
  11.    i += "1";
  12. }
  13. lo = "1";
  14. up = "36";
  15. while(lo < up)
  16. {
  17.    i = lo;
  18.    j = lo;
  19.    while(i < up)
  20.    {
  21.       if(eval("random" add (i + "1")) < eval("random" add i))
  22.       {
  23.          temp = eval("random" add i);
  24.          set("random" add i,eval("random" add (i + "1")));
  25.          set("random" add (i + "1"),temp);
  26.          temp = eval("cell" add i);
  27.          set("cell" add i,eval("cell" add (i + "1")));
  28.          set("cell" add (i + "1"),temp);
  29.          j = i;
  30.       }
  31.       i += "1";
  32.    }
  33.    up = j;
  34.    i = up;
  35.    while(lo < i)
  36.    {
  37.       if(eval("random" add i) < eval("random" add (i - "1")))
  38.       {
  39.          temp = eval("random" add i);
  40.          set("random" add i,eval("random" add (i - "1")));
  41.          set("random" add (i - "1"),temp);
  42.          temp = eval("cell" add i);
  43.          set("cell" add i,eval("cell" add (i - "1")));
  44.          set("cell" add (i - "1"),temp);
  45.          j = i;
  46.       }
  47.       i -= "1";
  48.    }
  49.    lo = j;
  50. }
  51.