There is an Errata a couple issues later I believe. On Tue, Jan 7, 2020, 9:11 PM Peter Vollan <dprogra...@gmail.com> wrote:
> Here is the code just as I copied it from The Dragon. If you run it > you will find that there are few mistakes and typos, so this program > could not have worked as is. I wonder how this is possible.... Did > some poor slob have to type this from looking at a printout? Anyway > before you run it you will need to remove this first part you are > reading. Later I may post the fixed version I made with VT. > > 1000 REM************************************************************* > 1010 REM** > 1020 REM*DUNGEON MASTER'S PERSONNEL SERVICE* > 1030 REM*( 40 COLUMN BY 16 LINE CRT DISPLAY ONLY )* > 1040 REM*SAVE AS "D&DCRT.BAS" - VERSION 1.2* > 1050 REM** > 1060 REM*********************************************************** > 1070 REM GENERATES PLAYER CHARACTERISTIC FOR FANTASY* > 1080 REM *ROLE - PLAYING GAME "DUNGEONS & DRAGONS" Tm* > 1090 REM *********************************************************** > 1100 REM *WRITTEN BY: JOSEPH C. SPANN - MONROE, LA.* > 1110 REM *"DUNGEON MASTER'S PERSONNEL SERVICE"-ver 1.2(C)LAIRTECH* > 1120 REM *"DUNGEONS & DRAGONS" Tm BY TSR HOBBIES INC.* > 1130 REM*********************************************************** > 1140 DIM PS(7) > 1150 RANDOMIZE > 1160 PRINT CHR$(12) > 1170 PRINT > 1180 PRINT "DM'S PERSONNEL SERVICE" > 1190 PRINT"-----------------------------------------" > 1200 PRINT > 1210 PRINT"PRODUCES CHAR. ABILITY SCORES" > 1220 PRINT > 1230 PRINT"FOR" > 1240 PRINT > 1250 PRINT"DUNGEONS & DRAGONS Tm > 1260 PRINT > 1280 PRINT"IF YOU ARE READY FOR THE 1ST" > 1290 PRINT"CHARACTER, ENTER A ONE (1)." > 1300 INPUT C > 1310 ON C GOTO 1320 > 1320 PRINT CHR$(12) > 1330 REM*************************** > 1340 REM BEGIN 3D6 ROLLS FOR ABILITIES > 1350 REM*************************** > 1360 L=L+1 > 1370 Z=INT((RND(1)*6)+1) > 1380 Z2=INT((RND(1)*6)+1) > 1390 Z3=INT((RND(1)*6)+1) > 1400 ZZ=Z+Z2+Z3 > 1410 IF L=1 THEN 1530 > 1420 IF L=2 THEN 1680 > 1430 IF L=3 THEN 1760 > 1440 IF L=4 THEN 2120 > 1450 IF L=5 THEN 2340 > 1460 IF L=6 THEN 2510 > 1500 REM*************************** > 1510 REMCALCULATIONS FOR STRENGTH > 1520 REM*************************** > 1530 PRINT"CHARACTER'S STRENGTH IS ";ZZ > 1540 ST=ZZ > 1550 IF ST=3 THEN SF=-3 > 1560 IF ST > 3 AND ST < 6 THEN SF=-2 > 1570 IF ST > 5 AND ST < 9 THEN SF=-1 > 1580 IF ST > 8 AND ST < 13 THEN SF=0 > 1590 IF ST > 12 AND ST < 16 THEN SF=1 > 1600 IF ST > 15 AND ST < 18 THEN SF=2 > 1610 IF ST=18 THEN SF=3 > 1620 IF SF=0 THEN 1360 > 1630 PRINT"*ADDî;SF;"TO ROLLS TO HIT,DAMAGE,OPEN DOORS" > 1640 GOTO 1360 > 1650 REM*************************** > 1660 REM CALCULATIONS FOR CONSTITUTION > 1670 REM*************************** > 1680 CO=ZZ > 1690 A=ST/CO > 1700 IF A < .67 OR A > 1.5 THEN 1370 > 1710 PRINT"CONSTITUTION SCORE IS";ZZ > 1720 GOTO 1360 > 1730 REM*************************** > 1740 REM CALCULATIONS FOR INTELLIGENCE > 1750 REM*************************** > 1760 PRINT"CHARACTER'S INTELLIGENCE";ZZ > 1770 IN=ZZ > 1780 IF IN < 9 THEN IZ%="*INTELLIGENCE TOO LOW FOR MAGIC USER." > 1790 IF IN=9 THEN IZ$="*35% TO KNOW SPELL-MIN/MAX PER LVL:4/6" > 1800 IF IN > 9 AND IN < 13 THEN IZ$="*45% TO KNOW SPELL-MIN/MAX PER > LVL:5/7" > 1810 IF IN > 12 AND IN < 15 THEN IZ$="*55% TO KNOW SPELL-MIN/MAX PER > LVL:6/9" > 1820 IF IN > 14 AND IN < 17 THEN IZ$="*65% TO KNOW SPELL-MIN/MAX PER > LVL:7/11" > 1830 IF IN=17 THEN IZ$="*75% TO KNOW SPELL-MIN/MAX PER LVL:8/14" > 1840 IF IN=18 THEN IZ$="*85% TO KNOW SPELL - MIN/MAX PER > LVL:9/18" > 1850 IF IN=3 THEN 1870 > 1860 GOTO 1880 > 1870 I$="* DIFFICULT SPEECH-ILLITERATE" > 1880 IF IN>3 AND IN<6 THEN 1900 > 1890 GOTO 1910 > 1900 I$="* EASY SPEECH BUT ILLITERATE" > 1910 IF IN>5 AND IN<9 THEN 1930 > 1920 GOTO 1940 > 1930 I$="* BARELY LITERATE." > 1940 IF IN>8 AND IN<13 THEN 1960 > 1950 GOTO 1970 > 1960 I$="* LITERATE IN NATIVE TONGUE." > 1970 IF IN>12 AND IN<16 THEN 1990 > 1980 GOTO 2000 > 1990 I$="* LITERATE AND FLUENT 2 LANGUAGES" > 2000 IF IN>15 AND IN<18 THEN 2020 > 2010 GOTO 2030 > 2020 I$="* LITERATE AND FLUENT 3 LANGUAGES" > 2030 IF IN=18 THEN 2050 > 2040 GOTO 2060 > 2050 I$="* LITERATE AND FLUENT 4 LANGUAGES" > 2060 PRINT I$ > 2070 PRINT IZ$ > 2080 GOTO 1360 > 2090 REM*************************** > 2100 REM CALCULATIONS FOR DEXTERITY > 2110 REM*************************** > 2120 PRINT"CHARACTER'S DEXTERITY IS ";ZZ > 2130 DX=ZZ > 2140 IF DX=3 THEN DF=-3 > 2150IF DX > 3 AND DX < 6 THEN DF=-2 > 2160IF DX > 5 AND DX < 9 THEN DF=-1 > 2170IF DX > 8 AND DX < 13 THEN DF=0 > 2180IF DX > 12 AND DX < 16 THEN DF=1 > 2190IF DX > 15 AND DX < 18 THEN DF=2 > 2200IF Dx=18 THEN DF=3 > 2210IF DF=-3 THEN GOSUB 5320 > 2220IF DF=-2 THEN GOSUB 5340 > 2230IF DF=-1 THEN GOSUB 5360 > 2240IF DF=1 THEN GOSUB 5380 > 2250IF DF=2 THEN GOSUB 5400 > 2260IF DF=3 THEN GOSUB 5420 > 2270IF DF=0 THEN GOTO 1360 > 2280PRINT "*ADD";DF;"TO MISSILE FIRE ROLLS 'TO HIT'" > 2290PRINT "* " ;X1$;X2$;X3$;" ARMOR CLASS." > 2300GOTO 1360 > 2310REM *************************** > 2320REM CALCULATIONS FOR WISDOM > 2330REM *************************** > 2340WI=ZZ > 2350 B=IN/WI > 2360IF B < .67 OR B > 1.5 THEN 1370 > 2370PRINT"CHARACTER'S WISDOM IS " ;WI > 2380IF WI=3 THEN WF=-3 > 2390IF WI > 3 AND WI < 6 THEN WF=-2 > 2480IF WI > 5 AND WI < 9 THEN WF=-1 > 2410IF WI > 8 AND WI < 13 THEN WF=0 > 2420IF WI > 12 AND WI < 16 THEN WF=1 > 2430IF WI > 15 AND WI < 18 THEN WF=2 > 2440IF WI=18 THEN WF=3 > 2450IF WF=0 THEN 1360 > 2460PRINT"*ADD";WF;"TO ROLL-MAGIC BASED SAVING THROW" > 2470GOTO 1360 > 2480REM *************************** > 2490REM CALCULATIONS FOR CHARISMA > 2500REM *************************** > 2510PRINT"CHARACTER'S CHARISMA IS ";ZZ > 2520LET CH=ZZ > 2530IF CH=3 THEN XF=1 > 2540IF CH > 3 AND CH < 6 THEN XF=2 > 2550IF CH > 5 AND CH < 9 THEN XF=3 > 2560IF CH > 8 AND CH < 13 THEN XF=4 > 2570IF CH > 12 ND CH < 16 THEN XF=5 > 2580IF CH > 15 AND CH < 18 THEN XF=6 > 2590IF CH=18 THEN XF=7 > 2600PRINT"*CAN HAVE ";XF;" RETAINERS WITH MORALE OF" ;XF" > 2610L=0 > 2620REM *************************** > 2630REM RACE/CLASS SELECTION & CHECKING > 2640REM *************************** > 2650PRINT" IF YOU HAVE THIS DATA AND ARE READY TO" > 2660PRINT" PROCEED, ENTER A ONE (1)." > 2670INPUT VG > 2680 ON VG GOTO 2690 > 2690PRINT CHR$(12);PRINT > 2700PRINT "CLASS/RACE LIST" > 2710PRINT "-----------------------------------------" > 2720PRINT " (1) FIGHTER (4) HALFLING" > 2730PRINT " (2) MAGIC USER (5) ELF" > 2740PRINT " (3) CLERIC (6) DWARF" > 2750 PRINT "(7) THIEF" > 2760 PRINT > 2770 PRINT"SELECT THE RACE/CLASS THAT YOU WISH" > 2780 PRINT"YOUR CHARACTER TO HAVE AND ENTER THE" > 2790 INPUT"NUMBER FROM THE TABLE ABOVE";CN > 2800IF CN=4 THEN 2820 > 2810GOTO 2870 > 2820IF DX < 9 OR CD < 9 THEN 2840 > 2830GOTO 2870 > 2840PRINT" DEXTERITY AND/OR CONSTITUTION" > 2850PRINT"TOO LOW FOR HALFLING" > 2860GOTO 2770 > 2870IF CN=5 AND IN < 9 THEN 2890 > 2880GOTO 2900 > 2890PRINT"INTELLIGENCE TOO LOW FOR ELF.":GOTO 2770 > 2900IF CN=6 AND CO < 9 THEN 2920 > 2910GOTO 2960 > 2920PRINT"CONSTITUTION TOO LOW FOR DWARF.":GOTO 2770 > 2930REM*************************** > 2940 REM HIT DICE ASSIGNED BY RACE/CLASS > 2950REM*************************** > 2960 IF CN=1 THEN HF=8 > 2970IF CN=2 THEN HF=4 > 2980 IF CN=3 THEN HF=6 > 2990 IF CN=4 THEN HF=6 > 3000 IF CN=5 THEN HF=6 > 3010 IF CN=6 THEN HF=8 > 3020IF CN=7 THEN HF=4 > 3030IF CN=0 THEN 1160 > 3040PRINT > 3050 REM*************************** > 3060 REM CHARACTER LEVEL ASSIGNED AND > 3070 REM HIT POINTS CALCULATED > 3080 REM*************************** > 3090 PRINT "CHARACTER LEVEL RANGE..ONE(1) TO FIVE(5)" > 3100 PRINT > 3110 INPUT"AT WHICH LEVEL WILL CHARACTER START";LL > 3120 IF LL > 5 THEN PRINT "NUMBER TOO LARGE: RE-ENTER":GOTO 3110 > 3130 PRINT CHR$(12) > 3140 PRINT > 3150 PRINT"YOUR CHARACTER HAS ";LL;" HIT DICE" > 3160 PRINT > 3170 IF CO=3 THEN PF=(-3 * LL) > 3180 IF CO > 3 AND CO < 6 THEN PF=(-2 * LL) > 3190 IF CO > 5 MD CO < 9 THEN PF-(-1 * LL) > 3200 IF CO > 8 AND CO < 13 THEN PF=0 > 3210 IF CO > 12 AND CO < 16 THEN PF=LL > 3220 IF CO > 15 AND CO < 18 THEN PF=(2 * LL) > 3230 IF CO=18 THEN PF=(3 * LL) > 3240 GOSUB 4330 > 3250 REM*************************** > 3260 REM CLERIC SKILLS ASSIGNED BY LEVEL > 3270 REM*************************** > 3280 IF CN=3 THEN 3300 > 3290 GOTO 3500 > 3300IF CN=3 THEN 3320 > 3310 GOTO 3500 > 3320 CZ$=" > 3330 CLERIC VS. UNDEAD TABLE (1D20)" > 3340CU$="SKEL ZOMB GHOU WIGT WRAI MUMM SPEC VAMP" > 3350 PRINT CZ$ > 3360 PRINT > 3370 PRINT CU$ > 3380 Z1$=" 7 9 11 -- -- -- -- --" > 3390 Z2$" T 7 9 11 -- -- -- --" > 3400 Z3$=" T T 7 9 11 -- -- --" > 3410 Z4$=" D T T 7 9 11 -- --" > 3420 Z5$=" D D T T 7 9 11 --" > 3430 IF CN=3 AND LL=1 THEN PRINT Z1$ > 3440 IF CN=3 AND LL=2 THEN PRINT Z2$ > 3450 IF CN=3 AND LL=3 THEN PRINT Z3$ > 3460 IF CN=3 AND LL=4 THEN PRINT Z4$ > 3470 IF CN=3 AND LL=5 THEN PRINT Z5$ > 3480 REM*************************** > 3490 REM THIEF'S SKILLS ASSIGNED BY LEVEL > 3500 REM*************************** > 3510 IF CN=7 THEN 3520 > 3520 GOTO 3720 > 3530 TY$=" > 3540 THIEVES' ABILITIES" > 3550 TA$="PICK REMV PICK MOVE CLIM HIDE HEAR" > 3560 TB$="LOCK TRAP PCKT SILT SURF SHDW NOIS" > 3570 PRINT TY$ > 3580 PRINT TA$ > 3590 PRINT TB$ > 3600 K1$=" 15% 10% 20% 20% 87% 10% 1-2" > 3610 K2$=" 20% 15% 25% 25% 88% 15% 1-2" > 3620 K3$=" 25% 20% 30% 30% 89% 20% 1-3" > 3630 K4$=" 30% 25% 35% 35% 90% 25% 1-3" > 3640 K5$=" 35% 30% 40% 40% 91% 30% 1-3" > 3645 REM BEGINNING > 3650 IF LL=1 THEN PRINT K1$ > 3660 IF LL=2 THEN PRINT K2$ > 3670 IF LL=3 THEN PRINT K3$ > 3680 IF LL=4 THEN PRINT K4$ > 3690 IF LL=5 THEN PRINT K5$ > 3700 REM*************************** > 3710 REM CHARACTER COUNT DISPLAYED AND > 3720 REM DECISION TO USE IS MADE. > 3730 REM*************************** > 3740 CC=CC+1 > 3750 PRINT > 3760 PRINT"THIS IS CHARACTER #[";CC;"]" > 3770 PRINT > 3780 INPUT"DO YOU WANT THIS CHARACTER(Y/N)";D$ > 3790 IF D$="N"THEN 1320 > 3800 IF D$="Y"THEN 3790 > 3810 CC=0 > 3820 REM*************************** > 3830 REM OTHER CHARACTER DATA IS INPUT > 3840 REM*************************** > 3850 PRINT CHR$(12) > 3860 PRINT:PRINT:PRINT > 3870 INPUT"WHAT IS CHARACTER'S NAME";NA$ > 3880 PRINT > 3890 INPUT"WHAT IS CHARACTER'S RACE";RA$ > 3900 PRINT > 3910INPUT"WHAT IS CHARACTER'S GENDER";SE$ > 3920 PRINT > 3930 INPUT"WHAT IS CHARACTER'S CLASS";CL$ > 3940 PRINT CHR$(12) > 3950 REM*************************** > 3960 REM CHARACTER'S GOLD CALCULATED > 3970 REM*************************** > 3980 PRINT:PRINT > 3990 LET M1=INT((RND(1)*6)+1) > 4000 LET M2=INT((RND(1)*d)+1) > 4010 LET M3=INT((RND(1)*6)+1) > 4020 LET MT=M1+M2+M3 > 4030 LET GC=(10 * MT) > 4035 REM > 4040 REM*************************** > 4050 REM SEPARATION BY RACE/CLASS FOR > 4060 REM FINAL DATA CALCULATIONS. > 4070 REM*************************** > 4075 REM > 4080 IF CN=1 THEN GOSUB 5470 > 4090 IF CN=2 THEN GOSUB 6130 > 4095 IF CN=3 THEN GOSUB 5580 > 4096 IF CN=4 THEN GOSUB 5690 > 4100 IF CN=5 THEN GOSUB 5800 > 4110 IF CN=6 THEN GOSUB 5910 > 4128 IF CN=7 THEN GOSUB 6020 > 4130GOSUB 4510 > 4140PRINT > 4150REM******************************** > 4160 REM 'END' OR 'CONTINUE' AND CLOSE > 4170REM*************************** > 4180INPUT"ANOTHER CHARACTER (Y/N)";GB$ > 4190IF GB$="Y" THEN 1320 > 4200PRINT CHR$(12) > 4210PRINT:PRINT:PRINT:PRINT:PRINT > 4228PRINT " THANKS FOR USING ME!" > 4230PRINT > 4240PRINT"IF YOU CHANGE YOUR MIND AND" > 4250PRINT"WANT ANOTHER CHARACTER,JUST" > 4260PRINT"ENTER THE WORD 'RUN' - BYE." > 4270 CLEAR > 4280END > 4290PRINT > 4300REM*************************** > 4310REM SUBROUTINE TO CALCULATE HIT PTS > 4320REM*************************** > 4330Y=Y+1 > 4340 PS=INT((RND(1) * HF)+1) > 4350PS(Y)=PS > 4360IF Y <> LL THEN 4330 > 4370 FOR Y=0 TO LL-1 > 4380 PS=PS+PS(Y) > 4390NEXT Y > 4400PT=PS + PF > 4410IF PT=<0 THEN 4430 > 4420GOTO 4440 > 4430PT=LL > 4440PRINT "YOUR CHARACTER WOULD HAVE";PT;"HIT POINTS!" > 4450PRINT > 4460Y=0 > 4470RETURN > 4480REM*************************** > 4490 REM RECAP DISPLAY BEGINS > 4500REM*************************** > 4510PRINT CHR$(12) > 4520PRINT > 4530 PRINT"RECAP OF CHARACTER ABILITIES" > 4540PRINT > 4550PRINT "NAME....";NA$ > 4560PRINT "RACE....";RA$;TAB(22)" HIT DICE: " ;LL > 4570PRINT "GENDER..";SE$ > 4580PRINT "CLASS...";CL$;TAB(22)" HIT POINTS: *;PT > 4590PRINT "LEVEL...";LL > 4600PRINT > 4610PRINT "N O T E !! COPY THIS AND THE INFORMATION" > 4620 PRINT "THAT FOLLOWS TO THE CHARACTER" > 4630 PRINT "RECORD SHEET. IT WILL NOT BE" > 4640PRINT "AVAILABLE AGAIN!" > 4650PRINT > 4660INPUT"TO CONTINUE,ENTER A ONE(1)";KK > 4670 ON KK GOTO 4680 > 4680 PRINT CHR$(12) > 4690 PRINT NA$;"'S STRENGTH IS.. . . . .";ST > 4700 IF SF=0 THEN 4720 > 4710 PRINT "*ADD";SF;"TO ROLL TO:'HIT,DAMAGE,OPEN DOORS" > 4720PRINT NA$;"'S CONSTITUTION IS..";CO > 4730 > PRINT NA$;"'S INTELLIGENCE IS..";IN > 4740 IF > CN=2 THEN PRINT IZ$ > 4750 PRINT I$ > 4760PRINT NA$;"'S DEXTERITY IS....";DX > 4770 IF DF=0 THEN 4800 > 4780PRINT "*ADD";DF;"TO MISSILE FIRE ROLLS 'TO HIT'" > 4790 PRINT "*";X1$;X2$;X3$;" ARMOR CLASS." > 4800PRINT NA$;"'S WISDOM IS.......";WI > 4810 IF WF=0 THEN 4830 > 4820PRINT "*ADD*";WF;"TO ROLL-MAGIC BASED SAVING THROWS" > 4830PRINT NA$;"'S CHARISMA IS......";CH > 4840PRINT "*CHAR MAY HAVE";XF;"RETAINERS - MORALE OF";XF > 4850 IF CN=3 THEN 4900 > 4860GOTO 4960 > 4870REM*************************** > 4880REM DISPLAYS CLERIC'S SKILLS > 4890REM*************************** > 4900 PRINT CZ$:PRINT CU$ > 4910 IF CN=3 AND LL=1 THEN PRINT Z1$ > 4920 IF CN=3 AND LL=2 THEN PRINT Z2$ > 4930 If CN=3 AND LL=3 THEN PRINT Z3$ > 4940IF CN=3 AND LL=4 THEN PRINT Z4$ > 4950IF CN=3 AND LL=5 THEN PRINT Z5$ > 4960 IF CN=7 THEN 5010 > 4970GOTO 5070 > 4980REM*************************** > 4990REM DISPLAYS THIEF'S SKILLS > 5000REM*************************** > 5010PRINT TY$:PRINT TA$:PRINT TB$ > 5020IF CN=7 AND LL=1 THEN PRINT K1$ > 5030 IF CN=7 AND LL=2 THEN PRINT K2$ > 5040 IF CN=7 AND LL=3 THEN PRINT K3$ > 5050 IF CN=7 AND LL=4 THEN PRINT K4$ > 5060 IF CN=7 AND LL=5 THEN PRINT K5$ > 5070INPUT"TO CONTINUE,ENTER A ONE(1)";PK > 5080 ON PK GOTO 5120 > 5090REM*************************** > 5100REM DISPLAYS SAVING THROW TABLE > 5110REM*************************** > 5120PRINT CHR$(12):PRINT > 5130PRINT "SAVING THROW TABLE" > 5140 PRINT"DEATH ::PARALYSIS:: RODS" > 5150PRINT"RAY OR:MAGIC: OR TURN :DRAGON:STAVES" > 5160PRINT"POISON:WANDS:TO STONE :BREATH:OR SPELLS" > 5170PRINT"------:-----:---------:--------:---------" > 5180PRINT ST$ > 5190PRINT P1$ > 5200PRINT P2$ > 5210PRINT P3$ > 5220PRINT P4$ > 5230PRINT P5$ > 5240REM*************************** > 5250 REM DISPLAYS PLAYER'S GOLD SUPPLY > 5260REM*************************** > 5270PRINT "THIS CHARACTER HAS[";GC;"] GOLD PIECES." > 5280RETURN > 5290REM*************************** > 5300REM DISPLAYS WISDOM ADJUSTMENTS > 5310REM*************************** > 5320X1$="ADD " :X2$="3":X3$=" TO" > 5330RETURN > 5340X1$="ADD " :X2$="2" :X3$=" TO" > 5350RETURN > 5360X1$="ADD * :X2$=" 1 " :X3$=" TO" > 5370RETURN > 5380X1$="SUBTRACT " :X2$="1":X3$=" FROM" > 5390RETURN > 5400 X1$="SUBTRACT " :X2$="2":X3$=" FROM" > 5410RETURN > 5420X1$="SUBTRACT " :X2$="3":X3$=" FROM" > 5430RETURN > 5440REM*************************** > 5450REM SAVING THROW & MISC.-FIGHTER > 5460REM*************************** > 5470IF LL < 4 THEN ST$="..12....13......14.......15......16 > 5480IF LL > 3 AND LL < 6 THEN > ST$=...10....11......12.......13......14. > 5490P1$="MAY WEAR ANY ARMOR AND USE SHIELD." > 5500P2$="MAY USE ANY WEAPON." > 5510P3$=" " > 5520P4$="NO SPELLS, BUT MAY USE MAGIC ARTICLE." > 5530P5$=" " > 5540RETURN > 5550REM*************************** > 5560REM SAVING THROW & MISC.-CLERIC > 5570REM******************************** > 5580IF LL < 5 THEN ST$="..11....12......14.......16......15" > 5590IF LL=5 THEN ST$="...9....10......12.......14......12" > 5600P1$="MAY NOT USE EDGED WEAPONS." > 5610P2$="MAY WEAR ANY ARMOR AND USE SHIELD. " > 5620P3$="MAY USE SLING " > 5630P4$="HAS ABILITY TO 'TURN' UNDEAD.' > 5640P5$="USES CLERICAL SPELLS ONLY. " > 5650RETURN > 5660REM*************************** > 5670 REM SAVING THROW & MISC.- HALFLING > 5680REM*************************** > 5690 IF LL < 4 THEN ST$="...8.....9......10.......13......12" > 5700IF LL > 3 AND LL < 6 THEN > ST$="...6.....7.......8.......10......10" > 5710P1$="CANNOT USE LONGBOW OR 2 HANDED SWORD." > 5720P2$="ADJUST MISSILE ATTACK 'TO HIT' BY +1." > 5730P3$="ADJ AC BY -1 VS. MORE THAN MAN-SIZE OPP." > 5740P4$="ONLY 10% CHANCE OF DETECTION IN WOODS." > 5750P5$="REMAINS UNSEEN IN DUNGEON ON 1-2 (1D6)" > 5760RETURN > 5770REM*************************** > 5780REM SAVING THROW & MISC. - ELF > 5790REM*************************** > 5800IF LL < 4 THEN ST$="..12....13......13.......15......15" > 5810IF LL > 3 AND LL < 6 THEN > ST$="..18....11......11.......13......12" > 5820P1$="HAS 60' INFRA-VISION." > 5830 P2$="DETECTS OR SECRET DOORS ON 1-2(1D6)." > 5840 P3$="IMMUNE TO PARALYSIS FROM GHOUL ATTACK." > 5850 P4$="SPEAKS ELVISH,ORC,HOB-GOBLIN,AND GNOLL." > 5860 P5$="MAY USE SPELLS AND MAGIC ARTICLES." > 5870RETURN > 5880REM*************************** > 5890 REM SAVING THROW & MISC. - DWARF > 5900REM*************************** > 5910IF LL < 4 THEN ST$="...8.....9......10.......13......12" > 5920IF LL > 3 AND LL < 6 THEN > ST$="...6.....7.......8.......10. . . ...10" > 5930P1$="HAS 60' INFRA-VISION." > 5940 P2$="DET'S TRAPS,DUNGEON ANOMALIES,@ 1-2(1D6)" > 5950P3$="SPEAKS DWARVISH,GNOME,KOBOLD,AND GOBLIN." > 5960P4$="MAY NOT USE A LONGBOW OR 2-HANDED SWORD." > 5970P5$=" " > 5980RETURN > 5990REM*************************** > 6000REM SAVING THROW & MISC. - THIEF > 6010REM*************************** > 6020IF LL < 5 THEN ST$=...13....14......13.......16......15" > 6030IF LL=5 THEN ST$="..12....13......11.......14......13 > 6040P1$="LEATHER ARMOUR ONLY-NO SHIELD" > 6050P2$="BACKSTABBING ADDS +4 TO 'TO HIT' ROLL" > 6060P3$="BACKSTABBING DOES TWICE NORMAL DAMAGE" > 6070 P4$="SEE TABLE FOR OTHER SKILLS." > 6080P5$=" " > 6090RETURN > 6100REM*************************** > 6110REM SAVING THROW & MISC.-MAGIC USER > 6120REM*************************** > 6130ST$=" 13 14 13 16 15" > 6140 P1$="MAY NOT USE A SHIELD OR WEAR ARMOR." > 6150 P2$="MAY USE ONLY A DAGGER AS A WEAPON." > 6160 P3$="CHECK INTELLIGENCE FOR ABILITY TO" > 6170 P4$="LEARN SPELLS AND # OF SPELLS/LEVEL" > 6180P5$=" " > 6190RETURN >
