summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/constants/gfx_constants.asm15
-rw-r--r--src/engine/bank01.asm22
-rw-r--r--src/engine/bank02.asm3203
-rw-r--r--src/engine/bank06.asm30
-rw-r--r--src/gfx/hand_cards.pngbin0 -> 145 bytes
-rw-r--r--src/hram.asm5
-rw-r--r--src/text/text2.asm34
-rw-r--r--src/text/text3.asm42
-rw-r--r--src/text/text_offsets.asm76
-rw-r--r--src/wram.asm98
10 files changed, 3330 insertions, 195 deletions
diff --git a/src/constants/gfx_constants.asm b/src/constants/gfx_constants.asm
index 0e82519..6ec2e0b 100644
--- a/src/constants/gfx_constants.asm
+++ b/src/constants/gfx_constants.asm
@@ -19,3 +19,18 @@ tiles EQUS "* TILE_SIZE"
TILE_SIZE_1BPP EQU 8 ; bytes
tiles_1bpp EQUS "* TILE_SIZE_1BPP"
+
+; icon tile offsets
+ICON_TILE_BASIC_POKEMON EQU $d0
+ICON_TILE_STAGE_1_POKEMON EQU $d4
+ICON_TILE_STAGE_2_POKEMON EQU $d8
+ICON_TILE_TRAINER EQU $dc
+
+ICON_TILE_FIRE EQU $e0
+ICON_TILE_GRASS EQU $e4
+ICON_TILE_LIGHTNING EQU $e8
+ICON_TILE_WATER EQU $ec
+ICON_TILE_FIGHTING EQU $f0
+ICON_TILE_PSYCHIC EQU $f4
+ICON_TILE_COLORLESS EQU $f8
+ICON_TILE_ENERGY EQU $fc
diff --git a/src/engine/bank01.asm b/src/engine/bank01.asm
index 4380e2f..c706842 100644
--- a/src/engine/bank01.asm
+++ b/src/engine/bank01.asm
@@ -8491,7 +8491,27 @@ Func_74dc: ; 74dc (1:74dc)
jr .asm_751b
; 0x7528
- INCROM $7528, $7571
+ INCROM $7528, $755d
+
+Func_755d: ; 755d (1:755d)
+ farcall Func_19bfb
+ ret
+; 0x7562
+
+Func_7562: ; 7562 (1:7562)
+ farcall Func_19bc5
+ ret
+; 0x7567
+
+Func_7567: ; 7567 (1:7567)
+ farcall Func_19b8c
+ ret
+; 0x756c
+
+Func_756c: ; 756c (1:756c)
+ farcall Func_19b41
+ ret
+; 0x7571
; handles all the Card Pop! functionality
DoCardPop: ; 7571 (1:7571)
diff --git a/src/engine/bank02.asm b/src/engine/bank02.asm
index 01e8872..e07d4a7 100644
--- a/src/engine/bank02.asm
+++ b/src/engine/bank02.asm
@@ -1434,14 +1434,14 @@ Func_8764: ; 8764 (2:4764)
.text
call DrawWideTextBox
- lb de, $01, $0e
+ lb de, 1, 14
call InitTextPrinting
ldtx hl, WhichCardWouldYouLikeToSeeText
call ProcessTextFromID
xor a
ld [wPrizeCardCursorPosition], a
- ld de, Func_8764_TransitionTable
+ ld de, TransitionTable_8764
ld hl, wce53
ld [hl], e
inc hl
@@ -1582,14 +1582,14 @@ Func_8883: ; 8883 (2:4883)
.text
call DrawWideTextBox
- lb de, $01, $0e
+ lb de, 1, 14
call InitTextPrinting
ldtx hl, WhichCardWouldYouLikeToSeeText
call ProcessTextFromID
xor a
ld [wPrizeCardCursorPosition], a
- ld de, Func_8883_TransitionTable
+ ld de, TransitionTable_8883
ld hl, wce53
ld [hl], e
inc hl
@@ -1600,7 +1600,7 @@ Func_8883: ; 8883 (2:4883)
ld [wce56], a
jp Func_8764.loop_2
-Func_8764_TransitionTable: ; 88c2 (2:48c2)
+TransitionTable_8764: ; 8764 (2:4764)
cursor_transition $08, $28, $00, $04, $02, $01, $07
cursor_transition $30, $28, $20, $05, $03, $07, $00
cursor_transition $08, $38, $00, $00, $04, $03, $07
@@ -1610,7 +1610,7 @@ Func_8764_TransitionTable: ; 88c2 (2:48c2)
cursor_transition $78, $50, $00, $07, $07, $00, $01
cursor_transition $78, $28, $00, $07, $07, $00, $01
-Func_8883_TransitionTable:
+TransitionTable_8883: ; 8883 (2:4883)
cursor_transition $a0, $60, $20, $02, $04, $07, $01
cursor_transition $78, $60, $00, $03, $05, $00, $07
cursor_transition $a0, $50, $20, $04, $00, $06, $03
@@ -1844,16 +1844,17 @@ OpenGlossaryScreen_TransitionTable:
cursor_transition $58, $58, $00, $07, $09, $03, $03
cursor_transition $58, $68, $00, $08, $05, $04, $04
+; copies DECK_SIZE number of cards from de to hl in SRAM
Func_8cd4: ; 8cd4 (2:4cd4)
push bc
call EnableSRAM
- ld b, $3c
-.asm_8cda
+ ld b, DECK_SIZE
+.loop
ld a, [de]
inc de
ld [hli], a
dec b
- jr nz, .asm_8cda
+ jr nz, .loop
xor a
ld [hl], a
call DisableSRAM
@@ -1861,7 +1862,18 @@ Func_8cd4: ; 8cd4 (2:4cd4)
ret
; 0x8ce7
- INCROM $8ce7, $8cf9
+Func_8ce7: ; 8ce7 (2:4ce7)
+ xor a
+ ld hl, wceda
+ ld bc, DECK_SIZE
+ add hl, bc
+ ld [hl], a ; wcf16
+ ld hl, wcf17
+ ld bc, $50
+ add hl, bc
+ ld [hl], a
+ ret
+; 0x8cf9
Func_8cf9: ; 8cf9 (2:4cf9)
call EnableSRAM
@@ -1874,14 +1886,18 @@ Func_8cf9: ; 8cf9 (2:4cf9)
ld [hl], a
ld [sb701], a
call DisableSRAM
-Func_8d0b: ; 8d0b (2:4d0b)
- ld hl, Unknown_8d15
- ld de, $9380
- call Func_92ad
+; fallthrough
+
+; loads the Hard Cards icon gfx to v0Tiles2
+LoadHandCardsIcon: ; 8d0b (2:4d0b)
+ ld hl, HandCardsGfx
+ ld de, v0Tiles2 + $38 tiles
+ call CopyListFromHLToDE
ret
-Unknown_8d15: ; 8d15 (2:4d15)
- INCROM $8d15, $8d56
+HandCardsGfx: ; 8d15 (2:4d15)
+ INCBIN "gfx/hand_cards.2bpp"
+ db $00 ; end of data
Func_8d56: ; 8d56 (2:4d56)
xor a
@@ -1892,31 +1908,54 @@ Func_8d56: ; 8d56 (2:4d56)
ld [wVBlankOAMCopyToggle], a
call LoadSymbolsFont
call LoadDuelCardSymbolTiles
- call Func_8d0b
+ call LoadHandCardsIcon
bank1call SetDefaultPalettes
lb de, $3c, $bf
call SetupText
ret
; 0x8d78
- INCROM $8d78, $8d9d
+; empties screen, zeroes object positions,
+; loads cursor tile, symbol fonts, duel card symbols
+; hand card icon and sets default palettes
+Func_8d78: ; 8d78 (2:4d78)
+ xor a
+ ld [wTileMapFill], a
+ call ZeroObjectPositions
+ call EmptyScreen
+ ld a, $1
+ ld [wVBlankOAMCopyToggle], a
+ call LoadCursorTile
+ call LoadSymbolsFont
+ call LoadDuelCardSymbolTiles
+ call LoadHandCardsIcon
+ bank1call SetDefaultPalettes
+ lb de, $3c, $bf
+ call SetupText
+ ret
+; 0x8d9d
+; copies 7 bytes from hl to wcfd1
Func_8d9d: ; 8d9d (2:4d9d)
ld de, wcfd1
ld b, $7
-.asm_8da2
+.loop
ld a, [hli]
ld [de], a
inc de
dec b
- jr nz, .asm_8da2
+ jr nz, .loop
ret
-Unknown_8da9: ; 8da9 (2:4da9)
- INCROM $8da9, $8db0
+Data_8da9: ; 8da9 (2:4da9)
+ db $50, $04, $01
+ dw HandleDeckConfigurationMenu
+ dw DeckConfigurationMenu_TransitionTable
+
+ INCROM $8db0, $8db0
Func_8db0: ; 8db0 (2:4db0)
- ld hl, Unknown_8da9
+ ld hl, Data_8da9
call Func_8d9d
ld a, $ff
call Func_9168
@@ -1971,17 +2010,19 @@ Func_8e05: ; 8e05 (2:4e05)
scf
ret
+; copies deck in hl to wcfb9
+; copies deck in de to wcf17
Func_8e1f: ; 8e1f (2:4e1f)
push de
ld de, wcfb9
- call Func_92b4
+ call CopyListFromHLToDEInSRAM
pop de
ld hl, wcf17
call Func_8cd4
- ld a, $9
+ ld a, 9
ld hl, wcebb
- call Func_9843
- ld a, $3c
+ call ClearNBytesFromHL
+ ld a, DECK_SIZE
ld [wcecc], a
ld hl, wcebb
ld [hl], a
@@ -2014,12 +2055,12 @@ Func_8e42: ; 8e42 (2:4e42)
ld d, h
ld hl, wcf17
call Func_8cd4
- ld a, $14
+ ld a, 20
ld hl, wcfb9
- call Func_9843
+ call ClearNBytesFromHL
ld de, wcfb9
call GetPointerToDeckName
- call Func_92b4
+ call CopyListFromHLToDEInSRAM
call Func_9345
jr nc, .asm_8ec4
call EnableSRAM
@@ -2041,7 +2082,7 @@ Func_8e42: ; 8e42 (2:4e42)
ld d, h
ld e, l
ld hl, wcfb9
- call Func_92ad
+ call CopyListFromHLToDE
call GetPointerToDeckName
ld a, [hl]
call DisableSRAM
@@ -2058,18 +2099,18 @@ Func_8e42: ; 8e42 (2:4e42)
call Func_8fe8
jp Func_8dbc
.asm_8edb
- ld a, $14
+ ld a, 20
ld hl, wcfb9
- call Func_9843
+ call ClearNBytesFromHL
ld de, wcfb9
call GetPointerToDeckName
- call Func_92b4
+ call CopyListFromHLToDEInSRAM
call Func_8f05
call GetPointerToDeckName
ld d, h
ld e, l
ld hl, wcfb9
- call Func_92b4
+ call CopyListFromHLToDEInSRAM
ld a, $ff
call Func_9168
ld a, [wceb1]
@@ -2185,7 +2226,7 @@ Func_8f9d: ; 8f9d (2:4f9d)
call EnableSRAM
ld [sCurrentlySelectedDeck], a
call DisableSRAM
- call Func_9326
+ call DrawHandCardsTileOnSelectedDeck
call GetPointerToDeckName
call EnableSRAM
call Func_9253
@@ -2422,12 +2463,50 @@ Func_910a: ; 910a (2:510a)
ret
; 0x9120
- INCROM $9120, $9152
+Func_9120: ; 9120 (2:5120)
+ push hl
+ ld b, $00
+ ld d, DECK_SIZE
+.asm_9125
+ ld a, [hli]
+ or a
+ jr z, .done
+ ld c, a
+ push hl
+ push de
+ push bc
+ ld a, $ff
+ call Func_a3ca
+ pop bc
+ pop de
+ ld hl, wTempCardCollection
+ add hl, bc
+ ld a, [hl]
+ cp $63
+ jr z, .asm_914c
+ call EnableSRAM
+ ld hl, sCardCollection
+ add hl, bc
+ ld a, [hl]
+ cp $80
+ jr nz, .asm_914b
+ xor a
+ ld [hl], a
+.asm_914b
+ inc [hl]
+.asm_914c
+ pop hl
+ dec d
+ jr nz, .asm_9125
+.done
+ pop hl
+ ret
+; 0x9152
Func_9152: ; 9152 (2:5152)
push hl
ld b, $0
- ld d, $3c
+ ld d, DECK_SIZE
.asm_9157
ld a, [hli]
or a
@@ -2461,14 +2540,14 @@ Func_9168: ; 9168 (2:5168)
call DrawRegularTextBox
ld hl, Unknown_9242
call PlaceTextItems
- ld a, $4
+ ld a, 4
ld hl, wceb2
- call Func_9843
- ld a, [hffb5]
+ call ClearNBytesFromHL
+ ld a, [hffb5] ; should be ldh
bit 0, a
jr z, .asm_91b0
ld hl, sDeck1Name
- ld de, $0602
+ lb de, 6, 2
call Func_926e
.asm_91b0
ld hl, sDeck1Cards
@@ -2477,11 +2556,11 @@ Func_9168: ; 9168 (2:5168)
ld a, $1
ld [wceb2], a
.asm_91bd
- ld a, [hffb5]
+ ld a, [hffb5] ; should be ldh
bit 1, a
jr z, .asm_91cd
ld hl, sDeck2Name
- ld de, $0605
+ lb de, 6, 5
call Func_926e
.asm_91cd
ld hl, sDeck2Cards
@@ -2490,11 +2569,11 @@ Func_9168: ; 9168 (2:5168)
ld a, $1
ld [wceb3], a
.asm_91da
- ld a, [hffb5]
+ ld a, [hffb5] ; should be ldh
bit 2, a
jr z, .asm_91ea
ld hl, sDeck3Name
- ld de, $0608
+ lb de, 6, 8
call Func_926e
.asm_91ea
ld hl, sDeck3Cards
@@ -2503,11 +2582,11 @@ Func_9168: ; 9168 (2:5168)
ld a, $1
ld [wceb4], a
.asm_91f7
- ld a, [hffb5]
+ ld a, [hffb5] ; should be ldh
bit 3, a
jr z, .asm_9207
ld hl, sDeck4Name
- ld de, $060b
+ lb de, 6, 11
call Func_926e
.asm_9207
ld hl, sDeck4Cards
@@ -2539,7 +2618,7 @@ Func_9168: ; 9168 (2:5168)
ld a, c
ld [sCurrentlySelectedDeck], a
call DisableSRAM
- call Func_9326
+ call DrawHandCardsTileOnSelectedDeck
call EnableLCD
ret
@@ -2548,7 +2627,7 @@ Unknown_9242: ; 9242 (2:5242)
Func_9253: ; 9253 (2:5253)
ld de, wDefaultText
- call Func_92ad
+ call CopyListFromHLToDE
ld hl, wDefaultText
call GetTextLengthInTiles
ld b, $0
@@ -2556,10 +2635,11 @@ Func_9253: ; 9253 (2:5253)
add hl, bc
ld d, h
ld e, l
- ld hl, Unknown_92a7
- call Func_92ad
+ ld hl, Data_92a7
+ call CopyListFromHLToDE
ret
+; de = coordinates to print text
Func_926e: ; 926e (2:526e)
push hl
call Func_9314
@@ -2567,7 +2647,7 @@ Func_926e: ; 926e (2:526e)
jr c, .asm_929c
push de
ld de, wDefaultText
- call Func_92b4
+ call CopyListFromHLToDEInSRAM
ld hl, wDefaultText
call GetTextLengthInTiles
ld b, $0
@@ -2575,8 +2655,8 @@ Func_926e: ; 926e (2:526e)
add hl, bc
ld d, h
ld e, l
- ld hl, Unknown_92a7
- call Func_92ad
+ ld hl, Data_92a7
+ call CopyListFromHLToDE
pop de
ld hl, wDefaultText
call InitTextPrinting
@@ -2590,25 +2670,63 @@ Func_926e: ; 926e (2:526e)
scf
ret
-Unknown_92a7: ; 92a7 (2:52a7)
- INCROM $92a7, $92ad
+Data_92a7: ; 92a7 (2:52a7)
+ db " deck"
+ db TX_END
-Func_92ad: ; 92ad (2:52ad)
+; copies a $00-terminated list from hl to de
+CopyListFromHLToDE: ; 92ad (2:52ad)
ld a, [hli]
ld [de], a
or a
ret z
inc de
- jr Func_92ad
+ jr CopyListFromHLToDE
-Func_92b4: ; 92b4 (2:52b4)
+; same as CopyListFromHLToDE, but for SRAM copying
+CopyListFromHLToDEInSRAM: ; 92b4 (2:52b4)
call EnableSRAM
- call Func_92ad
+ call CopyListFromHLToDE
call DisableSRAM
ret
; 0x92be
- INCROM $92be, $9314
+Func_92be: ; 92be (2:52be)
+ push hl
+ call Func_9314
+ pop hl
+ ret c
+ push de
+ ld de, wDefaultText
+ call CopyListFromHLToDEInSRAM
+ ld hl, wDefaultText
+ call GetTextLengthInTiles
+ ld a, c
+ cp 21
+ jr c, .asm_92d8
+ ld c, 21
+.asm_92d8
+ ld b, $0
+ ld hl, wDefaultText
+ add hl, bc
+ ld d, h
+ ld e, l
+ ld hl, .text_start
+ ld b, .text_end - .text_start
+ call CopyNBytesFromHLToDE
+ xor a
+ ld [wc5aa], a
+ pop de
+ ld hl, wDefaultText
+ call InitTextPrinting
+ call ProcessText
+ or a
+ ret
+
+.text_start
+ db " deck "
+.text_end
+; 0x9314
Func_9314: ; 9314 (2:5314)
ld bc, $0018
@@ -2624,7 +2742,9 @@ Func_9314: ; 9314 (2:5314)
or a
ret
-Func_9326: ; 9326 (2:5326)
+; calculates the y coordinate of the currently selected deck
+; and draws the hands card tile at that position
+DrawHandCardsTileOnSelectedDeck: ; 9326 (2:5326)
call EnableSRAM
ld a, [sCurrentlySelectedDeck]
call DisableSRAM
@@ -2632,44 +2752,883 @@ Func_9326: ; 9326 (2:5326)
ld l, a
call HtimesL
ld e, l
- inc e
+ inc e ; (sCurrentlySelectedDeck * 3) + 1
ld d, 2
- ld a, $38
+; fallthrough
+
+; de = coordinates to draw rectangle
+DrawHandCardsTileAtDE: ; 9339 (2:5339)
+ ld a, $38 ; hand cards tile
lb hl, 1, 2
lb bc, 2, 2
call FillRectangle
ret
Func_9345: ; 9345 (2:5345)
- INCROM $9345, $9649
+ call Func_8ce7
+ call CountNumberOfCardsForEachCardType
+.skip_count
+ call DrawCardTypeIconsAndPrintCardCounts
+
+ xor a
+ ld [wcea1], a
+ ld [wced3], a
+ call Func_993d
+
+.skip_draw
+ ld hl, Data_9667
+ call Func_9a6d
+.wait_input
+ call DoFrame
+ ldh a, [hDPadHeld]
+ and START
+ jr z, .no_start_btn
+ ld a, $01
+ call PlaySFXConfirmOrCancel
+ call ConfirmDeckConfiguration
+ ld a, [wced3]
+ ld [wNamingScreenCursorY], a
+ jr .wait_input
+.no_start_btn
+ ld a, [wced3]
+ ld b, a
+ ld a, [wNamingScreenCursorY]
+ cp b
+ jr z, .check_down_btn
+ ld [wced3], a
+ ld hl, wcea1
+ ld [hl], $00
+ call Func_993d
+ ld a, $09
+ ld [wNamingScreenKeyboardHeight], a
+
+.check_down_btn
+ ldh a, [hDPadHeld]
+ and D_DOWN
+ jr z, .no_down_btn
+ call Func_9ad7
+ jr .asm_93a9
+.no_down_btn
+ call Func_9a83
+ jr nc, .wait_input
+ ld a, [hffb3]
+ cp $ff
+ jp z, Func_9461
+.asm_93a9
+ ld a, [wceab + 3]
+ or a
+ jr z, .wait_input
+ xor a
+.asm_93b0
+ ld hl, Data_9670
+ call Func_9a6d
+ ld a, [wceab + 3]
+ ld [wcfe4 + 2], a
+ ld hl, wcecb
+ cp [hl]
+ jr nc, .asm_93c5
+ ld [wNamingScreenKeyboardHeight], a
+.asm_93c5
+ ld hl, PrintDeckBuildingCardList
+ ld d, h
+ ld a, l
+ ld hl, wcece
+ ld [hli], a
+ ld [hl], d
+
+ ld a, $01
+ ld [wced2], a
+.asm_93d4
+ call DoFrame
+ ldh a, [hDPadHeld]
+ and START
+ jr z, .asm_93f0
+ ld a, $01
+ call PlaySFXConfirmOrCancel
+ ld a, [wNamingScreenCursorY]
+ ld [wced5], a
+ call ConfirmDeckConfiguration
+ ld a, [wced5]
+ jr .asm_93b0
+.asm_93f0
+ call Func_9efc
+ jr c, .asm_93d4
+ call Func_9b25
+ jr c, .asm_9442
+ jr .asm_93d4
+.asm_93fc
+ ld a, $01
+ call PlaySFXConfirmOrCancel
+ ld a, [wNamingScreenKeyboardHeight]
+ ld [wcfdf], a
+ ld a, [wNamingScreenCursorY]
+ ld [wced4], a
+ ld de, wceda
+ ld hl, wcfd8
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call Func_9c3f
+ call DrawCardTypeIconsAndPrintCardCounts
+ ld hl, Data_9667
+ call Func_9a6d
+ ld a, [wced3]
+ ld [wNamingScreenCursorY], a
+ call Func_9b20
+ call PrintDeckBuildingCardList
+ ld hl, Data_9670
+ call Func_9a6d
+ ld a, [wcfdf]
+ ld [wNamingScreenKeyboardHeight], a
+ ld a, [wced4]
+ ld [wNamingScreenCursorY], a
+ jr .asm_93d4
+.asm_9442
+ call Func_9c0e
+ ld a, [wNamingScreenCursorY]
+ ld [wced4], a
+ ld a, [hffb3]
+ cp $ff
+ jr nz, .asm_93fc
+ ld hl, Data_9667
+ call Func_9a6d
+ ld a, [wced3]
+ ld [wNamingScreenCursorY], a
+ jp .wait_input
+; 0x9461
+
+Func_9461: ; 9461 (2:5461)
+ xor a
+ ld [wPrizeCardCursorPosition], a
+ ld de, wcfd1 + 5
+ ld hl, wMenuInputTablePointer
+ ld a, [de]
+ ld [hli], a
+ inc de
+ ld a, [de]
+ ld [hl], a
+ ld a, $ff
+ ld [wDuelInitialPrizesUpperBitsSet], a
+.asm_9475
+ xor a
+ ld [wCheckMenuCursorBlinkCounter], a
+ ld hl, wcfd1 + 3
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ jp hl
+; 0x9480
+
+HandleDeckConfigurationMenu: ; 9480 (2:5480)
+ lb de, 0, 0
+ lb bc, 20, 6
+ call DrawRegularTextBox
+ ld hl, DeckBuildMenuData
+ call PlaceTextItems
+
+.do_frame
+ ld a, $1
+ ld [wVBlankOAMCopyToggle], a
+ call DoFrame
+ call Func_89ae
+ jr nc, .do_frame
+ ld [wced6], a
+ cp $ff
+ jr nz, .asm_94b5
+.draw_icons
+ call DrawCardTypeIconsAndPrintCardCounts
+ ld a, [wced4]
+ ld [wNamingScreenCursorY], a
+ ld a, [wced3]
+ call Func_993d
+ jp Func_9345.skip_draw
+
+.asm_94b5
+ push af
+ call Func_89ae.draw_cursor
+ ld a, $01
+ ld [wVBlankOAMCopyToggle], a
+ pop af
+ ld hl, .func_table
+ call JumpToFunctionInTable
+ jr Func_9461.asm_9475
+
+.func_table
+ dw ConfirmDeckConfiguration ; Confirm
+ dw ModifyDeckConfiguration ; Modify
+ dw ChangeDeckName ; Name
+ dw SaveDeckConfiguration ; Save
+ dw DismantleDeck ; Dismantle
+ dw CancelDeckModifications ; Cancel
+; 0x94d3
+
+ConfirmDeckConfiguration: ; 94d3 (2:54d3)
+ ld hl, wcea1
+ ld a, [hl]
+ ld hl, wced8
+ ld [hl], a
+ call Func_9e41
+ ld hl, wced8
+ ld a, [hl]
+ ld hl, wcea1
+ ld [hl], a
+ call DrawCardTypeIconsAndPrintCardCounts
+ ld hl, Data_9667
+ call Func_9a6d
+ ld a, [wced3]
+ ld [wNamingScreenCursorY], a
+ call Func_9b20
+ ld a, [wced3]
+ call Func_993d
+ ld a, [wced6]
+ ld [wNamingScreenCursorY], a
+ ret
+; 0x9505
+
+ModifyDeckConfiguration: ; 9505 (2:5505)
+ add sp, $2
+ jr HandleDeckConfigurationMenu.draw_icons
+; 0x9509
+
+; returns carry set if player chose to save deck
+CancelDeckModifications: ; 9509 (2:5509)
+ call Func_95c1
+ jr nc, .asm_9516
+ ldtx hl, QuitModifyingTheDeckText
+ call YesOrNoMenuWithText
+ jr c, SaveDeckConfiguration.go_back
+.asm_9516
+ add sp, $2
+ or a
+ ret
+
+SaveDeckConfiguration: ; 951a (2:551a)
+; handle deck configuration size
+ ld a, [wcecc]
+ cp DECK_SIZE
+ jp z, .ask_to_save_deck ; should be jr
+ ldtx hl, ThisIsntA60CardDeckText
+ call DrawWideTextBox_WaitForInput
+ ldtx hl, ReturnToOriginalConfigurationText
+ call YesOrNoMenuWithText
+ jr c, .print_deck_size_warning
+; return no carry
+ add sp, $2
+ or a
+ ret
+.print_deck_size_warning
+ ldtx hl, TheDeckMustInclude60CardsText
+ call DrawWideTextBox_WaitForInput
+ jr .go_back
+
+.ask_to_save_deck
+ ldtx hl, SaveThisDeckText
+ call YesOrNoMenuWithText
+ jr c, .go_back
+ call Func_9649
+ jr c, .set_carry
+ ldtx hl, ThereAreNoBasicPokemonInThisDeckText
+ call DrawWideTextBox_WaitForInput
+ ldtx hl, YouMustIncludeABasicPokemonInTheDeckText
+ call DrawWideTextBox_WaitForInput
+
+.go_back
+ call DrawCardTypeIconsAndPrintCardCounts
+ call PrintDeckBuildingCardList
+ ld a, [wced6]
+ ld [wNamingScreenCursorY], a
+ ret
+
+.set_carry
+ add sp, $2
+ scf
+ ret
+; 0x9566
+
+DismantleDeck: ; 9566 (2:5566)
+ ldtx hl, DismantleThisDeckText
+ call YesOrNoMenuWithText
+ jr c, SaveDeckConfiguration.go_back
+ call Func_9622
+ jp nc, .Dismantle ; should be jr
+ ldtx hl, ThereIsOnly1DeckSoCannotBeDismantledText
+ call DrawWideTextBox_WaitForInput
+ call EmptyScreen
+ ld hl, Data_9667
+ call Func_9a6d
+ ld a, [wced3]
+ ld [wNamingScreenCursorY], a
+ call Func_9b20
+ call PrintDeckBuildingCardList
+ call EnableLCD
+ ld a, [wced6]
+ ld [wNamingScreenCursorY], a
+ ret
+
+.Dismantle
+ call EnableSRAM
+ call GetPointerToDeckName
+ ld a, [hl]
+ or a
+ jr z, .done_dismantle
+ ld a, NAME_BUFFER_LENGTH
+ call ClearNBytesFromHL
+ call GetPointerToDeckCards
+ call Func_9152
+ ld a, DECK_SIZE
+ call ClearNBytesFromHL
+.done_dismantle
+ call DisableSRAM
+ add sp, $2
+ ret
+; 0x95b9
+
+ChangeDeckName: ; 95b9 (2:55b9)
+ call Func_8f05
+ add sp, $2
+ jp Func_9345.skip_count
+; 0x95c1
-; checks if selected deck has any basics
+Func_95c1: ; 95c1 (2:55c1)
+ ld a, [wcecc]
+ or a
+ jr z, .skip_size_check
+ cp DECK_SIZE
+ jr nz, .done
+.skip_size_check
+
+; copy the selected deck to wc590
+ call GetPointerToDeckCards
+ ld de, wc590
+ ld b, DECK_SIZE
+ call EnableSRAM
+ call CopyNBytesFromHLToDE
+ call DisableSRAM
+
+; loops through cards in wcf17
+; then if that card is found in wc590
+; overwrite it by $0
+ ld a, $ff
+ ld [wc5cc], a
+ ld de, wcf17
+.loop_outer
+ ld a, [de]
+ or a
+ jr z, .check_empty
+ ld b, a
+ inc de
+ ld hl, wc590
+.loop_inner
+ ld a, [hli]
+ cp $ff
+ jr z, .loop_outer
+ cp b
+ jr nz, .loop_inner
+ ; found
+ dec hl
+ xor a
+ ld [hli], a ; remove
+ jr .loop_outer
+
+.check_empty
+ ld hl, wc590
+.loop_check_empty
+ ld a, [hli]
+ cp $ff
+ jr z, .is_empty
+ or a
+ jr nz, .done
+ jr .loop_check_empty
+
+; wc590 is empty (all $0)
+.is_empty
+ call GetPointerToDeckName
+ ld de, wcfb9
+ call EnableSRAM
+.asm_9610
+ ld a, [de]
+ cp [hl]
+ jr nz, .done
+ inc de
+ inc hl
+ or a
+ jr nz, .asm_9610
+ call DisableSRAM
+ ret
+.done
+ call DisableSRAM
+ scf
+ ret
+; 0x9622
+
+Func_9622: ; 9622 (2:5622)
+ ld hl, wceb2
+ ld bc, $0
+.loop
+ inc b
+ ld a, $04
+ cp b
+ jr c, .asm_963a
+ ld a, [hli]
+ or a
+ jr z, .loop
+ inc c
+ ld a, $01
+ cp c
+ jr nc, .loop
+.no_carry
+ or a
+ ret
+.asm_963a
+ call GetPointerToDeckCards
+ call EnableSRAM
+ ld a, [hl]
+ call DisableSRAM
+ or a
+ jr z, .no_carry
+ scf
+ ret
+; 0x9649
+
+; checks if wcf17 has any basics
+; returns carry set if there is at least
+; 1 Basic Pokemon card
Func_9649: ; 9649 (2:5649)
ld hl, wcf17
-.asm_964c
+.loop_cards
ld a, [hli]
ld e, a
or a
- jr z, .asm_9665
+ jr z, .no_carry
call LoadCardDataToBuffer1_FromCardID
- jr c, .asm_9665
+ jr c, .no_carry
ld a, [wLoadedCard1Type]
- and $08
- jr nz, .asm_964c
+ and TYPE_ENERGY
+ jr nz, .loop_cards
ld a, [wLoadedCard1Stage]
or a
- jr nz, .asm_964c
+ jr nz, .loop_cards
+ ; is basic card
scf
ret
-.asm_9665
+.no_carry
or a
ret
; 0x9667
- INCROM $9667, $9843
+Data_9667: ; 9667 (2:5667)
+ db $01, $01, $00, $02, $09, $2f, $00, $00, $00
+
+Data_9670: ; 9670 (2:5670)
+ db $00, $07, $02, $00, $06, $0f, $00, $00, $00
+
+DeckConfigurationMenu_TransitionTable: ; 9679 (2:5679)
+ cursor_transition $10, $20, $00, $03, $03, $01, $02
+ cursor_transition $48, $20, $00, $04, $04, $02, $00
+ cursor_transition $80, $20, $00, $05, $05, $00, $01
+ cursor_transition $10, $30, $00, $00, $00, $04, $05
+ cursor_transition $48, $30, $00, $01, $01, $05, $03
+ cursor_transition $80, $30, $00, $02, $02, $03, $04
+
+; draws each card type icon in a line
+; the respective card counts underneath each icon
+; and prints"X/60" in the upper-right corner,
+; where X is the total card count
+DrawCardTypeIconsAndPrintCardCounts: ; 96a3 (2:56a3)
+ call Set_OBJ_8x8
+ call Func_8d78
+ lb bc, 0, 5
+ ld a, SYM_BOX_TOP
+ call FillBGMapLineWithA
+ call DrawCardTypeIcons
+ call PrintCardTypeCounts
+ lb de, 15, 0
+ call PrintTotalCardCount
+ lb de, 17, 0
+ call PrintSlashSixty
+ call EnableLCD
+ ret
+; 0x96c7
+
+; fills one line at coordinate bc in BG Map
+; with the byte in register a
+; fills the same line with $04 in VRAM1 if in CGB
+; bc = coordinates
+FillBGMapLineWithA: ; 96c7 (2:56c7)
+ call BCCoordToBGMap0Address
+ ld b, SCREEN_WIDTH
+ call FillDEWithA
+ ld a, [wConsole]
+ cp CONSOLE_CGB
+ ret nz ; return if not CGB
+ ld a, $04
+ ld b, SCREEN_WIDTH
+ call BankswitchVRAM1
+ call FillDEWithA
+ call BankswitchVRAM0
+ ret
+; 0x96e3
+
+; saves the count of each type of card that is in wcf17
+; stores these values in wcebb
+CountNumberOfCardsForEachCardType: ; 96e3 (2:56e3)
+ ld hl, wcebb
+ ld de, CardTypeFilters
+.loop
+ ld a, [de]
+ cp -1
+ ret z
+ inc de
+ call CountNumberOfCardsOfType
+ ld [hli], a
+ jr .loop
+; 0x96f4
+
+; fills de with b bytes of the value in register a
+FillDEWithA: ; 96f4 (2:56f4)
+ push hl
+ ld l, e
+ ld h, d
+.loop
+ ld [hli], a
+ dec b
+ jr nz, .loop
+ pop hl
+ ret
+; 0x96fd
+
+; draws all the card type icons
+; in a line specified by .CardTypeIcons
+DrawCardTypeIcons: ; 96fd (2:56fd)
+ ld hl, .CardTypeIcons
+.loop
+ ld a, [hli]
+ or a
+ ret z ; done
+ ld d, [hl] ; x coord
+ inc hl
+ ld e, [hl] ; y coord
+ inc hl
+ call .DrawIcon
+ jr .loop
+
+; input:
+; de = coordinates
+.DrawIcon
+ push hl
+ push af
+ lb hl, 1, 2
+ lb bc, 2, 2
+ call FillRectangle
+ pop af
+ call GetCardTypeIconPalette
+ ld b, a
+ ld a, [wConsole]
+ cp CONSOLE_CGB
+ jr nz, .not_cgb
+ ld a, b
+ lb bc, 2, 2
+ lb hl, 0, 0
+ call BankswitchVRAM1
+ call FillRectangle
+ call BankswitchVRAM0
+.not_cgb
+ pop hl
+ ret
+
+.CardTypeIcons
+; icon tile, x coord, y coord
+ db ICON_TILE_GRASS, 1, 2
+ db ICON_TILE_FIRE, 3, 2
+ db ICON_TILE_WATER, 5, 2
+ db ICON_TILE_LIGHTNING, 7, 2
+ db ICON_TILE_FIGHTING, 9, 2
+ db ICON_TILE_PSYCHIC, 11, 2
+ db ICON_TILE_COLORLESS, 13, 2
+ db ICON_TILE_TRAINER, 15, 2
+ db ICON_TILE_ENERGY, 17, 2
+ db $00
+; 0x9751
+
+DeckBuildMenuData: ; 9751 (1:5751)
+ ; x, y, text id
+ textitem 2, 2, ConfirmText
+ textitem 9, 2, ModifyText
+ textitem 16, 2, NameText
+ textitem 2, 4, SaveText
+ textitem 9, 4, DismantleText
+ textitem 16, 4, CancelText
+ db $ff
+
+; prints "/60" to the coordinates given in de
+PrintSlashSixty: ; 976a (2:576a)
+ ld hl, wDefaultText
+ ld a, TX_SYMBOL
+ ld [hli], a
+ ld a, SYM_SLASH
+ ld [hli], a
+ ld a, TX_SYMBOL
+ ld [hli], a
+ ld a, SYM_6
+ ld [hli], a
+ ld a, TX_SYMBOL
+ ld [hli], a
+ ld a, SYM_0
+ ld [hli], a
+ ld [hl], TX_END
+ call InitTextPrinting
+ ld hl, wDefaultText
+ call ProcessText
+ ret
+; 0x978b
+
+; creates two separate lists given the card type in register a
+; if a card matches the card type given, then it's added to wFilteredCardList
+; if a card has been owned by the player, and its card count is at least 1,
+; (or in case it's 0 if it's in any deck configurations saved)
+; then its collection count is also added to wOwnedCardsCountList
+; if input a is $ff, then all card types are included
+CreateFilteredCardList: ; 978b (2:578b)
+ push af
+ push bc
+ push de
+ push hl
+
+; clear wOwnedCardsCountList and wFilteredCardList
+ push af
+ ld a, DECK_SIZE
+ ld hl, wOwnedCardsCountList
+ call ClearNBytesFromHL
+ ld a, DECK_SIZE
+ ld hl, wFilteredCardList
+ call ClearNBytesFromHL
+ pop af
+
+; loops all cards in collection
+ ld hl, $0
+ ld de, $0
+ ld b, a ; input card type
+.loop_card_ids
+ inc e
+ call GetCardType
+ jr c, .add_terminator_byte
+ ld c, a
+ ld a, b
+ cp $ff
+ jr z, .add_card
+ and $20
+ cp $20
+ jr z, .check_energy
+ ld a, c
+ cp b
+ jr nz, .loop_card_ids
+ jr .add_card
+.check_energy
+ ld a, c
+ and TYPE_ENERGY
+ cp TYPE_ENERGY
+ jr nz, .loop_card_ids
+
+.add_card
+ push bc
+ push hl
+ ld bc, wFilteredCardList
+ add hl, bc
+ ld [hl], e
+ ld hl, wTempCardCollection
+ add hl, de
+ ld a, [hl]
+ pop hl
+ cp CARD_NOT_OWNED
+ jr z, .next_card ; jump if never seen card
+ or a
+ jr nz, .ok ; has at least 1
+ call IsCardInAnyDeck
+ jr c, .next_card ; jump if not in any deck
+.ok
+ push hl
+ ld bc, wOwnedCardsCountList
+ add hl, bc
+ ld [hl], a
+ pop hl
+ inc l
+.next_card
+ pop bc
+ jr .loop_card_ids
+
+.add_terminator_byte
+ ld a, l
+ ld [wceab + 3], a
+; add terminator bytes in both lists
+ xor a
+ ld c, l
+ ld b, h
+ ld hl, wFilteredCardList
+ add hl, bc
+ ld [hl], a ; $00
+ ld a, $ff
+ ld hl, wOwnedCardsCountList
+ add hl, bc
+ ld [hl], a ; $ff
+ pop hl
+ pop de
+ pop bc
+ pop af
+ ret
+; 0x9803
+
+; returns carry if card ID in register e is not
+; found in any of the decks saved in SRAM
+IsCardInAnyDeck: ; 9803 (2:5803)
+ push af
+ push hl
+ ld hl, sDeck1Cards
+ call .FindCardInDeck
+ jr nc, .found_card
+ ld hl, sDeck2Cards
+ call .FindCardInDeck
+ jr nc, .found_card
+ ld hl, sDeck3Cards
+ call .FindCardInDeck
+ jr nc, .found_card
+ ld hl, sDeck4Cards
+ call .FindCardInDeck
+ jr nc, .found_card
+ pop hl
+ pop af
+ scf
+ ret
+.found_card
+ pop hl
+ pop af
+ or a
+ ret
+
+; returns carry if input card ID in register e
+; is not found in deck given by hl
+.FindCardInDeck
+ call EnableSRAM
+ ld b, DECK_SIZE
+.loop
+ ld a, [hli]
+ cp e
+ jr z, .not_found
+ dec b
+ jr nz, .loop
+; not found
+ call DisableSRAM
+ scf
+ ret
+.not_found
+ call DisableSRAM
+ or a
+ ret
+; 0x9843
+
+; preserves all registers
+; hl = start of bytes to set to $0
+; a = number of bytes to set to $0
+ClearNBytesFromHL: ; 9843 (2:5843)
+ push af
+ push bc
+ push hl
+ ld b, a
+ xor a
+.loop
+ ld [hli], a
+ dec b
+ jr nz, .loop
+ pop hl
+ pop bc
+ pop af
+ ret
+; 0x9850
-Func_9843: ; 9843 (2:5843)
- INCROM $9843, $98a6
+; finds instance of e in list wcf17
+; returns the position in the list that it was found
+; if not found, returns last position + 1
+Func_9850: ; 9850 (2:5850)
+ push hl
+ ld hl, wcf17
+ ld d, $00
+.loop
+ ld a, [hli]
+ or a
+ jr z, .done
+ cp e
+ jr nz, .loop
+ inc d
+ jr .loop
+.done
+ ld a, d
+ pop hl
+ ret
+; 0x9863
+
+; returns total count of card ID e
+; looks it up in wFilteredCardList
+; then uses the index to retrieve the count
+; value from wOwnedCardsCountList
+GetOwnedCardCount: ; 9863 (2:5863)
+ push hl
+ ld hl, wFilteredCardList
+ ld d, -1
+.loop
+ inc d
+ ld a, [hli]
+ or a
+ jr z, .not_found
+ cp e
+ jr nz, .loop
+ ld hl, wOwnedCardsCountList
+ push de
+ ld e, d
+ ld d, $00
+ add hl, de
+ pop de
+ ld a, [hl]
+ pop hl
+ ret
+.not_found
+ xor a
+ pop hl
+ ret
+; 0x9880
+
+; appends text "X/Y", where X is the number of included cards
+; and Y is the total number of cards in storage of a given card ID
+; input:
+; e = card ID
+AppendOwnedCardCountAndStorageCountNumbers: ; 9880 (2:5880)
+ push af
+ push bc
+ push de
+ push hl
+; count how many bytes untill $00
+.loop
+ ld a, [hl]
+ or a
+ jr z, .print
+ inc hl
+ jr .loop
+.print
+ push de
+ call Func_9850
+ call ConvertToNumericalDigits
+ ld [hl], TX_SYMBOL
+ inc hl
+ ld [hl], SYM_SLASH
+ inc hl
+ pop de
+ call GetOwnedCardCount
+ call ConvertToNumericalDigits
+ ld [hl], TX_END
+ pop hl
+ pop de
+ pop bc
+ pop af
+ ret
+; 0x98a6
; determines the ones and tens digits in a for printing
; the ones place is added $20 (SYM_0) so that it maps to a numerical character
@@ -2709,16 +3668,1330 @@ CalculateOnesAndTensDigits: ; 98a6 (2:58a6)
pop af
ret
- INCROM $98c7, $9a6d
+; converts value in register a to
+; numerical symbols for ProcessText
+; places the symbols in hl
+ConvertToNumericalDigits: ; 98c7 (2:58c7)
+ call CalculateOnesAndTensDigits
+ push hl
+ ld hl, wOnesAndTensPlace
+ ld a, [hli]
+ ld b, a
+ ld a, [hl]
+ pop hl
+ ld [hl], TX_SYMBOL
+ inc hl
+ ld [hli], a
+ ld [hl], TX_SYMBOL
+ inc hl
+ ld a, b
+ ld [hli], a
+ ret
+; 0x98dc
+
+; counts the number of cards in wcf17
+; that are the same type as input in register a
+; if input is $20, counts all energy cards instead
+; input:
+; - a = card type
+; output:
+; - a = number of cards of same type
+CountNumberOfCardsOfType: ; 98dc (2:58dc)
+ push de
+ push hl
+ ld hl, $0
+ ld b, a
+ ld c, 0
+.loop_cards
+ push hl
+ push bc
+ ld bc, wcf17
+ add hl, bc
+ ld a, [hl]
+ pop bc
+ pop hl
+ inc l
+ or a
+ jr z, .done ; end of card list
+
+; get card type and compare it with input type
+; if input is $20, run a separate comparison
+; if it's the same type, increase the count
+ ld e, a
+ call GetCardType
+ jr c, .done
+ push hl
+ ld l, a
+ ld a, b
+ and $20
+ cp $20
+ jr z, .check_energy
+ ld a, l
+ pop hl
+ cp b
+ jr nz, .loop_cards
+ jr .incr_count
+
+; counts all energy cards as the same
+.check_energy
+ ld a, l
+ pop hl
+ and TYPE_ENERGY
+ cp TYPE_ENERGY
+ jr nz, .loop_cards
+.incr_count
+ inc c
+ jr .loop_cards
+.done
+ ld a, c
+ pop hl
+ pop de
+ ret
+; 0x9916
+
+; prints the card count of each individual card type
+; assumes CountNumberOfCardsForEachCardType was already called
+; this is done by processing text in a single line
+; and concatenating all digits
+PrintCardTypeCounts: ; 9916 (2:5916)
+ ld bc, $0
+ ld hl, wDefaultText
+.loop
+ push hl
+ ld hl, wcebb
+ add hl, bc
+ ld a, [hl]
+ pop hl
+ push bc
+ call ConvertToNumericalDigits
+ pop bc
+ inc c
+ ld a, $9
+ cp c
+ jr nz, .loop
+ ld [hl], TX_END
+ lb de, 1, 4
+ call InitTextPrinting
+ ld hl, wDefaultText
+ call ProcessText
+ ret
+; 0x993d
+
+Func_993d: ; 993d (2:593d)
+ push af
+ ld hl, CardTypeFilters
+ ld b, $00
+ ld c, a
+ add hl, bc
+ ld a, [hl]
+ push af
+
+; copy sCardCollection to wTempCardCollection
+ call EnableSRAM
+ ld hl, sCardCollection
+ ld de, wTempCardCollection
+ ld b, $ff
+ call CopyNBytesFromHLToDE
+ call DisableSRAM
+
+ ld a, [wcfd1 + 2]
+ or a
+ jr z, .ok
+ call GetPointerToDeckCards
+ ld d, h
+ ld e, l
+ call GetDeckCardCounts
+.ok
+ pop af
+ call CreateFilteredCardList
+ ld a, $06
+ ld [wcecb], a
+ lb de, 1 ,7
+ ld hl, wced0
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call PrintDeckBuildingCardList
+ pop af
+ ret
+; 0x997d
+
+; used to filter the cards in the deck building/card selection screen
+CardTypeFilters: ; 997d (2:597d)
+ db TYPE_PKMN_GRASS
+ db TYPE_PKMN_FIRE
+ db TYPE_PKMN_WATER
+ db TYPE_PKMN_LIGHTNING
+ db TYPE_PKMN_FIGHTING
+ db TYPE_PKMN_PSYCHIC
+ db TYPE_PKMN_COLORLESS
+ db TYPE_TRAINER
+ db $20
+ db -1 ; end of list
+; 0x9987
+
+; counts all the cards from each card type
+; (stored in wcebb) and store it in wcecc
+; also prints it in coordinates de
+PrintTotalCardCount: ; 9987 (2:5987)
+ push de
+ ld bc, $0
+ ld hl, wcebb
+.loop
+ ld a, [hli]
+ add b
+ ld b, a
+ inc c
+ ld a, $9
+ cp c
+ jr nz, .loop
+ ld hl, wDefaultText
+ ld a, b
+ ld [wcecc], a
+ push bc
+ call ConvertToNumericalDigits
+ pop bc
+ ld [hl], TX_END
+ pop de
+ call InitTextPrinting
+ ld hl, wDefaultText
+ call ProcessText
+ ret
+; 0x99b0
+
+; prints the name, level and storage count of the cards
+; that are visible in the list window
+; in the form:
+; CARD NAME/LEVEL X/Y
+; where X is the current count of that card
+; and Y is the storage count of that card
+PrintDeckBuildingCardList: ; 99b0 (2:59b0)
+ push bc
+ ld hl, wced0
+ ld e, [hl]
+ inc hl
+ ld d, [hl]
+ ld b, 19 ; x coord
+ ld c, e
+ dec c
+ ld a, [wcea1]
+ or a
+ jr z, .no_cursor
+ ld a, SYM_CURSOR_U
+ jr .got_cursor_tile
+.no_cursor
+ ld a, SYM_SPACE
+.got_cursor_tile
+ call WriteByteToBGMap0
+
+; iterates by decreasing value in wcecb
+; by 1 until it reaches 0
+ ld a, [wcea1]
+ ld c, a
+ ld b, $0
+ ld hl, wFilteredCardList
+ add hl, bc
+ ld a, [wcecb]
+.loop_filtered_cards
+ push de
+ or a
+ jr z, .exit_loop
+ ld b, a
+ ld a, [hli]
+ or a
+ jr z, .invalid_card ; card ID of 0
+ ld e, a
+ call Func_9a59
+ call LoadCardDataToBuffer1_FromCardID
+ ld a, 13
+ push bc
+ push hl
+ push de
+ call CopyCardNameAndLevel
+ pop de
+ call AppendOwnedCardCountAndStorageCountNumbers
+ pop hl
+ pop bc
+ pop de
+ push hl
+ call InitTextPrinting
+ ld hl, wDefaultText
+ jr .process_text
+
+.invalid_card
+ pop de
+ push hl
+ call InitTextPrinting
+ ld hl, Text_9a30
+.process_text
+ call ProcessText
+ pop hl
+
+ ld a, b
+ dec a
+ inc e
+ inc e
+ jr .loop_filtered_cards
+
+.exit_loop
+ ld a, [hli]
+ or a
+ jr z, .cannot_scroll
+ pop de
+; draw down cursor because
+; there are still more cards
+; to be scrolled down
+ xor a
+ ld [wcecd], a
+ ld a, SYM_CURSOR_D
+ jr .draw_cursor
+.cannot_scroll
+ pop de
+ ld a, $01
+ ld [wcecd], a
+ ld a, SYM_SPACE
+.draw_cursor
+ ld b, 19 ; x coord
+ ld c, e
+ dec c
+ dec c
+ call WriteByteToBGMap0
+ pop bc
+ ret
+
+Text_9a30:
+ db TX_SYMBOL, TX_END
+
+Text_9a32:
+ db TX_SYMBOL, TX_END
+
+Text_9a34:
+ db TX_SYMBOL, TX_END
+
+Text_9a36:
+ db TX_SYMBOL, TX_END
+
+Text_9a38:
+ db TX_SYMBOL, TX_END
+
+Text_9a3a:
+ db TX_SYMBOL, TX_END
+
+Text_9a3c:
+ db TX_SYMBOL, TX_END
+
+Text_9a3e:
+ db TX_SYMBOL, TX_END
+
+Text_9a40:
+ db TX_SYMBOL, TX_END
+
+Text_9a42:
+ db TX_SYMBOL, TX_END
+
+Text_9a44:
+ db TX_SYMBOL, TX_END
+
+Text_9a46:
+ db TX_SYMBOL, TX_END
+
+Text_9a48:
+ db TX_SYMBOL, TX_END
+
+Text_9a4a:
+ db TX_SYMBOL, TX_END
+
+Text_9a4c:
+ db TX_SYMBOL, TX_END
+
+Text_9a4e:
+ db TX_SYMBOL, TX_END
+
+Text_9a50:
+ db TX_SYMBOL, TX_END
+
+Text_9a52:
+ db TX_SYMBOL, TX_END
+
+Text_9a54:
+ db TX_SYMBOL, TX_END
+
+Text_9a56:
+ db TX_SYMBOL, TX_END
+Text_9a58:
+ db TX_END
+
+; input:
+; b = ?
+; e = card ID
+Func_9a59: ; 9a59 (2:5a59)
+ push af
+ push bc
+ push hl
+ ld hl, wcec4
+ ld c, b
+ ld a, [wcecb]
+ sub c
+ ld c, a
+ ld b, $00
+ add hl, bc ; = wcec4 + (wcecb - b)
+ ld [hl], e
+ pop hl
+ pop bc
+ pop af
+ ret
+; 0x9a6d
+
+; copies 9 bytes from hl to wcea5
Func_9a6d: ; 9a6d (2:5a6d)
- INCROM $9a6d, $9e41
+ ld [wNamingScreenCursorY], a
+ ld [hffb3], a
+ ld de, wcea5
+ ld b, $9
+.loop
+ ld a, [hli]
+ ld [de], a
+ inc de
+ dec b
+ jr nz, .loop
+ xor a
+ ld [wCheckMenuCursorBlinkCounter], a
+ ret
+; 0x9a83
+
+Func_9a83: ; 9a83 (2:5a83)
+ INCROM $9a83, $9ad7
+
+Func_9ad7: ; 9ad7 (2:5ad7)
+ call Func_9b20
+ ld a, $01
+ call PlaySFXConfirmOrCancel
+ ld a, [wNamingScreenCursorY]
+ ld e, a
+ ld a, [hffb3]
+ scf
+ ret
+; 0x9ae8
+
+ INCROM $9ae8, $9b03
+
+Func_9b03: ; 9b03 (2:5b03)
+ ld e, a
+ ld a, [wcea5 + 3]
+ ld l, a
+ ld a, [wNamingScreenCursorY]
+ ld h, a
+ call HtimesL
+ ld a, l
+ ld hl, wcea5
+ add [hl]
+ ld b, a
+ ld hl, wcea5 + 1
+ ld a, [hl]
+ ld c, a
+ ld a, e
+ call WriteByteToBGMap0
+ or a
+ ret
+; 0x9b20
+
+Func_9b20: ; 9b20 (2:5b20)
+ ld a, [wceaa]
+ jr Func_9b03
+; 0x9b25
+
+Func_9b25: ; 9b25 (2:5b25)
+ INCROM $9b25, $9c0e
+
+Func_9c0e: ; 9c0e (2:5c0e)
+ INCROM $9c0e, $9c11
+
+; a = tile to write
+Func_9c11: ; 9c11 (2:5c11)
+ ld e, a
+ ld a, [wcea5 + 3]
+ ld l, a
+ ld a, [wNamingScreenCursorY]
+ ld h, a
+ call HtimesL
+ ld a, l
+ ld hl, wcea5
+ add [hl]
+ ld b, a
+ ld a, [wcea5 + 2]
+ ld l, a
+ ld a, [wNamingScreenCursorY]
+ ld h, a
+ call HtimesL
+ ld a, l
+ ld hl, wcea5 + 1
+ add [hl]
+ ld c, a
+ ld a, e
+ call WriteByteToBGMap0
+ or a
+ ret
+; 0x9c3a
+
+Func_9c3a: ; 9c3a (2:5c3a)
+ ld a, [wceaa]
+ jr Func_9c11
+; 0x9c3f
+
+Func_9c3f: ; 9c3f (2:5c3f)
+ INCROM $9c3f, $9e31
+
+Func_9e31: ; 9e31 (2:5e31)
+ ld hl, hffb0
+ ld [hl], $01
+ call Func_9fc0
+ ld hl, hffb0
+ ld [hl], $00
+ jp PrintConfirmationCardList
+; 0x9e41
Func_9e41: ; 9e41 (2:5e41)
- INCROM $9e41, $a288
+ ld a, [wcecc]
+ or a
+ jp z, Func_9f40
+ call Func_a028
+ call Func_a06e
+
+ xor a
+ ld [wcea1], a
+.asm_9e52
+ ld hl, Data_9eaf
+ call Func_9a6d
+ ld a, [wced9]
+ ld [wcfe4+ 2], a
+ cp $07
+ jr c, .asm_9e64
+ ld a, $07
+.asm_9e64
+ ld [wNamingScreenKeyboardHeight], a
+ ld [wcecb], a
+ call Func_9f52
+ ld hl, Func_9e31
+ ld d, h
+ ld a, l
+ ld hl, wcece
+ ld [hli], a
+ ld [hl], d
+ xor a
+ ld [wced2], a
+.asm_9e7b
+ call DoFrame
+ call Func_9b25
+ jr c, .asm_9ea7
+ call Func_9eb8
+ jr c, .asm_9e7b
+ ldh a, [hDPadHeld]
+ and START
+ jr z, .asm_9e7b
+
+.asm_9e8e
+ ld a, $01
+ call PlaySFXConfirmOrCancel
+ ld a, [wNamingScreenCursorY]
+ ld [wced7], a
+ ld de, wOwnedCardsCountList
+ ld hl, wcfd8
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call Func_9c3f
+ jr .asm_9e52
+
+.asm_9ea7
+ ld a, [hffb3]
+ cp $ff
+ ret z
+ jr .asm_9e8e
+; 0x9eaf
+
+Data_9eaf:
+ db $00, $05, $02, $00, $07, $0f, $00, $00, $00
+
+Func_9eb8: ; 9eb8 (2:5eb8)
+ ld a, [wNamingScreenKeyboardHeight]
+ ld d, a
+ ld a, [wcea1]
+ ld c, a
+ ldh a, [hDPadHeld]
+ cp D_RIGHT
+ jr z, .right
+ cp D_LEFT
+ jr z, .left
+ or a
+ ret
+
+.right
+ ld a, [wcea1]
+ add d
+ ld b, a
+ add d
+ ld hl, wcfe4 + 2
+ cp [hl]
+ jr c, .asm_9ee8
+ ld a, [wcfe4 + 2]
+ sub d
+ ld b, a
+ jr .asm_9ee8
+
+.left
+ ld a, [wcea1]
+ sub d
+ ld b, a
+ jr nc, .asm_9ee8
+ ld b, $00
+.asm_9ee8
+ ld a, b
+ ld [wcea1], a
+ cp c
+ jr z, .asm_9efa
+ ld a, SFX_01
+ call PlaySFX
+ ld hl, wcece
+ call CallIndirect
+.asm_9efa
+ scf
+ ret
+; 0x9efc
+
+Func_9efc: ; 9efc (2:5efc)
+ INCROM $9efc, $9f40
+
+Func_9f40: ; 9f40 (2:5f40)
+ call Func_9f81
+.wait_input
+ call DoFrame
+ ldh a, [hKeysPressed]
+ and B_BUTTON
+ jr z, .wait_input
+ ld a, $ff
+ call PlaySFXConfirmOrCancel
+ ret
+; 0x9f52
+
+Func_9f52: ; 9f52 (2:5f52)
+ call Func_9f81
+ lb de, 3, 5
+ ld hl, wced0
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call PrintConfirmationCardList
+ ret
+; 0x9f62
+
+; counts all values stored in wcebb
+; if the total count is 0, then
+; prints "No cards chosen."
+Func_9f62: ; 9f62 (2:5f62)
+ lb bc, 0, 0
+ ld hl, wcebb
+.loop
+ ld a, [hli]
+ add b
+ ld b, a
+ inc c
+ ld a, $9
+ cp c
+ jr nz, .loop
+ ld a, b
+ or a
+ ret nz
+ lb de, 11, 1
+ call InitTextPrinting
+ ldtx hl, NoCardsChosenText
+ call ProcessTextFromID
+ ret
+; 0x9f81
+
+Func_9f81: ; 9f81 (2:5f81)
+ call Func_8d56
+ lb de, 0, 0
+ lb bc, 20, 4
+ call DrawRegularTextBox
+ ld a, [wcfb9]
+ or a
+ jp z, .print_card_count ; should be jr
+ call Func_9fc0
+ ld a, [wceb1]
+ ld b, a
+ call EnableSRAM
+ ld a, [sCurrentlySelectedDeck]
+ call DisableSRAM
+ cp b
+ jr nz, .print_card_count
+ lb de, 2, 1
+ call DrawHandCardsTileAtDE
+
+.print_card_count
+ lb de, 14, 1
+ call PrintTotalCardCount
+ lb de, 16, 1
+ call PrintSlashSixty
+ call Func_9f62
+ call EnableLCD
+ ret
+; 0x9fc0
+
+Func_9fc0: ; 9fc0 (2:5fc0)
+ ld a, [wceb1]
+ cp $ff
+ jr z, .asm_9fea
+ lb de, 3, 2
+ call InitTextPrinting
+ ld a, [wceb1]
+ bit 7, a
+ jr z, .asm_9fd8
+ and $7f
+ jr .asm_9fd9
+.asm_9fd8
+ inc a
+.asm_9fd9
+ ld hl, wDefaultText
+ call ConvertToNumericalDigits
+ ld [hl], $77
+ inc hl
+ ld [hl], TX_END
+ ld hl, wDefaultText
+ call ProcessText
+
+.asm_9fea
+ ld hl, wcfb9
+ ld de, wDefaultText
+ call CopyListFromHLToDE
+ ld a, [wceb1]
+ cp $ff
+ jr z, .asm_a01b
+ ld hl, wDefaultText
+ call GetTextLengthInTiles
+ ld b, $0
+ ld hl, wDefaultText
+ add hl, bc
+ ld d, h
+ ld e, l
+ ld hl, Data_92a7
+ call CopyListFromHLToDE
+ lb de, 6, 2
+ ld hl, wDefaultText
+ call InitTextPrinting
+ call ProcessText
+ ret
+
+.asm_a01b
+ lb de, 2, 2
+ ld hl, wDefaultText
+ call InitTextPrinting
+ call ProcessText
+ ret
+; 0xa028
+
+Func_a028: ; a028 (2:6028)
+ ld hl, wcf17
+ ld de, wOpponentDeck
+ ld bc, wDuelTempList
+ ld a, -1
+ ld [bc], a
+.loop_copy
+ inc a
+ push af
+ ld a, [hli]
+ ld [de], a
+ inc de
+ or a
+ jr z, .sort_cards
+ pop af
+ ld [bc], a
+ inc bc
+ jr .loop_copy
+
+.sort_cards
+ pop af
+ ld a, $ff
+ ld [bc], a
+ ldh a, [hWhoseTurn]
+ push af
+ ld a, OPPONENT_TURN
+ ldh [hWhoseTurn], a
+ call SortCardsInDuelTempListByID
+ pop af
+ ldh [hWhoseTurn], a
+
+ ld hl, wcf17
+ ld de, wDuelTempList
+.asm_a058
+ ld a, [de]
+ cp $ff
+ jr z, .done
+ ld c, a
+ ld b, $0
+ push hl
+ ld hl, wOpponentDeck
+ add hl, bc
+ ld a, [hl]
+ pop hl
+ ld [hli], a
+ inc de
+ jr .asm_a058
+
+.done
+ xor a
+ ld [hl], a
+ ret
+; 0xa06e
+
+; goes through list in wcf17, and for each card in it
+; creates list in wTempHandCardList of all unique cards
+; it finds (assuming wcf17 is sorted by ID)
+; also counts the number of the different cards
+Func_a06e: ; a06e (2:606e)
+ ld b, 0
+ ld c, $0
+ ld hl, wcf17
+ ld de, wTempHandCardList
+.loop
+ ld a, [hli]
+ cp c
+ jr z, .loop
+ ld c, a
+ ld [de], a
+ inc de
+ or a
+ jr z, .done
+ inc b
+ jr .loop
+.done
+ ld a, b
+ ld [wced9], a
+ ret
+; 0xa08a
+
+; prints the list of cards visible in the window
+; of the confirmation screen
+; card info is presented with name, level and
+; its count preceded by "x"
+PrintConfirmationCardList: ; a08a (2:608a)
+ push bc
+ ld hl, wced0
+ ld e, [hl]
+ inc hl
+ ld d, [hl]
+ ld b, 19 ; x coord
+ ld c, e
+ dec c
+ ld a, [wcea1]
+ or a
+ jr z, .no_cursor
+ ld a, SYM_CURSOR_U
+ jr .got_cursor_tile_1
+.no_cursor
+ ld a, SYM_SPACE
+.got_cursor_tile_1
+ call WriteByteToBGMap0
+
+; iterates by decreasing value in wcecb
+; by 1 until it reaches 0
+ ld a, [wcea1]
+ ld c, a
+ ld b, $0
+ ld hl, wTempHandCardList
+ add hl, bc
+ ld a, [wcecb]
+.loop_cards
+ push de
+ or a
+ jr z, .exit_loop
+ ld b, a
+ ld a, [hli]
+ or a
+ jr z, .no_more_cards
+ ld e, a
+ call Func_9a59
+ call LoadCardDataToBuffer1_FromCardID
+ ; places in wDefaultText the card's name and level
+ ; then appends at the end "x" with the count of that card
+ ; draws the card's type icon as well
+ ld a, 13
+ push bc
+ push hl
+ push de
+ call CopyCardNameAndLevel
+ pop de
+ call .PrintCardCount
+ pop hl
+ pop bc
+ pop de
+ call .DrawCardTypeIcon
+ push hl
+ call InitTextPrinting
+ ld hl, wDefaultText
+ call ProcessText
+ pop hl
+ ld a, b
+ dec a
+ inc e
+ inc e
+ jr .loop_cards
+
+.exit_loop
+ ld a, [hli]
+ or a
+ jr z, .no_more_cards
+ pop de
+ xor a
+ ld [wcecd], a
+ ld a, SYM_CURSOR_D
+ jr .got_cursor_tile_2
+
+.no_more_cards
+ pop de
+ ld a, $01
+ ld [wcecd], a
+ ld a, SYM_SPACE
+.got_cursor_tile_2
+ ld b, 19 ; x coord
+ ld c, e
+ dec c
+ dec c
+ call WriteByteToBGMap0
+ pop bc
+ ret
+
+; prints the card count preceded by a cross
+; for example "x42"
+.PrintCardCount
+ push af
+ push bc
+ push de
+ push hl
+.loop_search
+ ld a, [hl]
+ or a
+ jr z, .found_card_id
+ inc hl
+ jr .loop_search
+.found_card_id
+ call Func_9850
+ ld [hl], TX_SYMBOL
+ inc hl
+ ld [hl], SYM_CROSS
+ inc hl
+ call ConvertToNumericalDigits
+ ld [hl], TX_END
+ pop hl
+ pop de
+ pop bc
+ pop af
+ ret
+
+; draws the icon corresponding to the loaded card's type
+; can be any of Pokemon stages (basic, 1st and 2nd stage)
+; Energy or Trainer
+; draws it 2 tiles to the left and 1 up to
+; the current coordinate in de
+.DrawCardTypeIcon
+ push hl
+ push de
+ push bc
+ ld a, [wLoadedCard1Type]
+ cp TYPE_ENERGY
+ jr nc, .not_pkmn_card
+
+; pokemon card
+ ld a, [wLoadedCard1Stage]
+ ld b, a
+ add b
+ add b
+ add b ; *4
+ add ICON_TILE_BASIC_POKEMON
+ jr .got_tile
+
+.not_pkmn_card
+ cp TYPE_TRAINER
+ jr nc, .trainer_card
+
+; energy card
+ sub TYPE_ENERGY
+ ld b, a
+ add b
+ add b
+ add b ; *4
+ add ICON_TILE_FIRE
+ jr .got_tile
+
+.trainer_card
+ ld a, ICON_TILE_TRAINER
+.got_tile
+ dec d
+ dec d
+ dec e
+ push af
+ lb hl, 1, 2
+ lb bc, 2, 2
+ call FillRectangle
+ pop af
+
+ call GetCardTypeIconPalette
+ ld b, a
+ ld a, [wConsole]
+ cp CONSOLE_CGB
+ jr nz, .skip_pal
+ ld a, b
+ lb bc, 2, 2
+ lb hl, 0, 0
+ call BankswitchVRAM1
+ call FillRectangle
+ call BankswitchVRAM0
+.skip_pal
+ pop bc
+ pop de
+ pop hl
+ ret
+; 0xa173
+
+; returns in a the BG Pal corresponding to the
+; card type icon in input register a
+; if not found, returns $00
+GetCardTypeIconPalette: ; a173 (2:6173)
+ push bc
+ push hl
+ ld b, a
+ ld hl, .CardTypeIconPalettes
+.loop
+ ld a, [hli]
+ or a
+ jr z, .done
+ cp b
+ jr z, .done
+ inc hl
+ jp .loop ; should be jr
+.done
+ ld a, [hl]
+ pop hl
+ pop bc
+ ret
+
+.CardTypeIconPalettes
+; icon tile, BG pal
+ db ICON_TILE_FIRE, 1
+ db ICON_TILE_GRASS, 2
+ db ICON_TILE_LIGHTNING, 1
+ db ICON_TILE_WATER, 2
+ db ICON_TILE_FIGHTING, 3
+ db ICON_TILE_PSYCHIC, 3
+ db ICON_TILE_COLORLESS, 0
+ db ICON_TILE_ENERGY, 2
+ db ICON_TILE_BASIC_POKEMON, 2
+ db ICON_TILE_STAGE_1_POKEMON, 2
+ db ICON_TILE_STAGE_2_POKEMON, 1
+ db ICON_TILE_TRAINER, 2
+ db $00, $ff
+; 0xa1a2
+
+Func_a1a2: ; a1a2 (2:61a2)
+ ld hl, wcf17
+ ld a, DECK_SIZE + $15
+ call ClearNBytesFromHL
+ ld a, $ff
+ ld [wceb1], a
+ ld hl, .text
+ ld de, wcfb9
+ call CopyListFromHLToDE
+ ld hl, .unknown_a1d8
+ call Func_8d9d
+ call Func_9345
+ ret
+
+.text
+ text "Cards chosen to send"
+ db TX_END
+
+.unknown_a1d8
+ db $3c, $3c, $00
+ dw HandleSendDeckConfigurationMenu
+ dw SendDeckConfigurationMenu_TransitionTable
+; 0xa1df
+
+SendDeckConfigurationMenu_TransitionTable: ; a1df (2:61df)
+ cursor_transition $10, $20, $00, $00, $00, $01, $02
+ cursor_transition $48, $20, $00, $01, $01, $02, $00
+ cursor_transition $80, $20, $00, $02, $02, $00, $01
+
+SendDeckConfigurationMenuData: ; a1f4 (2:61f4)
+ textitem 2, 2, ConfirmText
+ textitem 9, 2, SendText
+ textitem 16, 2, CancelText
+ db $ff
+
+HandleSendDeckConfigurationMenu: ; a201 (2:6201)
+ ld de, $0
+ lb bc, 20, 6
+ call DrawRegularTextBox
+ ld hl, SendDeckConfigurationMenuData
+ call PlaceTextItems
+ ld a, $ff
+ ld [wDuelInitialPrizesUpperBitsSet], a
+.loop_input
+ ld a, $01
+ ld [wVBlankOAMCopyToggle], a
+ call DoFrame
+ call Func_89ae
+ jr nc, .loop_input
+ ld [wced6], a
+ cp $ff
+ jr nz, .asm_a23b
+ call DrawCardTypeIconsAndPrintCardCounts
+ ld a, [wced4]
+ ld [wNamingScreenCursorY], a
+ ld a, [wced3]
+ call Func_993d
+ jp Func_9345.skip_draw
+.asm_a23b
+ ld hl, .func_table
+ call JumpToFunctionInTable
+ jp Func_9461.asm_9475
+
+.func_table
+ dw ConfirmDeckConfiguration ; Confirm
+ dw SendDeckConfiguration ; Send
+ dw CancelSendDeckConfiguration ; Cancel
+; 0xa24a
+
+SendDeckConfiguration: ; a24a (2:624a)
+ ld a, [wcf17]
+ or a
+ jr z, CancelSendDeckConfiguration
+ xor a
+ ld [wcea1], a
+ ld hl, Data_b04a
+ call Func_9a6d
+ ld hl, wcf17
+ ld de, wDuelTempList
+ call CopyListFromHLToDE
+ call Func_b131
+ call Func_b088
+ call EnableLCD
+ ldtx hl, SendTheseCardsText
+ call YesOrNoMenuWithText
+ jr nc, .asm_a279
+ add sp, $2
+ jp Func_9345.skip_count
+.asm_a279
+ add sp, $2
+ scf
+ ret
+
+CancelSendDeckConfiguration: ; a27d (2:627d)
+ add sp, $2
+ or a
+ ret
+; 0xa281
+
+; copies b bytes from hl to de
+CopyNBytesFromHLToDE: ; a281 (2:6281)
+ ld a, [hli]
+ ld [de], a
+ inc de
+ dec b
+ jr nz, CopyNBytesFromHLToDE
+ ret
+; 0xa288
Func_a288: ; a288 (2:6288)
- INCROM $a288, $a913
+ INCROM $a288, $a3ca
+
+Func_a3ca: ; a3ca (2:63ca)
+ ld [hffb5], a
+ ld hl, sCardCollection
+ ld de, wTempCardCollection
+ ld b, $ff
+ call EnableSRAM
+ call CopyNBytesFromHLToDE
+ call DisableSRAM
+; deck_1
+ ld a, [hffb5] ; should be ldh
+ bit 0, a
+ jr z, .deck_2
+ ld de, sDeck1Cards
+ call GetDeckCardCounts
+.deck_2
+ ld a, [hffb5] ; should be ldh
+ bit 1, a
+ jr z, .deck_3
+ ld de, sDeck2Cards
+ call GetDeckCardCounts
+.deck_3
+ ld a, [hffb5] ; should be ldh
+ bit 2, a
+ jr z, .deck_4
+ ld de, sDeck3Cards
+ call GetDeckCardCounts
+.deck_4
+ ld a, [hffb5] ; should be ldh
+ bit 3, a
+ ret z
+ ld de, sDeck4Cards
+ call GetDeckCardCounts
+ ret
+; 0xa412
+
+; goes through deck cards in de
+; and gets the count of each card ID
+; in wTempCardCollection in card collection order
+GetDeckCardCounts: ; a412 (2:6412)
+ call EnableSRAM
+ ld bc, wTempCardCollection
+ ld h, DECK_SIZE
+.loop
+ ld a, [de]
+ inc de
+ or a
+ jr z, .done
+ push hl
+ ld h, $0
+ ld l, a
+ add hl, bc
+ inc [hl]
+ pop hl
+ dec h
+ jr nz, .loop
+.done
+ call DisableSRAM
+ ret
+; 0xa42d
+
+; prints the name, level and storage count of the cards
+; that are visible in the list window
+; in the form:
+; CARD NAME/LEVEL X
+; where X is the current count of that card
+PrintCardSelectionList: ; a42d (2:642d)
+ push bc
+ ld hl, wced0
+ ld e, [hl]
+ inc hl
+ ld d, [hl]
+ ld b, 19 ; x coord
+ ld c, e
+ ld a, [wcea1]
+ or a
+ jr z, .alternate_cursor_tile
+ ld a, SYM_CURSOR_U
+ jr .got_cursor_tile_1
+.alternate_cursor_tile
+ ld a, [wCursorAlternateTile]
+.got_cursor_tile_1
+ call WriteByteToBGMap0
+
+; iterates by decreasing value in wcecb
+; by 1 until it reaches 0
+ ld a, [wcea1]
+ ld c, a
+ ld b, $0
+ ld hl, wFilteredCardList
+ add hl, bc
+ ld a, [wcecb]
+.loop_filtered_cards
+ push de
+ or a
+ jr z, .exit_loop
+ ld b, a
+ ld a, [hli]
+ or a
+ jr z, .invalid_card ; card ID of 0
+ ld e, a
+ call Func_9a59
+ call LoadCardDataToBuffer1_FromCardID
+ ; places in wDefaultText the card's name and level
+ ; then appends at the end the count of that card
+ ; in the card storage
+ ld a, 14
+ push bc
+ push hl
+ push de
+ call CopyCardNameAndLevel
+ pop de
+ call AppendOwnedCardCountNumber
+ pop hl
+ pop bc
+ pop de
+ push hl
+ call InitTextPrinting
+ ld hl, wDefaultText
+ jr .process_text
+.invalid_card
+ pop de
+ push hl
+ call InitTextPrinting
+ ld hl, Text_9a36
+.process_text
+ call ProcessText
+ pop hl
+
+ ld a, b
+ dec a
+ inc e
+ inc e
+ jr .loop_filtered_cards
+
+.exit_loop
+ ld a, [hli]
+ or a
+ jr z, .cannot_scroll
+ pop de
+; draw down cursor because
+; there are still more cards
+; to be scrolled down
+ xor a
+ ld [wcecd], a
+ ld a, SYM_CURSOR_D
+ jr .got_cursor_tile_2
+.cannot_scroll
+ pop de
+ ld a, $01
+ ld [wcecd], a
+ ld a, [wCursorAlternateTile]
+.got_cursor_tile_2
+ ld b, 19 ; x coord
+ ld c, e
+ dec c
+ dec c
+ call WriteByteToBGMap0
+ pop bc
+ ret
+; 0xa4ae
+
+; appends the card count given in register e
+; to the list in hl, in numerical form
+; (i.e. its numeric symbol representation)
+AppendOwnedCardCountNumber: ; a4ae (2:64ae)
+ push af
+ push bc
+ push de
+ push hl
+; increment hl until end is reached ($00 byte)
+.loop
+ ld a, [hl]
+ or a
+ jr z, .end
+ inc hl
+ jr .loop
+.end
+ call GetOwnedCardCount
+ call ConvertToNumericalDigits
+ ld [hl], $00 ; insert byte terminator
+ pop hl
+ pop de
+ pop bc
+ pop af
+ ret
+; 0xa4c6
+
+ INCROM $a4c6, $a913
Func_a913: ; a913 (2:6913)
INCROM $a913, $ad51
@@ -2727,15 +5000,347 @@ Func_ad51: ; ad51 (2:6d51)
INCROM $ad51, $adfe
Func_adfe: ; adfe (2:6dfe)
- INCROM $adfe, $b177
+ INCROM $adfe, $af1d
+
+Func_af1d: ; af1d (2:6f1d)
+ xor a
+ ld [wTileMapFill], a
+ call ZeroObjectPositions
+ call EmptyScreen
+ ld a, $1
+ ld [wVBlankOAMCopyToggle], a
+ call LoadSymbolsFont
+ bank1call SetDefaultPalettes
+
+ lb de, $3c, $bf
+ call SetupText
+ lb de, 3, 1
+ call InitTextPrinting
+ ldtx hl, ProceduresForSendingCardsText
+ call ProcessTextFromID
+ lb de, 1, 3
+ call InitTextPrinting
+ ldtx hl, CardSendingProceduresText
+ ld a, $01
+ ld [wLineSeparation], a
+ call ProcessTextFromID
+ xor a
+ ld [wLineSeparation], a
+ ldtx hl, PleaseReadTheProceduresForSendingCardsText
+ call DrawWideTextBox_WaitForInput
+
+ call EnableLCD
+ call Func_a1a2
+ jr c, .asm_af6b
+ ld a, $01
+ or a
+ ret
+
+.asm_af6b
+ ld hl, wcf17
+ ld de, wDuelTempList
+ call CopyListFromHLToDE
+ xor a
+ ld [wNameBuffer], a
+ bank1call Func_756c
+ ret c
+ call EnableSRAM
+ ld hl, wcf17
+ call Func_910a
+ call DisableSRAM
+ call SaveGame
+ ld hl, wNameBuffer
+ ld de, wDefaultText
+ call CopyListFromHLToDE
+ xor a
+ ret
+
+; never reached
+ scf
+ ret
+; 0xaf98
+
+Func_af98: ; af98 (2:6f98)
+ xor a
+ ld [wDuelTempList], a
+ ld [wNameBuffer], a
+ bank1call Func_7567
+ ret c
+
+ call EnableSRAM
+ ld hl, wDuelTempList
+ call Func_9120
+ call DisableSRAM
+ call SaveGame
+ xor a
+ ld [wcea1], a
+ ld hl, Data_b04a
+ call Func_9a6d
+ call Func_b141
+ call Func_b088
+ call EnableLCD
+ ld a, [wceab + 3]
+ ld [wcfe4 + 2], a
+ ld hl, wcecb
+ cp [hl]
+ jr nc, .asm_afd4
+ ld [wNamingScreenKeyboardHeight], a
+.asm_afd4
+ ld hl, Func_b053
+ ld d, h
+ ld a, l
+ ld hl, wcece
+ ld [hli], a
+ ld [hl], d
+
+ xor a
+ ld [wced2], a
+.asm_afe2
+ call DoFrame
+ call Func_9b25
+ jr c, .asm_b02f
+ call Func_9eb8
+ jr c, .asm_afe2
+ ldh a, [hDPadHeld]
+ and START
+ jr z, .asm_afe2
+.asm_aff5
+ ld a, $01
+ call PlaySFXConfirmOrCancel
+ ld a, [wNamingScreenCursorY]
+ ld [wced4], a
+ ld de, wFilteredCardList
+ ld hl, wcfd8
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call Func_9c3f
+ call Func_b141
+ call PrintCardSelectionList
+ call EnableLCD
+ ld hl, Data_b04a
+ call Func_9a6d
+ ld a, [wceab + 3]
+ ld hl, wcecb
+ cp [hl]
+ jr nc, .asm_b027
+ ld [wNamingScreenKeyboardHeight], a
+.asm_b027
+ ld a, [wced4]
+ ld [wNamingScreenCursorY], a
+ jr .asm_afe2
+.asm_b02f
+ call Func_9c0e
+ ld a, [wNamingScreenCursorY]
+ ld [wced4], a
+ ld a, [hffb3]
+ cp $ff
+ jr nz, .asm_aff5
+ ld hl, wNameBuffer
+ ld de, wDefaultText
+ call CopyListFromHLToDE
+ or a
+ ret
+
+Data_b04a: ; b04a (2:704a)
+ db $01, $03, $02, $00, $05, $0f, $00, $00, $00
+
+Func_b053: ; b053 (2:7053)
+ ld hl, hffb0
+ ld [hl], $01
+ lb de, 1, 1
+ call InitTextPrinting
+ ldtx hl, CardReceivedText
+ call ProcessTextFromID
+ ld hl, wNameBuffer
+ ld de, wDefaultText
+ call CopyListFromHLToDE
+ xor a
+ ld [wTxRam2 + 0], a
+ ld [wTxRam2 + 1], a
+ lb de, 1, 14
+ call InitTextPrinting
+ ldtx hl, ReceivedTheseCardsFromText
+ call PrintTextNoDelay
+ ld hl, hffb0
+ ld [hl], $00
+ jp PrintCardSelectionList
+; 0xb088
+
+Func_b088: ; b088 (2:7088)
+ ld a, $ff
+ ld hl, wTempCardCollection
+ call ClearNBytesFromHL
+ ld de, wDuelTempList
+ call .Func_b0b2
+ ld a, $ff
+ call .Func_b0c0
+ ld a, $05
+ ld [wcecb], a
+ lb de, 2, 3
+ ld hl, wced0
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ ld a, SYM_BOX_RIGHT
+ ld [wCursorAlternateTile], a
+ call PrintCardSelectionList
+ ret
+
+.Func_b0b2
+ ld bc, wTempCardCollection
+.loop
+ ld a, [de]
+ inc de
+ or a
+ ret z
+ ld h, $00
+ ld l, a
+ add hl, bc
+ inc [hl]
+ jr .loop
+
+.Func_b0c0
+ push af
+ push bc
+ push de
+ push hl
+ push af
+ ld a, DECK_SIZE
+ ld hl, wOwnedCardsCountList
+ call ClearNBytesFromHL
+ ld a, DECK_SIZE
+ ld hl, wFilteredCardList
+ call ClearNBytesFromHL
+ pop af
+ ld hl, $0
+ ld de, $0
+ ld b, a
+.asm_b0dd
+ inc e
+ call GetCardType
+ jr c, .asm_b119
+ ld c, a
+ ld a, b
+ cp $ff
+ jr z, .asm_b0fc
+ and $20
+ cp $20
+ jr z, .asm_b0f5
+ ld a, c
+ cp b
+ jr nz, .asm_b0dd
+ jr .asm_b0fc
+.asm_b0f5
+ ld a, c
+ and TYPE_ENERGY
+ cp TYPE_ENERGY
+ jr nz, .asm_b0dd
+.asm_b0fc
+ push bc
+ push hl
+ ld bc, wFilteredCardList
+ add hl, bc
+ ld [hl], e
+ ld hl, wTempCardCollection
+ add hl, de
+ ld a, [hl]
+ and $7f
+ pop hl
+ or a
+ jr z, .asm_b116
+ push hl
+ ld bc, wOwnedCardsCountList
+ add hl, bc
+ ld [hl], a
+ pop hl
+ inc l
+.asm_b116
+ pop bc
+ jr .asm_b0dd
+
+.asm_b119
+ ld a, l
+ ld [wceab + 3], a
+ xor a
+ ld c, l
+ ld b, h
+ ld hl, wFilteredCardList
+ add hl, bc
+ ld [hl], a
+ ld a, $ff
+ ld hl, wOwnedCardsCountList
+ add hl, bc
+ ld [hl], a
+ pop hl
+ pop de
+ pop bc
+ pop af
+ ret
+; 0xb131
+
+Func_b131: ; b131 (2:7131)
+ call Func_b141.Func_b167
+ lb de, 1, 1
+ call InitTextPrinting
+ ldtx hl, CardToSendText
+ call ProcessTextFromID
+ ret
+; 0xb141
+
+Func_b141: ; b141 (2:7141)
+ call .Func_b167
+ lb de, 1, 1
+ call InitTextPrinting
+ ldtx hl, CardReceivedText
+ call ProcessTextFromID
+ ld hl, wNameBuffer
+ ld de, wDefaultText
+ call CopyListFromHLToDE
+ xor a
+ ld [wTxRam2 + 0], a
+ ld [wTxRam2 + 1], a
+ ldtx hl, ReceivedTheseCardsFromText
+ call DrawWideTextBox_PrintText
+ ret
+
+.Func_b167
+ call Set_OBJ_8x8
+ call Func_8d78
+ ld de, $0
+ lb bc, 20, 13
+ call DrawRegularTextBox
+ ret
+; 0xb177
Func_b177: ; b177 (2:7177)
- INCROM $b177, $b19d
+ ld a, [wd10e]
+ and $03
+ ld hl, .FunctionTable
+ call JumpToFunctionInTable
+ jr c, .asm_b18f
+ or a
+ jr nz, .asm_b18f
+ xor a
+ ld [wTxRam2 + 0], a
+ ld [wTxRam2 + 1], a
+ ret
+.asm_b18f
+ ld a, $ff
+ ld [wd10e], a
+ ret
+
+.FunctionTable
+ dw Func_af1d
+ dw Func_af98
+ dw Func_bc04
+ dw Func_bc7a
+; 0xb19d
Func_b19d: ; b19d (2:719d)
xor a
ld [wcea1], a
- ld de, CheckForCGB
+ ldtx de, DeckSaveMachineText
ld hl, wd0a2
ld [hl], e
inc hl
@@ -2745,13 +5350,13 @@ Func_b19d: ; b19d (2:719d)
ld [wd0a5], a
xor a
.asm_b1b3
- ld hl, Unknown_b6fb
+ ld hl, Data_b6fb
call Func_9a6d
call Func_b704
call Func_b545
ldtx hl, PleaseSelectDeckText
call DrawWideTextBox_PrintText
- ld de, $0224 ; PleaseSelectDeckText?
+ ldtx de, PleaseSelectDeckText
call Func_b285
call Func_b29f
jr c, .asm_b1b3
@@ -2839,7 +5444,22 @@ Unknown_b274: ; b274 (2:7274)
INCROM $b274, $b285
Func_b285: ; b285 (2:7285)
- INCROM $b285, $b29f
+ ld a, $05
+ ld [wNamingScreenKeyboardHeight], a
+ ld hl, wd0a7
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ ld hl, Func_b403
+ ld d, h
+ ld a, l
+ ld hl, wcece
+ ld [hli], a
+ ld [hl], d
+ xor a
+ ld [wced2], a
+ ret
+; 0xb29f
Func_b29f: ; b29f (2:729f)
INCROM $b29f, $b35b
@@ -2848,16 +5468,240 @@ Func_b35b: ; b35b (2:735b)
INCROM $b35b, $b379
Func_b379: ; b379 (2:7379)
- INCROM $b379, $b3fe
+ INCROM $b379, $b3b3
+
+Func_b3b3: ; b3b3 (2:73b3)
+ lb de, 1, 0
+ call InitTextPrinting
+ ld hl, wd0a2
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ call ProcessTextFromID
+ ret
+; 0xb3c3
+
+ INCROM $b3c3, $b3e5
+
+Func_b3e5: ; b3e5 (2:73e5)
+ ld a, [wcea1]
+ ld de, $202
+ ld b, $05
+.asm_b3ed
+ push af
+ push bc
+ push de
+ call Func_b424
+ pop de
+ pop bc
+ pop af
+ ret c
+ dec b
+ ret z
+ inc a
+ inc e
+ inc e
+ jr .asm_b3ed
+; 0xb3fe
Unknown_b3fe: ; b3fe (2:73fe)
- INCROM $b3fe, $b545
+ INCROM $b3fe, $b403
+
+Func_b403: ; b403 (2:7403)
+ call Func_b704
+ ld hl, hffb0
+ ld [hl], $01
+ call Func_b3b3
+ lb de, 1, 14
+ call InitTextPrinting
+ ld hl, wd0a7
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ call ProcessTextFromID
+ ld hl, hffb0
+ ld [hl], $00
+ jr Func_b3e5
+; 0xb424
+
+Func_b424: ; b424 (2:7424)
+ ld b, a
+ push bc
+ ld hl, wDefaultText
+ inc a
+ call ConvertToNumericalDigits
+ ld [hl], $77
+ inc hl
+ ld [hl], $00
+ call InitTextPrinting
+ ld hl, wDefaultText
+ call ProcessText
+ pop af
+ push af
+ sla a
+ ld l, a
+ ld h, $00
+ ld bc, wd00d
+ add hl, bc
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ inc d
+ inc d
+ inc d
+ push de
+ call Func_92be
+ pop de
+ pop bc
+ jr nc, .asm_b46b
+ call InitTextPrinting
+ ldtx hl, Text025b
+ call ProcessTextFromID
+ ld d, 13
+ inc e
+ call InitTextPrinting
+ ld hl, $74d4
+ call ProcessText
+ scf
+ ret
+
+.asm_b46b
+ push de
+ push bc
+ ld d, 18
+ call InitTextPrinting
+ ld a, $00
+ call Func_b625
+ pop bc
+ ld hl, wDefaultText
+ jr c, .asm_b482
+ ld de, $35f
+ jr .asm_b4c2
+
+.asm_b482
+ push bc
+ ld a, $ff
+ call Func_b625
+ jr c, .asm_b490
+ pop bc
+ ld de, $360
+ jr .asm_b4c2
+
+.asm_b490
+ ld de, $6c
+ call Func_22ca
+ pop bc
+ pop de
+ push bc
+ ld d, 17
+ inc e
+ call InitTextPrinting
+ pop bc
+ call Func_b4e1
+ call CalculateOnesAndTensDigits
+ ld hl, wOnesAndTensPlace
+ ld a, [hli]
+ ld b, a
+ ld a, [hl]
+ ld hl, wDefaultText
+ ld [hl], $05
+ inc hl
+ ld [hli], a
+ ld [hl], $05
+ inc hl
+ ld a, b
+ ld [hli], a
+ ld [hl], TX_END
+ ld hl, wDefaultText
+ call ProcessText
+ or a
+ ret
+
+.asm_b4c2
+ call Func_22ca
+ pop de
+ ld d, 13
+ inc e
+ call InitTextPrinting
+ ld hl, $74d4
+ call ProcessText
+ or a
+ ret
+; 0xb4d4
+
+ INCROM $b4d4, $b4e1
+
+Func_b4e1: ; b4e1 (2:74e1)
+ push bc
+ call Func_b644
+ call Func_a3ca
+ call Func_b664
+ pop bc
+ sla b
+ ld c, b
+ ld b, $00
+ ld hl, wd00d
+ add hl, bc
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ ld bc, $18
+ add hl, bc
+ call EnableSRAM
+ ld de, wTempCardCollection
+ ld bc, $0
+.asm_b505
+ inc b
+ ld a, DECK_SIZE
+ cp b
+ jr c, .asm_b520
+ ld a, [hli]
+ push hl
+ ld l, a
+ ld h, $00
+ add hl, de
+ ld a, [hl]
+ and $7f
+ or a
+ jr z, .asm_b51c
+ dec a
+ ld [hl], a
+ pop hl
+ jr .asm_b505
+.asm_b51c
+ inc c
+ pop hl
+ jr .asm_b505
+.asm_b520
+ ld a, c
+ call DisableSRAM
+ ret
+; 0xb525
+
+ INCROM $b525, $b545
Func_b545: ; b545 (2:7545)
INCROM $b545, $b592
Func_b592: ; b592 (2:7592)
- INCROM $b592, $b625
+ INCROM $b592, $b611
+
+Func_b611: ; b611 (2:7611)
+ push af
+ push hl
+ ld a, [wd088]
+ sla a
+ ld e, a
+ ld d, $00
+ ld hl, wd00d
+ add hl, de
+ ld e, [hl]
+ inc hl
+ ld d, [hl]
+ pop hl
+ pop af
+ ret
+; 0xb625
Func_b625: ; b625 (2:7625)
INCROM $b625, $b644
@@ -2866,13 +5710,30 @@ Func_b644: ; b644 (2:7644)
INCROM $b644, $b653
Func_b653: ; b653 (2:7653)
- INCROM $b653, $b6ca
+ INCROM $b653, $b664
+
+Func_b664: ; b664 (2:7664)
+ push af
+ push bc
+ ldh a, [hBankSRAM]
+ ld b, a
+ ld a, [wd0a4]
+ cp b
+ jr z, .asm_b672
+ call BankswitchSRAM
+.asm_b672
+ pop bc
+ pop af
+ ret
+; 0xb675
+
+ INCROM $b675, $b6ca
Func_b6ca: ; b6ca (2:76ca)
INCROM $b6ca, $b6fb
-Unknown_b6fb: ; b6fb (2:76fb)
- INCROM $b6fb, $b704
+Data_b6fb: ; b6fb (2:76fb)
+ db $01, $02, $02, $00, $05, $0f, $00, $00, $00
Func_b704: ; b704 (2:7704)
INCROM $b704, $b7c6
@@ -3072,7 +5933,159 @@ Data_bb76: ; bb76 (2:7b76)
INCROM $bb76, $bb83
Data_bb83: ; bb83 (2:7b83)
- INCROM $bb83, $bb97
+ tx FightingMachineText
+ tx RockMachineText
+ tx WaterMachineText
+ tx LightningMachineText
+ tx GrassMachineText
+ tx PsychicMachineText
+ tx ScienceMachineText
+ tx FireMachineText
+ tx AutoMachineText
+ tx LegendaryMachineText
Func_bb97: ; bb97 (2:7b97)
- INCROM $bb97, $c000
+ INCROM $bb97, $bc04
+
+Func_bc04: ; bc04 (2:7c04)
+ xor a
+ ld [wcea1], a
+ ldtx de, DeckSaveMachineText
+ ld hl, wd0a2
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call Func_b379
+ ld a, DECK_SIZE
+ ld [wd0a5], a
+ xor a
+.asm_bc1a
+ ld hl, Data_b6fb
+ call Func_9a6d
+ call Func_b704
+ call Func_b545
+ ldtx hl, PleaseChooseADeckConfigurationToSendText
+ call DrawWideTextBox_PrintText
+ ldtx de, PleaseChooseADeckConfigurationToSendText
+ call Func_b285
+.asm_bc32
+ call Func_b29f
+ jr c, .asm_bc1a
+ cp $ff
+ jr nz, .asm_bc3f
+ ld a, $01
+ or a
+ ret
+.asm_bc3f
+ ld b, a
+ ld a, [wcea1]
+ add b
+ ld [wd088], a
+ call Func_b35b
+ jr c, .asm_bc32
+
+ call Func_b611
+ ld l, e
+ ld h, d
+ ld de, wDuelTempList
+ ld b, $54
+ call EnableSRAM
+ call CopyNBytesFromHLToDE
+ call DisableSRAM
+
+ xor a
+ ld [wNameBuffer], a
+ bank1call Func_7562
+ ret c
+
+ call Func_b611
+ ld l, e
+ ld h, d
+ ld de, wDefaultText
+ call EnableSRAM
+ call CopyListFromHLToDE
+ call DisableSRAM
+ or a
+ ret
+; 0xbc7a
+
+Func_bc7a: ; bc7a (2:7c7a)
+ xor a
+ ld [wcea1], a
+ ldtx de, DeckSaveMachineText
+ ld hl, wd0a2
+ ld [hl], e
+ inc hl
+ ld [hl], d
+ call Func_b379
+ ld a, DECK_SIZE
+ ld [wd0a5], a
+ xor a
+.asm_bc90
+ ld hl, Data_b6fb
+ call Func_9a6d
+ call Func_b704
+ call Func_b545
+ ldtx hl, PleaseChooseASaveSlotText
+ call DrawWideTextBox_PrintText
+ ldtx de, PleaseChooseASaveSlotText
+ call Func_b285
+ call Func_b29f
+ jr c, .asm_bc90
+ cp $ff
+ jr nz, .asm_bcb5
+ ld a, $01
+ or a
+ ret
+.asm_bcb5
+ ld b, a
+ ld a, [wcea1]
+ add b
+ ld [wd088], a
+ call Func_b35b
+ jr nc, .asm_bcc4
+ jr .asm_bcd1
+.asm_bcc4
+ ldtx hl, OKIfFileDeletedText
+ call YesOrNoMenuWithText
+ jr nc, .asm_bcd1
+ ld a, [wNamingScreenCursorY]
+ jr .asm_bc90
+.asm_bcd1
+ xor a
+ ld [wDuelTempList], a
+ ld [wNameBuffer], a
+ bank1call Func_755d
+ ret c
+ call EnableSRAM
+ ld hl, wDuelTempList
+ call Func_b611
+ ld b, $54
+ call CopyNBytesFromHLToDE
+ call DisableSRAM
+ call SaveGame
+ call Func_b379
+ ld a, [wNamingScreenCursorY]
+ ld hl, Data_b6fb
+ call Func_9a6d
+ call Func_b704
+ call Func_b545
+ call Func_9c3a
+ ld hl, wNameBuffer
+ ld de, wDefaultText
+ call CopyListFromHLToDE
+ xor a
+ ld [wTxRam2 + 0], a
+ ld [wTxRam2 + 1], a
+ ldtx hl, ReceivedADeckConfigurationFromText
+ call DrawWideTextBox_WaitForInput
+ call Func_b611
+ ld l, e
+ ld h, d
+ ld de, wDefaultText
+ call EnableSRAM
+ call CopyListFromHLToDE
+ call DisableSRAM
+ xor a
+ ret
+; 0xbd2e
diff --git a/src/engine/bank06.asm b/src/engine/bank06.asm
index debb73e..a03f631 100644
--- a/src/engine/bank06.asm
+++ b/src/engine/bank06.asm
@@ -171,7 +171,7 @@ OpenInPlayAreaScreen: ; 180d5 (6:40d5)
.clairvoyance_on
ld de, OpenInPlayAreaScreen_TransitionTable2
.clairvoyance_off
- ld hl, wInPlayAreaInputTablePointer
+ ld hl, wMenuInputTablePointer
ld [hl], e
inc hl
ld [hl], d
@@ -481,7 +481,7 @@ in_play_area_cursor_transition: MACRO
cursor_transition \1, \2, \3, INPLAYAREA_\4, INPLAYAREA_\5, INPLAYAREA_\6, INPLAYAREA_\7
ENDM
-; it's related to wInPlayAreaInputTablePointer.
+; it's related to wMenuInputTablePointer.
; with this table, the cursor moves into the proper location by the input.
; note that the unit of the position is not a 8x8 tile.
OpenInPlayAreaScreen_TransitionTable1:
@@ -523,7 +523,7 @@ OpenInPlayAreaScreen_TransitionTable2:
OpenInPlayAreaScreen_HandleInput: ; 183bb (6:43bb)
xor a
ld [wPlaysSfx], a
- ld hl, wInPlayAreaInputTablePointer
+ ld hl, wMenuInputTablePointer
ld e, [hl]
inc hl
ld d, [hl]
@@ -696,7 +696,7 @@ OpenInPlayAreaScreen_HandleInput: ; 183bb (6:43bb)
.draw_cursor ; 184a0 (6:44a0)
call ZeroObjectPositions
- ld hl, wInPlayAreaInputTablePointer
+ ld hl, wMenuInputTablePointer
ld e, [hl]
inc hl
ld d, [hl]
@@ -730,7 +730,7 @@ OpenGlossaryScreen: ; 184c8 (6:44c8)
xor a
ld [wInPlayAreaCurPosition], a
ld de, OpenGlossaryScreen_TransitionTable ; this data is stored in bank 2.
- ld hl, wInPlayAreaInputTablePointer
+ ld hl, wMenuInputTablePointer
ld [hl], e
inc hl
ld [hl], d
@@ -2253,7 +2253,19 @@ Func_19b0d: ; 19b0d (6:5b0d)
ret
; 0x19b20
- INCROM $19b20, $19c20
+ INCROM $19b20, $19b41
+
+Func_19b41: ; 19b41 (6:5b41)
+ INCROM $19b41, $19b8c
+
+Func_19b8c: ; 19b8c (6:5b8c)
+ INCROM $19b8c, $19bc5
+
+Func_19bc5: ; 19bc5 (6:5bc5)
+ INCROM $19bc5, $19bfb
+
+Func_19bfb: ; 19bfb (6:5bfb)
+ INCROM $19bfb, $19c20
_DoCardPop: ; 19c20 (6:5c20)
; loads scene for Card Pop! screen
@@ -3125,10 +3137,10 @@ Func_1a138: ; 1a138 (6:6138)
ret
.unknown_1a146
- db $00, $20, $40, $60
-; 0x1a14a
+ db $00, $20, $40, $60, $7f
+; 0x1a14b
- INCROM $1a14a, $1a435
+ INCROM $1a14b, $1a435
; compresses $28 tiles in sGfxBuffer5
; and writes it in sGfxBuffer5 + $28 tiles.
diff --git a/src/gfx/hand_cards.png b/src/gfx/hand_cards.png
new file mode 100644
index 0000000..2a1183e
--- /dev/null
+++ b/src/gfx/hand_cards.png
Binary files differ
diff --git a/src/hram.asm b/src/hram.asm
index b5255dd..fee69a9 100644
--- a/src/hram.asm
+++ b/src/hram.asm
@@ -168,7 +168,10 @@ hCurMenuItem:: ; ffb1
hCurSelectionItem:: ; ffb2
ds $1
- ds $2
+hffb3:: ; ffb3
+ ds $1
+
+ ds $1
hffb5:: ; ffb5
ds $1
diff --git a/src/text/text2.asm b/src/text/text2.asm
index 55a08b4..0e0c083 100644
--- a/src/text/text2.asm
+++ b/src/text/text2.asm
@@ -1619,7 +1619,7 @@ Text0227: ; 3ba3c (e:7a3c)
text "Select deck"
done
-Text0228: ; 3ba49 (e:7a49)
+CancelText: ; 3ba49 (e:7a49)
text "Cancel"
done
@@ -1652,66 +1652,66 @@ ThereIsNoDeckHereText: ; 3ba84 (e:7a84)
text "There is no Deck here!"
done
-Text0230: ; 3ba9c (e:7a9c)
+ConfirmText: ; 3ba9c (e:7a9c)
text "Confirm"
done
-Text0231: ; 3baa5 (e:7aa5)
+DismantleText: ; 3baa5 (e:7aa5)
text "Dismantle"
done
-Text0232: ; 3bab0 (e:7ab0)
+ModifyText: ; 3bab0 (e:7ab0)
text "Modify"
done
-Text0233: ; 3bab8 (e:7ab8)
+SaveText: ; 3bab8 (e:7ab8)
text "Save"
done
-Text0234: ; 3babe (e:7abe)
+NameText: ; 3babe (e:7abe)
text "Name"
done
-Text0235: ; 3bac4 (e:7ac4)
+ThereIsOnly1DeckSoCannotBeDismantledText: ; 3bac4 (e:7ac4)
text "There is only 1 Deck, so this"
line "Deck cannot be dismantled."
done
-Text0236: ; 3bafe (e:7afe)
+ThereAreNoBasicPokemonInThisDeckText: ; 3bafe (e:7afe)
text "There are no Basic Pokémon"
line "in this Deck!"
done
-Text0237: ; 3bb28 (e:7b28)
+YouMustIncludeABasicPokemonInTheDeckText: ; 3bb28 (e:7b28)
text "You must include a Basic Pokémon"
line "in the Deck!"
done
-Text0238: ; 3bb57 (e:7b57)
+ThisIsntA60CardDeckText: ; 3bb57 (e:7b57)
text "This isn't a 60-card deck!"
done
-Text0239: ; 3bb73 (e:7b73)
+TheDeckMustInclude60CardsText: ; 3bb73 (e:7b73)
text "The Deck must include 60 cards!"
done
-Text023a: ; 3bb94 (e:7b94)
+ReturnToOriginalConfigurationText: ; 3bb94 (e:7b94)
text "Return to original configuration?"
done
-Text023b: ; 3bbb7 (e:7bb7)
+SaveThisDeckText: ; 3bbb7 (e:7bb7)
text "Save this Deck?"
done
-Text023c: ; 3bbc8 (e:7bc8)
+QuitModifyingTheDeckText: ; 3bbc8 (e:7bc8)
text "Quit modifying the Deck?"
done
-Text023d: ; 3bbe2 (e:7be2)
+DismantleThisDeckText: ; 3bbe2 (e:7be2)
text "Dismantle this Deck?"
done
-Text023e: ; 3bbf8 (e:7bf8)
+NoCardsChosenText: ; 3bbf8 (e:7bf8)
text "No cards chosen."
done
@@ -1832,7 +1832,7 @@ Text025b: ; 3bddb (e:7ddb)
textfw0 "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-"
done
-Text025c: ; 3bdea (e:7dea)
+DeckSaveMachineText: ; 3bdea (e:7dea)
text " Deck Save Machine "
done
diff --git a/src/text/text3.asm b/src/text/text3.asm
index 4fccc9c..3d32c15 100644
--- a/src/text/text3.asm
+++ b/src/text/text3.asm
@@ -70,11 +70,11 @@ Text027b: ; 3c1f7 (f:41f7)
line "the Game Boy Printer OFF."
done
-Text027c: ; 3c22b (f:422b)
+ProceduresForSendingCardsText: ; 3c22b (f:422b)
text "Procedures for sending cards:"
done
-Text027d: ; 3c24a (f:424a)
+CardSendingProceduresText: ; 3c24a (f:424a)
text "1. Choose the card you wish to send."
line " Press left/right to choose more."
line ""
@@ -85,38 +85,38 @@ Text027d: ; 3c24a (f:424a)
line " the process."
done
-Text027e: ; 3c305 (f:4305)
+PleaseReadTheProceduresForSendingCardsText: ; 3c305 (f:4305)
text "Please read the procedures"
line "for sending cards."
done
-Text027f: ; 3c334 (f:4334)
+SendText: ; 3c334 (f:4334)
text "Send"
done
-Text0280: ; 3c33a (f:433a)
+CardReceivedText: ; 3c33a (f:433a)
text "Card received"
done
-Text0281: ; 3c349 (f:4349)
+CardToSendText: ; 3c349 (f:4349)
text "Card to send"
done
-Text0282: ; 3c357 (f:4357)
+SendTheseCardsText: ; 3c357 (f:4357)
text "Send these cards?"
done
-Text0283: ; 3c36a (f:436a)
+ReceivedTheseCardsFromText: ; 3c36a (f:436a)
text "Received these cards"
line "from <RAMTEXT>!"
done
-Text0284: ; 3c389 (f:4389)
+PleaseChooseADeckConfigurationToSendText: ; 3c389 (f:4389)
text "Please choose a Deck "
line "configuration to send."
done
-Text0285: ; 3c3b7 (f:43b7)
+PleaseChooseASaveSlotText: ; 3c3b7 (f:43b7)
text "Please choose a Save Slot."
done
@@ -124,48 +124,48 @@ Text0286: ; 3c3d3 (f:43d3)
text "Receive configuration."
done
-Text0287: ; 3c3eb (f:43eb)
+ReceivedADeckConfigurationFromText: ; 3c3eb (f:43eb)
text "Received a deck configuration"
line "from <RAMTEXT>!"
done
-Text0288: ; 3c413 (f:4413)
+FightingMachineText: ; 3c413 (f:4413)
text " Fighting Machine "
done
-Text0289: ; 3c429 (f:4429)
+RockMachineText: ; 3c429 (f:4429)
text " Rock Machine "
done
-Text028a: ; 3c43b (f:443b)
+WaterMachineText: ; 3c43b (f:443b)
text " Water Machine "
done
-Text028b: ; 3c44f (f:444f)
+LightningMachineText: ; 3c44f (f:444f)
text " Lightning Machine "
done
-Text028c: ; 3c467 (f:4467)
+GrassMachineText: ; 3c467 (f:4467)
text " Grass Machine "
done
-Text028d: ; 3c47b (f:447b)
+PsychicMachineText: ; 3c47b (f:447b)
text " Psychic Machine "
done
-Text028e: ; 3c491 (f:4491)
+ScienceMachineText: ; 3c491 (f:4491)
text " Science Machine "
done
-Text028f: ; 3c4a7 (f:44a7)
+FireMachineText: ; 3c4a7 (f:44a7)
text " Fire Machine "
done
-Text0290: ; 3c4b9 (f:44b9)
+AutoMachineText: ; 3c4b9 (f:44b9)
text " Auto Machine "
done
-Text0291: ; 3c4cb (f:44cb)
+LegendaryMachineText: ; 3c4cb (f:44cb)
text " Legendary Machine "
done
diff --git a/src/text/text_offsets.asm b/src/text/text_offsets.asm
index f37c395..b8a1dbf 100644
--- a/src/text/text_offsets.asm
+++ b/src/text/text_offsets.asm
@@ -553,7 +553,7 @@ TextOffsets:: ; 34000 (d:4000)
textpointer Text0225 ; 0x0225
textpointer Text0226 ; 0x0226
textpointer Text0227 ; 0x0227
- textpointer Text0228 ; 0x0228
+ textpointer CancelText ; 0x0228
textpointer Text0229 ; 0x0229
textpointer ChosenAsDuelingDeckText ; 0x022a
textpointer Deck1Text ; 0x022b
@@ -561,21 +561,21 @@ TextOffsets:: ; 34000 (d:4000)
textpointer Deck3Text ; 0x022d
textpointer Deck4Text ; 0x022e
textpointer ThereIsNoDeckHereText ; 0x022f
- textpointer Text0230 ; 0x0230
- textpointer Text0231 ; 0x0231
- textpointer Text0232 ; 0x0232
- textpointer Text0233 ; 0x0233
- textpointer Text0234 ; 0x0234
- textpointer Text0235 ; 0x0235
- textpointer Text0236 ; 0x0236
- textpointer Text0237 ; 0x0237
- textpointer Text0238 ; 0x0238
- textpointer Text0239 ; 0x0239
- textpointer Text023a ; 0x023a
- textpointer Text023b ; 0x023b
- textpointer Text023c ; 0x023c
- textpointer Text023d ; 0x023d
- textpointer Text023e ; 0x023e
+ textpointer ConfirmText ; 0x0230
+ textpointer DismantleText ; 0x0231
+ textpointer ModifyText ; 0x0232
+ textpointer SaveText ; 0x0233
+ textpointer NameText ; 0x0234
+ textpointer ThereIsOnly1DeckSoCannotBeDismantledText ; 0x0235
+ textpointer ThereAreNoBasicPokemonInThisDeckText ; 0x0236
+ textpointer YouMustIncludeABasicPokemonInTheDeckText ; 0x0237
+ textpointer ThisIsntA60CardDeckText ; 0x0238
+ textpointer TheDeckMustInclude60CardsText ; 0x0239
+ textpointer ReturnToOriginalConfigurationText ; 0x023a
+ textpointer SaveThisDeckText ; 0x023b
+ textpointer QuitModifyingTheDeckText ; 0x023c
+ textpointer DismantleThisDeckText ; 0x023d
+ textpointer NoCardsChosenText ; 0x023e
textpointer YourPokemonText ; 0x023f
textpointer YourDiscardPileText2 ; 0x0240
textpointer YourHandText ; 0x0241
@@ -605,7 +605,7 @@ TextOffsets:: ; 34000 (d:4000)
textpointer Text0259 ; 0x0259
textpointer Text025a ; 0x025a
textpointer Text025b ; 0x025b
- textpointer Text025c ; 0x025c
+ textpointer DeckSaveMachineText ; 0x025c
textpointer Text025d ; 0x025d
textpointer Text025e ; 0x025e
textpointer Text025f ; 0x025f
@@ -637,28 +637,28 @@ TextOffsets:: ; 34000 (d:4000)
textpointer Text0279 ; 0x0279
textpointer Text027a ; 0x027a
textpointer Text027b ; 0x027b
- textpointer Text027c ; 0x027c
- textpointer Text027d ; 0x027d
- textpointer Text027e ; 0x027e
- textpointer Text027f ; 0x027f
- textpointer Text0280 ; 0x0280
- textpointer Text0281 ; 0x0281
- textpointer Text0282 ; 0x0282
- textpointer Text0283 ; 0x0283
- textpointer Text0284 ; 0x0284
- textpointer Text0285 ; 0x0285
+ textpointer ProceduresForSendingCardsText ; 0x027c
+ textpointer CardSendingProceduresText ; 0x027d
+ textpointer PleaseReadTheProceduresForSendingCardsText ; 0x027e
+ textpointer SendText ; 0x027f
+ textpointer CardReceivedText ; 0x0280
+ textpointer CardToSendText ; 0x0281
+ textpointer SendTheseCardsText ; 0x0282
+ textpointer ReceivedTheseCardsFromText ; 0x0283
+ textpointer PleaseChooseADeckConfigurationToSendText ; 0x0284
+ textpointer PleaseChooseASaveSlotText ; 0x0285
textpointer Text0286 ; 0x0286
- textpointer Text0287 ; 0x0287
- textpointer Text0288 ; 0x0288
- textpointer Text0289 ; 0x0289
- textpointer Text028a ; 0x028a
- textpointer Text028b ; 0x028b
- textpointer Text028c ; 0x028c
- textpointer Text028d ; 0x028d
- textpointer Text028e ; 0x028e
- textpointer Text028f ; 0x028f
- textpointer Text0290 ; 0x0290
- textpointer Text0291 ; 0x0291
+ textpointer ReceivedADeckConfigurationFromText ; 0x0287
+ textpointer FightingMachineText ; 0x0288
+ textpointer RockMachineText ; 0x0289
+ textpointer WaterMachineText ; 0x028a
+ textpointer LightningMachineText ; 0x028b
+ textpointer GrassMachineText ; 0x028c
+ textpointer PsychicMachineText ; 0x028d
+ textpointer ScienceMachineText ; 0x028e
+ textpointer FireMachineText ; 0x028f
+ textpointer AutoMachineText ; 0x0290
+ textpointer LegendaryMachineText ; 0x0291
textpointer Text0292 ; 0x0292
textpointer Text0293 ; 0x0293
textpointer Text0294 ; 0x0294
diff --git a/src/wram.asm b/src/wram.asm
index 40388ec..75e1e66 100644
--- a/src/wram.asm
+++ b/src/wram.asm
@@ -443,6 +443,8 @@ wNameBuffer:: ; c500
wDuelTempList:: ; c510
ds $80
+UNION
+
; this is kept updated with some default text that is used
; when the text printing functions are called with text id $0000
wDefaultText:: ; c590
@@ -451,7 +453,24 @@ wDefaultText:: ; c590
wc592:: ; c592
ds $3
- ds $55
+ ds $15
+
+wc5aa:: ; c5aa
+ ds $1
+
+ ds $21
+
+NEXTU
+
+wc590:: ; c590
+ ds DECK_SIZE
+
+ENDU
+
+wc5cc:: ; c5cc
+ ds $1
+
+ ds $1d
wc5ea:: ; c5ea
ds $1
@@ -1698,7 +1717,7 @@ wPrizeCardCursorPosition:: ; ce52
ds $1
; pointer to the table which contains information for each key-press.
-wInPlayAreaInputTablePointer:: ; ce53
+wMenuInputTablePointer:: ; ce53
wce53:: ; ce53
ds $2
@@ -1932,25 +1951,62 @@ wOnesAndTensPlace:: ; ceb6
ds $3
wcebb:: ; cebb
- ds $1
+ ds $9
- ds $10
+wcec4:: ; cec4
+ ds $7
+
+wcecb:: ; cecb
+ ds $1
wcecc:: ; cecc
ds $1
+wcecd:: ; cecd
ds $1
wcece:: ; cece
ds $2
- ds $a
+wced0:: ; ced0
+ ds $2
+
+wced2:: ; ced2
+ ds $1
+
+wced3:: ; ced3
+ ds $1
+
+wced4:: ; ced4
+ ds $1
+
+wced5:: ; ced5
+ ds $1
+
+wced6:: ; ced6
+ ds $1
+
+wced7:: ; ced7
+ ds $1
+
+wced8:: ; ced8
+ ds $1
-; pointer to memory to store AI temporary hand card list
+wced9:: ; ced9
+ ds $1
+
+; stores the list of all card IDs that filtered by its card type
+; (Fire, Water, ..., Energy card, Trainer card)
+wFilteredCardList:: ; ceda
+
+; stores AI temporary hand card list
wHandTempList:: ; ceda
- ds $2
- ds $3b
+wceda:: ; ceda
+ ds DECK_SIZE
+
+wcf16:: ; cf16
+ ds $1
; used in bank2, probably related to wTempHandCardList (another temp list?)
wcf17:: ; cf17
@@ -1958,6 +2014,11 @@ wcf17:: ; cf17
ds $15
+; stores the count number of cards owned
+; can be 0 in the case that a card is not available
+; i.e. already inside a built deck
+wOwnedCardsCountList:: ; cf68
+
; used by _AIProcessHandTrainerCards, AI related
wTempHandCardList:: ; cf68
ds DECK_SIZE
@@ -1965,19 +2026,30 @@ wTempHandCardList:: ; cf68
ds $15
wcfb9:: ; cfb9
- ds $1
+ ds $14
- ds $17
+ ds $4
wcfd1:: ; cfd1
- ds $1
+ ds $7
- ds $8
+wcfd8:: ; cfd8
+ ds $2
wcfda:: ; cfda
ds $2
- ds $7
+ ds $2
+
+; the tile to draw in place of the cursor, in case
+; the cursor is not to be drawn
+wCursorAlternateTile:: ; cfde
+ ds $1
+
+wcfdf:: ; cfdf
+ ds $1
+
+ ds $3
; a flag indicating whether sfx should be played.
wPlaysSfx:: ; cfe3
generated by cgit v1.2.3 (git 2.25.1) at 2025-05-06 16:59:51 +0000