ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

143 lines
3.2 KiB

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