mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-24 02:57:38 -05:00
255 lines
5.8 KiB
QBasic
255 lines
5.8 KiB
QBasic
10 REM BRIAN MONTE LEIBOWITZ GRADE 7
|
|
20 REM HARRISON JR. HIGH SCHOOL
|
|
30 REM HARRISON N.Y.
|
|
40 DIM Z$[3]
|
|
50 A=B=H=L=N=P=Q=R=S=T=U=V=Y=0
|
|
60 PRINT "THE GAME BUG IS LIKE THE GAME COOTI,"
|
|
70 PRINT "I HOPE YOU ENJOY THIS GAME"
|
|
80 PRINT
|
|
90 PRINT "DO YOU WANT INSTRUCTIONS";
|
|
100 INPUT Z$
|
|
110 IF Z$="NO" THEN 300
|
|
120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH MINE"
|
|
130 PRINT "EACH NUMBER STANDS FOR A PART OF THE BUGS BODY"
|
|
140 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
|
|
150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART."
|
|
160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU."
|
|
170 PRINT "THE SAME WILL HAPPEN ON MY TURN"
|
|
180 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE "
|
|
190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS."
|
|
200 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:"
|
|
210 PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
|
|
220 PRINT "1","BODY","1"
|
|
230 PRINT "2","NECK","1"
|
|
240 PRINT "3","HEAD","1"
|
|
250 PRINT "4","FEELERS","2"
|
|
260 PRINT "5","TAIL","1"
|
|
270 PRINT "6","LEGS","6"
|
|
280 PRINT
|
|
290 PRINT
|
|
300 IF Y>0 THEN 2480
|
|
310 Z=INT(6*RND(0)+1)
|
|
320 C=1
|
|
330 PRINT "YOU ROLLED A "Z
|
|
340 GOTO Z OF 350,430,540,650,760,870
|
|
350 PRINT "1=BODY"
|
|
360 IF B=1 THEN 410
|
|
370 PRINT "YOU NOW HAVE A BODY"
|
|
380 B=1
|
|
390 C=0
|
|
400 GOTO 970
|
|
410 PRINT "YOU DO NOT NEED A BODY"
|
|
420 GOTO 970
|
|
430 PRINT "2=NECK"
|
|
440 IF N=1 THEN 500
|
|
450 IF B=0 THEN 520
|
|
460 PRINT "YOU NOW HAVE A NECK"
|
|
470 N=1
|
|
480 C=0
|
|
490 GOTO 970
|
|
500 PRINT "YOU DO NOT NEED A NECK"
|
|
510 GOTO 970
|
|
520 PRINT "YOU DO NOT HAVE A BODY"
|
|
530 GOTO 970
|
|
540 PRINT "3=HEAD"
|
|
550 IF N=0 THEN 610
|
|
560 IF H=1 THEN 630
|
|
570 PRINT "YOU NEEDED A HEAD"
|
|
580 H=1
|
|
590 C=0
|
|
600 GOTO 970
|
|
610 PRINT "YOU DO NOT HAVE A NECK"
|
|
620 GOTO 970
|
|
630 PRINT "YOU HAVE A HEAD"
|
|
640 GOTO 970
|
|
650 PRINT "4=FEELERS"
|
|
660 IF H=0 THEN 740
|
|
670 IF A=2 THEN 720
|
|
680 PRINT "I NOW GIVE YOU A FEELER"
|
|
690 LET A=A+1
|
|
700 C=0
|
|
710 GOTO 970
|
|
720 PRINT "YOU HAVE TWO FEELERS ALREADY"
|
|
730 GOTO 970
|
|
740 PRINT "YOU DO NOT HAVE A HEAD"
|
|
750 GOTO 970
|
|
760 PRINT "5=TAIL"
|
|
770 IF B=0 THEN 830
|
|
780 IF T=1 THEN 850
|
|
790 PRINT "I NOW GIVE YOU A TAIL"
|
|
800 LET T=T+1
|
|
810 C=0
|
|
820 GOTO 970
|
|
830 PRINT "YOU DO NOT HAVE A BODY"
|
|
840 GOTO 970
|
|
850 PRINT "YOU ALREADY HAVE A TAIL"
|
|
860 GOTO 970
|
|
870 PRINT "6=LEG"
|
|
880 IF L=6 THEN 940
|
|
890 IF B=0 THEN 960
|
|
900 LET L=L+1
|
|
910 C=0
|
|
920 PRINT "YOU NOW HAVE "L" LEG(S)"
|
|
930 GOTO 970
|
|
940 PRINT "YOU HAVE 6 FEET ALREADY"
|
|
950 GOTO 970
|
|
960 PRINT "YOU DO NOT HAVE A BODY"
|
|
970 LET X=INT(6*RND(0)+1)
|
|
980 PRINT "I ROLLED A "X
|
|
990 GOTO X OF 1000,1080,1190,1300,1410,1520
|
|
1000 PRINT "1=BODY"
|
|
1010 IF P=1 THEN 1060
|
|
1020 PRINT "I NOW HAVE A BODY"
|
|
1030 C=0
|
|
1040 P=1
|
|
1050 GOTO 1630
|
|
1060 PRINT "I DO NOT NEED A BODY"
|
|
1070 GOTO 1630
|
|
1080 PRINT "2=NECK"
|
|
1090 IF Q=1 THEN 1150
|
|
1100 IF P=0 THEN 1170
|
|
1110 PRINT "I NOW HAVE A NECK"
|
|
1120 Q=1
|
|
1130 C=0
|
|
1140 GOTO 1630
|
|
1150 PRINT "I DO NOT NEED A NECK"
|
|
1160 GOTO 1630
|
|
1170 PRINT "I DO NOT HAVE A BODY"
|
|
1180 GOTO 1630
|
|
1190 PRINT "3=HEAD"
|
|
1200 IF Q=0 THEN 1260
|
|
1210 IF R=1 THEN 1280
|
|
1220 PRINT "I NEEDED A HEAD"
|
|
1230 R=1
|
|
1240 C=0
|
|
1250 GOTO 1630
|
|
1260 PRINT "I DO NOT HAVE A NECK"
|
|
1270 GOTO 1630
|
|
1280 PRINT "I DO NOT NEED A HEAD"
|
|
1290 GOTO 1630
|
|
1300 PRINT "4=FEELERS"
|
|
1310 IF R=0 THEN 1390
|
|
1320 IF S=2 THEN 1370
|
|
1330 PRINT "I GET A FEELER"
|
|
1340 LET S=S+1
|
|
1350 C=0
|
|
1360 GOTO 1630
|
|
1370 PRINT "I HAVE 2 FEELERS ALREADY"
|
|
1380 GOTO 1630
|
|
1390 PRINT "I DO NOT HAVE A HEAD"
|
|
1400 GOTO 1630
|
|
1410 PRINT "5=TAIL"
|
|
1420 IF P=0 THEN 1480
|
|
1430 IF U=1 THEN 1500
|
|
1440 PRINT "I NOW HAVE A TAIL"
|
|
1450 U=1
|
|
1460 C=0
|
|
1470 GOTO 1630
|
|
1480 PRINT "I DO NOT HAVE A BODY"
|
|
1490 GOTO 1630
|
|
1500 PRINT "I DO NOT NEED A TAIL"
|
|
1510 GOTO 1630
|
|
1520 PRINT "6=LEGS"
|
|
1530 IF V=6 THEN 1590
|
|
1540 IF P=0 THEN 1610
|
|
1550 LET V=V+1
|
|
1560 C=0
|
|
1570 PRINT "I NOW HAVE "V" LEG(S)"
|
|
1580 GOTO 1630
|
|
1590 PRINT "I HAVE 6 FEET"
|
|
1600 GOTO 1630
|
|
1610 PRINT "I DO NOT HAVE A BODY"
|
|
1620 GOTO 1630
|
|
1630 IF A=2 AND T=1 AND L=6 THEN 1650
|
|
1640 GOTO 1670
|
|
1650 PRINT "YOUR BUG IS FINISHED"
|
|
1660 LET Y=Y+1
|
|
1670 IF S=2 AND P=1 AND V=6 THEN 1690
|
|
1680 GOTO 1710
|
|
1690 PRINT "MY BUG IS FINISHED"
|
|
1700 LET Y=Y+2
|
|
1710 IF C=1 THEN 300
|
|
1720 PRINT "DO YOU WANT THE PICTURES";
|
|
1730 INPUT Z$
|
|
1740 IF Z$="NO" THEN 300
|
|
1750 PRINT "*****YOUR BUG*****"
|
|
1760 PRINT
|
|
1770 PRINT
|
|
1780 IF A=0 THEN 1860
|
|
1790 FOR Z=1 TO 4
|
|
1800 FOR X=1 TO A
|
|
1810 PRINT TAB(10);
|
|
1820 PRINT "A ";
|
|
1830 NEXT X
|
|
1840 PRINT
|
|
1850 NEXT Z
|
|
1860 IF H=0 THEN 1880
|
|
1870 GOSUB 2470
|
|
1880 IF N=0 THEN 1920
|
|
1890 FOR Z=1 TO 2
|
|
1900 PRINT " N N"
|
|
1910 NEXT Z
|
|
1920 IF B=0 THEN 2000
|
|
1930 PRINT " BBBBBBBBBBBB"
|
|
1940 FOR Z=1 TO 2
|
|
1950 PRINT " B B"
|
|
1960 NEXT Z
|
|
1970 IF T#1 THEN 1990
|
|
1980 PRINT "TTTTTB B"
|
|
1990 PRINT " BBBBBBBBBBBB"
|
|
2000 IF L=0 THEN 2080
|
|
2010 FOR Z=1 TO 2
|
|
2020 PRINT TAB(5);
|
|
2030 FOR X=1 TO L
|
|
2040 PRINT " L";
|
|
2050 NEXT X
|
|
2060 PRINT
|
|
2070 NEXT Z
|
|
2080 FOR Z=1 TO 4
|
|
2090 PRINT
|
|
2100 NEXT Z
|
|
2110 PRINT "*****MY BUG*****"
|
|
2120 PRINT
|
|
2130 PRINT
|
|
2140 PRINT
|
|
2150 IF S=0 THEN 2230
|
|
2160 FOR Z=1 TO 4
|
|
2170 PRINT TAB(10);
|
|
2180 FOR X=1 TO S
|
|
2190 PRINT "F ";
|
|
2200 NEXT X
|
|
2210 PRINT
|
|
2220 NEXT Z
|
|
2230 IF R#1 THEN 2250
|
|
2240 GOSUB 2470
|
|
2250 IF Q=0 THEN 2280
|
|
2260 PRINT " N N"
|
|
2270 PRINT " N N"
|
|
2280 IF P=0 THEN 2360
|
|
2290 PRINT " BBBBBBBBBBBB"
|
|
2300 FOR Z=1 TO 2
|
|
2310 PRINT " B B"
|
|
2320 NEXT Z
|
|
2330 IF U#1 THEN 2350
|
|
2340 PRINT "TTTTTB B"
|
|
2350 PRINT " BBBBBBBBBBBB"
|
|
2360 IF V=0 THEN 2450
|
|
2370 FOR Z=1 TO 2
|
|
2380 PRINT TAB(5);
|
|
2390 FOR X=1 TO V
|
|
2400 PRINT " L";
|
|
2410 NEXT X
|
|
2420 PRINT
|
|
2430 NEXT Z
|
|
2450 IF Y#0 THEN 2540
|
|
2460 GOTO 300
|
|
2470 PRINT " HHHHHHH"
|
|
2480 PRINT " H H"
|
|
2490 PRINT " H O O H"
|
|
2500 PRINT " H H"
|
|
2510 PRINT " H V H"
|
|
2520 PRINT " HHHHHHH"
|
|
2530 RETURN
|
|
2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!"
|
|
2550 END
|