home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Classicos / FlashTetris.swf / scripts / frame_18 / DoAction.as
Encoding:
Text File  |  2005-08-05  |  398 b   |  26 lines
  1. n = "0";
  2. yn = "0";
  3. while(n < "4")
  4. {
  5.    n += "1";
  6.    ts1 = ts + "1";
  7.    if(ts1 == "5")
  8.    {
  9.       ts1 = "1";
  10.    }
  11.    if("0" < eval("c" add (x + eval("x" add tc add ts1 add n) + "20") add (y + eval("y" add tc add ts1 add n) + "20")))
  12.    {
  13.       yn = "1";
  14.    }
  15. }
  16. if(yn == "0")
  17. {
  18.    call("delbox");
  19.    ts += "1";
  20.    if(ts == "5")
  21.    {
  22.       ts = "1";
  23.    }
  24.    call("addbox");
  25. }
  26.