summaryrefslogtreecommitdiff
path: root/engine/menus/naming_screen.asm
diff options
context:
space:
mode:
Diffstat (limited to 'engine/menus/naming_screen.asm')
-rw-r--r--engine/menus/naming_screen.asm26
1 files changed, 13 insertions, 13 deletions
diff --git a/engine/menus/naming_screen.asm b/engine/menus/naming_screen.asm
index 34e2c6f2..0e064362 100644
--- a/engine/menus/naming_screen.asm
+++ b/engine/menus/naming_screen.asm
@@ -195,7 +195,7 @@ NamingScreen:
ld hl, wSpriteAnimDict
ld [hli], a
ld [hl], a
- lb de, $24, $20
+ depixel 4, 4, 4, 0
ld a, SPRITE_ANIM_INDEX_RED_WALK
call InitSpriteAnimStruct
ret
@@ -649,11 +649,11 @@ NamingScreen_AnimateCursor:
NamingScreen_TryAddCharacter:
ld a, [wNamingScreenLastCharacter]
ld hl, Dakutens
- cp "゙" ; $e5
- jr z, asm_11f06
+ cp "゙"
+ jr z, AddDakutenToCharacter
ld hl, Handakutens
- cp "゚" ; $e4
- jr z, asm_11f06
+ cp "゚"
+ jr z, AddDakutenToCharacter
MailComposition_TryAddCharacter:
ld a, [wNamingScreenMaxNameLength]
@@ -683,7 +683,7 @@ NamingScreen_AdvanceCursor_CheckEndOfString:
scf
ret
-asm_11f06:
+AddDakutenToCharacter:
ld a, [wNamingScreenCurNameLength]
and a
ret z
@@ -696,7 +696,7 @@ asm_11f06:
.loop
ld a, [hli]
- cp $ff
+ cp -1
jr z, NamingScreen_AdvanceCursor_CheckEndOfString
cp c
jr z, .done
@@ -960,8 +960,8 @@ INCBIN "gfx/icons/mail_big.2bpp"
ld [wNamingScreenMaxNameLength], a
ret
-.UnusedString11f7a:
- db "メールを かいてね@"
+.Unreferenced_PleaseWriteAMailString:
+ db "メールを かいてね@"
.InitCharset:
call WaitTop
@@ -1334,13 +1334,13 @@ ComposeMail_GetCursorPosition:
MailComposition_TryAddLastCharacter:
ld a, [wNamingScreenLastCharacter]
ld hl, Dakutens
- cp "゙" ; $e5
- jr z, .asm_1258b
+ cp "゙"
+ jr z, .add_dakuten
ld hl, Handakutens
- cp "゚" ; $e4
+ cp "゚"
jp nz, MailComposition_TryAddCharacter
-.asm_1258b
+.add_dakuten
ld a, [wNamingScreenCurNameLength]
and a
ret z