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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
Func_f2418:
ld hl, BillsHouseText_f243b
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .asm_f2433
.asm_f2427
ld hl, BillsHouseText_f2440
call PrintText
ld a, $2
ld [wBillsHouseCurScript], a
ret
.asm_f2433
ld hl, BillsHouseText_f2445
call PrintText
jr .asm_f2427
BillsHouseText_f243b:
TX_FAR _BillsHouseText_1e865
db "@"
BillsHouseText_f2440:
TX_FAR _BillsHouseText_1e86a
db "@"
BillsHouseText_f2445:
TX_FAR _BillsHouseText_1e86f
db "@"
Func_f244a:
CheckEvent EVENT_GOT_SS_TICKET
jr nz, .asm_f247e
ld hl, BillsHouseText_f248c
call PrintText
lb bc, S_S_TICKET, 1
call GiveItem
jr nc, .asm_f2485
ld hl, BillsHouseText_f2491
call PrintText
SetEvent EVENT_GOT_SS_TICKET
ld a, HS_CERULEAN_GUARD_1
ld [wMissableObjectIndex], a
predef ShowObject
ld a, HS_CERULEAN_GUARD_2
ld [wMissableObjectIndex], a
predef HideObject
.asm_f247e
ld hl, BillsHouseText_f249d
call PrintText
ret
.asm_f2485
ld hl, BillsHouseText_f2498
call PrintText
ret
BillsHouseText_f248c:
TX_FAR _BillThankYouText
db "@"
BillsHouseText_f2491:
TX_FAR _SSTicketReceivedText
TX_SFX_KEY_ITEM
TX_BUTTON_SOUND
db "@"
BillsHouseText_f2498:
TX_FAR _SSTicketNoRoomText
db "@"
BillsHouseText_f249d:
TX_FAR _BillsHouseText_1e8cb
db "@"
Func_f24a2:
ld hl, BillsHouseText_f24a9
call PrintText
ret
BillsHouseText_f24a9:
TX_FAR _BillsHouseText_1e8da
db "@"
Func_f24ae:
ld a, [wCurMap]
cp BILLS_HOUSE
jr nz, .asm_f24d2
call CheckPikachuFollowingPlayer
jr z, .asm_f24d2
ld a, [wBillsHouseCurScript]
cp $5
ld e, $1b
ret z
cp $0
ld e, $17
ret z
CheckEventHL EVENT_MET_BILL_2
ld e, $20
ret z
ld e, $1f
ret
.asm_f24d2
ld e, $ff
ret
Func_f24d5:
ld a, $ff
ld [wJoyIgnore], a
xor a
ld [wPlayerMovingDirection], a
call UpdateSprites
call UpdateSprites
ld hl, Data_f2505
call ApplyPikachuMovementData
ld a, $f ; pikachu
ld [wEmotionBubbleSpriteIndex], a
ld a, QUESTION_BUBBLE
ld [wWhichEmotionBubble], a
predef EmotionBubble
call DisablePikachuFollowingPlayer
callab InitializePikachuTextID
ret
Data_f2505:
db $00
db $20
db $20
db $20
db $1e
db $3f
Func_f250b:
ld hl, Data_f251c
ld b, SPRITE_FACING_UP
call TryApplyPikachuMovementData
ld hl, Data_f2521
ld b, SPRITE_FACING_RIGHT
call TryApplyPikachuMovementData
ret
Data_f251c:
db $00
db $1f
db $1d
db $38
db $3f
Data_f2521:
db $00
db $1e
db $1f
db $1f
db $1d
db $38
db $3f
|
