home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SF-II.ARC / ST.FIGHTERII (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.4 KB  |  327 lines
  1. 100 REM *** STREET FIGHTER II
  2. 110 REM *** MAIN PROGRAM
  3. 120 REM *** BY HOUMAN AZARM
  4. 130 REM *** 1992
  5. 144 :
  6. 145 REM REMOVE REM IN LINE 2005 TO
  7. 146 REM HAVE THE PROGRAM RUN WITHOUT
  8. 147 REM THE 'ANY KEY' FEATURE.
  9. 150 :
  10. 155 REM FONT?
  11. 156 INPUT "IS FONT INSTALLED (Y/N)";F$
  12. 157 IF F$="Y" THEN FO=1
  13. 158 IF FO=1 THEN POKE 53272,28
  14. 159 :
  15. 160 GOSUB 60000:REM TITLE
  16. 170 REM VERTICAL TAB AND CENTERING
  17. 175 DEF FNB(X)=(40-LEN(A$))/2
  18. 180 DIM VT$(25):A$="":VT$(0)=A$
  19. 190 FOR J=1 TO 25:A$=A$+"":VT$(J)=A$:NEXT
  20. 200 DIM M$(25),CH(25),H(25),DA(25),C$(25)
  21. 205 REM SELECT/READ FIGHTERS
  22. 210 POKE 53280,15:POKE53281,1:PRINT "[144]"
  23. 220 PRINT "[147]LIST OF FIGHTERS:"
  24. 225 PRINT "HOUMAN","PJ.MAGIC","NINJA"
  25. 230 PRINT "RYU","KEN","TERMINATOR"
  26. 240 PRINT "BLANKA","GUILE","HULK.HOGAN"
  27. 250 PRINT "CHUN-LI","DHALSIM","BILLY.LEE"
  28. 260 PRINT "ZANGIEF","E.HONDA","NORB"
  29. 270 PRINT "VEGA","BALROG","TREKKY"
  30. 280 PRINT "SAGAT","BISON","NIMA"
  31. 300 PRINT "(OR OTHERS CREATED WITH FF)"
  32. 310 INPUT "[144]FIRST FIGHTER";NA$(1)
  33. 315 PRINT "GETTING FROM DISK..."
  34. 320 OPEN 2,8,2,"0:"+NA$(1)+".ST2,S,R"
  35. 330 INPUT#2,NA$(1),CO$(1)
  36. 340 FOR M=1 TO 12
  37. 350 INPUT#2,M$(M),CH(M),H(M),DA(M),C$(M)
  38. 360 NEXT M
  39. 362 INPUT#2,M1$
  40. 363 CLOSE2
  41. 370 INPUT "SECOND FIGHTER";NA$(2)
  42. 375 PRINT "GETTING FROM DISK..."
  43. 380 OPEN 2,8,2,"0:"+NA$(2)+".ST2,S,R"
  44. 390 INPUT#2,NA$(2),CO$(2)
  45. 400 FOR M=13 TO 24
  46. 410 INPUT#2,M$(M),CH(M),H(M),DA(M),C$(M)
  47. 420 NEXT M
  48. 421 INPUT#2,M2$
  49. 422 CLOSE2
  50. 424 PRINT "[147]"
  51. 425 INPUT "HOW MANY INITIAL HIT POINTS[157][157]125[157][157][157][157][157][157][157]";SP
  52. 427 IF SP<100 OR SP>150 THEN PRINT "BETWEEN 100 AND 150!":GOTO425
  53. 430 PRINT "HOME COUNTRY ADVANTAGE MEANS "NA$(1)
  54. 440 INPUT "[144]GETS 10 BONUS POINTS.  WANT IT (Y/N)";AD$
  55. 445 IF AD$<>"Y" AND AD$<>"N" THEN 440
  56. 450 PRINT "PLAYING MODES:"
  57. 451 PRINT "1.   ONE PLAYER"
  58. 452 PRINT "2.   TWO PLAYER"
  59. 453 PRINT "3.   EXHIBITION MODE (RANDOM MOVES)
  60. 454 [133] "..WELL";Q
  61. 460 [139] Q[179]1 [176] Q[177]3 [167] [137]454
  62. 470 [133] "CARE TO PREVIEW THE FIGHTER'S MOVES";S$
  63. 471 [139] S$[178]"N" [167] 500
  64. 472 [153] "LOAD"NA$(1):[153]:[153]
  65. 473 [129] M[178]1 [164] 12
  66. 475 [153] M,M$(M)
  67. 480 [130]
  68. 485 [133]"ENTER <RETURN> WHEN READY";S$
  69. 491 [153] "LOAD"NA$(2):[153]:[153]
  70. 492 [129] M[178]1 [164] 12
  71. 493 [153] M,M$(M[170]12)
  72. 494 [130]
  73. 495 [133]"ENTER <RETURN> WHEN READY";S$
  74. 500 [143] SET-UP ROUND
  75. 505 [151] 53281,0
  76. 510 [153] "LOAD"
  77. 520 R[178]R[170]1 : S(1)[178]0 : S(2)[178]0
  78. 530 [139] R[178]1 [167] A$[178]"TRAVELING TO "[170]CO$(1):[153] VT$(6)[163][165]B(X))A$
  79. 532 [129]X[178]1[164]1000:[130]X
  80. 535 [139] R[178]1 [167] [141] 1500 :[143] PLANE
  81. 537 [153] VT$(12);
  82. 540 FL$(I)[178]" ROUND  "[170][196](R):[141] 60290EADY.
  83. 560 P1[178]SP:P2[178]SP
  84. 570 [139] AD$[178]"Y" [167] P1[178]P1[170]10
  85. 575 [141] 2000
  86. 580 [139] [187](1)[179].5 [167] [153] NA$(1)" ATTACKS FIRST...":T[178]1:[137] 595
  87. 590 [153] NA$(2)" ATTACKS FIRST...":T[178]2
  88. 595 [141]2000
  89. 600 [143] MAIN SEQUENCE
  90. 601 [139] Q[178]3 [167] 610
  91. 602 [139] Q[178]1 [175] T[178]1 [167] [141] 1200
  92. 603 [139] Q[178]2 [167] [141]1200
  93. 604 [139] Q[178]1 [175] T[178]2 [167] 610
  94. 605 [139] SH[178]1 [167] SH[178]0:[141]2000:[137]600
  95. 606 [137] 620
  96. 610 Y[178]0:Y[178][181]([187](1)[172]12[170]1)
  97. 620 [139] T[178]2 [167] Y[178]Y[170]12
  98. 630 [153] "":[139] T[178]2 [167] [153] "PRINT#ON"
  99. 640 [153] NA$(T)" ATTACKS... ";:[153] M$(Y)
  100. 650 CH[178]CH(Y)[170]([187](1)[172].5[171].25)
  101. 660 [139][187](1)[179]CH[167][153]"BLOCKED!STOP":DA[178][181](DA(Y)[172][187](1)[172].15[170].5):BB[178]1
  102. 661 [139]BB[178]1[167]BB[178]0:S(T)[178]0:[141]6000:[141]3000:[141]2000:[137]750
  103. 665 [153] "A HIT!!"
  104. 670 PA[178][181]([187](1)[172]20[170]1)
  105. 680 [139] PA[178]1 [167] [153] "HE'LL BE NEEDING SOME DENTAL WORK SOON!"
  106. 681 [139] PA[178]2 [167] [153] "THAT'S GOTTA HURT!"
  107. 682 [139] PA[178]3 [167] [153] "HE'LL FEEL THAT IN THE MORNING!"
  108. 683 [139] PA[178]4 [167] [153] "HELLO! A SPINE TINGLING HIT!"
  109. 684 [139] PA[178]5 [167] [153] "OUCH!"
  110. 685 [139] PA[178]6 [167] [153] "BLOOD FLIES EVERY WHICH WAY!"
  111. 686 [139] PA[178]7 [167] [153] "YAOW!"
  112. 687 [139] PA[178]8 [167] [153] "CRUNCH!"
  113. 688 [139] PA[178]9 [167] [153] "EVEN JOHN MADDEN CAN'T IMAGINE THE SOUNDTHAT MADE!"
  114. 689 [139] PA[178]10 [167] [153] "I'D RATHER BE SHOT THAN TAKE THAT HIT!"
  115. 690 [139] PA[178]11 [167] [153] "OOOF!"
  116. 691 [139] PA[178]12 [167] [153] "SO THAT'S WHAT A SPLEEN LOOKS LIKE!"
  117. 692 [139] PA[178]13 [167] [153] "HOW DOES THAT CONCRETE TASTE?"
  118. 693 [139] PA[178]14 [167] [153] "AND HE MAKES HIM CRY TO HIS MOMMY!"
  119. 694 [139] PA[178]15 [167] [153] "THAT HIT CREATED A SMALL EARTHQUAKE!"
  120. 695 [139] PA[178]16 [167] [153] "A BONE CRUNCHER!"
  121. 696 [139] PA[178]17 [167] [153] "GET SOME DENTURES FOR THAT BOY!"
  122. 697 [139] PA[178]18 [167] [153] "HASTA LA VISTA, BABY!"
  123. 698 [139] PA[178]19 [167] [153] "OUCH!  KEEP YOUR DAY JOB!"
  124. 699 [139] PA[178]20 [167] [153] "HE JUST USED HIM FOR A PUNCHING BAG!"
  125. 710 DA[178]DA(Y):[141] 3000:[143] TAKE DAMAGE
  126. 720 S(T)[178]S(T)[170]H(Y)
  127. 725 [139] S(T)[179]3 [167] 740
  128. 726 TE$[178]NA$(T)
  129. 727 [129] X[178]1 [164] 1000:[130] X
  130. 730 [139] T[178]2 [167] T[178]1:[137]735
  131. 731 [139] T[178]1 [167] T[178]2
  132. 735 [153] ""NA$(T)" IS STUNNED!"
  133. 736 [153] TE$" DOES WHAT HE PLEASES WITH HIM!":S(T)[178]0
  134. 737 [139] T[178]2 [167] T[178]1:[137]739
  135. 738 [139] T[178]1 [167] T[178]2
  136. 739 S(T)[178]0:DA[178][181]([187](1)[172]21[170]20):[141] 3000:[141]2000:[137]750
  137. 740 [139] C$(Y)[178]"Y" [167] C[178].9
  138. 741 [139] C$(Y)[178]"S" [167] C[178].5
  139. 742 [139] C$(Y)[178]"N" [167] C[178].1
  140. 743 [139][187](1)[179]C[167][153]""NA$(T)" STAYS ON THE OFFENSIVE!":[141]2000:[137]600
  141. 745 [141] 2000
  142. 750 [139] T[178]1 [167] T[178]2:[137]755
  143. 751 [139] T[178]2 [167] T[178]1
  144. 755 [137] 600
  145. 800 [143] FIGHT OVER
  146. 801 [129]X[178]1[164]1000:[130] X: [153] "STOP"
  147. 802 [139]P1[179]5[175]P2[179]5[167][153]"LOADDOUBLE KNOCOKOUT!  REPLAY THE ROUND!":R[178]R[171]1:[137]899
  148. 803 [153] "LOADSTOP"
  149. 805 [139] P2[179]0 [167] 850
  150. 810 [153] NA$(1)" GOES DOWN IN PAIN!"
  151. 815 [153] ""NA$(2)" HAS WON THE ROUND!!"
  152. 820 [139] P2[177]SP[172].9 [167] [153] "A PERFECT ROUND!"
  153. 830 R2[178]R2[170]1
  154. 835 [139] R2[178]2 [167] 905
  155. 840 [137] 880
  156. 850 [153] NA$(2)" GOES DOWN IN PAIN!"
  157. 855 [153] ""NA$(1)" HAS WON THE ROUND!!"
  158. 860 [139] P1[177]SP[172].9 [167] [153] "A PERFECT ROUND!"
  159. 870 R1[178]R1[170]1
  160. 875 [139] R1[178]2 [167] 905
  161. 880 [139] R1[178]1 [167] R1$[178]"ONE ROUND"
  162. 890 [139] R1[178]0 [167] R1$[178]"ZERO ROUNDS"
  163. 891 [139] R2[178]1 [167] R2$[178]"ONE ROUND"
  164. 892 [139] R2[178]0 [167] R2$[178]"ZERO ROUNDS"
  165. 893 [153]:[153]
  166. 894 [153] NA$(1)" HAS WON "R1$","
  167. 895 [153] "SO FAR, AND "NA$(2)" HAS WON"
  168. 896 [153] R2$".  REMEMBER TWO"
  169. 897 [153] "ROUNDS WIN THE MATCH!"
  170. 899 [129] X[178]1 [164] 2000:[130] X
  171. 900 [153] "ANY KEY..."
  172. 901 [161]WW$:[139]WW$[178]""[167]901
  173. 902 [137]500
  174. 905 [153] "CLR"
  175. 910 [139] R1[178]2 [167] [153] NA$(1)" HAS ALSO WON THE MATCH!!!"
  176. 920 [139] R2[178]2 [167] [153] NA$(2)" HAS ALSO WON THE MATCH!!!"
  177. 921 [153] "STOP";
  178. 922 M1$[178][199](34)[170]M1$[170][199](34)
  179. 923 M2$[178][199](34)[170]M2$[170][199](34)
  180. 925 [153]:[153]
  181. 926 [139] R1[178]2 [167] [153] "AFTER A HEARTY LAUGH, "NA$(1)" SPEAKS:":[153] M1$
  182. 927 [139] R2[178]2 [167] [153] "AFTER A HEARTY LAUGH, "NA$(2)" SPEAKS:":[153] M2$
  183. 930 [153] "PROMOTER DON KING IS ALREADY WORKING ON THE REMATCH!"
  184. 940 [133] "CARE FOR ANOTHER MATCH (Y/N) ";Y$
  185. 950 [139] Y$[178]"Y" [167] [156]:[137] 170
  186. 955 [151] 53281,6:[151] 53280,14
  187. 960 [153] "LOADCONTTHANK YOU FOR PLAYING!"
  188. 999 [128]
  189. 1000 :
  190. 1200 [143] PLAYER ENTERING MOVE ROUTINE
  191. 1205 [153] "ONON"
  192. 1210 [153] NA$(T)"'S TURN TO ATTACK..."
  193. 1220 [133] "MOVE (0 TO LIST)";Y
  194. 1230 [139] Y[179]0 [176] Y[177]12 [167] 1220
  195. 1235 [139] Y[178]0 [167] 1243
  196. 1240 [142]
  197. 1243 [153] ""
  198. 1244 [153] "                                      "
  199. 1245 [153] NA$(T)"'S MOVES:                      "
  200. 1246 [153] "                                      "
  201. 1247 [153] "                                      "
  202. 1250 [129] M[178]1 [164] 12
  203. 1255 [153] "                                ON"
  204. 1260 [139] T[178]1 [167] [153] M,M$(M)
  205. 1270 [139] T[178]2 [167] [153] M,M$(M[170]12)
  206. 1280 [130]
  207. 1290 SH[178]1 : [142]
  208. 1300 :
  209. 1500 [143] PLANE ROUTING
  210. 1510 PL$[178]" (null)(null)(null)TO CMDCMDCMDCMDCMDCMD SPC( (null)RIGHT$(null)CMDCMDCMDCMDCMDSPC( MID$(null)(null)CMDCMDCMDCMDCMD(null)(null)(null)TAB("
  211. 1520 [153] VT$(4)
  212. 1530 [129] XX[178]1 [164] 32
  213. 1540 [153] [163]XX)PL$
  214. 1550 [129] YY[178]1 [164] 30:[130] YY
  215. 1560 [151] 781,4:[158]59903
  216. 1561 [151] 781,5:[158]59903
  217. 1562 [151] 781,6:[158]59903
  218. 1563 [151] 781,7:[158]59903
  219. 1565 [151] 781,8:[158]59903
  220. 1566 [153] "ONONONONON"
  221. 1570 [130] XX
  222. 1572 [139] F$[178]"Y" [167] FO[178]1
  223. 1580 [142]
  224. 1700 :
  225. 2000 [143] 'ANY KEY' ROUTINE
  226. 2005 [143] FORXX=1 TO1000:NEXTXX:GOTO2100
  227. 2010 [143] CHANGE 1000 TO ANY VALUE
  228. 2015 [139] P1[179]15 [176] P2[179]15 [167] DT[178]1
  229. 2016 [139] P1[179].2[172]SP [175] P2[177].9[172]SP [167] DT[178]2
  230. 2017 [139] P2[179].2[172]SP [175] P1[177].9[172]SP [167] DT[178]2
  231. 2018 [139] P1[179].4[172]SP [175] [182](P1[171]P2)[179]SP[172].2 [167]DT[178]3
  232. 2020 [153]VT$(21)"CLR"
  233. 2030 [153] "STOP            <<<<<ANY KEYSTOP>>>>>       "
  234. 2040 [161] A$:[139]A$[179][177]""[167]2070
  235. 2045 D1[178]D1[170]1
  236. 2046 [139]DT[178]1[167][153][163]9)"SOMEONE IS ABOUT TO DIE!ON"
  237. 2047 [139]DT[178]3[167][153][163]6)" WE'VE GOT A CLOSE ONE HERE!ON"
  238. 2048 [139]DT[178]2[167][153][163]9)" COULD IT BE A PERFECT?ON"
  239. 2050 [153] "ONSTOP            <<<<<ANY KEYSTOP>>>>>ON"
  240. 2060 [137] 2030
  241. 2070 [151] 53281,1
  242. 2100 [153] "LOADCLR"
  243. 2110 [153] NA$(1)[166]14[171][195](NA$(1)))P1,
  244. 2120 [153] NA$(2)[166]14[171][195](NA$(2)))P2
  245. 2130 [153] "STOP"
  246. 2140 DT[178]0 : [142]
  247. 2200 :
  248. 2300 :
  249. 3000 [143] SHOW POWER DEPLETING
  250. 3005 [153] "DAMAGE=" DA
  251. 3010 [139] DA[178]0 [167] [142]
  252. 3015 [139] DA[177]9  [167] [141] 5000
  253. 3020 [129] X[178]1 [164] DA
  254. 3021 [153] "CLR"
  255. 3022 [151]781,3:[158]59903
  256. 3030 [139] T[178]1 [167] P2[178]P2[171]1
  257. 3040 [139] T[178]2 [167] P1[178]P1[171]1
  258. 3070 [153] NA$(1)[166]14[171][195](NA$(1)))P1,
  259. 3080 [153] NA$(2)[166]14[171][195](NA$(2)))P2
  260. 3100 [130] X
  261. 3110 [153] VT$(12)"STOP"
  262. 3115 [139] P1[179]0 [176] P2[179]0 [167] [137] 800
  263. 3120 [139] NA$(1)[178]"HOUMAN" [175] P1[179]20 [167] P1[178]P1[170]20
  264. 3130 [139] NA$(2)[178]"HOUMAN" [175] P2[179]20 [167] P2[178]P2[170]20
  265. 3200 [142]
  266. 3500 :
  267. 3600 :
  268. 5000 [143] 'HIT' SOUND
  269. 5015 V[178]54272:[151]V[170]24,15
  270. 5020 [151] V[170]1,16000[173]256
  271. 5030 [151] V,(16000[171]32768)[175]255
  272. 5040 [151] V[170]3,200[173]8:[151]V[170]5,7
  273. 5050 [151] V[170]6,0:[151]V[170]4,1[170]2[174]7
  274. 5060 [129]N1[178]1[164]120:[130]N1:[151]V[170]4,0
  275. 5080 [142]
  276. 5500 :
  277. 6000 [143] 'BLOCKED' SOUND
  278. 6010 V[178]54272:[151]V[170]24,15
  279. 6020 [151]V[170]1,19200[173]256
  280. 6030 [151]V,(19200[171]32768)[175]255
  281. 6040 [151]V[170]3,999[173]8:[151]V[170]5,16[172]3[170]2
  282. 6050 [151]V[170]6,16[172]1:[151]V[170]4,1[170]2[174]7
  283. 6060 [129]N1[178]1[164]60:[130]N1:[151]V[170]4,0
  284. 6100 [142]
  285. 6500 :
  286. 60000 [143] TITLE ANIMATOR
  287. 60010 FD[178]10:[134] FL$(FD)
  288. 60020 FL$(1)[178]"STREET FIGHTER II"
  289. 60030 FL$(3)[178]"THE WORLD WARRIOR"
  290. 60041 FL$(8)[178]"HOUMAN AZARM "
  291. 60042 FL$(9)[178]"MCMXCII"
  292. 60060 FC$(1)[178]"OPEN":FC$(2)[178]"CLR":FC$(3)[178]""
  293. 60070 [129] I[178]1[164]FD:FS[178][195](FL$(I)):[139] FH[179]FS[167] FH[178]FS
  294. 60080 [130]: FH[178]FH[170]4:FV[178][181]((25[171]FD[171]2)[173]2)
  295. 60090 [129] I[178]1 [164] (40[171]FH)[173]2:FX$[178]FX$[170]"":[130]
  296. 60100 [139] FV[177]2 [167] [129]I[178]1[164]FV[171]1:FY$[178]FY$[170]"":[130]
  297. 60110 [129] I[178]1 [164] 3:[135] F1,F2,F3,F4
  298. 60120 [129] J[178]1 [164]FH:F5$(I)[178]F5$(I)[170][199](F1)
  299. 60130 F7$(I)[178]F7$(I)[170][199](F3)[170]"CMDCMD":[130]
  300. 60140 [129] J[178]1[164]FD[170]2:F6$(I)[178]F6$(I)[170]"CMD"[170][199](F2)
  301. 60150 F8$(I)[178]F8$(I)[170]"ON"[170][199](F4)[170]"CMD":[130]:[130]
  302. 60160 [129] I[178]1 [164] 3:FA$(I)[178]""[170]FY$[170]FX$[170]FC$(I)[170]F5$(I)[170]F6$(I)
  303. 60170 FB$(I)[178]"CMD"[170]F7$(I)[170]""[170]F8$(I):[130]
  304. 60180 :
  305. 60190 [151] 53280,2:[151] 53281,0
  306. 60200 [153] "LOADLIST"FY$
  307. 60210 [129] I[178]1[164]FD:[141]60300:[130]
  308. 60220 [129] I[178]1 [164] 3:[153] FA$(I)FB$(I)
  309. 60230 [129] FZ[178]1 [164] 25:[130]:[130]
  310. 60240 [161] A$:[139] A$[178]"" [167] [137] 60220
  311. 60250 [153] "LOAD":[142]
  312. 60260 [131] 164,167,163,165,175,170,183,181,185,182,184,161
  313. 60290 [143] FADE-IN PRINT
  314. 60300 [150] [165]A(X)[178](40[171][195](FL$(I)))[173]2
  315. 60310 Z$[178][199](151)[170][199](152)[170][199](155)[170][199](5)
  316. 60320 [129]P[178]1[164]4:[153][163][165]A(X))[202](Z$,P,1)FL$(I)[199](145)
  317. 60330 [129]U[178]1[164]75:[130]U,P:[153]:[142]
  318. 61000 :
  319. 61001 :
  320. 62000 [143] REMEMBER TO CREATE YOUR OWN
  321. 62001 [143] FIGHTERS USE MY PROGRAM,
  322. 62002 [143] "FIGHTER FACTORY".  MAYBE ONE
  323. 62003 [143] OF THEM CAN BEAT MY PERSONAL
  324. 62004 [143] FIGHTER, "HOUMAN".  (NOT!)
  325. 62005 :
  326. 62006 [143]   OOOOOH-YU-KEN!
  327.