disasm of code used in item menus and other menus

hg-commit-id: 0b9e11ad6c0f

2 files changed, 563 insertions, 2 deletions

diff --git a/constants.asm b/constants.asm
index 0a271987..f334ca26 100644
--- a/constants.asm
+++ b/constants.asm
@@ -160,6 +160,8 @@ W_ANIMSOUNDID EQU $CF07 ; sound ID during battle animations
 
 W_WHICHPOKEMON EQU $CF92 ; which pokemon you selected
 
+W_LISTMENUID EQU $CF94 ; ID used by DisplayListMenuID
+
 W_WALKCOUNTER EQU $CFC5 ; walk animation counter
 
 W_ENEMYMOVENUM      EQU $CFCC
@@ -878,6 +880,13 @@ rIE EQU $FFFF
 OAM_HFLIP EQU %00100000 ; horizontal flip
 OAM_VFLIP EQU %01000000 ; vertical flip
 
+; list menu ID's
+PCPOKEMONLISTMENU  EQU $00 ; PC pokemon withdraw/deposit lists
+MOVESLISTMENU      EQU $01 ; XXX where is this used?
+PRICEDITEMLISTMENU EQU $02 ; Pokemart buy menu / Pokemart buy/sell choose quantity menu
+ITEMLISTMENU       EQU $03 ; Start menu Item menu / Pokemart sell menu
+FLOORLISTMENU      EQU $04 ; floor list in elevators
+
 ; pokemon name constants
 RHYDON     EQU $01
 KANGASKHAN EQU $02
diff --git a/main.asm b/main.asm
index 1171af9d..b9c8b629 100644
--- a/main.asm
+++ b/main.asm
@@ -2846,7 +2846,26 @@ SwitchToMapRomBank: ; 12BC
 	pop hl
 	ret
 
-INCBIN "baserom.gbc",$12DA,$15CD - $12DA
+INCBIN "baserom.gbc",$12DA,$15B4 - $12DA
+
+; copy party pokemon's name to $CD6D
+GetPartyMonName2: ; 15B4
+	ld a,[$cf92] ; index within party
+	ld hl,W_PARTYMON1NAME
+
+; this is called more often
+GetPartyMonName: ; 15BA
+	push hl
+	push bc
+	call $3a7d ; add 11 to hl, a times
+	ld de,$cd6d
+	push de
+	ld bc,11
+	call CopyData
+	pop de
+	pop bc
+	pop hl
+	ret
 
 ; function to print a BCD (Binary-coded decimal) number
 ; de = address of BCD number
@@ -5373,7 +5392,540 @@ AddItemToInventory: ; 2BCF
 	pop bc
 	ret
 
-INCBIN "baserom.gbc",$2be6,$2f9e - $2be6
+; INPUT:
+; [W_LISTMENUID] = list menu ID
+; [$cf8b] = address of the list (2 bytes)
+DisplayListMenuID: ; 2BE6
+	xor a
+	ld [H_AUTOBGTRANSFERENABLED],a ; disable auto-transfer
+	ld a,1
+	ld [$ffb7],a ; joypad state update flag
+	ld a,[W_BATTLETYPE]
+	and a ; is it the Old Man battle?
+	jr nz,.specialBattleType\@
+	ld a,$01
+	jr .bankswitch\@
+.specialBattleType\@ ; Old Man battle
+	ld a,$0f
+.bankswitch\@
+	call BankswitchHome
+	ld hl,$d730
+	set 6,[hl] ; turn off letter printing delay
+	xor a
+	ld [$cc35],a
+	ld [$d12a],a
+	ld a,[$cf8b]
+	ld l,a
+	ld a,[$cf8c]
+	ld h,a ; hl = address of the list
+	ld a,[hl]
+	ld [$d12a],a ; [$d12a] = number of list entries
+	ld a,$0d ; list menu text box ID
+	ld [$d125],a
+	call DisplayTextBoxID ; draw the menu text box
+	call $2429 ; move sprites
+	FuncCoord 4,2 ; coordinates of upper left corner of menu text box
+	ld hl,Coord
+	ld de,$090e ; height and width of menu text box
+	ld a,[W_LISTMENUID]
+	and a ; is it a PC pokemon list?
+	jr nz,.skipMovingSprites\@
+	call $2429 ; move sprites
+.skipMovingSprites\@
+	ld a,1 ; max menu item ID is 1 if the list has less than 2 entries
+	ld [$cc37],a
+	ld a,[$d12a]
+	cp a,2 ; does the list have less than 2 entries?
+	jr c,.setMenuVariables\@
+	ld a,2 ; max menu item ID is 2 if the list has at least 2 entries
+.setMenuVariables\@
+	ld [W_MAXMENUITEMID],a
+	ld a,4
+	ld [W_TOPMENUITEMY],a
+	ld a,5
+	ld [W_TOPMENUITEMX],a
+	ld a,%00000111 ; A button, B button, Select button
+	ld [W_MENUWATCHEDKEYS],a
+	ld c,10
+	call DelayFrames
+
+DisplayListMenuIDLoop: ; 2C53
+	xor a
+	ld [H_AUTOBGTRANSFERENABLED],a ; disable transfer
+	call PrintListMenuEntries
+	ld a,1
+	ld [H_AUTOBGTRANSFERENABLED],a ; enable transfer
+	call Delay3
+	ld a,[W_BATTLETYPE]
+	and a ; is it the Old Man battle?
+	jr z,.notOldManBattle\@
+.oldManBattle\@
+	ld a,$ed ; right arrow menu cursor
+	FuncCoord 5,4
+	ld [Coord],a ; place menu cursor in front of first menu entry
+	ld c,80
+	call DelayFrames
+	xor a
+	ld [W_CURMENUITEMID],a
+	ld hl,Coord
+	ld a,l
+	ld [W_MENUCURSORLOCATION],a
+	ld a,h
+	ld [W_MENUCURSORLOCATION + 1],a
+	jr .buttonAPressed\@
+.notOldManBattle\@
+	call LoadGBPal
+	call HandleMenuInput
+	push af
+	call PlaceMenuCursor
+	pop af
+	bit 0,a ; was the A button pressed?
+	jp z,.checkOtherKeys\@
+.buttonAPressed\@
+	ld a,[W_CURMENUITEMID]
+	call PlaceUnfilledArrowMenuCursor
+	ld a,$01
+	ld [$d12e],a
+	ld [$d12d],a
+	xor a
+	ld [$cc37],a
+	ld a,[W_CURMENUITEMID]
+	ld c,a
+	ld a,[$cc36] ; index of top (visible) menu item within the list
+	add c
+	ld c,a
+	ld a,[$d12a] ; number of list entries
+	and a ; is the list empty?
+	jp z,ExitListMenu ; if so, exit the menu
+	dec a
+	cp c ; did the player select Cancel?
+	jp c,ExitListMenu ; if so, exit the menu
+	ld a,c
+	ld [$cf92],a
+	ld a,[W_LISTMENUID]
+	cp a,ITEMLISTMENU
+	jr nz,.skipMultiplying\@
+; if it's an item menu
+	sla c ; item entries are 2 bytes long, so multiply by 2
+.skipMultiplying\@
+	ld a,[$cf8b]
+	ld l,a
+	ld a,[$cf8c]
+	ld h,a
+	inc hl ; hl = beginning of list entries
+	ld b,0
+	add hl,bc
+	ld a,[hl]
+	ld [$cf91],a
+	ld a,[W_LISTMENUID]
+	and a ; is it a PC pokemon list?
+	jr z,.pokemonList\@
+	push hl
+	call $37df
+	pop hl
+	ld a,[W_LISTMENUID]
+	cp a,ITEMLISTMENU
+	jr nz,.skipGettingQuantity\@
+; if it's an item menu
+	inc hl
+	ld a,[hl] ; a = item quantity
+	ld [$cf97],a
+.skipGettingQuantity\@
+	ld a,[$cf91]
+	ld [$d0b5],a
+	ld a,$01
+	ld [$d0b7],a
+	call GetName
+	jr .storeChosenEntry\@
+.pokemonList\@
+	ld hl,W_NUMINPARTY
+	ld a,[$cf8b]
+	cp l ; is it a list of party pokemon or box pokemon?
+	ld hl,W_PARTYMON1NAME
+	jr z,.getPokemonName\@
+	ld hl,$de06 ; box pokemon names
+.getPokemonName\@
+	ld a,[$cf92]
+	call GetPartyMonName
+.storeChosenEntry\@ ; store the menu entry that the player chose and return
+	ld de,$cd6d
+	call $3826 ; copy name to $cf4b
+	ld a,$01
+	ld [$d12e],a
+	ld a,[W_CURMENUITEMID]
+	ld [$d12d],a
+	xor a
+	ld [$ffb7],a ; joypad state update flag
+	ld hl,$d730
+	res 6,[hl] ; turn on letter printing delay
+	jp BankswitchBack
+.checkOtherKeys\@ ; check B, SELECT, Up, and Down keys
+	bit 1,a ; was the B button pressed?
+	jp nz,ExitListMenu ; if so, exit the menu
+	bit 2,a ; was the select button pressed?
+	jp nz,$6b44 ; if so, allow the player to swap menu entries
+	ld b,a
+	bit 7,b ; was Down pressed?
+	ld hl,$cc36 ; index of top (visible) menu item within the list
+	jr z,.upPressed\@
+.downPressed\@
+	ld a,[hl]
+	add a,3
+	ld b,a
+	ld a,[$d12a] ; number of list entries
+	cp b ; will going down scroll past the Cancel button?
+	jp c,DisplayListMenuIDLoop
+	inc [hl] ; if not, go down
+	jp DisplayListMenuIDLoop
+.upPressed\@
+	ld a,[hl]
+	and a
+	jp z,DisplayListMenuIDLoop
+	dec [hl]
+	jp DisplayListMenuIDLoop
+
+DisplayChooseQuantityMenu: ; 2D57
+; text box dimensions/coordinates for just quantity
+	FuncCoord 15,9
+	ld hl,Coord
+	ld b,1 ; height
+	ld c,3 ; width
+	ld a,[W_LISTMENUID]
+	cp a,PRICEDITEMLISTMENU
+	jr nz,.drawTextBox\@
+; text box dimensions/coordinates for quantity and price
+	FuncCoord 7,9
+	ld hl,Coord
+	ld b,1  ; height
+	ld c,11 ; width
+.drawTextBox\@
+	call TextBoxBorder
+	FuncCoord 16,10
+	ld hl,Coord
+	ld a,[W_LISTMENUID]
+	cp a,PRICEDITEMLISTMENU
+	jr nz,.printInitialQuantity\@
+	FuncCoord 8,10
+	ld hl,Coord
+.printInitialQuantity\@
+	ld de,InitialQuantityText
+	call PlaceString
+	xor a
+	ld [$cf96],a ; initialize current quantity to 0
+	jp .incrementQuantity\@
+.waitForKeyPressLoop\@
+	call GetJoypadStateLowSensitivity
+	ld a,[$ffb3] ; newly pressed buttons
+	bit 0,a ; was the A button pressed?
+	jp nz,.buttonAPressed\@
+	bit 1,a ; was the B button pressed?
+	jp nz,.buttonBPressed\@
+	bit 6,a ; was Up pressed?
+	jr nz,.incrementQuantity\@
+	bit 7,a ; was Down pressed?
+	jr nz,.decrementQuantity\@
+	jr .waitForKeyPressLoop\@
+.incrementQuantity\@
+	ld a,[$cf97] ; max quantity
+	inc a
+	ld b,a
+	ld hl,$cf96 ; current quantity
+	inc [hl]
+	ld a,[hl]
+	cp b
+	jr nz,.handleNewQuantity\@
+; wrap to 1 if the player goes above the max quantity
+	ld a,1
+	ld [hl],a
+	jr .handleNewQuantity\@
+.decrementQuantity\@
+	ld hl,$cf96 ; current quantity
+	dec [hl]
+	jr nz,.handleNewQuantity\@
+; wrap to the max quantity if the player goes below 1
+	ld a,[$cf97] ; max quantity
+	ld [hl],a
+.handleNewQuantity\@
+	FuncCoord 17,10
+	ld hl,Coord
+	ld a,[W_LISTMENUID]
+	cp a,PRICEDITEMLISTMENU
+	jr nz,.printQuantity\@
+.printPrice\@
+	ld c,$03
+	ld a,[$cf96]
+	ld b,a
+	ld hl,$ff9f ; total price
+; initialize total price to 0
+	xor a
+	ld [hli],a
+	ld [hli],a
+	ld [hl],a
+.addLoop\@ ; loop to multiply the individual price by the quantity to get the total price
+	ld de,$ffa1
+	ld hl,$ff8d
+	push bc
+	ld a,$0b
+	call Predef ; add the individual price to the current sum
+	pop bc
+	dec b
+	jr nz,.addLoop\@
+	ld a,[$ff8e]
+	and a ; should the price be halved (for selling items)?
+	jr z,.skipHalvingPrice\@
+	xor a
+	ld [$ffa2],a
+	ld [$ffa3],a
+	ld a,$02
+	ld [$ffa4],a
+	ld a,$0d
+	call Predef ; halves the price
+; store the halved price
+	ld a,[$ffa2]
+	ld [$ff9f],a
+	ld a,[$ffa3]
+	ld [$ffa0],a
+	ld a,[$ffa4]
+	ld [$ffa1],a
+.skipHalvingPrice\@
+	FuncCoord 12,10
+	ld hl,Coord
+	ld de,SpacesBetweenQuantityAndPriceText
+	call PlaceString
+	ld de,$ff9f ; total price
+	ld c,$a3
+	call PrintBCDNumber
+	FuncCoord 9,10
+	ld hl,Coord
+.printQuantity\@
+	ld de,$cf96 ; current quantity
+	ld bc,$8102 ; print leading zeroes, 1 byte, 2 digits
+	call PrintNumber
+	jp .waitForKeyPressLoop\@
+.buttonAPressed\@ ; the player chose to make the transaction
+	xor a
+	ld [$cc35],a
+	ret
+.buttonBPressed\@ ; the player chose to cancel the transaction
+	xor a
+	ld [$cc35],a
+	ld a,$ff
+	ret
+
+InitialQuantityText: ; 2E30
+	db $f1,"01@"
+
+SpacesBetweenQuantityAndPriceText: ; 2E34
+	db "      @"
+
+ExitListMenu: ; 2E3B
+	ld a,[W_CURMENUITEMID]
+	ld [$d12d],a
+	ld a,$02
+	ld [$d12e],a
+	ld [$cc37],a
+	xor a
+	ld [$ffb7],a
+	ld hl,$d730
+	res 6,[hl]
+	call BankswitchBack
+	xor a
+	ld [$cc35],a
+	scf
+	ret
+
+PrintListMenuEntries: ; 2E5A
+	ld hl,$c3e1
+	ld b,$09
+	ld c,$0e
+	call ClearScreenArea
+	ld a,[$cf8b]
+	ld e,a
+	ld a,[$cf8c]
+	ld d,a
+	inc de ; de = beginning of list entries
+	ld a,[$cc36] ; index of top (visible) menu item within the list
+	ld c,a
+	ld a,[W_LISTMENUID]
+	cp a,ITEMLISTMENU
+	ld a,c
+	jr nz,.skipMultiplying\@
+; if it's an item menu
+; item entries are 2 bytes long, so multiply by 2
+	sla a
+	sla c
+.skipMultiplying\@
+	add e
+	ld e,a
+	jr nc,.noCarry\@
+	inc d
+.noCarry\@
+	FuncCoord 6,4 ; coordinates of first list entry name
+	ld hl,Coord
+	ld b,4 ; print 4 names
+.loop\@
+	ld a,b
+	ld [$cf92],a
+	ld a,[de]
+	ld [$d11e],a
+	cp a,$ff
+	jp z,.printCancelMenuItem\@
+	push bc
+	push de
+	push hl
+	push hl
+	push de
+	ld a,[W_LISTMENUID]
+	and a
+	jr z,.pokemonPCMenu\@
+	cp a,$01
+	jr z,.movesMenu\@
+.itemMenu\@
+	call GetItemName
+	jr .placeNameString\@
+.pokemonPCMenu\@
+	push hl
+	ld hl,W_NUMINPARTY
+	ld a,[$cf8b]
+	cp l ; is it a list of party pokemon or box pokemon?
+	ld hl,W_PARTYMON1NAME
+	jr z,.getPokemonName\@
+	ld hl,$de06 ; box pokemon names
+.getPokemonName\@
+	ld a,[$cf92]
+	ld b,a
+	ld a,4
+	sub b
+	ld b,a
+	ld a,[$cc36] ; index of top (visible) menu item within the list
+	add b
+	call GetPartyMonName
+	pop hl
+	jr .placeNameString\@
+.movesMenu\@
+	call GetMoveName
+.placeNameString\@
+	call PlaceString
+	pop de
+	pop hl
+	ld a,[$cf93]
+	and a ; should prices be printed?
+	jr z,.skipPrintingItemPrice\@
+.printItemPrice\@
+	push hl
+	ld a,[de]
+	ld de,$4608
+	ld [$cf91],a
+	call $37df ; get price
+	pop hl
+	ld bc,20 + 5 ; 1 row down and 5 columns right
+	add hl,bc
+	ld c,$a3 ; no leading zeroes, right-aligned, print currency symbol, 3 bytes
+	call PrintBCDNumber
+.skipPrintingItemPrice\@
+	ld a,[W_LISTMENUID]
+	and a
+	jr nz,.skipPrintingPokemonLevel\@
+.printPokemonLevel\@
+	ld a,[$d11e]
+	push af
+	push hl
+	ld hl,W_NUMINPARTY
+	ld a,[$cf8b]
+	cp l ; is it a list of party pokemon or box pokemon?
+	ld a,$00
+	jr z,.next\@
+	ld a,$02
+.next\@
+	ld [$cc49],a
+	ld hl,$cf92
+	ld a,[hl]
+	ld b,a
+	ld a,$04
+	sub b
+	ld b,a
+	ld a,[$cc36]
+	add b
+	ld [hl],a
+	call $1372 ; load pokemon info
+	ld a,[$cc49]
+	and a ; is it a list of party pokemon or box pokemon?
+	jr z,.skipCopyingLevel\@
+.copyLevel\@
+	ld a,[$cf9b]
+	ld [$cfb9],a
+.skipCopyingLevel\@
+	pop hl
+	ld bc,$001c
+	add hl,bc
+	call $150b ; print level
+	pop af
+	ld [$d11e],a
+.skipPrintingPokemonLevel\@
+	pop hl
+	pop de
+	inc de
+	ld a,[W_LISTMENUID]
+	cp a,ITEMLISTMENU
+	jr nz,.nextListEntry\@
+.printItemQuantity\@
+	ld a,[$d11e]
+	ld [$cf91],a
+	call $30d9 ; check if item is unsellable
+	ld a,[$d124]
+	and a ; is the item unsellable?
+	jr nz,.skipPrintingItemQuantity\@ ; if so, don't print the quantity
+	push hl
+	ld bc,20 + 8 ; 1 row down and 8 columns right
+	add hl,bc
+	ld a,$f1
+	ldi [hl],a
+	ld a,[$d11e]
+	push af
+	ld a,[de]
+	ld [$cf97],a
+	push de
+	ld de,$d11e
+	ld [de],a
+	ld bc,$0102
+	call PrintNumber
+	pop de
+	pop af
+	ld [$d11e],a
+	pop hl
+.skipPrintingItemQuantity\@
+	inc de
+	pop bc
+	inc c
+	push bc
+	inc c
+	ld a,[$cc35]
+	and a
+	jr z,.nextListEntry\@
+	sla a
+	cp c
+	jr nz,.nextListEntry\@
+	dec hl
+	ld a,$ec ; unfilled right arrow menu cursor
+	ld [hli],a
+.nextListEntry\@
+	ld bc,2 * 20 ; 2 rows
+	add hl,bc
+	pop bc
+	inc c
+	dec b
+	jp nz,.loop\@
+	ld bc,-8
+	add hl,bc
+	ld a,$ee ; down arrow
+	ld [hl],a
+	ret
+.printCancelMenuItem\@
+	ld de,ListMenuCancelText
+	jp PlaceString
+
+ListMenuCancelText: ; 2F97
+	db "CANCEL@"
 
 GetMonName: ; 2F9E
 	push hl