ref: 3be6ca012f8681c664977788fbe692eee72cb9ae
dir: /event/name_rater.asm/
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, PartyMonNicknames 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, PartyMonOT ld bc, NAME_LENGTH ld a, [CurPartyMon] call AddNTimes ld de, PlayerName ld c, NAME_LENGTH 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, PartyMonNicknames 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