summaryrefslogtreecommitdiff
path: root/event/name_rater.asm
blob: 3f2bf3912e094d3c74e16546d4fea4e7ebb33276 (plain)
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
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
NameRater: ; fb6ed
	ld hl, UnknownText_0xfb80f
	call PrintText
	call YesNoBox
	jp c, .asm_fb77e
	ld hl, UnknownText_0xfb814
	call PrintText
	callba Function50000
	jr c, .asm_fb77e
	ld a, [CurPartySpecies]
	cp EGG
	jr z, .asm_fb783
	call GetCurNick
	call Functionfb78a
	jr c, .asm_fb779
	ld hl, UnknownText_0xfb819
	call PrintText
	call YesNoBox
	jr c, .asm_fb77e
	ld hl, UnknownText_0xfb81e
	call PrintText
	xor a
	ld [MonType], a
	ld a, [CurPartySpecies]
	ld [$d265], a
	ld [CurSpecies], a
	call GetBaseData
	ld b, 0
	ld de, StringBuffer2
	callba Function116b7
	call Functionfb7be
	ld hl, UnknownText_0xfb837
	jr c, .asm_fb76c
	call Functionfb7d3
	ld hl, UnknownText_0xfb837
	jr c, .asm_fb76c
	ld hl, PartyMon1Nickname
	ld bc, $000b
	ld a, [CurPartyMon]
	call AddNTimes
	ld e, l
	ld d, h
	ld hl, StringBuffer2
	ld bc, $000b
	call CopyBytes
	ld hl, UnknownText_0xfb823

.asm_fb76c
	push hl
	call GetCurNick
	ld hl, UnknownText_0xfb83c
	call PrintText
	pop hl
	jr .asm_fb786

.asm_fb779
	ld hl, UnknownText_0xfb82d
	jr .asm_fb786

.asm_fb77e
	ld hl, UnknownText_0xfb828
	jr .asm_fb786

.asm_fb783
	ld hl, UnknownText_0xfb832

.asm_fb786
	call PrintText
	ret
; fb78a

Functionfb78a: ; fb78a
	ld hl, PartyMon1OT
	ld bc, $000b
	ld a, [CurPartyMon]
	call AddNTimes
	ld de, PlayerName
	ld c, $b
	call .asm_fb7b1
	jr c, .asm_fb7bc
	ld hl, PartyMon1ID
	ld bc, PartyMon2 - PartyMon1
	ld a, [CurPartyMon]
	call AddNTimes
	ld de, PlayerID
	ld c, $2
.asm_fb7b1
	ld a, [de]
	cp [hl]
	jr nz, .asm_fb7bc
	inc hl
	inc de
	dec c
	jr nz, .asm_fb7b1
	and a
	ret

.asm_fb7bc
	scf
	ret
; fb7be

Functionfb7be: ; fb7be
	ld hl, StringBuffer2
	ld c, 10
.asm_fb7c3
	ld a, [hli]
	cp "@"
	jr z, .asm_fb7cf
	cp " "
	jr nz, .asm_fb7d1
	dec c
	jr nz, .asm_fb7c3

.asm_fb7cf
	scf
	ret

.asm_fb7d1
	and a
	ret
; fb7d3

Functionfb7d3: ; fb7d3
	ld hl, PartyMon1Nickname
	ld bc, $000b
	ld a, [CurPartyMon]
	call AddNTimes
	push hl
	call Functionfb802
	ld b, c
	ld hl, StringBuffer2
	call Functionfb802
	pop hl
	ld a, c
	cp b
	jr nz, .asm_fb7fe
	ld de, StringBuffer2
.asm_fb7f2
	ld a, [de]
	cp "@"
	jr z, .asm_fb800
	cp [hl]
	jr nz, .asm_fb7fe
	inc hl
	inc de
	jr .asm_fb7f2

.asm_fb7fe
	and a
	ret

.asm_fb800
	scf
	ret
; fb802

Functionfb802: ; fb802
	ld c, 0
.asm_fb804
	ld a, [hli]
	cp "@"
	ret z
	inc c
	ld a, c
	cp 10
	jr nz, .asm_fb804
	ret
; fb80f

UnknownText_0xfb80f: ; 0xfb80f
	; Hello, hello! I'm the NAME RATER.
	; I rate the names of #MON.
	; Would you like me to rate names?
	text_jump UnknownText_0x1c0043
	db "@"
; 0xfb814

UnknownText_0xfb814: ; 0xfb814
	; Which #MON's nickname should I rate for you?
	text_jump UnknownText_0x1c00a0
	db "@"
; 0xfb819

UnknownText_0xfb819: ; 0xfb819
	; Hm… @ … That's a fairly decent name.
	; But, how about a slightly better nickname?
	; Want me to give it a better name?
	text_jump UnknownText_0x1c00cd
	db "@"
; 0xfb81e

UnknownText_0xfb81e: ; 0xfb81e
	; All right. What name should we give it, then?
	text_jump UnknownText_0x1c0142
	db "@"
; 0xfb823

UnknownText_0xfb823: ; 0xfb823
	; That's a better name than before! Well done!
	text_jump UnknownText_0x1c0171
	db "@"
; 0xfb828

UnknownText_0xfb828: ; 0xfb828
	; OK, then. Come again sometime.
	text_jump UnknownText_0x1c019e
	db "@"
; 0xfb82d

UnknownText_0xfb82d: ; 0xfb82d
	; Hm… @ ? What a great name! It's perfect.
	; Treat @ with loving care.
	text_jump UnknownText_0x1c01be
	db "@"
; 0xfb832

UnknownText_0xfb832: ; 0xfb832
	; Whoa… That's just an EGG.
	text_jump UnknownText_0x1c0208
	db "@"
; 0xfb837

UnknownText_0xfb837: ; 0xfb837
	; It might look the same as before,
	; but this new name is much better! Well done!
	text_jump UnknownText_0x1c0222
	db "@"
; 0xfb83c

UnknownText_0xfb83c: ; 0xfb83c
	; All right. This #MON is now named @ .
	text_jump UnknownText_0x1c0272
	db "@"
; 0xfb841