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
|
CeruleanBadgeHouse_Script:
ld a, 1 << BIT_NO_AUTO_TEXT_BOX
ld [wAutoTextBoxDrawingControl], a
dec a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ret
CeruleanBadgeHouse_TextPointers:
def_text_pointers
dw_const CeruleanBadgeHouseMiddleAgedManText, TEXT_CERULEANBADGEHOUSE_MIDDLE_AGED_MAN
CeruleanBadgeHouseMiddleAgedManText:
text_asm
ld hl, .Text
call PrintText
xor a
ld [wCurrentMenuItem], a
ld [wListScrollOffset], a
.loop
ld hl, .WhichBadgeText
call PrintText
ld hl, .BadgeItemList
call LoadItemList
ld hl, wItemList
ld a, l
ld [wListPointer], a
ld a, h
ld [wListPointer + 1], a
xor a
ld [wPrintItemPrices], a
ld [wMenuItemToSwap], a
ld a, SPECIALLISTMENU
ld [wListMenuID], a
call DisplayListMenuID
jr c, .done
ld hl, CeruleanBadgeHouseBadgeTextPointers
ld a, [wCurItem]
sub BOULDERBADGE
add a
ld d, $0
ld e, a
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
call PrintText
jr .loop
.done
xor a
ld [wListScrollOffset], a
ld hl, .VisitAnyTimeText
call PrintText
jp TextScriptEnd
.BadgeItemList:
db NUM_BADGES ; #
table_width 1
db BOULDERBADGE
db CASCADEBADGE
db THUNDERBADGE
db RAINBOWBADGE
db SOULBADGE
db MARSHBADGE
db VOLCANOBADGE
db EARTHBADGE
assert_table_length NUM_BADGES
db -1 ; end
.Text:
text_far _CeruleanBadgeHouseMiddleAgedManText
text_end
.WhichBadgeText:
text_far _CeruleanBadgeHouseMiddleAgedManWhichBadgeText
text_end
.VisitAnyTimeText:
text_far _CeruleanBadgeHouseMiddleAgedManVisitAnyTimeText
text_end
CeruleanBadgeHouseBadgeTextPointers:
table_width 2
dw CeruleanBadgeHouseBoulderBadgeText
dw CeruleanBadgeHouseCascadeBadgeText
dw CeruleanBadgeHouseThunderBadgeText
dw CeruleanBadgeHouseRainbowBadgeText
dw CeruleanBadgeHouseSoulBadgeText
dw CeruleanBadgeHouseMarshBadgeText
dw CeruleanBadgeHouseVolcanoBadgeText
dw CeruleanBadgeHouseEarthBadgeText
assert_table_length NUM_BADGES
CeruleanBadgeHouseBoulderBadgeText:
text_far _CeruleanBadgeHouseBoulderBadgeText
text_end
CeruleanBadgeHouseCascadeBadgeText:
text_far _CeruleanBadgeHouseCascadeBadgeText
text_end
CeruleanBadgeHouseThunderBadgeText:
text_far _CeruleanBadgeHouseThunderBadgeText
text_end
CeruleanBadgeHouseRainbowBadgeText:
text_far _CeruleanBadgeHouseRainbowBadgeText
text_end
CeruleanBadgeHouseSoulBadgeText:
text_far _CeruleanBadgeHouseSoulBadgeText
text_end
CeruleanBadgeHouseMarshBadgeText:
text_far _CeruleanBadgeHouseMarshBadgeText
text_end
CeruleanBadgeHouseVolcanoBadgeText:
text_far _CeruleanBadgeHouseVolcanoBadgeText
text_end
CeruleanBadgeHouseEarthBadgeText:
text_far _CeruleanBadgeHouseEarthBadgeText
text_end
|
