1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
; prints text for bookshelves in buildings without sign events
PrintBookshelfText: ; fb50 (3:7b50)
ld a, [$c109]
cp $4
jr nz, .asm_fb7f
ld a, [W_CURMAPTILESET] ; $d367
ld b, a
FuncCoord 8, 7 ; $c434
ld a, [Coord]
ld c, a
ld hl, BookshelfTileIDs ; $7b8b
.asm_fb62
ld a, [hli]
cp $ff
jr z, .asm_fb7f
cp b
jr nz, .asm_fb7b
ld a, [hli]
cp c
jr nz, .asm_fb7c
ld a, [hl]
push af
call EnableAutoTextBoxDrawing
pop af
call PrintPredefTextID
xor a
ld [$ffdb], a
ret
.asm_fb7b
inc hl
.asm_fb7c
inc hl
jr .asm_fb62
.asm_fb7f
ld a, $ff
ld [$ffdb], a
ld b, BANK(PrintCardKeyText)
ld hl, PrintCardKeyText
jp Bankswitch
; format: db tileset id, bookshelf tile id, text id
BookshelfTileIDs: ; fb8b (3:7b8b)
db PLATEAU, $30, $3A
db HOUSE, $3D, $3F
db HOUSE, $1E, $40
db MANSION, $32, $40
db REDS_HOUSE_1, $32, $40
db LAB, $28, $40
db LOBBY, $16, $41
db GYM, $1D, $40
db DOJO, $1D, $40
db GATE, $22, $40
db MART, $54, $42
db MART, $55, $42
db POKECENTER, $54, $42
db POKECENTER, $55, $42
db LOBBY, $50, $42
db LOBBY, $52, $42
db SHIP, $36, $40
db $FF
IndigoPlateauStatues: ; fbbf (3:7bbf)
db $08 ; asm
ld hl, IndigoPlateauStatuesText1
call PrintText
ld a, [W_XCOORD]
bit 0, a
ld hl, IndigoPlateauStatuesText2
jr nz, .asm_fbd3
ld hl, IndigoPlateauStatuesText3
.asm_fbd3
call PrintText
jp TextScriptEnd
IndigoPlateauStatuesText1: ; fbd9 (3:7bd9)
TX_FAR _IndigoPlateauStatuesText1
db "@"
IndigoPlateauStatuesText2: ; fbde (3:7bde)
TX_FAR _IndigoPlateauStatuesText2
db "@"
IndigoPlateauStatuesText3: ; fbe3 (3:7be3)
TX_FAR _IndigoPlateauStatuesText3
db "@"
BookOrSculptureText: ; fbe8 (3:7be8)
db $08 ; asm
ld hl, PokemonBooksText
ld a, [W_CURMAPTILESET]
cp MANSION ; Celadon Mansion tileset
jr nz, .asm_fbfd
ld a, [$c420]
cp $38
jr nz, .asm_fbfd
ld hl, DiglettSculptureText
.asm_fbfd
call PrintText
jp TextScriptEnd
PokemonBooksText: ; fc03 (3:7c03)
TX_FAR _PokemonBooksText
db "@"
DiglettSculptureText: ; fc08 (3:7c08)
TX_FAR _DiglettSculptureText
db "@"
ElevatorText: ; fc0d (3:7c0d)
TX_FAR _ElevatorText
db "@"
TownMapText: ; fc12 (3:7c12)
TX_FAR _TownMapText
db $06
db $08 ; asm
ld a, $1
ld [$cc3c], a
ld hl, $d730
set 6, [hl]
call GBPalWhiteOutWithDelay3
xor a
ld [$ffb0], a
inc a
ld [H_AUTOBGTRANSFERENABLED], a
call LoadFontTilePatterns
callba DisplayTownMap
ld hl, $d730
res 6, [hl]
ld de, TextScriptEnd
push de
ld a, [H_LOADEDROMBANK]
push af
jp CloseTextDisplay
PokemonStuffText: ; fc45 (3:7c45)
TX_FAR _PokemonStuffText
db "@"
|
