home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Diversos / konijnen.swf / scripts / frame_16 / DoAction.as
Encoding:
Text File  |  2007-03-20  |  867 b   |  45 lines
  1. bug = "1";
  2. while("5" >= bug)
  3. {
  4.    if(bug == "1")
  5.    {
  6.       call("rand_top");
  7.    }
  8.    else
  9.    {
  10.       bit = "0";
  11.       while(bit == "0")
  12.       {
  13.          flag = "0";
  14.          call("rand_top");
  15.          set("keus" add bug,"/" add z add x);
  16.          loop = "1";
  17.          while(loop < bug)
  18.          {
  19.             if(eval("keus" add loop) eq eval("keus" add bug))
  20.             {
  21.                flag = "1";
  22.                trace("duplicate found!");
  23.             }
  24.             loop += "1";
  25.          }
  26.          if(flag == "1")
  27.          {
  28.             bit = "0";
  29.          }
  30.          else
  31.          {
  32.             bit = "1";
  33.          }
  34.       }
  35.    }
  36.    set("keus" add bug,"/" add z add x);
  37.    tellTarget(eval("keus" add bug))
  38.    {
  39.       gotoAndStop("hier");
  40.    }
  41.    trace(eval("keus" add bug));
  42.    bug += "1";
  43. }
  44. trace("_______________");
  45.