From 5251fe1ec15442de2605bd1c653e9dfd07b36adc Mon Sep 17 00:00:00 2001
From: Zumi <13794376+ZoomTen@users.noreply.github.com>
Date: Tue, 26 Jan 2021 01:01:22 +0700
Subject: Split and label Trainer Gear code (#89)

Split and label Trainer Gear code
---
 engine/dumps/bank02.asm | 667 +-----------------------------------------------
 1 file changed, 4 insertions(+), 663 deletions(-)

(limited to 'engine/dumps')

diff --git a/engine/dumps/bank02.asm b/engine/dumps/bank02.asm
index 1db4285..38042a4 100755
--- a/engine/dumps/bank02.asm
+++ b/engine/dumps/bank02.asm
@@ -900,7 +900,7 @@ Function86a0:
 	ld hl, InitEffectObject
 	ld a, BANK(InitEffectObject)
 	call FarCall_hl
-	call Function886a
+	call PlaceGoldInMap
 	call WaitBGMap
 	call SetPalettes
 .sub_86b4
@@ -924,7 +924,7 @@ FlyMap:
 	ld hl, InitEffectObject
 	ld a, BANK(InitEffectObject)
 	call FarCall_hl
-	call Function886a
+	call PlaceGoldInMap
 	call Function88b3
 	ld hl, wcb60
 	ld [hl], c
@@ -1141,7 +1141,7 @@ DecompTownMapTilemap:
 	inc de
 	jr .sub_8859
 
-Function886a:
+PlaceGoldInMap:
 	ld de, GoldSpriteGFX
 	ld hl, vChars0
 	lb bc, BANK(GoldSpriteGFX), $04
@@ -1252,666 +1252,7 @@ Data8a53:
 	db $3c, $14, $3c, $20, $48, $14, $54, $1c
 	db $54, $2c, $54, $38, $3c, $44, $48, $2c
 
-OpenTrainerGear:
-	ld hl, wce5f
-	ld a, [hl]
-	push af
-	set 4, [hl]
-	ldh a, [hMapAnims]
-	push af
-	xor a
-	ldh [hMapAnims], a
-	ldh a, [hJoypadSum]
-	push af
-	ld a, [wVramState]
-	push af
-	xor a
-	ld [wVramState], a
-	call Function8ae0
-	call DelayFrame
-.sub_8ac9
-	call Function8ba3
-	jr nc, .sub_8ac9
-	pop af
-	ld [wVramState], a
-	pop af
-	ldh [hJoypadSum], a
-	pop af
-	ldh [hMapAnims], a
-	pop af
-	ld [wce5f], a
-	call ClearJoypad
-	ret
-
-Function8ae0:
-	call ClearBGPalettes
-	call DisableLCD
-	call ClearSprites
-	ld b, $13
-	call GetSGBLayout
-	ld hl, TrainerGearGFX
-	ld de, vChars2
-	ld bc, $0200
-	ld a, $02
-	call FarCopyData
-	call Function8b2a
-	call Function8b7e
-	xor a
-	ldh [hSCY], a
-	ldh [hSCX], a
-	ld [wJumptableIndex], a
-	ld [wFlyDestination], a
-	ld a, $ff
-	ld [wcb60], a
-	ld a, $07
-	ldh [hWX], a
-	ld a, $08
-	call UpdateSoundNTimes
-	ld a, $e3
-	ldh [rLCDC], a
-	call WaitBGMap
-	call SetPalettes
-	ld a, $e0
-	ldh [rOBP1], a
-	ret
-
-Function8b2a:
-	ld hl, wTileMap
-	ld bc, $0168
-	ld a, $7f
-	call ByteFill
-	ld de, wTileMap
-	ld hl, Data8b42
-	ld bc, $003c
-	call CopyBytes
-	ret
-
-Data8b42:
-	db $0d, $1c, $1d, $0b, $1c, $1d, $0b, $1c
-	db $1d, $0c, $01, $05, $05, $05, $05, $05
-	db $05, $05, $05, $02, $08, $1e, $1f, $0a
-	db $1e, $1f, $0a, $1e, $1f, $07, $08, $7f
-	db $7f, $0f, $7f, $7f, $0f, $7f, $7f, $07
-	db $03, $06, $06, $09, $06, $06, $09, $06
-	db $06, $04, $03, $06, $06, $06, $06, $06
-	db $06, $06, $06, $04
-
-Function8b7e:
-	coord hl, 1, 0
-	ld a, $10
-	call Function8b97
-	coord hl, 4, 0
-	ld a, $14
-	call Function8b97
-	coord hl, 7, 0
-	ld a, $18
-	call Function8b97
-	ret
-
-Function8b97:
-	ld [hli], a
-	inc a
-	ld [hld], a
-	ld bc, $0014
-	add hl, bc
-	inc a
-	ld [hli], a
-	inc a
-	ld [hld], a
-	ret
-
-Function8ba3:
-	call UpdateTime
-	call GetJoypadDebounced
-	ld a, [wJumptableIndex]
-	bit 7, a
-	jr nz, .sub_8bc3
-	call Function8bfd
-	ld a, BANK(EffectObjectJumpNoDelay)
-	ld hl, EffectObjectJumpNoDelay
-	call FarCall_hl
-	call Function8bd5
-	call DelayFrame
-	and a
-	ret
-.sub_8bc3
-	ld hl, InitEffectObject
-	ld a, BANK(InitEffectObject)
-	call FarCall_hl
-	call ClearSprites
-	xor a
-	ldh [hSCX], a
-	ldh [hSCY], a
-	scf
-	ret
-
-Function8bd5:
-	coord hl, 11, 1
-	ld a, $7f
-	ld [hli], a
-	ld [hl], a
-	ld de, hRTCHours
-	coord hl, 11, 1
-	ld bc, $0102
-	call PrintNumber
-	inc hl
-	ld de, hRTCMinutes
-	ld bc, $8102
-	call PrintNumber
-	inc hl
-	ld de, hRTCSeconds
-	ld bc, $8102
-	call PrintNumber
-	ret
-
-Function8bfd:
-	ld a, [wJumptableIndex]
-	ld e, a
-	ld d, $00
-	ld hl, Table8c0c
-	add hl, de
-	add hl, de
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	jp hl
-
-Table8c0c:
-	dw Function8c21
-	dw Function8c49
-	dw DrawMap
-	dw Function8cab
-	dw Function8cb7
-	dw Function8d62
-	dw Function8e6c
-	dw Function8e9e
-
-Function8c1c:
-	ld hl, wJumptableIndex
-	inc [hl]
-	ret
-
-Function8c21:
-	ld hl, InitEffectObject
-	ld a, BANK(InitEffectObject)
-	call FarCall_hl
-	ld de, PointerGFX
-	ld hl, vChars0 + $7c0
-	lb bc, BANK(PointerGFX), $04
-	call Request2bpp
-	ld a, $29
-	ld hl, wTileMapBackup
-	ld [hli], a
-	ld [hl], $7c
-	depixel 4, 3, 4, 4
-	ld a, SPRITE_ANIM_INDEX_44
-	call InitSpriteAnimStruct
-	call Function8c1c
-	ret
-
-Function8c49:
-	ld hl, hJoySum
-	ld a, [hl]
-	and $02
-	jr nz, .sub_8c59
-	ld a, [hl]
-	and $01
-	ret z
-	call Function8c5f
-	ret
-.sub_8c59
-	ld hl, wJumptableIndex
-	set 7, [hl]
-	ret
-
-Function8c5f:
-	ld a, [wFlyDestination]
-	ld hl, wcb60
-	cp [hl]
-	ret z
-	ld [wcb60], a
-	and $03
-	ld e, a
-	ld d, $00
-	ld hl, Unknown8c78
-	add hl, de
-	ld a, [hl]
-	ld [wJumptableIndex], a
-	ret
-
-Unknown8c78:
-	db $02, $04, $06, $02
-
-DrawMap:
-	call Function8c1c
-	call Function8eaa
-	call WaitForAutoBgMapTransfer
-	ld b, $14
-	call GetSGBLayout
-	ld de, TownMapGFX
-	ld hl, vTilesetEnd
-	lb bc, BANK(TownMapGFX), ((TownMapGFX.End - TownMapGFX) / LEN_2BPP_TILE - 1)
-	call Request2bpp
-	coord hl, 0, 3
-	call DecompTownMapTilemap
-	call WaitBGMap
-	call Function886a
-	ld hl, $0005
-	add hl, bc
-	ld a, [hl]
-	add $18
-	ld [hl], a
-	ret
-
-Function8cab:
-	ld hl, hJoyDown
-	ld a, [hl]
-	and $02
-	ret z
-	xor a
-	ld [wJumptableIndex], a
-	ret
-
-Function8cb7:
-	call Function8c1c
-	call Function8eaa
-	call WaitForAutoBgMapTransfer
-	ld b, $15
-	call GetSGBLayout
-	ld de, RadioGFX
-	ld hl, vTilesetEnd
-	lb bc, BANK(RadioGFX), $09
-	call Request2bpp
-	ld de, VerticalPipeGFX
-	ld hl, vChars0
-	lb bc, BANK(VerticalPipeGFX), $01
-	call Request2bpp
-	coord hl, 0, 3
-	ld bc, $00b4
-	ld a, $0e
-	call ByteFill
-	coord hl, 1, 8
-	ld bc, $0412
-	call Function8ef9
-	coord hl, 4, 3
-	ld bc, $060e
-	call Function8ef9
-	ld a, $05
-	coord hl, 0, 11
-	ld [hl], a
-	coord hl, 19, 11
-	ld [hl], a
-	coord hl, 2, 5
-	ld a, $60
-	ld [hli], a
-	inc a
-	ld [hld], a
-	inc a
-	ld bc, $0014
-	add hl, bc
-	ld [hli], a
-	inc a
-	ld [hld], a
-	coord hl, 2, 4
-	ld a, $64
-	ld [hli], a
-	inc a
-	ld [hl], a
-	coord hl, 5, 5
-	ld bc, $000c
-	ld a, $66
-	call ByteFill
-	coord hl, 5, 6
-	ld bc, $000c
-	ld a, $67
-	call ByteFill
-	ld hl, Text91c2
-	call PrintText
-	call WaitBGMap
-	depixel 9, 4, 4, 3
-	ld a, SPRITE_ANIM_INDEX_44
-	call InitSpriteAnimStruct
-	ld hl, $0002
-	add hl, bc
-	ld [hl], $00
-	ld hl, $0003
-	add hl, bc
-	ld [hl], $7c
-	depixel 8, 6
-	ld a, SPRITE_ANIM_INDEX_4B
-	call InitSpriteAnimStruct
-	ld hl, $0003
-	add hl, bc
-	ld [hl], $00
-	xor a
-	ld [wcb61], a
-	ret
-
-Function8d62:
-	ld hl, hJoyDown
-	ld a, [hl]
-	and $02
-	ret z
-	xor a
-	ld [wJumptableIndex], a
-	ret
-
-Function8d6e:
-	ld hl, wcb61
-	ld e, [hl]
-	ld d, $00
-	ld hl, Table8d7d
-	add hl, de
-	add hl, de
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	jp hl
-
-Table8d7d:
-	dw Function8d85
-	dw Function8d91
-	dw Function8d85
-	dw Function8db9
-
-Function8d85:
-	ld hl, hJoyDown
-	ld a, [hl]
-	and $01
-	ret z
-	ld hl, wcb61
-	inc [hl]
-	ret
-
-Function8d91:
-	ld hl, $000c
-	add hl, bc
-	ld a, [hl]
-	and a
-	jr nz, .sub_8da6
-	call Function8dfd
-	jr c, .sub_8db1
-	ld hl, $0006
-	add hl, bc
-	ld a, [hl]
-	and a
-	jr z, .sub_8dab
-.sub_8da6
-	ld hl, hFFC0
-	jr Function8de3
-.sub_8dab
-	ld a, $03
-	ld [wcb61], a
-	ret
-.sub_8db1
-	call .sub_8da6
-	xor a
-	ld [wcb61], a
-	ret
-
-Function8db9:
-	ld hl, $000c
-	add hl, bc
-	ld a, [hl]
-	and a
-	jr nz, .sub_8dcf
-	call Function8dfd
-	jr c, .sub_8dda
-	ld hl, $0006
-	add hl, bc
-	ld a, [hl]
-	cp $60
-	jr z, .sub_8dd4
-.sub_8dcf
-	ld hl, $0040
-	jr Function8de3
-.sub_8dd4
-	ld a, $01
-	ld [wcb61], a
-	ret
-.sub_8dda
-	call .sub_8dcf
-	ld a, $02
-	ld [wcb61], a
-	ret
-
-Function8de3:
-	push hl
-	ld hl, $0006
-	add hl, bc
-	ld d, [hl]
-	ld hl, $000c
-	add hl, bc
-	ld e, [hl]
-	pop hl
-	add hl, de
-	ld e, l
-	ld d, h
-	ld hl, $000c
-	add hl, bc
-	ld [hl], e
-	ld hl, $0006
-	add hl, bc
-	ld [hl], d
-	ret
-
-Function8dfd:
-	ld hl, $0006
-	add hl, bc
-	push bc
-	ld c, [hl]
-	ld a, [wMapGroup]
-	ld e, a
-	ld d, $00
-	ld hl, Table8e2f
-	add hl, de
-	add hl, de
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-.sub_8e11
-	ld a, [hl]
-	and a
-	jr z, .sub_8e1e
-	cp c
-	jr z, .sub_8e21
-	ld de, $0006
-	add hl, de
-	jr .sub_8e11
-.sub_8e1e
-	pop bc
-	and a
-	ret
-.sub_8e21
-	ld de, Function8e2c
-	push de
-	inc hl
-	ld e, [hl]
-	inc hl
-	ld a, [hli]
-	ld h, [hl]
-	ld l, a
-	jp hl
-
-Function8e2c:
-	pop bc
-	scf
-	ret
-
-Table8e2f:
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-	dw Data8e4d
-
-Data8e4d:
-	db $10, $02
-	dw Function8e66
-	dw Function8e66
-
-	db $20, $05
-	dw Function8e66
-	dw Function8e66
-
-	db $40, $07
-	dw Function8e66
-	dw Function8e66
-
-	db $48, $09
-	dw Function8e66
-	dw Function8e66
-
-	db $00
-
-Function8e66:
-	ld d, $00
-	call PlayMusic
-	ret
-
-Function8e6c:
-	call Function8c1c
-	call Function8eaa
-	call WaitForAutoBgMapTransfer
-	ld b, $13
-	call GetSGBLayout
-	call LoadFontExtra
-	ld de, Text8e90
-	coord hl, 7, 7
-	call PlaceString
-	ld hl, Text8e95
-	call PrintText
-	call WaitBGMap
-	ret
-
-Text8e90:
-	db "けんがい@"
-
-Text8e95:
-	text "ちぇっ⋯⋯⋯⋯"
-	done
-
-Function8e9e:
-	ld hl, hJoyDown
-	ld a, [hl]
-	and $02
-	ret z
-	xor a
-	ld [wJumptableIndex], a
-	ret
-
-Function8eaa:
-	ld hl, InitEffectObject
-	ld a, BANK(InitEffectObject)
-	call FarCall_hl
-	call ClearSprites
-	call WaitForAutoBgMapTransfer
-	coord hl, 0, 3
-	ld bc, $012c
-	ld a, $7f
-	call ByteFill
-	call WaitBGMap
-	call WaitBGMap
-	ret
-
-Function8eca:
-	ld hl, wFlyDestination
-	ld de, hJoySum
-	ld a, [de]
-	and $20
-	jr nz, .sub_8edc
-	ld a, [de]
-	and $10
-	jr nz, .sub_8ee2
-	jr .sub_8ee7
-.sub_8edc
-	ld a, [hl]
-	and a
-	ret z
-	dec [hl]
-	jr .sub_8ee7
-.sub_8ee2
-	ld a, [hl]
-	cp $02
-	ret nc
-	inc [hl]
-.sub_8ee7
-	ld e, [hl]
-	ld d, $00
-	ld hl, Data8ef5
-	add hl, de
-	ld a, [hl]
-	ld hl, $0006
-	add hl, bc
-	ld [hl], a
-	ret
-
-Data8ef5:
-	db $00, $18, $30, $00
-
-Function8ef9:
-	dec c
-	dec c
-	dec b
-	dec b
-	ld de, $0014
-	push bc
-	push hl
-	ld a, $01
-	ld [hli], a
-	ld a, $05
-.sub_8f07
-	ld [hli], a
-	dec c
-	jr nz, .sub_8f07
-	ld a, $02
-	ld [hl], a
-	pop hl
-	pop bc
-	add hl, de
-.sub_8f11
-	push bc
-	push hl
-	ld a, $08
-	ld [hli], a
-	ld a, $7f
-.sub_8f18
-	ld [hli], a
-	dec c
-	jr nz, .sub_8f18
-	ld a, $07
-	ld [hli], a
-	pop hl
-	add hl, de
-	pop bc
-	dec b
-	jr nz, .sub_8f11
-	ld a, $03
-	ld [hli], a
-	ld a, $06
-.sub_8f2a
-	ld [hli], a
-	dec c
-	jr nz, .sub_8f2a
-	ld a, $04
-	ld [hli], a
-	ret
-
-SECTION "engine/dumps/bank02.asm@Text91c2", ROMX
-
-Text91c2:
-	text "エーボタンで　チューニング！"
-	done
+SECTION "engine/dumps/bank02.asm@SetTitleBGDecorationBorder", ROMX
 
 SetTitleBGDecorationBorder:
 	ld de, TitleBGDecorationBorder
-- 
cgit v1.2.3