Code: Select all
*= $B600 ; Ã64
LDX #$02 ; 2 + 50 = 52 ==> ÎÍ52
JSR $0803 ; LOAD AND DISPLAY ÎÍ52
JSR ENTERINN ; FIND OUT WHAT TAVERN AND ENTER IT
MAINMENU JSR $0806 ; CLEAR TEXT WINDOW
LDY #>TXTMNU ; GET TEXT PTR FOR MAIN MENU
LDX #<TXTMNU
JSR $0809 ; PRINT MAIN MENU
MNUKEY JSR $080F ; WAIT FOR KEY
JSR $083F ; GET KEY PRESSED
CMP #$CF ; IS "O"?
BEQ DOORDER ; YES, HANDLE THE ORDER
CMP #$D4 ; IS "T"?
BNE ISE ; NO, TEST FOR "E"
JMP DOTALK ; YES, HANDLE TALK TO BARKEEP
ISE CMP #$C5 ; IS "E"?
BNE MNUKEY ; ON NO TRY AGAIN TO GET A VALID KEY
JSR EXITINN ; ON YES EXIT THE INN
LDA #$00 ; ????
STA $2F ; ???? VAR NEEDED IN AE00?
JSR $0806 ; CLEAR TEXT WINDOW
JMP $AE00 ; JUMP BACK INTO CITY HANDLING
DOORDER JSR $0806 ; CLEAR TEXT WINDOW
LDY #>TXTWHO ; LOAD PTR TO TEXT WHO WILL DRINK
LDX #<TXTWHO
JSR $0809 ; PRINT WHO WILL DRINK
JSR $0896 ; GET PTR TO CHAR NAME CHOOSEN, OR SET CARRY IF NONE
BCS MAINMENU ; IF ÅÓÃ BACK TO MAIN MENU
STY $0F ; SAVE PTR TO CHAR'S ROSTER ENTRY
STA $10
LDY #$00 ; INDEX INTO CHAR NAME
LDA ($0F),Y ; GET FIRST CHAR OF CHAR ÌÏÌ
BEQ MAINMENU ; IS 0 IF NONE CHOOSEN, BACK TO MAIN MENU
JSR $0806 ; CLEAR TEXT WINDOW
LDY #>TXTSEAT ; LOAD TEXT ÓEAT THYSELF
LDX #<TXTSEAT
JSR $0809 ; PRINT TEXT
LDX $0F ; LOAD CHAR NAME
LDY $10
JSR $0809 ; PRINT CHAR NAME
LDY #>TXTDRINK ; LOAD TEXT ×E'VE GOT... AND DRINK MENU
LDX #<TXTDRINK
JSR $0809 ; PRINT TEXT
LDA #$05 ; SET NUM OF DRINKS TO 5
STA CNTDRINK+1 ; SELF MODIFYING FOR DRINK NUMBERS
LDA $28 ; GET PRESENT Î COOR
CMP #$05 ; IS Î COOR OF ÓCARLET ÂARD?
BNE NOWINE ; NO, SO NO WINE TO SERVE
LDA $29 ; GET PRESENT Å COOR
CMP #$1C ; IS Å COOR OF ÓCARLET ÂARD?
BNE NOWINE ; NO, SO NO WINE
LDY #>TXTWINE ; HERE WE HAVE WINE, Î AND Å MATCHES ÓCARLET ÂARD
LDX #<TXTWINE ; LOAD TEXT (×)INE
JSR $0809 ; PRINT TEXT
INC CNTDRINK+1 ; WITH WINE WE HAVE 6 DRINKS, SO INCREASE
NOWINE LDY #>TXTWHAT ; TEXT ×HAT WILL IT BE?
LDX #<TXTWHAT
JSR $0809 ; PRINT TEXT
JSR $080F ; WAIT FOR KEY
JSR $083F ; GET KEY PRESSED
STA KEYPRSSD ; SAVE KEY PRESSED
LDX #$00 ; INDEX COUNTER FOR POSSIBLE KEYS
TESTKEY CMP VLDKEYS,X ; THIS MY DRINK?
BEQ MYKEY ; YES, HANDLE IT
INX ; NO, TEST NEXT
CNTDRINK CPX #$00
BCC TESTKEY ; GO TO TEST KEY
JMP MAINMENU ; NOT A VALID DRINK, BACK TO MAIN MENU
MYKEY STX $DC ; SAVE POSITION OF FOUND DRINK
LDA PRICES,X ; LOAD DRINK PRICE
LDY #$0B ; STORE PRICE OF DRINK, ERRORNEOUS!!!
STA $0380,Y
LDA #$00
LOP1 STA $0380,Y ; OVERWRITES PRICE! ÄRINKS REALLY ARE ÆÒÅÅ. ÔHIS IS A BUG
DEY
BPL LOP1
LDY #$24 ; POINT TO GOLD IN CHARACTER ROSTER
JSR $0860 ; CHECK IF ENOUGH GOLD
BCC CANPAY ; IF ENOUGH, GO AHEAD
LDY #>KEYPRSSD ; LOAD PRESSED KEY CHAR
LDX #<KEYPRSSD
JSR $0809 ; PRINT KEY
NOGOLD LDY #$A6 ; TEXT ÎOT ENOUGH ÇOLD
LDX #$B9
JSR $0809 ; PRINT TEXT
LDA #$08 ; ÐAUSE TIME 8 UNITS
JSR $0857 ; MAKE A PAUSE
JMP MAINMENU ; BACK TO MAIN MENU
CANPAY LDY #>KEYPRSSD ; LOAD PRESSED KEY CHAR
LDX #<KEYPRSSD
JSR $0809 ; PRINT KEY
LDY #$24 ; POINT TO GOLD IN CHARACTER ROSTER
JSR $085D ; CASH IN THE DRINK
LDA $DC ; LOAD DRINK POSITION
CMP #$03 ; IS FOUL SPIRITS?
BEQ SPIRITS
CMP #$04 ; IS ÇINGER ÁLE?
BEQ GINGALE
CMP #$05 ; IS ×INE?
BEQ CELLAR
LDY #>TXTBURP ; OTHER DRINKS LOAD MESSAGE
LDX #<TXTBURP ; ÎOT TOO BAD
JSR $0809 ; PRINT TEXT
JMP CHKBARD
SPIRITS LDY #>TXTFEEL ; TEXT NO FEEL WELL
LDX #<TXTFEEL
JSR $0809 ; PRINT TEXT
JMP CHKBARD ; TEST IF BARD
GINGALE LDY #>TXTGIRL ; GIRLS WILL LAUGH ABOUT YOU
LDX #<TXTGIRL
JSR $0809 ; PRINT TEXT
LDA #$08 ; PAUSE UNITS
JSR $0857 ; MAKE PAUSE
JMP MAINMENU ; NO BARD SONGS FOR GINGER ALE!
CELLAR LDY #>TXTPICK ; LOAD TEXT DOWN TO CELLAR
LDX #<TXTPICK
JSR $0809 ; PRINT TEXT
LDA #$08 ; PAUSE UNITS
JSR $0857 ; MAKE PAUSE
LDA #$00 ; ADDRESS LEVEL 0 = WINE CELLAR
STA $E0 ; STORE INTO VAR
LDA #$01 ; ADDRESS DISK #1 = DUNGEON DISK
JMP $0890 ; ENTER DUNGEON
CHKBARD LDY #$38 ; GET BYTE 56 FROM PRESENT CHAR
LDA ($0F),Y ; LOAD IT FROM CHAR
CMP #$06 ; IS IT CLASS 6 = ÂARD?
BNE DRINKEND ; NO, END DRINK
LDY #$23 ; LOAD LO-BYTE OF CURRENT LEVEL OF CHAR
LDA ($0F),Y ; GET IT
LDY #$49 ; ADDRESS REMAINING BARD SONGS
STA ($0F),Y ; STORE LEVEL INTO REMAINING BARD SONGS
DRINKEND LDA #$08 ; PAUSE UNITS
JSR $0857 ; MAKE PAUSE
EXITORDR JMP MAINMENU
DOTALK JSR $0806 ; CLEAR TEXT WINDOW
LDY #>TXTWHO2 ; LOAD TEXT TALK TO BARKEEP
LDX #<TXTWHO2
JSR $0809 ; PRINT TEXT
JSR $0896 ; TEST FOR CHAR KEY 1-6
BCS EXITORDR ; NO CHAR KEY, BACK TO MAIN MENU
STY $0F ; STORE FOUND CHAR'S ROSTER POINTER
STA $10
LDY #$00 ; SET ROSTER INDEX TO NAME
LDA ($0F),Y ; TEST FIRST CHAR NAME CHAR
BEQ EXITORDR ; IF 0 THERE IS NO CHAR
JSR $0806 ; CLEAR TEXT WINDOW
LDY #>TXTCHEAP ; LOAD TEXT TALK AIN'T CHEAP
LDX #<TXTCHEAP
JSR $0809 ; PRINT TEXT
JSR $081B ; GET AN INPUT LINE
BCS EXITORDR ; ON NO INPUT
CPX #$00 ; TEST # OF CHARS ENTERED
BEQ EXITORDR ; IF EMPTY INPUT BACK TO MAIN MENU
CPX #$04 ; TEST IF MORE THAN 999 GOLD
BCS EXITORDR ; TIP TOO BIG, BACK TO MAIN MENU
DEX ; SETUP LOOP COUNTER
LDY #$0B ; POINTER TO PRICE BUFFER
NEXTINP LDA $0334,X ; GET INPUT CHAR AT X
SEC ; TEST NUMERIC
SBC #$B0
CMP #$0A
BCS EXITORDR ; NOT A DIGIT 0-9, BACK TO MENU
STA $0380,Y ; STORE IN PRICE BUFFER
DEY ; NEXT PRICE DIGIT
DEX ; NEXT INPUT CHAR
BPL NEXTINP ; HANDLE NEXT INPUT CHAR
LDA #$00 ; ZERO NOT USED PRICE BUFFER
ZEROOUT STA $0380,Y
DEY
BPL ZEROOUT ; MORE BUFFER TO FILL?
LDY #$24 ; OFFSET TO CHARS GOLD
JSR $0860 ; TEST FOR GOLD
BCC HASGOLD ; IF NUFF GOLD BRANCH
JSR $0836 ; LINEFEED
JSR $0836 ; LINEFEED
JMP NOGOLD
HASGOLD LDY #$24 ; POINT TO CHARS GOLD IN HIS ROSTER
JSR $085D ; CASH IN THE TIP
LDY #$00 ; OFFSET INTO PRICE BUFFER
LDX #$0B ; DIGIT POSITION, HOW BIG IS THE SUM?
NXTDGT LDA $0380,Y ; LOAD PRICE DIGIT
BNE NOT0 ; IF NOT A 0, CALC THE SUM
DEX ; DECREASE DIGIT POSITION FOR AMOUNT
INY ; NEXT PRICE DIGIT
CPY #$0C ; OF COURSE MAX 12 DIGITS FOR GOLD
BCC NXTDGT ; IF SOME LEFT, CHECK NEXT
LDY #>TXTMONY ; LOAD TEXT MONEY TALKS
LDX #<TXTMONY
JSR $0809 ; PRINT TEXT
LDA #$08 ; PAUSE UNITS
JSR $0857 ; MAKE PAUSE
JMP MAINMENU
NOT0 PHA ; SAVE REGISTER Á
TXA ; MOVE PRICE DIGIT NUMBER TO A
ASL A ; TIMES 2
ASL A ; TIMES 2
TAX ; PUT A BACK TO X
PLA ; RESTORE REGISTER Á
CMP #$05 ; TEST FOR VALUE OF HIGHEST DIGIT
BCC GOON ; IF LESS THAN 5
INX ; ELSE ADD 2 TO X
INX
GOON STX ADDVAL+1 ; SELF-MODIFY: STORE X VALUE
JSR $082A ; CREATE TWO BYTE RANDOM NUMBER
LDA $5A ; 5A AND 5B SET DURING PREV SUBROUTINE
AND #$03 ; ISOLATE LOW 3 BITS
CLC
ADDVAL ADC #$00 ; ADD THE MODIFIED X VALUE
ASL A ; AGAIN TIMES 2
TAX ; BACK INTO X
LDY TXTHINTS+1,X ; LOAD TEXT POINTER FROM TABLE
LDA TXTHINTS,X
TAX ; MOVE TEXT POINTER TO X FOR 0809
JSR $0806 ; CLEAR TEXT WINDOW
JSR $0809 ; PRINT TEXT
LDY #>TXTKEY ; LOAD TEXT PRESS A KEY
LDX #<TXTKEY
JSR $0809 ; PRINT TEXT
JSR $080F ; WAIT KEY PRESSED
JMP MAINMENU ; BACK TO MAIN MENU
ENTERINN LDX #$00 ; SET CNTR FOR TAVERN COORDINATES
TSTCOORS LDA $28 ; LOAD PARTY'S Î COOR
CMP INNCOORS,X ; MATCHES TAVERN'S Î COOR?
BNE NEXTCOOR ; NO, TRY NEXT Î COOR
LDA $29 ; LOAD PARTY'S Å COOR
CMP INNCOORS+1,X ; MATCHES TAVERN'S Å COOR?
BEQ GOIN ; YES, GO INSIDE
NEXTCOOR INX ; PREPARE TO LOAD NEXT Î OR Å COOR
INX
CPX #$10 ; ALL 8 PAIRS CHECKED?
BCC TSTCOORS ; NO, TRY NEXT
LDX #$00 ; ALL CHECKED, NO MATCH, SET DEFAULT
GOIN LDA PTRNAMES,X ; GET TAVERN NAME POINTER
STA $58
LDA PTRNAMES+1,X
STA $59
LDA INNDIRS,X ; LOAD DIRECTION FOR TAVERN
STA $24
JMP $080C ; CONTINUE WITH OUTTEXT, THAT CODE WILL RTS
EXITINN LDA $24 ; GET PARTY'S PRESENT DIRECTION
BEQ DIRN ; IS 0 = Î?
CMP #$01 ; IS 1 = Å?
BEQ DIRE ; ON YES MOVE EAST
CMP #$02 ; IS 2 = Ó?
BEQ DIRS ; ON YES MOVE SOUTH
DIRW DEC $29 ; MUST BE 3 = × NOW, SO MOVE WEST
RTS
DIRN INC $28
RTS
DIRS DEC $28
RTS
DIRE INC $29
RTS
;
; TEXT FOR MAIN MENU "ÈAIL, TRAVELERS..."
;
TXTMNU .BYTE $C8,$E1,$E9,$EC,$AC,$A0
.BYTE $F4,$F2,$E1,$F6,$E5,$EC
.BYTE $E5,$F2,$F3,$A1,$A0,$D3
.BYTE $F4,$E5,$F0,$A0,$F4,$EF
.BYTE $A0,$F4,$E8,$E5,$A0,$E2
.BYTE $E1,$F2,$A0,$E1,$EE,$E4
.BYTE $A0,$C9,$A7,$EC,$EC,$A0
.BYTE $E4,$F2,$E1,$F7,$A0,$F9
.BYTE $EF,$F5,$A0,$E1,$A0,$F4
.BYTE $E1,$EE,$EB,$E1,$F2,$E4
.BYTE $AE,$00,$00,$D9,$EF,$F5
.BYTE $A0,$E3,$E1,$EE,$BA,$00
.BYTE $00,$A8,$CF,$A9,$F2,$E4
.BYTE $E5,$F2,$A0,$E1,$A0,$E4
.BYTE $F2,$E9,$EE,$EB,$00,$A8
.BYTE $D4,$A9,$E1,$EC,$EB,$A0
.BYTE $F4,$EF,$A0,$E2,$E1,$F2
.BYTE $EB,$E5,$E5,$F0,$00,$A8
.BYTE $C5,$A9,$F8,$E9,$F4,$A0
.BYTE $F4,$E8,$E5,$A0,$F4,$E1
.BYTE $F6,$E5,$F2,$EE,$FF
;
; TEXT "ÓEAT THYSELF, "
;
TXTSEAT .BYTE $D3,$E5,$E1,$F4,$A0,$F4
.BYTE $E8,$F9,$F3,$E5,$EC,$E6
.BYTE $AC,$00,$FF
;
; TEXT ". ×E'VE GOT..." + DRINK MENU W/O WINE
;
TXTDRINK .BYTE $AE,$A0,$D7,$E5,$A7,$F6
.BYTE $E5,$A0,$E7,$EF,$F4,$AE
.BYTE $AE,$AE,$00,$00,$A8,$C1
.BYTE $A9,$EC,$E5,$00,$A8,$C2
.BYTE $A9,$E5,$E5,$F2,$00,$A8
.BYTE $CD,$A9,$E5,$E1,$E4,$00
.BYTE $A8,$C6,$A9,$EF,$F5,$EC
.BYTE $A0,$F3,$F0,$E9,$F2,$E9
.BYTE $F4,$F3,$00,$A8,$C7,$A9
.BYTE $E9,$EE,$E7,$E5,$F2,$A0
.BYTE $C1,$EC,$E5,$DC
;
; TEXT "(×)INE"
;
TXTWINE .BYTE $00,$A8,$D7,$A9,$E9,$EE
.BYTE $E5,$DC
;
; TEXT "ÔHE BARKEEP SAYS..."
;
TXTPICK .BYTE $D4,$E8,$E5,$A0,$E2,$E1
.BYTE $F2,$EB,$E5,$E5,$F0,$A0
.BYTE $F3,$E1,$F9,$F3,$AC,$A0
.BYTE $A2,$C7,$EF,$A0,$E4,$EF
.BYTE $F7,$EE,$A0,$F4,$EF,$A0
.BYTE $F4,$E8,$E5,$A0,$E3,$E5
.BYTE $EC,$EC,$E1,$F2,$A0,$E1
.BYTE $EE,$E4,$A0,$F0,$E9,$E3
.BYTE $EB,$A0,$EF,$F5,$F4,$A0
.BYTE $E1,$A0,$E2,$EF,$F4,$F4
.BYTE $EC,$E5,$AE,$A2,$DC
;
; TEXT "ÔALK AIN'T CHEAP..."
;
TXTCHEAP .BYTE $A2,$D4,$E1,$EC,$EB,$A0
.BYTE $E1,$E9,$EE,$A7,$F4,$A0
.BYTE $E3,$E8,$E5,$E1,$F0,$AC
.BYTE $A2,$A0,$F4,$E8,$E5,$A0
.BYTE $E2,$E1,$F2,$EB,$E5,$E5
.BYTE $F0,$A0,$F3,$E1,$F9,$F3
.BYTE $AE,$00,$00,$C8,$EF,$F7
.BYTE $A0,$ED,$F5,$E3,$E8,$A0
.BYTE $F7,$E9,$EC,$EC,$A0,$F9
.BYTE $EF,$F5,$A0,$F4,$E9,$F0
.BYTE $A0,$E8,$E9,$ED,$BF,$00
.BYTE $00,$FF
;
; TEXT "ÍONEY TALKS..."
;
TXTMONY .BYTE $00,$00,$A2,$CD,$EF,$EE
.BYTE $E5,$F9,$A0,$F4,$E1,$EC
.BYTE $EB,$F3,$AC,$A0,$E2,$F5
.BYTE $E4,$E4,$F9,$AC,$A2,$A0
.BYTE $E8,$E5,$A0,$F3,$E1,$F9
.BYTE $F3,$AE,$DC
;
; TEXT "(ÂURP!) ÎOT TOO BAD."
;
TXTBURP .BYTE $A8,$C2,$F5,$F2,$F0,$A1
.BYTE $A9,$A0,$CE,$EF,$F4,$A0
.BYTE $F4,$EF,$EF,$A0,$E2,$E1
.BYTE $E4,$AE,$DC
;
; TEXT "ÙOU DON'T FEEL TOO WELL."
;
TXTFEEL .BYTE $D9,$EF,$F5,$A0,$E4,$EF
.BYTE $EE,$A7,$F4,$A0,$E6,$E5
.BYTE $E5,$EC,$A0,$F4,$EF,$EF
.BYTE $A0,$F7,$E5,$EC,$EC,$AE
.BYTE $DC
;
; TEXT "ÔHE GIRLS IN THE TAVERN..."
;
TXTGIRL .BYTE $D4,$E8,$E5,$A0,$E7,$E9
.BYTE $F2,$EC,$F3,$A0,$E9,$EE
.BYTE $A0,$F4,$E8,$E5,$A0,$F4
.BYTE $E1,$F6,$E5,$F2,$EE,$A0
.BYTE $E1,$F2,$E5,$A0,$EE,$EF
.BYTE $F4,$A0,$E9,$ED,$F0,$F2
.BYTE $E5,$F3,$F3,$E5,$E4,$AE
.BYTE $DC
;
; TEXT "×HO WILL DRINK [1-6]"
;
TXTWHO .BYTE $D7,$E8,$EF,$A0,$F7,$E9
.BYTE $EC,$EC,$A0,$E4,$F2,$E9
.BYTE $EE,$EB,$BF,$A0,$DB,$B1
.BYTE $AD,$B6,$DD,$DC
;
; TEXT "×HO WILL TALK TO..."
;
TXTWHO2 .BYTE $D7,$E8,$EF,$A0,$F7,$E9
.BYTE $EC,$EC,$A0,$F4,$E1,$EC
.BYTE $EB,$A0,$F4,$EF,$A0,$F4
.BYTE $E8,$E5,$A0,$E2,$E1,$F2
.BYTE $EB,$E5,$E5,$F0,$BF,$A0
.BYTE $DB,$B1,$AD,$B6,$DD,$DC
;
; PRICE FOR THE CHOOSEN DRINK
;
PRICES .BYTE $03,$02,$04,$06,$01,$03
;
; ÖALID KEYS FOR DRINKS CHOOSEN
;
VLDKEYS .BYTE $C1,$C2,$CD,$C6,$C7,$D7
;
; TEXT "×HAT'LL IT BE?"
;
TXTWHAT .BYTE $00,$00,$D7,$E8,$E1,$F4
.BYTE $A7,$EC,$EC,$A0,$E9,$F4
.BYTE $A0,$E2,$E5,$BF,$A0,$DC
;
; TEXT "ÐRESS A KEY..."
;
TXTKEY .BYTE $00,$00,$D0,$F2,$E5,$F3
.BYTE $F3,$A0,$E1,$A0,$EB,$E5
.BYTE $F9,$AE,$AE,$AE,$DC
;
; STORES THE CHOOSEN DRINK
;
KEYPRSSD .BYTE $A0
;
; GARBAGE ???
;
TABLBA6B .BYTE $00,$00,$FF,$02,$03,$00
.BYTE $01
;
; POINTERS TO HINT TEXTS, DEPENDING ON TIP
;
TXTHINTS .BYTE $9A,$BA,$9A,$BA,$CD,$BA
.BYTE $CD,$BA,$14,$BB,$14,$BB
.BYTE $59,$BB,$59,$BB,$AC,$BB
.BYTE $AC,$BB,$EE,$BB,$EE,$BB
.BYTE $59,$BB,$59,$BB,$59,$BB
.BYTE $59,$BB,$59,$BB,$59,$BB
.BYTE $59,$BB,$59,$BB
;
; TEXT "ÔHE GUARDIANS..."
;
HNTGUAR .BYTE $A2,$D4,$E8,$E5,$A0,$E7
.BYTE $F5,$E1,$F2,$E4,$E9,$E1
.BYTE $EE,$F3,$A0,$E3,$E1,$EE
.BYTE $A0,$E2,$E5,$A0,$E4,$E5
.BYTE $E1,$E4,$EC,$F9,$AC,$A2
.BYTE $A0,$F4,$E8,$E5,$A0,$E2
.BYTE $E1,$F2,$EB,$E5,$E5,$F0
.BYTE $A0,$F3,$ED,$E9,$F2,$EB
.BYTE $F3,$AE,$DC
;
; TEXT "Á TASTE OF WINE..."
;
HNTWINE .BYTE $A2,$C1,$A0,$F4,$E1,$F3
.BYTE $F4,$E5,$A0,$EF,$E6,$A0
.BYTE $F7,$E9,$EE,$E5,$A0,$ED
.BYTE $E9,$E7,$E8,$F4,$A0,$F4
.BYTE $F5,$F2,$EE,$A0,$F4,$EF
.BYTE $A0,$F2,$E5,$E1,$E4,$F9
.BYTE $A0,$E1,$E4,$F6,$E5,$EE
.BYTE $F4,$F5,$F2,$E5,$AC,$A2
.BYTE $A0,$F4,$E8,$E5,$A0,$E2
.BYTE $E1,$F2,$EB,$E5,$E5,$F0
.BYTE $A0,$E3,$E8,$F5,$E3,$EB
.BYTE $EC,$E5,$F3,$AE,$DC
;
; TEXT "ÌOOK FOR THE ÒEVIEW ÂOARD..."
;
HNTRB .BYTE $A2,$CC,$EF,$EF,$EB,$A0
.BYTE $E6,$EF,$F2,$A0,$F4,$E8
.BYTE $E5,$A0,$D2,$E5,$F6,$E9
.BYTE $E5,$F7,$A0,$C2,$EF,$E1
.BYTE $F2,$E4,$A0,$EF,$EE,$A0
.BYTE $D4,$F2,$F5,$ED,$F0,$E5
.BYTE $F4,$A0,$D3,$F4,$F2,$E5
.BYTE $E5,$F4,$AC,$A2,$A0,$F4
.BYTE $E8,$E5,$A0,$E2,$E1,$F2
.BYTE $EB,$E5,$E5,$F0,$A0,$F7
.BYTE $E8,$E9,$F3,$F0,$E5,$F2
.BYTE $F3,$AE,$DC
;
; TEXT "ÔHE GATES CANNOT BE SCALED..."
;
HNTGATE .BYTE $A2,$D4,$E8,$E5,$A0,$E7
.BYTE $E1,$F4,$E5,$F3,$A0,$E3
.BYTE $E1,$EE,$EE,$EF,$F4,$A0
.BYTE $E2,$E5,$A0,$F3,$E3,$E1
.BYTE $EC,$E5,$E4,$AC,$A0,$E2
.BYTE $F5,$F4,$A0,$E1,$EE,$A0
.BYTE $E5,$EE,$F4,$F2,$E1,$EE
.BYTE $E3,$E5,$A0,$E1,$EC,$F7
.BYTE $E1,$F9,$F3,$A0,$E5,$F8
.BYTE $E9,$F3,$F4,$F3,$AC,$A2
.BYTE $A0,$F4,$E8,$E5,$A0,$E2
.BYTE $E1,$F2,$EB,$E5,$E5,$F0
.BYTE $A0,$F3,$F4,$F5,$F4,$F4
.BYTE $E5,$F2,$F3,$AE,$DC
;
; TEXT "ÔHE ÓTONE ÇOLEM..."
;
HNTGOLEM .BYTE $A2,$D4,$E8,$E5,$A0,$D3
.BYTE $F4,$EF,$EE,$E5,$A0,$C7
.BYTE $EF,$EC,$E5,$ED,$A0,$E8
.BYTE $E1,$F3,$A0,$E2,$E5,$E5
.BYTE $EE,$A0,$F3,$F0,$EF,$EB
.BYTE $E5,$EE,$A0,$EF,$E6,$A0
.BYTE $F4,$F7,$EF,$E6,$EF,$EC
.BYTE $E4,$AC,$A2,$A0,$F4,$E8
.BYTE $E5,$A0,$E2,$E1,$F2,$EB
.BYTE $E5,$E5,$F0,$A0,$F3,$ED
.BYTE $E9,$EC,$E5,$F3,$AE,$DC
;
; TEXT "ÔHE ÓPECTRE ÓNARE..."
;
HNTSNARE .BYTE $A2,$D4,$E8,$E5,$A0,$D3
.BYTE $F0,$E5,$E3,$F4,$F2,$E5
.BYTE $A0,$D3,$EE,$E1,$F2,$E5
.BYTE $A0,$E3,$E1,$EE,$A0,$E4
.BYTE $F2,$E1,$F7,$A0,$E9,$EE
.BYTE $A0,$E5,$F6,$E5,$EE,$A0
.BYTE $F4,$E8,$E5,$A0,$ED,$E9
.BYTE $E7,$E8,$F4,$E9,$E5,$F3
.BYTE $F4,$AC,$A2,$A0,$F4,$E8
.BYTE $E5,$A0,$E2,$E1,$F2,$EB
.BYTE $E5,$E5,$F0,$A0,$E7,$F2
.BYTE $F5,$ED,$E2,$EC,$E5,$F3
.BYTE $AE,$DC
;
; 8 PAIRS OF TAVERN COORS IN ÓKARA ÂRAE MAP
;
INNCOORS .BYTE $FF,$FF,$05,$1C,$13,$17
.BYTE $07,$15,$06,$14,$01,$14
.BYTE $08,$01,$12,$0B
;
; 8 POINTERS TO TAVERN NAMES TEXTS (DOWN HERE)
;
PTRNAMES .BYTE $68,$BC,$6F,$BC,$7C,$BC
.BYTE $89,$BC,$96,$BC,$A3,$BC
.BYTE $B0,$BC,$BD,$BC
;
; DIRECTIONS FOR RETURN FROM TAVERN INTO CITY
;
INNDIRS .BYTE $00,$00,$03,$00,$03,$00
.BYTE $00,$00,$02,$00,$00,$00
.BYTE $02,$00,$03,$00
;
; NAME FOR UNKNOWN TAVERNS "ÔAVERN"
;
NAMDEF .BYTE $D4,$E1,$F6,$E5,$F2,$EE
.BYTE $DC
;
; NAME "ÓCARLET ÂARD"
;
NAMSB .BYTE $D3,$E3,$E1,$F2,$EC,$E5
.BYTE $F4,$A0,$C2,$E1,$F2,$E4
.BYTE $DC
;
; NAME "ÓINISTER ÉNN"
;
NAMSI .BYTE $D3,$E9,$EE,$E9,$F3,$F4
.BYTE $E5,$F2,$A0,$C9,$EE,$EE
.BYTE $DC
;
; NAME "ÄRAGONBREATH"
;
NAMDRBR .BYTE $C4,$F2,$E1,$E7,$EF,$EE
.BYTE $E2,$F2,$E5,$E1,$F4,$E8
.BYTE $DC
;
; NAME "ÁSK Ù'ÍOTHER"
;
NAMAYM .BYTE $C1,$F3,$EB,$A0,$D9,$A7
.BYTE $CD,$EF,$F4,$E8,$E5,$F2
.BYTE $DC
;
; NAME "ÁRCHMAGE ÉNN"
;
NAMAI .BYTE $C1,$F2,$E3,$E8,$ED,$E1
.BYTE $E7,$E5,$A0,$C9,$EE,$EE
.BYTE $DC
;
; NAME "ÓKULL TAVERN"
;
NAMST .BYTE $D3,$EB,$F5,$EC,$EC,$A0
.BYTE $D4,$E1,$F6,$E5,$F2,$EE
.BYTE $DC
;
; NAME "ÄRAWNBLADE"
;
NAMDRBL .BYTE $C4,$F2,$E1,$F7,$EE,$E2
.BYTE $EC,$E1,$E4,$E5,$DC
;
; GARBAGE
;
TABLBCC8 .BYTE $04,$00,$00,$20,$10,$10
.BYTE $10,$10,$03,$08,$05,$02
.BYTE $01,$00,$01,$00,$00,$00
.BYTE $02,$00,$01,$03,$50,$00
.BYTE $00,$01,$03,$00,$00,$00
.BYTE $40,$00,$10,$10,$03,$30
.BYTE $00,$00,$00,$00,$02,$01
.BYTE $01,$01,$00,$00,$18,$00
.BYTE $00,$00,$01,$01,$FF,$FF
.BYTE $00
.END