'MODULE 0 MAIN ******HANGTOWN****** 10-3-90
'MULTIPLE REVISIONS ON 1-25-91
'GOLD HINT BURN HINT KEY HINT REVEAL HINT RESTORE 30 6MAR92
'TIMER AND STRT CHANGE 2-3-94
'TIME$, DATE$, AND SAVE GAME FIX 7-30-95
'SNIp fixes 1-3-96
'REPORT STUFF 3-5-96 HANGDATA.TXT 10-24-96
CLS:DIM FLAG(30),OBJ$(18),OBJ2$(18)
STRT=TIMER
CALL LOGON
LOCATE 12,12:PRINT "ONE MOMENT PLEASE...."
CALL SETUP 'MODULE 1 SET UP VARIABLES
CALL TURN 'MODULE 2 RUN TURNS
CALL CLOSING 'MODULE 3 END OF GAME STUFF
END
'MODULE 0.1 LOGON
SUB LOGON
SHARED ANSWER$()
DIM ANSWER$(305)
INPUT "YOUR NAME-NUMBER PLEASE";ANSWER$(0)
LET ANSWER$(0)=ANSWER$(0)+" "+TIME$+" "+DATE$
END SUB
'MODULE 1 SETUP
SUB SETUP
CALL ROOMINFO 'MODULE 1.1 READ ROOM INFORMATION
CALL ROOMOBJECTS 'MODULE 1.2 READ ROOM OBJECTS
CALL MOVEMENTTABLE 'MODULE 1.3 READ MOVEMENT TABLE
CALL INVENTORY 'MODULE 1.4 INITIALIZE INVENTORY ARRAY
' TO AN EMPTY LIST
CALL OTHERS 'MODULE 1.5 INITIALIZE OTHER VARIABLES
END SUB
'MODULE 1.1 ROOMINFO
SUB ROOMINFO
SHARED DESCRIPTION$(),NUMBERROOMS,DESCRIBEFLAG(),ROOMDESCRIBE$(),ROOMDES2$()
READ NUMBERROOMS
DIM DESCRIPTION$(NUMBERROOMS),DESCRIBEFLAG(NUMBERROOMS),ROOMDESCRIBE$(NUMBERROOMS)
DIM ROOMDES2$(NUMBERROOMS)
FOR I = 1 TO NUMBERROOMS
READ DESCRIPTION$(I)
NEXT I
DATA 33, LEDGE just inside WELL*, RATTLESNAKE WELLS, HANGTOWN SQUARE, SCAFFOLD, SANDY DESERT
DATA LAST CHANCE SALOON, STREET, HARDROCK JAIL, STEEP'S TEA ROOM, STREET, GOLDEN WELL* HOTEL
DATA DOCTOR'S OFFICE, STREET, LIVERY STABLE, PASTURE, STREET, LIMPING HORSE CORRAL
DATA MINER'S SHACK, STREET, FIELD, TOP OF BOULDER, CELLAR, MINESHAFT, MINESHAFT
DATA MINESHAFT, MINESHAFT, MINESHAFT, MINESHAFT, MINESHAFT, MINESHAFT, MINESHAFT
DATA MINESHAFT, RANGE
FOR I=1 TO NUMBERROOMS
LET DESCRIBEFLAG(I)=1
LET ROOMDESCRIBE$(I)="EMPTY"
LET ROOMDES2$(I)="EMPTY"
NEXT I
FOR I=1 TO 15
READ DESCRIBEROOM
LET DESCRIBEFLAG(DESCRIBEROOM)=0
READ ROOMDESCRIBE$(DESCRIBEROOM)
READ ROOMDES2$(DESCRIBEROOM)
NEXT I
DATA 2,"Your blood chills with fear at the sight of the huge and horrible"
DATA "RATTLESNAKE guarding the WELL. You know that one of you must die!"
DATA 3,"Curiously, you find yourself in the TOWN SQUARE of a dry, dusty,"
DATA "apparently deserted gold rush town."
DATA 4,"You stand at the top of a gruesome SCAFFOLD. The hangperson"
DATA "left his/her well-worn noose here. Is this a PC PC or what?"
DATA 5,"The DESERT seems to stretch out forever to the EAST."
DATA "It's hard to walk in the soft sand."
DATA 6,"As you enter the aroma that greets you isn't the stale smoke and "
DATA "whiskey smell you expected. You feel magic in the air here."
DATA 7,"From the STREET you can see the town JAIL to the EAST. "
DATA "You wonder why the JAIL door was left locked."
DATA 9,"An elegantly-dressed but crabby-looking ENGLISHMAN looks at you as"
DATA "you enter the TEA ROOM, then turns away. He needs a nice CUP of TEA."
DATA 10,"All you can see to the SOUTH are hoof prints and wagon ruts,"
DATA "frozen forever in the hard-baked dirt of the town STREET."
DATA 11,"The curiously named HOTEL looks pretty run down. "
DATA "Hopefully, you won't have to spend the night here."
DATA 12,"You can almost hear the elevator music in the DOCTOR'S OFFICE. "
DATA "You see all of the earliest issues of INVESTMENT MAGAZINE."
DATA 13,"The ROCK you see in the STREET could do a lot of damage if"
DATA "thrown accurately."
DATA 14,"With HAY on the floor, the LIVERY STABLE looks more comfortable"
DATA "than the HOTEL. There is a small milk-pail here, but no COW."
DATA 15,"Here in the PASTURE is the most pathetic COW you've ever seen. "
DATA "GET her some food before it's too late!"
DATA 17,"Here in the LIMPING HORSE CORRAL you see some SUGAR cubes that"
DATA "are still in good condition. Horses love 'em."
DATA 20,"Here in the FIELD is a huge BOULDER with sheer walls. To"
DATA "CLIMB it, You'll need something to stand upon."
END SUB
'MODULE 1.2 ROOM OBJECT INFORMATION
SUB ROOMOBJECTS
SHARED ROOMOBJECT$(),NUMBERROOMS
DIM ROOMOBJECT$(NUMBERROOMS,15)
FOR I=1 TO NUMBERROOMS
FOR J=1 TO 15
LET ROOMOBJECT$(I,J)="EMPTY"
NEXT J
NEXT I
END SUB
'MODULE 1.3 MOVEMENTTABLE
SUB MOVEMENTTABLE
SHARED MOVEMENTTABLE(),NUMBERROOMS
DIM MOVEMENTTABLE(NUMBERROOMS,6)
FOR I=1 TO NUMBERROOMS
FOR J = 1 TO 6
READ MOVEMENTTABLE(I,J)
NEXT J
NEXT I
DATA 0,0,0,0,2,0,0,0,3,0,0,0,0,7,5,2,4,0
DATA 0,0,0,0,0,3,0,0,5,3,0,0,0,0,7,0,0,0
DATA 3,10,8,6,0,0,0,0,0,7,0,0,0,0,10,0,0,0
DATA 7,13,11,9,0,0,0,0,0,10,0,0,0,0,13,0,0,0
DATA 10,16,14,12,0,0,0,0,0,13,0,0,0,0,16,0,0,0
DATA 13,19,17,15,0,0,0,0,0,16,0,0,0,0,19,0,0,0
DATA 16,33,20,18,0,0,0,0,0,19,0,0,0,0,0,0,0,20
DATA 0,0,0,0,18,25,0,27,24,0,0,0,0,28,25,23,0,0
DATA 0,29,26,24,22,0,0,30,0,25,0,0,23,31,28,0,0,0
DATA 24,0,28,27,0,0,25,32,30,28,0,0,26,0,0,29,0,0
DATA 27,0,0,0,0,0,29,0,0,0,0,0,19,0,0,0,0,0
END SUB
'MODULE 1.4 INVENTORY
SUB INVENTORY
SHARED INVENTORY$()
DIM INVENTORY$(5)
FOR I=1 TO 5
LET INVENTORY$(I)="EMPTY"
NEXT I
END SUB
'MODULE 1.5 OTHERS
SUB OTHERS
SHARED GAMESTATE$,ROOM,TURNNUMBER,ROOMOBJECT$(),THING$,INVENTORY$(),_
FLAG(),OBJ$(),OBJ2$(),DESCRIBEFLAG(),ROOMDESCRIBE$(),ROOMDES2$(),_
CONVERTNUM
LET ROOM = 3 'START IN HANGTOWN SQUARE
LET TURNNUMBER =0
DANGEROUS=1
LET THING$=""
FOR I=1 TO 30:LET FLAG(I)=0:NEXT I 'SET FLAGS TO 0
'FLAG # MEANING OF 0 FLAG# MEANING OF 0
' 1 GAME NOT OVER 2 DOG NOT GONE
'FOR 1, 1 MEANS GAME WON -1 GAME LOST 2 MEANS GAME QUIT
' 3 SNAKE NOT KILLED 4 TEA NOT MADE
' 5 COW NOT FED 6 JAIL DOOR LOCKED
' 7 LANTERN NOT CARRIED 8 KITTEN NOT FED
' 9 THORN NOT OUT 10 KETTLE NOT FILLED
'11 BUCKET EMPTY 12 ROPE NOT TIED TO BUCKET
'13 SAFE HINGE NOT OILED 14 NOT CHASED BY DOG
'14 IS USED TO EXIT TURN BUT NOT EXIT THE GAME
'15 SAFE NOT OPENED 16 SILVER NOT DUG
'17 KEY NOT DUG 18 EMERALD NOT DROPPED
'19 ROOM NOT DANGEROUS 20 NEVER BEEN TO LANTERN ROOM22
'21 COYOTE HINT NOT GIVEN 22 COFFEE NOT NAMED
'23 PAIL NOT FILLED WITH MILK 24 2ND DOG HINT NOT GIVEN
'25 GOLD HINT NOT GIVEN 26 KEY HINT NOT GIVEN
LET ROOMOBJECT$(1,1)="GOLD!" 'STARTING LOCATIONS FOR OBJECTS
LET ROOMOBJECT$(2,1)="WELL*"
LET ROOMOBJECT$(2,2)="SNAKE"
LET ROOMOBJECT$(2,3)="BUCKET"
LET ROOMOBJECT$(3,1)="SIGN*"
LET ROOMOBJECT$(4,1)="ROPE"
LET ROOMOBJECT$(5,1)="EMPTYKEY"
LET ROOMOBJECT$(6,1)="KETTLE"
LET ROOMOBJECT$(6,2)="SIGN*"
LET ROOMOBJECT$(6,3)="EMPTYMIRROR*"
LET ROOMOBJECT$(6,4)="EMPTYSILVER!"
LET ROOMOBJECT$(7,1)="DOOR*"
LET ROOMOBJECT$(8,1)="CUP"
LET ROOMOBJECT$(9,1)="STOVE*"
LET ROOMOBJECT$(9,2)="SIGN*"
LET ROOMOBJECT$(9,4)="CHAIR"
LET ROOMOBJECT$(9,5)="EMPTYEMERALD!"
LET ROOMOBJECT$(10,1)="EMPTYRUBY!"
LET ROOMOBJECT$(11,1)="SAFE*"
LET ROOMOBJECT$(11,2)="EMPTYJADE!"
LET ROOMOBJECT$(11,3)="MATCHES"
LET ROOMOBJECT$(12,1)="MAGAZINES"
LET ROOMOBJECT$(12,2)="TWEEZERS"
LET ROOMOBJECT$(12,3)="MINERAL-OIL"
LET ROOMOBJECT$(13,1)="ROCK"
LET ROOMOBJECT$(14,1)="SHOVEL"
LET ROOMOBJECT$(14,2)="HAY"
LET ROOMOBJECT$(14,3)="PAIL"
LET ROOMOBJECT$(15,1)="COW*"
LET ROOMOBJECT$(17,1)="SUGAR"
LET ROOMOBJECT$(18,1)="TEA"
LET ROOMOBJECT$(18,2)="CELLAR*"
LET ROOMOBJECT$(20,1)="BOULDER*"
LET ROOMOBJECT$(21,1)="MAP"
LET ROOMOBJECT$(22,1)="LANTERN"
LET ROOMOBJECT$(31,1)="EMPTYDIAMONDS!"
LET ROOMOBJECT$(33,1)="EMPTYTURQUOISE!"
LET CONVERTNUM=18
FOR I=1 TO CONVERTNUM 'READ IN WORD!* CONVERSIONS
READ OBJ$(I),OBJ2$(I)
NEXT I
DATA GOLD,GOLD!,WELL,WELL*,SIGN,SIGN*,DOOR,DOOR*,STOVE,STOVE*,EMERALD,_
EMERALD!,RUBY,RUBY!,DIAMONDS,DIAMONDS!,COW,COW*,CELLAR,CELLAR*,_
BOULDER,BOULDER*,JADE,JADE!,SILVER,SILVER!,TURQUOISE,TURQUOISE!,_
MINERAL,MINERAL-OIL,OIL,MINERAL-OIL,SAFE,SAFE*,MIRROR,MIRROR*
END SUB
'MODULE 2 TURN
SUB TURN
SHARED FLAG(),TURNNUMBER
DO UNTIL FLAG(1) <> 0
FLAG(14)=0
TURNNUMBER = TURNNUMBER + 1
IF TURNNUMBER=295 THEN BEEP 3:_
PRINT "Type SAVE GAME and then QUIT":_
PRINT "You can then return to this spot by typing":_
PRINT "HANGTOWN (at the DOS prompt) and later,":_
PRINT "as a command, RESTORE GAME":_
PRINT "Please forgive the necessary inconvenience."
IF TURNNUMBER=300 THEN FLAG(1)=2
CALL DESCRIBE 'MODULE 2.1 DESCRIBE THE ROOM
CALL COMMANDS 'MODULE 2.2 INPUT THE COMMANDS
CALL EVALUATE 'MODULE 2.3 EVALUATE COMMANDS
LOOP
END SUB
'MODULE 2.1 DESCRIBE THE CURRENT ROOM
SUB DESCRIBE
SHARED DESCRIPTION$(),ROOM,MOVEMENTTABLE(),ROOMOBJECT$(),FLAG(),_
TURNNUMBER,INVENTORY$(),THING$,OBJECT$,DESCRIBEFLAG(),ROOMDESCRIBE$(),_
ROOMDES2$()
IF TURNNUMBER=1 THEN CALL GAMESTARTER 'MODULE 2.1.1
IF DESCRIBEFLAG(ROOM)=0 THEN PRINT ROOMDESCRIBE$(ROOM):_
PRINT ROOMDES2$(ROOM):DESCRIBEFLAG(ROOM)=1:GOTO JUMPOVER
IF DESCRIBEFLAG(ROOM)=1 AND DESCRIPTION$(ROOM)="STREET" THEN _
PRINT "You find yourself in the STREET"
IF DESCRIBEFLAG(ROOM)=1 AND DESCRIPTION$(ROOM)<>"STREET" THEN _
PRINT "You find yourself at the ";:PRINT DESCRIPTION$(ROOM)
JUMPOVER: 'HOPELESS KLUDGE I MUST BE GETTING TIRED
DELAY 0.3
PRINT "The noticeable exits are: ";
IF MOVEMENTTABLE(ROOM,1)<>0 THEN PRINT "NORTH ";
IF MOVEMENTTABLE(ROOM,2)<>0 THEN PRINT "SOUTH ";
IF MOVEMENTTABLE(ROOM,3)<>0 THEN PRINT "EAST ";
IF MOVEMENTTABLE(ROOM,4)<>0 THEN PRINT "WEST ";
IF MOVEMENTTABLE(ROOM,5)<>0 THEN PRINT "UP ";
IF MOVEMENTTABLE(ROOM,6)<>0 THEN PRINT "DOWN ";
PRINT
DELAY 0.3
PRINT "The noticeable objects are: ";
COUNTER=0
FOR I=1 TO 15
LET STUFF$= ROOMOBJECT$(ROOM,I)
IF LEFT$(STUFF$,5)<>"EMPTY" THEN PRINT " ";ROOMOBJECT$(ROOM,I);_
:COUNTER=COUNTER+1
NEXT I
IF COUNTER=0 THEN PRINT "noticeably absent!";
PRINT
DELAY 0.3
PRINT "You are carrying: ";
COUNTER=0
FOR I= 1 TO 5
IF INVENTORY$(I)<>"EMPTY" THEN COUNTER=COUNTER + 1:_
PRINT INVENTORY$(I);" ";
NEXT I
IF COUNTER = 0 THEN PRINT "nothing at all."
PRINT
DELAY 0.3
OBJECT$="SNAKE"
IF FLAG(21)=0 AND TURNNUMBER>90 AND FLAG(2)=0 AND FNPRESENT=1 THEN_
PRINT "A coyote strolls by, sees the dead SNAKE and runs away":_
FLAG(21)=1
IF FLAG(24)=0 AND FLAG(21)=1 AND DESCRIPTION$(ROOM)="STREET" AND _
TURNNUMBER>120 THEN FLAG(24)=1:__
PRINT "A tourist tells you his dog ran off after seeing a dead SNAKE."
IF ROOM =22 AND FLAG(20)=0 THEN PRINT "The glowing LANTERN is quite bright":_
FLAG(20)=1
IF ROOM = 10 AND FLAG(4)=1 AND FLAG(8)=0 THEN PRINT_
"There is a shy and hungry KITTEN here"
IF ROOM = 9 AND FLAG(4)=0 THEN PRINT "There is an unhappy ENGLISHMAN* here"
OBJECT$="SUGAR"
IF ROOM=33 AND FLAG(4)=1 AND FNPRESENT = 0 AND FLAG(9)=0 THEN _
PRINT "You see a limping HORSE. You'll need a bribe to lure him over."
IF ROOM = 33 AND FLAG(4)=1 AND FNPRESENT = 1 AND FLAG(9)=0 THEN_
PRINT "The HORSE with a THORN in his hoof is nibbling on the SUGAR"
THING$="LANTERN"
IF ROOM=23 OR ROOM=24 OR ROOM=25 OR ROOM=26 OR ROOM=27 OR ROOM=28_
OR ROOM=29 OR ROOM=30 OR ROOM=31 OR ROOM=32 THEN FLAG(19)=1 ELSE FLAG(19)=0
IF FLAG(19)=1 AND FNCARRY=0 THEN PRINT "Too dark -- Dangerous!":_
DANGEROUS=DANGEROUS + 1
IF DANGEROUS=8 THEN PRINT "You bumped your head in the dark": _
FLAG(1)=-1:EXIT SUB
IF ROOM=15 AND FLAG(5)=0 THEN PRINT "There's a mighty hungry COW here"
IF ROOM=15 AND FLAG(5)=1 THEN PRINT "There is a contented COW here"
THING$="SNAKE": IF ROOM =18 AND FLAG(2)=0 AND FNCARRY=0 THEN CLS:PRINT:PRINT:_
PRINT "A vicious DOG chases you out of the shack and back into the STREET":_
FLAG(14)=1:ROOM=19:EXIT SUB
IF ROOM=18 AND FLAG(2)=0 AND FNCARRY=1 THEN FLAG(2)=1:PRINT _
"The DOG was frightened off by the dead RATTLESNAKE"
IF TURNNUMBER=150 AND FLAG(17)=0 AND FLAG(26)=0 THEN FLAG(26)=1:_
PRINT "The JAIL door KEY is buried somewhere."
IF SCORE=86 AND FLAG(25)=0 THEN FLAG(25)=1:_
PRINT "A stranger asks you the name of the HOTEL."
PRINT
END SUB
'MODULE 2.1.1 GAME STARTER -- PRINT OUT INTRODUCTORY REMARKS
SUB GAMESTARTER
CLS
PRINT
PRINT " WELCOME TO HANGTOWN"
PRINT
PRINT
PRINT "Come away with me on an exciting adventure to "
PRINT "HANGTOWN, home of the GOLD rush! Cope with "
PRINT "mad dogs and ENGLISHMEN! Save endangered animals!"
PRINT "GET TREASURES! MAKE TEA!"
PRINT
PRINT "Give COMMANDs as verb then object, such as GO NORTH,"
PRINT "SAVE GAME, RESTORE GAME, READ SIGN, KILL SNAKE,"
PRINT "and GO CELLAR."
PRINT
PRINT "Exceptions to this two-word sentence rule are single-letter"
PRINT "COMMANDs such as N to GO NORTH, U to GO UP, AND D to GO"
PRINT "DOWN."
PRINT
PRINT "P.S. Don't try to GET objects ending in an *, e.g., BOULDER*,"
PRINT "as they are quite unobtainable-- comprendez, podner?"
PRINT
PRINT "And if you get stuck, just keep trying things, because"
PRINT "After a certain number of turns, a hint will show up."
PRINT "Press ENTER to begin"
DO WHILE LEN(INKEY$)=0:LOOP
CLS
END SUB
'MODULE 2.1.2 ERASER ERASES ONE LINE OF TEXT
SUB ERASER
REM FOR I=1 TO 12:PRINT " ";:NEXT I
END SUB
'MODULE 2.2 COMMANDS
SUB COMMANDS
SHARED VERB$, OBJECT$,ROOM,DESCRIPTION$(),FLAG(),INVENTORY$(),_
ROOMOBJECT$(),OBJ$(),OBJ2$(),C$,ANSWER$(),TURNNUMBER,CONVERTNUM
IF FLAG(1)<>0 THEN EXIT SUB
IF FLAG(14)=1 THEN EXIT SUB
' BE SURE THAT INPUT IS OK DUMMY2=0
DUMMY2=0
DO UNTIL DUMMY2=1
'C$=THE INPUTTED COMMAND SENTENCE - MAY BE MORE THAN 2 WORDS
'BUT ONLY THE FIRST TWO WORDS ARE ACCEPTED
' THE FIRST IS CALLED VERB$ AND THE SECOND OBJECT$
LET C$=""
PRINT:PRINT
PRINT "*****************************************************************"
DO UNTIL C$<>""
INPUT "COMMAND";C$ 'GET THE RAW SENTENCE
LOOP
REM SPACES TAKE OFF LEADING AND PERHAPS TRAINING CHR$(32)'S
DO WHILE RIGHT$(C$,1)=CHR$(32)
LET C$=LEFT$(C$,LEN(C$)-1)
LOOP
LET C$=UCASE$(C$)
LET I=1 'LETTER COUNTER
DO WHILE NOT (ASC (MID$(C$,I,1)) = 32) AND NOT (I= LEN(C$))
'LOOP TO LOOK FOR FIRST SPACE
LET I = I + 1 'WHICH SHOULD DENOTE END OF FIRST
LOOP 'WORD
LET VERB$=MID$(C$,1,I) 'ASSIGN THOSE CHARACTERS TO VERB$
LET ANSWER$(TURNNUMBER)=C$
LET OBJECT$ = MID$(C$,I+1,LEN(C$)) 'ASSIGN REST OF SENTENCE TO OBJECT$
IF LEN(OBJECT$)<>0 THEN VERB$=LEFT$(VERB$,LEN(VERB$)-1)
FOR J=1 TO 18 'CONVERT OBJECT$ LACKING * OR !
IF OBJECT$=OBJ$(J) THEN LET OBJECT$=OBJ2$(J)
NEXT J
'CHECK FOR EXTRA WORDS
COUNTER=0
FOR J=1 TO LEN(OBJECT$)
LET DUMMY$=MID$(OBJECT$,J,1)
IF DUMMY$=CHR$(32) THEN COUNTER=COUNTER+1
NEXT J
IF COUNTER<>0 THEN PRINT "One space (two words) only, please." _
ELSE DUMMY2=1
LOOP
END SUB
'MODULE 2.3 EVALUATE THE COMMANDS
SUB EVALUATE
SHARED VERB$, OBJECT$,ROOM,DIRECTION,MOVEMENTTABLE(),NUMBERROOMS,_
ROOMOBJECT$(),ITEMNUMBER,TURNNUMBER,THING$,INVENTORY$(),FLAG()
IF FLAG(1)<>0 THEN EXIT SUB
IF FLAG(14)=1 THEN EXIT SUB
SELECT CASE VERB$
CASE "QUIT"
LET FLAG(1)=2 'GAME NOT WON(1) OR LOST(-1):EXIT SELECT
CASE "SAVE"
IF OBJECT$<>"GAME" THEN PRINT "TRY- SAVE GAME":EXIT SELECT
OPEN "HANGSAV.BAS" FOR OUTPUT AS #1
WRITE #1,ROOM
FOR I=1 TO 5
LET DUMMY$=""
FOR J=1 TO LEN(INVENTORY$(I))
LET DUMMY$=DUMMY$+CHR$(ASC(MID$(INVENTORY$(I),J,1))+4)
NEXT J
WRITE #1,DUMMY$
NEXT I
FOR I=1 TO NUMBERROOMS
FOR J=1 TO 15
LET DUMMY$=""
FOR K=1 TO LEN (ROOMOBJECT$(I,J))
LET DUMMY$=DUMMY$+CHR$(ASC(MID$(ROOMOBJECT$(I,J),K,1))+4)
NEXT K
WRITE #1,DUMMY$
NEXT J
NEXT I
FOR I=1 TO 30
WRITE #1,FLAG(I)
NEXT I
CLOSE #1
PRINT "OK
EXIT SELECT
CASE "RESTORE", "LOAD"
IF OBJECT$<> "GAME" THEN PRINT "RESTORE GAME":EXIT SELECT
OPEN "HANGSAV.BAS" FOR INPUT AS #1
INPUT #1,ROOM
FOR I=1 TO 5
INPUT #1,DUMMY$
LET INVENTORY$(I)=""
FOR J=1 TO LEN(DUMMY$)
LET INVENTORY$(I)=INVENTORY$(I)+CHR$(ASC(MID$(DUMMY$,J,1))-4)
NEXT J
NEXT I
FOR I=1 TO NUMBERROOMS
FOR J=1 TO 15
INPUT #1,DUMMY$
LET ROOMOBJECT$(I,J)=""
FOR K=1 TO LEN (DUMMY$)
LET ROOMOBJECT$(I,J)=ROOMOBJECT$(I,J)+CHR$(ASC(MID$(DUMMY$,K,1))-4)
NEXT K
NEXT J
NEXT I
FOR I=1 TO 30
INPUT #1,FLAG(I)
NEXT I
CLOSE #1
PRINT "OK
EXIT SELECT
CASE "INVENTORY","I"
COUNTER=0
PRINT " You carry: ";
FOR I= 1 TO 5
IF INVENTORY$(I)<>"EMPTY" THEN COUNTER=COUNTER + 1:_
PRINT INVENTORY$(I);" ";
NEXT I
IF COUNTER = 0 THEN PRINT "nothing at all" :EXIT SELECT
PRINT:EXIT SELECT
CASE "GO","MOVE","N","S","E","W","U","D"
IF LEN (VERB$)=1 THEN OBJECT$=VERB$
IF OBJECT$="NORTH" OR OBJECT$="N" THEN DIRECTION = 1
IF OBJECT$="SOUTH" OR OBJECT$="S" THEN DIRECTION = 2
IF OBJECT$="EAST" OR OBJECT$="E" THEN DIRECTION = 3
IF OBJECT$="WEST" OR OBJECT$="W" THEN DIRECTION = 4
IF OBJECT$="UP" OR OBJECT$="U" THEN DIRECTION = 5
IF OBJECT$="DOWN" OR OBJECT$="D" THEN DIRECTION = 6
IF OBJECT$="WELL*" AND FLAG(3)=0 THEN_
PRINT "SNAKE won't let me":EXIT SELECT
IF ROOM=2 AND OBJECT$="WELL*" AND FLAG(3)=1 THEN PRINT "OK":_
ROOM=1:EXIT SELECT
IF ROOM=7 AND FLAG(6)=0 AND DIRECTION = 3 THEN_
PRINT "Can't enter JAIL - door is locked":EXIT SELECT
IF ROOM=18 AND OBJECT$="CELLAR*" THEN PRINT "OK":ROOM=22:EXIT SELECT
IF MOVEMENTTABLE (ROOM,DIRECTION) = 0 THEN _
PRINT "You can't GO that way" ELSE _
LET ROOM = MOVEMENTTABLE (ROOM,DIRECTION)
EXIT SELECT
CASE "GET","TAKE","PLUCK","EXTRACT","PULL","REMOVE"
IF ROOM=1 AND OBJECT$="WATER" THEN_
PRINT "Too dangerous from the LEDGE":EXIT SELECT
IF ROOM=2 AND OBJECT$="WATER" AND FLAG(3)=0 THEN _
PRINT "The SNAKE won't let me":EXIT SELECT
THING$="BUCKET"
IF ROOM = 2 AND OBJECT$="WATER" AND FLAG(3)=1 AND FNCARRY = 0_
THEN PRINT "You'll need a BUCKET.":EXIT SELECT
IF ROOM =2 AND FNCARRY = 1 AND OBJECT$="WATER" AND FLAG(12)=0 THEN PRINT_
"The BUCKET won't reach the WATER.":EXIT SELECT
IF ROOM = 2 AND OBJECT$="WATER" AND FLAG(3)=1 AND FNCARRY = 1_
AND FLAG(12)=1 THEN PRINT "OK":_
FLAG(11)=1:EXIT SELECT
THING$="PAIL"
IF FLAG(5)=1 AND ROOM=15 AND FNCARRY=0 AND OBJECT$="MILK" THEN _
PRINT "You'll need a PAIL":EXIT SELECT
IF FLAG(5)=1 AND ROOM = 15 AND OBJECT$="MILK" AND FNCARRY=1 THEN _
PRINT "OK":FLAG(23)=1: EXIT SELECT
IF FLAG(5)=0 AND ROOM=15 AND OBJECT$="MILK" THEN_
PRINT "The hungry COW is too nervous":EXIT SELECT
IF ROOM<>15 AND OBJECT$="MILK" THEN PRINT "Find a COW":EXIT SELECT
LET THING$="TWEEZERS"
IF OBJECT$="THORN" AND FNCARRY=0 THEN _
PRINT "You'll need something to remove the THORN with.":_
EXIT SELECT
IF ROOM=33 AND FLAG(4)=1 AND FNCARRY=1 AND FLAG(9)=0 AND OBJECT$="THORN" THEN _
PRINT "The happy HORSE shakes something from its mane and runs away":_
ROOMOBJECT$(33,1)="TURQUOISE!":FLAG(9)=1:EXIT SELECT
IF OBJECT$="LANTERN" THEN FLAG(7)=1
IF ROOM=10 AND OBJECT$="KITTEN" THEN _
PRINT "Too shy - Runs away from you":EXIT SELECT
LET HOLDING$=OBJECT$
LET OBJECT$="SUGAR"
IF ROOM = 33 AND FLAG(4)=1 AND HOLDING$= "HORSE" AND _
FNPRESENT=0 AND FLAG(9)=0 THEN _
PRINT "The HORSE won't come to you without a bribe":EXIT SELECT
LET OBJECT$=HOLDING$
IF FNPRESENT = 0 THEN PRINT "I don't see ";OBJECT$:EXIT SELECT
IF RIGHT$(OBJECT$,1)="*" THEN PRINT "I can't handle it":EXIT SELECT
IF OBJECT$="LANTERN" THEN FLAG(7)=1
IF RIGHT$(OBJECT$,5)="SNAKE" AND FLAG(3)=0 THEN PRINT_
"I don't handle live SNAKES, thank you very much":EXIT SELECT
FOR I=1 TO 5
IF INVENTORY$(I)="EMPTY" THEN INVENTORY$(I)=OBJECT$:_
PRINT "GOT IT":ROOMOBJECT$(ROOM,ITEMNUMBER)="EMPTY":_
EXIT SELECT
NEXT I
PRINT "You're carrying too much. Drop something!"
CASE "PUT","DROP","GIVE"
IF OBJECT$="MILK" THEN PRINT "Try DROP PAIL":EXIT SELECT
THING$=OBJECT$
IF OBJECT$="PAIL" AND ROOM=10 AND FLAG(8)=0 AND _
FNCARRY = 1 THEN FLAG(8)=1:_
PRINT "The now full KITTEN returns with a pack rat.":_
PRINT "The pack rat drops something and runs off, ":_
PRINT "with the KITTEN in hot pursuit":_
ROOMOBJECT$(10,1)="RUBY!":_
PRINT:EXIT SELECT
IF OBJECT$="MILK" AND ROOM=9 THEN PRINT "Try DROP PAIL":EXIT SELECT
IF OBJECT$="WATER" THEN PRINT "Try FILL KETTLE ":EXIT SELECT
THING$=OBJECT$
IF FNCARRY=0 THEN PRINT "You don't have the ";OBJECT$:EXIT SELECT
'PREVENTS DROPPING TWO OF ANYTHING ANYWHERE
IF FNPRESENT=1 THEN PRINT "Not again.":EXIT SELECT
IF OBJECT$="LANTERN" THEN FLAG(7)=0
IF OBJECT$="HAY" AND ROOM=15 THEN FLAG(5)=1
FOR J=1 TO 15
IF ROOMOBJECT$(ROOM,J)="EMPTY"THEN ROOMOBJECT$(ROOM,J)=OBJECT$_
:LET INVENTORY$(ITEMNUMBER)="EMPTY" :PRINT "OK":_
EXIT SELECT
NEXT J
PRINT "This room is full, take it elsewhere":EXIT SELECT
CASE "LOOK","EXAMINE","INSPECT"
IF ROOM=2 AND OBJECT$="WELL*" THEN PRINT _
"I see GOLD! Maybe I should GO WELL*":EXIT SELECT
IF ROOM=6 AND OBJECT$="MIRROR*" THEN _
PRINT "The rest of the sign can now be seen. It says:":_
PRINT " ITEM #2 Sometimes I'm perky,":_
PRINT " Sometimes I'm a drip;":_
PRINT " When I'm freshly brewed,":_
PRINT " Would you like a sip?":_
PRINT:EXIT SELECT
IF OBJECT$="SIGN*" THEN PRINT "Try READ SIGN* ":EXIT SELECT
IF OBJECT$="MAP" THEN PRINT "Try - READ MAP":EXIT SELECT
PRINT "I don't see anything unexpected":EXIT SELECT
CASE "READ"
IF ROOM=9 AND OBJECT$="SIGN*" THEN PRINT "To MAKE TEA --":_
PRINT "Bring here and DROP the following -":_
PRINT "TEA, KETTLE, WATER, MILK, MATCHES, SUGAR, ":_
PRINT "CUP, and something to burn, then type MAKE TEA":EXIT SELECT
IF ROOM=3 AND OBJECT$="SIGN*" THEN PRINT "The SIGN* says -":_
PRINT "DROP TREASURES! Such as GOLD! here and type SCORE ":EXIT SELECT
IF ROOM=6 AND OBJECT$="SIGN*" THEN _
PRINT " The SIGN* says: Some things you need,":_
PRINT " Can be found here;":_
PRINT " Just say the word,":_
PRINT " And they'll appear.":_
PRINT " ITEM #1: I hang on the wall,":_
PRINT " With nothing to do;":_
PRINT " When you LOOK at me,":_
PRINT " You see only you.":_
PRINT " You can't make out the last 4 or 5 lines.":_
PRINT " They look backwards or something.":_
PRINT:EXIT SELECT
IF ROOM=6 AND OBJECT$="MIRROR*" THEN _
PRINT "Try - LOOK MIRROR":EXIT SELECT
THING$="MAP":IF OBJECT$="MAP" AND FNCARRY=0 THEN PRINT "You don't have the MAP":EXIT SELECT
THING$="MAP":IF OBJECT$="MAP" AND FNCARRY=1 THEN _
PRINT "Says DOWN WEST WEST SOUTH SOUTH DIG":EXIT SELECT
PRINT "Try READ SIGN* or READ MAP":EXIT SELECT
CASE "OIL","LUBRICATE","GREASE"
THING$="MINERAL-OIL"
IF FNCARRY=0 THEN PRINT "You don't have the MINERAL-OIL":EXIT SELECT
IF ROOM=11 THEN PRINT "OK":FLAG(13)=1:EXIT SELECT
PRINT "Not here":EXIT SELECT
CASE "DRINK","EAT"
PRINT "What is it with you and food?":EXIT SELECT
CASE "SCORE"
IF ROOM <>3 THEN PRINT "Return to the TOWN SQUARE":EXIT SELECT
SCORE=2
FOR I=1 TO 10
LET STUFF$=ROOMOBJECT$(3,I)
IF RIGHT$(STUFF$,1)="!" THEN SCORE=SCORE + 14
NEXT I
PRINT "Your SCORE is ";SCORE
IF SCORE=100 THEN PRINT "You win!!!! Fantastic Job!!! YAHOO!!":FLAG(1)=1:EXIT SELECT
PRINT (100-SCORE);" points to go":EXIT SELECT
CASE "CLIMB"
IF OBJECT$="WELL" OR OBJECT$="WELL*" THEN PRINT "Try GO WELL*":EXIT SELECT
THING$="CHAIR"
IF ROOM=20 AND FNCARRY=1 THEN_
PRINT "PUT or DROP CHAIR here first.":EXIT SELECT
OBJECT$="CHAIR":IF ROOM=20 AND FNPRESENT=0 THEN_
PRINT "The BOULDER is too high, GET something to stand on":_
EXIT SELECT
IF ROOM=20 THEN PRINT "Good climbing!":ROOM=21:EXIT SELECT
PRINT "Come down from there!":EXIT SELECT
CASE "TIE","CONNECT","ATTACH"
IF LEFT$(OBJECT$,2)="UP" THEN PRINT "Try TIE ROPE ":EXIT SELECT
THING$="ROPE":IF FNCARRY=0 THEN PRINT "You'll need the ROPE":EXIT SELECT
THING$="BUCKET":IF FNCARRY=0 THEN PRINT "GET the BUCKET":EXIT SELECT
IF OBJECT$="DOG" THEN PRINT "You want me to try to TIE up a vicious DOG? HA! HA!":_
EXIT SELECT
IF OBJECT$="ROPE" OR OBJECT$="BUCKET" THEN PRINT "One end of the rope is tied to the BUCKET"_
:FLAG(12)=1:EXIT SELECT
PRINT "I hardly know you!":EXIT SELECT
CASE "UNTIE","UNDO"
IF FLAG(12)=1 AND (OBJECT$="ROPE" OR OBJECT$="BUCKET") THEN_
PRINT "OK":FLAG(12)=0:EXIT SELECT
CASE "LOWER"
PRINT "Try GET WATER":EXIT SELECT
CASE "MILK"
PRINT "Try GET MILK":EXIT SELECT
CASE "KILL"
THING$="ROCK"
IF FNCARRY=0 AND ROOM=2 THEN PRINT "You'll need a suitable weapon":_
EXIT SELECT
IF FNCARRY=1 AND ROOM=2 AND FLAG(3)=0 THEN_
PRINT "The dead RATTLESNAKE is still frightening.":_
LET ROOMOBJECT$(2,2)="SNAKE":FLAG(3)=1:EXIT SELECT
PRINT "You must think I'm crazy!":EXIT SELECT
CASE "UNLOCK"
IF OBJECT$="SAFE" THEN PRINT "Try- OPEN SAFE":EXIT SELECT
THING$="KEY"
IF FNCARRY=0 THEN PRINT "You'll need a KEY":EXIT SELECT
IF ROOM=7 THEN PRINT "The JAIL DOOR* is unlocked. You can GO EAST":FLAG(6)=1:_
EXIT SELECT
PRINT "No lock here":EXIT SELECT
CASE "OPEN"
IF ROOM=11 AND OBJECT$="SAFE*" AND FLAG(13)=0 THEN _
PRINT "The rusty hinge needs OIL to open":EXIT SELECT
IF ROOM=11 AND OBJECT$="SAFE*" AND FLAG(13)=1 AND FLAG(15)=0 THEN _
PRINT "I see JADE!":ROOMOBJECT$(11,2)="JADE!":_
FLAG(15)=1:EXIT SELECT
IF ROOM=11 AND OBJECT$="SAFE*" AND FLAG(15)=1 THEN _
PRINT "It is open!":EXIT SELECT
IF OBJECT$="DOOR*" AND FLAG(6)=0 THEN _
PRINT "The JAIL DOOR is locked!":EXIT SELECT
IF ROOM=7 AND OBJECT$="DOOR*" AND FLAG(6)=1 THEN _
PRINT "The JAIL DOOR is open, GO EAST to enter":EXIT SELECT
PRINT "No........You can't make me":EXIT SELECT
CASE "THROW"
IF ROOM=2 THEN PRINT "Try KILL SNAKE ":EXIT SELECT
PRINT "Not here":EXIT SELECT
CASE "DIG","SHOVEL"
THING$="SHOVEL"
IF FNCARRY=0 THEN PRINT "You'll need a SHOVEL":EXIT SELECT
IF ROOM=31 OR ROOM=5 THEN PRINT "I hit something"
IF ROOM=31 AND FLAG(16)=0 THEN ROOMOBJECT$(31,1)="DIAMONDS!":_
FLAG(16)=1:EXIT SELECT
IF ROOM=5 AND FLAG(17)=0 THEN ROOMOBJECT$(5,1)="KEY":_
FLAG(17)=1:EXIT SELECT
PRINT "The substrate is too hard here to dig":EXIT SELECT
CASE "MAKE","PREPARE"
IF OBJECT$<>"TEA" THEN PRINT "Don't know how":EXIT SELECT
IF FNPRESENT = 0 THEN PRINT "You'll need TEA":EXIT SELECT
OBJECT$="KETTLE":IF FNPRESENT=0 OR FLAG(10)=0 THEN _
PRINT "You'll need a KETTLE FILLed with WATER.":EXIT SELECT
OBJECT$="PAIL":IF FNPRESENT=0 OR FLAG(23)=0 THEN _
PRINT "You'll need a PAIL FILLed with MILK.":EXIT SELECT
OBJECT$="SUGAR":IF FNPRESENT=0 THEN PRINT "You'll need the SUGAR ":EXIT SELECT
OBJECT$="MATCHES":IF FNPRESENT=0 THEN PRINT "You'll need some MATCHES":EXIT SELECT
OBJECT$="CUP":IF FNPRESENT=0 THEN PRINT "You'll need a CUP":EXIT SELECT
OBJECT$="MAGAZINES":IF FNPRESENT=0 THEN PRINT "You'll need something to burn":EXIT SELECT
IF FLAG(18)=0 THEN FLAG(4)=1:_
FLAG(18)=1 :ROOMOBJECT$(9,2)="EMERALD!":_
PRINT "The grateful ENGLISHMAN leaves a big tip":EXIT SELECT
IF FLAG(18)=1 THEN PRINT "Not again!":EXIT SELECT
PRINT "PUT the items you need in the TEA ROOM":EXIT SELECT
CASE "FILL"
THING$="KETTLE"
IF OBJECT$="KETTLE" AND FNCARRY=1 AND FLAG(11)=1 THEN _
FLAG(10)=1:PRINT "The KETTLE is FILLed.":EXIT SELECT
IF OBJECT$="KETTLE" AND FNPRESENT=1 AND FLAG(11)=1 THEN _
FLAG(10)=1:PRINT "The KETTLE is FILLed.":EXIT SELECT
IF OBJECT$="BUCKET" AND ROOM=2 THEN PRINT "Try GET WATER":EXIT SELECT
IF OBJECT$="PAIL" AND ROOM=15 THEN PRINT "Try GET MILK":EXIT SELECT
PRINT "You'll need a KETTLE or a BUCKET or a PAIL":EXIT SELECT
CASE "ENTER"
PRINT "Try GO WELL* or GO CELLAR*":EXIT SELECT
CASE "BURN"
IF OBJECT$="HAY" THEN PRINT "Too green --- Won't BURN.":EXIT SELECT
PRINT "Don't play with fire!":EXIT SELECT
CASE "MIRROR*","MIRROR"
PRINT "Suddenly you notice a MIRROR* on the wall":_
PRINT "opposite the SIGN*":LET ROOMOBJECT$(6,3)="MIRROR*":EXIT SELECT
CASE "SAY"
PRINT "Just type the word you were going to say":EXIT SELECT
CASE "COFFEE"
IF FLAG(22)=0 THEN PRINT "Suddenly you smell and then see some":_
PRINT "fresh coffee on the bar. So does a passing prospector":_
PRINT "who takes it, leaving some SILVER! in exchange.":_
LET ROOMOBJECT$(6,4)="SILVER!":FLAG(22)=1:EXIT SELECT
PRINT "All that's left of the coffee is the aroma":EXIT SELECT
CASE "FEED"
PRINT "Try the word GIVE followed by the name of the food.":_
EXIT SELECT
CASE "USE"
PRINT "Try - DIG or UNLOCK or TIE or PLUCK":EXIT SELECT
CASE "REVEAL"
PRINT "Just type the name of the object by itself.":EXIT SELECT
CASE ELSE
IF ROOM=6 AND OBJECT$="MIRROR*" THEN _
PRINT "Try - LOOK MIRROR":EXIT SELECT
IF OBJECT$="CELLAR*" THEN _
PRINT "Try- GO CELLAR":EXIT SELECT
IF OBJECT$="WELL*" THEN PRINT "Try- GO WELL":EXIT SELECT
PRINT "I don't know that verb":EXIT SELECT
END SELECT
END SUB
'MODULE 2.3.1 DEFINE THE FUNCTION- IS THE OBJECT PRESENT?
DEF FNPRESENT
SHARED ROOMOBJECT$(),OBJECT$,ITEMNUMBER
FOR J=1 TO 15
IF ROOMOBJECT$(ROOM,J)=OBJECT$ THEN _
FNPRESENT=1:ITEMNUMBER=J:EXIT DEF
NEXT J
FNPRESENT=0
END DEF
'MODULE 2.3.2 DEFINE THE FUNCTION- IS IT BEING CARRIED?
DEF FNCARRY
SHARED INVENTORY$(),THING$,ITEMNUMBER
FOR I = 1 TO 5
IF INVENTORY$(I)=THING$ THEN FNCARRY = 1: ITEMNUMBER = I: EXIT DEF
NEXT I
FNCARRY=0
END DEF
'MODULE 2.4 UPDATE DATA
SUB UPDATE
END SUB
'MODULE 3 CLOSING
SUB CLOSING
SHARED FLAG(),TURNNUMBER,ANSWER$(),STRT
FOR I=1 TO 6:PRINT:NEXT I
INPUT "Be sure that your disk is in the drive and press ENTER";DUMMY$
DIM DTA(40),DTA$(10)
OPEN "REPORT.DTA" FOR INPUT AS #1
REM RETRIEVES OLD DATA FROM REPORT.DTA
FOR I=1 TO 40
INPUT #1,DTA(I)
NEXT I
FOR I=1 TO 10
INPUT #1,DTA$(I)
NEXT I
CLOSE #1
LET DTA(13)=FLAG(1):LET DTA(38)=DTA(38)+INT((TIMER-STRT)/6)
OPEN "REPORT.DTA" FOR OUTPUT AS #1
REM SENDS UPDATED DATA TO REPORT.DTA (WITH NAIME$)
FOR I=1 TO 40
WRITE #1,DTA(I)
NEXT I
FOR I=1 TO 10
WRITE #1,DTA$(I)
NEXT I
CLOSE #1
OPEN "HANGDATA.TXT" FOR APPEND AS #2
PRINT #2, DATE$,TIME$
FOR I=0 TO TURNNUMBER
IF INT(I/5)=I/5 THEN PRINT #2, ANSWER$(I) ELSE PRINT #2,ANSWER$(I),
NEXT I
PRINT #2,INT((STRT-TIMER)/6),
PRINT #2,INT(1000*RND(0))
CLOSE #2
PRINT "This game is over. Type HANGTOWN to play again."
END SUB
