mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-21 14:50:54 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
83 lines
3.2 KiB
QBasic
83 lines
3.2 KiB
QBasic
5 PRINT TAB(32);"CHECKERS"
|
|
10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
15 PRINT:PRINT:PRINT
|
|
20 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X,"
|
|
25 PRINT "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST."
|
|
30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM."
|
|
35 PRINT "(0,0) IS THE LOWER LEFT CORNER"
|
|
40 PRINT "(0,7) IS THE UPPER LEFT CORNER"
|
|
45 PRINT "(7,0) IS THE LOWER RIGHT CORNER"
|
|
50 PRINT "(7,7) IS THE UPPER RIGHT CORNER"
|
|
55 PRINT "THE COMPUTER WILL TYPE '+TO' WHEN YOU HAVE ANOTHER"
|
|
60 PRINT "JUMP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP."
|
|
65 PRINT:PRINT:PRINT
|
|
80 DIM R(4),S(7,7):G=-1:R(0)=-99
|
|
90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15
|
|
120 FOR X=0 TO 7:FOR Y=0 TO 7:READ J:IF J=15 THEN 180
|
|
160 S(X,Y)=J:GOTO 200
|
|
180 RESTORE:READ S(X,Y)
|
|
200 NEXT Y,X
|
|
230 FOR X=0 TO 7:FOR Y=0 TO 7:IF S(X,Y)>-1 THEN 350
|
|
310 IF S(X,Y)=-1 THEN FOR A=-1 TO 1 STEP 2:B=G:GOSUB 650:NEXT A
|
|
330 IF S(X,Y)=-2 THEN FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 650:NEXT B,A
|
|
350 NEXT Y,X:GOTO 1140
|
|
650 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 870
|
|
740 IF S(U,V)=0 THEN GOSUB 910:GOTO 870
|
|
770 IF S(U,V)<0 THEN 870
|
|
790 U=U+A:V=V+B:IF U<0 OR V<0 OR U>7 OR V>7 THEN 870
|
|
850 IF S(U,V)=0 THEN GOSUB 910
|
|
870 RETURN
|
|
910 IF V=0 AND S(X,Y)=-1 THEN Q=Q+2
|
|
920 IF ABS(Y-V)=2 THEN Q=Q+5
|
|
960 IF Y=7 THEN Q=Q-2
|
|
980 IF U=0 OR U=7 THEN Q=Q+1
|
|
1030 FOR C=-1 TO 1 STEP 2:IF U+C<0 OR U+C>7 OR V+G<0 THEN 1080
|
|
1035 IF S(U+C,V+G)<0 THEN Q=Q+1:GOTO 1080
|
|
1040 IF U-C<0 OR U-C>7 OR V-G>7 THEN 1080
|
|
1045 IF S(U+C,V+G)>0 AND(S(U-C,V-G)=0 OR(U-C=X AND V-G=Y))THEN Q=Q-2
|
|
1080 NEXT C:IF Q>R(0)THEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V
|
|
1100 Q=0:RETURN
|
|
1140 IF R(0)=-99 THEN 1880
|
|
1230 PRINT CHR$(30)"FROM"R(1);R(2)"TO"R(3);R(4);:R(0)=-99
|
|
1240 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 1420
|
|
1250 S(R(3),R(4))=S(R(1),R(2))
|
|
1310 S(R(1),R(2))=0:IF ABS(R(1)-R(3))<>2 THEN 1420
|
|
1330 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0
|
|
1340 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1370
|
|
1350 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1370:NEXT B
|
|
1360 NEXT A:IF R(0)<>-99 THEN PRINT"TO"R(3);R(4);:R(0)=-99:GOTO 1240
|
|
1365 GOTO 1420
|
|
1370 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 1400
|
|
1380 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 910
|
|
1400 RETURN
|
|
1420 PRINT:PRINT:PRINT:FOR Y=7 TO 0 STEP-1:FOR X=0 TO 7:I=5*X:PRINT TAB(I);
|
|
1430 IF S(X,Y)=0 THEN PRINT".";
|
|
1470 IF S(X,Y)=1 THEN PRINT"O";
|
|
1490 IF S(X,Y)=-1 THEN PRINT"X";
|
|
1510 IF S(X,Y)=-2 THEN PRINT"X*";
|
|
1530 IF S(X,Y)=2 THEN PRINT"O*";
|
|
1550 NEXT X:PRINT" ":PRINT:NEXT Y:PRINT
|
|
1552 FOR L=0 TO 7
|
|
1554 FOR M=0 TO 7
|
|
1556 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1
|
|
1558 IF S(L,M)=-1 OR S(L,M)=-2 THEN T=1
|
|
1560 NEXT M
|
|
1562 NEXT L
|
|
1564 IF Z<>1 THEN 1885
|
|
1566 IF T<>1 THEN 1880
|
|
1570 Z=0: T=0
|
|
1590 INPUT "FROM";E,H:X=E:Y=H:IF S(X,Y)<=0 THEN 1590
|
|
1670 INPUT "TO";A,B:X=A:Y=B
|
|
1680 IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H)THEN 1700
|
|
1690 PRINT CHR$(7)CHR$(11);:GOTO 1670
|
|
1700 I=46
|
|
1750 S(A,B)=S(E,H):S(E,H)=0:IF ABS(E-A)<>2 THEN 1810
|
|
1800 S((E+A)/2,(H+B)/2)=0
|
|
1802 INPUT "+TO";A1,B1:IF A1<0 THEN 1810
|
|
1804 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN 1802
|
|
1806 E=A:H=B:A=A1:B=B1:I=I+15:GOTO 1750
|
|
1810 IF B=7 THEN S(A,B)=2
|
|
1830 GOTO 230
|
|
1880 PRINT: PRINT "YOU WIN.": END
|
|
1885 PRINT: PRINT "I WIN.": END
|