home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-10-25  |  5.1 KB  |  240 lines
  1. 1 REM***BOOT HILL CHAR.GEN.PGM, BY RALPH S. GARDNER II, SPRING 1983***
  2. 2 REM***BOOT HILL IS A NAME COPYRIGHTED BY T.S.R.INC. FOR ITS WESTERN R.P.GAME*
  3. 3 REM***HOWEVER, THIS PROGRAM IS NOT COPYRIGHTED***
  4. 4 REM***PGM GENERATES BASIC CHARACTER & WEAPON STATS FOR BOOT HILL CHARACTERS**
  5. 10 PRINT"[147]":PRINT"BOOT HILL PLAYER CHARACTERS[146]":PRINT:PRINT
  6. 20 DEFFNA(X)=INT(100*RND(TI))+1
  7. 30 SP%=0:GA%=0:TA%=0:BR%=0:ST%=0:EX%=0:V%=0
  8. 35 A1%=0:A2%=0:A3%=0:A4%=0:A5%=0:A6%=0:A7%=0:A8%=0
  9. 40 SP%=FNA(1):GA%=FNA(2):TA%=FNA(3):BR%=FNA(4):ST%=FNA(5):EX%=FNA(6)
  10. 50 V%=SP%:GOSUB110:SP%=V%
  11. 60 V%=GA%:GOSUB110:GA%=V%
  12. 70 V%=TA%:GOSUB110:TA%=V%
  13. 80 V%=BR%:GOSUB110:BR%=V%
  14. 90 V%=ST%:GOSUB110:ST%=V%
  15. 100 GOTO160
  16. 110 IFV%<26THENV%=V%+25
  17. 120 IFV%>25ANDV%<51THENV%=V%+15
  18. 130 IFV%>50ANDV%<71THENV%=V%+10
  19. 140 IFV%>70ANDV%<91THENV%=V%+5
  20. 150 RETURN
  21. 160 IFSP%<36THEN164
  22. 162 GOTO170
  23. 164 A1%=2:S$="ABOVE AVERAGE"
  24. 170 IFSP%>35ANDSP%<51THEN174
  25. 172 GOTO180
  26. 174 A1%=4:S$="QUICK"
  27. 180 IFSP%>50ANDSP%<66THEN184
  28. 182 GOTO190
  29. 184 A1%=6:S$="VERY QUICK"
  30. 190 IFSP%>65ANDSP%<81THEN194
  31. 192 GOTO200
  32. 194 A1%=9:S$="FAST"
  33. 200 IFSP%>80ANDSP%<91THEN204
  34. 202 GOTO210
  35. 204 A1%=12:S$="VERY FAST"
  36. 210 IFSP%>90ANDSP%<96THEN214
  37. 212 GOTO220
  38. 214 A1%=15:S$="LIGHTNING"
  39. 220 IFSP%=96THEN224
  40. 222 GOTO230
  41. 224 A1%=18:S$="GREASED LIGHTNING"
  42. 230 IFSP%=97THEN234
  43. 232 GOTO240
  44. 234 A1%=19:S$="GREASED LIGHTNING"
  45. 240 IFSP%=98THEN244
  46. 242 GOTO250
  47. 244 A1%=20:S$="GREASED LIGHTNING"
  48. 250 IFSP%=99THEN254
  49. 252 GOTO260
  50. 254 A1%=21:S$="GREASED LIGHTNING"
  51. 260 IFSP%=100THEN264
  52. 262 GOTO270
  53. 264 A1%=22:S$="GREASED LIGHTNING"
  54. 270 IFGA%<36THEN274
  55. 272 GOTO280
  56. 274 A2%=0:G$="AVERAGE"
  57. 280 IFGA%>35ANDGA%<51THEN284
  58. 282 GOTO290
  59. 284 A2%=2:G$="ABOVE AVERAGE"
  60. 290 IFGA%>50ANDGA%<66THEN294
  61. 292 GOTO300
  62. 294 A2%=5:G$="FAIR"
  63. 300 IFGA%>65ANDGA%<76THEN304
  64. 302 GOTO310
  65. 304 A2%=7:G$="GOOD"
  66. 310 IFGA%>75ANDGA%<86THEN314
  67. 312 GOTO320
  68. 314 A2%=10:G$="VERY GOOD"
  69. 320 IFGA%>85ANDGA%<96THEN324
  70. 322 GOTO330
  71. 324 A2%=15:G$="EXCELLENT"
  72. 330 IFGA%>95ANDGA%<99THEN334
  73. 332 GOTO340
  74. 334 A2%=18:G$="CRACK SHOT"
  75. 340 IFGA%>98ANDGA%<101THEN344
  76. 342 GOTO350
  77. 344 A2%=20:G$="DEADEYE"
  78. 350 IFTA%<36THEN354
  79. 352 GOTO360
  80. 354 A3%=0:T$="AVERAGE"
  81. 360 IFTA%>35ANDTA%<51THEN364
  82. 362 GOTO370
  83. 364 A3%=2:T$="ABOVE AVERAGE"
  84. 370 IFTA%>50ANDTA%<66THEN374
  85. 372 GOTO380
  86. 374 A3%=5:T$="FAIR"
  87. 380 IFTA%>65ANDTA%<76THEN384
  88. 382 GOTO390
  89. 384 A3%=7:T$="GOOD"
  90. 390 IFTA%>75ANDTA%<86THEN394
  91. 392 GOTO400
  92. 394 A3%=10:T$="VERY GOOD"
  93. 400 IFTA%>85ANDTA%<96THEN404
  94. 402 GOTO410
  95. 404 A3%=15:T$="EXCELLENT"
  96. 410 IFTA%>95ANDTA%<99THEN414
  97. 412 GOTO420
  98. 414 A3%=18:T$="CRACK SHOT"
  99. 420 IFTA%>98ANDTA%<101THEN424
  100. 422 GOTO430
  101. 424 A3%=20:T$="DEADEYE"
  102. 430 IFBR%<36THEN434
  103. 432 GOTO440
  104. 434 A4%=0:A5%=0:IFA4%=0THENB$="AVERAGE"
  105. 440 IFBR%>35ANDBR%<66THEN444
  106. 442 GOTO450
  107. 444 A4%=1:A5%=3:IFA4%=1THENB$="ABOVE AVERAGE"
  108. 450 IFBR%>65ANDBR%<81THEN454
  109. 452 GOTO460
  110. 454 A4%=2:A5%=6:IFA4%=2THENB$="BRAVE"
  111. 460 IFBR%>80ANDBR%<91THEN464
  112. 462 GOTO470
  113. 464 A4%=3:A5%=10:IFA4%=3THENB$="VERY BRAVE"
  114. 470 IFBR%>90ANDBR%<99THEN474
  115. 472 GOTO480
  116. 474 A4%=4:A5%=15:IFA4%=4THENB$="FEARLESS"
  117. 480 IFBR%>98ANDBR%<101THEN484
  118. 482 GOTO490
  119. 484 A4%=5:A5%=15:IFA4%=5THENB$="FOOLHARDY"
  120. 490 IFST%<41THEN494
  121. 492 GOTO500
  122. 494 A6%=13:H$="AVERAGE"
  123. 500 IFST%>40ANDST%<61THEN504
  124. 502 GOTO510
  125. 504 A6%=14:H$="ABOVE AVERAGE"
  126. 510 IFST%>60ANDST%<76THEN514
  127. 512 GOTO520
  128. 514 A6%=15:H$="STURDY"
  129. 520 IFST%>75ANDST%<84THEN524
  130. 522 GOTO530
  131. 524 A6%=16:H$="HARDY"
  132. 530 IFST%>83ANDST%<91THEN534
  133. 532 GOTO540
  134. 534 A6%=17:H$="STRONG"
  135. 540 IFST%>90ANDST%<96THEN544
  136. 542 GOTO550
  137. 544 A6%=18:H$="VERY STRONG"
  138. 550 IFST%>95ANDST%<99THEN554
  139. 552 GOTO560
  140. 554 A6%=19:H$="POWERFUL"
  141. 560 IFST%>98ANDST%<101THEN564
  142. 562 GOTO570
  143. 564 A6%=20:H$="MIGHTY"
  144. 570 IFEX%<41THEN574
  145. 572 GOTO580
  146. 574 A7%=0:A8%=-10
  147. 580 IFEX%>40ANDEX%<61THEN584
  148. 582 GOTO590
  149. 584 A7%=1:A8%=-5
  150. 590 IFEX%>60ANDEX%<76THEN594
  151. 592 GOTO600
  152. 594 A7%=2:A8%=-5
  153. 600 IFEX%>75ANDEX%<86THEN604
  154. 602 GOTO610
  155. 604 A7%=3:A8%=0
  156. 610 IFEX%>85ANDEX%<91THEN614
  157. 612 GOTO620
  158. 614 A7%=4:A8%=0
  159. 620 IFEX%>90ANDEX%<94THEN624
  160. 622 GOTO630
  161. 624 A7%=5:A8%=2
  162. 630 IFEX%>93ANDEX%<96THEN634
  163. 632 GOTO640
  164. 634 A7%=6:A8%=2
  165. 640 IFEX%=96THEN644
  166. 642 GOTO650
  167. 644 A7%=7:A8%=6
  168. 650 IFEX%=97THEN654
  169. 652 GOTO660
  170. 654 A7%=8:A8%=6
  171. 660 IFEX%=98THEN664
  172. 662 GOTO670
  173. 664 A7%=9:A8%=8
  174. 670 IFEX%=99THEN674
  175. 672 GOTO680
  176. 674 A7%=10:A8%=8
  177. 680 IFEX%=100THEN684
  178. 682 GOTO690
  179. 684 A7%=11:A8%=10
  180. 690 PRINT"THIS CHARACTER HAS:":PRINT
  181. 700 PRINT"SPEED%=[146]"SP%",ABILITY="A1%",";S$
  182. 710 PRINT"GUN ACCURACY%=[146]"GA%",ABILITY="A2%","G$
  183. 720 PRINT"THROWING ACCURACY%=[146]"TA%",ABILITY="A3%","T$
  184. 730 PRINT"BRAVERY%=[146]"BR%",SPD.MOD.="A4%",ACC.MOD.="A5%","B$
  185. 740 PRINT"STRENGTH%=[146]"ST%",ABILITY="A6%","H$
  186. 750 PRINT"EXPERIENCE%=[146]"EX%","A7%"FIGHT(S), ACC.MOD.="A8%
  187. 760 PRINT
  188. 770 PRINT"WANT THIS CHARACTER, OR ANOTHER ONE?"
  189. 780 PRINT"HIT (K)EEP OR (A)NOTHER":PRINT"ANYTHING OTHER THAN (A) MEANS (K)EEP"
  190. 785 GETA$:IFA$=""THEN785
  191. 790 IFA$="A"THEN10
  192. 795 PRINT"IMPORTANT! COPY THESE STATS BEFORE ENTERING WEAPON DATA![146]"
  193. 800 PRINT"WEAPON? HIT (Y)ES OR (N)O"
  194. 810 GETA$:IFA$=""THEN810
  195. 815 IFA$="Y"THEN830
  196. 820 GOTO2000
  197. 830 PRINT"ENTER WEAPON ABBREVIATION (SEE BOOT HILLRULES FOR ABBREVIATIONS)."
  198. 840 INPUTA$
  199. 845 SM%=-20
  200. 850 IFA$="KN"THENSM%=5
  201. 860 IFA$="1D"THENSM%=5
  202. 870 IFA$="2D"THENSM%=5
  203. 880 IFA$="CBR"THENSM%=0
  204. 890 IFA$="SAR6"THENSM%=8
  205. 900 IFA$="SAR5"THENSM%=8
  206. 910 IFA$="DAR6"THENSM%=5
  207. 920 IFA$="DAR5"THENSM%=5
  208. 930 IFA$="FDR6"THENSM%=10
  209. 940 IFA$="FDR5"THENSM%=10
  210. 950 IFA$="LBR"THENSM%=0
  211. 960 IFA$="1SG"THENSM%=-5
  212. 970 IFA$="2SG"THENSM%=-5
  213. 980 IFA$="6SG"THENSM%=-5
  214. 990 IFA$="SCG"THENSM%=0
  215. 1000 IFA$="CWR"THENSM%=-5
  216. 1010 IFA$="CWC"THENSM%=-5
  217. 1020 IFA$="15R"THENSM%=-5
  218. 1030 IFA$="9R"THENSM%=-5
  219. 1040 IFA$="6R"THENSM%=-5
  220. 1050 IFA$="12C"THENSM%=-5
  221. 1060 IFA$="9C"THENSM%=-5
  222. 1070 IFA$="6C"THENSM%=-5
  223. 1080 IFA$="BR"THENSM%=-10
  224. 1090 IFA$="AR"THENSM%=-10
  225. 1095 IFSM%=-20THEN1100
  226. 1097 GOTO1110
  227. 1100 PRINT"USE STANDARD ABBREVIATIONS ONLY, PLEASE!":GOTO840
  228. 1110 BS%=SM%+A1%+A4%
  229. 1120 PRINT"BASE SPEED="BS%
  230. 1130 IFA$="KN"THEN1150
  231. 1140 BA%=A2%+A5%+A8%+50
  232. 1145 PRINT"BASE ACCURACY%="BA%:GOTO1160
  233. 1150 BA%=A3%+A5%+A8%+50
  234. 1155 GOTO1145
  235. 1160 GOTO800
  236. 2000 PRINT"[147]":PRINT:PRINT"WANT ANOTHER CHARACTER? (Y/N)"
  237. 2010 GETA$:IFA$=""THEN2010
  238. 2020 IFA$="Y"THEN10
  239. 2030 END
  240.