CoCalc -- CeruleanBadgeHouse.asm

GitHub Repository: pret/pokered
Path: blob/master/scripts/CeruleanBadgeHouse.asm
¹²⁷⁰ views
1
CeruleanBadgeHouse_Script:
2
	ld a, 1 << BIT_NO_AUTO_TEXT_BOX
3
	ld [wAutoTextBoxDrawingControl], a
4
	dec a
5
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
6
	ret
7

8
CeruleanBadgeHouse_TextPointers:
9
	def_text_pointers
10
	dw_const CeruleanBadgeHouseMiddleAgedManText, TEXT_CERULEANBADGEHOUSE_MIDDLE_AGED_MAN
11

12
CeruleanBadgeHouseMiddleAgedManText:
13
	text_asm
14
	ld hl, .Text
15
	call PrintText
16
	xor a
17
	ld [wCurrentMenuItem], a
18
	ld [wListScrollOffset], a
19
.loop
20
	ld hl, .WhichBadgeText
21
	call PrintText
22
	ld hl, .BadgeItemList
23
	call LoadItemList
24
	ld hl, wItemList
25
	ld a, l
26
	ld [wListPointer], a
27
	ld a, h
28
	ld [wListPointer + 1], a
29
	xor a
30
	ld [wPrintItemPrices], a
31
	ld [wMenuItemToSwap], a
32
	ld a, SPECIALLISTMENU
33
	ld [wListMenuID], a
34
	call DisplayListMenuID
35
	jr c, .done
36
	ld hl, CeruleanBadgeHouseBadgeTextPointers
37
	ld a, [wCurItem]
38
	sub BOULDERBADGE
39
	add a
40
	ld d, $0
41
	ld e, a
42
	add hl, de
43
	ld a, [hli]
44
	ld h, [hl]
45
	ld l, a
46
	call PrintText
47
	jr .loop
48
.done
49
	xor a
50
	ld [wListScrollOffset], a
51
	ld hl, .VisitAnyTimeText
52
	call PrintText
53
	jp TextScriptEnd
54

55
.BadgeItemList:
56
	db NUM_BADGES ; #
57
	table_width 1
58
	db BOULDERBADGE
59
	db CASCADEBADGE
60
	db THUNDERBADGE
61
	db RAINBOWBADGE
62
	db SOULBADGE
63
	db MARSHBADGE
64
	db VOLCANOBADGE
65
	db EARTHBADGE
66
	assert_table_length NUM_BADGES
67
	db -1 ; end
68

69
.Text:
70
	text_far _CeruleanBadgeHouseMiddleAgedManText
71
	text_end
72

73
.WhichBadgeText:
74
	text_far _CeruleanBadgeHouseMiddleAgedManWhichBadgeText
75
	text_end
76

77
.VisitAnyTimeText:
78
	text_far _CeruleanBadgeHouseMiddleAgedManVisitAnyTimeText
79
	text_end
80

81
CeruleanBadgeHouseBadgeTextPointers:
82
	table_width 2
83
	dw CeruleanBadgeHouseBoulderBadgeText
84
	dw CeruleanBadgeHouseCascadeBadgeText
85
	dw CeruleanBadgeHouseThunderBadgeText
86
	dw CeruleanBadgeHouseRainbowBadgeText
87
	dw CeruleanBadgeHouseSoulBadgeText
88
	dw CeruleanBadgeHouseMarshBadgeText
89
	dw CeruleanBadgeHouseVolcanoBadgeText
90
	dw CeruleanBadgeHouseEarthBadgeText
91
	assert_table_length NUM_BADGES
92

93
CeruleanBadgeHouseBoulderBadgeText:
94
	text_far _CeruleanBadgeHouseBoulderBadgeText
95
	text_end
96

97
CeruleanBadgeHouseCascadeBadgeText:
98
	text_far _CeruleanBadgeHouseCascadeBadgeText
99
	text_end
100

101
CeruleanBadgeHouseThunderBadgeText:
102
	text_far _CeruleanBadgeHouseThunderBadgeText
103
	text_end
104

105
CeruleanBadgeHouseRainbowBadgeText:
106
	text_far _CeruleanBadgeHouseRainbowBadgeText
107
	text_end
108

109
CeruleanBadgeHouseSoulBadgeText:
110
	text_far _CeruleanBadgeHouseSoulBadgeText
111
	text_end
112

113
CeruleanBadgeHouseMarshBadgeText:
114
	text_far _CeruleanBadgeHouseMarshBadgeText
115
	text_end
116

117
CeruleanBadgeHouseVolcanoBadgeText:
118
	text_far _CeruleanBadgeHouseVolcanoBadgeText
119
	text_end
120

121
CeruleanBadgeHouseEarthBadgeText:
122
	text_far _CeruleanBadgeHouseEarthBadgeText
123
	text_end
124

125
Product

Resources

Company
