home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / ShangaiDynasty.swf / scripts / frame_52 / DoAction.as
Encoding:
Text File  |  2005-08-05  |  1.7 KB  |  83 lines
  1. i = "1";
  2. while("32" >= i)
  3. {
  4.    set("cell" add i,i);
  5.    i += "1";
  6. }
  7. i = "1";
  8. while("32" >= i)
  9. {
  10.    set("random" add i,random("100"));
  11.    i += "1";
  12. }
  13. lo = "1";
  14. up = "32";
  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. i = "1";
  52. rand = random("18");
  53. while("32" >= i)
  54. {
  55.    piece = eval("cell" add i);
  56.    if("8" < piece)
  57.    {
  58.       piece -= "8";
  59.    }
  60.    if("8" < piece)
  61.    {
  62.       piece -= "8";
  63.    }
  64.    if("8" < piece)
  65.    {
  66.       piece -= "8";
  67.    }
  68.    set("/brick" add i add "/face:piece",piece + rand);
  69.    i += "1";
  70. }
  71. set("/brick1:enable","1");
  72. set("/brick4:enable","1");
  73. set("/brick5:enable","1");
  74. set("/brick10:enable","1");
  75. set("/brick11:enable","1");
  76. set("/brick16:enable","1");
  77. set("/brick17:enable","1");
  78. set("/brick20:enable","1");
  79. set("/brick29:enable","1");
  80. set("/brick32:enable","1");
  81. goto = "51";
  82. stop();
  83.