pokecrystal/engine/overworld/select_menu.asm

SelectMenu::
	call CheckRegisteredItem
	jr c, .NotRegistered
	jp UseRegisteredItem

.NotRegistered:
	call OpenText
	ld b, BANK(MayRegisterItemText)
	ld hl, MayRegisterItemText
	call MapTextbox
	call WaitButton
	jp CloseText

MayRegisterItemText:
	text_far _MayRegisterItemText
	text_end

CheckRegisteredItem:
	ld a, [wWhichRegisteredItem]
	and a
	jr z, .NoRegisteredItem
	and REGISTERED_POCKET
	rlca
	rlca
	ld hl, .Pockets
	rst JumpTable
	ret

.Pockets:
; entries correspond to *_POCKET constants
	dw .CheckItem
	dw .CheckBall
	dw .CheckKeyItem
	dw .CheckTMHM

.CheckItem:
	ld hl, wNumItems
	call .CheckRegisteredNo
	jr c, .NoRegisteredItem
	inc hl
	ld e, a
	ld d, 0
	add hl, de
	add hl, de
	call .IsSameItem
	jr c, .NoRegisteredItem
	and a
	ret

.CheckKeyItem:
	ld a, [wRegisteredItem]
	ld hl, wKeyItems
	ld de, 1
	call IsInArray
	jr nc, .NoRegisteredItem
	ld a, [wRegisteredItem]
	ld [wCurItem], a
	and a
	ret

.CheckBall:
	ld hl, wNumBalls
	call .CheckRegisteredNo
	jr nc, .NoRegisteredItem
	inc hl
	ld e, a
	ld d, 0
	add hl, de
	add hl, de
	call .IsSameItem
	jr c, .NoRegisteredItem
	ret

.CheckTMHM:
	jr .NoRegisteredItem

.NoRegisteredItem:
	xor a
	ld [wWhichRegisteredItem], a
	ld [wRegisteredItem], a
	scf
	ret

.CheckRegisteredNo:
	ld a, [wWhichRegisteredItem]
	and REGISTERED_NUMBER
	dec a
	cp [hl]
	jr nc, .NotEnoughItems
	ld [wCurItemQuantity], a
	and a
	ret

.NotEnoughItems:
	scf
	ret

.IsSameItem:
	ld a, [wRegisteredItem]
	cp [hl]
	jr nz, .NotSameItem
	ld [wCurItem], a
	and a
	ret

.NotSameItem:
	scf
	ret

UseRegisteredItem:
	farcall CheckItemMenu
	ld a, [wItemAttributeValue]
	ld hl, .SwitchTo
	rst JumpTable
	ret

.SwitchTo:
; entries correspond to ITEMMENU_* constants
	dw .CantUse
	dw .NoFunction
	dw .NoFunction
	dw .NoFunction
	dw .Current
	dw .Party
	dw .Overworld

.NoFunction:
	call OpenText
	call CantUseItem
	call CloseText
	and a
	ret

.Current:
	call OpenText
	call DoItemEffect
	call CloseText
	and a
	ret

.Party:
	call RefreshScreen
	call FadeToMenu
	call DoItemEffect
	call CloseSubmenu
	call CloseText
	and a
	ret

.Overworld:
	call RefreshScreen
	ld a, 1
	ld [wUsingItemWithSelect], a
	call DoItemEffect
	xor a
	ld [wUsingItemWithSelect], a
	ld a, [wItemEffectSucceeded]
	cp 1
	jr nz, ._cantuse
	scf
	ld a, HMENURETURN_SCRIPT
	ldh [hMenuReturn], a
	ret

.CantUse:
	call RefreshScreen

._cantuse
	call CantUseItem
	call CloseText
	and a
	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`SelectMenu::`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call CheckRegisteredItem`
			`jr c, .NotRegistered`
			`jp UseRegisteredItem`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NotRegistered:`
opentext and breeding 2015-12-09 23:25:44 +00:00			`call OpenText`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld b, BANK(MayRegisterItemText)`
			`ld hl, MayRegisterItemText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call MapTextbox`
Rename several script commands 2015-11-25 15:16:29 +00:00			`call WaitButton`
			`jp CloseText`
Further split bank 4 2015-11-11 21:11:08 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`MayRegisterItemText:`
			`text_far _MayRegisterItemText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Further split bank 4 2015-11-11 21:11:08 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`CheckRegisteredItem:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wWhichRegisteredItem]`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`jr z, .NoRegisteredItem`
			`and REGISTERED_POCKET`
			`rlca`
			`rlca`
			`ld hl, .Pockets`
			`rst JumpTable`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.Pockets:`
Move event data to data/events/ 2018-01-26 03:19:24 +00:00			`; entries correspond to *_POCKET constants`
Further split bank 4 2015-11-11 21:11:08 +00:00			`dw .CheckItem`
			`dw .CheckBall`
			`dw .CheckKeyItem`
			`dw .CheckTMHM`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.CheckItem:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wNumItems`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call .CheckRegisteredNo`
			`jr c, .NoRegisteredItem`
			`inc hl`
			`ld e, a`
			`ld d, 0`
			`add hl, de`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add hl, de`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call .IsSameItem`
			`jr c, .NoRegisteredItem`
			`and a`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.CheckKeyItem:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wRegisteredItem]`
			`ld hl, wKeyItems`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ld de, 1`
			`call IsInArray`
			`jr nc, .NoRegisteredItem`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wRegisteredItem]`
			`ld [wCurItem], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.CheckBall:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wNumBalls`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call .CheckRegisteredNo`
			`jr nc, .NoRegisteredItem`
			`inc hl`
			`ld e, a`
			`ld d, 0`
			`add hl, de`
More splitting of main.asm; remove unneeded rept 2 2016-05-04 15:46:23 +00:00			`add hl, de`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call .IsSameItem`
			`jr c, .NoRegisteredItem`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.CheckTMHM:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`jr .NoRegisteredItem`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NoRegisteredItem:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wWhichRegisteredItem], a`
			`ld [wRegisteredItem], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`scf`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CheckRegisteredNo:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wWhichRegisteredItem]`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and REGISTERED_NUMBER`
			`dec a`
			`cp [hl]`
			`jr nc, .NotEnoughItems`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wCurItemQuantity], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NotEnoughItems:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`scf`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.IsSameItem:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wRegisteredItem]`
Further split bank 4 2015-11-11 21:11:08 +00:00			`cp [hl]`
			`jr nz, .NotSameItem`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wCurItem], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NotSameItem:`
Further split bank 4 2015-11-11 21:11:08 +00:00			`scf`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`UseRegisteredItem:`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall CheckItemMenu`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld a, [wItemAttributeValue]`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ld hl, .SwitchTo`
			`rst JumpTable`
			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.SwitchTo:`
Move event data to data/events/ 2018-01-26 03:19:24 +00:00			`; entries correspond to ITEMMENU_* constants`
Further split bank 4 2015-11-11 21:11:08 +00:00			`dw .CantUse`
			`dw .NoFunction`
			`dw .NoFunction`
			`dw .NoFunction`
			`dw .Current`
			`dw .Party`
			`dw .Overworld`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.NoFunction:`
opentext and breeding 2015-12-09 23:25:44 +00:00			`call OpenText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call CantUseItem`
Rename several script commands 2015-11-25 15:16:29 +00:00			`call CloseText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Current:`
opentext and breeding 2015-12-09 23:25:44 +00:00			`call OpenText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call DoItemEffect`
Rename several script commands 2015-11-25 15:16:29 +00:00			`call CloseText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Party:`
writebackup --> closewindow; game corner prize vendors; others 2015-12-25 03:58:42 +00:00			`call RefreshScreen`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call FadeToMenu`
			`call DoItemEffect`
Break up engine/sprites.asm; address yenatch's comments 2015-12-02 02:54:11 +00:00			`call CloseSubmenu`
Rename several script commands 2015-11-25 15:16:29 +00:00			`call CloseText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Overworld:`
writebackup --> closewindow; game corner prize vendors; others 2015-12-25 03:58:42 +00:00			`call RefreshScreen`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ld a, 1`
Elevator 2015-12-17 22:51:32 +00:00			`ld [wUsingItemWithSelect], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`call DoItemEffect`
			`xor a`
Elevator 2015-12-17 22:51:32 +00:00			`ld [wUsingItemWithSelect], a`
			`ld a, [wItemEffectSucceeded]`
Further split bank 4 2015-11-11 21:11:08 +00:00			`cp 1`
			`jr nz, ._cantuse`
			`scf`
			`ld a, HMENURETURN_SCRIPT`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMenuReturn], a`
Further split bank 4 2015-11-11 21:11:08 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CantUse:`
writebackup --> closewindow; game corner prize vendors; others 2015-12-25 03:58:42 +00:00			`call RefreshScreen`
Further split bank 4 2015-11-11 21:11:08 +00:00
			`._cantuse`
			`call CantUseItem`
Rename several script commands 2015-11-25 15:16:29 +00:00			`call CloseText`
Further split bank 4 2015-11-11 21:11:08 +00:00			`and a`
			`ret`