Func_4000: ; 4000 (1:4000)
	di
	ld sp, $e000
	call ResetSerial
	call EnableInt_VBlank
	call EnableInt_Timer
	call EnableExtRAM
	ld a, [$a006]
	ld [$ce47], a
	ld a, [$a009]
	ld [$ccf2], a
	call DisableExtRAM
	ld a, $1
	ld [wUppercaseFlag], a
	ei
	farcall Func_1a6cc
	ldh a, [hButtonsHeld]
	cp $3
	jr z, .asm_4035
	farcall Func_126d1
	jr Func_4000
.asm_4035
	call Func_405a
	call Func_04a2
	ld hl, $00a2
	call Func_2af0
	jr c, .asm_404d
	call EnableExtRAM
	xor a
	ld [$a000], a
	call DisableExtRAM
.asm_404d
	jp Reset

Func_4050: ; 4050 (1:4050)
	farcall Func_1996e
	ld a, $1
	ld [wUppercaseFlag], a
	ret

Func_405a: ; 405a (1:405a)
INCBIN "baserom.gbc",$405a,$406f - $405a

Func_406f: ; 406f (1:406f)
INCBIN "baserom.gbc",$406f,$409f - $406f

; this function begins the duel after the opponent's
; graphics, name and deck have been introduced
StartDuel: ; 409f (1:409f)
	ld a, PLAYER_TURN
	ldh [hWhoseTurn], a
	ld a, $0
	ld [$c2f1], a
	ld a, [$cc19]
	ld [wOpponentDeckId], a
	call LoadPlayerDeck
	call GetOpposingTurnDuelistVariable_SwapTurn
	call LoadOpponentDeck
	call GetOpposingTurnDuelistVariable_SwapTurn
	jr .asm_40ca

	ld a, MUSIC_DUELTHEME1
	ld [wDuelTheme], a
	ld hl, $cc16
	xor a
	ld [hli], a
	ld [hl], a
	ld [wIsPracticeDuel], a

.asm_40ca
	ld hl, [sp+$0]
	ld a, l
	ld [$cbe5], a
	ld a, h
	ld [$cbe6], a
	xor a
	ld [wBattleMenuSelection], a
	call $420b
	ld a, [$cc18]
	ld [$cc08], a
	call $70aa
	ld a, [wDuelTheme]
	call PlaySong
	call $4b60
	ret c

; the loop returns here after every turn switch
.mainDuelLoop
	xor a
	ld [wBattleMenuSelection], a
	call $35e6
	call $54c8
	call Func_4225
	call $0f58
	ld a, [wBattleFinished]
	or a
	jr nz, .asm_4136
	call $35fa
	call $6baf
	call $3b31
	call $0f58
	ld a, [wBattleFinished]
	or a
	jr nz, .asm_4136
	ld hl, $cc06
	inc [hl]
	ld a, [$cc09]
	cp $80
	jr z, .asm_4126
	
.asm_4121
	call GetOpposingTurnDuelistVariable_SwapTurn
	jr .mainDuelLoop

.asm_4126
	ld a, [wIsPracticeDuel]
	or a
	jr z, .asm_4121
	ld a, [hl]
	cp $f
	jr c, .asm_4121
	xor a
	ld [$d0c3], a
	ret

.asm_4136
	call $5990
	call Func_04a2
	ld a, $3
	call $2167
	ld hl, $0076
	call DrawWideTextBox_WaitForInput
	call Func_04a2
	ldh a, [hWhoseTurn]
	push af
	ld a, PLAYER_TURN
	ldh [hWhoseTurn], a
	call $4a97
	call $4ad6
	pop af
	ldh [hWhoseTurn], a
	call $3b21
	ld a, [wBattleFinished]
	cp $1
	jr z, .activeDuelistWonBattle
	cp $2
	jr z, .activeDuelistLostBattle
	ld a, $5f
	ld c, $1a
	ld hl, $0077
	jr .asm_4196

.activeDuelistWonBattle
	ldh a, [hWhoseTurn]
	cp PLAYER_TURN
	jr nz, .opponentWonBattle
.playerWonBattle
	xor a
	ld [$d0c3], a
	ld a, $5d
	ld c, $18
	ld hl, $0078
	jr .asm_4196

.activeDuelistLostBattle
	ldh a, [hWhoseTurn]
	cp PLAYER_TURN
	jr nz, .playerWonBattle

.opponentWonBattle
	ld a, $1
	ld [$d0c3], a
	ld a, $5e
	ld c, $19
	ld hl, $0079

.asm_4196
	call $3b6a
	ld a, c
	call PlaySong
	ld a, OPPONENT_TURN
	ldh [hWhoseTurn], a
	call DrawWideTextBox_PrintText
	call EnableLCD
.asm_41a7
	call DoFrame
	call Func_378a
	or a
	jr nz, .asm_41a7
	ld a, [wBattleFinished]
	cp $3
	jr z, .tiedBattle
	call Func_39fc
	call WaitForWideTextBoxInput
	call $3b31
	call ResetSerial
	ld a, PLAYER_TURN
	ldh [hWhoseTurn], a
	ret

.tiedBattle
	call WaitForWideTextBoxInput
	call $3b31
	ld a, [wDuelTheme]
	call PlaySong
	ld hl, $007a
	call DrawWideTextBox_WaitForInput
	ld a, $1
	ld [$cc08], a
	call $70aa
	ld a, [$cc09]
	cp $1
	jr z, .asm_41f3
	ld a, PLAYER_TURN
	ldh [hWhoseTurn], a
	call $4b60
	jp $40ee

.asm_41f3
	call $0f58
	ld h, PLAYER_TURN
	ld a, [wSerialOp]
	cp $29
	jr z, .asm_4201
	ld h, OPPONENT_TURN

.asm_4201
	ld a, h
	ldh [hWhoseTurn], a
	call $4b60
	jp nc, $40ee
	ret
; 0x420b

INCBIN "baserom.gbc",$420b,$4225 - $420b

Func_4225: ; 4225 (1:4225)
	ld a, $f1
	call GetTurnDuelistVariable
	ld [$CC0D], a
	ld a, [$cc06]
	cp a, $02
	jr c, .asm_4237
	call $70f6
	
.asm_4237
	call $70e6
	call $4933
	call $10cf
	jr nc, .asm_4248
	ld a, $02
	ld [wBattleFinished], a
	ret

.asm_4248
	ldh [$ff98], a
	call $1123
	ld a, [$cc0d]
	cp $00
	jr z, Func_4262
	call GetOpposingTurnDuelistVariable_SwapTurn
	call $34E2
	call GetOpposingTurnDuelistVariable_SwapTurn
	call c, $4b2c
	jr Func_426d
	
Func_4262:
	call $4b2c
	call $100b
	
Func_4268:
	ld a, $06
	call $51e7
	
Func_426d:
	call $4f9d
	ld a, [$cc0d]
	cp a, $00
	jr z, Func_4295
	cp a, $01
	jp z, $6911
	xor a
	ld [wVBlankCtr], a
	ld [$cbf9], a
	ld hl, $0088
	call $2a36
	call $2bbf
	ld a, $FF
	ld [$cc11], a
	ld [$cc10], a
	ret

Func_4295:
	call DrawWideTextBox
	ld hl, $54e9
	call Func_2c08
	call $669D
	ld a, [wBattleFinished]
	or a
	ret nz
	ld a, [wBattleMenuSelection]
	call $2710
	
Func_42ac:
	call DoFrame
	ldh a, [hButtonsHeld]
	and a, $02
	jr z, .asm_42cc
	ldh a, [hButtonsPressed]
	bit 6, a
	jr nz, Func_430b
	bit 7, a
	jr nz, Func_4311
	bit 5, a
	jr nz, Func_4320
	bit 4, a
	jr nz, Func_4317
	bit 3, a
	jp nz, $4364
	
.asm_42cc
	ldh a, [hButtonsPressed]
	and a, $08
	jp nz, $4370
	ldh a, [hButtonsPressed]
	bit 2, a
	jp nz, $458e
	ld a, [$cbe7]
	or a
	jr nz, Func_42ac
	call $271a
	ld a, e
	ld [wBattleMenuSelection], a
	jr nc, Func_42ac
	ldh a, [hCurrentMenuItem]
	ld hl, BattleMenuFunctionTable
	jp JumpToFunctionInTable	

BattleMenuFunctionTable: ; 42f1 (1:42f1)
	dw OpenHandMenu
	dw OpenBattleAttackMenu
	dw OpenBattleCheckMenu
	dw OpenPokemonPowerMenu
	dw PlayerRetreat
	dw PlayerEndTurn
	
INCBIN "baserom.gbc",$42fd, $430b - $42fd
	
Func_430b: ; 430b (1:430b)
	call Func_4329
	jp $426d
	
Func_4311: ; 4311 (1:4311)
	call Func_4333
	jp $426d

Func_4317: ; 4317 (1:4317)
	call Func_4339
	jp c, $4295
	jp $426d

Func_4320: ; 4320 (1:4320)
	call Func_4342
	jp c, $4295
	jp $426d

Func_4329: ; 4329 (1:4329)
	call GetOpposingTurnDuelistVariable_SwapTurn
	call Func_4333
	call GetOpposingTurnDuelistVariable_SwapTurn
	ret

Func_4333: ; 4333 (1:4333)
	call $5fdd
	jp $6008

Func_4339: ; 4339 (1:4339)
	call GetOpposingTurnDuelistVariable_SwapTurn
	call $5550
	jp GetOpposingTurnDuelistVariable_SwapTurn
	
Func_4342: ; 4342 (1:4342)
	jp $5550


INCBIN "baserom.gbc",$4345, $438e - $4345




OpenPokemonPowerMenu: ; 438e (1:438e)
	call $6431
	jp c, Func_426d
	call $1730
	jp Func_426d

PlayerEndTurn: ; 439a (1:439a)
	ld a, $08
	call $51e7
	jp c, Func_4268
	ld a, $05
	call $0f7f
	call $717a
	ret	
	
PlayerRetreat: ; 43ab (1:43ab)
	ld a, $f0
	call GetTurnDuelistVariable
	and a,$0f
	cp a, $01
	ldh [$ffa0], a
	jr nz, Func_43f1
	ld a, [$CC0C]
	or a
	jr nz, Func_43e8
	call $45bb
	jr c, Func_441f
	call $4611
	jr c, Func_441c
	ld hl, $010e
	call DrawWideTextBox_WaitForInput
	call $600c
	jr c, Func_441c
	ld [wBenchSelectedPokemon], a
	ld a, [wBenchSelectedPokemon]
	ldh [$ffa1], a
	ld a, $04
	call $0f7f
	call $657a
	jr nc, Func_441c
	call $4f9d

Func_43e8: ; 43e8
	ld hl, $003d
	call DrawWideTextBox_WaitForInput
	jp $4295

Func_43f1: ; 43f1 (1:43f1)
	call $45bb
	jr c, Func_441f
	call $4611
	jr c, Func_441c
	call $6558
	ld hl, $010e
	call DrawWideTextBox_WaitForInput
	call $600c
	ld [wBenchSelectedPokemon], a
	ldh [$ffa1], a
	push af
	call $6564
	pop af
	jp c, Func_426d
	ld a, $04
	call $0f7f
	call $657a

Func_441c: ; 441c (1:441c)
	jp Func_426d

Func_441f: ; 441f (1:441f)
	call DrawWideTextBox_WaitForInput
	jp $4295
	
OpenHandMenu: ; 4425 (1:4425)
	ld a, $ee
	call GetTurnDuelistVariable
	or a
	jr nz, Func_4436
	ld hl, $00a4
	call DrawWideTextBox_WaitForInput
	jp $4295
	
Func_4436: ; 4436 (1:4436)
INCBIN "baserom.gbc",$4436, $4585 - $4436

OpenBattleCheckMenu: ; 4585 (1:4585)
	call $3b31
	call $3096
	jp Func_426d

INCBIN "baserom.gbc",$458e, $46fc - $458e


OpenBattleAttackMenu: ; 46fc (1:46fc)
	call $33c1
	jr c, .asm_4706
	call $4918
	jr nc, .asm_470c
	
.asm_4706
	call DrawWideTextBox_WaitForInput
	jp $4295

.asm_470c
	xor a
	ld [wBattleSubMenuSelected], a

Func_4710: ; 4710 (1:4710)
	call $4823
	or a
	jr nz, Func_471f
	ld hl, $003c
	call DrawWideTextBox_WaitForInput
	jp $4295

Func_471f: ; 471f (1:471f)
	push af
	ld a, [wBattleSubMenuSelected]
	ld hl, $47e4
	call InitializeCursorParameters
	pop af
	ld [wNumMenuItems], a
	ldh a, [hWhoseTurn]
	ld h, a
	ld l, $bb
	ld a, [hl]
	call $1376
.asm_4736
	call DoFrame
	ldh a, [hButtonsPressed]
	and a, $08
	jr nz, Func_4782
	call Func_264b
	jr nc, .asm_4736
	cp a, $ff
	jp z, $4295
	ld [wBattleSubMenuSelected], a
	call $488f
	jr nc, Func_4759
	ld hl, $00c0
	call DrawWideTextBox_WaitForInput
	jr Func_4710

Func_4759: ; 4759 (1:4759)
	ldh a, [hCurrentMenuItem]
	add a
	ld e, a
	ld d, $00
	ld hl, $c510
	add hl, de
	ld d, [hl]
	inc hl
	ld e, [hl]
	call $16c0
	call $33e1
	jr c, Func_477d
	ld a, $07
	call $51e7
	jp c, Func_4268
	call $1730
	jp c, Func_426d
	ret

Func_477d: ; 477d (1:477d)
	call DrawWideTextBox_WaitForInput
	jr Func_4710
	
Func_4782: ; 4782 (1:4782)
	call $478b
	call $4f9d
	jp Func_4710
	

INCBIN "baserom.gbc",$478b, $5aeb - $478b


Func_5aeb: ; 5aeb (1:5aeb)
INCBIN "baserom.gbc",$5aeb,$6785 - $5aeb

Func_6785: ; 6785 (1:6785)
INCBIN "baserom.gbc",$6785,$6793 - $6785

; loads player deck from SRAM to wPlayerDeck
LoadPlayerDeck: ; 6793 (1:6793)
	call EnableExtRAM
	ld a, [$b700]
	ld l, a
	ld h, $54
	call HtimesL
	ld de, $a218
	add hl, de
	ld de, wPlayerDeck
	ld c, DECK_SIZE
.nextCardLoop
	ld a, [hli]
	ld [de], a
	inc de
	dec c
	jr nz, .nextCardLoop
	call DisableExtRAM
	ret
; 0x67b2

INCBIN "baserom.gbc",$67b2,$7107 - $67b2

; initializes duel variables such as cards in deck and in hand, or Pokemon in play area
; player turn: [c200, c2ff]
; opponent turn: [c300, c3ff]
InitializeDuelVariables: ; 7107 (1:7107)
	ldh a, [hWhoseTurn]
	ld h, a
	ld l, wPlayerDuelistType & $ff
	ld a, [hl]
	push hl
	push af
	xor a
	ld l, a
.zeroDuelVariablesLoop
	ld [hl], a
	inc l
	jr nz, .zeroDuelVariablesLoop
	pop af
	pop hl
	ld [hl], a
	ld bc, DECK_SIZE ; lb bc, wPlayerCardLocations & $ff, DECK_SIZE
	ld l, wPlayerDeckCards & $ff
.initDuelVariablesLoop
; zero card locations and cards in hand, and init order of cards in deck
	push hl
	ld [hl], b
	ld l, b
	ld [hl], $0
	pop hl
	inc l
	inc b
	dec c
	jr nz, .initDuelVariablesLoop
	ld l, wPlayerArenaCard & $ff
	ld c, 1 + BENCH_SIZE + 1
.initPlayArea
; initialize to $ff card in arena as well as cards in bench (plus a terminator?)
	ld [hl], $ff
	inc l
	dec c
	jr nz, .initPlayArea
	ret
; 0x7133

INCBIN "baserom.gbc",$7133,$7354 - $7133

BuildVersion: ; 7354 (1:7354)
	db "VER 12/20 09:36",TX_END

INCBIN "baserom.gbc",$7364,$7571 - $7364

Func_7571: ; 7571 (1:7571)
INCBIN "baserom.gbc",$7571,$758f - $7571

Func_758f: ; 758f (1:758f)
INCBIN "baserom.gbc",$758f,$8000 - $758f