Merge pull request #112 from ElectroDeoxys/master

Split bank 6 and some bank 7

91 files changed, 9855 insertions, 9788 deletions

diff --git a/src/data/maps/tilemaps.asm b/src/data/maps/tilemaps.asm
new file mode 100644
index 0000000..bf66636
--- /dev/null
+++ b/src/data/maps/tilemaps.asm
@@ -0,0 +1,371 @@
+OverworldMapTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw NULL
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/overworld_map.bin"
+
+OverworldMapCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw NULL
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/overworld_map_cgb.bin"
+
+MasonLaboratoryTilemap::
+	db $1c ; width
+	db $1e ; height
+	dw MasonLaboratoryPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/mason_laboratory.bin"
+MasonLaboratoryPermissions:
+	INCBIN "data/maps/permissions/mason_laboratory.bin"
+
+MasonLaboratoryCGBTilemap::
+	db $1c ; width
+	db $1e ; height
+	dw MasonLaboratoryCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/mason_laboratory_cgb.bin"
+MasonLaboratoryCGBPermissions:
+	INCBIN "data/maps/permissions/mason_laboratory_cgb.bin"
+
+ChallengeMachineMapEventTilemap::
+	db $04 ; width
+	db $06 ; height
+	dw ChallengeMachineMapEventPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/challenge_machine_map_event.bin"
+ChallengeMachineMapEventPermissions:
+	INCBIN "data/maps/permissions/challenge_machine_map_event.bin"
+
+ChallengeMachineMapEventCGBTilemap::
+	db $04 ; width
+	db $06 ; height
+	dw ChallengeMachineMapEventCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/challenge_machine_map_event_cgb.bin"
+ChallengeMachineMapEventCGBPermissions:
+	INCBIN "data/maps/permissions/challenge_machine_map_event_cgb.bin"
+
+DeckMachineRoomTilemap::
+	db $18 ; width
+	db $1e ; height
+	dw DeckMachineRoomPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/deck_machine_room.bin"
+DeckMachineRoomPermissions:
+	INCBIN "data/maps/permissions/deck_machine_room.bin"
+
+DeckMachineRoomCGBTilemap::
+	db $18 ; width
+	db $1e ; height
+	dw DeckMachineRoomCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/deck_machine_room_cgb.bin"
+DeckMachineRoomCGBPermissions:
+	INCBIN "data/maps/permissions/deck_machine_room_cgb.bin"
+
+DeckMachineMapEventTilemap::
+	db $04 ; width
+	db $01 ; height
+	dw DeckMachineMapEventPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/deck_machine_map_event.bin"
+DeckMachineMapEventPermissions:
+	INCBIN "data/maps/permissions/deck_machine_map_event.bin"
+
+DeckMachineMapEventCGBTilemap::
+	db $04 ; width
+	db $01 ; height
+	dw DeckMachineMapEventCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/deck_machine_map_event_cgb.bin"
+DeckMachineMapEventCGBPermissions:
+	INCBIN "data/maps/permissions/deck_machine_map_event_cgb.bin"
+
+IshiharaTilemap::
+	db $14 ; width
+	db $18 ; height
+	dw IshiharaPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/ishihara.bin"
+IshiharaPermissions:
+	INCBIN "data/maps/permissions/ishihara.bin"
+
+IshiharaCGBTilemap::
+	db $14 ; width
+	db $18 ; height
+	dw IshiharaCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/ishihara_cgb.bin"
+IshiharaCGBPermissions:
+	INCBIN "data/maps/permissions/ishihara_cgb.bin"
+
+FightingClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw FightingClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/fighting_club_entrance.bin"
+FightingClubEntrancePermissions:
+	INCBIN "data/maps/permissions/fighting_club_entrance.bin"
+
+FightingClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw FightingClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/fighting_club_entrance_cgb.bin"
+FightingClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/fighting_club_entrance_cgb.bin"
+
+RockClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw RockClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/rock_club_entrance.bin"
+RockClubEntrancePermissions:
+	INCBIN "data/maps/permissions/rock_club_entrance.bin"
+
+RockClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw RockClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/rock_club_entrance_cgb.bin"
+RockClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/rock_club_entrance_cgb.bin"
+
+WaterClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw WaterClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/water_club_entrance.bin"
+WaterClubEntrancePermissions:
+	INCBIN "data/maps/permissions/water_club_entrance.bin"
+
+WaterClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw WaterClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/water_club_entrance_cgb.bin"
+WaterClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/water_club_entrance_cgb.bin"
+
+LightningClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw LightningClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/lightning_club_entrance.bin"
+LightningClubEntrancePermissions:
+	INCBIN "data/maps/permissions/lightning_club_entrance.bin"
+
+LightningClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw LightningClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/lightning_club_entrance_cgb.bin"
+LightningClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/lightning_club_entrance_cgb.bin"
+
+GrassClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw GrassClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/grass_club_entrance.bin"
+GrassClubEntrancePermissions:
+	INCBIN "data/maps/permissions/grass_club_entrance.bin"
+
+GrassClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw GrassClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/grass_club_entrance_cgb.bin"
+GrassClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/grass_club_entrance_cgb.bin"
+
+PsychicClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw PsychicClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/psychic_club_entrance.bin"
+PsychicClubEntrancePermissions:
+	INCBIN "data/maps/permissions/psychic_club_entrance.bin"
+
+PsychicClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw PsychicClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/psychic_club_entrance_cgb.bin"
+PsychicClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/psychic_club_entrance_cgb.bin"
+
+ScienceClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw ScienceClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/science_club_entrance.bin"
+ScienceClubEntrancePermissions:
+	INCBIN "data/maps/permissions/science_club_entrance.bin"
+
+ScienceClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw ScienceClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/science_club_entrance_cgb.bin"
+ScienceClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/science_club_entrance_cgb.bin"
+
+FireClubEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw FireClubEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/fire_club_entrance.bin"
+FireClubEntrancePermissions:
+	INCBIN "data/maps/permissions/fire_club_entrance.bin"
+
+FireClubEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw FireClubEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/fire_club_entrance_cgb.bin"
+FireClubEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/fire_club_entrance_cgb.bin"
+
+ChallengeHallEntranceTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw ChallengeHallEntrancePermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/challenge_hall_entrance.bin"
+ChallengeHallEntrancePermissions:
+	INCBIN "data/maps/permissions/challenge_hall_entrance.bin"
+
+ChallengeHallEntranceCGBTilemap::
+	db $14 ; width
+	db $12 ; height
+	dw ChallengeHallEntranceCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/challenge_hall_entrance_cgb.bin"
+ChallengeHallEntranceCGBPermissions:
+	INCBIN "data/maps/permissions/challenge_hall_entrance_cgb.bin"
+
+ClubLobbyTilemap::
+	db $1c ; width
+	db $1a ; height
+	dw ClubLobbyPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/club_lobby.bin"
+ClubLobbyPermissions:
+	INCBIN "data/maps/permissions/club_lobby.bin"
+
+ClubLobbyCGBTilemap::
+	db $1c ; width
+	db $1a ; height
+	dw ClubLobbyCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/club_lobby_cgb.bin"
+ClubLobbyCGBPermissions:
+	INCBIN "data/maps/permissions/club_lobby_cgb.bin"
+
+FightingClubTilemap::
+	db $18 ; width
+	db $12 ; height
+	dw FightingClubPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/fighting_club.bin"
+FightingClubPermissions:
+	INCBIN "data/maps/permissions/fighting_club.bin"
+
+FightingClubCGBTilemap::
+	db $18 ; width
+	db $12 ; height
+	dw FightingClubCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/fighting_club_cgb.bin"
+FightingClubCGBPermissions:
+	INCBIN "data/maps/permissions/fighting_club_cgb.bin"
+
+RockClubTilemap::
+	db $1c ; width
+	db $1e ; height
+	dw RockClubPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/rock_club.bin"
+RockClubPermissions:
+	INCBIN "data/maps/permissions/rock_club.bin"
+
+RockClubCGBTilemap::
+	db $1c ; width
+	db $1e ; height
+	dw RockClubCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/rock_club_cgb.bin"
+RockClubCGBPermissions:
+	INCBIN "data/maps/permissions/rock_club_cgb.bin"
+
+PokemonDomeDoorMapEventTilemap::
+	db $04 ; width
+	db $03 ; height
+	dw PokemonDomeDoorMapEventPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/pokemon_dome_door_map_event.bin"
+PokemonDomeDoorMapEventPermissions:
+	INCBIN "data/maps/permissions/pokemon_dome_door_map_event.bin"
+
+PokemonDomeDoorMapEventCGBTilemap::
+	db $04 ; width
+	db $03 ; height
+	dw PokemonDomeDoorMapEventCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/pokemon_dome_door_map_event_cgb.bin"
+PokemonDomeDoorMapEventCGBPermissions:
+	INCBIN "data/maps/permissions/pokemon_dome_door_map_event_cgb.bin"
+
+HallOfHonorDoorMapEventTilemap::
+	db $04 ; width
+	db $03 ; height
+	dw HallOfHonorDoorMapEventPermissions
+	db FALSE ; cgb mode
+	INCBIN "data/maps/tiles/hall_of_honor_door_map_event.bin"
+HallOfHonorDoorMapEventPermissions:
+	INCBIN "data/maps/permissions/hall_of_honor_door_map_event.bin"
+
+HallOfHonorDoorMapEventCGBTilemap::
+	db $04 ; width
+	db $03 ; height
+	dw HallOfHonorDoorMapEventCGBPermissions
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/hall_of_honor_door_map_event_cgb.bin"
+HallOfHonorDoorMapEventCGBPermissions:
+	INCBIN "data/maps/permissions/hall_of_honor_door_map_event_cgb.bin"
+
+GrassMedalTilemap::
+	db $03 ; width
+	db $03 ; height
+	dw NULL
+	db TRUE ; cgb mode
+	INCBIN "data/maps/tiles/grass_medal.bin"
+
+AnimData1::
+	frame_table AnimFrameTable0
+	frame_data 3, 16, 0, 0
+	frame_data 4, 16, 0, 0
+	frame_data 0, 0, 0, 0
+
+Palette110::
+	db $00, $00
diff --git a/src/data/sequences/credits_sequence.asm b/src/data/sequences/credits.asm
index cc7d267..cc7d267 100644
--- a/src/data/sequences/credits_sequence.asm
+++ b/src/data/sequences/credits.asm
diff --git a/src/data/sequences/intro.asm b/src/data/sequences/intro.asm
new file mode 100644
index 0000000..22aeea7
--- /dev/null
+++ b/src/data/sequences/intro.asm
@@ -0,0 +1,47 @@
+INCLUDE "macros/intro_sequence.asm"
+
+IntroSequence: ; 1d59d (7:559d)
+	intro_seq_load_charizard_scene
+	intro_seq_play_sfx SFX_58
+	intro_seq_set_orbs_coordinates IntroOrbCoordinates_CharizardScene
+	intro_seq_set_orbs_animations IntroOrbAnimations_CharizardScene
+	intro_seq_wait 44
+	intro_seq_fade_in
+	intro_seq_wait 44
+	intro_seq_fade_out
+	intro_seq_wait 30
+
+	intro_seq_load_scyther_scene
+	intro_seq_play_sfx SFX_58
+	intro_seq_set_orbs_coordinates IntroOrbCoordinates_ScytherScene
+	intro_seq_set_orbs_animations IntroOrbAnimations_ScytherScene
+	intro_seq_wait 44
+	intro_seq_fade_in
+	intro_seq_wait 44
+	intro_seq_fade_out
+	intro_seq_wait 30
+
+	intro_seq_load_aerodactyl_scene
+	intro_seq_play_sfx SFX_59
+	intro_seq_set_orbs_coordinates IntroOrbCoordinates_AerodactylScene
+	intro_seq_set_orbs_animations IntroOrbAnimations_AerodactylScene
+	intro_seq_wait 44
+	intro_seq_fade_in
+	intro_seq_wait 100
+	intro_seq_fade_out
+	intro_seq_wait 60
+
+	intro_seq_load_title_screen_scene
+	intro_seq_play_sfx SFX_5A
+	intro_seq_set_orbs_coordinates IntroOrbCoordinates_InitialTitleScreen
+	intro_seq_set_orbs_animations IntroOrbAnimations_InitialTitleScreen
+	intro_seq_wait_orbs_animation
+	intro_seq_fade_in
+	intro_seq_wait 16
+	intro_seq_play_sfx SFX_5B
+	intro_seq_set_orbs_coordinates IntroOrbCoordinates_InTitleScreen
+	intro_seq_set_orbs_animations IntroOrbAnimations_InTitleScreen
+	intro_seq_wait_sfx
+	intro_seq_play_title_screen_music
+	intro_seq_wait 60
+	intro_seq_end
diff --git a/src/data/sequences/opening_sequence.asm b/src/data/sequences/opening_sequence.asm
deleted file mode 100644
index a88bd4f..0000000
--- a/src/data/sequences/opening_sequence.asm
+++ /dev/null
@@ -1,47 +0,0 @@
-INCLUDE "macros/opening_sequence.asm"
-
-OpeningSequence: ; 1d59d (7:559d)
-	opening_seq_load_charizard_scene
-	opening_seq_play_sfx SFX_58
-	opening_seq_set_orbs_coordinates OpeningOrbCoordinates_CharizardScene
-	opening_seq_set_orbs_animations OpeningOrbAnimations_CharizardScene
-	opening_seq_wait 44
-	opening_seq_fade_in
-	opening_seq_wait 44
-	opening_seq_fade_out
-	opening_seq_wait 30
-
-	opening_seq_load_scyther_scene
-	opening_seq_play_sfx SFX_58
-	opening_seq_set_orbs_coordinates OpeningOrbCoordinates_ScytherScene
-	opening_seq_set_orbs_animations OpeningOrbAnimations_ScytherScene
-	opening_seq_wait 44
-	opening_seq_fade_in
-	opening_seq_wait 44
-	opening_seq_fade_out
-	opening_seq_wait 30
-
-	opening_seq_load_aerodactyl_scene
-	opening_seq_play_sfx SFX_59
-	opening_seq_set_orbs_coordinates OpeningOrbCoordinates_AerodactylScene
-	opening_seq_set_orbs_animations OpeningOrbAnimations_AerodactylScene
-	opening_seq_wait 44
-	opening_seq_fade_in
-	opening_seq_wait 100
-	opening_seq_fade_out
-	opening_seq_wait 60
-
-	opening_seq_load_title_screen_scene
-	opening_seq_play_sfx SFX_5A
-	opening_seq_set_orbs_coordinates OpeningOrbCoordinates_InitialTitleScreen
-	opening_seq_set_orbs_animations OpeningOrbAnimations_InitialTitleScreen
-	opening_seq_wait_orbs_animation
-	opening_seq_fade_in
-	opening_seq_wait 16
-	opening_seq_play_sfx SFX_5B
-	opening_seq_set_orbs_coordinates OpeningOrbCoordinates_InTitleScreen
-	opening_seq_set_orbs_animations OpeningOrbAnimations_InTitleScreen
-	opening_seq_wait_sfx
-	opening_seq_play_title_screen_music
-	opening_seq_wait 60
-	opening_seq_end
diff --git a/src/engine/auto_deck_machines.asm b/src/engine/auto_deck_machines.asm
new file mode 100644
index 0000000..0f84cef
--- /dev/null
+++ b/src/engine/auto_deck_machines.asm
@@ -0,0 +1,191 @@
+INCLUDE "data/auto_deck_card_lists.asm"
+INCLUDE "data/auto_deck_machines.asm"
+
+; writes to sAutoDecks all the deck configurations
+; from the Auto Deck Machine in wCurAutoDeckMachine
+ReadAutoDeckConfiguration:
+	call EnableSRAM
+	ld a, [wCurAutoDeckMachine]
+	ld l, a
+	ld h, 6 * NUM_DECK_MACHINE_SLOTS
+	call HtimesL
+	ld bc, AutoDeckMachineEntries
+	add hl, bc
+	ld b, 0
+.loop_decks
+	call .GetPointerToSRAMAutoDeck
+	call .ReadDeckConfiguration
+	call .ReadDeckName
+
+	; store deck description text ID
+	push hl
+	ld de, wAutoDeckMachineTextDescriptions
+	ld h, b
+	ld l, 2
+	call HtimesL
+	add hl, de
+	ld d, h
+	ld e, l
+	pop hl
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hli]
+	ld [de], a
+	inc b
+	ld a, b
+	cp NUM_DECK_MACHINE_SLOTS
+	jr nz, .loop_decks
+	call DisableSRAM
+	ret
+
+; outputs in de the saved deck with index b
+.GetPointerToSRAMAutoDeck
+	push hl
+	ld l, b
+	ld h, DECK_STRUCT_SIZE
+	call HtimesL
+	ld de, sAutoDecks
+	add hl, de
+	ld d, h
+	ld e, l
+	pop hl
+	ret
+
+; writes the deck configuration in SRAM
+; by reading the given deck card list
+.ReadDeckConfiguration
+	push hl
+	push bc
+	push de
+	push de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	pop hl
+	ld bc, DECK_NAME_SIZE
+	add hl, bc
+.loop_create_deck
+	ld a, [de]
+	inc de
+	ld b, a ; card count
+	or a
+	jr z, .done_create_deck
+	ld a, [de]
+	inc de
+	ld c, a ; card ID
+.loop_card_count
+	ld [hl], c
+	inc hl
+	dec b
+	jr nz, .loop_card_count
+	jr .loop_create_deck
+.done_create_deck
+	pop de
+	pop bc
+	pop hl
+	inc hl
+	inc hl
+	ret
+
+.ReadDeckName
+	push hl
+	push bc
+	push de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, wDismantledDeckName
+	call CopyText
+	pop hl
+	ld de, wDismantledDeckName
+.loop_copy_name
+	ld a, [de]
+	ld [hli], a
+	or a
+	jr z, .done_copy_name
+	inc de
+	jr .loop_copy_name
+.done_copy_name
+	pop bc
+	pop hl
+	inc hl
+	inc hl
+	ret
+
+; tries out all combinations of dismantling the player's decks
+; in order to build the deck in wSelectedDeckMachineEntry
+; if none of the combinations work, return carry set
+; otherwise, return in a which deck flags should be dismantled
+CheckWhichDecksToDismantleToBuildSavedDeck:
+	xor a
+	ld [wDecksToBeDismantled], a
+
+; first check if it can be built by
+; only dismantling a single deck
+	ld a, DECK_1
+.loop_single_built_decks
+	call .CheckIfCanBuild
+	ret nc
+	sla a ; next deck
+	cp (1 << NUM_DECKS)
+	jr z, .two_deck_combinations
+	jr .loop_single_built_decks
+
+.two_deck_combinations
+; next check all two deck combinations
+	ld a, DECK_1 | DECK_2
+	call .CheckIfCanBuild
+	ret nc
+	ld a, DECK_1 | DECK_3
+	call .CheckIfCanBuild
+	ret nc
+	ld a, DECK_1 | DECK_4
+	call .CheckIfCanBuild
+	ret nc
+	ld a, DECK_2 | DECK_3
+	call .CheckIfCanBuild
+	ret nc
+	ld a, DECK_2 | DECK_4
+	call .CheckIfCanBuild
+	ret nc
+	ld a, DECK_3 | DECK_4
+	call .CheckIfCanBuild
+	ret nc
+
+; all but one deck combinations
+	ld a, $ff ^ DECK_4
+.loop_three_deck_combinations
+	call .CheckIfCanBuild
+	ret nc
+	sra a
+	cp $ff
+	jr z, .all_decks
+	jr .loop_three_deck_combinations
+
+.all_decks
+; finally check if can be built by dismantling all decks
+	call .CheckIfCanBuild
+	ret nc
+
+; none of the combinations work
+	scf
+	ret
+
+; returns carry if wSelectedDeckMachineEntry cannot be built
+; by dismantling the decks given by register a
+; a = DECK_* flags
+.CheckIfCanBuild
+	push af
+	ld hl, wSelectedDeckMachineEntry
+	ld b, [hl]
+	farcall CheckIfCanBuildSavedDeck
+	jr c, .cannot_build
+	pop af
+	ld [wDecksToBeDismantled], a
+	or a
+	ret
+.cannot_build
+	pop af
+	scf
+	ret
diff --git a/src/engine/bank04.asm b/src/engine/bank04.asm
index 5781e73..add4bb3 100644
--- a/src/engine/bank04.asm
+++ b/src/engine/bank04.asm
@@ -5255,7 +5255,7 @@ Unknown_127fb: ; 127fb (4:67fb)
 	db BOOSTER_ENERGY_LIGHTNING_FIRE
 
 DebugCredits: ; 12800 (4:6800)
-	farcall Credits_1d6ad
+	farcall PlayCreditsSequence
 	scf
 	ret
 
@@ -5337,7 +5337,7 @@ Func_12871: ; 12871 (4:6871)
 	ldh [hSCY], a
 	ldh [hWX], a
 	ldh [hWY], a
-	call Set_WD_off
+	call SetWindowOff
 	ret
 
 Func_1288c: ; 1288c (4:688c)
diff --git a/src/engine/bank06.asm b/src/engine/bank06.asm
deleted file mode 100644
index fa181f3..0000000
--- a/src/engine/bank06.asm
+++ /dev/null
@@ -1,5974 +0,0 @@
-; copy the name and level of the card at wLoadedCard1 to wDefaultText
-; a = length in number of tiles (the resulting string will be padded with spaces to match it)
-_CopyCardNameAndLevel: ; 18000 (6:4000)
-	push bc
-	push de
-	ld [wCardNameLength], a
-	ld hl, wLoadedCard1Name
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld de, wDefaultText
-	push de
-	call CopyText ; copy card name to wDefaultText
-	pop hl
-	ld a, [hli]
-	cp TX_HALFWIDTH
-	jp z, _CopyCardNameAndLevel_HalfwidthText
-
-; the name doesn't start with TX_HALFWIDTH
-; this doesn't appear to be ever the case (unless caller manipulates wLoadedCard1Name)
-	ld a, [wCardNameLength]
-	ld c, a
-	ld a, [wLoadedCard1Type]
-	cp TYPE_ENERGY
-	jr nc, .level_done ; jump if energy or trainer
-	ld a, [wLoadedCard1Level]
-	or a
-	jr z, .level_done
-	inc c
-	inc c
-	ld a, [wLoadedCard1Level]
-	cp 10
-	jr c, .level_done
-	inc c ; second digit
-.level_done
-	ld hl, wLoadedCard1Name
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld de, wDefaultText
-	push de
-	call CopyText
-	pop hl
-	push de
-	ld e, c
-	call GetTextLengthInTiles
-	add e
-	ld c, a
-	pop hl
-	push hl
-.fill_loop
-	ld a, $70
-	ld [hli], a
-	dec c
-	jr nz, .fill_loop
-	ld [hl], TX_END
-	pop hl
-	ld a, [wLoadedCard1Type]
-	cp TYPE_ENERGY
-	jr nc, .done
-	ld a, [wLoadedCard1Level]
-	or a
-	jr z, .done
-	ld a, TX_SYMBOL
-	ld [hli], a
-	ld [hl], SYM_Lv
-	inc hl
-	ld a, [wLoadedCard1Level]
-	cp 10
-	jr c, .one_digit
-	ld [hl], TX_SYMBOL
-	inc hl
-	ld b, SYM_0 - 1
-.first_digit_loop
-	inc b
-	sub 10
-	jr nc, .first_digit_loop
-	add 10
-	ld [hl], b ; first digit
-	inc hl
-.one_digit
-	ld [hl], TX_SYMBOL
-	inc hl
-	add SYM_0
-	ld [hl], a ; last (or only) digit
-	inc hl
-.done
-	pop de
-	pop bc
-	ret
-
-; the name starts with TX_HALFWIDTH
-_CopyCardNameAndLevel_HalfwidthText: ; 18086 (6:4086)
-	ld a, [wCardNameLength]
-	inc a
-	add a
-	ld b, a
-	ld hl, wDefaultText
-.find_end_text_loop
-	dec b
-	ld a, [hli]
-	or a ; TX_END
-	jr nz, .find_end_text_loop
-	dec hl
-	ld a, [wLoadedCard1Type]
-	cp TYPE_ENERGY
-	jr nc, .level_done
-	ld a, [wLoadedCard1Level]
-	or a
-	jr z, .level_done
-	ld c, a
-	ld a, " "
-	ld [hli], a
-	dec b
-	ld a, "L"
-	ld [hli], a
-	dec b
-	ld a, "v"
-	ld [hli], a
-	dec b
-	ld a, c
-	cp 10
-	jr c, .got_level
-	push bc
-	ld b, "0" - 1
-.first_digit_loop
-	inc b
-	sub 10
-	jr nc, .first_digit_loop
-	add 10
-	ld [hl], b ; first digit
-	inc hl
-	pop bc
-	ld c, a
-	dec b
-.got_level
-	ld a, c
-	add "0"
-	ld [hli], a ; last (or only) digit
-	dec b
-.level_done
-	push hl
-	ld a, " "
-.fill_spaces_loop
-	ld [hli], a
-	dec b
-	jr nz, .fill_spaces_loop
-	ld [hl], TX_END
-	pop hl
-	pop de
-	pop bc
-	ret
-
-; this function is called when the player is shown the "In Play Area" screen.
-; it can be called with either the select button (DuelMenuShortcut_BothActivePokemon),
-; or via the "In Play Area" item of the Check menu (DuelCheckMenu_InPlayArea)
-OpenInPlayAreaScreen: ; 180d5 (6:40d5)
-	ld a, INPLAYAREA_PLAYER_ACTIVE
-	ld [wInPlayAreaCurPosition], a
-.start
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-	farcall DrawInPlayAreaScreen
-	call EnableLCD
-	call IsClairvoyanceActive
-	jr c, .clairvoyance_on
-
-	ld de, OpenInPlayAreaScreen_TransitionTable1
-	jr .clairvoyance_off
-
-.clairvoyance_on
-	ld de, OpenInPlayAreaScreen_TransitionTable2
-.clairvoyance_off
-	ld hl, wMenuInputTablePointer
-	ld [hl], e
-	inc hl
-	ld [hl], d
-	ld a, [wInPlayAreaCurPosition]
-	call .print_associated_text
-.on_frame
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call DoFrame
-
-	ldh a, [hDPadHeld]
-	and START
-	jr nz, .selection
-
-	; if this function's been called from 'select' button,
-	; wInPlayAreaFromSelectButton is on.
-	ld a, [wInPlayAreaFromSelectButton]
-	or a
-	jr z, .handle_input ; if it's from the Check menu, jump.
-
-	ldh a, [hDPadHeld]
-	and SELECT
-	jr nz, .skip_input
-
-.handle_input
-	ld a, [wInPlayAreaCurPosition]
-	ld [wInPlayAreaTemporaryPosition], a
-	call OpenInPlayAreaScreen_HandleInput
-	jr c, .pressed
-
-	ld a, [wInPlayAreaCurPosition]
-	cp INPLAYAREA_PLAYER_PLAY_AREA
-	jp z, .show_turn_holder_play_area
-	cp INPLAYAREA_OPP_PLAY_AREA
-	jp z, .show_non_turn_holder_play_area
-
-	; check if the cursor moved.
-	ld hl, wInPlayAreaTemporaryPosition
-	cp [hl]
-	call nz, .print_associated_text
-
-	jr .on_frame
-
-.pressed
-	cp -1
-	jr nz, .selection
-
-	; pressed b button.
-	call ZeroObjectPositionsAndToggleOAMCopy_Bank6
-	lb de, $38, $9f
-	call SetupText
-	scf
-	ret
-
-.skip_input
-	call ZeroObjectPositionsAndToggleOAMCopy_Bank6
-	lb de, $38, $9f
-	call SetupText
-	or a
-	ret
-
-.selection ; pressed a button or start button.
-	call ZeroObjectPositionsAndToggleOAMCopy_Bank6
-	lb de, $38, $9f
-	call SetupText
-	ld a, [wInPlayAreaCurPosition]
-	ld [wInPlayAreaPreservedPosition], a
-	ld hl, .jump_table
-	call JumpToFunctionInTable
-	ld a, [wInPlayAreaPreservedPosition]
-	ld [wInPlayAreaCurPosition], a
-
-	jp .start
-
-.print_associated_text ; 18171 (6:4171)
-; each position has a text associated to it,
-; which is printed at the bottom of the screen
-	push af
-	lb de, 1, 17
-	call InitTextPrinting
-	ldtx hl, EmptyLineText
-	call ProcessTextFromID
-
-	ld hl, hffb0
-	ld [hl], $01
-	ldtx hl, HandText_2
-	call ProcessTextFromID
-
-	ld hl, hffb0
-	ld [hl], $00
-	lb de, 1, 17
-	call InitTextPrinting
-	pop af
-	ld hl, OpenInPlayAreaScreen_TextTable
-	ld b, 0
-	sla a
-	ld c, a
-	add hl, bc
-
-	; hl = OpenInPlayAreaScreen_TextTable + 2 * (wInPlayAreaCurPosition)
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld a, h
-
-	; jump ahead if entry does not contain null text (it's not active pokemon)
-	or a
-	jr nz, .print_hand_or_discard_pile
-
-	ld a, l
-	; bench slots have dummy text IDs assigned to them, which are never used.
-	; these are secretly not text id's, but rather, 2-byte PLAY_AREA_BENCH_* constants
-	; check if the value at register l is one of those, and jump ahead if not
-	cp PLAY_AREA_BENCH_5 + $01
-	jr nc, .print_hand_or_discard_pile
-
-; if we make it here, we need to print a Pokemon card name.
-; wInPlayAreaCurPosition determines which duelist
-; and l contains the PLAY_AREA_* location of the card.
-	ld a, [wInPlayAreaCurPosition]
-	cp INPLAYAREA_PLAYER_HAND
-	jr nc, .opponent_side
-
-	ld a, l
-	add DUELVARS_ARENA_CARD
-	call GetTurnDuelistVariable
-	cp -1
-	ret z
-
-	call GetCardIDFromDeckIndex
-	call LoadCardDataToBuffer1_FromCardID
-	jr .display_card_name
-
-.opponent_side
-	ld a, l
-	add DUELVARS_ARENA_CARD
-	call GetNonTurnDuelistVariable
-	cp -1
-	ret z
-
-	call SwapTurn
-	call GetCardIDFromDeckIndex
-	call LoadCardDataToBuffer1_FromCardID
-	call SwapTurn
-
-.display_card_name
-	ld a, 18
-	call CopyCardNameAndLevel
-	ld hl, wDefaultText
-	call ProcessText
-	ret
-
-.print_hand_or_discard_pile
-; if we make it here, cursor position is to Hand or Discard Pile
-; so DuelistHandText_2 or DuelistDiscardPileText will be printed
-
-	ld a, [wInPlayAreaCurPosition]
-	cp INPLAYAREA_OPP_ACTIVE
-	jr nc, .opp_side_print_hand_or_discard_pile
-	call PrintTextNoDelay
-	ret
-
-.opp_side_print_hand_or_discard_pile
-	call SwapTurn
-	call PrintTextNoDelay
-	call SwapTurn
-	ret
-
-.show_turn_holder_play_area
-	lb de, $38, $9f
-	call SetupText
-	ldh a, [hWhoseTurn]
-	push af
-	bank1call OpenTurnHolderPlayAreaScreen
-	pop af
-	ldh [hWhoseTurn], a
-	ld a, [wInPlayAreaPreservedPosition]
-	ld [wInPlayAreaCurPosition], a
-	jp .start
-
-.show_non_turn_holder_play_area
-	lb de, $38, $9f
-	call SetupText
-	ldh a, [hWhoseTurn]
-	push af
-	bank1call OpenNonTurnHolderPlayAreaScreen
-	pop af
-	ldh [hWhoseTurn], a
-	ld a, [wInPlayAreaPreservedPosition]
-	ld [wInPlayAreaCurPosition], a
-	jp .start
-
-.jump_table ; (6:4228)
-	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x00: INPLAYAREA_PLAYER_BENCH_1
-	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x01: INPLAYAREA_PLAYER_BENCH_2
-	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x02: INPLAYAREA_PLAYER_BENCH_3
-	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x03: INPLAYAREA_PLAYER_BENCH_4
-	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x04: INPLAYAREA_PLAYER_BENCH_5
-	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x05: INPLAYAREA_PLAYER_ACTIVE
-	dw OpenInPlayAreaScreen_TurnHolderHand           ; 0x06: INPLAYAREA_PLAYER_HAND
-	dw OpenInPlayAreaScreen_TurnHolderDiscardPile    ; 0x07: INPLAYAREA_PLAYER_DISCARD_PILE
-	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x08: INPLAYAREA_OPP_ACTIVE
-	dw OpenInPlayAreaScreen_NonTurnHolderHand        ; 0x09: INPLAYAREA_OPP_HAND
-	dw OpenInPlayAreaScreen_NonTurnHolderDiscardPile ; 0x0a: INPLAYAREA_OPP_DISCARD_PILE
-	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0b: INPLAYAREA_OPP_BENCH_1
-	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0c: INPLAYAREA_OPP_BENCH_2
-	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0d: INPLAYAREA_OPP_BENCH_3
-	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0e: INPLAYAREA_OPP_BENCH_4
-	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0f: INPLAYAREA_OPP_BENCH_5
-
-OpenInPlayAreaScreen_TurnHolderPlayArea: ; 18248 (6:4248)
-	; wInPlayAreaCurPosition constants conveniently map to (PLAY_AREA_* constants - 1)
-	; for bench locations. this mapping is taken for granted in the following code.
-	ld a, [wInPlayAreaCurPosition]
-	inc a
-	cp INPLAYAREA_PLAYER_ACTIVE + $01
-	jr nz, .on_bench
-	xor a ; PLAY_AREA_ARENA
-.on_bench
-	ld [wCurPlayAreaSlot], a
-	add DUELVARS_ARENA_CARD
-	call GetTurnDuelistVariable
-	cp -1
-	ret z
-	call GetCardIDFromDeckIndex
-	call LoadCardDataToBuffer1_FromCardID
-	xor a
-	ld [wCurPlayAreaY], a
-	bank1call OpenCardPage_FromCheckPlayArea
-	ret
-
-OpenInPlayAreaScreen_NonTurnHolderPlayArea: ; 1826a (6:426a)
-	ld a, [wInPlayAreaCurPosition]
-	sub INPLAYAREA_OPP_ACTIVE
-	or a
-	jr z, .active
-	; convert INPLAYAREA_OPP_BENCH_* constant to PLAY_AREA_BENCH_* constant
-	sub INPLAYAREA_OPP_BENCH_1 - INPLAYAREA_OPP_ACTIVE - PLAY_AREA_BENCH_1
-.active
-	ld [wCurPlayAreaSlot], a
-	add DUELVARS_ARENA_CARD
-	call GetNonTurnDuelistVariable
-	cp -1
-	ret z
-	call SwapTurn
-	call GetCardIDFromDeckIndex
-	call LoadCardDataToBuffer1_FromCardID
-	xor a
-	ld [wCurPlayAreaY], a
-	bank1call OpenCardPage_FromCheckPlayArea
-	call SwapTurn
-	ret
-
-OpenInPlayAreaScreen_TurnHolderHand: ; 18293 (6:4293)
-	ldh a, [hWhoseTurn]
-	push af
-	bank1call OpenTurnHolderHandScreen_Simple
-	pop af
-	ldh [hWhoseTurn], a
-	ret
-
-OpenInPlayAreaScreen_NonTurnHolderHand: ; 1829d (6:429d)
-	ldh a, [hWhoseTurn]
-	push af
-	bank1call OpenNonTurnHolderHandScreen_Simple
-	pop af
-	ldh [hWhoseTurn], a
-	ret
-
-OpenInPlayAreaScreen_TurnHolderDiscardPile: ; 182a7 (6:42a7)
-	ldh a, [hWhoseTurn]
-	push af
-	bank1call OpenTurnHolderDiscardPileScreen
-	pop af
-	ldh [hWhoseTurn], a
-	ret
-
-OpenInPlayAreaScreen_NonTurnHolderDiscardPile: ; 182b1 (6:42b1)
-	ldh a, [hWhoseTurn]
-	push af
-	bank1call OpenNonTurnHolderDiscardPileScreen
-	pop af
-	ldh [hWhoseTurn], a
-	ret
-
-OpenInPlayAreaScreen_TextTable:
-; note that for bench slots, the entries are
-; PLAY_AREA_BENCH_* constants in practice
-	tx HandText               ; INPLAYAREA_PLAYER_BENCH_1
-	tx CheckText              ; INPLAYAREA_PLAYER_BENCH_2
-	tx AttackText             ; INPLAYAREA_PLAYER_BENCH_3
-	tx PKMNPowerText          ; INPLAYAREA_PLAYER_BENCH_4
-	tx DoneText               ; INPLAYAREA_PLAYER_BENCH_5
-	dw NULL                   ; INPLAYAREA_PLAYER_ACTIVE
-	tx DuelistHandText_2      ; INPLAYAREA_PLAYER_HAND
-	tx DuelistDiscardPileText ; INPLAYAREA_PLAYER_DISCARD_PILE
-	dw NULL                   ; INPLAYAREA_OPP_ACTIVE
-	tx DuelistHandText_2      ; INPLAYAREA_OPP_HAND
-	tx DuelistDiscardPileText ; INPLAYAREA_OPP_DISCARD_PILE
-	tx HandText               ; INPLAYAREA_OPP_BENCH_1
-	tx CheckText              ; INPLAYAREA_OPP_BENCH_2
-	tx AttackText             ; INPLAYAREA_OPP_BENCH_3
-	tx PKMNPowerText          ; INPLAYAREA_OPP_BENCH_4
-	tx DoneText               ; INPLAYAREA_OPP_BENCH_5
-
-in_play_area_cursor_transition: MACRO
-	cursor_transition \1, \2, \3, INPLAYAREA_\4, INPLAYAREA_\5, INPLAYAREA_\6, INPLAYAREA_\7
-ENDM
-
-; 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:
-	in_play_area_cursor_transition $18, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_2, PLAYER_BENCH_5
-	in_play_area_cursor_transition $30, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_3, PLAYER_BENCH_1
-	in_play_area_cursor_transition $48, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_4, PLAYER_BENCH_2
-	in_play_area_cursor_transition $60, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_5, PLAYER_BENCH_3
-	in_play_area_cursor_transition $78, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_1, PLAYER_BENCH_4
-	in_play_area_cursor_transition $30, $6c, $00,             OPP_ACTIVE, PLAYER_BENCH_1, PLAYER_DISCARD_PILE, PLAYER_DISCARD_PILE
-	in_play_area_cursor_transition $78, $80, $00,             PLAYER_DISCARD_PILE, PLAYER_BENCH_1, PLAYER_ACTIVE, PLAYER_ACTIVE
-	in_play_area_cursor_transition $78, $70, $00,             OPP_ACTIVE, PLAYER_HAND, PLAYER_ACTIVE, PLAYER_ACTIVE
-	in_play_area_cursor_transition $78, $34, 1 << OAM_X_FLIP, OPP_BENCH_1, PLAYER_ACTIVE, OPP_DISCARD_PILE, OPP_DISCARD_PILE
-	in_play_area_cursor_transition $30, $20, 1 << OAM_X_FLIP, OPP_BENCH_1, OPP_DISCARD_PILE, OPP_ACTIVE, OPP_ACTIVE
-	in_play_area_cursor_transition $30, $38, 1 << OAM_X_FLIP, OPP_BENCH_1, PLAYER_ACTIVE, OPP_ACTIVE, OPP_ACTIVE
-	in_play_area_cursor_transition $90, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_5, OPP_BENCH_2
-	in_play_area_cursor_transition $78, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_1, OPP_BENCH_3
-	in_play_area_cursor_transition $60, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_2, OPP_BENCH_4
-	in_play_area_cursor_transition $48, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_3, OPP_BENCH_5
-	in_play_area_cursor_transition $30, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_4, OPP_BENCH_1
-
-OpenInPlayAreaScreen_TransitionTable2:
-	in_play_area_cursor_transition $18, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_2, PLAYER_BENCH_5
-	in_play_area_cursor_transition $30, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_3, PLAYER_BENCH_1
-	in_play_area_cursor_transition $48, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_4, PLAYER_BENCH_2
-	in_play_area_cursor_transition $60, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_5, PLAYER_BENCH_3
-	in_play_area_cursor_transition $78, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_1, PLAYER_BENCH_4
-	in_play_area_cursor_transition $30, $6c, $00,             OPP_ACTIVE, PLAYER_BENCH_1, PLAYER_DISCARD_PILE, PLAYER_DISCARD_PILE
-	in_play_area_cursor_transition $78, $80, $00,             PLAYER_DISCARD_PILE, PLAYER_BENCH_1, PLAYER_ACTIVE, PLAYER_ACTIVE
-	in_play_area_cursor_transition $78, $70, $00,             OPP_ACTIVE, PLAYER_HAND, PLAYER_ACTIVE, PLAYER_ACTIVE
-	in_play_area_cursor_transition $78, $34, 1 << OAM_X_FLIP, OPP_BENCH_1, PLAYER_ACTIVE, OPP_DISCARD_PILE, OPP_DISCARD_PILE
-	in_play_area_cursor_transition $30, $20, 1 << OAM_X_FLIP, OPP_BENCH_1, OPP_DISCARD_PILE, OPP_ACTIVE, OPP_ACTIVE
-	in_play_area_cursor_transition $30, $38, 1 << OAM_X_FLIP, OPP_HAND, PLAYER_ACTIVE, OPP_ACTIVE, OPP_ACTIVE
-	in_play_area_cursor_transition $90, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_5, OPP_BENCH_2
-	in_play_area_cursor_transition $78, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_1, OPP_BENCH_3
-	in_play_area_cursor_transition $60, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_2, OPP_BENCH_4
-	in_play_area_cursor_transition $48, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_3, OPP_BENCH_5
-	in_play_area_cursor_transition $30, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_4, OPP_BENCH_1
-
-OpenInPlayAreaScreen_HandleInput: ; 183bb (6:43bb)
-	xor a
-	ld [wPlaysSfx], a
-	ld hl, wMenuInputTablePointer
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	ld a, [wInPlayAreaCurPosition]
-	ld l, a
-	ld h, $07
-	call HtimesL
-	add hl, de
-
-	ldh a, [hDPadHeld]
-	or a
-	jp z, .check_button
-
-	inc hl
-	inc hl
-	inc hl
-
-	; check d-pad
-	bit D_UP_F, a
-	jr z, .else_if_down
-
-	; up
-	ld a, [hl]
-	jr .process_dpad
-
-.else_if_down
-	inc hl
-	bit D_DOWN_F, a
-	jr z, .else_if_right
-
-	; down
-	ld a, [hl]
-	jr .process_dpad
-
-.else_if_right
-	inc hl
-	bit D_RIGHT_F, a
-	jr z, .else_if_left
-
-	; right
-	ld a, [hl]
-	jr .process_dpad
-
-.else_if_left
-	inc hl
-	bit D_LEFT_F, a
-	jr z, .check_button
-
-	; left
-	ld a, [hl]
-.process_dpad
-	push af
-	ld a, [wInPlayAreaCurPosition]
-	ld [wInPlayAreaPreservedPosition], a
-	pop af
-
-	ld [wInPlayAreaCurPosition], a
-	cp INPLAYAREA_PLAYER_ACTIVE
-	jr c, .player_area
-	cp INPLAYAREA_OPP_BENCH_1
-	jr c, .next
-	cp INPLAYAREA_PLAYER_PLAY_AREA
-	jr c, .opponent_area
-
-	jr .next
-
-.player_area
-	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
-	call GetTurnDuelistVariable
-	dec a
-	jr nz, .bench_pokemon_exists
-
-	; no pokemon in player's bench.
-	; then move to player's play area.
-	ld a, INPLAYAREA_PLAYER_PLAY_AREA
-	ld [wInPlayAreaCurPosition], a
-	jr .next
-
-.bench_pokemon_exists
-	ld b, a
-	ld a, [wInPlayAreaCurPosition]
-	cp b
-	jr c, .next
-
-	; handle index overflow
-	ldh a, [hDPadHeld]
-	bit D_RIGHT_F, a
-	jr z, .on_left
-
-	xor a
-	ld [wInPlayAreaCurPosition], a
-	jr .next
-
-.on_left
-	ld a, b
-	dec a
-	ld [wInPlayAreaCurPosition], a
-	jr .next
-
-.opponent_area
-	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
-	call GetNonTurnDuelistVariable
-	dec a
-	jr nz, .bench_pokemon_exists_2
-
-	ld a, INPLAYAREA_OPP_PLAY_AREA
-	ld [wInPlayAreaCurPosition], a
-	jr .next
-
-.bench_pokemon_exists_2
-	ld b, a
-	ld a, [wInPlayAreaCurPosition]
-	sub INPLAYAREA_OPP_BENCH_1
-	cp b
-	jr c, .next
-
-	ldh a, [hDPadHeld]
-	bit D_LEFT_F, a
-	jr z, .on_right
-
-	ld a, INPLAYAREA_OPP_BENCH_1
-	ld [wInPlayAreaCurPosition], a
-	jr .next
-
-.on_right
-	ld a, b
-	add INPLAYAREA_OPP_DISCARD_PILE
-	ld [wInPlayAreaCurPosition], a
-.next
-	ld a, $01
-	ld [wPlaysSfx], a
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-.check_button
-	ldh a, [hKeysPressed]
-	and A_BUTTON | B_BUTTON
-	jr z, .return
-
-	and A_BUTTON
-	jr nz, .a_button
-
-	; pressed b button
-	ld a, -1
-	farcall PlaySFXConfirmOrCancel
-	scf
-	ret
-
-.a_button
-	call .draw_cursor
-	ld a, $01
-	farcall PlaySFXConfirmOrCancel
-	ld a, [wInPlayAreaCurPosition]
-	scf
-	ret
-
-.return
-	ld a, [wPlaysSfx]
-	or a
-	jr z, .skip_sfx
-	call PlaySFX
-.skip_sfx
-	ld hl, wCheckMenuCursorBlinkCounter
-	ld a, [hl]
-	inc [hl]
-	and $10 - 1
-	ret nz
-
-	bit 4, [hl] ; = and $10
-	jr nz, ZeroObjectPositionsAndToggleOAMCopy_Bank6
-
-.draw_cursor ; 184a0 (6:44a0)
-	call ZeroObjectPositions
-	ld hl, wMenuInputTablePointer
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	ld a, [wInPlayAreaCurPosition]
-	ld l, a
-	ld h, $07
-	call HtimesL
-	add hl, de
-
-	ld d, [hl] ; x position.
-	inc hl
-	ld e, [hl] ; y position.
-	inc hl
-	ld b, [hl] ; attribute.
-	ld c, $00
-	call SetOneObjectAttributes
-	or a
-	ret
-
-ZeroObjectPositionsAndToggleOAMCopy_Bank6: ; 184bf (6:44bf)
-	call ZeroObjectPositions
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	ret
-
-OpenGlossaryScreen: ; 184c8 (6:44c8)
-	xor a
-	ld [wGlossaryPageNo], a
-	call .display_menu
-
-	xor a
-	ld [wInPlayAreaCurPosition], a
-	ld de, OpenGlossaryScreen_TransitionTable ; this data is stored in bank 2.
-	ld hl, wMenuInputTablePointer
-	ld [hl], e
-	inc hl
-	ld [hl], d
-	ld a, $ff
-	ld [wDuelInitialPrizesUpperBitsSet], a
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-.next
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call DoFrame
-	ldh a, [hKeysPressed]
-	and SELECT
-	jr nz, .on_select
-
-	farcall YourOrOppPlayAreaScreen_HandleInput
-	jr nc, .next
-
-	cp -1 ; b button
-	jr nz, .check_button
-
-	farcall ZeroObjectPositionsWithCopyToggleOn
-	ret
-
-.check_button
-	push af
-	farcall ZeroObjectPositionsWithCopyToggleOn
-	pop af
-
-	cp $09 ; $09: next page or prev page
-	jr z, .change_page
-
-	call .print_description
-	call .display_menu
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-	jr .next
-
-.on_select
-	ld a, $01
-	farcall PlaySFXConfirmOrCancel
-.change_page
-	ld a, [wGlossaryPageNo]
-	xor $01 ; swap page
-	ld [wGlossaryPageNo], a
-	call .print_menu
-	jr .next
-
-; display glossary menu.
-.display_menu ; 1852b (6:452b)
-	xor a
-	ld [wTileMapFill], a
-	call ZeroObjectPositions
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call DoFrame
-	call EmptyScreen
-	call Set_OBJ_8x8
-	farcall LoadCursorTile
-
-	lb de, 5, 0
-	call InitTextPrinting
-	ldtx hl, PokemonCardGlossaryText
-	call ProcessTextFromID
-	call .print_menu
-	ldtx hl, ChooseWordAndPressAButtonText
-	call DrawWideTextBox_PrintText
-	ret
-
-; print texts in glossary menu.
-.print_menu ; 1855a (6:455a)
-	ld hl, wDefaultText
-
-	ld a, TX_SYMBOL
-	ld [hli], a
-
-	ld a, [wGlossaryPageNo]
-	add SYM_1
-	ld [hli], a
-
-	ld a, TX_SYMBOL
-	ld [hli], a
-
-	ld a, SYM_SLASH
-	ld [hli], a
-
-	ld a, TX_SYMBOL
-	ld [hli], a
-
-	ld a, SYM_2
-	ld [hli], a
-
-	ld [hl], TX_END
-
-	lb de, 16, 1
-	call InitTextPrinting
-	ld hl, wDefaultText
-	call ProcessText
-
-	lb de, 1, 3
-	call InitTextPrinting
-	ld a, [wGlossaryPageNo]
-	or a
-	jr nz, .page_two
-
-	ldtx hl, GlossaryMenuPage1Text
-	jr .page_one
-
-.page_two
-	ldtx hl, GlossaryMenuPage2Text
-.page_one
-	call ProcessTextFromID
-	ret
-
-; display glossary description.
-.print_description ; 18598 (6:4598)
-	push af
-	xor a
-	ld [wTileMapFill], a
-	call EmptyScreen
-	lb de, 5, 0
-	call InitTextPrinting
-	ldtx hl, PokemonCardGlossaryText
-	call ProcessTextFromID
-	lb de, 0, 4
-	lb bc, 20, 14
-	call DrawRegularTextBox
-
-	ld a, [wGlossaryPageNo]
-	or a
-	jr nz, .back_page
-
-	ld hl, GlossaryData1
-	jr .front_page
-
-.back_page
-	ld hl, GlossaryData2
-.front_page
-	pop af
-	; hl += (a + (a << 2)).
-	; that is,
-	; hl += (5 * a).
-	ld c, a
-	ld b, 0
-	add hl, bc
-	sla a
-	sla a
-	ld c, a
-	add hl, bc
-	ld a, [hli]
-	push hl
-	ld d, a
-	ld e, $02
-	call InitTextPrinting
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	call ProcessTextFromID
-	pop hl
-	lb de, 1, 5
-	call InitTextPrinting
-	inc hl
-	inc hl
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld a, $01
-	ld [wLineSeparation], a
-	call ProcessTextFromID
-	xor a
-	ld [wLineSeparation], a
-	call EnableLCD
-.loop
-	call DoFrame
-	ldh a, [hKeysPressed]
-	and B_BUTTON
-	jr z, .loop
-
-	ld a, -1
-	farcall PlaySFXConfirmOrCancel
-	ret
-
-; unit: 5 bytes.
-; [structure]
-; horizontal align (1) / title text id (2) / desc. text id (2)
-glossary_entry: MACRO
-	db \1
-	tx \2
-	tx \3
-ENDM
-
-GlossaryData1:
-	glossary_entry 7, AboutTheDeckText, DeckDescriptionText
-	glossary_entry 5, AboutTheDiscardPileText, DiscardPileDescriptionText
-	glossary_entry 7, AboutTheHandText, HandDescriptionText
-	glossary_entry 6, AboutTheArenaText, ArenaDescriptionText
-	glossary_entry 6, AboutTheBenchText, BenchDescriptionText
-	glossary_entry 4, AboutTheActivePokemonText, ActivePokemonDescriptionText
-	glossary_entry 5, AboutBenchPokemonText, BenchPokemonDescriptionText
-	glossary_entry 7, AboutPrizesText, PrizesDescriptionText
-	glossary_entry 5, AboutDamageCountersText, DamageCountersDescriptionText
-
-GlossaryData2:
-	glossary_entry 5, AboutEnergyCardsText, EnergyCardsDescriptionText
-	glossary_entry 5, AboutTrainerCardsText, TrainerCardsDescriptionText
-	glossary_entry 5, AboutBasicPokemonText, BasicPokemonDescriptionText
-	glossary_entry 5, AboutEvolutionCardsText, EvolutionCardsDescriptionText
-	glossary_entry 6, AboutAttackingText, AttackingDescriptionText
-	glossary_entry 5, AboutPokemonPowerText, PokemonPowerDescriptionText
-	glossary_entry 6, AboutWeaknessText, WeaknessDescriptionText
-	glossary_entry 6, AboutResistanceText, ResistanceDescriptionText
-	glossary_entry 6, AboutRetreatingText, RetreatingDescriptionText
-
-Func_18661: ; 18661 (6:4661)
-	xor a
-	ld [wPlaysSfx], a
-	ld a, [wCheckMenuCursorXPosition]
-	ld d, a
-	ld a, [wCheckMenuCursorYPosition]
-	ld e, a
-	ldh a, [hDPadHeld]
-	or a
-	jr z, .check_button
-; check input from dpad
-	bit D_LEFT_F, a
-	jr nz, .left_or_right
-	bit D_RIGHT_F, a
-	jr z, .check_up_and_down
-.left_or_right
-; swap the lsb of x position value.
-	ld a, d
-	xor $1
-	ld d, a
-	jr .cursor_moved
-
-.check_up_and_down
-	bit D_UP_F, a
-	jr nz, .up_or_down
-	bit D_DOWN_F, a
-	jr z, .check_button
-.up_or_down
-	ld a, e
-	xor $1
-	ld e, a
-.cursor_moved
-	ld a, $1
-	ld [wPlaysSfx], a
-	push de
-	call .draw_blank_cursor
-	pop de
-	ld a, d
-	ld [wCheckMenuCursorXPosition], a
-	ld a, e
-	ld [wCheckMenuCursorYPosition], a
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-.check_button
-	ldh a, [hKeysPressed]
-	and A_BUTTON | B_BUTTON
-	jr z, .check_cursor_moved
-	and A_BUTTON
-	jr nz, .a_button
-
-; b button
-	ld a, -1
-	call Func_190fb
-	scf
-	ret
-
-; a button
-.a_button
-	call .draw_cursor
-	ld a, 1
-	call Func_190fb
-	scf
-	ret
-
-.check_cursor_moved
-	ld a, [wPlaysSfx]
-	or a
-	jr z, .check_cursor_blink
-	call PlaySFX
-.check_cursor_blink
-	ld hl, wCheckMenuCursorBlinkCounter
-	ld a, [hl]
-	inc [hl]
-	and %00001111
-	ret nz
-	ld a, SYM_CURSOR_R
-	bit D_RIGHT_F, [hl]
-	jr z, .draw_tile
-.draw_blank_cursor ; 186d4 (6:46d4)
-	ld a, SYM_SPACE
-.draw_tile
-	ld e, a
-	ld a, 10
-	ld l, a
-	ld a, [wCheckMenuCursorXPosition]
-	ld h, a
-	call HtimesL
-	ld a, l
-	add 1
-	ld b, a
-	ld a, [wCheckMenuCursorYPosition]
-	sla a
-	add 14
-	ld c, a
-	ld a, e
-	; b = 11, c = y_pos * 2 + 14
-	; h = x_pos * 10, l = 10
-	call WriteByteToBGMap0
-	or a
-	ret
-.draw_cursor ; 186f3 (6:46f3)
-	ld a, SYM_CURSOR_R
-	jr .draw_tile
-
-INCLUDE "data/duel/effect_commands.asm"
-
-; reads the animation commands from PointerTable_AttackAnimation
-; of attack in wLoadedAttackAnimation and plays them
-PlayAttackAnimationCommands: ; 18f9c (6:4f9c)
-	ld a, [wLoadedAttackAnimation]
-	or a
-	ret z
-
-	ld l, a
-	ld h, 0
-	add hl, hl
-	ld de, PointerTable_AttackAnimation
-	add hl, de
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-
-	push de
-	ld hl, wce7e
-	ld a, [hl]
-	or a
-	jr nz, .read_command
-	ld [hl], $01
-	call Func_3b21
-	pop de
-
-	push de
-	ld a, DUEL_ANIM_SCREEN_MAIN_SCENE
-	ld [wDuelAnimationScreen], a
-	ld a, $01
-	ld [wd4b3], a
-	xor a
-	ld [wDuelAnimLocationParam], a
-	ld a, [de]
-	cp $04
-	jr z, .read_command
-	ld a, DUEL_ANIM_150
-	call PlayDuelAnimation
-.read_command
-	pop de
-	; fallthrough
-
-PlayAttackAnimationCommands_NextCommand: ; 18fd4 (6:4fd4)
-	ld a, [de]
-	inc de
-	ld hl, AnimationCommandPointerTable
-	jp JumpToFunctionInTable
-
-AnimationCommand_AnimEnd: ; 18fdc (6:4fdc)
-	ret
-
-AnimationCommand_AnimPlayer: ; 18fdd (6:4fdd)
-	ldh a, [hWhoseTurn]
-	ld [wDuelAnimDuelistSide], a
-	ld a, [wDuelType]
-	cp $00
-	jr nz, AnimationCommand_AnimNormal
-	ld a, PLAYER_TURN
-	ld [wDuelAnimDuelistSide], a
-	jr AnimationCommand_AnimNormal
-
-AnimationCommand_AnimOpponent: ; 18ff0 (6:4ff0)
-	call SwapTurn
-	ldh a, [hWhoseTurn]
-	ld [wDuelAnimDuelistSide], a
-	call SwapTurn
-	ld a, [wDuelType]
-	cp $00
-	jr nz, AnimationCommand_AnimNormal
-	ld a, OPPONENT_TURN
-	ld [wDuelAnimDuelistSide], a
-	jr AnimationCommand_AnimNormal
-
-AnimationCommand_AnimUnknown2: ; 19009 (6:5009)
-	ld a, [wce82]
-	and $7f
-	ld [wDuelAnimLocationParam], a
-	jr AnimationCommand_AnimNormal
-
-AnimationCommand_AnimEnd2: ; 19013 (6:5013)
-	ret
-
-AnimationCommand_AnimNormal: ; 19014 (6:5014)
-	ld a, [de]
-	inc de
-	cp DUEL_ANIM_SHOW_DAMAGE
-	jr z, .show_damage
-	cp DUEL_ANIM_SHAKE1
-	jr z, .shake_1
-	cp DUEL_ANIM_SHAKE2
-	jr z, .shake_2
-	cp DUEL_ANIM_SHAKE3
-	jr z, .shake_3
-
-.play_anim
-	call PlayDuelAnimation
-	jr PlayAttackAnimationCommands_NextCommand
-
-.show_damage
-	ld a, DUEL_ANIM_PRINT_DAMAGE
-	call PlayDuelAnimation
-	ld a, [wce81]
-	ld [wd4b3], a
-
-	push de
-	ld hl, wce7f
-	ld de, wDuelAnimDamage
-	ld a, [hli]
-	ld [de], a
-	inc de
-	ld a, [hli]
-	ld [de], a
-	pop de
-
-	ld a, $8c
-	call PlayDuelAnimation
-	ld a, [wDuelDisplayedScreen]
-	cp DUEL_MAIN_SCENE
-	jr nz, .skip_update_hud
-	ld a, DUEL_ANIM_UPDATE_HUD
-	call PlayDuelAnimation
-.skip_update_hud
-	jp PlayAttackAnimationCommands_NextCommand
-
-; screen shake happens differently
-; depending on whose turn it is
-.shake_1
-	ld c, DUEL_ANIM_SMALL_SHAKE_X
-	ld b, DUEL_ANIM_SMALL_SHAKE_Y
-	jr .check_duelist
-
-.shake_2
-	ld c, DUEL_ANIM_BIG_SHAKE_X
-	ld b, DUEL_ANIM_BIG_SHAKE_Y
-	jr .check_duelist
-
-.shake_3
-	ld c, DUEL_ANIM_SMALL_SHAKE_Y
-	ld b, DUEL_ANIM_SMALL_SHAKE_X
-
-.check_duelist
-	ldh a, [hWhoseTurn]
-	cp PLAYER_TURN
-	ld a, c
-	jr z, .play_anim
-	ld a, [wDuelType]
-	cp $00
-	ld a, c
-	jr z, .play_anim
-	ld a, b
-	jr .play_anim
-
-AnimationCommand_AnimUnknown: ; 19079 (6:5079)
-	ld a, [de]
-	inc de
-	ld [wd4b3], a
-	ld a, [wce82]
-	ld [wDuelAnimLocationParam], a
-	call SetDuelAnimationScreen
-	ld a, DUEL_ANIM_150
-	call PlayDuelAnimation
-	jp PlayAttackAnimationCommands_NextCommand
-
-AnimationCommandPointerTable: ; 1908f (6:508f)
-	dw AnimationCommand_AnimEnd      ; anim_end
-	dw AnimationCommand_AnimNormal   ; anim_normal
-	dw AnimationCommand_AnimPlayer   ; anim_player
-	dw AnimationCommand_AnimOpponent ; anim_opponent
-	dw AnimationCommand_AnimUnknown  ; anim_unknown
-	dw AnimationCommand_AnimUnknown2 ; anim_unknown2
-	dw AnimationCommand_AnimEnd2     ; anim_end2 (unused)
-
-; sets wDuelAnimationScreen according to wd4b3
-; if wd4b3 == $01, set it to Main Scene
-; if wd4b3 == $04, st it to Play Area scene
-SetDuelAnimationScreen: ; 1909d (6:509d)
-	ld a, [wd4b3]
-	cp $04
-	jr z, .set_play_area_screen
-	cp $01
-	ret nz
-	ld a, DUEL_ANIM_SCREEN_MAIN_SCENE
-	ld [wDuelAnimationScreen], a
-	ret
-
-.set_play_area_screen
-	ld a, [wDuelAnimLocationParam]
-	ld l, a
-	ld a, [wWhoseTurn]
-	ld h, a
-	cp PLAYER_TURN
-	jr z, .player
-
-; opponent
-	ld a, [wDuelType]
-	cp $00
-	jr z, .asm_50c6
-
-; link duel or vs. AI
-	bit 7, l
-	jr z, .asm_50e2
-	jr .asm_50d2
-
-.asm_50c6
-	bit 7, l
-	jr z, .asm_50da
-	jr .asm_50ea
-
-.player
-	bit 7, l
-	jr z, .asm_50d2
-	jr .asm_50e2
-
-.asm_50d2
-	ld l, UNKNOWN_SCREEN_4
-	ld h, PLAYER_TURN
-	ld a, DUEL_ANIM_SCREEN_PLAYER_PLAY_AREA
-	jr .ok
-.asm_50da
-	ld l, UNKNOWN_SCREEN_4
-	ld h, OPPONENT_TURN
-	ld a, DUEL_ANIM_SCREEN_PLAYER_PLAY_AREA
-	jr .ok
-.asm_50e2
-	ld l, UNKNOWN_SCREEN_5
-	ld h, OPPONENT_TURN
-	ld a, DUEL_ANIM_SCREEN_OPP_PLAY_AREA
-	jr .ok
-.asm_50ea
-	ld l, UNKNOWN_SCREEN_5
-	ld h, PLAYER_TURN
-	ld a, DUEL_ANIM_SCREEN_OPP_PLAY_AREA
-
-.ok
-	ld [wDuelAnimationScreen], a
-	ret
-
-Func_190f4: ; 190f4 (6:50f4)
-	ld a, [wd4b3]
-	cp $04
-	jr z, Func_1910f
-	; fallthrough
-
-Func_190fb: ; 190fb (6:50fb)
-	cp $01
-	jr nz, .asm_510e
-	ld a, DUEL_ANIM_SCREEN_MAIN_SCENE
-	ld [wDuelAnimationScreen], a
-	ld a, [wDuelDisplayedScreen]
-	cp $01
-	jr z, .asm_510e
-	bank1call DrawDuelMainScene
-.asm_510e
-	ret
-
-Func_1910f: ; 1910f (6:510f)
-	call SetDuelAnimationScreen
-	ld a, [wDuelDisplayedScreen]
-	cp l
-	jr z, .skip_change_screen
-	ld a, l
-	push af
-	ld l, PLAYER_TURN
-	ld a, [wDuelType]
-	cp $00
-	jr nz, .asm_5127
-	ld a, [wWhoseTurn]
-	ld l, a
-.asm_5127
-	call DrawYourOrOppPlayAreaScreen_Bank0
-	pop af
-	ld [wDuelDisplayedScreen], a
-.skip_change_screen
-	call DrawWideTextBox
-	ret
-
-; prints text related to the damage received
-; by card stored in wTempNonTurnDuelistCardID
-; takes into account type effectiveness
-PrintDamageText: ; 19132 (6:5132)
-	push hl
-	push bc
-	push de
-	ld a, [wLoadedAttackAnimation]
-	cp ATK_ANIM_HEAL
-	jr z, .skip
-	cp ATK_ANIM_HEALING_WIND_PLAY_AREA
-	jr z, .skip
-
-	ld a, [wTempNonTurnDuelistCardID]
-	ld e, a
-	ld d, $00
-	call LoadCardDataToBuffer1_FromCardID
-	ld a, 18
-	call CopyCardNameAndLevel
-	ld [hl], TX_END
-	ld hl, wTxRam2
-	xor a
-	ld [hli], a
-	ld [hl], a
-	ld hl, wce7f
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	call GetDamageText
-	ld a, l
-	or h
-	call nz, DrawWideTextBox_PrintText
-.skip
-	pop de
-	pop bc
-	pop hl
-	ret
-
-; returns in hl the text id associated with
-; the damage in hl and its effectiveness
-GetDamageText: ; 19168 (6:5168)
-	ld a, l
-	or h
-	jr z, .no_damage
-	call LoadTxRam3
-	ld a, [wce81]
-	ldtx hl, AttackDamageText
-	and (1 << RESISTANCE) | (1 << WEAKNESS)
-	ret z ; not weak or resistant
-	ldtx hl, WeaknessMoreDamage2Text
-	cp (1 << RESISTANCE) | (1 << WEAKNESS)
-	ret z ; weak and resistant
-	and (1 << WEAKNESS)
-	ldtx hl, WeaknessMoreDamageText
-	ret nz ; weak
-	ldtx hl, ResistanceLessDamageText
-	ret ; resistant
-
-.no_damage
-	call CheckNoDamageOrEffect
-	ret c
-	ldtx hl, NoDamageText
-	ld a, [wce81]
-	and (1 << RESISTANCE)
-	ret z ; not resistant
-	ldtx hl, ResistanceNoDamageText
-	ret ; resistant
-
-UpdateMainSceneHUD: ; 19199 (6:5199)
-	ld a, [wDuelDisplayedScreen]
-	cp DUEL_MAIN_SCENE
-	ret nz
-	bank1call DrawDuelHUDs
-	ret
-
-Func_191a3: ; 191a3 (6:51a3)
-	ret
-
-INCLUDE "data/duel/animations/attack_animations.asm"
-
-; if carry flag is set, only delays
-; if carry not set:
-; - set rRP to $c1, wait;
-; - set rRP to $c0, wait;
-; - return
-Func_19674: ; 19674 (6:5674)
-	jr c, .delay_once
-	ld [hl], $c1
-	ld a, 5
-	jr .loop_delay_1 ; jump to possibly to add more cycles?
-.loop_delay_1
-	dec a
-	jr nz, .loop_delay_1
-	ld [hl], $c0
-	ld a, 14
-	jr .loop_delay_2 ; jump to possibly to add more cycles?
-.loop_delay_2
-	dec a
-	jr nz, .loop_delay_2
-	ret
-
-.delay_once
-	ld a, 21
-	jr .loop_delay_3 ; jump to possibly to add more cycles?
-.loop_delay_3
-	dec a
-	jr nz, .loop_delay_3
-	nop
-	ret
-
-; input a = byte to transmit through IR
-TransmitByteThroughIR: ; 19692 (6:5692)
-	push hl
-	ld hl, rRP
-	push de
-	push bc
-	ld b, a
-	scf  ; carry set
-	call Func_19674
-	or a ; carry not set
-	call Func_19674
-	ld c, 8
-	ld c, 8 ; number of input bits
-.loop
-	ld a, $00
-	rr b
-	call Func_19674
-	dec c
-	jr nz, .loop
-	pop bc
-	pop de
-	pop hl
-	ldh a, [rJOYP]
-	bit 1, a ; P11
-	jr z, ReturnZFlagUnsetAndCarryFlagSet
-	xor a ; return z set
-	ret
-
-; same as ReceiveByteThroughIR but
-; returns $0 in a if there's an error in IR
-ReceiveByteThroughIR_ZeroIfUnsuccessful: ; 196ba (6:56ba)
-	call ReceiveByteThroughIR
-	ret nc
-	xor a
-	ret
-
-; returns carry if there's some time out
-; and output in register a of $ff
-; otherwise returns in a some sequence of bits
-; related to how rRP sets/unsets bit 1
-ReceiveByteThroughIR: ; 196c0 (6:56c0)
-	push de
-	push bc
-	push hl
-
-; waits for bit 1 in rRP to be unset
-; up to $100 loops
-	ld b, 0
-	ld hl, rRP
-.wait_ir
-	bit 1, [hl]
-	jr z, .ok
-	dec b
-	jr nz, .wait_ir
-	; looped around $100 times
-	; return $ff and carry set
-	pop hl
-	pop bc
-	pop de
-	scf
-	ld a, $ff
-	ret
-
-.ok
-; delay for some cycles
-	ld a, 15
-.loop_delay
-	dec a
-	jr nz, .loop_delay
-
-; loop for each bit
-	ld e, 8
-.loop
-	ld a, $01
-	; possibly delay cycles?
-	ld b, 9
-	ld b, 9
-	ld b, 9
-	ld b, 9
-
-; checks for bit 1 in rRP
-; if in any of the checks it is unset,
-; then a is set to 0
-; this is done a total of 9 times
-	bit 1, [hl]
-	jr nz, .asm_196ec
-	xor a
-.asm_196ec
-	bit 1, [hl]
-	jr nz, .asm_196f1
-	xor a
-.asm_196f1
-	dec b
-	jr nz, .asm_196ec
-	; one bit received
-	rrca
-	rr d
-	dec e
-	jr nz, .loop
-	ld a, d ; has bits set for each "cycle" that bit 1 was not unset
-	pop hl
-	pop bc
-	pop de
-	or a
-	ret
-
-ReturnZFlagUnsetAndCarryFlagSet: ; 19700 (6:5700)
-	ld a, $ff
-	or a ; z not set
-	scf  ; carry set
-	ret
-
-; called when expecting to transmit data
-Func_19705: ; 19705 (6:5705)
-	ld hl, rRP
-.asm_19708
-	ldh a, [rJOYP]
-	bit 1, a
-	jr z, ReturnZFlagUnsetAndCarryFlagSet
-	ld a, $aa ; request
-	call TransmitByteThroughIR
-	push hl
-	pop hl
-	call ReceiveByteThroughIR_ZeroIfUnsuccessful
-	cp $33 ; acknowledge
-	jr nz, .asm_19708
-	xor a
-	ret
-
-; called when expecting to receive data
-Func_1971e: ; 1971e (6:571e)
-	ld hl, rRP
-.asm_19721
-	ldh a, [rJOYP]
-	bit 1, a
-	jr z, ReturnZFlagUnsetAndCarryFlagSet
-	call ReceiveByteThroughIR_ZeroIfUnsuccessful
-	cp $aa ; request
-	jr nz, .asm_19721
-	ld a, $33 ; acknowledge
-	call TransmitByteThroughIR
-	xor a
-	ret
-
-ReturnZFlagUnsetAndCarryFlagSet2: ; 19735 (6:5735)
-	jp ReturnZFlagUnsetAndCarryFlagSet
-
-TransmitIRDataBuffer: ; 19738 (6:5738)
-	call Func_19705
-	jr c, ReturnZFlagUnsetAndCarryFlagSet2
-	ld a, $49
-	call TransmitByteThroughIR
-	ld a, $52
-	call TransmitByteThroughIR
-	ld hl, wIRDataBuffer
-	ld c, 8
-	jr TransmitNBytesFromHLThroughIR
-
-ReceiveIRDataBuffer: ; 1974e (6:5738)
-	call Func_1971e
-	jr c, ReturnZFlagUnsetAndCarryFlagSet2
-	call ReceiveByteThroughIR
-	cp $49
-	jr nz, ReceiveIRDataBuffer
-	call ReceiveByteThroughIR
-	cp $52
-	jr nz, ReceiveIRDataBuffer
-	ld hl, wIRDataBuffer
-	ld c, 8
-	jr ReceiveNBytesToHLThroughIR
-
-; hl = start of data to transmit
-; c = number of bytes to transmit
-TransmitNBytesFromHLThroughIR: ; 19768 (6:5768)
-	ld b, $0
-.loop_data_bytes
-	ld a, b
-	add [hl]
-	ld b, a
-	ld a, [hli]
-	call TransmitByteThroughIR
-	jr c, .asm_1977c
-	dec c
-	jr nz, .loop_data_bytes
-	ld a, b
-	cpl
-	inc a
-	call TransmitByteThroughIR
-.asm_1977c
-	ret
-
-; hl = address to write received data
-; c = number of bytes to be received
-ReceiveNBytesToHLThroughIR: ; 1977d (6:577d)
-	ld b, 0
-.loop_data_bytes
-	call ReceiveByteThroughIR
-	jr c, ReturnZFlagUnsetAndCarryFlagSet2
-	ld [hli], a
-	add b
-	ld b, a
-	dec c
-	jr nz, .loop_data_bytes
-	call ReceiveByteThroughIR
-	add b
-	or a
-	jr nz, ReturnZFlagUnsetAndCarryFlagSet2
-	ret
-
-; disables interrupts, and sets joypad and IR communication port
-; switches to CGB normal speed
-StartIRCommunications: ; 19792 (6:5792)
-	di
-	call SwitchToCGBNormalSpeed
-	ld a, P14
-	ldh [rJOYP], a
-	ld a, $c0
-	ldh [rRP], a
-	ret
-
-; reenables interrupts, and switches CGB back to double speed
-CloseIRCommunications: ; 1979f (6:579f)
-	ld a, P14 | P15
-	ldh [rJOYP], a
-.wait_vblank_on
-	ldh a, [rSTAT]
-	and STAT_LCDC_STATUS
-	cp STAT_ON_VBLANK
-	jr z, .wait_vblank_on
-.wait_vblank_off
-	ldh a, [rSTAT]
-	and STAT_LCDC_STATUS
-	cp STAT_ON_VBLANK
-	jr nz, .wait_vblank_off
-	call SwitchToCGBDoubleSpeed
-	ei
-	ret
-
-; set rRP to 0
-ClearRP: ; 197b8 (6:57b8)
-	ld a, $00
-	ldh [rRP], a
-	ret
-
-; expects to receive a command (IRCMD_* constant)
-; in wIRDataBuffer + 1, then calls the subroutine
-; corresponding to that command
-ExecuteReceivedIRCommands: ; 197bd (6:57bd)
-	call StartIRCommunications
-.loop_commands
-	call ReceiveIRDataBuffer
-	jr c, .error
-	jr nz, .loop_commands
-	ld hl, wIRDataBuffer + 1
-	ld a, [hl]
-	ld hl, .CmdPointerTable
-	cp NUM_IR_COMMANDS
-	jr nc, .loop_commands ; invalid command
-	call .JumpToCmdPointer ; execute command
-	jr .loop_commands
-.error
-	call CloseIRCommunications
-	xor a
-	scf
-	ret
-
-.JumpToCmdPointer
-	add a ; *2
-	add l
-	ld l, a
-	ld a, 0
-	adc h
-	ld h, a
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-.jp_hl
-	jp hl
-
-.CmdPointerTable
-	dw .Close                ; IRCMD_CLOSE
-	dw .ReturnWithoutClosing ; IRCMD_RETURN_WO_CLOSING
-	dw .TransmitData         ; IRCMD_TRANSMIT_DATA
-	dw .ReceiveData          ; IRCMD_RECEIVE_DATA
-	dw .CallFunction         ; IRCMD_CALL_FUNCTION
-
-; closes the IR communications
-; pops hl so that the sp points
-; to the return address of ExecuteReceivedIRCommands
-.Close
-	pop hl
-	call CloseIRCommunications
-	or a
-	ret
-
-; returns without closing the IR communications
-; will continue the command loop
-.ReturnWithoutClosing
-	or a
-	ret
-
-; receives an address and number of bytes
-; and transmits starting at that address
-.TransmitData
-	call Func_19705
-	ret c
-	call LoadRegistersFromIRDataBuffer
-	jp TransmitNBytesFromHLThroughIR
-
-; receives an address and number of bytes
-; and writes the data received to that address
-.ReceiveData
-	call LoadRegistersFromIRDataBuffer
-	ld l, e
-	ld h, d
-	call ReceiveNBytesToHLThroughIR
-	jr c, .asm_19812
-	sub b
-	call TransmitByteThroughIR
-.asm_19812
-	ret
-
-; receives an address to call, then stores
-; the registers in the IR data buffer
-.CallFunction
-	call LoadRegistersFromIRDataBuffer
-	call .jp_hl
-	call StoreRegistersInIRDataBuffer
-	ret
-
-; returns carry set if request sent was not acknowledged
-TrySendIRRequest: ; 1981d (6:581d)
-	call StartIRCommunications
-	ld hl, rRP
-	ld c, 4
-.send_request
-	ld a, $aa ; request
-	push bc
-	call TransmitByteThroughIR
-	push bc
-	pop bc
-	call ReceiveByteThroughIR_ZeroIfUnsuccessful
-	pop bc
-	cp $33 ; acknowledgement
-	jr z, .received_ack
-	dec c
-	jr nz, .send_request
-	scf
-	jr .close
-
-.received_ack
-	xor a
-.close
-	push af
-	call CloseIRCommunications
-	pop af
-	ret
-
-; returns carry set if request was not received
-TryReceiveIRRequest: ; 19842 (6:5842)
-	call StartIRCommunications
-	ld hl, rRP
-.wait_request
-	call ReceiveByteThroughIR_ZeroIfUnsuccessful
-	cp $aa ; request
-	jr z, .send_ack
-	ldh a, [rJOYP]
-	cpl
-	and P10 | P11
-	jr z, .wait_request
-	scf
-	jr .close
-
-.send_ack
-	ld a, $33 ; acknowledgement
-	call TransmitByteThroughIR
-	xor a
-.close
-	push af
-	call CloseIRCommunications
-	pop af
-	ret
-
-; sends request for other device to close current communication
-RequestCloseIRCommunication: ; 19865 (6:5865)
-	call StartIRCommunications
-	ld a, IRCMD_CLOSE
-	ld [wIRDataBuffer + 1], a
-	call TransmitIRDataBuffer
-;	fallthrough
-
-; calls CloseIRCommunications while preserving af
-SafelyCloseIRCommunications: ; 19870 (6:5870)
-	push af
-	call CloseIRCommunications
-	pop af
-	ret
-
-; sends a request for data to be transmitted
-; from the other device
-; hl = start of data to request to transmit
-; de = address to write data received
-; c = length of data
-RequestDataTransmissionThroughIR: ; 19876 (6:5876)
-	ld a, IRCMD_TRANSMIT_DATA
-	call TransmitRegistersThroughIR
-	push de
-	push bc
-	call Func_1971e
-	pop bc
-	pop hl
-	jr c, SafelyCloseIRCommunications
-	call ReceiveNBytesToHLThroughIR
-	jr SafelyCloseIRCommunications
-
-; transmits data to be written in the other device
-; hl = start of data to transmit
-; de = address for other device to write data
-; c = length of data
-RequestDataReceivalThroughIR: ; 19889 (6:5889)
-	ld a, IRCMD_RECEIVE_DATA
-	call TransmitRegistersThroughIR
-	call TransmitNBytesFromHLThroughIR
-	jr c, SafelyCloseIRCommunications
-	call ReceiveByteThroughIR
-	jr c, SafelyCloseIRCommunications
-	add b
-	jr nz, .asm_1989e
-	xor a
-	jr SafelyCloseIRCommunications
-.asm_1989e
-	call ReturnZFlagUnsetAndCarryFlagSet
-	jr SafelyCloseIRCommunications
-
-; first stores all the current registers in wIRDataBuffer
-; then transmits it through IR
-TransmitRegistersThroughIR: ; 198a3 (6:58a3)
-	push hl
-	push de
-	push bc
-	call StoreRegistersInIRDataBuffer
-	call StartIRCommunications
-	call TransmitIRDataBuffer
-	pop bc
-	pop de
-	pop hl
-	ret nc
-	inc sp
-	inc sp
-	jr SafelyCloseIRCommunications
-
-; stores af, hl, de and bc in wIRDataBuffer
-StoreRegistersInIRDataBuffer: ; 198b7 (6:58b7)
-	push de
-	push hl
-	push af
-	ld hl, wIRDataBuffer
-	pop de
-	ld [hl], e ; <- f
-	inc hl
-	ld [hl], d ; <- a
-	inc hl
-	pop de
-	ld [hl], e ; <- l
-	inc hl
-	ld [hl], d ; <- h
-	inc hl
-	pop de
-	ld [hl], e ; <- e
-	inc hl
-	ld [hl], d ; <- d
-	inc hl
-	ld [hl], c ; <- c
-	inc hl
-	ld [hl], b ; <- b
-	ret
-
-; loads all the registers that were stored
-; from StoreRegistersInIRDataBuffer
-LoadRegistersFromIRDataBuffer: ; 198d0 (6:58d0)
-	ld hl, wIRDataBuffer
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	inc hl
-	push de
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	inc hl
-	push de
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	inc hl
-	ld c, [hl]
-	inc hl
-	ld b, [hl]
-	pop hl
-	pop af
-	ret
-
-; empties screen and replaces
-; wVBlankFunctionTrampoline with HandleAllSpriteAnimations
-Func_198e7: ; 198e7 (6:58e7)
-	call EmptyScreen
-	call Set_OBJ_8x8
-	call Func_3ca4
-	lb de, $38, $7f
-	call SetupText
-	ld hl, wVBlankFunctionTrampoline + 1
-	ld de, wVBlankFunctionTrampolineBackup
-	call BackupVBlankFunctionTrampoline
-	di
-	ld [hl], LOW(HandleAllSpriteAnimations)
-	inc hl
-	ld [hl], HIGH(HandleAllSpriteAnimations)
-	ei
-	ret
-
-; sets backup VBlank function as wVBlankFunctionTrampoline
-RestoreVBlankFunction: ; 19907 (6:5907)
-	ld hl, wVBlankFunctionTrampolineBackup
-	ld de, wVBlankFunctionTrampoline + 1
-	call BackupVBlankFunctionTrampoline
-	call Func_3ca4
-	bank1call ZeroObjectPositionsAndToggleOAMCopy
-	ret
-
-; copies 2 bytes from hl to de while interrupts are disabled
-; used to load or store wVBlankFunctionTrampoline
-; to wVBlankFunctionTrampolineBackup
-BackupVBlankFunctionTrampoline: ; 19917 (6:5917)
-	di
-	ld a, [hli]
-	ld [de], a
-	inc de
-	ld a, [hld]
-	ld [de], a
-	ei
-	ret
-
-Func_1991f: ; 1991f (6:591f)
-	add a
-	ld e, a
-	ld d, 0
-	ld hl, .data
-	add hl, de
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	ld a, [hli]
-	add $02
-	push hl
-	ld hl, sDeck1Name
-	call CopyDeckNameAndCards
-	pop hl
-	call SwapTurn
-	ld a, [hli]
-	add $02
-	call LoadDeck
-	call SwapTurn
-	call EnableSRAM
-	ld h, $a1
-	ld de, wPlayerDeck
-	ld c, $3c
-.asm_594c
-	ld a, [de]
-	inc de
-	ld l, a
-	res 7, [hl]
-	dec c
-	jr nz, .asm_594c
-
-	ld h, $a1
-	ld de, wOpponentDeck
-	ld c, $1e
-.asm_595b
-	ld a, [de]
-	inc de
-	ld l, a
-	res 7, [hl]
-	inc [hl]
-	dec c
-	jr nz, .asm_595b
-
-	call DisableSRAM
-	ret
-.data
-	db $03, $04, $05, $06, $07, $08
-
-; clears saved data (card Collection/saved decks/Card Pop! data/etc)
-; then adds the starter decks as saved decks
-; marks all cards in Collection as not owned
-InitSaveData: ; 1996e (6:596e)
-; clear card and deck save data
-	call EnableSRAM
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	ld hl, sCardAndDeckSaveData
-	ld bc, sCardAndDeckSaveDataEnd - sCardAndDeckSaveData
-.loop_clear
-	xor a
-	ld [hli], a
-	dec bc
-	ld a, c
-	or b
-	jr nz, .loop_clear
-
-; add the starter decks
-	ld a, CHARMANDER_AND_FRIENDS_DECK
-	ld hl, sSavedDeck1
-	call CopyDeckNameAndCards
-	ld a, SQUIRTLE_AND_FRIENDS_DECK
-	ld hl, sSavedDeck2
-	call CopyDeckNameAndCards
-	ld a, BULBASAUR_AND_FRIENDS_DECK
-	ld hl, sSavedDeck3
-	call CopyDeckNameAndCards
-
-; marks all cards in Collection to not owned
-	call EnableSRAM
-	ld hl, sCardCollection
-	ld a, CARD_NOT_OWNED
-.loop_collection
-	ld [hl], a
-	inc l
-	jr nz, .loop_collection
-
-	ld hl, sCurrentDuel
-	xor a
-	ld [hli], a
-	ld [hli], a ; sCurrentDuelChecksum
-	ld [hl], a
-
-; clears Card Pop! names
-	ld hl, sCardPopNameList
-	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
-.loop_card_pop_names
-	ld [hl], $0
-	ld de, NAME_BUFFER_LENGTH
-	add hl, de
-	dec c
-	jr nz, .loop_card_pop_names
-
-; saved configuration options
-	ld a, 2
-	ld [sPrinterContrastLevel], a
-	ld a, $2
-	ld [sTextSpeed], a
-	ld [wTextSpeed], a
-
-; miscellaneous data
-	xor a
-	ld [sAnimationsDisabled], a
-	ld [sSkipDelayAllowed], a
-	ld [s0a004], a
-	ld [sTotalCardPopsDone], a
-	ld [sReceivedLegendaryCards], a
-	farcall InitPromotionalCardAndDeckCounterSaveData
-	call DisableSRAM
-	ret
-
-; input:
-;    a = Deck ID
-;    hl = destination to copy
-CopyDeckNameAndCards: ; 199e0 (6:59e0)
-	push de
-	push bc
-	push hl
-	call LoadDeck
-	jr c, .done
-	call .CopyDeckName
-	pop hl
-	call EnableSRAM
-	push hl
-	ld de, wDefaultText
-.loop_write_name
-	ld a, [de]
-	inc de
-	ld [hli], a
-	or a
-	jr nz, .loop_write_name
-	pop hl
-
-	push hl
-	ld de, DECK_NAME_SIZE
-	add hl, de
-	ld de, wPlayerDeck
-	ld c, DECK_SIZE
-.loop_write_cards
-	ld a, [de]
-	inc de
-	ld [hli], a
-	dec c
-	jr nz, .loop_write_cards
-	call DisableSRAM
-	or a
-.done
-	pop hl
-	pop bc
-	pop de
-	ret
-
-.CopyDeckName
-	ld hl, wDeckName
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld de, wDefaultText
-	call CopyText
-	ret
-
-; hl = text ID
-LoadLinkConnectingScene: ; 19a1f (6:5a1f)
-	push hl
-	call Func_198e7
-	ld a, SCENE_GAMEBOY_LINK_CONNECTING
-	lb bc, 0, 0
-	call LoadScene
-	pop hl
-	call DrawWideTextBox_PrintText
-	call EnableLCD
-	ret
-
-; shows Link Not Connected scene
-; then asks the player whether they want to try again
-; if the player selects "no", return carry
-; input:
-;  - hl = text ID
-LoadLinkNotConnectedSceneAndAskWhetherToTryAgain: ; 19a33 (6:5a33)
-	push hl
-	call RestoreVBlankFunction
-	call Func_198e7
-	ld a, SCENE_GAMEBOY_LINK_NOT_CONNECTED
-	lb bc, 0, 0
-	call LoadScene
-	pop hl
-	call DrawWideTextBox_WaitForInput
-	ldtx hl, WouldYouLikeToTryAgainText
-	call YesOrNoMenuWithText_SetCursorToYes
-;	fallthrough
-
-ClearRPAndRestoreVBlankFunction: ; 19a4c (6:5a4c)
-	push af
-	call ClearRP
-	call RestoreVBlankFunction
-	pop af
-	ret
-
-; prepares IR communication parameter data
-; a = a IRPARAM_* constant for the function of this connection
-InitIRCommunications: ; 19a55 (6:5a55)
-	ld hl, wOwnIRCommunicationParams
-	ld [hl], a
-	inc hl
-	ld [hl], $50
-	inc hl
-	ld [hl], $4b
-	inc hl
-	ld [hl], $31
-	ld a, $ff
-	ld [wIRCommunicationErrorCode], a
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-; clear wNameBuffer and wOpponentName
-	xor a
-	ld [wNameBuffer], a
-	ld hl, wOpponentName
-	ld [hli], a
-	ld [hl], a
-; loads player's name from SRAM
-; to wDefaultText
-	call EnableSRAM
-	ld hl, sPlayerName
-	ld de, wDefaultText
-	ld c, NAME_BUFFER_LENGTH
-.loop
-	ld a, [hli]
-	ld [de], a
-	inc de
-	dec c
-	jr nz, .loop
-	call DisableSRAM
-	ret
-
-; returns carry if communication was unsuccessful
-; if a = 0, then it was a communication error
-; if a = 1, then operation was cancelled by the player
-PrepareSendCardOrDeckConfigurationThroughIR: ; 19a89 (6:5a89)
-	call InitIRCommunications
-
-; pressing A button triggers request for IR communication
-.loop_frame
-	call DoFrame
-	ldh a, [hKeysPressed]
-	bit B_BUTTON_F, a
-	jr nz, .b_btn
-	ldh a, [hKeysHeld]
-	bit A_BUTTON_F, a
-	jr z, .loop_frame
-; a btn
-	call TrySendIRRequest
-	jr nc, .request_success
-	or a
-	jr z, .loop_frame
-	xor a
-	scf
-	ret
-
-.b_btn
-	; cancelled by the player
-	ld a, $01
-	scf
-	ret
-
-.request_success
-	call ExchangeIRCommunicationParameters
-	ret c
-	ld a, [wOtherIRCommunicationParams + 3]
-	cp $31
-	jr nz, SetIRCommunicationErrorCode_Error
-	or a
-	ret
-
-; exchanges player names and IR communication parameters
-; checks whether parameters for communication match
-; and if they don't, an error is issued
-ExchangeIRCommunicationParameters: ; 19ab7 (6:5ab7)
-	ld hl, wOwnIRCommunicationParams
-	ld de, wOtherIRCommunicationParams
-	ld c, 4
-	call RequestDataTransmissionThroughIR
-	jr c, .error
-	ld hl, wOtherIRCommunicationParams + 1
-	ld a, [hli]
-	cp $50
-	jr nz, .error
-	ld a, [hli]
-	cp $4b
-	jr nz, .error
-	ld a, [wOwnIRCommunicationParams]
-	ld hl, wOtherIRCommunicationParams
-	cp [hl] ; do parameters match?
-	jr nz, SetIRCommunicationErrorCode_Error
-
-; receives wDefaultText from other device
-; and writes it to wNameBuffer
-	ld hl, wDefaultText
-	ld de, wNameBuffer
-	ld c, NAME_BUFFER_LENGTH
-	call RequestDataTransmissionThroughIR
-	jr c, .error
-; transmits wDefaultText to be
-; written in wNameBuffer in the other device
-	ld hl, wDefaultText
-	ld de, wNameBuffer
-	ld c, NAME_BUFFER_LENGTH
-	call RequestDataReceivalThroughIR
-	jr c, .error
-	or a
-	ret
-
-.error
-	xor a
-	scf
-	ret
-
-SetIRCommunicationErrorCode_Error: ; 19af9 (6:5af9)
-	ld hl, wIRCommunicationErrorCode
-	ld [hl], $01
-	ld de, wIRCommunicationErrorCode
-	ld c, 1
-	call RequestDataReceivalThroughIR
-	call RequestCloseIRCommunication
-	ld a, $01
-	scf
-	ret
-
-SetIRCommunicationErrorCode_NoError: ; 19b0d (6:5b0d)
-	ld hl, wOwnIRCommunicationParams
-	ld [hl], $00
-	ld de, wIRCommunicationErrorCode
-	ld c, 1
-	call RequestDataReceivalThroughIR
-	ret c
-	call RequestCloseIRCommunication
-	or a
-	ret
-
-; makes device receptive to receive data from other device
-; to write in wDuelTempList (either list of cards or a deck configuration)
-; returns carry if some error occurred
-TryReceiveCardOrDeckConfigurationThroughIR: ; 19b20 (6:5b20)
-	call InitIRCommunications
-.loop_receive_request
-	xor a
-	ld [wDuelTempList], a
-	call TryReceiveIRRequest
-	jr nc, .receive_data
-	bit 1, a
-	jr nz, .cancelled
-	jr .loop_receive_request
-.receive_data
-	call ExecuteReceivedIRCommands
-	ld a, [wIRCommunicationErrorCode]
-	or a
-	ret z ; no error
-	xor a
-	scf
-	ret
-
-.cancelled
-	ld a, $01
-	scf
-	ret
-
-; returns carry if card(s) wasn't successfully sent
-_SendCard: ; 19b41 (6:5b41)
-	call StopMusic
-	ldtx hl, SendingACardText
-	call LoadLinkConnectingScene
-	ld a, IRPARAM_SEND_CARDS
-	call PrepareSendCardOrDeckConfigurationThroughIR
-	jr c, .fail
-
-	; send cards
-	xor a
-	ld [wDuelTempList + DECK_SIZE], a
-	ld hl, wDuelTempList
-	ld e, l
-	ld d, h
-	ld c, DECK_SIZE + 1
-	call RequestDataReceivalThroughIR
-	jr c, .fail
-	call SetIRCommunicationErrorCode_NoError
-	jr c, .fail
-	call ExecuteReceivedIRCommands
-	jr c, .fail
-	ld a, [wOwnIRCommunicationParams + 1]
-	cp $4f
-	jr nz, .fail
-	call PlayCardPopSong
-	xor a
-	call ClearRPAndRestoreVBlankFunction
-	ret
-
-.fail
-	call PlayCardPopSong
-	ldtx hl, CardTransferWasntSuccessful1Text
-	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
-	jr nc, _SendCard ; loop back and try again
-	; failed
-	scf
-	ret
-
-PlayCardPopSong: ; 19b87 (6:5b87)
-	ld a, MUSIC_CARD_POP
-	jp PlaySong
-
-_ReceiveCard: ; 19b8c (6:5b8c)
-	call StopMusic
-	ldtx hl, ReceivingACardText
-	call LoadLinkConnectingScene
-	ld a, IRPARAM_SEND_CARDS
-	call TryReceiveCardOrDeckConfigurationThroughIR
-	ld a, $4f
-	ld [wOwnIRCommunicationParams + 1], a
-	ld hl, wOwnIRCommunicationParams
-	ld e, l
-	ld d, h
-	ld c, 4
-	call RequestDataReceivalThroughIR
-	jr c, .fail
-	call RequestCloseIRCommunication
-	jr c, .fail
-	call PlayCardPopSong
-	or a
-	call ClearRPAndRestoreVBlankFunction
-	ret
-
-.fail
-	call PlayCardPopSong
-	ldtx hl, CardTransferWasntSuccessful2Text
-	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
-	jr nc, _ReceiveCard
-	scf
-	ret
-
-_SendDeckConfiguration: ; 19bc5 (6:5bc5)
-	call StopMusic
-	ldtx hl, SendingADeckConfigurationText
-	call LoadLinkConnectingScene
-	ld a, IRPARAM_SEND_DECK
-	call PrepareSendCardOrDeckConfigurationThroughIR
-	jr c, .fail
-	ld hl, wDuelTempList
-	ld e, l
-	ld d, h
-	ld c, DECK_STRUCT_SIZE
-	call RequestDataReceivalThroughIR
-	jr c, .fail
-	call SetIRCommunicationErrorCode_NoError
-	jr c, .fail
-	call PlayCardPopSong
-	call ClearRPAndRestoreVBlankFunction
-	or a
-	ret
-
-.fail
-	call PlayCardPopSong
-	ldtx hl, DeckConfigurationTransferWasntSuccessful1Text
-	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
-	jr nc, _SendDeckConfiguration
-	scf
-	ret
-
-_ReceiveDeckConfiguration: ; 19bfb (6:5bfb)
-	call StopMusic
-	ldtx hl, ReceivingDeckConfigurationText
-	call LoadLinkConnectingScene
-	ld a, IRPARAM_SEND_DECK
-	call TryReceiveCardOrDeckConfigurationThroughIR
-	jr c, .fail
-	call PlayCardPopSong
-	call ClearRPAndRestoreVBlankFunction
-	or a
-	ret
-
-.fail
-	call PlayCardPopSong
-	ldtx hl, DeckConfigurationTransferWasntSuccessful2Text
-	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
-	jr nc, _ReceiveDeckConfiguration ; loop back and try again
-	scf
-	ret
-
-_DoCardPop: ; 19c20 (6:5c20)
-; loads scene for Card Pop! screen
-; then checks if console is SGB
-; and issues an error message in case it is
-	call Func_198e7
-	ld a,SCENE_CARD_POP
-	lb bc, 0, 0
-	call LoadScene
-	ldtx hl, AreYouBothReadyToCardPopText
-	call PrintScrollableText_NoTextBoxLabel
-	call RestoreVBlankFunction
-	ldtx hl, CardPopCannotBePlayedWithTheGameBoyText
-	ld a, [wConsole]
-	cp CONSOLE_SGB
-	jr z, .error
-
-; initiate the communications
-	call PauseSong
-	call Func_198e7
-	ld a, SCENE_GAMEBOY_LINK_CONNECTING
-	lb bc, 0, 0
-	call LoadScene
-	ldtx hl, PositionGameBoyColorsAndPressAButtonText
-	call DrawWideTextBox_PrintText
-	call EnableLCD
-	call HandleCardPopCommunications
-	push af
-	push hl
-	call ClearRP
-	call RestoreVBlankFunction
-	pop hl
-	pop af
-	jr c, .error
-
-; show the received card detail page
-; and play the corresponding song
-	ld a, [wLoadedCard1ID]
-	call AddCardToCollectionAndUpdateAlbumProgress
-	ld hl, wLoadedCard1Name
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	call LoadTxRam2
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	ld a, SFX_5D
-	call PlaySFX
-.wait_sfx
-	call AssertSFXFinished
-	or a
-	jr nz, .wait_sfx
-	ld a, [wCardPopCardObtainSong]
-	call PlaySong
-	ldtx hl, ReceivedThroughCardPopText
-	bank1call _DisplayCardDetailScreen
-	call ResumeSong
-	lb de, $38, $9f
-	call SetupText
-	bank1call OpenCardPage_FromHand
-	ret
-
-.error
-; show Card Pop! error scene
-; and print text in hl
-	push hl
-	call ResumeSong
-	call Func_198e7
-	ld a, SCENE_CARD_POP_ERROR
-	lb bc, 0, 0
-	call LoadScene
-	pop hl
-	call PrintScrollableText_NoTextBoxLabel
-	call RestoreVBlankFunction
-	ret
-
-; handles all communications to the other device to do Card Pop!
-; returns carry if Card Pop! is unsuccessful
-; and returns in hl the corresponding error text ID
-HandleCardPopCommunications: ; 19cb2 (6:5cb2)
-; copy CardPopNameList from SRAM to WRAM
-	call EnableSRAM
-	ld hl, sCardPopNameList
-	ld de, wCardPopNameList
-	ld bc, CARDPOP_NAME_LIST_SIZE
-	call CopyDataHLtoDE
-	call DisableSRAM
-
-	ld a, IRPARAM_CARD_POP
-	call InitIRCommunications
-.asm_19cc9
-	call TryReceiveIRRequest ; receive request
-	jr nc, .asm_19d05
-	bit 1, a
-	jr nz, .fail
-	call TrySendIRRequest ; send request
-	jr c, .asm_19cc9
-
-; do the player name search, then transmit the result
-	call ExchangeIRCommunicationParameters
-	jr c, .fail
-	ld hl, wCardPopNameList
-	ld de, wOtherPlayerCardPopNameList
-	ld c, 0 ; $100 bytes = CARDPOP_NAME_LIST_SIZE
-	call RequestDataTransmissionThroughIR
-	jr c, .fail
-	call LookUpNameInCardPopNameList
-	ld hl, wCardPopNameSearchResult
-	ld de, wCardPopNameSearchResult
-	ld c, 1
-	call RequestDataReceivalThroughIR
-	jr c, .fail
-	call SetIRCommunicationErrorCode_NoError
-	jr c, .fail
-	call ExecuteReceivedIRCommands
-	jr c, .fail
-	jr .check_search_result
-
-.asm_19d05
-	call ExecuteReceivedIRCommands
-	ld a, [wIRCommunicationErrorCode]
-	or a
-	jr nz, .fail
-	call RequestCloseIRCommunication
-	jr c, .fail
-
-.check_search_result
-	ld a, [wCardPopNameSearchResult]
-	or a
-	jr z, .success
-	; not $00, means the name was found in the list
-	ldtx hl, CannotCardPopWithFriendPreviouslyPoppedWithText
-	scf
-	ret
-
-.success
-	call DecideCardToReceiveFromCardPop
-
-; increment number of times Card Pop! was done
-; and write the other player's name to sCardPopNameList
-; the spot where this is written in the list is derived
-; from the lower nybble of sTotalCardPopsDone
-; that means that after 16 Card Pop!, the older
-; names start to get overwritten
-	call EnableSRAM
-	ld hl, sTotalCardPopsDone
-	ld a, [hl]
-	inc [hl]
-	and $0f
-	swap a ; *NAME_BUFFER_LENGTH
-	ld l, a
-	ld h, $0
-	ld de, sCardPopNameList
-	add hl, de
-	ld de, wNameBuffer
-	ld c, NAME_BUFFER_LENGTH
-.loop_write_name
-	ld a, [de]
-	inc de
-	ld [hli], a
-	dec c
-	jr nz, .loop_write_name
-	call DisableSRAM
-	or a
-	ret
-
-.fail
-	ldtx hl, ThePopWasntSuccessfulText
-	scf
-	ret
-
-; looks up the name in wNameBuffer in wCardPopNameList
-; used to know whether this save file has done Card Pop!
-; with the other player already
-; returns carry and wCardPopNameSearchResult = $ff if the name was found;
-; returns no carry and wCardPopNameSearchResult = $00 otherwise
-LookUpNameInCardPopNameList: ; 19d49 (6:5d49)
-; searches for other player's name in this game's name list
-	ld hl, wCardPopNameList
-	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
-.loop_own_card_pop_name_list
-	push hl
-	ld de, wNameBuffer
-	call .CompareNames
-	pop hl
-	jr nc, .found_name
-	ld de, NAME_BUFFER_LENGTH
-	add hl, de
-	dec c
-	jr nz, .loop_own_card_pop_name_list
-
-; name was not found in wCardPopNameList
-
-; searches for this player's name in the other game's name list
-; this is useless since it discards the result from the name comparisons
-; as a result this loop will always return no carry
-	call EnableSRAM
-	ld hl, wOtherPlayerCardPopNameList
-	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
-.loop_other_card_pop_name_list
-	push hl
-	ld de, sPlayerName
-	call .CompareNames ; discards result from comparison
-	pop hl
-	ld de, NAME_BUFFER_LENGTH
-	add hl, de
-	dec c
-	jr nz, .loop_other_card_pop_name_list
-	xor a
-	jr .no_carry
-
-.found_name
-	ld a, $ff
-	scf
-.no_carry
-	call DisableSRAM
-	ld [wCardPopNameSearchResult], a ; $00 if name was not found, $ff otherwise
-	ret
-
-; compares names in hl and de
-; if they are different, return carry
-.CompareNames
-	ld b, NAME_BUFFER_LENGTH
-.loop_chars
-	ld a, [de]
-	inc de
-	cp [hl]
-	jr nz, .not_same
-	inc hl
-	dec b
-	jr nz, .loop_chars
-	or a
-	ret
-.not_same
-	scf
-	ret
-
-; loads in wLoadedCard1 a random card to be received
-; this selection is done based on the rarity that is
-; decided from the names of both participants
-; the card will always be a Pokemon card that is not
-; from a Promotional set, with the exception
-; of Venusaur1 and Mew2
-; output:
-; - e = card ID chosen
-DecideCardToReceiveFromCardPop: ; 19d92 (6:5d92)
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	call EnableSRAM
-	ld hl, sPlayerName
-	call CalculateNameHash
-	call DisableSRAM
-	push de
-	ld hl, wNameBuffer
-	call CalculateNameHash
-	pop bc
-
-; de = other player's name  hash
-; bc = this player's name hash
-
-; updates RNG values to subtraction of these two hashes
-	ld hl, wRNG1
-	ld a, b
-	sub d
-	ld d, a ; b - d
-	ld [hli], a ; wRNG1
-	ld a, c
-	sub e
-	ld e, a ; c - e
-	ld [hli], a ; wRNG2
-	ld [hl], $0 ; wRNGCounter
-
-; depending on the values obtained from the hashes,
-; determine which rarity card to give to the player
-; along with the song to play with each rarity
-; the probabilities of each possibility can be calculated
-; as follows (given 2 random player names):
-; 101/256 ~ 39% for Circle
-;  90/256 ~ 35% for Diamond
-;  63/256 ~ 25% for Star
-;   1/256 ~ .4% for Venusaur1 or Mew2
-	ld a, e
-	cp 5
-	jr z, .venusaur1_or_mew2
-	cp 64
-	jr c, .star_rarity ; < 64
-	cp 154
-	jr c, .diamond_rarity ; < 154
-	; >= 154
-
-	ld a, MUSIC_BOOSTER_PACK
-	ld b, CIRCLE
-	jr .got_rarity
-.diamond_rarity
-	ld a, MUSIC_BOOSTER_PACK
-	ld b, DIAMOND
-	jr .got_rarity
-.star_rarity
-	ld a, MUSIC_MATCH_VICTORY
-	ld b, STAR
-.got_rarity
-	ld [wCardPopCardObtainSong], a
-	ld a, b
-	call CreateCardPopCandidateList
-	; shuffle candidates and pick first from list
-	call ShuffleCards
-	ld a, [hl]
-	ld e, a
-.got_card_id
-	ld d, $0
-	call LoadCardDataToBuffer1_FromCardID
-	ld a, e
-	ret
-
-.venusaur1_or_mew2
-; choose either Venusaur1 or Mew2
-; depending on whether the lower
-; bit of d is unset or set, respectively
-	ld a, MUSIC_MEDAL
-	ld [wCardPopCardObtainSong], a
-	ld e, VENUSAUR1
-	ld a, d
-	and $1 ; get lower bit
-	jr z, .got_card_id
-	ld e, MEW2
-	jr .got_card_id
-
-; lists in wCardPopCardCandidates all cards that:
-; - are Pokemon cards;
-; - have the same rarity as input register a;
-; - are not from Promotional set.
-; input:
-; - a = card rarity
-; output:
-; - a = number of candidates
-CreateCardPopCandidateList: ; 19df7 (6:5df7)
-	ld hl, wPlayerDeck
-	push hl
-	push de
-	push bc
-	ld b, a
-
-	lb de, 0, GRASS_ENERGY
-.loop_card_ids
-	call LoadCardDataToBuffer1_FromCardID
-	jr c, .count ; no more card IDs
-	ld a, [wLoadedCard1Type]
-	and TYPE_ENERGY
-	jr nz, .next_card_id ; not Pokemon card
-	ld a, [wLoadedCard1Rarity]
-	cp b
-	jr nz, .next_card_id ; not equal rarity
-	ld a, [wLoadedCard1Set]
-	and $f0
-	cp PROMOTIONAL
-	jr z, .next_card_id ; no promos
-	ld [hl], e
-	inc hl
-.next_card_id
-	inc de
-	jr .loop_card_ids
-
-; count all the cards that were listed
-; and return it in a
-.count
-	ld [hl], $00 ; invalid card ID as end of list
-	ld hl, wPlayerDeck
-	ld c, -1
-.loop_count
-	inc c
-	ld a, [hli]
-	or a
-	jr nz, .loop_count
-	ld a, c
-	pop bc
-	pop de
-	pop hl
-	ret
-
-; creates a unique two-byte hash from the name given in hl
-; the low byte is calculated by simply adding up all characters
-; the high byte is calculated by xoring all characters together
-; input:
-; - hl = points to the start of the name buffer
-; output:
-; - de = hash
-CalculateNameHash: ; 19e32 (6:5e32)
-	ld c, NAME_BUFFER_LENGTH
-	ld de, $0
-.loop
-	ld a, e
-	add [hl]
-	ld e, a
-	ld a, d
-	xor [hl]
-	ld d, a
-	inc hl
-	dec c
-	jr nz, .loop
-	ret
-
-; sends serial data to printer
-; if there's an error in connection,
-; show Printer Not Connected scene with error message
-_PreparePrinterConnection: ; 19e42 (6:5e42)
-	ld bc, $0
-	lb de, PRINTERPKT_DATA, $0
-	call SendPrinterPacket
-	ret nc ; return if no error
-
-	ld hl, wPrinterStatus
-	ld a, [hl]
-	or a
-	jr nz, .asm_19e55
-	ld [hl], $ff
-.asm_19e55
-	ld a, [hl]
-	cp $ff
-	jr z, ShowPrinterIsNotConnected
-;	fallthrough
-
-; shows message on screen depending on wPrinterStatus
-; also shows SCENE_GAMEBOY_PRINTER_NOT_CONNECTED.
-HandlePrinterError: ; 19e5a (6:5e5a)
-	ld a, [wPrinterStatus]
-	cp $ff
-	jr z, .cable_or_printer_switch
-	or a
-	jr z, .interrupted
-	bit PRINTER_ERROR_BATTERIES_LOST_CHARGE, a
-	jr nz, .batteries_lost_charge
-	bit PRINTER_ERROR_CABLE_PRINTER_SWITCH, a
-	jr nz, .cable_or_printer_switch
-	bit PRINTER_ERROR_PAPER_JAMMED, a
-	jr nz, .jammed_printer
-
-	ldtx hl, PrinterPacketErrorText
-	ld a, $04
-	jr ShowPrinterConnectionErrorScene
-.cable_or_printer_switch
-	ldtx hl, CheckCableOrPrinterSwitchText
-	ld a, $02
-	jr ShowPrinterConnectionErrorScene
-.jammed_printer
-	ldtx hl, PrinterPaperIsJammedText
-	ld a, $03
-	jr ShowPrinterConnectionErrorScene
-.batteries_lost_charge
-	ldtx hl, BatteriesHaveLostTheirChargeText
-	ld a, $01
-	jr ShowPrinterConnectionErrorScene
-.interrupted
-	ldtx hl, PrintingWasInterruptedText
-	call DrawWideTextBox_WaitForInput
-	scf
-	ret
-
-ShowPrinterIsNotConnected: ; 19e94 (6:5e94)
-	ldtx hl, PrinterIsNotConnectedText
-	ld a, $02
-;	fallthrough
-
-; a = error code
-; hl = text ID to print in text box
-ShowPrinterConnectionErrorScene: ; 19e99 (6:5e99)
-	push hl
-	; unnecessary loading TxRam, since the text data
-	; already incorporate the error number
-	ld l, a
-	ld h, $00
-	call LoadTxRam3
-
-	call Func_198e7
-	ld a, SCENE_GAMEBOY_PRINTER_NOT_CONNECTED
-	lb bc, 0, 0
-	call LoadScene
-	pop hl
-	call DrawWideTextBox_WaitForInput
-	call RestoreVBlankFunction
-	scf
-	ret
-
-; main card printer function
-Func_19eb4: ; 19eb4 (6:5eb4)
-	ld e, a
-	ld d, $0
-	call LoadCardDataToBuffer1_FromCardID
-	call Func_198e7
-	ld a, SCENE_GAMEBOY_PRINTER_TRANSMITTING
-	lb bc, 0, 0
-	call LoadScene
-	ld a, 20
-	call CopyCardNameAndLevel
-	ld [hl], TX_END
-	ld hl, $0
-	call LoadTxRam2
-	ldtx hl, NowPrintingText
-	call DrawWideTextBox_PrintText
-	call EnableLCD
-	call PrepareForPrinterCommunications
-	call DrawTopCardInfoInSRAMGfxBuffer0
-	call Func_19f87
-	call DrawCardPicInSRAMGfxBuffer2
-	call Func_19f99
-	jr c, .error
-	call DrawBottomCardInfoInSRAMGfxBuffer0
-	call Func_1a011
-	jr c, .error
-	call RestoreVBlankFunction
-	call ResetPrinterCommunicationSettings
-	or a
-	ret
-.error
-	call RestoreVBlankFunction
-	call ResetPrinterCommunicationSettings
-	jp HandlePrinterError
-
-DrawCardPicInSRAMGfxBuffer2: ; 19f05 (6:5f05)
-	ld hl, wLoadedCard1Gfx
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld de, sGfxBuffer2
-	call Func_37a5
-	; draw card's picture in sGfxBuffer2
-	ld a, $40
-	lb hl, 12,  1
-	lb de,  2, 68
-	lb bc, 16, 12
-	call FillRectangle
-	ret
-
-; writes the tiles necessary to draw
-; the card's information in sGfxBuffer0
-; this includes card's type, lv, HP and attacks if Pokemon card
-; or otherwise just the card's name and type symbol
-DrawTopCardInfoInSRAMGfxBuffer0: ; 19f20 (6:5f20)
-	call Func_1a025
-	call Func_212f
-
-	; draw empty text box frame
-	ld hl, sGfxBuffer0
-	ld a, $34
-	lb de, $30, $31
-	ld b, 20
-	call CopyLine
-	ld c, 15
-.loop_lines
-	xor a ; SYM_SPACE
-	lb de, $36, $37
-	ld b, 20
-	call CopyLine
-	dec c
-	jr nz, .loop_lines
-
-	; draw card type symbol
-	ld a, $38
-	lb hl, 1,  2
-	lb de, 1, 65
-	lb bc, 2,  2
-	call FillRectangle
-	; print card's name
-	lb de, 4, 65
-	ld hl, wLoadedCard1Name
-	call InitTextPrinting_ProcessTextFromPointerToID
-
-; prints card's type, lv, HP and attacks if it's a Pokemon card
-	ld a, [wLoadedCard1Type]
-	cp TYPE_ENERGY
-	jr nc, .skip_pokemon_data
-	inc a ; symbol corresponding to card's type (color)
-	lb bc, 18, 65
-	call WriteByteToBGMap0
-	ld a, SYM_Lv
-	lb bc, 11, 66
-	call WriteByteToBGMap0
-	ld a, [wLoadedCard1Level]
-	lb bc, 12, 66
-	bank1call WriteTwoDigitNumberInTxSymbolFormat
-	ld a, SYM_HP
-	lb bc, 15, 66
-	call WriteByteToBGMap0
-	ld a, [wLoadedCard1EffectCommands]
-	inc b
-	bank1call WriteTwoByteNumberInTxSymbolFormat
-.skip_pokemon_data
-	ret
-
-Func_19f87: ; 19f87 (6:5f87)
-	call TryInitPrinterCommunications
-	ret c
-	ld hl, sGfxBuffer0
-	call Func_1a0cc
-	ret c
-	call Func_1a0cc
-	call Func_1a111
-	ret
-
-Func_19f99: ; 19f99 (6:5f99)
-	call TryInitPrinterCommunications
-	ret c
-	ld hl, sGfxBuffer0 + $8 tiles
-	ld c, $06
-.asm_19fa2
-	call Func_1a0cc
-	ret c
-	dec c
-	jr nz, .asm_19fa2
-	call Func_1a111
-	ret
-
-; writes the tiles necessary to draw
-; the card's information in sGfxBuffer0
-; this includes card's Retreat cost, Weakness, Resistance,
-; and attack if it's Pokemon card
-; or otherwise just the card's description.
-DrawBottomCardInfoInSRAMGfxBuffer0: ; 19fad (6:5fad)
-	call Func_1a025
-	xor a
-	ld [wCardPageType], a
-	ld hl, sGfxBuffer0
-	ld b, 20
-	ld c, 9
-.loop_lines
-	xor a ; SYM_SPACE
-	lb de, $36, $37
-	call CopyLine
-	dec c
-	jr nz, .loop_lines
-	ld a, $35
-	lb de, $32, $33
-	call CopyLine
-
-	ld a, [wLoadedCard1Type]
-	cp TYPE_ENERGY
-	jr nc, .not_pkmn_card
-	ld hl, RetreatWeakResistData
-	call PlaceTextItems
-	ld c, 66
-	bank1call DisplayCardPage_PokemonOverview.attacks
-	ld a, SYM_No
-	lb bc, 15, 72
-	call WriteByteToBGMap0
-	inc b
-	ld a, [wLoadedCard1PokedexNumber]
-	bank1call WriteTwoByteNumberInTxSymbolFormat
-	ret
-
-.not_pkmn_card
-	bank1call SetNoLineSeparation
-	lb de, 1, 66
-	ld a, SYM_No
-	call InitTextPrintingInTextbox
-	ld hl, wLoadedCard1NonPokemonDescription
-	call ProcessTextFromPointerToID
-	bank1call SetOneLineSeparation
-	ret
-
-RetreatWeakResistData: ; 1a004 (6:6004)
-	textitem 1, 70, RetreatText
-	textitem 1, 71, WeaknessText
-	textitem 1, 72, ResistanceText
-	db $ff
-
-Func_1a011: ; 1a011 (6:6011)
-	call TryInitPrinterCommunications
-	ret c
-	ld hl, sGfxBuffer0
-	ld c, $05
-.asm_1a01a
-	call Func_1a0cc
-	ret c
-	dec c
-	jr nz, .asm_1a01a
-	call Func_1a108
-	ret
-
-; calls setup text and sets wTilePatternSelector
-Func_1a025: ; 1a025 (6:6025)
-	lb de, $40, $bf
-	call SetupText
-	ld a, $a4
-	ld [wTilePatternSelector], a
-	xor a
-	ld [wTilePatternSelectorCorrection], a
-	ret
-
-; switches to CGB normal speed, resets serial
-; enables SRAM and switches to SRAM1
-; and clears sGfxBuffer0
-PrepareForPrinterCommunications: ; 1a035 (6:6035)
-	call SwitchToCGBNormalSpeed
-	call ResetSerial
-	ld a, $10
-	ld [wce9b], a
-	call EnableSRAM
-	ld a, [sPrinterContrastLevel]
-	ld [wPrinterContrastLevel], a
-	call DisableSRAM
-	ldh a, [hBankSRAM]
-	ld [wce8f], a
-	ld a, BANK("SRAM1")
-	call BankswitchSRAM
-	call EnableSRAM
-;	fallthrough
-
-ClearPrinterGfxBuffer: ; 1a035 (6:6035)
-	ld hl, sGfxBuffer0
-	ld bc, $400
-.loop
-	xor a
-	ld [hli], a
-	dec bc
-	ld a, c
-	or b
-	jr nz, .loop
-	xor a
-	ld [wce9f], a
-	ret
-
-; reverts settings changed by PrepareForPrinterCommunications
-ResetPrinterCommunicationSettings: ; 1a06b (6:606b)
-	push af
-	call SwitchToCGBDoubleSpeed
-	ld a, [wce8f]
-	call BankswitchSRAM
-	call DisableSRAM
-	lb de, $30, $bf
-	call SetupText
-	pop af
-	ret
-
-; unreferenced
-; send some bytes through serial
-Func_1a080: ; 1a080 (6:6080)
-	ld bc, $0
-	lb de, PRINTERPKT_NUL, $0
-	jp SendPrinterPacket
-
-; tries initiating the communications for
-; sending data to printer
-; returns carry if operation was cancelled
-; by pressing B button or serial transfer took long
-TryInitPrinterCommunications: ; 1a089 (6:6089)
-	xor a
-	ld [wPrinterInitAttempts], a
-.wait_input
-	call DoFrame
-	ldh a, [hKeysHeld]
-	and B_BUTTON
-	jr nz, .b_button
-	ld bc, $0
-	lb de, PRINTERPKT_NUL, $0
-	call SendPrinterPacket
-	jr c, .delay
-	and (1 << PRINTER_STATUS_BUSY) | (1 << PRINTER_STATUS_PRINTING)
-	jr nz, .wait_input
-
-.init
-	ld bc, $0
-	lb de, PRINTERPKT_INIT, $0
-	call SendPrinterPacket
-	jr nc, .no_carry
-	ld hl, wPrinterInitAttempts
-	inc [hl]
-	ld a, [hl]
-	cp 3
-	jr c, .wait_input
-	; time out
-	scf
-	ret
-.no_carry
-	ret
-
-.b_button
-	xor a
-	ld [wPrinterStatus], a
-	scf
-	ret
-
-.delay
-	ld c, 10
-.delay_loop
-	call DoFrame
-	dec c
-	jr nz, .delay_loop
-	jr .init
-
-; loads tiles given by map in hl to sGfxBuffer5
-; copies first 20 tiles, then offsets by 2 tiles
-; and copies another 20
-Func_1a0cc: ; 1a0cc (6:60cc)
-	push bc
-	ld de, sGfxBuffer5
-	call .Copy20Tiles
-	call .Copy20Tiles
-	push hl
-	call CompressDataForPrinterSerialTransfer
-	call SendPrinterPacket
-	pop hl
-	pop bc
-	ret
-
-; copies 20 tiles given by hl to de
-; then adds 2 tiles to hl
-.Copy20Tiles ; 1a0e0 (6:60e0)
-	push hl
-	ld c, 20
-.loop_tiles
-	ld a, [hli]
-	call .CopyTile
-	dec c
-	jr nz, .loop_tiles
-	pop hl
-	ld bc, 2 tiles
-	add hl, bc
-	ret
-
-; copies a tile to de
-; a = tile to get from sGfxBuffer1
-.CopyTile ; 1a0f0 (6:60f0)
-	push hl
-	push bc
-	ld l, a
-	ld h, $00
-	add hl, hl
-	add hl, hl
-	add hl, hl
-	add hl, hl ; *TILE_SIZE
-	ld bc, sGfxBuffer1
-	add hl, bc
-	ld c, TILE_SIZE
-.loop_copy
-	ld a, [hli]
-	ld [de], a
-	inc de
-	dec c
-	jr nz, .loop_copy
-	pop bc
-	pop hl
-	ret
-
-Func_1a108: ; 1a108 (6:6108)
-	call GetPrinterContrastSerialData
-	push hl
-	lb hl, $3, $1
-	jr SendPrinterInstructionPacket
-
-Func_1a111: ; 1a111 (6:6111)
-	call GetPrinterContrastSerialData
-	push hl
-	ld hl, wce9b
-	ld a, [hl]
-	ld [hl], $00
-	ld h, a
-	ld l, $01
-;	fallthrough
-
-SendPrinterInstructionPacket: ; 1a11e (6:611e)
-	push hl
-	ld bc, $0
-	lb de, PRINTERPKT_DATA, $0
-	call SendPrinterPacket
-	jr c, .asm_1a135
-	ld hl, sp+$00 ; contrast level bytes
-	ld bc, $4 ; instruction packets are 4 bytes in size
-	lb de, PRINTERPKT_PRINT_INSTRUCTION, $0
-	call SendPrinterPacket
-.asm_1a135
-	pop hl
-	pop hl
-	ret
-
-; returns in h and l the bytes
-; to be sent through serial to the printer
-; for the set contrast level
-GetPrinterContrastSerialData: ; 1a138 (6:6138)
-	ld a, [wPrinterContrastLevel]
-	ld e, a
-	ld d, $00
-	ld hl, .contrast_level_data
-	add hl, de
-	ld h, [hl]
-	ld l, $e4
-	ret
-
-.contrast_level_data
-	db $00, $20, $40, $60, $7f
-
-; unreferenced
-Func_1a14b: ; 1a14b (6:614b)
-	ld a, $01
-	jr .asm_1a15d
-	ld a, $02
-	jr .asm_1a15d
-	ld a, $03
-	jr .asm_1a15d
-	ld a, $04
-	jr .asm_1a15d
-	ld a, $05
-.asm_1a15d
-	ld [wce9d], a
-	scf
-	ret
-
-; a = saved deck index to print
-_PrintDeckConfiguration: ; 1a162 (6:6162)
-; copies selected deck from SRAM to wDuelTempList
-	call EnableSRAM
-	ld l, a
-	ld h, DECK_STRUCT_SIZE
-	call HtimesL
-	ld de, sSavedDeck1
-	add hl, de
-	ld de, wDuelTempList
-	ld bc, DECK_STRUCT_SIZE
-	call CopyDataHLtoDE
-	call DisableSRAM
-
-	call ShowPrinterTransmitting
-	call PrepareForPrinterCommunications
-	call Func_1a025
-	call Func_212f
-	lb de, 0, 64
-	lb bc, 20, 4
-	call DrawRegularTextBoxDMG
-	lb de, 4, 66
-	call InitTextPrinting
-	ld hl, wDuelTempList ; print deck name
-	call ProcessText
-	ldtx hl, DeckPrinterText
-	call ProcessTextFromID
-
-	ld a, 5
-	ld [wPrinterHorizontalOffset], a
-	ld hl, wPrinterTotalCardCount
-	xor a
-	ld [hli], a
-	ld [hl], a
-	ld [wPrintOnlyStarRarity], a
-
-	ld hl, wCurDeckCards
-.loop_cards
-	ld a, [hl]
-	or a
-	jr z, .asm_1a1d6
-	ld e, a
-	ld d, $00
-	call LoadCardDataToBuffer1_FromCardID
-
-	; find out this card's count
-	ld a, [hli]
-	ld b, a
-	ld c, 1
-.loop_card_count
-	cp [hl]
-	jr nz, .got_card_count
-	inc hl
-	inc c
-	jr .loop_card_count
-
-.got_card_count
-	ld a, c
-	ld [wPrinterCardCount], a
-	call LoadCardInfoForPrinter
-	call AddToPrinterGfxBuffer
-	jr c, .printer_error
-	jr .loop_cards
-
-.asm_1a1d6
-	call SendCardListToPrinter
-	jr c, .printer_error
-	call ResetPrinterCommunicationSettings
-	call RestoreVBlankFunction
-	or a
-	ret
-
-.printer_error
-	call ResetPrinterCommunicationSettings
-	call RestoreVBlankFunction
-	jp HandlePrinterError
-
-SendCardListToPrinter: ; 1a1ec (6:61ec)
-	ld a, [wPrinterHorizontalOffset]
-	cp 1
-	jr z, .skip_load_gfx
-	call LoadGfxBufferForPrinter
-	ret c
-.skip_load_gfx
-	call TryInitPrinterCommunications
-	ret c
-	call Func_1a108
-	ret
-; 0z1a1ff
-
-; increases printer horizontal offset by 2
-AddToPrinterGfxBuffer: ; 1a1ff (6:61ff)
-	push hl
-	ld hl, wPrinterHorizontalOffset
-	inc [hl]
-	inc [hl]
-	ld a, [hl]
-	pop hl
-	; return no carry if below 18
-	cp 18
-	ccf
-	ret nc
-	; >= 18
-;	fallthrough
-
-; copies Gfx to Gfx buffer and sends some serial data
-; returns carry set if unsuccessful
-LoadGfxBufferForPrinter: ; 1a20b (6:620b)
-	push hl
-	call TryInitPrinterCommunications
-	jr c, .set_carry
-	ld a, [wPrinterHorizontalOffset]
-	srl a
-	ld c, a
-	ld hl, sGfxBuffer0
-.loop_gfx_buffer
-	call Func_1a0cc
-	jr c, .set_carry
-	dec c
-	jr nz, .loop_gfx_buffer
-	call Func_1a111
-	jr c, .set_carry
-
-	call ClearPrinterGfxBuffer
-	ld a, 1
-	ld [wPrinterHorizontalOffset], a
-	pop hl
-	or a
-	ret
-
-.set_carry
-	pop hl
-	scf
-	ret
-
-; load symbol, name, level and card count to buffer
-LoadCardInfoForPrinter: ; 1a235 (6:6235)
-	push hl
-	ld a, [wPrinterHorizontalOffset]
-	or %1000000
-	ld e, a
-	ld d, 3
-	ld a, [wPrintOnlyStarRarity]
-	or a
-	jr nz, .skip_card_symbol
-	ld hl, wPrinterTotalCardCount
-	ld a, [hli]
-	or [hl]
-	call z, DrawCardSymbol
-.skip_card_symbol
-	ld a, 14
-	call CopyCardNameAndLevel
-	call InitTextPrinting
-	ld hl, wDefaultText
-	call ProcessText
-	ld a, [wPrinterHorizontalOffset]
-	or %1000000
-	ld c, a
-	ld b, 16
-	ld a, SYM_CROSS
-	call WriteByteToBGMap0
-	inc b
-	ld a, [wPrinterCardCount]
-	bank1call WriteTwoDigitNumberInTxSymbolFormat
-	pop hl
-	ret
-
-_PrintCardList: ; 1a270 (6:6270)
-; if Select button is held when printing card list
-; only print cards with Star rarity (excluding Promotional cards)
-; even if it's not marked as seen in the collection
-	ld e, FALSE
-	ldh a, [hKeysHeld]
-	and SELECT
-	jr z, .no_select
-	inc e ; TRUE
-.no_select
-	ld a, e
-	ld [wPrintOnlyStarRarity], a
-
-	call ShowPrinterTransmitting
-	call CreateTempCardCollection
-	ld de, wDefaultText
-	call CopyPlayerName
-	call PrepareForPrinterCommunications
-	call Func_1a025
-	call Func_212f
-
-	lb de, 0, 64
-	lb bc, 20, 4
-	call DrawRegularTextBoxDMG
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	lb de, 2, 66
-	call InitTextPrinting
-	ld hl, wDefaultText
-	call ProcessText
-	ldtx hl, AllCardsOwnedText
-	call ProcessTextFromID
-	ld a, [wPrintOnlyStarRarity]
-	or a
-	jr z, .asm_1a2c2
-	ld a, TX_HALF2FULL
-	call ProcessSpecialTextCharacter
-	lb de, 3, 84
-	call Func_22ca
-.asm_1a2c2
-	ld a, $ff
-	ld [wCurPrinterCardType], a
-	xor a
-	ld hl, wPrinterTotalCardCount
-	ld [hli], a
-	ld [hl], a
-	ld [wPrinterNumCardTypes], a
-	ld a, 5
-	ld [wPrinterHorizontalOffset], a
-
-	ld e, GRASS_ENERGY
-.loop_cards
-	push de
-	ld d, $00
-	call LoadCardDataToBuffer1_FromCardID
-	jr c, .done_card_loop
-	ld d, HIGH(wTempCardCollection)
-	ld a, [de] ; card ID count in collection
-	ld [wPrinterCardCount], a
-	call .LoadCardTypeEntry
-	jr c, .printer_error_pop_de
-
-	ld a, [wPrintOnlyStarRarity]
-	or a
-	jr z, .all_owned_cards_mode
-	ld a, [wLoadedCard1Set]
-	and %11110000
-	cp PROMOTIONAL
-	jr z, .next_card
-	ld a, [wLoadedCard1Rarity]
-	cp STAR
-	jr nz, .next_card
-	; not Promotional, and Star rarity
-	ld hl, wPrinterCardCount
-	res CARD_NOT_OWNED_F, [hl]
-	jr .got_card_count
-
-.all_owned_cards_mode
-	ld a, [wPrinterCardCount]
-	or a
-	jr z, .next_card
-	cp CARD_NOT_OWNED
-	jr z, .next_card ; ignore not owned cards
-
-.got_card_count
-	ld a, [wPrinterCardCount]
-	and CARD_COUNT_MASK
-	ld c, a
-
-	; add to total card count
-	ld hl, wPrinterTotalCardCount
-	add [hl]
-	ld [hli], a
-	ld a, 0
-	adc [hl]
-	ld [hl], a
-
-	; add to current card type count
-	ld hl, wPrinterCurCardTypeCount
-	ld a, c
-	add [hl]
-	ld [hli], a
-	ld a, 0
-	adc [hl]
-	ld [hl], a
-
-	ld hl, wPrinterNumCardTypes
-	inc [hl]
-	ld hl, wce98
-	inc [hl]
-	call LoadCardInfoForPrinter
-	call AddToPrinterGfxBuffer
-	jr c, .printer_error_pop_de
-.next_card
-	pop de
-	inc e
-	jr .loop_cards
-
-.printer_error_pop_de
-	pop de
-.printer_error
-	call ResetPrinterCommunicationSettings
-	call RestoreVBlankFunction
-	jp HandlePrinterError
-
-.done_card_loop
-	pop de
-	; add separator line
-	ld a, [wPrinterHorizontalOffset]
-	dec a
-	or $40
-	ld c, a
-	ld b, 0
-	call BCCoordToBGMap0Address
-	ld a, $35
-	lb de, $35, $35
-	ld b, 20
-	call CopyLine
-	call AddToPrinterGfxBuffer
-	jr c, .printer_error
-
-	ld hl, wPrinterTotalCardCount
-	ld c, [hl]
-	inc hl
-	ld b, [hl]
-	ldtx hl, TotalNumberOfCardsText
-	call .PrintTextWithNumber
-	jr c, .printer_error
-	ld a, [wPrintOnlyStarRarity]
-	or a
-	jr nz, .done
-	ld a, [wPrinterNumCardTypes]
-	ld c, a
-	ld b, 0
-	ldtx hl, TypesOfCardsText
-	call .PrintTextWithNumber
-	jr c, .printer_error
-
-.done
-	call SendCardListToPrinter
-	jr c, .printer_error
-	call ResetPrinterCommunicationSettings
-	call RestoreVBlankFunction
-	or a
-	ret
-
-; prints text ID given in hl
-; with decimal representation of
-; the number given in bc
-; hl = text ID
-; bc = number
-.PrintTextWithNumber
-	push bc
-	ld a, [wPrinterHorizontalOffset]
-	dec a
-	or $40
-	ld e, a
-	ld d, 2
-	call InitTextPrinting
-	call ProcessTextFromID
-	ld d, 14
-	call InitTextPrinting
-	pop hl
-	call TwoByteNumberToTxSymbol_TrimLeadingZeros
-	ld hl, wStringBuffer
-	call ProcessText
-	call AddToPrinterGfxBuffer
-	ret
-
-; loads this card's type icon and text
-; if it's a new card type that hasn't been printed yet
-.LoadCardTypeEntry
-	ld a, [wLoadedCard1Type]
-	ld c, a
-	cp TYPE_ENERGY
-	jr c, .got_type ; jump if Pokemon card
-	ld c, $08
-	cp TYPE_TRAINER
-	jr nc, .got_type ; jump if Trainer card
-	ld c, $07
-.got_type
-	ld hl, wCurPrinterCardType
-	ld a, [hl]
-	cp c
-	ret z ; already handled this card type
-
-	; show corresponding icon and text
-	; for this new card type
-	ld a, c
-	ld [hl], a ; set it as current card type
-	add a
-	add c ; *3
-	ld c, a
-	ld b, $00
-	ld hl, .IconTextList
-	add hl, bc
-	ld a, [wPrinterHorizontalOffset]
-	dec a
-	or %1000000
-	ld e, a
-	ld d, 1
-	ld a, [hli]
-	push hl
-	lb bc, 2, 2
-	lb hl, 1, 2
-	call FillRectangle
-	pop hl
-	ld d, 3
-	inc e
-	call InitTextPrinting
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	call ProcessTextFromID
-
-	call AddToPrinterGfxBuffer
-	ld hl, wPrinterCurCardTypeCount
-	xor a
-	ld [hli], a
-	ld [hl], a
-	ld [wce98], a
-	ret
-
-.IconTextList
-	; Fire
-	db $e0 ; icon tile
-	tx FirePokemonText
-
-	; Grass
-	db $e4 ; icon tile
-	tx GrassPokemonText
-
-	; Lightning
-	db $e8 ; icon tile
-	tx LightningPokemonText
-
-	; Water
-	db $ec ; icon tile
-	tx WaterPokemonText
-
-	; Fighting
-	db $f0 ; icon tile
-	tx FightingPokemonText
-
-	; Psychic
-	db $f4 ; icon tile
-	tx PsychicPokemonText
-
-	; Colorless
-	db $f8 ; icon tile
-	tx ColorlessPokemonText
-
-	; Energy
-	db $fc ; icon tile
-	tx EnergyCardText
-
-	; Trainer
-	db $dc ; icon tile
-	tx TrainerCardText
-
-ShowPrinterTransmitting: ; 1a420 (6:6420)
-	call Func_198e7
-	ld a, SCENE_GAMEBOY_PRINTER_TRANSMITTING
-	lb bc, 0, 0
-	call LoadScene
-	ldtx hl, NowPrintingPleaseWaitText
-	call DrawWideTextBox_PrintText
-	call EnableLCD
-	ret
-
-; compresses $28 tiles in sGfxBuffer5
-; and writes it in sGfxBuffer5 + $28 tiles.
-; compressed data has 2 commands to instruct on how to decompress it.
-; - a command byte with bit 7 not set, means to copy that many + 1
-; bytes that are following it literally.
-; - a command byte with bit 7 set, means to copy the following byte
-; that many times + 2 (after masking the top bit of command byte).
-; returns in bc the size of the compressed data and
-; in de the packet type data.
-CompressDataForPrinterSerialTransfer: ; 1a435 (6:6435)
-	ld hl, sGfxBuffer5
-	ld de, sGfxBuffer5 + $28 tiles
-	ld bc, $28 tiles
-.loop_remaining_data
-	ld a, $ff
-	inc b
-	dec b
-	jr nz, .check_compression
-	ld a, c
-.check_compression
-	push bc
-	push de
-	ld c, a
-	call CheckDataCompression
-	ld a, e
-	ld c, e
-	pop de
-	jr c, .copy_byte
-	ld a, c
-	ld b, c
-	dec a
-	ld [de], a ; number of bytes to  copy literally - 1
-	inc de
-.copy_literal_sequence
-	ld a, [hli]
-	ld [de], a
-	inc de
-	dec c
-	jr nz, .copy_literal_sequence
-	ld c, b
-	jr .sub_added_bytes
-
-.copy_byte
-	ld a, c
-	dec a
-	dec a
-	or %10000000 ; set high bit
-	ld [de], a ; = (n times to copy - 2) | %10000000
-	inc de
-	ld a, [hl] ; byte to copy n times
-	ld [de], a
-	inc de
-	ld b, $0
-	add hl, bc
-
-.sub_added_bytes
-	ld a, c
-	cpl
-	inc a
-	pop bc
-	add c
-	ld c, a
-	ld a, $ff
-	adc b
-	ld b, a
-	or c
-	jr nz, .loop_remaining_data
-
-	ld hl, $10000 - (sGfxBuffer5 + $28 tiles)
-	add hl, de ; gets the size of the compressed data
-	ld c, l
-	ld b, h
-	ld hl, sGfxBuffer5 + $28 tiles
-	lb de, PRINTERPKT_DATA, $1
-	ret
-
-; checks whether the next byte sequence in hl, up to c bytes, can be compressed
-; returns carry if the next sequence of bytes can be compressed,
-; i.e. has at least 3 consecutive bytes with the same value.
-; in that case, returns in e the number of consecutive
-; same value bytes that were found.
-; if there are no bytes with same value, then count as many bytes left
-; as possible until either there are no more remaining data bytes,
-; or until a sequence of 3 bytes with the same value are found.
-; in that case, the number of bytes in this sequence is returned in e.
-CheckDataCompression: ; 1a485 (6:6485)
-	push hl
-	ld e, c
-	ld a, c
-; if number of remaining bytes is less than 4
-; then no point in compressing
-	cp 4
-	jr c, .no_carry
-
-; check first if there are at least
-; 3 consecutive bytes with the same value
-	ld b, c
-	ld a, [hli]
-	cp [hl]
-	inc hl
-	jr nz, .literal_copy ; not same
-	cp [hl]
-	inc hl
-	jr nz, .literal_copy ; not same
-
-; 3 consecutive bytes were found with same value
-; keep track of how many consecutive bytes
-; with the same value there are in e
-	dec c
-	dec c
-	dec c
-	ld e, 3
-.loop_same_value
-	cp [hl]
-	jr nz, .set_carry ; exit when a different byte is found
-	inc hl
-	inc e
-	dec c
-	jr z, .set_carry ; exit when there is no more remaining data
-	bit 5, e
-	; exit if number of consecutive bytes >= $20
-	jr z, .loop_same_value
-.set_carry
-	pop hl
-	scf
-	ret
-
-.literal_copy
-; consecutive bytes are not the same value
-; count the number of bytes there are left
-; until a sequence of 3 bytes with the same value is found
-	pop hl
-	push hl
-	ld c, b ; number of remaining bytes
-	ld e, 1
-	ld a, [hli]
-	dec c
-	jr z, .no_carry ; exit if no more data
-.reset_same_value_count
-	ld d, 2 ; number of consecutive same value bytes to exit
-.next_byte
-	inc e
-	dec c
-	jr z, .no_carry
-	bit 7, e
-	jr nz, .no_carry ; exit if >= $80
-	cp [hl]
-	jr z, .same_consecutive_value
-	ld a, [hli]
-	jr .reset_same_value_count
-.no_carry
-	pop hl
-	or a
-	ret
-
-.same_consecutive_value
-	inc hl
-	dec d
-	jr nz, .next_byte
-	; 3 consecutive bytes with same value found
-	; discard the last 3 bytes in the sequence
-	dec e
-	dec e
-	dec e
-	jr .no_carry
-
-; sets up to start a link duel
-; decides which device will pick the number of prizes
-; then exchanges names and duels between the players
-; and starts the main duel routine
-_SetUpAndStartLinkDuel: ; 1a4cf (6:64cf)
-	ld hl, sp+$00
-	ld a, l
-	ld [wDuelReturnAddress + 0], a
-	ld a, h
-	ld [wDuelReturnAddress + 1], a
-	call Func_198e7
-
-	ld a, SCENE_GAMEBOY_LINK_TRANSMITTING
-	lb bc, 0, 0
-	call LoadScene
-
-	bank1call LoadPlayerDeck
-	call SwitchToCGBNormalSpeed
-	bank1call DecideLinkDuelVariables
-	push af
-	call RestoreVBlankFunction
-	pop af
-	jp c, .error
-
-	ld a, DUELIST_TYPE_PLAYER
-	ld [wPlayerDuelistType], a
-	ld a, DUELIST_TYPE_LINK_OPP
-	ld [wOpponentDuelistType], a
-	ld a, DUELTYPE_LINK
-	ld [wDuelType], a
-
-	call EmptyScreen
-	ld a, [wSerialOp]
-	cp $29
-	jr nz, .asm_1a540
-
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	call .ExchangeNamesAndDecks
-	jr c, .error
-	lb de, 6, 2
-	lb bc, 8, 6
-	call DrawRegularTextBox
-	lb de, 7, 4
-	call InitTextPrinting
-	ldtx hl, PrizesCardsText
-	call ProcessTextFromID
-	ldtx hl, ChooseTheNumberOfPrizesText
-	call DrawWideTextBox_PrintText
-	call EnableLCD
-	call .PickNumberOfPrizeCards
-	ld a, [wNPCDuelPrizes]
-	call SerialSend8Bytes
-	jr .prizes_decided
-
-.asm_1a540
-	ld a, OPPONENT_TURN
-	ldh [hWhoseTurn], a
-	call .ExchangeNamesAndDecks
-	jr c, .error
-	ldtx hl, PleaseWaitDecidingNumberOfPrizesText
-	call DrawWideTextBox_PrintText
-	call EnableLCD
-	call SerialRecv8Bytes
-	ld [wNPCDuelPrizes], a
-
-.prizes_decided
-	call ExchangeRNG
-	ld a, LINK_OPP_PIC
-	ld [wOpponentPortrait], a
-	ldh a, [hWhoseTurn]
-	push af
-	call EmptyScreen
-	bank1call SetDefaultPalettes
-	ld a, SHUFFLE_DECK
-	ld [wDuelDisplayedScreen], a
-	bank1call DrawDuelistPortraitsAndNames
-	ld a, OPPONENT_TURN
-	ldh [hWhoseTurn], a
-	ld a, [wNPCDuelPrizes]
-	ld l, a
-	ld h, $00
-	call LoadTxRam3
-	ldtx hl, BeginAPrizeDuelWithText
-	call DrawWideTextBox_WaitForInput
-	pop af
-	ldh [hWhoseTurn], a
-	call ExchangeRNG
-	bank1call StartDuel_VSLinkOpp
-	call SwitchToCGBDoubleSpeed
-	ret
-
-.error
-	ld a, -1
-	ld [wDuelResult], a
-	call Func_198e7
-
-	ld a, SCENE_GAMEBOY_LINK_NOT_CONNECTED
-	lb bc, 0, 0
-	call LoadScene
-
-	ldtx hl, TransmissionErrorText
-	call DrawWideTextBox_WaitForInput
-	call RestoreVBlankFunction
-	call ResetSerial
-	ret
-
-.ExchangeNamesAndDecks
-	ld de, wDefaultText
-	push de
-	call CopyPlayerName
-	pop hl
-	ld de, wNameBuffer
-	ld c, NAME_BUFFER_LENGTH
-	call SerialExchangeBytes
-	ret c
-	xor a
-	ld hl, wOpponentName
-	ld [hli], a
-	ld [hl], a
-	ld hl, wPlayerDeck
-	ld de, wOpponentDeck
-	ld c, DECK_SIZE
-	call SerialExchangeBytes
-	ret
-
-; handles player choice of number of prize cards
-; pressing left/right makes it decrease/increase respectively
-; selection is confirmed by pressing A button
-.PickNumberOfPrizeCards
-	ld a, PRIZES_4
-	ld [wNPCDuelPrizes], a
-	xor a
-	ld [wPrizeCardSelectionFrameCounter], a
-.loop_input
-	call DoFrame
-	ld a, [wNPCDuelPrizes]
-	add SYM_0
-	ld e, a
-	; check frame counter so that it
-	; either blinks or shows number
-	ld hl, wPrizeCardSelectionFrameCounter
-	ld a, [hl]
-	inc [hl]
-	and $10
-	jr z, .no_blink
-	ld e, SYM_SPACE
-.no_blink
-	ld a, e
-	lb bc, 9, 6
-	call WriteByteToBGMap0
-
-	ldh a, [hDPadHeld]
-	ld b, a
-	ld a, [wNPCDuelPrizes]
-	bit D_LEFT_F, b
-	jr z, .check_d_right
-	dec a
-	cp PRIZES_2
-	jr nc, .got_prize_count
-	ld a, PRIZES_6 ; wrap around to 6
-	jr .got_prize_count
-
-.check_d_right
-	bit D_RIGHT_F, b
-	jr z, .check_a_btn
-	inc a
-	cp PRIZES_6 + 1
-	jr c, .got_prize_count
-	ld a, PRIZES_2
-.got_prize_count
-	ld [wNPCDuelPrizes], a
-	xor a
-	ld [wPrizeCardSelectionFrameCounter], a
-
-.check_a_btn
-	bit A_BUTTON_F, b
-	jr z, .loop_input
-	ret
-
-Func_1a61f: ; 1a61f (6:661f)
-	push af
-	lb de, $38, $9f
-	call SetupText
-	pop af
-	or a
-	jr nz, .else
-	ld a, MOLTRES2
-	call .legendary_card_text
-	ld a, ARTICUNO2
-	call .legendary_card_text
-	ld a, ZAPDOS3
-	call .legendary_card_text
-	ld a, DRAGONITE1
-.legendary_card_text
-	ldtx hl, ReceivedLegendaryCardText
-	jr .print_text
-.else
-	ldtx hl, ReceivedCardText
-	cp VILEPLUME
-	jr z, .print_text
-	cp BLASTOISE
-	jr z, .print_text
-	ldtx hl, ReceivedPromotionalFlyingPikachuText
-	cp FLYING_PIKACHU
-	jr z, .print_text
-	ldtx hl, ReceivedPromotionalSurfingPikachuText
-	cp SURFING_PIKACHU1
-	jr z, .print_text
-	cp SURFING_PIKACHU2
-	jr z, .print_text
-	ldtx hl, ReceivedPromotionalCardText
-.print_text
-	push hl
-	ld e, a
-	ld d, $0
-	call LoadCardDataToBuffer1_FromCardID
-	call PauseSong
-	ld a, MUSIC_MEDAL
-	call PlaySong
-	ld hl, wLoadedCard1Name
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	bank1call LoadTxRam2 ; switch to bank 1, but call a home func
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	pop hl
-	bank1call _DisplayCardDetailScreen
-.loop
-	call AssertSongFinished
-	or a
-	jr nz, .loop
-
-	call ResumeSong
-	bank1call OpenCardPage_FromHand
-	ret
-
-_OpenBoosterPack: ; 1a68d (6:668d)
-	ld a, PLAYER_TURN
-	ldh [hWhoseTurn], a
-	ld h, a
-	ld l, $00
-.asm_6694
-	xor a
-	ld [hli], a
-	ld a, l
-	cp $3c
-	jr c, .asm_6694
-	xor a
-	ld hl, wBoosterCardsDrawn
-	ld de, wDuelTempList
-	ld c, $00
-.asm_66a4
-	ld a, [hli]
-	or a
-	jr z, .asm_66ae
-	ld a, c
-	ld [de], a
-	inc de
-	inc c
-	jr .asm_66a4
-.asm_66ae
-	ld a, $ff
-	ld [de], a
-	lb de, $38, $9f
-	call SetupText
-	bank1call InitAndDrawCardListScreenLayout
-	ldtx hl, ChooseTheCardYouWishToExamineText
-	ldtx de, BoosterPackText
-	bank1call SetCardListHeaderText
-	ld a, A_BUTTON | START
-	ld [wNoItemSelectionMenuKeys], a
-	bank1call DisplayCardList
-	ret
-
-CommentedOut_1a6cc: ; 1a6cc (6:66cc)
-	ret
-
-Func_1a6cd: ; 1a6cd (6:66cd)
-	ldh a, [hBankSRAM]
-	or a
-	ret nz
-	push hl
-	push de
-	push bc
-	ld hl, sCardCollection
-	ld bc, $0250
-	ld a, [s0a000 + $b]
-	ld e, a
-.asm_66de
-	ld a, [hli]
-	xor e
-	ld e, a
-	dec bc
-	ld a, c
-	or b
-	jr nz, .asm_66de
-	ld a, e
-	pop bc
-	pop de
-	pop hl
-	or a
-	ret z
-	xor a
-	ld [wTileMapFill], a
-	ld hl, wDoFrameFunction
-	ld [hli], a
-	ld [hl], a
-	ldh [hSCX], a
-	ldh [hSCY], a
-	bank1call ZeroObjectPositionsAndToggleOAMCopy
-	call EmptyScreen
-	call LoadSymbolsFont
-	bank1call SetDefaultPalettes
-	ld a, [wConsole]
-	cp $01
-	jr nz, .asm_6719
-	ld a, $e4
-	ld [wOBP0], a
-	ld [wBGP], a
-	ld a, $01
-	ld [wFlushPaletteFlags], a
-.asm_6719
-	lb de, $38, $9f
-	call SetupText
-	ld hl, $00a3
-	bank1call DrawWholeScreenTextBox
-	ld a, $0a
-	ld [MBC3SRamEnable], a
-	xor a
-	ldh [hBankSRAM], a
-	ld [MBC3SRamBank], a
-	ld [MBC3RTC], a
-	ld [MBC3SRamEnable], a
-	jp Reset
-	ret
-
-Func_1a73a: ; 1a73a (6:673a)
-	ldh a, [hBankSRAM]
-	or a
-	ret nz
-	push hl
-	push de
-	push bc
-	ld hl, sCardCollection
-	ld bc, $0250
-	ld e, $00
-.asm_6749
-	ld a, [hli]
-	xor e
-	ld e, a
-	dec bc
-	ld a, c
-	or b
-	jr nz, .asm_6749
-	ld a, $0a
-	ld [MBC3SRamEnable], a
-	ld a, e
-	ld [s0a00b], a
-	pop bc
-	pop de
-	pop hl
-	ret
-
-WhatIsYourNameData: ; 1a75e (6:675e)
-	textitem 1, 1, WhatIsYourNameText
-	db $ff
-; [Deck1Data ~ Deck4Data]
-; These are directed from around (2:4f05),
-; without any bank description.
-; That is, the developers hard-coded it. -_-;;
-Deck1Data: ; 1a763 (6:6763)
-	textitem 2, 1, Deck1Text
-	textitem 14, 1, DeckText
-	db $ff
-Deck2Data: ; 1a76c (6:676c)
-	textitem 2, 1, Deck2Text
-	textitem 14, 1, DeckText
-	db $ff
-Deck3Data: ; 1a775 (6:6775)
-	textitem 2, 1, Deck3Text
-	textitem 14, 1, DeckText
-	db $ff
-Deck4Data: ; 1a77e (6:677e)
-	textitem 2, 1, Deck4Text
-	textitem 14, 1, DeckText
-	db $ff
-
-; set each byte zero from hl for b bytes.
-ClearMemory: ; 1a787 (6:6787)
-	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
-
-; play different sfx by a.
-; if a is 0xff play SFX_03 (usually following a B press),
-; else play SFX_02 (usually following an A press).
-PlayAcceptOrDeclineSFX: ; 1a794 (6:6794)
-	push af
-	inc a
-	jr z, .sfx_decline
-	ld a, SFX_02
-	jr .sfx_accept
-.sfx_decline
-	ld a, SFX_03
-.sfx_accept
-	call PlaySFX
-	pop af
-	ret
-
-; get player name from the user
-; into hl
-InputPlayerName: ; 1a7a3 (6:67a3)
-	ld e, l
-	ld d, h
-	ld a, MAX_PLAYER_NAME_LENGTH
-	ld hl, WhatIsYourNameData
-	lb bc, 12, 1
-	call InitializeInputName
-	call Set_OBJ_8x8
-	xor a
-	ld [wTileMapFill], a
-	call EmptyScreen
-	call ZeroObjectPositions
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call LoadSymbolsFont
-	lb de, $38, $bf
-	call SetupText
-	call LoadTextCursorTile
-	ld a, $02
-	ld [wd009], a
-	call DrawNamingScreenBG
-	xor a
-	ld [wNamingScreenCursorX], a
-	ld [wNamingScreenCursorY], a
-	ld a, $09
-	ld [wNamingScreenNumColumns], a
-	ld a, $06
-	ld [wNamingScreenKeyboardHeight], a
-	ld a, $0f
-	ld [wVisibleCursorTile], a
-	ld a, $00
-	ld [wInvisibleCursorTile], a
-.loop
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call DoFrame
-	call UpdateRNGSources
-	ldh a, [hDPadHeld]
-	and START
-	jr z, .else
-	; if pressed start button.
-	ld a, $01
-	call PlayAcceptOrDeclineSFX
-	call Func_1aa07
-	ld a, 6
-	ld [wNamingScreenCursorX], a
-	ld a, 5
-	ld [wNamingScreenCursorY], a
-	call Func_1aa23
-	jr .loop
-.else
-	call NamingScreen_CheckButtonState
-	jr nc, .loop ; if not pressed, go back to the loop.
-	cp $ff
-	jr z, .on_b_button
-	; on A button.
-	call NamingScreen_ProcessInput
-	jr nc, .loop
-	; if the player selected the end button,
-	; end its naming.
-	call FinalizeInputName
-	ret
-.on_b_button
-	ld a, [wNamingScreenBufferLength]
-	or a
-	jr z, .loop ; empty string?
-	; erase one character.
-	ld e, a
-	ld d, 0
-	ld hl, wNamingScreenBuffer
-	add hl, de
-	dec hl
-	dec hl
-	ld [hl], TX_END
-	ld hl, wNamingScreenBufferLength ; note that its unit is byte, not word.
-	dec [hl]
-	dec [hl]
-	call PrintPlayerNameFromInput
-	jr .loop
-
-; it's called when naming(either player's or deck's) starts.
-; a: maximum length of name(depending on whether player's or deck's).
-; bc: position of name.
-; de: dest. pointer.
-; hl: pointer to text item of the question.
-InitializeInputName: ; 1a846 (6:6846)
-	ld [wNamingScreenBufferMaxLength], a
-	push hl
-	ld hl, wNamingScreenNamePosition
-	ld [hl], b
-	inc hl
-	ld [hl], c
-	pop hl
-	ld b, h
-	ld c, l
-	; set the question string.
-	ld hl, wNamingScreenQuestionPointer
-	ld [hl], c
-	inc hl
-	ld [hl], b
-	; set the destination buffer.
-	ld hl, wNamingScreenDestPointer
-	ld [hl], e
-	inc hl
-	ld [hl], d
-	; clear the name buffer.
-	ld a, NAMING_SCREEN_BUFFER_LENGTH
-	ld hl, wNamingScreenBuffer
-	call ClearMemory
-	ld hl, wNamingScreenBuffer
-	ld a, [wNamingScreenBufferMaxLength]
-	ld b, a
-	inc b
-.loop
-	; copy data from de to hl
-	; for b bytes.
-	ld a, [de]
-	inc de
-	ld [hli], a
-	dec b
-	jr nz, .loop
-	ld hl, wNamingScreenBuffer
-	call GetTextLengthInTiles
-	ld a, c
-	ld [wNamingScreenBufferLength], a
-	ret
-
-FinalizeInputName: ; 1a880 (6:6880)
-	ld hl, wNamingScreenDestPointer
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	ld l, e
-	ld h, d
-	ld de, wNamingScreenBuffer
-	ld a, [wNamingScreenBufferMaxLength]
-	ld b, a
-	inc b
-	jr InitializeInputName.loop
-
-; draws the keyboard frame
-; and the question if it exists.
-DrawNamingScreenBG: ; 1a892 (6:6892)
-	call DrawTextboxForKeyboard
-	call PrintPlayerNameFromInput
-	ld hl, wNamingScreenQuestionPointer
-	ld c, [hl]
-	inc hl
-	ld a, [hl]
-	ld h, a
-	or c
-	jr z, .put_text_end
-	; print the question string.
-	; ex) "What is your name?"
-	ld l, c
-	call PlaceTextItems
-.put_text_end
-	; print "End".
-	ld hl, .data
-	call PlaceTextItems
-	ldtx hl, PlayerNameKeyboardText
-	lb de, 2, 4
-	call InitTextPrinting
-	call ProcessTextFromID
-	call EnableLCD
-	ret
-.data
-	textitem $0f, $10, EndText ; "End"
-	db $ff
-
-DrawTextboxForKeyboard: ; 1a8c1 (6:68c1)
-	lb de, 0, 3 ; x, y
-	lb bc, 20, 15 ; w, h
-	call DrawRegularTextBox
-	ret
-
-PrintPlayerNameFromInput: ; 1a8cb (6:68cb)
-	ld hl, wNamingScreenNamePosition
-	ld d, [hl]
-	inc hl
-	ld e, [hl]
-	push de
-	call InitTextPrinting
-	ld a, [wNamingScreenBufferMaxLength]
-	ld e, a
-	ld a, $14
-	sub e
-	inc a
-	ld e, a
-	ld d, 0
-	; print the underbars
-	; before print the input.
-	ld hl, .char_underbar
-	add hl, de
-	call ProcessText
-	pop de
-	call InitTextPrinting
-	; print the input from the user.
-	ld hl, wNamingScreenBuffer
-	call ProcessText
-	ret
-.char_underbar
-	db $56
-rept 10
-	textfw3 "_"
-endr
-	done
-
-; check if button pressed.
-; if pressed, set the carry bit on.
-NamingScreen_CheckButtonState: ; 1a908 (6:6908)
-	xor a
-	ld [wPlaysSfx], a
-	ldh a, [hDPadHeld]
-	or a
-	jp z, .no_press
-	; detected any button press.
-	ld b, a
-	ld a, [wNamingScreenKeyboardHeight]
-	ld c, a
-	ld a, [wNamingScreenCursorX]
-	ld h, a
-	ld a, [wNamingScreenCursorY]
-	ld l, a
-	bit D_UP_F, b
-	jr z, .asm_692c
-	; up
-	dec a
-	bit D_DOWN_F, a
-	jr z, .asm_69a7
-	ld a, c
-	dec a
-	jr .asm_69a7
-.asm_692c
-	bit D_DOWN_F, b
-	jr z, .asm_6937
-	; down
-	inc a
-	cp c
-	jr c, .asm_69a7
-	xor a
-	jr .asm_69a7
-.asm_6937
-	ld a, [wNamingScreenNumColumns]
-	ld c, a
-	ld a, h
-	bit D_LEFT_F, b
-	jr z, .asm_6974
-	; left
-	ld d, a
-	ld a, $06
-	cp l
-	ld a, d
-	jr nz, .asm_696b
-	push hl
-	push bc
-	push af
-	call GetCharInfoFromPos_Player
-	inc hl
-	inc hl
-	inc hl
-	inc hl
-	inc hl
-	ld a, [hl]
-	dec a
-	ld d, a
-	pop af
-	pop bc
-	pop hl
-	sub d
-	cp $ff
-	jr nz, .asm_6962
-	ld a, c
-	sub $02
-	jr .asm_69aa
-.asm_6962
-	cp $fe
-	jr nz, .asm_696b
-	ld a, c
-	sub $03
-	jr .asm_69aa
-.asm_696b
-	dec a
-	bit D_DOWN_F, a
-	jr z, .asm_69aa
-	ld a, c
-	dec a
-	jr .asm_69aa
-.asm_6974
-	bit D_RIGHT_F, b
-	jr z, .no_press
-	ld d, a
-	ld a, $06
-	cp l
-	ld a, d
-	jr nz, .asm_6990
-	push hl
-	push bc
-	push af
-	call GetCharInfoFromPos_Player
-	inc hl
-	inc hl
-	inc hl
-	inc hl
-	ld a, [hl]
-	dec a
-	ld d, a
-	pop af
-	pop bc
-	pop hl
-	add d
-.asm_6990
-	inc a
-	cp c
-	jr c, .asm_69aa
-	inc c
-	cp c
-	jr c, .asm_69a4
-	inc c
-	cp c
-	jr c, .asm_69a0
-	ld a, $02
-	jr .asm_69aa
-.asm_69a0
-	ld a, $01
-	jr .asm_69aa
-.asm_69a4
-	xor a
-	jr .asm_69aa
-.asm_69a7
-	ld l, a
-	jr .asm_69ab
-.asm_69aa
-	ld h, a
-.asm_69ab
-	push hl
-	call GetCharInfoFromPos_Player
-	inc hl
-	inc hl
-	inc hl
-	ld a, [wd009]
-	cp $02
-	jr nz, .asm_69bb
-	inc hl
-	inc hl
-.asm_69bb
-	ld d, [hl]
-	push de
-	call Func_1aa07
-	pop de
-	pop hl
-	ld a, l
-	ld [wNamingScreenCursorY], a
-	ld a, h
-	ld [wNamingScreenCursorX], a
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-	ld a, $06
-	cp d
-	jp z, NamingScreen_CheckButtonState
-	ld a, $01
-	ld [wPlaysSfx], a
-.no_press
-	ldh a, [hKeysPressed]
-	and A_BUTTON | B_BUTTON
-	jr z, .asm_69ef
-	and A_BUTTON
-	jr nz, .asm_69e5
-	ld a, $ff
-.asm_69e5
-	call PlayAcceptOrDeclineSFX
-	push af
-	call Func_1aa23
-	pop af
-	scf
-	ret
-.asm_69ef
-	ld a, [wPlaysSfx]
-	or a
-	jr z, .asm_69f8
-	call PlaySFX
-.asm_69f8
-	ld hl, wCheckMenuCursorBlinkCounter
-	ld a, [hl]
-	inc [hl]
-	and $0f
-	ret nz
-	ld a, [wVisibleCursorTile]
-	bit 4, [hl]
-	jr z, Func_1aa07.asm_6a0a
-
-Func_1aa07: ; 1aa07 (6:6a07)
-	ld a, [wInvisibleCursorTile]
-.asm_6a0a
-	ld e, a
-	ld a, [wNamingScreenCursorX]
-	ld h, a
-	ld a, [wNamingScreenCursorY]
-	ld l, a
-	call GetCharInfoFromPos_Player
-	ld a, [hli]
-	ld c, a
-	ld b, [hl]
-	dec b
-	ld a, e
-	call Func_1aa28
-	call WriteByteToBGMap0
-	or a
-	ret
-
-Func_1aa23: ; 1aa23 (6:6a23)
-	ld a, [wVisibleCursorTile]
-	jr Func_1aa07.asm_6a0a
-
-Func_1aa28: ; 1aa28 (6:6a28)
-	push af
-	push bc
-	push de
-	push hl
-	push af
-	call ZeroObjectPositions
-	pop af
-	ld b, a
-	ld a, [wInvisibleCursorTile]
-	cp b
-	jr z, .asm_6a60
-	ld a, [wNamingScreenBufferLength]
-	srl a
-	ld d, a
-	ld a, [wNamingScreenBufferMaxLength]
-	srl a
-	ld e, a
-	ld a, d
-	cp e
-	jr nz, .asm_6a49
-	dec a
-.asm_6a49
-	ld hl, wNamingScreenNamePosition
-	add [hl]
-	ld d, a
-	ld h, $08
-	ld l, d
-	call HtimesL
-	ld a, l
-	add $08
-	ld d, a
-	ld e, $18
-	ld bc, $0000
-	call SetOneObjectAttributes
-.asm_6a60
-	pop hl
-	pop de
-	pop bc
-	pop af
-	ret
-
-; load, to the first tile of v0Tiles0, the graphics for the
-; blinking black square used in name input screens.
-; for inputting full width text.
-LoadTextCursorTile: ; 1aa65 (6:6a65)
-	ld hl, v0Tiles0 + $00 tiles
-	ld de, .data
-	ld b, 0
-.loop
-	ld a, TILE_SIZE
-	cp b
-	ret z
-	inc b
-	ld a, [de]
-	inc de
-	ld [hli], a
-	jr .loop
-
-.data
-rept TILE_SIZE
-	db $ff
-endr
-
-; set the carry bit on,
-; if "End" was selected.
-NamingScreen_ProcessInput: ; 1aa87 (6:6a87)
-	ld a, [wNamingScreenCursorX]
-	ld h, a
-	ld a, [wNamingScreenCursorY]
-	ld l, a
-	call GetCharInfoFromPos_Player
-	inc hl
-	inc hl
-	; load types into de.
-	ld e, [hl]
-	inc hl
-	ld a, [hli]
-	ld d, a
-	cp $09
-	jp z, .on_end
-	cp $07
-	jr nz, .asm_6ab8
-	ld a, [wd009]
-	or a
-	jr nz, .asm_6aac
-	ld a, $01
-	jp .asm_6ace
-.asm_6aac
-	dec a
-	jr nz, .asm_6ab4
-	ld a, $02
-	jp .asm_6ace
-.asm_6ab4
-	xor a
-	jp .asm_6ace
-.asm_6ab8
-	cp $08
-	jr nz, .asm_6ad6
-	ld a, [wd009]
-	or a
-	jr nz, .asm_6ac6
-	ld a, $02
-	jr .asm_6ace
-.asm_6ac6
-	dec a
-	jr nz, .asm_6acc
-	xor a
-	jr .asm_6ace
-.asm_6acc
-	ld a, $01
-.asm_6ace
-	ld [wd009], a
-	call DrawNamingScreenBG
-	or a
-	ret
-.asm_6ad6
-	ld a, [wd009]
-	cp $02
-	jr z, .read_char
-	ldfw3 bc, "“"
-	ld a, d
-	cp b
-	jr nz, .asm_6af4
-	ld a, e
-	cp c
-	jr nz, .asm_6af4
-	push hl
-	ld hl, TransitionTable1 ; from 55th.
-	call TransformCharacter
-	pop hl
-	jr c, .nothing
-	jr .asm_6b09
-.asm_6af4
-	ldfw3 bc, "º(2)"
-	ld a, d
-	cp b
-	jr nz, .asm_6b1d
-	ld a, e
-	cp c
-	jr nz, .asm_6b1d
-	push hl
-	ld hl, TransitionTable2 ; from 72th.
-	call TransformCharacter
-	pop hl
-	jr c, .nothing
-.asm_6b09
-	ld a, [wNamingScreenBufferLength]
-	dec a
-	dec a
-	ld [wNamingScreenBufferLength], a
-	ld hl, wNamingScreenBuffer
-	push de
-	ld d, 0
-	ld e, a
-	add hl, de
-	pop de
-	ld a, [hl]
-	jr .asm_6b37
-.asm_6b1d
-	ld a, d
-	or a
-	jr nz, .asm_6b37
-	ld a, [wd009]
-	or a
-	jr nz, .asm_6b2b
-	ld a, TX_HIRAGANA
-	jr .asm_6b37
-.asm_6b2b
-	ld a, TX_KATAKANA
-	jr .asm_6b37
-; read character code from info. to register.
-; hl: pointer.
-.read_char
-	ld e, [hl]
-	inc hl
-	ld a, [hl] ; a: first byte of the code.
-	or a
-	; if 2 bytes code, jump.
-	jr nz, .asm_6b37
-	; if 1 byte code(ascii),
-	; set first byte to $0e.
-	ld a, $0e
-; on 2 bytes code.
-.asm_6b37
-	ld d, a ; de: character code.
-	ld hl, wNamingScreenBufferLength
-	ld a, [hl]
-	ld c, a
-	push hl
-	ld hl, wNamingScreenBufferMaxLength
-	cp [hl]
-	pop hl
-	jr nz, .asm_6b4c
-	; if the buffer is full
-	; just change the last character of it.
-	ld hl, wNamingScreenBuffer
-	dec hl
-	dec hl
-	jr .asm_6b51
-; increase name length before add the character.
-.asm_6b4c
-	inc [hl]
-	inc [hl]
-	ld hl, wNamingScreenBuffer
-; write 2 bytes character codes to the name buffer.
-; de: 2 bytes character codes.
-; hl: dest.
-.asm_6b51
-	ld b, 0
-	add hl, bc
-	ld [hl], d
-	inc hl
-	ld [hl], e
-	inc hl
-	ld [hl], TX_END ; null terminator.
-	call PrintPlayerNameFromInput
-.nothing
-	or a
-	ret
-.on_end
-	scf
-	ret
-
-; this transforms the last japanese character
-; in the name buffer into its dakuon shape or something.
-; it seems to have been deprecated as the game was translated into english.
-; but it can still be applied to english, such as upper-lower case transition.
-; hl: info. pointer.
-TransformCharacter: ; 1ab61 (6:6b61)
-	ld a, [wNamingScreenBufferLength]
-	or a
-	jr z, .return ; if the length is zero, just return.
-	dec a
-	dec a
-	push hl
-	ld hl, wNamingScreenBuffer
-	ld d, 0
-	ld e, a
-	add hl, de
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	; de: last character in the buffer,
-	; but byte-wise swapped.
-	ld a, TX_KATAKANA
-	cp e
-	jr nz, .hiragana
-	; if it's katakana,
-	; make it hiragana by decreasing its high byte.
-	dec e
-.hiragana
-	pop hl
-.loop
-	ld a, [hli]
-	or a
-	jr z, .return
-	cp d
-	jr nz, .next
-	ld a, [hl]
-	cp e
-	jr nz, .next
-	inc hl
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	or a
-	ret
-.next
-	inc hl
-	inc hl
-	inc hl
-	jr .loop
-.return
-	scf
-	ret
-
-; given the position of the current cursor,
-; it returns the pointer to the proper information.
-; h: position x.
-; l: position y.
-GetCharInfoFromPos_Player: ; 1ab93 (6:6b93)
-	push de
-	; (information index) = (x) * (height) + (y)
-	; (height) = 0x05(Deck) or 0x06(Player)
-	ld e, l
-	ld d, h
-	ld a, [wNamingScreenKeyboardHeight]
-	ld l, a
-	call HtimesL
-	ld a, l
-	add e
-	ld hl, KeyboardData_Player
-	pop de
-	or a
-	ret z
-.loop
-	inc hl
-	inc hl
-	inc hl
-	inc hl
-	inc hl
-	inc hl
-	dec a
-	jr nz, .loop
-	ret
-
-; a set of keyboard datum.
-; unit: 6 bytes.
-; structure:
-; abs. y pos. (1) / abs. x pos. (1) / type 1 (1) / type 2 (1) / char. code (2)
-; unused data contains its character code as zero.
-kbitem: MACRO
-	db \1, \2, \3, \4
-if (_NARG == 5)
-	dw \5
-elif (\5 == TX_FULLWIDTH3)
-	dw (\5 << 8) | STRCAT("FW3_", \6)
-else
-	dw (\5 << 8) | \6
-endc
-ENDM
-
-KeyboardData_Player: ; 1abaf (6:6baf)
-	kbitem $04, $02, $11, $00, TX_FULLWIDTH3,   "A"
-	kbitem $06, $02, $12, $00, TX_FULLWIDTH3,   "J"
-	kbitem $08, $02, $13, $00, TX_FULLWIDTH3,   "S"
-	kbitem $0a, $02, $14, $00,                  "o"
-	kbitem $0c, $02, $15, $00,                  "d"
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $04, $16, $00, TX_FULLWIDTH3,   "B"
-	kbitem $06, $04, $17, $00, TX_FULLWIDTH3,   "K"
-	kbitem $08, $04, $18, $00, TX_FULLWIDTH3,   "T"
-	kbitem $0a, $04, $19, $00, TX_FULLWIDTH3,   "&"
-	kbitem $0c, $04, $1a, $00,                  "e"
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $06, $1b, $00, TX_FULLWIDTH3,   "C"
-	kbitem $06, $06, $1c, $00, TX_FULLWIDTH3,   "L"
-	kbitem $08, $06, $1d, $00, TX_FULLWIDTH3,   "U"
-	kbitem $0a, $06, $1e, $00,                  "j"
-	kbitem $0c, $06, $1f, $00,                  "f"
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $08, $20, $00, TX_FULLWIDTH3,   "D"
-	kbitem $06, $08, $21, $00, TX_FULLWIDTH3,   "M"
-	kbitem $08, $08, $22, $00, TX_FULLWIDTH3,   "V"
-	kbitem $0a, $08, $23, $00,                  "k"
-	kbitem $0c, $08, $24, $00,                  "g"
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $0a, $25, $00, TX_FULLWIDTH3,   "E"
-	kbitem $06, $0a, $26, $00, TX_FULLWIDTH3,   "N"
-	kbitem $08, $0a, $27, $00, TX_FULLWIDTH3,   "W"
-	kbitem $0a, $0a, $28, $00,                  "w"
-	kbitem $0c, $0a, $29, $00,                  "h"
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $0c, $2a, $00, TX_FULLWIDTH3,   "F"
-	kbitem $06, $0c, $2b, $00, TX_FULLWIDTH3,   "O"
-	kbitem $08, $0c, $2c, $00, TX_FULLWIDTH3,   "X"
-	kbitem $0a, $0c, $2d, $00,                  "`"
-	kbitem $0c, $0c, $2e, $00,                  "i"
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $0e, $2f, $00, TX_FULLWIDTH3,   "G"
-	kbitem $06, $0e, $30, $00, TX_FULLWIDTH3,   "P"
-	kbitem $08, $0e, $31, $00, TX_FULLWIDTH3,   "Y"
-	kbitem $0a, $0e, $32, $00,                  "a"
-	kbitem $0c, $0e, $33, $00, TX_SYMBOL,       SYM_No
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $10, $34, $00, TX_FULLWIDTH3,   "H"
-	kbitem $06, $10, $35, $00, TX_FULLWIDTH3,   "Q"
-	kbitem $08, $10, $36, $00, TX_FULLWIDTH3,   "Z"
-	kbitem $0a, $10, $3c, $00,                  "b"
-	kbitem $0c, $10, $3d, $00, TX_SYMBOL,       SYM_Lv
-	kbitem $10, $0f, $01, $09, $0000
-
-	kbitem $04, $12, $37, $00, TX_FULLWIDTH3,   "I"
-	kbitem $06, $12, $38, $00, TX_FULLWIDTH3,   "R"
-	kbitem $08, $12, $39, $00,                  "n"
-	kbitem $0a, $12, $3a, $00,                  "c"
-	kbitem $0c, $12, $3b, $00,                  "p"
-	kbitem $10, $0f, $01, $09, $0000
-	kbitem $00, $00, $00, $00, $0000
-
-; a set of transition datum.
-; unit: 4 bytes.
-; structure:
-; previous char. code (2) / translated char. code (2)
-; - the former char. code contains 0x0e in high byte.
-; - the latter char. code contains only low byte.
-TransitionTable1:
-	dw $0e16, $003e
-	dw $0e17, $003f
-	dw $0e18, $0040
-	dw $0e19, $0041
-	dw $0e1a, $0042
-	dw $0e1b, $0043
-	dw $0e1c, $0044
-	dw $0e1d, $0045
-	dw $0e1e, $0046
-	dw $0e1f, $0047
-	dw $0e20, $0048
-	dw $0e21, $0049
-	dw $0e22, $004a
-	dw $0e23, $004b
-	dw $0e24, $004c
-	dw $0e2a, $004d
-	dw $0e2b, $004e
-	dw $0e2c, $004f
-	dw $0e2d, $0050
-	dw $0e2e, $0051
-	dw $0e52, $004d
-	dw $0e53, $004e
-	dw $0e54, $004f
-	dw $0e55, $0050
-	dw $0e56, $0051
-	dw $0000
-
-TransitionTable2:
-	dw $0e2a, $0052
-	dw $0e2b, $0053
-	dw $0e2c, $0054
-	dw $0e2d, $0055
-	dw $0e2e, $0056
-	dw $0e4d, $0052
-	dw $0e4e, $0053
-	dw $0e4f, $0054
-	dw $0e50, $0055
-	dw $0e51, $0056
-	dw $0000
-
-; get deck name from the user into de.
-; function description is similar to the player's.
-; refer to 'InputPlayerName'.
-InputDeckName: ; 1ad89 (6:6d89)
-	push af
-	; check if the buffer is empty.
-	ld a, [de]
-	or a
-	jr nz, .not_empty
-	; this buffer will contain half-width chars.
-	ld a, TX_HALFWIDTH
-	ld [de], a
-.not_empty
-	pop af
-	inc a
-	call InitializeInputName
-	call Set_OBJ_8x8
-
-	xor a
-	ld [wTileMapFill], a
-	call EmptyScreen
-	call ZeroObjectPositions
-
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call LoadSymbolsFont
-
-	lb de, $38, $bf
-	call SetupText
-	call LoadHalfWidthTextCursorTile
-
-	xor a
-	ld [wd009], a
-	call Func_1ae99
-
-	xor a
-	ld [wNamingScreenCursorX], a
-	ld [wNamingScreenCursorY], a
-
-	ld a, $09
-	ld [wNamingScreenNumColumns], a
-	ld a, $07
-	ld [wNamingScreenKeyboardHeight], a
-	ld a, $0f
-	ld [wVisibleCursorTile], a
-	ld a, $00
-	ld [wInvisibleCursorTile], a
-.loop
-	ld a, $01
-	ld [wVBlankOAMCopyToggle], a
-	call DoFrame
-
-	call UpdateRNGSources
-
-	ldh a, [hDPadHeld]
-	and START
-	jr z, .on_start
-
-	ld a, $01
-	call PlayAcceptOrDeclineSFX
-	call Func_1afa1
-
-	ld a, 6
-	ld [wNamingScreenCursorX], a
-	ld [wNamingScreenCursorY], a
-	call Func_1afbd
-
-	jr .loop
-.on_start
-	call Func_1aefb
-	jr nc, .loop
-
-	cp $ff
-	jr z, .asm_6e1c
-
-	call Func_1aec3
-	jr nc, .loop
-
-	call FinalizeInputName
-
-	ld hl, wNamingScreenDestPointer
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	inc hl
-
-	ld a, [hl]
-	or a
-	jr nz, .return
-
-	dec hl
-	ld [hl], TX_END
-.return
-	ret
-.asm_6e1c
-	ld a, [wNamingScreenBufferLength]
-	cp $02
-	jr c, .loop
-
-	ld e, a
-	ld d, 0
-	ld hl, wNamingScreenBuffer
-	add hl, de
-	dec hl
-	ld [hl], TX_END
-
-	ld hl, wNamingScreenBufferLength
-	dec [hl]
-	call ProcessTextWithUnderbar
-
-	jp .loop
-
-; load, to the first tile of v0Tiles0, the graphics for the
-; blinking black square used in name input screens.
-; for inputting half width text.
-LoadHalfWidthTextCursorTile: ; 1ae37 (6:6e37)
-	ld hl, v0Tiles0 + $00 tiles
-	ld de, .data
-	ld b, 0
-.loop
-	ld a, TILE_SIZE
-	cp b
-	ret z
-	inc b
-	ld a, [de]
-	inc de
-	ld [hli], a
-	jr .loop
-
-.data
-rept TILE_SIZE
-	db $f0
-endr
-
-; it's only for naming the deck.
-ProcessTextWithUnderbar: ; 1ae59 (6:6e59)
-	ld hl, wNamingScreenNamePosition
-	ld d, [hl]
-	inc hl
-	ld e, [hl]
-	call InitTextPrinting
-	ld hl, .underbar_data
-	ld de, wDefaultText
-.loop ; copy the underbar string.
-	ld a, [hli]
-	ld [de], a
-	inc de
-	or a
-	jr nz, .loop
-
-	ld hl, wNamingScreenBuffer
-	ld de, wDefaultText
-.loop2 ; copy the input from the user.
-	ld a, [hli]
-	or a
-	jr z, .print_name
-	ld [de], a
-	inc de
-	jr .loop2
-.print_name
-	ld hl, wDefaultText
-	call ProcessText
-	ret
-.underbar_data
-	db TX_HALFWIDTH
-rept MAX_DECK_NAME_LENGTH
-	db "_"
-endr
-	db TX_END
-
-Func_1ae99: ; 1ae99 (6:6e99)
-	call DrawTextboxForKeyboard
-	call ProcessTextWithUnderbar
-	ld hl, wNamingScreenQuestionPointer
-	ld c, [hl]
-	inc hl
-	ld a, [hl]
-	ld h, a
-	or c
-	jr z, .print
-	; print the question string.
-	ld l, c
-	call PlaceTextItems
-.print
-	; print "End"
-	ld hl, DrawNamingScreenBG.data
-	call PlaceTextItems
-	; print the keyboard characters.
-	ldtx hl, DeckNameKeyboardText ; "A B C D..."
-	lb de, 2, 4
-	call InitTextPrinting
-	call ProcessTextFromID
-	call EnableLCD
-	ret
-
-Func_1aec3: ; 1aec3 (6:6ec3)
-	ld a, [wNamingScreenCursorX]
-	ld h, a
-	ld a, [wNamingScreenCursorY]
-	ld l, a
-	call GetCharInfoFromPos_Deck
-	inc hl
-	inc hl
-	ld a, [hl]
-	cp $01
-	jr nz, .asm_6ed7
-	scf
-	ret
-.asm_6ed7
-	ld d, a
-	ld hl, wNamingScreenBufferLength
-	ld a, [hl]
-	ld c, a
-	push hl
-	ld hl, wNamingScreenBufferMaxLength
-	cp [hl]
-	pop hl
-	jr nz, .asm_6eeb
-	ld hl, wNamingScreenBuffer
-	dec hl
-	jr .asm_6eef
-.asm_6eeb
-	inc [hl]
-	ld hl, wNamingScreenBuffer
-.asm_6eef
-	ld b, 0
-	add hl, bc
-	ld [hl], d
-	inc hl
-	ld [hl], TX_END
-	call ProcessTextWithUnderbar
-	or a
-	ret
-
-Func_1aefb: ; 1aefb (6:6efb)
-	xor a
-	ld [wPlaysSfx], a
-	ldh a, [hDPadHeld]
-	or a
-	jp z, .asm_6f73
-	ld b, a
-	ld a, [wNamingScreenKeyboardHeight]
-	ld c, a
-	ld a, [wNamingScreenCursorX]
-	ld h, a
-	ld a, [wNamingScreenCursorY]
-	ld l, a
-	bit 6, b
-	jr z, .asm_6f1f
-	dec a
-	bit 7, a
-	jr z, .asm_6f4b
-	ld a, c
-	dec a
-	jr .asm_6f4b
-.asm_6f1f
-	bit 7, b
-	jr z, .asm_6f2a
-	inc a
-	cp c
-	jr c, .asm_6f4b
-	xor a
-	jr .asm_6f4b
-.asm_6f2a
-	cp $06
-	jr z, .asm_6f73
-	ld a, [wNamingScreenNumColumns]
-	ld c, a
-	ld a, h
-	bit 5, b
-	jr z, .asm_6f40
-	dec a
-	bit 7, a
-	jr z, .asm_6f4e
-	ld a, c
-	dec a
-	jr .asm_6f4e
-.asm_6f40
-	bit 4, b
-	jr z, .asm_6f73
-	inc a
-	cp c
-	jr c, .asm_6f4e
-	xor a
-	jr .asm_6f4e
-.asm_6f4b
-	ld l, a
-	jr .asm_6f4f
-.asm_6f4e
-	ld h, a
-.asm_6f4f
-	push hl
-	call GetCharInfoFromPos_Deck
-	inc hl
-	inc hl
-	ld d, [hl]
-	push de
-	call Func_1afa1
-	pop de
-	pop hl
-	ld a, l
-	ld [wNamingScreenCursorY], a
-	ld a, h
-	ld [wNamingScreenCursorX], a
-	xor a
-	ld [wCheckMenuCursorBlinkCounter], a
-	ld a, $02
-	cp d
-	jp z, Func_1aefb
-	ld a, $01
-	ld [wPlaysSfx], a
-.asm_6f73
-	ldh a, [hKeysPressed]
-	and $03
-	jr z, .asm_6f89
-	and $01
-	jr nz, .asm_6f7f
-	ld a, $ff
-.asm_6f7f
-	call PlayAcceptOrDeclineSFX
-	push af
-	call Func_1afbd
-	pop af
-	scf
-	ret
-.asm_6f89
-	ld a, [wPlaysSfx]
-	or a
-	jr z, .asm_6f92
-	call PlaySFX
-.asm_6f92
-	ld hl, wCheckMenuCursorBlinkCounter
-	ld a, [hl]
-	inc [hl]
-	and $0f
-	ret nz
-	ld a, [wVisibleCursorTile]
-	bit 4, [hl]
-	jr z, Func_1afa1.asm_6fa4
-
-Func_1afa1: ; 1afa1 (6:6fa1)
-	ld a, [wInvisibleCursorTile]
-.asm_6fa4
-	ld e, a
-	ld a, [wNamingScreenCursorX]
-	ld h, a
-	ld a, [wNamingScreenCursorY]
-	ld l, a
-	call GetCharInfoFromPos_Deck
-	ld a, [hli]
-	ld c, a
-	ld b, [hl]
-	dec b
-	ld a, e
-	call Func_1afc2
-	call WriteByteToBGMap0
-	or a
-	ret
-
-Func_1afbd: ; 1afbd (6:6fbd)
-	ld a, [wVisibleCursorTile]
-	jr Func_1afa1.asm_6fa4
-
-Func_1afc2: ; 1afc2 (6:6fc2)
-	push af
-	push bc
-	push de
-	push hl
-	push af
-	call ZeroObjectPositions
-	pop af
-	ld b, a
-	ld a, [wInvisibleCursorTile]
-	cp b
-	jr z, .asm_6ffb
-	ld a, [wNamingScreenBufferLength]
-	ld d, a
-	ld a, [wNamingScreenBufferMaxLength]
-	ld e, a
-	ld a, d
-	cp e
-	jr nz, .asm_6fdf
-	dec a
-.asm_6fdf
-	dec a
-	ld d, a
-	ld hl, wNamingScreenNamePosition
-	ld a, [hl]
-	sla a
-	add d
-	ld d, a
-	ld h, $04
-	ld l, d
-	call HtimesL
-	ld a, l
-	add $08
-	ld d, a
-	ld e, $18
-	ld bc, $0000
-	call SetOneObjectAttributes
-.asm_6ffb
-	pop hl
-	pop de
-	pop bc
-	pop af
-	ret
-
-; given the cursor position,
-; returns the character information which the cursor directs.
-; it's similar to "GetCharInfoFromPos_Player",
-; but the data structure is different in its unit size.
-; its unit size is 3, and player's is 6.
-; h: x
-; l: y
-GetCharInfoFromPos_Deck: ; 1b000 (6:7000)
-	push de
-	ld e, l
-	ld d, h
-	ld a, [wNamingScreenKeyboardHeight]
-	ld l, a
-	call HtimesL
-	ld a, l
-	add e
-	; x * h + y
-	ld hl, KeyboardData_Deck
-	pop de
-	or a
-	ret z
-.loop
-	inc hl
-	inc hl
-	inc hl
-	dec a
-	jr nz, .loop
-	ret
-
-KeyboardData_Deck: ; 1b019 (6:7019)
-	db $04, $02, "A"
-	db $06, $02, "J"
-	db $08, $02, "S"
-	db $0a, $02, "?"
-	db $0c, $02, "4"
-	db $0e, $02, $02
-	db $10, $0f, $01
-
-	db $04, $04, "B"
-	db $06, $04, "K"
-	db $08, $04, "T"
-	db $0a, $04, "&"
-	db $0c, $04, "5"
-	db $0e, $04, $02
-	db $10, $0f, $01
-
-	db $04, $06, "C"
-	db $06, $06, "L"
-	db $08, $06, "U"
-	db $0a, $06, "+"
-	db $0c, $06, "6"
-	db $0e, $06, $02
-	db $10, $0f, $01
-
-	db $04, $08, "D"
-	db $06, $08, "M"
-	db $08, $08, "V"
-	db $0a, $08, "-"
-	db $0c, $08, "7"
-	db $0e, $08, $02
-	db $10, $0f, $01
-
-	db $04, $0a, "E"
-	db $06, $0a, "N"
-	db $08, $0a, "W"
-	db $0a, $0a, "'"
-	db $0c, $0a, "8"
-	db $0e, $0a, $02
-	db $10, $0f, $01
-
-	db $04, $0c, "F"
-	db $06, $0c, "O"
-	db $08, $0c, "X"
-	db $0a, $0c, "0"
-	db $0c, $0c, "9"
-	db $0e, $0c, $02
-	db $10, $0f, $01
-
-	db $04, $0e, "G"
-	db $06, $0e, "P"
-	db $08, $0e, "Y"
-	db $0a, $0e, "1"
-	db $0c, $0e, " "
-	db $0e, $0e, $02
-	db $10, $0f, $01
-
-	db $04, $10, "H"
-	db $06, $10, "Q"
-	db $08, $10, "Z"
-	db $0a, $10, "2"
-	db $0c, $10, " "
-	db $0e, $10, $02
-	db $10, $0f, $01
-
-	db $04, $12, "I"
-	db $06, $12, "R"
-	db $08, $12, "!"
-	db $0a, $12, "3"
-	db $0c, $12, " "
-	db $0e, $12, $02
-	db $10, $0f, $01
-
-	ds 4 ; empty
-
-INCLUDE "data/auto_deck_card_lists.asm"
-INCLUDE "data/auto_deck_machines.asm"
-
-; writes to sAutoDecks all the deck configurations
-; from the Auto Deck Machine in wCurAutoDeckMachine
-ReadAutoDeckConfiguration: ; 1ba14 (6:7a14)
-	call EnableSRAM
-	ld a, [wCurAutoDeckMachine]
-	ld l, a
-	ld h, 6 * NUM_DECK_MACHINE_SLOTS
-	call HtimesL
-	ld bc, AutoDeckMachineEntries
-	add hl, bc
-	ld b, 0
-.loop_decks
-	call .GetPointerToSRAMAutoDeck
-	call .ReadDeckConfiguration
-	call .ReadDeckName
-
-	; store deck description text ID
-	push hl
-	ld de, wAutoDeckMachineTextDescriptions
-	ld h, b
-	ld l, 2
-	call HtimesL
-	add hl, de
-	ld d, h
-	ld e, l
-	pop hl
-	ld a, [hli]
-	ld [de], a
-	inc de
-	ld a, [hli]
-	ld [de], a
-	inc b
-	ld a, b
-	cp NUM_DECK_MACHINE_SLOTS
-	jr nz, .loop_decks
-	call DisableSRAM
-	ret
-
-; outputs in de the saved deck with index b
-.GetPointerToSRAMAutoDeck
-	push hl
-	ld l, b
-	ld h, DECK_STRUCT_SIZE
-	call HtimesL
-	ld de, sAutoDecks
-	add hl, de
-	ld d, h
-	ld e, l
-	pop hl
-	ret
-
-; writes the deck configuration in SRAM
-; by reading the given deck card list
-.ReadDeckConfiguration
-	push hl
-	push bc
-	push de
-	push de
-	ld e, [hl]
-	inc hl
-	ld d, [hl]
-	pop hl
-	ld bc, DECK_NAME_SIZE
-	add hl, bc
-.loop_create_deck
-	ld a, [de]
-	inc de
-	ld b, a ; card count
-	or a
-	jr z, .done_create_deck
-	ld a, [de]
-	inc de
-	ld c, a ; card ID
-.loop_card_count
-	ld [hl], c
-	inc hl
-	dec b
-	jr nz, .loop_card_count
-	jr .loop_create_deck
-.done_create_deck
-	pop de
-	pop bc
-	pop hl
-	inc hl
-	inc hl
-	ret
-
-.ReadDeckName
-	push hl
-	push bc
-	push de
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld de, wDismantledDeckName
-	call CopyText
-	pop hl
-	ld de, wDismantledDeckName
-.loop_copy_name
-	ld a, [de]
-	ld [hli], a
-	or a
-	jr z, .done_copy_name
-	inc de
-	jr .loop_copy_name
-.done_copy_name
-	pop bc
-	pop hl
-	inc hl
-	inc hl
-	ret
-
-; tries out all combinations of dismantling the player's decks
-; in order to build the deck in wSelectedDeckMachineEntry
-; if none of the combinations work, return carry set
-; otherwise, return in a which deck flags should be dismantled
-CheckWhichDecksToDismantleToBuildSavedDeck: ; 1ba9a (6:7a9a)
-	xor a
-	ld [wDecksToBeDismantled], a
-
-; first check if it can be built by
-; only dismantling a single deck
-	ld a, DECK_1
-.loop_single_built_decks
-	call .CheckIfCanBuild
-	ret nc
-	sla a ; next deck
-	cp (1 << NUM_DECKS)
-	jr z, .two_deck_combinations
-	jr .loop_single_built_decks
-
-.two_deck_combinations
-; next check all two deck combinations
-	ld a, DECK_1 | DECK_2
-	call .CheckIfCanBuild
-	ret nc
-	ld a, DECK_1 | DECK_3
-	call .CheckIfCanBuild
-	ret nc
-	ld a, DECK_1 | DECK_4
-	call .CheckIfCanBuild
-	ret nc
-	ld a, DECK_2 | DECK_3
-	call .CheckIfCanBuild
-	ret nc
-	ld a, DECK_2 | DECK_4
-	call .CheckIfCanBuild
-	ret nc
-	ld a, DECK_3 | DECK_4
-	call .CheckIfCanBuild
-	ret nc
-
-; all but one deck combinations
-	ld a, $ff ^ DECK_4
-.loop_three_deck_combinations
-	call .CheckIfCanBuild
-	ret nc
-	sra a
-	cp $ff
-	jr z, .all_decks
-	jr .loop_three_deck_combinations
-
-.all_decks
-; finally check if can be built by dismantling all decks
-	call .CheckIfCanBuild
-	ret nc
-
-; none of the combinations work
-	scf
-	ret
-
-; returns carry if wSelectedDeckMachineEntry cannot be built
-; by dismantling the decks given by register a
-; a = DECK_* flags
-.CheckIfCanBuild
-	push af
-	ld hl, wSelectedDeckMachineEntry
-	ld b, [hl]
-	farcall CheckIfCanBuildSavedDeck
-	jr c, .cannot_build
-	pop af
-	ld [wDecksToBeDismantled], a
-	or a
-	ret
-.cannot_build
-	pop af
-	scf
-	ret
diff --git a/src/engine/bank07.asm b/src/engine/bank07.asm
index d0172e5..cf9da13 100644
--- a/src/engine/bank07.asm
+++ b/src/engine/bank07.asm
@@ -1,24 +1,24 @@
-Func_1c000: ; 1c000 (7:4000)
-	jp Set_WD_off
+JumpSetWindowOff:
+	jp SetWindowOff
 
-; unreferenced debug function
+; debug function
 ; prints player's coordinates by pressing B
 ; and draws palettes by pressing A
-Func_1c003: ; 1c003 (7:4003)
+Func_1c003: ; unreferenced
 	ld a, [wCurMap]
 	or a
-	jr z, Func_1c000
+	jr z, JumpSetWindowOff
 	ld a, [wOverworldMode]
 	cp OWMODE_START_SCRIPT
-	jr nc, Func_1c000
+	jr nc, JumpSetWindowOff
 
 	ldh a, [hKeysHeld]
 	ld b, a
 	and A_BUTTON | B_BUTTON
 	cp b
-	jr nz, Func_1c000
+	jr nz, JumpSetWindowOff
 	and B_BUTTON
-	jr z, Func_1c000
+	jr z, JumpSetWindowOff
 
 	ld bc, $20
 	ld a, [wPlayerXCoord]
@@ -46,10 +46,10 @@ Func_1c003: ; 1c003 (7:4003)
 	ld a, $68
 	ldh [hWY], a
 .set_wd_on
-	call Set_WD_on
+	call SetWindowOn
 	ret
 
-Func_1c056: ; 1c056 (7:4056)
+Func_1c056:
 	push hl
 	push bc
 	push de
@@ -100,7 +100,7 @@ Func_1c056: ; 1c056 (7:4056)
 INCLUDE "data/warps.asm"
 
 ; loads data from the map header of wCurMap
-LoadMapHeader: ; 1c33b (7:433b)
+LoadMapHeader:
 	push hl
 	push bc
 	push de
@@ -143,7 +143,7 @@ LoadMapHeader: ; 1c33b (7:433b)
 
 INCLUDE "data/map_headers.asm"
 
-ClearNPCs: ; 1c440 (7:4440)
+ClearNPCs:
 	push hl
 	push bc
 	ld hl, wLoadedNPCs
@@ -159,7 +159,7 @@ ClearNPCs: ; 1c440 (7:4440)
 	pop hl
 	ret
 
-GetNPCDirection: ; 1c455 (7:4455)
+GetNPCDirection:
 	push hl
 	ld a, [wLoadedNPCTempIndex]
 	ld l, LOADED_NPC_DIRECTION
@@ -171,7 +171,7 @@ GetNPCDirection: ; 1c455 (7:4455)
 ; sets new position to active NPC
 ; and updates its tile permissions
 ; bc = new coords
-SetNPCPosition: ; 1c461 (7:4461)
+SetNPCPosition:
 	push hl
 	push bc
 	call UpdateNPCsTilePermission
@@ -186,7 +186,7 @@ SetNPCPosition: ; 1c461 (7:4461)
 	pop hl
 	ret
 
-GetNPCPosition: ; 1c477 (7:4477)
+GetNPCPosition:
 	push hl
 	ld a, [wLoadedNPCTempIndex]
 	ld l, LOADED_NPC_COORD_X
@@ -198,7 +198,7 @@ GetNPCPosition: ; 1c477 (7:4477)
 	ret
 
 ; Loads NPC Sprite Data
-LoadNPC: ; 1c485 (7:4485)
+LoadNPC:
 	push hl
 	push bc
 	push de
@@ -265,7 +265,7 @@ LoadNPC: ; 1c485 (7:4485)
 	ret
 
 ; returns carry if input NPC ID in register a is Ronald
-CheckIfNPCIsRonald: ; 1c4fa (7:44fa)
+CheckIfNPCIsRonald:
 	cp NPC_RONALD1
 	jr z, .set_carry
 	cp NPC_RONALD2
@@ -278,7 +278,7 @@ CheckIfNPCIsRonald: ; 1c4fa (7:44fa)
 	scf
 	ret
 
-UnloadNPC: ; 1c50a (7:450a)
+UnloadNPC:
 	push hl
 	call UpdateNPCsTilePermission
 	ld a, [wLoadedNPCTempIndex]
@@ -303,7 +303,7 @@ UnloadNPC: ; 1c50a (7:450a)
 	pop hl
 	ret
 
-Func_1c52e: ; 1c52e (7:452e)
+Func_1c52e:
 	push hl
 	push af
 	ld a, [wLoadedNPCTempIndex]
@@ -315,7 +315,7 @@ Func_1c52e: ; 1c52e (7:452e)
 	pop hl
 	ret
 
-Func_1c53f: ; 1c53f (7:453f)
+Func_1c53f:
 	push hl
 	push bc
 	ld a, [wLoadedNPCTempIndex]
@@ -332,7 +332,7 @@ Func_1c53f: ; 1c53f (7:453f)
 	pop hl
 	ret
 
-Func_1c557: ; 1c557 (7:4557)
+Func_1c557:
 	push bc
 	ld c, a
 	ld a, [wLoadedNPCTempIndex]
@@ -357,7 +357,7 @@ Func_1c557: ; 1c557 (7:4557)
 	ret
 
 ; a = NPC animation
-SetNPCAnimation: ; 1c57b (7:457b)
+SetNPCAnimation:
 	push hl
 	push bc
 	push af
@@ -371,7 +371,7 @@ SetNPCAnimation: ; 1c57b (7:457b)
 	pop hl
 	ret
 
-UpdateNPCAnimation: ; 1c58e (7:458e)
+UpdateNPCAnimation:
 	push hl
 	push bc
 	ld a, [wWhichSprite]
@@ -404,7 +404,7 @@ UpdateNPCAnimation: ; 1c58e (7:458e)
 ; give it a random initial value
 ; this makes it so that all NPCs are out of phase
 ; when they are loaded into a map
-ApplyRandomCountToNPCAnim: ; 1c5b9 (7:45b9)
+ApplyRandomCountToNPCAnim:
 	push hl
 	push bc
 	ld a, [wWhichSprite]
@@ -438,7 +438,7 @@ ApplyRandomCountToNPCAnim: ; 1c5b9 (7:45b9)
 
 ; sets the loaded NPC's direction
 ; to the direction that is in LOADED_NPC_DIRECTION_BACKUP
-Func_1c5e9: ; 1c5e9 (7:45e9)
+Func_1c5e9:
 	push hl
 	push bc
 	ld a, [wLoadedNPCTempIndex]
@@ -454,7 +454,7 @@ Func_1c5e9: ; 1c5e9 (7:45e9)
 	ret
 
 ; a = new direction
-SetNPCDirection: ; 1c5ff (7:45ff)
+SetNPCDirection:
 	push hl
 	push af
 	ld a, [wLoadedNPCTempIndex]
@@ -466,7 +466,7 @@ SetNPCDirection: ; 1c5ff (7:45ff)
 	pop hl
 	ret
 
-HandleAllNPCMovement: ; 1c610 (7:4610)
+HandleAllNPCMovement:
 	push hl
 	push bc
 	push de
@@ -527,7 +527,7 @@ HandleAllNPCMovement: ; 1c610 (7:4610)
 	pop hl
 	ret
 
-UpdateNPCSpritePosition: ; 1c665 (7:4665)
+UpdateNPCSpritePosition:
 	push hl
 	push bc
 	push de
@@ -623,7 +623,7 @@ UpdateNPCSpritePosition: ; 1c665 (7:4665)
 
 ; ands wIsAnNPCMoving with the current
 ; NPC's NPC_FLAG_MOVING_F
-UpdateIsAnNPCMovingFlag: ; 1c6d3 (7:46d3)
+UpdateIsAnNPCMovingFlag:
 	push hl
 	push bc
 	ld bc, LOADED_NPC_FLAGS
@@ -635,7 +635,7 @@ UpdateIsAnNPCMovingFlag: ; 1c6d3 (7:46d3)
 	pop hl
 	ret
 
-SetNPCsTilePermission: ; 1c6e3 (7:46e3)
+SetNPCsTilePermission:
 	push hl
 	push bc
 	ld a, [wLoadedNPCTempIndex]
@@ -650,7 +650,7 @@ SetNPCsTilePermission: ; 1c6e3 (7:46e3)
 	pop hl
 	ret
 
-SetAllNPCTilePermissions: ; 1c6f8 (7:46f8)
+SetAllNPCTilePermissions:
 	push hl
 	push bc
 	push de
@@ -675,7 +675,7 @@ SetAllNPCTilePermissions: ; 1c6f8 (7:46f8)
 	pop hl
 	ret
 
-UpdateNPCsTilePermission: ; 1c719 (7:4719)
+UpdateNPCsTilePermission:
 	push hl
 	push bc
 	ld a, [wLoadedNPCTempIndex]
@@ -691,7 +691,7 @@ UpdateNPCsTilePermission: ; 1c719 (7:4719)
 	ret
 
 ; Find NPC at coords b (x) c (y)
-FindNPCAtLocation: ; 1c72e (7:472e)
+FindNPCAtLocation:
 	push hl
 	push bc
 	push de
@@ -742,7 +742,7 @@ FindNPCAtLocation: ; 1c72e (7:472e)
 
 ; Probably needs a new name. Loads data for NPC that the next Script is for
 ; Sets direction, Loads Image data for it, loads name, and more
-SetNewScriptNPC: ; 1c768 (7:4768)
+SetNewScriptNPC:
 	push hl
 	ld a, [wLoadedNPCTempIndex]
 	ld l, LOADED_NPC_DIRECTION
@@ -760,7 +760,7 @@ SetNewScriptNPC: ; 1c768 (7:4768)
 	pop hl
 	ret
 
-StartNPCMovement: ; 1c78d (7:478d)
+StartNPCMovement:
 	push hl
 ; set NPC as moving
 	ld a, [wLoadedNPCTempIndex]
@@ -825,7 +825,7 @@ StartNPCMovement: ; 1c78d (7:478d)
 	ret
 
 ; returns nz if there is an NPC currently moving
-CheckIsAnNPCMoving: ; 1c7de (7:47de)
+CheckIsAnNPCMoving:
 	ld a, [wIsAnNPCMoving]
 	and NPC_FLAG_MOVING
 	ret
@@ -833,7 +833,7 @@ CheckIsAnNPCMoving: ; 1c7de (7:47de)
 ; while the NPC is moving, increment its movement step by 1
 ; once it reaches a value greater than 16, update
 ; its tile permission and its position and start next movement
-UpdateNPCMovementStep: ; 1c7e4 (7:47e4)
+UpdateNPCMovementStep:
 	push hl
 	push bc
 	push de
@@ -861,7 +861,7 @@ UpdateNPCMovementStep: ; 1c7e4 (7:47e4)
 	pop hl
 	ret
 
-UpdateNPCPosition: ; 1c80d (7:480d)
+UpdateNPCPosition:
 	push hl
 	push bc
 	ld a, [wLoadedNPCTempIndex]
@@ -888,7 +888,7 @@ UpdateNPCPosition: ; 1c80d (7:480d)
 	pop hl
 	ret
 
-ClearMasterBeatenList: ; 1c82e (7:482e)
+ClearMasterBeatenList:
 	push hl
 	push bc
 	ld c, $a
@@ -904,7 +904,7 @@ ClearMasterBeatenList: ; 1c82e (7:482e)
 
 ; writes Master in register a to
 ; first empty slot in wMastersBeatenList
-AddMasterBeatenToList: ; 1c83d (7:483d)
+AddMasterBeatenToList:
 	push hl
 	push bc
 	ld b, a
@@ -933,7 +933,7 @@ AddMasterBeatenToList: ; 1c83d (7:483d)
 
 ; iterates all masters and attempts to
 ; add each of them to wMastersBeatenList
-AddAllMastersToMastersBeatenList: ; 1c858 (7:4858)
+AddAllMastersToMastersBeatenList:
 	ld a, $01
 .loop
 	push af
@@ -944,13 +944,13 @@ AddAllMastersToMastersBeatenList: ; 1c858 (7:4858)
 	jr c, .loop
 	ret
 
-Func_1c865: ; 1c865 (7:4865)
+Func_1c865:
 	ret
 
-; unreferenced debug function
+; debug function
 ; adjusts hSCX and hSCY by using the arrow keys
 ; pressing B makes it scroll faster
-Func_1c866: ; 1c866 (7:4866)
+Func_1c866: ; unreferenced
 	ldh a, [hKeysHeld]
 	and B_BUTTON
 	call nz, .asm_1c86d ; executes following part twice
@@ -982,9 +982,8 @@ Func_1c866: ; 1c866 (7:4866)
 	ldh [hSCY], a
 	ret
 
-; unreferenced
 ; sets some flags on a given sprite
-Func_1c890: ; 1c890 (7:4890)
+Func_1c890: ; unreferenced
 	ld a, [wVBlankCounter]
 	and %111111
 	ret nz
@@ -1012,1775 +1011,3 @@ Func_1c890: ; 1c890 (7:4890)
 	set SPRITE_ANIM_FLAG_SPEED, [hl]
 .asm_1c8bb
 	ret
-
-Func_1c8bc: ; 1c8bc (7:48bc)
-	push hl
-	push bc
-	call Set_OBJ_8x8
-	ld a, LOW(Func_3ba2)
-	ld [wDoFrameFunction], a
-	ld a, HIGH(Func_3ba2)
-	ld [wDoFrameFunction + 1], a
-	ld a, $ff
-	ld hl, wAnimationQueue
-	ld c, ANIMATION_QUEUE_LENGTH
-.fill_queue
-	ld [hli], a
-	dec c
-	jr nz, .fill_queue
-	ld [wd42a], a
-	ld [wd4c0], a
-	xor a
-	ld [wDuelAnimBufferCurPos], a
-	ld [wDuelAnimBufferSize], a
-	ld [wd4b3], a
-	call DefaultScreenAnimationUpdate
-	call Func_3ca0
-	pop bc
-	pop hl
-	ret
-
-PlayLoadedDuelAnimation: ; 1c8ef (7:48ef)
-	ld a, [wDoFrameFunction + 0]
-	cp LOW(Func_3ba2)
-	jr nz, .error
-	ld a, [wDoFrameFunction + 1]
-	cp HIGH(Func_3ba2)
-	jr z, .okay
-.error
-	debug_nop
-	ret
-
-.okay
-	ld a, [wTempAnimation]
-	ld [wd4bf], a
-	cp DUEL_SPECIAL_ANIMS
-	jp nc, Func_1cb5e
-
-	push hl
-	push bc
-	push de
-	call GetAnimationData
-; hl: pointer
-
-	ld a, [wAnimationsDisabled]
-	or a
-	jr z, .check_to_play_sfx
-	; animations are disabled
-	push hl
-	ld bc, ANIM_SPRITE_ANIM_FLAGS
-	add hl, bc
-	ld a, [hl]
-	; if flag is set, play animation anyway
-	and (1 << SPRITE_ANIM_FLAG_UNSKIPPABLE)
-	pop hl
-	jr z, .return
-
-.check_to_play_sfx
-	push hl
-	ld bc, ANIM_SOUND_FX_ID
-	add hl, bc
-	ld a, [hl]
-	pop hl
-	or a
-	jr z, .calc_addr
-	call PlaySFX
-
-.calc_addr
-; this data field is always $00,
-; so this calculation is unnecessary
-; seems like there was supposed to be
-; more than 1 function to handle animation
-	push hl
-	ld bc, ANIM_HANDLER_FUNCTION
-	add hl, bc
-	ld a, [hl]
-	rlca
-	add LOW(.address) ; $48
-	ld l, a ; LO
-	ld a, HIGH(.address) ; $49
-	adc 0
-	ld h, a ; HI
-; hl: pointer
-	ld a, [hli]
-	ld b, [hl]
-	ld c, a
-	pop hl
-
-	call CallBC
-.return
-	pop de
-	pop bc
-	pop hl
-	ret
-
-.address
-	dw .handler_func
-
-.handler_func ; 1c94a (7:494a)
-; if any of ANIM_SPRITE_ID, ANIM_PALETTE_ID and ANIM_SPRITE_ANIM_ID
-; are 0, then return
-	ld e, l
-	ld d, h
-	ld c, ANIM_SPRITE_ANIM_ID + 1
-.loop
-	ld a, [de]
-	or a
-	jr z, .return_with_carry
-	inc de
-	dec c
-	jr nz, .loop
-
-	ld a, [hli] ; ANIM_SPRITE_ID
-	farcall CreateSpriteAndAnimBufferEntry
-	ld a, [wWhichSprite]
-	ld [wAnimationQueue], a ; push an animation to the queue
-
-	xor a
-	ld [wVRAMTileOffset], a
-	ld [wd4cb], a
-
-	ld a, [hli] ; ANIM_PALETTE_ID
-	farcall LoadPaletteData
-	ld a, [hli] ; ANIM_SPRITE_ANIM_ID
-
-	push af
-	ld a, [hli] ; ANIM_SPRITE_ANIM_FLAGS
-	ld [wAnimFlags], a
-	call LoadAnimCoordsAndFlags
-	pop af
-
-	farcall StartNewSpriteAnimation
-	or a
-	jr .done
-
-.return_with_carry
-	scf
-.done
-	ret
-
-; loads the correct coordinates/flags for
-; sprite animation in wAnimationQueue
-LoadAnimCoordsAndFlags: ; 1c980 (7:4980)
-	push hl
-	push bc
-	ld a, [wAnimationQueue]
-	ld c, SPRITE_ANIM_ATTRIBUTES
-	call GetSpriteAnimBufferProperty_SpriteInA
-	call GetAnimCoordsAndFlags
-
-	push af
-	and (1 << SPRITE_ANIM_FLAG_6) | (1 << SPRITE_ANIM_FLAG_5)
-	or [hl]
-	ld [hli], a
-	ld a, b
-	ld [hli], a ; SPRITE_ANIM_COORD_X
-	ld [hl], c ; SPRITE_ANIM_COORD_Y
-	pop af
-
-	ld bc, SPRITE_ANIM_FLAGS - SPRITE_ANIM_COORD_Y
-	add hl, bc
-	ld c, a ; useless
-	and (1 << SPRITE_ANIM_FLAG_Y_SUBTRACT) | (1 << SPRITE_ANIM_FLAG_X_SUBTRACT)
-	or [hl]
-	ld [hl], a
-	pop bc
-	pop hl
-	ret
-
-; outputs x and y coordinates for the sprite animation
-; taking into account who the turn duelist is.
-; also returns in a the allowed animation flags of
-; the configuration that is selected.
-; output:
-; a = anim flags
-; b = x coordinate
-; c = y coordinate
-GetAnimCoordsAndFlags: ; 1c9a2 (7:49a2)
-	push hl
-	ld c, 0
-	ld a, [wAnimFlags]
-	and (1 << SPRITE_ANIM_FLAG_SPEED)
-	jr nz, .calc_addr
-
-	ld a, [wDuelAnimationScreen]
-	add a ; 2 * [wDuelAnimationScreen]
-	ld c, a
-	add a ; 4 * [wDuelAnimationScreen]
-	add c ; 6 * [wDuelAnimationScreen]
-	add a ; 12 * [wDuelAnimationScreen]
-	ld c, a
-
-	ld a, [wDuelAnimDuelistSide]
-	cp PLAYER_TURN
-	jr z, .player_side
-; opponent side
-	ld a, 6
-	add c
-	ld c, a
-.player_side
-	ld a, [wDuelAnimLocationParam]
-	add c ; a = [wDuelAnimLocationParam] + c
-	ld c, a
-	ld b, 0
-	ld hl, AnimationCoordinatesIndex
-	add hl, bc
-	ld c, [hl]
-
-.calc_addr
-	ld a, c
-	add a ; a = c * 2
-	add c ; a = c * 3
-	ld c, a
-	ld b, 0
-	ld hl, AnimationCoordinates
-	add hl, bc
-	ld b, [hl] ; x coord
-	inc hl
-	ld c, [hl] ; y coord
-	inc hl
-	ld a, [wAnimFlags]
-	and [hl] ; flags
-	pop hl
-	ret
-
-AnimationCoordinatesIndex:
-; animations in the Duel Main Scene
-	db $01, $01, $01, $01, $01, $01 ; player
-	db $02, $02, $02, $02, $02, $02 ; opponent
-
-; animations in the Player's Play Area, for each Play Area Pokemon
-	db $03, $04, $05, $06, $07, $08 ; player
-	db $03, $04, $05, $06, $07, $08 ; opponent
-
-; animations in the Opponent's Play Area, for each Play Area Pokemon
-	db $09, $0a, $0b, $0c, $0d, $0e ; player
-	db $09, $0a, $0b, $0c, $0d, $0e ; opponent
-
-anim_coords: MACRO
-	db \1
-	db \2
-	db \3
-ENDM
-
-AnimationCoordinates:
-; x coord, y coord, animation flags
-	anim_coords 88,  88, (1 << SPRITE_ANIM_FLAG_3)
-
-; animations in the Duel Main Scene
-	anim_coords 40,  80, $00
-	anim_coords 136, 48, (1 << SPRITE_ANIM_FLAG_6) | (1 << SPRITE_ANIM_FLAG_5) | (1 << SPRITE_ANIM_FLAG_Y_SUBTRACT) | (1 << SPRITE_ANIM_FLAG_X_SUBTRACT)
-
-; animations in the Player's Play Area, for each Play Area Pokemon
-	anim_coords 88,  72, $00
-	anim_coords 24,  96, $00
-	anim_coords 56,  96, $00
-	anim_coords 88,  96, $00
-	anim_coords 120, 96, $00
-	anim_coords 152, 96, $00
-
-; animations in the Opponent's Play Area, for each Play Area Pokemon
-	anim_coords 88,  80, $00
-	anim_coords 152, 40, $00
-	anim_coords 120, 40, $00
-	anim_coords 88,  40, $00
-	anim_coords 56,  40, $00
-	anim_coords 24,  40, $00
-
-; appends to end of wDuelAnimBuffer
-; the current duel animation
-LoadDuelAnimationToBuffer: ; 1ca31 (7:4a31)
-	push hl
-	push bc
-	ld a, [wDuelAnimBufferCurPos]
-	ld b, a
-	ld hl, wDuelAnimBufferSize
-	ld a, [hl]
-	ld c, a
-	add DUEL_ANIM_STRUCT_SIZE
-	and %01111111
-	cp b
-	jp z, .skip
-	ld [hl], a
-
-	ld b, $00
-	ld hl, wDuelAnimBuffer
-	add hl, bc
-	ld a, [wTempAnimation]
-	ld [hli], a
-	ld a, [wDuelAnimationScreen]
-	ld [hli], a
-	ld a, [wDuelAnimDuelistSide]
-	ld [hli], a
-	ld a, [wDuelAnimLocationParam]
-	ld [hli], a
-	ld a, [wDuelAnimDamage]
-	ld [hli], a
-	ld a, [wDuelAnimDamage + 1]
-	ld [hli], a
-	ld a, [wd4b3]
-	ld [hli], a
-	ld a, [wDuelAnimReturnBank]
-	ld [hl], a
-
-.skip
-	pop bc
-	pop hl
-	ret
-
-; loads the animations from wDuelAnimBuffer
-; in ascending order, starting at wDuelAnimBufferCurPos
-PlayBufferedDuelAnimations: ; 1ca6e (7:4a6e)
-	push hl
-	push bc
-.next_duel_anim
-	ld a, [wDuelAnimBufferSize]
-	ld b, a
-	ld a, [wDuelAnimBufferCurPos]
-	cp b
-	jr z, .skip
-
-	ld c, a
-	add DUEL_ANIM_STRUCT_SIZE
-	and %01111111
-	ld [wDuelAnimBufferCurPos], a
-
-	ld b, $00
-	ld hl, wDuelAnimBuffer
-	add hl, bc
-	ld a, [hli]
-	ld [wTempAnimation], a
-	ld a, [hli]
-	ld [wDuelAnimationScreen], a
-	ld a, [hli]
-	ld [wDuelAnimDuelistSide], a
-	ld a, [hli]
-	ld [wDuelAnimLocationParam], a
-	ld a, [hli]
-	ld [wDuelAnimDamage], a
-	ld a, [hli]
-	ld [wDuelAnimDamage + 1], a
-	ld a, [hli]
-	ld [wd4b3], a
-	ld a, [hl]
-	ld [wDuelAnimReturnBank], a
-
-	call PlayLoadedDuelAnimation
-	call CheckAnyAnimationPlaying
-	jr nc, .next_duel_anim
-
-.skip
-	pop bc
-	pop hl
-	ret
-
-; gets data from Animations for anim ID in a
-; outputs the pointer to the data in hl
-GetAnimationData: ; 1cab3 (7:4ab3)
-	push bc
-	ld a, [wTempAnimation]
-	ld l, a
-	ld h, 0
-	add hl, hl ; hl = anim * 2
-	ld b, h
-	ld c, l
-	add hl, hl ; hl = anim * 4
-	add hl, bc ; hl = anim * 6
-	ld bc, Animations
-	add hl, bc
-	pop bc
-	ret
-
-Func_1cac5: ; 1cac5 (7:4ac5)
-	ld a, [wd42a]
-	cp $ff
-	jr nz, .asm_1cb03
-
-	ld a, [wd4c0]
-	or a
-	jr z, .asm_1cafb
-	cp $80
-	jr z, .asm_1cb11
-	ld hl, wAnimationQueue
-	ld c, ANIMATION_QUEUE_LENGTH
-.loop_queue
-	push af
-	push bc
-	ld a, [hl]
-	cp $ff
-	jr z, .next
-	ld [wWhichSprite], a
-	farcall GetSpriteAnimCounter
-	cp $ff
-	jr nz, .next
-	farcall DisableCurSpriteAnim
-	ld a, $ff
-	ld [hl], a
-
-.next
-	pop bc
-	pop af
-	and [hl]
-	inc hl
-	dec c
-	jr nz, .loop_queue
-
-.asm_1cafb
-	cp $ff
-	jr nz, .skip_play_anims
-	call PlayBufferedDuelAnimations
-.skip_play_anims
-	ret
-
-.asm_1cb03
-	ld hl, wScreenAnimUpdatePtr
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	call CallHL2
-	ld a, [wd42a]
-	jr .asm_1cafb
-
-.asm_1cb11
-	ld a, $ff
-	ld [wd4c0], a
-	jr .asm_1cafb
-
-Func_1cb18: ; 1cb18 (7:4b18)
-	push hl
-	push bc
-	push de
-
-	; if Func_3ba2 is not set as
-	; wDoFrameFunction, quit and set carry
-	ld a, [wDoFrameFunction]
-	cp LOW(Func_3ba2)
-	jr nz, .carry
-	ld a, [wDoFrameFunction + 1]
-	cp HIGH(Func_3ba2)
-	jr nz, .carry
-
-	ld a, $ff
-	ld [wd4c0], a
-	ld a, [wd42a]
-	cp $ff
-	call nz, DoScreenAnimationUpdate
-
-; clear all queued animations
-; and disable their sprite anims
-	ld hl, wAnimationQueue
-	ld c, ANIMATION_QUEUE_LENGTH
-.loop_queue
-	push bc
-	ld a, [hl]
-	cp $ff
-	jr z, .next_queued
-	ld [wWhichSprite], a
-	farcall DisableCurSpriteAnim
-	ld a, $ff
-	ld [hl], a
-.next_queued
-	pop bc
-	inc hl
-	dec c
-	jr nz, .loop_queue
-
-	xor a
-	ld [wDuelAnimBufferCurPos], a
-	ld [wDuelAnimBufferSize], a
-.done
-	pop de
-	pop bc
-	pop hl
-	ret
-.carry
-	scf
-	jr .done
-
-Func_1cb5e: ; 1cb5e (7:4b5e)
-	cp $96
-	jp nc, Func_1ce03
-	cp $8c
-	jp nz, InitScreenAnimation
-	jr .asm_1cb6a ; redundant
-.asm_1cb6a
-	ld a, [wDuelAnimDamage + 1]
-	cp $03
-	jr nz, .asm_1cb76
-	ld a, [wDuelAnimDamage]
-	cp $e8
-.asm_1cb76
-	ret nc
-
-	xor a
-	ld [wd4b8], a
-	ld [wVRAMTileOffset], a
-	ld [wd4cb], a
-
-	ld a, PALETTE_37
-	farcall LoadPaletteData
-	call Func_1cba6
-
-	ld hl, wd4b3
-	bit 0, [hl]
-	call nz, Func_1cc3e
-
-	ld a, $12
-	ld [wd4b8], a
-	bit 1, [hl]
-	call nz, Func_1cc4e
-
-	bit 2, [hl]
-	call nz, Func_1cc66
-
-	xor a
-	ld [wd4b3], a
-	ret
-
-Func_1cba6: ; 1cba6 (7:4ba6)
-	call Func_1cc03
-	xor a
-	ld [wd4b7], a
-
-	ld hl, wd4b4
-	ld de, wAnimationQueue + 1
-.asm_1cbb3
-	push hl
-	push de
-	ld a, [hl]
-	or a
-	jr z, .asm_1cbbc
-	call Func_1cbcc
-
-.asm_1cbbc
-	pop de
-	pop hl
-	inc hl
-	inc de
-	ld a, [wd4b7]
-	inc a
-	ld [wd4b7], a
-	cp $03
-	jr c, .asm_1cbb3
-	ret
-
-Func_1cbcc: ; 1cbcc (7:4bcc)
-	push af
-	ld a, SPRITE_DUEL_4
-	farcall CreateSpriteAndAnimBufferEntry
-	ld a, [wWhichSprite]
-	ld [de], a
-	ld a, (1 << SPRITE_ANIM_FLAG_UNSKIPPABLE)
-	ld [wAnimFlags], a
-	ld c, SPRITE_ANIM_COORD_X
-	call GetSpriteAnimBufferProperty
-	call GetAnimCoordsAndFlags
-
-	ld a, [wd4b7]
-	add LOW(Unknown_1cbfd)
-	ld e, a
-	ld a, HIGH(Unknown_1cbfd)
-	adc 0
-	ld d, a
-	ld a, [de]
-	add b
-
-	ld [hli], a ; SPRITE_ANIM_COORD_X
-	ld [hl], c ; SPRITE_ANIM_COORD_Y
-
-	ld a, [wd4b8]
-	ld c, a
-	pop af
-	farcall Func_12ac9
-	ret
-
-Unknown_1cbfd: ; 1cbfd (7:4bfd)
-	db -$10, -$8, $0, $8, -$8, -$10
-
-Func_1cc03: ; 1cc03 (7:4c03)
-	ld a, [wDuelAnimDamage]
-	ld l, a
-	ld a, [wDuelAnimDamage + 1]
-	ld h, a
-
-	ld de, wd4b4
-	ld bc, -100
-	call .Func_1cc2f
-	ld bc, -10
-	call .Func_1cc2f
-
-	ld a, l
-	add $4f
-	ld [de], a
-	ld hl, wd4b4
-	ld c, 2
-.asm_1cc23
-	ld a, [hl]
-	cp $4f
-	jr nz, .asm_1cc2e
-	ld [hl], $00
-	inc hl
-	dec c
-	jr nz, .asm_1cc23
-.asm_1cc2e
-	ret
-
-.Func_1cc2f
-	ld a, $4e
-.loop
-	inc a
-	add hl, bc
-	jr c, .loop
-
-	ld [de], a
-	inc de
-	ld a, l
-	sub c
-	ld l, a
-	ld a, h
-	sbc b
-	ld h, a
-	ret
-
-Func_1cc3e: ; 1cc3e (7:4c3e)
-	push hl
-	ld a, $03
-	ld [wd4b7], a
-	ld de, wAnimationQueue + 4
-	ld a, SPRITE_ANIM_91
-	call Func_1cbcc
-	pop hl
-	ret
-
-Func_1cc4e: ; 1cc4e (7:4c4e)
-	push hl
-	ld a, $04
-	ld [wd4b7], a
-	ld de, wAnimationQueue + 5
-	ld a, SPRITE_ANIM_90
-	call Func_1cbcc
-	ld a, [wd4b8]
-	add $12
-	ld [wd4b8], a
-	pop hl
-	ret
-
-Func_1cc66: ; 1cc66 (7:4c66)
-	push hl
-	ld a, $05
-	ld [wd4b7], a
-	ld de, wAnimationQueue + 6
-	ld a, SPRITE_ANIM_89
-	call Func_1cbcc
-	pop hl
-	ret
-
-; initializes a screen animation from wTempAnimation
-; loads a function pointer for updating a frame
-; and initializes the duration of the animation.
-InitScreenAnimation: ; 1cc76 (7:4c76)
-	ld a, [wAnimationsDisabled]
-	or a
-	jr nz, .skip
-	ld a, [wTempAnimation]
-	ld [wd42a], a
-	sub DUEL_SCREEN_ANIMS
-	add a
-	add a
-	ld c, a
-	ld b, $00
-	ld hl, Data_1cc9f
-	add hl, bc
-	ld a, [hli]
-	ld [wScreenAnimUpdatePtr], a
-	ld c, a
-	ld a, [hli]
-	ld [wScreenAnimUpdatePtr + 1], a
-	ld b, a
-	ld a, [hl]
-	ld [wScreenAnimDuration], a
-	call CallBC
-.skip
-	ret
-
-; for the following animations, these functions
-; are run with the corresponding duration.
-; this duration decides different effects,
-; depending on which function runs
-; and is decreased by one each time.
-; when it is down to 0, the animation is done.
-
-screen_effect: MACRO
-	dw \1 ; function pointer
-	db \2 ; duration
-	db $00 ; padding
-ENDM
-
-Data_1cc9f: ; 1cc9f (7:4c9f)
-; function pointer, duration
-	screen_effect ShakeScreenX_Small, 24 ; DUEL_ANIM_SMALL_SHAKE_X
-	screen_effect ShakeScreenX_Big,   32 ; DUEL_ANIM_BIG_SHAKE_X
-	screen_effect ShakeScreenY_Small, 24 ; DUEL_ANIM_SMALL_SHAKE_Y
-	screen_effect ShakeScreenY_Big,   32 ; DUEL_ANIM_BIG_SHAKE_Y
-	screen_effect WhiteFlashScreen,    8 ; DUEL_ANIM_FLASH
-	screen_effect DistortScreen,      63 ; DUEL_ANIM_DISTORT
-
-; checks if screen animation duration is over
-; and if so, loads the default update function
-LoadDefaultScreenAnimationUpdateWhenFinished: ; 1ccb7 (7:4cb7)
-	ld a, [wScreenAnimDuration]
-	or a
-	ret nz
-	; fallthrough
-
-; function called for the screen animation update when it is over
-DefaultScreenAnimationUpdate: ; 1ccbc (7:4cbc)
-	ld a, $ff
-	ld [wd42a], a
-	call DisableInt_LYCoincidence
-	xor a
-	ldh [hSCX], a
-	ldh [rSCX], a
-	ldh [hSCY], a
-	ld hl, wScreenAnimUpdatePtr
-	ld [hl], LOW(DefaultScreenAnimationUpdate)
-	inc hl
-	ld [hl], HIGH(DefaultScreenAnimationUpdate)
-	ret
-
-; runs the screen update function set in wScreenAnimUpdatePtr
-DoScreenAnimationUpdate: ; 1ccd4 (7:4cd4)
-	ld a, 1
-	ld [wScreenAnimDuration], a
-	ld hl, wScreenAnimUpdatePtr
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	call CallHL2
-	jr DefaultScreenAnimationUpdate
-
-ShakeScreenX_Small: ; 1cce4 (7:4ce4)
-	ld hl, SmallShakeOffsets
-	jr ShakeScreenX
-
-ShakeScreenX_Big: ; 1cce9 (7:4ce9)
-	ld hl, BigShakeOffsets
-	jr ShakeScreenX
-
-ShakeScreenX: ; 1ccee (7:4cee)
-	ld a, l
-	ld [wd4bc], a
-	ld a, h
-	ld [wd4bc + 1], a
-
-	ld hl, wScreenAnimUpdatePtr
-	ld [hl], LOW(.update)
-	inc hl
-	ld [hl], HIGH(.update)
-	ret
-
-.update
-	call DecrementScreenAnimDuration
-	call UpdateShakeOffset
-	jp nc, LoadDefaultScreenAnimationUpdateWhenFinished
-	ldh a, [hSCX]
-	add [hl]
-	ldh [hSCX], a
-	jp LoadDefaultScreenAnimationUpdateWhenFinished
-
-ShakeScreenY_Small: ; 1cd10 (7:4d10)
-	ld hl, SmallShakeOffsets
-	jr ShakeScreenY
-
-ShakeScreenY_Big: ; 1cd15 (7:4d15)
-	ld hl, BigShakeOffsets
-	jr ShakeScreenY
-
-ShakeScreenY: ; 1cd1a (7:4d1a)
-	ld a, l
-	ld [wd4bc], a
-	ld a, h
-	ld [wd4bc + 1], a
-	ld hl, wScreenAnimUpdatePtr
-	ld [hl], LOW(.update)
-	inc hl
-	ld [hl], HIGH(.update)
-	ret
-
-.update
-	call DecrementScreenAnimDuration
-	call UpdateShakeOffset
-	jp nc, LoadDefaultScreenAnimationUpdateWhenFinished
-	ldh a, [hSCY]
-	add [hl]
-	ldh [hSCY], a
-	jp LoadDefaultScreenAnimationUpdateWhenFinished
-
-; get the displacement of the current frame
-; depending on the value of wScreenAnimDuration
-; returns carry if displacement was updated
-UpdateShakeOffset: ; 1cd3c (7:4d3c)
-	ld hl, wd4bc
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	ld a, [wScreenAnimDuration]
-	cp [hl]
-	ret nc
-	inc hl
-	push hl
-	inc hl
-	ld a, l
-	ld [wd4bc], a
-	ld a, h
-	ld [wd4bc + 1], a
-	pop hl
-	scf
-	ret
-
-SmallShakeOffsets: ; 1cd55 (7:4d55)
-	db 21,  2
-	db 17, -2
-	db 13,  2
-	db  9, -2
-	db  5,  1
-	db  1, -1
-
-BigShakeOffsets: ; 1cd61 (7:4d61)
-	db 29,  4
-	db 25, -4
-	db 21,  4
-	db 17, -4
-	db 13,  3
-	db  9, -3
-	db  5,  2
-	db  1, -2
-
-DecrementScreenAnimDuration: ; 1cd71 (7:4d71)
-	ld hl, wScreenAnimDuration
-	dec [hl]
-	ret
-
-WhiteFlashScreen: ; 1cd76 (7:4d76)
-	ld hl, wScreenAnimUpdatePtr
-	ld [hl], LOW(.update)
-	inc hl
-	ld [hl], HIGH(.update)
-	ld a, [wBGP]
-	ld [wd4bc], a
-	; backup the current background pals
-	ld hl, wBackgroundPalettesCGB
-	ld de, wTempBackgroundPalettesCGB
-	ld bc, 8 palettes
-	call CopyDataHLtoDE_SaveRegisters
-	ld de, PALRGB_WHITE
-	ld hl, wBackgroundPalettesCGB
-	ld bc, (8 palettes) / 2
-	call FillMemoryWithDE
-	xor a
-	call SetBGP
-	call FlushAllPalettes
-
-.update
-	call DecrementScreenAnimDuration
-	ld a, [wScreenAnimDuration]
-	or a
-	ret nz
-	; retrieve the previous background pals
-	ld hl, wTempBackgroundPalettesCGB
-	ld de, wBackgroundPalettesCGB
-	ld bc, 8 palettes
-	call CopyDataHLtoDE_SaveRegisters
-	ld a, [wd4bc]
-	call SetBGP
-	call FlushAllPalettes
-	jp DefaultScreenAnimationUpdate
-
-DistortScreen: ; 1cdc3 (7:4dc3)
-	ld hl, wScreenAnimUpdatePtr
-	ld [hl], LOW(.update)
-	inc hl
-	ld [hl], HIGH(.update)
-	xor a
-	ld [wApplyBGScroll], a
-	ld hl, wLCDCFunctionTrampoline + 1
-	ld [hl], LOW(ApplyBackgroundScroll)
-	inc hl
-	ld [hl], HIGH(ApplyBackgroundScroll)
-	ld a, 1
-	ld [wBGScrollMod], a
-	call EnableInt_LYCoincidence
-
-.update
-	ld a, [wScreenAnimDuration]
-	srl a
-	srl a
-	srl a
-	and %00000111
-	ld c, a
-	ld b, $00
-	ld hl, .BGScrollModData
-	add hl, bc
-	ld a, [hl]
-	ld [wBGScrollMod], a
-	call DecrementScreenAnimDuration
-	jp LoadDefaultScreenAnimationUpdateWhenFinished
-
-; each value is applied for 8 "ticks" of wScreenAnimDuration
-; starting from the last and running backwards
-.BGScrollModData
-	db 4, 3, 2, 1, 1, 1, 1, 2
-
-Func_1ce03: ; 1ce03 (7:4e03)
-	cp DUEL_ANIM_158
-	jr z, .asm_1ce17
-	sub $96
-	add a
-	ld c, a
-	ld b, $00
-	ld hl, .pointer_table
-	add hl, bc
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	jp Func_3bb5
-
-.asm_1ce17
-	ld a, [wDuelAnimDamage]
-	ld l, a
-	ld a, [wDuelAnimDamage + 1]
-	ld h, a
-	jp Func_3bb5
-
-.pointer_table
-	dw Func_190f4         ; DUEL_ANIM_150
-	dw PrintDamageText    ; DUEL_ANIM_PRINT_DAMAGE
-	dw UpdateMainSceneHUD ; DUEL_ANIM_UPDATE_HUD
-	dw Func_191a3         ; DUEL_ANIM_153
-	dw Func_191a3         ; DUEL_ANIM_154
-	dw Func_191a3         ; DUEL_ANIM_155
-	dw Func_191a3         ; DUEL_ANIM_156
-	dw Func_191a3         ; DUEL_ANIM_157
-
-INCLUDE "data/duel/animations/duel_animations.asm"
-
-; plays the Opening sequence, and handles player selection
-; in the Title Screen and Start Menu
-HandleTitleScreen: ; 1d078 (7:5078)
-; if last selected item in Start Menu is 0 (Card Pop!)
-; then skip straight to the Start Menu
-; this makes it so that returning from Card Pop!
-; doesn't play the Opening sequence
-	ld a, [wLastSelectedStartMenuItem]
-	or a
-	jr z, .start_menu
-
-.play_opening
-	ld a, MUSIC_STOP
-	call PlaySong
-	call Func_3ca0
-	call PlayOpeningSequence
-	call LoadTitleScreenSprites
-
-	xor a
-	ld [wd635], a
-	ld a, $3c
-	ld [wTitleScreenIgnoreInputCounter], a
-.loop
-	call DoFrameIfLCDEnabled
-	call UpdateRNGSources
-	call AnimateRandomTitleScreenOrb
-	ld hl, wd635
-	inc [hl]
-	call AssertSongFinished
-	or a
-	jr nz, .song_playing
-	; reset back to the opening sequence
-	farcall Func_10ab4
-	jr .play_opening
-
-.song_playing
-	; should we ignore user input?
-	ld hl, wTitleScreenIgnoreInputCounter
-	ld a, [hl]
-	or a
-	jr z, .check_keys
-	; ignore input, decrement the counter
-	dec [hl]
-	jr .loop
-
-.check_keys
-	ldh a, [hKeysPressed]
-	and A_BUTTON | START
-	jr z, .loop
-	ld a, SFX_02
-	call PlaySFX
-	farcall Func_10ab4
-
-.start_menu
-	call CheckIfHasSaveData
-	call HandleStartMenu
-
-; new game
-	ld a, [wStartMenuChoice]
-	cp START_MENU_NEW_GAME
-	jr nz, .continue_from_diary
-	call DeleteSaveDataForNewGame
-	jr c, HandleTitleScreen
-	jr .card_pop
-.continue_from_diary
-	ld a, [wStartMenuChoice]
-	cp START_MENU_CONTINUE_FROM_DIARY
-	jr nz, .card_pop
-	call AskToContinueFromDiaryWithDuelData
-	jr c, HandleTitleScreen
-.card_pop
-	ld a, [wStartMenuChoice]
-	cp START_MENU_CARD_POP
-	jr nz, .continue_duel
-	call ShowCardPopCGBDisclaimer
-	jr c, HandleTitleScreen
-.continue_duel
-	call ResetDoFrameFunction
-	call Func_3ca0
-	ret
-
-; updates wHasSaveData and wHasDuelSaveData
-; depending on whether the save data is valid or not
-CheckIfHasSaveData: ; 1d0fa (7:50fa)
-	farcall ValidateBackupGeneralSaveData
-	ld a, TRUE
-	jr c, .no_error
-	ld a, FALSE
-.no_error
-	ld [wHasSaveData], a
-	cp $00 ; or a
-	jr z, .write_has_duel_data
-	bank1call ValidateSavedNonLinkDuelData
-	ld a, TRUE
-	jr nc, .write_has_duel_data
-	ld a, FALSE
-.write_has_duel_data
-	ld [wHasDuelSaveData], a
-	farcall ValidateBackupGeneralSaveData
-	ret
-
-; handles printing the Start Menu
-; and getting player input and choice
-HandleStartMenu: ; 1d11c (7:511c)
-	ld a, MUSIC_PC_MAIN_MENU
-	call PlaySong
-	call DisableLCD
-	farcall Func_10000
-	lb de, $30, $8f
-	call SetupText
-	call Func_3ca0
-	xor a
-	ld [wLineSeparation], a
-	call .DrawPlayerPortrait
-	call .SetStartMenuParams
-
-	ld a, $ff
-	ld [wTitleScreenIgnoreInputCounter], a
-	ld a, [wLastSelectedStartMenuItem]
-	cp $4
-	jr c, .init_menu
-	ld a, [wHasSaveData]
-	or a
-	jr z, .init_menu
-	ld a, 1 ; start at second menu option
-.init_menu
-	ld hl, wStartMenuParams
-	farcall InitAndPrintPauseMenu
-	farcall FlashWhiteScreen
-
-.wait_input
-	call DoFrameIfLCDEnabled
-	call UpdateRNGSources
-	call HandleMenuInput
-	push af
-	call PrintStartMenuDescriptionText
-	pop af
-	jr nc, .wait_input
-	ldh a, [hCurMenuItem]
-	cp e
-	jr nz, .wait_input
-
-	ld [wLastSelectedStartMenuItem], a
-	ld a, [wHasSaveData]
-	or a
-	jr nz, .no_adjustment
-	; New Game is 3rd option
-	; but when there's no save data,
-	; it's the 1st in menu list, so adjust it
-	inc e
-	inc e
-.no_adjustment
-	ld a, e
-	ld [wStartMenuChoice], a
-	ret
-
-.SetStartMenuParams
-	ld hl, .StartMenuParams
-	ld de, wStartMenuParams
-	ld bc, .StartMenuParamsEnd - .StartMenuParams
-	call CopyDataHLtoDE
-
-	ld e, 0
-	ld a, [wHasSaveData]
-	or a
-	jr z, .get_text_id ; New Game
-	inc e
-	ld a, 2
-	call .AddItems
-	ld a, [wHasDuelSaveData]
-	or a
-	jr z, .get_text_id ; Continue From Diary
-	inc e
-	ld a, 1
-	call .AddItems
-	; Continue Duel
-
-.get_text_id
-	sla e
-	ld d, $00
-	ld hl, .StartMenuTextIDs
-	add hl, de
-	; set text ID as Start Menu param
-	ld a, [hli]
-	ld [wStartMenuParams + 6], a
-	ld a, [hl]
-	ld [wStartMenuParams + 7], a
-	ret
-
-; adds c items to start menu list
-; this means adding 2 units per item to the text box height
-; and adding to the number of items
-.AddItems
-	push bc
-	ld c, a
-	; number of items in menu
-	ld a, [wStartMenuParams + 12]
-	add c
-	ld [wStartMenuParams + 12], a
-	; height of text box
-	sla c
-	ld a, [wStartMenuParams + 3]
-	add c
-	ld [wStartMenuParams + 3], a
-	pop bc
-	ret
-
-.StartMenuParams
-	db  0, 0 ; start menu coords
-	db 14, 4 ; start menu text box dimensions
-
-	db  2, 2 ; text alignment for InitTextPrinting
-	tx NewGameText
-	db $ff
-
-	db 1, 2 ; cursor x, cursor y
-	db 2 ; y displacement between items
-	db 1 ; number of items
-	db SYM_CURSOR_R ; cursor tile number
-	db SYM_SPACE ; tile behind cursor
-	dw NULL ; function pointer if non-0
-.StartMenuParamsEnd
-
-.StartMenuTextIDs
-	tx NewGameText
-	tx CardPopContinueDiaryNewGameText
-	tx CardPopContinueDiaryNewGameContinueDuelText
-
-.DrawPlayerPortrait
-	lb bc, 14, 1
-	farcall $4, DrawPlayerPortrait
-	ret
-
-; prints the description for the current selected item
-; in the Start Menu in the text box
-PrintStartMenuDescriptionText: ; 1d1e9 (7:51e9)
-	push hl
-	push bc
-	push de
-	; don't print if it's already showing
-	ld a, [wCurMenuItem]
-	ld e, a
-	ld a, [wCurHighlightedStartMenuItem]
-	cp e
-	jr z, .skip
-	ld a, [wHasSaveData]
-	or a
-	jr nz, .has_data
-	; New Game option is 3rd element
-	; in function table, so add 2
-	inc e
-	inc e
-.has_data
-
-	ld a, e
-	push af
-	lb de, 0, 10
-	lb bc, 20, 8
-	call DrawRegularTextBox
-	pop af
-	ld hl, .StartMenuDescriptionFunctionTable
-	call JumpToFunctionInTable
-.skip
-	ld a, [wCurMenuItem]
-	ld [wCurHighlightedStartMenuItem], a
-	pop de
-	pop bc
-	pop hl
-	ret
-
-.StartMenuDescriptionFunctionTable
-	dw .CardPop
-	dw .ContinueFromDiary
-	dw .NewGame
-	dw .ContinueDuel
-
-.CardPop
-	lb de, 1, 12
-	call InitTextPrinting
-	ldtx hl, WhenYouCardPopWithFriendText
-	call PrintTextNoDelay
-	ret
-
-.ContinueDuel
-	lb de, 1, 12
-	call InitTextPrinting
-	ldtx hl, TheGameWillContinueFromThePointInTheDuelText
-	call PrintTextNoDelay
-	ret
-
-.NewGame
-	lb de, 1, 12
-	call InitTextPrinting
-	ldtx hl, StartANewGameText
-	call PrintTextNoDelay
-	ret
-
-.ContinueFromDiary
-	; get OW map name
-	ld a, [wCurOverworldMap]
-	add a
-	ld c, a
-	ld b, $00
-	ld hl, OverworldMapNames
-	add hl, bc
-	ld a, [hli]
-	ld [wTxRam2 + 0], a
-	ld a, [hl]
-	ld [wTxRam2 + 1], a
-
-	; get medal count
-	ld a, [wMedalCount]
-	ld [wTxRam3 + 0], a
-	xor a
-	ld [wTxRam3 + 1], a
-
-	; print text
-	lb de, 1, 10
-	call InitTextPrinting
-	ldtx hl, ContinueFromDiarySummaryText
-	call PrintTextNoDelay
-
-	ld a, [wTotalNumCardsCollected]
-	ld d, a
-	ld a, [wTotalNumCardsToCollect]
-	ld e, a
-	ld bc, $90e
-	farcall Func_1024f
-	ld bc, $a10
-	farcall Func_101df
-	ret
-
-; asks the player whether it's okay to delete
-; the save data in order to create a new one
-; if player answers "yes", delete it
-DeleteSaveDataForNewGame: ; 1d289 (7:5289)
-; exit if there no save data
-	ld a, [wHasSaveData]
-	or a
-	ret z
-
-	call DisableLCD
-	farcall Func_10000
-	call Func_3ca0
-	farcall FlashWhiteScreen
-	call DoFrameIfLCDEnabled
-	ldtx hl, SavedDataAlreadyExistsText
-	call PrintScrollableText_NoTextBoxLabel
-	ldtx hl, OKToDeleteTheDataText
-	call YesOrNoMenuWithText
-	ret c ; quit if chose "no"
-	farcall InvalidateSaveData
-	ldtx hl, AllDataWasDeletedText
-	call PrintScrollableText_NoTextBoxLabel
-	or a
-	ret
-
-; asks the player if the game should resume
-; from diary even though there is Duel save data
-; returns carry if "no" was selected
-AskToContinueFromDiaryWithDuelData: ; 1d2b8 (7:52b8)
-; return if there's no duel save data
-	ld a, [wHasDuelSaveData]
-	or a
-	ret z
-
-	call DisableLCD
-	farcall Func_10000
-	call Func_3ca0
-	farcall FlashWhiteScreen
-	call DoFrameIfLCDEnabled
-	ldtx hl, DataExistsWhenPowerWasTurnedOFFDuringDuelText
-	call PrintScrollableText_NoTextBoxLabel
-	ldtx hl, ContinueFromDiaryText
-	call YesOrNoMenuWithText
-	ret c
-	or a
-	ret
-
-; shows disclaimer for Card Pop!
-; in case player is not playing in CGB
-; return carry if disclaimer was shown
-ShowCardPopCGBDisclaimer: ; 1d2dd (7:52dd)
-; return if playing in CGB
-	ld a, [wConsole]
-	cp CONSOLE_CGB
-	ret z
-
-	lb de, 0, 10
-	lb bc, 20, 8
-	call DrawRegularTextBox
-	lb de, 1,12
-	call InitTextPrinting
-	ldtx hl, YouCanAccessCardPopOnlyWithGameBoyColorsText
-	call PrintTextNoDelay
-	lb bc, SYM_CURSOR_D, SYM_BOX_BOTTOM
-	lb de, 18, 17
-	call SetCursorParametersForTextBox
-	call WaitForButtonAorB
-	scf
-	ret
-
-DrawPlayerPortraitAndPrintNewGameText: ; 1d306 (7:5306)
-	call DisableLCD
-	farcall Func_10a9b
-	farcall Func_10000
-	call Func_3ca0
-	ld hl, HandleAllSpriteAnimations
-	call SetDoFrameFunction
-	lb bc, 7, 3
-	farcall $4, DrawPlayerPortrait
-	farcall Func_10af9
-	call DoFrameIfLCDEnabled
-	ldtx hl, IsCrazyAboutPokemonAndPokemonCardCollectingText
-	call PrintScrollableText_NoTextBoxLabel
-	call ResetDoFrameFunction
-	call Func_3ca0
-	ret
-
-PlayOpeningSequence: ; 1d335 (7:5335)
-	call DisableLCD
-	farcall Func_10a9b
-	farcall Func_10000
-	call Func_3ca0
-	ld hl, HandleAllSpriteAnimations
-	call SetDoFrameFunction
-	call LoadTitleScreenSprites
-
-	ld a, LOW(OpeningSequence)
-	ld [wSequenceCmdPtr + 0], a
-	ld a, HIGH(OpeningSequence)
-	ld [wSequenceCmdPtr + 1], a
-
-	xor a
-	ld [wd317], a
-	ld [wOpeningSequencePalsNeedUpdate], a
-	ld [wSequenceDelay], a
-	farcall FlashWhiteScreen
-
-.loop_cmds
-	call DoFrameIfLCDEnabled
-	call UpdateRNGSources
-	ldh a, [hKeysPressed]
-	and A_BUTTON | START
-	jr nz, .jump_to_title_screen
-	ld a, [wOpeningSequencePalsNeedUpdate]
-	or a
-	jr z, .no_pal_update
-	farcall Func_10d74
-.no_pal_update
-	call ExecuteOpeningSequenceCmd
-	ld a, [wSequenceDelay]
-	cp $ff
-	jr nz, .loop_cmds
-	jr .asm_1d39f
-
-.jump_to_title_screen
-	call AssertSongFinished
-	or a
-	jr nz, .asm_1d39f
-	call DisableLCD
-	ld a, MUSIC_TITLESCREEN
-	call PlaySong
-	lb bc, 0, 0
-	ld a, SCENE_TITLE_SCREEN
-	call LoadScene
-	call OpeningSequenceEmptyFunc
-.asm_1d39f
-	call Func_3ca0
-	call .ShowPressStart
-	call EnableLCD
-	ret
-
-.ShowPressStart
-	ld a, SPRITE_PRESS_START
-	farcall CreateSpriteAndAnimBufferEntry
-	ld c, SPRITE_ANIM_COORD_X
-	call GetSpriteAnimBufferProperty
-	ld a, 48
-	ld [hli], a ; x
-	ld a, 112
-	ld [hl], a ; y
-	ld c, SPRITE_ANIM_190
-	ld a, [wConsole]
-	cp CONSOLE_CGB
-	jr nz, .asm_1d3c5
-	ld c, SPRITE_ANIM_191
-.asm_1d3c5
-	ld a, c
-	ld bc, 60
-	farcall Func_12ac9
-	ret
-
-LoadTitleScreenSprites: ; 1d3ce (7:53ce)
-	xor a
-	ld [wd4ca], a
-	ld [wd4cb], a
-	ld a, PALETTE_30
-	farcall LoadPaletteData
-
-	ld bc, 0
-	ld de, wTitleScreenSprites
-.loop_load_sprites
-	push bc
-	push de
-	ld hl, .TitleScreenSpriteList
-	add hl, bc
-	ld a, [hl]
-	farcall CreateSpriteAndAnimBufferEntry
-	ld a, [wWhichSprite]
-	ld [de], a
-	call GetFirstSpriteAnimBufferProperty
-	inc hl
-	ld a, [hl] ; SPRITE_ANIM_ATTRIBUTES
-	or c
-	ld [hl], a
-	pop de
-	pop bc
-	inc de
-	inc c
-	ld a, c
-	cp $7
-	jr c, .loop_load_sprites
-	ret
-
-.TitleScreenSpriteList
-	db SPRITE_GRASS
-	db SPRITE_FIRE
-	db SPRITE_WATER
-	db SPRITE_COLORLESS
-	db SPRITE_LIGHTNING
-	db SPRITE_PSYCHIC
-	db SPRITE_FIGHTING
-
-; TODO place in main.asm when possible
-INCLUDE "engine/sequences/opening_sequence_commands.asm"
-INCLUDE "data/sequences/opening_sequence.asm"
-
-; once every 63 frames randomly choose an orb sprite
-; to animate, i.e. circle around the screen
-AnimateRandomTitleScreenOrb: ; 1d614 (7:5614)
-	ld a, [wConsole]
-	cp CONSOLE_CGB
-	call z, .UpdateSpriteAttributes
-	ld a, [wd635]
-	and 63
-	ret nz ; don't pick an orb now
-
-.pick_orb
-	ld a, $7
-	call Random
-	ld c, a
-	ld b, $00
-	ld hl, wTitleScreenSprites
-	add hl, bc
-	ld a, [hl]
-	ld [wWhichSprite], a
-	farcall GetSpriteAnimCounter
-	cp $ff
-	jr nz, .pick_orb
-
-	ld c, SPRITE_ANIM_ATTRIBUTES
-	call GetSpriteAnimBufferProperty
-	ld a, [wConsole]
-	cp CONSOLE_CGB
-	jr nz, .set_coords
-	set SPRITE_ANIM_FLAG_UNSKIPPABLE, [hl]
-
-.set_coords
-	inc hl
-	ld a, 248
-	ld [hli], a ; SPRITE_ANIM_COORD_X
-	ld a, 14
-	ld [hl], a ; SPRITE_ANIM_COORD_Y
-	ld a, [wConsole]
-	cp CONSOLE_CGB
-	ld a, SPRITE_ANIM_215
-	jr nz, .start_anim
-	ld a, SPRITE_ANIM_216
-.start_anim
-	farcall StartSpriteAnimation
-	ret
-
-.UpdateSpriteAttributes
-	ld c, $7
-	ld de, wTitleScreenSprites
-.loop_orbs
-	push bc
-	ld a, [de]
-	ld [wWhichSprite], a
-	ld c, SPRITE_ANIM_COORD_X
-	call GetSpriteAnimBufferProperty
-	ld a, [hld]
-	cp 152
-	jr nz, .skip
-	res SPRITE_ANIM_FLAG_UNSKIPPABLE, [hl]
-.skip
-	pop bc
-	inc de
-	dec c
-	jr nz, .loop_orbs
-	ret
-
-; unreferenced
-; shows Copyright information for 300 frames
-; or until Start button is pressed
-Func_1d67b: ; 1d67b (7:567b)
-	call DisableLCD
-	farcall Func_10a9b
-	farcall Func_10000
-	ld bc, $0
-	ld a, SCENE_COPYRIGHT
-	call LoadScene
-	farcall Func_10af9
-	ld bc, 300
-.loop_frame
-	push bc
-	call DoFrameIfLCDEnabled
-	call UpdateRNGSources
-	pop bc
-	ldh a, [hKeysPressed]
-	and START
-	jr nz, .exit
-	dec bc
-	ld a, b
-	or c
-	jr nz, .loop_frame
-.exit
-	farcall Func_10ab4
-	ret
-
-Credits_1d6ad: ; 1d6ad (7:56ad)
-	ld a, MUSIC_STOP
-	call PlaySong
-	call Func_1d705
-	call AddAllMastersToMastersBeatenList
-	xor a
-	ld [wOWMapEvents + 1], a
-	ld a, MUSIC_CREDITS
-	call PlaySong
-	farcall FlashWhiteScreen
-	call SetCreditsSequenceCmdPtr
-.asm_1d6c8
-	call DoFrameIfLCDEnabled
-	call Func_1d765
-	call ExecuteCreditsSequenceCmd
-	ld a, [wSequenceDelay]
-	cp $ff
-	jr nz, .asm_1d6c8
-	call WaitForSongToFinish
-	ld a, $8
-	farcall Func_12863
-	ld a, MUSIC_STOP
-	call PlaySong
-	farcall Func_10ab4
-	call Func_3ca4
-	call Set_WD_off
-	call Func_1d758
-	call EnableLCD
-	call DoFrameIfLCDEnabled
-	call DisableLCD
-	ld hl, wLCDC
-	set 1, [hl]
-	call ResetDoFrameFunction
-	ret
-
-Func_1d705: ; 1d705 (7:5705)
-	call DisableLCD
-	farcall Func_10a9b
-	call Func_3ca0
-	farcall Func_10000
-	call Func_1d7ee
-	ld hl, Func_3e31
-	call SetDoFrameFunction
-	call .Func_1d720 ; can be fallthrough
-	ret
-
-.Func_1d720
-	ld a, $91
-	ld [wd647], a
-	ld [wd649], a
-	ld a, $01
-	ld [wd648], a
-	ld [wd64a], a
-	call Func_1d765
-	call Set_WD_on
-	call .Func_1d73a ; can bee fallthrough
-	ret
-
-.Func_1d73a
-	push hl
-	di
-	xor a
-	ld [wd657], a
-	ld hl, wLCDCFunctionTrampoline + 1
-	ld [hl], LOW(Func_3e44)
-	inc hl
-	ld [hl], HIGH(Func_3e44)
-	ei
-
-	ld hl, rSTAT
-	set STAT_LYC, [hl]
-	xor a
-	ldh [rLYC], a
-	ld hl, rIE
-	set INT_LCD_STAT, [hl]
-	pop hl
-	ret
-
-Func_1d758: ; 1d758 (7:5758)
-	push hl
-	ld hl, rSTAT
-	res STAT_LYC, [hl]
-	ld hl, rIE
-	res INT_LCD_STAT, [hl]
-	pop hl
-	ret
-
-Func_1d765: ; 1d765 (7:5765)
-	push hl
-	push bc
-	push de
-	xor a
-	ldh [hWY], a
-
-	ld hl, wd659
-	ld de, wd65f
-	ld a, [wd648]
-	or a
-	jr nz, .asm_1d785
-	ld a, $a7
-	ldh [hWX], a
-	ld [hli], a
-	push hl
-	ld hl, wLCDC
-	set 1, [hl]
-	pop hl
-	jr .asm_1d7e2
-
-.asm_1d785
-	ld a, [wd647]
-	or a
-	jr z, .asm_1d79e
-	dec a
-	ld [de], a
-	inc de
-	ld a, $a7
-	ldh [hWX], a
-	ld [hli], a
-	push hl
-	ld hl, wLCDC
-	set 1, [hl]
-	pop hl
-	ld a, $07
-	jr .asm_1d7a9
-
-.asm_1d79e
-	ld a, $07
-	ldh [hWX], a
-	push hl
-	ld hl, wLCDC
-	res 1, [hl]
-	pop hl
-.asm_1d7a9
-	ld [hli], a
-	ld a, [wd647]
-	dec a
-	ld c, a
-	ld a, [wd648]
-	add c
-	ld c, a
-	ld a, [wd649]
-	dec a
-	cp c
-	jr c, .asm_1d7d4
-	jr z, .asm_1d7d4
-	ld a, c
-	ld [de], a
-	inc de
-	push af
-	ld a, $a7
-	ld [hli], a
-	pop bc
-	ld a, [wd64a]
-	or a
-	jr z, .asm_1d7e2
-	ld a, [wd649]
-	dec a
-	ld [de], a
-	inc de
-	ld a, $07
-	ld [hli], a
-
-.asm_1d7d4
-	ld a, [wd649]
-	dec a
-	ld c, a
-	ld a, [wd64a]
-	add c
-	ld [de], a
-	inc de
-	ld a, $a7
-	ld [hli], a
-.asm_1d7e2
-	ld a, $ff
-	ld [de], a
-	ld a, $01
-	ld [wd665], a
-	pop de
-	pop bc
-	pop hl
-	ret
-
-Func_1d7ee: ; 1d7ee (7:57ee)
-	xor a
-	lb de, 0, 32
-	lb bc, 20, 18
-	lb hl, 0, 0
-	call FillRectangle
-	ret
diff --git a/src/engine/bank20.asm b/src/engine/bank20.asm
index a8c03cc..bc71842 100644
--- a/src/engine/bank20.asm
+++ b/src/engine/bank20.asm
@@ -2,7 +2,7 @@
 ; according to its Map Header configurations
 ; if it's the Overworld Map, also prints the map name
 ; and sets up the volcano animation
-LoadMapGfxAndPermissions: ; 80000 (20:4000)
+LoadMapGfxAndPermissions:
 	call ClearSRAMBGMaps
 	xor a
 	ld [wTextBoxFrameType], a
@@ -20,7 +20,7 @@ LoadMapGfxAndPermissions: ; 80000 (20:4000)
 
 ; reloads the map tiles and permissions
 ; after a textbox has been closed
-ReloadMapAfterTextClose: ; 80028 (20:4028)
+ReloadMapAfterTextClose:
 	call ClearSRAMBGMaps
 	lb bc, 0, 0
 	call LoadTilemap_ToSRAM
@@ -29,7 +29,7 @@ ReloadMapAfterTextClose: ; 80028 (20:4028)
 	farcall Func_c3ee
 	ret
 
-LoadMapTilesAndPals: ; 8003d (20:403d)
+LoadMapTilesAndPals:
 	farcall LoadMapHeader
 	farcall SetSGB2AndSGB3MapPalette
 	lb bc, 0, 0
@@ -58,14 +58,14 @@ LoadMapTilesAndPals: ; 8003d (20:403d)
 
 ; loads the BG map corresponding to wCurTilemap to SRAM
 ; bc = starting coordinates
-LoadTilemap_ToSRAM: ; 80077 (20:4077)
+LoadTilemap_ToSRAM:
 	ld a, TRUE
 	ld [wWriteBGMapToSRAM], a
 	jr LoadTilemap
 
 ; loads the BG map corresponding to wCurTilemap to VRAM
 ; bc = starting coordinates
-LoadTilemap_ToVRAM: ; 8007e (20:407e)
+LoadTilemap_ToVRAM:
 	xor a ; FALSE
 	ld [wWriteBGMapToSRAM], a
 ;	fallthrough
@@ -74,7 +74,7 @@ LoadTilemap_ToVRAM: ; 8007e (20:407e)
 ; either loads them in VRAM or SRAM,
 ; depending on wWriteBGMapToSRAM
 ; bc = starting coordinates
-LoadTilemap: ; 80082 (20:4082)
+LoadTilemap:
 	push hl
 	push bc
 	push de
@@ -213,7 +213,7 @@ LoadTilemap: ; 80082 (20:4082)
 	pop hl
 	ret
 
-Func_80148: ; 80148 (20:4148)
+Func_80148:
 	ld a, [wd291]
 	or a
 	ret z
@@ -255,7 +255,7 @@ Func_80148: ; 80148 (20:4148)
 ; if SRAM is the target address to copy,
 ; copies data to sGfxBuffer0 or sGfxBuffer1
 ; for VRAM0 or VRAM1 respectively
-CopyBGDataToVRAMOrSRAM: ; 8016e (20:416e)
+CopyBGDataToVRAMOrSRAM:
 	ld a, [wWriteBGMapToSRAM]
 	or a
 	jp z, SafeCopyDataHLtoDE
@@ -296,7 +296,7 @@ CopyBGDataToVRAMOrSRAM: ; 8016e (20:416e)
 ; safely copies $20 bytes at a time
 ; sGfxBuffer0 -> v0BGMap0
 ; sGfxBuffer1 -> v0BGMap1 (if in CGB)
-SafelyCopyBGMapFromSRAMToVRAM: ; 801a1 (20:41a1)
+SafelyCopyBGMapFromSRAMToVRAM:
 	push hl
 	push bc
 	push de
@@ -348,7 +348,7 @@ SafelyCopyBGMapFromSRAMToVRAM: ; 801a1 (20:41a1)
 	ret
 
 ; clears sGfxBuffer0 and sGfxBuffer1
-ClearSRAMBGMaps: ; 801f1 (20:41f1)
+ClearSRAMBGMaps:
 	push hl
 	push bc
 	ldh a, [hBankSRAM]
@@ -368,10 +368,10 @@ ClearSRAMBGMaps: ; 801f1 (20:41f1)
 
 ; l - map data offset (0,2,4,6,8 for banks 0,1,2,3,4)
 ; a - map index (inside of the given bank)
-GetMapDataPointer: ; 8020f (20:420f)
+GetMapDataPointer:
 	push bc
 	push af
-	ld bc, MapDataPointers
+	ld bc, GfxTablePointers
 	ld h, $0
 	add hl, bc
 	ld c, [hl]
@@ -389,18 +389,17 @@ GetMapDataPointer: ; 8020f (20:420f)
 	ret
 
 ; Loads a pointer from [hl] to wTempPointer. Adds the graphics bank offset ($20)
-LoadGraphicsPointerFromHL: ; 80229 (20:4229)
+LoadGraphicsPointerFromHL:
 	ld a, [hli]
 	ld [wTempPointer], a
 	ld a, [hli]
 	ld [wTempPointer + 1], a
 	ld a, [hli]
-	add BANK(MapDataPointers)
+	add BANK(GfxTablePointers)
 	ld [wTempPointerBank], a
 	ret
 
-; unreferenced?
-Func_80238: ; 80238 (20:4238)
+Func_80238: ; unreferenced
 	push hl
 	ld l, $2 ; Tilesets
 	ld a, [wCurTileset]
@@ -423,7 +422,7 @@ Func_80238: ; 80238 (20:4238)
 ; a = sprite index within the data map
 ; output:
 ; a = number of tiles in sprite
-Func_8025b: ; 8025b (20:425b)
+Func_8025b:
 	push hl
 	ld l, $4 ; Sprites
 	call GetMapDataPointer
@@ -440,17 +439,17 @@ Func_8025b: ; 8025b (20:425b)
 
 ; loads graphics data pointed by wTempPointer in wTempPointerBank
 ; to the VRAM bank according to wd4cb, in address pointed by wVRAMPointer
-LoadGfxDataFromTempPointerToVRAMBank: ; 80274 (20:4274)
+LoadGfxDataFromTempPointerToVRAMBank:
 	call GetTileOffsetPointerAndSwitchVRAM
 	jr LoadGfxDataFromTempPointer
 
-LoadGfxDataFromTempPointerToVRAMBank_Tiles0ToTiles2: ; 80279 (20:4279)
+LoadGfxDataFromTempPointerToVRAMBank_Tiles0ToTiles2:
 	call GetTileOffsetPointerAndSwitchVRAM_Tiles0ToTiles2
 ;	fallthrough
 
 ; loads graphics data pointed by wTempPointer in wTempPointerBank
 ; to wVRAMPointer
-LoadGfxDataFromTempPointer: ; 8027c (20:427c)
+LoadGfxDataFromTempPointer:
 	push hl
 	push bc
 	push de
@@ -478,7 +477,7 @@ LoadGfxDataFromTempPointer: ; 8027c (20:427c)
 ; convert wVRAMTileOffset to address in VRAM
 ; and stores it in wVRAMPointer
 ; switches VRAM according to wd4cb
-GetTileOffsetPointerAndSwitchVRAM: ; 8029f (20:429f)
+GetTileOffsetPointerAndSwitchVRAM:
 ; address of the tile offset is wVRAMTileOffset * $10 + $8000
 	ld a, [wVRAMTileOffset]
 	swap a
@@ -502,7 +501,7 @@ GetTileOffsetPointerAndSwitchVRAM: ; 8029f (20:429f)
 ; switches VRAM according to wd4cb
 ; then changes wVRAMPointer such that
 ; addresses to Tiles0 is changed to Tiles2
-GetTileOffsetPointerAndSwitchVRAM_Tiles0ToTiles2: ; 802bb (20:42bb)
+GetTileOffsetPointerAndSwitchVRAM_Tiles0ToTiles2:
 	ld a, [wVRAMTileOffset]
 	push af
 	xor $80 ; toggle top bit
@@ -516,7 +515,7 @@ GetTileOffsetPointerAndSwitchVRAM_Tiles0ToTiles2: ; 802bb (20:42bb)
 	ret
 
 ; loads tileset gfx to VRAM corresponding to wCurTileset
-LoadTilesetGfx: ; 802d4 (20:42d4)
+LoadTilesetGfx:
 	push hl
 	ld l, $02 ; Tilesets
 	ld a, [wCurTileset]
@@ -679,7 +678,7 @@ LoadTilesetGfx: ; 802d4 (20:42d4)
 	ret
 
 ; gets pointer to BG map with ID from wCurTilemap
-Func_803b9: ; 803b9 (20:43b9)
+Func_803b9:
 	ld l, $00 ; Tilemaps
 	ld a, [wCurTilemap]
 	call GetMapDataPointer
@@ -691,7 +690,7 @@ Func_803b9: ; 803b9 (20:43b9)
 ; sets BGP in wLoadedPalData (if any)
 ; then loads the rest of the palette data
 ; a = palette index to load
-SetBGPAndLoadedPal: ; 803c9 (20:43c9)
+SetBGPAndLoadedPal:
 	push hl
 	push bc
 	push de
@@ -724,7 +723,7 @@ SetBGPAndLoadedPal: ; 803c9 (20:43c9)
 ; b = palette index
 ; c = palette size
 ; hl = palette data to copy
-LoadPaletteDataFromHL: ; 803ec (20:43ec)
+LoadPaletteDataFromHL:
 	push hl
 	push bc
 	push de
@@ -768,7 +767,7 @@ LoadPaletteDataFromHL: ; 803ec (20:43ec)
 	ret
 
 ; loads palette index a
-LoadPaletteData: ; 80418 (20:4418)
+LoadPaletteData:
 	push hl
 	push bc
 	push de
@@ -824,7 +823,7 @@ LoadPaletteData: ; 80418 (20:4418)
 	ret
 
 ; copies palette data of index in a to wLoadedPalData
-LoadPaletteDataToBuffer: ; 80456 (20:4456)
+LoadPaletteDataToBuffer:
 	push hl
 	push bc
 	push de
@@ -853,14 +852,14 @@ LoadPaletteDataToBuffer: ; 80456 (20:4456)
 	pop hl
 	ret
 
-ClearNumLoadedFramesetSubgroups: ; 8047b (20:447b)
+ClearNumLoadedFramesetSubgroups:
 	xor a
 	ld [wNumLoadedFramesetSubgroups], a
 	ret
 
 ; for the current map, process the animation
 ; data of its corresponding OW tiles
-DoMapOWFrame: ; 80480 (20:4480)
+DoMapOWFrame:
 	push hl
 	push bc
 	ld a, [wCurMap]
@@ -887,7 +886,7 @@ DoMapOWFrame: ; 80480 (20:4480)
 	ret
 
 ; processes the OW frameset pointed by hl
-ProcessOWFrameset: ; 804a2 (20:44a2)
+ProcessOWFrameset:
 	push hl
 	push bc
 	ld a, l
@@ -920,7 +919,7 @@ ProcessOWFrameset: ; 804a2 (20:44a2)
 
 ; for each of the loaded frameset subgroups
 ; load their tiles and advance their durations
-DoLoadedFramesetSubgroupsFrame: ; 804d8 (20:44d8)
+DoLoadedFramesetSubgroupsFrame:
 	ld a, [wNumLoadedFramesetSubgroups]
 	or a
 	ret z
@@ -941,7 +940,7 @@ DoLoadedFramesetSubgroupsFrame: ; 804d8 (20:44d8)
 ; from subgroup in register c, get
 ; from OW frameset in hl its corresponding
 ; data offset and duration
-GetOWFramesetSubgroupData: ; 804f3 (20:44f3)
+GetOWFramesetSubgroupData:
 	push hl
 	push bc
 	push hl
@@ -965,7 +964,7 @@ GetOWFramesetSubgroupData: ; 804f3 (20:44f3)
 ; if wCurOWFrameDuration == 0, processes next frame for OW map
 ; by loading the tiles corresponding to current frame
 ; if wCurOWFrameDuration != 0, then simply decrements it and returns
-LoadOWFrameTiles: ; 8050c (20:450c)
+LoadOWFrameTiles:
 	ld a, [wCurOWFrameDuration]
 	or a
 	jr z, .next_frame
@@ -1083,7 +1082,7 @@ LoadOWFrameTiles: ; 8050c (20:450c)
 	ret
 
 ; fills wOWFramesetSubgroups with $ff
-ClearOWFramesetSubgroups: ; 8059a (20:459a)
+ClearOWFramesetSubgroups:
 	push hl
 	push bc
 	ld hl, wOWFramesetSubgroups
@@ -1100,7 +1099,7 @@ ClearOWFramesetSubgroups: ; 8059a (20:459a)
 ; copies wOWFramesetSubgroups + 2*c
 ; to wCurOWFrameDataOffset and wCurOWFrameDuration
 ; also returns its current duration
-LoadOWFramesetSubgroup: ; 805aa (20:45aa)
+LoadOWFramesetSubgroup:
 	push hl
 	push bc
 	ld hl, wOWFramesetSubgroups
@@ -1119,7 +1118,7 @@ LoadOWFramesetSubgroup: ; 805aa (20:45aa)
 
 ; copies wCurOWFrameDataOffset and wCurOWFrameDuration
 ; to wOWFramesetSubgroups + 2*c
-StoreOWFramesetSubgroup: ; 805c1 (20:45c1)
+StoreOWFramesetSubgroup:
 	push hl
 	push bc
 	ld hl, wOWFramesetSubgroups
@@ -1137,7 +1136,7 @@ StoreOWFramesetSubgroup: ; 805c1 (20:45c1)
 INCLUDE "data/map_ow_framesets.asm"
 
 ; clears wOWMapEvents
-Func_80b7a: ; 80b7a (20:4b7a)
+Func_80b7a:
 	push hl
 	push bc
 	ld c, $b
@@ -1152,7 +1151,7 @@ Func_80b7a: ; 80b7a (20:4b7a)
 	ret
 
 ; a = MAP_EVENT_* constant
-Func_80b89: ; 80b89 (20:4b89)
+Func_80b89:
 	push hl
 	push bc
 	push af
@@ -1173,14 +1172,14 @@ Func_80b89: ; 80b89 (20:4b89)
 	pop hl
 	ret
 
-Func_80ba4: ; 80ba4 (20:4ba4)
+Func_80ba4:
 	push af
 	xor a
 	ld [wWriteBGMapToSRAM], a
 	pop af
 ;	fallthrough
 
-Func_80baa: ; 80baa (20:4baa)
+Func_80baa:
 	push hl
 	push bc
 	push de
@@ -1294,10 +1293,9 @@ Func_80baa: ; 80baa (20:4baa)
 .ChallengeMachine
 	db $0a, $00, TILEMAP_CHALLENGE_MACHINE_MAP_EVENT, TILEMAP_CHALLENGE_MACHINE_MAP_EVENT_CGB
 
-	ret ; unreferenced stray ret?
+	ret ; stray ret
 
-; unreferenced?
-Func_80c64: ; 80c64 (20:4c64)
+Func_80c64: ; unreferenced
 	ld a, [wLineSeparation]
 	push af
 	ld a, $01 ; no line separator
@@ -1346,9 +1344,8 @@ Func_80c64: ; 80c64 (20:4c64)
 	db SYM_SPACE ; tile behind cursor
 	dw NULL ; function pointer if non-0
 
-; unreferenced?
 ; fills Tiles0 with random bytes
-Func_80cc3: ; 80cc3 (20:4cc3)
+Func_80cc3: ; unreferenced
 	call DisableLCD
 	ld hl, v0Tiles0
 	ld bc, $800
@@ -1361,12 +1358,12 @@ Func_80cc3: ; 80cc3 (20:4cc3)
 	jr nz, .loop
 	ret
 
-Func_80cd6: ; 80cd6 (20:4cd6)
+Func_80cd6:
 	ret
 
 ; seems to be used to look at each OW NPC sprites
 ; with functions to rotate NPC and animate them
-Func_80cd7: ; 80cd7 (20:4cd7)
+Func_80cd7:
 	call DisableLCD
 	call EmptyScreen
 	call Func_3ca4
@@ -1557,1118 +1554,8 @@ Func_80cd7: ; 80cd7 (20:4cd7)
 	db SPRITE_OW_GRANNY,   SPRITE_ANIM_LIGHT_NPC_UP,     SPRITE_ANIM_YELLOW_NPC_UP    ; $2b
 	db SPRITE_OW_AMY,      SPRITE_ANIM_SGB_AMY_LAYING,   SPRITE_ANIM_CGB_AMY_LAYING   ; $2c
 
-SpriteNullAnimationPointer: ; 80e5a (20:4e5a)
+SpriteNullAnimationPointer:
 	dw SpriteNullAnimationFrame
 
 SpriteNullAnimationFrame:
 	db 0
-
-; might be closer to "screen specific data" than map data
-MapDataPointers: ; 80e5d (20:4e5d)
-	dw Tilemaps
-	dw Tilesets
-	dw Sprites
-	dw SpriteAnimations
-	dw Palettes
-
-; \1 = pointer
-; \2 = tileset
-tilemap: MACRO
-	dwb \1, BANK(\1) - BANK(Tilemaps)
-	db \2
-ENDM
-
-Tilemaps: ; 80e67 (20:4e67)
-	tilemap OverworldMapTilemap,               TILESET_OVERWORLD_MAP               ; TILEMAP_OVERWORLD_MAP
-	tilemap OverworldMapCGBTilemap,            TILESET_OVERWORLD_MAP               ; TILEMAP_OVERWORLD_MAP_CGB
-	tilemap MasonLaboratoryTilemap,            TILESET_MASON_LABORATORY            ; TILEMAP_MASON_LABORATORY
-	tilemap MasonLaboratoryCGBTilemap,         TILESET_MASON_LABORATORY            ; TILEMAP_MASON_LABORATORY_CGB
-	tilemap ChallengeMachineMapEventTilemap,   TILESET_MASON_LABORATORY            ; TILEMAP_CHALLENGE_MACHINE_MAP_EVENT
-	tilemap ChallengeMachineMapEventCGBTilemap,TILESET_MASON_LABORATORY            ; TILEMAP_CHALLENGE_MACHINE_MAP_EVENT_CGB
-	tilemap DeckMachineRoomTilemap,            TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_ROOM
-	tilemap DeckMachineRoomCGBTilemap,         TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_ROOM_CGB
-	tilemap DeckMachineMapEventTilemap,        TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_MAP_EVENT
-	tilemap DeckMachineMapEventCGBTilemap,     TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_MAP_EVENT_CGB
-	tilemap IshiharaTilemap,                   TILESET_ISHIHARA                    ; TILEMAP_ISHIHARA
-	tilemap IshiharaCGBTilemap,                TILESET_ISHIHARA                    ; TILEMAP_ISHIHARA_CGB
-	tilemap FightingClubEntranceTilemap,       TILESET_CLUB_ENTRANCE               ; TILEMAP_FIGHTING_CLUB_ENTRANCE
-	tilemap FightingClubEntranceCGBTilemap,    TILESET_CLUB_ENTRANCE               ; TILEMAP_FIGHTING_CLUB_ENTRANCE_CGB
-	tilemap RockClubEntranceTilemap,           TILESET_CLUB_ENTRANCE               ; TILEMAP_ROCK_CLUB_ENTRANCE
-	tilemap RockClubEntranceCGBTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_ROCK_CLUB_ENTRANCE_CGB
-	tilemap WaterClubEntranceTilemap,          TILESET_CLUB_ENTRANCE               ; TILEMAP_WATER_CLUB_ENTRANCE
-	tilemap WaterClubEntranceCGBTilemap,       TILESET_CLUB_ENTRANCE               ; TILEMAP_WATER_CLUB_ENTRANCE_CGB
-	tilemap LightningClubEntranceTilemap,      TILESET_CLUB_ENTRANCE               ; TILEMAP_LIGHTNING_CLUB_ENTRANCE
-	tilemap LightningClubEntranceCGBTilemap,   TILESET_CLUB_ENTRANCE               ; TILEMAP_LIGHTNING_CLUB_ENTRANCE_CGB
-	tilemap GrassClubEntranceTilemap,          TILESET_CLUB_ENTRANCE               ; TILEMAP_GRASS_CLUB_ENTRANCE
-	tilemap GrassClubEntranceCGBTilemap,       TILESET_CLUB_ENTRANCE               ; TILEMAP_GRASS_CLUB_ENTRANCE_CGB
-	tilemap PsychicClubEntranceTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_PSYCHIC_CLUB_ENTRANCE
-	tilemap PsychicClubEntranceCGBTilemap,     TILESET_CLUB_ENTRANCE               ; TILEMAP_PSYCHIC_CLUB_ENTRANCE_CGB
-	tilemap ScienceClubEntranceTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_SCIENCE_CLUB_ENTRANCE
-	tilemap ScienceClubEntranceCGBTilemap,     TILESET_CLUB_ENTRANCE               ; TILEMAP_SCIENCE_CLUB_ENTRANCE_CGB
-	tilemap FireClubEntranceTilemap,           TILESET_CLUB_ENTRANCE               ; TILEMAP_FIRE_CLUB_ENTRANCE
-	tilemap FireClubEntranceCGBTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_FIRE_CLUB_ENTRANCE_CGB
-	tilemap ChallengeHallEntranceTilemap,      TILESET_CLUB_ENTRANCE               ; TILEMAP_CHALLENGE_HALL_ENTRANCE
-	tilemap ChallengeHallEntranceCGBTilemap,   TILESET_CLUB_ENTRANCE               ; TILEMAP_CHALLENGE_HALL_ENTRANCE_CGB
-	tilemap ClubLobbyTilemap,                  TILESET_CLUB_LOBBY                  ; TILEMAP_CLUB_LOBBY
-	tilemap ClubLobbyCGBTilemap,               TILESET_CLUB_LOBBY                  ; TILEMAP_CLUB_LOBBY_CGB
-	tilemap FightingClubTilemap,               TILESET_FIGHTING_CLUB               ; TILEMAP_FIGHTING_CLUB
-	tilemap FightingClubCGBTilemap,            TILESET_FIGHTING_CLUB               ; TILEMAP_FIGHTING_CLUB_CGB
-	tilemap RockClubTilemap,                   TILESET_ROCK_CLUB                   ; TILEMAP_ROCK_CLUB
-	tilemap RockClubCGBTilemap,                TILESET_ROCK_CLUB                   ; TILEMAP_ROCK_CLUB_CGB
-	tilemap WaterClubTilemap,                  TILESET_WATER_CLUB                  ; TILEMAP_WATER_CLUB
-	tilemap WaterClubCGBTilemap,               TILESET_WATER_CLUB                  ; TILEMAP_WATER_CLUB_CGB
-	tilemap LightningClubTilemap,              TILESET_LIGHTNING_CLUB              ; TILEMAP_LIGHTNING_CLUB
-	tilemap LightningClubCGBTilemap,           TILESET_LIGHTNING_CLUB              ; TILEMAP_LIGHTNING_CLUB_CGB
-	tilemap GrassClubTilemap,                  TILESET_GRASS_CLUB                  ; TILEMAP_GRASS_CLUB
-	tilemap GrassClubCGBTilemap,               TILESET_GRASS_CLUB                  ; TILEMAP_GRASS_CLUB_CGB
-	tilemap PsychicClubTilemap,                TILESET_PSYCHIC_CLUB                ; TILEMAP_PSYCHIC_CLUB
-	tilemap PsychicClubCGBTilemap,             TILESET_PSYCHIC_CLUB                ; TILEMAP_PSYCHIC_CLUB_CGB
-	tilemap ScienceClubTilemap,                TILESET_SCIENCE_CLUB                ; TILEMAP_SCIENCE_CLUB
-	tilemap ScienceClubCGBTilemap,             TILESET_SCIENCE_CLUB                ; TILEMAP_SCIENCE_CLUB_CGB
-	tilemap FireClubTilemap,                   TILESET_FIRE_CLUB                   ; TILEMAP_FIRE_CLUB
-	tilemap FireClubCGBTilemap,                TILESET_FIRE_CLUB                   ; TILEMAP_FIRE_CLUB_CGB
-	tilemap ChallengeHallTilemap,              TILESET_CHALLENGE_HALL              ; TILEMAP_CHALLENGE_HALL
-	tilemap ChallengeHallCGBTilemap,           TILESET_CHALLENGE_HALL              ; TILEMAP_CHALLENGE_HALL_CGB
-	tilemap PokemonDomeEntranceTilemap,        TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_ENTRANCE
-	tilemap PokemonDomeEntranceCGBTilemap,     TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_ENTRANCE_CGB
-	tilemap PokemonDomeDoorMapEventTilemap,    TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_DOOR_MAP_EVENT
-	tilemap PokemonDomeDoorMapEventCGBTilemap, TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_DOOR_MAP_EVENT_CGB
-	tilemap PokemonDomeTilemap,                TILESET_POKEMON_DOME                ; TILEMAP_POKEMON_DOME
-	tilemap PokemonDomeCGBTilemap,             TILESET_POKEMON_DOME                ; TILEMAP_POKEMON_DOME_CGB
-	tilemap HallOfHonorDoorMapEventTilemap,    TILESET_POKEMON_DOME                ; TILEMAP_HALL_OF_HONOR_DOOR_MAP_EVENT
-	tilemap HallOfHonorDoorMapEventCGBTilemap, TILESET_POKEMON_DOME                ; TILEMAP_HALL_OF_HONOR_DOOR_MAP_EVENT_CGB
-	tilemap HallOfHonorTilemap,                TILESET_HALL_OF_HONOR               ; TILEMAP_HALL_OF_HONOR
-	tilemap HallOfHonorCGBTilemap,             TILESET_HALL_OF_HONOR               ; TILEMAP_HALL_OF_HONOR_CGB
-	tilemap CardPopCGBTilemap,                 TILESET_CARD_POP                    ; TILEMAP_CARD_POP_CGB
-	tilemap CardPopTilemap,                    TILESET_CARD_POP                    ; TILEMAP_CARD_POP
-	tilemap GrassMedalTilemap,                 TILESET_MEDAL                       ; TILEMAP_GRASS_MEDAL
-	tilemap ScienceMedalTilemap,               TILESET_MEDAL                       ; TILEMAP_SCIENCE_MEDAL
-	tilemap FireMedalTilemap,                  TILESET_MEDAL                       ; TILEMAP_FIRE_MEDAL
-	tilemap WaterMedalTilemap,                 TILESET_MEDAL                       ; TILEMAP_WATER_MEDAL
-	tilemap LightningMedalTilemap,             TILESET_MEDAL                       ; TILEMAP_LIGHTNING_MEDAL
-	tilemap FightingMedalTilemap,              TILESET_MEDAL                       ; TILEMAP_FIGHTING_MEDAL
-	tilemap RockMedalTilemap,                  TILESET_MEDAL                       ; TILEMAP_ROCK_MEDAL
-	tilemap PsychicMedalTilemap,               TILESET_MEDAL                       ; TILEMAP_PSYCHIC_MEDAL
-	tilemap GameBoyLinkCGBTilemap,             TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK_CGB
-	tilemap GameBoyLinkTilemap,                TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK
-	tilemap GameBoyLinkConnectingCGBTilemap,   TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK_CONNECTING_CGB
-	tilemap GameBoyLinkConnectingTilemap,      TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK_CONNECTING
-	tilemap GameBoyPrinterCGBTilemap,          TILESET_GAMEBOY_PRINTER             ; TILEMAP_GAMEBOY_PRINTER_CGB
-	tilemap GameBoyPrinterTilemap,             TILESET_GAMEBOY_PRINTER             ; TILEMAP_GAMEBOY_PRINTER
-	tilemap ColosseumTilemap,                  TILESET_COLOSSEUM_1                 ; TILEMAP_COLOSSEUM
-	tilemap ColosseumCGBTilemap,               TILESET_COLOSSEUM_2                 ; TILEMAP_COLOSSEUM_CGB
-	tilemap EvolutionTilemap,                  TILESET_EVOLUTION_1                 ; TILEMAP_EVOLUTION
-	tilemap EvolutionCGBTilemap,               TILESET_EVOLUTION_2                 ; TILEMAP_EVOLUTION_CGB
-	tilemap MysteryTilemap,                    TILESET_MYSTERY_1                   ; TILEMAP_MYSTERY
-	tilemap MysteryCGBTilemap,                 TILESET_MYSTERY_2                   ; TILEMAP_MYSTERY_CGB
-	tilemap LaboratoryTilemap,                 TILESET_LABORATORY_1                ; TILEMAP_LABORATORY
-	tilemap LaboratoryCGBTilemap,              TILESET_LABORATORY_2                ; TILEMAP_LABORATORY_CGB
-	tilemap CharizardIntroTilemap,             TILESET_CHARIZARD_INTRO_1           ; TILEMAP_CHARIZARD_INTRO
-	tilemap CharizardIntroCGBTilemap,          TILESET_CHARIZARD_INTRO_2           ; TILEMAP_CHARIZARD_INTRO_CGB
-	tilemap ScytherIntroTilemap,               TILESET_SCYTHER_INTRO_1             ; TILEMAP_SCYTHER_INTRO
-	tilemap ScytherIntroCGBTilemap,            TILESET_SCYTHER_INTRO_2             ; TILEMAP_SCYTHER_INTRO_CGB
-	tilemap AerodactylIntroTilemap,            TILESET_AERODACTYL_INTRO_1          ; TILEMAP_AERODACTYL_INTRO
-	tilemap AerodactylIntroCGBTilemap,         TILESET_AERODACTYL_INTRO_2          ; TILEMAP_AERODACTYL_INTRO_CGB
-	tilemap JapaneseTitleScreenTilemap,        TILESET_JAPANESE_TITLE_SCREEN       ; TILEMAP_JAPANESE_TITLE_SCREEN
-	tilemap JapaneseTitleScreenCGBTilemap,     TILESET_JAPANESE_TITLE_SCREEN_CGB   ; TILEMAP_JAPANESE_TITLE_SCREEN_CGB
-	tilemap SolidTiles1Tilemap,                TILESET_SOLID_TILES_1               ; TILEMAP_SOLID_TILES_1
-	tilemap SolidTiles2Tilemap,                TILESET_SOLID_TILES_1               ; TILEMAP_SOLID_TILES_2
-	tilemap SolidTiles3Tilemap,                TILESET_SOLID_TILES_1               ; TILEMAP_SOLID_TILES_3
-	tilemap JapaneseTitleScreen2Tilemap,       TILESET_JAPANESE_TITLE_SCREEN_2     ; TILEMAP_JAPANESE_TITLE_SCREEN_2
-	tilemap JapaneseTitleScreen2CGBTilemap,    TILESET_JAPANESE_TITLE_SCREEN_2_CGB ; TILEMAP_JAPANESE_TITLE_SCREEN_2_CGB
-	tilemap SolidTiles4Tilemap,                TILESET_SOLID_TILES_2               ; TILEMAP_SOLID_TILES_4
-	tilemap PlayerTilemap,                     TILESET_PLAYER                      ; TILEMAP_PLAYER
-	tilemap OpponentTilemap,                   TILESET_RONALD                      ; TILEMAP_OPPONENT
-	tilemap TitleScreenTilemap,                TILESET_TITLE_SCREEN                ; TILEMAP_TITLE_SCREEN
-	tilemap TitleScreenCGBTilemap,             TILESET_TITLE_SCREEN_CGB            ; TILEMAP_TITLE_SCREEN_CGB
-	tilemap CopyrightTilemap,                  TILESET_COPYRIGHT                   ; TILEMAP_COPYRIGHT
-	tilemap CopyrightCGBTilemap,               TILESET_COPYRIGHT                   ; TILEMAP_COPYRIGHT_CGB
-	tilemap NintendoTilemap,                   TILESET_NINTENDO                    ; TILEMAP_NINTENDO
-	tilemap CompaniesTilemap,                  TILESET_COMPANIES                   ; TILEMAP_COMPANIES
-
-; \1 = pointer
-; \2 = number of tiles
-tileset: MACRO
-	dwb \1, BANK(\1) - BANK(Tilesets)
-	db \2
-ENDM
-
-Tilesets: ; 8100f (20:500f)
-	tileset OverworldMapTiles,             193 ; TILESET_OVERWORLD_MAP
-	tileset MasonLaboratoryTilesetGfx,     151 ; TILESET_MASON_LABORATORY
-	tileset IshiharaTilesetGfx,             77 ; TILESET_ISHIHARA
-	tileset ClubEntranceTilesetGfx,        129 ; TILESET_CLUB_ENTRANCE
-	tileset ClubLobbyTilesetGfx,           120 ; TILESET_CLUB_LOBBY
-	tileset FightingClubTilesetGfx,         99 ; TILESET_FIGHTING_CLUB
-	tileset RockClubTilesetGfx,             60 ; TILESET_ROCK_CLUB
-	tileset WaterClubTilesetGfx,           161 ; TILESET_WATER_CLUB
-	tileset LightningClubTilesetGfx,       131 ; TILESET_LIGHTNING_CLUB
-	tileset GrassClubTilesetGfx,            87 ; TILESET_GRASS_CLUB
-	tileset PsychicClubTilesetGfx,          58 ; TILESET_PSYCHIC_CLUB
-	tileset ScienceClubTilesetGfx,          82 ; TILESET_SCIENCE_CLUB
-	tileset FireClubTilesetGfx,             87 ; TILESET_FIRE_CLUB
-	tileset ChallengeHallTilesetGfx,       157 ; TILESET_CHALLENGE_HALL
-	tileset PokemonDomeEntranceTilesetGfx,  78 ; TILESET_POKEMON_DOME_ENTRANCE
-	tileset PokemonDomeTilesetGfx,         207 ; TILESET_POKEMON_DOME
-	tileset HallOfHonorTilesetGfx,         121 ; TILESET_HALL_OF_HONOR
-	tileset CardPopGfx,                    189 ; TILESET_CARD_POP
-	tileset MedalGfx,                       72 ; TILESET_MEDAL
-	tileset GameBoyLinkGfx,                109 ; TILESET_GAMEBOY_LINK
-	tileset GameBoyPrinterGfx,              93 ; TILESET_GAMEBOY_PRINTER
-	tileset Colosseum1Gfx,                  96 ; TILESET_COLOSSEUM_1
-	tileset Colosseum2Gfx,                  86 ; TILESET_COLOSSEUM_2
-	tileset Evolution1Gfx,                  96 ; TILESET_EVOLUTION_1
-	tileset Evolution2Gfx,                  86 ; TILESET_EVOLUTION_2
-	tileset Mystery1Gfx,                    96 ; TILESET_MYSTERY_1
-	tileset Mystery2Gfx,                    86 ; TILESET_MYSTERY_2
-	tileset Laboratory1Gfx,                 96 ; TILESET_LABORATORY_1
-	tileset Laboratory2Gfx,                 86 ; TILESET_LABORATORY_2
-	tileset CharizardIntro1Gfx,             96 ; TILESET_CHARIZARD_INTRO_1
-	tileset CharizardIntro2Gfx,             96 ; TILESET_CHARIZARD_INTRO_2
-	tileset ScytherIntro1Gfx,               96 ; TILESET_SCYTHER_INTRO_1
-	tileset ScytherIntro2Gfx,               96 ; TILESET_SCYTHER_INTRO_2
-	tileset AerodactylIntro1Gfx,            96 ; TILESET_AERODACTYL_INTRO_1
-	tileset AerodactylIntro2Gfx,            96 ; TILESET_AERODACTYL_INTRO_2
-	tileset JapaneseTitleScreenGfx,         97 ; TILESET_JAPANESE_TITLE_SCREEN
-	tileset JapaneseTitleScreenCGBGfx,      97 ; TILESET_JAPANESE_TITLE_SCREEN_CGB
-	tileset SolidTiles1,                     4 ; TILESET_SOLID_TILES_1
-	tileset JapaneseTitleScreen2Gfx,       244 ; TILESET_JAPANESE_TITLE_SCREEN_2
-	tileset JapaneseTitleScreen2CGBGfx,     59 ; TILESET_JAPANESE_TITLE_SCREEN_2_CGB
-	tileset SolidTiles2,                     4 ; TILESET_SOLID_TILES_2
-	tileset PlayerGfx,                      36 ; TILESET_PLAYER
-	tileset RonaldGfx,                      36 ; TILESET_RONALD
-	tileset TitleScreenGfx,                220 ; TILESET_TITLE_SCREEN
-	tileset TitleScreenCGBGfx,             212 ; TILESET_TITLE_SCREEN_CGB
-	tileset CopyrightGfx,                   36 ; TILESET_COPYRIGHT
-	tileset NintendoGfx,                    24 ; TILESET_NINTENDO
-	tileset CompaniesGfx,                   49 ; TILESET_COMPANIES
-	tileset SamGfx,                         36 ; TILESET_SAM
-	tileset ImakuniGfx,                     36 ; TILESET_IMAKUNI
-	tileset NikkiGfx,                       36 ; TILESET_NIKKI
-	tileset RickGfx,                        36 ; TILESET_RICK
-	tileset KenGfx,                         36 ; TILESET_KEN
-	tileset AmyGfx,                         36 ; TILESET_AMY
-	tileset IsaacGfx,                       36 ; TILESET_ISAAC
-	tileset MitchGfx,                       36 ; TILESET_MITCH
-	tileset GeneGfx,                        36 ; TILESET_GENE
-	tileset MurrayGfx,                      36 ; TILESET_MURRAY
-	tileset CourtneyGfx,                    36 ; TILESET_COURTNEY
-	tileset SteveGfx,                       36 ; TILESET_STEVE
-	tileset JackGfx,                        36 ; TILESET_JACK
-	tileset RodGfx,                         36 ; TILESET_ROD
-	tileset JosephGfx,                      36 ; TILESET_JOSEPH
-	tileset DavidGfx,                       36 ; TILESET_DAVID
-	tileset ErikGfx,                        36 ; TILESET_ERIK
-	tileset JohnGfx,                        36 ; TILESET_JOHN
-	tileset AdamGfx,                        36 ; TILESET_ADAM
-	tileset JonathanGfx,                    36 ; TILESET_JONATHAN
-	tileset JoshuaGfx,                      36 ; TILESET_JOSHUA
-	tileset NicholasGfx,                    36 ; TILESET_NICHOLAS
-	tileset BrandonGfx,                     36 ; TILESET_BRANDON
-	tileset MatthewGfx,                     36 ; TILESET_MATTHEW
-	tileset RyanGfx,                        36 ; TILESET_RYAN
-	tileset AndrewGfx,                      36 ; TILESET_ANDREW
-	tileset ChrisGfx,                       36 ; TILESET_CHRIS
-	tileset MichaelGfx,                     36 ; TILESET_MICHAEL
-	tileset DanielGfx,                      36 ; TILESET_DANIEL
-	tileset RobertGfx,                      36 ; TILESET_ROBERT
-	tileset BrittanyGfx,                    36 ; TILESET_BRITTANY
-	tileset KristinGfx,                     36 ; TILESET_KRISTIN
-	tileset HeatherGfx,                     36 ; TILESET_HEATHER
-	tileset SaraGfx,                        36 ; TILESET_SARA
-	tileset AmandaGfx,                      36 ; TILESET_AMANDA
-	tileset JenniferGfx,                    36 ; TILESET_JENNIFER
-	tileset JessicaGfx,                     36 ; TILESET_JESSICA
-	tileset StephanieGfx,                   36 ; TILESET_STEPHANIE
-	tileset AaronGfx,                       36 ; TILESET_AARON
-
-; \1 = gfx pointer
-; \2 = number of tiles
-gfx_pointer: MACRO
-	dwb \1, BANK(\1) - BANK(Sprites)
-	db \2
-ENDM
-
-Sprites: ; 8116b (20:516b)
-	gfx_pointer OWPlayerGfx,        $14 ; SPRITE_OW_PLAYER
-	gfx_pointer OWRonaldGfx,        $14 ; SPRITE_OW_RONALD
-	gfx_pointer OWDrMasonGfx,       $14 ; SPRITE_OW_DRMASON
-	gfx_pointer OWIshiharaGfx,      $14 ; SPRITE_OW_ISHIHARA
-	gfx_pointer OWImakuniGfx,       $14 ; SPRITE_OW_IMAKUNI
-	gfx_pointer OWNikkiGfx,         $14 ; SPRITE_OW_NIKKI
-	gfx_pointer OWRickGfx,          $14 ; SPRITE_OW_RICK
-	gfx_pointer OWKenGfx,           $14 ; SPRITE_OW_KEN
-	gfx_pointer OWAmyGfx,           $1b ; SPRITE_OW_AMY
-	gfx_pointer OWIsaacGfx,         $14 ; SPRITE_OW_ISAAC
-	gfx_pointer OWMitchGfx,         $14 ; SPRITE_OW_MITCH
-	gfx_pointer OWGeneGfx,          $14 ; SPRITE_OW_GENE
-	gfx_pointer OWMurrayGfx,        $14 ; SPRITE_OW_MURRAY
-	gfx_pointer OWCourtneyGfx,      $14 ; SPRITE_OW_COURTNEY
-	gfx_pointer OWSteveGfx,         $14 ; SPRITE_OW_STEVE
-	gfx_pointer OWJackGfx,          $14 ; SPRITE_OW_JACK
-	gfx_pointer OWRodGfx,           $14 ; SPRITE_OW_ROD
-	gfx_pointer OWBoyGfx,           $14 ; SPRITE_OW_BOY
-	gfx_pointer OWLadGfx,           $14 ; SPRITE_OW_LAD
-	gfx_pointer OWSpecsGfx,         $14 ; SPRITE_OW_SPECS
-	gfx_pointer OWButchGfx,         $14 ; SPRITE_OW_BUTCH
-	gfx_pointer OWManiaGfx,         $14 ; SPRITE_OW_MANIA
-	gfx_pointer OWJoshuaGfx,        $14 ; SPRITE_OW_JOSHUA
-	gfx_pointer OWHoodGfx,          $14 ; SPRITE_OW_HOOD
-	gfx_pointer OWTechGfx,          $14 ; SPRITE_OW_TECH
-	gfx_pointer OWChapGfx,          $14 ; SPRITE_OW_CHAP
-	gfx_pointer OWManGfx,           $14 ; SPRITE_OW_MAN
-	gfx_pointer OWPappyGfx,         $14 ; SPRITE_OW_PAPPY
-	gfx_pointer OWGirlGfx,          $14 ; SPRITE_OW_GIRL
-	gfx_pointer OWLass1Gfx,         $14 ; SPRITE_OW_LASS1
-	gfx_pointer OWLass2Gfx,         $14 ; SPRITE_OW_LASS2
-	gfx_pointer OWLass3Gfx,         $14 ; SPRITE_OW_LASS3
-	gfx_pointer OWSwimmerGfx,       $14 ; SPRITE_OW_SWIMMER
-	gfx_pointer OWClerkGfx,         $08 ; SPRITE_OW_CLERK
-	gfx_pointer OWGalGfx,           $14 ; SPRITE_OW_GAL
-	gfx_pointer OWWomanGfx,         $14 ; SPRITE_OW_WOMAN
-	gfx_pointer OWGrannyGfx,        $14 ; SPRITE_OW_GRANNY
-	gfx_pointer OverworldMapOAMGfx, $08 ; SPRITE_OW_MAP_OAM
-	gfx_pointer Duel0Gfx,           $16 ; SPRITE_DUEL_0
-	gfx_pointer Duel63Gfx,          $0a ; SPRITE_DUEL_63
-	gfx_pointer DuelGlowGfx,        $0b ; SPRITE_DUEL_GLOW
-	gfx_pointer Duel1Gfx,           $06 ; SPRITE_DUEL_1
-	gfx_pointer Duel2Gfx,           $08 ; SPRITE_DUEL_2
-	gfx_pointer Duel55Gfx,          $02 ; SPRITE_DUEL_55
-	gfx_pointer Duel58Gfx,          $04 ; SPRITE_DUEL_58
-	gfx_pointer Duel3Gfx,           $09 ; SPRITE_DUEL_3
-	gfx_pointer Duel4Gfx,           $12 ; SPRITE_DUEL_4
-	gfx_pointer Duel5Gfx,           $09 ; SPRITE_DUEL_5
-	gfx_pointer Duel6Gfx,           $11 ; SPRITE_DUEL_6
-	gfx_pointer Duel59Gfx,          $03 ; SPRITE_DUEL_59
-	gfx_pointer Duel7Gfx,           $2d ; SPRITE_DUEL_7
-	gfx_pointer Duel8Gfx,           $0d ; SPRITE_DUEL_8
-	gfx_pointer Duel9Gfx,           $1c ; SPRITE_DUEL_9
-	gfx_pointer Duel10Gfx,          $4c ; SPRITE_DUEL_10
-	gfx_pointer Duel61Gfx,          $03 ; SPRITE_DUEL_61
-	gfx_pointer Duel11Gfx,          $1b ; SPRITE_DUEL_11
-	gfx_pointer Duel12Gfx,          $07 ; SPRITE_DUEL_12
-	gfx_pointer Duel13Gfx,          $0c ; SPRITE_DUEL_13
-	gfx_pointer Duel62Gfx,          $01 ; SPRITE_DUEL_62
-	gfx_pointer Duel14Gfx,          $22 ; SPRITE_DUEL_14
-	gfx_pointer Duel15Gfx,          $20 ; SPRITE_DUEL_15
-	gfx_pointer Duel16Gfx,          $0a ; SPRITE_DUEL_16
-	gfx_pointer Duel17Gfx,          $25 ; SPRITE_DUEL_17
-	gfx_pointer Duel18Gfx,          $18 ; SPRITE_DUEL_18
-	gfx_pointer Duel19Gfx,          $1b ; SPRITE_DUEL_19
-	gfx_pointer Duel20Gfx,          $08 ; SPRITE_DUEL_20
-	gfx_pointer Duel21Gfx,          $0d ; SPRITE_DUEL_21
-	gfx_pointer Duel22Gfx,          $22 ; SPRITE_DUEL_22
-	gfx_pointer Duel23Gfx,          $0c ; SPRITE_DUEL_23
-	gfx_pointer Duel24Gfx,          $25 ; SPRITE_DUEL_24
-	gfx_pointer Duel25Gfx,          $22 ; SPRITE_DUEL_25
-	gfx_pointer Duel26Gfx,          $0c ; SPRITE_DUEL_26
-	gfx_pointer Duel27Gfx,          $4c ; SPRITE_DUEL_27
-	gfx_pointer Duel28Gfx,          $08 ; SPRITE_DUEL_28
-	gfx_pointer Duel29Gfx,          $07 ; SPRITE_DUEL_29
-	gfx_pointer Duel56Gfx,          $01 ; SPRITE_DUEL_56
-	gfx_pointer Duel30Gfx,          $1a ; SPRITE_DUEL_30
-	gfx_pointer Duel31Gfx,          $0a ; SPRITE_DUEL_31
-	gfx_pointer Duel32Gfx,          $2e ; SPRITE_DUEL_32
-	gfx_pointer Duel33Gfx,          $08 ; SPRITE_DUEL_33
-	gfx_pointer Duel34Gfx,          $07 ; SPRITE_DUEL_34
-	gfx_pointer Duel35Gfx,          $1c ; SPRITE_DUEL_35
-	gfx_pointer Duel66Gfx,          $04 ; SPRITE_DUEL_66
-	gfx_pointer Duel36Gfx,          $08 ; SPRITE_DUEL_36
-	gfx_pointer Duel37Gfx,          $0b ; SPRITE_DUEL_37
-	gfx_pointer Duel57Gfx,          $01 ; SPRITE_DUEL_57
-	gfx_pointer Duel38Gfx,          $1c ; SPRITE_DUEL_38
-	gfx_pointer Duel39Gfx,          $16 ; SPRITE_DUEL_39
-	gfx_pointer Duel40Gfx,          $10 ; SPRITE_DUEL_40
-	gfx_pointer Duel41Gfx,          $0f ; SPRITE_DUEL_41
-	gfx_pointer Duel42Gfx,          $07 ; SPRITE_DUEL_42
-	gfx_pointer Duel43Gfx,          $0a ; SPRITE_DUEL_43
-	gfx_pointer Duel44Gfx,          $09 ; SPRITE_DUEL_44
-	gfx_pointer Duel60Gfx,          $02 ; SPRITE_DUEL_60
-	gfx_pointer Duel64Gfx,          $02 ; SPRITE_DUEL_64
-	gfx_pointer Duel45Gfx,          $03 ; SPRITE_DUEL_45
-	gfx_pointer Duel46Gfx,          $08 ; SPRITE_DUEL_46
-	gfx_pointer Duel47Gfx,          $0f ; SPRITE_DUEL_47
-	gfx_pointer Duel48Gfx,          $03 ; SPRITE_DUEL_48
-	gfx_pointer Duel49Gfx,          $05 ; SPRITE_DUEL_49
-	gfx_pointer Duel50Gfx,          $17 ; SPRITE_DUEL_50
-	gfx_pointer Duel51Gfx,          $36 ; SPRITE_DUEL_WON_LOST_DRAW
-	gfx_pointer Duel52Gfx,          $0b ; SPRITE_DUEL_52
-	gfx_pointer Duel53Gfx,          $06 ; SPRITE_DUEL_53
-	gfx_pointer Duel54Gfx,          $16 ; SPRITE_DUEL_54
-	gfx_pointer BoosterPackOAMGfx,  $20 ; SPRITE_BOOSTER_PACK_OAM
-	gfx_pointer PressStartGfx,      $14 ; SPRITE_PRESS_START
-	gfx_pointer GrassGfx,           $04 ; SPRITE_GRASS
-	gfx_pointer FireGfx,            $04 ; SPRITE_FIRE
-	gfx_pointer WaterGfx,           $04 ; SPRITE_WATER
-	gfx_pointer ColorlessGfx,       $04 ; SPRITE_COLORLESS
-	gfx_pointer LightningGfx,       $04 ; SPRITE_LIGHTNING
-	gfx_pointer PsychicGfx,         $04 ; SPRITE_PSYCHIC
-	gfx_pointer FightingGfx,        $04 ; SPRITE_FIGHTING
-
-; \1 = anim data pointer
-anim_data_pointer: MACRO
-	dwb \1, BANK(\1) - BANK(SpriteAnimations)
-	db $00 ; unused (padding?)
-ENDM
-
-SpriteAnimations: ; 81333 (20:5333)
-	anim_data_pointer AnimData0   ; SPRITE_ANIM_LIGHT_NPC_UP
-	anim_data_pointer AnimData1   ; SPRITE_ANIM_LIGHT_NPC_RIGHT
-	anim_data_pointer AnimData2   ; SPRITE_ANIM_LIGHT_NPC_DOWN
-	anim_data_pointer AnimData3   ; SPRITE_ANIM_LIGHT_NPC_LEFT
-	anim_data_pointer AnimData4   ; SPRITE_ANIM_DARK_NPC_UP
-	anim_data_pointer AnimData5   ; SPRITE_ANIM_DARK_NPC_RIGHT
-	anim_data_pointer AnimData6   ; SPRITE_ANIM_DARK_NPC_DOWN
-	anim_data_pointer AnimData7   ; SPRITE_ANIM_DARK_NPC_LEFT
-	anim_data_pointer AnimData8   ; SPRITE_ANIM_SGB_AMY_LAYING
-	anim_data_pointer AnimData9   ; SPRITE_ANIM_SGB_AMY_STAND
-	anim_data_pointer AnimData10  ; SPRITE_ANIM_SGB_CLERK_NPC_UP
-	anim_data_pointer AnimData11  ; SPRITE_ANIM_SGB_CLERK_NPC_RIGHT
-	anim_data_pointer AnimData12  ; SPRITE_ANIM_SGB_CLERK_NPC_DOWN
-	anim_data_pointer AnimData13  ; SPRITE_ANIM_SGB_CLERK_NPC_LEFT
-	anim_data_pointer AnimData14  ; SPRITE_ANIM_BLUE_NPC_UP
-	anim_data_pointer AnimData15  ; SPRITE_ANIM_BLUE_NPC_RIGHT
-	anim_data_pointer AnimData16  ; SPRITE_ANIM_BLUE_NPC_DOWN
-	anim_data_pointer AnimData17  ; SPRITE_ANIM_BLUE_NPC_LEFT
-	anim_data_pointer AnimData18  ; SPRITE_ANIM_PINK_NPC_UP
-	anim_data_pointer AnimData19  ; SPRITE_ANIM_PINK_NPC_RIGHT
-	anim_data_pointer AnimData20  ; SPRITE_ANIM_PINK_NPC_DOWN
-	anim_data_pointer AnimData21  ; SPRITE_ANIM_PINK_NPC_LEFT
-	anim_data_pointer AnimData22  ; SPRITE_ANIM_YELLOW_NPC_UP
-	anim_data_pointer AnimData23  ; SPRITE_ANIM_YELLOW_NPC_RIGHT
-	anim_data_pointer AnimData24  ; SPRITE_ANIM_YELLOW_NPC_DOWN
-	anim_data_pointer AnimData25  ; SPRITE_ANIM_YELLOW_NPC_LEFT
-	anim_data_pointer AnimData26  ; SPRITE_ANIM_GREEN_NPC_UP
-	anim_data_pointer AnimData27  ; SPRITE_ANIM_GREEN_NPC_RIGHT
-	anim_data_pointer AnimData28  ; SPRITE_ANIM_GREEN_NPC_DOWN
-	anim_data_pointer AnimData29  ; SPRITE_ANIM_GREEN_NPC_LEFT
-	anim_data_pointer AnimData30  ; SPRITE_ANIM_RED_NPC_UP
-	anim_data_pointer AnimData31  ; SPRITE_ANIM_RED_NPC_RIGHT
-	anim_data_pointer AnimData32  ; SPRITE_ANIM_RED_NPC_DOWN
-	anim_data_pointer AnimData33  ; SPRITE_ANIM_RED_NPC_LEFT
-	anim_data_pointer AnimData34  ; SPRITE_ANIM_PURPLE_NPC_UP
-	anim_data_pointer AnimData35  ; SPRITE_ANIM_PURPLE_NPC_RIGHT
-	anim_data_pointer AnimData36  ; SPRITE_ANIM_PURPLE_NPC_DOWN
-	anim_data_pointer AnimData37  ; SPRITE_ANIM_PURPLE_NPC_LEFT
-	anim_data_pointer AnimData38  ; SPRITE_ANIM_WHITE_NPC_UP
-	anim_data_pointer AnimData39  ; SPRITE_ANIM_WHITE_NPC_RIGHT
-	anim_data_pointer AnimData40  ; SPRITE_ANIM_WHITE_NPC_DOWN
-	anim_data_pointer AnimData41  ; SPRITE_ANIM_WHITE_NPC_LEFT
-	anim_data_pointer AnimData42  ; SPRITE_ANIM_INDIGO_NPC_UP
-	anim_data_pointer AnimData43  ; SPRITE_ANIM_INDIGO_NPC_RIGHT
-	anim_data_pointer AnimData44  ; SPRITE_ANIM_INDIGO_NPC_DOWN
-	anim_data_pointer AnimData45  ; SPRITE_ANIM_INDIGO_NPC_LEFT
-	anim_data_pointer AnimData46  ; SPRITE_ANIM_CGB_AMY_LAYING
-	anim_data_pointer AnimData47  ; SPRITE_ANIM_CGB_AMY_STAND
-	anim_data_pointer AnimData48  ; SPRITE_ANIM_CGB_CLERK_NPC_UP
-	anim_data_pointer AnimData49  ; SPRITE_ANIM_CGB_CLERK_NPC_RIGHT
-	anim_data_pointer AnimData50  ; SPRITE_ANIM_CGB_CLERK_NPC_DOWN
-	anim_data_pointer AnimData51  ; SPRITE_ANIM_CGB_CLERK_NPC_LEFT
-	anim_data_pointer AnimData52  ; SPRITE_ANIM_SGB_VOLCANO_SMOKE
-	anim_data_pointer AnimData53  ; SPRITE_ANIM_SGB_OWMAP_CURSOR
-	anim_data_pointer AnimData54  ; SPRITE_ANIM_SGB_OWMAP_CURSOR_FAST
-	anim_data_pointer AnimData55  ; SPRITE_ANIM_CGB_VOLCANO_SMOKE
-	anim_data_pointer AnimData56  ; SPRITE_ANIM_CGB_OWMAP_CURSOR
-	anim_data_pointer AnimData57  ; SPRITE_ANIM_CGB_OWMAP_CURSOR_FAST
-	anim_data_pointer AnimData58  ; SPRITE_ANIM_TORCH
-	anim_data_pointer AnimData59  ; SPRITE_ANIM_SGB_CARD_TOP_LEFT
-	anim_data_pointer AnimData60  ; SPRITE_ANIM_SGB_CARD_TOP_RIGHT
-	anim_data_pointer AnimData61  ; SPRITE_ANIM_SGB_CARD_LEFT_SPARK
-	anim_data_pointer AnimData62  ; SPRITE_ANIM_SGB_CARD_BOTTOM_LEFT
-	anim_data_pointer AnimData63  ; SPRITE_ANIM_SGB_CARD_BOTTOM_RIGHT
-	anim_data_pointer AnimData64  ; SPRITE_ANIM_SGB_CARD_RIGHT_SPARK
-	anim_data_pointer AnimData65  ; SPRITE_ANIM_CGB_CARD_TOP_LEFT
-	anim_data_pointer AnimData66  ; SPRITE_ANIM_CGB_CARD_TOP_RIGHT
-	anim_data_pointer AnimData67  ; SPRITE_ANIM_CGB_CARD_LEFT_SPARK
-	anim_data_pointer AnimData68  ; SPRITE_ANIM_CGB_CARD_BOTTOM_LEFT
-	anim_data_pointer AnimData69  ; SPRITE_ANIM_CGB_CARD_BOTTOM_RIGHT
-	anim_data_pointer AnimData70  ; SPRITE_ANIM_CGB_CARD_RIGHT_SPARK
-	anim_data_pointer AnimData71  ; SPRITE_ANIM_71
-	anim_data_pointer AnimData72  ; SPRITE_ANIM_72
-	anim_data_pointer AnimData73  ; SPRITE_ANIM_73
-	anim_data_pointer AnimData74  ; SPRITE_ANIM_74
-	anim_data_pointer AnimData75  ; SPRITE_ANIM_75
-	anim_data_pointer AnimData76  ; SPRITE_ANIM_76
-	anim_data_pointer AnimData77  ; SPRITE_ANIM_77
-	anim_data_pointer AnimData78  ; SPRITE_ANIM_78
-	anim_data_pointer AnimData79  ; SPRITE_ANIM_79
-	anim_data_pointer AnimData80  ; SPRITE_ANIM_80
-	anim_data_pointer AnimData81  ; SPRITE_ANIM_81
-	anim_data_pointer AnimData82  ; SPRITE_ANIM_82
-	anim_data_pointer AnimData83  ; SPRITE_ANIM_83
-	anim_data_pointer AnimData84  ; SPRITE_ANIM_84
-	anim_data_pointer AnimData85  ; SPRITE_ANIM_85
-	anim_data_pointer AnimData86  ; SPRITE_ANIM_86
-	anim_data_pointer AnimData87  ; SPRITE_ANIM_87
-	anim_data_pointer AnimData88  ; SPRITE_ANIM_88
-	anim_data_pointer AnimData89  ; SPRITE_ANIM_89
-	anim_data_pointer AnimData90  ; SPRITE_ANIM_90
-	anim_data_pointer AnimData91  ; SPRITE_ANIM_91
-	anim_data_pointer AnimData92  ; SPRITE_ANIM_92
-	anim_data_pointer AnimData93  ; SPRITE_ANIM_93
-	anim_data_pointer AnimData94  ; SPRITE_ANIM_94
-	anim_data_pointer AnimData95  ; SPRITE_ANIM_95
-	anim_data_pointer AnimData96  ; SPRITE_ANIM_96
-	anim_data_pointer AnimData97  ; SPRITE_ANIM_97
-	anim_data_pointer AnimData98  ; SPRITE_ANIM_98
-	anim_data_pointer AnimData99  ; SPRITE_ANIM_99
-	anim_data_pointer AnimData100 ; SPRITE_ANIM_100
-	anim_data_pointer AnimData101 ; SPRITE_ANIM_101
-	anim_data_pointer AnimData102 ; SPRITE_ANIM_102
-	anim_data_pointer AnimData103 ; SPRITE_ANIM_103
-	anim_data_pointer AnimData104 ; SPRITE_ANIM_104
-	anim_data_pointer AnimData105 ; SPRITE_ANIM_105
-	anim_data_pointer AnimData106 ; SPRITE_ANIM_106
-	anim_data_pointer AnimData107 ; SPRITE_ANIM_107
-	anim_data_pointer AnimData108 ; SPRITE_ANIM_108
-	anim_data_pointer AnimData109 ; SPRITE_ANIM_109
-	anim_data_pointer AnimData110 ; SPRITE_ANIM_110
-	anim_data_pointer AnimData111 ; SPRITE_ANIM_111
-	anim_data_pointer AnimData112 ; SPRITE_ANIM_112
-	anim_data_pointer AnimData113 ; SPRITE_ANIM_113
-	anim_data_pointer AnimData114 ; SPRITE_ANIM_114
-	anim_data_pointer AnimData115 ; SPRITE_ANIM_115
-	anim_data_pointer AnimData116 ; SPRITE_ANIM_116
-	anim_data_pointer AnimData117 ; SPRITE_ANIM_117
-	anim_data_pointer AnimData118 ; SPRITE_ANIM_118
-	anim_data_pointer AnimData119 ; SPRITE_ANIM_119
-	anim_data_pointer AnimData120 ; SPRITE_ANIM_120
-	anim_data_pointer AnimData121 ; SPRITE_ANIM_121
-	anim_data_pointer AnimData122 ; SPRITE_ANIM_122
-	anim_data_pointer AnimData123 ; SPRITE_ANIM_123
-	anim_data_pointer AnimData124 ; SPRITE_ANIM_124
-	anim_data_pointer AnimData125 ; SPRITE_ANIM_125
-	anim_data_pointer AnimData126 ; SPRITE_ANIM_126
-	anim_data_pointer AnimData127 ; SPRITE_ANIM_127
-	anim_data_pointer AnimData128 ; SPRITE_ANIM_128
-	anim_data_pointer AnimData129 ; SPRITE_ANIM_129
-	anim_data_pointer AnimData130 ; SPRITE_ANIM_130
-	anim_data_pointer AnimData131 ; SPRITE_ANIM_131
-	anim_data_pointer AnimData132 ; SPRITE_ANIM_132
-	anim_data_pointer AnimData133 ; SPRITE_ANIM_133
-	anim_data_pointer AnimData134 ; SPRITE_ANIM_134
-	anim_data_pointer AnimData135 ; SPRITE_ANIM_135
-	anim_data_pointer AnimData136 ; SPRITE_ANIM_136
-	anim_data_pointer AnimData137 ; SPRITE_ANIM_137
-	anim_data_pointer AnimData138 ; SPRITE_ANIM_138
-	anim_data_pointer AnimData139 ; SPRITE_ANIM_139
-	anim_data_pointer AnimData140 ; SPRITE_ANIM_140
-	anim_data_pointer AnimData141 ; SPRITE_ANIM_141
-	anim_data_pointer AnimData142 ; SPRITE_ANIM_142
-	anim_data_pointer AnimData143 ; SPRITE_ANIM_143
-	anim_data_pointer AnimData144 ; SPRITE_ANIM_144
-	anim_data_pointer AnimData145 ; SPRITE_ANIM_145
-	anim_data_pointer AnimData146 ; SPRITE_ANIM_146
-	anim_data_pointer AnimData147 ; SPRITE_ANIM_147
-	anim_data_pointer AnimData148 ; SPRITE_ANIM_148
-	anim_data_pointer AnimData149 ; SPRITE_ANIM_149
-	anim_data_pointer AnimData150 ; SPRITE_ANIM_150
-	anim_data_pointer AnimData151 ; SPRITE_ANIM_151
-	anim_data_pointer AnimData152 ; SPRITE_ANIM_152
-	anim_data_pointer AnimData153 ; SPRITE_ANIM_153
-	anim_data_pointer AnimData154 ; SPRITE_ANIM_154
-	anim_data_pointer AnimData155 ; SPRITE_ANIM_155
-	anim_data_pointer AnimData156 ; SPRITE_ANIM_156
-	anim_data_pointer AnimData157 ; SPRITE_ANIM_157
-	anim_data_pointer AnimData158 ; SPRITE_ANIM_158
-	anim_data_pointer AnimData159 ; SPRITE_ANIM_159
-	anim_data_pointer AnimData160 ; SPRITE_ANIM_160
-	anim_data_pointer AnimData161 ; SPRITE_ANIM_161
-	anim_data_pointer AnimData162 ; SPRITE_ANIM_162
-	anim_data_pointer AnimData163 ; SPRITE_ANIM_163
-	anim_data_pointer AnimData164 ; SPRITE_ANIM_164
-	anim_data_pointer AnimData165 ; SPRITE_ANIM_165
-	anim_data_pointer AnimData166 ; SPRITE_ANIM_166
-	anim_data_pointer AnimData167 ; SPRITE_ANIM_167
-	anim_data_pointer AnimData168 ; SPRITE_ANIM_168
-	anim_data_pointer AnimData169 ; SPRITE_ANIM_169
-	anim_data_pointer AnimData170 ; SPRITE_ANIM_170
-	anim_data_pointer AnimData171 ; SPRITE_ANIM_171
-	anim_data_pointer AnimData172 ; SPRITE_ANIM_172
-	anim_data_pointer AnimData173 ; SPRITE_ANIM_173
-	anim_data_pointer AnimData174 ; SPRITE_ANIM_174
-	anim_data_pointer AnimData175 ; SPRITE_ANIM_175
-	anim_data_pointer AnimData176 ; SPRITE_ANIM_176
-	anim_data_pointer AnimData177 ; SPRITE_ANIM_177
-	anim_data_pointer AnimData178 ; SPRITE_ANIM_178
-	anim_data_pointer AnimData179 ; SPRITE_ANIM_179
-	anim_data_pointer AnimData180 ; SPRITE_ANIM_180
-	anim_data_pointer AnimData181 ; SPRITE_ANIM_181
-	anim_data_pointer AnimData182 ; SPRITE_ANIM_182
-	anim_data_pointer AnimData183 ; SPRITE_ANIM_183
-	anim_data_pointer AnimData184 ; SPRITE_ANIM_184
-	anim_data_pointer AnimData185 ; SPRITE_ANIM_185
-	anim_data_pointer AnimData186 ; SPRITE_ANIM_186
-	anim_data_pointer AnimData187 ; SPRITE_ANIM_187
-	anim_data_pointer AnimData188 ; SPRITE_ANIM_188
-	anim_data_pointer AnimData189 ; SPRITE_ANIM_189
-	anim_data_pointer AnimData190 ; SPRITE_ANIM_190
-	anim_data_pointer AnimData191 ; SPRITE_ANIM_191
-	anim_data_pointer AnimData192 ; SPRITE_ANIM_192
-	anim_data_pointer AnimData193 ; SPRITE_ANIM_193
-	anim_data_pointer AnimData194 ; SPRITE_ANIM_194
-	anim_data_pointer AnimData195 ; SPRITE_ANIM_195
-	anim_data_pointer AnimData196 ; SPRITE_ANIM_196
-	anim_data_pointer AnimData197 ; SPRITE_ANIM_197
-	anim_data_pointer AnimData198 ; SPRITE_ANIM_198
-	anim_data_pointer AnimData199 ; SPRITE_ANIM_199
-	anim_data_pointer AnimData200 ; SPRITE_ANIM_200
-	anim_data_pointer AnimData201 ; SPRITE_ANIM_201
-	anim_data_pointer AnimData202 ; SPRITE_ANIM_202
-	anim_data_pointer AnimData203 ; SPRITE_ANIM_203
-	anim_data_pointer AnimData204 ; SPRITE_ANIM_204
-	anim_data_pointer AnimData205 ; SPRITE_ANIM_205
-	anim_data_pointer AnimData206 ; SPRITE_ANIM_206
-	anim_data_pointer AnimData207 ; SPRITE_ANIM_207
-	anim_data_pointer AnimData208 ; SPRITE_ANIM_208
-	anim_data_pointer AnimData209 ; SPRITE_ANIM_209
-	anim_data_pointer AnimData210 ; SPRITE_ANIM_210
-	anim_data_pointer AnimData211 ; SPRITE_ANIM_211
-	anim_data_pointer AnimData212 ; SPRITE_ANIM_212
-	anim_data_pointer AnimData213 ; SPRITE_ANIM_213
-	anim_data_pointer AnimData214 ; SPRITE_ANIM_214
-	anim_data_pointer AnimData215 ; SPRITE_ANIM_215
-	anim_data_pointer AnimData216 ; SPRITE_ANIM_216
-
-; \1 = palette pointer
-; \2 = number of palettes
-; \3 = number of OBJ colors
-palette_pointer: MACRO
-	dwb \1, BANK(\1) - BANK(Palettes)
-	db (\2 << 4) + \3
-ENDM
-
-Palettes: ; 81697 (20:5697)
-	palette_pointer Palette0,   8, 1 ; PALETTE_0
-	palette_pointer Palette1,   8, 0 ; PALETTE_1
-	palette_pointer Palette2,   8, 0 ; PALETTE_2
-	palette_pointer Palette3,   8, 0 ; PALETTE_3
-	palette_pointer Palette4,   8, 0 ; PALETTE_4
-	palette_pointer Palette5,   8, 0 ; PALETTE_5
-	palette_pointer Palette6,   8, 0 ; PALETTE_6
-	palette_pointer Palette7,   8, 0 ; PALETTE_7
-	palette_pointer Palette8,   8, 0 ; PALETTE_8
-	palette_pointer Palette9,   8, 0 ; PALETTE_9
-	palette_pointer Palette10,  8, 0 ; PALETTE_10
-	palette_pointer Palette11,  8, 0 ; PALETTE_11
-	palette_pointer Palette12,  8, 0 ; PALETTE_12
-	palette_pointer Palette13,  8, 0 ; PALETTE_13
-	palette_pointer Palette14,  8, 0 ; PALETTE_14
-	palette_pointer Palette15,  8, 0 ; PALETTE_15
-	palette_pointer Palette16,  8, 0 ; PALETTE_16
-	palette_pointer Palette17,  8, 0 ; PALETTE_17
-	palette_pointer Palette18,  8, 0 ; PALETTE_18
-	palette_pointer Palette19,  8, 0 ; PALETTE_19
-	palette_pointer Palette20,  8, 0 ; PALETTE_20
-	palette_pointer Palette21,  8, 0 ; PALETTE_21
-	palette_pointer Palette22,  8, 0 ; PALETTE_22
-	palette_pointer Palette23,  8, 0 ; PALETTE_23
-	palette_pointer Palette24,  8, 0 ; PALETTE_24
-	palette_pointer Palette25,  8, 0 ; PALETTE_25
-	palette_pointer Palette26,  8, 0 ; PALETTE_26
-	palette_pointer Palette27,  8, 0 ; PALETTE_27
-	palette_pointer Palette28,  8, 0 ; PALETTE_28
-	palette_pointer Palette29,  8, 2 ; PALETTE_29
-	palette_pointer Palette30,  8, 2 ; PALETTE_30
-	palette_pointer Palette31,  1, 1 ; PALETTE_31
-	palette_pointer Palette32,  1, 1 ; PALETTE_32
-	palette_pointer Palette33,  1, 1 ; PALETTE_33
-	palette_pointer Palette34,  1, 1 ; PALETTE_34
-	palette_pointer Palette35,  1, 1 ; PALETTE_35
-	palette_pointer Palette36,  1, 1 ; PALETTE_36
-	palette_pointer Palette37,  1, 1 ; PALETTE_37
-	palette_pointer Palette38,  1, 1 ; PALETTE_38
-	palette_pointer Palette39,  1, 1 ; PALETTE_39
-	palette_pointer Palette40,  1, 1 ; PALETTE_40
-	palette_pointer Palette41,  1, 1 ; PALETTE_41
-	palette_pointer Palette42,  1, 1 ; PALETTE_42
-	palette_pointer Palette43,  1, 1 ; PALETTE_43
-	palette_pointer Palette44,  1, 1 ; PALETTE_44
-	palette_pointer Palette45,  1, 1 ; PALETTE_45
-	palette_pointer Palette46,  1, 1 ; PALETTE_46
-	palette_pointer Palette47,  1, 1 ; PALETTE_47
-	palette_pointer Palette48,  1, 1 ; PALETTE_48
-	palette_pointer Palette49,  1, 1 ; PALETTE_49
-	palette_pointer Palette50,  1, 1 ; PALETTE_50
-	palette_pointer Palette51,  1, 1 ; PALETTE_51
-	palette_pointer Palette52,  1, 1 ; PALETTE_52
-	palette_pointer Palette53,  1, 1 ; PALETTE_53
-	palette_pointer Palette54,  1, 1 ; PALETTE_54
-	palette_pointer Palette55,  1, 1 ; PALETTE_55
-	palette_pointer Palette56,  1, 1 ; PALETTE_56
-	palette_pointer Palette57,  1, 1 ; PALETTE_57
-	palette_pointer Palette58,  1, 1 ; PALETTE_58
-	palette_pointer Palette59,  1, 1 ; PALETTE_59
-	palette_pointer Palette60,  1, 1 ; PALETTE_60
-	palette_pointer Palette61,  1, 1 ; PALETTE_61
-	palette_pointer Palette62,  1, 1 ; PALETTE_62
-	palette_pointer Palette63,  1, 1 ; PALETTE_63
-	palette_pointer Palette64,  1, 1 ; PALETTE_64
-	palette_pointer Palette65,  1, 1 ; PALETTE_65
-	palette_pointer Palette66,  1, 1 ; PALETTE_66
-	palette_pointer Palette67,  1, 1 ; PALETTE_67
-	palette_pointer Palette68,  1, 1 ; PALETTE_68
-	palette_pointer Palette69,  1, 1 ; PALETTE_69
-	palette_pointer Palette70,  1, 1 ; PALETTE_70
-	palette_pointer Palette71,  1, 1 ; PALETTE_71
-	palette_pointer Palette72,  1, 1 ; PALETTE_72
-	palette_pointer Palette73,  1, 1 ; PALETTE_73
-	palette_pointer Palette74,  1, 1 ; PALETTE_74
-	palette_pointer Palette75,  1, 1 ; PALETTE_75
-	palette_pointer Palette76,  1, 1 ; PALETTE_76
-	palette_pointer Palette77,  1, 1 ; PALETTE_77
-	palette_pointer Palette78,  1, 1 ; PALETTE_78
-	palette_pointer Palette79,  1, 1 ; PALETTE_79
-	palette_pointer Palette80,  1, 1 ; PALETTE_80
-	palette_pointer Palette81,  1, 1 ; PALETTE_81
-	palette_pointer Palette82,  1, 1 ; PALETTE_82
-	palette_pointer Palette83,  1, 1 ; PALETTE_83
-	palette_pointer Palette84,  1, 1 ; PALETTE_84
-	palette_pointer Palette85,  1, 1 ; PALETTE_85
-	palette_pointer Palette86,  1, 1 ; PALETTE_86
-	palette_pointer Palette87,  1, 1 ; PALETTE_87
-	palette_pointer Palette88,  1, 1 ; PALETTE_88
-	palette_pointer Palette89,  1, 1 ; PALETTE_89
-	palette_pointer Palette90,  1, 1 ; PALETTE_90
-	palette_pointer Palette91,  1, 1 ; PALETTE_91
-	palette_pointer Palette92,  1, 1 ; PALETTE_92
-	palette_pointer Palette93,  1, 1 ; PALETTE_93
-	palette_pointer Palette94,  8, 0 ; PALETTE_94
-	palette_pointer Palette95,  8, 0 ; PALETTE_95
-	palette_pointer Palette96,  8, 0 ; PALETTE_96
-	palette_pointer Palette97,  8, 0 ; PALETTE_97
-	palette_pointer Palette98,  8, 0 ; PALETTE_98
-	palette_pointer Palette99,  8, 0 ; PALETTE_99
-	palette_pointer Palette100, 8, 0 ; PALETTE_100
-	palette_pointer Palette101, 7, 0 ; PALETTE_101
-	palette_pointer Palette102, 7, 0 ; PALETTE_102
-	palette_pointer Palette103, 7, 0 ; PALETTE_103
-	palette_pointer Palette104, 7, 0 ; PALETTE_104
-	palette_pointer Palette105, 7, 0 ; PALETTE_105
-	palette_pointer Palette106, 7, 0 ; PALETTE_106
-	palette_pointer Palette107, 7, 0 ; PALETTE_107
-	palette_pointer Palette108, 0, 1 ; PALETTE_108
-	palette_pointer Palette109, 0, 1 ; PALETTE_109
-	palette_pointer Palette110, 0, 0 ; PALETTE_110
-	palette_pointer Palette111, 8, 1 ; PALETTE_111
-	palette_pointer Palette112, 8, 1 ; PALETTE_112
-	palette_pointer Palette113, 8, 1 ; PALETTE_113
-	palette_pointer Palette114, 4, 2 ; PALETTE_114
-	palette_pointer Palette115, 4, 2 ; PALETTE_115
-	palette_pointer Palette116, 4, 2 ; PALETTE_116
-	palette_pointer Palette117, 1, 0 ; PALETTE_117
-	palette_pointer Palette118, 6, 0 ; PALETTE_118
-	palette_pointer Palette119, 1, 0 ; PALETTE_119
-	palette_pointer Palette120, 1, 0 ; PALETTE_120
-	palette_pointer Palette121, 1, 0 ; PALETTE_121
-	palette_pointer Palette122, 1, 0 ; PALETTE_122
-	palette_pointer Palette123, 1, 0 ; PALETTE_123
-	palette_pointer Palette124, 1, 0 ; PALETTE_124
-	palette_pointer Palette125, 1, 0 ; PALETTE_125
-	palette_pointer Palette126, 1, 0 ; PALETTE_126
-	palette_pointer Palette127, 1, 0 ; PALETTE_127
-	palette_pointer Palette128, 1, 0 ; PALETTE_128
-	palette_pointer Palette129, 1, 0 ; PALETTE_129
-	palette_pointer Palette130, 1, 0 ; PALETTE_130
-	palette_pointer Palette131, 1, 0 ; PALETTE_131
-	palette_pointer Palette132, 1, 0 ; PALETTE_132
-	palette_pointer Palette133, 1, 0 ; PALETTE_133
-	palette_pointer Palette134, 1, 0 ; PALETTE_134
-	palette_pointer Palette135, 1, 0 ; PALETTE_135
-	palette_pointer Palette136, 1, 0 ; PALETTE_136
-	palette_pointer Palette137, 1, 0 ; PALETTE_137
-	palette_pointer Palette138, 1, 0 ; PALETTE_138
-	palette_pointer Palette139, 1, 0 ; PALETTE_139
-	palette_pointer Palette140, 1, 0 ; PALETTE_140
-	palette_pointer Palette141, 1, 0 ; PALETTE_141
-	palette_pointer Palette142, 1, 0 ; PALETTE_142
-	palette_pointer Palette143, 1, 0 ; PALETTE_143
-	palette_pointer Palette144, 1, 0 ; PALETTE_144
-	palette_pointer Palette145, 1, 0 ; PALETTE_145
-	palette_pointer Palette146, 1, 0 ; PALETTE_146
-	palette_pointer Palette147, 1, 0 ; PALETTE_147
-	palette_pointer Palette148, 1, 0 ; PALETTE_148
-	palette_pointer Palette149, 1, 0 ; PALETTE_149
-	palette_pointer Palette150, 1, 0 ; PALETTE_150
-	palette_pointer Palette151, 1, 0 ; PALETTE_151
-	palette_pointer Palette152, 1, 0 ; PALETTE_152
-	palette_pointer Palette153, 1, 0 ; PALETTE_153
-	palette_pointer Palette154, 1, 0 ; PALETTE_154
-	palette_pointer Palette155, 1, 0 ; PALETTE_155
-	palette_pointer Palette156, 1, 0 ; PALETTE_156
-	palette_pointer Palette157, 1, 0 ; PALETTE_157
-	palette_pointer Palette158, 1, 0 ; PALETTE_158
-	palette_pointer Palette159, 1, 0 ; PALETTE_159
-	palette_pointer Palette160, 1, 0 ; PALETTE_160
-
-OverworldMapTilemap:: ; 8191b (20:591b)
-	db $14 ; width
-	db $12 ; height
-	dw NULL
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/overworld_map.bin"
-
-OverworldMapCGBTilemap:: ; 81a22 (20:5a22)
-	db $14 ; width
-	db $12 ; height
-	dw NULL
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/overworld_map_cgb.bin"
-
-MasonLaboratoryTilemap:: ; 81c13 (20:5c13)
-	db $1c ; width
-	db $1e ; height
-	dw MasonLaboratoryPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/mason_laboratory.bin"
-MasonLaboratoryPermissions:
-	INCBIN "data/maps/permissions/mason_laboratory.bin"
-
-MasonLaboratoryCGBTilemap:: ; 81d2e (20:5d2e)
-	db $1c ; width
-	db $1e ; height
-	dw MasonLaboratoryCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/mason_laboratory_cgb.bin"
-MasonLaboratoryCGBPermissions:
-	INCBIN "data/maps/permissions/mason_laboratory_cgb.bin"
-
-ChallengeMachineMapEventTilemap:: ; 81ed1 (20:5ed1)
-	db $04 ; width
-	db $06 ; height
-	dw ChallengeMachineMapEventPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/challenge_machine_map_event.bin"
-ChallengeMachineMapEventPermissions:
-	INCBIN "data/maps/permissions/challenge_machine_map_event.bin"
-
-ChallengeMachineMapEventCGBTilemap:: ; 81ef5 (20:5ef5)
-	db $04 ; width
-	db $06 ; height
-	dw ChallengeMachineMapEventCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/challenge_machine_map_event_cgb.bin"
-ChallengeMachineMapEventCGBPermissions:
-	INCBIN "data/maps/permissions/challenge_machine_map_event_cgb.bin"
-
-DeckMachineRoomTilemap:: ; 81f26 (20:5f26)
-	db $18 ; width
-	db $1e ; height
-	dw DeckMachineRoomPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/deck_machine_room.bin"
-DeckMachineRoomPermissions:
-	INCBIN "data/maps/permissions/deck_machine_room.bin"
-
-DeckMachineRoomCGBTilemap:: ; 81feb (20:5feb)
-	db $18 ; width
-	db $1e ; height
-	dw DeckMachineRoomCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/deck_machine_room_cgb.bin"
-DeckMachineRoomCGBPermissions:
-	INCBIN "data/maps/permissions/deck_machine_room_cgb.bin"
-
-DeckMachineMapEventTilemap:: ; 82143 (20:6143)
-	db $04 ; width
-	db $01 ; height
-	dw DeckMachineMapEventPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/deck_machine_map_event.bin"
-DeckMachineMapEventPermissions:
-	INCBIN "data/maps/permissions/deck_machine_map_event.bin"
-
-DeckMachineMapEventCGBTilemap:: ; 82150 (20:6150)
-	db $04 ; width
-	db $01 ; height
-	dw DeckMachineMapEventCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/deck_machine_map_event_cgb.bin"
-DeckMachineMapEventCGBPermissions:
-	INCBIN "data/maps/permissions/deck_machine_map_event_cgb.bin"
-
-IshiharaTilemap:: ; 82160 (20:6160)
-	db $14 ; width
-	db $18 ; height
-	dw IshiharaPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/ishihara.bin"
-IshiharaPermissions:
-	INCBIN "data/maps/permissions/ishihara.bin"
-
-IshiharaCGBTilemap:: ; 82222 (20:6222)
-	db $14 ; width
-	db $18 ; height
-	dw IshiharaCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/ishihara_cgb.bin"
-IshiharaCGBPermissions:
-	INCBIN "data/maps/permissions/ishihara_cgb.bin"
-
-FightingClubEntranceTilemap:: ; 82336 (20:6336)
-	db $14 ; width
-	db $12 ; height
-	dw FightingClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/fighting_club_entrance.bin"
-FightingClubEntrancePermissions:
-	INCBIN "data/maps/permissions/fighting_club_entrance.bin"
-
-FightingClubEntranceCGBTilemap:: ; 82400 (20:6400)
-	db $14 ; width
-	db $12 ; height
-	dw FightingClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/fighting_club_entrance_cgb.bin"
-FightingClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/fighting_club_entrance_cgb.bin"
-
-RockClubEntranceTilemap:: ; 8251d (20:651d)
-	db $14 ; width
-	db $12 ; height
-	dw RockClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/rock_club_entrance.bin"
-RockClubEntrancePermissions:
-	INCBIN "data/maps/permissions/rock_club_entrance.bin"
-
-RockClubEntranceCGBTilemap:: ; 825e7 (20:65e7)
-	db $14 ; width
-	db $12 ; height
-	dw RockClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/rock_club_entrance_cgb.bin"
-RockClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/rock_club_entrance_cgb.bin"
-
-WaterClubEntranceTilemap:: ; 82704 (20:6704)
-	db $14 ; width
-	db $12 ; height
-	dw WaterClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/water_club_entrance.bin"
-WaterClubEntrancePermissions:
-	INCBIN "data/maps/permissions/water_club_entrance.bin"
-
-WaterClubEntranceCGBTilemap:: ; 827ce (20:67ce)
-	db $14 ; width
-	db $12 ; height
-	dw WaterClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/water_club_entrance_cgb.bin"
-WaterClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/water_club_entrance_cgb.bin"
-
-LightningClubEntranceTilemap:: ; 828eb (20:68eb)
-	db $14 ; width
-	db $12 ; height
-	dw LightningClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/lightning_club_entrance.bin"
-LightningClubEntrancePermissions:
-	INCBIN "data/maps/permissions/lightning_club_entrance.bin"
-
-LightningClubEntranceCGBTilemap:: ; 829b5 (20:69b5)
-	db $14 ; width
-	db $12 ; height
-	dw LightningClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/lightning_club_entrance_cgb.bin"
-LightningClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/lightning_club_entrance_cgb.bin"
-
-GrassClubEntranceTilemap:: ; 82ad2 (20:6ad2)
-	db $14 ; width
-	db $12 ; height
-	dw GrassClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/grass_club_entrance.bin"
-GrassClubEntrancePermissions:
-	INCBIN "data/maps/permissions/grass_club_entrance.bin"
-
-GrassClubEntranceCGBTilemap:: ; 82b9c (20:6b9c)
-	db $14 ; width
-	db $12 ; height
-	dw GrassClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/grass_club_entrance_cgb.bin"
-GrassClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/grass_club_entrance_cgb.bin"
-
-PsychicClubEntranceTilemap:: ; 82cb9 (20:6cb9)
-	db $14 ; width
-	db $12 ; height
-	dw PsychicClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/psychic_club_entrance.bin"
-PsychicClubEntrancePermissions:
-	INCBIN "data/maps/permissions/psychic_club_entrance.bin"
-
-PsychicClubEntranceCGBTilemap:: ; 82d83 (20:6d83)
-	db $14 ; width
-	db $12 ; height
-	dw PsychicClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/psychic_club_entrance_cgb.bin"
-PsychicClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/psychic_club_entrance_cgb.bin"
-
-ScienceClubEntranceTilemap:: ; 82ea0 (20:6ea0)
-	db $14 ; width
-	db $12 ; height
-	dw ScienceClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/science_club_entrance.bin"
-ScienceClubEntrancePermissions:
-	INCBIN "data/maps/permissions/science_club_entrance.bin"
-
-ScienceClubEntranceCGBTilemap:: ; 82f6a (20:6f6a)
-	db $14 ; width
-	db $12 ; height
-	dw ScienceClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/science_club_entrance_cgb.bin"
-ScienceClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/science_club_entrance_cgb.bin"
-
-FireClubEntranceTilemap:: ; 83087 (20:7087)
-	db $14 ; width
-	db $12 ; height
-	dw FireClubEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/fire_club_entrance.bin"
-FireClubEntrancePermissions:
-	INCBIN "data/maps/permissions/fire_club_entrance.bin"
-
-FireClubEntranceCGBTilemap:: ; 83151 (20:7151)
-	db $14 ; width
-	db $12 ; height
-	dw FireClubEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/fire_club_entrance_cgb.bin"
-FireClubEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/fire_club_entrance_cgb.bin"
-
-ChallengeHallEntranceTilemap:: ; 8326e (20:726e)
-	db $14 ; width
-	db $12 ; height
-	dw ChallengeHallEntrancePermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/challenge_hall_entrance.bin"
-ChallengeHallEntrancePermissions:
-	INCBIN "data/maps/permissions/challenge_hall_entrance.bin"
-
-ChallengeHallEntranceCGBTilemap:: ; 83321 (20:7321)
-	db $14 ; width
-	db $12 ; height
-	dw ChallengeHallEntranceCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/challenge_hall_entrance_cgb.bin"
-ChallengeHallEntranceCGBPermissions:
-	INCBIN "data/maps/permissions/challenge_hall_entrance_cgb.bin"
-
-ClubLobbyTilemap:: ; 83424 (20:7424)
-	db $1c ; width
-	db $1a ; height
-	dw ClubLobbyPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/club_lobby.bin"
-ClubLobbyPermissions:
-	INCBIN "data/maps/permissions/club_lobby.bin"
-
-ClubLobbyCGBTilemap:: ; 83545 (20:7545)
-	db $1c ; width
-	db $1a ; height
-	dw ClubLobbyCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/club_lobby_cgb.bin"
-ClubLobbyCGBPermissions:
-	INCBIN "data/maps/permissions/club_lobby_cgb.bin"
-
-FightingClubTilemap:: ; 836db (20:76db)
-	db $18 ; width
-	db $12 ; height
-	dw FightingClubPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/fighting_club.bin"
-FightingClubPermissions:
-	INCBIN "data/maps/permissions/fighting_club.bin"
-
-FightingClubCGBTilemap:: ; 8378c (20:778c)
-	db $18 ; width
-	db $12 ; height
-	dw FightingClubCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/fighting_club_cgb.bin"
-FightingClubCGBPermissions:
-	INCBIN "data/maps/permissions/fighting_club_cgb.bin"
-
-RockClubTilemap:: ; 8388d (20:788d)
-	db $1c ; width
-	db $1e ; height
-	dw RockClubPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/rock_club.bin"
-RockClubPermissions:
-	INCBIN "data/maps/permissions/rock_club.bin"
-
-RockClubCGBTilemap:: ; 839d6 (20:79d6)
-	db $1c ; width
-	db $1e ; height
-	dw RockClubCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/rock_club_cgb.bin"
-RockClubCGBPermissions:
-	INCBIN "data/maps/permissions/rock_club_cgb.bin"
-
-PokemonDomeDoorMapEventTilemap:: ; 83bf1 (20:7bf1)
-	db $04 ; width
-	db $03 ; height
-	dw PokemonDomeDoorMapEventPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/pokemon_dome_door_map_event.bin"
-PokemonDomeDoorMapEventPermissions:
-	INCBIN "data/maps/permissions/pokemon_dome_door_map_event.bin"
-
-PokemonDomeDoorMapEventCGBTilemap:: ; 83c03 (20:7c03)
-	db $04 ; width
-	db $03 ; height
-	dw PokemonDomeDoorMapEventCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/pokemon_dome_door_map_event_cgb.bin"
-PokemonDomeDoorMapEventCGBPermissions:
-	INCBIN "data/maps/permissions/pokemon_dome_door_map_event_cgb.bin"
-
-HallOfHonorDoorMapEventTilemap:: ; 83c1a (20:7c1a)
-	db $04 ; width
-	db $03 ; height
-	dw HallOfHonorDoorMapEventPermissions
-	db FALSE ; cgb mode
-	INCBIN "data/maps/tiles/hall_of_honor_door_map_event.bin"
-HallOfHonorDoorMapEventPermissions:
-	INCBIN "data/maps/permissions/hall_of_honor_door_map_event.bin"
-
-HallOfHonorDoorMapEventCGBTilemap:: ; 83c26 (20:7c26)
-	db $04 ; width
-	db $03 ; height
-	dw HallOfHonorDoorMapEventCGBPermissions
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/hall_of_honor_door_map_event_cgb.bin"
-HallOfHonorDoorMapEventCGBPermissions:
-	INCBIN "data/maps/permissions/hall_of_honor_door_map_event_cgb.bin"
-
-GrassMedalTilemap:: ; 83c36 (20:7c36)
-	db $03 ; width
-	db $03 ; height
-	dw NULL
-	db TRUE ; cgb mode
-	INCBIN "data/maps/tiles/grass_medal.bin"
-
-AnimData1:: ; 83c4c (20:7c4c)
-	frame_table AnimFrameTable0
-	frame_data 3, 16, 0, 0
-	frame_data 4, 16, 0, 0
-	frame_data 0, 0, 0, 0
-
-Palette110:: ; 83c5b (20:7c5b)
-	db $00, $00
diff --git a/src/engine/copy_card_name.asm b/src/engine/copy_card_name.asm
new file mode 100644
index 0000000..feb33ca
--- /dev/null
+++ b/src/engine/copy_card_name.asm
@@ -0,0 +1,152 @@
+; copy the name and level of the card at wLoadedCard1 to wDefaultText
+; a = length in number of tiles (the resulting string will be padded with spaces to match it)
+_CopyCardNameAndLevel:
+	push bc
+	push de
+	ld [wCardNameLength], a
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, wDefaultText
+	push de
+	call CopyText ; copy card name to wDefaultText
+	pop hl
+	ld a, [hli]
+	cp TX_HALFWIDTH
+	jp z, _CopyCardNameAndLevel_HalfwidthText
+
+; the name doesn't start with TX_HALFWIDTH
+; this doesn't appear to be ever the case (unless caller manipulates wLoadedCard1Name)
+	ld a, [wCardNameLength]
+	ld c, a
+	ld a, [wLoadedCard1Type]
+	cp TYPE_ENERGY
+	jr nc, .level_done ; jump if energy or trainer
+	ld a, [wLoadedCard1Level]
+	or a
+	jr z, .level_done
+	inc c
+	inc c
+	ld a, [wLoadedCard1Level]
+	cp 10
+	jr c, .level_done
+	inc c ; second digit
+.level_done
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, wDefaultText
+	push de
+	call CopyText
+	pop hl
+	push de
+	ld e, c
+	call GetTextLengthInTiles
+	add e
+	ld c, a
+	pop hl
+	push hl
+.fill_loop
+	ld a, $70
+	ld [hli], a
+	dec c
+	jr nz, .fill_loop
+	ld [hl], TX_END
+	pop hl
+	ld a, [wLoadedCard1Type]
+	cp TYPE_ENERGY
+	jr nc, .done
+	ld a, [wLoadedCard1Level]
+	or a
+	jr z, .done
+	ld a, TX_SYMBOL
+	ld [hli], a
+	ld [hl], SYM_Lv
+	inc hl
+	ld a, [wLoadedCard1Level]
+	cp 10
+	jr c, .one_digit
+	ld [hl], TX_SYMBOL
+	inc hl
+	ld b, SYM_0 - 1
+.first_digit_loop
+	inc b
+	sub 10
+	jr nc, .first_digit_loop
+	add 10
+	ld [hl], b ; first digit
+	inc hl
+.one_digit
+	ld [hl], TX_SYMBOL
+	inc hl
+	add SYM_0
+	ld [hl], a ; last (or only) digit
+	inc hl
+.done
+	pop de
+	pop bc
+	ret
+
+; the name starts with TX_HALFWIDTH
+_CopyCardNameAndLevel_HalfwidthText:
+	ld a, [wCardNameLength]
+	inc a
+	add a
+	ld b, a
+	ld hl, wDefaultText
+.find_end_text_loop
+	dec b
+	ld a, [hli]
+	or a ; TX_END
+	jr nz, .find_end_text_loop
+	dec hl
+	ld a, [wLoadedCard1Type]
+	cp TYPE_ENERGY
+	jr nc, .level_done
+	ld a, [wLoadedCard1Level]
+	or a
+	jr z, .level_done
+	ld c, a
+	ld a, " "
+	ld [hli], a
+	dec b
+	ld a, "L"
+	ld [hli], a
+	dec b
+	ld a, "v"
+	ld [hli], a
+	dec b
+	ld a, c
+	cp 10
+	jr c, .got_level
+	push bc
+	ld b, "0" - 1
+.first_digit_loop
+	inc b
+	sub 10
+	jr nc, .first_digit_loop
+	add 10
+	ld [hl], b ; first digit
+	inc hl
+	pop bc
+	ld c, a
+	dec b
+.got_level
+	ld a, c
+	add "0"
+	ld [hli], a ; last (or only) digit
+	dec b
+.level_done
+	push hl
+	ld a, " "
+.fill_spaces_loop
+	ld [hli], a
+	dec b
+	jr nz, .fill_spaces_loop
+	ld [hl], TX_END
+	pop hl
+	pop de
+	pop bc
+	ret
diff --git a/src/engine/credits.asm b/src/engine/credits.asm
new file mode 100644
index 0000000..8ead323
--- /dev/null
+++ b/src/engine/credits.asm
@@ -0,0 +1,189 @@
+PlayCreditsSequence:
+	ld a, MUSIC_STOP
+	call PlaySong
+	call Func_1d705
+	call AddAllMastersToMastersBeatenList
+	xor a
+	ld [wOWMapEvents + 1], a
+	ld a, MUSIC_CREDITS
+	call PlaySong
+	farcall FlashWhiteScreen
+	call SetCreditsSequenceCmdPtr
+.asm_1d6c8
+	call DoFrameIfLCDEnabled
+	call Func_1d765
+	call ExecuteCreditsSequenceCmd
+	ld a, [wSequenceDelay]
+	cp $ff
+	jr nz, .asm_1d6c8
+	call WaitForSongToFinish
+	ld a, $8
+	farcall Func_12863
+	ld a, MUSIC_STOP
+	call PlaySong
+	farcall Func_10ab4
+	call Func_3ca4
+	call SetWindowOff
+	call Func_1d758
+	call EnableLCD
+	call DoFrameIfLCDEnabled
+	call DisableLCD
+	ld hl, wLCDC
+	set 1, [hl]
+	call ResetDoFrameFunction
+	ret
+
+Func_1d705:
+	call DisableLCD
+	farcall Func_10a9b
+	call Func_3ca0
+	farcall Func_10000
+	call Func_1d7ee
+	ld hl, Func_3e31
+	call SetDoFrameFunction
+	call .Func_1d720 ; can be fallthrough
+	ret
+
+.Func_1d720
+	ld a, $91
+	ld [wd647], a
+	ld [wd649], a
+	ld a, $01
+	ld [wd648], a
+	ld [wd64a], a
+	call Func_1d765
+	call SetWindowOn
+	call .Func_1d73a ; can be fallthrough
+	ret
+
+.Func_1d73a
+	push hl
+	di
+	xor a
+	ld [wd657], a
+	ld hl, wLCDCFunctionTrampoline + 1
+	ld [hl], LOW(Func_3e44)
+	inc hl
+	ld [hl], HIGH(Func_3e44)
+	ei
+
+	ld hl, rSTAT
+	set STAT_LYC, [hl]
+	xor a
+	ldh [rLYC], a
+	ld hl, rIE
+	set INT_LCD_STAT, [hl]
+	pop hl
+	ret
+
+Func_1d758:
+	push hl
+	ld hl, rSTAT
+	res STAT_LYC, [hl]
+	ld hl, rIE
+	res INT_LCD_STAT, [hl]
+	pop hl
+	ret
+
+Func_1d765:
+	push hl
+	push bc
+	push de
+	xor a
+	ldh [hWY], a
+
+	ld hl, wd659
+	ld de, wd65f
+	ld a, [wd648]
+	or a
+	jr nz, .asm_1d785
+	ld a, $a7
+	ldh [hWX], a
+	ld [hli], a
+	push hl
+	ld hl, wLCDC
+	set 1, [hl]
+	pop hl
+	jr .asm_1d7e2
+
+.asm_1d785
+	ld a, [wd647]
+	or a
+	jr z, .asm_1d79e
+	dec a
+	ld [de], a
+	inc de
+	ld a, $a7
+	ldh [hWX], a
+	ld [hli], a
+	push hl
+	ld hl, wLCDC
+	set 1, [hl]
+	pop hl
+	ld a, $07
+	jr .asm_1d7a9
+
+.asm_1d79e
+	ld a, $07
+	ldh [hWX], a
+	push hl
+	ld hl, wLCDC
+	res 1, [hl]
+	pop hl
+.asm_1d7a9
+	ld [hli], a
+	ld a, [wd647]
+	dec a
+	ld c, a
+	ld a, [wd648]
+	add c
+	ld c, a
+	ld a, [wd649]
+	dec a
+	cp c
+	jr c, .asm_1d7d4
+	jr z, .asm_1d7d4
+	ld a, c
+	ld [de], a
+	inc de
+	push af
+	ld a, $a7
+	ld [hli], a
+	pop bc
+	ld a, [wd64a]
+	or a
+	jr z, .asm_1d7e2
+	ld a, [wd649]
+	dec a
+	ld [de], a
+	inc de
+	ld a, $07
+	ld [hli], a
+
+.asm_1d7d4
+	ld a, [wd649]
+	dec a
+	ld c, a
+	ld a, [wd64a]
+	add c
+	ld [de], a
+	inc de
+	ld a, $a7
+	ld [hli], a
+.asm_1d7e2
+	ld a, $ff
+	ld [de], a
+	ld a, $01
+	ld [wd665], a
+	pop de
+	pop bc
+	pop hl
+	ret
+
+Func_1d7ee:
+	xor a
+	lb de, 0, 32
+	lb bc, 20, 18
+	lb hl, 0, 0
+	call FillRectangle
+	ret
diff --git a/src/engine/ai/attacks.asm b/src/engine/duel/ai/attacks.asm
index 69ae2e1..69ae2e1 100644
--- a/src/engine/ai/attacks.asm
+++ b/src/engine/duel/ai/attacks.asm
diff --git a/src/engine/ai/boss_deck_set_up.asm b/src/engine/duel/ai/boss_deck_set_up.asm
index ebcd2ea..ebcd2ea 100644
--- a/src/engine/ai/boss_deck_set_up.asm
+++ b/src/engine/duel/ai/boss_deck_set_up.asm
diff --git a/src/engine/ai/common.asm b/src/engine/duel/ai/common.asm
index d4f1da4..d4f1da4 100644
--- a/src/engine/ai/common.asm
+++ b/src/engine/duel/ai/common.asm
diff --git a/src/engine/ai/core.asm b/src/engine/duel/ai/core.asm
index f182375..9604322 100644
--- a/src/engine/ai/core.asm
+++ b/src/engine/duel/ai/core.asm
@@ -1,4 +1,4 @@
-INCLUDE "engine/ai/decks/unreferenced.asm"
+INCLUDE "engine/duel/ai/decks/unreferenced.asm"
 
 ; returns carry if damage dealt from any of
 ; a card's attacks KOs defending Pokémon
@@ -707,13 +707,13 @@ LookForCardIDInHand: ; 143bf (5:43bf)
 	or a
 	ret
 
-INCLUDE "engine/ai/damage_calculation.asm"
+INCLUDE "engine/duel/ai/damage_calculation.asm"
 
 AIProcessHandTrainerCards: ; 14663 (5:4663)
 	farcall _AIProcessHandTrainerCards
 	ret
 
-INCLUDE "engine/ai/deck_ai.asm"
+INCLUDE "engine/duel/ai/deck_ai.asm"
 
 ; return carry if card ID loaded in a is found in hand
 ; and outputs in a the deck index of that card
@@ -815,7 +815,7 @@ AIAttachEnergyInHandToCardInBench: ; 1562b (5:562b)
 	ld b, PLAY_AREA_BENCH_1
 	jr AIAttachEnergyInHandToCardInPlayArea.attach
 
-INCLUDE "engine/ai/init.asm"
+INCLUDE "engine/duel/ai/init.asm"
 
 ; load selected attack from Pokémon in hTempPlayAreaLocation_ff9d,
 ; gets an energy card to discard and subsequently
@@ -1306,7 +1306,7 @@ Func_15886: ; 15886 (5:5886)
 	inc hl
 	jr .loop_energy_cards
 
-INCLUDE "engine/ai/retreat.asm"
+INCLUDE "engine/duel/ai/retreat.asm"
 
 ; Copy cards from wDuelTempList in hl to wHandTempList in de
 CopyHandCardList: ; 15ea6 (5:5ea6)
@@ -1317,7 +1317,7 @@ CopyHandCardList: ; 15ea6 (5:5ea6)
 	inc de
 	jr CopyHandCardList
 
-INCLUDE "engine/ai/hand_pokemon.asm"
+INCLUDE "engine/duel/ai/hand_pokemon.asm"
 
 ; check if player's active Pokémon is Mr Mime
 ; if it isn't, set carry
@@ -1804,11 +1804,11 @@ CheckForEvolutionInDeck: ; 16451 (5:6451)
 	scf
 	ret
 
-INCLUDE "engine/ai/energy.asm"
+INCLUDE "engine/duel/ai/energy.asm"
 
-INCLUDE "engine/ai/attacks.asm"
+INCLUDE "engine/duel/ai/attacks.asm"
 
-INCLUDE "engine/ai/special_attacks.asm"
+INCLUDE "engine/duel/ai/special_attacks.asm"
 
 ; checks in other Play Area for non-basic cards.
 ; afterwards, that card is checked for damage,
@@ -2285,7 +2285,7 @@ CheckCardEvolutionInHandOrDeck: ; 17274 (5:7274)
 	scf
 	ret
 
-INCLUDE "engine/ai/boss_deck_set_up.asm"
+INCLUDE "engine/duel/ai/boss_deck_set_up.asm"
 
 ; returns carry if Pokemon at PLAY_AREA* in a
 ; can damage defending Pokémon with any of its attacks
diff --git a/src/engine/ai/damage_calculation.asm b/src/engine/duel/ai/damage_calculation.asm
index 97c24b6..97c24b6 100644
--- a/src/engine/ai/damage_calculation.asm
+++ b/src/engine/duel/ai/damage_calculation.asm
diff --git a/src/engine/ai/deck_ai.asm b/src/engine/duel/ai/deck_ai.asm
index c330418..b46de01 100644
--- a/src/engine/ai/deck_ai.asm
+++ b/src/engine/duel/ai/deck_ai.asm
@@ -61,22 +61,22 @@ ENDM
 ; wAICardListRetreatBonus  : scores given to certain cards for retreat;
 ; wAICardListEnergyBonus   : max number of energy cards and card scores.
 
-INCLUDE "engine/ai/decks/general.asm"
-INCLUDE "engine/ai/decks/sams_practice.asm"
-INCLUDE "engine/ai/decks/general_no_retreat.asm"
-INCLUDE "engine/ai/decks/legendary_moltres.asm"
-INCLUDE "engine/ai/decks/legendary_zapdos.asm"
-INCLUDE "engine/ai/decks/legendary_articuno.asm"
-INCLUDE "engine/ai/decks/legendary_dragonite.asm"
-INCLUDE "engine/ai/decks/first_strike.asm"
-INCLUDE "engine/ai/decks/rock_crusher.asm"
-INCLUDE "engine/ai/decks/go_go_rain_dance.asm"
-INCLUDE "engine/ai/decks/zapping_selfdestruct.asm"
-INCLUDE "engine/ai/decks/flower_power.asm"
-INCLUDE "engine/ai/decks/strange_psyshock.asm"
-INCLUDE "engine/ai/decks/wonders_of_science.asm"
-INCLUDE "engine/ai/decks/fire_charge.asm"
-INCLUDE "engine/ai/decks/im_ronald.asm"
-INCLUDE "engine/ai/decks/powerful_ronald.asm"
-INCLUDE "engine/ai/decks/invincible_ronald.asm"
-INCLUDE "engine/ai/decks/legendary_ronald.asm"
+INCLUDE "engine/duel/ai/decks/general.asm"
+INCLUDE "engine/duel/ai/decks/sams_practice.asm"
+INCLUDE "engine/duel/ai/decks/general_no_retreat.asm"
+INCLUDE "engine/duel/ai/decks/legendary_moltres.asm"
+INCLUDE "engine/duel/ai/decks/legendary_zapdos.asm"
+INCLUDE "engine/duel/ai/decks/legendary_articuno.asm"
+INCLUDE "engine/duel/ai/decks/legendary_dragonite.asm"
+INCLUDE "engine/duel/ai/decks/first_strike.asm"
+INCLUDE "engine/duel/ai/decks/rock_crusher.asm"
+INCLUDE "engine/duel/ai/decks/go_go_rain_dance.asm"
+INCLUDE "engine/duel/ai/decks/zapping_selfdestruct.asm"
+INCLUDE "engine/duel/ai/decks/flower_power.asm"
+INCLUDE "engine/duel/ai/decks/strange_psyshock.asm"
+INCLUDE "engine/duel/ai/decks/wonders_of_science.asm"
+INCLUDE "engine/duel/ai/decks/fire_charge.asm"
+INCLUDE "engine/duel/ai/decks/im_ronald.asm"
+INCLUDE "engine/duel/ai/decks/powerful_ronald.asm"
+INCLUDE "engine/duel/ai/decks/invincible_ronald.asm"
+INCLUDE "engine/duel/ai/decks/legendary_ronald.asm"
diff --git a/src/engine/ai/decks/fire_charge.asm b/src/engine/duel/ai/decks/fire_charge.asm
index f5b347b..f5b347b 100644
--- a/src/engine/ai/decks/fire_charge.asm
+++ b/src/engine/duel/ai/decks/fire_charge.asm
diff --git a/src/engine/ai/decks/first_strike.asm b/src/engine/duel/ai/decks/first_strike.asm
index 2e636e1..2e636e1 100644
--- a/src/engine/ai/decks/first_strike.asm
+++ b/src/engine/duel/ai/decks/first_strike.asm
diff --git a/src/engine/ai/decks/flower_power.asm b/src/engine/duel/ai/decks/flower_power.asm
index 4d423a3..4d423a3 100644
--- a/src/engine/ai/decks/flower_power.asm
+++ b/src/engine/duel/ai/decks/flower_power.asm
diff --git a/src/engine/ai/decks/general.asm b/src/engine/duel/ai/decks/general.asm
index 039e101..039e101 100644
--- a/src/engine/ai/decks/general.asm
+++ b/src/engine/duel/ai/decks/general.asm
diff --git a/src/engine/ai/decks/general_no_retreat.asm b/src/engine/duel/ai/decks/general_no_retreat.asm
index 20d84e3..20d84e3 100644
--- a/src/engine/ai/decks/general_no_retreat.asm
+++ b/src/engine/duel/ai/decks/general_no_retreat.asm
diff --git a/src/engine/ai/decks/go_go_rain_dance.asm b/src/engine/duel/ai/decks/go_go_rain_dance.asm
index 23547e2..23547e2 100644
--- a/src/engine/ai/decks/go_go_rain_dance.asm
+++ b/src/engine/duel/ai/decks/go_go_rain_dance.asm
diff --git a/src/engine/ai/decks/im_ronald.asm b/src/engine/duel/ai/decks/im_ronald.asm
index b002d83..b002d83 100644
--- a/src/engine/ai/decks/im_ronald.asm
+++ b/src/engine/duel/ai/decks/im_ronald.asm
diff --git a/src/engine/ai/decks/invincible_ronald.asm b/src/engine/duel/ai/decks/invincible_ronald.asm
index 463560b..463560b 100644
--- a/src/engine/ai/decks/invincible_ronald.asm
+++ b/src/engine/duel/ai/decks/invincible_ronald.asm
diff --git a/src/engine/ai/decks/legendary_articuno.asm b/src/engine/duel/ai/decks/legendary_articuno.asm
index 6409330..6409330 100644
--- a/src/engine/ai/decks/legendary_articuno.asm
+++ b/src/engine/duel/ai/decks/legendary_articuno.asm
diff --git a/src/engine/ai/decks/legendary_dragonite.asm b/src/engine/duel/ai/decks/legendary_dragonite.asm
index 597f72c..597f72c 100644
--- a/src/engine/ai/decks/legendary_dragonite.asm
+++ b/src/engine/duel/ai/decks/legendary_dragonite.asm
diff --git a/src/engine/ai/decks/legendary_moltres.asm b/src/engine/duel/ai/decks/legendary_moltres.asm
index c2a3882..c2a3882 100644
--- a/src/engine/ai/decks/legendary_moltres.asm
+++ b/src/engine/duel/ai/decks/legendary_moltres.asm
diff --git a/src/engine/ai/decks/legendary_ronald.asm b/src/engine/duel/ai/decks/legendary_ronald.asm
index 3356838..3356838 100644
--- a/src/engine/ai/decks/legendary_ronald.asm
+++ b/src/engine/duel/ai/decks/legendary_ronald.asm
diff --git a/src/engine/ai/decks/legendary_zapdos.asm b/src/engine/duel/ai/decks/legendary_zapdos.asm
index cc99f0c..cc99f0c 100644
--- a/src/engine/ai/decks/legendary_zapdos.asm
+++ b/src/engine/duel/ai/decks/legendary_zapdos.asm
diff --git a/src/engine/ai/decks/powerful_ronald.asm b/src/engine/duel/ai/decks/powerful_ronald.asm
index 096fbea..096fbea 100644
--- a/src/engine/ai/decks/powerful_ronald.asm
+++ b/src/engine/duel/ai/decks/powerful_ronald.asm
diff --git a/src/engine/ai/decks/rock_crusher.asm b/src/engine/duel/ai/decks/rock_crusher.asm
index 41a50fa..41a50fa 100644
--- a/src/engine/ai/decks/rock_crusher.asm
+++ b/src/engine/duel/ai/decks/rock_crusher.asm
diff --git a/src/engine/ai/decks/sams_practice.asm b/src/engine/duel/ai/decks/sams_practice.asm
index dddce61..dddce61 100644
--- a/src/engine/ai/decks/sams_practice.asm
+++ b/src/engine/duel/ai/decks/sams_practice.asm
diff --git a/src/engine/ai/decks/strange_psyshock.asm b/src/engine/duel/ai/decks/strange_psyshock.asm
index ef378b0..ef378b0 100644
--- a/src/engine/ai/decks/strange_psyshock.asm
+++ b/src/engine/duel/ai/decks/strange_psyshock.asm
diff --git a/src/engine/ai/decks/unreferenced.asm b/src/engine/duel/ai/decks/unreferenced.asm
index 8722a27..8722a27 100644
--- a/src/engine/ai/decks/unreferenced.asm
+++ b/src/engine/duel/ai/decks/unreferenced.asm
diff --git a/src/engine/ai/decks/wonders_of_science.asm b/src/engine/duel/ai/decks/wonders_of_science.asm
index 706a7e6..706a7e6 100644
--- a/src/engine/ai/decks/wonders_of_science.asm
+++ b/src/engine/duel/ai/decks/wonders_of_science.asm
diff --git a/src/engine/ai/decks/zapping_selfdestruct.asm b/src/engine/duel/ai/decks/zapping_selfdestruct.asm
index da5e7c6..da5e7c6 100644
--- a/src/engine/ai/decks/zapping_selfdestruct.asm
+++ b/src/engine/duel/ai/decks/zapping_selfdestruct.asm
diff --git a/src/engine/ai/energy.asm b/src/engine/duel/ai/energy.asm
index ce8c037..ce8c037 100644
--- a/src/engine/ai/energy.asm
+++ b/src/engine/duel/ai/energy.asm
diff --git a/src/engine/ai/hand_pokemon.asm b/src/engine/duel/ai/hand_pokemon.asm
index 27a4176..27a4176 100644
--- a/src/engine/ai/hand_pokemon.asm
+++ b/src/engine/duel/ai/hand_pokemon.asm
diff --git a/src/engine/ai/init.asm b/src/engine/duel/ai/init.asm
index 33132cf..33132cf 100644
--- a/src/engine/ai/init.asm
+++ b/src/engine/duel/ai/init.asm
diff --git a/src/engine/ai/pkmn_powers.asm b/src/engine/duel/ai/pkmn_powers.asm
index 8ae629a..8ae629a 100644
--- a/src/engine/ai/pkmn_powers.asm
+++ b/src/engine/duel/ai/pkmn_powers.asm
diff --git a/src/engine/ai/retreat.asm b/src/engine/duel/ai/retreat.asm
index 768a48b..768a48b 100644
--- a/src/engine/ai/retreat.asm
+++ b/src/engine/duel/ai/retreat.asm
diff --git a/src/engine/ai/special_attacks.asm b/src/engine/duel/ai/special_attacks.asm
index 770324e..770324e 100644
--- a/src/engine/ai/special_attacks.asm
+++ b/src/engine/duel/ai/special_attacks.asm
diff --git a/src/engine/ai/trainer_cards.asm b/src/engine/duel/ai/trainer_cards.asm
index 4bee001..4bee001 100644
--- a/src/engine/ai/trainer_cards.asm
+++ b/src/engine/duel/ai/trainer_cards.asm
diff --git a/src/engine/duel/animations/commands.asm b/src/engine/duel/animations/commands.asm
new file mode 100644
index 0000000..46b1ea1
--- /dev/null
+++ b/src/engine/duel/animations/commands.asm
@@ -0,0 +1,354 @@
+; reads the animation commands from PointerTable_AttackAnimation
+; of attack in wLoadedAttackAnimation and plays them
+PlayAttackAnimationCommands:
+	ld a, [wLoadedAttackAnimation]
+	or a
+	ret z
+
+	ld l, a
+	ld h, 0
+	add hl, hl
+	ld de, PointerTable_AttackAnimation
+	add hl, de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+
+	push de
+	ld hl, wce7e
+	ld a, [hl]
+	or a
+	jr nz, .read_command
+	ld [hl], $01
+	call Func_3b21
+	pop de
+
+	push de
+	ld a, DUEL_ANIM_SCREEN_MAIN_SCENE
+	ld [wDuelAnimationScreen], a
+	ld a, $01
+	ld [wd4b3], a
+	xor a
+	ld [wDuelAnimLocationParam], a
+	ld a, [de]
+	cp $04
+	jr z, .read_command
+	ld a, DUEL_ANIM_150
+	call PlayDuelAnimation
+.read_command
+	pop de
+	; fallthrough
+
+PlayAttackAnimationCommands_NextCommand:
+	ld a, [de]
+	inc de
+	ld hl, AnimationCommandPointerTable
+	jp JumpToFunctionInTable
+
+AnimationCommand_AnimEnd:
+	ret
+
+AnimationCommand_AnimPlayer:
+	ldh a, [hWhoseTurn]
+	ld [wDuelAnimDuelistSide], a
+	ld a, [wDuelType]
+	cp $00
+	jr nz, AnimationCommand_AnimNormal
+	ld a, PLAYER_TURN
+	ld [wDuelAnimDuelistSide], a
+	jr AnimationCommand_AnimNormal
+
+AnimationCommand_AnimOpponent:
+	call SwapTurn
+	ldh a, [hWhoseTurn]
+	ld [wDuelAnimDuelistSide], a
+	call SwapTurn
+	ld a, [wDuelType]
+	cp $00
+	jr nz, AnimationCommand_AnimNormal
+	ld a, OPPONENT_TURN
+	ld [wDuelAnimDuelistSide], a
+	jr AnimationCommand_AnimNormal
+
+AnimationCommand_AnimUnknown2:
+	ld a, [wce82]
+	and $7f
+	ld [wDuelAnimLocationParam], a
+	jr AnimationCommand_AnimNormal
+
+AnimationCommand_AnimEnd2:
+	ret
+
+AnimationCommand_AnimNormal:
+	ld a, [de]
+	inc de
+	cp DUEL_ANIM_SHOW_DAMAGE
+	jr z, .show_damage
+	cp DUEL_ANIM_SHAKE1
+	jr z, .shake_1
+	cp DUEL_ANIM_SHAKE2
+	jr z, .shake_2
+	cp DUEL_ANIM_SHAKE3
+	jr z, .shake_3
+
+.play_anim
+	call PlayDuelAnimation
+	jr PlayAttackAnimationCommands_NextCommand
+
+.show_damage
+	ld a, DUEL_ANIM_PRINT_DAMAGE
+	call PlayDuelAnimation
+	ld a, [wce81]
+	ld [wd4b3], a
+
+	push de
+	ld hl, wce7f
+	ld de, wDuelAnimDamage
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hli]
+	ld [de], a
+	pop de
+
+	ld a, $8c
+	call PlayDuelAnimation
+	ld a, [wDuelDisplayedScreen]
+	cp DUEL_MAIN_SCENE
+	jr nz, .skip_update_hud
+	ld a, DUEL_ANIM_UPDATE_HUD
+	call PlayDuelAnimation
+.skip_update_hud
+	jp PlayAttackAnimationCommands_NextCommand
+
+; screen shake happens differently
+; depending on whose turn it is
+.shake_1
+	ld c, DUEL_ANIM_SMALL_SHAKE_X
+	ld b, DUEL_ANIM_SMALL_SHAKE_Y
+	jr .check_duelist
+
+.shake_2
+	ld c, DUEL_ANIM_BIG_SHAKE_X
+	ld b, DUEL_ANIM_BIG_SHAKE_Y
+	jr .check_duelist
+
+.shake_3
+	ld c, DUEL_ANIM_SMALL_SHAKE_Y
+	ld b, DUEL_ANIM_SMALL_SHAKE_X
+
+.check_duelist
+	ldh a, [hWhoseTurn]
+	cp PLAYER_TURN
+	ld a, c
+	jr z, .play_anim
+	ld a, [wDuelType]
+	cp $00
+	ld a, c
+	jr z, .play_anim
+	ld a, b
+	jr .play_anim
+
+AnimationCommand_AnimUnknown:
+	ld a, [de]
+	inc de
+	ld [wd4b3], a
+	ld a, [wce82]
+	ld [wDuelAnimLocationParam], a
+	call SetDuelAnimationScreen
+	ld a, DUEL_ANIM_150
+	call PlayDuelAnimation
+	jp PlayAttackAnimationCommands_NextCommand
+
+AnimationCommandPointerTable:
+	dw AnimationCommand_AnimEnd      ; anim_end
+	dw AnimationCommand_AnimNormal   ; anim_normal
+	dw AnimationCommand_AnimPlayer   ; anim_player
+	dw AnimationCommand_AnimOpponent ; anim_opponent
+	dw AnimationCommand_AnimUnknown  ; anim_unknown
+	dw AnimationCommand_AnimUnknown2 ; anim_unknown2
+	dw AnimationCommand_AnimEnd2     ; anim_end2 (unused)
+
+; sets wDuelAnimationScreen according to wd4b3
+; if wd4b3 == $01, set it to Main Scene
+; if wd4b3 == $04, st it to Play Area scene
+SetDuelAnimationScreen:
+	ld a, [wd4b3]
+	cp $04
+	jr z, .set_play_area_screen
+	cp $01
+	ret nz
+	ld a, DUEL_ANIM_SCREEN_MAIN_SCENE
+	ld [wDuelAnimationScreen], a
+	ret
+
+.set_play_area_screen
+	ld a, [wDuelAnimLocationParam]
+	ld l, a
+	ld a, [wWhoseTurn]
+	ld h, a
+	cp PLAYER_TURN
+	jr z, .player
+
+; opponent
+	ld a, [wDuelType]
+	cp $00
+	jr z, .asm_50c6
+
+; link duel or vs. AI
+	bit 7, l
+	jr z, .asm_50e2
+	jr .asm_50d2
+
+.asm_50c6
+	bit 7, l
+	jr z, .asm_50da
+	jr .asm_50ea
+
+.player
+	bit 7, l
+	jr z, .asm_50d2
+	jr .asm_50e2
+
+.asm_50d2
+	ld l, UNKNOWN_SCREEN_4
+	ld h, PLAYER_TURN
+	ld a, DUEL_ANIM_SCREEN_PLAYER_PLAY_AREA
+	jr .ok
+.asm_50da
+	ld l, UNKNOWN_SCREEN_4
+	ld h, OPPONENT_TURN
+	ld a, DUEL_ANIM_SCREEN_PLAYER_PLAY_AREA
+	jr .ok
+.asm_50e2
+	ld l, UNKNOWN_SCREEN_5
+	ld h, OPPONENT_TURN
+	ld a, DUEL_ANIM_SCREEN_OPP_PLAY_AREA
+	jr .ok
+.asm_50ea
+	ld l, UNKNOWN_SCREEN_5
+	ld h, PLAYER_TURN
+	ld a, DUEL_ANIM_SCREEN_OPP_PLAY_AREA
+
+.ok
+	ld [wDuelAnimationScreen], a
+	ret
+
+Func_190f4:
+	ld a, [wd4b3]
+	cp $04
+	jr z, Func_1910f
+	; fallthrough
+
+Func_190fb:
+	cp $01
+	jr nz, .done
+	ld a, DUEL_ANIM_SCREEN_MAIN_SCENE
+	ld [wDuelAnimationScreen], a
+	ld a, [wDuelDisplayedScreen]
+	cp $01
+	jr z, .done
+	bank1call DrawDuelMainScene
+.done
+	ret
+
+Func_1910f:
+	call SetDuelAnimationScreen
+	ld a, [wDuelDisplayedScreen]
+	cp l
+	jr z, .skip_change_screen
+	ld a, l
+	push af
+	ld l, PLAYER_TURN
+	ld a, [wDuelType]
+	cp $00
+	jr nz, .asm_5127
+	ld a, [wWhoseTurn]
+	ld l, a
+.asm_5127
+	call DrawYourOrOppPlayAreaScreen_Bank0
+	pop af
+	ld [wDuelDisplayedScreen], a
+.skip_change_screen
+	call DrawWideTextBox
+	ret
+
+; prints text related to the damage received
+; by card stored in wTempNonTurnDuelistCardID
+; takes into account type effectiveness
+PrintDamageText:
+	push hl
+	push bc
+	push de
+	ld a, [wLoadedAttackAnimation]
+	cp ATK_ANIM_HEAL
+	jr z, .skip
+	cp ATK_ANIM_HEALING_WIND_PLAY_AREA
+	jr z, .skip
+
+	ld a, [wTempNonTurnDuelistCardID]
+	ld e, a
+	ld d, $00
+	call LoadCardDataToBuffer1_FromCardID
+	ld a, 18
+	call CopyCardNameAndLevel
+	ld [hl], TX_END
+	ld hl, wTxRam2
+	xor a
+	ld [hli], a
+	ld [hl], a
+	ld hl, wce7f
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call GetDamageText
+	ld a, l
+	or h
+	call nz, DrawWideTextBox_PrintText
+.skip
+	pop de
+	pop bc
+	pop hl
+	ret
+
+; returns in hl the text id associated with
+; the damage in hl and its effectiveness
+GetDamageText:
+	ld a, l
+	or h
+	jr z, .no_damage
+	call LoadTxRam3
+	ld a, [wce81]
+	ldtx hl, AttackDamageText
+	and (1 << RESISTANCE) | (1 << WEAKNESS)
+	ret z ; not weak or resistant
+	ldtx hl, WeaknessMoreDamage2Text
+	cp (1 << RESISTANCE) | (1 << WEAKNESS)
+	ret z ; weak and resistant
+	and (1 << WEAKNESS)
+	ldtx hl, WeaknessMoreDamageText
+	ret nz ; weak
+	ldtx hl, ResistanceLessDamageText
+	ret ; resistant
+
+.no_damage
+	call CheckNoDamageOrEffect
+	ret c
+	ldtx hl, NoDamageText
+	ld a, [wce81]
+	and (1 << RESISTANCE)
+	ret z ; not resistant
+	ldtx hl, ResistanceNoDamageText
+	ret ; resistant
+
+UpdateMainSceneHUD:
+	ld a, [wDuelDisplayedScreen]
+	cp DUEL_MAIN_SCENE
+	ret nz
+	bank1call DrawDuelHUDs
+	ret
+
+Func_191a3:
+	ret
+
+INCLUDE "data/duel/animations/attack_animations.asm"
diff --git a/src/engine/duel/animations/core.asm b/src/engine/duel/animations/core.asm
new file mode 100644
index 0000000..5da9a0a
--- /dev/null
+++ b/src/engine/duel/animations/core.asm
@@ -0,0 +1,661 @@
+Func_1c8bc:
+	push hl
+	push bc
+	call Set_OBJ_8x8
+	ld a, LOW(Func_3ba2)
+	ld [wDoFrameFunction], a
+	ld a, HIGH(Func_3ba2)
+	ld [wDoFrameFunction + 1], a
+	ld a, $ff
+	ld hl, wAnimationQueue
+	ld c, ANIMATION_QUEUE_LENGTH
+.fill_queue
+	ld [hli], a
+	dec c
+	jr nz, .fill_queue
+	ld [wd42a], a
+	ld [wd4c0], a
+	xor a
+	ld [wDuelAnimBufferCurPos], a
+	ld [wDuelAnimBufferSize], a
+	ld [wd4b3], a
+	call DefaultScreenAnimationUpdate
+	call Func_3ca0
+	pop bc
+	pop hl
+	ret
+
+PlayLoadedDuelAnimation:
+	ld a, [wDoFrameFunction + 0]
+	cp LOW(Func_3ba2)
+	jr nz, .error
+	ld a, [wDoFrameFunction + 1]
+	cp HIGH(Func_3ba2)
+	jr z, .okay
+.error
+	debug_nop
+	ret
+
+.okay
+	ld a, [wTempAnimation]
+	ld [wd4bf], a
+	cp DUEL_SPECIAL_ANIMS
+	jp nc, Func_1cb5e
+
+	push hl
+	push bc
+	push de
+	call GetAnimationData
+; hl: pointer
+
+	ld a, [wAnimationsDisabled]
+	or a
+	jr z, .check_to_play_sfx
+	; animations are disabled
+	push hl
+	ld bc, ANIM_SPRITE_ANIM_FLAGS
+	add hl, bc
+	ld a, [hl]
+	; if flag is set, play animation anyway
+	and (1 << SPRITE_ANIM_FLAG_UNSKIPPABLE)
+	pop hl
+	jr z, .return
+
+.check_to_play_sfx
+	push hl
+	ld bc, ANIM_SOUND_FX_ID
+	add hl, bc
+	ld a, [hl]
+	pop hl
+	or a
+	jr z, .calc_addr
+	call PlaySFX
+
+.calc_addr
+; this data field is always $00,
+; so this calculation is unnecessary
+; seems like there was supposed to be
+; more than 1 function to handle animation
+	push hl
+	ld bc, ANIM_HANDLER_FUNCTION
+	add hl, bc
+	ld a, [hl]
+	rlca
+	add LOW(.address) ; $48
+	ld l, a ; LO
+	ld a, HIGH(.address) ; $49
+	adc 0
+	ld h, a ; HI
+; hl: pointer
+	ld a, [hli]
+	ld b, [hl]
+	ld c, a
+	pop hl
+
+	call CallBC
+.return
+	pop de
+	pop bc
+	pop hl
+	ret
+
+.address
+	dw .handler_func
+
+.handler_func ; 1c94a (7:494a)
+; if any of ANIM_SPRITE_ID, ANIM_PALETTE_ID and ANIM_SPRITE_ANIM_ID
+; are 0, then return
+	ld e, l
+	ld d, h
+	ld c, ANIM_SPRITE_ANIM_ID + 1
+.loop
+	ld a, [de]
+	or a
+	jr z, .return_with_carry
+	inc de
+	dec c
+	jr nz, .loop
+
+	ld a, [hli] ; ANIM_SPRITE_ID
+	farcall CreateSpriteAndAnimBufferEntry
+	ld a, [wWhichSprite]
+	ld [wAnimationQueue], a ; push an animation to the queue
+
+	xor a
+	ld [wVRAMTileOffset], a
+	ld [wd4cb], a
+
+	ld a, [hli] ; ANIM_PALETTE_ID
+	farcall LoadPaletteData
+	ld a, [hli] ; ANIM_SPRITE_ANIM_ID
+
+	push af
+	ld a, [hli] ; ANIM_SPRITE_ANIM_FLAGS
+	ld [wAnimFlags], a
+	call LoadAnimCoordsAndFlags
+	pop af
+
+	farcall StartNewSpriteAnimation
+	or a
+	jr .done
+
+.return_with_carry
+	scf
+.done
+	ret
+
+; loads the correct coordinates/flags for
+; sprite animation in wAnimationQueue
+LoadAnimCoordsAndFlags:
+	push hl
+	push bc
+	ld a, [wAnimationQueue]
+	ld c, SPRITE_ANIM_ATTRIBUTES
+	call GetSpriteAnimBufferProperty_SpriteInA
+	call GetAnimCoordsAndFlags
+
+	push af
+	and (1 << SPRITE_ANIM_FLAG_6) | (1 << SPRITE_ANIM_FLAG_5)
+	or [hl]
+	ld [hli], a
+	ld a, b
+	ld [hli], a ; SPRITE_ANIM_COORD_X
+	ld [hl], c ; SPRITE_ANIM_COORD_Y
+	pop af
+
+	ld bc, SPRITE_ANIM_FLAGS - SPRITE_ANIM_COORD_Y
+	add hl, bc
+	ld c, a ; useless
+	and (1 << SPRITE_ANIM_FLAG_Y_SUBTRACT) | (1 << SPRITE_ANIM_FLAG_X_SUBTRACT)
+	or [hl]
+	ld [hl], a
+	pop bc
+	pop hl
+	ret
+
+; outputs x and y coordinates for the sprite animation
+; taking into account who the turn duelist is.
+; also returns in a the allowed animation flags of
+; the configuration that is selected.
+; output:
+; a = anim flags
+; b = x coordinate
+; c = y coordinate
+GetAnimCoordsAndFlags:
+	push hl
+	ld c, 0
+	ld a, [wAnimFlags]
+	and (1 << SPRITE_ANIM_FLAG_SPEED)
+	jr nz, .calc_addr
+
+	ld a, [wDuelAnimationScreen]
+	add a ; 2 * [wDuelAnimationScreen]
+	ld c, a
+	add a ; 4 * [wDuelAnimationScreen]
+	add c ; 6 * [wDuelAnimationScreen]
+	add a ; 12 * [wDuelAnimationScreen]
+	ld c, a
+
+	ld a, [wDuelAnimDuelistSide]
+	cp PLAYER_TURN
+	jr z, .player_side
+; opponent side
+	ld a, 6
+	add c
+	ld c, a
+.player_side
+	ld a, [wDuelAnimLocationParam]
+	add c ; a = [wDuelAnimLocationParam] + c
+	ld c, a
+	ld b, 0
+	ld hl, AnimationCoordinatesIndex
+	add hl, bc
+	ld c, [hl]
+
+.calc_addr
+	ld a, c
+	add a ; a = c * 2
+	add c ; a = c * 3
+	ld c, a
+	ld b, 0
+	ld hl, AnimationCoordinates
+	add hl, bc
+	ld b, [hl] ; x coord
+	inc hl
+	ld c, [hl] ; y coord
+	inc hl
+	ld a, [wAnimFlags]
+	and [hl] ; flags
+	pop hl
+	ret
+
+AnimationCoordinatesIndex:
+; animations in the Duel Main Scene
+	db $01, $01, $01, $01, $01, $01 ; player
+	db $02, $02, $02, $02, $02, $02 ; opponent
+
+; animations in the Player's Play Area, for each Play Area Pokemon
+	db $03, $04, $05, $06, $07, $08 ; player
+	db $03, $04, $05, $06, $07, $08 ; opponent
+
+; animations in the Opponent's Play Area, for each Play Area Pokemon
+	db $09, $0a, $0b, $0c, $0d, $0e ; player
+	db $09, $0a, $0b, $0c, $0d, $0e ; opponent
+
+anim_coords: MACRO
+	db \1
+	db \2
+	db \3
+ENDM
+
+AnimationCoordinates:
+; x coord, y coord, animation flags
+	anim_coords 88,  88, (1 << SPRITE_ANIM_FLAG_3)
+
+; animations in the Duel Main Scene
+	anim_coords 40,  80, $00
+	anim_coords 136, 48, (1 << SPRITE_ANIM_FLAG_6) | (1 << SPRITE_ANIM_FLAG_5) | (1 << SPRITE_ANIM_FLAG_Y_SUBTRACT) | (1 << SPRITE_ANIM_FLAG_X_SUBTRACT)
+
+; animations in the Player's Play Area, for each Play Area Pokemon
+	anim_coords 88,  72, $00
+	anim_coords 24,  96, $00
+	anim_coords 56,  96, $00
+	anim_coords 88,  96, $00
+	anim_coords 120, 96, $00
+	anim_coords 152, 96, $00
+
+; animations in the Opponent's Play Area, for each Play Area Pokemon
+	anim_coords 88,  80, $00
+	anim_coords 152, 40, $00
+	anim_coords 120, 40, $00
+	anim_coords 88,  40, $00
+	anim_coords 56,  40, $00
+	anim_coords 24,  40, $00
+
+; appends to end of wDuelAnimBuffer
+; the current duel animation
+LoadDuelAnimationToBuffer:
+	push hl
+	push bc
+	ld a, [wDuelAnimBufferCurPos]
+	ld b, a
+	ld hl, wDuelAnimBufferSize
+	ld a, [hl]
+	ld c, a
+	add DUEL_ANIM_STRUCT_SIZE
+	and %01111111
+	cp b
+	jp z, .skip
+	ld [hl], a
+
+	ld b, $00
+	ld hl, wDuelAnimBuffer
+	add hl, bc
+	ld a, [wTempAnimation]
+	ld [hli], a
+	ld a, [wDuelAnimationScreen]
+	ld [hli], a
+	ld a, [wDuelAnimDuelistSide]
+	ld [hli], a
+	ld a, [wDuelAnimLocationParam]
+	ld [hli], a
+	ld a, [wDuelAnimDamage]
+	ld [hli], a
+	ld a, [wDuelAnimDamage + 1]
+	ld [hli], a
+	ld a, [wd4b3]
+	ld [hli], a
+	ld a, [wDuelAnimReturnBank]
+	ld [hl], a
+
+.skip
+	pop bc
+	pop hl
+	ret
+
+; loads the animations from wDuelAnimBuffer
+; in ascending order, starting at wDuelAnimBufferCurPos
+PlayBufferedDuelAnimations:
+	push hl
+	push bc
+.next_duel_anim
+	ld a, [wDuelAnimBufferSize]
+	ld b, a
+	ld a, [wDuelAnimBufferCurPos]
+	cp b
+	jr z, .skip
+
+	ld c, a
+	add DUEL_ANIM_STRUCT_SIZE
+	and %01111111
+	ld [wDuelAnimBufferCurPos], a
+
+	ld b, $00
+	ld hl, wDuelAnimBuffer
+	add hl, bc
+	ld a, [hli]
+	ld [wTempAnimation], a
+	ld a, [hli]
+	ld [wDuelAnimationScreen], a
+	ld a, [hli]
+	ld [wDuelAnimDuelistSide], a
+	ld a, [hli]
+	ld [wDuelAnimLocationParam], a
+	ld a, [hli]
+	ld [wDuelAnimDamage], a
+	ld a, [hli]
+	ld [wDuelAnimDamage + 1], a
+	ld a, [hli]
+	ld [wd4b3], a
+	ld a, [hl]
+	ld [wDuelAnimReturnBank], a
+
+	call PlayLoadedDuelAnimation
+	call CheckAnyAnimationPlaying
+	jr nc, .next_duel_anim
+
+.skip
+	pop bc
+	pop hl
+	ret
+
+; gets data from Animations for anim ID in a
+; outputs the pointer to the data in hl
+GetAnimationData:
+	push bc
+	ld a, [wTempAnimation]
+	ld l, a
+	ld h, 0
+	add hl, hl ; hl = anim * 2
+	ld b, h
+	ld c, l
+	add hl, hl ; hl = anim * 4
+	add hl, bc ; hl = anim * 6
+	ld bc, Animations
+	add hl, bc
+	pop bc
+	ret
+
+Func_1cac5:
+	ld a, [wd42a]
+	cp $ff
+	jr nz, .asm_1cb03
+
+	ld a, [wd4c0]
+	or a
+	jr z, .asm_1cafb
+	cp $80
+	jr z, .asm_1cb11
+	ld hl, wAnimationQueue
+	ld c, ANIMATION_QUEUE_LENGTH
+.loop_queue
+	push af
+	push bc
+	ld a, [hl]
+	cp $ff
+	jr z, .next
+	ld [wWhichSprite], a
+	farcall GetSpriteAnimCounter
+	cp $ff
+	jr nz, .next
+	farcall DisableCurSpriteAnim
+	ld a, $ff
+	ld [hl], a
+
+.next
+	pop bc
+	pop af
+	and [hl]
+	inc hl
+	dec c
+	jr nz, .loop_queue
+
+.asm_1cafb
+	cp $ff
+	jr nz, .skip_play_anims
+	call PlayBufferedDuelAnimations
+.skip_play_anims
+	ret
+
+.asm_1cb03
+	ld hl, wScreenAnimUpdatePtr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call CallHL2
+	ld a, [wd42a]
+	jr .asm_1cafb
+
+.asm_1cb11
+	ld a, $ff
+	ld [wd4c0], a
+	jr .asm_1cafb
+
+Func_1cb18:
+	push hl
+	push bc
+	push de
+
+	; if Func_3ba2 is not set as
+	; wDoFrameFunction, quit and set carry
+	ld a, [wDoFrameFunction]
+	cp LOW(Func_3ba2)
+	jr nz, .carry
+	ld a, [wDoFrameFunction + 1]
+	cp HIGH(Func_3ba2)
+	jr nz, .carry
+
+	ld a, $ff
+	ld [wd4c0], a
+	ld a, [wd42a]
+	cp $ff
+	call nz, DoScreenAnimationUpdate
+
+; clear all queued animations
+; and disable their sprite anims
+	ld hl, wAnimationQueue
+	ld c, ANIMATION_QUEUE_LENGTH
+.loop_queue
+	push bc
+	ld a, [hl]
+	cp $ff
+	jr z, .next_queued
+	ld [wWhichSprite], a
+	farcall DisableCurSpriteAnim
+	ld a, $ff
+	ld [hl], a
+.next_queued
+	pop bc
+	inc hl
+	dec c
+	jr nz, .loop_queue
+
+	xor a
+	ld [wDuelAnimBufferCurPos], a
+	ld [wDuelAnimBufferSize], a
+.done
+	pop de
+	pop bc
+	pop hl
+	ret
+.carry
+	scf
+	jr .done
+
+Func_1cb5e:
+	cp $96
+	jp nc, Func_1ce03
+	cp $8c
+	jp nz, InitScreenAnimation
+	jr .asm_1cb6a ; redundant
+.asm_1cb6a
+	ld a, [wDuelAnimDamage + 1]
+	cp $03
+	jr nz, .asm_1cb76
+	ld a, [wDuelAnimDamage]
+	cp $e8
+.asm_1cb76
+	ret nc
+
+	xor a
+	ld [wd4b8], a
+	ld [wVRAMTileOffset], a
+	ld [wd4cb], a
+
+	ld a, PALETTE_37
+	farcall LoadPaletteData
+	call Func_1cba6
+
+	ld hl, wd4b3
+	bit 0, [hl]
+	call nz, Func_1cc3e
+
+	ld a, $12
+	ld [wd4b8], a
+	bit 1, [hl]
+	call nz, Func_1cc4e
+
+	bit 2, [hl]
+	call nz, Func_1cc66
+
+	xor a
+	ld [wd4b3], a
+	ret
+
+Func_1cba6:
+	call Func_1cc03
+	xor a
+	ld [wd4b7], a
+
+	ld hl, wd4b4
+	ld de, wAnimationQueue + 1
+.asm_1cbb3
+	push hl
+	push de
+	ld a, [hl]
+	or a
+	jr z, .asm_1cbbc
+	call Func_1cbcc
+
+.asm_1cbbc
+	pop de
+	pop hl
+	inc hl
+	inc de
+	ld a, [wd4b7]
+	inc a
+	ld [wd4b7], a
+	cp $03
+	jr c, .asm_1cbb3
+	ret
+
+Func_1cbcc:
+	push af
+	ld a, SPRITE_DUEL_4
+	farcall CreateSpriteAndAnimBufferEntry
+	ld a, [wWhichSprite]
+	ld [de], a
+	ld a, (1 << SPRITE_ANIM_FLAG_UNSKIPPABLE)
+	ld [wAnimFlags], a
+	ld c, SPRITE_ANIM_COORD_X
+	call GetSpriteAnimBufferProperty
+	call GetAnimCoordsAndFlags
+
+	ld a, [wd4b7]
+	add LOW(Unknown_1cbfd)
+	ld e, a
+	ld a, HIGH(Unknown_1cbfd)
+	adc 0
+	ld d, a
+	ld a, [de]
+	add b
+
+	ld [hli], a ; SPRITE_ANIM_COORD_X
+	ld [hl], c ; SPRITE_ANIM_COORD_Y
+
+	ld a, [wd4b8]
+	ld c, a
+	pop af
+	farcall Func_12ac9
+	ret
+
+Unknown_1cbfd:
+	db -$10, -$8, $0, $8, -$8, -$10
+
+Func_1cc03:
+	ld a, [wDuelAnimDamage]
+	ld l, a
+	ld a, [wDuelAnimDamage + 1]
+	ld h, a
+
+	ld de, wd4b4
+	ld bc, -100
+	call .Func_1cc2f
+	ld bc, -10
+	call .Func_1cc2f
+
+	ld a, l
+	add $4f
+	ld [de], a
+	ld hl, wd4b4
+	ld c, 2
+.asm_1cc23
+	ld a, [hl]
+	cp $4f
+	jr nz, .asm_1cc2e
+	ld [hl], $00
+	inc hl
+	dec c
+	jr nz, .asm_1cc23
+.asm_1cc2e
+	ret
+
+.Func_1cc2f
+	ld a, $4e
+.loop
+	inc a
+	add hl, bc
+	jr c, .loop
+
+	ld [de], a
+	inc de
+	ld a, l
+	sub c
+	ld l, a
+	ld a, h
+	sbc b
+	ld h, a
+	ret
+
+Func_1cc3e:
+	push hl
+	ld a, $03
+	ld [wd4b7], a
+	ld de, wAnimationQueue + 4
+	ld a, SPRITE_ANIM_91
+	call Func_1cbcc
+	pop hl
+	ret
+
+Func_1cc4e:
+	push hl
+	ld a, $04
+	ld [wd4b7], a
+	ld de, wAnimationQueue + 5
+	ld a, SPRITE_ANIM_90
+	call Func_1cbcc
+	ld a, [wd4b8]
+	add $12
+	ld [wd4b8], a
+	pop hl
+	ret
+
+Func_1cc66:
+	push hl
+	ld a, $05
+	ld [wd4b7], a
+	ld de, wAnimationQueue + 6
+	ld a, SPRITE_ANIM_89
+	call Func_1cbcc
+	pop hl
+	ret
diff --git a/src/engine/duel/animations/screen_effects.asm b/src/engine/duel/animations/screen_effects.asm
new file mode 100644
index 0000000..9058071
--- /dev/null
+++ b/src/engine/duel/animations/screen_effects.asm
@@ -0,0 +1,286 @@
+; initializes a screen animation from wTempAnimation
+; loads a function pointer for updating a frame
+; and initializes the duration of the animation.
+InitScreenAnimation:
+	ld a, [wAnimationsDisabled]
+	or a
+	jr nz, .skip
+	ld a, [wTempAnimation]
+	ld [wd42a], a
+	sub DUEL_SCREEN_ANIMS
+	add a
+	add a
+	ld c, a
+	ld b, $00
+	ld hl, Data_1cc9f
+	add hl, bc
+	ld a, [hli]
+	ld [wScreenAnimUpdatePtr], a
+	ld c, a
+	ld a, [hli]
+	ld [wScreenAnimUpdatePtr + 1], a
+	ld b, a
+	ld a, [hl]
+	ld [wScreenAnimDuration], a
+	call CallBC
+.skip
+	ret
+
+; for the following animations, these functions
+; are run with the corresponding duration.
+; this duration decides different effects,
+; depending on which function runs
+; and is decreased by one each time.
+; when it is down to 0, the animation is done.
+
+screen_effect: MACRO
+	dw \1 ; function pointer
+	db \2 ; duration
+	db $00 ; padding
+ENDM
+
+Data_1cc9f:
+; function pointer, duration
+	screen_effect ShakeScreenX_Small, 24 ; DUEL_ANIM_SMALL_SHAKE_X
+	screen_effect ShakeScreenX_Big,   32 ; DUEL_ANIM_BIG_SHAKE_X
+	screen_effect ShakeScreenY_Small, 24 ; DUEL_ANIM_SMALL_SHAKE_Y
+	screen_effect ShakeScreenY_Big,   32 ; DUEL_ANIM_BIG_SHAKE_Y
+	screen_effect WhiteFlashScreen,    8 ; DUEL_ANIM_FLASH
+	screen_effect DistortScreen,      63 ; DUEL_ANIM_DISTORT
+
+; checks if screen animation duration is over
+; and if so, loads the default update function
+LoadDefaultScreenAnimationUpdateWhenFinished:
+	ld a, [wScreenAnimDuration]
+	or a
+	ret nz
+	; fallthrough
+
+; function called for the screen animation update when it is over
+DefaultScreenAnimationUpdate:
+	ld a, $ff
+	ld [wd42a], a
+	call DisableInt_LYCoincidence
+	xor a
+	ldh [hSCX], a
+	ldh [rSCX], a
+	ldh [hSCY], a
+	ld hl, wScreenAnimUpdatePtr
+	ld [hl], LOW(DefaultScreenAnimationUpdate)
+	inc hl
+	ld [hl], HIGH(DefaultScreenAnimationUpdate)
+	ret
+
+; runs the screen update function set in wScreenAnimUpdatePtr
+DoScreenAnimationUpdate:
+	ld a, 1
+	ld [wScreenAnimDuration], a
+	ld hl, wScreenAnimUpdatePtr
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call CallHL2
+	jr DefaultScreenAnimationUpdate
+
+ShakeScreenX_Small:
+	ld hl, SmallShakeOffsets
+	jr ShakeScreenX
+
+ShakeScreenX_Big:
+	ld hl, BigShakeOffsets
+	jr ShakeScreenX
+
+ShakeScreenX:
+	ld a, l
+	ld [wd4bc], a
+	ld a, h
+	ld [wd4bc + 1], a
+
+	ld hl, wScreenAnimUpdatePtr
+	ld [hl], LOW(.update)
+	inc hl
+	ld [hl], HIGH(.update)
+	ret
+
+.update
+	call DecrementScreenAnimDuration
+	call UpdateShakeOffset
+	jp nc, LoadDefaultScreenAnimationUpdateWhenFinished
+	ldh a, [hSCX]
+	add [hl]
+	ldh [hSCX], a
+	jp LoadDefaultScreenAnimationUpdateWhenFinished
+
+ShakeScreenY_Small:
+	ld hl, SmallShakeOffsets
+	jr ShakeScreenY
+
+ShakeScreenY_Big:
+	ld hl, BigShakeOffsets
+	jr ShakeScreenY
+
+ShakeScreenY:
+	ld a, l
+	ld [wd4bc], a
+	ld a, h
+	ld [wd4bc + 1], a
+	ld hl, wScreenAnimUpdatePtr
+	ld [hl], LOW(.update)
+	inc hl
+	ld [hl], HIGH(.update)
+	ret
+
+.update
+	call DecrementScreenAnimDuration
+	call UpdateShakeOffset
+	jp nc, LoadDefaultScreenAnimationUpdateWhenFinished
+	ldh a, [hSCY]
+	add [hl]
+	ldh [hSCY], a
+	jp LoadDefaultScreenAnimationUpdateWhenFinished
+
+; get the displacement of the current frame
+; depending on the value of wScreenAnimDuration
+; returns carry if displacement was updated
+UpdateShakeOffset:
+	ld hl, wd4bc
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, [wScreenAnimDuration]
+	cp [hl]
+	ret nc
+	inc hl
+	push hl
+	inc hl
+	ld a, l
+	ld [wd4bc], a
+	ld a, h
+	ld [wd4bc + 1], a
+	pop hl
+	scf
+	ret
+
+SmallShakeOffsets:
+	db 21,  2
+	db 17, -2
+	db 13,  2
+	db  9, -2
+	db  5,  1
+	db  1, -1
+
+BigShakeOffsets:
+	db 29,  4
+	db 25, -4
+	db 21,  4
+	db 17, -4
+	db 13,  3
+	db  9, -3
+	db  5,  2
+	db  1, -2
+
+DecrementScreenAnimDuration:
+	ld hl, wScreenAnimDuration
+	dec [hl]
+	ret
+
+WhiteFlashScreen:
+	ld hl, wScreenAnimUpdatePtr
+	ld [hl], LOW(.update)
+	inc hl
+	ld [hl], HIGH(.update)
+	ld a, [wBGP]
+	ld [wd4bc], a
+	; backup the current background pals
+	ld hl, wBackgroundPalettesCGB
+	ld de, wTempBackgroundPalettesCGB
+	ld bc, 8 palettes
+	call CopyDataHLtoDE_SaveRegisters
+	ld de, PALRGB_WHITE
+	ld hl, wBackgroundPalettesCGB
+	ld bc, (8 palettes) / 2
+	call FillMemoryWithDE
+	xor a
+	call SetBGP
+	call FlushAllPalettes
+
+.update
+	call DecrementScreenAnimDuration
+	ld a, [wScreenAnimDuration]
+	or a
+	ret nz
+	; retrieve the previous background pals
+	ld hl, wTempBackgroundPalettesCGB
+	ld de, wBackgroundPalettesCGB
+	ld bc, 8 palettes
+	call CopyDataHLtoDE_SaveRegisters
+	ld a, [wd4bc]
+	call SetBGP
+	call FlushAllPalettes
+	jp DefaultScreenAnimationUpdate
+
+DistortScreen:
+	ld hl, wScreenAnimUpdatePtr
+	ld [hl], LOW(.update)
+	inc hl
+	ld [hl], HIGH(.update)
+	xor a
+	ld [wApplyBGScroll], a
+	ld hl, wLCDCFunctionTrampoline + 1
+	ld [hl], LOW(ApplyBackgroundScroll)
+	inc hl
+	ld [hl], HIGH(ApplyBackgroundScroll)
+	ld a, 1
+	ld [wBGScrollMod], a
+	call EnableInt_LYCoincidence
+
+.update
+	ld a, [wScreenAnimDuration]
+	srl a
+	srl a
+	srl a
+	and %00000111
+	ld c, a
+	ld b, $00
+	ld hl, .BGScrollModData
+	add hl, bc
+	ld a, [hl]
+	ld [wBGScrollMod], a
+	call DecrementScreenAnimDuration
+	jp LoadDefaultScreenAnimationUpdateWhenFinished
+
+; each value is applied for 8 "ticks" of wScreenAnimDuration
+; starting from the last and running backwards
+.BGScrollModData
+	db 4, 3, 2, 1, 1, 1, 1, 2
+
+Func_1ce03:
+	cp DUEL_ANIM_158
+	jr z, .asm_1ce17
+	sub $96
+	add a
+	ld c, a
+	ld b, $00
+	ld hl, .pointer_table
+	add hl, bc
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp Func_3bb5
+
+.asm_1ce17
+	ld a, [wDuelAnimDamage]
+	ld l, a
+	ld a, [wDuelAnimDamage + 1]
+	ld h, a
+	jp Func_3bb5
+
+.pointer_table
+	dw Func_190f4         ; DUEL_ANIM_150
+	dw PrintDamageText    ; DUEL_ANIM_PRINT_DAMAGE
+	dw UpdateMainSceneHUD ; DUEL_ANIM_UPDATE_HUD
+	dw Func_191a3         ; DUEL_ANIM_153
+	dw Func_191a3         ; DUEL_ANIM_154
+	dw Func_191a3         ; DUEL_ANIM_155
+	dw Func_191a3         ; DUEL_ANIM_156
+	dw Func_191a3         ; DUEL_ANIM_157
diff --git a/src/engine/duel/core.asm b/src/engine/duel/core.asm
index acf5add..10ccdee 100644
--- a/src/engine/duel/core.asm
+++ b/src/engine/duel/core.asm
@@ -5983,7 +5983,7 @@ PrintUsedTrainerCardDescription:
 ; byte 0 is $01, bytes 1 and 2 are the checksum, byte 3 is [wDuelType]
 ; next $33a bytes come from DuelDataToSave
 SaveDuelData:
-	farcall CommentedOut_1a6cc
+	farcall StubbedUnusedSaveDataValidation
 	ld de, sCurrentDuel
 ;	fallthrough
 
diff --git a/src/data/duel/effect_commands.asm b/src/engine/duel/effect_commands.asm
index e96ef7e..e96ef7e 100644
--- a/src/data/duel/effect_commands.asm
+++ b/src/engine/duel/effect_commands.asm
diff --git a/src/engine/effect_functions.asm b/src/engine/duel/effect_functions.asm
index ce3a517..ce3a517 100644
--- a/src/engine/effect_functions.asm
+++ b/src/engine/duel/effect_functions.asm
diff --git a/src/engine/game_loop.asm b/src/engine/game_loop.asm
index c3745b6..d6e4fab 100644
--- a/src/engine/game_loop.asm
+++ b/src/engine/game_loop.asm
@@ -15,7 +15,7 @@ GameLoop:
 	ld a, 1
 	ld [wUppercaseHalfWidthLetters], a
 	ei
-	farcall CommentedOut_1a6cc
+	farcall StubbedUnusedSaveDataValidation
 	ldh a, [hKeysHeld]
 	cp A_BUTTON | B_BUTTON
 	jr z, .ask_erase_backup_ram
diff --git a/src/engine/gfx/gfx_table_pointers.asm b/src/engine/gfx/gfx_table_pointers.asm
new file mode 100644
index 0000000..370ed15
--- /dev/null
+++ b/src/engine/gfx/gfx_table_pointers.asm
@@ -0,0 +1,6 @@
+GfxTablePointers:
+	dw Tilemaps
+	dw Tilesets
+	dw Sprites
+	dw SpriteAnimations
+	dw Palettes
diff --git a/src/engine/gfx/palettes.asm b/src/engine/gfx/palettes.asm
new file mode 100644
index 0000000..8a0d71a
--- /dev/null
+++ b/src/engine/gfx/palettes.asm
@@ -0,0 +1,170 @@
+; \1 = palette pointer
+; \2 = number of palettes
+; \3 = number of OBJ colors
+palette_pointer: MACRO
+	dwb \1, BANK(\1) - BANK(Palettes)
+	db (\2 << 4) + \3
+ENDM
+
+Palettes:
+	palette_pointer Palette0,   8, 1 ; PALETTE_0
+	palette_pointer Palette1,   8, 0 ; PALETTE_1
+	palette_pointer Palette2,   8, 0 ; PALETTE_2
+	palette_pointer Palette3,   8, 0 ; PALETTE_3
+	palette_pointer Palette4,   8, 0 ; PALETTE_4
+	palette_pointer Palette5,   8, 0 ; PALETTE_5
+	palette_pointer Palette6,   8, 0 ; PALETTE_6
+	palette_pointer Palette7,   8, 0 ; PALETTE_7
+	palette_pointer Palette8,   8, 0 ; PALETTE_8
+	palette_pointer Palette9,   8, 0 ; PALETTE_9
+	palette_pointer Palette10,  8, 0 ; PALETTE_10
+	palette_pointer Palette11,  8, 0 ; PALETTE_11
+	palette_pointer Palette12,  8, 0 ; PALETTE_12
+	palette_pointer Palette13,  8, 0 ; PALETTE_13
+	palette_pointer Palette14,  8, 0 ; PALETTE_14
+	palette_pointer Palette15,  8, 0 ; PALETTE_15
+	palette_pointer Palette16,  8, 0 ; PALETTE_16
+	palette_pointer Palette17,  8, 0 ; PALETTE_17
+	palette_pointer Palette18,  8, 0 ; PALETTE_18
+	palette_pointer Palette19,  8, 0 ; PALETTE_19
+	palette_pointer Palette20,  8, 0 ; PALETTE_20
+	palette_pointer Palette21,  8, 0 ; PALETTE_21
+	palette_pointer Palette22,  8, 0 ; PALETTE_22
+	palette_pointer Palette23,  8, 0 ; PALETTE_23
+	palette_pointer Palette24,  8, 0 ; PALETTE_24
+	palette_pointer Palette25,  8, 0 ; PALETTE_25
+	palette_pointer Palette26,  8, 0 ; PALETTE_26
+	palette_pointer Palette27,  8, 0 ; PALETTE_27
+	palette_pointer Palette28,  8, 0 ; PALETTE_28
+	palette_pointer Palette29,  8, 2 ; PALETTE_29
+	palette_pointer Palette30,  8, 2 ; PALETTE_30
+	palette_pointer Palette31,  1, 1 ; PALETTE_31
+	palette_pointer Palette32,  1, 1 ; PALETTE_32
+	palette_pointer Palette33,  1, 1 ; PALETTE_33
+	palette_pointer Palette34,  1, 1 ; PALETTE_34
+	palette_pointer Palette35,  1, 1 ; PALETTE_35
+	palette_pointer Palette36,  1, 1 ; PALETTE_36
+	palette_pointer Palette37,  1, 1 ; PALETTE_37
+	palette_pointer Palette38,  1, 1 ; PALETTE_38
+	palette_pointer Palette39,  1, 1 ; PALETTE_39
+	palette_pointer Palette40,  1, 1 ; PALETTE_40
+	palette_pointer Palette41,  1, 1 ; PALETTE_41
+	palette_pointer Palette42,  1, 1 ; PALETTE_42
+	palette_pointer Palette43,  1, 1 ; PALETTE_43
+	palette_pointer Palette44,  1, 1 ; PALETTE_44
+	palette_pointer Palette45,  1, 1 ; PALETTE_45
+	palette_pointer Palette46,  1, 1 ; PALETTE_46
+	palette_pointer Palette47,  1, 1 ; PALETTE_47
+	palette_pointer Palette48,  1, 1 ; PALETTE_48
+	palette_pointer Palette49,  1, 1 ; PALETTE_49
+	palette_pointer Palette50,  1, 1 ; PALETTE_50
+	palette_pointer Palette51,  1, 1 ; PALETTE_51
+	palette_pointer Palette52,  1, 1 ; PALETTE_52
+	palette_pointer Palette53,  1, 1 ; PALETTE_53
+	palette_pointer Palette54,  1, 1 ; PALETTE_54
+	palette_pointer Palette55,  1, 1 ; PALETTE_55
+	palette_pointer Palette56,  1, 1 ; PALETTE_56
+	palette_pointer Palette57,  1, 1 ; PALETTE_57
+	palette_pointer Palette58,  1, 1 ; PALETTE_58
+	palette_pointer Palette59,  1, 1 ; PALETTE_59
+	palette_pointer Palette60,  1, 1 ; PALETTE_60
+	palette_pointer Palette61,  1, 1 ; PALETTE_61
+	palette_pointer Palette62,  1, 1 ; PALETTE_62
+	palette_pointer Palette63,  1, 1 ; PALETTE_63
+	palette_pointer Palette64,  1, 1 ; PALETTE_64
+	palette_pointer Palette65,  1, 1 ; PALETTE_65
+	palette_pointer Palette66,  1, 1 ; PALETTE_66
+	palette_pointer Palette67,  1, 1 ; PALETTE_67
+	palette_pointer Palette68,  1, 1 ; PALETTE_68
+	palette_pointer Palette69,  1, 1 ; PALETTE_69
+	palette_pointer Palette70,  1, 1 ; PALETTE_70
+	palette_pointer Palette71,  1, 1 ; PALETTE_71
+	palette_pointer Palette72,  1, 1 ; PALETTE_72
+	palette_pointer Palette73,  1, 1 ; PALETTE_73
+	palette_pointer Palette74,  1, 1 ; PALETTE_74
+	palette_pointer Palette75,  1, 1 ; PALETTE_75
+	palette_pointer Palette76,  1, 1 ; PALETTE_76
+	palette_pointer Palette77,  1, 1 ; PALETTE_77
+	palette_pointer Palette78,  1, 1 ; PALETTE_78
+	palette_pointer Palette79,  1, 1 ; PALETTE_79
+	palette_pointer Palette80,  1, 1 ; PALETTE_80
+	palette_pointer Palette81,  1, 1 ; PALETTE_81
+	palette_pointer Palette82,  1, 1 ; PALETTE_82
+	palette_pointer Palette83,  1, 1 ; PALETTE_83
+	palette_pointer Palette84,  1, 1 ; PALETTE_84
+	palette_pointer Palette85,  1, 1 ; PALETTE_85
+	palette_pointer Palette86,  1, 1 ; PALETTE_86
+	palette_pointer Palette87,  1, 1 ; PALETTE_87
+	palette_pointer Palette88,  1, 1 ; PALETTE_88
+	palette_pointer Palette89,  1, 1 ; PALETTE_89
+	palette_pointer Palette90,  1, 1 ; PALETTE_90
+	palette_pointer Palette91,  1, 1 ; PALETTE_91
+	palette_pointer Palette92,  1, 1 ; PALETTE_92
+	palette_pointer Palette93,  1, 1 ; PALETTE_93
+	palette_pointer Palette94,  8, 0 ; PALETTE_94
+	palette_pointer Palette95,  8, 0 ; PALETTE_95
+	palette_pointer Palette96,  8, 0 ; PALETTE_96
+	palette_pointer Palette97,  8, 0 ; PALETTE_97
+	palette_pointer Palette98,  8, 0 ; PALETTE_98
+	palette_pointer Palette99,  8, 0 ; PALETTE_99
+	palette_pointer Palette100, 8, 0 ; PALETTE_100
+	palette_pointer Palette101, 7, 0 ; PALETTE_101
+	palette_pointer Palette102, 7, 0 ; PALETTE_102
+	palette_pointer Palette103, 7, 0 ; PALETTE_103
+	palette_pointer Palette104, 7, 0 ; PALETTE_104
+	palette_pointer Palette105, 7, 0 ; PALETTE_105
+	palette_pointer Palette106, 7, 0 ; PALETTE_106
+	palette_pointer Palette107, 7, 0 ; PALETTE_107
+	palette_pointer Palette108, 0, 1 ; PALETTE_108
+	palette_pointer Palette109, 0, 1 ; PALETTE_109
+	palette_pointer Palette110, 0, 0 ; PALETTE_110
+	palette_pointer Palette111, 8, 1 ; PALETTE_111
+	palette_pointer Palette112, 8, 1 ; PALETTE_112
+	palette_pointer Palette113, 8, 1 ; PALETTE_113
+	palette_pointer Palette114, 4, 2 ; PALETTE_114
+	palette_pointer Palette115, 4, 2 ; PALETTE_115
+	palette_pointer Palette116, 4, 2 ; PALETTE_116
+	palette_pointer Palette117, 1, 0 ; PALETTE_117
+	palette_pointer Palette118, 6, 0 ; PALETTE_118
+	palette_pointer Palette119, 1, 0 ; PALETTE_119
+	palette_pointer Palette120, 1, 0 ; PALETTE_120
+	palette_pointer Palette121, 1, 0 ; PALETTE_121
+	palette_pointer Palette122, 1, 0 ; PALETTE_122
+	palette_pointer Palette123, 1, 0 ; PALETTE_123
+	palette_pointer Palette124, 1, 0 ; PALETTE_124
+	palette_pointer Palette125, 1, 0 ; PALETTE_125
+	palette_pointer Palette126, 1, 0 ; PALETTE_126
+	palette_pointer Palette127, 1, 0 ; PALETTE_127
+	palette_pointer Palette128, 1, 0 ; PALETTE_128
+	palette_pointer Palette129, 1, 0 ; PALETTE_129
+	palette_pointer Palette130, 1, 0 ; PALETTE_130
+	palette_pointer Palette131, 1, 0 ; PALETTE_131
+	palette_pointer Palette132, 1, 0 ; PALETTE_132
+	palette_pointer Palette133, 1, 0 ; PALETTE_133
+	palette_pointer Palette134, 1, 0 ; PALETTE_134
+	palette_pointer Palette135, 1, 0 ; PALETTE_135
+	palette_pointer Palette136, 1, 0 ; PALETTE_136
+	palette_pointer Palette137, 1, 0 ; PALETTE_137
+	palette_pointer Palette138, 1, 0 ; PALETTE_138
+	palette_pointer Palette139, 1, 0 ; PALETTE_139
+	palette_pointer Palette140, 1, 0 ; PALETTE_140
+	palette_pointer Palette141, 1, 0 ; PALETTE_141
+	palette_pointer Palette142, 1, 0 ; PALETTE_142
+	palette_pointer Palette143, 1, 0 ; PALETTE_143
+	palette_pointer Palette144, 1, 0 ; PALETTE_144
+	palette_pointer Palette145, 1, 0 ; PALETTE_145
+	palette_pointer Palette146, 1, 0 ; PALETTE_146
+	palette_pointer Palette147, 1, 0 ; PALETTE_147
+	palette_pointer Palette148, 1, 0 ; PALETTE_148
+	palette_pointer Palette149, 1, 0 ; PALETTE_149
+	palette_pointer Palette150, 1, 0 ; PALETTE_150
+	palette_pointer Palette151, 1, 0 ; PALETTE_151
+	palette_pointer Palette152, 1, 0 ; PALETTE_152
+	palette_pointer Palette153, 1, 0 ; PALETTE_153
+	palette_pointer Palette154, 1, 0 ; PALETTE_154
+	palette_pointer Palette155, 1, 0 ; PALETTE_155
+	palette_pointer Palette156, 1, 0 ; PALETTE_156
+	palette_pointer Palette157, 1, 0 ; PALETTE_157
+	palette_pointer Palette158, 1, 0 ; PALETTE_158
+	palette_pointer Palette159, 1, 0 ; PALETTE_159
+	palette_pointer Palette160, 1, 0 ; PALETTE_160
diff --git a/src/engine/gfx/sprite_animations.asm b/src/engine/gfx/sprite_animations.asm
new file mode 100644
index 0000000..7c432c6
--- /dev/null
+++ b/src/engine/gfx/sprite_animations.asm
@@ -0,0 +1,224 @@
+; \1 = anim data pointer
+anim_data_pointer: MACRO
+	dwb \1, BANK(\1) - BANK(SpriteAnimations)
+	db $00 ; unused (padding?)
+ENDM
+
+SpriteAnimations:
+	anim_data_pointer AnimData0   ; SPRITE_ANIM_LIGHT_NPC_UP
+	anim_data_pointer AnimData1   ; SPRITE_ANIM_LIGHT_NPC_RIGHT
+	anim_data_pointer AnimData2   ; SPRITE_ANIM_LIGHT_NPC_DOWN
+	anim_data_pointer AnimData3   ; SPRITE_ANIM_LIGHT_NPC_LEFT
+	anim_data_pointer AnimData4   ; SPRITE_ANIM_DARK_NPC_UP
+	anim_data_pointer AnimData5   ; SPRITE_ANIM_DARK_NPC_RIGHT
+	anim_data_pointer AnimData6   ; SPRITE_ANIM_DARK_NPC_DOWN
+	anim_data_pointer AnimData7   ; SPRITE_ANIM_DARK_NPC_LEFT
+	anim_data_pointer AnimData8   ; SPRITE_ANIM_SGB_AMY_LAYING
+	anim_data_pointer AnimData9   ; SPRITE_ANIM_SGB_AMY_STAND
+	anim_data_pointer AnimData10  ; SPRITE_ANIM_SGB_CLERK_NPC_UP
+	anim_data_pointer AnimData11  ; SPRITE_ANIM_SGB_CLERK_NPC_RIGHT
+	anim_data_pointer AnimData12  ; SPRITE_ANIM_SGB_CLERK_NPC_DOWN
+	anim_data_pointer AnimData13  ; SPRITE_ANIM_SGB_CLERK_NPC_LEFT
+	anim_data_pointer AnimData14  ; SPRITE_ANIM_BLUE_NPC_UP
+	anim_data_pointer AnimData15  ; SPRITE_ANIM_BLUE_NPC_RIGHT
+	anim_data_pointer AnimData16  ; SPRITE_ANIM_BLUE_NPC_DOWN
+	anim_data_pointer AnimData17  ; SPRITE_ANIM_BLUE_NPC_LEFT
+	anim_data_pointer AnimData18  ; SPRITE_ANIM_PINK_NPC_UP
+	anim_data_pointer AnimData19  ; SPRITE_ANIM_PINK_NPC_RIGHT
+	anim_data_pointer AnimData20  ; SPRITE_ANIM_PINK_NPC_DOWN
+	anim_data_pointer AnimData21  ; SPRITE_ANIM_PINK_NPC_LEFT
+	anim_data_pointer AnimData22  ; SPRITE_ANIM_YELLOW_NPC_UP
+	anim_data_pointer AnimData23  ; SPRITE_ANIM_YELLOW_NPC_RIGHT
+	anim_data_pointer AnimData24  ; SPRITE_ANIM_YELLOW_NPC_DOWN
+	anim_data_pointer AnimData25  ; SPRITE_ANIM_YELLOW_NPC_LEFT
+	anim_data_pointer AnimData26  ; SPRITE_ANIM_GREEN_NPC_UP
+	anim_data_pointer AnimData27  ; SPRITE_ANIM_GREEN_NPC_RIGHT
+	anim_data_pointer AnimData28  ; SPRITE_ANIM_GREEN_NPC_DOWN
+	anim_data_pointer AnimData29  ; SPRITE_ANIM_GREEN_NPC_LEFT
+	anim_data_pointer AnimData30  ; SPRITE_ANIM_RED_NPC_UP
+	anim_data_pointer AnimData31  ; SPRITE_ANIM_RED_NPC_RIGHT
+	anim_data_pointer AnimData32  ; SPRITE_ANIM_RED_NPC_DOWN
+	anim_data_pointer AnimData33  ; SPRITE_ANIM_RED_NPC_LEFT
+	anim_data_pointer AnimData34  ; SPRITE_ANIM_PURPLE_NPC_UP
+	anim_data_pointer AnimData35  ; SPRITE_ANIM_PURPLE_NPC_RIGHT
+	anim_data_pointer AnimData36  ; SPRITE_ANIM_PURPLE_NPC_DOWN
+	anim_data_pointer AnimData37  ; SPRITE_ANIM_PURPLE_NPC_LEFT
+	anim_data_pointer AnimData38  ; SPRITE_ANIM_WHITE_NPC_UP
+	anim_data_pointer AnimData39  ; SPRITE_ANIM_WHITE_NPC_RIGHT
+	anim_data_pointer AnimData40  ; SPRITE_ANIM_WHITE_NPC_DOWN
+	anim_data_pointer AnimData41  ; SPRITE_ANIM_WHITE_NPC_LEFT
+	anim_data_pointer AnimData42  ; SPRITE_ANIM_INDIGO_NPC_UP
+	anim_data_pointer AnimData43  ; SPRITE_ANIM_INDIGO_NPC_RIGHT
+	anim_data_pointer AnimData44  ; SPRITE_ANIM_INDIGO_NPC_DOWN
+	anim_data_pointer AnimData45  ; SPRITE_ANIM_INDIGO_NPC_LEFT
+	anim_data_pointer AnimData46  ; SPRITE_ANIM_CGB_AMY_LAYING
+	anim_data_pointer AnimData47  ; SPRITE_ANIM_CGB_AMY_STAND
+	anim_data_pointer AnimData48  ; SPRITE_ANIM_CGB_CLERK_NPC_UP
+	anim_data_pointer AnimData49  ; SPRITE_ANIM_CGB_CLERK_NPC_RIGHT
+	anim_data_pointer AnimData50  ; SPRITE_ANIM_CGB_CLERK_NPC_DOWN
+	anim_data_pointer AnimData51  ; SPRITE_ANIM_CGB_CLERK_NPC_LEFT
+	anim_data_pointer AnimData52  ; SPRITE_ANIM_SGB_VOLCANO_SMOKE
+	anim_data_pointer AnimData53  ; SPRITE_ANIM_SGB_OWMAP_CURSOR
+	anim_data_pointer AnimData54  ; SPRITE_ANIM_SGB_OWMAP_CURSOR_FAST
+	anim_data_pointer AnimData55  ; SPRITE_ANIM_CGB_VOLCANO_SMOKE
+	anim_data_pointer AnimData56  ; SPRITE_ANIM_CGB_OWMAP_CURSOR
+	anim_data_pointer AnimData57  ; SPRITE_ANIM_CGB_OWMAP_CURSOR_FAST
+	anim_data_pointer AnimData58  ; SPRITE_ANIM_TORCH
+	anim_data_pointer AnimData59  ; SPRITE_ANIM_SGB_CARD_TOP_LEFT
+	anim_data_pointer AnimData60  ; SPRITE_ANIM_SGB_CARD_TOP_RIGHT
+	anim_data_pointer AnimData61  ; SPRITE_ANIM_SGB_CARD_LEFT_SPARK
+	anim_data_pointer AnimData62  ; SPRITE_ANIM_SGB_CARD_BOTTOM_LEFT
+	anim_data_pointer AnimData63  ; SPRITE_ANIM_SGB_CARD_BOTTOM_RIGHT
+	anim_data_pointer AnimData64  ; SPRITE_ANIM_SGB_CARD_RIGHT_SPARK
+	anim_data_pointer AnimData65  ; SPRITE_ANIM_CGB_CARD_TOP_LEFT
+	anim_data_pointer AnimData66  ; SPRITE_ANIM_CGB_CARD_TOP_RIGHT
+	anim_data_pointer AnimData67  ; SPRITE_ANIM_CGB_CARD_LEFT_SPARK
+	anim_data_pointer AnimData68  ; SPRITE_ANIM_CGB_CARD_BOTTOM_LEFT
+	anim_data_pointer AnimData69  ; SPRITE_ANIM_CGB_CARD_BOTTOM_RIGHT
+	anim_data_pointer AnimData70  ; SPRITE_ANIM_CGB_CARD_RIGHT_SPARK
+	anim_data_pointer AnimData71  ; SPRITE_ANIM_71
+	anim_data_pointer AnimData72  ; SPRITE_ANIM_72
+	anim_data_pointer AnimData73  ; SPRITE_ANIM_73
+	anim_data_pointer AnimData74  ; SPRITE_ANIM_74
+	anim_data_pointer AnimData75  ; SPRITE_ANIM_75
+	anim_data_pointer AnimData76  ; SPRITE_ANIM_76
+	anim_data_pointer AnimData77  ; SPRITE_ANIM_77
+	anim_data_pointer AnimData78  ; SPRITE_ANIM_78
+	anim_data_pointer AnimData79  ; SPRITE_ANIM_79
+	anim_data_pointer AnimData80  ; SPRITE_ANIM_80
+	anim_data_pointer AnimData81  ; SPRITE_ANIM_81
+	anim_data_pointer AnimData82  ; SPRITE_ANIM_82
+	anim_data_pointer AnimData83  ; SPRITE_ANIM_83
+	anim_data_pointer AnimData84  ; SPRITE_ANIM_84
+	anim_data_pointer AnimData85  ; SPRITE_ANIM_85
+	anim_data_pointer AnimData86  ; SPRITE_ANIM_86
+	anim_data_pointer AnimData87  ; SPRITE_ANIM_87
+	anim_data_pointer AnimData88  ; SPRITE_ANIM_88
+	anim_data_pointer AnimData89  ; SPRITE_ANIM_89
+	anim_data_pointer AnimData90  ; SPRITE_ANIM_90
+	anim_data_pointer AnimData91  ; SPRITE_ANIM_91
+	anim_data_pointer AnimData92  ; SPRITE_ANIM_92
+	anim_data_pointer AnimData93  ; SPRITE_ANIM_93
+	anim_data_pointer AnimData94  ; SPRITE_ANIM_94
+	anim_data_pointer AnimData95  ; SPRITE_ANIM_95
+	anim_data_pointer AnimData96  ; SPRITE_ANIM_96
+	anim_data_pointer AnimData97  ; SPRITE_ANIM_97
+	anim_data_pointer AnimData98  ; SPRITE_ANIM_98
+	anim_data_pointer AnimData99  ; SPRITE_ANIM_99
+	anim_data_pointer AnimData100 ; SPRITE_ANIM_100
+	anim_data_pointer AnimData101 ; SPRITE_ANIM_101
+	anim_data_pointer AnimData102 ; SPRITE_ANIM_102
+	anim_data_pointer AnimData103 ; SPRITE_ANIM_103
+	anim_data_pointer AnimData104 ; SPRITE_ANIM_104
+	anim_data_pointer AnimData105 ; SPRITE_ANIM_105
+	anim_data_pointer AnimData106 ; SPRITE_ANIM_106
+	anim_data_pointer AnimData107 ; SPRITE_ANIM_107
+	anim_data_pointer AnimData108 ; SPRITE_ANIM_108
+	anim_data_pointer AnimData109 ; SPRITE_ANIM_109
+	anim_data_pointer AnimData110 ; SPRITE_ANIM_110
+	anim_data_pointer AnimData111 ; SPRITE_ANIM_111
+	anim_data_pointer AnimData112 ; SPRITE_ANIM_112
+	anim_data_pointer AnimData113 ; SPRITE_ANIM_113
+	anim_data_pointer AnimData114 ; SPRITE_ANIM_114
+	anim_data_pointer AnimData115 ; SPRITE_ANIM_115
+	anim_data_pointer AnimData116 ; SPRITE_ANIM_116
+	anim_data_pointer AnimData117 ; SPRITE_ANIM_117
+	anim_data_pointer AnimData118 ; SPRITE_ANIM_118
+	anim_data_pointer AnimData119 ; SPRITE_ANIM_119
+	anim_data_pointer AnimData120 ; SPRITE_ANIM_120
+	anim_data_pointer AnimData121 ; SPRITE_ANIM_121
+	anim_data_pointer AnimData122 ; SPRITE_ANIM_122
+	anim_data_pointer AnimData123 ; SPRITE_ANIM_123
+	anim_data_pointer AnimData124 ; SPRITE_ANIM_124
+	anim_data_pointer AnimData125 ; SPRITE_ANIM_125
+	anim_data_pointer AnimData126 ; SPRITE_ANIM_126
+	anim_data_pointer AnimData127 ; SPRITE_ANIM_127
+	anim_data_pointer AnimData128 ; SPRITE_ANIM_128
+	anim_data_pointer AnimData129 ; SPRITE_ANIM_129
+	anim_data_pointer AnimData130 ; SPRITE_ANIM_130
+	anim_data_pointer AnimData131 ; SPRITE_ANIM_131
+	anim_data_pointer AnimData132 ; SPRITE_ANIM_132
+	anim_data_pointer AnimData133 ; SPRITE_ANIM_133
+	anim_data_pointer AnimData134 ; SPRITE_ANIM_134
+	anim_data_pointer AnimData135 ; SPRITE_ANIM_135
+	anim_data_pointer AnimData136 ; SPRITE_ANIM_136
+	anim_data_pointer AnimData137 ; SPRITE_ANIM_137
+	anim_data_pointer AnimData138 ; SPRITE_ANIM_138
+	anim_data_pointer AnimData139 ; SPRITE_ANIM_139
+	anim_data_pointer AnimData140 ; SPRITE_ANIM_140
+	anim_data_pointer AnimData141 ; SPRITE_ANIM_141
+	anim_data_pointer AnimData142 ; SPRITE_ANIM_142
+	anim_data_pointer AnimData143 ; SPRITE_ANIM_143
+	anim_data_pointer AnimData144 ; SPRITE_ANIM_144
+	anim_data_pointer AnimData145 ; SPRITE_ANIM_145
+	anim_data_pointer AnimData146 ; SPRITE_ANIM_146
+	anim_data_pointer AnimData147 ; SPRITE_ANIM_147
+	anim_data_pointer AnimData148 ; SPRITE_ANIM_148
+	anim_data_pointer AnimData149 ; SPRITE_ANIM_149
+	anim_data_pointer AnimData150 ; SPRITE_ANIM_150
+	anim_data_pointer AnimData151 ; SPRITE_ANIM_151
+	anim_data_pointer AnimData152 ; SPRITE_ANIM_152
+	anim_data_pointer AnimData153 ; SPRITE_ANIM_153
+	anim_data_pointer AnimData154 ; SPRITE_ANIM_154
+	anim_data_pointer AnimData155 ; SPRITE_ANIM_155
+	anim_data_pointer AnimData156 ; SPRITE_ANIM_156
+	anim_data_pointer AnimData157 ; SPRITE_ANIM_157
+	anim_data_pointer AnimData158 ; SPRITE_ANIM_158
+	anim_data_pointer AnimData159 ; SPRITE_ANIM_159
+	anim_data_pointer AnimData160 ; SPRITE_ANIM_160
+	anim_data_pointer AnimData161 ; SPRITE_ANIM_161
+	anim_data_pointer AnimData162 ; SPRITE_ANIM_162
+	anim_data_pointer AnimData163 ; SPRITE_ANIM_163
+	anim_data_pointer AnimData164 ; SPRITE_ANIM_164
+	anim_data_pointer AnimData165 ; SPRITE_ANIM_165
+	anim_data_pointer AnimData166 ; SPRITE_ANIM_166
+	anim_data_pointer AnimData167 ; SPRITE_ANIM_167
+	anim_data_pointer AnimData168 ; SPRITE_ANIM_168
+	anim_data_pointer AnimData169 ; SPRITE_ANIM_169
+	anim_data_pointer AnimData170 ; SPRITE_ANIM_170
+	anim_data_pointer AnimData171 ; SPRITE_ANIM_171
+	anim_data_pointer AnimData172 ; SPRITE_ANIM_172
+	anim_data_pointer AnimData173 ; SPRITE_ANIM_173
+	anim_data_pointer AnimData174 ; SPRITE_ANIM_174
+	anim_data_pointer AnimData175 ; SPRITE_ANIM_175
+	anim_data_pointer AnimData176 ; SPRITE_ANIM_176
+	anim_data_pointer AnimData177 ; SPRITE_ANIM_177
+	anim_data_pointer AnimData178 ; SPRITE_ANIM_178
+	anim_data_pointer AnimData179 ; SPRITE_ANIM_179
+	anim_data_pointer AnimData180 ; SPRITE_ANIM_180
+	anim_data_pointer AnimData181 ; SPRITE_ANIM_181
+	anim_data_pointer AnimData182 ; SPRITE_ANIM_182
+	anim_data_pointer AnimData183 ; SPRITE_ANIM_183
+	anim_data_pointer AnimData184 ; SPRITE_ANIM_184
+	anim_data_pointer AnimData185 ; SPRITE_ANIM_185
+	anim_data_pointer AnimData186 ; SPRITE_ANIM_186
+	anim_data_pointer AnimData187 ; SPRITE_ANIM_187
+	anim_data_pointer AnimData188 ; SPRITE_ANIM_188
+	anim_data_pointer AnimData189 ; SPRITE_ANIM_189
+	anim_data_pointer AnimData190 ; SPRITE_ANIM_190
+	anim_data_pointer AnimData191 ; SPRITE_ANIM_191
+	anim_data_pointer AnimData192 ; SPRITE_ANIM_192
+	anim_data_pointer AnimData193 ; SPRITE_ANIM_193
+	anim_data_pointer AnimData194 ; SPRITE_ANIM_194
+	anim_data_pointer AnimData195 ; SPRITE_ANIM_195
+	anim_data_pointer AnimData196 ; SPRITE_ANIM_196
+	anim_data_pointer AnimData197 ; SPRITE_ANIM_197
+	anim_data_pointer AnimData198 ; SPRITE_ANIM_198
+	anim_data_pointer AnimData199 ; SPRITE_ANIM_199
+	anim_data_pointer AnimData200 ; SPRITE_ANIM_200
+	anim_data_pointer AnimData201 ; SPRITE_ANIM_201
+	anim_data_pointer AnimData202 ; SPRITE_ANIM_202
+	anim_data_pointer AnimData203 ; SPRITE_ANIM_203
+	anim_data_pointer AnimData204 ; SPRITE_ANIM_204
+	anim_data_pointer AnimData205 ; SPRITE_ANIM_205
+	anim_data_pointer AnimData206 ; SPRITE_ANIM_206
+	anim_data_pointer AnimData207 ; SPRITE_ANIM_207
+	anim_data_pointer AnimData208 ; SPRITE_ANIM_208
+	anim_data_pointer AnimData209 ; SPRITE_ANIM_209
+	anim_data_pointer AnimData210 ; SPRITE_ANIM_210
+	anim_data_pointer AnimData211 ; SPRITE_ANIM_211
+	anim_data_pointer AnimData212 ; SPRITE_ANIM_212
+	anim_data_pointer AnimData213 ; SPRITE_ANIM_213
+	anim_data_pointer AnimData214 ; SPRITE_ANIM_214
+	anim_data_pointer AnimData215 ; SPRITE_ANIM_215
+	anim_data_pointer AnimData216 ; SPRITE_ANIM_216
diff --git a/src/engine/gfx/sprite_vblank.asm b/src/engine/gfx/sprite_vblank.asm
new file mode 100644
index 0000000..5f099a1
--- /dev/null
+++ b/src/engine/gfx/sprite_vblank.asm
@@ -0,0 +1,39 @@
+; empties screen and replaces
+; wVBlankFunctionTrampoline with HandleAllSpriteAnimations
+SetSpriteAnimationsAsVBlankFunction:
+	call EmptyScreen
+	call Set_OBJ_8x8
+	call Func_3ca4
+	lb de, $38, $7f
+	call SetupText
+	ld hl, wVBlankFunctionTrampoline + 1
+	ld de, wVBlankFunctionTrampolineBackup
+	call BackupVBlankFunctionTrampoline
+	di
+	ld [hl], LOW(HandleAllSpriteAnimations)
+	inc hl
+	ld [hl], HIGH(HandleAllSpriteAnimations)
+	ei
+	ret
+
+; sets backup VBlank function as wVBlankFunctionTrampoline
+RestoreVBlankFunction:
+	ld hl, wVBlankFunctionTrampolineBackup
+	ld de, wVBlankFunctionTrampoline + 1
+	call BackupVBlankFunctionTrampoline
+	call Func_3ca4
+	bank1call ZeroObjectPositionsAndToggleOAMCopy
+	ret
+
+; copies 2 bytes from hl to de while interrupts are disabled
+; used to load or store wVBlankFunctionTrampoline
+; to wVBlankFunctionTrampolineBackup
+BackupVBlankFunctionTrampoline:
+	di
+	ld a, [hli]
+	ld [de], a
+	inc de
+	ld a, [hld]
+	ld [de], a
+	ei
+	ret
diff --git a/src/engine/gfx/sprites.asm b/src/engine/gfx/sprites.asm
new file mode 100644
index 0000000..c2aa277
--- /dev/null
+++ b/src/engine/gfx/sprites.asm
@@ -0,0 +1,122 @@
+; \1 = gfx pointer
+; \2 = number of tiles
+gfx_pointer: MACRO
+	dwb \1, BANK(\1) - BANK(Sprites)
+	db \2
+ENDM
+
+Sprites:
+	gfx_pointer OWPlayerGfx,        $14 ; SPRITE_OW_PLAYER
+	gfx_pointer OWRonaldGfx,        $14 ; SPRITE_OW_RONALD
+	gfx_pointer OWDrMasonGfx,       $14 ; SPRITE_OW_DRMASON
+	gfx_pointer OWIshiharaGfx,      $14 ; SPRITE_OW_ISHIHARA
+	gfx_pointer OWImakuniGfx,       $14 ; SPRITE_OW_IMAKUNI
+	gfx_pointer OWNikkiGfx,         $14 ; SPRITE_OW_NIKKI
+	gfx_pointer OWRickGfx,          $14 ; SPRITE_OW_RICK
+	gfx_pointer OWKenGfx,           $14 ; SPRITE_OW_KEN
+	gfx_pointer OWAmyGfx,           $1b ; SPRITE_OW_AMY
+	gfx_pointer OWIsaacGfx,         $14 ; SPRITE_OW_ISAAC
+	gfx_pointer OWMitchGfx,         $14 ; SPRITE_OW_MITCH
+	gfx_pointer OWGeneGfx,          $14 ; SPRITE_OW_GENE
+	gfx_pointer OWMurrayGfx,        $14 ; SPRITE_OW_MURRAY
+	gfx_pointer OWCourtneyGfx,      $14 ; SPRITE_OW_COURTNEY
+	gfx_pointer OWSteveGfx,         $14 ; SPRITE_OW_STEVE
+	gfx_pointer OWJackGfx,          $14 ; SPRITE_OW_JACK
+	gfx_pointer OWRodGfx,           $14 ; SPRITE_OW_ROD
+	gfx_pointer OWBoyGfx,           $14 ; SPRITE_OW_BOY
+	gfx_pointer OWLadGfx,           $14 ; SPRITE_OW_LAD
+	gfx_pointer OWSpecsGfx,         $14 ; SPRITE_OW_SPECS
+	gfx_pointer OWButchGfx,         $14 ; SPRITE_OW_BUTCH
+	gfx_pointer OWManiaGfx,         $14 ; SPRITE_OW_MANIA
+	gfx_pointer OWJoshuaGfx,        $14 ; SPRITE_OW_JOSHUA
+	gfx_pointer OWHoodGfx,          $14 ; SPRITE_OW_HOOD
+	gfx_pointer OWTechGfx,          $14 ; SPRITE_OW_TECH
+	gfx_pointer OWChapGfx,          $14 ; SPRITE_OW_CHAP
+	gfx_pointer OWManGfx,           $14 ; SPRITE_OW_MAN
+	gfx_pointer OWPappyGfx,         $14 ; SPRITE_OW_PAPPY
+	gfx_pointer OWGirlGfx,          $14 ; SPRITE_OW_GIRL
+	gfx_pointer OWLass1Gfx,         $14 ; SPRITE_OW_LASS1
+	gfx_pointer OWLass2Gfx,         $14 ; SPRITE_OW_LASS2
+	gfx_pointer OWLass3Gfx,         $14 ; SPRITE_OW_LASS3
+	gfx_pointer OWSwimmerGfx,       $14 ; SPRITE_OW_SWIMMER
+	gfx_pointer OWClerkGfx,         $08 ; SPRITE_OW_CLERK
+	gfx_pointer OWGalGfx,           $14 ; SPRITE_OW_GAL
+	gfx_pointer OWWomanGfx,         $14 ; SPRITE_OW_WOMAN
+	gfx_pointer OWGrannyGfx,        $14 ; SPRITE_OW_GRANNY
+	gfx_pointer OverworldMapOAMGfx, $08 ; SPRITE_OW_MAP_OAM
+	gfx_pointer Duel0Gfx,           $16 ; SPRITE_DUEL_0
+	gfx_pointer Duel63Gfx,          $0a ; SPRITE_DUEL_63
+	gfx_pointer DuelGlowGfx,        $0b ; SPRITE_DUEL_GLOW
+	gfx_pointer Duel1Gfx,           $06 ; SPRITE_DUEL_1
+	gfx_pointer Duel2Gfx,           $08 ; SPRITE_DUEL_2
+	gfx_pointer Duel55Gfx,          $02 ; SPRITE_DUEL_55
+	gfx_pointer Duel58Gfx,          $04 ; SPRITE_DUEL_58
+	gfx_pointer Duel3Gfx,           $09 ; SPRITE_DUEL_3
+	gfx_pointer Duel4Gfx,           $12 ; SPRITE_DUEL_4
+	gfx_pointer Duel5Gfx,           $09 ; SPRITE_DUEL_5
+	gfx_pointer Duel6Gfx,           $11 ; SPRITE_DUEL_6
+	gfx_pointer Duel59Gfx,          $03 ; SPRITE_DUEL_59
+	gfx_pointer Duel7Gfx,           $2d ; SPRITE_DUEL_7
+	gfx_pointer Duel8Gfx,           $0d ; SPRITE_DUEL_8
+	gfx_pointer Duel9Gfx,           $1c ; SPRITE_DUEL_9
+	gfx_pointer Duel10Gfx,          $4c ; SPRITE_DUEL_10
+	gfx_pointer Duel61Gfx,          $03 ; SPRITE_DUEL_61
+	gfx_pointer Duel11Gfx,          $1b ; SPRITE_DUEL_11
+	gfx_pointer Duel12Gfx,          $07 ; SPRITE_DUEL_12
+	gfx_pointer Duel13Gfx,          $0c ; SPRITE_DUEL_13
+	gfx_pointer Duel62Gfx,          $01 ; SPRITE_DUEL_62
+	gfx_pointer Duel14Gfx,          $22 ; SPRITE_DUEL_14
+	gfx_pointer Duel15Gfx,          $20 ; SPRITE_DUEL_15
+	gfx_pointer Duel16Gfx,          $0a ; SPRITE_DUEL_16
+	gfx_pointer Duel17Gfx,          $25 ; SPRITE_DUEL_17
+	gfx_pointer Duel18Gfx,          $18 ; SPRITE_DUEL_18
+	gfx_pointer Duel19Gfx,          $1b ; SPRITE_DUEL_19
+	gfx_pointer Duel20Gfx,          $08 ; SPRITE_DUEL_20
+	gfx_pointer Duel21Gfx,          $0d ; SPRITE_DUEL_21
+	gfx_pointer Duel22Gfx,          $22 ; SPRITE_DUEL_22
+	gfx_pointer Duel23Gfx,          $0c ; SPRITE_DUEL_23
+	gfx_pointer Duel24Gfx,          $25 ; SPRITE_DUEL_24
+	gfx_pointer Duel25Gfx,          $22 ; SPRITE_DUEL_25
+	gfx_pointer Duel26Gfx,          $0c ; SPRITE_DUEL_26
+	gfx_pointer Duel27Gfx,          $4c ; SPRITE_DUEL_27
+	gfx_pointer Duel28Gfx,          $08 ; SPRITE_DUEL_28
+	gfx_pointer Duel29Gfx,          $07 ; SPRITE_DUEL_29
+	gfx_pointer Duel56Gfx,          $01 ; SPRITE_DUEL_56
+	gfx_pointer Duel30Gfx,          $1a ; SPRITE_DUEL_30
+	gfx_pointer Duel31Gfx,          $0a ; SPRITE_DUEL_31
+	gfx_pointer Duel32Gfx,          $2e ; SPRITE_DUEL_32
+	gfx_pointer Duel33Gfx,          $08 ; SPRITE_DUEL_33
+	gfx_pointer Duel34Gfx,          $07 ; SPRITE_DUEL_34
+	gfx_pointer Duel35Gfx,          $1c ; SPRITE_DUEL_35
+	gfx_pointer Duel66Gfx,          $04 ; SPRITE_DUEL_66
+	gfx_pointer Duel36Gfx,          $08 ; SPRITE_DUEL_36
+	gfx_pointer Duel37Gfx,          $0b ; SPRITE_DUEL_37
+	gfx_pointer Duel57Gfx,          $01 ; SPRITE_DUEL_57
+	gfx_pointer Duel38Gfx,          $1c ; SPRITE_DUEL_38
+	gfx_pointer Duel39Gfx,          $16 ; SPRITE_DUEL_39
+	gfx_pointer Duel40Gfx,          $10 ; SPRITE_DUEL_40
+	gfx_pointer Duel41Gfx,          $0f ; SPRITE_DUEL_41
+	gfx_pointer Duel42Gfx,          $07 ; SPRITE_DUEL_42
+	gfx_pointer Duel43Gfx,          $0a ; SPRITE_DUEL_43
+	gfx_pointer Duel44Gfx,          $09 ; SPRITE_DUEL_44
+	gfx_pointer Duel60Gfx,          $02 ; SPRITE_DUEL_60
+	gfx_pointer Duel64Gfx,          $02 ; SPRITE_DUEL_64
+	gfx_pointer Duel45Gfx,          $03 ; SPRITE_DUEL_45
+	gfx_pointer Duel46Gfx,          $08 ; SPRITE_DUEL_46
+	gfx_pointer Duel47Gfx,          $0f ; SPRITE_DUEL_47
+	gfx_pointer Duel48Gfx,          $03 ; SPRITE_DUEL_48
+	gfx_pointer Duel49Gfx,          $05 ; SPRITE_DUEL_49
+	gfx_pointer Duel50Gfx,          $17 ; SPRITE_DUEL_50
+	gfx_pointer Duel51Gfx,          $36 ; SPRITE_DUEL_WON_LOST_DRAW
+	gfx_pointer Duel52Gfx,          $0b ; SPRITE_DUEL_52
+	gfx_pointer Duel53Gfx,          $06 ; SPRITE_DUEL_53
+	gfx_pointer Duel54Gfx,          $16 ; SPRITE_DUEL_54
+	gfx_pointer BoosterPackOAMGfx,  $20 ; SPRITE_BOOSTER_PACK_OAM
+	gfx_pointer PressStartGfx,      $14 ; SPRITE_PRESS_START
+	gfx_pointer GrassGfx,           $04 ; SPRITE_GRASS
+	gfx_pointer FireGfx,            $04 ; SPRITE_FIRE
+	gfx_pointer WaterGfx,           $04 ; SPRITE_WATER
+	gfx_pointer ColorlessGfx,       $04 ; SPRITE_COLORLESS
+	gfx_pointer LightningGfx,       $04 ; SPRITE_LIGHTNING
+	gfx_pointer PsychicGfx,         $04 ; SPRITE_PSYCHIC
+	gfx_pointer FightingGfx,        $04 ; SPRITE_FIGHTING
diff --git a/src/engine/gfx/tilemaps.asm b/src/engine/gfx/tilemaps.asm
new file mode 100644
index 0000000..216cca1
--- /dev/null
+++ b/src/engine/gfx/tilemaps.asm
@@ -0,0 +1,114 @@
+; \1 = pointer
+; \2 = tileset
+tilemap: MACRO
+	dwb \1, BANK(\1) - BANK(Tilemaps)
+	db \2
+ENDM
+
+Tilemaps:
+	tilemap OverworldMapTilemap,               TILESET_OVERWORLD_MAP               ; TILEMAP_OVERWORLD_MAP
+	tilemap OverworldMapCGBTilemap,            TILESET_OVERWORLD_MAP               ; TILEMAP_OVERWORLD_MAP_CGB
+	tilemap MasonLaboratoryTilemap,            TILESET_MASON_LABORATORY            ; TILEMAP_MASON_LABORATORY
+	tilemap MasonLaboratoryCGBTilemap,         TILESET_MASON_LABORATORY            ; TILEMAP_MASON_LABORATORY_CGB
+	tilemap ChallengeMachineMapEventTilemap,   TILESET_MASON_LABORATORY            ; TILEMAP_CHALLENGE_MACHINE_MAP_EVENT
+	tilemap ChallengeMachineMapEventCGBTilemap,TILESET_MASON_LABORATORY            ; TILEMAP_CHALLENGE_MACHINE_MAP_EVENT_CGB
+	tilemap DeckMachineRoomTilemap,            TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_ROOM
+	tilemap DeckMachineRoomCGBTilemap,         TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_ROOM_CGB
+	tilemap DeckMachineMapEventTilemap,        TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_MAP_EVENT
+	tilemap DeckMachineMapEventCGBTilemap,     TILESET_MASON_LABORATORY            ; TILEMAP_DECK_MACHINE_MAP_EVENT_CGB
+	tilemap IshiharaTilemap,                   TILESET_ISHIHARA                    ; TILEMAP_ISHIHARA
+	tilemap IshiharaCGBTilemap,                TILESET_ISHIHARA                    ; TILEMAP_ISHIHARA_CGB
+	tilemap FightingClubEntranceTilemap,       TILESET_CLUB_ENTRANCE               ; TILEMAP_FIGHTING_CLUB_ENTRANCE
+	tilemap FightingClubEntranceCGBTilemap,    TILESET_CLUB_ENTRANCE               ; TILEMAP_FIGHTING_CLUB_ENTRANCE_CGB
+	tilemap RockClubEntranceTilemap,           TILESET_CLUB_ENTRANCE               ; TILEMAP_ROCK_CLUB_ENTRANCE
+	tilemap RockClubEntranceCGBTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_ROCK_CLUB_ENTRANCE_CGB
+	tilemap WaterClubEntranceTilemap,          TILESET_CLUB_ENTRANCE               ; TILEMAP_WATER_CLUB_ENTRANCE
+	tilemap WaterClubEntranceCGBTilemap,       TILESET_CLUB_ENTRANCE               ; TILEMAP_WATER_CLUB_ENTRANCE_CGB
+	tilemap LightningClubEntranceTilemap,      TILESET_CLUB_ENTRANCE               ; TILEMAP_LIGHTNING_CLUB_ENTRANCE
+	tilemap LightningClubEntranceCGBTilemap,   TILESET_CLUB_ENTRANCE               ; TILEMAP_LIGHTNING_CLUB_ENTRANCE_CGB
+	tilemap GrassClubEntranceTilemap,          TILESET_CLUB_ENTRANCE               ; TILEMAP_GRASS_CLUB_ENTRANCE
+	tilemap GrassClubEntranceCGBTilemap,       TILESET_CLUB_ENTRANCE               ; TILEMAP_GRASS_CLUB_ENTRANCE_CGB
+	tilemap PsychicClubEntranceTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_PSYCHIC_CLUB_ENTRANCE
+	tilemap PsychicClubEntranceCGBTilemap,     TILESET_CLUB_ENTRANCE               ; TILEMAP_PSYCHIC_CLUB_ENTRANCE_CGB
+	tilemap ScienceClubEntranceTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_SCIENCE_CLUB_ENTRANCE
+	tilemap ScienceClubEntranceCGBTilemap,     TILESET_CLUB_ENTRANCE               ; TILEMAP_SCIENCE_CLUB_ENTRANCE_CGB
+	tilemap FireClubEntranceTilemap,           TILESET_CLUB_ENTRANCE               ; TILEMAP_FIRE_CLUB_ENTRANCE
+	tilemap FireClubEntranceCGBTilemap,        TILESET_CLUB_ENTRANCE               ; TILEMAP_FIRE_CLUB_ENTRANCE_CGB
+	tilemap ChallengeHallEntranceTilemap,      TILESET_CLUB_ENTRANCE               ; TILEMAP_CHALLENGE_HALL_ENTRANCE
+	tilemap ChallengeHallEntranceCGBTilemap,   TILESET_CLUB_ENTRANCE               ; TILEMAP_CHALLENGE_HALL_ENTRANCE_CGB
+	tilemap ClubLobbyTilemap,                  TILESET_CLUB_LOBBY                  ; TILEMAP_CLUB_LOBBY
+	tilemap ClubLobbyCGBTilemap,               TILESET_CLUB_LOBBY                  ; TILEMAP_CLUB_LOBBY_CGB
+	tilemap FightingClubTilemap,               TILESET_FIGHTING_CLUB               ; TILEMAP_FIGHTING_CLUB
+	tilemap FightingClubCGBTilemap,            TILESET_FIGHTING_CLUB               ; TILEMAP_FIGHTING_CLUB_CGB
+	tilemap RockClubTilemap,                   TILESET_ROCK_CLUB                   ; TILEMAP_ROCK_CLUB
+	tilemap RockClubCGBTilemap,                TILESET_ROCK_CLUB                   ; TILEMAP_ROCK_CLUB_CGB
+	tilemap WaterClubTilemap,                  TILESET_WATER_CLUB                  ; TILEMAP_WATER_CLUB
+	tilemap WaterClubCGBTilemap,               TILESET_WATER_CLUB                  ; TILEMAP_WATER_CLUB_CGB
+	tilemap LightningClubTilemap,              TILESET_LIGHTNING_CLUB              ; TILEMAP_LIGHTNING_CLUB
+	tilemap LightningClubCGBTilemap,           TILESET_LIGHTNING_CLUB              ; TILEMAP_LIGHTNING_CLUB_CGB
+	tilemap GrassClubTilemap,                  TILESET_GRASS_CLUB                  ; TILEMAP_GRASS_CLUB
+	tilemap GrassClubCGBTilemap,               TILESET_GRASS_CLUB                  ; TILEMAP_GRASS_CLUB_CGB
+	tilemap PsychicClubTilemap,                TILESET_PSYCHIC_CLUB                ; TILEMAP_PSYCHIC_CLUB
+	tilemap PsychicClubCGBTilemap,             TILESET_PSYCHIC_CLUB                ; TILEMAP_PSYCHIC_CLUB_CGB
+	tilemap ScienceClubTilemap,                TILESET_SCIENCE_CLUB                ; TILEMAP_SCIENCE_CLUB
+	tilemap ScienceClubCGBTilemap,             TILESET_SCIENCE_CLUB                ; TILEMAP_SCIENCE_CLUB_CGB
+	tilemap FireClubTilemap,                   TILESET_FIRE_CLUB                   ; TILEMAP_FIRE_CLUB
+	tilemap FireClubCGBTilemap,                TILESET_FIRE_CLUB                   ; TILEMAP_FIRE_CLUB_CGB
+	tilemap ChallengeHallTilemap,              TILESET_CHALLENGE_HALL              ; TILEMAP_CHALLENGE_HALL
+	tilemap ChallengeHallCGBTilemap,           TILESET_CHALLENGE_HALL              ; TILEMAP_CHALLENGE_HALL_CGB
+	tilemap PokemonDomeEntranceTilemap,        TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_ENTRANCE
+	tilemap PokemonDomeEntranceCGBTilemap,     TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_ENTRANCE_CGB
+	tilemap PokemonDomeDoorMapEventTilemap,    TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_DOOR_MAP_EVENT
+	tilemap PokemonDomeDoorMapEventCGBTilemap, TILESET_POKEMON_DOME_ENTRANCE       ; TILEMAP_POKEMON_DOME_DOOR_MAP_EVENT_CGB
+	tilemap PokemonDomeTilemap,                TILESET_POKEMON_DOME                ; TILEMAP_POKEMON_DOME
+	tilemap PokemonDomeCGBTilemap,             TILESET_POKEMON_DOME                ; TILEMAP_POKEMON_DOME_CGB
+	tilemap HallOfHonorDoorMapEventTilemap,    TILESET_POKEMON_DOME                ; TILEMAP_HALL_OF_HONOR_DOOR_MAP_EVENT
+	tilemap HallOfHonorDoorMapEventCGBTilemap, TILESET_POKEMON_DOME                ; TILEMAP_HALL_OF_HONOR_DOOR_MAP_EVENT_CGB
+	tilemap HallOfHonorTilemap,                TILESET_HALL_OF_HONOR               ; TILEMAP_HALL_OF_HONOR
+	tilemap HallOfHonorCGBTilemap,             TILESET_HALL_OF_HONOR               ; TILEMAP_HALL_OF_HONOR_CGB
+	tilemap CardPopCGBTilemap,                 TILESET_CARD_POP                    ; TILEMAP_CARD_POP_CGB
+	tilemap CardPopTilemap,                    TILESET_CARD_POP                    ; TILEMAP_CARD_POP
+	tilemap GrassMedalTilemap,                 TILESET_MEDAL                       ; TILEMAP_GRASS_MEDAL
+	tilemap ScienceMedalTilemap,               TILESET_MEDAL                       ; TILEMAP_SCIENCE_MEDAL
+	tilemap FireMedalTilemap,                  TILESET_MEDAL                       ; TILEMAP_FIRE_MEDAL
+	tilemap WaterMedalTilemap,                 TILESET_MEDAL                       ; TILEMAP_WATER_MEDAL
+	tilemap LightningMedalTilemap,             TILESET_MEDAL                       ; TILEMAP_LIGHTNING_MEDAL
+	tilemap FightingMedalTilemap,              TILESET_MEDAL                       ; TILEMAP_FIGHTING_MEDAL
+	tilemap RockMedalTilemap,                  TILESET_MEDAL                       ; TILEMAP_ROCK_MEDAL
+	tilemap PsychicMedalTilemap,               TILESET_MEDAL                       ; TILEMAP_PSYCHIC_MEDAL
+	tilemap GameBoyLinkCGBTilemap,             TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK_CGB
+	tilemap GameBoyLinkTilemap,                TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK
+	tilemap GameBoyLinkConnectingCGBTilemap,   TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK_CONNECTING_CGB
+	tilemap GameBoyLinkConnectingTilemap,      TILESET_GAMEBOY_LINK                ; TILEMAP_GAMEBOY_LINK_CONNECTING
+	tilemap GameBoyPrinterCGBTilemap,          TILESET_GAMEBOY_PRINTER             ; TILEMAP_GAMEBOY_PRINTER_CGB
+	tilemap GameBoyPrinterTilemap,             TILESET_GAMEBOY_PRINTER             ; TILEMAP_GAMEBOY_PRINTER
+	tilemap ColosseumTilemap,                  TILESET_COLOSSEUM_1                 ; TILEMAP_COLOSSEUM
+	tilemap ColosseumCGBTilemap,               TILESET_COLOSSEUM_2                 ; TILEMAP_COLOSSEUM_CGB
+	tilemap EvolutionTilemap,                  TILESET_EVOLUTION_1                 ; TILEMAP_EVOLUTION
+	tilemap EvolutionCGBTilemap,               TILESET_EVOLUTION_2                 ; TILEMAP_EVOLUTION_CGB
+	tilemap MysteryTilemap,                    TILESET_MYSTERY_1                   ; TILEMAP_MYSTERY
+	tilemap MysteryCGBTilemap,                 TILESET_MYSTERY_2                   ; TILEMAP_MYSTERY_CGB
+	tilemap LaboratoryTilemap,                 TILESET_LABORATORY_1                ; TILEMAP_LABORATORY
+	tilemap LaboratoryCGBTilemap,              TILESET_LABORATORY_2                ; TILEMAP_LABORATORY_CGB
+	tilemap CharizardIntroTilemap,             TILESET_CHARIZARD_INTRO_1           ; TILEMAP_CHARIZARD_INTRO
+	tilemap CharizardIntroCGBTilemap,          TILESET_CHARIZARD_INTRO_2           ; TILEMAP_CHARIZARD_INTRO_CGB
+	tilemap ScytherIntroTilemap,               TILESET_SCYTHER_INTRO_1             ; TILEMAP_SCYTHER_INTRO
+	tilemap ScytherIntroCGBTilemap,            TILESET_SCYTHER_INTRO_2             ; TILEMAP_SCYTHER_INTRO_CGB
+	tilemap AerodactylIntroTilemap,            TILESET_AERODACTYL_INTRO_1          ; TILEMAP_AERODACTYL_INTRO
+	tilemap AerodactylIntroCGBTilemap,         TILESET_AERODACTYL_INTRO_2          ; TILEMAP_AERODACTYL_INTRO_CGB
+	tilemap JapaneseTitleScreenTilemap,        TILESET_JAPANESE_TITLE_SCREEN       ; TILEMAP_JAPANESE_TITLE_SCREEN
+	tilemap JapaneseTitleScreenCGBTilemap,     TILESET_JAPANESE_TITLE_SCREEN_CGB   ; TILEMAP_JAPANESE_TITLE_SCREEN_CGB
+	tilemap SolidTiles1Tilemap,                TILESET_SOLID_TILES_1               ; TILEMAP_SOLID_TILES_1
+	tilemap SolidTiles2Tilemap,                TILESET_SOLID_TILES_1               ; TILEMAP_SOLID_TILES_2
+	tilemap SolidTiles3Tilemap,                TILESET_SOLID_TILES_1               ; TILEMAP_SOLID_TILES_3
+	tilemap JapaneseTitleScreen2Tilemap,       TILESET_JAPANESE_TITLE_SCREEN_2     ; TILEMAP_JAPANESE_TITLE_SCREEN_2
+	tilemap JapaneseTitleScreen2CGBTilemap,    TILESET_JAPANESE_TITLE_SCREEN_2_CGB ; TILEMAP_JAPANESE_TITLE_SCREEN_2_CGB
+	tilemap SolidTiles4Tilemap,                TILESET_SOLID_TILES_2               ; TILEMAP_SOLID_TILES_4
+	tilemap PlayerTilemap,                     TILESET_PLAYER                      ; TILEMAP_PLAYER
+	tilemap OpponentTilemap,                   TILESET_RONALD                      ; TILEMAP_OPPONENT
+	tilemap TitleScreenTilemap,                TILESET_TITLE_SCREEN                ; TILEMAP_TITLE_SCREEN
+	tilemap TitleScreenCGBTilemap,             TILESET_TITLE_SCREEN_CGB            ; TILEMAP_TITLE_SCREEN_CGB
+	tilemap CopyrightTilemap,                  TILESET_COPYRIGHT                   ; TILEMAP_COPYRIGHT
+	tilemap CopyrightCGBTilemap,               TILESET_COPYRIGHT                   ; TILEMAP_COPYRIGHT_CGB
+	tilemap NintendoTilemap,                   TILESET_NINTENDO                    ; TILEMAP_NINTENDO
+	tilemap CompaniesTilemap,                  TILESET_COMPANIES                   ; TILEMAP_COMPANIES
diff --git a/src/engine/gfx/tilesets.asm b/src/engine/gfx/tilesets.asm
new file mode 100644
index 0000000..0b4f0af
--- /dev/null
+++ b/src/engine/gfx/tilesets.asm
@@ -0,0 +1,95 @@
+; \1 = pointer
+; \2 = number of tiles
+tileset: MACRO
+	dwb \1, BANK(\1) - BANK(Tilesets)
+	db \2
+ENDM
+
+Tilesets:
+	tileset OverworldMapTiles,             193 ; TILESET_OVERWORLD_MAP
+	tileset MasonLaboratoryTilesetGfx,     151 ; TILESET_MASON_LABORATORY
+	tileset IshiharaTilesetGfx,             77 ; TILESET_ISHIHARA
+	tileset ClubEntranceTilesetGfx,        129 ; TILESET_CLUB_ENTRANCE
+	tileset ClubLobbyTilesetGfx,           120 ; TILESET_CLUB_LOBBY
+	tileset FightingClubTilesetGfx,         99 ; TILESET_FIGHTING_CLUB
+	tileset RockClubTilesetGfx,             60 ; TILESET_ROCK_CLUB
+	tileset WaterClubTilesetGfx,           161 ; TILESET_WATER_CLUB
+	tileset LightningClubTilesetGfx,       131 ; TILESET_LIGHTNING_CLUB
+	tileset GrassClubTilesetGfx,            87 ; TILESET_GRASS_CLUB
+	tileset PsychicClubTilesetGfx,          58 ; TILESET_PSYCHIC_CLUB
+	tileset ScienceClubTilesetGfx,          82 ; TILESET_SCIENCE_CLUB
+	tileset FireClubTilesetGfx,             87 ; TILESET_FIRE_CLUB
+	tileset ChallengeHallTilesetGfx,       157 ; TILESET_CHALLENGE_HALL
+	tileset PokemonDomeEntranceTilesetGfx,  78 ; TILESET_POKEMON_DOME_ENTRANCE
+	tileset PokemonDomeTilesetGfx,         207 ; TILESET_POKEMON_DOME
+	tileset HallOfHonorTilesetGfx,         121 ; TILESET_HALL_OF_HONOR
+	tileset CardPopGfx,                    189 ; TILESET_CARD_POP
+	tileset MedalGfx,                       72 ; TILESET_MEDAL
+	tileset GameBoyLinkGfx,                109 ; TILESET_GAMEBOY_LINK
+	tileset GameBoyPrinterGfx,              93 ; TILESET_GAMEBOY_PRINTER
+	tileset Colosseum1Gfx,                  96 ; TILESET_COLOSSEUM_1
+	tileset Colosseum2Gfx,                  86 ; TILESET_COLOSSEUM_2
+	tileset Evolution1Gfx,                  96 ; TILESET_EVOLUTION_1
+	tileset Evolution2Gfx,                  86 ; TILESET_EVOLUTION_2
+	tileset Mystery1Gfx,                    96 ; TILESET_MYSTERY_1
+	tileset Mystery2Gfx,                    86 ; TILESET_MYSTERY_2
+	tileset Laboratory1Gfx,                 96 ; TILESET_LABORATORY_1
+	tileset Laboratory2Gfx,                 86 ; TILESET_LABORATORY_2
+	tileset CharizardIntro1Gfx,             96 ; TILESET_CHARIZARD_INTRO_1
+	tileset CharizardIntro2Gfx,             96 ; TILESET_CHARIZARD_INTRO_2
+	tileset ScytherIntro1Gfx,               96 ; TILESET_SCYTHER_INTRO_1
+	tileset ScytherIntro2Gfx,               96 ; TILESET_SCYTHER_INTRO_2
+	tileset AerodactylIntro1Gfx,            96 ; TILESET_AERODACTYL_INTRO_1
+	tileset AerodactylIntro2Gfx,            96 ; TILESET_AERODACTYL_INTRO_2
+	tileset JapaneseTitleScreenGfx,         97 ; TILESET_JAPANESE_TITLE_SCREEN
+	tileset JapaneseTitleScreenCGBGfx,      97 ; TILESET_JAPANESE_TITLE_SCREEN_CGB
+	tileset SolidTiles1,                     4 ; TILESET_SOLID_TILES_1
+	tileset JapaneseTitleScreen2Gfx,       244 ; TILESET_JAPANESE_TITLE_SCREEN_2
+	tileset JapaneseTitleScreen2CGBGfx,     59 ; TILESET_JAPANESE_TITLE_SCREEN_2_CGB
+	tileset SolidTiles2,                     4 ; TILESET_SOLID_TILES_2
+	tileset PlayerGfx,                      36 ; TILESET_PLAYER
+	tileset RonaldGfx,                      36 ; TILESET_RONALD
+	tileset TitleScreenGfx,                220 ; TILESET_TITLE_SCREEN
+	tileset TitleScreenCGBGfx,             212 ; TILESET_TITLE_SCREEN_CGB
+	tileset CopyrightGfx,                   36 ; TILESET_COPYRIGHT
+	tileset NintendoGfx,                    24 ; TILESET_NINTENDO
+	tileset CompaniesGfx,                   49 ; TILESET_COMPANIES
+	tileset SamGfx,                         36 ; TILESET_SAM
+	tileset ImakuniGfx,                     36 ; TILESET_IMAKUNI
+	tileset NikkiGfx,                       36 ; TILESET_NIKKI
+	tileset RickGfx,                        36 ; TILESET_RICK
+	tileset KenGfx,                         36 ; TILESET_KEN
+	tileset AmyGfx,                         36 ; TILESET_AMY
+	tileset IsaacGfx,                       36 ; TILESET_ISAAC
+	tileset MitchGfx,                       36 ; TILESET_MITCH
+	tileset GeneGfx,                        36 ; TILESET_GENE
+	tileset MurrayGfx,                      36 ; TILESET_MURRAY
+	tileset CourtneyGfx,                    36 ; TILESET_COURTNEY
+	tileset SteveGfx,                       36 ; TILESET_STEVE
+	tileset JackGfx,                        36 ; TILESET_JACK
+	tileset RodGfx,                         36 ; TILESET_ROD
+	tileset JosephGfx,                      36 ; TILESET_JOSEPH
+	tileset DavidGfx,                       36 ; TILESET_DAVID
+	tileset ErikGfx,                        36 ; TILESET_ERIK
+	tileset JohnGfx,                        36 ; TILESET_JOHN
+	tileset AdamGfx,                        36 ; TILESET_ADAM
+	tileset JonathanGfx,                    36 ; TILESET_JONATHAN
+	tileset JoshuaGfx,                      36 ; TILESET_JOSHUA
+	tileset NicholasGfx,                    36 ; TILESET_NICHOLAS
+	tileset BrandonGfx,                     36 ; TILESET_BRANDON
+	tileset MatthewGfx,                     36 ; TILESET_MATTHEW
+	tileset RyanGfx,                        36 ; TILESET_RYAN
+	tileset AndrewGfx,                      36 ; TILESET_ANDREW
+	tileset ChrisGfx,                       36 ; TILESET_CHRIS
+	tileset MichaelGfx,                     36 ; TILESET_MICHAEL
+	tileset DanielGfx,                      36 ; TILESET_DANIEL
+	tileset RobertGfx,                      36 ; TILESET_ROBERT
+	tileset BrittanyGfx,                    36 ; TILESET_BRITTANY
+	tileset KristinGfx,                     36 ; TILESET_KRISTIN
+	tileset HeatherGfx,                     36 ; TILESET_HEATHER
+	tileset SaraGfx,                        36 ; TILESET_SARA
+	tileset AmandaGfx,                      36 ; TILESET_AMANDA
+	tileset JenniferGfx,                    36 ; TILESET_JENNIFER
+	tileset JessicaGfx,                     36 ; TILESET_JESSICA
+	tileset StephanieGfx,                   36 ; TILESET_STEPHANIE
+	tileset AaronGfx,                       36 ; TILESET_AARON
diff --git a/src/engine/input_name.asm b/src/engine/input_name.asm
new file mode 100644
index 0000000..edcac4c
--- /dev/null
+++ b/src/engine/input_name.asm
@@ -0,0 +1,1417 @@
+WhatIsYourNameData:
+	textitem 1, 1, WhatIsYourNameText
+	db $ff
+; [Deck1Data ~ Deck4Data]
+; These are directed from InputCurDeckName,
+; without any bank description.
+; That is, the developers hard-coded it. -_-;;
+Deck1Data:
+	textitem 2, 1, Deck1Text
+	textitem 14, 1, DeckText
+	db $ff
+Deck2Data:
+	textitem 2, 1, Deck2Text
+	textitem 14, 1, DeckText
+	db $ff
+Deck3Data:
+	textitem 2, 1, Deck3Text
+	textitem 14, 1, DeckText
+	db $ff
+Deck4Data:
+	textitem 2, 1, Deck4Text
+	textitem 14, 1, DeckText
+	db $ff
+
+; set each byte zero from hl for b bytes.
+ClearMemory:
+	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
+
+; play different sfx by a.
+; if a is 0xff play SFX_03 (usually following a B press),
+; else play SFX_02 (usually following an A press).
+PlayAcceptOrDeclineSFX:
+	push af
+	inc a
+	jr z, .sfx_decline
+	ld a, SFX_02
+	jr .sfx_accept
+.sfx_decline
+	ld a, SFX_03
+.sfx_accept
+	call PlaySFX
+	pop af
+	ret
+
+; get player name from the user
+; into hl
+InputPlayerName:
+	ld e, l
+	ld d, h
+	ld a, MAX_PLAYER_NAME_LENGTH
+	ld hl, WhatIsYourNameData
+	lb bc, 12, 1
+	call InitializeInputName
+	call Set_OBJ_8x8
+	xor a
+	ld [wTileMapFill], a
+	call EmptyScreen
+	call ZeroObjectPositions
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call LoadSymbolsFont
+	lb de, $38, $bf
+	call SetupText
+	call LoadTextCursorTile
+	ld a, $02
+	ld [wd009], a
+	call DrawNamingScreenBG
+	xor a
+	ld [wNamingScreenCursorX], a
+	ld [wNamingScreenCursorY], a
+	ld a, $09
+	ld [wNamingScreenNumColumns], a
+	ld a, $06
+	ld [wNamingScreenKeyboardHeight], a
+	ld a, $0f
+	ld [wVisibleCursorTile], a
+	ld a, $00
+	ld [wInvisibleCursorTile], a
+.loop
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call DoFrame
+	call UpdateRNGSources
+	ldh a, [hDPadHeld]
+	and START
+	jr z, .else
+	; if pressed start button.
+	ld a, $01
+	call PlayAcceptOrDeclineSFX
+	call Func_1aa07
+	ld a, 6
+	ld [wNamingScreenCursorX], a
+	ld a, 5
+	ld [wNamingScreenCursorY], a
+	call Func_1aa23
+	jr .loop
+.else
+	call NamingScreen_CheckButtonState
+	jr nc, .loop ; if not pressed, go back to the loop.
+	cp $ff
+	jr z, .on_b_button
+	; on A button.
+	call NamingScreen_ProcessInput
+	jr nc, .loop
+	; if the player selected the end button,
+	; end its naming.
+	call FinalizeInputName
+	ret
+.on_b_button
+	ld a, [wNamingScreenBufferLength]
+	or a
+	jr z, .loop ; empty string?
+	; erase one character.
+	ld e, a
+	ld d, 0
+	ld hl, wNamingScreenBuffer
+	add hl, de
+	dec hl
+	dec hl
+	ld [hl], TX_END
+	ld hl, wNamingScreenBufferLength ; note that its unit is byte, not word.
+	dec [hl]
+	dec [hl]
+	call PrintPlayerNameFromInput
+	jr .loop
+
+; it's called when naming(either player's or deck's) starts.
+; a: maximum length of name(depending on whether player's or deck's).
+; bc: position of name.
+; de: dest. pointer.
+; hl: pointer to text item of the question.
+InitializeInputName:
+	ld [wNamingScreenBufferMaxLength], a
+	push hl
+	ld hl, wNamingScreenNamePosition
+	ld [hl], b
+	inc hl
+	ld [hl], c
+	pop hl
+	ld b, h
+	ld c, l
+	; set the question string.
+	ld hl, wNamingScreenQuestionPointer
+	ld [hl], c
+	inc hl
+	ld [hl], b
+	; set the destination buffer.
+	ld hl, wNamingScreenDestPointer
+	ld [hl], e
+	inc hl
+	ld [hl], d
+	; clear the name buffer.
+	ld a, NAMING_SCREEN_BUFFER_LENGTH
+	ld hl, wNamingScreenBuffer
+	call ClearMemory
+	ld hl, wNamingScreenBuffer
+	ld a, [wNamingScreenBufferMaxLength]
+	ld b, a
+	inc b
+.loop
+	; copy data from de to hl
+	; for b bytes.
+	ld a, [de]
+	inc de
+	ld [hli], a
+	dec b
+	jr nz, .loop
+	ld hl, wNamingScreenBuffer
+	call GetTextLengthInTiles
+	ld a, c
+	ld [wNamingScreenBufferLength], a
+	ret
+
+FinalizeInputName:
+	ld hl, wNamingScreenDestPointer
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld l, e
+	ld h, d
+	ld de, wNamingScreenBuffer
+	ld a, [wNamingScreenBufferMaxLength]
+	ld b, a
+	inc b
+	jr InitializeInputName.loop
+
+; draws the keyboard frame
+; and the question if it exists.
+DrawNamingScreenBG:
+	call DrawTextboxForKeyboard
+	call PrintPlayerNameFromInput
+	ld hl, wNamingScreenQuestionPointer
+	ld c, [hl]
+	inc hl
+	ld a, [hl]
+	ld h, a
+	or c
+	jr z, .put_text_end
+	; print the question string.
+	; ex) "What is your name?"
+	ld l, c
+	call PlaceTextItems
+.put_text_end
+	; print "End".
+	ld hl, .data
+	call PlaceTextItems
+	ldtx hl, PlayerNameKeyboardText
+	lb de, 2, 4
+	call InitTextPrinting
+	call ProcessTextFromID
+	call EnableLCD
+	ret
+.data
+	textitem $0f, $10, EndText ; "End"
+	db $ff
+
+DrawTextboxForKeyboard:
+	lb de, 0, 3 ; x, y
+	lb bc, 20, 15 ; w, h
+	call DrawRegularTextBox
+	ret
+
+PrintPlayerNameFromInput:
+	ld hl, wNamingScreenNamePosition
+	ld d, [hl]
+	inc hl
+	ld e, [hl]
+	push de
+	call InitTextPrinting
+	ld a, [wNamingScreenBufferMaxLength]
+	ld e, a
+	ld a, $14
+	sub e
+	inc a
+	ld e, a
+	ld d, 0
+	; print the underbars
+	; before print the input.
+	ld hl, .char_underbar
+	add hl, de
+	call ProcessText
+	pop de
+	call InitTextPrinting
+	; print the input from the user.
+	ld hl, wNamingScreenBuffer
+	call ProcessText
+	ret
+.char_underbar
+	db $56
+rept 10
+	textfw3 "_"
+endr
+	done
+
+; check if button pressed.
+; if pressed, set the carry bit on.
+NamingScreen_CheckButtonState:
+	xor a
+	ld [wPlaysSfx], a
+	ldh a, [hDPadHeld]
+	or a
+	jp z, .no_press
+	; detected any button press.
+	ld b, a
+	ld a, [wNamingScreenKeyboardHeight]
+	ld c, a
+	ld a, [wNamingScreenCursorX]
+	ld h, a
+	ld a, [wNamingScreenCursorY]
+	ld l, a
+	bit D_UP_F, b
+	jr z, .asm_692c
+	; up
+	dec a
+	bit D_DOWN_F, a
+	jr z, .asm_69a7
+	ld a, c
+	dec a
+	jr .asm_69a7
+.asm_692c
+	bit D_DOWN_F, b
+	jr z, .asm_6937
+	; down
+	inc a
+	cp c
+	jr c, .asm_69a7
+	xor a
+	jr .asm_69a7
+.asm_6937
+	ld a, [wNamingScreenNumColumns]
+	ld c, a
+	ld a, h
+	bit D_LEFT_F, b
+	jr z, .asm_6974
+	; left
+	ld d, a
+	ld a, $06
+	cp l
+	ld a, d
+	jr nz, .asm_696b
+	push hl
+	push bc
+	push af
+	call GetCharInfoFromPos_Player
+	inc hl
+	inc hl
+	inc hl
+	inc hl
+	inc hl
+	ld a, [hl]
+	dec a
+	ld d, a
+	pop af
+	pop bc
+	pop hl
+	sub d
+	cp $ff
+	jr nz, .asm_6962
+	ld a, c
+	sub $02
+	jr .asm_69aa
+.asm_6962
+	cp $fe
+	jr nz, .asm_696b
+	ld a, c
+	sub $03
+	jr .asm_69aa
+.asm_696b
+	dec a
+	bit D_DOWN_F, a
+	jr z, .asm_69aa
+	ld a, c
+	dec a
+	jr .asm_69aa
+.asm_6974
+	bit D_RIGHT_F, b
+	jr z, .no_press
+	ld d, a
+	ld a, $06
+	cp l
+	ld a, d
+	jr nz, .asm_6990
+	push hl
+	push bc
+	push af
+	call GetCharInfoFromPos_Player
+	inc hl
+	inc hl
+	inc hl
+	inc hl
+	ld a, [hl]
+	dec a
+	ld d, a
+	pop af
+	pop bc
+	pop hl
+	add d
+.asm_6990
+	inc a
+	cp c
+	jr c, .asm_69aa
+	inc c
+	cp c
+	jr c, .asm_69a4
+	inc c
+	cp c
+	jr c, .asm_69a0
+	ld a, $02
+	jr .asm_69aa
+.asm_69a0
+	ld a, $01
+	jr .asm_69aa
+.asm_69a4
+	xor a
+	jr .asm_69aa
+.asm_69a7
+	ld l, a
+	jr .asm_69ab
+.asm_69aa
+	ld h, a
+.asm_69ab
+	push hl
+	call GetCharInfoFromPos_Player
+	inc hl
+	inc hl
+	inc hl
+	ld a, [wd009]
+	cp $02
+	jr nz, .asm_69bb
+	inc hl
+	inc hl
+.asm_69bb
+	ld d, [hl]
+	push de
+	call Func_1aa07
+	pop de
+	pop hl
+	ld a, l
+	ld [wNamingScreenCursorY], a
+	ld a, h
+	ld [wNamingScreenCursorX], a
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+	ld a, $06
+	cp d
+	jp z, NamingScreen_CheckButtonState
+	ld a, $01
+	ld [wPlaysSfx], a
+.no_press
+	ldh a, [hKeysPressed]
+	and A_BUTTON | B_BUTTON
+	jr z, .asm_69ef
+	and A_BUTTON
+	jr nz, .asm_69e5
+	ld a, $ff
+.asm_69e5
+	call PlayAcceptOrDeclineSFX
+	push af
+	call Func_1aa23
+	pop af
+	scf
+	ret
+.asm_69ef
+	ld a, [wPlaysSfx]
+	or a
+	jr z, .asm_69f8
+	call PlaySFX
+.asm_69f8
+	ld hl, wCheckMenuCursorBlinkCounter
+	ld a, [hl]
+	inc [hl]
+	and $0f
+	ret nz
+	ld a, [wVisibleCursorTile]
+	bit 4, [hl]
+	jr z, Func_1aa07.asm_6a0a
+
+Func_1aa07:
+	ld a, [wInvisibleCursorTile]
+.asm_6a0a
+	ld e, a
+	ld a, [wNamingScreenCursorX]
+	ld h, a
+	ld a, [wNamingScreenCursorY]
+	ld l, a
+	call GetCharInfoFromPos_Player
+	ld a, [hli]
+	ld c, a
+	ld b, [hl]
+	dec b
+	ld a, e
+	call Func_1aa28
+	call WriteByteToBGMap0
+	or a
+	ret
+
+Func_1aa23:
+	ld a, [wVisibleCursorTile]
+	jr Func_1aa07.asm_6a0a
+
+Func_1aa28:
+	push af
+	push bc
+	push de
+	push hl
+	push af
+	call ZeroObjectPositions
+	pop af
+	ld b, a
+	ld a, [wInvisibleCursorTile]
+	cp b
+	jr z, .asm_6a60
+	ld a, [wNamingScreenBufferLength]
+	srl a
+	ld d, a
+	ld a, [wNamingScreenBufferMaxLength]
+	srl a
+	ld e, a
+	ld a, d
+	cp e
+	jr nz, .asm_6a49
+	dec a
+.asm_6a49
+	ld hl, wNamingScreenNamePosition
+	add [hl]
+	ld d, a
+	ld h, $08
+	ld l, d
+	call HtimesL
+	ld a, l
+	add $08
+	ld d, a
+	ld e, $18
+	ld bc, $0000
+	call SetOneObjectAttributes
+.asm_6a60
+	pop hl
+	pop de
+	pop bc
+	pop af
+	ret
+
+; load, to the first tile of v0Tiles0, the graphics for the
+; blinking black square used in name input screens.
+; for inputting full width text.
+LoadTextCursorTile:
+	ld hl, v0Tiles0 + $00 tiles
+	ld de, .data
+	ld b, 0
+.loop
+	ld a, TILE_SIZE
+	cp b
+	ret z
+	inc b
+	ld a, [de]
+	inc de
+	ld [hli], a
+	jr .loop
+
+.data
+rept TILE_SIZE
+	db $ff
+endr
+
+; set the carry bit on,
+; if "End" was selected.
+NamingScreen_ProcessInput:
+	ld a, [wNamingScreenCursorX]
+	ld h, a
+	ld a, [wNamingScreenCursorY]
+	ld l, a
+	call GetCharInfoFromPos_Player
+	inc hl
+	inc hl
+	; load types into de.
+	ld e, [hl]
+	inc hl
+	ld a, [hli]
+	ld d, a
+	cp $09
+	jp z, .on_end
+	cp $07
+	jr nz, .asm_6ab8
+	ld a, [wd009]
+	or a
+	jr nz, .asm_6aac
+	ld a, $01
+	jp .asm_6ace
+.asm_6aac
+	dec a
+	jr nz, .asm_6ab4
+	ld a, $02
+	jp .asm_6ace
+.asm_6ab4
+	xor a
+	jp .asm_6ace
+.asm_6ab8
+	cp $08
+	jr nz, .asm_6ad6
+	ld a, [wd009]
+	or a
+	jr nz, .asm_6ac6
+	ld a, $02
+	jr .asm_6ace
+.asm_6ac6
+	dec a
+	jr nz, .asm_6acc
+	xor a
+	jr .asm_6ace
+.asm_6acc
+	ld a, $01
+.asm_6ace
+	ld [wd009], a
+	call DrawNamingScreenBG
+	or a
+	ret
+.asm_6ad6
+	ld a, [wd009]
+	cp $02
+	jr z, .read_char
+	ldfw3 bc, "“"
+	ld a, d
+	cp b
+	jr nz, .asm_6af4
+	ld a, e
+	cp c
+	jr nz, .asm_6af4
+	push hl
+	ld hl, TransitionTable1 ; from 55th.
+	call TransformCharacter
+	pop hl
+	jr c, .nothing
+	jr .asm_6b09
+.asm_6af4
+	ldfw3 bc, "º(2)"
+	ld a, d
+	cp b
+	jr nz, .asm_6b1d
+	ld a, e
+	cp c
+	jr nz, .asm_6b1d
+	push hl
+	ld hl, TransitionTable2 ; from 72th.
+	call TransformCharacter
+	pop hl
+	jr c, .nothing
+.asm_6b09
+	ld a, [wNamingScreenBufferLength]
+	dec a
+	dec a
+	ld [wNamingScreenBufferLength], a
+	ld hl, wNamingScreenBuffer
+	push de
+	ld d, 0
+	ld e, a
+	add hl, de
+	pop de
+	ld a, [hl]
+	jr .asm_6b37
+.asm_6b1d
+	ld a, d
+	or a
+	jr nz, .asm_6b37
+	ld a, [wd009]
+	or a
+	jr nz, .asm_6b2b
+	ld a, TX_HIRAGANA
+	jr .asm_6b37
+.asm_6b2b
+	ld a, TX_KATAKANA
+	jr .asm_6b37
+; read character code from info. to register.
+; hl: pointer.
+.read_char
+	ld e, [hl]
+	inc hl
+	ld a, [hl] ; a: first byte of the code.
+	or a
+	; if 2 bytes code, jump.
+	jr nz, .asm_6b37
+	; if 1 byte code(ascii),
+	; set first byte to $0e.
+	ld a, $0e
+; on 2 bytes code.
+.asm_6b37
+	ld d, a ; de: character code.
+	ld hl, wNamingScreenBufferLength
+	ld a, [hl]
+	ld c, a
+	push hl
+	ld hl, wNamingScreenBufferMaxLength
+	cp [hl]
+	pop hl
+	jr nz, .asm_6b4c
+	; if the buffer is full
+	; just change the last character of it.
+	ld hl, wNamingScreenBuffer
+	dec hl
+	dec hl
+	jr .asm_6b51
+; increase name length before add the character.
+.asm_6b4c
+	inc [hl]
+	inc [hl]
+	ld hl, wNamingScreenBuffer
+; write 2 bytes character codes to the name buffer.
+; de: 2 bytes character codes.
+; hl: dest.
+.asm_6b51
+	ld b, 0
+	add hl, bc
+	ld [hl], d
+	inc hl
+	ld [hl], e
+	inc hl
+	ld [hl], TX_END ; null terminator.
+	call PrintPlayerNameFromInput
+.nothing
+	or a
+	ret
+.on_end
+	scf
+	ret
+
+; this transforms the last japanese character
+; in the name buffer into its dakuon shape or something.
+; it seems to have been deprecated as the game was translated into english.
+; but it can still be applied to english, such as upper-lower case transition.
+; hl: info. pointer.
+TransformCharacter:
+	ld a, [wNamingScreenBufferLength]
+	or a
+	jr z, .return ; if the length is zero, just return.
+	dec a
+	dec a
+	push hl
+	ld hl, wNamingScreenBuffer
+	ld d, 0
+	ld e, a
+	add hl, de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	; de: last character in the buffer,
+	; but byte-wise swapped.
+	ld a, TX_KATAKANA
+	cp e
+	jr nz, .hiragana
+	; if it's katakana,
+	; make it hiragana by decreasing its high byte.
+	dec e
+.hiragana
+	pop hl
+.loop
+	ld a, [hli]
+	or a
+	jr z, .return
+	cp d
+	jr nz, .next
+	ld a, [hl]
+	cp e
+	jr nz, .next
+	inc hl
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	or a
+	ret
+.next
+	inc hl
+	inc hl
+	inc hl
+	jr .loop
+.return
+	scf
+	ret
+
+; given the position of the current cursor,
+; it returns the pointer to the proper information.
+; h: position x.
+; l: position y.
+GetCharInfoFromPos_Player:
+	push de
+	; (information index) = (x) * (height) + (y)
+	; (height) = 0x05(Deck) or 0x06(Player)
+	ld e, l
+	ld d, h
+	ld a, [wNamingScreenKeyboardHeight]
+	ld l, a
+	call HtimesL
+	ld a, l
+	add e
+	ld hl, KeyboardData_Player
+	pop de
+	or a
+	ret z
+.loop
+	inc hl
+	inc hl
+	inc hl
+	inc hl
+	inc hl
+	inc hl
+	dec a
+	jr nz, .loop
+	ret
+
+; a set of keyboard datum.
+; unit: 6 bytes.
+; structure:
+; abs. y pos. (1) / abs. x pos. (1) / type 1 (1) / type 2 (1) / char. code (2)
+; unused data contains its character code as zero.
+kbitem: MACRO
+	db \1, \2, \3, \4
+if (_NARG == 5)
+	dw \5
+elif (\5 == TX_FULLWIDTH3)
+	dw (\5 << 8) | STRCAT("FW3_", \6)
+else
+	dw (\5 << 8) | \6
+endc
+ENDM
+
+KeyboardData_Player:
+	kbitem $04, $02, $11, $00, TX_FULLWIDTH3,   "A"
+	kbitem $06, $02, $12, $00, TX_FULLWIDTH3,   "J"
+	kbitem $08, $02, $13, $00, TX_FULLWIDTH3,   "S"
+	kbitem $0a, $02, $14, $00,                  "o"
+	kbitem $0c, $02, $15, $00,                  "d"
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $04, $16, $00, TX_FULLWIDTH3,   "B"
+	kbitem $06, $04, $17, $00, TX_FULLWIDTH3,   "K"
+	kbitem $08, $04, $18, $00, TX_FULLWIDTH3,   "T"
+	kbitem $0a, $04, $19, $00, TX_FULLWIDTH3,   "&"
+	kbitem $0c, $04, $1a, $00,                  "e"
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $06, $1b, $00, TX_FULLWIDTH3,   "C"
+	kbitem $06, $06, $1c, $00, TX_FULLWIDTH3,   "L"
+	kbitem $08, $06, $1d, $00, TX_FULLWIDTH3,   "U"
+	kbitem $0a, $06, $1e, $00,                  "j"
+	kbitem $0c, $06, $1f, $00,                  "f"
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $08, $20, $00, TX_FULLWIDTH3,   "D"
+	kbitem $06, $08, $21, $00, TX_FULLWIDTH3,   "M"
+	kbitem $08, $08, $22, $00, TX_FULLWIDTH3,   "V"
+	kbitem $0a, $08, $23, $00,                  "k"
+	kbitem $0c, $08, $24, $00,                  "g"
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $0a, $25, $00, TX_FULLWIDTH3,   "E"
+	kbitem $06, $0a, $26, $00, TX_FULLWIDTH3,   "N"
+	kbitem $08, $0a, $27, $00, TX_FULLWIDTH3,   "W"
+	kbitem $0a, $0a, $28, $00,                  "w"
+	kbitem $0c, $0a, $29, $00,                  "h"
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $0c, $2a, $00, TX_FULLWIDTH3,   "F"
+	kbitem $06, $0c, $2b, $00, TX_FULLWIDTH3,   "O"
+	kbitem $08, $0c, $2c, $00, TX_FULLWIDTH3,   "X"
+	kbitem $0a, $0c, $2d, $00,                  "`"
+	kbitem $0c, $0c, $2e, $00,                  "i"
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $0e, $2f, $00, TX_FULLWIDTH3,   "G"
+	kbitem $06, $0e, $30, $00, TX_FULLWIDTH3,   "P"
+	kbitem $08, $0e, $31, $00, TX_FULLWIDTH3,   "Y"
+	kbitem $0a, $0e, $32, $00,                  "a"
+	kbitem $0c, $0e, $33, $00, TX_SYMBOL,       SYM_No
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $10, $34, $00, TX_FULLWIDTH3,   "H"
+	kbitem $06, $10, $35, $00, TX_FULLWIDTH3,   "Q"
+	kbitem $08, $10, $36, $00, TX_FULLWIDTH3,   "Z"
+	kbitem $0a, $10, $3c, $00,                  "b"
+	kbitem $0c, $10, $3d, $00, TX_SYMBOL,       SYM_Lv
+	kbitem $10, $0f, $01, $09, $0000
+
+	kbitem $04, $12, $37, $00, TX_FULLWIDTH3,   "I"
+	kbitem $06, $12, $38, $00, TX_FULLWIDTH3,   "R"
+	kbitem $08, $12, $39, $00,                  "n"
+	kbitem $0a, $12, $3a, $00,                  "c"
+	kbitem $0c, $12, $3b, $00,                  "p"
+	kbitem $10, $0f, $01, $09, $0000
+	kbitem $00, $00, $00, $00, $0000
+
+; a set of transition datum.
+; unit: 4 bytes.
+; structure:
+; previous char. code (2) / translated char. code (2)
+; - the former char. code contains 0x0e in high byte.
+; - the latter char. code contains only low byte.
+TransitionTable1:
+	dw $0e16, $003e
+	dw $0e17, $003f
+	dw $0e18, $0040
+	dw $0e19, $0041
+	dw $0e1a, $0042
+	dw $0e1b, $0043
+	dw $0e1c, $0044
+	dw $0e1d, $0045
+	dw $0e1e, $0046
+	dw $0e1f, $0047
+	dw $0e20, $0048
+	dw $0e21, $0049
+	dw $0e22, $004a
+	dw $0e23, $004b
+	dw $0e24, $004c
+	dw $0e2a, $004d
+	dw $0e2b, $004e
+	dw $0e2c, $004f
+	dw $0e2d, $0050
+	dw $0e2e, $0051
+	dw $0e52, $004d
+	dw $0e53, $004e
+	dw $0e54, $004f
+	dw $0e55, $0050
+	dw $0e56, $0051
+	dw $0000
+
+TransitionTable2:
+	dw $0e2a, $0052
+	dw $0e2b, $0053
+	dw $0e2c, $0054
+	dw $0e2d, $0055
+	dw $0e2e, $0056
+	dw $0e4d, $0052
+	dw $0e4e, $0053
+	dw $0e4f, $0054
+	dw $0e50, $0055
+	dw $0e51, $0056
+	dw $0000
+
+; get deck name from the user into de.
+; function description is similar to the player's.
+; refer to 'InputPlayerName'.
+InputDeckName:
+	push af
+	; check if the buffer is empty.
+	ld a, [de]
+	or a
+	jr nz, .not_empty
+	; this buffer will contain half-width chars.
+	ld a, TX_HALFWIDTH
+	ld [de], a
+.not_empty
+	pop af
+	inc a
+	call InitializeInputName
+	call Set_OBJ_8x8
+
+	xor a
+	ld [wTileMapFill], a
+	call EmptyScreen
+	call ZeroObjectPositions
+
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call LoadSymbolsFont
+
+	lb de, $38, $bf
+	call SetupText
+	call LoadHalfWidthTextCursorTile
+
+	xor a
+	ld [wd009], a
+	call Func_1ae99
+
+	xor a
+	ld [wNamingScreenCursorX], a
+	ld [wNamingScreenCursorY], a
+
+	ld a, $09
+	ld [wNamingScreenNumColumns], a
+	ld a, $07
+	ld [wNamingScreenKeyboardHeight], a
+	ld a, $0f
+	ld [wVisibleCursorTile], a
+	ld a, $00
+	ld [wInvisibleCursorTile], a
+.loop
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call DoFrame
+
+	call UpdateRNGSources
+
+	ldh a, [hDPadHeld]
+	and START
+	jr z, .on_start
+
+	ld a, $01
+	call PlayAcceptOrDeclineSFX
+	call Func_1afa1
+
+	ld a, 6
+	ld [wNamingScreenCursorX], a
+	ld [wNamingScreenCursorY], a
+	call Func_1afbd
+
+	jr .loop
+.on_start
+	call Func_1aefb
+	jr nc, .loop
+
+	cp $ff
+	jr z, .asm_6e1c
+
+	call Func_1aec3
+	jr nc, .loop
+
+	call FinalizeInputName
+
+	ld hl, wNamingScreenDestPointer
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	inc hl
+
+	ld a, [hl]
+	or a
+	jr nz, .return
+
+	dec hl
+	ld [hl], TX_END
+.return
+	ret
+.asm_6e1c
+	ld a, [wNamingScreenBufferLength]
+	cp $02
+	jr c, .loop
+
+	ld e, a
+	ld d, 0
+	ld hl, wNamingScreenBuffer
+	add hl, de
+	dec hl
+	ld [hl], TX_END
+
+	ld hl, wNamingScreenBufferLength
+	dec [hl]
+	call ProcessTextWithUnderbar
+
+	jp .loop
+
+; load, to the first tile of v0Tiles0, the graphics for the
+; blinking black square used in name input screens.
+; for inputting half width text.
+LoadHalfWidthTextCursorTile:
+	ld hl, v0Tiles0 + $00 tiles
+	ld de, .data
+	ld b, 0
+.loop
+	ld a, TILE_SIZE
+	cp b
+	ret z
+	inc b
+	ld a, [de]
+	inc de
+	ld [hli], a
+	jr .loop
+
+.data
+rept TILE_SIZE
+	db $f0
+endr
+
+; it's only for naming the deck.
+ProcessTextWithUnderbar:
+	ld hl, wNamingScreenNamePosition
+	ld d, [hl]
+	inc hl
+	ld e, [hl]
+	call InitTextPrinting
+	ld hl, .underbar_data
+	ld de, wDefaultText
+.loop ; copy the underbar string.
+	ld a, [hli]
+	ld [de], a
+	inc de
+	or a
+	jr nz, .loop
+
+	ld hl, wNamingScreenBuffer
+	ld de, wDefaultText
+.loop2 ; copy the input from the user.
+	ld a, [hli]
+	or a
+	jr z, .print_name
+	ld [de], a
+	inc de
+	jr .loop2
+.print_name
+	ld hl, wDefaultText
+	call ProcessText
+	ret
+.underbar_data
+	db TX_HALFWIDTH
+rept MAX_DECK_NAME_LENGTH
+	db "_"
+endr
+	db TX_END
+
+Func_1ae99:
+	call DrawTextboxForKeyboard
+	call ProcessTextWithUnderbar
+	ld hl, wNamingScreenQuestionPointer
+	ld c, [hl]
+	inc hl
+	ld a, [hl]
+	ld h, a
+	or c
+	jr z, .print
+	; print the question string.
+	ld l, c
+	call PlaceTextItems
+.print
+	; print "End"
+	ld hl, DrawNamingScreenBG.data
+	call PlaceTextItems
+	; print the keyboard characters.
+	ldtx hl, DeckNameKeyboardText ; "A B C D..."
+	lb de, 2, 4
+	call InitTextPrinting
+	call ProcessTextFromID
+	call EnableLCD
+	ret
+
+Func_1aec3:
+	ld a, [wNamingScreenCursorX]
+	ld h, a
+	ld a, [wNamingScreenCursorY]
+	ld l, a
+	call GetCharInfoFromPos_Deck
+	inc hl
+	inc hl
+	ld a, [hl]
+	cp $01
+	jr nz, .asm_6ed7
+	scf
+	ret
+.asm_6ed7
+	ld d, a
+	ld hl, wNamingScreenBufferLength
+	ld a, [hl]
+	ld c, a
+	push hl
+	ld hl, wNamingScreenBufferMaxLength
+	cp [hl]
+	pop hl
+	jr nz, .asm_6eeb
+	ld hl, wNamingScreenBuffer
+	dec hl
+	jr .asm_6eef
+.asm_6eeb
+	inc [hl]
+	ld hl, wNamingScreenBuffer
+.asm_6eef
+	ld b, 0
+	add hl, bc
+	ld [hl], d
+	inc hl
+	ld [hl], TX_END
+	call ProcessTextWithUnderbar
+	or a
+	ret
+
+Func_1aefb:
+	xor a
+	ld [wPlaysSfx], a
+	ldh a, [hDPadHeld]
+	or a
+	jp z, .asm_6f73
+	ld b, a
+	ld a, [wNamingScreenKeyboardHeight]
+	ld c, a
+	ld a, [wNamingScreenCursorX]
+	ld h, a
+	ld a, [wNamingScreenCursorY]
+	ld l, a
+	bit 6, b
+	jr z, .asm_6f1f
+	dec a
+	bit 7, a
+	jr z, .asm_6f4b
+	ld a, c
+	dec a
+	jr .asm_6f4b
+.asm_6f1f
+	bit 7, b
+	jr z, .asm_6f2a
+	inc a
+	cp c
+	jr c, .asm_6f4b
+	xor a
+	jr .asm_6f4b
+.asm_6f2a
+	cp $06
+	jr z, .asm_6f73
+	ld a, [wNamingScreenNumColumns]
+	ld c, a
+	ld a, h
+	bit 5, b
+	jr z, .asm_6f40
+	dec a
+	bit 7, a
+	jr z, .asm_6f4e
+	ld a, c
+	dec a
+	jr .asm_6f4e
+.asm_6f40
+	bit 4, b
+	jr z, .asm_6f73
+	inc a
+	cp c
+	jr c, .asm_6f4e
+	xor a
+	jr .asm_6f4e
+.asm_6f4b
+	ld l, a
+	jr .asm_6f4f
+.asm_6f4e
+	ld h, a
+.asm_6f4f
+	push hl
+	call GetCharInfoFromPos_Deck
+	inc hl
+	inc hl
+	ld d, [hl]
+	push de
+	call Func_1afa1
+	pop de
+	pop hl
+	ld a, l
+	ld [wNamingScreenCursorY], a
+	ld a, h
+	ld [wNamingScreenCursorX], a
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+	ld a, $02
+	cp d
+	jp z, Func_1aefb
+	ld a, $01
+	ld [wPlaysSfx], a
+.asm_6f73
+	ldh a, [hKeysPressed]
+	and $03
+	jr z, .asm_6f89
+	and $01
+	jr nz, .asm_6f7f
+	ld a, $ff
+.asm_6f7f
+	call PlayAcceptOrDeclineSFX
+	push af
+	call Func_1afbd
+	pop af
+	scf
+	ret
+.asm_6f89
+	ld a, [wPlaysSfx]
+	or a
+	jr z, .asm_6f92
+	call PlaySFX
+.asm_6f92
+	ld hl, wCheckMenuCursorBlinkCounter
+	ld a, [hl]
+	inc [hl]
+	and $0f
+	ret nz
+	ld a, [wVisibleCursorTile]
+	bit 4, [hl]
+	jr z, Func_1afa1.asm_6fa4
+
+Func_1afa1:
+	ld a, [wInvisibleCursorTile]
+.asm_6fa4
+	ld e, a
+	ld a, [wNamingScreenCursorX]
+	ld h, a
+	ld a, [wNamingScreenCursorY]
+	ld l, a
+	call GetCharInfoFromPos_Deck
+	ld a, [hli]
+	ld c, a
+	ld b, [hl]
+	dec b
+	ld a, e
+	call Func_1afc2
+	call WriteByteToBGMap0
+	or a
+	ret
+
+Func_1afbd:
+	ld a, [wVisibleCursorTile]
+	jr Func_1afa1.asm_6fa4
+
+Func_1afc2:
+	push af
+	push bc
+	push de
+	push hl
+	push af
+	call ZeroObjectPositions
+	pop af
+	ld b, a
+	ld a, [wInvisibleCursorTile]
+	cp b
+	jr z, .asm_6ffb
+	ld a, [wNamingScreenBufferLength]
+	ld d, a
+	ld a, [wNamingScreenBufferMaxLength]
+	ld e, a
+	ld a, d
+	cp e
+	jr nz, .asm_6fdf
+	dec a
+.asm_6fdf
+	dec a
+	ld d, a
+	ld hl, wNamingScreenNamePosition
+	ld a, [hl]
+	sla a
+	add d
+	ld d, a
+	ld h, $04
+	ld l, d
+	call HtimesL
+	ld a, l
+	add $08
+	ld d, a
+	ld e, $18
+	ld bc, $0000
+	call SetOneObjectAttributes
+.asm_6ffb
+	pop hl
+	pop de
+	pop bc
+	pop af
+	ret
+
+; given the cursor position,
+; returns the character information which the cursor directs.
+; it's similar to "GetCharInfoFromPos_Player",
+; but the data structure is different in its unit size.
+; its unit size is 3, and player's is 6.
+; h: x
+; l: y
+GetCharInfoFromPos_Deck:
+	push de
+	ld e, l
+	ld d, h
+	ld a, [wNamingScreenKeyboardHeight]
+	ld l, a
+	call HtimesL
+	ld a, l
+	add e
+	; x * h + y
+	ld hl, KeyboardData_Deck
+	pop de
+	or a
+	ret z
+.loop
+	inc hl
+	inc hl
+	inc hl
+	dec a
+	jr nz, .loop
+	ret
+
+KeyboardData_Deck:
+	db $04, $02, "A"
+	db $06, $02, "J"
+	db $08, $02, "S"
+	db $0a, $02, "?"
+	db $0c, $02, "4"
+	db $0e, $02, $02
+	db $10, $0f, $01
+
+	db $04, $04, "B"
+	db $06, $04, "K"
+	db $08, $04, "T"
+	db $0a, $04, "&"
+	db $0c, $04, "5"
+	db $0e, $04, $02
+	db $10, $0f, $01
+
+	db $04, $06, "C"
+	db $06, $06, "L"
+	db $08, $06, "U"
+	db $0a, $06, "+"
+	db $0c, $06, "6"
+	db $0e, $06, $02
+	db $10, $0f, $01
+
+	db $04, $08, "D"
+	db $06, $08, "M"
+	db $08, $08, "V"
+	db $0a, $08, "-"
+	db $0c, $08, "7"
+	db $0e, $08, $02
+	db $10, $0f, $01
+
+	db $04, $0a, "E"
+	db $06, $0a, "N"
+	db $08, $0a, "W"
+	db $0a, $0a, "'"
+	db $0c, $0a, "8"
+	db $0e, $0a, $02
+	db $10, $0f, $01
+
+	db $04, $0c, "F"
+	db $06, $0c, "O"
+	db $08, $0c, "X"
+	db $0a, $0c, "0"
+	db $0c, $0c, "9"
+	db $0e, $0c, $02
+	db $10, $0f, $01
+
+	db $04, $0e, "G"
+	db $06, $0e, "P"
+	db $08, $0e, "Y"
+	db $0a, $0e, "1"
+	db $0c, $0e, " "
+	db $0e, $0e, $02
+	db $10, $0f, $01
+
+	db $04, $10, "H"
+	db $06, $10, "Q"
+	db $08, $10, "Z"
+	db $0a, $10, "2"
+	db $0c, $10, " "
+	db $0e, $10, $02
+	db $10, $0f, $01
+
+	db $04, $12, "I"
+	db $06, $12, "R"
+	db $08, $12, "!"
+	db $0a, $12, "3"
+	db $0c, $12, " "
+	db $0e, $12, $02
+	db $10, $0f, $01
+
+	ds 4 ; empty
diff --git a/src/engine/intro.asm b/src/engine/intro.asm
new file mode 100644
index 0000000..8a16b3a
--- /dev/null
+++ b/src/engine/intro.asm
@@ -0,0 +1,114 @@
+PlayIntroSequence:
+	call DisableLCD
+	farcall Func_10a9b
+	farcall Func_10000
+	call Func_3ca0
+	ld hl, HandleAllSpriteAnimations
+	call SetDoFrameFunction
+	call LoadTitleScreenSprites
+
+	ld a, LOW(IntroSequence)
+	ld [wSequenceCmdPtr + 0], a
+	ld a, HIGH(IntroSequence)
+	ld [wSequenceCmdPtr + 1], a
+
+	xor a
+	ld [wd317], a
+	ld [wIntroSequencePalsNeedUpdate], a
+	ld [wSequenceDelay], a
+	farcall FlashWhiteScreen
+
+.loop_cmds
+	call DoFrameIfLCDEnabled
+	call UpdateRNGSources
+	ldh a, [hKeysPressed]
+	and A_BUTTON | START
+	jr nz, .jump_to_title_screen
+	ld a, [wIntroSequencePalsNeedUpdate]
+	or a
+	jr z, .no_pal_update
+	farcall Func_10d74
+.no_pal_update
+	call ExecuteIntroSequenceCmd
+	ld a, [wSequenceDelay]
+	cp $ff
+	jr nz, .loop_cmds
+	jr .asm_1d39f
+
+.jump_to_title_screen
+	call AssertSongFinished
+	or a
+	jr nz, .asm_1d39f
+	call DisableLCD
+	ld a, MUSIC_TITLESCREEN
+	call PlaySong
+	lb bc, 0, 0
+	ld a, SCENE_TITLE_SCREEN
+	call LoadScene
+	call IntroSequenceEmptyFunc
+.asm_1d39f
+	call Func_3ca0
+	call .ShowPressStart
+	call EnableLCD
+	ret
+
+.ShowPressStart
+	ld a, SPRITE_PRESS_START
+	farcall CreateSpriteAndAnimBufferEntry
+	ld c, SPRITE_ANIM_COORD_X
+	call GetSpriteAnimBufferProperty
+	ld a, 48
+	ld [hli], a ; x
+	ld a, 112
+	ld [hl], a ; y
+	ld c, SPRITE_ANIM_190
+	ld a, [wConsole]
+	cp CONSOLE_CGB
+	jr nz, .asm_1d3c5
+	ld c, SPRITE_ANIM_191
+.asm_1d3c5
+	ld a, c
+	ld bc, 60
+	farcall Func_12ac9
+	ret
+
+LoadTitleScreenSprites:
+	xor a
+	ld [wd4ca], a
+	ld [wd4cb], a
+	ld a, PALETTE_30
+	farcall LoadPaletteData
+
+	ld bc, 0
+	ld de, wTitleScreenSprites
+.loop_load_sprites
+	push bc
+	push de
+	ld hl, .TitleScreenSpriteList
+	add hl, bc
+	ld a, [hl]
+	farcall CreateSpriteAndAnimBufferEntry
+	ld a, [wWhichSprite]
+	ld [de], a
+	call GetFirstSpriteAnimBufferProperty
+	inc hl
+	ld a, [hl] ; SPRITE_ANIM_ATTRIBUTES
+	or c
+	ld [hl], a
+	pop de
+	pop bc
+	inc de
+	inc c
+	ld a, c
+	cp $7
+	jr c, .loop_load_sprites
+	ret
+
+.TitleScreenSpriteList
+	db SPRITE_GRASS
+	db SPRITE_FIRE
+	db SPRITE_WATER
+	db SPRITE_COLORLESS
+	db SPRITE_LIGHTNING
+	db SPRITE_PSYCHIC
+	db SPRITE_FIGHTING
diff --git a/src/engine/link/card_pop.asm b/src/engine/link/card_pop.asm
new file mode 100644
index 0000000..5f809ef
--- /dev/null
+++ b/src/engine/link/card_pop.asm
@@ -0,0 +1,399 @@
+_DoCardPop:
+; loads scene for Card Pop! screen
+; then checks if console is SGB
+; and issues an error message in case it is
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a,SCENE_CARD_POP
+	lb bc, 0, 0
+	call LoadScene
+	ldtx hl, AreYouBothReadyToCardPopText
+	call PrintScrollableText_NoTextBoxLabel
+	call RestoreVBlankFunction
+	ldtx hl, CardPopCannotBePlayedWithTheGameBoyText
+	ld a, [wConsole]
+	cp CONSOLE_SGB
+	jr z, .error
+
+; initiate the communications
+	call PauseSong
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_GAMEBOY_LINK_CONNECTING
+	lb bc, 0, 0
+	call LoadScene
+	ldtx hl, PositionGameBoyColorsAndPressAButtonText
+	call DrawWideTextBox_PrintText
+	call EnableLCD
+	call HandleCardPopCommunications
+	push af
+	push hl
+	call ClearRP
+	call RestoreVBlankFunction
+	pop hl
+	pop af
+	jr c, .error
+
+; show the received card detail page
+; and play the corresponding song
+	ld a, [wLoadedCard1ID]
+	call AddCardToCollectionAndUpdateAlbumProgress
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call LoadTxRam2
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	ld a, SFX_5D
+	call PlaySFX
+.wait_sfx
+	call AssertSFXFinished
+	or a
+	jr nz, .wait_sfx
+	ld a, [wCardPopCardObtainSong]
+	call PlaySong
+	ldtx hl, ReceivedThroughCardPopText
+	bank1call _DisplayCardDetailScreen
+	call ResumeSong
+	lb de, $38, $9f
+	call SetupText
+	bank1call OpenCardPage_FromHand
+	ret
+
+.error
+; show Card Pop! error scene
+; and print text in hl
+	push hl
+	call ResumeSong
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_CARD_POP_ERROR
+	lb bc, 0, 0
+	call LoadScene
+	pop hl
+	call PrintScrollableText_NoTextBoxLabel
+	call RestoreVBlankFunction
+	ret
+
+; handles all communications to the other device to do Card Pop!
+; returns carry if Card Pop! is unsuccessful
+; and returns in hl the corresponding error text ID
+HandleCardPopCommunications:
+; copy CardPopNameList from SRAM to WRAM
+	call EnableSRAM
+	ld hl, sCardPopNameList
+	ld de, wCardPopNameList
+	ld bc, CARDPOP_NAME_LIST_SIZE
+	call CopyDataHLtoDE
+	call DisableSRAM
+
+	ld a, IRPARAM_CARD_POP
+	call InitIRCommunications
+.asm_19cc9
+	call TryReceiveIRRequest ; receive request
+	jr nc, .asm_19d05
+	bit 1, a
+	jr nz, .fail
+	call TrySendIRRequest ; send request
+	jr c, .asm_19cc9
+
+; do the player name search, then transmit the result
+	call ExchangeIRCommunicationParameters
+	jr c, .fail
+	ld hl, wCardPopNameList
+	ld de, wOtherPlayerCardPopNameList
+	ld c, 0 ; $100 bytes = CARDPOP_NAME_LIST_SIZE
+	call RequestDataTransmissionThroughIR
+	jr c, .fail
+	call LookUpNameInCardPopNameList
+	ld hl, wCardPopNameSearchResult
+	ld de, wCardPopNameSearchResult
+	ld c, 1
+	call RequestDataReceivalThroughIR
+	jr c, .fail
+	call SetIRCommunicationErrorCode_NoError
+	jr c, .fail
+	call ExecuteReceivedIRCommands
+	jr c, .fail
+	jr .check_search_result
+
+.asm_19d05
+	call ExecuteReceivedIRCommands
+	ld a, [wIRCommunicationErrorCode]
+	or a
+	jr nz, .fail
+	call RequestCloseIRCommunication
+	jr c, .fail
+
+.check_search_result
+	ld a, [wCardPopNameSearchResult]
+	or a
+	jr z, .success
+	; not $00, means the name was found in the list
+	ldtx hl, CannotCardPopWithFriendPreviouslyPoppedWithText
+	scf
+	ret
+
+.success
+	call DecideCardToReceiveFromCardPop
+
+; increment number of times Card Pop! was done
+; and write the other player's name to sCardPopNameList
+; the spot where this is written in the list is derived
+; from the lower nybble of sTotalCardPopsDone
+; that means that after 16 Card Pop!, the older
+; names start to get overwritten
+	call EnableSRAM
+	ld hl, sTotalCardPopsDone
+	ld a, [hl]
+	inc [hl]
+	and $0f
+	swap a ; *NAME_BUFFER_LENGTH
+	ld l, a
+	ld h, $0
+	ld de, sCardPopNameList
+	add hl, de
+	ld de, wNameBuffer
+	ld c, NAME_BUFFER_LENGTH
+.loop_write_name
+	ld a, [de]
+	inc de
+	ld [hli], a
+	dec c
+	jr nz, .loop_write_name
+	call DisableSRAM
+	or a
+	ret
+
+.fail
+	ldtx hl, ThePopWasntSuccessfulText
+	scf
+	ret
+
+; looks up the name in wNameBuffer in wCardPopNameList
+; used to know whether this save file has done Card Pop!
+; with the other player already
+; returns carry and wCardPopNameSearchResult = $ff if the name was found;
+; returns no carry and wCardPopNameSearchResult = $00 otherwise
+LookUpNameInCardPopNameList:
+; searches for other player's name in this game's name list
+	ld hl, wCardPopNameList
+	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
+.loop_own_card_pop_name_list
+	push hl
+	ld de, wNameBuffer
+	call .CompareNames
+	pop hl
+	jr nc, .found_name
+	ld de, NAME_BUFFER_LENGTH
+	add hl, de
+	dec c
+	jr nz, .loop_own_card_pop_name_list
+
+; name was not found in wCardPopNameList
+
+; searches for this player's name in the other game's name list
+; this is useless since it discards the result from the name comparisons
+; as a result this loop will always return no carry
+	call EnableSRAM
+	ld hl, wOtherPlayerCardPopNameList
+	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
+.loop_other_card_pop_name_list
+	push hl
+	ld de, sPlayerName
+	call .CompareNames ; discards result from comparison
+	pop hl
+	ld de, NAME_BUFFER_LENGTH
+	add hl, de
+	dec c
+	jr nz, .loop_other_card_pop_name_list
+	xor a
+	jr .no_carry
+
+.found_name
+	ld a, $ff
+	scf
+.no_carry
+	call DisableSRAM
+	ld [wCardPopNameSearchResult], a ; $00 if name was not found, $ff otherwise
+	ret
+
+; compares names in hl and de
+; if they are different, return carry
+.CompareNames
+	ld b, NAME_BUFFER_LENGTH
+.loop_chars
+	ld a, [de]
+	inc de
+	cp [hl]
+	jr nz, .not_same
+	inc hl
+	dec b
+	jr nz, .loop_chars
+	or a
+	ret
+.not_same
+	scf
+	ret
+
+; loads in wLoadedCard1 a random card to be received
+; this selection is done based on the rarity that is
+; decided from the names of both participants
+; the card will always be a Pokemon card that is not
+; from a Promotional set, with the exception
+; of Venusaur1 and Mew2
+; output:
+; - e = card ID chosen
+DecideCardToReceiveFromCardPop:
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	call EnableSRAM
+	ld hl, sPlayerName
+	call CalculateNameHash
+	call DisableSRAM
+	push de
+	ld hl, wNameBuffer
+	call CalculateNameHash
+	pop bc
+
+; de = other player's name  hash
+; bc = this player's name hash
+
+; updates RNG values to subtraction of these two hashes
+	ld hl, wRNG1
+	ld a, b
+	sub d
+	ld d, a ; b - d
+	ld [hli], a ; wRNG1
+	ld a, c
+	sub e
+	ld e, a ; c - e
+	ld [hli], a ; wRNG2
+	ld [hl], $0 ; wRNGCounter
+
+; depending on the values obtained from the hashes,
+; determine which rarity card to give to the player
+; along with the song to play with each rarity
+; the probabilities of each possibility can be calculated
+; as follows (given 2 random player names):
+; 101/256 ~ 39% for Circle
+;  90/256 ~ 35% for Diamond
+;  63/256 ~ 25% for Star
+;   1/256 ~ .4% for Venusaur1 or Mew2
+	ld a, e
+	cp 5
+	jr z, .venusaur1_or_mew2
+	cp 64
+	jr c, .star_rarity ; < 64
+	cp 154
+	jr c, .diamond_rarity ; < 154
+	; >= 154
+
+	ld a, MUSIC_BOOSTER_PACK
+	ld b, CIRCLE
+	jr .got_rarity
+.diamond_rarity
+	ld a, MUSIC_BOOSTER_PACK
+	ld b, DIAMOND
+	jr .got_rarity
+.star_rarity
+	ld a, MUSIC_MATCH_VICTORY
+	ld b, STAR
+.got_rarity
+	ld [wCardPopCardObtainSong], a
+	ld a, b
+	call CreateCardPopCandidateList
+	; shuffle candidates and pick first from list
+	call ShuffleCards
+	ld a, [hl]
+	ld e, a
+.got_card_id
+	ld d, $0
+	call LoadCardDataToBuffer1_FromCardID
+	ld a, e
+	ret
+
+.venusaur1_or_mew2
+; choose either Venusaur1 or Mew2
+; depending on whether the lower
+; bit of d is unset or set, respectively
+	ld a, MUSIC_MEDAL
+	ld [wCardPopCardObtainSong], a
+	ld e, VENUSAUR1
+	ld a, d
+	and $1 ; get lower bit
+	jr z, .got_card_id
+	ld e, MEW2
+	jr .got_card_id
+
+; lists in wCardPopCardCandidates all cards that:
+; - are Pokemon cards;
+; - have the same rarity as input register a;
+; - are not from Promotional set.
+; input:
+; - a = card rarity
+; output:
+; - a = number of candidates
+CreateCardPopCandidateList:
+	ld hl, wPlayerDeck
+	push hl
+	push de
+	push bc
+	ld b, a
+
+	lb de, 0, GRASS_ENERGY
+.loop_card_ids
+	call LoadCardDataToBuffer1_FromCardID
+	jr c, .count ; no more card IDs
+	ld a, [wLoadedCard1Type]
+	and TYPE_ENERGY
+	jr nz, .next_card_id ; not Pokemon card
+	ld a, [wLoadedCard1Rarity]
+	cp b
+	jr nz, .next_card_id ; not equal rarity
+	ld a, [wLoadedCard1Set]
+	and $f0
+	cp PROMOTIONAL
+	jr z, .next_card_id ; no promos
+	ld [hl], e
+	inc hl
+.next_card_id
+	inc de
+	jr .loop_card_ids
+
+; count all the cards that were listed
+; and return it in a
+.count
+	ld [hl], $00 ; invalid card ID as end of list
+	ld hl, wPlayerDeck
+	ld c, -1
+.loop_count
+	inc c
+	ld a, [hli]
+	or a
+	jr nz, .loop_count
+	ld a, c
+	pop bc
+	pop de
+	pop hl
+	ret
+
+; creates a unique two-byte hash from the name given in hl
+; the low byte is calculated by simply adding up all characters
+; the high byte is calculated by xoring all characters together
+; input:
+; - hl = points to the start of the name buffer
+; output:
+; - de = hash
+CalculateNameHash:
+	ld c, NAME_BUFFER_LENGTH
+	ld de, $0
+.loop
+	ld a, e
+	add [hl]
+	ld e, a
+	ld a, d
+	xor [hl]
+	ld d, a
+	inc hl
+	dec c
+	jr nz, .loop
+	ret
diff --git a/src/engine/link/ir_core.asm b/src/engine/link/ir_core.asm
new file mode 100644
index 0000000..ab9eaae
--- /dev/null
+++ b/src/engine/link/ir_core.asm
@@ -0,0 +1,531 @@
+; if carry flag is set, only delays
+; if carry not set:
+; - set rRP to $c1, wait;
+; - set rRP to $c0, wait;
+; - return
+Func_19674:
+	jr c, .delay_once
+	ld [hl], $c1
+	ld a, 5
+	jr .loop_delay_1 ; jump to possibly to add more cycles?
+.loop_delay_1
+	dec a
+	jr nz, .loop_delay_1
+	ld [hl], $c0
+	ld a, 14
+	jr .loop_delay_2 ; jump to possibly to add more cycles?
+.loop_delay_2
+	dec a
+	jr nz, .loop_delay_2
+	ret
+
+.delay_once
+	ld a, 21
+	jr .loop_delay_3 ; jump to possibly to add more cycles?
+.loop_delay_3
+	dec a
+	jr nz, .loop_delay_3
+	nop
+	ret
+
+; input a = byte to transmit through IR
+TransmitByteThroughIR:
+	push hl
+	ld hl, rRP
+	push de
+	push bc
+	ld b, a
+	scf  ; carry set
+	call Func_19674
+	or a ; carry not set
+	call Func_19674
+	ld c, 8
+	ld c, 8 ; number of input bits
+.loop
+	ld a, $00
+	rr b
+	call Func_19674
+	dec c
+	jr nz, .loop
+	pop bc
+	pop de
+	pop hl
+	ldh a, [rJOYP]
+	bit 1, a ; P11
+	jr z, ReturnZFlagUnsetAndCarryFlagSet
+	xor a ; return z set
+	ret
+
+; same as ReceiveByteThroughIR but
+; returns $0 in a if there's an error in IR
+ReceiveByteThroughIR_ZeroIfUnsuccessful:
+	call ReceiveByteThroughIR
+	ret nc
+	xor a
+	ret
+
+; returns carry if there's some time out
+; and output in register a of $ff
+; otherwise returns in a some sequence of bits
+; related to how rRP sets/unsets bit 1
+ReceiveByteThroughIR:
+	push de
+	push bc
+	push hl
+
+; waits for bit 1 in rRP to be unset
+; up to $100 loops
+	ld b, 0
+	ld hl, rRP
+.wait_ir
+	bit 1, [hl]
+	jr z, .ok
+	dec b
+	jr nz, .wait_ir
+	; looped around $100 times
+	; return $ff and carry set
+	pop hl
+	pop bc
+	pop de
+	scf
+	ld a, $ff
+	ret
+
+.ok
+; delay for some cycles
+	ld a, 15
+.loop_delay
+	dec a
+	jr nz, .loop_delay
+
+; loop for each bit
+	ld e, 8
+.loop
+	ld a, $01
+	; possibly delay cycles?
+	ld b, 9
+	ld b, 9
+	ld b, 9
+	ld b, 9
+
+; checks for bit 1 in rRP
+; if in any of the checks it is unset,
+; then a is set to 0
+; this is done a total of 9 times
+	bit 1, [hl]
+	jr nz, .asm_196ec
+	xor a
+.asm_196ec
+	bit 1, [hl]
+	jr nz, .asm_196f1
+	xor a
+.asm_196f1
+	dec b
+	jr nz, .asm_196ec
+	; one bit received
+	rrca
+	rr d
+	dec e
+	jr nz, .loop
+	ld a, d ; has bits set for each "cycle" that bit 1 was not unset
+	pop hl
+	pop bc
+	pop de
+	or a
+	ret
+
+ReturnZFlagUnsetAndCarryFlagSet:
+	ld a, $ff
+	or a ; z not set
+	scf  ; carry set
+	ret
+
+; called when expecting to transmit data
+Func_19705:
+	ld hl, rRP
+.asm_19708
+	ldh a, [rJOYP]
+	bit 1, a
+	jr z, ReturnZFlagUnsetAndCarryFlagSet
+	ld a, $aa ; request
+	call TransmitByteThroughIR
+	push hl
+	pop hl
+	call ReceiveByteThroughIR_ZeroIfUnsuccessful
+	cp $33 ; acknowledge
+	jr nz, .asm_19708
+	xor a
+	ret
+
+; called when expecting to receive data
+Func_1971e:
+	ld hl, rRP
+.asm_19721
+	ldh a, [rJOYP]
+	bit 1, a
+	jr z, ReturnZFlagUnsetAndCarryFlagSet
+	call ReceiveByteThroughIR_ZeroIfUnsuccessful
+	cp $aa ; request
+	jr nz, .asm_19721
+	ld a, $33 ; acknowledge
+	call TransmitByteThroughIR
+	xor a
+	ret
+
+ReturnZFlagUnsetAndCarryFlagSet2:
+	jp ReturnZFlagUnsetAndCarryFlagSet
+
+TransmitIRDataBuffer:
+	call Func_19705
+	jr c, ReturnZFlagUnsetAndCarryFlagSet2
+	ld a, $49
+	call TransmitByteThroughIR
+	ld a, $52
+	call TransmitByteThroughIR
+	ld hl, wIRDataBuffer
+	ld c, 8
+	jr TransmitNBytesFromHLThroughIR
+
+ReceiveIRDataBuffer:
+	call Func_1971e
+	jr c, ReturnZFlagUnsetAndCarryFlagSet2
+	call ReceiveByteThroughIR
+	cp $49
+	jr nz, ReceiveIRDataBuffer
+	call ReceiveByteThroughIR
+	cp $52
+	jr nz, ReceiveIRDataBuffer
+	ld hl, wIRDataBuffer
+	ld c, 8
+	jr ReceiveNBytesToHLThroughIR
+
+; hl = start of data to transmit
+; c = number of bytes to transmit
+TransmitNBytesFromHLThroughIR:
+	ld b, $0
+.loop_data_bytes
+	ld a, b
+	add [hl]
+	ld b, a
+	ld a, [hli]
+	call TransmitByteThroughIR
+	jr c, .asm_1977c
+	dec c
+	jr nz, .loop_data_bytes
+	ld a, b
+	cpl
+	inc a
+	call TransmitByteThroughIR
+.asm_1977c
+	ret
+
+; hl = address to write received data
+; c = number of bytes to be received
+ReceiveNBytesToHLThroughIR:
+	ld b, 0
+.loop_data_bytes
+	call ReceiveByteThroughIR
+	jr c, ReturnZFlagUnsetAndCarryFlagSet2
+	ld [hli], a
+	add b
+	ld b, a
+	dec c
+	jr nz, .loop_data_bytes
+	call ReceiveByteThroughIR
+	add b
+	or a
+	jr nz, ReturnZFlagUnsetAndCarryFlagSet2
+	ret
+
+; disables interrupts, and sets joypad and IR communication port
+; switches to CGB normal speed
+StartIRCommunications:
+	di
+	call SwitchToCGBNormalSpeed
+	ld a, P14
+	ldh [rJOYP], a
+	ld a, $c0
+	ldh [rRP], a
+	ret
+
+; reenables interrupts, and switches CGB back to double speed
+CloseIRCommunications:
+	ld a, P14 | P15
+	ldh [rJOYP], a
+.wait_vblank_on
+	ldh a, [rSTAT]
+	and STAT_LCDC_STATUS
+	cp STAT_ON_VBLANK
+	jr z, .wait_vblank_on
+.wait_vblank_off
+	ldh a, [rSTAT]
+	and STAT_LCDC_STATUS
+	cp STAT_ON_VBLANK
+	jr nz, .wait_vblank_off
+	call SwitchToCGBDoubleSpeed
+	ei
+	ret
+
+; set rRP to 0
+ClearRP:
+	ld a, $00
+	ldh [rRP], a
+	ret
+
+; expects to receive a command (IRCMD_* constant)
+; in wIRDataBuffer + 1, then calls the subroutine
+; corresponding to that command
+ExecuteReceivedIRCommands:
+	call StartIRCommunications
+.loop_commands
+	call ReceiveIRDataBuffer
+	jr c, .error
+	jr nz, .loop_commands
+	ld hl, wIRDataBuffer + 1
+	ld a, [hl]
+	ld hl, .CmdPointerTable
+	cp NUM_IR_COMMANDS
+	jr nc, .loop_commands ; invalid command
+	call .JumpToCmdPointer ; execute command
+	jr .loop_commands
+.error
+	call CloseIRCommunications
+	xor a
+	scf
+	ret
+
+.JumpToCmdPointer
+	add a ; *2
+	add l
+	ld l, a
+	ld a, 0
+	adc h
+	ld h, a
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+.jp_hl
+	jp hl
+
+.CmdPointerTable
+	dw .Close                ; IRCMD_CLOSE
+	dw .ReturnWithoutClosing ; IRCMD_RETURN_WO_CLOSING
+	dw .TransmitData         ; IRCMD_TRANSMIT_DATA
+	dw .ReceiveData          ; IRCMD_RECEIVE_DATA
+	dw .CallFunction         ; IRCMD_CALL_FUNCTION
+
+; closes the IR communications
+; pops hl so that the sp points
+; to the return address of ExecuteReceivedIRCommands
+.Close
+	pop hl
+	call CloseIRCommunications
+	or a
+	ret
+
+; returns without closing the IR communications
+; will continue the command loop
+.ReturnWithoutClosing
+	or a
+	ret
+
+; receives an address and number of bytes
+; and transmits starting at that address
+.TransmitData
+	call Func_19705
+	ret c
+	call LoadRegistersFromIRDataBuffer
+	jp TransmitNBytesFromHLThroughIR
+
+; receives an address and number of bytes
+; and writes the data received to that address
+.ReceiveData
+	call LoadRegistersFromIRDataBuffer
+	ld l, e
+	ld h, d
+	call ReceiveNBytesToHLThroughIR
+	jr c, .asm_19812
+	sub b
+	call TransmitByteThroughIR
+.asm_19812
+	ret
+
+; receives an address to call, then stores
+; the registers in the IR data buffer
+.CallFunction
+	call LoadRegistersFromIRDataBuffer
+	call .jp_hl
+	call StoreRegistersInIRDataBuffer
+	ret
+
+; returns carry set if request sent was not acknowledged
+TrySendIRRequest:
+	call StartIRCommunications
+	ld hl, rRP
+	ld c, 4
+.send_request
+	ld a, $aa ; request
+	push bc
+	call TransmitByteThroughIR
+	push bc
+	pop bc
+	call ReceiveByteThroughIR_ZeroIfUnsuccessful
+	pop bc
+	cp $33 ; acknowledgement
+	jr z, .received_ack
+	dec c
+	jr nz, .send_request
+	scf
+	jr .close
+
+.received_ack
+	xor a
+.close
+	push af
+	call CloseIRCommunications
+	pop af
+	ret
+
+; returns carry set if request was not received
+TryReceiveIRRequest:
+	call StartIRCommunications
+	ld hl, rRP
+.wait_request
+	call ReceiveByteThroughIR_ZeroIfUnsuccessful
+	cp $aa ; request
+	jr z, .send_ack
+	ldh a, [rJOYP]
+	cpl
+	and P10 | P11
+	jr z, .wait_request
+	scf
+	jr .close
+
+.send_ack
+	ld a, $33 ; acknowledgement
+	call TransmitByteThroughIR
+	xor a
+.close
+	push af
+	call CloseIRCommunications
+	pop af
+	ret
+
+; sends request for other device to close current communication
+RequestCloseIRCommunication:
+	call StartIRCommunications
+	ld a, IRCMD_CLOSE
+	ld [wIRDataBuffer + 1], a
+	call TransmitIRDataBuffer
+;	fallthrough
+
+; calls CloseIRCommunications while preserving af
+SafelyCloseIRCommunications:
+	push af
+	call CloseIRCommunications
+	pop af
+	ret
+
+; sends a request for data to be transmitted
+; from the other device
+; hl = start of data to request to transmit
+; de = address to write data received
+; c = length of data
+RequestDataTransmissionThroughIR:
+	ld a, IRCMD_TRANSMIT_DATA
+	call TransmitRegistersThroughIR
+	push de
+	push bc
+	call Func_1971e
+	pop bc
+	pop hl
+	jr c, SafelyCloseIRCommunications
+	call ReceiveNBytesToHLThroughIR
+	jr SafelyCloseIRCommunications
+
+; transmits data to be written in the other device
+; hl = start of data to transmit
+; de = address for other device to write data
+; c = length of data
+RequestDataReceivalThroughIR:
+	ld a, IRCMD_RECEIVE_DATA
+	call TransmitRegistersThroughIR
+	call TransmitNBytesFromHLThroughIR
+	jr c, SafelyCloseIRCommunications
+	call ReceiveByteThroughIR
+	jr c, SafelyCloseIRCommunications
+	add b
+	jr nz, .asm_1989e
+	xor a
+	jr SafelyCloseIRCommunications
+.asm_1989e
+	call ReturnZFlagUnsetAndCarryFlagSet
+	jr SafelyCloseIRCommunications
+
+; first stores all the current registers in wIRDataBuffer
+; then transmits it through IR
+TransmitRegistersThroughIR:
+	push hl
+	push de
+	push bc
+	call StoreRegistersInIRDataBuffer
+	call StartIRCommunications
+	call TransmitIRDataBuffer
+	pop bc
+	pop de
+	pop hl
+	ret nc
+	inc sp
+	inc sp
+	jr SafelyCloseIRCommunications
+
+; stores af, hl, de and bc in wIRDataBuffer
+StoreRegistersInIRDataBuffer:
+	push de
+	push hl
+	push af
+	ld hl, wIRDataBuffer
+	pop de
+	ld [hl], e ; <- f
+	inc hl
+	ld [hl], d ; <- a
+	inc hl
+	pop de
+	ld [hl], e ; <- l
+	inc hl
+	ld [hl], d ; <- h
+	inc hl
+	pop de
+	ld [hl], e ; <- e
+	inc hl
+	ld [hl], d ; <- d
+	inc hl
+	ld [hl], c ; <- c
+	inc hl
+	ld [hl], b ; <- b
+	ret
+
+; loads all the registers that were stored
+; from StoreRegistersInIRDataBuffer
+LoadRegistersFromIRDataBuffer:
+	ld hl, wIRDataBuffer
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	inc hl
+	push de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	inc hl
+	push de
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	inc hl
+	ld c, [hl]
+	inc hl
+	ld b, [hl]
+	pop hl
+	pop af
+	ret
diff --git a/src/engine/link/ir_functions.asm b/src/engine/link/ir_functions.asm
new file mode 100644
index 0000000..140dccb
--- /dev/null
+++ b/src/engine/link/ir_functions.asm
@@ -0,0 +1,323 @@
+; hl = text ID
+LoadLinkConnectingScene:
+	push hl
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_GAMEBOY_LINK_CONNECTING
+	lb bc, 0, 0
+	call LoadScene
+	pop hl
+	call DrawWideTextBox_PrintText
+	call EnableLCD
+	ret
+
+; shows Link Not Connected scene
+; then asks the player whether they want to try again
+; if the player selects "no", return carry
+; input:
+;  - hl = text ID
+LoadLinkNotConnectedSceneAndAskWhetherToTryAgain:
+	push hl
+	call RestoreVBlankFunction
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_GAMEBOY_LINK_NOT_CONNECTED
+	lb bc, 0, 0
+	call LoadScene
+	pop hl
+	call DrawWideTextBox_WaitForInput
+	ldtx hl, WouldYouLikeToTryAgainText
+	call YesOrNoMenuWithText_SetCursorToYes
+;	fallthrough
+
+ClearRPAndRestoreVBlankFunction:
+	push af
+	call ClearRP
+	call RestoreVBlankFunction
+	pop af
+	ret
+
+; prepares IR communication parameter data
+; a = a IRPARAM_* constant for the function of this connection
+InitIRCommunications:
+	ld hl, wOwnIRCommunicationParams
+	ld [hl], a
+	inc hl
+	ld [hl], $50
+	inc hl
+	ld [hl], $4b
+	inc hl
+	ld [hl], $31
+	ld a, $ff
+	ld [wIRCommunicationErrorCode], a
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+; clear wNameBuffer and wOpponentName
+	xor a
+	ld [wNameBuffer], a
+	ld hl, wOpponentName
+	ld [hli], a
+	ld [hl], a
+; loads player's name from SRAM
+; to wDefaultText
+	call EnableSRAM
+	ld hl, sPlayerName
+	ld de, wDefaultText
+	ld c, NAME_BUFFER_LENGTH
+.loop
+	ld a, [hli]
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop
+	call DisableSRAM
+	ret
+
+; returns carry if communication was unsuccessful
+; if a = 0, then it was a communication error
+; if a = 1, then operation was cancelled by the player
+PrepareSendCardOrDeckConfigurationThroughIR:
+	call InitIRCommunications
+
+; pressing A button triggers request for IR communication
+.loop_frame
+	call DoFrame
+	ldh a, [hKeysPressed]
+	bit B_BUTTON_F, a
+	jr nz, .b_btn
+	ldh a, [hKeysHeld]
+	bit A_BUTTON_F, a
+	jr z, .loop_frame
+; a btn
+	call TrySendIRRequest
+	jr nc, .request_success
+	or a
+	jr z, .loop_frame
+	xor a
+	scf
+	ret
+
+.b_btn
+	; cancelled by the player
+	ld a, $01
+	scf
+	ret
+
+.request_success
+	call ExchangeIRCommunicationParameters
+	ret c
+	ld a, [wOtherIRCommunicationParams + 3]
+	cp $31
+	jr nz, SetIRCommunicationErrorCode_Error
+	or a
+	ret
+
+; exchanges player names and IR communication parameters
+; checks whether parameters for communication match
+; and if they don't, an error is issued
+ExchangeIRCommunicationParameters:
+	ld hl, wOwnIRCommunicationParams
+	ld de, wOtherIRCommunicationParams
+	ld c, 4
+	call RequestDataTransmissionThroughIR
+	jr c, .error
+	ld hl, wOtherIRCommunicationParams + 1
+	ld a, [hli]
+	cp $50
+	jr nz, .error
+	ld a, [hli]
+	cp $4b
+	jr nz, .error
+	ld a, [wOwnIRCommunicationParams]
+	ld hl, wOtherIRCommunicationParams
+	cp [hl] ; do parameters match?
+	jr nz, SetIRCommunicationErrorCode_Error
+
+; receives wDefaultText from other device
+; and writes it to wNameBuffer
+	ld hl, wDefaultText
+	ld de, wNameBuffer
+	ld c, NAME_BUFFER_LENGTH
+	call RequestDataTransmissionThroughIR
+	jr c, .error
+; transmits wDefaultText to be
+; written in wNameBuffer in the other device
+	ld hl, wDefaultText
+	ld de, wNameBuffer
+	ld c, NAME_BUFFER_LENGTH
+	call RequestDataReceivalThroughIR
+	jr c, .error
+	or a
+	ret
+
+.error
+	xor a
+	scf
+	ret
+
+SetIRCommunicationErrorCode_Error:
+	ld hl, wIRCommunicationErrorCode
+	ld [hl], $01
+	ld de, wIRCommunicationErrorCode
+	ld c, 1
+	call RequestDataReceivalThroughIR
+	call RequestCloseIRCommunication
+	ld a, $01
+	scf
+	ret
+
+SetIRCommunicationErrorCode_NoError:
+	ld hl, wOwnIRCommunicationParams
+	ld [hl], $00
+	ld de, wIRCommunicationErrorCode
+	ld c, 1
+	call RequestDataReceivalThroughIR
+	ret c
+	call RequestCloseIRCommunication
+	or a
+	ret
+
+; makes device receptive to receive data from other device
+; to write in wDuelTempList (either list of cards or a deck configuration)
+; returns carry if some error occurred
+TryReceiveCardOrDeckConfigurationThroughIR:
+	call InitIRCommunications
+.loop_receive_request
+	xor a
+	ld [wDuelTempList], a
+	call TryReceiveIRRequest
+	jr nc, .receive_data
+	bit 1, a
+	jr nz, .cancelled
+	jr .loop_receive_request
+.receive_data
+	call ExecuteReceivedIRCommands
+	ld a, [wIRCommunicationErrorCode]
+	or a
+	ret z ; no error
+	xor a
+	scf
+	ret
+
+.cancelled
+	ld a, $01
+	scf
+	ret
+
+; returns carry if card(s) wasn't successfully sent
+_SendCard:
+	call StopMusic
+	ldtx hl, SendingACardText
+	call LoadLinkConnectingScene
+	ld a, IRPARAM_SEND_CARDS
+	call PrepareSendCardOrDeckConfigurationThroughIR
+	jr c, .fail
+
+	; send cards
+	xor a
+	ld [wDuelTempList + DECK_SIZE], a
+	ld hl, wDuelTempList
+	ld e, l
+	ld d, h
+	ld c, DECK_SIZE + 1
+	call RequestDataReceivalThroughIR
+	jr c, .fail
+	call SetIRCommunicationErrorCode_NoError
+	jr c, .fail
+	call ExecuteReceivedIRCommands
+	jr c, .fail
+	ld a, [wOwnIRCommunicationParams + 1]
+	cp $4f
+	jr nz, .fail
+	call PlayCardPopSong
+	xor a
+	call ClearRPAndRestoreVBlankFunction
+	ret
+
+.fail
+	call PlayCardPopSong
+	ldtx hl, CardTransferWasntSuccessful1Text
+	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
+	jr nc, _SendCard ; loop back and try again
+	; failed
+	scf
+	ret
+
+PlayCardPopSong:
+	ld a, MUSIC_CARD_POP
+	jp PlaySong
+
+_ReceiveCard:
+	call StopMusic
+	ldtx hl, ReceivingACardText
+	call LoadLinkConnectingScene
+	ld a, IRPARAM_SEND_CARDS
+	call TryReceiveCardOrDeckConfigurationThroughIR
+	ld a, $4f
+	ld [wOwnIRCommunicationParams + 1], a
+	ld hl, wOwnIRCommunicationParams
+	ld e, l
+	ld d, h
+	ld c, 4
+	call RequestDataReceivalThroughIR
+	jr c, .fail
+	call RequestCloseIRCommunication
+	jr c, .fail
+	call PlayCardPopSong
+	or a
+	call ClearRPAndRestoreVBlankFunction
+	ret
+
+.fail
+	call PlayCardPopSong
+	ldtx hl, CardTransferWasntSuccessful2Text
+	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
+	jr nc, _ReceiveCard
+	scf
+	ret
+
+_SendDeckConfiguration:
+	call StopMusic
+	ldtx hl, SendingADeckConfigurationText
+	call LoadLinkConnectingScene
+	ld a, IRPARAM_SEND_DECK
+	call PrepareSendCardOrDeckConfigurationThroughIR
+	jr c, .fail
+	ld hl, wDuelTempList
+	ld e, l
+	ld d, h
+	ld c, DECK_STRUCT_SIZE
+	call RequestDataReceivalThroughIR
+	jr c, .fail
+	call SetIRCommunicationErrorCode_NoError
+	jr c, .fail
+	call PlayCardPopSong
+	call ClearRPAndRestoreVBlankFunction
+	or a
+	ret
+
+.fail
+	call PlayCardPopSong
+	ldtx hl, DeckConfigurationTransferWasntSuccessful1Text
+	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
+	jr nc, _SendDeckConfiguration
+	scf
+	ret
+
+_ReceiveDeckConfiguration:
+	call StopMusic
+	ldtx hl, ReceivingDeckConfigurationText
+	call LoadLinkConnectingScene
+	ld a, IRPARAM_SEND_DECK
+	call TryReceiveCardOrDeckConfigurationThroughIR
+	jr c, .fail
+	call PlayCardPopSong
+	call ClearRPAndRestoreVBlankFunction
+	or a
+	ret
+
+.fail
+	call PlayCardPopSong
+	ldtx hl, DeckConfigurationTransferWasntSuccessful2Text
+	call LoadLinkNotConnectedSceneAndAskWhetherToTryAgain
+	jr nc, _ReceiveDeckConfiguration ; loop back and try again
+	scf
+	ret
diff --git a/src/engine/link/link_duel.asm b/src/engine/link/link_duel.asm
new file mode 100644
index 0000000..fc484d0
--- /dev/null
+++ b/src/engine/link/link_duel.asm
@@ -0,0 +1,179 @@
+; sets up to start a link duel
+; decides which device will pick the number of prizes
+; then exchanges names and duels between the players
+; and starts the main duel routine
+_SetUpAndStartLinkDuel:
+	ld hl, sp+$00
+	ld a, l
+	ld [wDuelReturnAddress + 0], a
+	ld a, h
+	ld [wDuelReturnAddress + 1], a
+	call SetSpriteAnimationsAsVBlankFunction
+
+	ld a, SCENE_GAMEBOY_LINK_TRANSMITTING
+	lb bc, 0, 0
+	call LoadScene
+
+	bank1call LoadPlayerDeck
+	call SwitchToCGBNormalSpeed
+	bank1call DecideLinkDuelVariables
+	push af
+	call RestoreVBlankFunction
+	pop af
+	jp c, .error
+
+	ld a, DUELIST_TYPE_PLAYER
+	ld [wPlayerDuelistType], a
+	ld a, DUELIST_TYPE_LINK_OPP
+	ld [wOpponentDuelistType], a
+	ld a, DUELTYPE_LINK
+	ld [wDuelType], a
+
+	call EmptyScreen
+	ld a, [wSerialOp]
+	cp $29
+	jr nz, .asm_1a540
+
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	call .ExchangeNamesAndDecks
+	jr c, .error
+	lb de, 6, 2
+	lb bc, 8, 6
+	call DrawRegularTextBox
+	lb de, 7, 4
+	call InitTextPrinting
+	ldtx hl, PrizesCardsText
+	call ProcessTextFromID
+	ldtx hl, ChooseTheNumberOfPrizesText
+	call DrawWideTextBox_PrintText
+	call EnableLCD
+	call .PickNumberOfPrizeCards
+	ld a, [wNPCDuelPrizes]
+	call SerialSend8Bytes
+	jr .prizes_decided
+
+.asm_1a540
+	ld a, OPPONENT_TURN
+	ldh [hWhoseTurn], a
+	call .ExchangeNamesAndDecks
+	jr c, .error
+	ldtx hl, PleaseWaitDecidingNumberOfPrizesText
+	call DrawWideTextBox_PrintText
+	call EnableLCD
+	call SerialRecv8Bytes
+	ld [wNPCDuelPrizes], a
+
+.prizes_decided
+	call ExchangeRNG
+	ld a, LINK_OPP_PIC
+	ld [wOpponentPortrait], a
+	ldh a, [hWhoseTurn]
+	push af
+	call EmptyScreen
+	bank1call SetDefaultPalettes
+	ld a, SHUFFLE_DECK
+	ld [wDuelDisplayedScreen], a
+	bank1call DrawDuelistPortraitsAndNames
+	ld a, OPPONENT_TURN
+	ldh [hWhoseTurn], a
+	ld a, [wNPCDuelPrizes]
+	ld l, a
+	ld h, $00
+	call LoadTxRam3
+	ldtx hl, BeginAPrizeDuelWithText
+	call DrawWideTextBox_WaitForInput
+	pop af
+	ldh [hWhoseTurn], a
+	call ExchangeRNG
+	bank1call StartDuel_VSLinkOpp
+	call SwitchToCGBDoubleSpeed
+	ret
+
+.error
+	ld a, -1
+	ld [wDuelResult], a
+	call SetSpriteAnimationsAsVBlankFunction
+
+	ld a, SCENE_GAMEBOY_LINK_NOT_CONNECTED
+	lb bc, 0, 0
+	call LoadScene
+
+	ldtx hl, TransmissionErrorText
+	call DrawWideTextBox_WaitForInput
+	call RestoreVBlankFunction
+	call ResetSerial
+	ret
+
+.ExchangeNamesAndDecks
+	ld de, wDefaultText
+	push de
+	call CopyPlayerName
+	pop hl
+	ld de, wNameBuffer
+	ld c, NAME_BUFFER_LENGTH
+	call SerialExchangeBytes
+	ret c
+	xor a
+	ld hl, wOpponentName
+	ld [hli], a
+	ld [hl], a
+	ld hl, wPlayerDeck
+	ld de, wOpponentDeck
+	ld c, DECK_SIZE
+	call SerialExchangeBytes
+	ret
+
+; handles player choice of number of prize cards
+; pressing left/right makes it decrease/increase respectively
+; selection is confirmed by pressing A button
+.PickNumberOfPrizeCards
+	ld a, PRIZES_4
+	ld [wNPCDuelPrizes], a
+	xor a
+	ld [wPrizeCardSelectionFrameCounter], a
+.loop_input
+	call DoFrame
+	ld a, [wNPCDuelPrizes]
+	add SYM_0
+	ld e, a
+	; check frame counter so that it
+	; either blinks or shows number
+	ld hl, wPrizeCardSelectionFrameCounter
+	ld a, [hl]
+	inc [hl]
+	and $10
+	jr z, .no_blink
+	ld e, SYM_SPACE
+.no_blink
+	ld a, e
+	lb bc, 9, 6
+	call WriteByteToBGMap0
+
+	ldh a, [hDPadHeld]
+	ld b, a
+	ld a, [wNPCDuelPrizes]
+	bit D_LEFT_F, b
+	jr z, .check_d_right
+	dec a
+	cp PRIZES_2
+	jr nc, .got_prize_count
+	ld a, PRIZES_6 ; wrap around to 6
+	jr .got_prize_count
+
+.check_d_right
+	bit D_RIGHT_F, b
+	jr z, .check_a_btn
+	inc a
+	cp PRIZES_6 + 1
+	jr c, .got_prize_count
+	ld a, PRIZES_2
+.got_prize_count
+	ld [wNPCDuelPrizes], a
+	xor a
+	ld [wPrizeCardSelectionFrameCounter], a
+
+.check_a_btn
+	bit A_BUTTON_F, b
+	jr z, .loop_input
+	ret
diff --git a/src/engine/link/printer.asm b/src/engine/link/printer.asm
new file mode 100644
index 0000000..110fde4
--- /dev/null
+++ b/src/engine/link/printer.asm
@@ -0,0 +1,1124 @@
+; sends serial data to printer
+; if there's an error in connection,
+; show Printer Not Connected scene with error message
+_PreparePrinterConnection:
+	ld bc, $0
+	lb de, PRINTERPKT_DATA, $0
+	call SendPrinterPacket
+	ret nc ; return if no error
+
+	ld hl, wPrinterStatus
+	ld a, [hl]
+	or a
+	jr nz, .asm_19e55
+	ld [hl], $ff
+.asm_19e55
+	ld a, [hl]
+	cp $ff
+	jr z, ShowPrinterIsNotConnected
+;	fallthrough
+
+; shows message on screen depending on wPrinterStatus
+; also shows SCENE_GAMEBOY_PRINTER_NOT_CONNECTED.
+HandlePrinterError:
+	ld a, [wPrinterStatus]
+	cp $ff
+	jr z, .cable_or_printer_switch
+	or a
+	jr z, .interrupted
+	bit PRINTER_ERROR_BATTERIES_LOST_CHARGE, a
+	jr nz, .batteries_lost_charge
+	bit PRINTER_ERROR_CABLE_PRINTER_SWITCH, a
+	jr nz, .cable_or_printer_switch
+	bit PRINTER_ERROR_PAPER_JAMMED, a
+	jr nz, .jammed_printer
+
+	ldtx hl, PrinterPacketErrorText
+	ld a, $04
+	jr ShowPrinterConnectionErrorScene
+.cable_or_printer_switch
+	ldtx hl, CheckCableOrPrinterSwitchText
+	ld a, $02
+	jr ShowPrinterConnectionErrorScene
+.jammed_printer
+	ldtx hl, PrinterPaperIsJammedText
+	ld a, $03
+	jr ShowPrinterConnectionErrorScene
+.batteries_lost_charge
+	ldtx hl, BatteriesHaveLostTheirChargeText
+	ld a, $01
+	jr ShowPrinterConnectionErrorScene
+.interrupted
+	ldtx hl, PrintingWasInterruptedText
+	call DrawWideTextBox_WaitForInput
+	scf
+	ret
+
+ShowPrinterIsNotConnected:
+	ldtx hl, PrinterIsNotConnectedText
+	ld a, $02
+;	fallthrough
+
+; a = error code
+; hl = text ID to print in text box
+ShowPrinterConnectionErrorScene:
+	push hl
+	; unnecessary loading TxRam, since the text data
+	; already incorporate the error number
+	ld l, a
+	ld h, $00
+	call LoadTxRam3
+
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_GAMEBOY_PRINTER_NOT_CONNECTED
+	lb bc, 0, 0
+	call LoadScene
+	pop hl
+	call DrawWideTextBox_WaitForInput
+	call RestoreVBlankFunction
+	scf
+	ret
+
+; main card printer function
+Func_19eb4:
+	ld e, a
+	ld d, $0
+	call LoadCardDataToBuffer1_FromCardID
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_GAMEBOY_PRINTER_TRANSMITTING
+	lb bc, 0, 0
+	call LoadScene
+	ld a, 20
+	call CopyCardNameAndLevel
+	ld [hl], TX_END
+	ld hl, $0
+	call LoadTxRam2
+	ldtx hl, NowPrintingText
+	call DrawWideTextBox_PrintText
+	call EnableLCD
+	call PrepareForPrinterCommunications
+	call DrawTopCardInfoInSRAMGfxBuffer0
+	call Func_19f87
+	call DrawCardPicInSRAMGfxBuffer2
+	call Func_19f99
+	jr c, .error
+	call DrawBottomCardInfoInSRAMGfxBuffer0
+	call Func_1a011
+	jr c, .error
+	call RestoreVBlankFunction
+	call ResetPrinterCommunicationSettings
+	or a
+	ret
+.error
+	call RestoreVBlankFunction
+	call ResetPrinterCommunicationSettings
+	jp HandlePrinterError
+
+DrawCardPicInSRAMGfxBuffer2:
+	ld hl, wLoadedCard1Gfx
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, sGfxBuffer2
+	call Func_37a5
+	; draw card's picture in sGfxBuffer2
+	ld a, $40
+	lb hl, 12,  1
+	lb de,  2, 68
+	lb bc, 16, 12
+	call FillRectangle
+	ret
+
+; writes the tiles necessary to draw
+; the card's information in sGfxBuffer0
+; this includes card's type, lv, HP and attacks if Pokemon card
+; or otherwise just the card's name and type symbol
+DrawTopCardInfoInSRAMGfxBuffer0:
+	call Func_1a025
+	call Func_212f
+
+	; draw empty text box frame
+	ld hl, sGfxBuffer0
+	ld a, $34
+	lb de, $30, $31
+	ld b, 20
+	call CopyLine
+	ld c, 15
+.loop_lines
+	xor a ; SYM_SPACE
+	lb de, $36, $37
+	ld b, 20
+	call CopyLine
+	dec c
+	jr nz, .loop_lines
+
+	; draw card type symbol
+	ld a, $38
+	lb hl, 1,  2
+	lb de, 1, 65
+	lb bc, 2,  2
+	call FillRectangle
+	; print card's name
+	lb de, 4, 65
+	ld hl, wLoadedCard1Name
+	call InitTextPrinting_ProcessTextFromPointerToID
+
+; prints card's type, lv, HP and attacks if it's a Pokemon card
+	ld a, [wLoadedCard1Type]
+	cp TYPE_ENERGY
+	jr nc, .skip_pokemon_data
+	inc a ; symbol corresponding to card's type (color)
+	lb bc, 18, 65
+	call WriteByteToBGMap0
+	ld a, SYM_Lv
+	lb bc, 11, 66
+	call WriteByteToBGMap0
+	ld a, [wLoadedCard1Level]
+	lb bc, 12, 66
+	bank1call WriteTwoDigitNumberInTxSymbolFormat
+	ld a, SYM_HP
+	lb bc, 15, 66
+	call WriteByteToBGMap0
+	ld a, [wLoadedCard1EffectCommands]
+	inc b
+	bank1call WriteTwoByteNumberInTxSymbolFormat
+.skip_pokemon_data
+	ret
+
+Func_19f87:
+	call TryInitPrinterCommunications
+	ret c
+	ld hl, sGfxBuffer0
+	call Func_1a0cc
+	ret c
+	call Func_1a0cc
+	call Func_1a111
+	ret
+
+Func_19f99:
+	call TryInitPrinterCommunications
+	ret c
+	ld hl, sGfxBuffer0 + $8 tiles
+	ld c, $06
+.asm_19fa2
+	call Func_1a0cc
+	ret c
+	dec c
+	jr nz, .asm_19fa2
+	call Func_1a111
+	ret
+
+; writes the tiles necessary to draw
+; the card's information in sGfxBuffer0
+; this includes card's Retreat cost, Weakness, Resistance,
+; and attack if it's Pokemon card
+; or otherwise just the card's description.
+DrawBottomCardInfoInSRAMGfxBuffer0:
+	call Func_1a025
+	xor a
+	ld [wCardPageType], a
+	ld hl, sGfxBuffer0
+	ld b, 20
+	ld c, 9
+.loop_lines
+	xor a ; SYM_SPACE
+	lb de, $36, $37
+	call CopyLine
+	dec c
+	jr nz, .loop_lines
+	ld a, $35
+	lb de, $32, $33
+	call CopyLine
+
+	ld a, [wLoadedCard1Type]
+	cp TYPE_ENERGY
+	jr nc, .not_pkmn_card
+	ld hl, RetreatWeakResistData
+	call PlaceTextItems
+	ld c, 66
+	bank1call DisplayCardPage_PokemonOverview.attacks
+	ld a, SYM_No
+	lb bc, 15, 72
+	call WriteByteToBGMap0
+	inc b
+	ld a, [wLoadedCard1PokedexNumber]
+	bank1call WriteTwoByteNumberInTxSymbolFormat
+	ret
+
+.not_pkmn_card
+	bank1call SetNoLineSeparation
+	lb de, 1, 66
+	ld a, SYM_No
+	call InitTextPrintingInTextbox
+	ld hl, wLoadedCard1NonPokemonDescription
+	call ProcessTextFromPointerToID
+	bank1call SetOneLineSeparation
+	ret
+
+RetreatWeakResistData:
+	textitem 1, 70, RetreatText
+	textitem 1, 71, WeaknessText
+	textitem 1, 72, ResistanceText
+	db $ff
+
+Func_1a011:
+	call TryInitPrinterCommunications
+	ret c
+	ld hl, sGfxBuffer0
+	ld c, $05
+.asm_1a01a
+	call Func_1a0cc
+	ret c
+	dec c
+	jr nz, .asm_1a01a
+	call Func_1a108
+	ret
+
+; calls setup text and sets wTilePatternSelector
+Func_1a025:
+	lb de, $40, $bf
+	call SetupText
+	ld a, $a4
+	ld [wTilePatternSelector], a
+	xor a
+	ld [wTilePatternSelectorCorrection], a
+	ret
+
+; switches to CGB normal speed, resets serial
+; enables SRAM and switches to SRAM1
+; and clears sGfxBuffer0
+PrepareForPrinterCommunications:
+	call SwitchToCGBNormalSpeed
+	call ResetSerial
+	ld a, $10
+	ld [wce9b], a
+	call EnableSRAM
+	ld a, [sPrinterContrastLevel]
+	ld [wPrinterContrastLevel], a
+	call DisableSRAM
+	ldh a, [hBankSRAM]
+	ld [wce8f], a
+	ld a, BANK("SRAM1")
+	call BankswitchSRAM
+	call EnableSRAM
+;	fallthrough
+
+ClearPrinterGfxBuffer:
+	ld hl, sGfxBuffer0
+	ld bc, $400
+.loop
+	xor a
+	ld [hli], a
+	dec bc
+	ld a, c
+	or b
+	jr nz, .loop
+	xor a
+	ld [wce9f], a
+	ret
+
+; reverts settings changed by PrepareForPrinterCommunications
+ResetPrinterCommunicationSettings:
+	push af
+	call SwitchToCGBDoubleSpeed
+	ld a, [wce8f]
+	call BankswitchSRAM
+	call DisableSRAM
+	lb de, $30, $bf
+	call SetupText
+	pop af
+	ret
+
+; send some bytes through serial
+Func_1a080: ; unreferenced
+	ld bc, $0
+	lb de, PRINTERPKT_NUL, $0
+	jp SendPrinterPacket
+
+; tries initiating the communications for
+; sending data to printer
+; returns carry if operation was cancelled
+; by pressing B button or serial transfer took long
+TryInitPrinterCommunications:
+	xor a
+	ld [wPrinterInitAttempts], a
+.wait_input
+	call DoFrame
+	ldh a, [hKeysHeld]
+	and B_BUTTON
+	jr nz, .b_button
+	ld bc, $0
+	lb de, PRINTERPKT_NUL, $0
+	call SendPrinterPacket
+	jr c, .delay
+	and (1 << PRINTER_STATUS_BUSY) | (1 << PRINTER_STATUS_PRINTING)
+	jr nz, .wait_input
+
+.init
+	ld bc, $0
+	lb de, PRINTERPKT_INIT, $0
+	call SendPrinterPacket
+	jr nc, .no_carry
+	ld hl, wPrinterInitAttempts
+	inc [hl]
+	ld a, [hl]
+	cp 3
+	jr c, .wait_input
+	; time out
+	scf
+	ret
+.no_carry
+	ret
+
+.b_button
+	xor a
+	ld [wPrinterStatus], a
+	scf
+	ret
+
+.delay
+	ld c, 10
+.delay_loop
+	call DoFrame
+	dec c
+	jr nz, .delay_loop
+	jr .init
+
+; loads tiles given by map in hl to sGfxBuffer5
+; copies first 20 tiles, then offsets by 2 tiles
+; and copies another 20
+Func_1a0cc:
+	push bc
+	ld de, sGfxBuffer5
+	call .Copy20Tiles
+	call .Copy20Tiles
+	push hl
+	call CompressDataForPrinterSerialTransfer
+	call SendPrinterPacket
+	pop hl
+	pop bc
+	ret
+
+; copies 20 tiles given by hl to de
+; then adds 2 tiles to hl
+.Copy20Tiles ; 1a0e0 (6:60e0)
+	push hl
+	ld c, 20
+.loop_tiles
+	ld a, [hli]
+	call .CopyTile
+	dec c
+	jr nz, .loop_tiles
+	pop hl
+	ld bc, 2 tiles
+	add hl, bc
+	ret
+
+; copies a tile to de
+; a = tile to get from sGfxBuffer1
+.CopyTile ; 1a0f0 (6:60f0)
+	push hl
+	push bc
+	ld l, a
+	ld h, $00
+	add hl, hl
+	add hl, hl
+	add hl, hl
+	add hl, hl ; *TILE_SIZE
+	ld bc, sGfxBuffer1
+	add hl, bc
+	ld c, TILE_SIZE
+.loop_copy
+	ld a, [hli]
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .loop_copy
+	pop bc
+	pop hl
+	ret
+
+Func_1a108:
+	call GetPrinterContrastSerialData
+	push hl
+	lb hl, $3, $1
+	jr SendPrinterInstructionPacket
+
+Func_1a111:
+	call GetPrinterContrastSerialData
+	push hl
+	ld hl, wce9b
+	ld a, [hl]
+	ld [hl], $00
+	ld h, a
+	ld l, $01
+;	fallthrough
+
+SendPrinterInstructionPacket:
+	push hl
+	ld bc, $0
+	lb de, PRINTERPKT_DATA, $0
+	call SendPrinterPacket
+	jr c, .asm_1a135
+	ld hl, sp+$00 ; contrast level bytes
+	ld bc, $4 ; instruction packets are 4 bytes in size
+	lb de, PRINTERPKT_PRINT_INSTRUCTION, $0
+	call SendPrinterPacket
+.asm_1a135
+	pop hl
+	pop hl
+	ret
+
+; returns in h and l the bytes
+; to be sent through serial to the printer
+; for the set contrast level
+GetPrinterContrastSerialData:
+	ld a, [wPrinterContrastLevel]
+	ld e, a
+	ld d, $00
+	ld hl, .contrast_level_data
+	add hl, de
+	ld h, [hl]
+	ld l, $e4
+	ret
+
+.contrast_level_data
+	db $00, $20, $40, $60, $7f
+
+Func_1a14b: ; unreferenced
+	ld a, $01
+	jr .asm_1a15d
+	ld a, $02
+	jr .asm_1a15d
+	ld a, $03
+	jr .asm_1a15d
+	ld a, $04
+	jr .asm_1a15d
+	ld a, $05
+.asm_1a15d
+	ld [wce9d], a
+	scf
+	ret
+
+; a = saved deck index to print
+_PrintDeckConfiguration:
+; copies selected deck from SRAM to wDuelTempList
+	call EnableSRAM
+	ld l, a
+	ld h, DECK_STRUCT_SIZE
+	call HtimesL
+	ld de, sSavedDeck1
+	add hl, de
+	ld de, wDuelTempList
+	ld bc, DECK_STRUCT_SIZE
+	call CopyDataHLtoDE
+	call DisableSRAM
+
+	call ShowPrinterTransmitting
+	call PrepareForPrinterCommunications
+	call Func_1a025
+	call Func_212f
+	lb de, 0, 64
+	lb bc, 20, 4
+	call DrawRegularTextBoxDMG
+	lb de, 4, 66
+	call InitTextPrinting
+	ld hl, wDuelTempList ; print deck name
+	call ProcessText
+	ldtx hl, DeckPrinterText
+	call ProcessTextFromID
+
+	ld a, 5
+	ld [wPrinterHorizontalOffset], a
+	ld hl, wPrinterTotalCardCount
+	xor a
+	ld [hli], a
+	ld [hl], a
+	ld [wPrintOnlyStarRarity], a
+
+	ld hl, wCurDeckCards
+.loop_cards
+	ld a, [hl]
+	or a
+	jr z, .asm_1a1d6
+	ld e, a
+	ld d, $00
+	call LoadCardDataToBuffer1_FromCardID
+
+	; find out this card's count
+	ld a, [hli]
+	ld b, a
+	ld c, 1
+.loop_card_count
+	cp [hl]
+	jr nz, .got_card_count
+	inc hl
+	inc c
+	jr .loop_card_count
+
+.got_card_count
+	ld a, c
+	ld [wPrinterCardCount], a
+	call LoadCardInfoForPrinter
+	call AddToPrinterGfxBuffer
+	jr c, .printer_error
+	jr .loop_cards
+
+.asm_1a1d6
+	call SendCardListToPrinter
+	jr c, .printer_error
+	call ResetPrinterCommunicationSettings
+	call RestoreVBlankFunction
+	or a
+	ret
+
+.printer_error
+	call ResetPrinterCommunicationSettings
+	call RestoreVBlankFunction
+	jp HandlePrinterError
+
+SendCardListToPrinter:
+	ld a, [wPrinterHorizontalOffset]
+	cp 1
+	jr z, .skip_load_gfx
+	call LoadGfxBufferForPrinter
+	ret c
+.skip_load_gfx
+	call TryInitPrinterCommunications
+	ret c
+	call Func_1a108
+	ret
+; 0z1a1ff
+
+; increases printer horizontal offset by 2
+AddToPrinterGfxBuffer:
+	push hl
+	ld hl, wPrinterHorizontalOffset
+	inc [hl]
+	inc [hl]
+	ld a, [hl]
+	pop hl
+	; return no carry if below 18
+	cp 18
+	ccf
+	ret nc
+	; >= 18
+;	fallthrough
+
+; copies Gfx to Gfx buffer and sends some serial data
+; returns carry set if unsuccessful
+LoadGfxBufferForPrinter:
+	push hl
+	call TryInitPrinterCommunications
+	jr c, .set_carry
+	ld a, [wPrinterHorizontalOffset]
+	srl a
+	ld c, a
+	ld hl, sGfxBuffer0
+.loop_gfx_buffer
+	call Func_1a0cc
+	jr c, .set_carry
+	dec c
+	jr nz, .loop_gfx_buffer
+	call Func_1a111
+	jr c, .set_carry
+
+	call ClearPrinterGfxBuffer
+	ld a, 1
+	ld [wPrinterHorizontalOffset], a
+	pop hl
+	or a
+	ret
+
+.set_carry
+	pop hl
+	scf
+	ret
+
+; load symbol, name, level and card count to buffer
+LoadCardInfoForPrinter:
+	push hl
+	ld a, [wPrinterHorizontalOffset]
+	or %1000000
+	ld e, a
+	ld d, 3
+	ld a, [wPrintOnlyStarRarity]
+	or a
+	jr nz, .skip_card_symbol
+	ld hl, wPrinterTotalCardCount
+	ld a, [hli]
+	or [hl]
+	call z, DrawCardSymbol
+.skip_card_symbol
+	ld a, 14
+	call CopyCardNameAndLevel
+	call InitTextPrinting
+	ld hl, wDefaultText
+	call ProcessText
+	ld a, [wPrinterHorizontalOffset]
+	or %1000000
+	ld c, a
+	ld b, 16
+	ld a, SYM_CROSS
+	call WriteByteToBGMap0
+	inc b
+	ld a, [wPrinterCardCount]
+	bank1call WriteTwoDigitNumberInTxSymbolFormat
+	pop hl
+	ret
+
+_PrintCardList:
+; if Select button is held when printing card list
+; only print cards with Star rarity (excluding Promotional cards)
+; even if it's not marked as seen in the collection
+	ld e, FALSE
+	ldh a, [hKeysHeld]
+	and SELECT
+	jr z, .no_select
+	inc e ; TRUE
+.no_select
+	ld a, e
+	ld [wPrintOnlyStarRarity], a
+
+	call ShowPrinterTransmitting
+	call CreateTempCardCollection
+	ld de, wDefaultText
+	call CopyPlayerName
+	call PrepareForPrinterCommunications
+	call Func_1a025
+	call Func_212f
+
+	lb de, 0, 64
+	lb bc, 20, 4
+	call DrawRegularTextBoxDMG
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	lb de, 2, 66
+	call InitTextPrinting
+	ld hl, wDefaultText
+	call ProcessText
+	ldtx hl, AllCardsOwnedText
+	call ProcessTextFromID
+	ld a, [wPrintOnlyStarRarity]
+	or a
+	jr z, .asm_1a2c2
+	ld a, TX_HALF2FULL
+	call ProcessSpecialTextCharacter
+	lb de, 3, 84
+	call Func_22ca
+.asm_1a2c2
+	ld a, $ff
+	ld [wCurPrinterCardType], a
+	xor a
+	ld hl, wPrinterTotalCardCount
+	ld [hli], a
+	ld [hl], a
+	ld [wPrinterNumCardTypes], a
+	ld a, 5
+	ld [wPrinterHorizontalOffset], a
+
+	ld e, GRASS_ENERGY
+.loop_cards
+	push de
+	ld d, $00
+	call LoadCardDataToBuffer1_FromCardID
+	jr c, .done_card_loop
+	ld d, HIGH(wTempCardCollection)
+	ld a, [de] ; card ID count in collection
+	ld [wPrinterCardCount], a
+	call .LoadCardTypeEntry
+	jr c, .printer_error_pop_de
+
+	ld a, [wPrintOnlyStarRarity]
+	or a
+	jr z, .all_owned_cards_mode
+	ld a, [wLoadedCard1Set]
+	and %11110000
+	cp PROMOTIONAL
+	jr z, .next_card
+	ld a, [wLoadedCard1Rarity]
+	cp STAR
+	jr nz, .next_card
+	; not Promotional, and Star rarity
+	ld hl, wPrinterCardCount
+	res CARD_NOT_OWNED_F, [hl]
+	jr .got_card_count
+
+.all_owned_cards_mode
+	ld a, [wPrinterCardCount]
+	or a
+	jr z, .next_card
+	cp CARD_NOT_OWNED
+	jr z, .next_card ; ignore not owned cards
+
+.got_card_count
+	ld a, [wPrinterCardCount]
+	and CARD_COUNT_MASK
+	ld c, a
+
+	; add to total card count
+	ld hl, wPrinterTotalCardCount
+	add [hl]
+	ld [hli], a
+	ld a, 0
+	adc [hl]
+	ld [hl], a
+
+	; add to current card type count
+	ld hl, wPrinterCurCardTypeCount
+	ld a, c
+	add [hl]
+	ld [hli], a
+	ld a, 0
+	adc [hl]
+	ld [hl], a
+
+	ld hl, wPrinterNumCardTypes
+	inc [hl]
+	ld hl, wce98
+	inc [hl]
+	call LoadCardInfoForPrinter
+	call AddToPrinterGfxBuffer
+	jr c, .printer_error_pop_de
+.next_card
+	pop de
+	inc e
+	jr .loop_cards
+
+.printer_error_pop_de
+	pop de
+.printer_error
+	call ResetPrinterCommunicationSettings
+	call RestoreVBlankFunction
+	jp HandlePrinterError
+
+.done_card_loop
+	pop de
+	; add separator line
+	ld a, [wPrinterHorizontalOffset]
+	dec a
+	or $40
+	ld c, a
+	ld b, 0
+	call BCCoordToBGMap0Address
+	ld a, $35
+	lb de, $35, $35
+	ld b, 20
+	call CopyLine
+	call AddToPrinterGfxBuffer
+	jr c, .printer_error
+
+	ld hl, wPrinterTotalCardCount
+	ld c, [hl]
+	inc hl
+	ld b, [hl]
+	ldtx hl, TotalNumberOfCardsText
+	call .PrintTextWithNumber
+	jr c, .printer_error
+	ld a, [wPrintOnlyStarRarity]
+	or a
+	jr nz, .done
+	ld a, [wPrinterNumCardTypes]
+	ld c, a
+	ld b, 0
+	ldtx hl, TypesOfCardsText
+	call .PrintTextWithNumber
+	jr c, .printer_error
+
+.done
+	call SendCardListToPrinter
+	jr c, .printer_error
+	call ResetPrinterCommunicationSettings
+	call RestoreVBlankFunction
+	or a
+	ret
+
+; prints text ID given in hl
+; with decimal representation of
+; the number given in bc
+; hl = text ID
+; bc = number
+.PrintTextWithNumber
+	push bc
+	ld a, [wPrinterHorizontalOffset]
+	dec a
+	or $40
+	ld e, a
+	ld d, 2
+	call InitTextPrinting
+	call ProcessTextFromID
+	ld d, 14
+	call InitTextPrinting
+	pop hl
+	call TwoByteNumberToTxSymbol_TrimLeadingZeros
+	ld hl, wStringBuffer
+	call ProcessText
+	call AddToPrinterGfxBuffer
+	ret
+
+; loads this card's type icon and text
+; if it's a new card type that hasn't been printed yet
+.LoadCardTypeEntry
+	ld a, [wLoadedCard1Type]
+	ld c, a
+	cp TYPE_ENERGY
+	jr c, .got_type ; jump if Pokemon card
+	ld c, $08
+	cp TYPE_TRAINER
+	jr nc, .got_type ; jump if Trainer card
+	ld c, $07
+.got_type
+	ld hl, wCurPrinterCardType
+	ld a, [hl]
+	cp c
+	ret z ; already handled this card type
+
+	; show corresponding icon and text
+	; for this new card type
+	ld a, c
+	ld [hl], a ; set it as current card type
+	add a
+	add c ; *3
+	ld c, a
+	ld b, $00
+	ld hl, .IconTextList
+	add hl, bc
+	ld a, [wPrinterHorizontalOffset]
+	dec a
+	or %1000000
+	ld e, a
+	ld d, 1
+	ld a, [hli]
+	push hl
+	lb bc, 2, 2
+	lb hl, 1, 2
+	call FillRectangle
+	pop hl
+	ld d, 3
+	inc e
+	call InitTextPrinting
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call ProcessTextFromID
+
+	call AddToPrinterGfxBuffer
+	ld hl, wPrinterCurCardTypeCount
+	xor a
+	ld [hli], a
+	ld [hl], a
+	ld [wce98], a
+	ret
+
+.IconTextList
+	; Fire
+	db $e0 ; icon tile
+	tx FirePokemonText
+
+	; Grass
+	db $e4 ; icon tile
+	tx GrassPokemonText
+
+	; Lightning
+	db $e8 ; icon tile
+	tx LightningPokemonText
+
+	; Water
+	db $ec ; icon tile
+	tx WaterPokemonText
+
+	; Fighting
+	db $f0 ; icon tile
+	tx FightingPokemonText
+
+	; Psychic
+	db $f4 ; icon tile
+	tx PsychicPokemonText
+
+	; Colorless
+	db $f8 ; icon tile
+	tx ColorlessPokemonText
+
+	; Energy
+	db $fc ; icon tile
+	tx EnergyCardText
+
+	; Trainer
+	db $dc ; icon tile
+	tx TrainerCardText
+
+ShowPrinterTransmitting:
+	call SetSpriteAnimationsAsVBlankFunction
+	ld a, SCENE_GAMEBOY_PRINTER_TRANSMITTING
+	lb bc, 0, 0
+	call LoadScene
+	ldtx hl, NowPrintingPleaseWaitText
+	call DrawWideTextBox_PrintText
+	call EnableLCD
+	ret
+
+; compresses $28 tiles in sGfxBuffer5
+; and writes it in sGfxBuffer5 + $28 tiles.
+; compressed data has 2 commands to instruct on how to decompress it.
+; - a command byte with bit 7 not set, means to copy that many + 1
+; bytes that are following it literally.
+; - a command byte with bit 7 set, means to copy the following byte
+; that many times + 2 (after masking the top bit of command byte).
+; returns in bc the size of the compressed data and
+; in de the packet type data.
+CompressDataForPrinterSerialTransfer:
+	ld hl, sGfxBuffer5
+	ld de, sGfxBuffer5 + $28 tiles
+	ld bc, $28 tiles
+.loop_remaining_data
+	ld a, $ff
+	inc b
+	dec b
+	jr nz, .check_compression
+	ld a, c
+.check_compression
+	push bc
+	push de
+	ld c, a
+	call CheckDataCompression
+	ld a, e
+	ld c, e
+	pop de
+	jr c, .copy_byte
+	ld a, c
+	ld b, c
+	dec a
+	ld [de], a ; number of bytes to  copy literally - 1
+	inc de
+.copy_literal_sequence
+	ld a, [hli]
+	ld [de], a
+	inc de
+	dec c
+	jr nz, .copy_literal_sequence
+	ld c, b
+	jr .sub_added_bytes
+
+.copy_byte
+	ld a, c
+	dec a
+	dec a
+	or %10000000 ; set high bit
+	ld [de], a ; = (n times to copy - 2) | %10000000
+	inc de
+	ld a, [hl] ; byte to copy n times
+	ld [de], a
+	inc de
+	ld b, $0
+	add hl, bc
+
+.sub_added_bytes
+	ld a, c
+	cpl
+	inc a
+	pop bc
+	add c
+	ld c, a
+	ld a, $ff
+	adc b
+	ld b, a
+	or c
+	jr nz, .loop_remaining_data
+
+	ld hl, $10000 - (sGfxBuffer5 + $28 tiles)
+	add hl, de ; gets the size of the compressed data
+	ld c, l
+	ld b, h
+	ld hl, sGfxBuffer5 + $28 tiles
+	lb de, PRINTERPKT_DATA, $1
+	ret
+
+; checks whether the next byte sequence in hl, up to c bytes, can be compressed
+; returns carry if the next sequence of bytes can be compressed,
+; i.e. has at least 3 consecutive bytes with the same value.
+; in that case, returns in e the number of consecutive
+; same value bytes that were found.
+; if there are no bytes with same value, then count as many bytes left
+; as possible until either there are no more remaining data bytes,
+; or until a sequence of 3 bytes with the same value are found.
+; in that case, the number of bytes in this sequence is returned in e.
+CheckDataCompression:
+	push hl
+	ld e, c
+	ld a, c
+; if number of remaining bytes is less than 4
+; then no point in compressing
+	cp 4
+	jr c, .no_carry
+
+; check first if there are at least
+; 3 consecutive bytes with the same value
+	ld b, c
+	ld a, [hli]
+	cp [hl]
+	inc hl
+	jr nz, .literal_copy ; not same
+	cp [hl]
+	inc hl
+	jr nz, .literal_copy ; not same
+
+; 3 consecutive bytes were found with same value
+; keep track of how many consecutive bytes
+; with the same value there are in e
+	dec c
+	dec c
+	dec c
+	ld e, 3
+.loop_same_value
+	cp [hl]
+	jr nz, .set_carry ; exit when a different byte is found
+	inc hl
+	inc e
+	dec c
+	jr z, .set_carry ; exit when there is no more remaining data
+	bit 5, e
+	; exit if number of consecutive bytes >= $20
+	jr z, .loop_same_value
+.set_carry
+	pop hl
+	scf
+	ret
+
+.literal_copy
+; consecutive bytes are not the same value
+; count the number of bytes there are left
+; until a sequence of 3 bytes with the same value is found
+	pop hl
+	push hl
+	ld c, b ; number of remaining bytes
+	ld e, 1
+	ld a, [hli]
+	dec c
+	jr z, .no_carry ; exit if no more data
+.reset_same_value_count
+	ld d, 2 ; number of consecutive same value bytes to exit
+.next_byte
+	inc e
+	dec c
+	jr z, .no_carry
+	bit 7, e
+	jr nz, .no_carry ; exit if >= $80
+	cp [hl]
+	jr z, .same_consecutive_value
+	ld a, [hli]
+	jr .reset_same_value_count
+.no_carry
+	pop hl
+	or a
+	ret
+
+.same_consecutive_value
+	inc hl
+	dec d
+	jr nz, .next_byte
+	; 3 consecutive bytes with same value found
+	; discard the last 3 bytes in the sequence
+	dec e
+	dec e
+	dec e
+	jr .no_carry
diff --git a/src/engine/menus/booster_pack.asm b/src/engine/menus/booster_pack.asm
new file mode 100644
index 0000000..934b730
--- /dev/null
+++ b/src/engine/menus/booster_pack.asm
@@ -0,0 +1,42 @@
+_OpenBoosterPack:
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+; clears DECK_SIZE bytes starting from wPlayerDuelVariables
+	ld h, a
+	ld l, $00
+.loop_clear
+	xor a
+	ld [hli], a
+	ld a, l
+	cp DECK_SIZE
+	jr c, .loop_clear
+
+; fills wDuelTempList with 0, 1, 2, 3, ...
+; up to the number of cards received in Boster Pack
+	xor a
+	ld hl, wBoosterCardsDrawn
+	ld de, wDuelTempList
+	ld c, $00
+.loop_index_sequence
+	ld a, [hli]
+	or a
+	jr z, .done_index_sequence
+	ld a, c
+	ld [de], a
+	inc de
+	inc c
+	jr .loop_index_sequence
+.done_index_sequence
+	ld a, $ff ; terminator byte
+	ld [de], a
+
+	lb de, $38, $9f
+	call SetupText
+	bank1call InitAndDrawCardListScreenLayout
+	ldtx hl, ChooseTheCardYouWishToExamineText
+	ldtx de, BoosterPackText
+	bank1call SetCardListHeaderText
+	ld a, A_BUTTON | START
+	ld [wNoItemSelectionMenuKeys], a
+	bank1call DisplayCardList
+	ret
diff --git a/src/engine/menus/common.asm b/src/engine/menus/common.asm
index 069d168..60ad0a9 100644
--- a/src/engine/menus/common.asm
+++ b/src/engine/menus/common.asm
@@ -19,8 +19,8 @@ DoCardPop:
 	farcall _DoCardPop
 	ret
 
-Func_7576:
-	farcall Func_1991f
+AddStarterDeck:
+	farcall _AddStarterDeck
 	ret
 
 PreparePrinterConnection:
@@ -43,8 +43,8 @@ SetUpAndStartLinkDuel:
 	farcall _SetUpAndStartLinkDuel
 	ret
 
-Func_7594:
-	farcall Func_1a61f
+ShowPromotionalCardScreen:
+	farcall _ShowPromotionalCardScreen
 	ret
 
 OpenBoosterPack:
diff --git a/src/engine/menus/glossary.asm b/src/engine/menus/glossary.asm
new file mode 100644
index 0000000..78f44dd
--- /dev/null
+++ b/src/engine/menus/glossary.asm
@@ -0,0 +1,221 @@
+OpenGlossaryScreen:
+	xor a
+	ld [wGlossaryPageNo], a
+	call .display_menu
+
+	xor a
+	ld [wInPlayAreaCurPosition], a
+	ld de, OpenGlossaryScreen_TransitionTable ; this data is stored in bank 2.
+	ld hl, wMenuInputTablePointer
+	ld [hl], e
+	inc hl
+	ld [hl], d
+	ld a, $ff
+	ld [wDuelInitialPrizesUpperBitsSet], a
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+.next
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call DoFrame
+	ldh a, [hKeysPressed]
+	and SELECT
+	jr nz, .on_select
+
+	farcall YourOrOppPlayAreaScreen_HandleInput
+	jr nc, .next
+
+	cp -1 ; b button
+	jr nz, .check_button
+
+	farcall ZeroObjectPositionsWithCopyToggleOn
+	ret
+
+.check_button
+	push af
+	farcall ZeroObjectPositionsWithCopyToggleOn
+	pop af
+
+	cp $09 ; $09: next page or prev page
+	jr z, .change_page
+
+	call .print_description
+	call .display_menu
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+	jr .next
+
+.on_select
+	ld a, $01
+	farcall PlaySFXConfirmOrCancel
+.change_page
+	ld a, [wGlossaryPageNo]
+	xor $01 ; swap page
+	ld [wGlossaryPageNo], a
+	call .print_menu
+	jr .next
+
+; display glossary menu.
+.display_menu ; 1852b (6:452b)
+	xor a
+	ld [wTileMapFill], a
+	call ZeroObjectPositions
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call DoFrame
+	call EmptyScreen
+	call Set_OBJ_8x8
+	farcall LoadCursorTile
+
+	lb de, 5, 0
+	call InitTextPrinting
+	ldtx hl, PokemonCardGlossaryText
+	call ProcessTextFromID
+	call .print_menu
+	ldtx hl, ChooseWordAndPressAButtonText
+	call DrawWideTextBox_PrintText
+	ret
+
+; print texts in glossary menu.
+.print_menu ; 1855a (6:455a)
+	ld hl, wDefaultText
+
+	ld a, TX_SYMBOL
+	ld [hli], a
+
+	ld a, [wGlossaryPageNo]
+	add SYM_1
+	ld [hli], a
+
+	ld a, TX_SYMBOL
+	ld [hli], a
+
+	ld a, SYM_SLASH
+	ld [hli], a
+
+	ld a, TX_SYMBOL
+	ld [hli], a
+
+	ld a, SYM_2
+	ld [hli], a
+
+	ld [hl], TX_END
+
+	lb de, 16, 1
+	call InitTextPrinting
+	ld hl, wDefaultText
+	call ProcessText
+
+	lb de, 1, 3
+	call InitTextPrinting
+	ld a, [wGlossaryPageNo]
+	or a
+	jr nz, .page_two
+
+	ldtx hl, GlossaryMenuPage1Text
+	jr .page_one
+
+.page_two
+	ldtx hl, GlossaryMenuPage2Text
+.page_one
+	call ProcessTextFromID
+	ret
+
+; display glossary description.
+.print_description ; 18598 (6:4598)
+	push af
+	xor a
+	ld [wTileMapFill], a
+	call EmptyScreen
+	lb de, 5, 0
+	call InitTextPrinting
+	ldtx hl, PokemonCardGlossaryText
+	call ProcessTextFromID
+	lb de, 0, 4
+	lb bc, 20, 14
+	call DrawRegularTextBox
+
+	ld a, [wGlossaryPageNo]
+	or a
+	jr nz, .back_page
+
+	ld hl, GlossaryData1
+	jr .front_page
+
+.back_page
+	ld hl, GlossaryData2
+.front_page
+	pop af
+	; hl += (a + (a << 2)).
+	; that is,
+	; hl += (5 * a).
+	ld c, a
+	ld b, 0
+	add hl, bc
+	sla a
+	sla a
+	ld c, a
+	add hl, bc
+	ld a, [hli]
+	push hl
+	ld d, a
+	ld e, $02
+	call InitTextPrinting
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	call ProcessTextFromID
+	pop hl
+	lb de, 1, 5
+	call InitTextPrinting
+	inc hl
+	inc hl
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, $01
+	ld [wLineSeparation], a
+	call ProcessTextFromID
+	xor a
+	ld [wLineSeparation], a
+	call EnableLCD
+.loop
+	call DoFrame
+	ldh a, [hKeysPressed]
+	and B_BUTTON
+	jr z, .loop
+
+	ld a, -1
+	farcall PlaySFXConfirmOrCancel
+	ret
+
+; unit: 5 bytes.
+; [structure]
+; horizontal align (1) / title text id (2) / desc. text id (2)
+glossary_entry: MACRO
+	db \1
+	tx \2
+	tx \3
+ENDM
+
+GlossaryData1:
+	glossary_entry 7, AboutTheDeckText, DeckDescriptionText
+	glossary_entry 5, AboutTheDiscardPileText, DiscardPileDescriptionText
+	glossary_entry 7, AboutTheHandText, HandDescriptionText
+	glossary_entry 6, AboutTheArenaText, ArenaDescriptionText
+	glossary_entry 6, AboutTheBenchText, BenchDescriptionText
+	glossary_entry 4, AboutTheActivePokemonText, ActivePokemonDescriptionText
+	glossary_entry 5, AboutBenchPokemonText, BenchPokemonDescriptionText
+	glossary_entry 7, AboutPrizesText, PrizesDescriptionText
+	glossary_entry 5, AboutDamageCountersText, DamageCountersDescriptionText
+
+GlossaryData2:
+	glossary_entry 5, AboutEnergyCardsText, EnergyCardsDescriptionText
+	glossary_entry 5, AboutTrainerCardsText, TrainerCardsDescriptionText
+	glossary_entry 5, AboutBasicPokemonText, BasicPokemonDescriptionText
+	glossary_entry 5, AboutEvolutionCardsText, EvolutionCardsDescriptionText
+	glossary_entry 6, AboutAttackingText, AttackingDescriptionText
+	glossary_entry 5, AboutPokemonPowerText, PokemonPowerDescriptionText
+	glossary_entry 6, AboutWeaknessText, WeaknessDescriptionText
+	glossary_entry 6, AboutResistanceText, ResistanceDescriptionText
+	glossary_entry 6, AboutRetreatingText, RetreatingDescriptionText
diff --git a/src/engine/menus/play_area.asm b/src/engine/menus/play_area.asm
new file mode 100644
index 0000000..047d24f
--- /dev/null
+++ b/src/engine/menus/play_area.asm
@@ -0,0 +1,570 @@
+; this function is called when the player is shown the "In Play Area" screen.
+; it can be called with either the select button (DuelMenuShortcut_BothActivePokemon),
+; or via the "In Play Area" item of the Check menu (DuelCheckMenu_InPlayArea)
+OpenInPlayAreaScreen:
+	ld a, INPLAYAREA_PLAYER_ACTIVE
+	ld [wInPlayAreaCurPosition], a
+.start
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+	farcall DrawInPlayAreaScreen
+	call EnableLCD
+	call IsClairvoyanceActive
+	jr c, .clairvoyance_on
+
+	ld de, OpenInPlayAreaScreen_TransitionTable1
+	jr .clairvoyance_off
+
+.clairvoyance_on
+	ld de, OpenInPlayAreaScreen_TransitionTable2
+.clairvoyance_off
+	ld hl, wMenuInputTablePointer
+	ld [hl], e
+	inc hl
+	ld [hl], d
+	ld a, [wInPlayAreaCurPosition]
+	call .print_associated_text
+.on_frame
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	call DoFrame
+
+	ldh a, [hDPadHeld]
+	and START
+	jr nz, .selection
+
+	; if this function's been called from 'select' button,
+	; wInPlayAreaFromSelectButton is on.
+	ld a, [wInPlayAreaFromSelectButton]
+	or a
+	jr z, .handle_input ; if it's from the Check menu, jump.
+
+	ldh a, [hDPadHeld]
+	and SELECT
+	jr nz, .skip_input
+
+.handle_input
+	ld a, [wInPlayAreaCurPosition]
+	ld [wInPlayAreaTemporaryPosition], a
+	call OpenInPlayAreaScreen_HandleInput
+	jr c, .pressed
+
+	ld a, [wInPlayAreaCurPosition]
+	cp INPLAYAREA_PLAYER_PLAY_AREA
+	jp z, .show_turn_holder_play_area
+	cp INPLAYAREA_OPP_PLAY_AREA
+	jp z, .show_non_turn_holder_play_area
+
+	; check if the cursor moved.
+	ld hl, wInPlayAreaTemporaryPosition
+	cp [hl]
+	call nz, .print_associated_text
+
+	jr .on_frame
+
+.pressed
+	cp -1
+	jr nz, .selection
+
+	; pressed b button.
+	call ZeroObjectPositionsAndToggleOAMCopy_Bank6
+	lb de, $38, $9f
+	call SetupText
+	scf
+	ret
+
+.skip_input
+	call ZeroObjectPositionsAndToggleOAMCopy_Bank6
+	lb de, $38, $9f
+	call SetupText
+	or a
+	ret
+
+.selection ; pressed a button or start button.
+	call ZeroObjectPositionsAndToggleOAMCopy_Bank6
+	lb de, $38, $9f
+	call SetupText
+	ld a, [wInPlayAreaCurPosition]
+	ld [wInPlayAreaPreservedPosition], a
+	ld hl, .jump_table
+	call JumpToFunctionInTable
+	ld a, [wInPlayAreaPreservedPosition]
+	ld [wInPlayAreaCurPosition], a
+
+	jp .start
+
+.print_associated_text ; 18171 (6:4171)
+; each position has a text associated to it,
+; which is printed at the bottom of the screen
+	push af
+	lb de, 1, 17
+	call InitTextPrinting
+	ldtx hl, EmptyLineText
+	call ProcessTextFromID
+
+	ld hl, hffb0
+	ld [hl], $01
+	ldtx hl, HandText_2
+	call ProcessTextFromID
+
+	ld hl, hffb0
+	ld [hl], $00
+	lb de, 1, 17
+	call InitTextPrinting
+	pop af
+	ld hl, OpenInPlayAreaScreen_TextTable
+	ld b, 0
+	sla a
+	ld c, a
+	add hl, bc
+
+	; hl = OpenInPlayAreaScreen_TextTable + 2 * (wInPlayAreaCurPosition)
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld a, h
+
+	; jump ahead if entry does not contain null text (it's not active pokemon)
+	or a
+	jr nz, .print_hand_or_discard_pile
+
+	ld a, l
+	; bench slots have dummy text IDs assigned to them, which are never used.
+	; these are secretly not text id's, but rather, 2-byte PLAY_AREA_BENCH_* constants
+	; check if the value at register l is one of those, and jump ahead if not
+	cp PLAY_AREA_BENCH_5 + $01
+	jr nc, .print_hand_or_discard_pile
+
+; if we make it here, we need to print a Pokemon card name.
+; wInPlayAreaCurPosition determines which duelist
+; and l contains the PLAY_AREA_* location of the card.
+	ld a, [wInPlayAreaCurPosition]
+	cp INPLAYAREA_PLAYER_HAND
+	jr nc, .opponent_side
+
+	ld a, l
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	cp -1
+	ret z
+
+	call GetCardIDFromDeckIndex
+	call LoadCardDataToBuffer1_FromCardID
+	jr .display_card_name
+
+.opponent_side
+	ld a, l
+	add DUELVARS_ARENA_CARD
+	call GetNonTurnDuelistVariable
+	cp -1
+	ret z
+
+	call SwapTurn
+	call GetCardIDFromDeckIndex
+	call LoadCardDataToBuffer1_FromCardID
+	call SwapTurn
+
+.display_card_name
+	ld a, 18
+	call CopyCardNameAndLevel
+	ld hl, wDefaultText
+	call ProcessText
+	ret
+
+.print_hand_or_discard_pile
+; if we make it here, cursor position is to Hand or Discard Pile
+; so DuelistHandText_2 or DuelistDiscardPileText will be printed
+
+	ld a, [wInPlayAreaCurPosition]
+	cp INPLAYAREA_OPP_ACTIVE
+	jr nc, .opp_side_print_hand_or_discard_pile
+	call PrintTextNoDelay
+	ret
+
+.opp_side_print_hand_or_discard_pile
+	call SwapTurn
+	call PrintTextNoDelay
+	call SwapTurn
+	ret
+
+.show_turn_holder_play_area
+	lb de, $38, $9f
+	call SetupText
+	ldh a, [hWhoseTurn]
+	push af
+	bank1call OpenTurnHolderPlayAreaScreen
+	pop af
+	ldh [hWhoseTurn], a
+	ld a, [wInPlayAreaPreservedPosition]
+	ld [wInPlayAreaCurPosition], a
+	jp .start
+
+.show_non_turn_holder_play_area
+	lb de, $38, $9f
+	call SetupText
+	ldh a, [hWhoseTurn]
+	push af
+	bank1call OpenNonTurnHolderPlayAreaScreen
+	pop af
+	ldh [hWhoseTurn], a
+	ld a, [wInPlayAreaPreservedPosition]
+	ld [wInPlayAreaCurPosition], a
+	jp .start
+
+.jump_table ; (6:4228)
+	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x00: INPLAYAREA_PLAYER_BENCH_1
+	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x01: INPLAYAREA_PLAYER_BENCH_2
+	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x02: INPLAYAREA_PLAYER_BENCH_3
+	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x03: INPLAYAREA_PLAYER_BENCH_4
+	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x04: INPLAYAREA_PLAYER_BENCH_5
+	dw OpenInPlayAreaScreen_TurnHolderPlayArea       ; 0x05: INPLAYAREA_PLAYER_ACTIVE
+	dw OpenInPlayAreaScreen_TurnHolderHand           ; 0x06: INPLAYAREA_PLAYER_HAND
+	dw OpenInPlayAreaScreen_TurnHolderDiscardPile    ; 0x07: INPLAYAREA_PLAYER_DISCARD_PILE
+	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x08: INPLAYAREA_OPP_ACTIVE
+	dw OpenInPlayAreaScreen_NonTurnHolderHand        ; 0x09: INPLAYAREA_OPP_HAND
+	dw OpenInPlayAreaScreen_NonTurnHolderDiscardPile ; 0x0a: INPLAYAREA_OPP_DISCARD_PILE
+	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0b: INPLAYAREA_OPP_BENCH_1
+	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0c: INPLAYAREA_OPP_BENCH_2
+	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0d: INPLAYAREA_OPP_BENCH_3
+	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0e: INPLAYAREA_OPP_BENCH_4
+	dw OpenInPlayAreaScreen_NonTurnHolderPlayArea    ; 0x0f: INPLAYAREA_OPP_BENCH_5
+
+OpenInPlayAreaScreen_TurnHolderPlayArea:
+	; wInPlayAreaCurPosition constants conveniently map to (PLAY_AREA_* constants - 1)
+	; for bench locations. this mapping is taken for granted in the following code.
+	ld a, [wInPlayAreaCurPosition]
+	inc a
+	cp INPLAYAREA_PLAYER_ACTIVE + $01
+	jr nz, .on_bench
+	xor a ; PLAY_AREA_ARENA
+.on_bench
+	ld [wCurPlayAreaSlot], a
+	add DUELVARS_ARENA_CARD
+	call GetTurnDuelistVariable
+	cp -1
+	ret z
+	call GetCardIDFromDeckIndex
+	call LoadCardDataToBuffer1_FromCardID
+	xor a
+	ld [wCurPlayAreaY], a
+	bank1call OpenCardPage_FromCheckPlayArea
+	ret
+
+OpenInPlayAreaScreen_NonTurnHolderPlayArea:
+	ld a, [wInPlayAreaCurPosition]
+	sub INPLAYAREA_OPP_ACTIVE
+	or a
+	jr z, .active
+	; convert INPLAYAREA_OPP_BENCH_* constant to PLAY_AREA_BENCH_* constant
+	sub INPLAYAREA_OPP_BENCH_1 - INPLAYAREA_OPP_ACTIVE - PLAY_AREA_BENCH_1
+.active
+	ld [wCurPlayAreaSlot], a
+	add DUELVARS_ARENA_CARD
+	call GetNonTurnDuelistVariable
+	cp -1
+	ret z
+	call SwapTurn
+	call GetCardIDFromDeckIndex
+	call LoadCardDataToBuffer1_FromCardID
+	xor a
+	ld [wCurPlayAreaY], a
+	bank1call OpenCardPage_FromCheckPlayArea
+	call SwapTurn
+	ret
+
+OpenInPlayAreaScreen_TurnHolderHand:
+	ldh a, [hWhoseTurn]
+	push af
+	bank1call OpenTurnHolderHandScreen_Simple
+	pop af
+	ldh [hWhoseTurn], a
+	ret
+
+OpenInPlayAreaScreen_NonTurnHolderHand:
+	ldh a, [hWhoseTurn]
+	push af
+	bank1call OpenNonTurnHolderHandScreen_Simple
+	pop af
+	ldh [hWhoseTurn], a
+	ret
+
+OpenInPlayAreaScreen_TurnHolderDiscardPile:
+	ldh a, [hWhoseTurn]
+	push af
+	bank1call OpenTurnHolderDiscardPileScreen
+	pop af
+	ldh [hWhoseTurn], a
+	ret
+
+OpenInPlayAreaScreen_NonTurnHolderDiscardPile:
+	ldh a, [hWhoseTurn]
+	push af
+	bank1call OpenNonTurnHolderDiscardPileScreen
+	pop af
+	ldh [hWhoseTurn], a
+	ret
+
+OpenInPlayAreaScreen_TextTable:
+; note that for bench slots, the entries are
+; PLAY_AREA_BENCH_* constants in practice
+	tx HandText               ; INPLAYAREA_PLAYER_BENCH_1
+	tx CheckText              ; INPLAYAREA_PLAYER_BENCH_2
+	tx AttackText             ; INPLAYAREA_PLAYER_BENCH_3
+	tx PKMNPowerText          ; INPLAYAREA_PLAYER_BENCH_4
+	tx DoneText               ; INPLAYAREA_PLAYER_BENCH_5
+	dw NULL                   ; INPLAYAREA_PLAYER_ACTIVE
+	tx DuelistHandText_2      ; INPLAYAREA_PLAYER_HAND
+	tx DuelistDiscardPileText ; INPLAYAREA_PLAYER_DISCARD_PILE
+	dw NULL                   ; INPLAYAREA_OPP_ACTIVE
+	tx DuelistHandText_2      ; INPLAYAREA_OPP_HAND
+	tx DuelistDiscardPileText ; INPLAYAREA_OPP_DISCARD_PILE
+	tx HandText               ; INPLAYAREA_OPP_BENCH_1
+	tx CheckText              ; INPLAYAREA_OPP_BENCH_2
+	tx AttackText             ; INPLAYAREA_OPP_BENCH_3
+	tx PKMNPowerText          ; INPLAYAREA_OPP_BENCH_4
+	tx DoneText               ; INPLAYAREA_OPP_BENCH_5
+
+in_play_area_cursor_transition: MACRO
+	cursor_transition \1, \2, \3, INPLAYAREA_\4, INPLAYAREA_\5, INPLAYAREA_\6, INPLAYAREA_\7
+ENDM
+
+; 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:
+	in_play_area_cursor_transition $18, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_2, PLAYER_BENCH_5
+	in_play_area_cursor_transition $30, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_3, PLAYER_BENCH_1
+	in_play_area_cursor_transition $48, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_4, PLAYER_BENCH_2
+	in_play_area_cursor_transition $60, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_5, PLAYER_BENCH_3
+	in_play_area_cursor_transition $78, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_1, PLAYER_BENCH_4
+	in_play_area_cursor_transition $30, $6c, $00,             OPP_ACTIVE, PLAYER_BENCH_1, PLAYER_DISCARD_PILE, PLAYER_DISCARD_PILE
+	in_play_area_cursor_transition $78, $80, $00,             PLAYER_DISCARD_PILE, PLAYER_BENCH_1, PLAYER_ACTIVE, PLAYER_ACTIVE
+	in_play_area_cursor_transition $78, $70, $00,             OPP_ACTIVE, PLAYER_HAND, PLAYER_ACTIVE, PLAYER_ACTIVE
+	in_play_area_cursor_transition $78, $34, 1 << OAM_X_FLIP, OPP_BENCH_1, PLAYER_ACTIVE, OPP_DISCARD_PILE, OPP_DISCARD_PILE
+	in_play_area_cursor_transition $30, $20, 1 << OAM_X_FLIP, OPP_BENCH_1, OPP_DISCARD_PILE, OPP_ACTIVE, OPP_ACTIVE
+	in_play_area_cursor_transition $30, $38, 1 << OAM_X_FLIP, OPP_BENCH_1, PLAYER_ACTIVE, OPP_ACTIVE, OPP_ACTIVE
+	in_play_area_cursor_transition $90, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_5, OPP_BENCH_2
+	in_play_area_cursor_transition $78, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_1, OPP_BENCH_3
+	in_play_area_cursor_transition $60, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_2, OPP_BENCH_4
+	in_play_area_cursor_transition $48, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_3, OPP_BENCH_5
+	in_play_area_cursor_transition $30, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_4, OPP_BENCH_1
+
+OpenInPlayAreaScreen_TransitionTable2:
+	in_play_area_cursor_transition $18, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_2, PLAYER_BENCH_5
+	in_play_area_cursor_transition $30, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_3, PLAYER_BENCH_1
+	in_play_area_cursor_transition $48, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_4, PLAYER_BENCH_2
+	in_play_area_cursor_transition $60, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_5, PLAYER_BENCH_3
+	in_play_area_cursor_transition $78, $8c, $00,             PLAYER_ACTIVE, PLAYER_PLAY_AREA, PLAYER_BENCH_1, PLAYER_BENCH_4
+	in_play_area_cursor_transition $30, $6c, $00,             OPP_ACTIVE, PLAYER_BENCH_1, PLAYER_DISCARD_PILE, PLAYER_DISCARD_PILE
+	in_play_area_cursor_transition $78, $80, $00,             PLAYER_DISCARD_PILE, PLAYER_BENCH_1, PLAYER_ACTIVE, PLAYER_ACTIVE
+	in_play_area_cursor_transition $78, $70, $00,             OPP_ACTIVE, PLAYER_HAND, PLAYER_ACTIVE, PLAYER_ACTIVE
+	in_play_area_cursor_transition $78, $34, 1 << OAM_X_FLIP, OPP_BENCH_1, PLAYER_ACTIVE, OPP_DISCARD_PILE, OPP_DISCARD_PILE
+	in_play_area_cursor_transition $30, $20, 1 << OAM_X_FLIP, OPP_BENCH_1, OPP_DISCARD_PILE, OPP_ACTIVE, OPP_ACTIVE
+	in_play_area_cursor_transition $30, $38, 1 << OAM_X_FLIP, OPP_HAND, PLAYER_ACTIVE, OPP_ACTIVE, OPP_ACTIVE
+	in_play_area_cursor_transition $90, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_5, OPP_BENCH_2
+	in_play_area_cursor_transition $78, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_1, OPP_BENCH_3
+	in_play_area_cursor_transition $60, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_2, OPP_BENCH_4
+	in_play_area_cursor_transition $48, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_3, OPP_BENCH_5
+	in_play_area_cursor_transition $30, $14, 1 << OAM_X_FLIP, OPP_PLAY_AREA, OPP_ACTIVE, OPP_BENCH_4, OPP_BENCH_1
+
+OpenInPlayAreaScreen_HandleInput:
+	xor a
+	ld [wPlaysSfx], a
+	ld hl, wMenuInputTablePointer
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld a, [wInPlayAreaCurPosition]
+	ld l, a
+	ld h, $07
+	call HtimesL
+	add hl, de
+
+	ldh a, [hDPadHeld]
+	or a
+	jp z, .check_button
+
+	inc hl
+	inc hl
+	inc hl
+
+	; check d-pad
+	bit D_UP_F, a
+	jr z, .else_if_down
+
+	; up
+	ld a, [hl]
+	jr .process_dpad
+
+.else_if_down
+	inc hl
+	bit D_DOWN_F, a
+	jr z, .else_if_right
+
+	; down
+	ld a, [hl]
+	jr .process_dpad
+
+.else_if_right
+	inc hl
+	bit D_RIGHT_F, a
+	jr z, .else_if_left
+
+	; right
+	ld a, [hl]
+	jr .process_dpad
+
+.else_if_left
+	inc hl
+	bit D_LEFT_F, a
+	jr z, .check_button
+
+	; left
+	ld a, [hl]
+.process_dpad
+	push af
+	ld a, [wInPlayAreaCurPosition]
+	ld [wInPlayAreaPreservedPosition], a
+	pop af
+
+	ld [wInPlayAreaCurPosition], a
+	cp INPLAYAREA_PLAYER_ACTIVE
+	jr c, .player_area
+	cp INPLAYAREA_OPP_BENCH_1
+	jr c, .next
+	cp INPLAYAREA_PLAYER_PLAY_AREA
+	jr c, .opponent_area
+
+	jr .next
+
+.player_area
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetTurnDuelistVariable
+	dec a
+	jr nz, .bench_pokemon_exists
+
+	; no pokemon in player's bench.
+	; then move to player's play area.
+	ld a, INPLAYAREA_PLAYER_PLAY_AREA
+	ld [wInPlayAreaCurPosition], a
+	jr .next
+
+.bench_pokemon_exists
+	ld b, a
+	ld a, [wInPlayAreaCurPosition]
+	cp b
+	jr c, .next
+
+	; handle index overflow
+	ldh a, [hDPadHeld]
+	bit D_RIGHT_F, a
+	jr z, .on_left
+
+	xor a
+	ld [wInPlayAreaCurPosition], a
+	jr .next
+
+.on_left
+	ld a, b
+	dec a
+	ld [wInPlayAreaCurPosition], a
+	jr .next
+
+.opponent_area
+	ld a, DUELVARS_NUMBER_OF_POKEMON_IN_PLAY_AREA
+	call GetNonTurnDuelistVariable
+	dec a
+	jr nz, .bench_pokemon_exists_2
+
+	ld a, INPLAYAREA_OPP_PLAY_AREA
+	ld [wInPlayAreaCurPosition], a
+	jr .next
+
+.bench_pokemon_exists_2
+	ld b, a
+	ld a, [wInPlayAreaCurPosition]
+	sub INPLAYAREA_OPP_BENCH_1
+	cp b
+	jr c, .next
+
+	ldh a, [hDPadHeld]
+	bit D_LEFT_F, a
+	jr z, .on_right
+
+	ld a, INPLAYAREA_OPP_BENCH_1
+	ld [wInPlayAreaCurPosition], a
+	jr .next
+
+.on_right
+	ld a, b
+	add INPLAYAREA_OPP_DISCARD_PILE
+	ld [wInPlayAreaCurPosition], a
+.next
+	ld a, $01
+	ld [wPlaysSfx], a
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+.check_button
+	ldh a, [hKeysPressed]
+	and A_BUTTON | B_BUTTON
+	jr z, .return
+
+	and A_BUTTON
+	jr nz, .a_button
+
+	; pressed b button
+	ld a, -1
+	farcall PlaySFXConfirmOrCancel
+	scf
+	ret
+
+.a_button
+	call .draw_cursor
+	ld a, $01
+	farcall PlaySFXConfirmOrCancel
+	ld a, [wInPlayAreaCurPosition]
+	scf
+	ret
+
+.return
+	ld a, [wPlaysSfx]
+	or a
+	jr z, .skip_sfx
+	call PlaySFX
+.skip_sfx
+	ld hl, wCheckMenuCursorBlinkCounter
+	ld a, [hl]
+	inc [hl]
+	and $10 - 1
+	ret nz
+
+	bit 4, [hl] ; = and $10
+	jr nz, ZeroObjectPositionsAndToggleOAMCopy_Bank6
+
+.draw_cursor ; 184a0 (6:44a0)
+	call ZeroObjectPositions
+	ld hl, wMenuInputTablePointer
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld a, [wInPlayAreaCurPosition]
+	ld l, a
+	ld h, $07
+	call HtimesL
+	add hl, de
+
+	ld d, [hl] ; x position.
+	inc hl
+	ld e, [hl] ; y position.
+	inc hl
+	ld b, [hl] ; attribute.
+	ld c, $00
+	call SetOneObjectAttributes
+	or a
+	ret
+
+ZeroObjectPositionsAndToggleOAMCopy_Bank6:
+	call ZeroObjectPositions
+	ld a, $01
+	ld [wVBlankOAMCopyToggle], a
+	ret
diff --git a/src/engine/menus/start.asm b/src/engine/menus/start.asm
new file mode 100644
index 0000000..4d46d4a
--- /dev/null
+++ b/src/engine/menus/start.asm
@@ -0,0 +1,418 @@
+; plays the Opening sequence, and handles player selection
+; in the Title Screen and Start Menu
+HandleTitleScreen:
+; if last selected item in Start Menu is 0 (Card Pop!)
+; then skip straight to the Start Menu
+; this makes it so that returning from Card Pop!
+; doesn't play the Opening sequence
+	ld a, [wLastSelectedStartMenuItem]
+	or a
+	jr z, .start_menu
+
+.play_opening
+	ld a, MUSIC_STOP
+	call PlaySong
+	call Func_3ca0
+	call PlayIntroSequence
+	call LoadTitleScreenSprites
+
+	xor a
+	ld [wd635], a
+	ld a, $3c
+	ld [wTitleScreenIgnoreInputCounter], a
+.loop
+	call DoFrameIfLCDEnabled
+	call UpdateRNGSources
+	call AnimateRandomTitleScreenOrb
+	ld hl, wd635
+	inc [hl]
+	call AssertSongFinished
+	or a
+	jr nz, .song_playing
+	; reset back to the opening sequence
+	farcall Func_10ab4
+	jr .play_opening
+
+.song_playing
+	; should we ignore user input?
+	ld hl, wTitleScreenIgnoreInputCounter
+	ld a, [hl]
+	or a
+	jr z, .check_keys
+	; ignore input, decrement the counter
+	dec [hl]
+	jr .loop
+
+.check_keys
+	ldh a, [hKeysPressed]
+	and A_BUTTON | START
+	jr z, .loop
+	ld a, SFX_02
+	call PlaySFX
+	farcall Func_10ab4
+
+.start_menu
+	call CheckIfHasSaveData
+	call HandleStartMenu
+
+; new game
+	ld a, [wStartMenuChoice]
+	cp START_MENU_NEW_GAME
+	jr nz, .continue_from_diary
+	call DeleteSaveDataForNewGame
+	jr c, HandleTitleScreen
+	jr .card_pop
+.continue_from_diary
+	ld a, [wStartMenuChoice]
+	cp START_MENU_CONTINUE_FROM_DIARY
+	jr nz, .card_pop
+	call AskToContinueFromDiaryWithDuelData
+	jr c, HandleTitleScreen
+.card_pop
+	ld a, [wStartMenuChoice]
+	cp START_MENU_CARD_POP
+	jr nz, .continue_duel
+	call ShowCardPopCGBDisclaimer
+	jr c, HandleTitleScreen
+.continue_duel
+	call ResetDoFrameFunction
+	call Func_3ca0
+	ret
+
+; updates wHasSaveData and wHasDuelSaveData
+; depending on whether the save data is valid or not
+CheckIfHasSaveData:
+	farcall ValidateBackupGeneralSaveData
+	ld a, TRUE
+	jr c, .no_error
+	ld a, FALSE
+.no_error
+	ld [wHasSaveData], a
+	cp $00 ; or a
+	jr z, .write_has_duel_data
+	bank1call ValidateSavedNonLinkDuelData
+	ld a, TRUE
+	jr nc, .write_has_duel_data
+	ld a, FALSE
+.write_has_duel_data
+	ld [wHasDuelSaveData], a
+	farcall ValidateBackupGeneralSaveData
+	ret
+
+; handles printing the Start Menu
+; and getting player input and choice
+HandleStartMenu:
+	ld a, MUSIC_PC_MAIN_MENU
+	call PlaySong
+	call DisableLCD
+	farcall Func_10000
+	lb de, $30, $8f
+	call SetupText
+	call Func_3ca0
+	xor a
+	ld [wLineSeparation], a
+	call .DrawPlayerPortrait
+	call .SetStartMenuParams
+
+	ld a, $ff
+	ld [wTitleScreenIgnoreInputCounter], a
+	ld a, [wLastSelectedStartMenuItem]
+	cp $4
+	jr c, .init_menu
+	ld a, [wHasSaveData]
+	or a
+	jr z, .init_menu
+	ld a, 1 ; start at second menu option
+.init_menu
+	ld hl, wStartMenuParams
+	farcall InitAndPrintPauseMenu
+	farcall FlashWhiteScreen
+
+.wait_input
+	call DoFrameIfLCDEnabled
+	call UpdateRNGSources
+	call HandleMenuInput
+	push af
+	call PrintStartMenuDescriptionText
+	pop af
+	jr nc, .wait_input
+	ldh a, [hCurMenuItem]
+	cp e
+	jr nz, .wait_input
+
+	ld [wLastSelectedStartMenuItem], a
+	ld a, [wHasSaveData]
+	or a
+	jr nz, .no_adjustment
+	; New Game is 3rd option
+	; but when there's no save data,
+	; it's the 1st in menu list, so adjust it
+	inc e
+	inc e
+.no_adjustment
+	ld a, e
+	ld [wStartMenuChoice], a
+	ret
+
+.SetStartMenuParams
+	ld hl, .StartMenuParams
+	ld de, wStartMenuParams
+	ld bc, .StartMenuParamsEnd - .StartMenuParams
+	call CopyDataHLtoDE
+
+	ld e, 0
+	ld a, [wHasSaveData]
+	or a
+	jr z, .get_text_id ; New Game
+	inc e
+	ld a, 2
+	call .AddItems
+	ld a, [wHasDuelSaveData]
+	or a
+	jr z, .get_text_id ; Continue From Diary
+	inc e
+	ld a, 1
+	call .AddItems
+	; Continue Duel
+
+.get_text_id
+	sla e
+	ld d, $00
+	ld hl, .StartMenuTextIDs
+	add hl, de
+	; set text ID as Start Menu param
+	ld a, [hli]
+	ld [wStartMenuParams + 6], a
+	ld a, [hl]
+	ld [wStartMenuParams + 7], a
+	ret
+
+; adds c items to start menu list
+; this means adding 2 units per item to the text box height
+; and adding to the number of items
+.AddItems
+	push bc
+	ld c, a
+	; number of items in menu
+	ld a, [wStartMenuParams + 12]
+	add c
+	ld [wStartMenuParams + 12], a
+	; height of text box
+	sla c
+	ld a, [wStartMenuParams + 3]
+	add c
+	ld [wStartMenuParams + 3], a
+	pop bc
+	ret
+
+.StartMenuParams
+	db  0, 0 ; start menu coords
+	db 14, 4 ; start menu text box dimensions
+
+	db  2, 2 ; text alignment for InitTextPrinting
+	tx NewGameText
+	db $ff
+
+	db 1, 2 ; cursor x, cursor y
+	db 2 ; y displacement between items
+	db 1 ; number of items
+	db SYM_CURSOR_R ; cursor tile number
+	db SYM_SPACE ; tile behind cursor
+	dw NULL ; function pointer if non-0
+.StartMenuParamsEnd
+
+.StartMenuTextIDs
+	tx NewGameText
+	tx CardPopContinueDiaryNewGameText
+	tx CardPopContinueDiaryNewGameContinueDuelText
+
+.DrawPlayerPortrait
+	lb bc, 14, 1
+	farcall $4, DrawPlayerPortrait
+	ret
+
+; prints the description for the current selected item
+; in the Start Menu in the text box
+PrintStartMenuDescriptionText:
+	push hl
+	push bc
+	push de
+	; don't print if it's already showing
+	ld a, [wCurMenuItem]
+	ld e, a
+	ld a, [wCurHighlightedStartMenuItem]
+	cp e
+	jr z, .skip
+	ld a, [wHasSaveData]
+	or a
+	jr nz, .has_data
+	; New Game option is 3rd element
+	; in function table, so add 2
+	inc e
+	inc e
+.has_data
+
+	ld a, e
+	push af
+	lb de, 0, 10
+	lb bc, 20, 8
+	call DrawRegularTextBox
+	pop af
+	ld hl, .StartMenuDescriptionFunctionTable
+	call JumpToFunctionInTable
+.skip
+	ld a, [wCurMenuItem]
+	ld [wCurHighlightedStartMenuItem], a
+	pop de
+	pop bc
+	pop hl
+	ret
+
+.StartMenuDescriptionFunctionTable
+	dw .CardPop
+	dw .ContinueFromDiary
+	dw .NewGame
+	dw .ContinueDuel
+
+.CardPop
+	lb de, 1, 12
+	call InitTextPrinting
+	ldtx hl, WhenYouCardPopWithFriendText
+	call PrintTextNoDelay
+	ret
+
+.ContinueDuel
+	lb de, 1, 12
+	call InitTextPrinting
+	ldtx hl, TheGameWillContinueFromThePointInTheDuelText
+	call PrintTextNoDelay
+	ret
+
+.NewGame
+	lb de, 1, 12
+	call InitTextPrinting
+	ldtx hl, StartANewGameText
+	call PrintTextNoDelay
+	ret
+
+.ContinueFromDiary
+	; get OW map name
+	ld a, [wCurOverworldMap]
+	add a
+	ld c, a
+	ld b, $00
+	ld hl, OverworldMapNames
+	add hl, bc
+	ld a, [hli]
+	ld [wTxRam2 + 0], a
+	ld a, [hl]
+	ld [wTxRam2 + 1], a
+
+	; get medal count
+	ld a, [wMedalCount]
+	ld [wTxRam3 + 0], a
+	xor a
+	ld [wTxRam3 + 1], a
+
+	; print text
+	lb de, 1, 10
+	call InitTextPrinting
+	ldtx hl, ContinueFromDiarySummaryText
+	call PrintTextNoDelay
+
+	ld a, [wTotalNumCardsCollected]
+	ld d, a
+	ld a, [wTotalNumCardsToCollect]
+	ld e, a
+	ld bc, $90e
+	farcall Func_1024f
+	ld bc, $a10
+	farcall Func_101df
+	ret
+
+; asks the player whether it's okay to delete
+; the save data in order to create a new one
+; if player answers "yes", delete it
+DeleteSaveDataForNewGame:
+; exit if there no save data
+	ld a, [wHasSaveData]
+	or a
+	ret z
+
+	call DisableLCD
+	farcall Func_10000
+	call Func_3ca0
+	farcall FlashWhiteScreen
+	call DoFrameIfLCDEnabled
+	ldtx hl, SavedDataAlreadyExistsText
+	call PrintScrollableText_NoTextBoxLabel
+	ldtx hl, OKToDeleteTheDataText
+	call YesOrNoMenuWithText
+	ret c ; quit if chose "no"
+	farcall InvalidateSaveData
+	ldtx hl, AllDataWasDeletedText
+	call PrintScrollableText_NoTextBoxLabel
+	or a
+	ret
+
+; asks the player if the game should resume
+; from diary even though there is Duel save data
+; returns carry if "no" was selected
+AskToContinueFromDiaryWithDuelData:
+; return if there's no duel save data
+	ld a, [wHasDuelSaveData]
+	or a
+	ret z
+
+	call DisableLCD
+	farcall Func_10000
+	call Func_3ca0
+	farcall FlashWhiteScreen
+	call DoFrameIfLCDEnabled
+	ldtx hl, DataExistsWhenPowerWasTurnedOFFDuringDuelText
+	call PrintScrollableText_NoTextBoxLabel
+	ldtx hl, ContinueFromDiaryText
+	call YesOrNoMenuWithText
+	ret c
+	or a
+	ret
+
+; shows disclaimer for Card Pop!
+; in case player is not playing in CGB
+; return carry if disclaimer was shown
+ShowCardPopCGBDisclaimer:
+; return if playing in CGB
+	ld a, [wConsole]
+	cp CONSOLE_CGB
+	ret z
+
+	lb de, 0, 10
+	lb bc, 20, 8
+	call DrawRegularTextBox
+	lb de, 1,12
+	call InitTextPrinting
+	ldtx hl, YouCanAccessCardPopOnlyWithGameBoyColorsText
+	call PrintTextNoDelay
+	lb bc, SYM_CURSOR_D, SYM_BOX_BOTTOM
+	lb de, 18, 17
+	call SetCursorParametersForTextBox
+	call WaitForButtonAorB
+	scf
+	ret
+
+DrawPlayerPortraitAndPrintNewGameText:
+	call DisableLCD
+	farcall Func_10a9b
+	farcall Func_10000
+	call Func_3ca0
+	ld hl, HandleAllSpriteAnimations
+	call SetDoFrameFunction
+	lb bc, 7, 3
+	farcall $4, DrawPlayerPortrait
+	farcall Func_10af9
+	call DoFrameIfLCDEnabled
+	ldtx hl, IsCrazyAboutPokemonAndPokemonCardCollectingText
+	call PrintScrollableText_NoTextBoxLabel
+	call ResetDoFrameFunction
+	call Func_3ca0
+	ret
diff --git a/src/engine/menus/unknown.asm b/src/engine/menus/unknown.asm
new file mode 100644
index 0000000..c6f04fa
--- /dev/null
+++ b/src/engine/menus/unknown.asm
@@ -0,0 +1,103 @@
+Func_18661: ; unreferenced
+	xor a
+	ld [wPlaysSfx], a
+	ld a, [wCheckMenuCursorXPosition]
+	ld d, a
+	ld a, [wCheckMenuCursorYPosition]
+	ld e, a
+	ldh a, [hDPadHeld]
+	or a
+	jr z, .check_button
+; check input from dpad
+	bit D_LEFT_F, a
+	jr nz, .left_or_right
+	bit D_RIGHT_F, a
+	jr z, .check_up_and_down
+.left_or_right
+; swap the lsb of x position value.
+	ld a, d
+	xor $1
+	ld d, a
+	jr .cursor_moved
+
+.check_up_and_down
+	bit D_UP_F, a
+	jr nz, .up_or_down
+	bit D_DOWN_F, a
+	jr z, .check_button
+.up_or_down
+	ld a, e
+	xor $1
+	ld e, a
+.cursor_moved
+	ld a, $1
+	ld [wPlaysSfx], a
+	push de
+	call .draw_blank_cursor
+	pop de
+	ld a, d
+	ld [wCheckMenuCursorXPosition], a
+	ld a, e
+	ld [wCheckMenuCursorYPosition], a
+	xor a
+	ld [wCheckMenuCursorBlinkCounter], a
+.check_button
+	ldh a, [hKeysPressed]
+	and A_BUTTON | B_BUTTON
+	jr z, .check_cursor_moved
+	and A_BUTTON
+	jr nz, .a_button
+
+; b button
+	ld a, -1
+	call Func_190fb
+	scf
+	ret
+
+; a button
+.a_button
+	call .draw_cursor
+	ld a, 1
+	call Func_190fb
+	scf
+	ret
+
+.check_cursor_moved
+	ld a, [wPlaysSfx]
+	or a
+	jr z, .check_cursor_blink
+	call PlaySFX
+.check_cursor_blink
+	ld hl, wCheckMenuCursorBlinkCounter
+	ld a, [hl]
+	inc [hl]
+	and %00001111
+	ret nz
+	ld a, SYM_CURSOR_R
+	bit D_RIGHT_F, [hl]
+	jr z, .draw_tile
+.draw_blank_cursor ; 186d4 (6:46d4)
+	ld a, SYM_SPACE
+.draw_tile
+	ld e, a
+	ld a, 10
+	ld l, a
+	ld a, [wCheckMenuCursorXPosition]
+	ld h, a
+	call HtimesL
+	ld a, l
+	add 1
+	ld b, a
+	ld a, [wCheckMenuCursorYPosition]
+	sla a
+	add 14
+	ld c, a
+	ld a, e
+	; b = 11, c = y_pos * 2 + 14
+	; h = x_pos * 10, l = 10
+	call WriteByteToBGMap0
+	or a
+	ret
+.draw_cursor ; 186f3 (6:46f3)
+	ld a, SYM_CURSOR_R
+	jr .draw_tile
diff --git a/src/engine/overworld/scripting.asm b/src/engine/overworld/scripting.asm
index 0010a77..79cfaa3 100644
--- a/src/engine/overworld/scripting.asm
+++ b/src/engine/overworld/scripting.asm
@@ -1819,7 +1819,7 @@ ScriptCommand_nop:
 
 ScriptCommand_GiveStarterDeck:
 	ld a, [wStarterDeckChoice]
-	bank1call Func_7576
+	bank1call AddStarterDeck
 	jp IncreaseScriptPointerBy1
 
 Unknown_d3dd:
diff --git a/src/engine/promotional_card.asm b/src/engine/promotional_card.asm
new file mode 100644
index 0000000..bb3250a
--- /dev/null
+++ b/src/engine/promotional_card.asm
@@ -0,0 +1,61 @@
+; shows screen with the promotional card and received text
+; depending on input a
+; if $0 = Legendary Molters, Articuno, Zapdos and Dragonite cards
+; otherwise, a card ID
+_ShowPromotionalCardScreen:
+	push af
+	lb de, $38, $9f
+	call SetupText
+	pop af
+	or a
+	jr nz, .else
+	ld a, MOLTRES2
+	call .legendary_card_text
+	ld a, ARTICUNO2
+	call .legendary_card_text
+	ld a, ZAPDOS3
+	call .legendary_card_text
+	ld a, DRAGONITE1
+.legendary_card_text
+	ldtx hl, ReceivedLegendaryCardText
+	jr .print_text
+.else
+	ldtx hl, ReceivedCardText
+	cp VILEPLUME
+	jr z, .print_text
+	cp BLASTOISE
+	jr z, .print_text
+	ldtx hl, ReceivedPromotionalFlyingPikachuText
+	cp FLYING_PIKACHU
+	jr z, .print_text
+	ldtx hl, ReceivedPromotionalSurfingPikachuText
+	cp SURFING_PIKACHU1
+	jr z, .print_text
+	cp SURFING_PIKACHU2
+	jr z, .print_text
+	ldtx hl, ReceivedPromotionalCardText
+.print_text
+	push hl
+	ld e, a
+	ld d, $0
+	call LoadCardDataToBuffer1_FromCardID
+	call PauseSong
+	ld a, MUSIC_MEDAL
+	call PlaySong
+	ld hl, wLoadedCard1Name
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	bank1call LoadTxRam2 ; switch to bank 1, but call a home func
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	pop hl
+	bank1call _DisplayCardDetailScreen
+.loop
+	call AssertSongFinished
+	or a
+	jr nz, .loop
+
+	call ResumeSong
+	bank1call OpenCardPage_FromHand
+	ret
diff --git a/src/engine/sequences/credits_sequence_commands.asm b/src/engine/sequences/credits_sequence_commands.asm
index 0fde871..d80df8b 100644
--- a/src/engine/sequences/credits_sequence_commands.asm
+++ b/src/engine/sequences/credits_sequence_commands.asm
@@ -300,7 +300,7 @@ CreditsSequenceCmd_DisableLCD: ; 1d9db (7:59db)
 
 CreditsSequenceCmd_FadeIn: ; 1d9e1 (7:59e1)
 	call DisableLCD
-	call Set_WD_on
+	call SetWindowOn
 	farcall Func_10af9
 	jp AdvanceCreditsSequenceCmdPtrBy2
 
@@ -310,7 +310,7 @@ CreditsSequenceCmd_FadeOut: ; 1d9ee (7:59ee)
 	call EnableLCD
 	call DoFrameIfLCDEnabled
 	call DisableLCD
-	call Set_WD_off
+	call SetWindowOff
 	jp AdvanceCreditsSequenceCmdPtrBy2
 
 CreditsSequenceCmd_DrawRectangle: ; 1da04 (7:5a04)
diff --git a/src/engine/sequences/opening_sequence_commands.asm b/src/engine/sequences/intro_sequence_commands.asm
index 446daa2..028027b 100644
--- a/src/engine/sequences/opening_sequence_commands.asm
+++ b/src/engine/sequences/intro_sequence_commands.asm
@@ -1,4 +1,4 @@
-ExecuteOpeningSequenceCmd: ; 1d408 (7:5408)
+ExecuteIntroSequenceCmd: ; 1d408 (7:5408)
 	ld a, [wSequenceDelay]
 	or a
 	jr z, .call_function
@@ -25,22 +25,22 @@ ExecuteOpeningSequenceCmd: ; 1d408 (7:5408)
 	ld l, e
 	ld h, d
 	call CallHL2
-	jr c, ExecuteOpeningSequenceCmd
+	jr c, ExecuteIntroSequenceCmd
 	ret
 
-AdvanceOpeningSequenceCmdPtrBy2: ; 1d42e (7:542e)
+AdvanceIntroSequenceCmdPtrBy2: ; 1d42e (7:542e)
 	ld a, 2
-	jr AdvanceOpeningSequenceCmdPtr
+	jr AdvanceIntroSequenceCmdPtr
 
-AdvanceOpeningSequenceCmdPtrBy3: ; 1d432 (7:5432)
+AdvanceIntroSequenceCmdPtrBy3: ; 1d432 (7:5432)
 	ld a, 3
-	jr AdvanceOpeningSequenceCmdPtr
+	jr AdvanceIntroSequenceCmdPtr
 
-AdvanceOpeningSequenceCmdPtrBy4: ; 1d436 (7:5436)
+AdvanceIntroSequenceCmdPtrBy4: ; 1d436 (7:5436)
 	ld a, 4
 ;	fallthrough
 
-AdvanceOpeningSequenceCmdPtr: ; 1d438 (7:5438)
+AdvanceIntroSequenceCmdPtr: ; 1d438 (7:5438)
 	push hl
 	ld hl, wSequenceCmdPtr
 	add [hl]
@@ -51,7 +51,7 @@ AdvanceOpeningSequenceCmdPtr: ; 1d438 (7:5438)
 	pop hl
 	ret
 
-OpeningSequenceCmd_WaitOrbsAnimation: ; 1d444 (7:5444)
+IntroSequenceCmd_WaitOrbsAnimation: ; 1d444 (7:5444)
 	ld c, $7
 	ld de, wTitleScreenSprites
 .loop
@@ -63,7 +63,7 @@ OpeningSequenceCmd_WaitOrbsAnimation: ; 1d444 (7:5444)
 	inc de
 	dec c
 	jr nz, .loop
-	call AdvanceOpeningSequenceCmdPtrBy2
+	call AdvanceIntroSequenceCmdPtrBy2
 	scf
 	ret
 
@@ -71,14 +71,14 @@ OpeningSequenceCmd_WaitOrbsAnimation: ; 1d444 (7:5444)
 	or a
 	ret
 
-OpeningSequenceCmd_Wait: ; 1d460 (7:5460)
+IntroSequenceCmd_Wait: ; 1d460 (7:5460)
 	ld a, c
 	ld [wSequenceDelay], a
-	call AdvanceOpeningSequenceCmdPtrBy3
+	call AdvanceIntroSequenceCmdPtrBy3
 	scf
 	ret
 
-OpeningSequenceCmd_SetOrbsAnimations: ; 1d469 (7:5469)
+IntroSequenceCmd_SetOrbsAnimations: ; 1d469 (7:5469)
 	ld l, c
 	ld h, b
 
@@ -97,11 +97,11 @@ OpeningSequenceCmd_SetOrbsAnimations: ; 1d469 (7:5469)
 	dec c
 	jr nz, .loop
 
-	call AdvanceOpeningSequenceCmdPtrBy4
+	call AdvanceIntroSequenceCmdPtrBy4
 	scf
 	ret
 
-OpeningSequenceCmd_SetOrbsCoordinates: ; 1d486 (7:5486)
+IntroSequenceCmd_SetOrbsCoordinates: ; 1d486 (7:5486)
 	ld l, c
 	ld h, b
 
@@ -131,11 +131,11 @@ OpeningSequenceCmd_SetOrbsCoordinates: ; 1d486 (7:5486)
 	dec c
 	jr nz, .loop
 
-	call AdvanceOpeningSequenceCmdPtrBy4
+	call AdvanceIntroSequenceCmdPtrBy4
 	scf
 	ret
 
-OpeningOrbAnimations_CharizardScene: ; 1d4b0 (7:54b0)
+IntroOrbAnimations_CharizardScene: ; 1d4b0 (7:54b0)
 	db SPRITE_ANIM_192 ; GRASS
 	db SPRITE_ANIM_193 ; FIRE
 	db SPRITE_ANIM_193 ; WATER
@@ -144,7 +144,7 @@ OpeningOrbAnimations_CharizardScene: ; 1d4b0 (7:54b0)
 	db SPRITE_ANIM_192 ; PSYCHIC
 	db SPRITE_ANIM_193 ; FIGHTING
 
-OpeningOrbCoordinates_CharizardScene: ; 1d4b7 (7:54b7)
+IntroOrbCoordinates_CharizardScene: ; 1d4b7 (7:54b7)
 	; x coord, y coord
 	db 240,  28 ; GRASS
 	db 160, 120 ; FIRE
@@ -154,7 +154,7 @@ OpeningOrbCoordinates_CharizardScene: ; 1d4b7 (7:54b7)
 	db 240, 100 ; PSYCHIC
 	db 160,  44 ; FIGHTING
 
-OpeningOrbAnimations_ScytherScene: ; 1d4c5 (7:54c5)
+IntroOrbAnimations_ScytherScene: ; 1d4c5 (7:54c5)
 	db SPRITE_ANIM_193 ; GRASS
 	db SPRITE_ANIM_192 ; FIRE
 	db SPRITE_ANIM_192 ; WATER
@@ -163,7 +163,7 @@ OpeningOrbAnimations_ScytherScene: ; 1d4c5 (7:54c5)
 	db SPRITE_ANIM_193 ; PSYCHIC
 	db SPRITE_ANIM_192 ; FIGHTING
 
-OpeningOrbCoordinates_ScytherScene: ; 1d4cc (7:54cc)
+IntroOrbCoordinates_ScytherScene: ; 1d4cc (7:54cc)
 	; x coord, y coord
 	db 160,  28 ; GRASS
 	db 240, 120 ; FIRE
@@ -173,7 +173,7 @@ OpeningOrbCoordinates_ScytherScene: ; 1d4cc (7:54cc)
 	db 160, 100 ; PSYCHIC
 	db 240,  44 ; FIGHTING
 
-OpeningOrbAnimations_AerodactylScene: ; 1d4da (7:54da)
+IntroOrbAnimations_AerodactylScene: ; 1d4da (7:54da)
 	db SPRITE_ANIM_194 ; GRASS
 	db SPRITE_ANIM_197 ; FIRE
 	db SPRITE_ANIM_200 ; WATER
@@ -182,7 +182,7 @@ OpeningOrbAnimations_AerodactylScene: ; 1d4da (7:54da)
 	db SPRITE_ANIM_209 ; PSYCHIC
 	db SPRITE_ANIM_212 ; FIGHTING
 
-OpeningOrbCoordinates_AerodactylScene: ; 1d4e1 (7:54e1)
+IntroOrbCoordinates_AerodactylScene: ; 1d4e1 (7:54e1)
 	; x coord, y coord
 	db 240,  32 ; GRASS
 	db 160, 112 ; FIRE
@@ -192,7 +192,7 @@ OpeningOrbCoordinates_AerodactylScene: ; 1d4e1 (7:54e1)
 	db 240,  96 ; PSYCHIC
 	db 160,  48 ; FIGHTING
 
-OpeningOrbAnimations_InitialTitleScreen: ; 1d4ef (7:54ef)
+IntroOrbAnimations_InitialTitleScreen: ; 1d4ef (7:54ef)
 	db SPRITE_ANIM_195 ; GRASS
 	db SPRITE_ANIM_198 ; FIRE
 	db SPRITE_ANIM_201 ; WATER
@@ -201,7 +201,7 @@ OpeningOrbAnimations_InitialTitleScreen: ; 1d4ef (7:54ef)
 	db SPRITE_ANIM_210 ; PSYCHIC
 	db SPRITE_ANIM_213 ; FIGHTING
 
-OpeningOrbCoordinates_InitialTitleScreen: ; 1d4f6 (7:54f6)
+IntroOrbCoordinates_InitialTitleScreen: ; 1d4f6 (7:54f6)
 	; x coord, y coord
 	db 112, 144 ; GRASS
 	db  12, 144 ; FIRE
@@ -211,7 +211,7 @@ OpeningOrbCoordinates_InitialTitleScreen: ; 1d4f6 (7:54f6)
 	db 132, 144 ; PSYCHIC
 	db  72, 144 ; FIGHTING
 
-OpeningOrbAnimations_InTitleScreen: ; 1d504 (7:5504)
+IntroOrbAnimations_InTitleScreen: ; 1d504 (7:5504)
 	db SPRITE_ANIM_196 ; GRASS
 	db SPRITE_ANIM_199 ; FIRE
 	db SPRITE_ANIM_202 ; WATER
@@ -220,7 +220,7 @@ OpeningOrbAnimations_InTitleScreen: ; 1d504 (7:5504)
 	db SPRITE_ANIM_211 ; PSYCHIC
 	db SPRITE_ANIM_214 ; FIGHTING
 
-OpeningOrbCoordinates_InTitleScreen: ; 1d50b (7:550b)
+IntroOrbCoordinates_InTitleScreen: ; 1d50b (7:550b)
 	; x coord, y coord
 	db 112,  76 ; GRASS
 	db   0,  28 ; FIRE
@@ -230,18 +230,18 @@ OpeningOrbCoordinates_InTitleScreen: ; 1d50b (7:550b)
 	db 144,  28 ; PSYCHIC
 	db  72,  76 ; FIGHTING
 
-OpeningSequenceCmd_PlayTitleScreenMusic: ; 1d519 (7:5519)
+IntroSequenceCmd_PlayTitleScreenMusic: ; 1d519 (7:5519)
 	ld a, MUSIC_TITLESCREEN
 	call PlaySong
-	call AdvanceOpeningSequenceCmdPtrBy2
+	call AdvanceIntroSequenceCmdPtrBy2
 	scf
 	ret
 
-OpeningSequenceCmd_WaitSFX: ; 1d523 (7:5523)
+IntroSequenceCmd_WaitSFX: ; 1d523 (7:5523)
 	call AssertSFXFinished
 	or a
 	jr nz, .no_carry
-	call AdvanceOpeningSequenceCmdPtrBy2
+	call AdvanceIntroSequenceCmdPtrBy2
 	scf
 	ret
 
@@ -249,39 +249,39 @@ OpeningSequenceCmd_WaitSFX: ; 1d523 (7:5523)
 	or a
 	ret
 
-OpeningSequenceCmd_PlaySFX: ; 1d530 (7:5530)
+IntroSequenceCmd_PlaySFX: ; 1d530 (7:5530)
 	ld a, c
 	call PlaySFX
-	call AdvanceOpeningSequenceCmdPtrBy3
+	call AdvanceIntroSequenceCmdPtrBy3
 	scf
 	ret
 
-OpeningSequenceCmd_FadeIn: ; 1d539 (7:5539)
+IntroSequenceCmd_FadeIn: ; 1d539 (7:5539)
 	ld a, TRUE
-	ld [wOpeningSequencePalsNeedUpdate], a
-	call AdvanceOpeningSequenceCmdPtrBy2
+	ld [wIntroSequencePalsNeedUpdate], a
+	call AdvanceIntroSequenceCmdPtrBy2
 	scf
 	ret
 
-OpeningSequenceCmd_FadeOut: ; 1d543 (7:5543)
+IntroSequenceCmd_FadeOut: ; 1d543 (7:5543)
 	farcall Func_10d50
 	ld a, TRUE
-	ld [wOpeningSequencePalsNeedUpdate], a
-	call AdvanceOpeningSequenceCmdPtrBy2
+	ld [wIntroSequencePalsNeedUpdate], a
+	call AdvanceIntroSequenceCmdPtrBy2
 	scf
 	ret
 
-OpeningSequenceCmd_LoadCharizardScene: ; 1d551 (7:5551)
+IntroSequenceCmd_LoadCharizardScene: ; 1d551 (7:5551)
 	lb bc, 6, 3
 	ld a, SCENE_CHARIZARD_INTRO
 	jr LoadOpeningSceneAndUpdateSGBBorder
 
-OpeningSequenceCmd_LoadScytherScene: ; 1d558 (7:5558)
+IntroSequenceCmd_LoadScytherScene: ; 1d558 (7:5558)
 	lb bc, 6, 3
 	ld a, SCENE_SCYTHER_INTRO
 	jr LoadOpeningSceneAndUpdateSGBBorder
 
-OpeningSequenceCmd_LoadAerodactylScene: ; 1d55f (7:555f)
+IntroSequenceCmd_LoadAerodactylScene: ; 1d55f (7:555f)
 	lb bc, 6, 3
 	ld a, SCENE_AERODACTYL_INTRO
 ;	fallthrough
@@ -295,11 +295,11 @@ LoadOpeningSceneAndUpdateSGBBorder: ; 1d564 (7:5564)
 	scf
 	ret
 
-OpeningSequenceCmd_LoadTitleScreenScene: ; 1d575 (7:5575)
+IntroSequenceCmd_LoadTitleScreenScene: ; 1d575 (7:5575)
 	lb bc, 0, 0
 	ld a, SCENE_TITLE_SCREEN
 	call LoadOpeningScene
-	call OpeningSequenceEmptyFunc
+	call IntroSequenceEmptyFunc
 	scf
 	ret
 
@@ -316,10 +316,77 @@ LoadOpeningScene: ; 1d582 (7:5582)
 	farcall Func_10d17
 
 	xor a
-	ld [wOpeningSequencePalsNeedUpdate], a
-	call AdvanceOpeningSequenceCmdPtrBy2
+	ld [wIntroSequencePalsNeedUpdate], a
+	call AdvanceIntroSequenceCmdPtrBy2
 	call EnableLCD
 	ret
 
-OpeningSequenceEmptyFunc: ; 1d59c (7:559c)
+IntroSequenceEmptyFunc: ; 1d59c (7:559c)
+	ret
+
+INCLUDE "data/sequences/intro.asm"
+
+; once every 63 frames randomly choose an orb sprite
+; to animate, i.e. circle around the screen
+AnimateRandomTitleScreenOrb:
+	ld a, [wConsole]
+	cp CONSOLE_CGB
+	call z, .UpdateSpriteAttributes
+	ld a, [wd635]
+	and 63
+	ret nz ; don't pick an orb now
+
+.pick_orb
+	ld a, $7
+	call Random
+	ld c, a
+	ld b, $00
+	ld hl, wTitleScreenSprites
+	add hl, bc
+	ld a, [hl]
+	ld [wWhichSprite], a
+	farcall GetSpriteAnimCounter
+	cp $ff
+	jr nz, .pick_orb
+
+	ld c, SPRITE_ANIM_ATTRIBUTES
+	call GetSpriteAnimBufferProperty
+	ld a, [wConsole]
+	cp CONSOLE_CGB
+	jr nz, .set_coords
+	set SPRITE_ANIM_FLAG_UNSKIPPABLE, [hl]
+
+.set_coords
+	inc hl
+	ld a, 248
+	ld [hli], a ; SPRITE_ANIM_COORD_X
+	ld a, 14
+	ld [hl], a ; SPRITE_ANIM_COORD_Y
+	ld a, [wConsole]
+	cp CONSOLE_CGB
+	ld a, SPRITE_ANIM_215
+	jr nz, .start_anim
+	ld a, SPRITE_ANIM_216
+.start_anim
+	farcall StartSpriteAnimation
+	ret
+
+.UpdateSpriteAttributes
+	ld c, $7
+	ld de, wTitleScreenSprites
+.loop_orbs
+	push bc
+	ld a, [de]
+	ld [wWhichSprite], a
+	ld c, SPRITE_ANIM_COORD_X
+	call GetSpriteAnimBufferProperty
+	ld a, [hld]
+	cp 152
+	jr nz, .skip
+	res SPRITE_ANIM_FLAG_UNSKIPPABLE, [hl]
+.skip
+	pop bc
+	inc de
+	dec c
+	jr nz, .loop_orbs
 	ret
diff --git a/src/engine/bank1c.asm b/src/engine/sgb.asm
index d32928a..288dc45 100644
--- a/src/engine/bank1c.asm
+++ b/src/engine/sgb.asm
@@ -1,4 +1,4 @@
-SetMainSGBBorder: ; 70000 (1c:4000)
+SetMainSGBBorder:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz ; exit if not SGB
@@ -13,7 +13,7 @@ SetMainSGBBorder: ; 70000 (1c:4000)
 	call SetSGBBorder
 	ret
 
-SetIntroSGBBorder: ; 70018 (1c:4018)
+SetIntroSGBBorder:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz ; exit if not SGB
@@ -21,13 +21,13 @@ SetIntroSGBBorder: ; 70018 (1c:4018)
 	call SetSGBBorder
 	ret
 
-AtrcEnPacket_Disable: ; 70024 (1c:4024)
+AtrcEnPacket_Disable:
 	sgb ATRC_EN, 1 ; sgb_command, length
 	db 1
 	ds $0e
 
 ; disable Controller Set-up Screen
-IconEnPacket: ; 70034 (1c:4034)
+IconEnPacket:
 	sgb ICON_EN, 3 ; sgb_command, length
 	db $01
 	ds $0e
@@ -37,7 +37,7 @@ IconEnPacket: ; 70034 (1c:4034)
 ; $1 = medals (gold)
 ; $2 = medals (blue)
 ; $3 = debug
-SetSGBBorder: ; 70044 (1c:4044)
+SetSGBBorder:
 	push hl
 	push bc
 	add a ; *2
@@ -62,7 +62,7 @@ SetSGBBorder: ; 70044 (1c:4044)
 
 ; forces SGB border intro
 ; unreferenced?
-Func_7006f: ; 7006f (1c:406f)
+Func_7006f:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz ; exit if not SGB
@@ -72,7 +72,7 @@ Func_7006f: ; 7006f (1c:406f)
 	call Func_701c0
 	ret
 
-DecompressAndSendSGBBorder: ; 70082 (1c:4082)
+DecompressAndSendSGBBorder:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz ; exit if not SGB
@@ -99,7 +99,7 @@ DecompressAndSendSGBBorder: ; 70082 (1c:4082)
 	pop hl
 	ret
 
-Func_700a3: ; 700a3 (1c:40a3)
+Func_700a3:
 	push hl
 	push bc
 	push de
@@ -139,20 +139,20 @@ Func_700a3: ; 700a3 (1c:40a3)
 	ret
 
 ; CHR_TRN: tiles $00-$7F, BG (border) tiles (from SNES $000-$FFF)
-ChrTrnPacket_BGTiles1: ; 700de (1c:40de)
+ChrTrnPacket_BGTiles1:
 	sgb CHR_TRN, 1 ; sgb_command, length
 	db 0
 	ds $0e
 
 ; CHR_TRN: tiles $80-$FF, BG (border) tiles (from SNES $000-$FFF)
-ChrTrnPacket_BGTiles2: ; 700ee (1c:40ee)
+ChrTrnPacket_BGTiles2:
 	sgb CHR_TRN, 1 ; sgb_command, length
 	db 1
 	ds $0e
 
 ; de = pals
 ; hl = map
-SetMainSGBBorderPalsAndMap: ; 700fe (1c:40fe)
+SetMainSGBBorderPalsAndMap:
 	push hl
 	push bc
 	push de
@@ -179,11 +179,11 @@ SetMainSGBBorderPalsAndMap: ; 700fe (1c:40fe)
 	ret
 
 ; PCT_TRN: read tile map & palette data into VRAM (from SNES $000-$87F)
-PctTrnPacket: ; 70126 (1c:4126)
+PctTrnPacket:
 	sgb PCT_TRN, 1 ; sgb_command, length
 	ds $0f
 
-Func_70136: ; 70136 (1c:4136)
+Func_70136:
 	push hl
 	push bc
 	push de
@@ -218,7 +218,7 @@ Func_70136: ; 70136 (1c:4136)
 	pop hl
 	ret
 
-SendSGBBorder: ; 70177 (1c:4177)
+SendSGBBorder:
 	push hl
 	push bc
 	push de
@@ -242,18 +242,18 @@ SendSGBBorder: ; 70177 (1c:4177)
 	ret
 
 ; MASK_EN on
-MaskEnPacket_Freeze_Bank1c: ; 701a0 (1c:41a0)
+MaskEnPacket_Freeze_Bank1c:
 	sgb MASK_EN, 1 ; sgb_command, length
 	db MASK_EN_FREEZE_SCREEN
 	ds $0e
 
 ; MASK_EN off
-MaskEnPacket_Cancel_Bank1c: ; 701b0 (1c:41b0)
+MaskEnPacket_Cancel_Bank1c:
 	sgb MASK_EN, 1 ; sgb_command, length
 	db MASK_EN_CANCEL_MASK
 	ds $0e
 
-Func_701c0: ; 701c0 (1c:41c0)
+Func_701c0:
 	push hl
 	push bc
 	call DisableLCD
@@ -280,7 +280,7 @@ Func_701c0: ; 701c0 (1c:41c0)
 	ret
 
 ; decompresses data pointed by hl to de
-DecompressSGBData: ; 701e9 (1c:41e9)
+DecompressSGBData:
 	ld a, [hli]
 	ld c, a
 	ld a, [hli]
@@ -300,7 +300,7 @@ DecompressSGBData: ; 701e9 (1c:41e9)
 
 ; fills a 20x13 rectangle in v0BGMap0
 ; with values ascending bytes starting at $80
-PrepareBGMapForSendingSGBBorder: ; 701fe (1c:41fe)
+PrepareBGMapForSendingSGBBorder:
 	ld hl, v0BGMap0
 	ld de, $000c
 	ld a, $80
@@ -319,7 +319,7 @@ PrepareBGMapForSendingSGBBorder: ; 701fe (1c:41fe)
 
 ; iterates all the medals obtained by the player
 ; and fills the corresponding medal slot in the SGB border
-FillSGBBorderMedalSlots: ; 70214 (1c:4214)
+FillSGBBorderMedalSlots:
 ; exit if not SGBData_BorderMedals5
 	ld a, l
 	cp LOW(SGBData_BorderMedals5)
@@ -463,7 +463,7 @@ ENDM
 
 ; decompresses palette data depending on wCurMapSGBPals
 ; then sends it as SGB packet
-SetSGB2AndSGB3MapPalette: ; 7036a (1c:436a)
+SetSGB2AndSGB3MapPalette:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz ; return if not SGB
@@ -520,7 +520,7 @@ SetSGB2AndSGB3MapPalette: ; 7036a (1c:436a)
 	dw SGBData_MapPals9  ; MAP_SGB_PALS_9
 	dw SGBData_MapPals10 ; MAP_SGB_PALS_10
 
-Func_703cb: ; 703cb (1c:43cb)
+Func_703cb:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz
@@ -548,7 +548,7 @@ Func_703cb: ; 703cb (1c:43cb)
 	pop hl
 	ret
 
-DecompressSGBPalette: ; 70403 (1c:4403)
+DecompressSGBPalette:
 	push hl
 	push bc
 	push de
@@ -570,7 +570,7 @@ DecompressSGBPalette: ; 70403 (1c:4403)
 	ret
 
 ; sends an SGB packet related with palettes
-Func_7041d: ; 7041d (1c:441d)
+Func_7041d:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz ; exit if not SGB
@@ -653,7 +653,7 @@ Func_7041d: ; 7041d (1c:441d)
 ; d = block width
 ; e = block height
 ; l = %00xxyyzz, palette number for: outside block, block border, inside block
-Func_70498: ; 70498 (1c:4498)
+Func_70498:
 	ld a, [wConsole]
 	cp CONSOLE_SGB
 	ret nz
@@ -693,7 +693,7 @@ Func_70498: ; 70498 (1c:4498)
 ; set color 0 to default white rgb(28, 28, 24)
 ; input:
 ; hl = pointer to start of SGB packet
-Func_704c7: ; 704c7 (1c:44c7)
+Func_704c7:
 	push af
 	push hl
 	inc hl
@@ -705,318 +705,318 @@ Func_704c7: ; 704c7 (1c:44c7)
 	pop af
 	ret
 
-SGBData_BorderDebug4: ; 704d3 (1c:44d3)
+SGBData_BorderDebug4:
 	dw $800 ; length
 	INCBIN "data/sgb_data/border_debug_4.bin"
 
-SGBData_BorderIntro4: ; 706dd (1c:46dd)
+SGBData_BorderIntro4:
 	dw $800 ; length
 	INCBIN "data/sgb_data/border_intro_4.bin"
 
-SGBData_BorderMedals5: ; 709dc (1c:49dc)
+SGBData_BorderMedals5:
 	dw $800 ; length
 	INCBIN "data/sgb_data/border_medals_5.bin"
 
-SGBBorderDebugGfxPointers: ; 70b96 (1c:4b96)
+SGBBorderDebugGfxPointers:
 	dw SGBData_BorderDebug1
 	dw SGBData_BorderDebug2
 
-SGBData_BorderDebug1: ; 70b9a (1c:45b9a)
+SGBData_BorderDebug1:
 	dw $1000 ; length
 	INCBIN "data/sgb_data/border_debug_1.bin"
 
-SGBData_BorderDebug2: ; 71359 (1c:5359)
+SGBData_BorderDebug2:
 	dw $a0 ; length
 	INCBIN "data/sgb_data/border_debug_2.bin"
 
-SGBBorderIntroGfxPointers: ; 713a9 (1c:53a9)
+SGBBorderIntroGfxPointers:
 	dw SGBData_BorderIntro1
 	dw SGBData_BorderIntro2
 
-SGBData_BorderIntro1: ; 713ad (1c:53ad)
+SGBData_BorderIntro1:
 	dw $1000 ; length
 	INCBIN "data/sgb_data/border_intro_1.bin"
 
-SGBData_BorderIntro2: ; 71ec0 (1c:5ec0)
+SGBData_BorderIntro2:
 	dw $4e0 ; length
 	INCBIN "data/sgb_data/border_intro_2.bin"
 
-SGBBorderMedalsGfxPointers: ; 72273 (1c:6273)
+SGBBorderMedalsGfxPointers:
 	dw SGBData_BorderMedals1
 	dw SGBData_BorderMedals2
 
-SGBData_BorderMedals1: ; 72277 (1c:5277)
+SGBData_BorderMedals1:
 	dw $1000 ; length
 	INCBIN "data/sgb_data/border_medals_1.bin"
 
-SGBData_BorderMedals2: ; 72fe4 (1c:5fe4)
+SGBData_BorderMedals2:
 	dw $100 ; length
 	INCBIN "data/sgb_data/border_medals_2.bin"
 
-SGBData_BorderDebug3: ; 730de (1c:70de)
+SGBData_BorderDebug3:
 	dw $60 ; length
 	INCBIN "data/sgb_data/border_debug_3.bin"
 
-SGBData_BorderIntro3: ; 73146 (1c:7146)
+SGBData_BorderIntro3:
 	dw $60 ; length
 	INCBIN "data/sgb_data/border_intro_3.bin"
 
-SGBData_BorderMedals3: ; 7319a (1c:719a)
+SGBData_BorderMedals3:
 	dw $60 ; length
 	INCBIN "data/sgb_data/border_medals_3.bin"
 
-SGBData_BorderMedals4: ; 731e5 (1c:71e5)
+SGBData_BorderMedals4:
 	dw $60 ; length
 	INCBIN "data/sgb_data/border_medals_4.bin"
 
-SGBData_MapPals1: ; 7322f (1c:722f)
+SGBData_MapPals1:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_1.bin"
 
-SGBData_MapPals2: ; 73253 (1c:7253)
+SGBData_MapPals2:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_2.bin"
 
-SGBData_MapPals3: ; 73277 (1c:7277)
+SGBData_MapPals3:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_3.bin"
 
-SGBData_MapPals4: ; 7329a (1c:729a)
+SGBData_MapPals4:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_4.bin"
 
-SGBData_MapPals5: ; 732bd (1c:72bd)
+SGBData_MapPals5:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_5.bin"
 
-SGBData_MapPals6: ; 732e0 (1c:72e0)
+SGBData_MapPals6:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_6.bin"
 
-SGBData_MapPals7: ; 73304 (1c:7304)
+SGBData_MapPals7:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_7.bin"
 
-SGBData_MapPals8: ; 73328 (1c:7328)
+SGBData_MapPals8:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_8.bin"
 
-SGBData_MapPals9: ; 7334b (1c:734b)
+SGBData_MapPals9:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_9.bin"
 
-SGBData_MapPals10: ; 7336f (1c:736f)
+SGBData_MapPals10:
 	dw $20 ; length
 	INCBIN "data/sgb_data/map_pals_10.bin"
 
-SGBData_CharizardIntro: ; 73393 (1c:7393)
+SGBData_CharizardIntro:
 	dw $20 ; length
 	INCBIN "data/sgb_data/charizard_intro_pals.bin"
 
-SGBData_ScytherIntro: ; 733b8 (1c:73b8)
+SGBData_ScytherIntro:
 	dw $20 ; length
 	INCBIN "data/sgb_data/scyther_intro_pals.bin"
 
-SGBData_AerodactylIntro: ; 733dd (1c:73dd)
+SGBData_AerodactylIntro:
 	dw $20 ; length
 	INCBIN "data/sgb_data/aerodactyl_intro_pals.bin"
 
-SGBData_ColosseumBooster: ; 73402 (1c:7402)
+SGBData_ColosseumBooster:
 	dw $20 ; length
 	INCBIN "data/sgb_data/colosseum_booster_pals.bin"
 
-SGBData_EvolutionBooster: ; 73427 (1c:7427)
+SGBData_EvolutionBooster:
 	dw $20 ; length
 	INCBIN "data/sgb_data/evolution_booster_pals.bin"
 
-SGBData_MysteryBooster: ; 7344c (1c:744c)
+SGBData_MysteryBooster:
 	dw $20 ; length
 	INCBIN "data/sgb_data/mystery_booster_pals.bin"
 
-SGBData_LaboratoryBooster: ; 73471 (1c:7471)
+SGBData_LaboratoryBooster:
 	dw $20 ; length
 	INCBIN "data/sgb_data/laboratory_booster_pals.bin"
 
-SGBData_PlayerPortraitPals: ; 73496 (1c:7496)
+SGBData_PlayerPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/player_pals.bin"
 
-SGBData_LinkOpponentPortraitPals: ; 734bb (1c:74bb)
+SGBData_LinkOpponentPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/link_opponent_pals.bin"
 
-SGBData_RonaldPortraitPals: ; 734e0 (1c:74e0)
+SGBData_RonaldPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/ronald_pals.bin"
 
-SGBData_SamPortraitPals: ; 73505 (1c:7505)
+SGBData_SamPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/sam_pals.bin"
 
-SGBData_ImakuniPortraitPals: ; 7352a (1c:752a)
+SGBData_ImakuniPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/imakuni_pals.bin"
 
-SGBData_NikkiPortraitPals: ; 7354f (1c:754f)
+SGBData_NikkiPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/nikki_pals.bin"
 
-SGBData_RickPortraitPals: ; 73574 (1c:7574)
+SGBData_RickPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/rick_pals.bin"
 
-SGBData_KenPortraitPals: ; 73599 (1c:7599)
+SGBData_KenPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/ken_pals.bin"
 
-SGBData_AmyPortraitPals: ; 735be (1c:75be)
+SGBData_AmyPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/amy_pals.bin"
 
-SGBData_IsaacPortraitPals: ; 735e3 (1c:75e3)
+SGBData_IsaacPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/isaac_pals.bin"
 
-SGBData_MitchPortraitPals: ; 73608 (1c:7608)
+SGBData_MitchPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/mitch_pals.bin"
 
-SGBData_GenePortraitPals: ; 7362d (1c:762d)
+SGBData_GenePortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/gene_pals.bin"
 
-SGBData_MurrayPortraitPals: ; 73652 (1c:7652)
+SGBData_MurrayPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/murray_pals.bin"
 
-SGBData_CourtneyPortraitPals: ; 73677 (1c:7677)
+SGBData_CourtneyPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/courtney_pals.bin"
 
-SGBData_StevePortraitPals: ; 7369c (1c:769c)
+SGBData_StevePortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/steve_pals.bin"
 
-SGBData_JackPortraitPals: ; 736c1 (1c:76c1)
+SGBData_JackPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/jack_pals.bin"
 
-SGBData_RodPortraitPals: ; 736e6 (1c:76e6)
+SGBData_RodPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/rod_pals.bin"
 
-SGBData_JosephPortraitPals: ; 7370b (1c:770b)
+SGBData_JosephPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/joseph_pals.bin"
 
-SGBData_DavidPortraitPals: ; 73730 (1c:7730)
+SGBData_DavidPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/david_pals.bin"
 
-SGBData_ErikPortraitPals: ; 73755 (1c:7755)
+SGBData_ErikPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/erik_pals.bin"
 
-SGBData_JohnPortraitPals: ; 7377a (1c:777a)
+SGBData_JohnPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/john_pals.bin"
 
-SGBData_AdamPortraitPals: ; 7379f (1c:779f)
+SGBData_AdamPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/adam_pals.bin"
 
-SGBData_JonathanPortraitPals: ; 737c4 (1c:77c4)
+SGBData_JonathanPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/jonathan_pals.bin"
 
-SGBData_JoshuaPortraitPals: ; 737e9 (1c:77e9)
+SGBData_JoshuaPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/joshua_pals.bin"
 
-SGBData_NicholasPortraitPals: ; 7380e (1c:780e)
+SGBData_NicholasPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/nicholas_pals.bin"
 
-SGBData_BrandonPortraitPals: ; 73833 (1c:7833)
+SGBData_BrandonPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/brandon_pals.bin"
 
-SGBData_MatthewPortraitPals: ; 73858 (1c:7858)
+SGBData_MatthewPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/matthew_pals.bin"
 
-SGBData_RyanPortraitPals: ; 7387d (1c:787d)
+SGBData_RyanPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/ryan_pals.bin"
 
-SGBData_AndrewPortraitPals: ; 738a2 (1c:78a2)
+SGBData_AndrewPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/andrew_pals.bin"
 
-SGBData_ChrisPortraitPals: ; 738c7 (1c:78c7)
+SGBData_ChrisPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/chris_pals.bin"
 
-SGBData_MichaelPortraitPals: ; 738ec (1c:78ec)
+SGBData_MichaelPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/michael_pals.bin"
 
-SGBData_DanielPortraitPals: ; 73911 (1c:7911)
+SGBData_DanielPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/daniel_pals.bin"
 
-SGBData_RobertPortraitPals: ; 73936 (1c:7936)
+SGBData_RobertPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/robert_pals.bin"
 
-SGBData_BrittanyPortraitPals: ; 7395b (1c:795b)
+SGBData_BrittanyPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/brittany_pals.bin"
 
-SGBData_KristinPortraitPals: ; 73980 (1c:7980)
+SGBData_KristinPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/kristin_pals.bin"
 
-SGBData_HeatherPortraitPals: ; 739a5 (1c:79a5)
+SGBData_HeatherPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/heather_pals.bin"
 
-SGBData_SaraPortraitPals: ; 739ca (1c:79ca)
+SGBData_SaraPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/sara_pals.bin"
 
-SGBData_AmandaPortraitPals: ; 739ef (1c:79ef)
+SGBData_AmandaPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/amanda_pals.bin"
 
-SGBData_JenniferPortraitPals: ; 73a14 (1c:7a14)
+SGBData_JenniferPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/jennifer_pals.bin"
 
-SGBData_JessicaPortraitPals: ; 73a39 (1c:7a39)
+SGBData_JessicaPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/jessica_pals.bin"
 
-SGBData_StephaniePortraitPals: ; 73a5e (1c:7a5e)
+SGBData_StephaniePortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/stephanie_pals.bin"
 
-SGBData_AaronPortraitPals: ; 73a83 (1c:7a83)
+SGBData_AaronPortraitPals:
 	dw $20 ; length
 	INCBIN "data/sgb_data/aaron_pals.bin"
 
-SGBData_GameBoyLink: ; 73aa8 (1c:7aa8)
+SGBData_GameBoyLink:
 	dw $40 ; length
 	INCBIN "data/sgb_data/gameboy_link_pals.bin"
 
-SGBData_CardPop: ; 73ad8 (1c:7ad8)
+SGBData_CardPop:
 	dw $40 ; length
 	INCBIN "data/sgb_data/card_pop_pals.bin"
 
-SGBData_GameBoyPrinter: ; 73b05 (1c:7b05)
+SGBData_GameBoyPrinter:
 	dw $40 ; length
 	INCBIN "data/sgb_data/gameboy_printer_pals.bin"
 
-SGBData_TitleScreen: ; 73b33 (1c:7b33)
+SGBData_TitleScreen:
 	dw $40 ; length
 	INCBIN "data/sgb_data/title_screen_pals.bin"
diff --git a/src/engine/starter_deck.asm b/src/engine/starter_deck.asm
new file mode 100644
index 0000000..0500b4a
--- /dev/null
+++ b/src/engine/starter_deck.asm
@@ -0,0 +1,182 @@
+; adds the chosen starter deck to the player's first deck configuration
+; and also adds to the collection its corresponding extra cards
+; input:
+; - a = starter deck chosen
+;   $0 = Charmander
+;   $1 = Squirtle
+;   $2 = Bulbasaur
+_AddStarterDeck:
+	add a
+	ld e, a
+	ld d, 0
+	ld hl, .StarterCardIDs
+	add hl, de
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	ld a, [hli] ; main deck
+	add 2
+	push hl
+	ld hl, sDeck1
+	call CopyDeckNameAndCards
+	pop hl
+	call SwapTurn
+	ld a, [hli] ; extra deck
+	add 2
+	call LoadDeck
+	call SwapTurn
+
+; wPlayerDeck = main starter deck
+; wOpponentDeck = extra cards
+	call EnableSRAM
+	ld h, HIGH(sCardCollection)
+	ld de, wPlayerDeck
+	ld c, DECK_SIZE
+.loop_main_cards
+	ld a, [de]
+	inc de
+	ld l, a
+	res CARD_NOT_OWNED_F, [hl]
+	dec c
+	jr nz, .loop_main_cards
+
+	ld h, HIGH(sCardCollection)
+	ld de, wOpponentDeck
+	ld c, 30 ; number of extra cards
+.loop_extra_cards
+	ld a, [de]
+	inc de
+	ld l, a
+	res CARD_NOT_OWNED_F, [hl]
+	inc [hl]
+	dec c
+	jr nz, .loop_extra_cards
+	call DisableSRAM
+	ret
+
+.StarterCardIDs
+	; main deck, extra cards
+	db CHARMANDER_AND_FRIENDS_DECK_ID, CHARMANDER_EXTRA_DECK_ID
+	db SQUIRTLE_AND_FRIENDS_DECK_ID,   SQUIRTLE_EXTRA_DECK_ID
+	db BULBASAUR_AND_FRIENDS_DECK_ID,  BULBASAUR_EXTRA_DECK_ID
+
+; clears saved data (card Collection/saved decks/Card Pop! data/etc)
+; then adds the starter decks as saved decks
+; marks all cards in Collection as not owned
+InitSaveData:
+; clear card and deck save data
+	call EnableSRAM
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	ld hl, sCardAndDeckSaveData
+	ld bc, sCardAndDeckSaveDataEnd - sCardAndDeckSaveData
+.loop_clear
+	xor a
+	ld [hli], a
+	dec bc
+	ld a, c
+	or b
+	jr nz, .loop_clear
+
+; add the starter decks
+	ld a, CHARMANDER_AND_FRIENDS_DECK
+	ld hl, sSavedDeck1
+	call CopyDeckNameAndCards
+	ld a, SQUIRTLE_AND_FRIENDS_DECK
+	ld hl, sSavedDeck2
+	call CopyDeckNameAndCards
+	ld a, BULBASAUR_AND_FRIENDS_DECK
+	ld hl, sSavedDeck3
+	call CopyDeckNameAndCards
+
+; marks all cards in Collection to not owned
+	call EnableSRAM
+	ld hl, sCardCollection
+	ld a, CARD_NOT_OWNED
+.loop_collection
+	ld [hl], a
+	inc l
+	jr nz, .loop_collection
+
+	ld hl, sCurrentDuel
+	xor a
+	ld [hli], a
+	ld [hli], a ; sCurrentDuelChecksum
+	ld [hl], a
+
+; clears Card Pop! names
+	ld hl, sCardPopNameList
+	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
+.loop_card_pop_names
+	ld [hl], $0
+	ld de, NAME_BUFFER_LENGTH
+	add hl, de
+	dec c
+	jr nz, .loop_card_pop_names
+
+; saved configuration options
+	ld a, 2
+	ld [sPrinterContrastLevel], a
+	ld a, $2
+	ld [sTextSpeed], a
+	ld [wTextSpeed], a
+
+; miscellaneous data
+	xor a
+	ld [sAnimationsDisabled], a
+	ld [sSkipDelayAllowed], a
+	ld [s0a004], a
+	ld [sTotalCardPopsDone], a
+	ld [sReceivedLegendaryCards], a
+	farcall InitPromotionalCardAndDeckCounterSaveData
+	call DisableSRAM
+	ret
+
+; input:
+;    a = Deck ID
+;    hl = destination to copy
+CopyDeckNameAndCards:
+	push de
+	push bc
+	push hl
+	call LoadDeck
+	jr c, .done
+	call .CopyDeckName
+	pop hl
+	call EnableSRAM
+	push hl
+	ld de, wDefaultText
+.loop_write_name
+	ld a, [de]
+	inc de
+	ld [hli], a
+	or a
+	jr nz, .loop_write_name
+	pop hl
+
+	push hl
+	ld de, DECK_NAME_SIZE
+	add hl, de
+	ld de, wPlayerDeck
+	ld c, DECK_SIZE
+.loop_write_cards
+	ld a, [de]
+	inc de
+	ld [hli], a
+	dec c
+	jr nz, .loop_write_cards
+	call DisableSRAM
+	or a
+.done
+	pop hl
+	pop bc
+	pop de
+	ret
+
+.CopyDeckName
+	ld hl, wDeckName
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, wDefaultText
+	call CopyText
+	ret
diff --git a/src/engine/unused_copyright.asm b/src/engine/unused_copyright.asm
new file mode 100644
index 0000000..31a489b
--- /dev/null
+++ b/src/engine/unused_copyright.asm
@@ -0,0 +1,26 @@
+; shows Copyright information for 300 frames
+; or until Start button is pressed
+UnusedCopyrightScreen: ; unreferenced
+	call DisableLCD
+	farcall Func_10a9b
+	farcall Func_10000
+	ld bc, $0
+	ld a, SCENE_COPYRIGHT
+	call LoadScene
+	farcall Func_10af9
+	ld bc, 300
+.loop_frame
+	push bc
+	call DoFrameIfLCDEnabled
+	call UpdateRNGSources
+	pop bc
+	ldh a, [hKeysPressed]
+	and START
+	jr nz, .exit
+	dec bc
+	ld a, b
+	or c
+	jr nz, .loop_frame
+.exit
+	farcall Func_10ab4
+	ret
diff --git a/src/engine/unused_save_validation.asm b/src/engine/unused_save_validation.asm
new file mode 100644
index 0000000..f26bbcb
--- /dev/null
+++ b/src/engine/unused_save_validation.asm
@@ -0,0 +1,96 @@
+; this is a commented out routine for save data validation
+; sUnusedSaveDataValidationByte would be used to store some validation byte
+; and xor'd with $250 bytes in SRAM starting from sCardCollection
+; if the result wasn't 0, then it would mean there was
+; some save corruption and an error message would pop up
+StubbedUnusedSaveDataValidation:
+	ret
+
+UnusedSaveDataValidation: ; unreferenced
+	ldh a, [hBankSRAM]
+	or a
+	ret nz
+
+	push hl
+	push de
+	push bc
+	ld hl, sCardCollection
+	ld bc, $250
+	ld a, [sUnusedSaveDataValidationByte]
+	ld e, a
+.loop_xor
+	ld a, [hli]
+	xor e
+	ld e, a
+	dec bc
+	ld a, c
+	or b
+	jr nz, .loop_xor
+	ld a, e
+	pop bc
+	pop de
+	pop hl
+	or a
+	ret z
+
+	xor a
+	ld [wTileMapFill], a
+	ld hl, wDoFrameFunction
+	ld [hli], a
+	ld [hl], a
+	ldh [hSCX], a
+	ldh [hSCY], a
+	bank1call ZeroObjectPositionsAndToggleOAMCopy
+	call EmptyScreen
+	call LoadSymbolsFont
+	bank1call SetDefaultPalettes
+	ld a, [wConsole]
+	cp CONSOLE_SGB
+	jr nz, .not_sgb
+	ld a, $e4
+	ld [wOBP0], a
+	ld [wBGP], a
+	ld a, $01
+	ld [wFlushPaletteFlags], a
+.not_sgb
+	lb de, $38, $9f
+	call SetupText
+	ldtx hl, YourDataWasDestroyedSomehowText
+	bank1call DrawWholeScreenTextBox
+	ld a, SRAM_ENABLE
+	ld [MBC3SRamEnable], a
+	xor a
+	ldh [hBankSRAM], a
+	ld [MBC3SRamBank], a
+	ld [MBC3RTC], a
+	ld [MBC3SRamEnable], a
+	jp Reset
+
+	ret
+
+UnusedCalculateSaveDataValidationByte: ; unreferenced
+	ldh a, [hBankSRAM]
+	or a
+	ret nz
+	push hl
+	push de
+	push bc
+	ld hl, sCardCollection
+	ld bc, $250
+	ld e, $00
+.loop_xor
+	ld a, [hli]
+	xor e
+	ld e, a
+	dec bc
+	ld a, c
+	or b
+	jr nz, .loop_xor
+	ld a, SRAM_ENABLE
+	ld [MBC3SRamEnable], a
+	ld a, e
+	ld [sUnusedSaveDataValidationByte], a
+	pop bc
+	pop de
+	pop hl
+	ret
diff --git a/src/gfx.asm b/src/gfx.asm
index 6df6203..1b96723 100644
--- a/src/gfx.asm
+++ b/src/gfx.asm
@@ -5,7 +5,7 @@ SECTION "Gfx 1", ROMX
 
 Fonts::
 
-FullWidthFonts:: ; 74000 (1d:4000)
+FullWidthFonts::
 INCBIN "gfx/fonts/full_width/0_0_katakana.1bpp"
 INCBIN "gfx/fonts/full_width/0_1_hiragana.1bpp"
 INCBIN "gfx/fonts/full_width/0_2_digits_kanji1.1bpp"
@@ -14,36 +14,36 @@ INCBIN "gfx/fonts/full_width/2_kanji3.1bpp"
 INCBIN "gfx/fonts/full_width/3.1bpp"
 INCBIN "gfx/fonts/full_width/4.1bpp"
 
-HalfWidthFont:: ; 76668 (1d:6668)
+HalfWidthFont::
 INCBIN "gfx/fonts/half_width.1bpp"
 
-SymbolsFont:: ; 76968 (1d:6968)
+SymbolsFont::
 INCBIN "gfx/fonts/symbols.2bpp"
 
 DuelGraphics::
 
-DuelCardHeaderGraphics:: ; 76ce8 (1d:6ce8)
+DuelCardHeaderGraphics::
 INCBIN "gfx/duel/card_headers.2bpp"
 
-DuelDmgSgbSymbolGraphics:: ; 76fe8 (1d:6fe8)
+DuelDmgSgbSymbolGraphics::
 INCBIN "gfx/duel/dmg_sgb_symbols.2bpp"
 
-DuelCgbSymbolGraphics:: ; 777f8 (1d:77f8)
+DuelCgbSymbolGraphics::
 INCBIN "gfx/duel/cgb_symbols.2bpp", $0, $808
 
 SECTION "Gfx 2", ROMX
 
 INCBIN "gfx/duel/cgb_symbols.2bpp", $808, $8
 
-DuelOtherGraphics:: ; 78008 (1e:4008)
+DuelOtherGraphics::
 INCBIN "gfx/duel/other.2bpp"
 
-DuelBoxMessages:: ; 78318 (1e:4318)
+DuelBoxMessages::
 INCBIN "gfx/duel/box_messages.2bpp"
 
 SECTION "Gfx 3", ROMX
 
-WaterClubTilemap:: ; 84000 (21:4000)
+WaterClubTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw WaterClubPermissions
@@ -52,7 +52,7 @@ WaterClubTilemap:: ; 84000 (21:4000)
 WaterClubPermissions:
 	INCBIN "data/maps/permissions/water_club.bin"
 
-WaterClubCGBTilemap:: ; 84188 (21:4188)
+WaterClubCGBTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw WaterClubCGBPermissions
@@ -61,7 +61,7 @@ WaterClubCGBTilemap:: ; 84188 (21:4188)
 WaterClubCGBPermissions:
 	INCBIN "data/maps/permissions/water_club_cgb.bin"
 
-LightningClubTilemap:: ; 843bb (21:43bb)
+LightningClubTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw LightningClubPermissions
@@ -70,7 +70,7 @@ LightningClubTilemap:: ; 843bb (21:43bb)
 LightningClubPermissions:
 	INCBIN "data/maps/permissions/lightning_club.bin"
 
-LightningClubCGBTilemap:: ; 84533 (21:4533)
+LightningClubCGBTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw LightningClubCGBPermissions
@@ -79,7 +79,7 @@ LightningClubCGBTilemap:: ; 84533 (21:4533)
 LightningClubCGBPermissions:
 	INCBIN "data/maps/permissions/lightning_club_cgb.bin"
 
-GrassClubTilemap:: ; 8472e (21:472e)
+GrassClubTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw GrassClubPermissions
@@ -88,7 +88,7 @@ GrassClubTilemap:: ; 8472e (21:472e)
 GrassClubPermissions:
 	INCBIN "data/maps/permissions/grass_club.bin"
 
-GrassClubCGBTilemap:: ; 848d8 (21:48d8)
+GrassClubCGBTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw GrassClubCGBPermissions
@@ -97,7 +97,7 @@ GrassClubCGBTilemap:: ; 848d8 (21:48d8)
 GrassClubCGBPermissions:
 	INCBIN "data/maps/permissions/grass_club_cgb.bin"
 
-PsychicClubTilemap:: ; 84b73 (21:4b73)
+PsychicClubTilemap::
 	db $1c ; width
 	db $1c ; height
 	dw PsychicClubPermissions
@@ -106,7 +106,7 @@ PsychicClubTilemap:: ; 84b73 (21:4b73)
 PsychicClubPermissions:
 	INCBIN "data/maps/permissions/psychic_club.bin"
 
-PsychicClubCGBTilemap:: ; 84c6f (21:4c6f)
+PsychicClubCGBTilemap::
 	db $1c ; width
 	db $1c ; height
 	dw PsychicClubCGBPermissions
@@ -115,7 +115,7 @@ PsychicClubCGBTilemap:: ; 84c6f (21:4c6f)
 PsychicClubCGBPermissions:
 	INCBIN "data/maps/permissions/psychic_club_cgb.bin"
 
-ScienceClubTilemap:: ; 84dfe (21:4dfe)
+ScienceClubTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw ScienceClubPermissions
@@ -124,7 +124,7 @@ ScienceClubTilemap:: ; 84dfe (21:4dfe)
 ScienceClubPermissions:
 	INCBIN "data/maps/permissions/science_club.bin"
 
-ScienceClubCGBTilemap:: ; 84f1d (21:4f1d)
+ScienceClubCGBTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw ScienceClubCGBPermissions
@@ -133,7 +133,7 @@ ScienceClubCGBTilemap:: ; 84f1d (21:4f1d)
 ScienceClubCGBPermissions:
 	INCBIN "data/maps/permissions/science_club_cgb.bin"
 
-FireClubTilemap:: ; 850b6 (21:50b6)
+FireClubTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw FireClubPermissions
@@ -142,7 +142,7 @@ FireClubTilemap:: ; 850b6 (21:50b6)
 FireClubPermissions:
 	INCBIN "data/maps/permissions/fire_club.bin"
 
-FireClubCGBTilemap:: ; 85191 (21:5191)
+FireClubCGBTilemap::
 	db $1c ; width
 	db $20 ; height
 	dw FireClubCGBPermissions
@@ -151,7 +151,7 @@ FireClubCGBTilemap:: ; 85191 (21:5191)
 FireClubCGBPermissions:
 	INCBIN "data/maps/permissions/fire_club_cgb.bin"
 
-ChallengeHallTilemap:: ; 85315 (21:5315)
+ChallengeHallTilemap::
 	db $20 ; width
 	db $20 ; height
 	dw ChallengeHallPermissions
@@ -160,7 +160,7 @@ ChallengeHallTilemap:: ; 85315 (21:5315)
 ChallengeHallPermissions:
 	INCBIN "data/maps/permissions/challenge_hall.bin"
 
-ChallengeHallCGBTilemap:: ; 854b3 (21:54b3)
+ChallengeHallCGBTilemap::
 	db $20 ; width
 	db $20 ; height
 	dw ChallengeHallCGBPermissions
@@ -169,7 +169,7 @@ ChallengeHallCGBTilemap:: ; 854b3 (21:54b3)
 ChallengeHallCGBPermissions:
 	INCBIN "data/maps/permissions/challenge_hall_cgb.bin"
 
-PokemonDomeEntranceTilemap:: ; 8570a (21:570a)
+PokemonDomeEntranceTilemap::
 	db $20 ; width
 	db $12 ; height
 	dw PokemonDomeEntrancePermissions
@@ -178,7 +178,7 @@ PokemonDomeEntranceTilemap:: ; 8570a (21:570a)
 PokemonDomeEntrancePermissions:
 	INCBIN "data/maps/permissions/pokemon_dome_entrance.bin"
 
-PokemonDomeEntranceCGBTilemap:: ; 857ce (21:57ce)
+PokemonDomeEntranceCGBTilemap::
 	db $20 ; width
 	db $12 ; height
 	dw PokemonDomeEntranceCGBPermissions
@@ -187,7 +187,7 @@ PokemonDomeEntranceCGBTilemap:: ; 857ce (21:57ce)
 PokemonDomeEntranceCGBPermissions:
 	INCBIN "data/maps/permissions/pokemon_dome_entrance_cgb.bin"
 
-PokemonDomeTilemap:: ; 858ef (21:58ef)
+PokemonDomeTilemap::
 	db $20 ; width
 	db $20 ; height
 	dw PokemonDomePermissions
@@ -196,7 +196,7 @@ PokemonDomeTilemap:: ; 858ef (21:58ef)
 PokemonDomePermissions:
 	INCBIN "data/maps/permissions/pokemon_dome.bin"
 
-PokemonDomeCGBTilemap:: ; 85a79 (21:5a79)
+PokemonDomeCGBTilemap::
 	db $20 ; width
 	db $20 ; height
 	dw PokemonDomeCGBPermissions
@@ -205,7 +205,7 @@ PokemonDomeCGBTilemap:: ; 85a79 (21:5a79)
 PokemonDomeCGBPermissions:
 	INCBIN "data/maps/permissions/pokemon_dome_cgb.bin"
 
-HallOfHonorTilemap:: ; 85ce2 (21:5ce2)
+HallOfHonorTilemap::
 	db $18 ; width
 	db $1a ; height
 	dw HallOfHonorPermissions
@@ -214,7 +214,7 @@ HallOfHonorTilemap:: ; 85ce2 (21:5ce2)
 HallOfHonorPermissions:
 	INCBIN "data/maps/permissions/hall_of_honor.bin"
 
-HallOfHonorCGBTilemap:: ; 85df4 (21:5df4)
+HallOfHonorCGBTilemap::
 	db $18 ; width
 	db $1a ; height
 	dw HallOfHonorCGBPermissions
@@ -223,393 +223,393 @@ HallOfHonorCGBTilemap:: ; 85df4 (21:5df4)
 HallOfHonorCGBPermissions:
 	INCBIN "data/maps/permissions/hall_of_honor_cgb.bin"
 
-CardPopCGBTilemap:: ; 85f7c (21:5f7c)
+CardPopCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/card_pop_cgb.bin"
 
-CardPopTilemap:: ; 8607f (21:607f)
+CardPopTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/card_pop.bin"
 
-ScienceMedalTilemap:: ; 8617d (21:617d)
+ScienceMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/science_medal.bin"
 
-FireMedalTilemap:: ; 86193 (21:6193)
+FireMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/fire_medal.bin"
 
-WaterMedalTilemap:: ; 861a9 (21:61a9)
+WaterMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/water_medal.bin"
 
-LightningMedalTilemap:: ; 861bf (21:61bf)
+LightningMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/lightning_medal.bin"
 
-FightingMedalTilemap:: ; 861d5 (21:61d5)
+FightingMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/fighting_medal.bin"
 
-RockMedalTilemap:: ; 861eb (21:61eb)
+RockMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/rock_medal.bin"
 
-PsychicMedalTilemap:: ; 86201 (21:6201)
+PsychicMedalTilemap::
 	db $03 ; width
 	db $03 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/psychic_medal.bin"
 
-GameBoyLinkCGBTilemap:: ; 86217 (21:6217)
+GameBoyLinkCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/gameboy_link_cgb.bin"
 
-GameBoyLinkTilemap:: ; 862da (21:62da)
+GameBoyLinkTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/gameboy_link.bin"
 
-GameBoyLinkConnectingCGBTilemap:: ; 86364 (21:6364)
+GameBoyLinkConnectingCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/gameboy_link_connecting_cgb.bin"
 
-GameBoyLinkConnectingTilemap:: ; 86443 (21:6443)
+GameBoyLinkConnectingTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/gameboy_link_connecting.bin"
 
-GameBoyPrinterCGBTilemap:: ; 864df (21:64df)
+GameBoyPrinterCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/gameboy_printer_cgb.bin"
 
-GameBoyPrinterTilemap:: ; 865b5 (21:65b5)
+GameBoyPrinterTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/gameboy_printer.bin"
 
-ColosseumTilemap:: ; 86647 (21:6647)
+ColosseumTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/colosseum.bin"
 
-ColosseumCGBTilemap:: ; 866b8 (21:66b8)
+ColosseumCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/colosseum_cgb.bin"
 
-EvolutionTilemap:: ; 8673e (21:673e)
+EvolutionTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/evolution.bin"
 
-EvolutionCGBTilemap:: ; 867af (21:67af)
+EvolutionCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/evolution_cgb.bin"
 
-MysteryTilemap:: ; 86833 (21:6833)
+MysteryTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/mystery.bin"
 
-MysteryCGBTilemap:: ; 868a4 (21:68a4)
+MysteryCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/mystery_cgb.bin"
 
-LaboratoryTilemap:: ; 86925 (21:6925)
+LaboratoryTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/laboratory.bin"
 
-LaboratoryCGBTilemap:: ; 86996 (21:6996)
+LaboratoryCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/laboratory_cgb.bin"
 
-CharizardIntroTilemap:: ; 86a14 (21:6a14)
+CharizardIntroTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/charizard_intro.bin"
 
-CharizardIntroCGBTilemap:: ; 86a85 (21:6a85)
+CharizardIntroCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/charizard_intro_cgb.bin"
 
-ScytherIntroTilemap:: ; 86b28 (21:6b28)
+ScytherIntroTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/scyther_intro.bin"
 
-ScytherIntroCGBTilemap:: ; 86b99 (21:6b99)
+ScytherIntroCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/scyther_intro_cgb.bin"
 
-AerodactylIntroTilemap:: ; 86c34 (21:6c34)
+AerodactylIntroTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/aerodactyl_intro.bin"
 
-AerodactylIntroCGBTilemap:: ; 86ca5 (21:6ca5)
+AerodactylIntroCGBTilemap::
 	db $08 ; width
 	db $0c ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/aerodactyl_intro_cgb.bin"
 
-JapaneseTitleScreenTilemap:: ; 86d37 (21:6d37)
+JapaneseTitleScreenTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/japanese_title_screen.bin"
 
-JapaneseTitleScreenCGBTilemap:: ; 86dcc (21:6dcc)
+JapaneseTitleScreenCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/japanese_title_screen_cgb.bin"
 
-SolidTiles1Tilemap:: ; 86e8a (21:6e8a)
+SolidTiles1Tilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/solid_tiles_1.bin"
 
-SolidTiles2Tilemap:: ; 86f18 (21:6f18)
+SolidTiles2Tilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/solid_tiles_2.bin"
 
-SolidTiles3Tilemap:: ; 86fc0 (21:6fc0)
+SolidTiles3Tilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/solid_tiles_3.bin"
 
-JapaneseTitleScreen2Tilemap:: ; 8704f (21:704f)
+JapaneseTitleScreen2Tilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/japanese_title_screen_2.bin"
 
-JapaneseTitleScreen2CGBTilemap:: ; 871a5 (21:71a5)
+JapaneseTitleScreen2CGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/japanese_title_screen_2_cgb.bin"
 
-SolidTiles4Tilemap:: ; 87397 (21:7397)
+SolidTiles4Tilemap::
 	db $08 ; width
 	db $04 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/solid_tiles_4.bin"
 
-PlayerTilemap:: ; 873b7 (21:73b7)
+PlayerTilemap::
 	db $06 ; width
 	db $06 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/player.bin"
 
-OpponentTilemap:: ; 873e5 (21:73e5)
+OpponentTilemap::
 	db $06 ; width
 	db $06 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/opponent.bin"
 
-TitleScreenTilemap:: ; 87413 (21:7413)
+TitleScreenTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/title_screen.bin"
 
-TitleScreenCGBTilemap:: ; 87538 (21:7538)
+TitleScreenCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/title_screen_cgb.bin"
 
-CopyrightTilemap:: ; 8769f (21:769f)
+CopyrightTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/copyright.bin"
 
-CopyrightCGBTilemap:: ; 876f6 (21:76f6)
+CopyrightCGBTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db TRUE ; cgb mode
 	INCBIN "data/maps/tiles/copyright_cgb.bin"
 
-NintendoTilemap:: ; 8777c (21:777c)
+NintendoTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/nintendo.bin"
 
-CompaniesTilemap:: ; 877c4 (21:77c4)
+CompaniesTilemap::
 	db $14 ; width
 	db $12 ; height
 	dw NULL
 	db FALSE ; cgb mode
 	INCBIN "data/maps/tiles/companies.bin"
 
-IshiharaTilesetGfx:: ; 87828 (21:7828)
+IshiharaTilesetGfx::
 	dw 77
 	INCBIN "gfx/tilesets/ishihara.2bpp"
 
-SolidTiles1:: ; 87cfa (21:7cfa)
+SolidTiles1::
 	dw 4
 	INCBIN "gfx/solid_tiles.2bpp"
 
-SolidTiles2:: ; 87d3c (21:7d3c)
+SolidTiles2::
 	dw 4
 	INCBIN "gfx/solid_tiles.2bpp"
 
-PlayerGfx:: ; 87d7e (21:7d7e)
+PlayerGfx::
 	dw 36
 	INCBIN "gfx/duelists/player.2bpp"
 
-Duel55Gfx:: ; 87fc0 (21:7fc0)
+Duel55Gfx::
 	dw $2
 	INCBIN "gfx/duel/anims/55.2bpp"
 
-Duel56Gfx:: ; 87fe2 (21:7fe2)
+Duel56Gfx::
 	dw $1
 	INCBIN "gfx/duel/anims/56.2bpp"
 
-AnimData12:: ; 87ff4 (21:7ff4)
+AnimData12::
 	frame_table AnimFrameTable3
 	frame_data 2, 8, 0, 0
 	frame_data 0, 0, 0, 0
 
 SECTION "Gfx 4", ROMX
 
-OverworldMapTiles:: ; 88000 (22:4000)
+OverworldMapTiles::
 	dw 193
 	INCBIN "gfx/overworld_map.2bpp"
 
-MasonLaboratoryTilesetGfx:: ; 88c12 (22:4c12)
+MasonLaboratoryTilesetGfx::
 	dw 151
 	INCBIN "gfx/tilesets/masonlaboratory.2bpp"
 
-ClubEntranceTilesetGfx:: ; 89584 (22:5584)
+ClubEntranceTilesetGfx::
 	dw 129
 	INCBIN "gfx/tilesets/clubentrance.2bpp"
 
-ClubLobbyTilesetGfx:: ; 89d96 (22:5d96)
+ClubLobbyTilesetGfx::
 	dw 120
 	INCBIN "gfx/tilesets/clublobby.2bpp"
 
-FightingClubTilesetGfx:: ; 8a518 (22:6518)
+FightingClubTilesetGfx::
 	dw 99
 	INCBIN "gfx/tilesets/fightingclub.2bpp"
 
-RockClubTilesetGfx:: ; 8ab4a (22:6b4a)
+RockClubTilesetGfx::
 	dw 60
 	INCBIN "gfx/tilesets/rockclub.2bpp"
 
-WaterClubTilesetGfx:: ; 8af0c (22:6f0c)
+WaterClubTilesetGfx::
 	dw 161
 	INCBIN "gfx/tilesets/waterclub.2bpp"
 
-GrassClubTilesetGfx:: ; 8b91e (22:791e)
+GrassClubTilesetGfx::
 	dw 87
 	INCBIN "gfx/tilesets/grassclub.2bpp"
 
-OWPlayerGfx:: ; 8be90 (22:7e90)
+OWPlayerGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/player.2bpp"
 
-Duel57Gfx:: ; 8bfd2 (22:7fd2)
+Duel57Gfx::
 	dw $1
 	INCBIN "gfx/duel/anims/57.2bpp"
 
-AnimData2:: ; 8bfe4 (22:7fe4)
+AnimData2::
 	frame_table AnimFrameTable0
 	frame_data 5, 16, 0, 0
 	frame_data 6, 16, 0, 0
@@ -617,45 +617,45 @@ AnimData2:: ; 8bfe4 (22:7fe4)
 	frame_data 6, 16, 0, 0
 	frame_data 0, 0, 0, 0
 
-Palette109:: ; 8bffb (22:7ffb)
+Palette109::
 	db 1, %11100100
 	db 0
 
 SECTION "Gfx 5", ROMX
 
-LightningClubTilesetGfx:: ; 8c000 (23:4000)
+LightningClubTilesetGfx::
 	dw 131
 	INCBIN "gfx/tilesets/lightningclub.2bpp"
 
-PsychicClubTilesetGfx:: ; 8c832 (23:4832)
+PsychicClubTilesetGfx::
 	dw 58
 	INCBIN "gfx/tilesets/psychicclub.2bpp"
 
-ScienceClubTilesetGfx:: ; 8cbd4 (23:4bd4)
+ScienceClubTilesetGfx::
 	dw 82
 	INCBIN "gfx/tilesets/scienceclub.2bpp"
 
-FireClubTilesetGfx:: ; 8d0f6 (23:50f6)
+FireClubTilesetGfx::
 	dw 87
 	INCBIN "gfx/tilesets/fireclub.2bpp"
 
-ChallengeHallTilesetGfx:: ; 8d668 (23:5668)
+ChallengeHallTilesetGfx::
 	dw 157
 	INCBIN "gfx/tilesets/challengehall.2bpp"
 
-PokemonDomeEntranceTilesetGfx:: ; 8e03a (23:603a)
+PokemonDomeEntranceTilesetGfx::
 	dw 78
 	INCBIN "gfx/tilesets/pokemondomeentrance.2bpp"
 
-PokemonDomeTilesetGfx:: ; 8e51c (23:651c)
+PokemonDomeTilesetGfx::
 	dw 207
 	INCBIN "gfx/tilesets/pokemondome.2bpp"
 
-HallOfHonorTilesetGfx:: ; 8f20e (23:720e)
+HallOfHonorTilesetGfx::
 	dw 121
 	INCBIN "gfx/tilesets/hallofhonor.2bpp"
 
-MedalGfx:: ; 8f9a0 (23:79a0)
+MedalGfx::
 	dw 72
 	INCBIN "gfx/medals.2bpp", $0, $c0
 	INCBIN "gfx/medals.2bpp", $240, $30
@@ -676,134 +676,134 @@ MedalGfx:: ; 8f9a0 (23:79a0)
 	INCBIN "gfx/medals.2bpp", $420, $30
 	INCBIN "gfx/medals.2bpp", $3f0, $20
 
-NintendoGfx:: ; 8fe22 (23:7e22)
+NintendoGfx::
 	dw 24
 	INCBIN "gfx/nintendo.2bpp"
 
-Duel58Gfx:: ; 8ffa4 (23:7fa4)
+Duel58Gfx::
 	dw $4
 	INCBIN "gfx/duel/anims/58.2bpp"
 
-AnimData3:: ; 8ffe6 (23:7fe6)
+AnimData3::
 	frame_table AnimFrameTable0
 	frame_data 8, 16, 0, 0
 	frame_data 9, 16, 0, 0
 	frame_data 0, 0, 0, 0
 
-AnimData11:: ; 8fff5 (23:7ff5)
+AnimData11::
 	frame_table AnimFrameTable3
 	frame_data 1, 8, 0, 0
 	frame_data 0, 0, 0, 0
 
 SECTION "Gfx 6", ROMX
 
-CardPopGfx:: ; 90000 (24:4000)
+CardPopGfx::
 	dw 189
 	INCBIN "gfx/link/cardpop.2bpp"
 
-GameBoyLinkGfx:: ; 90bd2 (24:4bd2)
+GameBoyLinkGfx::
 	dw 109
 	INCBIN "gfx/link/gameboylink.2bpp"
 
-GameBoyPrinterGfx:: ; 912a4 (24:52a4)
+GameBoyPrinterGfx::
 	dw 93
 	INCBIN "gfx/link/gameboyprinter.2bpp"
 
-Colosseum1Gfx:: ; 91876 (24:5876)
+Colosseum1Gfx::
 	dw 96
 	INCBIN "gfx/booster_packs/colosseum1.2bpp"
 
-Colosseum2Gfx:: ; 91e78 (24:5e78)
+Colosseum2Gfx::
 	dw 86
 	INCBIN "gfx/booster_packs/colosseum2.2bpp"
 
-Evolution1Gfx:: ; 923da (24:63da)
+Evolution1Gfx::
 	dw 96
 	INCBIN "gfx/booster_packs/evolution1.2bpp"
 
-Evolution2Gfx:: ; 929dc (24:69dc)
+Evolution2Gfx::
 	dw 86
 	INCBIN "gfx/booster_packs/evolution2.2bpp"
 
-Mystery1Gfx:: ; 92f3e (24:6f3e)
+Mystery1Gfx::
 	dw 96
 	INCBIN "gfx/booster_packs/mystery1.2bpp"
 
-Mystery2Gfx:: ; 93540 (24:7540)
+Mystery2Gfx::
 	dw 86
 	INCBIN "gfx/booster_packs/mystery2.2bpp"
 
-RonaldGfx:: ; 93aa2 (24:7aa2)
+RonaldGfx::
 	dw 36
 	INCBIN "gfx/duelists/ronald.2bpp"
 
-CopyrightGfx:: ; 93ce4 (24:7ce4)
+CopyrightGfx::
 	dw 36
 	INCBIN "gfx/copyright.2bpp"
 
-OWClerkGfx:: ; 93f26 (24:7f26)
+OWClerkGfx::
 	dw $8
 	INCBIN "gfx/overworld_sprites/clerk.2bpp"
 
-Duel59Gfx:: ; 93fa8 (24:7fa8)
+Duel59Gfx::
 	dw $3
 	INCBIN "gfx/duel/anims/59.2bpp"
 
-Duel60Gfx:: ; 93fda (24:7fda)
+Duel60Gfx::
 	dw $2
 	INCBIN "gfx/duel/anims/60.2bpp"
 
 SECTION "Gfx 7", ROMX
 
-Laboratory1Gfx:: ; 94000 (25:4000)
+Laboratory1Gfx::
 	dw 96
 	INCBIN "gfx/booster_packs/laboratory1.2bpp"
 
-Laboratory2Gfx:: ; 94602 (25:4602)
+Laboratory2Gfx::
 	dw 86
 	INCBIN "gfx/booster_packs/laboratory2.2bpp"
 
-CharizardIntro1Gfx:: ; 94b64 (25:4b64)
+CharizardIntro1Gfx::
 	dw 96
 	INCBIN "gfx/titlescreen/booster_packs/charizardintro1.2bpp"
 
-CharizardIntro2Gfx:: ; 95166 (25:5166)
+CharizardIntro2Gfx::
 	dw 96
 	INCBIN "gfx/titlescreen/booster_packs/charizardintro2.2bpp"
 
-ScytherIntro1Gfx:: ; 95768 (25:5768)
+ScytherIntro1Gfx::
 	dw 96
 	INCBIN "gfx/titlescreen/booster_packs/scytherintro1.2bpp"
 
-ScytherIntro2Gfx:: ; 95d6a (25:5d6a)
+ScytherIntro2Gfx::
 	dw 96
 	INCBIN "gfx/titlescreen/booster_packs/scytherintro2.2bpp"
 
-AerodactylIntro1Gfx:: ; 9636c (25:636c)
+AerodactylIntro1Gfx::
 	dw 96
 	INCBIN "gfx/titlescreen/booster_packs/aerodactylintro1.2bpp"
 
-AerodactylIntro2Gfx:: ; 9696e (25:696e)
+AerodactylIntro2Gfx::
 	dw 96
 	INCBIN "gfx/titlescreen/booster_packs/aerodactylintro2.2bpp"
 
-JapaneseTitleScreenGfx:: ; 96f70 (25:6f70)
+JapaneseTitleScreenGfx::
 	dw 97
 	INCBIN "gfx/titlescreen/japanese_title_screen.2bpp"
 
-JapaneseTitleScreenCGBGfx:: ; 97582 (25:7582)
+JapaneseTitleScreenCGBGfx::
 	dw 97
 	INCBIN "gfx/titlescreen/japanese_title_screen_cgb.2bpp"
 
-CompaniesGfx:: ; 97b94 (25:7b94)
+CompaniesGfx::
 	dw 49
 	INCBIN "gfx/companies.2bpp"
 
-OWRonaldGfx:: ; 97ea6 (25:7ea6)
+OWRonaldGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/ronald.2bpp"
 
-AnimData5:: ; 97fe8 (25:7fe8)
+AnimData5::
 	frame_table AnimFrameTable1
 	frame_data 3, 16, 0, 0
 	frame_data 4, 16, 0, 0
@@ -811,335 +811,335 @@ AnimData5:: ; 97fe8 (25:7fe8)
 
 SECTION "Gfx 8", ROMX
 
-JapaneseTitleScreen2Gfx:: ; 98000 (26:4000)
+JapaneseTitleScreen2Gfx::
 	dw 244
 	INCBIN "gfx/titlescreen/japanese_title_screen_2.2bpp"
 
-JapaneseTitleScreen2CGBGfx:: ; 98f42 (26:4f42)
+JapaneseTitleScreen2CGBGfx::
 	dw 315
 	INCBIN "gfx/titlescreen/japanese_title_screen_2_cgb.2bpp"
 
-TitleScreenGfx:: ; 9a2f4 (26:62f4)
+TitleScreenGfx::
 	dw 220
 	INCBIN "gfx/titlescreen/title_screen.2bpp"
 
-TitleScreenCGBGfx:: ; 9b0b6 (26:70b6)
+TitleScreenCGBGfx::
 	dw 212
 	INCBIN "gfx/titlescreen/title_screen_cgb.2bpp"
 
-OWDrMasonGfx:: ; 9bdf8 (26:7df8)
+OWDrMasonGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/doctormason.2bpp"
 
-OverworldMapOAMGfx:: ; 9bf3a (26:7f3a)
+OverworldMapOAMGfx::
 	dw $8
 	INCBIN "gfx/overworld_map_oam.2bpp"
 
-Duel61Gfx:: ; 9bfbc (26:7fbc)
+Duel61Gfx::
 	dw $3
 	INCBIN "gfx/duel/anims/61.2bpp"
 
-Duel62Gfx:: ; 9bfee (26:7fee)
+Duel62Gfx::
 	dw $1
 	INCBIN "gfx/duel/anims/62.2bpp"
 
 SECTION "Gfx 9", ROMX
 
-SamGfx:: ; 9c000 (27:4000)
+SamGfx::
 	dw 36
 	INCBIN "gfx/duelists/sam.2bpp"
 
-ImakuniGfx:: ; 9c242 (27:4242)
+ImakuniGfx::
 	dw 36
 	INCBIN "gfx/duelists/imakuni.2bpp"
 
-NikkiGfx:: ; 9c484 (27:4484)
+NikkiGfx::
 	dw 36
 	INCBIN "gfx/duelists/nikki.2bpp"
 
-RickGfx:: ; 9c6c6 (27:46c6)
+RickGfx::
 	dw 36
 	INCBIN "gfx/duelists/rick.2bpp"
 
-KenGfx:: ; 9c908 (27:4908)
+KenGfx::
 	dw 36
 	INCBIN "gfx/duelists/ken.2bpp"
 
-AmyGfx:: ; 9cb4a (27:4b4a)
+AmyGfx::
 	dw 36
 	INCBIN "gfx/duelists/amy.2bpp"
 
-IsaacGfx:: ; 9cd8c (27:4d8c)
+IsaacGfx::
 	dw 36
 	INCBIN "gfx/duelists/isaac.2bpp"
 
-MitchGfx:: ; 9cfce (27:4fce)
+MitchGfx::
 	dw 36
 	INCBIN "gfx/duelists/mitch.2bpp"
 
-GeneGfx:: ; 9d210 (27:5210)
+GeneGfx::
 	dw 36
 	INCBIN "gfx/duelists/gene.2bpp"
 
-MurrayGfx:: ; 9d452 (27:5452)
+MurrayGfx::
 	dw 36
 	INCBIN "gfx/duelists/murray.2bpp"
 
-CourtneyGfx:: ; 9d694 (27:5694)
+CourtneyGfx::
 	dw 36
 	INCBIN "gfx/duelists/courtney.2bpp"
 
-SteveGfx:: ; 9d8d6 (27:58d6)
+SteveGfx::
 	dw 36
 	INCBIN "gfx/duelists/steve.2bpp"
 
-JackGfx:: ; 9db18 (27:5b18)
+JackGfx::
 	dw 36
 	INCBIN "gfx/duelists/jack.2bpp"
 
-RodGfx:: ; 9dd5a (27:5d5a)
+RodGfx::
 	dw 36
 	INCBIN "gfx/duelists/rod.2bpp"
 
-JosephGfx:: ; 9df9c (27:5f9c)
+JosephGfx::
 	dw 36
 	INCBIN "gfx/duelists/joseph.2bpp"
 
-DavidGfx:: ; 9e1de (27:61de)
+DavidGfx::
 	dw 36
 	INCBIN "gfx/duelists/david.2bpp"
 
-ErikGfx:: ; 9e420 (27:6420)
+ErikGfx::
 	dw 36
 	INCBIN "gfx/duelists/erik.2bpp"
 
-JohnGfx:: ; 9e662 (27:6662)
+JohnGfx::
 	dw 36
 	INCBIN "gfx/duelists/john.2bpp"
 
-AdamGfx:: ; 9e8a4 (27:68a4)
+AdamGfx::
 	dw 36
 	INCBIN "gfx/duelists/adam.2bpp"
 
-JonathanGfx:: ; 9eae6 (27:6ae6)
+JonathanGfx::
 	dw 36
 	INCBIN "gfx/duelists/jonathan.2bpp"
 
-JoshuaGfx:: ; 9ed28 (27:6d28)
+JoshuaGfx::
 	dw 36
 	INCBIN "gfx/duelists/joshua.2bpp"
 
-NicholasGfx:: ; 9ef6a (27:6f6a)
+NicholasGfx::
 	dw 36
 	INCBIN "gfx/duelists/nicholas.2bpp"
 
-BrandonGfx:: ; 9f1ac (27:71ac)
+BrandonGfx::
 	dw 36
 	INCBIN "gfx/duelists/brandon.2bpp"
 
-MatthewGfx:: ; 9f3ee (27:73ee)
+MatthewGfx::
 	dw 36
 	INCBIN "gfx/duelists/matthew.2bpp"
 
-RyanGfx:: ; 9f630 (27:7630)
+RyanGfx::
 	dw 36
 	INCBIN "gfx/duelists/ryan.2bpp"
 
-AndrewGfx:: ; 9f872 (27:7872)
+AndrewGfx::
 	dw 36
 	INCBIN "gfx/duelists/andrew.2bpp"
 
-ChrisGfx:: ; 9fab4 (27:7ab4)
+ChrisGfx::
 	dw 36
 	INCBIN "gfx/duelists/chris.2bpp"
 
-MichaelGfx:: ; 9fcf6 (27:7cf6)
+MichaelGfx::
 	dw 36
 	INCBIN "gfx/duelists/michael.2bpp"
 
-Duel63Gfx:: ; 9ff38 (27:7f38)
+Duel63Gfx::
 	dw $a
 	INCBIN "gfx/duel/anims/63.2bpp"
 
-Duel64Gfx:: ; 9ffda (27:7fda)
+Duel64Gfx::
 	dw $2
 	INCBIN "gfx/duel/anims/64.2bpp"
 
 SECTION "Gfx 10", ROMX
 
-DanielGfx:: ; a0000 (28:4000)
+DanielGfx::
 	dw 36
 	INCBIN "gfx/duelists/daniel.2bpp"
 
-RobertGfx:: ; a0242 (28:4242)
+RobertGfx::
 	dw 36
 	INCBIN "gfx/duelists/robert.2bpp"
 
-BrittanyGfx:: ; a0484 (28:4484)
+BrittanyGfx::
 	dw 36
 	INCBIN "gfx/duelists/brittany.2bpp"
 
-KristinGfx:: ; a06c6 (28:46c6)
+KristinGfx::
 	dw 36
 	INCBIN "gfx/duelists/kristin.2bpp"
 
-HeatherGfx:: ; a0908 (28:4908)
+HeatherGfx::
 	dw 36
 	INCBIN "gfx/duelists/heather.2bpp"
 
-SaraGfx:: ; a0b4a (28:4b4a)
+SaraGfx::
 	dw 36
 	INCBIN "gfx/duelists/sara.2bpp"
 
-AmandaGfx:: ; a0d8c (28:4d8c)
+AmandaGfx::
 	dw 36
 	INCBIN "gfx/duelists/amanda.2bpp"
 
-JenniferGfx:: ; a0fce (28:4fce)
+JenniferGfx::
 	dw 36
 	INCBIN "gfx/duelists/jennifer.2bpp"
 
-JessicaGfx:: ; a1210 (28:5210)
+JessicaGfx::
 	dw 36
 	INCBIN "gfx/duelists/jessica.2bpp"
 
-StephanieGfx:: ; a1452 (28:5452)
+StephanieGfx::
 	dw 36
 	INCBIN "gfx/duelists/stephanie.2bpp"
 
-AaronGfx:: ; a1694 (28:5694)
+AaronGfx::
 	dw 36
 	INCBIN "gfx/duelists/aaron.2bpp"
 
-OWIshiharaGfx:: ; a18d6 (28:58d6)
+OWIshiharaGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/ishihara.2bpp"
 
-OWImakuniGfx:: ; a1a18 (28:5a18)
+OWImakuniGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/imakuni.2bpp"
 
-OWNikkiGfx:: ; a1b5a (28:5b5a)
+OWNikkiGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/nikki.2bpp"
 
-OWRickGfx:: ; a1c9c (28:5c9c)
+OWRickGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/rick.2bpp"
 
-OWKenGfx:: ; a1dde (28:5dde)
+OWKenGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/ken.2bpp"
 
-OWAmyGfx:: ; a1f20 (28:5f20)
+OWAmyGfx::
 	dw $1b
 	INCBIN "gfx/overworld_sprites/amy.2bpp"
 
-OWIsaacGfx:: ; a20d2 (28:60d2)
+OWIsaacGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/isaac.2bpp"
 
-OWMitchGfx:: ; a2214 (28:6214)
+OWMitchGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/mitch.2bpp"
 
-OWGeneGfx:: ; a2356 (28:6356)
+OWGeneGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/gene.2bpp"
 
-OWMurrayGfx:: ; a2498 (28:6498)
+OWMurrayGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/murray.2bpp"
 
-OWCourtneyGfx:: ; a25da (28:65da)
+OWCourtneyGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/courtney.2bpp"
 
-OWSteveGfx:: ; a271c (28:671c)
+OWSteveGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/steve.2bpp"
 
-OWJackGfx:: ; a285e (28:685e)
+OWJackGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/jack.2bpp"
 
-OWRodGfx:: ; a29a0 (28:69a0)
+OWRodGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/rod.2bpp"
 
-OWBoyGfx:: ; a2ae2 (28:6ae2)
+OWBoyGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/youngster.2bpp"
 
-OWLadGfx:: ; a2c24 (28:6c24)
+OWLadGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/lad.2bpp"
 
-OWSpecsGfx:: ; a2d66 (28:6d66)
+OWSpecsGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/specs.2bpp"
 
-OWButchGfx:: ; a2ea8 (28:6ea8)
+OWButchGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/butch.2bpp"
 
-OWManiaGfx:: ; a2fea (28:6fea)
+OWManiaGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/mania.2bpp"
 
-OWJoshuaGfx:: ; a312c (28:712c)
+OWJoshuaGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/joshua.2bpp"
 
-OWHoodGfx:: ; a326e (28:726e)
+OWHoodGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/hood.2bpp"
 
-OWTechGfx:: ; a33b0 (28:73b0)
+OWTechGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/tech.2bpp"
 
-OWChapGfx:: ; a34f2 (28:74f2)
+OWChapGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/chap.2bpp"
 
-OWManGfx:: ; a3634 (28:7634)
+OWManGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/man.2bpp"
 
-OWPappyGfx:: ; a3776 (28:7776)
+OWPappyGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/pappy.2bpp"
 
-OWGirlGfx:: ; a38b8 (28:78b8)
+OWGirlGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/girl.2bpp"
 
-OWLass1Gfx:: ; a39fa (28:79fa)
+OWLass1Gfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/lass1.2bpp"
 
-OWLass2Gfx:: ; a3b3c (28:7b3c)
+OWLass2Gfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/lass2.2bpp"
 
-OWLass3Gfx:: ; a3c7e (28:7c7e)
+OWLass3Gfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/lass3.2bpp"
 
-OWSwimmerGfx:: ; a3dc0 (28:7dc0)
+OWSwimmerGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/swimmer.2bpp"
 
-DuelGlowGfx:: ; a3f02 (28:7f02)
+DuelGlowGfx::
 	dw $b
 	INCBIN "gfx/duel/anims/glow.2bpp"
 
-Duel66Gfx:: ; a3fb4 (28:7fb4)
+Duel66Gfx::
 	dw $4
 	INCBIN "gfx/duel/anims/66.2bpp"
 
-Palette117:: ; a3ff6 (28:7ff6)
+Palette117::
 	db 0
 	db 1
 
@@ -1150,203 +1150,203 @@ Palette117:: ; a3ff6 (28:7ff6)
 
 SECTION "Gfx 11", ROMX
 
-OWGalGfx:: ; a4000 (29:4000)
+OWGalGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/gal.2bpp"
 
-OWWomanGfx:: ; a4142 (29:4142)
+OWWomanGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/woman.2bpp"
 
-OWGrannyGfx:: ; a4284 (29:4284)
+OWGrannyGfx::
 	dw $14
 	INCBIN "gfx/overworld_sprites/granny.2bpp"
 
-Duel0Gfx:: ; a43c6 (29:43c6)
+Duel0Gfx::
 	dw $16
 	INCBIN "gfx/duel/anims/0.2bpp"
 
-Duel1Gfx:: ; a4528 (29:4528)
+Duel1Gfx::
 	dw $06
 	INCBIN "gfx/duel/anims/1.2bpp"
 
-Duel2Gfx:: ; a458a (29:458a)
+Duel2Gfx::
 	dw $08
 	INCBIN "gfx/duel/anims/2.2bpp"
 
-Duel3Gfx:: ; a460c (29:460c)
+Duel3Gfx::
 	dw $09
 	INCBIN "gfx/duel/anims/3.2bpp"
 
-Duel4Gfx:: ; a469e (29:469e)
+Duel4Gfx::
 	dw $12
 	INCBIN "gfx/duel/anims/4.2bpp"
 
-Duel5Gfx:: ; a47c0 (29:47c0)
+Duel5Gfx::
 	dw $09
 	INCBIN "gfx/duel/anims/5.2bpp"
 
-Duel6Gfx:: ; a4852 (29:4852)
+Duel6Gfx::
 	dw $11
 	INCBIN "gfx/duel/anims/6.2bpp"
 
-Duel7Gfx:: ; a4964 (29:4964)
+Duel7Gfx::
 	dw $2d
 	INCBIN "gfx/duel/anims/7.2bpp"
 
-Duel8Gfx:: ; a4c36 (29:4c36)
+Duel8Gfx::
 	dw $0d
 	INCBIN "gfx/duel/anims/8.2bpp"
 
-Duel9Gfx:: ; a4d08 (29:4d08)
+Duel9Gfx::
 	dw $1c
 	INCBIN "gfx/duel/anims/9.2bpp"
 
-Duel10Gfx:: ; a4eca (29:4eca)
+Duel10Gfx::
 	dw $4c
 	INCBIN "gfx/duel/anims/10.2bpp"
 
-Duel11Gfx:: ; a538c (29:538c)
+Duel11Gfx::
 	dw $1b
 	INCBIN "gfx/duel/anims/11.2bpp"
 
-Duel12Gfx:: ; a553e (29:553e)
+Duel12Gfx::
 	dw $07
 	INCBIN "gfx/duel/anims/12.2bpp"
 
-Duel13Gfx:: ; a55b0 (29:55b0)
+Duel13Gfx::
 	dw $0c
 	INCBIN "gfx/duel/anims/13.2bpp"
 
-Duel14Gfx:: ; a5672 (29:5672)
+Duel14Gfx::
 	dw $22
 	INCBIN "gfx/duel/anims/14.2bpp"
 
-Duel15Gfx:: ; a5894 (29:5894)
+Duel15Gfx::
 	dw $20
 	INCBIN "gfx/duel/anims/15.2bpp"
 
-Duel16Gfx:: ; a5a96 (29:5a96)
+Duel16Gfx::
 	dw $0a
 	INCBIN "gfx/duel/anims/16.2bpp"
 
-Duel17Gfx:: ; a5b38 (29:5b38)
+Duel17Gfx::
 	dw $25
 	INCBIN "gfx/duel/anims/17.2bpp"
 
-Duel18Gfx:: ; a5d8a (29:5d8a)
+Duel18Gfx::
 	dw $18
 	INCBIN "gfx/duel/anims/18.2bpp"
 
-Duel19Gfx:: ; a5f0c (29:5f0c)
+Duel19Gfx::
 	dw $1b
 	INCBIN "gfx/duel/anims/19.2bpp"
 
-Duel20Gfx:: ; a60be (29:60be)
+Duel20Gfx::
 	dw $08
 	INCBIN "gfx/duel/anims/20.2bpp"
 
-Duel21Gfx:: ; a6140 (29:6140)
+Duel21Gfx::
 	dw $0d
 	INCBIN "gfx/duel/anims/21.2bpp"
 
-Duel22Gfx:: ; a6212 (29:6212)
+Duel22Gfx::
 	dw $22
 	INCBIN "gfx/duel/anims/22.2bpp"
 
-Duel23Gfx:: ; a6434 (29:6434)
+Duel23Gfx::
 	dw $0c
 	INCBIN "gfx/duel/anims/23.2bpp"
 
-Duel24Gfx:: ; a64f6 (29:64f6)
+Duel24Gfx::
 	dw $25
 	INCBIN "gfx/duel/anims/24.2bpp"
 
-Duel25Gfx:: ; a6748 (29:6748)
+Duel25Gfx::
 	dw $22
 	INCBIN "gfx/duel/anims/25.2bpp"
 
-Duel26Gfx:: ; a696a (29:696a)
+Duel26Gfx::
 	dw $0c
 	INCBIN "gfx/duel/anims/26.2bpp"
 
-Duel27Gfx:: ; a6a2c (29:6a2c)
+Duel27Gfx::
 	dw $4c
 	INCBIN "gfx/duel/anims/27.2bpp"
 
-Duel28Gfx:: ; a6eee (29:6eee)
+Duel28Gfx::
 	dw $08
 	INCBIN "gfx/duel/anims/28.2bpp"
 
-Duel29Gfx:: ; a6f70 (29:6f70)
+Duel29Gfx::
 	dw $07
 	INCBIN "gfx/duel/anims/29.2bpp"
 
-Duel30Gfx:: ; a6fe2 (29:6fe2)
+Duel30Gfx::
 	dw $1a
 	INCBIN "gfx/duel/anims/30.2bpp"
 
-Duel31Gfx:: ; a7184 (29:7184)
+Duel31Gfx::
 	dw $0a
 	INCBIN "gfx/duel/anims/31.2bpp"
 
-Duel32Gfx:: ; a7226 (29:7226)
+Duel32Gfx::
 	dw $2e
 	INCBIN "gfx/duel/anims/32.2bpp"
 
-Duel33Gfx:: ; a7508 (29:7508)
+Duel33Gfx::
 	dw $08
 	INCBIN "gfx/duel/anims/33.2bpp"
 
-Duel34Gfx:: ; a758a (29:758a)
+Duel34Gfx::
 	dw $07
 	INCBIN "gfx/duel/anims/34.2bpp"
 
-Duel35Gfx:: ; a75fc (29:75fc)
+Duel35Gfx::
 	dw $1c
 	INCBIN "gfx/duel/anims/35.2bpp"
 
-Duel36Gfx:: ; a77be (29:77be)
+Duel36Gfx::
 	dw $08
 	INCBIN "gfx/duel/anims/36.2bpp"
 
-Duel37Gfx:: ; a7840 (29:7840)
+Duel37Gfx::
 	dw $0b
 	INCBIN "gfx/duel/anims/37.2bpp"
 
-Duel38Gfx:: ; a78f2 (29:78f2)
+Duel38Gfx::
 	dw $1c
 	INCBIN "gfx/duel/anims/38.2bpp"
 
-Duel39Gfx:: ; a7ab4 (29:7ab4)
+Duel39Gfx::
 	dw $16
 	INCBIN "gfx/duel/anims/39.2bpp"
 
-Duel40Gfx:: ; a7c16 (29:7c16)
+Duel40Gfx::
 	dw $10
 	INCBIN "gfx/duel/anims/40.2bpp"
 
-Duel41Gfx:: ; a7d18 (29:7d18)
+Duel41Gfx::
 	dw $0f
 	INCBIN "gfx/duel/anims/41.2bpp"
 
-Duel42Gfx:: ; a7e0a (29:7e0a)
+Duel42Gfx::
 	dw $07
 	INCBIN "gfx/duel/anims/42.2bpp"
 
-Duel43Gfx:: ; a7e7c (29:7e7c)
+Duel43Gfx::
 	dw $0a
 	INCBIN "gfx/duel/anims/43.2bpp"
 
-Duel44Gfx:: ; a7f1e (29:7f1e)
+Duel44Gfx::
 	dw $09
 	INCBIN "gfx/duel/anims/44.2bpp"
 
-Duel45Gfx:: ; a7fb0 (29:7fb0)
+Duel45Gfx::
 	dw $03
 	INCBIN "gfx/duel/anims/45.2bpp"
 
-AnimData6:: ; a7fe2 (29:7fe2)
+AnimData6::
 	frame_table AnimFrameTable1
 	frame_data 5, 16, 0, 0
 	frame_data 6, 16, 0, 0
@@ -1356,75 +1356,75 @@ AnimData6:: ; a7fe2 (29:7fe2)
 
 SECTION "Gfx 12", ROMX
 
-Duel46Gfx:: ; a8000 (2a:4000)
+Duel46Gfx::
 	dw $08
 	INCBIN "gfx/duel/anims/46.2bpp"
 
-Duel47Gfx:: ; a8082 (2a:4082)
+Duel47Gfx::
 	dw $0f
 	INCBIN "gfx/duel/anims/47.2bpp"
 
-Duel48Gfx:: ; a8174 (2a:4174)
+Duel48Gfx::
 	dw $03
 	INCBIN "gfx/duel/anims/48.2bpp"
 
-Duel49Gfx:: ; a81a6 (2a:41a6)
+Duel49Gfx::
 	dw $05
 	INCBIN "gfx/duel/anims/49.2bpp"
 
-Duel50Gfx:: ; a81f8 (2a:41f8)
+Duel50Gfx::
 	dw $17
 	INCBIN "gfx/duel/anims/50.2bpp"
 
-Duel51Gfx:: ; a836a (2a:436a)
+Duel51Gfx::
 	dw $36
 	INCBIN "gfx/duel/anims/51.2bpp"
 
-Duel52Gfx:: ; a86cc (2a:46cc)
+Duel52Gfx::
 	dw $0b
 	INCBIN "gfx/duel/anims/52.2bpp"
 
-Duel53Gfx:: ; a877e (2a:477e)
+Duel53Gfx::
 	dw $06
 	INCBIN "gfx/duel/anims/53.2bpp"
 
-Duel54Gfx:: ; a87e0 (2a:47e0)
+Duel54Gfx::
 	dw $16
 	INCBIN "gfx/duel/anims/54.2bpp"
 
-BoosterPackOAMGfx:: ; a8942 (2a:4942)
+BoosterPackOAMGfx::
 	dw $20
 	INCBIN "gfx/booster_packs/oam.2bpp"
 
-PressStartGfx:: ; a8b44 (2a:4b44)
+PressStartGfx::
 	dw $14
 	INCBIN "gfx/titlescreen/press_start.2bpp"
 
-GrassGfx:: ; a8c86 (2a:4c86)
+GrassGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/grass.2bpp"
 
-FireGfx:: ; a8cc8 (2a:4cc8)
+FireGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/fire.2bpp"
 
-WaterGfx:: ; a8d0a (2a:4d0a)
+WaterGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/water.2bpp"
 
-ColorlessGfx:: ; a8d4c (2a:4d4c)
+ColorlessGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/colorless.2bpp"
 
-LightningGfx:: ; a8d8e (2a:4d8e)
+LightningGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/lightning.2bpp"
 
-PsychicGfx:: ; a8dd0 (2a:4dd0)
+PsychicGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/psychic.2bpp"
 
-FightingGfx:: ; a8e12 (2a:4e12)
+FightingGfx::
 	dw $04
 	INCBIN "gfx/titlescreen/energies/fighting.2bpp"
 
@@ -1437,7 +1437,7 @@ SECTION "Anims 2", ROMX
 SECTION "Anims 3", ROMX
 	INCLUDE "data/duel/animations/anims3.asm"
 
-Palette31:: ; b3feb (2c:7feb)
+Palette31::
 	db 1, %11010010
 	db 1
 
@@ -1446,7 +1446,7 @@ Palette31:: ; b3feb (2c:7feb)
 	rgb 31, 24,  6
 	rgb 11,  3,  0
 
-Palette119:: ; b3ff6 (2c:7ff6)
+Palette119::
 	db 0
 	db 1
 
@@ -1466,89 +1466,89 @@ SECTION "Palettes2", ROMX
 
 SECTION "Card Gfx 1", ROMX
 
-CardGraphics:: ; c4000 (31:4000)
+CardGraphics::
 
-GrassEnergyCardGfx:: ; c4000 (31:4000)
+GrassEnergyCardGfx::
 	INCBIN "gfx/cards/grassenergy.2bpp"
 	INCBIN "gfx/cards/grassenergy.pal"
 
-FireEnergyCardGfx:: ; c4308 (31:4308)
+FireEnergyCardGfx::
 	INCBIN "gfx/cards/fireenergy.2bpp"
 	INCBIN "gfx/cards/fireenergy.pal"
 
-WaterEnergyCardGfx:: ; c4610 (31:4610)
+WaterEnergyCardGfx::
 	INCBIN "gfx/cards/waterenergy.2bpp"
 	INCBIN "gfx/cards/waterenergy.pal"
 
-LightningEnergyCardGfx:: ; c4918 (31:4918)
+LightningEnergyCardGfx::
 	INCBIN "gfx/cards/lightningenergy.2bpp"
 	INCBIN "gfx/cards/lightningenergy.pal"
 
-FightingEnergyCardGfx:: ; c4c20 (31:4c20)
+FightingEnergyCardGfx::
 	INCBIN "gfx/cards/fightingenergy.2bpp"
 	INCBIN "gfx/cards/fightingenergy.pal"
 
-PsychicEnergyCardGfx:: ; c4f28 (31:4f28)
+PsychicEnergyCardGfx::
 	INCBIN "gfx/cards/psychicenergy.2bpp"
 	INCBIN "gfx/cards/psychicenergy.pal"
 
-DoubleColorlessEnergyCardGfx:: ; c5230 (31:5230)
+DoubleColorlessEnergyCardGfx::
 	INCBIN "gfx/cards/doublecolorlessenergy.2bpp"
 	INCBIN "gfx/cards/doublecolorlessenergy.pal"
 
-BulbasaurCardGfx:: ; c5538 (31:5538)
+BulbasaurCardGfx::
 	INCBIN "gfx/cards/bulbasaur.2bpp"
 	INCBIN "gfx/cards/bulbasaur.pal"
 
-IvysaurCardGfx:: ; c5840 (31:5840)
+IvysaurCardGfx::
 	INCBIN "gfx/cards/ivysaur.2bpp"
 	INCBIN "gfx/cards/ivysaur.pal"
 
-Venusaur1CardGfx:: ; c5b48 (31:5b48)
+Venusaur1CardGfx::
 	INCBIN "gfx/cards/venusaur1.2bpp"
 	INCBIN "gfx/cards/venusaur1.pal"
 
-Venusaur2CardGfx:: ; c5e50 (31:5e50)
+Venusaur2CardGfx::
 	INCBIN "gfx/cards/venusaur2.2bpp"
 	INCBIN "gfx/cards/venusaur2.pal"
 
-CaterpieCardGfx:: ; c6158 (31:6158)
+CaterpieCardGfx::
 	INCBIN "gfx/cards/caterpie.2bpp"
 	INCBIN "gfx/cards/caterpie.pal"
 
-MetapodCardGfx:: ; c6460 (31:6460)
+MetapodCardGfx::
 	INCBIN "gfx/cards/metapod.2bpp"
 	INCBIN "gfx/cards/metapod.pal"
 
-ButterfreeCardGfx:: ; c6768 (31:6768)
+ButterfreeCardGfx::
 	INCBIN "gfx/cards/butterfree.2bpp"
 	INCBIN "gfx/cards/butterfree.pal"
 
-WeedleCardGfx:: ; c6a70 (31:6a70)
+WeedleCardGfx::
 	INCBIN "gfx/cards/weedle.2bpp"
 	INCBIN "gfx/cards/weedle.pal"
 
-KakunaCardGfx:: ; c6d78 (31:6d78)
+KakunaCardGfx::
 	INCBIN "gfx/cards/kakuna.2bpp"
 	INCBIN "gfx/cards/kakuna.pal"
 
-BeedrillCardGfx:: ; c7080 (31:7080)
+BeedrillCardGfx::
 	INCBIN "gfx/cards/beedrill.2bpp"
 	INCBIN "gfx/cards/beedrill.pal"
 
-EkansCardGfx:: ; c7388 (31:7388)
+EkansCardGfx::
 	INCBIN "gfx/cards/ekans.2bpp"
 	INCBIN "gfx/cards/ekans.pal"
 
-ArbokCardGfx:: ; c7690 (31:7690)
+ArbokCardGfx::
 	INCBIN "gfx/cards/arbok.2bpp"
 	INCBIN "gfx/cards/arbok.pal"
 
-NidoranFCardGfx:: ; c7998 (31:7998)
+NidoranFCardGfx::
 	INCBIN "gfx/cards/nidoranf.2bpp"
 	INCBIN "gfx/cards/nidoranf.pal"
 
-NidorinaCardGfx:: ; c7ca0 (31:7ca0)
+NidorinaCardGfx::
 	INCBIN "gfx/cards/nidorina.2bpp"
 	INCBIN "gfx/cards/nidorina.pal"
 
@@ -1556,87 +1556,87 @@ NidorinaCardGfx:: ; c7ca0 (31:7ca0)
 
 SECTION "Card Gfx 2", ROMX
 
-NidoqueenCardGfx:: ; c8000 (32:4000)
+NidoqueenCardGfx::
 	INCBIN "gfx/cards/nidoqueen.2bpp"
 	INCBIN "gfx/cards/nidoqueen.pal"
 
-NidoranMCardGfx:: ; c8308 (32:4308)
+NidoranMCardGfx::
 	INCBIN "gfx/cards/nidoranm.2bpp"
 	INCBIN "gfx/cards/nidoranm.pal"
 
-NidorinoCardGfx:: ; c8610 (32:4610)
+NidorinoCardGfx::
 	INCBIN "gfx/cards/nidorino.2bpp"
 	INCBIN "gfx/cards/nidorino.pal"
 
-NidokingCardGfx:: ; c8918 (32:4918)
+NidokingCardGfx::
 	INCBIN "gfx/cards/nidoking.2bpp"
 	INCBIN "gfx/cards/nidoking.pal"
 
-ZubatCardGfx:: ; c8c20 (32:4c20)
+ZubatCardGfx::
 	INCBIN "gfx/cards/zubat.2bpp"
 	INCBIN "gfx/cards/zubat.pal"
 
-GolbatCardGfx:: ; c8f28 (32:4f28)
+GolbatCardGfx::
 	INCBIN "gfx/cards/golbat.2bpp"
 	INCBIN "gfx/cards/golbat.pal"
 
-OddishCardGfx:: ; c9230 (32:5230)
+OddishCardGfx::
 	INCBIN "gfx/cards/oddish.2bpp"
 	INCBIN "gfx/cards/oddish.pal"
 
-GloomCardGfx:: ; c9538 (32:5538)
+GloomCardGfx::
 	INCBIN "gfx/cards/gloom.2bpp"
 	INCBIN "gfx/cards/gloom.pal"
 
-VileplumeCardGfx:: ; c9840 (32:5840)
+VileplumeCardGfx::
 	INCBIN "gfx/cards/vileplume.2bpp"
 	INCBIN "gfx/cards/vileplume.pal"
 
-ParasCardGfx:: ; c9b48 (32:5b48)
+ParasCardGfx::
 	INCBIN "gfx/cards/paras.2bpp"
 	INCBIN "gfx/cards/paras.pal"
 
-ParasectCardGfx:: ; c9e50 (32:5e50)
+ParasectCardGfx::
 	INCBIN "gfx/cards/parasect.2bpp"
 	INCBIN "gfx/cards/parasect.pal"
 
-VenonatCardGfx:: ; ca158 (32:6158)
+VenonatCardGfx::
 	INCBIN "gfx/cards/venonat.2bpp"
 	INCBIN "gfx/cards/venonat.pal"
 
-VenomothCardGfx:: ; ca460 (32:6460)
+VenomothCardGfx::
 	INCBIN "gfx/cards/venomoth.2bpp"
 	INCBIN "gfx/cards/venomoth.pal"
 
-BellsproutCardGfx:: ; ca768 (32:6768)
+BellsproutCardGfx::
 	INCBIN "gfx/cards/bellsprout.2bpp"
 	INCBIN "gfx/cards/bellsprout.pal"
 
-WeepinbellCardGfx:: ; caa70 (32:6a70)
+WeepinbellCardGfx::
 	INCBIN "gfx/cards/weepinbell.2bpp"
 	INCBIN "gfx/cards/weepinbell.pal"
 
-VictreebelCardGfx:: ; cad78 (32:6d78)
+VictreebelCardGfx::
 	INCBIN "gfx/cards/victreebel.2bpp"
 	INCBIN "gfx/cards/victreebel.pal"
 
-GrimerCardGfx:: ; cb080 (32:7080)
+GrimerCardGfx::
 	INCBIN "gfx/cards/grimer.2bpp"
 	INCBIN "gfx/cards/grimer.pal"
 
-MukCardGfx:: ; cb388 (32:7388)
+MukCardGfx::
 	INCBIN "gfx/cards/muk.2bpp"
 	INCBIN "gfx/cards/muk.pal"
 
-ExeggcuteCardGfx:: ; cb690 (32:7690)
+ExeggcuteCardGfx::
 	INCBIN "gfx/cards/exeggcute.2bpp"
 	INCBIN "gfx/cards/exeggcute.pal"
 
-ExeggutorCardGfx:: ; cb998 (32:7998)
+ExeggutorCardGfx::
 	INCBIN "gfx/cards/exeggutor.2bpp"
 	INCBIN "gfx/cards/exeggutor.pal"
 
-KoffingCardGfx:: ; cbca0 (32:7ca0)
+KoffingCardGfx::
 	INCBIN "gfx/cards/koffing.2bpp"
 	INCBIN "gfx/cards/koffing.pal"
 
@@ -1644,87 +1644,87 @@ KoffingCardGfx:: ; cbca0 (32:7ca0)
 
 SECTION "Card Gfx 3", ROMX
 
-WeezingCardGfx:: ; cc000 (33:4000)
+WeezingCardGfx::
 	INCBIN "gfx/cards/weezing.2bpp"
 	INCBIN "gfx/cards/weezing.pal"
 
-Tangela1CardGfx:: ; cc308 (33:4308)
+Tangela1CardGfx::
 	INCBIN "gfx/cards/tangela1.2bpp"
 	INCBIN "gfx/cards/tangela1.pal"
 
-Tangela2CardGfx:: ; cc610 (33:4610)
+Tangela2CardGfx::
 	INCBIN "gfx/cards/tangela2.2bpp"
 	INCBIN "gfx/cards/tangela2.pal"
 
-ScytherCardGfx:: ; cc918 (33:4918)
+ScytherCardGfx::
 	INCBIN "gfx/cards/scyther.2bpp"
 	INCBIN "gfx/cards/scyther.pal"
 
-PinsirCardGfx:: ; ccc20 (33:4c20)
+PinsirCardGfx::
 	INCBIN "gfx/cards/pinsir.2bpp"
 	INCBIN "gfx/cards/pinsir.pal"
 
-CharmanderCardGfx:: ; ccf28 (33:4f28)
+CharmanderCardGfx::
 	INCBIN "gfx/cards/charmander.2bpp"
 	INCBIN "gfx/cards/charmander.pal"
 
-CharmeleonCardGfx:: ; cd230 (33:5230)
+CharmeleonCardGfx::
 	INCBIN "gfx/cards/charmeleon.2bpp"
 	INCBIN "gfx/cards/charmeleon.pal"
 
-CharizardCardGfx:: ; cd538 (33:5538)
+CharizardCardGfx::
 	INCBIN "gfx/cards/charizard.2bpp"
 	INCBIN "gfx/cards/charizard.pal"
 
-VulpixCardGfx:: ; cd840 (33:5840)
+VulpixCardGfx::
 	INCBIN "gfx/cards/vulpix.2bpp"
 	INCBIN "gfx/cards/vulpix.pal"
 
-Ninetales1CardGfx:: ; cdb48 (33:5b48)
+Ninetales1CardGfx::
 	INCBIN "gfx/cards/ninetales1.2bpp"
 	INCBIN "gfx/cards/ninetales1.pal"
 
-Ninetales2CardGfx:: ; cde50 (33:5e50)
+Ninetales2CardGfx::
 	INCBIN "gfx/cards/ninetales2.2bpp"
 	INCBIN "gfx/cards/ninetales2.pal"
 
-GrowlitheCardGfx:: ; ce158 (33:6158)
+GrowlitheCardGfx::
 	INCBIN "gfx/cards/growlithe.2bpp"
 	INCBIN "gfx/cards/growlithe.pal"
 
-Arcanine1CardGfx:: ; ce460 (33:6460)
+Arcanine1CardGfx::
 	INCBIN "gfx/cards/arcanine1.2bpp"
 	INCBIN "gfx/cards/arcanine1.pal"
 
-Arcanine2CardGfx:: ; ce768 (33:6768)
+Arcanine2CardGfx::
 	INCBIN "gfx/cards/arcanine2.2bpp"
 	INCBIN "gfx/cards/arcanine2.pal"
 
-PonytaCardGfx:: ; cea70 (33:6a70)
+PonytaCardGfx::
 	INCBIN "gfx/cards/ponyta.2bpp"
 	INCBIN "gfx/cards/ponyta.pal"
 
-RapidashCardGfx:: ; ced78 (33:6d78)
+RapidashCardGfx::
 	INCBIN "gfx/cards/rapidash.2bpp"
 	INCBIN "gfx/cards/rapidash.pal"
 
-Magmar1CardGfx:: ; cf080 (33:7080)
+Magmar1CardGfx::
 	INCBIN "gfx/cards/magmar1.2bpp"
 	INCBIN "gfx/cards/magmar1.pal"
 
-Magmar2CardGfx:: ; cf388 (33:7388)
+Magmar2CardGfx::
 	INCBIN "gfx/cards/magmar2.2bpp"
 	INCBIN "gfx/cards/magmar2.pal"
 
-Flareon1CardGfx:: ; cf690 (33:7690)
+Flareon1CardGfx::
 	INCBIN "gfx/cards/flareon1.2bpp"
 	INCBIN "gfx/cards/flareon1.pal"
 
-Flareon2CardGfx:: ; cf998 (33:7998)
+Flareon2CardGfx::
 	INCBIN "gfx/cards/flareon2.2bpp"
 	INCBIN "gfx/cards/flareon2.pal"
 
-Moltres1CardGfx:: ; cfca0 (33:7ca0)
+Moltres1CardGfx::
 	INCBIN "gfx/cards/moltres1.2bpp"
 	INCBIN "gfx/cards/moltres1.pal"
 
@@ -1732,87 +1732,87 @@ Moltres1CardGfx:: ; cfca0 (33:7ca0)
 
 SECTION "Card Gfx 4", ROMX
 
-Moltres2CardGfx:: ; d0000 (34:4000)
+Moltres2CardGfx::
 	INCBIN "gfx/cards/moltres2.2bpp"
 	INCBIN "gfx/cards/moltres2.pal"
 
-SquirtleCardGfx:: ; d0308 (34:4308)
+SquirtleCardGfx::
 	INCBIN "gfx/cards/squirtle.2bpp"
 	INCBIN "gfx/cards/squirtle.pal"
 
-WartortleCardGfx:: ; d0610 (34:4610)
+WartortleCardGfx::
 	INCBIN "gfx/cards/wartortle.2bpp"
 	INCBIN "gfx/cards/wartortle.pal"
 
-BlastoiseCardGfx:: ; d0918 (34:4918)
+BlastoiseCardGfx::
 	INCBIN "gfx/cards/blastoise.2bpp"
 	INCBIN "gfx/cards/blastoise.pal"
 
-PsyduckCardGfx:: ; d0c20 (34:4c20)
+PsyduckCardGfx::
 	INCBIN "gfx/cards/psyduck.2bpp"
 	INCBIN "gfx/cards/psyduck.pal"
 
-GolduckCardGfx:: ; d0f28 (34:4f28)
+GolduckCardGfx::
 	INCBIN "gfx/cards/golduck.2bpp"
 	INCBIN "gfx/cards/golduck.pal"
 
-PoliwagCardGfx:: ; d1230 (34:5230)
+PoliwagCardGfx::
 	INCBIN "gfx/cards/poliwag.2bpp"
 	INCBIN "gfx/cards/poliwag.pal"
 
-PoliwhirlCardGfx:: ; d1538 (34:5538)
+PoliwhirlCardGfx::
 	INCBIN "gfx/cards/poliwhirl.2bpp"
 	INCBIN "gfx/cards/poliwhirl.pal"
 
-PoliwrathCardGfx:: ; d1840 (34:5840)
+PoliwrathCardGfx::
 	INCBIN "gfx/cards/poliwrath.2bpp"
 	INCBIN "gfx/cards/poliwrath.pal"
 
-TentacoolCardGfx:: ; d1b48 (34:5b48)
+TentacoolCardGfx::
 	INCBIN "gfx/cards/tentacool.2bpp"
 	INCBIN "gfx/cards/tentacool.pal"
 
-TentacruelCardGfx:: ; d1e50 (34:5e50)
+TentacruelCardGfx::
 	INCBIN "gfx/cards/tentacruel.2bpp"
 	INCBIN "gfx/cards/tentacruel.pal"
 
-SeelCardGfx:: ; d2158 (34:6158)
+SeelCardGfx::
 	INCBIN "gfx/cards/seel.2bpp"
 	INCBIN "gfx/cards/seel.pal"
 
-DewgongCardGfx:: ; d2460 (34:6460)
+DewgongCardGfx::
 	INCBIN "gfx/cards/dewgong.2bpp"
 	INCBIN "gfx/cards/dewgong.pal"
 
-ShellderCardGfx:: ; d2768 (34:6768)
+ShellderCardGfx::
 	INCBIN "gfx/cards/shellder.2bpp"
 	INCBIN "gfx/cards/shellder.pal"
 
-CloysterCardGfx:: ; d2a70 (34:6a70)
+CloysterCardGfx::
 	INCBIN "gfx/cards/cloyster.2bpp"
 	INCBIN "gfx/cards/cloyster.pal"
 
-KrabbyCardGfx:: ; d2d78 (34:6d78)
+KrabbyCardGfx::
 	INCBIN "gfx/cards/krabby.2bpp"
 	INCBIN "gfx/cards/krabby.pal"
 
-KinglerCardGfx:: ; d3080 (34:7080)
+KinglerCardGfx::
 	INCBIN "gfx/cards/kingler.2bpp"
 	INCBIN "gfx/cards/kingler.pal"
 
-HorseaCardGfx:: ; d3388 (34:7388)
+HorseaCardGfx::
 	INCBIN "gfx/cards/horsea.2bpp"
 	INCBIN "gfx/cards/horsea.pal"
 
-SeadraCardGfx:: ; d3690 (34:7690)
+SeadraCardGfx::
 	INCBIN "gfx/cards/seadra.2bpp"
 	INCBIN "gfx/cards/seadra.pal"
 
-GoldeenCardGfx:: ; d3998 (34:7998)
+GoldeenCardGfx::
 	INCBIN "gfx/cards/goldeen.2bpp"
 	INCBIN "gfx/cards/goldeen.pal"
 
-SeakingCardGfx:: ; d3ca0 (34:7ca0)
+SeakingCardGfx::
 	INCBIN "gfx/cards/seaking.2bpp"
 	INCBIN "gfx/cards/seaking.pal"
 
@@ -1820,87 +1820,87 @@ SeakingCardGfx:: ; d3ca0 (34:7ca0)
 
 SECTION "Card Gfx 5", ROMX
 
-StaryuCardGfx:: ; d4000 (35:4000)
+StaryuCardGfx::
 	INCBIN "gfx/cards/staryu.2bpp"
 	INCBIN "gfx/cards/staryu.pal"
 
-StarmieCardGfx:: ; d4308 (35:4308)
+StarmieCardGfx::
 	INCBIN "gfx/cards/starmie.2bpp"
 	INCBIN "gfx/cards/starmie.pal"
 
-MagikarpCardGfx:: ; d4610 (35:4610)
+MagikarpCardGfx::
 	INCBIN "gfx/cards/magikarp.2bpp"
 	INCBIN "gfx/cards/magikarp.pal"
 
-GyaradosCardGfx:: ; d4918 (35:4918)
+GyaradosCardGfx::
 	INCBIN "gfx/cards/gyarados.2bpp"
 	INCBIN "gfx/cards/gyarados.pal"
 
-LaprasCardGfx:: ; d4c20 (35:4c20)
+LaprasCardGfx::
 	INCBIN "gfx/cards/lapras.2bpp"
 	INCBIN "gfx/cards/lapras.pal"
 
-Vaporeon1CardGfx:: ; d4f28 (35:4f28)
+Vaporeon1CardGfx::
 	INCBIN "gfx/cards/vaporeon1.2bpp"
 	INCBIN "gfx/cards/vaporeon1.pal"
 
-Vaporeon2CardGfx:: ; d5230 (35:5230)
+Vaporeon2CardGfx::
 	INCBIN "gfx/cards/vaporeon2.2bpp"
 	INCBIN "gfx/cards/vaporeon2.pal"
 
-OmanyteCardGfx:: ; d5538 (35:5538)
+OmanyteCardGfx::
 	INCBIN "gfx/cards/omanyte.2bpp"
 	INCBIN "gfx/cards/omanyte.pal"
 
-OmastarCardGfx:: ; d5840 (35:5840)
+OmastarCardGfx::
 	INCBIN "gfx/cards/omastar.2bpp"
 	INCBIN "gfx/cards/omastar.pal"
 
-Articuno1CardGfx:: ; d5b48 (35:5b48)
+Articuno1CardGfx::
 	INCBIN "gfx/cards/articuno1.2bpp"
 	INCBIN "gfx/cards/articuno1.pal"
 
-Articuno2CardGfx:: ; d5e50 (35:5e50)
+Articuno2CardGfx::
 	INCBIN "gfx/cards/articuno2.2bpp"
 	INCBIN "gfx/cards/articuno2.pal"
 
-Pikachu1CardGfx:: ; d6158 (35:6158)
+Pikachu1CardGfx::
 	INCBIN "gfx/cards/pikachu1.2bpp"
 	INCBIN "gfx/cards/pikachu1.pal"
 
-Pikachu2CardGfx:: ; d6460 (35:6460)
+Pikachu2CardGfx::
 	INCBIN "gfx/cards/pikachu2.2bpp"
 	INCBIN "gfx/cards/pikachu2.pal"
 
-Pikachu3CardGfx:: ; d6768 (35:6768)
+Pikachu3CardGfx::
 	INCBIN "gfx/cards/pikachu3.2bpp"
 	INCBIN "gfx/cards/pikachu3.pal"
 
-Pikachu4CardGfx:: ; d6a70 (35:6a70)
+Pikachu4CardGfx::
 	INCBIN "gfx/cards/pikachu4.2bpp"
 	INCBIN "gfx/cards/pikachu4.pal"
 
-FlyingPikachuCardGfx:: ; d6d78 (35:6d78)
+FlyingPikachuCardGfx::
 	INCBIN "gfx/cards/flyingpikachu.2bpp"
 	INCBIN "gfx/cards/flyingpikachu.pal"
 
-SurfingPikachu1CardGfx:: ; d7080 (35:7080)
+SurfingPikachu1CardGfx::
 	INCBIN "gfx/cards/surfingpikachu1.2bpp"
 	INCBIN "gfx/cards/surfingpikachu1.pal"
 
-SurfingPikachu2CardGfx:: ; d7388 (35:7388)
+SurfingPikachu2CardGfx::
 	INCBIN "gfx/cards/surfingpikachu2.2bpp"
 	INCBIN "gfx/cards/surfingpikachu2.pal"
 
-Raichu1CardGfx:: ; d7690 (35:7690)
+Raichu1CardGfx::
 	INCBIN "gfx/cards/raichu1.2bpp"
 	INCBIN "gfx/cards/raichu1.pal"
 
-Raichu2CardGfx:: ; d7998 (35:7998)
+Raichu2CardGfx::
 	INCBIN "gfx/cards/raichu2.2bpp"
 	INCBIN "gfx/cards/raichu2.pal"
 
-Magnemite1CardGfx:: ; d7ca0 (35:7ca0)
+Magnemite1CardGfx::
 	INCBIN "gfx/cards/magnemite1.2bpp"
 	INCBIN "gfx/cards/magnemite1.pal"
 
@@ -1908,87 +1908,87 @@ Magnemite1CardGfx:: ; d7ca0 (35:7ca0)
 
 SECTION "Card Gfx 6", ROMX
 
-Magnemite2CardGfx:: ; d8000 (36:4000)
+Magnemite2CardGfx::
 	INCBIN "gfx/cards/magnemite2.2bpp"
 	INCBIN "gfx/cards/magnemite2.pal"
 
-Magneton1CardGfx:: ; d8308 (36:4308)
+Magneton1CardGfx::
 	INCBIN "gfx/cards/magneton1.2bpp"
 	INCBIN "gfx/cards/magneton1.pal"
 
-Magneton2CardGfx:: ; d8610 (36:4610)
+Magneton2CardGfx::
 	INCBIN "gfx/cards/magneton2.2bpp"
 	INCBIN "gfx/cards/magneton2.pal"
 
-VoltorbCardGfx:: ; d8918 (36:4918)
+VoltorbCardGfx::
 	INCBIN "gfx/cards/voltorb.2bpp"
 	INCBIN "gfx/cards/voltorb.pal"
 
-Electrode1CardGfx:: ; d8c20 (36:4c20)
+Electrode1CardGfx::
 	INCBIN "gfx/cards/electrode1.2bpp"
 	INCBIN "gfx/cards/electrode1.pal"
 
-Electrode2CardGfx:: ; d8f28 (36:4f28)
+Electrode2CardGfx::
 	INCBIN "gfx/cards/electrode2.2bpp"
 	INCBIN "gfx/cards/electrode2.pal"
 
-Electabuzz1CardGfx:: ; d9230 (36:5230)
+Electabuzz1CardGfx::
 	INCBIN "gfx/cards/electabuzz1.2bpp"
 	INCBIN "gfx/cards/electabuzz1.pal"
 
-Electabuzz2CardGfx:: ; d9538 (36:5538)
+Electabuzz2CardGfx::
 	INCBIN "gfx/cards/electabuzz2.2bpp"
 	INCBIN "gfx/cards/electabuzz2.pal"
 
-Jolteon1CardGfx:: ; d9840 (36:5840)
+Jolteon1CardGfx::
 	INCBIN "gfx/cards/jolteon1.2bpp"
 	INCBIN "gfx/cards/jolteon1.pal"
 
-Jolteon2CardGfx:: ; d9b48 (36:5b48)
+Jolteon2CardGfx::
 	INCBIN "gfx/cards/jolteon2.2bpp"
 	INCBIN "gfx/cards/jolteon2.pal"
 
-Zapdos1CardGfx:: ; d9e50 (36:5e50)
+Zapdos1CardGfx::
 	INCBIN "gfx/cards/zapdos1.2bpp"
 	INCBIN "gfx/cards/zapdos1.pal"
 
-Zapdos2CardGfx:: ; da158 (36:6158)
+Zapdos2CardGfx::
 	INCBIN "gfx/cards/zapdos2.2bpp"
 	INCBIN "gfx/cards/zapdos2.pal"
 
-Zapdos3CardGfx:: ; da460 (36:6460)
+Zapdos3CardGfx::
 	INCBIN "gfx/cards/zapdos3.2bpp"
 	INCBIN "gfx/cards/zapdos3.pal"
 
-SandshrewCardGfx:: ; da768 (36:6768)
+SandshrewCardGfx::
 	INCBIN "gfx/cards/sandshrew.2bpp"
 	INCBIN "gfx/cards/sandshrew.pal"
 
-SandslashCardGfx:: ; daa70 (36:6a70)
+SandslashCardGfx::
 	INCBIN "gfx/cards/sandslash.2bpp"
 	INCBIN "gfx/cards/sandslash.pal"
 
-DiglettCardGfx:: ; dad78 (36:6d78)
+DiglettCardGfx::
 	INCBIN "gfx/cards/diglett.2bpp"
 	INCBIN "gfx/cards/diglett.pal"
 
-DugtrioCardGfx:: ; db080 (36:7080)
+DugtrioCardGfx::
 	INCBIN "gfx/cards/dugtrio.2bpp"
 	INCBIN "gfx/cards/dugtrio.pal"
 
-MankeyCardGfx:: ; db388 (36:7388)
+MankeyCardGfx::
 	INCBIN "gfx/cards/mankey.2bpp"
 	INCBIN "gfx/cards/mankey.pal"
 
-PrimeapeCardGfx:: ; db690 (36:7690)
+PrimeapeCardGfx::
 	INCBIN "gfx/cards/primeape.2bpp"
 	INCBIN "gfx/cards/primeape.pal"
 
-MachopCardGfx:: ; db998 (36:7998)
+MachopCardGfx::
 	INCBIN "gfx/cards/machop.2bpp"
 	INCBIN "gfx/cards/machop.pal"
 
-MachokeCardGfx:: ; dbca0 (36:7ca0)
+MachokeCardGfx::
 	INCBIN "gfx/cards/machoke.2bpp"
 	INCBIN "gfx/cards/machoke.pal"
 
@@ -1996,87 +1996,87 @@ MachokeCardGfx:: ; dbca0 (36:7ca0)
 
 SECTION "Card Gfx 7", ROMX
 
-MachampCardGfx:: ; dc000 (37:4000)
+MachampCardGfx::
 	INCBIN "gfx/cards/machamp.2bpp"
 	INCBIN "gfx/cards/machamp.pal"
 
-GeodudeCardGfx:: ; dc308 (37:4308)
+GeodudeCardGfx::
 	INCBIN "gfx/cards/geodude.2bpp"
 	INCBIN "gfx/cards/geodude.pal"
 
-GravelerCardGfx:: ; dc610 (37:4610)
+GravelerCardGfx::
 	INCBIN "gfx/cards/graveler.2bpp"
 	INCBIN "gfx/cards/graveler.pal"
 
-GolemCardGfx:: ; dc918 (37:4918)
+GolemCardGfx::
 	INCBIN "gfx/cards/golem.2bpp"
 	INCBIN "gfx/cards/golem.pal"
 
-OnixCardGfx:: ; dcc20 (37:4c20)
+OnixCardGfx::
 	INCBIN "gfx/cards/onix.2bpp"
 	INCBIN "gfx/cards/onix.pal"
 
-CuboneCardGfx:: ; dcf28 (37:4f28)
+CuboneCardGfx::
 	INCBIN "gfx/cards/cubone.2bpp"
 	INCBIN "gfx/cards/cubone.pal"
 
-Marowak1CardGfx:: ; dd230 (37:5230)
+Marowak1CardGfx::
 	INCBIN "gfx/cards/marowak1.2bpp"
 	INCBIN "gfx/cards/marowak1.pal"
 
-Marowak2CardGfx:: ; dd538 (37:5538)
+Marowak2CardGfx::
 	INCBIN "gfx/cards/marowak2.2bpp"
 	INCBIN "gfx/cards/marowak2.pal"
 
-HitmonleeCardGfx:: ; dd840 (37:5840)
+HitmonleeCardGfx::
 	INCBIN "gfx/cards/hitmonlee.2bpp"
 	INCBIN "gfx/cards/hitmonlee.pal"
 
-HitmonchanCardGfx:: ; ddb48 (37:5b48)
+HitmonchanCardGfx::
 	INCBIN "gfx/cards/hitmonchan.2bpp"
 	INCBIN "gfx/cards/hitmonchan.pal"
 
-RhyhornCardGfx:: ; dde50 (37:5e50)
+RhyhornCardGfx::
 	INCBIN "gfx/cards/rhyhorn.2bpp"
 	INCBIN "gfx/cards/rhyhorn.pal"
 
-RhydonCardGfx:: ; de158 (37:6158)
+RhydonCardGfx::
 	INCBIN "gfx/cards/rhydon.2bpp"
 	INCBIN "gfx/cards/rhydon.pal"
 
-KabutoCardGfx:: ; de460 (37:6460)
+KabutoCardGfx::
 	INCBIN "gfx/cards/kabuto.2bpp"
 	INCBIN "gfx/cards/kabuto.pal"
 
-KabutopsCardGfx:: ; de768 (37:6768)
+KabutopsCardGfx::
 	INCBIN "gfx/cards/kabutops.2bpp"
 	INCBIN "gfx/cards/kabutops.pal"
 
-AerodactylCardGfx:: ; dea70 (37:6a70)
+AerodactylCardGfx::
 	INCBIN "gfx/cards/aerodactyl.2bpp"
 	INCBIN "gfx/cards/aerodactyl.pal"
 
-AbraCardGfx:: ; ded78 (37:6d78)
+AbraCardGfx::
 	INCBIN "gfx/cards/abra.2bpp"
 	INCBIN "gfx/cards/abra.pal"
 
-KadabraCardGfx:: ; df080 (37:7080)
+KadabraCardGfx::
 	INCBIN "gfx/cards/kadabra.2bpp"
 	INCBIN "gfx/cards/kadabra.pal"
 
-AlakazamCardGfx:: ; df388 (37:7388)
+AlakazamCardGfx::
 	INCBIN "gfx/cards/alakazam.2bpp"
 	INCBIN "gfx/cards/alakazam.pal"
 
-Slowpoke1CardGfx:: ; df690 (37:7690)
+Slowpoke1CardGfx::
 	INCBIN "gfx/cards/slowpoke1.2bpp"
 	INCBIN "gfx/cards/slowpoke1.pal"
 
-Slowpoke2CardGfx:: ; df998 (37:7998)
+Slowpoke2CardGfx::
 	INCBIN "gfx/cards/slowpoke2.2bpp"
 	INCBIN "gfx/cards/slowpoke2.pal"
 
-SlowbroCardGfx:: ; dfca0 (37:7ca0)
+SlowbroCardGfx::
 	INCBIN "gfx/cards/slowbro.2bpp"
 	INCBIN "gfx/cards/slowbro.pal"
 
@@ -2084,87 +2084,87 @@ SlowbroCardGfx:: ; dfca0 (37:7ca0)
 
 SECTION "Card Gfx 8", ROMX
 
-Gastly1CardGfx:: ; e0000 (38:4000)
+Gastly1CardGfx::
 	INCBIN "gfx/cards/gastly1.2bpp"
 	INCBIN "gfx/cards/gastly1.pal"
 
-Gastly2CardGfx:: ; e0308 (38:4308)
+Gastly2CardGfx::
 	INCBIN "gfx/cards/gastly2.2bpp"
 	INCBIN "gfx/cards/gastly2.pal"
 
-Haunter1CardGfx:: ; e0610 (38:4610)
+Haunter1CardGfx::
 	INCBIN "gfx/cards/haunter1.2bpp"
 	INCBIN "gfx/cards/haunter1.pal"
 
-Haunter2CardGfx:: ; e0918 (38:4918)
+Haunter2CardGfx::
 	INCBIN "gfx/cards/haunter2.2bpp"
 	INCBIN "gfx/cards/haunter2.pal"
 
-GengarCardGfx:: ; e0c20 (38:4c20)
+GengarCardGfx::
 	INCBIN "gfx/cards/gengar.2bpp"
 	INCBIN "gfx/cards/gengar.pal"
 
-DrowzeeCardGfx:: ; e0f28 (38:4f28)
+DrowzeeCardGfx::
 	INCBIN "gfx/cards/drowzee.2bpp"
 	INCBIN "gfx/cards/drowzee.pal"
 
-HypnoCardGfx:: ; e1230 (38:5230)
+HypnoCardGfx::
 	INCBIN "gfx/cards/hypno.2bpp"
 	INCBIN "gfx/cards/hypno.pal"
 
-MrMimeCardGfx:: ; e1538 (38:5538)
+MrMimeCardGfx::
 	INCBIN "gfx/cards/mrmime.2bpp"
 	INCBIN "gfx/cards/mrmime.pal"
 
-JynxCardGfx:: ; e1840 (38:5840)
+JynxCardGfx::
 	INCBIN "gfx/cards/jynx.2bpp"
 	INCBIN "gfx/cards/jynx.pal"
 
-Mewtwo1CardGfx:: ; e1b48 (38:5b48)
+Mewtwo1CardGfx::
 	INCBIN "gfx/cards/mewtwo1.2bpp"
 	INCBIN "gfx/cards/mewtwo1.pal"
 
-Mewtwo2CardGfx:: ; e1e50 (38:5e50)
+Mewtwo2CardGfx::
 	INCBIN "gfx/cards/mewtwo2.2bpp"
 	INCBIN "gfx/cards/mewtwo2.pal"
 
-Mewtwo3CardGfx:: ; e2158 (38:6158)
+Mewtwo3CardGfx::
 	INCBIN "gfx/cards/mewtwo3.2bpp"
 	INCBIN "gfx/cards/mewtwo3.pal"
 
-Mew1CardGfx:: ; e2460 (38:6460)
+Mew1CardGfx::
 	INCBIN "gfx/cards/mew1.2bpp"
 	INCBIN "gfx/cards/mew1.pal"
 
-Mew2CardGfx:: ; e2768 (38:6768)
+Mew2CardGfx::
 	INCBIN "gfx/cards/mew2.2bpp"
 	INCBIN "gfx/cards/mew2.pal"
 
-Mew3CardGfx:: ; e2a70 (38:6a70)
+Mew3CardGfx::
 	INCBIN "gfx/cards/mew3.2bpp"
 	INCBIN "gfx/cards/mew3.pal"
 
-PidgeyCardGfx:: ; e2d78 (38:6d78)
+PidgeyCardGfx::
 	INCBIN "gfx/cards/pidgey.2bpp"
 	INCBIN "gfx/cards/pidgey.pal"
 
-PidgeottoCardGfx:: ; e3080 (38:7080)
+PidgeottoCardGfx::
 	INCBIN "gfx/cards/pidgeotto.2bpp"
 	INCBIN "gfx/cards/pidgeotto.pal"
 
-Pidgeot1CardGfx:: ; e3388 (38:7388)
+Pidgeot1CardGfx::
 	INCBIN "gfx/cards/pidgeot1.2bpp"
 	INCBIN "gfx/cards/pidgeot1.pal"
 
-Pidgeot2CardGfx:: ; e3690 (38:7690)
+Pidgeot2CardGfx::
 	INCBIN "gfx/cards/pidgeot2.2bpp"
 	INCBIN "gfx/cards/pidgeot2.pal"
 
-RattataCardGfx:: ; e3998 (38:7998)
+RattataCardGfx::
 	INCBIN "gfx/cards/rattata.2bpp"
 	INCBIN "gfx/cards/rattata.pal"
 
-RaticateCardGfx:: ; e3ca0 (38:7ca0)
+RaticateCardGfx::
 	INCBIN "gfx/cards/raticate.2bpp"
 	INCBIN "gfx/cards/raticate.pal"
 
@@ -2172,87 +2172,87 @@ RaticateCardGfx:: ; e3ca0 (38:7ca0)
 
 SECTION "Card Gfx 9", ROMX
 
-SpearowCardGfx:: ; e4000 (39:4000)
+SpearowCardGfx::
 	INCBIN "gfx/cards/spearow.2bpp"
 	INCBIN "gfx/cards/spearow.pal"
 
-FearowCardGfx:: ; e4308 (39:4308)
+FearowCardGfx::
 	INCBIN "gfx/cards/fearow.2bpp"
 	INCBIN "gfx/cards/fearow.pal"
 
-ClefairyCardGfx:: ; e4610 (39:4610)
+ClefairyCardGfx::
 	INCBIN "gfx/cards/clefairy.2bpp"
 	INCBIN "gfx/cards/clefairy.pal"
 
-ClefableCardGfx:: ; e4918 (39:4918)
+ClefableCardGfx::
 	INCBIN "gfx/cards/clefable.2bpp"
 	INCBIN "gfx/cards/clefable.pal"
 
-Jigglypuff1CardGfx:: ; e4c20 (39:4c20)
+Jigglypuff1CardGfx::
 	INCBIN "gfx/cards/jigglypuff1.2bpp"
 	INCBIN "gfx/cards/jigglypuff1.pal"
 
-Jigglypuff2CardGfx:: ; e4f28 (39:4f28)
+Jigglypuff2CardGfx::
 	INCBIN "gfx/cards/jigglypuff2.2bpp"
 	INCBIN "gfx/cards/jigglypuff2.pal"
 
-Jigglypuff3CardGfx:: ; e5230 (39:5230)
+Jigglypuff3CardGfx::
 	INCBIN "gfx/cards/jigglypuff3.2bpp"
 	INCBIN "gfx/cards/jigglypuff3.pal"
 
-WigglytuffCardGfx:: ; e5538 (39:5538)
+WigglytuffCardGfx::
 	INCBIN "gfx/cards/wigglytuff.2bpp"
 	INCBIN "gfx/cards/wigglytuff.pal"
 
-Meowth1CardGfx:: ; e5840 (39:5840)
+Meowth1CardGfx::
 	INCBIN "gfx/cards/meowth1.2bpp"
 	INCBIN "gfx/cards/meowth1.pal"
 
-Meowth2CardGfx:: ; e5b48 (39:5b48)
+Meowth2CardGfx::
 	INCBIN "gfx/cards/meowth2.2bpp"
 	INCBIN "gfx/cards/meowth2.pal"
 
-PersianCardGfx:: ; e5e50 (39:5e50)
+PersianCardGfx::
 	INCBIN "gfx/cards/persian.2bpp"
 	INCBIN "gfx/cards/persian.pal"
 
-FarfetchdCardGfx:: ; e6158 (39:6158)
+FarfetchdCardGfx::
 	INCBIN "gfx/cards/farfetchd.2bpp"
 	INCBIN "gfx/cards/farfetchd.pal"
 
-DoduoCardGfx:: ; e6460 (39:6460)
+DoduoCardGfx::
 	INCBIN "gfx/cards/doduo.2bpp"
 	INCBIN "gfx/cards/doduo.pal"
 
-DodrioCardGfx:: ; e6768 (39:6768)
+DodrioCardGfx::
 	INCBIN "gfx/cards/dodrio.2bpp"
 	INCBIN "gfx/cards/dodrio.pal"
 
-LickitungCardGfx:: ; e6a70 (39:6a70)
+LickitungCardGfx::
 	INCBIN "gfx/cards/lickitung.2bpp"
 	INCBIN "gfx/cards/lickitung.pal"
 
-ChanseyCardGfx:: ; e6d78 (39:6d78)
+ChanseyCardGfx::
 	INCBIN "gfx/cards/chansey.2bpp"
 	INCBIN "gfx/cards/chansey.pal"
 
-KangaskhanCardGfx:: ; e7080 (39:7080)
+KangaskhanCardGfx::
 	INCBIN "gfx/cards/kangaskhan.2bpp"
 	INCBIN "gfx/cards/kangaskhan.pal"
 
-TaurosCardGfx:: ; e7388 (39:7388)
+TaurosCardGfx::
 	INCBIN "gfx/cards/tauros.2bpp"
 	INCBIN "gfx/cards/tauros.pal"
 
-DittoCardGfx:: ; e7690 (39:7690)
+DittoCardGfx::
 	INCBIN "gfx/cards/ditto.2bpp"
 	INCBIN "gfx/cards/ditto.pal"
 
-EeveeCardGfx:: ; e7998 (39:7998)
+EeveeCardGfx::
 	INCBIN "gfx/cards/eevee.2bpp"
 	INCBIN "gfx/cards/eevee.pal"
 
-PorygonCardGfx:: ; e7ca0 (39:7ca0)
+PorygonCardGfx::
 	INCBIN "gfx/cards/porygon.2bpp"
 	INCBIN "gfx/cards/porygon.pal"
 
@@ -2260,87 +2260,87 @@ PorygonCardGfx:: ; e7ca0 (39:7ca0)
 
 SECTION "Card Gfx 10", ROMX
 
-SnorlaxCardGfx:: ; e8000 (3a:4000)
+SnorlaxCardGfx::
 	INCBIN "gfx/cards/snorlax.2bpp"
 	INCBIN "gfx/cards/snorlax.pal"
 
-DratiniCardGfx:: ; e8308 (3a:4308)
+DratiniCardGfx::
 	INCBIN "gfx/cards/dratini.2bpp"
 	INCBIN "gfx/cards/dratini.pal"
 
-DragonairCardGfx:: ; e8610 (3a:4610)
+DragonairCardGfx::
 	INCBIN "gfx/cards/dragonair.2bpp"
 	INCBIN "gfx/cards/dragonair.pal"
 
-Dragonite1CardGfx:: ; e8918 (3a:4918)
+Dragonite1CardGfx::
 	INCBIN "gfx/cards/dragonite1.2bpp"
 	INCBIN "gfx/cards/dragonite1.pal"
 
-Dragonite2CardGfx:: ; e8c20 (3a:4c20)
+Dragonite2CardGfx::
 	INCBIN "gfx/cards/dragonite2.2bpp"
 	INCBIN "gfx/cards/dragonite2.pal"
 
-ProfessorOakCardGfx:: ; e8f28 (3a:4f28)
+ProfessorOakCardGfx::
 	INCBIN "gfx/cards/professoroak.2bpp"
 	INCBIN "gfx/cards/professoroak.pal"
 
-ImposterProfessorOakCardGfx:: ; e9230 (3a:5230)
+ImposterProfessorOakCardGfx::
 	INCBIN "gfx/cards/imposterprofessoroak.2bpp"
 	INCBIN "gfx/cards/imposterprofessoroak.pal"
 
-BillCardGfx:: ; e9538 (3a:5538)
+BillCardGfx::
 	INCBIN "gfx/cards/bill.2bpp"
 	INCBIN "gfx/cards/bill.pal"
 
-MrFujiCardGfx:: ; e9840 (3a:5840)
+MrFujiCardGfx::
 	INCBIN "gfx/cards/mrfuji.2bpp"
 	INCBIN "gfx/cards/mrfuji.pal"
 
-LassCardGfx:: ; e9b48 (3a:5b48)
+LassCardGfx::
 	INCBIN "gfx/cards/lass.2bpp"
 	INCBIN "gfx/cards/lass.pal"
 
-ImakuniCardGfx:: ; e9e50 (3a:5e50)
+ImakuniCardGfx::
 	INCBIN "gfx/cards/imakuni.2bpp"
 	INCBIN "gfx/cards/imakuni.pal"
 
-PokemonTraderCardGfx:: ; ea158 (3a:6158)
+PokemonTraderCardGfx::
 	INCBIN "gfx/cards/pokemontrader.2bpp"
 	INCBIN "gfx/cards/pokemontrader.pal"
 
-PokemonBreederCardGfx:: ; ea460 (3a:6460)
+PokemonBreederCardGfx::
 	INCBIN "gfx/cards/pokemonbreeder.2bpp"
 	INCBIN "gfx/cards/pokemonbreeder.pal"
 
-ClefairyDollCardGfx:: ; ea768 (3a:6768)
+ClefairyDollCardGfx::
 	INCBIN "gfx/cards/clefairydoll.2bpp"
 	INCBIN "gfx/cards/clefairydoll.pal"
 
-MysteriousFossilCardGfx:: ; eaa70 (3a:6a70)
+MysteriousFossilCardGfx::
 	INCBIN "gfx/cards/mysteriousfossil.2bpp"
 	INCBIN "gfx/cards/mysteriousfossil.pal"
 
-EnergyRetrievalCardGfx:: ; ead78 (3a:6d78)
+EnergyRetrievalCardGfx::
 	INCBIN "gfx/cards/energyretrieval.2bpp"
 	INCBIN "gfx/cards/energyretrieval.pal"
 
-SuperEnergyRetrievalCardGfx:: ; eb080 (3a:7080)
+SuperEnergyRetrievalCardGfx::
 	INCBIN "gfx/cards/superenergyretrieval.2bpp"
 	INCBIN "gfx/cards/superenergyretrieval.pal"
 
-EnergySearchCardGfx:: ; eb388 (3a:7388)
+EnergySearchCardGfx::
 	INCBIN "gfx/cards/energysearch.2bpp"
 	INCBIN "gfx/cards/energysearch.pal"
 
-EnergyRemovalCardGfx:: ; eb690 (3a:7690)
+EnergyRemovalCardGfx::
 	INCBIN "gfx/cards/energyremoval.2bpp"
 	INCBIN "gfx/cards/energyremoval.pal"
 
-SuperEnergyRemovalCardGfx:: ; eb998 (3a:7998)
+SuperEnergyRemovalCardGfx::
 	INCBIN "gfx/cards/superenergyremoval.2bpp"
 	INCBIN "gfx/cards/superenergyremoval.pal"
 
-SwitchCardGfx:: ; ebca0 (3a:7ca0)
+SwitchCardGfx::
 	INCBIN "gfx/cards/switch.2bpp"
 	INCBIN "gfx/cards/switch.pal"
 
@@ -2348,74 +2348,74 @@ SwitchCardGfx:: ; ebca0 (3a:7ca0)
 
 SECTION "Card Gfx 11", ROMX
 
-PokemonCenterCardGfx:: ; ec000 (3b:4000)
+PokemonCenterCardGfx::
 	INCBIN "gfx/cards/pokemoncenter.2bpp"
 	INCBIN "gfx/cards/pokemoncenter.pal"
 
-PokeBallCardGfx:: ; ec308 (3b:4308)
+PokeBallCardGfx::
 	INCBIN "gfx/cards/pokeball.2bpp"
 	INCBIN "gfx/cards/pokeball.pal"
 
-ScoopUpCardGfx:: ; ec610 (3b:4610)
+ScoopUpCardGfx::
 	INCBIN "gfx/cards/scoopup.2bpp"
 	INCBIN "gfx/cards/scoopup.pal"
 
-ComputerSearchCardGfx:: ; ec918 (3b:4918)
+ComputerSearchCardGfx::
 	INCBIN "gfx/cards/computersearch.2bpp"
 	INCBIN "gfx/cards/computersearch.pal"
 
-PokedexCardGfx:: ; ecc20 (3b:4c20)
+PokedexCardGfx::
 	INCBIN "gfx/cards/pokedex.2bpp"
 	INCBIN "gfx/cards/pokedex.pal"
 
-PlusPowerCardGfx:: ; ecf28 (3b:4f28)
+PlusPowerCardGfx::
 	INCBIN "gfx/cards/pluspower.2bpp"
 	INCBIN "gfx/cards/pluspower.pal"
 
-DefenderCardGfx:: ; ed230 (3b:5230)
+DefenderCardGfx::
 	INCBIN "gfx/cards/defender.2bpp"
 	INCBIN "gfx/cards/defender.pal"
 
-ItemFinderCardGfx:: ; ed538 (3b:5538)
+ItemFinderCardGfx::
 	INCBIN "gfx/cards/itemfinder.2bpp"
 	INCBIN "gfx/cards/itemfinder.pal"
 
-GustOfWindCardGfx:: ; ed840 (3b:5840)
+GustOfWindCardGfx::
 	INCBIN "gfx/cards/gustofwind.2bpp"
 	INCBIN "gfx/cards/gustofwind.pal"
 
-DevolutionSprayCardGfx:: ; edb48 (3b:5b48)
+DevolutionSprayCardGfx::
 	INCBIN "gfx/cards/devolutionspray.2bpp"
 	INCBIN "gfx/cards/devolutionspray.pal"
 
-PotionCardGfx:: ; ede50 (3b:5e50)
+PotionCardGfx::
 	INCBIN "gfx/cards/potion.2bpp"
 	INCBIN "gfx/cards/potion.pal"
 
-SuperPotionCardGfx:: ; ee158 (3b:6158)
+SuperPotionCardGfx::
 	INCBIN "gfx/cards/superpotion.2bpp"
 	INCBIN "gfx/cards/superpotion.pal"
 
-FullHealCardGfx:: ; ee460 (3b:6460)
+FullHealCardGfx::
 	INCBIN "gfx/cards/fullheal.2bpp"
 	INCBIN "gfx/cards/fullheal.pal"
 
-ReviveCardGfx:: ; ee768 (3b:6768)
+ReviveCardGfx::
 	INCBIN "gfx/cards/revive.2bpp"
 	INCBIN "gfx/cards/revive.pal"
 
-MaintenanceCardGfx:: ; eea70 (3b:6a70)
+MaintenanceCardGfx::
 	INCBIN "gfx/cards/maintenance.2bpp"
 	INCBIN "gfx/cards/maintenance.pal"
 
-PokemonFluteCardGfx:: ; eed78 (3b:6d78)
+PokemonFluteCardGfx::
 	INCBIN "gfx/cards/pokemonflute.2bpp"
 	INCBIN "gfx/cards/pokemonflute.pal"
 
-GamblerCardGfx:: ; ef080 (3b:7080)
+GamblerCardGfx::
 	INCBIN "gfx/cards/gambler.2bpp"
 	INCBIN "gfx/cards/gambler.pal"
 
-RecycleCardGfx:: ; ef388 (3b:7388)
+RecycleCardGfx::
 	INCBIN "gfx/cards/recycle.2bpp"
 	INCBIN "gfx/cards/recycle.pal"
diff --git a/src/home/ai.asm b/src/home/ai.asm
index 270168f..b3834c1 100644
--- a/src/home/ai.asm
+++ b/src/home/ai.asm
@@ -70,7 +70,7 @@ AIDoAction_TakePrize:
 	jr AIDoAction ; this line is not needed
 
 ; calls the appropriate AI routine to handle action,
-; depending on the deck ID (see engine/ai/deck_ai.asm)
+; depending on the deck ID (see engine/duel/ai/deck_ai.asm)
 ; input:
 ;	- a = AIACTION_* constant
 AIDoAction:
diff --git a/src/home/lcd.asm b/src/home/lcd.asm
index 5e8fc5d..415aea0 100644
--- a/src/home/lcd.asm
+++ b/src/home/lcd.asm
@@ -69,14 +69,14 @@ Set_OBJ_8x16:
 	ret
 
 ; set Window Display on
-Set_WD_on:
+SetWindowOn:
 	ld a, [wLCDC]
 	or LCDC_WINON
 	ld [wLCDC], a
 	ret
 
 ; set Window Display off
-Set_WD_off:
+SetWindowOff:
 	ld a, [wLCDC]
 	and LCDC_WINOFF
 	ld [wLCDC], a
diff --git a/src/home/map.asm b/src/home/map.asm
index b00d456..4609b46 100644
--- a/src/home/map.asm
+++ b/src/home/map.asm
@@ -141,7 +141,7 @@ GameEvent_ContinueDuel:
 	ret
 
 GameEvent_Credits:
-	farcall Credits_1d6ad
+	farcall PlayCreditsSequence
 	or a
 	ret
 
diff --git a/src/layout.link b/src/layout.link
index 6b19bfe..e913aa3 100644
--- a/src/layout.link
+++ b/src/layout.link
@@ -36,7 +36,7 @@ ROMX $01
 	"Duel Core"
 	"Menus Common"
 ROMX $02
-	"Menus"
+	"Menus 1"
 ROMX $03
 	"Overworld Scripting"
 ROMX $04
@@ -44,9 +44,24 @@ ROMX $04
 ROMX $05
 	"AI Logic 1"
 ROMX $06
-	"Bank 6"
+	"Menus 2"
+	"Effect Commands"
+	"Animation Commands"
+	"IR Communications Core"
+	"Sprite Animations VBlank"
+	"Starter Deck"
+	"Link Functions"
+	"Promotional Card"
+	"Booster Pack Menu"
+	"Unused Save Validation"
+	"Input Name"
+	"Auto Deck Machines"
 ROMX $07
 	"Bank 7"
+	"Duel Animations"
+	"Start Menu"
+	"Intro Sequence"
+	"Unused Copyright"
 	"Credits Sequence"
 	"Booster Packs"
 ROMX $08
@@ -83,13 +98,14 @@ ROMX $18
 ROMX $19
 	"Text 13"
 ROMX $1c
-	"Bank 1C"
+	"SGB"
 ROMX $1d
 	"Gfx 1"
 ROMX $1e
 	"Gfx 2"
 ROMX $20
 	"Bank 20"
+	"Gfx"
 ROMX $21
 	"Gfx 3"
 ROMX $22
diff --git a/src/macros/intro_sequence.asm b/src/macros/intro_sequence.asm
new file mode 100644
index 0000000..8c92b26
--- /dev/null
+++ b/src/macros/intro_sequence.asm
@@ -0,0 +1,63 @@
+intro_seq_wait_orbs_animation: MACRO
+	dw IntroSequenceCmd_WaitOrbsAnimation
+ENDM
+
+; argument = frames to delay
+intro_seq_wait: MACRO
+	dw IntroSequenceCmd_Wait
+	db \1
+ENDM
+
+; argument = list of animations to set
+intro_seq_set_orbs_animations: MACRO
+	dw IntroSequenceCmd_SetOrbsAnimations
+	dw \1
+ENDM
+
+; argument = list of coordinates to set
+intro_seq_set_orbs_coordinates: MACRO
+	dw IntroSequenceCmd_SetOrbsCoordinates
+	dw \1
+ENDM
+
+intro_seq_play_title_screen_music: MACRO
+	dw IntroSequenceCmd_PlayTitleScreenMusic
+ENDM
+
+intro_seq_wait_sfx: MACRO
+	dw IntroSequenceCmd_WaitSFX
+ENDM
+
+; argument = SFX to play
+intro_seq_play_sfx: MACRO
+	dw IntroSequenceCmd_PlaySFX
+	db \1
+ENDM
+
+intro_seq_fade_in: MACRO
+	dw IntroSequenceCmd_FadeIn
+ENDM
+
+intro_seq_fade_out: MACRO
+	dw IntroSequenceCmd_FadeOut
+ENDM
+
+intro_seq_load_charizard_scene: MACRO
+	dw IntroSequenceCmd_LoadCharizardScene
+ENDM
+
+intro_seq_load_scyther_scene: MACRO
+	dw IntroSequenceCmd_LoadScytherScene
+ENDM
+
+intro_seq_load_aerodactyl_scene: MACRO
+	dw IntroSequenceCmd_LoadAerodactylScene
+ENDM
+
+intro_seq_load_title_screen_scene: MACRO
+	dw IntroSequenceCmd_LoadTitleScreenScene
+ENDM
+
+intro_seq_end: MACRO
+	intro_seq_wait $ff
+ENDM
diff --git a/src/macros/opening_sequence.asm b/src/macros/opening_sequence.asm
deleted file mode 100644
index b864c3c..0000000
--- a/src/macros/opening_sequence.asm
+++ /dev/null
@@ -1,63 +0,0 @@
-opening_seq_wait_orbs_animation: MACRO
-	dw OpeningSequenceCmd_WaitOrbsAnimation
-ENDM
-
-; argument = frames to delay
-opening_seq_wait: MACRO
-	dw OpeningSequenceCmd_Wait
-	db \1
-ENDM
-
-; argument = list of animations to set
-opening_seq_set_orbs_animations: MACRO
-	dw OpeningSequenceCmd_SetOrbsAnimations
-	dw \1
-ENDM
-
-; argument = list of coordinates to set
-opening_seq_set_orbs_coordinates: MACRO
-	dw OpeningSequenceCmd_SetOrbsCoordinates
-	dw \1
-ENDM
-
-opening_seq_play_title_screen_music: MACRO
-	dw OpeningSequenceCmd_PlayTitleScreenMusic
-ENDM
-
-opening_seq_wait_sfx: MACRO
-	dw OpeningSequenceCmd_WaitSFX
-ENDM
-
-; argument = SFX to play
-opening_seq_play_sfx: MACRO
-	dw OpeningSequenceCmd_PlaySFX
-	db \1
-ENDM
-
-opening_seq_fade_in: MACRO
-	dw OpeningSequenceCmd_FadeIn
-ENDM
-
-opening_seq_fade_out: MACRO
-	dw OpeningSequenceCmd_FadeOut
-ENDM
-
-opening_seq_load_charizard_scene: MACRO
-	dw OpeningSequenceCmd_LoadCharizardScene
-ENDM
-
-opening_seq_load_scyther_scene: MACRO
-	dw OpeningSequenceCmd_LoadScytherScene
-ENDM
-
-opening_seq_load_aerodactyl_scene: MACRO
-	dw OpeningSequenceCmd_LoadAerodactylScene
-ENDM
-
-opening_seq_load_title_screen_scene: MACRO
-	dw OpeningSequenceCmd_LoadTitleScreenScene
-ENDM
-
-opening_seq_end: MACRO
-	opening_seq_wait $ff
-ENDM
diff --git a/src/main.asm b/src/main.asm
index 6ee64d1..f892cfb 100644
--- a/src/main.asm
+++ b/src/main.asm
@@ -12,7 +12,7 @@ INCLUDE "engine/duel/core.asm"
 SECTION "Menus Common", ROMX
 INCLUDE "engine/menus/common.asm"
 
-SECTION "Menus", ROMX
+SECTION "Menus 1", ROMX
 INCLUDE "engine/menus/duel.asm"
 INCLUDE "engine/menus/deck_selection.asm"
 INCLUDE "engine/menus/deck_check.asm"
@@ -30,28 +30,83 @@ INCLUDE "engine/bank04.asm"
 
 SECTION "AI Logic 1", ROMX
 INCLUDE "data/deck_ai_pointers.asm"
-INCLUDE "engine/ai/core.asm"
+INCLUDE "engine/duel/ai/core.asm"
 
-SECTION "Bank 6", ROMX
-INCLUDE "engine/bank06.asm"
+SECTION "Menus 2", ROMX
+INCLUDE "engine/copy_card_name.asm"
+INCLUDE "engine/menus/play_area.asm"
+INCLUDE "engine/menus/glossary.asm"
+INCLUDE "engine/menus/unknown.asm"
+
+SECTION "Effect Commands", ROMX
+INCLUDE "engine/duel/effect_commands.asm"
+
+SECTION "Animation Commands", ROMX
+INCLUDE "engine/duel/animations/commands.asm"
+
+SECTION "IR Communications Core", ROMX
+INCLUDE "engine/link/ir_core.asm"
+
+SECTION "Sprite Animations VBlank", ROMX
+INCLUDE "engine/gfx/sprite_vblank.asm"
+
+SECTION "Starter Deck", ROMX
+INCLUDE "engine/starter_deck.asm"
+
+SECTION "Link Functions", ROMX
+INCLUDE "engine/link/ir_functions.asm"
+INCLUDE "engine/link/card_pop.asm"
+INCLUDE "engine/link/printer.asm"
+INCLUDE "engine/link/link_duel.asm"
+
+SECTION "Promotional Card", ROMX
+INCLUDE "engine/promotional_card.asm"
+
+SECTION "Booster Pack Menu", ROMX
+INCLUDE "engine/menus/booster_pack.asm"
+
+SECTION "Unused Save Validation", ROMX
+INCLUDE "engine/unused_save_validation.asm"
+
+SECTION "Input Name", ROMX
+INCLUDE "engine/input_name.asm"
+
+SECTION "Auto Deck Machines", ROMX
+INCLUDE "engine/auto_deck_machines.asm"
 
 SECTION "Bank 7", ROMX
 INCLUDE "engine/bank07.asm"
 
+SECTION "Duel Animations", ROMX
+INCLUDE "engine/duel/animations/core.asm"
+INCLUDE "engine/duel/animations/screen_effects.asm"
+INCLUDE "data/duel/animations/duel_animations.asm"
+
+SECTION "Start Menu", ROMX
+INCLUDE "engine/menus/start.asm"
+
+SECTION "Intro Sequence", ROMX
+INCLUDE "engine/intro.asm"
+INCLUDE "engine/sequences/intro_sequence_commands.asm"
+
+SECTION "Unused Copyright", ROMX
+INCLUDE "engine/unused_copyright.asm"
+
 SECTION "Credits Sequence", ROMX
+INCLUDE "engine/credits.asm"
 INCLUDE "engine/sequences/credits_sequence_commands.asm"
-INCLUDE "data/sequences/credits_sequence.asm"
+INCLUDE "data/sequences/credits.asm"
 
 SECTION "Booster Packs", ROMX
 INCLUDE "engine/booster_packs.asm"
 
 SECTION "AI Logic 2", ROMX
-INCLUDE "engine/ai/trainer_cards.asm"
-INCLUDE "engine/ai/pkmn_powers.asm"
-INCLUDE "engine/ai/common.asm"
+INCLUDE "engine/duel/ai/trainer_cards.asm"
+INCLUDE "engine/duel/ai/pkmn_powers.asm"
+INCLUDE "engine/duel/ai/common.asm"
 
 SECTION "Effect Functions", ROMX
-INCLUDE "engine/effect_functions.asm"
+INCLUDE "engine/duel/effect_functions.asm"
 
 SECTION "Decks", ROMX
 INCLUDE "data/decks.asm"
@@ -59,8 +114,17 @@ INCLUDE "data/decks.asm"
 SECTION "Cards", ROMX
 INCLUDE "data/cards.asm"
 
-SECTION "Bank 1C", ROMX
-INCLUDE "engine/bank1c.asm"
+SECTION "SGB", ROMX
+INCLUDE "engine/sgb.asm"
 
 SECTION "Bank 20", ROMX
 INCLUDE "engine/bank20.asm"
+
+SECTION "Gfx", ROMX
+INCLUDE "engine/gfx/gfx_table_pointers.asm"
+INCLUDE "engine/gfx/tilemaps.asm"
+INCLUDE "engine/gfx/tilesets.asm"
+INCLUDE "engine/gfx/sprites.asm"
+INCLUDE "engine/gfx/sprite_animations.asm"
+INCLUDE "engine/gfx/palettes.asm"
+INCLUDE "data/maps/tilemaps.asm"
diff --git a/src/sram.asm b/src/sram.asm
index b1ba680..90e1093 100644
--- a/src/sram.asm
+++ b/src/sram.asm
@@ -29,7 +29,7 @@ sSkipDelayAllowed:: ; a009
 	ds $1
 sReceivedLegendaryCards:: ; a00a
 	ds $1
-s0a00b:: ; a00b
+sUnusedSaveDataValidationByte:: ; a00b
 	ds $1
 s0a00c:: ; a00c
 	ds $4
diff --git a/src/text/text1.asm b/src/text/text1.asm
index e6192ee..39bd82d 100644
--- a/src/text/text1.asm
+++ b/src/text/text1.asm
@@ -763,7 +763,7 @@ ResetBackUpRamText: ; 372a9 (d:72a9)
 	text "Reset Back Up RAM?"
 	done
 
-Text00a3: ; 372bd (d:72bd)
+YourDataWasDestroyedSomehowText: ; 372bd (d:72bd)
 	text "Your Data was destroyed"
 	line "somehow."
 	line ""
diff --git a/src/text/text_offsets.asm b/src/text/text_offsets.asm
index 0d212c2..ff38daa 100644
--- a/src/text/text_offsets.asm
+++ b/src/text/text_offsets.asm
@@ -164,7 +164,7 @@ TextOffsets:: ; 34000 (d:4000)
 	textpointer Text00a0                                           ; 0x00a0
 	textpointer Text00a1                                           ; 0x00a1
 	textpointer ResetBackUpRamText                                 ; 0x00a2
-	textpointer Text00a3                                           ; 0x00a3
+	textpointer YourDataWasDestroyedSomehowText                    ; 0x00a3
 	textpointer NoCardsInHandText                                  ; 0x00a4
 	textpointer TheDiscardPileHasNoCardsText                       ; 0x00a5
 	textpointer PlayerDiscardPileText                              ; 0x00a6
diff --git a/src/wram.asm b/src/wram.asm
index 19c680b..157bf0f 100644
--- a/src/wram.asm
+++ b/src/wram.asm
@@ -3113,7 +3113,7 @@ wTitleScreenSprites:: ; d629
 	ds $1
 
 ; pointer to commands used by opening and credits sequence
-; (see OpeningSequence and CreditsSequence)
+; (see IntroSequence and CreditsSequence)
 wSequenceCmdPtr:: ; d631
 	ds $2
 
@@ -3123,7 +3123,7 @@ wSequenceCmdPtr:: ; d631
 wSequenceDelay:: ; d633
 	ds $1
 
-wOpeningSequencePalsNeedUpdate:: ; d634
+wIntroSequencePalsNeedUpdate:: ; d634
 	ds $1
 
 wd635:: ; d635