101-BASIC-Computer-Games/boxing.bas at main · maurymarkowitz/101-BASIC-Computer-Games · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
1 REM PROGRAM SUBMITTED BY JESSE LYNCH, ST.PAUL, MN.
2 J=0
3 L=0
5 PRINT "OLYMPIC BOXING -- 3 ROUNDS"
7 PRINT
10 PRINT "INPUT YOUR OPPONENT'S NAME"
20 INPUT J$
30 PRINT "INPUT YOUR MAN'S NAME"
40 INPUT L$
45 PRINT
50 PRINT "DIFFERENT PUNCHES ARE 1 FULL SWING 2 HOOK 3 UPPERCUT 4 JAB"
60 PRINT "WHAT IS YOUR MAN'S BEST";
64 INPUT B
70 PRINT "AND WHAT IS HIS VULNERABILITY";
80 INPUT D
85 PRINT
90 B1=INT(4*RND+1)
100 D1=INT(4*RND+1)
110 IF B1=D1 THEN 90
120 PRINT J$" ADVANTAGE IS "B1 "  AND DISADVANTAGE IS SECRET"
130 FOR R=1 TO 3
140 IF J>= 2 THEN 1040
150 IF L>=2 THEN 1060
160 X=0
170 Y=0
175 PRINT
180 PRINT "ROUND "R" BEGINS..."
181 PRINT ""
185 FOR RI= 1 TO 7
190 I=INT(10*RND+1)
200 IF I>5 THEN 600
210 PRINT L$ "'S PUNCH";
220 INPUT P
221 IF P=B THEN 225
222 GO TO 230
225 X=X+2
230 IF P=1 THEN 340
240 IF P=2 THEN 450
250 IF P=3 THEN 520
270 PRINT L$ "JABS AT "J$"S HEAD ";
271 IF D1=4 THEN 290
275 C=INT(B*RND+1)
280 IF C<4 THEN 310
290 X=X+3
300 GO TO 950
310 PRINT "ITS BLOCKED"
330 GO TO 950
340 PRINT L$ " SWINGS AND ";
341 IF D1=4 THEN 410
345 X3=INT(30* RND+1)
350 IF X3<10 THEN 410
360 PRINT " HE MISSES ";
375 IF X=1 THEN 950
380 PRINT
400 GO TO 300
410 PRINT "HE CONNECTS!"
420 IF X>35 THEN 980
425 X=X+15
440 GO TO 300
450 PRINT L$" GIVES THE HOOK ";
455 IF D1=2 THEN 480
460 H1 =INT(2*RND+1)
470 IF H1=1 THEN 500
475 PRINT "CONNECTS..."
480 X=X+7
490 GO TO 300
500 PRINT "BUT IT'S BLOCKED !!!!!!!!!!"
510 GO TO 300
520 PRINT L$ "  TRIES AN UPPERCUT   ";
530 IF D1=3 THEN 570
540 D5=INT(100*RND+1)
550 IF D5<51 THEN 570
560 PRINT " AND IT'S BLOCKED (LUCKY BLOCK!)"
565 GO TO 300
570 PRINT "AND HE CONNECTS!"
580 X=X+4
590 GO TO 300
600 J7 =INT(4*RND+1)
601 IF J7 =B1 THEN 605
602 GO TO 610
605 Y=Y+2
610 IF J7=1 THEN 720
620 IF J7=2 THEN 810
630 IF J7 =3 THEN 860
640 PRINT J$"  JABS AND";
645 IF D=4 THEN 700
650 Z4 =INT(7*RND+1)
655 IF Z4>4 THEN 690
660 PRINT " IT'S BLOCKED !"
670 GO TO 300
690 PRINT " BLOOD SPILLS !!!"
700 Y=Y+5
710 GO TO 300
720 PRINT J$"  TAKES A FULL SWING AND";
730 IF D=1 THEN 770
740 R6=INT(60*RND+1)
745 IF R6 <30 THEN 770
750 PRINT " BUT IT'S BLOCKED !"
760 GO TO 300
770 PRINT "POW!!!!! HE HITS HIM RIGHT IN THE FACE!"
780 IF Y>35 THEN 1010
790 Y=Y+15
800 GO TO 300
810 PRINT J$" GETS "L$" IN THE JAW  (OUCH!)"
820 Y=Y+7
830 PRINT "....AND AGAIN!"
835 Y=Y+5
840 IF Y>35 THEN 1010
850 PRINT
860 PRINT L$ " IS ATTACKED BY AN UPPERCUT (OH, OH)..."
865 IF D=3 THEN 890
870 Q4=INT(200*RND+1)
880 IF Q4>75 THEN 920
890 PRINT " AND "J$" CONNECTS..."
900 Y=Y+8
910 GO TO 300
920 PRINT " BLOCKS AND HITS "J$" WITH A HOOK."
930 X=X+5
940 GO TO 300
950 NEXT R1
951 IF X>Y THEN 955
952 PRINT J$ " WINS ROUND "R
953 J=J+1
954 GO TO 960
955 PRINT L$ " WINS ROUND "R
956 L=L+1
960 NEXT R
961 IF J>= 2 THEN 1040
962 IF L>=2 THEN 1060
981 PRINT J$ "  IS KNOCKED COLD AND " L$"  IS THE WINNER AND CHAMP ";
1000 GO TO 1080
1010 PRINT L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP ";
1030 GO TO 1080
1040 PRINT J$ "  WINS (NICE GOING )" J$
1050 GO TO 1080
1060 PRINT L$ " AMAZINGLY WINS  "
1070 GO TO 1000
1080 PRINT
1085 PRINT
1090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARNEA."
1100 PRINT
1110 END