home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Diversos / konijnen.swf / scripts / frame_15 / DoAction.as
Encoding:
Text File  |  2007-03-20  |  808 b   |  43 lines
  1. count = "1";
  2. while("5" >= count)
  3. {
  4.    if(count == "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("temp" add count,z add x);
  16.          cntr = "1";
  17.          while(cntr < count)
  18.          {
  19.             if(eval("keuze" add cntr) eq eval("temp" add count))
  20.             {
  21.                flag = "1";
  22.             }
  23.             cntr += "1";
  24.          }
  25.          if(flag == "1")
  26.          {
  27.             bit = "0";
  28.          }
  29.          else
  30.          {
  31.             bit = "1";
  32.          }
  33.       }
  34.    }
  35.    set("keuze" add count,"/" add z add x);
  36.    trace(eval("keuze" add count));
  37.    tellTarget(eval("keuze" add count))
  38.    {
  39.       gotoAndStop(3);
  40.    }
  41.    count += "1";
  42. }
  43.