Leadin Program

From Eamon Wiki
(Redirected from Leadin program)
Jump to navigation Jump to search
This is a Class A (gold star) article.

The Leadin Program, known on ProDOS disks as the Intro Program, is part of all standard Eamon adventures. Written in Applesoft BASIC, it runs before the Main Program and normally serves to introduce the adventure, acting as a kind of prologue to the principal, interactive portion of the story. The program may also give notes from the author, special instructions, or tips before the adventure begins.

Its filename in the DOS 3.3 Eamon Dungeon Designer is LEADIN PROGRAM, which the author renames for their adventure (e.g., THE TEMPLE OF NGURCT).

Its filename in the ProDOS designer is EAMON.000.INTRO, which is renamed for the finished adventure to use the correct adventure number.

Once the Leadin Program is complete, it runs the adventure's Main Program.

Example

The following is the complete code of the file SORCEROR'S SPIRE from the adventure Sorceror's Spire by John Nelson.

1  REM     THE DARK SPIRE 
2  REM     BY JOHN NELSON
3  REM 
4  REM  (A.K.A. SORCEROR'S SPIRE)
10 D$ =  CHR$ (4): TEXT 
20  PRINT D$"OPEN FRESH MEAT": PRINT D$"READ FRESH MEAT": INPUT REC: INPUT NAME$: PRINT D$"CLOSE"
30  HOME : PRINT D$"OPEN EAMON.NAME": PRINT D$"READ EAMON.NAME": INPUT ADV$: PRINT D$"CLOSE": INVERSE :L1 =  INT ((40 -  LEN (ADV$)) / 2):L2 = 40 -  LEN (ADV$) - L1
40  GOSUB 8500
100  REM  >> PRINT DESCRIPTION
110  PRINT "YOU WERE AWAKENED FROM YOUR SPOT  BEHIND": PRINT "THE STABLES BY A LOCAL BOY RUNNING ABOUT": PRINT "AND SHOUTING. GETTING UP TO SEE WHAT THE"
120  PRINT "BIG RUCKUS WAS ABOUT, YOU FOUND OUT THAT": PRINT "A MAN HAD JUST CRAWLED INTO TOWN ALL BUT": PRINT "DEAD, AND MUMBLING INCOHERENTLY. YOU SET"
130  PRINT "OUT TO INVESTIGATE,  FINDING THE  MAN AT": PRINT "THE DOCTOR'S HOUSE.": PRINT 
140  PRINT "YOU FINALLY CONVINCE THE DOCTOR TO ALLOW": PRINT "YOU TO SEE HIM."
150  GOSUB 8000
160  PRINT "WALKING INTO THE BACK ROOM, YOU FIND THE": PRINT "MAN SEVERELY BURNED AND DAMAGED, BUT NOT": PRINT "BY ANY CONVENTIONAL WEAPON YOU HAVE EVER"
170  PRINT "SEEN.   THE DOCTOR SAYS HE SEEMS TO HAVE": PRINT "BEEN BURNED BY SOME KIND OF ENERGY OF  A": PRINT "MYSTICAL ORIGIN UNLIKE ANYTHING HE  EVER"
180  PRINT "SAW BEFORE. HE SAYS THE MAN MUTTERED TWO": PRINT "WORDS OVER AND OVER AGAIN BEFORE FALLING": PRINT "INTO A DEEP SLEEP."
190  GOSUB 8000: PRINT : PRINT "THE TWO WORDS  HE WAS  REPEATING DID NOT": PRINT "MAKE TOO MUCH SENSE.   THEY SEEMED TO BE": PRINT " 'DESTRAX' AND 'ANTIMAG'.": PRINT 
210  PRINT "THE MAN ALSO WAS MUMBLING ABOUT THE DARK": PRINT "SPIRE.": PRINT : PRINT "THE DARK SPIRE WAS ALSO CALLED SORCERORS": PRINT "SPIRE AND WAS SUPPOSED TO BE THE BEST OF"
220  PRINT "ALL THE WIZARD AND SORCEROR'S SCHOOLS IN": PRINT "THE LAND.  IT WAS RUN BY A VERY KIND OLD": PRINT "MAGE BY THE NAME OF XANDAR THE GREAT.  A"
225  GOSUB 8000
230  PRINT "COUPLE OF YEARS AGO THERE WAS A RUMOR OF": PRINT "XANDAR DYING  AND  THAT  THERE WOULD  BE": PRINT "A GREAT POWER STRUGGLE TO SEE WHO  WOULD"
240  PRINT "BECOME THE NEW LEADER OF THE SCHOOL.  IT": PRINT "WAS A VERY IMPORTANT  POSITION,  BECAUSE": PRINT "EXTENSIVE  MYSTICAL RESEARCH WAS DONE AT"
250  PRINT "THE SCHOOL. IT WAS THE EQUIVALENT OF ANY": PRINT "UNIVERSITY, BUT SPECIALIZED IN MAGIC.": PRINT 
255  GOSUB 8000
260  PRINT "IT WAS RUMORED THAT XANDAR FEARED SUCH A": PRINT "POWER STRUGGLE AND WAS TRYING TO PERFECT": PRINT "AN IMMORTALITY SPELL. IT IS NOT KNOWN IF"
270  PRINT "HE EVER SUCCEEDED.": GOSUB 8000
280  PRINT "BEING SHORT ON SENSE AND LONG ON GUTS, ": PRINT : PRINT "YOU DECIDE TO GO TO THE SPIRE TO SEE  IF": PRINT "YOU CAN FIND OUT WHAT IS GOING ON."
5000  PRINT "GOOD LUCK, ";NAME$;".": PRINT D$"RUN MAIN PGM"
8000  VTAB 24: INVERSE : PRINT  SPC( 7);"PRESS ANY KEY TO CONTINUE"; SPC( 7);: GET A$: PRINT 
8500  HOME : INVERSE : PRINT  SPC( L1);ADV$; SPC( L2): NORMAL : PRINT 
8510  RETURN

See also