Is this from the issue with the big breasted lady reading a crystal globe on the front? I think I may even have that issue around here.... Kudos for sharing this!
On Tue, Jan 7, 2020 at 8:13 PM Jason Paul <havel...@gmail.com> wrote: > 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 >> >
