mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 08:06:27 -05:00
102 lines
2.5 KiB
QBasic
102 lines
2.5 KiB
QBasic
100 REM ***THE GAME OF CHOMP***
|
|
105 REM ***SUBMITTED BY PEOPLES COMPUTER CENTER***
|
|
110 PRINT
|
|
120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)"
|
|
130 PRINT "WANT THE RULES (1=YES, 0=NO!)";
|
|
140 INPUT R
|
|
150 IF R=0 THEN 340
|
|
160 F=1
|
|
170 R=5
|
|
180 C=7
|
|
190 PRINT "CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)."
|
|
200 PRINT
|
|
210 PRINT "HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):"
|
|
220 GOSUB 540
|
|
230 PRINT
|
|
240 PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"
|
|
250 PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT"
|
|
260 PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO"
|
|
270 PRINT "CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE"
|
|
280 PRINT "ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE."
|
|
290 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE"
|
|
300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!"
|
|
310 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED,"
|
|
320 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE."
|
|
330 PRINT
|
|
340 PRINT "HERE WE GO..."
|
|
350 DIM A(10,10)
|
|
360 F=0
|
|
370 FOR I=1 TO 10
|
|
372 FOR J=1 TO 10
|
|
375 A(I,J)=0
|
|
377 NEXT J
|
|
379 NEXT I
|
|
380 PRINT
|
|
390 PRINT "HOW MANY PLAYERS";
|
|
400 INPUT P
|
|
410 I1=0
|
|
420 PRINT "HOW MANY ROWS";
|
|
430 INPUT R
|
|
440 IF R <= 9 THEN 470
|
|
450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, ";
|
|
460 GOTO 420
|
|
470 PRINT "HOW MANY COLUMNS";
|
|
480 INPUT C
|
|
490 IF C <= 9 THEN 530
|
|
500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, ";
|
|
510 GOTO 470
|
|
530 PRINT
|
|
540 FOR I=1 TO R
|
|
550 FOR J=1 TO C
|
|
560 A(I,J)=1
|
|
570 NEXT J
|
|
580 NEXT I
|
|
590 A(1,1)=-1
|
|
600 REM PRINT THE BOARD
|
|
610 PRINT
|
|
620 PRINT TAB(7);"1 2 3 4 5 6 7 8 9"
|
|
630 FOR I=1 TO R
|
|
640 PRINT I;TAB(7);
|
|
650 FOR J=1 TO C
|
|
660 IF A(I,J)=-1 THEN 700
|
|
670 IF A(I,J)=0 THEN 720
|
|
680 PRINT "* ";
|
|
690 GOTO 710
|
|
700 PRINT "P ";
|
|
710 NEXT J
|
|
720 PRINT
|
|
730 NEXT I
|
|
740 PRINT
|
|
750 IF F=0 THEN 770
|
|
760 RETURN
|
|
770 REM GET CHOMPS FOR EACH PLAYER IN TURN
|
|
780 LET I1=I1+1
|
|
790 LET P1=I1-INT(I1/P)*P
|
|
800 IF P1 <> 0 THEN 820
|
|
810 P1=P
|
|
820 PRINT "PLAYER";P1
|
|
830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)";
|
|
840 INPUT R1,C1
|
|
850 IF R1<1 THEN 920
|
|
860 IF R1>R THEN 920
|
|
870 IF C1<1 THEN 920
|
|
880 IF C1>C THEN 920
|
|
890 IF A(R1,C1)=0 THEN 920
|
|
900 IF A(R1,C1)=-1 THEN 1010
|
|
910 GOTO 940
|
|
920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!"
|
|
930 GOTO 820
|
|
940 FOR I=R1 TO R
|
|
950 FOR J=C1 TO C
|
|
960 A(I,J)=0
|
|
970 NEXT J
|
|
980 NEXT I
|
|
990 GOTO 610
|
|
1000 REM END OF GAME DETECTED IN LINE 900
|
|
1010 PRINT "YOU LOSE, PLAYER ";P1
|
|
1020 PRINT
|
|
1030 PRINT "AGAIN (1=YES, 0=NO!)";
|
|
1040 INPUT R
|
|
1050 IF R=1 THEN 340
|
|
1060 END
|