Drop an indentation level.
Adam Borowski
6 years ago
| 505 | 505 | y1:=y; |
| 506 | 506 | b:=true |
| 507 | 507 | end; |
| 508 | if b | |
| 509 | then begin | |
| 510 | b:=false; | |
| 511 | clearstack; | |
| 512 | check1(x1,y1); | |
| 513 | while sp1>sp2 | |
| 514 | do begin | |
| 515 | inc(sp2); | |
| 516 | x:=stack[sp2].x; | |
| 517 | y:=stack[sp2].y; | |
| 518 | check1(x+1,y); | |
| 519 | check1(x-1,y); | |
| 520 | check1(x,y+1); | |
| 521 | check1(x,y-1) | |
| 522 | end; | |
| 523 | message(pl,'Complete Embrace'); | |
| 524 | em:=true; | |
| 525 | for y:=1 to 14 | |
| 526 | do for x:=1 to 14 | |
| 527 | do if board1[x,y]=-2 | |
| 508 | if not b | |
| 509 | then exit; | |
| 510 | b:=false; | |
| 511 | clearstack; | |
| 512 | check1(x1,y1); | |
| 513 | while sp1>sp2 | |
| 514 | do begin | |
| 515 | inc(sp2); | |
| 516 | x:=stack[sp2].x; | |
| 517 | y:=stack[sp2].y; | |
| 518 | check1(x+1,y); | |
| 519 | check1(x-1,y); | |
| 520 | check1(x,y+1); | |
| 521 | check1(x,y-1) | |
| 522 | end; | |
| 523 | message(pl,'Complete Embrace'); | |
| 524 | em:=true; | |
| 525 | for y:=1 to 14 | |
| 526 | do for x:=1 to 14 | |
| 527 | do if board1[x,y]=-2 | |
| 528 | then begin | |
| 529 | if board[x,y]=0 | |
| 530 | then dec(freesq); | |
| 531 | if b | |
| 528 | 532 | then begin |
| 529 | if board[x,y]=0 | |
| 530 | then dec(freesq); | |
| 531 | if b | |
| 532 | then begin | |
| 533 | inc(sco[pl]); | |
| 534 | score(pl); | |
| 535 | board[x,y]:=pl*2 | |
| 536 | end | |
| 537 | else board[x,y]:=pl*2-1; | |
| 538 | anim(x,y,pl) | |
| 539 | end; | |
| 540 | sweepandmark(pl,'Complete Embrace'); | |
| 541 | clearmessage | |
| 542 | end; | |
| 533 | inc(sco[pl]); | |
| 534 | score(pl); | |
| 535 | board[x,y]:=pl*2 | |
| 536 | end | |
| 537 | else board[x,y]:=pl*2-1; | |
| 538 | anim(x,y,pl) | |
| 539 | end; | |
| 540 | sweepandmark(pl,'Complete Embrace'); | |
| 541 | clearmessage | |
| 543 | 542 | end; |
| 544 | 543 | |
| 545 | 544 | procedure anchorembrace(pl:integer); |
| 607 | 606 | y1:=y; |
| 608 | 607 | b:=true |
| 609 | 608 | end; |
| 610 | if b | |
| 611 | then begin | |
| 612 | clearstack; | |
| 613 | check2(x1,y1); | |
| 614 | while sp1>sp2 | |
| 615 | do begin | |
| 616 | inc(sp2); | |
| 617 | x:=stack[sp2].x; | |
| 618 | y:=stack[sp2].y; | |
| 619 | check2(x+1,y); | |
| 620 | check2(x-1,y); | |
| 621 | check2(x,y+1); | |
| 622 | check2(x,y-1) | |
| 623 | end; | |
| 624 | message(pl,'Anchoring Embrace'); | |
| 625 | em:=true; | |
| 626 | for y:=1 to 14 | |
| 627 | do for x:=1 to 14 | |
| 628 | do if board1[x,y]=-2 | |
| 629 | then begin | |
| 630 | if board[x,y]=0 | |
| 631 | then dec(freesq); | |
| 632 | inc(sco[pl]); | |
| 633 | score(pl); | |
| 634 | board[x,y]:=pl*2; | |
| 635 | anim(x,y,pl) | |
| 636 | end; | |
| 637 | sweepandmark(pl,'Anchoring Embrace'); | |
| 638 | clearmessage | |
| 639 | end; | |
| 609 | if not b | |
| 610 | then exit; | |
| 611 | clearstack; | |
| 612 | check2(x1,y1); | |
| 613 | while sp1>sp2 | |
| 614 | do begin | |
| 615 | inc(sp2); | |
| 616 | x:=stack[sp2].x; | |
| 617 | y:=stack[sp2].y; | |
| 618 | check2(x+1,y); | |
| 619 | check2(x-1,y); | |
| 620 | check2(x,y+1); | |
| 621 | check2(x,y-1) | |
| 622 | end; | |
| 623 | message(pl,'Anchoring Embrace'); | |
| 624 | em:=true; | |
| 625 | for y:=1 to 14 | |
| 626 | do for x:=1 to 14 | |
| 627 | do if board1[x,y]=-2 | |
| 628 | then begin | |
| 629 | if board[x,y]=0 | |
| 630 | then dec(freesq); | |
| 631 | inc(sco[pl]); | |
| 632 | score(pl); | |
| 633 | board[x,y]:=pl*2; | |
| 634 | anim(x,y,pl) | |
| 635 | end; | |
| 636 | sweepandmark(pl,'Anchoring Embrace'); | |
| 637 | clearmessage | |
| 640 | 638 | end; |
| 641 | 639 | |
| 642 | 640 | procedure playermove(pl:integer); |