mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-20 22:33:55 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
69 lines
1.9 KiB
QBasic
69 lines
1.9 KiB
QBasic
10 PRINT TAB(33);"WAR"
|
|
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
30 PRINT: PRINT: PRINT
|
|
100 PRINT "THIS IS THE CARD GAME OF WAR. EACH CARD IS GIVEN BY SUIT-#"
|
|
110 PRINT "AS S-7 FOR SPADE 7. ";
|
|
120 PRINT "DO YOU WANT DIRECTIONS";
|
|
130 INPUT B$
|
|
140 IF B$="NO" THEN 210
|
|
150 IF B$="YES" THEN 180
|
|
160 PRINT "YES OR NO, PLEASE. ";
|
|
170 GOTO 120
|
|
180 PRINT "THE COMPUTER GIVES YOU AND IT A 'CARD'. THE HIGHER CARD"
|
|
190 PRINT "(NUMERICALLY) WINS. THE GAME ENDS WHEN YOU CHOOSE NOT TO"
|
|
200 PRINT "CONTINUE OR WHEN YOU HAVE FINISHED THE PACK."
|
|
210 PRINT
|
|
220 PRINT
|
|
230 DIM A$(52),L(54)
|
|
240 FOR I=1 TO 52
|
|
250 READ A$(I)
|
|
260 NEXT I
|
|
270 REM
|
|
280 FOR J=1 TO 52
|
|
290 LET L(J)=INT(52*RND(1))+1
|
|
295 IF J=1 THEN 350
|
|
300 FOR K=1 TO J-1
|
|
310 IF L(K)<>L(J) THEN 340
|
|
320 REM
|
|
330 GOTO 290
|
|
340 NEXT K
|
|
350 NEXT J
|
|
360 P=P+1
|
|
370 M1=L(P)
|
|
380 P=P+1
|
|
390 M2=L(P)
|
|
400 PRINT
|
|
420 PRINT "YOU: ";A$(M1),"COMPUTER: ";A$(M2)
|
|
430 N1=INT((M1-.5)/4)
|
|
440 N2=INT((M2-.5)/4)
|
|
450 IF N1>=N2 THEN 490
|
|
460 A1=A1+1
|
|
470 PRINT "THE COMPUTER WINS!!! YOU HAVE";B1;"AND THE COMPUTER HAS";A1
|
|
480 GOTO 540
|
|
490 IF N1=N2 THEN 530
|
|
500 B1=B1+1
|
|
510 PRINT "YOU WIN. YOU HAVE";B1;"AND THE COMPUTER HAS";A1
|
|
520 GOTO 540
|
|
530 PRINT "TIE. NO SCORE CHANGE."
|
|
540 IF L(P+1)=0 THEN 610
|
|
550 PRINT "DO YOU WANT TO CONTINUE";
|
|
560 INPUT V$
|
|
570 IF V$="YES" THEN 360
|
|
580 IF V$="NO" THEN 650
|
|
590 PRINT "YES OR NO, PLEASE. ";
|
|
600 GOTO 540
|
|
610 PRINT
|
|
620 PRINT
|
|
630 PRINT "WE HAVE RUN OUT OF CARDS. FINAL SCORE: YOU: ";B1;
|
|
640 PRINT " THE COMPUTER: ";A1:PRINT
|
|
650 PRINT "THANKS FOR PLAYING. IT WAS FUN."
|
|
655 PRINT
|
|
660 DATA "S-2","H-2","C-2","D-2","S-3","H-3","C-3","D-3"
|
|
670 DATA "S-4","H-4","C-4","D-4","S-5","H-5","C-5","D-5"
|
|
680 DATA "S-6","H-6","C-6","D-6","S-7","H-7","C-7","D-7"
|
|
690 DATA "S-8","H-8","C-8","D-8","S-9","H-9","C-9","D-9"
|
|
700 DATA "S-10","H-10","C-10","D-10","S-J","H-J","C-J","D-J"
|
|
710 DATA "S-Q","H-Q","C-Q","D-Q","S-K","H-K","C-K","D-K"
|
|
720 DATA "S-A","H-A","C-A","D-A"
|
|
999 END
|