pokecrystal-board/engine/menus/naming_screen.asm
2022-08-17 17:45:26 -04:00

1372 lines
21 KiB
NASM

DEF NAMINGSCREEN_CURSOR EQU $7e
DEF NAMINGSCREEN_BORDER EQU "■" ; $60
DEF NAMINGSCREEN_MIDDLELINE EQU "→" ; $eb
DEF NAMINGSCREEN_UNDERLINE EQU "<DOT>" ; $f2
_NamingScreen:
call DisableSpriteUpdates
call NamingScreen
call ReturnToMapWithSpeechTextbox
ret
NamingScreen:
ld hl, wNamingScreenDestinationPointer
ld [hl], e
inc hl
ld [hl], d
ld hl, wNamingScreenType
ld [hl], b
ld hl, wOptions
ld a, [hl]
push af
set NO_TEXT_SCROLL, [hl]
ldh a, [hMapAnims]
push af
xor a
ldh [hMapAnims], a
ldh a, [hInMenu]
push af
ld a, $1
ldh [hInMenu], a
call .SetUpNamingScreen
call DelayFrame
.loop
call NamingScreenJoypadLoop
jr nc, .loop
pop af
ldh [hInMenu], a
pop af
ldh [hMapAnims], a
pop af
ld [wOptions], a
call ClearJoypad
ret
.SetUpNamingScreen:
call ClearBGPalettes
ld b, SCGB_DIPLOMA
call GetSGBLayout
call DisableLCD
call LoadNamingScreenGFX
call NamingScreen_InitText
ld a, LCDC_DEFAULT
ldh [rLCDC], a
call .GetNamingScreenSetup
call WaitBGMap
call WaitTop
call SetPalettes
call NamingScreen_InitNameEntry
ret
.GetNamingScreenSetup:
ld a, [wNamingScreenType]
maskbits NUM_NAME_TYPES
ld e, a
ld d, 0
ld hl, .Jumptable
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
.Jumptable:
; entries correspond to NAME_* constants
dw .Pokemon
dw .Player
dw .Rival
dw .Mom
dw .Box
dw .Tomodachi
dw .Pokemon
dw .Pokemon
.Pokemon:
ld a, [wCurPartySpecies]
ld [wTempIconSpecies], a
ld hl, LoadMenuMonIcon
ld a, BANK(LoadMenuMonIcon)
ld e, MONICON_NAMINGSCREEN
rst FarCall
ld a, [wCurPartySpecies]
ld [wNamedObjectIndex], 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
farcall GetGender
jr c, .genderless
ld a, "♂"
jr nz, .place_gender
ld a, "♀"
.place_gender
hlcoord 1, 2
ld [hl], a
.genderless
call .StoreMonIconParams
ret
.NicknameStrings:
db "'S@"
db "NICKNAME?@"
.Player:
farcall GetPlayerIcon
call .LoadSprite
hlcoord 5, 2
ld de, .PlayerNameString
call PlaceString
call .StoreSpriteIconParams
ret
.PlayerNameString:
db "YOUR NAME?@"
.Rival:
ld de, RivalSpriteGFX
ld b, BANK(RivalSpriteGFX)
call .LoadSprite
hlcoord 5, 2
ld de, .RivalNameString
call PlaceString
call .StoreSpriteIconParams
ret
.RivalNameString:
db "RIVAL'S NAME?@"
.Mom:
ld de, MomSpriteGFX
ld b, BANK(MomSpriteGFX)
call .LoadSprite
hlcoord 5, 2
ld de, .MomNameString
call PlaceString
call .StoreSpriteIconParams
ret
.MomNameString:
db "MOTHER'S NAME?@"
.Box:
ld de, PokeBallSpriteGFX
ld hl, vTiles0 tile $00
lb bc, BANK(PokeBallSpriteGFX), 4
call Request2bpp
xor a ; SPRITE_ANIM_DICT_DEFAULT and tile offset $00
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
.BoxNameString:
db "BOX NAME?@"
.Tomodachi:
hlcoord 3, 2
ld de, .oTomodachi_no_namae_sutoringu
call PlaceString
call .StoreSpriteIconParams
ret
.oTomodachi_no_namae_sutoringu
db "おともだち の なまえは?@"
.LoadSprite:
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 ; SPRITE_ANIM_DICT_DEFAULT and tile offset $00
ld hl, wSpriteAnimDict
ld [hli], a
ld [hl], a
pop de
ld b, SPRITE_ANIM_INDEX_RED_WALK
ld a, d
cp HIGH(KrisSpriteGFX)
jr nz, .not_kris
ld a, e
cp LOW(KrisSpriteGFX)
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:
ld a, MON_NAME_LENGTH - 1
hlcoord 5, 6
jr .StoreParams
.StoreSpriteIconParams:
ld a, PLAYER_NAME_LENGTH - 1
hlcoord 5, 6
jr .StoreParams
.StoreBoxIconParams:
ld a, BOX_NAME_LENGTH - 1
hlcoord 5, 4
jr .StoreParams
.StoreParams:
ld [wNamingScreenMaxNameLength], a
ld a, l
ld [wNamingScreenStringEntryCoord], a
ld a, h
ld [wNamingScreenStringEntryCoord + 1], a
ret
NamingScreen_IsTargetBox:
; Return z if [wNamingScreenType] == NAME_BOX.
push bc
push af
ld a, [wNamingScreenType]
sub NAME_BOX - 1
ld b, a
pop af
dec b
pop bc
ret
NamingScreen_InitText:
call WaitTop
hlcoord 0, 0
ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
ld a, NAMINGSCREEN_BORDER
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:
call NamingScreen_IsTargetBox
jr nz, .not_box
assert BoxNameInputLower - NameInputLower == BoxNameInputUpper - NameInputUpper
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
NamingScreenJoypadLoop:
call JoyTextDelay
ld a, [wJumptableIndex]
bit 7, a
jr nz, .quit
call .RunJumptable
farcall PlaySpriteAnimationsAndDelayFrame
call .UpdateStringEntry
call DelayFrame
and a
ret
.quit
callfar ClearSpriteAnims
call ClearSprites
xor a
ldh [hSCX], a
ldh [hSCY], a
scf
ret
.UpdateStringEntry:
xor a
ldh [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
ldh [hBGMapMode], a
ret
.RunJumptable:
jumptable .Jumptable, wJumptableIndex
.Jumptable:
dw .InitCursor
dw .ReadButtons
.InitCursor:
depixel 10, 3
call NamingScreen_IsTargetBox
jr nz, .got_cursor_position
ld d, 8 * 8
.got_cursor_position
ld a, SPRITE_ANIM_INDEX_NAMING_SCREEN_CURSOR
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_VAR3
add hl, bc
ld [hl], a
ld hl, wJumptableIndex
inc [hl]
ret
.ReadButtons:
ld hl, hJoyPressed
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_VAR1
add hl, bc
ld [hl], $8
ld hl, SPRITEANIMSTRUCT_VAR2
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, wNamingScreenLetterCase
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:
ld hl, wNamingScreenCursorObjectPointer
ld c, [hl]
inc hl
ld b, [hl]
NamingScreen_GetCursorPosition:
ld hl, SPRITEANIMSTRUCT_VAR2
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_VAR1
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:
call .GetDPad
ld hl, SPRITEANIMSTRUCT_VAR2
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, SPRITE_ANIM_FRAMESET_TEXT_ENTRY_CURSOR - SPRITE_ANIM_FRAMESET_TEXT_ENTRY_CURSOR ; 0
jr nz, .ok2
ld de, .CaseDelEnd
ld a, SPRITE_ANIM_FRAMESET_TEXT_ENTRY_CURSOR_BIG - SPRITE_ANIM_FRAMESET_TEXT_ENTRY_CURSOR ; 1
.ok2
ld hl, SPRITEANIMSTRUCT_VAR3
add hl, bc
add [hl] ; default SPRITE_ANIM_FRAMESET_TEXT_ENTRY_CURSOR
ld hl, SPRITEANIMSTRUCT_FRAMESET_ID
add hl, bc
ld [hl], a
ld hl, SPRITEANIMSTRUCT_VAR1
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
.LetterEntries:
db $00, $10, $20, $30, $40, $50, $60, $70, $80
.CaseDelEnd:
db $00, $00, $00, $30, $30, $30, $60, $60, $60
.GetDPad:
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, .target_right
ld hl, SPRITEANIMSTRUCT_VAR1
add hl, bc
ld a, [hl]
cp $8
jr nc, .wrap_left
inc [hl]
ret
.wrap_left
ld [hl], $0
ret
.target_right
cp $3
jr nz, .no_wrap_target_left
xor a
.no_wrap_target_left
ld e, a
add a
add e
ld hl, SPRITEANIMSTRUCT_VAR1
add hl, bc
ld [hl], a
ret
.left
call NamingScreen_GetCursorPosition
and a
jr nz, .target_left
ld hl, SPRITEANIMSTRUCT_VAR1
add hl, bc
ld a, [hl]
and a
jr z, .wrap_right
dec [hl]
ret
.wrap_right
ld [hl], $8
ret
.target_left
cp $1
jr nz, .no_wrap_target_right
ld a, $4
.no_wrap_target_right
dec a
dec a
ld e, a
add a
add e
ld hl, SPRITEANIMSTRUCT_VAR1
add hl, bc
ld [hl], a
ret
.down
ld hl, SPRITEANIMSTRUCT_VAR2
add hl, bc
ld a, [hl]
call NamingScreen_IsTargetBox
jr nz, .not_box
cp $5
jr nc, .wrap_up
inc [hl]
ret
.not_box
cp $4
jr nc, .wrap_up
inc [hl]
ret
.wrap_up
ld [hl], $0
ret
.up
ld hl, SPRITEANIMSTRUCT_VAR2
add hl, bc
ld a, [hl]
and a
jr z, .wrap_down
dec [hl]
ret
.wrap_down
ld [hl], $4
call NamingScreen_IsTargetBox
ret nz
inc [hl]
ret
NamingScreen_TryAddCharacter:
ld a, [wNamingScreenLastCharacter] ; lost
MailComposition_TryAddCharacter:
ld a, [wNamingScreenMaxNameLength]
ld c, a
ld a, [wNamingScreenCurNameLength]
cp c
ret nc
ld a, [wNamingScreenLastCharacter]
NamingScreen_LoadNextCharacter:
call NamingScreen_GetTextCursorPosition
ld [hl], a
NamingScreen_AdvanceCursor_CheckEndOfString:
ld hl, wNamingScreenCurNameLength
inc [hl]
call NamingScreen_GetTextCursorPosition
ld a, [hl]
cp "@"
jr z, .end_of_string
ld [hl], NAMINGSCREEN_UNDERLINE
and a
ret
.end_of_string
scf
ret
AddDakutenToCharacter: ; unreferenced
ld a, [wNamingScreenCurNameLength]
and a
ret z
push hl
ld hl, wNamingScreenCurNameLength
dec [hl]
call NamingScreen_GetTextCursorPosition
ld c, [hl]
pop hl
.loop
ld a, [hli]
cp -1
jr z, NamingScreen_AdvanceCursor_CheckEndOfString
cp c
jr z, .done
inc hl
jr .loop
.done
ld a, [hl]
jr NamingScreen_LoadNextCharacter
INCLUDE "data/text/unused_dakutens.asm"
NamingScreen_DeleteCharacter:
ld hl, wNamingScreenCurNameLength
ld a, [hl]
and a
ret z
dec [hl]
call NamingScreen_GetTextCursorPosition
ld [hl], NAMINGSCREEN_UNDERLINE
inc hl
ld a, [hl]
cp NAMINGSCREEN_UNDERLINE
ret nz
ld [hl], NAMINGSCREEN_MIDDLELINE
ret
NamingScreen_GetTextCursorPosition:
push af
ld hl, wNamingScreenDestinationPointer
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wNamingScreenCurNameLength]
ld e, a
ld d, 0
add hl, de
pop af
ret
NamingScreen_InitNameEntry:
; load NAMINGSCREEN_UNDERLINE, (NAMINGSCREEN_MIDDLELINE * [wNamingScreenMaxNameLength]), "@" into the dw address at wNamingScreenDestinationPointer
ld hl, wNamingScreenDestinationPointer
ld a, [hli]
ld h, [hl]
ld l, a
ld [hl], NAMINGSCREEN_UNDERLINE
inc hl
ld a, [wNamingScreenMaxNameLength]
dec a
ld c, a
ld a, NAMINGSCREEN_MIDDLELINE
.loop
ld [hli], a
dec c
jr nz, .loop
ld [hl], "@"
ret
NamingScreen_StoreEntry:
ld hl, wNamingScreenDestinationPointer
ld a, [hli]
ld h, [hl]
ld l, a
ld a, [wNamingScreenMaxNameLength]
ld c, a
.loop
ld a, [hl]
cp NAMINGSCREEN_MIDDLELINE
jr z, .terminator
cp NAMINGSCREEN_UNDERLINE
jr nz, .not_terminator
.terminator
ld [hl], "@"
.not_terminator
inc hl
dec c
jr nz, .loop
ret
NamingScreen_GetLastCharacter:
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:
call ClearSprites
callfar ClearSpriteAnims
call LoadStandardFont
call LoadFontsExtra
ld de, NamingScreenGFX_MiddleLine
ld hl, vTiles0 tile NAMINGSCREEN_MIDDLELINE
lb bc, BANK(NamingScreenGFX_MiddleLine), 1
call Get1bpp
ld de, NamingScreenGFX_UnderLine
ld hl, vTiles0 tile NAMINGSCREEN_UNDERLINE
lb bc, BANK(NamingScreenGFX_UnderLine), 1
call Get1bpp
ld de, vTiles2 tile NAMINGSCREEN_BORDER
ld hl, NamingScreenGFX_Border
ld bc, 1 tiles
ld a, BANK(NamingScreenGFX_Border)
call FarCopyBytes
ld de, vTiles0 tile NAMINGSCREEN_CURSOR
ld hl, NamingScreenGFX_Cursor
ld bc, 2 tiles
ld a, BANK(NamingScreenGFX_Cursor)
call FarCopyBytes
ld a, SPRITE_ANIM_DICT_TEXT_CURSOR
ld hl, wSpriteAnimDict + (NUM_SPRITEANIMDICT_ENTRIES - 1) * 2
ld [hli], a
ld [hl], NAMINGSCREEN_CURSOR
xor a
ldh [hSCY], a
ld [wGlobalAnimYOffset], a
ldh [hSCX], a
ld [wGlobalAnimXOffset], a
ld [wJumptableIndex], a
ld [wNamingScreenLetterCase], a
ldh [hBGMapMode], a
ld [wNamingScreenCurNameLength], a
ld a, $7
ldh [hWX], a
ret
NamingScreenGFX_Border:
INCBIN "gfx/naming_screen/border.2bpp"
NamingScreenGFX_Cursor:
INCBIN "gfx/naming_screen/cursor.2bpp"
INCLUDE "data/text/name_input_chars.asm"
NamingScreenGFX_End: ; unreferenced
INCBIN "gfx/naming_screen/end.1bpp"
NamingScreenGFX_MiddleLine:
INCBIN "gfx/naming_screen/middle_line.1bpp"
NamingScreenGFX_UnderLine:
INCBIN "gfx/naming_screen/underline.1bpp"
_ComposeMailMessage:
ld hl, wNamingScreenDestinationPointer
ld [hl], e
inc hl
ld [hl], d
ldh a, [hMapAnims]
push af
xor a
ldh [hMapAnims], a
ldh a, [hInMenu]
push af
ld a, $1
ldh [hInMenu], a
call .InitBlankMail
call DelayFrame
.loop
call .DoMailEntry
jr nc, .loop
pop af
ldh [hInMenu], a
pop af
ldh [hMapAnims], a
ret
.InitBlankMail:
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 ; SPRITE_ANIM_DICT_DEFAULT and tile offset $00
ld hl, wSpriteAnimDict
ld [hli], a
ld [hl], a
; init mail icon
depixel 3, 2
ld a, SPRITE_ANIM_INDEX_PARTY_MON
call InitSpriteAnimStruct
ld hl, SPRITEANIMSTRUCT_ANIM_SEQ_ID
add hl, bc
ld [hl], $0
call .InitCharset
ld a, LCDC_DEFAULT
ldh [rLCDC], a
call .initwNamingScreenMaxNameLength
ld b, SCGB_DIPLOMA
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, MAIL_LINE_LENGTH
add hl, de
ld [hl], "<NEXT>"
ret
.MailIcon:
INCBIN "gfx/naming_screen/mail.2bpp"
.initwNamingScreenMaxNameLength
ld a, MAIL_MSG_LENGTH + 1
ld [wNamingScreenMaxNameLength], a
ret
.PleaseWriteAMailString: ; unreferenced
db "メールを かいてね@"
.InitCharset:
call WaitTop
hlcoord 0, 0
ld bc, 6 * SCREEN_WIDTH
ld a, NAMINGSCREEN_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:
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:
call JoyTextDelay
ld a, [wJumptableIndex]
bit 7, a
jr nz, .exit_mail
call .DoJumptable
farcall PlaySpriteAnimationsAndDelayFrame
call .Update
call DelayFrame
and a
ret
.exit_mail
callfar ClearSpriteAnims
call ClearSprites
xor a
ldh [hSCX], a
ldh [hSCY], a
scf
ret
.Update:
xor a
ldh [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
ldh [hBGMapMode], a
ret
.DoJumptable:
jumptable .Jumptable, wJumptableIndex
.Jumptable:
dw .init_blinking_cursor
dw .process_joypad
.init_blinking_cursor
depixel 9, 2
ld a, SPRITE_ANIM_INDEX_COMPOSE_MAIL_CURSOR
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_VAR3
add hl, bc
ld [hl], a
ld hl, wJumptableIndex
inc [hl]
ret
.process_joypad
ld hl, hJoyPressed
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, wNamingScreenCurNameLength
ld a, [hl]
cp MAIL_LINE_LENGTH
ret nz
inc [hl]
call NamingScreen_GetTextCursorPosition
ld [hl], NAMINGSCREEN_UNDERLINE
dec hl
ld [hl], "<NEXT>"
ret
.start
ld hl, wNamingScreenCursorObjectPointer
ld c, [hl]
inc hl
ld b, [hl]
ld hl, SPRITEANIMSTRUCT_VAR1
add hl, bc
ld [hl], $9
ld hl, SPRITEANIMSTRUCT_VAR2
add hl, bc
ld [hl], $5
ret
.b
call NamingScreen_DeleteCharacter
ld hl, wNamingScreenCurNameLength
ld a, [hl]
cp MAIL_LINE_LENGTH
ret nz
dec [hl]
call NamingScreen_GetTextCursorPosition
ld [hl], NAMINGSCREEN_UNDERLINE
inc hl
ld [hl], "<NEXT>"
ret
.finished
call NamingScreen_StoreEntry
ld hl, wJumptableIndex
set 7, [hl]
ret
.select
ld hl, wNamingScreenLetterCase
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/gfx/sprite_anims.asm
ComposeMail_AnimateCursor:
call .GetDPad
ld hl, SPRITEANIMSTRUCT_VAR2
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_VAR3
add hl, bc
add [hl]
ld hl, SPRITEANIMSTRUCT_FRAMESET_ID
add hl, bc
ld [hl], a
ld hl, SPRITEANIMSTRUCT_VAR1
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
.LetterEntries:
db $00, $10, $20, $30, $40, $50, $60, $70, $80, $90
.CaseDelEnd:
db $00, $00, $00, $30, $30, $30, $60, $60, $60, $60
.GetDPad:
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_VAR1
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_VAR1
add hl, bc
ld [hl], a
ret
.left
call ComposeMail_GetCursorPosition
and a
jr nz, .caps_del_done_left
ld hl, SPRITEANIMSTRUCT_VAR1
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
dec a
dec a
ld e, a
add a
add e
ld hl, SPRITEANIMSTRUCT_VAR1
add hl, bc
ld [hl], a
ret
.down
ld hl, SPRITEANIMSTRUCT_VAR2
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_VAR2
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:
ld hl, wNamingScreenCursorObjectPointer
ld c, [hl]
inc hl
ld b, [hl]
ComposeMail_GetCursorPosition:
ld hl, SPRITEANIMSTRUCT_VAR2
add hl, bc
ld a, [hl]
cp $5
jr nz, .letter
ld hl, SPRITEANIMSTRUCT_VAR1
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:
ld a, [wNamingScreenLastCharacter]
jp MailComposition_TryAddCharacter
.add_dakuten ; unreferenced
ld a, [wNamingScreenCurNameLength]
and a
ret z
cp $11
jr nz, .one_back
push hl
ld hl, wNamingScreenCurNameLength
dec [hl]
dec [hl]
jr .continue
.one_back
push hl
ld hl, wNamingScreenCurNameLength
dec [hl]
.continue
call NamingScreen_GetTextCursorPosition
ld c, [hl]
pop hl
.loop
ld a, [hli]
cp -1 ; end?
jp z, NamingScreen_AdvanceCursor_CheckEndOfString
cp c
jr z, .done
inc hl
jr .loop
.done
ld a, [hl]
jp NamingScreen_LoadNextCharacter
INCLUDE "data/text/mail_input_chars.asm"