mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
59 lines
780 B
NASM
59 lines
780 B
NASM
AskRememberPassword:
|
|
call .DoMenu
|
|
ld a, $0
|
|
jr c, .okay
|
|
ld a, $1
|
|
|
|
.okay
|
|
ld [wScriptVar], a
|
|
ret
|
|
|
|
.DoMenu:
|
|
lb bc, 14, 7
|
|
push bc
|
|
ld hl, YesNoMenuHeader
|
|
call CopyMenuHeader
|
|
pop bc
|
|
ld a, b
|
|
ld [wMenuBorderLeftCoord], a
|
|
add $5
|
|
ld [wMenuBorderRightCoord], a
|
|
ld a, c
|
|
ld [wMenuBorderTopCoord], a
|
|
add $4
|
|
ld [wMenuBorderBottomCoord], a
|
|
call PushWindow
|
|
call VerticalMenu
|
|
push af
|
|
ld c, 15
|
|
call DelayFrames
|
|
call Buena_ExitMenu
|
|
pop af
|
|
jr c, .refused
|
|
ld a, [wMenuCursorY]
|
|
cp $2
|
|
jr z, .refused
|
|
and a
|
|
ret
|
|
|
|
.refused
|
|
ld a, $2
|
|
ld [wMenuCursorY], a
|
|
scf
|
|
ret
|
|
|
|
Buena_ExitMenu:
|
|
ldh a, [hOAMUpdate]
|
|
push af
|
|
call ExitMenu
|
|
call UpdateSprites
|
|
xor a
|
|
ldh [hOAMUpdate], a
|
|
call DelayFrame
|
|
ld a, $1
|
|
ldh [hOAMUpdate], a
|
|
call ApplyTilemap
|
|
pop af
|
|
ldh [hOAMUpdate], a
|
|
ret
|