0 REM Dragon #49 Time Keeper Program PV 1 CLS: PRINT "WANDERING MONSTER (LEV. 1-3) / TIME KEEPING PROGRAM" 3 PRINT: PRINT "ENTER TIME OF DAY FOR ADVENTURE BASED ON 24 HOUR CLOCK" 5 PRINT: INPUT "ENTER AS HOUR (1-24), MINUTES (1-59) - USE COMMA"; HH, TM 7 IF HH > 24 OR TM > 59 THEN 1 9 PRINT: PRINT "PRESS ONE OF THE FOLLOWING FOR TIME KEEPING..." 11 INPUT "S = (1 SEGMENT), R = (1 ROUND), T = (1 TURN)"; Al$ 13 IF Al$ = "S" OR Al$ = "R" OR Al$ = "T" THEN 15 ELSE 13 15 T1 = 0: T2 = 0: T3 = 0 17 IF Al$ = "S" THEN T1 = 6 ELSE 21 19 SC = SC + Tl: IF SC = 60 THEN SC = 0: TM = TM + 1 21 IF Al$ = "R" THEN T2 = 1 ELSE 25 23 MI = MI + T2 25 IF Al$ = "T" THEN T3 = 10: TM = TM + T3 27 IF (TM + MI) > = 60 THEN TM = TM - 60: HH = HH + 1 29 IF HH > 23 THEN HH = 0 33 PRINT: PRINT "TIME IN ADVENTURE ";HH;":";(TM + MI);". ";SC: PRINT 35 IF (TM + MI) > 29 AND (TM+MI) < 40 THEN Y = Y + 1 37 IF (TM + MI) > 0 AND (TM + MI) < 10 THEN Y = Y + 1 39 IF (TM + MI) > 10 AND (TM + MI) < 30 THEN Y = 0 41 IF (TM + MI) > 39 THEN Y = 0 43 IF Y= 1 THEN 50 ELSE 11 50 M = RND(6): IF M < 6 THEN 11 60 PRINT: INPUT "LEVEL BELOW SURFACE";L: RESTORE: P =RND(12) 70 PRINT: ON L GOTO 1000, 2000, 3000 80 Q = RND(12): FOR I = 1 TO Q: READ M$,N,T,H,A,C,D,S:NEXT I 90 B = RND(N)*T 100 PRINT M$: PRINT "NUMBER APPEARING:";B 110 PRINT "HIT POINTS:";: FOR I = 1 TO B: PRINT RND(H) + A;:NEXT I: PRINT 120 PRINT "ARMOR CLASS:";C 130 PRINT "MAX. HIT DAMAGE:";D 140 IF S = 0 THEN 9 150 PRINT "INTELLIGENT MONSTER REACTION:"; 160 R = RND(6)*2 170 IF R = 2 THEN PRINT "ATTACKS IMMEDIATELY!": GOTO 9 180 IF R < 6 THEN PRINT "HOSTILE REACTION": GOTO 9 190 IF R < 9 THEN PRINT "UNCERTAIN": GOTO 9 200 IF R < 12 THEN PRINT "FRIENDLY": GOTO 9 210 IF R = 12 THEN PRINT "VOLUNTEERS HELP": GOTO 9 220 END 1000 IF P < 9 THEN 80 1010 IF P = 12 THEN FOR I = 1 TO 192: READ A$: NEXT I:GOTO 80 1020 FOR I = 1 TO 96: READ A$: NEXT I: GOTO 80 2000 IF P < 4 THEN 80 2010 IF P < 10 THEN FOR I = 1 TO 96: READ A$: NEXT I: GOTO 80 2020 FOR I = 1 TO 192: READ A$: NEXT I: GOTO 80 3000 IF P = 1 THEN 86 3010 IF P < 5 THEN FOR I = 1 TO 96: READ A$: NEXT I: GOTO 80 3020 FOR I = 1 TO 192: READ A$: NEXT I: GOTO 80 4100 DATA KOBOLD,4,3,4,0,7,4,1,SEER,2,1,8,0,9,8,1 4110 DATA ORC,5,1,8,0,7,6,1,SKELETON,6,1,4,0,8,6,0 4120 DATA GIANT RAT,4,3,4,0,7,4,0,ZOMBIE,4,1,8,0,8,8,0 4130 DATA BANDIT.5,1,8,0,6,6,1,GIANT SPIDER,3,1,4,1,8,4,0 4140 DATA STIRGE,5,1,4,0,7,3,0,FOOTPAD,4,1,8,0,7,6,1 4150 DATA ELF,6,1,6,0,5,10,1,GELATINOUS CUBE, 1,1,24,0,8,8,0 4160 DATA HOBGOBUN,5,4,84,6,8,l,GNOLL,5,1,16,0,5,12,0 4170 DATA GIANT TOAD,6,1,12,1,7,6,0.GHOUM442,0,6,3,0 4180 DATA WARRIOR,5,13,0,4,84.CONJURER,4,1,12,0,9,84 4190 DATA SHAMAN^4,14,0,5^,1,ROBBER I 4442,0,4,8,1 4200 DATA LEPRECHAUN,4,2,4,0,8,4,1 ,RUST MONSTER,l,l,20,0,2,0,0 4210 DATA PIERCER,6,1,8,0,3,6,0,CARRION CRAWLER,1448,1,7,0,0, 4220 DATA BUGBEAR,4,2,18,1,5,8,0,OGRE,4,1,24,1,6,10,1 4230 DATA WIGHT,3,1,18,0,5,0,0,HARPY,3,1,18,0,7,4,0 4240 DATA TROLL4436.3,6,6,0,WERERAT,4,1,12,0,7,6,0 4250 DATA OCHRE JELLY,U,30,0,8,12,0,DWARF,6,3,8,0,4,84 4260 DATA WEREWOLF,2,1,24,0,53,0,GIANT TICK,5,148,0,4,4,0 4270 DATA GIANT SNAKE,2,1,32,0,5,10,0.SHRIEKER,4,2,24,0,7, 8,0
On Sat, 18 Jan 2020 at 19:08, Ariel Millennium Thornton <[email protected]> wrote: > > The Internet Archive has OCR text scans of Dragon Magazine issues, > including #80: > > https://ia803109.us.archive.org/8/items/DragonMagazine260_201801/DragonMagazine080_djvu.txt > > It needs the usual clean-up from scan errors, but it doesn't look like > too much. > > In case the URL changes or gets mangled in the mail, I got there from > https://archive.org/stream/DragonMagazine260_201801/DragonMagazine080 > then clicking on the "PDF/ePub" button, then clicking on "Plain Text" > in the Select Download Format box. > > On Sat, 18 Jan 2020 17:51:25 -0800, Peter Vollan wrote: > > > There is a fairly useful looking program called Dungeon Master's > > Familiar in Dragon #80, page 17. Unfortunately I have not been able to > > copy the text the way I did with those other programs, the pdf is just > > not made in the same way. Could anyone out here somehow scan it? > > Or.... did anyone type it in, old school?
