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
|
BillsHousePrintBillPokemonText::
ld hl, .ImNotAPokemonText
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .answered_no
.use_machine
ld hl, .UseSeparationSystemText
call PrintText
ld a, SCRIPT_BILLSHOUSE_SCRIPT2
ld [wBillsHouseCurScript], a
ret
.answered_no
ld hl, .NoYouGottaHelpText
call PrintText
jr .use_machine
.ImNotAPokemonText:
text_far _BillsHouseBillImNotAPokemonText
text_end
.UseSeparationSystemText:
text_far _BillsHouseBillUseSeparationSystemText
text_end
.NoYouGottaHelpText:
text_far _BillsHouseBillNoYouGottaHelpText
text_end
BillsHousePrintBillSSTicketText::
CheckEvent EVENT_GOT_SS_TICKET
jr nz, .got_ss_ticket
ld hl, .ThankYouText
call PrintText
lb bc, S_S_TICKET, 1
call GiveItem
jr nc, .bag_full
ld hl, .SSTicketReceivedText
call PrintText
SetEvent EVENT_GOT_SS_TICKET
ld a, TOGGLE_CERULEAN_GUARD_1
ld [wToggleableObjectIndex], a
predef ShowObject
ld a, TOGGLE_CERULEAN_GUARD_2
ld [wToggleableObjectIndex], a
predef HideObject
.got_ss_ticket
ld hl, .WhyDontYouGoInsteadOfMeText
call PrintText
ret
.bag_full
ld hl, .SSTicketNoRoomText
call PrintText
ret
.ThankYouText:
text_far _BillsHouseBillThankYouText
text_end
.SSTicketReceivedText:
text_far _SSTicketReceivedText
sound_get_key_item
text_promptbutton
text_end
.SSTicketNoRoomText:
text_far _SSTicketNoRoomText
text_end
.WhyDontYouGoInsteadOfMeText:
text_far _BillsHouseBillWhyDontYouGoInsteadOfMeText
text_end
BillsHousePrintBillCheckOutMyRarePokemonText::
ld hl, .text
call PrintText
ret
.text
text_far _BillsHouseBillCheckOutMyRarePokemonText
text_end
Func_f24ae::
ld a, [wCurMap]
cp BILLS_HOUSE
jr nz, .asm_f24d2
call CheckPikachuFollowingPlayer
jr z, .asm_f24d2
ld a, [wBillsHouseCurScript]
cp SCRIPT_BILLSHOUSE_SCRIPT5
ldpikaemotion e, PikachuEmotion27
ret z
cp SCRIPT_BILLSHOUSE_SCRIPT0
ldpikaemotion e, PikachuEmotion23
ret z
CheckEventHL EVENT_MET_BILL_2
ldpikaemotion e, PikachuEmotion32
ret z
ldpikaemotion e, PikachuEmotion31
ret
.asm_f24d2
ld e, $ff
ret
Func_f24d5::
ld a, PAD_BUTTONS | PAD_CTRL_PAD
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
callfar 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
|
