pokecrystal-board/engine/events/buena_menu.asm

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
Remove all address comments 2018-06-24 07:09:41 -07:00			`AskRememberPassword:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call .DoMenu`
			`ld a, $0`
			`jr c, .okay`
			`ld a, $1`

			`.okay`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wScriptVar], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.DoMenu:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`lb bc, 14, 7`
			`push bc`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`ld hl, YesNoMenuHeader`
			`call CopyMenuHeader`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`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`

Remove all address comments 2018-06-24 07:09:41 -07:00			`Buena_ExitMenu:`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh a, [hOAMUpdate]`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`push af`
			`call ExitMenu`
			`call UpdateSprites`
			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [hOAMUpdate], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call DelayFrame`
			`ld a, $1`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [hOAMUpdate], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call ApplyTilemap`
			`pop af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 11:28:22 -07:00			`ldh [hOAMUpdate], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ret`