ref: 608d0d86e47b09f1c1ddbcf3b9c51e0ac628d7ed
parent: 0fc0c0bebcb580d5d35460170c83a4fedaadd271
author: yenatch <[email protected]>
date: Mon Sep 9 12:09:34 EDT 2013
move name rater asm into event/name_rater.asm
--- /dev/null
+++ b/event/name_rater.asm
@@ -1,0 +1,236 @@
+NameRater: ; fb6ed
+ ld hl, UnknownText_0xfb80f
+ call PrintText
+ call Function1dcf
+ 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 Function1dcf
+ 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, BANK(UnknownText_0x1c0043)
+ db "@"
+; 0xfb814
+
+UnknownText_0xfb814: ; 0xfb814
+ ; Which #MON's nickname should I rate for you?
+ text_jump UnknownText_0x1c00a0, BANK(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, BANK(UnknownText_0x1c00cd)
+ db "@"
+; 0xfb81e
+
+UnknownText_0xfb81e: ; 0xfb81e
+ ; All right. What name should we give it, then?
+ text_jump UnknownText_0x1c0142, BANK(UnknownText_0x1c0142)
+ db "@"
+; 0xfb823
+
+UnknownText_0xfb823: ; 0xfb823
+ ; That's a better name than before! Well done!
+ text_jump UnknownText_0x1c0171, BANK(UnknownText_0x1c0171)
+ db "@"
+; 0xfb828
+
+UnknownText_0xfb828: ; 0xfb828
+ ; OK, then. Come again sometime.
+ text_jump UnknownText_0x1c019e, BANK(UnknownText_0x1c019e)
+ db "@"
+; 0xfb82d
+
+UnknownText_0xfb82d: ; 0xfb82d
+ ; Hm… @ ? What a great name! It's perfect.
+ ; Treat @ with loving care.
+ text_jump UnknownText_0x1c01be, BANK(UnknownText_0x1c01be)
+ db "@"
+; 0xfb832
+
+UnknownText_0xfb832: ; 0xfb832
+ ; Whoa… That's just an EGG.
+ text_jump UnknownText_0x1c0208, BANK(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, BANK(UnknownText_0x1c0222)
+ db "@"
+; 0xfb83c
+
+UnknownText_0xfb83c: ; 0xfb83c
+ ; All right. This #MON is now named @ .
+ text_jump UnknownText_0x1c0272, BANK(UnknownText_0x1c0272)
+ db "@"
+; 0xfb841
+
--- a/main.asm
+++ b/main.asm
@@ -73868,241 +73868,8 @@
INCBIN "baserom.gbc", $fb656, $fb6ed - $fb656
-NameRater: ; fb6ed
- ld hl, UnknownText_0xfb80f
- call PrintText
- call Function1dcf
- 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 Function1dcf
- 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, BANK(UnknownText_0x1c0043)
- db "@"
-; 0xfb814
-
-UnknownText_0xfb814: ; 0xfb814
- ; Which #MON's nickname should I rate for you?
- text_jump UnknownText_0x1c00a0, BANK(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, BANK(UnknownText_0x1c00cd)
- db "@"
-; 0xfb81e
-
-UnknownText_0xfb81e: ; 0xfb81e
- ; All right. What name should we give it, then?
- text_jump UnknownText_0x1c0142, BANK(UnknownText_0x1c0142)
- db "@"
-; 0xfb823
-
-UnknownText_0xfb823: ; 0xfb823
- ; That's a better name than before! Well done!
- text_jump UnknownText_0x1c0171, BANK(UnknownText_0x1c0171)
- db "@"
-; 0xfb828
-
-UnknownText_0xfb828: ; 0xfb828
- ; OK, then. Come again sometime.
- text_jump UnknownText_0x1c019e, BANK(UnknownText_0x1c019e)
- db "@"
-; 0xfb82d
-
-UnknownText_0xfb82d: ; 0xfb82d
- ; Hm… @ ? What a great name! It's perfect.
- ; Treat @ with loving care.
- text_jump UnknownText_0x1c01be, BANK(UnknownText_0x1c01be)
- db "@"
-; 0xfb832
-
-UnknownText_0xfb832: ; 0xfb832
- ; Whoa… That's just an EGG.
- text_jump UnknownText_0x1c0208, BANK(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, BANK(UnknownText_0x1c0222)
- db "@"
-; 0xfb83c
-
-UnknownText_0xfb83c: ; 0xfb83c
- ; All right. This #MON is now named @ .
- text_jump UnknownText_0x1c0272, BANK(UnknownText_0x1c0272)
- db "@"
-; 0xfb841
+INCLUDE "event/name_rater.asm"
Functionfb841: ; fb841