ref: e11ef2b8d5d73fd8c56ee015c78b086aaf3daf02
dir: /engine/namingscreen.asm/
_NamingScreen: ; 0x116b7 call DisableSpriteUpdates call NamingScreen call ReturnToMapWithSpeechTextbox ret ; 0x116c1 NamingScreen: ; 116c1 ld hl, wNamingScreenDestinationPointer ld [hl], e inc hl ld [hl], d ld hl, wNamingScreenType ld [hl], b ld hl, Options ld a, [hl] push af set NO_TEXT_SCROLL, [hl] ld a, [hMapAnims] push af xor a ld [hMapAnims], a ld a, [hInMenu] push af ld a, $1 ld [hInMenu], a call .SetUpNamingScreen call DelayFrame .loop call NamingScreenJoypadLoop jr nc, .loop pop af ld [hInMenu], a pop af ld [hMapAnims], a pop af ld [Options], a call ClearJoypad ret ; 116f8 .SetUpNamingScreen: ; 116f8 call ClearBGPalettes ld b, SCGB_08 call GetSGBLayout call DisableLCD call LoadNamingScreenGFX call NamingScreen_InitText ld a, $e3 ld [rLCDC], a call .GetNamingScreenSetup call WaitBGMap call WaitTop call SetPalettes call NamingScreen_InitNameEntry ret ; 1171d .GetNamingScreenSetup: ; 1171d ld a, [wNamingScreenType] and 7 ld e, a ld d, 0 ld hl, .Jumptable rept 2 add hl, de endr ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 1172e .Jumptable: ; 1172e (4:572e) dw .Pokemon dw .Player dw .Rival dw .Mom dw .Box dw .Tomodachi dw .Pokemon dw .Pokemon .Pokemon: ; 1173e (4:573e) ld a, [CurPartySpecies] ld [wd265], a ld hl, Function8e83f ld a, BANK(Function8e83f) ld e, $1 rst FarCall ; ; indirect jump to Function8e83f (8e83f (23:683f)) ld a, [CurPartySpecies] ld [wd265], a call GetPokemonName hlcoord 5, 2 call PlaceString ld l, c ld h, b ld de, .NicknameStrings call PlaceString inc de hlcoord 5, 4 call PlaceString callba GetGender jr c, .genderless ld a, "♂" jr nz, .place_gender ld a, "♀" .place_gender hlcoord 1, 2 ld [hl], a .genderless call .StoreMonIconParams ret ; 11780 (4:5780) .NicknameStrings: ; 11780 db "'S@" db "NICKNAME?@" ; 1178d .Player: ; 1178d (4:578d) callba GetPlayerIcon call .LoadSprite hlcoord 5, 2 ld de, .PlayerNameString call PlaceString call .StoreSpriteIconParams ret ; 117a3 (4:57a3) .PlayerNameString: ; 117a3 db "YOUR NAME?@" ; 117ae .Rival: ; 117ae (4:57ae) ld de, SilverSpriteGFX ld b, BANK(SilverSpriteGFX) call .LoadSprite hlcoord 5, 2 ld de, .RivalNameString call PlaceString call .StoreSpriteIconParams ret ; 117c3 (4:57c3) .RivalNameString: ; 117c3 db "RIVAL'S NAME?@" ; 117d1 .Mom: ; 117d1 (4:57d1) ld de, MomSpriteGFX ld b, BANK(MomSpriteGFX) call .LoadSprite hlcoord 5, 2 ld de, .MomNameString call PlaceString call .StoreSpriteIconParams ret ; 117e6 (4:57e6) .MomNameString: ; 117e6 db "MOTHER'S NAME?@" ; 117f5 .Box: ; 117f5 (4:57f5) ld de, PokeBallSpriteGFX ld hl, VTiles0 tile $00 lb bc, BANK(PokeBallSpriteGFX), $4 call Request2bpp xor a ld hl, wSpriteAnimDict ld [hli], a ld [hl], a depixel 4, 4, 4, 0 ld a, SPRITE_ANIM_INDEX_RED_WALK call _InitSpriteAnimStruct ld hl, SPRITEANIMSTRUCT_FRAMESET_ID add hl, bc ld [hl], $0 hlcoord 5, 2 ld de, .BoxNameString call PlaceString call .StoreBoxIconParams ret ; 11822 (4:5822) .BoxNameString: ; 11822 db "BOX NAME?@" ; 1182c .Tomodachi: ; 1182c (4:582c) hlcoord 3, 2 ld de, .oTomodachi_no_namae_sutoringu call PlaceString call .StoreSpriteIconParams ret ; 11839 (4:5839) .oTomodachi_no_namae_sutoringu: ; 11839 db "おともだち の なまえは?@" ; 11847 .LoadSprite: ; 11847 (4:5847) push de ld hl, VTiles0 tile $00 ld c, $4 push bc call Request2bpp pop bc ld hl, 12 tiles add hl, de ld e, l ld d, h ld hl, VTiles0 tile $04 call Request2bpp xor a ld hl, wSpriteAnimDict ld [hli], a ld [hl], a pop de ld b, SPRITE_ANIM_INDEX_RED_WALK ld a, d cp KrisSpriteGFX / $100 jr nz, .not_kris ld a, e cp KrisSpriteGFX % $100 jr nz, .not_kris ld b, SPRITE_ANIM_INDEX_BLUE_WALK .not_kris ld a, b depixel 4, 4, 4, 0 call _InitSpriteAnimStruct ret .StoreMonIconParams: ; 1187b (4:587b) ld a, PKMN_NAME_LENGTH - 1 hlcoord 5, 6 jr .StoreParams .StoreSpriteIconParams: ; 11882 (4:5882) ld a, PLAYER_NAME_LENGTH - 1 hlcoord 5, 6 jr .StoreParams .StoreBoxIconParams: ; 11889 (4:5889) ld a, BOX_NAME_LENGTH - 1 hlcoord 5, 4 jr .StoreParams .StoreParams: ; 11890 (4:5890) ld [wNamingScreenMaxNameLength], a ld a, l ld [wNamingScreenStringEntryCoord], a ld a, h ld [wNamingScreenStringEntryCoord + 1], a ret NamingScreen_IsTargetBox: ; 1189c push bc push af ld a, [wNamingScreenType] sub $3 ld b, a pop af dec b pop bc ret ; 118a8 NamingScreen_InitText: ; 118a8 call WaitTop hlcoord 0, 0 ld bc, SCREEN_WIDTH * SCREEN_HEIGHT ld a, $60 call ByteFill hlcoord 1, 1 lb bc, 6, 18 call NamingScreen_IsTargetBox jr nz, .not_box lb bc, 4, 18 .not_box call ClearBox ld de, NameInputUpper NamingScreen_ApplyTextInputMode: ; 118ca call NamingScreen_IsTargetBox jr nz, .not_box ld hl, BoxNameInputLower - NameInputLower add hl, de ld d, h ld e, l .not_box push de hlcoord 1, 8 lb bc, 7, 18 call NamingScreen_IsTargetBox jr nz, .not_box_2 hlcoord 1, 6 lb bc, 9, 18 .not_box_2 call ClearBox hlcoord 1, 16 lb bc, 1, 18 call ClearBox pop de hlcoord 2, 8 ld b, $5 call NamingScreen_IsTargetBox jr nz, .row hlcoord 2, 6 ld b, $6 .row ld c, $11 .col ld a, [de] ld [hli], a inc de dec c jr nz, .col push de ld de, 2 * SCREEN_WIDTH - $11 add hl, de pop de dec b jr nz, .row ret ; 11915 NamingScreenJoypadLoop: ; 11915 call JoyTextDelay ld a, [wJumptableIndex] bit 7, a jr nz, .quit call .RunJumptable callba PlaySpriteAnimationsAndDelayFrame call .UpdateStringEntry call DelayFrame and a ret .quit callab ClearSpriteAnims call ClearSprites xor a ld [hSCX], a ld [hSCY], a scf ret ; 11940 .UpdateStringEntry: ; 11940 xor a ld [hBGMapMode], a hlcoord 1, 5 call NamingScreen_IsTargetBox jr nz, .got_coords hlcoord 1, 3 .got_coords lb bc, 1, 18 call ClearBox ld hl, wNamingScreenDestinationPointer ld e, [hl] inc hl ld d, [hl] ld hl, wNamingScreenStringEntryCoord ld a, [hli] ld h, [hl] ld l, a call PlaceString ld a, $1 ld [hBGMapMode], a ret ; 11968 .RunJumptable: ; 11968 ld a, [wJumptableIndex] ld e, a ld d, $0 ld hl, .Jumptable rept 2 add hl, de endr ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11977 .Jumptable: ; 11977 (4:5977) dw .InitCursor dw .ReadButtons .InitCursor: ; 1197b (4:597b) depixel 10, 3 call NamingScreen_IsTargetBox jr nz, .got_cursor_position ld d, 8 * 8 .got_cursor_position ld a, SPRITE_ANIM_INDEX_02 call _InitSpriteAnimStruct ld a, c ld [wNamingScreenCursorObjectPointer], a ld a, b ld [wNamingScreenCursorObjectPointer + 1], a ld hl, SPRITEANIMSTRUCT_FRAMESET_ID add hl, bc ld a, [hl] ld hl, SPRITEANIMSTRUCT_0E add hl, bc ld [hl], a ld hl, wJumptableIndex inc [hl] ret .ReadButtons: ; 119a1 (4:59a1) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and A_BUTTON jr nz, .a ld a, [hl] and B_BUTTON jr nz, .b ld a, [hl] and START jr nz, .start ld a, [hl] and SELECT jr nz, .select ret .a call .GetCursorPosition cp $1 jr z, .select cp $2 jr z, .b cp $3 jr z, .end call NamingScreen_GetLastCharacter call NamingScreen_TryAddCharacter ret nc .start ld hl, wNamingScreenCursorObjectPointer ld c, [hl] inc hl ld b, [hl] ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld [hl], $8 ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld [hl], $4 call NamingScreen_IsTargetBox ret nz inc [hl] ret .b call NamingScreen_DeleteCharacter ret .end call NamingScreen_StoreEntry ld hl, wJumptableIndex set 7, [hl] ret .select ld hl, wcf64 ld a, [hl] xor 1 ld [hl], a jr z, .upper ld de, NameInputLower call NamingScreen_ApplyTextInputMode ret .upper ld de, NameInputUpper call NamingScreen_ApplyTextInputMode ret .GetCursorPosition: ; 11a0b (4:5a0b) ld hl, wNamingScreenCursorObjectPointer ld c, [hl] inc hl ld b, [hl] NamingScreen_GetCursorPosition: ; 11a11 (4:5a11) ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] push bc ld b, $4 call NamingScreen_IsTargetBox jr nz, .not_box inc b .not_box cp b pop bc jr nz, .not_bottom_row ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld a, [hl] cp $3 jr c, .case_switch cp $6 jr c, .delete ld a, $3 ret .case_switch ld a, $1 ret .delete ld a, $2 ret .not_bottom_row xor a ret NamingScreen_AnimateCursor: ; 11a3b (4:5a3b) call .GetDPad ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] ld e, a swap e ld hl, SPRITEANIMSTRUCT_YOFFSET add hl, bc ld [hl], e ld d, $4 call NamingScreen_IsTargetBox jr nz, .ok inc d .ok cp d ld de, .LetterEntries ld a, $0 jr nz, .ok2 ld de, .CaseDelEnd ld a, $1 .ok2 ld hl, SPRITEANIMSTRUCT_0E add hl, bc add [hl] ld hl, SPRITEANIMSTRUCT_FRAMESET_ID add hl, bc ld [hl], a ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld l, [hl] ld h, $0 add hl, de ld a, [hl] ld hl, SPRITEANIMSTRUCT_XOFFSET add hl, bc ld [hl], a ret ; 11a79 (4:5a79) .LetterEntries: ; 11a79 db $00, $10, $20, $30, $40, $50, $60, $70, $80 .CaseDelEnd: ; 11a82 db $00, $00, $00, $30, $30, $30, $60, $60, $60 ; 11a8b .GetDPad: ; 11a8b (4:5a8b) ld hl, hJoyLast ld a, [hl] and D_UP jr nz, .up ld a, [hl] and D_DOWN jr nz, .down ld a, [hl] and D_LEFT jr nz, .left ld a, [hl] and D_RIGHT jr nz, .right ret .right call NamingScreen_GetCursorPosition and a jr nz, .asm_11ab7 ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld a, [hl] cp $8 jr nc, .asm_11ab4 inc [hl] ret .asm_11ab4 ld [hl], $0 ret .asm_11ab7 cp $3 jr nz, .asm_11abc xor a .asm_11abc ld e, a add a add e ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld [hl], a ret .left call NamingScreen_GetCursorPosition and a jr nz, .asm_11ad8 ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld a, [hl] and a jr z, .asm_11ad5 dec [hl] ret .asm_11ad5 ld [hl], $8 ret .asm_11ad8 cp $1 jr nz, .asm_11ade ld a, $4 .asm_11ade rept 2 dec a endr ld e, a add a add e ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld [hl], a ret .down ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] call NamingScreen_IsTargetBox jr nz, .asm_11af9 cp $5 jr nc, .asm_11aff inc [hl] ret .asm_11af9 cp $4 jr nc, .asm_11aff inc [hl] ret .asm_11aff ld [hl], $0 ret .up ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] and a jr z, .asm_11b0c dec [hl] ret .asm_11b0c ld [hl], $4 call NamingScreen_IsTargetBox ret nz inc [hl] ret NamingScreen_TryAddCharacter: ; 11b14 (4:5b14) ld a, [wNamingScreenLastCharacter] ; lost MailComposition_TryAddCharacter: ; 11b17 (4:5b17) ld a, [wNamingScreenMaxNameLength] ld c, a ld a, [wNamingScreenCurrNameLength] cp c ret nc ld a, [wNamingScreenLastCharacter] NamingScreen_LoadNextCharacter: ; 11b23 call NamingScreen_GetTextCursorPosition ld [hl], a NamingScreen_AdvanceCursor_CheckEndOfString: ; 11b27 ld hl, wNamingScreenCurrNameLength inc [hl] call NamingScreen_GetTextCursorPosition ld a, [hl] cp "@" jr z, .end_of_string ld [hl], $f2 and a ret .end_of_string scf ret ; 11b39 (4:5b39) ; XXX ld a, [wNamingScreenCurrNameLength] and a ret z push hl ld hl, wNamingScreenCurrNameLength dec [hl] call NamingScreen_GetTextCursorPosition ld c, [hl] pop hl .loop ld a, [hli] cp $ff jr z, NamingScreen_AdvanceCursor_CheckEndOfString cp c jr z, .done inc hl jr .loop .done ld a, [hl] jr NamingScreen_LoadNextCharacter ; 11b56 Dakutens: ; Dummied out db "かが", "きぎ", "くぐ", "けげ", "こご" db "さざ", "しじ", "すず", "せぜ", "そぞ" db "ただ", "ちぢ", "つづ", "てで", "とど" db "はば", "ひび", "ふぶ", "へべ", "ほぼ" db "カガ", "キギ", "クグ", "ケゲ", "コゴ" db "サザ", "シジ", "スズ", "セゼ", "ソゾ" db "タダ", "チヂ", "ツヅ", "テデ", "トド" db "ハバ", "ヒビ", "フブ", "へべ", "ホボ" db $ff Handakutens: ; Dummied out db "はぱ", "ひぴ", "ふぷ", "へぺ", "ほぽ" db "ハパ", "ヒピ", "フプ", "へぺ", "ホポ" db $ff ; 11bbc NamingScreen_DeleteCharacter: ; 11bbc (4:5bbc) ld hl, wNamingScreenCurrNameLength ld a, [hl] and a ret z dec [hl] call NamingScreen_GetTextCursorPosition ld [hl], $f2 inc hl ld a, [hl] cp $f2 ret nz ld [hl], $eb ret NamingScreen_GetTextCursorPosition: ; 11bd0 (4:5bd0) push af ld hl, wNamingScreenDestinationPointer ld a, [hli] ld h, [hl] ld l, a ld a, [wNamingScreenCurrNameLength] ld e, a ld d, 0 add hl, de pop af ret ; 11be0 NamingScreen_InitNameEntry: ; 11be0 ; load $f2, ($eb * [wNamingScreenMaxNameLength]), $50 into the dw address at wNamingScreenDestinationPointer ld hl, wNamingScreenDestinationPointer ld a, [hli] ld h, [hl] ld l, a ld [hl], $f2 inc hl ld a, [wNamingScreenMaxNameLength] dec a ld c, a ld a, $eb .loop ld [hli], a dec c jr nz, .loop ld [hl], "@" ret ; 11bf7 NamingScreen_StoreEntry: ; 11bf7 (4:5bf7) ld hl, wNamingScreenDestinationPointer ld a, [hli] ld h, [hl] ld l, a ld a, [wNamingScreenMaxNameLength] ld c, a .loop ld a, [hl] cp $eb jr z, .terminator cp $f2 jr nz, .not_terminator .terminator ld [hl], "@" .not_terminator inc hl dec c jr nz, .loop ret NamingScreen_GetLastCharacter: ; 11c11 (4:5c11) ld hl, wNamingScreenCursorObjectPointer ld c, [hl] inc hl ld b, [hl] ld hl, SPRITEANIMSTRUCT_XOFFSET add hl, bc ld a, [hl] ld hl, SPRITEANIMSTRUCT_XCOORD add hl, bc add [hl] sub $8 srl a srl a srl a ld e, a ld hl, SPRITEANIMSTRUCT_YOFFSET add hl, bc ld a, [hl] ld hl, SPRITEANIMSTRUCT_YCOORD add hl, bc add [hl] sub $10 srl a srl a srl a ld d, a hlcoord 0, 0 ld bc, SCREEN_WIDTH .loop ld a, d and a jr z, .done add hl, bc dec d jr .loop .done add hl, de ld a, [hl] ld [wNamingScreenLastCharacter], a ret LoadNamingScreenGFX: ; 11c51 call ClearSprites callab ClearSpriteAnims call LoadStandardFont call LoadFontsExtra ld de, NamingScreenGFX_MiddleLine ld hl, VTiles1 tile $6b lb bc, BANK(NamingScreenGFX_MiddleLine), 1 call Get1bpp ld de, NamingScreenGFX_UnderLine ld hl, VTiles1 tile $72 lb bc, BANK(NamingScreenGFX_UnderLine), 1 call Get1bpp ld de, VTiles2 tile $60 ld hl, NamingScreenGFX_Border ld bc, 1 tiles ld a, BANK(NamingScreenGFX_Border) call FarCopyBytes ld de, VTiles0 tile $7e ld hl, NamingScreenGFX_Cursor ld bc, 2 tiles ld a, BANK(NamingScreenGFX_Cursor) call FarCopyBytes ld a, $5 ld hl, wSpriteAnimDict + 9 * 2 ld [hli], a ld [hl], $7e xor a ld [hSCY], a ld [wGlobalAnimYOffset], a ld [hSCX], a ld [wGlobalAnimXOffset], a ld [wJumptableIndex], a ld [wcf64], a ld [hBGMapMode], a ld [wNamingScreenCurrNameLength], a ld a, $7 ld [hWX], a ret ; 11cb7 NamingScreenGFX_Border: ; 11cb7 INCBIN "gfx/unknown/011cb7.2bpp" ; 11cc7 NamingScreenGFX_Cursor: ; 11cc7 INCBIN "gfx/unknown/011cc7.2bpp" ; 11ce7 NameInputLower: db "a b c d e f g h i" db "j k l m n o p q r" db "s t u v w x y z " db "× ( ) : ; [ ] <PK> <MN>" db "UPPER DEL END " BoxNameInputLower: db "a b c d e f g h i" db "j k l m n o p q r" db "s t u v w x y z " db "é 'd 'l 'm 'r 's 't 'v 0" db "1 2 3 4 5 6 7 8 9" db "UPPER DEL END " NameInputUpper: db "A B C D E F G H I" db "J K L M N O P Q R" db "S T U V W X Y Z " db "- ? ! / . , " db "lower DEL END " BoxNameInputUpper: db "A B C D E F G H I" db "J K L M N O P Q R" db "S T U V W X Y Z " db "× ( ) : ; [ ] <PK> <MN>" db "- ? ! ♂ ♀ / . , &" db "lower DEL END " ; 11e5d GFX_11e5d: ; ???? INCBIN "gfx/unknown/011e5d.2bpp" ; 11e6d NamingScreenGFX_MiddleLine: INCBIN "gfx/unknown/011e65.2bpp" ; 11e6d NamingScreenGFX_UnderLine: ; 11e6d INCBIN "gfx/unknown/011e6d.2bpp" ; 11e75 _ComposeMailMessage: ; 11e75 (mail?) ld hl, wNamingScreenDestinationPointer ld [hl], e inc hl ld [hl], d ld a, [hMapAnims] push af xor a ld [hMapAnims], a ld a, [hInMenu] push af ld a, $1 ld [hInMenu], a call .InitBlankMail call DelayFrame .loop call .DoMailEntry jr nc, .loop pop af ld [hInMenu], a pop af ld [hMapAnims], a ret .InitBlankMail: ; 11e9a (4:5e9a) call ClearBGPalettes call DisableLCD call LoadNamingScreenGFX ld de, VTiles0 tile $00 ld hl, .MailIcon ld bc, 8 tiles ld a, BANK(.MailIcon) call FarCopyBytes xor a ld hl, wSpriteAnimDict ld [hli], a ld [hl], a ; init mail icon depixel 3, 2 ld a, SPRITE_ANIM_INDEX_00 call _InitSpriteAnimStruct ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID add hl, bc ld [hl], $0 call .InitCharset ld a, $e3 ld [rLCDC], a call .initwNamingScreenMaxNameLength ld b, SCGB_08 call GetSGBLayout call WaitBGMap call WaitTop ld a, %11100100 call DmgToCgbBGPals ld a, %11100100 call DmgToCgbObjPal0 call NamingScreen_InitNameEntry ld hl, wNamingScreenDestinationPointer ld e, [hl] inc hl ld d, [hl] ld hl, $10 add hl, de ld [hl], $4e ret ; 11ef4 (4:5ef4) .MailIcon: ; 11ef4 INCBIN "gfx/icon/mail2.2bpp" ; 11f74 .initwNamingScreenMaxNameLength: ; 11f74 (4:5f74) ld a, MAIL_MSG_LENGTH + 1 ld [wNamingScreenMaxNameLength], a ret ; 11f7a (4:5f7a) .Dummy: ; dummied out db "メールを かいてね@" ; 11f84 .InitCharset: ; 11f84 (4:5f84) call WaitTop hlcoord 0, 0 ld bc, 6 * SCREEN_WIDTH ld a, $60 ; border call ByteFill hlcoord 0, 6 ld bc, 12 * SCREEN_WIDTH ld a, " " call ByteFill hlcoord 1, 1 lb bc, 4, SCREEN_WIDTH - 2 call ClearBox ld de, MailEntry_Uppercase .PlaceMailCharset: ; 11fa9 (4:5fa9) hlcoord 1, 7 ld b, 6 .next ld c, SCREEN_WIDTH - 1 .loop_ ld a, [de] ld [hli], a inc de dec c jr nz, .loop_ push de ld de, SCREEN_WIDTH + 1 add hl, de pop de dec b jr nz, .next ret .DoMailEntry: ; 11fc0 (4:5fc0) call JoyTextDelay ld a, [wJumptableIndex] bit 7, a jr nz, .exit_mail call .DoJumptable callba PlaySpriteAnimationsAndDelayFrame call .Update call DelayFrame and a ret .exit_mail callab ClearSpriteAnims call ClearSprites xor a ld [hSCX], a ld [hSCY], a scf ret .Update: ; 11feb (4:5feb) xor a ld [hBGMapMode], a hlcoord 1, 1 lb bc, 4, 18 call ClearBox ld hl, wNamingScreenDestinationPointer ld e, [hl] inc hl ld d, [hl] hlcoord 2, 2 call PlaceString ld a, $1 ld [hBGMapMode], a ret .DoJumptable: ; 12008 (4:6008) ld a, [wJumptableIndex] ld e, a ld d, 0 ld hl, .Jumptable rept 2 add hl, de endr ld a, [hli] ld h, [hl] ld l, a jp [hl] .Jumptable: ; 12017 (4:6017) dw .init_blinking_cursor dw .process_joypad .init_blinking_cursor: ; 1201b (4:601b) depixel 9, 2 ld a, SPRITE_ANIM_INDEX_09 call _InitSpriteAnimStruct ld a, c ld [wNamingScreenCursorObjectPointer], a ld a, b ld [wNamingScreenCursorObjectPointer + 1], a ld hl, SPRITEANIMSTRUCT_FRAMESET_ID add hl, bc ld a, [hl] ld hl, SPRITEANIMSTRUCT_0E add hl, bc ld [hl], a ld hl, wJumptableIndex inc [hl] ret .process_joypad: ; 1203a (4:603a) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and A_BUTTON jr nz, .a ld a, [hl] and B_BUTTON jr nz, .b ld a, [hl] and START jr nz, .start ld a, [hl] and SELECT jr nz, .select ret .a call NamingScreen_PressedA_GetCursorCommand cp $1 jr z, .select cp $2 jr z, .b cp $3 jr z, .finished call NamingScreen_GetLastCharacter call MailComposition_TryAddLastCharacter jr c, .start ld hl, wNamingScreenCurrNameLength ld a, [hl] cp $10 ret nz inc [hl] call NamingScreen_GetTextCursorPosition ld [hl], $f2 dec hl ld [hl], $4e ret .start ld hl, wNamingScreenCursorObjectPointer ld c, [hl] inc hl ld b, [hl] ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld [hl], $9 ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld [hl], $5 ret .b call NamingScreen_DeleteCharacter ld hl, wNamingScreenCurrNameLength ld a, [hl] cp $10 ret nz dec [hl] call NamingScreen_GetTextCursorPosition ld [hl], $f2 inc hl ld [hl], $4e ret .finished call NamingScreen_StoreEntry ld hl, wJumptableIndex set 7, [hl] ret .select ld hl, wcf64 ld a, [hl] xor $1 ld [hl], a jr nz, .switch_to_lowercase ld de, MailEntry_Uppercase call .PlaceMailCharset ret .switch_to_lowercase ld de, MailEntry_Lowercase call .PlaceMailCharset ret ; called from engine/sprite_anims.asm ComposeMail_AnimateCursor: ; 120c1 (4:60c1) call .GetDPad ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] ld e, a swap e ld hl, SPRITEANIMSTRUCT_YOFFSET add hl, bc ld [hl], e cp $5 ld de, .LetterEntries ld a, 0 jr nz, .got_pointer ld de, .CaseDelEnd ld a, 1 .got_pointer ld hl, SPRITEANIMSTRUCT_0E add hl, bc add [hl] ld hl, SPRITEANIMSTRUCT_FRAMESET_ID add hl, bc ld [hl], a ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld l, [hl] ld h, 0 add hl, de ld a, [hl] ld hl, SPRITEANIMSTRUCT_XOFFSET add hl, bc ld [hl], a ret ; 120f8 (4:60f8) .LetterEntries: ; 120f8 db $00, $10, $20, $30, $40, $50, $60, $70, $80, $90 .CaseDelEnd: ; 12102 db $00, $00, $00, $30, $30, $30, $60, $60, $60, $60 ; 1210c .GetDPad: ; 1210c (4:610c) ld hl, hJoyLast ld a, [hl] and D_UP jr nz, .up ld a, [hl] and D_DOWN jr nz, .down ld a, [hl] and D_LEFT jr nz, .left ld a, [hl] and D_RIGHT jr nz, .right ret .right call ComposeMail_GetCursorPosition and a jr nz, .case_del_done_right ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld a, [hl] cp $9 jr nc, .wrap_around_letter_right inc [hl] ret .wrap_around_letter_right ld [hl], $0 ret .case_del_done_right cp $3 jr nz, .wrap_around_command_right xor a .wrap_around_command_right ld e, a add a add e ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld [hl], a ret .left call ComposeMail_GetCursorPosition and a jr nz, .caps_del_done_left ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld a, [hl] and a jr z, .wrap_around_letter_left dec [hl] ret .wrap_around_letter_left ld [hl], $9 ret .caps_del_done_left cp $1 jr nz, .wrap_around_command_left ld a, $4 .wrap_around_command_left rept 2 dec a endr ld e, a add a add e ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld [hl], a ret .down ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] cp $5 jr nc, .wrap_around_down inc [hl] ret .wrap_around_down ld [hl], $0 ret .up ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] and a jr z, .wrap_around_up dec [hl] ret .wrap_around_up ld [hl], $5 ret NamingScreen_PressedA_GetCursorCommand: ; 12185 (4:6185) ld hl, wNamingScreenCursorObjectPointer ld c, [hl] inc hl ld b, [hl] ComposeMail_GetCursorPosition: ; 1218b (4:618b) ld hl, SPRITEANIMSTRUCT_0D add hl, bc ld a, [hl] cp $5 jr nz, .letter ld hl, SPRITEANIMSTRUCT_0C add hl, bc ld a, [hl] cp $3 jr c, .case cp $6 jr c, .del ld a, $3 ret .case ld a, $1 ret .del ld a, $2 ret .letter xor a ret MailComposition_TryAddLastCharacter: ; 121ac (4:61ac) ld a, [wNamingScreenLastCharacter] jp MailComposition_TryAddCharacter ; 121b2 (4:61b2) ; XXX ld a, [wNamingScreenCurrNameLength] and a ret z cp $11 jr nz, .asm_121c3 push hl ld hl, wNamingScreenCurrNameLength rept 2 dec [hl] endr jr .asm_121c8 .asm_121c3 push hl ld hl, wNamingScreenCurrNameLength dec [hl] .asm_121c8 call NamingScreen_GetTextCursorPosition ld c, [hl] pop hl .asm_121cd ld a, [hli] cp $ff jp z, NamingScreen_AdvanceCursor_CheckEndOfString cp c jr z, .asm_121d9 inc hl jr .asm_121cd .asm_121d9 ld a, [hl] jp NamingScreen_LoadNextCharacter ; 121dd MailEntry_Uppercase: ; 122dd db "A B C D E F G H I J" db "K L M N O P Q R S T" db "U V W X Y Z , ? !" db "1 2 3 4 5 6 7 8 9 0" db "<PK> <MN> <PO> <KE> é ♂ ♀ ¥ … ×" db "lower DEL END " ; 1224f MailEntry_Lowercase: ; 1224f db "a b c d e f g h i j" db "k l m n o p q r s t" db "u v w x y z . - /" db "'d 'l 'm 'r 's 't 'v & ( )" db "<``> <''> [ ] ' : ; " db "UPPER DEL END " ; 122c1