home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / StackUp.swf / scripts / frame_77 / DoAction.as
Encoding:
Text File  |  2001-07-16  |  1.0 KB  |  49 lines
  1. x = xx;
  2. y = yy;
  3. count22 = "0";
  4. while(eval("map" add x add y) == col or eval("map" add x add y) == col + "100" and y < "11")
  5. {
  6.    count22 += "1";
  7.    y -= "1";
  8.    x -= "1";
  9. }
  10. llly = y + "1";
  11. lllx = x + "1";
  12. y = yy + "1";
  13. x = xx + "1";
  14. while(eval("map" add x add y) == col or eval("map" add x add y) == col + "100" and y < "11")
  15. {
  16.    count22 += "1";
  17.    y += "1";
  18.    x += "1";
  19. }
  20. if("2" < count22)
  21. {
  22.    cc22 = "1";
  23.    y = llly;
  24.    x = lllx;
  25.    while(eval("map" add x add y) == col or eval("map" add x add y) == col + "100" and y < "11")
  26.    {
  27.       set("map" add x add y,col + "100");
  28.       y += "1";
  29.       x += "1";
  30.    }
  31.    score = score + "1000" + "1000" * ("3" < count22) + "1000" * (count22 == "6");
  32.    if(diag != "0")
  33.    {
  34.       diag = diag - "1" - ("3" < count22) - (count22 == "6");
  35.       if(diag < "0")
  36.       {
  37.          diag = "0";
  38.       }
  39.    }
  40.    else
  41.    {
  42.       line = line - "1" - ("3" < count22) - (count22 == "6");
  43.       if(line < "0")
  44.       {
  45.          line = "0";
  46.       }
  47.    }
  48. }
  49.