home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / StackUp.swf / scripts / frame_76 / DoAction.as
Encoding:
Text File  |  2001-07-16  |  795 b   |  35 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. }
  9. llly = y + "1";
  10. y = yy + "1";
  11. while(eval("map" add x add y) == col or eval("map" add x add y) == col + "100" and y < "11")
  12. {
  13.    count22 += "1";
  14.    y += "1";
  15. }
  16. if("2" < count22)
  17. {
  18.    cc22 = "1";
  19.    y = llly;
  20.    while(eval("map" add x add y) == col or eval("map" add x add y) == col + "100" and y < "11")
  21.    {
  22.       set("map" add x add y,col + "100");
  23.       y += "1";
  24.    }
  25.    score = score + "200" + "200" * ("3" < count22) + "200" * (count22 == "6");
  26.    if(line != "0")
  27.    {
  28.       line = line - "1" - ("3" < count22) - (count22 == "6");
  29.       if(line < "0")
  30.       {
  31.          line = "0";
  32.       }
  33.    }
  34. }
  35.