home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / StackUp.swf / scripts / frame_111 / DoAction.as
Encoding:
Text File  |  2001-07-16  |  543 b   |  19 lines
  1. rndd = "0";
  2. xrnd = random("6");
  3. colrnd = random("5") + "1";
  4. yrnd = "10";
  5. while(eval("map" add xrnd add yrnd))
  6. {
  7.    yrnd -= "1";
  8.    if(yrnd == "0")
  9.    {
  10.       yrnd = "10";
  11.       xrnd = xrnd - "1" + "6" * (xrnd == "0");
  12.    }
  13. }
  14. duplicateMovieClip("/brick" add colrnd,"m" add xrnd add yrnd,xrnd + yrnd * mn + "100" + 16384);
  15. setProperty("m" add xrnd add yrnd, _X, dx + width * xrnd);
  16. setProperty("m" add xrnd add yrnd, _Y, yrnd * width + dy);
  17. setProperty("m" add xrnd add yrnd, _alpha, "0");
  18. set("map" add xrnd add yrnd,colrnd);
  19.