home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Diversos / konijnen.swf / scripts / frame_14 / DoAction.as
Encoding:
Text File  |  2007-03-20  |  877 b   |  55 lines
  1. if(klik == "1")
  2. {
  3.    call("rand");
  4.    trace("shit");
  5. }
  6. else
  7. {
  8.    bit = "0";
  9.    while(bit == "0")
  10.    {
  11.       flag = "0";
  12.       call("rand");
  13.       set("choice" add klik,z add x);
  14.       cntr = "1";
  15.       while(cntr < klik)
  16.       {
  17.          if(eval("choice" add cntr) eq eval("choice" add klik))
  18.          {
  19.             flag = "1";
  20.          }
  21.          cntr += "1";
  22.       }
  23.       if(flag == "1")
  24.       {
  25.          bit = "0";
  26.       }
  27.       else
  28.       {
  29.          bit = "1";
  30.       }
  31.    }
  32. }
  33. set("choice" add klik,z add x);
  34. count = "1";
  35. raak = "0";
  36. while("5" >= count)
  37. {
  38.    if(z add x eq eval("/ship" add count add ":plek"))
  39.    {
  40.       raak = "1";
  41.       tellTarget("/ship" add count)
  42.       {
  43.          gotoAndPlay(55);
  44.       }
  45.    }
  46.    count += "1";
  47. }
  48. if(raak == "0")
  49. {
  50.    tellTarget("/" add z add x)
  51.    {
  52.       gotoAndPlay(55);
  53.    }
  54. }
  55.