mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-23 18:46:52 -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
|