PRINTR "The ferry pulls away, heading for the mainland."
.FUNCT I-FERRY-GONE
CALL INT,I-FERRY-LEAVING
PUT STACK,0,0
CALL QUEUE,I-FERRY-APPROACHING,109
PUT STACK,0,1
CALL QUEUE,I-FERRY,112
PUT STACK,0,1
FSET FERRY,INVISIBLE
IN? WEASEL,FERRY \FALSE
MOVE WEASEL,GLOBAL-FERRY
RFALSE
.FUNCT I-DISGUSTING-WEASEL-KLUDGE,WGT
IN? PASSBOOK,WEASEL /FALSE
GET GOAL-TABLES,WEASEL-C >WGT
GET WGT,GOAL-F
EQUAL? STACK,SHANTY /FALSE
PUT WGT,ATTENTION,0
CALL ESTABLISH-GOAL,WEASEL,SHANTY
RFALSE
.FUNCT I-FIRST-MEETING
EQUAL? FM-CTR,5 \?ELS5
CALL INT,I-FIRST-MEETING
PUT STACK,0,0
RFALSE
?ELS5: IN? JOHNNY,SHANTY \FALSE
IN? PETE,SHANTY \FALSE
CALL META-LOC,PLAYER
EQUAL? STACK,SHANTY \FALSE
ZERO? FM-CTR \?ELS14
GRTR? PRESENT-TIME,535 \?CND15
CALL I-PLOT-NEVER-STARTS
CALL INT,I-FIRST-MEETING
PUT STACK,0,0
RFALSE
?CND15: SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
PRINTI """Sit down and we'll talk,"" "
CALL DPRINT,JOHNNY
PRINTR " says."
?ELS14: EQUAL? FM-CTR,1 \?ELS21
IN? WEASEL,SHANTY \?ELS26
SET 'FM-CTR,2
CALL I-FIRST-MEETING
RSTACK
?ELS26: ZERO? WAITING-FOR-WEASEL /?ELS28
GRTR? PRESENT-TIME,525 \FALSE
CALL INT,I-FIRST-MEETING
PUT STACK,0,0
CALL I-PLOT-NEVER-STARTS
SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
PRINTI "Pete looks at Johnny and says, ""Weasel ain't gonna show.""
""Guess not,"" replies Johnny. ""Without "
CALL DPRINT,WEASEL
PRINTR ", there's no deal. Who knows what that creep is up to?"""
?ELS28: SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
PRINTI "Johnny says, ""When "
CALL DPRINT,WEASEL
PRINTI " shows, I'll tell ya what we got."""
CRLF
SET 'WAITING-FOR-WEASEL,TRUE-VALUE
RETURN WAITING-FOR-WEASEL
?ELS21: GRTR? BLOOD-ALCOHOL,10 \?ELS42
CALL INT,I-FIRST-MEETING
PUT STACK,0,0
CALL I-PLOT-NEVER-STARTS
PRINTR "Pete turns to Johnny and says, ""This joker's drunk!""
""Yeah,"" Johnny says. He looks at you. ""Some diver! We'll find someone else."""
?ELS42: EQUAL? FM-CTR,2 \?ELS46
SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
PRINTI "At Pete's request, "
CALL DPRINT,WEASEL
PRINTI " joins you. Johnny then whispers that he's come across some sunken "
CALL DPRINT,GLOBAL-TREASURE
PRINTI "."
CRLF
SET 'FM-CTR,3
SET 'I-WAIT-RTN,I-FIRST-MEETING
SET 'I-WAIT-DURATION,2
RETURN I-WAIT-DURATION
?ELS46: EQUAL? FM-CTR,3 \?ELS50
ZERO? I-WAIT-FLAG /?ELS55
PRINTI "Unfortunately, this interrupts Johnny's explanation of what the meeting is about."
CRLF
SET 'I-WAIT-DURATION,2
RETURN I-WAIT-DURATION
?ELS55: GRTR? I-WAIT-DURATION,0 \?ELS60
EQUAL? I-WAIT-RTN,I-FIRST-MEETING /FALSE
?ELS60: SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
PRINTI "Johnny explains that they need more money to get started. They chose you because they know you've salted some money away and you're a great diver. He asks if you're interested in the deal."
CRLF
SET 'FM-CTR,4
RETURN FM-CTR
?ELS50: EQUAL? FM-CTR,4 \FALSE
GRTR? PRESENT-TIME,539 \?ELS73
EQUAL? PRSA,V?NO,V?YES /?ELS73
SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
CALL I-PLOT-NEVER-STARTS
PRINTR "Pete turns to Johnny. ""We don't want anyone who can't decide.""
""Right,"" says Johnny. ""We'll find someone else."" He turns to you. ""Say a word about this and you're history!"""
?ELS73: SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
PRINTR """Well, what is it? Yes or no?"" Pete asks anxiously."
.FUNCT SAMPLE-TREASURE-F
EQUAL? PRSA,V?TAKE /?THN6
EQUAL? PRSA,V?ASK-FOR \?ELS5
EQUAL? PRSO,JOHNNY \?ELS5
?THN6: IN? MCGINTY,HERE \?ELS14
CALL PERFORM,V?TELL,MCGINTY,SAMPLE-TREASURE
RTRUE
?ELS14: PRINTR "Red pulls it back. ""If we get the loot, there'll be plenty for all."""
PRINTR " he says he came across while on a shark hunt."
?ELS44: EQUAL? SM-CTR,3 \FALSE
ZERO? I-WAIT-FLAG /?ELS58
PRINTI "This interrupts Johnny's explanation, which makes him angry."
CRLF
SET 'I-WAIT-DURATION,6
RETURN I-WAIT-DURATION
?ELS58: GRTR? I-WAIT-DURATION,0 \?ELS63
EQUAL? I-WAIT-RTN,I-SECOND-MEETING /FALSE
?ELS63: CALL INT,I-SECOND-MEETING
PUT STACK,0,0
SUB 705,PRESENT-TIME
CALL QUEUE,I-OTHERS-MEET,STACK
PUT STACK,0,1
SET 'SM-CTR,4
SET 'MEETINGS-COMPLETED,2
PUT MOVEMENT-GOALS,JOHNNY-C,JOHNNY-CONTINUES-TABLE
CALL IMOVEMENT,JOHNNY,I-JOHNNY
CALL RATING-UPD,20
SET 'QCONTEXT,JOHNNY
SET 'QCONTEXT-ROOM,HERE
CRLF
PRINTI """We're not sure which wreck to salvage,"" Johnny says. ""Since you're joining up, we're hoping you'll identify where the "
CALL DPRINT,SAMPLE-TREASURE
PRINTI " came from, and then do the dive for us. I'll captain, Pete will cook, and "
CALL DPRINT,WEASEL
PRINTI " will crew.
Johnny winks at you. ""We'll need you to supply the minutes of longitude and latitude of the wreck. Get $500 and meet me at Point Lookout at 10:45. Then we'll provision the boat.""
He turns to the others. ""We'll meet in "
CALL DPRINT,SHANTY
PRINTR " at 11:45 to discuss final arrangements.
""We're all in this now,"" Johnny says to the group. ""I'm not gonna chance this operation if one of you doesn't show. We need everyone to pull this off. If anyone tries anything stupid, you won't live to regret it."""
PRINTI """Glad you're with us. Since you're okay, I'll level with you. Before Hevlin died, he told me he gave you the book. He also said you could handle this job. He's the one who gave me the "
CALL DPRINT,SAMPLE-TREASURE
PRINTI ". I didn't want to say anything in front of Pete and "
CALL DPRINT,WEASEL
PRINTI " just in case.
""We're gonna need a boat, but I don't know which one. If you need deep-sea diving gear, it'll have to be the "
PRINTR "Johnny looks impatient. ""Don't confuse things. A yes or no will do."""
?ELS37: EQUAL? TM-CTR,8 \FALSE
CALL ESTABLISH-GOAL,JOHNNY,OUTFITTERS-HQ
PUT MOVEMENT-GOALS,JOHNNY-C,JOHNNY-COMPLETES-TABLE
GET MOVEMENT-GOALS,JOHNNY-C >JMG
SUB 838,PRESENT-TIME
PUT JMG,MG-TIME,STACK
CALL IMOVEMENT,JOHNNY,I-JOHNNY
CALL INT,I-THIRD-MEETING
PUT STACK,0,0
SET 'MEETINGS-COMPLETED,3
PRINTI """We'll rent the "
CALL DPRINT,SHIP-CHOSEN
PRINTR ". Let's go get what we need."""
.FUNCT I-EQUIP,MCG-GT,V=0
IN? PLAYER,OUTFITTERS-HQ \?ELS5
IN? MCGINTY,OUTFITTERS-HQ \?ELS10
INC 'WARNING-CTR
EQUAL? WARNING-CTR,7 \?CND11
PRINTI "Johnny leans over and whispers, ""Let's wait out McGinty. He should leave soon."""
CRLF
SET 'V,TRUE-VALUE
?CND11: GRTR? I-WAIT-DURATION,0 \?ELS20
SET 'I-WAIT-DURATION,0
SET 'I-WAIT-RTN,FALSE-VALUE
PRINTI "Johnny ends his conversation, and "
CALL DPRINT,MCGINTY
PRINTR " asks the salesman some questions."
?ELS20: GET GOAL-TABLES,MCGINTY-C >MCG-GT
GET MCG-GT,GOAL-ENABLE
ZERO? STACK /?ELS24
GET MCG-GT,GOAL-F
EQUAL? STACK,MCGINTY-HQ \?ELS24
ZERO? MCGINTY-KNOWS \?CND27
SET 'MCGINTY-MEETS-WEASEL,TRUE-VALUE
?CND27: SET 'I-WAIT-DURATION,9
SET 'I-WAIT-RTN,I-EQUIP
RFALSE
?ELS24: EQUAL? PRSA,V?RENT,V?BUY \?ELS31
EQUAL? PRSO,FERRY-TOKEN /?ELS31
SET 'MCGINTY-KNOWS,TRUE-VALUE
CALL INT,I-MCGINTY-FOLLOWS
PUT STACK,0,0
CALL INT,I-EQUIP
PUT STACK,0,0
MOVE MCGINTY,WHARF-ROAD-4
CALL ESTABLISH-GOAL,MCGINTY,MCGINTY-HQ
CALL DPRINT,MCGINTY
PRINTI " grins as he realizes what you're up to."
CALL SAY-MCGINTY-KNOWS
RSTACK
?ELS31: GRTR? PRESENT-TIME,699 \?ELS37
IN? JOHNNY,OUTFITTERS-HQ \?ELS42
CALL ESTABLISH-GOAL,JOHNNY,SHANTY
PRINTI "Johnny glares at "
CALL DPRINT,MCGINTY
PRINTR " and then at his watch. ""There's no way."" He turns to you. ""Forget it. We can't get this done in time."""
?ELS42: CALL INT,I-MCGINTY-FOLLOWS
PUT STACK,0,0
CALL ESTABLISH-GOAL,MCGINTY,MCGINTY-HQ
CALL INT,I-EQUIP
PUT STACK,0,0
CALL DPRINT,MCGINTY
PRINTR " turns to the salesman. ""I think... yeah! I will need that boat after all."" He turns to you and grins."
?ELS37: EQUAL? PRSA,V?WAIT-FOR,V?WAIT /?ELS50
EQUAL? PRSA,V?WALK,V?LOOK /?ELS50
PRINTI "Johnny glances nervously at "
CALL DPRINT,MCGINTY
PRINTR "."
?ELS50: RETURN V
?ELS10: ZERO? MCGINTY-KNOWS /?ELS58
CALL INT,I-EQUIP
PUT STACK,0,0
RFALSE
?ELS58: ZERO? I-WAIT-FLAG /?ELS61
PRINTI "Johnny seems unhappy to have his conversation interrupted."
CRLF
SET 'I-WAIT-DURATION,9
RETURN I-WAIT-DURATION
?ELS61: EQUAL? I-WAIT-RTN,I-EQUIP \?ELS66
GRTR? I-WAIT-DURATION,0 /FALSE
CALL ESTABLISH-GOAL,JOHNNY,SHANTY
SUB 870,PRESENT-TIME
CALL QUEUE,I-SHOVE-OFF,STACK
PUT STACK,0,1
CALL INT,I-EQUIP
PUT STACK,0,0
EQUAL? SHIP-CHOSEN,TRAWLER \?ELS76
RANDOM 50
ADD 50,STACK >AMT-OWED
JUMP ?CND74
?ELS76: RANDOM 50
ADD 400,STACK >AMT-OWED
?CND74: SET 'JOHNNY-MADE-DEAL,TRUE-VALUE
CALL RATING-UPD,20
PRINTI "Johnny hands him a list and the salesman quotes a price. Johnny gives him the money he has, then says to you, ""You'll need to chip in $"
PRINTN AMT-OWED
PRINTI " plus the money for your stuff. We'll leave on the "
CALL DPRINT,SHIP-CHOSEN
PRINTI " at high tide.""
He tells the "
CALL DPRINT,SPEAR-CARRIER
PRINTR ", ""Deliver the stuff half an hour before high tide."" He turns back to you. ""Better be on board then to watch the stuff."""
?ELS66: IN? MCGINTY,WHARF-ROAD-4 /FALSE
SET 'I-WAIT-DURATION,9
SET 'I-WAIT-RTN,I-EQUIP
RFALSE
?ELS5: SET 'I-WAIT-DURATION,0
CALL INT,I-EQUIP
GET STACK,C-TICK
LESS? STACK,-15 \FALSE
CALL INT,I-EQUIP
PUT STACK,0,0
IN? JOHNNY,OUTFITTERS-HQ \?CND90
CALL ESTABLISH-GOAL,JOHNNY,SHANTY
?CND90: CALL I-PLOT-NEVER-STARTS
RFALSE
.FUNCT TELL-NEED-BOAT
PRINTR " ""We will need that boat after all,"" he says to the salesman as he leaves."
.FUNCT SAY-MCGINTY-KNOWS
CALL TELL-NEED-BOAT
MOVE JOHNNY,WHARF-ROAD-3
CALL ZERO-ATTENTION,JOHNNY
CALL ESTABLISH-GOAL,JOHNNY,SHANTY
CRLF
PRINTR "Johnny glares at you. ""That was stupid! Now he's stopped us from renting the boat we need."" He storms out. You can't help feeling fortunate that someone else happened to be here."