home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SF-II.ARC / FIGHTER.FACTORY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.3 KB  |  81 lines
  1. 0 INPUT "IS FONT INSTALLED (Y/N)";F$
  2. 1 IF F$="Y" THEN POKE 53272,28
  3. 10 REM *** STREET FIGHTER II
  4. 20 REM *** FIGHTER FACTORY
  5. 30 REM *** BY  HOUMAN AZARM
  6. 40 REM *** NOVEMBER 15, 1991
  7. 50 :
  8. 60 POKE53281,1:PRINT "[147][144]"
  9. 65 DIM M$(12),CH(12),H(12),DA(12),C$(12)
  10. 66 PRINT "         *** FIGHTER FACTORY ***"
  11. 67 PRINT:PRINT
  12. 70 PRINT "[144]THIS PROGRAMS ALLOWS YOU TO MAKE YOUR"
  13. 80 PRINT "OWN FIGHTERS FOR STREET FIGHTER II[144]."
  14. 90 PRINT "PLEASE BE REASONALBE WHEN MAKING THE    MOVES.  OOOOHH-YU-KEN!!!
  15. 91 [153] "[NOTE:STOP 'STRENGTH' HAS TO DO WITH HOW"
  16. 92 [153] " FAST THE OPPONENT IS STUNNED.]"
  17. 100 [133]"VWAITIEW, CWAITREATE OR EWAITDIT A FIGHTER";V$
  18. 110 [139] V$[178]"E" [167] E[178]1:[137] 500
  19. 115 [139] V$[178]"V" [167] 500
  20. 116 [139] V$[178]"C" [167] 120
  21. 117 [137] 100
  22. 120 [133] "FIGHTER'S NAME";NA$
  23. 125 [139] [195](NA$)[177]12 [167] [153] "TOO LONG!":[137]120
  24. 130 [133] "COUNTRY";CO$
  25. 150 [129] M[178]1 [164] 12
  26. 160 [153] "MOVE NUMBER "M
  27. 166 [139] E[178]1 [167] [153] "THIS MOVE WAS:"
  28. 167 [139] E[178]1 [167] [153] M$(M);[166]25[171][195](M$(M)));CH(M);H(M);DA(M);" "C$(M)
  29. 168 [139] E[178]1 [167] [153] "[PRESS <RETURN> NOT TO CHANGE]"
  30. 170 [133] "STOPNAME OF MOVE";M$(M)
  31. 180 [139] [195](M$(M))[177]22 [167] [153] "TOO LONG!":[137]170
  32. 190 [133] "CHANCE OF A MISS";CH(M)
  33. 200 [139] CH(M)[179].1 [176] CH(M)[177].8 [167] [153] "0.1 -->> 0.8 !":[137] 190
  34. 210 [133] "STRENGTH...1=NORMAL...2=POWERFUL";H(M)
  35. 220 [139] H(M)[179][177]1 [175] H(M)[179][177]2 [167] 210
  36. 230 [133] "DAMAGE (10-50)";DA(M)
  37. 240 [139] DA(M)[179]10 [176] DA(M)[177]50 [167] [137] 230
  38. 250 [153] "IF HE LANDS THIS BLOW,DOES THE FIGHTER"
  39. 260 [133] "STAY ON THE OFFENSIVE(Y/N/SWAITOMETIMES)";C$(M)
  40. 270 [139] C$(M)[179][177]"Y" [175] C$(M)[179][177]"N" [175] C$(M)[179][177]"S" [167] 260
  41. 280 [133] "IS THIS MOVE OK (Y/N)";OK$
  42. 290 [139] OK$[178]"N" [167] 160
  43. 300 [153]:[130] M:[153]"STOP"
  44. 301 [139] E[178]1 [167] [153] "OLD MESSAGE:"
  45. 302 [139] E[178]1 [167] [153] ME$
  46. 303 [153] "ENTER VICTORY MESSAGE (NO COMMAS): ":[133] ME$
  47. 310 [143] TRANSFER TO DISK
  48. 320 [153] "STOPTRANSFERRING TO DISK..."
  49. 325 [139] E[178]1 [167] [159] 2,8,2,"@0:"[170]NA$[170]".ST2,S,W":[137]340
  50. 330 [159] 2,8,2,"0:"[170]NA$[170]".ST2,S,W"
  51. 340 [152]2,NA$
  52. 350 [152]2,CO$
  53. 360 [129] M[178]1 [164] 12
  54. 370 [152]2,M$(M)
  55. 380 [152]2,CH(M)
  56. 390 [152]2,H(M)
  57. 400 [152]2,DA(M)
  58. 410 [152]2,C$(M)
  59. 420 [130] M
  60. 422 [152]2,ME$
  61. 425 [160] 2
  62. 430 [153] "ALL DONE!":[151] 53272,21:[128]
  63. 500 [133] "FIGHTER'S NAME";NA$
  64. 505 [139] NA$[178]"HOUMAN" [167] [153] "I DON'T THINK SO!":[128]
  65. 510 [159] 2,8,2,"0:"[170]NA$[170]".ST2,S,R"
  66. 520 [132]2,NA$,CO$
  67. 530 [153] "STOPNAME: "NA$;[166]10)
  68. 540 [153] "WAITCOUNTRY: "CO$
  69. 542 [153] "STOPTHE MOVES: "
  70. 545 [153] "NAME";[166]21)"  M  S  D   CSTOP"
  71. 550 [129] M[178]1 [164] 12
  72. 555 [139] (M[173]2)[179][177][181](M[173]2) [167] [153] "";:[137] 560
  73. 556 [153] "";
  74. 560 [132]2,M$(M),CH(M),H(M),DA(M),C$(M)
  75. 570 [153] M$(M);[166]25[171][195](M$(M)));CH(M);H(M);DA(M);" "C$(M)
  76. 580 [130] M
  77. 584 [132]2,ME$:[153] "STOPMESSAGE:":[153] ME$
  78. 587 [139] E[178]1 [167] 150
  79. 590 [153] "STOPRUNONONON"
  80. 595 [151] 53272,21
  81.