Advertisement
Guest User

DUNGEON MASTER'S PERSONNEL SERVICE BY JOSEPH C. SPANN

a guest
Dec 29th, 2015
291
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 1000 REM    ***********************************************************
  2. 1010 REM    *    DUNGEON MASTER'S PERSONNEL SERVICE                   *
  3. 1020 REM    *    ( 40 COLUMN BY 16 LINE CRT DISPLAY ONLY )            *
  4. 1030 REM    *    SAVE AS "D&DCRT.BAS" - VERSION 1.2                   *
  5. 1040 REM    *                                                         *
  6. 1050 REM    ***********************************************************
  7. 1060 REM    *    GENERATES PLAYER CHARACTERISTIC FOR FANTASY          *
  8. 1070 REM    *    ROLE - PLAYING GAME "DUNGEONS & DRAGONS" Tm          *
  9. 1080 REM    ***********************************************************
  10. 1090 REM    *    WRITTEN BY: JOSEPH C. SPANN - MONROE, LA.            *
  11. 1100 REM    * "DUNGEON MASTER'S PERSONNEL SERVICE"-ver 1.2(C)LAIRTECH *
  12. 1110 REM    *   "DUNGEONS & DRAGONS" Tm BY TSR HOBBIES INC.           *
  13. 1130 REM    ***********************************************************
  14. 1140 DIM PS(7)
  15. 1150 RANDOMIZE
  16. 1160 PRINT CHR$(12)
  17. 1170 PRINT
  18. 1180 PRINT "    DM'S PERSONNEL SERVICE"
  19. 1190 PRINT "-----------------------------------------"
  20. 1200 PRINT
  21. 1210 PRINT "    PRODUCES CHAR. ABILITY SCORES"
  22. 1220 PRINT
  23. 1230 PRINT "    FOR"
  24. 1240 PRINT
  25. 1250 PRINT "    DUNGEONS & DRAGONS Tm"
  26. 1260 PRINT
  27. 1280 PRINT "    IF YOU ARE READY FOR THE 1ST"
  28. 1290 PRINT "    CHARACTER, ENTER A ONE (1)."
  29. 1300 INPUT C
  30. 1310 ON C GOTO 1320
  31. 1320 PRINT CHR$(12)
  32. 1330 REM***************************
  33. 1340 REM BEGIN 3D6 ROLLS FOR ABILITIES
  34. 1350 REM***************************
  35. 1360 L = L + 1
  36. 1370 Z = INT((RND(1) * 6) + 1)
  37. 1380 Z2 = INT((RND(1) * 6) + 1)
  38. 1390 Z3 = INT((RND(1) * 6) + 1)
  39. 1400 ZZ = Z + Z2 + Z3
  40. 1410 IF L = 1 THEN 1530
  41. 1420 IF L = 2 THEN 1680
  42. 1430 IF L = 3 THEN 1760
  43. 1440 IF L = 4 THEN 2120
  44. 1450 IF L = 5 THEN 2340
  45. 1460 IF L = 6 THEN 2510
  46. 1500 REM***************************
  47. 1510 REM CALCULATIONS FOR STRENGTH
  48. 1520 REM***************************
  49. 1530 PRINT "CHARACTER'S STRENGTH IS "; ZZ
  50. 1540 ST = ZZ
  51. 1550 IF ST = 3 THEN SF = -3
  52. 1560 IF ST > 3 AND ST < 6 THEN SF = -2
  53. 1570 IF ST > 5 AND ST < 9 THEN SF = -1
  54. 1580 IF ST > 8 AND ST < 13 THEN SF = 0
  55. 1590 IF ST > 12 AND ST < 16 THEN SF = 1
  56. 1600 IF ST > 15 AND ST < 18 THEN SF = 2
  57. 1610 IF ST = 18 THEN SF = 3
  58. 1620 IF SF = 0 THEN 1360
  59. 1630 PRINT "*ADD"; SF; "TO ROLLS TO HIT,DAMAGE,OPEN DOORS"
  60. 1640 GOTO 1360
  61. 1650 REM***************************
  62. 1660 REM CALCULATIONS FOR CONSTITUTION
  63. 1670 REM***************************
  64. 1680 CO = ZZ
  65. 1690 A = ST / CO
  66. 1700 IF A < .67 OR A > 1.5 THEN 1370
  67. 1710 PRINT "CONSTITUTION SCORE IS"; ZZ
  68. 1720 GOTO 1360
  69. 1730 REM***************************
  70. 1740 REM CALCULATIONS FOR INTELLIGENCE
  71. 1750 REM***************************
  72. 1760 PRINT "CHARACTER'S INTELLIGENCE"; ZZ
  73. 1770 IN = ZZ
  74. 1780 IF IN < 9 THEN IZ$ = "*INTELLIGENCE TOO LOW FOR MAGIC USER."
  75. 1790 IF IN = 9 THEN IZ$ = "*35% TO KNOW SPELL-MIN/MAX PER LVL:4/6"
  76. 1800 IF IN > 9 AND IN < 13 THEN IZ$ = "*45% TO KNOW SPELL-MIN/MAX PER LVL:5/7"
  77. 1810 IF IN > 12 AND IN < 15 THEN IZ$ = "*55% TO KNOW SPELL-MIN/MAX PER LVL:6/9"
  78. 1820 IF IN > 14 AND IN < 17 THEN IZ$ = "*65% TO KNOW SPELL-MIN/MAX PER LVL:7/11"
  79. 1830 IF IN = 17 THEN IZ$ = "*75% TO KNOW SPELL-MIN/MAX PER LVL:8/14"
  80. 1840 IF IN = 18 THEN IZ$ = "*85% TO KNOW SPELL - MIN/MAX PER LVL:9/18"
  81. 1850 IF IN = 3 THEN 1870
  82. 1860 GOTO 1880
  83. 1870 I$ = "* DIFFICULT SPEECH-ILLITERATE"
  84. 1880 IF IN > 3 AND IN < 6 THEN 1900
  85. 1890 GOTO 1910
  86. 1900 I$ = "* EASY SPEECH BUT ILLITERATE"
  87. 1910 IF IN > 5 AND IN < 9 THEN 1930
  88. 1920 GOTO 1940
  89. 1930 I$ = "* BARELY LITERATE."
  90. 1940 IF IN > 8 AND IN < 13 THEN 1960
  91. 1950 GOTO 1970
  92. 1960 I$ = "* LITERATE IN NATIVE TONGUE."
  93. 1970 IF IN > 12 AND IN < 16 THEN 1990
  94. 1980 GOTO 2000
  95. 1990 I$ = "* LITERATE AND FLUENT 2 LANGUAGES"
  96. 2000 IF IN > 15 AND IN < 18 THEN 2020
  97. 2010 GOTO 2030
  98. 2020 I$ = "* LITERATE AND FLUENT 3 LANGUAGES"
  99. 2030 IF IN = 18 THEN 2050
  100. 2040 GOTO 2060
  101. 2050 I$ = "* LITERATE AND FLUENT 4 LANGUAGES"
  102. 2060 PRINT I$
  103. 2070 PRINT IZ$
  104. 2080 GOTO 1360
  105. 2090 REM***************************
  106. 2100 REM CALCULATIONS FOR DEXTERITY
  107. 2110 REM***************************
  108. 2120 PRINT "CHARACTER'S DEXTERITY IS "; ZZ
  109. 2130 DX = ZZ
  110. 2140 IF DX = 3 THEN DF = -3
  111. 2150 IF DX > 3 AND DX < 6 THEN DF = -2
  112. 2160 IF DX > 5 AND DX < 9 THEN DF = -1
  113. 2170 IF DX > 8 AND DX < 13 THEN DF = 0
  114. 2180 IF DX > 12 AND DX < 16 THEN DF = 1
  115. 2190 IF DX > 15 AND DX < 18 THEN DF = 2
  116. 2200 IF DX = 18 THEN DF = 3
  117. 2210 IF DF = -3 THEN GOSUB 5320
  118. 2220 IF DF = -2 THEN GOSUB 5340
  119. 2230 IF DF = -1 THEN GOSUB 5360
  120. 2240 IF DF = 1 THEN GOSUB 5380
  121. 2250 IF DF = 2 THEN GOSUB 5400
  122. 2260 IF DF = 3 THEN GOSUB 5420
  123. 2270 IF DF = 0 THEN GOTO 1360
  124. 2280 PRINT "*ADD "; DF; "TO MISSILE FIRE ROLLS 'TO HIT'"
  125. 2290 PRINT "* "; X1$; X2$; X3$; " ARMOR CLASS."
  126. 2300 GOTO 1360
  127. 2310 REM***************************
  128. 2320 REM CALCULATIONS FOR WISDOM
  129. 2330 REM***************************
  130. 2340 WI = ZZ
  131. 2350 B = IN / WI
  132. 2360 IF B < .67 OR B > 1.5 THEN 1370
  133. 2370 PRINT "CHARACTER'S WISDOM IS "; WI
  134. 2380 IF WI = 3 THEN WF = -3
  135. 2390 IF WI > 3 AND WI < 6 THEN WF = -2
  136. 2400 IF WI > 5 AND WI < 9 THEN WF = -1
  137. 2410 IF WI > 8 AND WI < 13 THEN WF = 0
  138. 2420 IF WI > 12 AND WI < 16 THEN WF = 1
  139. 2430 IF WI > 15 AND WI < 18 THEN WF = 2
  140. 2440 IF WI = 18 THEN WF = 3
  141. 2450 IF WF = 0 THEN 1360
  142. 2460 PRINT "*ADD"; WF; "TO ROLL-MAGIC BASED SAVING THROW"
  143. 2470 GOTO 1360
  144. 2480 REM***************************
  145. 2490 REM CALCULATIONS FOR CHARISMA
  146. 2500 REM***************************
  147. 2510 PRINT "CHARACTER'S CHARISMA IS "; ZZ
  148. 2520 LET CH = ZZ
  149. 2530 IF CH = 3 THEN XF = 1
  150. 2540 IF CH > 3 AND CH < 6 THEN XF = 2
  151. 2550 IF CH > 5 AND CH < 9 THEN XF = 3
  152. 2560 IF CH > 8 AND CH < 13 THEN XF = 4
  153. 2570 IF CH > 12 AND CH < 16 THEN XF = 5
  154. 2580 IF CH > 15 AND CH < 18 THEN XF = 6
  155. 2590 IF CH = 18 THEN XF = 7
  156. 2600 PRINT "*CAN HAVE "; XF; " RETAINERS WITH MORALE OF"; XF
  157. 2610 L = 0
  158. 2620 REM***************************
  159. 2630 REM RACE/CLASS SELECTION & CHECKING
  160. 2640 REM***************************
  161. 2650 PRINT " IF YOU HAVE THIS DATA AND ARE READY TO"
  162. 2660 PRINT " PROCEED, ENTER A ONE (1)."
  163. 2670 INPUT VG
  164. 2680 ON VG GOTO 2690
  165. 2690 PRINT CHR$(12): PRINT
  166. 2700 PRINT "         CLASS/RACE LIST"
  167. 2710 PRINT "-----------------------------------------"
  168. 2720 PRINT " (1) FIGHTER         (4) HALFLING"
  169. 2730 PRINT " (2) MAGIC USER      (5) ELF"
  170. 2740 PRINT " (3) CLERIC          (6) DWARF"
  171. 2750 PRINT "           (7) THIEF"
  172. 2760 PRINT
  173. 2770 PRINT "SELECT THE RACE/CLASS THAT YOU WISH"
  174. 2780 PRINT "YOUR CHARACTER TO HAVE AND ENTER THE"
  175. 2790 INPUT "NUMBER FROM THE TABLE ABOVE"; CN
  176. 2800 IF CN = 4 THEN 2820
  177. 2810 GOTO 2870
  178. 2820 IF DX < 9 OR CD < 9 THEN 2840
  179. 2830 GOTO 2870
  180. 2840 PRINT " DEXTERITY AND/OR CONSTITUTION"
  181. 2850 PRINT " TOO LOW FOR HALFLING"
  182. 2860 GOTO 2770
  183. 2870 IF CN = 5 AND IN < 9 THEN 2890
  184. 2880 GOTO 2900
  185. 2890 PRINT "INTELLIGENCE TOO LOW FOR ELF.": GOTO 2770
  186. 2900 IF CN = 6 AND CO < 9 THEN 2920
  187. 2910 GOTO 2960
  188. 2920 PRINT "CONSTITUTION TOO LOW FOR DWARF.": GOTO 2770
  189. 2930 REM***************************
  190. 2940 REM HIT DICE ASSIGNED BY RACE/CLASS
  191. 2950 REM***************************
  192. 2960 IF CN = 1 THEN HF = 8
  193. 2970 IF CN = 2 THEN HF = 4
  194. 2980 IF CN = 3 THEN HF = 6
  195. 2990 IF CN = 4 THEN HF = 6
  196. 3000 IF CN = 5 THEN HF = 6
  197. 3010 IF CN = 6 THEN HF = 8
  198. 3020 IF CN = 7 THEN HF = 4
  199. 3030 IF CN = 0 THEN 1160
  200. 3040 PRINT
  201. 3050 REM***************************
  202. 3060 REM CHARACTER LEVEL ASSIGNED AND
  203. 3070 REM HIT POINTS CALCULATED
  204. 3080 REM***************************
  205. 3090 PRINT "CHARACTER LEVEL RANGE..ONE(1) TO FIVE(5)"
  206. 3100 PRINT
  207. 3110 INPUT "AT WHICH LEVEL WILL CHARACTER START"; LL
  208. 3120 IF LL > 5 THEN PRINT "NUMBER TOO LARGE: RE-ENTER": GOTO 3110
  209. 3130 PRINT CHR$(12)
  210. 3140 PRINT
  211. 3150 PRINT "YOUR CHARACTER HAS "; LL; " HIT DICE"
  212. 3160 PRINT
  213. 3170 IF CO = 3 THEN PF = (-3 * LL)
  214. 3180 IF CO > 3 AND CO < 6 THEN PF = (-2 * LL)
  215. 3190 IF CO > 5 AND CO < 9 THEN PF = (-1 * LL)
  216. 3200 IF CO > 8 AND CO < 13 THEN PF = 0
  217. 3210 IF CO > 12 AND CO < 16 THEN PF = LL
  218. 3220 IF CO > 15 AND CO < 18 THEN PF = (2 * LL)
  219. 3230 IF CO = 18 THEN PF = (3 * LL)
  220. 3240 GOSUB 4330
  221. 3250 REM***************************
  222. 3260 REM CLERIC SKILLS ASSIGNED BY LEVEL
  223. 3270 REM***************************
  224. 3280 IF CN = 3 THEN 3300
  225. 3290 GOTO 3500
  226. 3300 IF CN = 3 THEN 3320
  227. 3310 GOTO 3500
  228. 3320 CZ$ = "    CLERIC VS. UNDEAD TABLE (1D20)"
  229. 3330 CU$ = "SKEL ZOMB GHOU WIGT WRAI MUMM SPEC VAMP"
  230. 3340 PRINT CZ$
  231. 3350 PRINT
  232. 3360 PRINT CU$
  233. 3370 Z1$ = "   7   9   11   --   --   --   --   --"
  234. 3380 Z2$ = "   T   7    9   11   --   --   --   --"
  235. 3390 Z3$ = "   T   T    7    9   11   --   --   --"
  236. 3400 Z4$ = "   D   T    T    7    9   11   --   --"
  237. 3410 Z5$ = "   D   D    T    T    7    9   11   --"
  238. 3420 IF CN = 3 AND LL = 1 THEN PRINT Z1$
  239. 3430 IF CN = 3 AND LL = 2 THEN PRINT Z2$
  240. 3440 IF CN = 3 AND LL = 3 THEN PRINT Z3$
  241. 3450 IF CN = 3 AND LL = 4 THEN PRINT Z4$
  242. 3460 IF CN = 3 AND LL = 5 THEN PRINT Z5$
  243. 3470 REM***************************
  244. 3480 REM THIEF'S SKILLS ASSIGNED BY LEVEL
  245. 3490 REM***************************
  246. 3500 IF CN = 7 THEN 3520
  247. 3510 GOTO 3720
  248. 3520 TY$ = "    THIEVE'S ABILITIES"
  249. 3530 TA$ = "PICK REMV PICK MOVE CLIM HIDE HEAR"
  250. 3540 TB$ = "LOCK TRAP PCKT SILT SURF SHDW NOIS"
  251. 3550 PRINT TY$
  252. 3560 PRINT TA$
  253. 3570 PRINT TB$
  254. 3580 K1$ = " 15% 10% 20% 20% 87% 10% 1-2"
  255. 3590 K2$ = " 20% 15% 25% 25% 88% 15% 1-2"
  256. 3600 K3$ = " 25% 20% 30% 30% 89% 20% 1-3"
  257. 3610 K4$ = " 30% 25% 35% 35% 90% 25% 1-3"
  258. 3620 K5$ = " 35% 30% 40% 40% 91% 30% 1-3"
  259. 3630 IF LL = 1 THEN PRINT K1$
  260. 3640 IF LL = 2 THEN PRINT K2$
  261. 3650 IF LL = 3 THEN PRINT K3$
  262. 3660 IF LL = 4 THEN PRINT K4$
  263. 3670 IF LL = 5 THEN PRINT K5$
  264. 3680 REM***************************
  265. 3690 REM CHARACTER COUNT DISPLAYED AND
  266. 3700 REM DECISION TO USE IS MADE.
  267. 3710 REM***************************
  268. 3720 CC = CC + 1
  269. 3730 PRINT
  270. 3740 PRINT "    THIS IS CHARACTER #["; CC; "]"
  271. 3750 PRINT
  272. 3760 INPUT "DO YOU WANT THIS CHARACTER(Y/N)"; D$
  273. 3770 IF D$ = "N" THEN 1320
  274. 3780 IF D$ = "Y" THEN 3790
  275. 3790 CC = 0
  276. 3800 REM***************************
  277. 3810 REM OTHER CHARACTER DATA IS INPUT
  278. 3820 REM***************************
  279. 3830 PRINT CHR$(12)
  280. 3840 PRINT: PRINT: PRINT
  281. 3850 INPUT "WHAT IS CHARACTER'S NAME"; NA$
  282. 3860 PRINT
  283. 3870 INPUT "WHAT IS CHARACTER'S RACE"; RA$
  284. 3880 PRINT
  285. 3890 INPUT "WHAT IS CHARACTER'S GENDER"; SE$
  286. 3900 PRINT
  287. 3910 INPUT "WHAT IS CHARACTER'S CLASS"; CL$
  288. 3920 PRINT CHR$(12)
  289. 3930 REM***************************
  290. 3940 REM CHARACTER'S GOLD CALCULATED
  291. 3950 REM***************************
  292. 3960 PRINT: PRINT
  293. 3970 LET M1 = INT((RND(1) * 6) + 1)
  294. 3980 LET M2 = INT((RND(1) * d) + 1)
  295. 3990 LET M3 = INT((RND(1) * 6) + 1)
  296. 4000 LET MT = M1 + M2 + M3
  297. 4010 LET GC = (10 * MT)
  298. 4020 REM***************************
  299. 4030 REM SEPARATION BY RACE/CLASS FOR
  300. 4040 REM FINAL DATA CALCULATIONS.
  301. 4050 REM***************************
  302. 4060 IF CN = 1 THEN GOSUB 5470
  303. 4070 IF CN = 2 THEN GOSUB 6130
  304. 4080 IF CN = 3 THEN GOSUB 5580
  305. 4090 IF CN = 4 THEN GOSUB 5690
  306. 4100 IF CN = 5 THEN GOSUB 5800
  307. 4110 IF CN = 6 THEN GOSUB 5910
  308. 4128 IF CN = 7 THEN GOSUB 6020
  309. 4130 GOSUB 4510
  310. 4140 PRINT
  311. 4150 REM********************************
  312. 4160 REM 'END' OR 'CONTINUE' AND CLOSE
  313. 4170 REM***************************
  314. 4180 INPUT "ANOTHER CHARACTER (Y/N)"; GB$
  315. 4190 IF GB$ = "Y" THEN 1320
  316. 4200 PRINT CHR$(12)
  317. 4210 PRINT: PRINT: PRINT: PRINT: PRINT
  318. 4228 PRINT " THANKS FOR USING ME!"
  319. 4230 PRINT
  320. 4240 PRINT "IF YOU CHANGE YOUR MIND AND"
  321. 4250 PRINT "WANT ANOTHER CHARACTER,JUST"
  322. 4260 PRINT "ENTER THE WORD 'RUN' - BYE."
  323. 4270 CLEAR
  324. 4280 END
  325. 4290 PRINT
  326. 4300 REM***************************
  327. 4310 REM SUBROUTINE TO CALCULATE HIT PTS
  328. 4320 REM***************************
  329. 4330 Y = Y + 1
  330. 4340 PS = INT((RND(1) * HF) + 1)
  331. 4350 PS(Y) = PS
  332. 4360 IF Y <> LL THEN 4330
  333. 4370 FOR Y = 0 TO LL - 1
  334.    4380 PS = PS + PS(Y)
  335. 4390 NEXT Y
  336. 4400 PT = PS + PF
  337. 4410 IF PT <= 0 THEN 4430
  338. 4420 GOTO 4440
  339. 4430 PT = LL
  340. 4440 PRINT "YOUR CHARACTER WOULD HAVE"; PT; "HIT POINTS!"
  341. 4450 PRINT
  342. 4460 Y = 0
  343. 4470 RETURN
  344. 4480 REM***************************
  345. 4490 REM RECAP DISPLAY BEGINS
  346. 4500 REM***************************
  347. 4510 PRINT CHR$(12)
  348. 4520 PRINT
  349. 4530 PRINT "    RECAP OF CHARACTER ABILITIES"
  350. 4540 PRINT
  351. 4550 PRINT "NAME...."; NA$
  352. 4560 PRINT "RACE...."; RA$; TAB(22); "HIT DICE: "; LL
  353. 4570 PRINT "GENDER.."; SE$
  354. 4580 PRINT "CLASS..."; CL$; TAB(22); " HIT POINTS: "; PT
  355. 4590 PRINT "LEVEL..."; LL
  356. 4600 PRINT
  357. 4610 PRINT "N O T E !! COPY THIS AND THE INFORMATION"
  358. 4620 PRINT "THAT FOLLOWS TO THE CHARACTER"
  359. 4630 PRINT "RECORD SHEET. IT WILL NOT BE"
  360. 4640 PRINT "AVAILABLE AGAIN!"
  361. 4650 PRINT
  362. 4660 INPUT "TO CONTINUE,ENTER A ONE(1)"; KK
  363. 4670 ON KK GOTO 4680
  364. 4680 PRINT CHR$(12)
  365. 4690 PRINT NA$; "'S STRENGTH IS.. . . . ."; ST
  366. 4700 IF SF = 0 THEN 4720
  367. 4710 PRINT "*ADD"; SF; "TO ROLL TO:'HIT,DAMAGE,OPEN DOORS"
  368. 4720 PRINT NA$; "'S CONSTITUTION IS.."; CO
  369. 4730 PRINT NA$; "'S INTELLIGENCE IS.."; IN
  370. 4740 IF CN = 2 THEN PRINT IZ$
  371. 4750 PRINT I$
  372. 4760 PRINT NA$; "'S DEXTERITY IS...."; DX
  373. 4770 IF DF = 0 THEN 4800
  374. 4780 PRINT "*ADD"; DF; "TO MISSILE FIRE ROLLS 'TO HIT'"
  375. 4790 PRINT "*"; X1$; X2$; X3$; " ARMOR CLASS."
  376. 4800 PRINT NA$; "'S WISDOM IS......."; WI
  377. 4810 IF WF = 0 THEN 4830
  378. 4820 PRINT "*ADD*"; WF; "TO ROLL-MAGIC BASED SAVING THROWS"
  379. 4830 PRINT NA$; "'S CHARISMA IS......"; CH
  380. 4840 PRINT "*CHAR MAY HAVE"; XF; "RETAINERS - MORALE OF"; XF
  381. 4850 IF CN = 3 THEN 4900
  382. 4860 GOTO 4960
  383. 4870 REM***************************
  384. 4880 REM DISPLAYS CLERIC'S SKILLS
  385. 4890 REM***************************
  386. 4900 PRINT CZ$: PRINT CU$
  387. 4910 IF CN = 3 AND LL = 1 THEN PRINT Z1$
  388. 4920 IF CN = 3 AND LL = 2 THEN PRINT Z2$
  389. 4930 IF CN = 3 AND LL = 3 THEN PRINT Z3$
  390. 4940 IF CN = 3 AND LL = 4 THEN PRINT Z4$
  391. 4950 IF CN = 3 AND LL = 5 THEN PRINT Z5$
  392. 4960 IF CN = 7 THEN 5010
  393. 4970 GOTO 5070
  394. 4980 REM***************************
  395. 4990 REM DISPLAYS THIEF'S SKILLS
  396. 5000 REM***************************
  397. 5010 PRINT TY$: PRINT TA$: PRINT TB$
  398. 5020 IF CN = 7 AND LL = 1 THEN PRINT K1$
  399. 5030 IF CN = 7 AND LL = 2 THEN PRINT K2$
  400. 5040 IF CN = 7 AND LL = 3 THEN PRINT K3$
  401. 5050 IF CN = 7 AND LL = 4 THEN PRINT K4$
  402. 5060 IF CN = 7 AND LL = 5 THEN PRINT K5$
  403. 5070 INPUT "TO CONTINUE,ENTER A ONE(1)"; PK
  404. 5080 ON PK GOTO 5120
  405. 5090 REM***************************
  406. 5100 REM DISPLAYS SAVING THROW TABLE
  407. 5110 REM***************************
  408. 5120 PRINT CHR$(12): PRINT
  409. 5130 PRINT "    SAVING THROW TABLE"
  410. 5140 PRINT "DEATH :     :PARALYSIS:      :RODS"
  411. 5150 PRINT "RAY OR:MAGIC: OR TURN :DRAGON:STAVES"
  412. 5160 PRINT "POISON:WANDS:TO STONE :BREATH:OR SPELLS"
  413. 5170 PRINT "------:-----:---------:------:---------"
  414. 5180 PRINT ST$
  415. 5190 PRINT P1$
  416. 5200 PRINT P2$
  417. 5210 PRINT P3$
  418. 5220 PRINT P4$
  419. 5230 PRINT P5$
  420. 5240 REM***************************
  421. 5250 REM DISPLAYS PLAYER'S GOLD SUPPLY
  422. 5260 REM***************************
  423. 5270 PRINT "THIS CHARACTER HAS["; GC; "] GOLD PIECES."
  424. 5280 RETURN
  425. 5290 REM***************************
  426. 5300 REM DISPLAYS WISDOM ADJUSTMENTS
  427. 5310 REM***************************
  428. 5320 X1$ = "ADD ": X2$ = "3": X3$ = " TO"
  429. 5330 RETURN
  430. 5340 X1$ = "ADD ": X2$ = "2": X3$ = " TO"
  431. 5350 RETURN
  432. 5360 X1$ = "ADD ": X2$ = " 1 ": X3$ = " TO"
  433. 5370 RETURN
  434. 5380 X1$ = "SUBTRACT ": X2$ = "1": X3$ = " FROM"
  435. 5390 RETURN
  436. 5400 X1$ = "SUBTRACT ": X2$ = "2": X3$ = " FROM"
  437. 5410 RETURN
  438. 5420 X1$ = "SUBTRACT ": X2$ = "3": X3$ = " FROM"
  439. 5430 RETURN
  440. 5440 REM***************************
  441. 5450 REM SAVING THROW & MISC.-FIGHTER
  442. 5460 REM***************************
  443. 5470 IF LL < 4 THEN ST$ = "..12....13......14.......15......16"
  444. 5480 IF LL > 3 AND LL < 6 THEN ST$ = "...10....11......12.......13......14"
  445. 5490 P1$ = "MAY WEAR ANY ARMOR AND USE SHIELD."
  446. 5500 P2$ = "MAY USE ANY WEAPON."
  447. 5510 P3$ = " "
  448. 5520 P4$ = "NO SPELLS, BUT MAY USE MAGIC ARTICLE."
  449. 5530 P5$ = " "
  450. 5540 RETURN
  451. 5550 REM***************************
  452. 5560 REM SAVING THROW & MISC.-CLERIC
  453. 5570 REM********************************
  454. 5580 IF LL < 5 THEN ST$ = "..11....12......14.......16......15"
  455. 5590 IF LL = 5 THEN ST$ = "...9....10......12.......14......12"
  456. 5600 P1$ = "MAY NOT USE EDGED WEAPONS."
  457. 5610 P2$ = "MAY WEAR ANY ARMOR AND USE SHIELD. "
  458. 5620 P3$ = "MAY USE SLING "
  459. 5630 P4$ = "HAS ABILITY TO 'TURN' UNDEAD.'"
  460. 5640 P5$ = "USES CLERICAL SPELLS ONLY. "
  461. 5650 RETURN
  462. 5660 REM***************************
  463. 5670 REM SAVING THROW & MISC.- HALFLING
  464. 5680 REM***************************
  465. 5690 IF LL < 4 THEN ST$ = "...8.....9......10.......13......12"
  466. 5700 IF LL > 3 AND LL < 6 THEN ST$ = "...6.....7.......8.......10......10"
  467. 5710 P1$ = "CANNOT USE LONGBOW OR 2 HANDED SWORD."
  468. 5720 P2$ = "ADJUST MISSILE ATTACK 'TO HIT' BY +1."
  469. 5730 P3$ = "ADJ AC BY -1 VS. MORE THAN MAN-SIZE OPP."
  470. 5740 P4$ = "ONLY 10% CHANCE OF DETECTION IN WOODS."
  471. 5750 P5$ = "REMAINS UNSEEN IN DUNGEON ON 1-2 (1D6)"
  472. 5760 RETURN
  473. 5770 REM***************************
  474. 5780 REM SAVING THROW & MISC. - ELF
  475. 5790 REM***************************
  476. 5800 IF LL < 4 THEN ST$ = "..12....13......13.......15......15"
  477. 5810 IF LL > 3 AND LL < 6 THEN ST$ = "..18....11......11.......13......12"
  478. 5820 P1$ = "HAS 60' INFRA-VISION."
  479. 5830 P2$ = "DETECTS OR SECRET DOORS ON 1-2(1D6)."
  480. 5840 P3$ = "IMMUNE TO PARALYSIS FROM GHOUL ATTACK."
  481. 5850 P4$ = "SPEAKS ELVISH,ORC,HOB-GOBLIN,AND GNOLL."
  482. 5860 P5$ = "MAY USE SPELLS AND MAGIC ARTICLES."
  483. 5870 RETURN
  484. 5880 REM***************************
  485. 5890 REM SAVING THROW & MISC. - DWARF
  486. 5900 REM***************************
  487. 5910 IF LL < 4 THEN ST$ = "...8.....9......10.......13......12"
  488. 5920 IF LL > 3 AND LL < 6 THEN ST$ = "...6.....7.......8.......10. . . ...10"
  489. 5930 P1$ = "HAS 60' INFRA-VISION."
  490. 5940 P2$ = "DET'S TRAPS,DUNGEON ANOMALIES,@ 1-2(1D6)"
  491. 5950 P3$ = "SPEAKS DWARVISH,GNOME,KOBOLD,AND GOBLIN."
  492. 5960 P4$ = "MAY NOT USE A LONGBOW OR 2-HANDED SWORD."
  493. 5970 P5$ = " "
  494. 5980 RETURN
  495. 5990 REM***************************
  496. 6000 REM SAVING THROW & MISC. - THIEF
  497. 6010 REM***************************
  498. 6020 IF LL < 5 THEN ST$ = "...13....14......13.......16......15"
  499. 6030 IF LL = 5 THEN ST$ = "..12....13......11.......14......13"
  500. 6040 P1$ = "LEATHER ARMOUR ONLY-NO SHIELD"
  501. 6050 P2$ = "BACKSTABBING ADDS +4 TO 'TO HIT' ROLL"
  502. 6060 P3$ = "BACKSTABBING DOES TWICE NORMAL DAMAGE"
  503. 6070 P4$ = "SEE TABLE FOR OTHER SKILLS."
  504. 6080 P5$ = " "
  505. 6090 RETURN
  506. 6100 REM***************************
  507. 6110 REM SAVING THROW & MISC.-MAGIC USER
  508. 6120 REM***************************
  509. 6130 ST$ = "    13 14 13 16 15"
  510. 6140 P1$ = "MAY NOT USE A SHIELD OR WEAR ARMOR."
  511. 6150 P2$ = "MAY USE ONLY A DAGGER AS A WEAPON."
  512. 6160 P3$ = "CHECK INTELLIGENCE FOR ABILITY TO"
  513. 6170 P4$ = "LEARN SPELLS AND # OF SPELLS/LEVEL"
  514. 6180 P5$ = " "
  515. 6190 RETURN
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement