mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-17 23:56:24 -05:00
Add BULL and SPLAT.
This commit is contained in:
parent
3c630a0919
commit
c6835e5064
189
dec/BULL.BAS
Normal file
189
dec/BULL.BAS
Normal file
@ -0,0 +1,189 @@
|
||||
10 DIM D(20)
|
||||
200 RANDOMIZE
|
||||
202 LET L=1
|
||||
205 PRINT"DO YOU WANT INSTRUCTIONS";
|
||||
206 INPUT Z$
|
||||
207 IF Z$="NO" THEN 400
|
||||
210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS"
|
||||
220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL"
|
||||
230 PRINT
|
||||
240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY"
|
||||
250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
|
||||
260 PRINT"1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE"
|
||||
270 PRINT"2 - ORDINARY SWIRL OF THE CAPE"
|
||||
280 PRINT
|
||||
290 PRINT"INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL"
|
||||
300 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)"
|
||||
310 PRINT"BUT IF I WERE YOU,"
|
||||
320 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS"
|
||||
330 PRINT
|
||||
340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE"
|
||||
350 PRINT"POSTHUMOUSLY IF NECESSARY"
|
||||
360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE"
|
||||
370 PRINT
|
||||
380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO,"
|
||||
390 PRINT"THE BETTER YOUR CHANCES ARE"
|
||||
400 PRINT
|
||||
410 PRINT
|
||||
420 LET D(5)=1
|
||||
430 LET D(4)=1
|
||||
450 DIM L$(5)
|
||||
455 LET A=INT(RND(0)*5)+1
|
||||
460 FOR I=1 TO 5
|
||||
463 READ L$(I)
|
||||
467 NEXT I
|
||||
470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL"
|
||||
490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL"
|
||||
500 IF A>4 THEN 530
|
||||
510 IF A<2 THEN 550
|
||||
520 GOTO 570
|
||||
530 PRINT"YOU'RE LUCKY"
|
||||
540 GOTO 570
|
||||
550 PRINT"GOOD LUCK. YOU'LL NEED IT"
|
||||
560 PRINT
|
||||
570 PRINT
|
||||
590 LET A$="PICADO"
|
||||
595 LET B$="RES"
|
||||
600 GOSUB 1610
|
||||
610 LET D(1)=C
|
||||
630 LET A$="TOREAD"
|
||||
635 LET B$="ORES"
|
||||
640 GOSUB 1610
|
||||
650 LET D(2)=C
|
||||
660 LET E=E
|
||||
670 PRINT
|
||||
680 IF Z=1 THEN 1310
|
||||
690 LET D(3)=D(3)+1
|
||||
700 PRINT"PASS NUMBER "D(3)
|
||||
710 IF D(3)<3 THEN 760
|
||||
720 PRINT"HERE COMES THE BULL! TRY FOR A KILL";
|
||||
730 GOSUB 1930
|
||||
735 ON Z1 GOTO 1130,740
|
||||
740 PRINT "CAPE MOVE";
|
||||
750 GOTO 800
|
||||
760 PRINT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--"
|
||||
770 PRINT"DO YOU WANT TO KILL THE BULL";
|
||||
780 GOSUB 1930
|
||||
785 ON Z1 GOTO 1130,790
|
||||
790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE";
|
||||
800 INPUT E
|
||||
810 IF E<>INT(ABS(E)) THEN 830
|
||||
820 IF E<3 THEN 850
|
||||
830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"
|
||||
840 GOTO 800
|
||||
850 LET D=D
|
||||
860 IF E=0 THEN 920
|
||||
870 IF E=1 THEN 900
|
||||
880 LET M=0.5
|
||||
890 GOTO 930
|
||||
900 LET M=2
|
||||
910 GOTO 930
|
||||
920 LET M=3
|
||||
930 LET L=L+M
|
||||
940 LET F=(6-A+M/10)*RND(0)/((D(1)+D(2)+D(3)/10)*5)
|
||||
950 IF F<0.51 THEN 660
|
||||
960 PRINT"THE BULL HAS GORED YOU"
|
||||
970 ON FNA(0) GOTO 980,1010
|
||||
980 PRINT"YOU ARE DEAD"
|
||||
990 LET D(4)=1.5
|
||||
1000 GOTO 1310
|
||||
1010 PRINT"YOU ARE STILL ALIVE"
|
||||
1020 PRINT"DO YOU RUN FROM THE RING";
|
||||
1030 GOSUB 1930
|
||||
1035 ON Z1 GOTO 1040,1070
|
||||
1040 PRINT"COWARD"
|
||||
1050 LET D(4)=0
|
||||
1060 GOTO 1310
|
||||
1070 PRINT"YOU ARE BRAVE. STUPID, BUT BRAVE"
|
||||
1080 ON FNA(0) GOTO 1090,1110
|
||||
1090 LET D(4)=2
|
||||
1100 GOTO 660
|
||||
1110 PRINT"YOU ARE GORED AGAIN"
|
||||
1120 GOTO 970
|
||||
1130 LET C=C
|
||||
1140 LET Z=1
|
||||
1150 PRINT"IT IS THE MOMENT OF TRUTH. HOW DO YOU TRY TO KILL THE BULL";
|
||||
1160 INPUT H
|
||||
1170 IF H=4 THEN 1230
|
||||
1180 IF H=5 THEN 1230
|
||||
1190 PRINT"YOU PANICKED. THE BULL GORED YOU."
|
||||
1220 GOTO 970
|
||||
1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3))
|
||||
1240 IF J=4 THEN 1290
|
||||
1250 IF K>0.2 THEN 960
|
||||
1260 PRINT"YOU KILLED THE BULL"
|
||||
1270 LET D(5)=2
|
||||
1280 GOTO 1320
|
||||
1290 IF K>0.8 THEN 960
|
||||
1300 GOTO 1260
|
||||
1310 PRINT
|
||||
1320 PRINT
|
||||
1330 PRINT
|
||||
1340 IF D(4)<>0 THEN 1390
|
||||
1350 PRINT"THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW"
|
||||
1360 PRINT"YOUR FACE IN A RING AGAIN. THEY SWEAR THEY WILL KILL YOU--"
|
||||
1370 PRINT"UNLESS THE BULL DOES FIRST"
|
||||
1380 GOTO 1580
|
||||
1390 DEF FNC(Q)=(4.5+L/6-(D(1)+D(2))*2.5+4*D(4)+2*D(5)-(D(3)^2)/120-A)*RND(0)
|
||||
1400 IF D(4)<>2 THEN 1430
|
||||
1410 PRINT"THE CROW CHEERS WILDLY"
|
||||
1420 GOTO 1450
|
||||
1430 IF D(5)<>2 THEN 1450
|
||||
1440 PRINT"THE CROWD CHEERS"
|
||||
1450 PRINT"THE CROWD AWARDS YOU ";
|
||||
1460 IF FNC(Q)<2.4 THEN 1570
|
||||
1470 IF FNC(Q)<4.9 THEN 1550
|
||||
1480 IF FNC(Q)<7.4 THEN 1520
|
||||
1500 PRINT"OLE! YOU ARE 'MUY HOMBRE'! OLE! OLE!"
|
||||
1510 GOTO 1580
|
||||
1520 PRINT"BOTH EARS OF THE BULL"
|
||||
1530 PRINT"OLE!"
|
||||
1540 GOTO 1580
|
||||
1550 PRINT"ONE EAR OF THE BULL"
|
||||
1560 GOTO 1580
|
||||
1570 PRINT"NOTHING"
|
||||
1580 PRINT
|
||||
1590 PRINT"ADIOS"
|
||||
1600 GOTO 2030
|
||||
1610 LET B=3/A*RND(0)
|
||||
1620 IF B<0.37 THEN 1740
|
||||
1630 IF B<0.5 THEN 1720
|
||||
1640 IF B<0.63 THEN 1700
|
||||
1650 IF B<0.87 THEN 1680
|
||||
1660 LET C=0.1
|
||||
1670 GOTO 1750
|
||||
1680 LET C=0.2
|
||||
1690 GOTO 1750
|
||||
1700 LET C=0.3
|
||||
1710 GOTO 1750
|
||||
1720 LET C=0.4
|
||||
1730 GOTO 1750
|
||||
1740 LET C=0.5
|
||||
1750 LET T=INT(10*C+0.2)
|
||||
1760 PRINT"THE "A$;B$" DID A "L$(T)" JOB"
|
||||
1770 IF 4>T THEN 1900
|
||||
1780 IF 5=T THEN 1870
|
||||
1790 ON FNA(K) GOTO 1800,1900
|
||||
1800 IF A$="TOREAD" THEN 1820
|
||||
1810 PRINT"ONE OF THE HORSES OF THE "A$;B$" WAS GORED"
|
||||
1820 ON FNA(K) GOTO 1830,1850
|
||||
1830 PRINT"ONE OF THE "A$;B$" WAS KILLED"
|
||||
1840 GOTO 1900
|
||||
1850 PRINT"NO "A$;B$" WERE KILLED"
|
||||
1860 GOTO 1900
|
||||
1870 IF A$="TOREAD" THEN 1890
|
||||
1880 PRINT FNA(K)" OF THE HORSES OF THE "A$;B$" GORED"
|
||||
1890 PRINT FNA(K)" OF THE "A$;B$" KILLED"
|
||||
1900 PRINT
|
||||
1910 RETURN
|
||||
1920 DEF FNA(K)=INT(RND(0)*2)+1
|
||||
1930 INPUT A$
|
||||
1940 IF A$="YES" THEN 1990
|
||||
1950 IF A$="NO" THEN 2010
|
||||
1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'";
|
||||
1980 GOTO 1930
|
||||
1990 LET Z1=1
|
||||
2000 GOTO 2020
|
||||
2010 LET Z1=2
|
||||
2020 RETURN
|
||||
2030 END
|
||||
122
dec/SPLAT.BAS
Normal file
122
dec/SPLAT.BAS
Normal file
@ -0,0 +1,122 @@
|
||||
30 OPEN "PARACH.UTE" AS FILE 1%
|
||||
40 DIM #1%,A(4000)
|
||||
55 RANDOMIZE
|
||||
95 PRINT "WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE"
|
||||
96 PRINT "JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE"
|
||||
97 PRINT "MOMENT WITHOUT GOING SPLAT."
|
||||
118 PRINT\PRINT\D1=0\V=0\A=0\N=0\M=0\D1=INT(9001*RND(1)+1000)
|
||||
119 PRINT " SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)";\INPUT A1$
|
||||
120 IF A1$="NO" THEN 128 ELSE IF A1$="YES" THEN 123
|
||||
121 PRINT "'YES' OR 'NO' PLEASE";\INPUT A1$\GOTO 120
|
||||
123 PRINT "WHAT TERMINAL VELOCITY (MI/HR)";\INPUT V1
|
||||
125 V1=V1*(5280/3600)\V=V1+((V1*RND(0))/20)-((V1*RND(0))/20)\GOTO 135
|
||||
128 V1=INT(1000*RND(0))
|
||||
130 PRINT "OK. TERMINAL VELOCITY ="V1"MI/HR"
|
||||
131 V1=V1*(5280/3600)\V=V1+((V1*RND(0))/20)-((V1*RND(0))/20)
|
||||
135 PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)";
|
||||
136 INPUT B1$
|
||||
140 IF B1$="NO" THEN 150 ELSE IF B1$="YES" THEN 143
|
||||
141 PRINT "'YES' OR 'NO' PLEASE";\INPUT B1$\GOTO 140
|
||||
143 PRINT "WHAT ACCELERATION (FT/SEC/SEC)";\INPUT A2
|
||||
145 A=A2+((A2*RND(0))/20)-((A2*RND(0))/20)\GOTO 205
|
||||
150 ON INT(1+(10*RND(0)))GOTO 151,152,153,154,155,156,157,158,159,160
|
||||
151 PRINT"FINE. YOU'RE ON MERCURY. ACCELERATION=12.2 FT/SEC/SEC."\GOTO 161
|
||||
152 PRINT"ALRIGHT. YOU'RE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC."\GOTO 162
|
||||
153 PRINT "THEN YOU'RE ON EARTH. ACCELERATION=32.16 FT/SEC/SEC."\GOTO 163
|
||||
154 PRINT"FINE. YOU'RE ON THE MOON. ACCELERATION=5.15 FT/SEC/SEC."\GOTO 164
|
||||
155 PRINT"ALRIGHT. YOU'RE ON MARS. ACCELERATION=12.5 FT/SEC/SEC."\GOTO 165
|
||||
156 PRINT"THEN YOU'RE ON JUPITER. ACCELERATION=85.2 FT/SEC/SEC."\GOTO 166
|
||||
157 PRINT"FINE. YOU'RE ON SATURN. ACCELERATION=37.6 FT/SEC/SEC."\GOTO 167
|
||||
158 PRINT"ALRIGHT. YOU'RE ON URANUS. ACCELERATION=33.8 FT/SEC/SEC."\GOTO 168
|
||||
159 PRINT"THEN YOU'RE ON NEPTUNE. ACCELERATION=39.6 FT/SEC/SEC."\GOTO 169
|
||||
160 PRINT"FINE. YOU'RE ON THE SUN. ACCELERATION=896 FT/SEC/SEC."\GOTO 170
|
||||
161 A2=12.2\GOTO 145
|
||||
162 A2=28.3\GOTO 145
|
||||
163 A2=32.16\GOTO 145
|
||||
164 A2=5.15\GOTO 145
|
||||
165 A2=12.5\GOTO 145
|
||||
166 A2=85.2\GOTO 145
|
||||
167 A2=37.6\GOTO 145
|
||||
168 A2=33.8 \GOTO 145
|
||||
169 A2=39.6\GOTO 145
|
||||
170 A2=896\GOTO 145
|
||||
205 PRINT
|
||||
206 PRINT " ALTITUDE ="D1"FT"
|
||||
207 PRINT " TERM.VELOCITY ="V1"FT/SEC +-5%"
|
||||
208 PRINT " ACCELERATION ="A2"FT/SEC/SEC +-5%"
|
||||
210 PRINT "SET THE TIMER FOR YOUR FREEFALL."
|
||||
211 PRINT "HOW MANY SECONDS";\INPUT T
|
||||
215 PRINT "HERE WE GO."
|
||||
217 PRINT
|
||||
218 PRINT "TIME (SEC)","DIST TO FALL (FT)"
|
||||
219 PRINT "==========","================="
|
||||
300 FOR I=0 TO T STEP (T/8)
|
||||
310 IF I>V/A GOTO 400
|
||||
320 D=D1-((A/2)*I^2)
|
||||
330 IF D<=0 GOTO 1000
|
||||
340 PRINT I,D
|
||||
350 NEXT I
|
||||
360 GOTO 500
|
||||
400 PRINT "TERMINAL VELOCITY REACHED AT T PLUS"V/A"SECONDS"
|
||||
405 FOR I=I TO T STEP (T/8)
|
||||
410 D=D1-((V^2/(2*A))+(V*(I-(V/A))))
|
||||
420 IF D<=0 GOTO 1010
|
||||
430 PRINT I,D
|
||||
440 NEXT I
|
||||
450 GOTO 500
|
||||
500 PRINT "CHUTE OPEN"
|
||||
510 K=0\K1=0
|
||||
530 FOR I=1 TO 4000
|
||||
550 IF A(I)=0 GOTO 620
|
||||
560 K=K+1
|
||||
570 IF D>=A(I) GOTO 600
|
||||
580 K1=K1+1
|
||||
600 NEXT I
|
||||
620 A(I)=D
|
||||
630 I=I-1
|
||||
650 IF K-K1<=.1*K GOTO 700
|
||||
660 IF K-K1<=.25*K GOTO 710
|
||||
670 IF K-K1<=.5*K GOTO 720
|
||||
680 IF K-K1<=.75*K GOTO 730
|
||||
690 IF K-K1<=.9*K GOTO 740
|
||||
695 GOTO 750
|
||||
700 PRINT "WOW! THAT'S SOME JUMPING. OF THE"K"SUCCESSFUL JUMPS"
|
||||
701 PRINT "BEFORE YOURS, ONLY"K-K1"OPENED THEIR CHUTES LOWER THAN"
|
||||
702 PRINT "YOU DID."
|
||||
703 GOTO 2000
|
||||
710 PRINT "PRETTY GOOD! " K"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY"
|
||||
711 PRINT K-K1" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES"
|
||||
712 PRINT "OPENED." \GOTO 2000
|
||||
720 PRINT "NOT BAD. THERE HAVE BEEN"K"SUCCESSFUL JUMPS BEFORE YOURS."
|
||||
721 PRINT"YOU WERE BEATEN OUT BY"K-K1"OF THEM."\GOTO 2000
|
||||
730 PRINT "CONSERVATIVE AREN'T YOU? YOU RANKED ONLY"K-K1"IN THE"
|
||||
731 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS."\GOTO 2000
|
||||
740 PRINT "HUMPH! DON'T YOU HAVE ANY SPORTING BLOOD? THERE WERE"
|
||||
741 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN"K1"JUMPS"
|
||||
742 PRINT "BETTER THAN THE WORST. SHAPE UP!!!"\GOTO 2000
|
||||
750 PRINT "HEY! YOU PULLED THE RIP CORD MUCH TOO SOON. "K"SUCCESSFUL"
|
||||
751 PRINT "JUMPS BEFORE YOURS AND YOU CAME IN NUMBER"K-K1"! GET WITH IT!"
|
||||
752 GOTO 2000
|
||||
800 PRINT "REQUIESCAT IN PACE."\GOTO 1950
|
||||
801 PRINT "MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE"\GOTO 1950
|
||||
802 PRINT "REST IN PEACE"\GOTO 1950
|
||||
803 PRINT "SON-OF-A-GUN"\GOTO 1950
|
||||
804 PRINT "#$%&&%!$"\GOTO 1950
|
||||
805 PRINT "A KICK IN THE PANTS IS A BOOST IF YOU'RE HEADED RIGHT"\GOTO 1950
|
||||
806 PRINT "HMMM. SHOULD HAVE PICKED A SHORTER TIME."\GOTO 1950
|
||||
807 PRINT "MUTTER. MUTTER. MUTTER."\GOTO 1950
|
||||
808 PRINT "PUSHING UP DAISIES."\GOTO1950
|
||||
809 PRINT "EASY COME, EASY GO."\GOTO 1950
|
||||
1000 PRINT SQR(2*D1/A),"SPLAT"
|
||||
1005 ON INT(1+(10*RND(0)))GOTO 800,801,802,803,804,805,806,807,808,809
|
||||
1010 PRINT (V/A)+((D1-(V^2/(2*A)))/V),"SPLAT"
|
||||
1020 GOTO 1005
|
||||
1950 PRINT "I'LL GIVE YOU ANOTHER CHANCE."\GOTO 2000
|
||||
2000 PRINT "DO YOU WANT TO PLAY AGAIN";\INPUT Z$
|
||||
2001 IF Z$="YES" GOTO 118
|
||||
2002 IF Z$="NO" GOTO 2005
|
||||
2003 PRINT "YES OR NO"\GOTO 2000
|
||||
2005 PRINT "PLEASE";\INPUT Z$\IF Z$="YES" THEN 118 ELSE 2007
|
||||
2007 PRINT "SSSSSSSSSS."\GOTO 2046
|
||||
2046 CLOSE 1%
|
||||
9999 END
|
||||
189
port/BULL.BAS
Normal file
189
port/BULL.BAS
Normal file
@ -0,0 +1,189 @@
|
||||
10 DIM D(20)
|
||||
200 RANDOMIZE
|
||||
202 LET L=1
|
||||
205 PRINT"DO YOU WANT INSTRUCTIONS";
|
||||
206 INPUT Z$
|
||||
207 IF Z$="NO" THEN 400
|
||||
210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS"
|
||||
220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL"
|
||||
230 PRINT
|
||||
240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY"
|
||||
250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
|
||||
260 PRINT"1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE"
|
||||
270 PRINT"2 - ORDINARY SWIRL OF THE CAPE"
|
||||
280 PRINT
|
||||
290 PRINT"INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL"
|
||||
300 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)"
|
||||
310 PRINT"BUT IF I WERE YOU,"
|
||||
320 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS"
|
||||
330 PRINT
|
||||
340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE"
|
||||
350 PRINT"POSTHUMOUSLY IF NECESSARY"
|
||||
360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE"
|
||||
370 PRINT
|
||||
380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO,"
|
||||
390 PRINT"THE BETTER YOUR CHANCES ARE"
|
||||
400 PRINT
|
||||
410 PRINT
|
||||
420 LET D(5)=1
|
||||
430 LET D(4)=1
|
||||
450 DIM L$(5)
|
||||
455 LET A=INT(RND(0)*5)+1
|
||||
460 FOR I=1 TO 5
|
||||
463 READ L$(I)
|
||||
467 NEXT I
|
||||
470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL"
|
||||
490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL"
|
||||
500 IF A>4 THEN 530
|
||||
510 IF A<2 THEN 550
|
||||
520 GOTO 570
|
||||
530 PRINT"YOU'RE LUCKY"
|
||||
540 GOTO 570
|
||||
550 PRINT"GOOD LUCK. YOU'LL NEED IT"
|
||||
560 PRINT
|
||||
570 PRINT
|
||||
590 LET A$="PICADO"
|
||||
595 LET B$="RES"
|
||||
600 GOSUB 1610
|
||||
610 LET D(1)=C
|
||||
630 LET A$="TOREAD"
|
||||
635 LET B$="ORES"
|
||||
640 GOSUB 1610
|
||||
650 LET D(2)=C
|
||||
660 LET E=E
|
||||
670 PRINT
|
||||
680 IF Z=1 THEN 1310
|
||||
690 LET D(3)=D(3)+1
|
||||
700 PRINT"PASS NUMBER "D(3)
|
||||
710 IF D(3)<3 THEN 760
|
||||
720 PRINT"HERE COMES THE BULL! TRY FOR A KILL";
|
||||
730 GOSUB 1930
|
||||
735 ON Z1 GOTO 1130,740
|
||||
740 PRINT "CAPE MOVE";
|
||||
750 GOTO 800
|
||||
760 PRINT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--"
|
||||
770 PRINT"DO YOU WANT TO KILL THE BULL";
|
||||
780 GOSUB 1930
|
||||
785 ON Z1 GOTO 1130,790
|
||||
790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE";
|
||||
800 INPUT E
|
||||
810 IF E<>INT(ABS(E)) THEN 830
|
||||
820 IF E<3 THEN 850
|
||||
830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"
|
||||
840 GOTO 800
|
||||
850 LET D=D
|
||||
860 IF E=0 THEN 920
|
||||
870 IF E=1 THEN 900
|
||||
880 LET M=0.5
|
||||
890 GOTO 930
|
||||
900 LET M=2
|
||||
910 GOTO 930
|
||||
920 LET M=3
|
||||
930 LET L=L+M
|
||||
940 LET F=(6-A+M/10)*RND(0)/((D(1)+D(2)+D(3)/10)*5)
|
||||
950 IF F<0.51 THEN 660
|
||||
960 PRINT"THE BULL HAS GORED YOU"
|
||||
970 ON FNA(0) GOTO 980,1010
|
||||
980 PRINT"YOU ARE DEAD"
|
||||
990 LET D(4)=1.5
|
||||
1000 GOTO 1310
|
||||
1010 PRINT"YOU ARE STILL ALIVE"
|
||||
1020 PRINT"DO YOU RUN FROM THE RING";
|
||||
1030 GOSUB 1930
|
||||
1035 ON Z1 GOTO 1040,1070
|
||||
1040 PRINT"COWARD"
|
||||
1050 LET D(4)=0
|
||||
1060 GOTO 1310
|
||||
1070 PRINT"YOU ARE BRAVE. STUPID, BUT BRAVE"
|
||||
1080 ON FNA(0) GOTO 1090,1110
|
||||
1090 LET D(4)=2
|
||||
1100 GOTO 660
|
||||
1110 PRINT"YOU ARE GORED AGAIN"
|
||||
1120 GOTO 970
|
||||
1130 LET C=C
|
||||
1140 LET Z=1
|
||||
1150 PRINT"IT IS THE MOMENT OF TRUTH. HOW DO YOU TRY TO KILL THE BULL";
|
||||
1160 INPUT H
|
||||
1170 IF H=4 THEN 1230
|
||||
1180 IF H=5 THEN 1230
|
||||
1190 PRINT"YOU PANICKED. THE BULL GORED YOU."
|
||||
1220 GOTO 970
|
||||
1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3))
|
||||
1240 IF J=4 THEN 1290
|
||||
1250 IF K>0.2 THEN 960
|
||||
1260 PRINT"YOU KILLED THE BULL"
|
||||
1270 LET D(5)=2
|
||||
1280 GOTO 1320
|
||||
1290 IF K>0.8 THEN 960
|
||||
1300 GOTO 1260
|
||||
1310 PRINT
|
||||
1320 PRINT
|
||||
1330 PRINT
|
||||
1340 IF D(4)<>0 THEN 1390
|
||||
1350 PRINT"THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW"
|
||||
1360 PRINT"YOUR FACE IN A RING AGAIN. THEY SWEAR THEY WILL KILL YOU--"
|
||||
1370 PRINT"UNLESS THE BULL DOES FIRST"
|
||||
1380 GOTO 1580
|
||||
1390 DEF FNC(Q)=(4.5+L/6-(D(1)+D(2))*2.5+4*D(4)+2*D(5)-(D(3)^2)/120-A)*RND(0)
|
||||
1400 IF D(4)<>2 THEN 1430
|
||||
1410 PRINT"THE CROWD CHEERS WILDLY"
|
||||
1420 GOTO 1450
|
||||
1430 IF D(5)<>2 THEN 1450
|
||||
1440 PRINT"THE CROWD CHEERS"
|
||||
1450 PRINT"THE CROWD AWARDS YOU ";
|
||||
1460 IF FNC(Q)<2.4 THEN 1570
|
||||
1470 IF FNC(Q)<4.9 THEN 1550
|
||||
1480 IF FNC(Q)<7.4 THEN 1520
|
||||
1500 PRINT"OLE! YOU ARE 'MUY HOMBRE'! OLE! OLE!"
|
||||
1510 GOTO 1580
|
||||
1520 PRINT"BOTH EARS OF THE BULL"
|
||||
1530 PRINT"OLE!"
|
||||
1540 GOTO 1580
|
||||
1550 PRINT"ONE EAR OF THE BULL"
|
||||
1560 GOTO 1580
|
||||
1570 PRINT"NOTHING"
|
||||
1580 PRINT
|
||||
1590 PRINT"ADIOS"
|
||||
1600 GOTO 2030
|
||||
1610 LET B=3/A*RND(0)
|
||||
1620 IF B<0.37 THEN 1740
|
||||
1630 IF B<0.5 THEN 1720
|
||||
1640 IF B<0.63 THEN 1700
|
||||
1650 IF B<0.87 THEN 1680
|
||||
1660 LET C=0.1
|
||||
1670 GOTO 1750
|
||||
1680 LET C=0.2
|
||||
1690 GOTO 1750
|
||||
1700 LET C=0.3
|
||||
1710 GOTO 1750
|
||||
1720 LET C=0.4
|
||||
1730 GOTO 1750
|
||||
1740 LET C=0.5
|
||||
1750 LET T=INT(10*C+0.2)
|
||||
1760 PRINT"THE "A$;B$" DID A "L$(T)" JOB"
|
||||
1770 IF 4>T THEN 1900
|
||||
1780 IF 5=T THEN 1870
|
||||
1790 ON FNA(K) GOTO 1800,1900
|
||||
1800 IF A$="TOREAD" THEN 1820
|
||||
1810 PRINT"ONE OF THE HORSES OF THE "A$;B$" WAS GORED"
|
||||
1820 ON FNA(K) GOTO 1830,1850
|
||||
1830 PRINT"ONE OF THE "A$;B$" WAS KILLED"
|
||||
1840 GOTO 1900
|
||||
1850 PRINT"NO "A$;B$" WERE KILLED"
|
||||
1860 GOTO 1900
|
||||
1870 IF A$="TOREAD" THEN 1890
|
||||
1880 PRINT FNA(K)" OF THE HORSES OF THE "A$;B$" GORED"
|
||||
1890 PRINT FNA(K)" OF THE "A$;B$" KILLED"
|
||||
1900 PRINT
|
||||
1910 RETURN
|
||||
1920 DEF FNA(K)=INT(RND(0)*2)+1
|
||||
1930 INPUT A$
|
||||
1940 IF A$="YES" THEN 1990
|
||||
1950 IF A$="NO" THEN 2010
|
||||
1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'";
|
||||
1980 GOTO 1930
|
||||
1990 LET Z1=1
|
||||
2000 GOTO 2020
|
||||
2010 LET Z1=2
|
||||
2020 RETURN
|
||||
2030 END
|
||||
Loading…
Reference in New Issue
Block a user