mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-17 02:40:50 +12:00
disasm of code used in item menus and other menus
hg-commit-id: 0b9e11ad6c0f
This commit is contained in:
YamaArashi
parent
1440cf9321
commit
c8b23cfa9a
|
|
@ -160,6 +160,8 @@ W_ANIMSOUNDID EQU $CF07 ; sound ID during battle animations
|
||||||
|
|
||||||
W_WHICHPOKEMON EQU $CF92 ; which pokemon you selected
|
W_WHICHPOKEMON EQU $CF92 ; which pokemon you selected
|
||||||
|
|
||||||
|
W_LISTMENUID EQU $CF94 ; ID used by DisplayListMenuID
|
||||||
|
|
||||||
W_WALKCOUNTER EQU $CFC5 ; walk animation counter
|
W_WALKCOUNTER EQU $CFC5 ; walk animation counter
|
||||||
|
|
||||||
W_ENEMYMOVENUM EQU $CFCC
|
W_ENEMYMOVENUM EQU $CFCC
|
||||||
|
|
@ -878,6 +880,13 @@ rIE EQU $FFFF
|
||||||
OAM_HFLIP EQU %00100000 ; horizontal flip
|
OAM_HFLIP EQU %00100000 ; horizontal flip
|
||||||
OAM_VFLIP EQU %01000000 ; vertical 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
|
; pokemon name constants
|
||||||
RHYDON EQU $01
|
RHYDON EQU $01
|
||||||
KANGASKHAN EQU $02
|
KANGASKHAN EQU $02
|
||||||
|
|
|
||||||
556
main.asm
556
main.asm
|
|
@ -2846,7 +2846,26 @@ SwitchToMapRomBank: ; 12BC
|
||||||
pop hl
|
pop hl
|
||||||
ret
|
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
|
; function to print a BCD (Binary-coded decimal) number
|
||||||
; de = address of BCD number
|
; de = address of BCD number
|
||||||
|
|
@ -5373,7 +5392,540 @@ AddItemToInventory: ; 2BCF
|
||||||
pop bc
|
pop bc
|
||||||
ret
|
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
|
GetMonName: ; 2F9E
|
||||||
push hl
|
push hl
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue