home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / towerblaster.swf / scripts / DefineSprite_318 / frame_29 / DoAction.as
Encoding:
Text File  |  2007-03-12  |  3.1 KB  |  139 lines
  1. openSlot = 0;
  2. x = 1;
  3. while(10 >= x)
  4. {
  5.    if(x * spred - spred < eval("_root.cB" + x + ".rValue") and x * spred >= eval("_root.cB" + x + ".rValue"))
  6.    {
  7.       set("lock" + x,1);
  8.    }
  9.    else
  10.    {
  11.       set("lock" + x,0);
  12.    }
  13.    if(x * spred - spred < discardB.rValue and x * spred >= discardB.rValue)
  14.    {
  15.       openSlot = x;
  16.    }
  17.    x++;
  18. }
  19. a = 1;
  20. huntfor1 = "";
  21. huntfor2 = "";
  22. if(lock1 + lock2 + lock3 + lock4 + lock5 + lock6 + lock7 + lock8 + lock9 + lock10 >= 8)
  23. {
  24.    almostDone = 1;
  25.    x = 1;
  26.    while(10 >= x)
  27.    {
  28.       if(eval("lock" + x) == 0)
  29.       {
  30.          set("huntfor" + a,x);
  31.          a += 1;
  32.       }
  33.       x++;
  34.    }
  35. }
  36. else
  37. {
  38.    almostDone = 0;
  39. }
  40. if(eval("lock" + openSlot) == 1)
  41. {
  42.    openSlot = 0;
  43. }
  44. if(almostDone == 1 and huntfor1 ne "")
  45. {
  46.    if(huntfor1 + 1 == huntfor2)
  47.    {
  48.       lookforMax = (Number(huntfor1) + 1) * spred - spred;
  49.       lookforMin = eval("_root.cB" + (Number(huntfor1) - 1) + ".rValue");
  50.    }
  51.    else
  52.    {
  53.       lookforMax = eval("_root.cB" + (Number(huntfor1) + 1) + ".rValue");
  54.       lookforMin = eval("_root.cB" + (Number(huntfor1) - 1) + ".rValue");
  55.    }
  56.    if(huntfor1 == 10)
  57.    {
  58.       lookforMax = eval("/:cardMax");
  59.    }
  60.    else if(huntfor1 == 1)
  61.    {
  62.       lookforMin = 1;
  63.    }
  64.    if(discardB.rValue >= lookforMin and discardB.rValue < lookforMax)
  65.    {
  66.       openSlot = huntfor1;
  67.    }
  68.    else if(huntFor2 ne "")
  69.    {
  70.       if(huntfor1 + 1 == huntfor2)
  71.       {
  72.          lookforMax = (Number(huntfor2) + 1) * spred - spred;
  73.          lookforMin = eval("_root.cB" + (Number(huntfor2) - 1) + ".rValue");
  74.       }
  75.       else
  76.       {
  77.          lookforMax = eval("_root.cB" + (Number(huntfor2) + 1) + ".rValue");
  78.          lookforMin = eval("_root.cB" + (Number(huntfor2) - 1) + ".rValue");
  79.       }
  80.       if(huntfor2 == 10)
  81.       {
  82.          lookforMax = eval("/:cardMax");
  83.       }
  84.       else if(huntfor2 == 1)
  85.       {
  86.          lookforMin = 1;
  87.       }
  88.       if(discardB.rValue >= lookforMin and discardB.rValue < lookforMax)
  89.       {
  90.          openSlot = huntfor2;
  91.       }
  92.    }
  93. }
  94. if(openSlot != 0)
  95. {
  96.    pick = 1;
  97.    tempValue = discardB.rValue;
  98.    gotoAndStop(53);
  99. }
  100. else
  101. {
  102.    set("/:drawBlockcount",eval("/:drawBlockcount") + 1);
  103.    chanceB.rValue = eval("/:drawBlock" + eval("/:drawBlockcount"));
  104.    set("/:drawBlockMax",eval("/:drawBlockMax") + 1);
  105.    set("/:drawBlock" + eval("/:drawBlockMax"),discardB.rValue);
  106.    openSlot = 0;
  107.    x = 1;
  108.    while(10 >= x)
  109.    {
  110.       if(x * spred - spred < chanceB.rValue and x * spred >= chanceB.rValue)
  111.       {
  112.          openSlot = x;
  113.       }
  114.       x++;
  115.    }
  116.    if(eval("lock" + openSlot) == 1)
  117.    {
  118.       if(eval("_root.cB" + openSlot + ".rValue") < chanceB.rValue and openSlot < 10)
  119.       {
  120.          openSlot += 1;
  121.       }
  122.       else if(chanceB.rValue < eval("_root.cB" + openSlot + ".rValue") and 1 < openSlot)
  123.       {
  124.          openSlot -= 1;
  125.       }
  126.    }
  127.    if(openSlot == 0)
  128.    {
  129.       openSlot = 1;
  130.    }
  131.    else if(openSlot == 11)
  132.    {
  133.       openSlot = 10;
  134.    }
  135.    pick = 2;
  136.    tempValue = chanceB.rValue;
  137.    gotoAndStop(54);
  138. }
  139.