mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-12 15:50:20 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
115 lines
3.0 KiB
QBasic
115 lines
3.0 KiB
QBasic
2 PRINT TAB(30);"TIC-TAC-TOE"
|
|
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
6 PRINT:PRINT:PRINT
|
|
8 PRINT "THE BOARD IS NUMBERED:"
|
|
10 PRINT " 1 2 3"
|
|
12 PRINT " 4 5 6"
|
|
14 PRINT " 7 8 9"
|
|
16 PRINT:PRINT:PRINT
|
|
20 DIM S(9)
|
|
50 INPUT"DO YOU WANT 'X' OR 'O'";C$
|
|
55 IF C$="X"THEN 475
|
|
60 P$="O":Q$="X"
|
|
100 G=-1:H=1:IF S(5)<>0 THEN 103
|
|
102 S(5)=-1:GOTO 195
|
|
103 IF S(5)<>1 THEN 106
|
|
104 IF S(1)<>0 THEN 110
|
|
105 S(1)=-1:GOTO 195
|
|
106 IF S(2)=1 AND S(1)=0 THEN 181
|
|
107 IF S(4)=1 AND S(1)=0 THEN 181
|
|
108 IF S(6)=1 AND S(9)=0 THEN 189
|
|
109 IF S(8)=1 AND S(9)=0 THEN 189
|
|
110 IF G=1 THEN 112
|
|
111 GOTO 118
|
|
112 J=3*INT((M-1)/3)+1
|
|
113 IF 3*INT((M-1)/3)+1=M THEN K=1
|
|
114 IF 3*INT((M-1)/3)+2=M THEN K=2
|
|
115 IF 3*INT((M-1)/3)+3=M THEN K=3
|
|
116 GOTO 120
|
|
118 FOR J=1 TO 7 STEP 3:FOR K=1 TO 3
|
|
120 IF S(J)<>G THEN 130
|
|
122 IF S(J+2)<>G THEN 135
|
|
126 IF S(J+1)<>0 THEN 150
|
|
128 S(J+1)=-1:GOTO 195
|
|
130 IF S(J)=H THEN 150
|
|
131 IF S(J+2)<>G THEN 150
|
|
132 IF S(J+1)<>G THEN 150
|
|
133 S(J)=-1:GOTO 195
|
|
135 IF S(J+2)<>0 THEN 150
|
|
136 IF S(J+1)<>G THEN 150
|
|
138 S(J+2)=-1:GOTO 195
|
|
150 IF S(K)<>G THEN 160
|
|
152 IF S(K+6)<>G THEN 165
|
|
156 IF S(K+3)<>0 THEN 170
|
|
158 S(K+3)=-1:GOTO 195
|
|
160 IF S(K)=H THEN 170
|
|
161 IF S(K+6)<>G THEN 170
|
|
162 IF S(K+3)<>G THEN 170
|
|
163 S(K)=-1:GOTO 195
|
|
165 IF S(K+6)<>0 THEN 170
|
|
166 IF S(K+3)<>G THEN 170
|
|
168 S(K+6)=-1:GOTO 195
|
|
170 GOTO 450
|
|
171 IF S(3)=G AND S(7)=0 THEN 187
|
|
172 IF S(9)=G AND S(1)=0 THEN 181
|
|
173 IF S(7)=G AND S(3)=0 THEN 183
|
|
174 IF S(9)=0 AND S(1)=G THEN 189
|
|
175 IF G=-1 THEN G=1:H=-1:GOTO 110
|
|
176 IF S(9)=1 AND S(3)=0 THEN 182
|
|
177 FOR I=2 TO 9:IF S(I)<>0 THEN 179
|
|
178 S(I)=-1:GOTO 195
|
|
179 NEXT I
|
|
181 S(1)=-1:GOTO 195
|
|
182 IF S(1)=1 THEN 177
|
|
183 S(3)=-1:GOTO 195
|
|
187 S(7)=-1:GOTO 195
|
|
189 S(9)=-1
|
|
195 PRINT:PRINT"THE COMPUTER MOVES TO..."
|
|
202 GOSUB 1000
|
|
205 GOTO 500
|
|
450 IF G=1 THEN 465
|
|
455 IF J=7 AND K=3 THEN 465
|
|
460 NEXT K,J
|
|
465 IF S(5)=G THEN 171
|
|
467 GOTO 175
|
|
475 P$="X":Q$="O"
|
|
500 PRINT:INPUT"WHERE DO YOU MOVE";M
|
|
502 IF M=0 THEN PRINT"THANKS FOR THE GAME.":GOTO 2000
|
|
503 IF M>9 THEN 506
|
|
505 IF S(M)=0 THEN 510
|
|
506 PRINT"THAT SQUARE IS OCCUPIED.":PRINT:PRINT:GOTO 500
|
|
510 G=1:S(M)=1
|
|
520 GOSUB 1000
|
|
530 GOTO 100
|
|
1000 PRINT:FOR I=1 TO 9:PRINT" ";:IF S(I)<>-1 THEN 1014
|
|
1012 PRINT Q$" ";:GOTO 1020
|
|
1014 IF S(I)<>0 THEN 1018
|
|
1016 PRINT" ";:GOTO 1020
|
|
1018 PRINT P$" ";
|
|
1020 IF I<>3 AND I<>6 THEN 1050
|
|
1030 PRINT:PRINT"---+---+---"
|
|
1040 GOTO 1080
|
|
1050 IF I=9 THEN 1080
|
|
1060 PRINT"!";
|
|
1080 NEXT I:PRINT:PRINT:PRINT
|
|
1095 FOR I=1 TO 7 STEP 3
|
|
1100 IF S(I)<>S(I+1)THEN 1115
|
|
1105 IF S(I)<>S(I+2)THEN 1115
|
|
1110 IF S(I)=-1 THEN 1350
|
|
1112 IF S(I)=1 THEN 1200
|
|
1115 NEXT I:FOR I=1 TO 3:IF S(I)<>S(I+3)THEN 1150
|
|
1130 IF S(I)<>S(I+6)THEN 1150
|
|
1135 IF S(I)=-1 THEN 1350
|
|
1137 IF S(I)=1 THEN 1200
|
|
1150 NEXT I:FOR I=1 TO 9:IF S(I)=0 THEN 1155
|
|
1152 NEXT I:GOTO 1400
|
|
1155 IF S(5)<>G THEN 1170
|
|
1160 IF S(1)=G AND S(9)=G THEN 1180
|
|
1165 IF S(3)=G AND S(7)=G THEN 1180
|
|
1170 RETURN
|
|
1180 IF G=-1 THEN 1350
|
|
1200 PRINT"YOU BEAT ME!! GOOD GAME.":GOTO 2000
|
|
1350 PRINT"I WIN, TURKEY!!!":GOTO 2000
|
|
1400 PRINT"IT'S A DRAW. THANK YOU."
|
|
2000 END
|