home *** CD-ROM | disk | FTP | other *** search
- ny = "5";
- n3 = "0";
- nd = "0";
- while("1" < ny)
- {
- ny -= "1";
- nx = "0";
- if(y + ny + "20" < "41")
- {
- yn = "1";
- while(nx < "10")
- {
- nx += "1";
- if(eval("c" add (nx + "20") add (y + ny + "20")) == "0")
- {
- yn = "0";
- }
- }
- if(yn == "1")
- {
- n3 += "1";
- nd += "1";
- }
- else if("0" < nd)
- {
- n = "0";
- while(n < "10")
- {
- n += "1";
- n2 = eval("c" add (n + "20") add (y + ny + "20"));
- if(n2 != eval("c" add (n + "20") add (ny + y + "20" + nd)))
- {
- set("c" add (n + "20") add (ny + y + "20" + nd),n2);
- if(n2 == "0")
- {
- tellTarget("b" add (n + "20") add (ny + y + "20" + nd))
- {
- gotoAndStop(1);
- }
- }
- else
- {
- tellTarget("b" add (n + "20") add (ny + y + "20" + nd))
- {
- gotoAndStop(eval("/:lev") + "1");
- }
- }
- }
- }
- }
- }
- }
- if("0" < n3)
- {
- call("delline");
- sc += eval("sc" add n3) * lev;
- line += n3;
- if(lev < int(line / "10") + "1" and lev < "21")
- {
- lev += "1";
- call("uplev");
- }
- }
- if(n3 == "0" and y == "0")
- {
- gotoAndStop(54);
- }
- else
- {
- call("next");
- gotoAndPlay(28);
- }
-