mirror of
https://github.com/rfivet/BCG101.git
synced 2024-06-29 03:35:23 +00:00
193 lines
4.0 KiB
QBasic
193 lines
4.0 KiB
QBasic
100 PRINT" THIS PROGRAM WILL PLAY CHECKERS. THE COMPUTER IS X,"
|
|
200 PRINT"AND YOU ARE O. THE COMPUTER WILL GO FIRST,-NOTE: SQUARES"
|
|
300 PRINT"ARE IN THE FORM-(X,Y) AND SQ. 1,1 IS THE BOTTOM LEFT!"
|
|
400 PRINT"DO NOT ATTEMPT A DOUBLE JUMP OR YOUR PIECE MIGHT JUST "
|
|
500 PRINT"DISAPPEAR(SAME FOR A TRIPLE!)"
|
|
600 PRINT" WAIT FOR THE COMP. TO MOVE!!!!!"
|
|
700 LET G=-1
|
|
800 DIM R(50)
|
|
900 LET L=-1
|
|
1000 DIM S(10,10)
|
|
1100 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15
|
|
1200 FOR X=1TO8
|
|
1300 FOR Y=1TO8
|
|
1400 READ J
|
|
1500 IF J=15 THEN 1800
|
|
1600 LET S(X,Y)=J
|
|
1700 GOTO 2000
|
|
1800 RESTORE
|
|
1900 READ S(X,Y)
|
|
2000 NEXT Y
|
|
2100 NEXT X
|
|
2200 REM
|
|
2300LETL=-1*L
|
|
2400 FOR X=1TO8
|
|
2500 FOR Y=1TO8
|
|
2600 IF S(X,Y)=0 THEN 3500
|
|
2700 IF G>0 THEN 3000
|
|
2800 IF S(X,Y)>0 THEN 3500
|
|
2900 GOTO 3100
|
|
3000 IF S(X,Y)<0 THEN 3500
|
|
3100 IF ABS(S(X,Y))<>1 THEN 3300
|
|
3200 GOSUB 4300
|
|
3300 IF ABS(S(X,Y))<>2 THEN 3500
|
|
3400 GOSUB 6500
|
|
3500IFX<>8 THEN 3800
|
|
3600IFL=1 THEN 3800
|
|
3700RETURN
|
|
3800NEXT Y
|
|
3900NEXT X
|
|
4000PRINT
|
|
4100GOSUB11400
|
|
4200 GOTO 2300
|
|
4300 FOR A=-1TO1 STEP 2
|
|
4400 LET U=X+A
|
|
4500 LET V=Y+G
|
|
4600 IF U<1 THEN 6300
|
|
4700 IF U>8 THEN 6300
|
|
4800 IF V<1 THEN 6300
|
|
4900 IF V>8 THEN 6300
|
|
5000 IF S(U,V)<>0 THEN 5300
|
|
5100 GOSUB 9100
|
|
5200 GOTO 6300
|
|
5300 IF S(U,V)=G THEN 6300
|
|
5400 IF S(U,V)=2*G THEN 6300
|
|
5500 LET U=U+A
|
|
5600 LET V=V+G
|
|
5700 IF U<1 THEN 6300
|
|
5800 IF U>8 THEN 6300
|
|
5900 IF V<1 THEN 6300
|
|
6000 IF V>8 THEN 6300
|
|
6100 IF S(U,V)<>0 THEN 6300
|
|
6200 GOSUB 9100
|
|
6300 NEXT A
|
|
6400 RETURN
|
|
6500 REM KING MOVES
|
|
6600 FOR A=-1TO1 STEP 2
|
|
6700 FOR B=-1TO1 STEP 2
|
|
6800 LET U=X+A
|
|
6900 LET V=Y+B
|
|
7000 IF U<1 THEN 8700
|
|
7100 IF U>8 THEN 8700
|
|
7200 IF V<1 THEN 8700
|
|
7300 IF V>8 THEN8700
|
|
7400 IF S(U,V)<>0 THEN 7700
|
|
7500 GOSUB 9100
|
|
7600 GOTO 8700
|
|
7700 IF S(U,V)=G THEN 8700
|
|
7800 IF S(U,V)=2*G THEN 8700
|
|
7900 LET U=U+A
|
|
8000 LET V=V+B
|
|
8100 IF U<1 THEN 8700
|
|
8200 IF U>8 THEN 8700
|
|
8300 IF V<1 THEN 8700
|
|
8400 IF V>8 THEN 8700
|
|
8500 IF S(U,V)<>0 THEN 8700
|
|
8600 GOSUB 9100
|
|
8700 NEXT B
|
|
8800 NEXT A
|
|
8900 RETURN
|
|
9000 GOTO 14200
|
|
9100 REM
|
|
9200 LET P=P+1
|
|
9300 IF P=K THEN 12300
|
|
9400IF V<>(4.5+(3.5*G)) THEN 9600
|
|
9500 LET Q=Q+2
|
|
9600 IF X<>(4.5-(3.5*G)) THEN 9800
|
|
9700LET Q=Q-2
|
|
9800 REM
|
|
9900 IF U<>1 THEN 10100
|
|
10000 LET Q=Q+1
|
|
10100 IF U<>8 THEN 10300
|
|
10200 LET Q=Q+1
|
|
10300 FOR C=-1TO1 STEP 2
|
|
10400 IF S(U+C,V+G)<1 THEN 10800
|
|
10500 LET Q=Q-1
|
|
10600 IF S(U-C,V-G)<>0 THEN 10800
|
|
10700 LET Q=Q-1
|
|
10800 REM THIS WAS THE EVALUATION SECTION
|
|
10900 REM
|
|
11000 NEXT C
|
|
11100 LET R(P)=Q
|
|
11200 LETQ=0
|
|
11300 RETURN
|
|
11400 IF P=0 THEN 18800
|
|
11500 FOR J=10TO-10 STEP -1
|
|
11600 FOR F=1TOP
|
|
11700 IF R(F)=J THEN 12000
|
|
11800 NEXT F
|
|
11900 NEXTJ
|
|
12000 LET K=F+P
|
|
12100 GOSUB 2300
|
|
12200 RETURN
|
|
12300 PRINT" I MOVE FROM ("X;Y") TO ("U;V")"
|
|
12400 LET F=0
|
|
12500 LET P=0
|
|
12600 LET K=0
|
|
12700 IF V<>(4.5+(3.5*G)) THEN 13000
|
|
12800 LET S(U,V)=2*G
|
|
12900 GOTO 13100
|
|
13000 LET S(U,V)=S(X,Y)
|
|
13100 LET S(X,Y)=0
|
|
13200 IF ABS(X-U)<>2 THEN 13400
|
|
13300 LET S((X+U)/2,(Y+V)/2)=0
|
|
13400 PRINT"BOARD";
|
|
13500 INPUT D$
|
|
13600 IF D$<>"YES" THEN13900
|
|
13700 GOSUB 14100
|
|
13800 RETURN
|
|
13900 GOSUB 15800
|
|
14000 RETURN
|
|
14100 PRINT
|
|
14200 FOR Y=8TO1 STEP -1
|
|
14300 FOR X=1TO8
|
|
14400 LET I=2*X
|
|
14500 IF S(X,Y)<>0 THEN 14700
|
|
14600 PRINT TAB(I)".";
|
|
14700 IF S(X,Y)<>1 THEN 14900
|
|
14800 PRINT TAB(I)"O";
|
|
14900 IF S(X,Y)<>-1 THEN 15100
|
|
15000 PRINT TAB(I)"X";
|
|
15100 IF S(X,Y)<>-2 THEN 15300
|
|
15200 PRINT TAB(I)"X";TAB(I)"*";
|
|
15300 IF S(X,Y)<>2 THEN 15500
|
|
15400 PRINT TAB(I)"O";TAB(I)"*";
|
|
15500 NEXT X
|
|
15600 PRINT
|
|
15700 NEXT Y
|
|
15800 PRINT
|
|
15900 PRINT"FROM";
|
|
16000 INPUT E,H
|
|
16100 LET X=E
|
|
16200 LET Y=H
|
|
16300 IF S(X,Y)<>0 THEN 16700
|
|
16400 PRINT "THERE IS NO ONE OCCUPING THAT SPACE"
|
|
16500 PRINT
|
|
16600 GOTO 15900
|
|
16700 PRINT"TO";
|
|
16800 INPUT A,B
|
|
16900 LET X=A
|
|
17000 LET Y=B
|
|
17100 IF S(X,Y)=0 THEN 17500
|
|
17200 PRINT"THAT SPACE IS ALREADY OCCUPIED"
|
|
17300 PRINT
|
|
17400 GOTO 16700
|
|
17500 LET S(A$B)=S(E,H)
|
|
17600 LET S(A,B)=S(E,H)
|
|
17700 LET S(E,H)=0
|
|
17800 LET T=(4.5-(3.5*G))
|
|
17900 IF ABS(E-A)<>2 THEN 18100
|
|
18000 LET S((E+A)/2,(H+B)/2)=0
|
|
18100 IF B<>T THEN 18300
|
|
18200 LET S(A,B)=-2*G
|
|
18300 FOR X=8TO8
|
|
18400 FOR Y=8TO8
|
|
18500 RETURN
|
|
18600 NEXT Y
|
|
18700 NEXT X
|
|
18800 PRINT" VERY GOOD, YOU WIN!"
|
|
18900 PRINT
|
|
19000 PRINT
|
|
19100 PRINT" -CHUCK OUT"
|
|
19200 END
|