home *** CD-ROM | disk | FTP | other *** search
/ Sunny 1,000 Collection / SUNNY1000.iso / Files / Dos / Casino / MADNESS2.ZIP / CHEATRM2.BAS next >
BASIC Source File  |  1995-03-10  |  9KB  |  270 lines
  1. DECLARE FUNCTION chmd2! ()
  2. DECLARE FUNCTION md2! ()
  3. INPUT "Mode? (<ENTER> for regular play.)", o$
  4. IF o$ = "cheat" THEN 1
  5. IF o$ = "" THEN 10
  6. 1 CLS
  7. 2 INPUT "Enter cheat code...", n$
  8. GOTO 55555
  9. 10 CLS
  10. 20 PRINT "VORTEC@'s:"
  11. 30 PRINT
  12. 40 PRINT "RACING MADNESS II: The Race Car Match! + The RM2 Upgrade 2.0 + SECRET 1.0"
  13. 45 PRINT
  14. 49 PRINT "By: Matt Stidle"
  15. 50 PRINT
  16. 60 INPUT "Press <ENTER> to bet on the race.", a$
  17. 70 CLS
  18. 71 INPUT "Please enter racer 1's name...", c$
  19. 72 INPUT "Please enter racer 2's name (Same amount of letters as 1)...", d$
  20. 3783 INPUT "What is broadcaster 1's name?", v$
  21. 39903 INPUT "What is broadcater 2's name?", q$
  22. 73 INPUT "Is racer 1 a he or she?", y$
  23. 74 INPUT "Is racer 2 a he or she?", z$
  24. 75 IF y$ = "he" THEN g$ = "him"
  25. 76 IF y$ = "she" THEN g$ = "her"
  26. 10020 IF z$ = "he" THEN s$ = "his"
  27. 30289 IF z$ = "she" THEN s$ = "her"
  28. 100000 IF y$ = "she" THEN j$ = "She"
  29. 101010 IF y$ = "he" THEN j$ = "He"
  30. 10001 IF y$ = "he" THEN l$ = "his"
  31. 10002 IF y$ = "she" THEN l$ = "her"
  32. 10003 IF y$ = "he" THEN k$ = "his"
  33. 10004 IF y$ = "she" THEN k$ = "her"
  34. 77 PRINT "Sorry, but this is crucial for the game!!!"
  35. 78 SLEEP 2
  36. 79 CLS
  37. 80 PRINT c$; " or "; d$; ", who will win?"
  38. 81 INPUT b$
  39. 90 CLS
  40. 100 PRINT v$; ": The race will soon begin..."
  41. 110 SLEEP 2
  42. 120 PRINT q$; ": But first, a word from our sponsor, VORTEC@..."
  43. 130 SLEEP 2
  44. 140 CLS
  45. 150 PRINT "Yes folks, it's here again, RACING MADNESS!!!"
  46. 155 SLEEP 2
  47. 156 CLS
  48. 160 PRINT "It is better than the first one by far with a longer race and 2"
  49. 161 PRINT "sportscasters!!!"
  50. 165 SLEEP 5
  51. 167 CLS
  52. 170 PRINT "But watch out for RACING MADNESS III: The Final Race, to check out"
  53. 180 PRINT "2, yes I said 2 tracks!!!  It even has tracks that go longer than"
  54. 190 PRINT "ever!!!  This all comes together to make the best text race EVER!!!"
  55. 200 SLEEP 10
  56. 205 CLS
  57. 210 PRINT "Now, back to the regularly scheduled race..."
  58. 220 SLEEP 1
  59. 230 PRINT v$; ": Okay folks, there they go..."
  60. 235 SLEEP 2
  61. 240 PRINT q$; ": AND THEY'RE OFF!!!"
  62. 250 SLEEP 2
  63. 260 CLS
  64. 270 PRINT c$; "- *>"
  65. 280 PRINT d$; "- *>"
  66. 290 PRINT v$; ": I think that "; d$; "'s gonna take this one for sure..."
  67. 300 PRINT q$; ": We can't be too sure of that at this point in the race..."
  68. 310 SLEEP 5
  69. 320 CLS
  70. 330 PRINT c$; "-   *>"
  71. 340 PRINT d$; "-  *>"
  72. 350 PRINT q$; ": Wow, "; c$; " really took off!!!  What do you think "; y$; " did?"
  73. 360 PRINT v$; ": I don't know, but it better not be illegal!!!"
  74. 370 SLEEP 5
  75. 380 CLS
  76. 390 PRINT c$; "-    *>"
  77. 400 PRINT d$; "-    *>"
  78. 410 PRINT v$; ": I think this is pretty close, you?"
  79. 420 PRINT q$; ": Yeah, "; d$; " isn't taking off fast like last time..."
  80. 430 SLEEP 5
  81. 440 CLS
  82. 450 PRINT c$; "-     *>"
  83. 460 PRINT d$; "-        *>"
  84. 470 PRINT q$; ": Wow!!!  I spoke a BIT too soon, Chuck..."
  85. 480 PRINT v$; ": I think you did!  I would advise you to SHUT UP next time, ha."
  86. 490 SLEEP 6
  87. 500 CLS
  88. 510 PRINT c$; "-       *>"
  89. 520 PRINT d$; "-          *>"
  90. 530 PRINT q$; ": I KNOW you didn't just tell ME to shut up!"
  91. 540 PRINT v$; ": I DID!"
  92. 550 SLEEP 5
  93. 560 CLS
  94. 570 PRINT c$; "-           *>"
  95. 580 PRINT d$; "-           *>"
  96. 590 PRINT v$; ": Now, let's not get into a fight, we've got a job to do..."
  97. 600 PRINT q$; ": I agree, we're grown sportscasters..."
  98. 610 SLEEP 5
  99. 620 CLS
  100. 630 PRINT c$; "-           *>"
  101. 640 PRINT d$; "-           *>"
  102. 650 PRINT q$; ": They're not moving, there must be a problem..."
  103. 660 PRINT v$; ": No, they just sat in the middle of the track for nothing, dimhead.."
  104. 670 SLEEP 6
  105. 680 CLS
  106. 690 PRINT c$; "-            *>"
  107. 700 PRINT d$; "-              *>"
  108. 710 PRINT q$; ": You're calling me names again!"
  109. 720 PRINT v$; ": Am not!"
  110. 730 SLEEP 5
  111. 735 CLS
  112. 740 PRINT c$; "-             *>"
  113. 750 PRINT d$; "-              *>"
  114. 760 PRINT q$; ": Are too!"
  115. 770 PRINT v$; ": LOOK!!!  We've got a show to do, now we should just cool it..."
  116. 780 SLEEP 5
  117. 790 CLS
  118. 800 PRINT c$; "-               *>"
  119. 810 PRINT d$; "-                *>"
  120. 820 PRINT v$; ": Seems like "; c$; " is having troubles with "; k$; " engine..."
  121. 830 PRINT q$; ": Let's use the MIND-CAM to see what their thinking..."
  122. 840 SLEEP 6
  123. 850 CLS
  124. 860 BEEP
  125. 870 PRINT "MIND-CAM data:"
  126. 880 PRINT
  127. 890 PRINT c$; ": Oh man, my engine's gettin hot.  I think I should stop...  Na!!!"
  128. 900 PRINT d$; ": I'm hot on "; c$; "'s trail now, I know I'll win!"
  129. 910 PRINT
  130. 920 PRINT "Copyright MIND-CAM @1995, VORTEC@ "
  131. 930 SLEEP 10
  132. 940 CLS
  133. 950 PRINT c$; "-                 *>"
  134. 960 PRINT d$; "-                 *>"
  135. 970 PRINT v$; ": Seems that "; c$; "'s having problems..."
  136. 980 PRINT q$; ": Yes, "; y$; "'s moving slowly..."
  137. 990 SLEEP 5
  138. 1000 CLS
  139. 1010 PRINT c$; "-                 *>"
  140. 1020 PRINT d$; "-                   *>"
  141. 1030 PRINT v$; ": Oh NO!  If "; c$; " just sits there "; y$; "'ll be sure to lose..."
  142. 1040 PRINT q$; ": "; d$; " is really getting ahead..."
  143. 1050 SLEEP 5
  144. 1060 CLS
  145. 1070 PRINT c$; "-                  *>"
  146. 1080 PRINT d$; "-                      *>"
  147. 1090 PRINT v$; ": "; c$; " moved, but not too far..."
  148. 1100 PRINT q$; ": Let's use the EXPRESSO-CAM to see the drivers' expressions."
  149. 1110 SLEEP 6
  150. 1120 CLS
  151. 1130 BEEP
  152. 1140 PRINT "EXPRESSO-CAM data:"
  153. 1150 PRINT
  154. 1160 PRINT c$; "- :)"
  155. 1170 PRINT d$; "- :*"
  156. 1180 PRINT
  157. 1190 PRINT "EXPRESSO-CAM copyright, @1995, VORTEC$"
  158. 1200 SLEEP 8
  159. 1210 CLS
  160. 1220 PRINT c$; "-                   *>"
  161. 1230 PRINT d$; "-                     *>"
  162. 1240 PRINT v$; ":  The expression on "; c$; "'s face was weird..."
  163. 1250 PRINT q$; ": I guess, but "; y$; " may still have a chance!"
  164. 1260 SLEEP 5
  165. 1270 CLS
  166. 1280 PRINT c$; "-                     *>"
  167. 1290 PRINT d$; "-                      *>"
  168. 1300 PRINT v$; ": "; d$; " thinks "; z$; "'s sooo cool, waiting up for "; c$; "..."
  169. 1310 PRINT q$; ": Yeah, real jerk, "; d$; " is."
  170. 1320 SLEEP 5
  171. 1330 CLS
  172. 1340 PRINT c$; "-                             *>"
  173. 1350 PRINT d$; "-                            *>"
  174. 1360 PRINT v$; ": Goodness, I didn't think I'd see "; c$; " pull up like that!!!"
  175. 1370 PRINT q$; ": "; j$; " must have worked out "; k$; " engine problems, oh MIND-CAM?!?"
  176. 1380 SLEEP 6
  177. 1390 CLS
  178. 1394 BEEP
  179. 1400 PRINT "MIND-CAM data:"
  180. 1410 PRINT
  181. 1420 PRINT c$; "- I am sooooo happy I got the engine goin'!"
  182. 1430 PRINT d$; "- Why must "; c$; " ALWAYS embarrass me?!?"
  183. 1440 PRINT
  184. 1450 PRINT "You know all the copyright stuff!"
  185. 1460 SLEEP 8
  186. 1470 CLS
  187. 1480 PRINT c$; "-                                 *>     |FINISH"
  188. 1490 PRINT d$; "-                                 *>     |FINISH"
  189. 1500 PRINT v$; ": I haven't seen a race this close in ages!"
  190. 1510 PRINT q$; ": Yeah, the last time "; c$; " and "; d$; " raced..."
  191. 1520 SLEEP 6
  192. 1530 CLS
  193. 1540 PRINT c$; "-                                  *>     |FINISH"
  194. 1550 PRINT d$; "-                                   *>    |FINISH"
  195. 1560 PRINT v$; ": Why does "; c$; " have to fall behind that idiot?"
  196. 1570 PRINT q$; ": Oh, "; c$; "'ll catch up in a matter of time..."
  197. 1580 SLEEP 6
  198. 1590 CLS
  199. 1600 PRINT c$; "-                                     *>   |FINISH"
  200. 1610 PRINT d$; "-                                      *>  |FINISH"
  201. 1620 PRINT q$; ": That was a nice little zoom on "; c$; "'s part..."
  202. 1630 PRINT v$; ": Not enough to give "; g$; " the lead, I'm afraid..."
  203. 1640 SLEEP 6
  204. 1650 CLS
  205. 1660 PRINT c$; "-                                        *>|FINISH"
  206. 1670 PRINT d$; "-                                        *>|FINISH"
  207. 1680 PRINT v$; ": I think it's..."
  208. 1690 PRINT q$; ": It looks like..."
  209. 1700 SLEEP 4
  210. 1710 CLS
  211. 1720 COLOR 1
  212. 1730 PRINT "A TIE!"
  213. 1740 SLEEP 2
  214. 1745 CLS
  215. 1750 COLOR 2
  216. 1760 PRINT "A TIE!"
  217. 1770 SLEEP 2
  218. 1780 CLS
  219. 1790 COLOR 3
  220. 1800 PRINT "A TIE!"
  221. 1810 SLEEP 2
  222. 1820 CLS
  223. 1830 COLOR 9
  224. 1840 PRINT "It's all the judges' desicion (Wait 1 minute...)"
  225. 1850 SLEEP 60
  226. 1855 CLS
  227. 1860 BEEP
  228. 1870 BEEP
  229. 1880 BEEP
  230. 1890 BEEP
  231. 1900 BEEP
  232. 1925 PRINT c$; " is 1, "; d$; " is 2.."
  233. 1930 PRINT "The judges' desicion is:"
  234. 1940 SLEEP 3
  235. 1945 IF o$ = "" THEN 3994
  236. 1950 PRINT t$; " is the winner!!!"
  237. 1955 PRINT "You said that "; b$; " would win!!!"
  238. 1960 SLEEP 10
  239. 1970 CLS
  240. 1980 PRINT "Thank you..."
  241. 1990 SLEEP 1
  242. 2000 PRINT "For buying..."
  243. 2010 SLEEP 1
  244. 2020 PRINT "Or trying..."
  245. 2030 SLEEP 1
  246. 2040 PRINT "RACING MADNESS II: The Race Car Match..."
  247. 2050 SLEEP 1
  248. 2060 PRINT "And look out..."
  249. 2070 SLEEP 1
  250. 2080 PRINT "For more VORTEC@ games..."
  251. 2090 SLEEP 1
  252. 2100 PRINT "VORTEC, 1995!!!"
  253. 2110 END
  254.  
  255. 55555 IF n$ = "mfgj4541" THEN t$ = "1"
  256. 55556 IF n$ = "mfgj4542" THEN t$ = "2"
  257. GOTO 10
  258.  
  259. 3994 RANDOMIZE TIMER
  260. 3995 x% = INT(RND * 2) + 1
  261. 3996 PRINT x%; "is the winner!!!"
  262. GOTO 1955
  263.  
  264. FUNCTION chmd2
  265. END FUNCTION
  266.  
  267. FUNCTION md2
  268. END FUNCTION
  269.  
  270.