Still a WIP

1 files changed, 105 insertions, 2 deletions

diff --git a/src/engine/bank01.asm b/src/engine/bank01.asm
index 1ee7282..9d5808f 100644
--- a/src/engine/bank01.asm
+++ b/src/engine/bank01.asm
@@ -8166,7 +8166,7 @@ Func_7310: ; 7310 (1:7310)
 	ret
 	ldh [hff96], a
 	ld a, [wDuelType]
-	cp $01
+	cp CONFUSED
 	jr z, .asm_7338
 	ld a, $1e
 .asm_732f
@@ -8199,7 +8199,110 @@ Func_7344: ; 7344 (1:7344)
 BuildVersion: ; 7354 (1:7354)
 	db "VER 12/20 09:36", TX_END
 
-	INCROM $7364, $7415
+Func_7364: ; 7364 (1:7364)
+	xor a
+	ld [wTileMapFill], a
+	call ZeroObjectPositionsAndToggleOAMCopy
+	call EmptyScreen
+	call LoadSymbolsFont
+	ld de, $389f
+	call SetupText
+	call DrawWideTextBox
+	call EnableLCD
+	xor a
+	ld [wOpponentDeckID], a
+	call Func_73d8
+.asm_7384
+	call DoFrame
+	ldh a, [hDPadHeld]
+	or a
+	jr z, .asm_7384
+	ld b, a
+	and $09
+	jr nz, .asm_73cd
+	bit 1, b
+	jr nz, .asm_73cb
+	ld a, [wOpponentDeckID]
+	bit 4, b
+	jr z, .asm_73a2
+	inc a
+	cp $35
+	jr c, .asm_73a2
+	xor a
+.asm_73a2
+	bit 5, b
+	jr z, .asm_73ae
+	or a
+	jr nz, .asm_73ad
+	ld a, $34
+	jr .asm_73ae
+.asm_73ad
+	dec a
+.asm_73ae
+	bit 6, b
+	jr z, .asm_73b9
+	add $0a
+	cp $35
+	jr c, .asm_73b9
+	xor a
+.asm_73b9
+	bit 7, b
+	jr z, .asm_73c3
+	sub $0a
+	jr nc, .asm_73c3
+	ld a, $34
+.asm_73c3
+	ld [wOpponentDeckID], a
+	call Func_73d8
+	jr .asm_7384
+.asm_73cb
+	scf
+	ret
+.asm_73cd
+	ld a, [wOpponentDeckID]
+	ld [wcc19], a
+	call Func_3ae8
+	or a
+	ret
+; 0x73d8
+
+Func_73d8: ; 73d8 (1:73d8)
+	ld a, [wOpponentDeckID]
+	ld [wcc19], a
+	call Func_3ae8
+	jr c, .asm_73ec
+	xor a
+	ld [wOpponentPortrait], a
+	ld hl, wOpponentName
+	ld [hli], a
+	ld [hl], a
+.asm_73ec
+	ld hl, $7408
+	call PlaceTextItems
+	call DrawDuelistPortraitsAndNames
+	ld a, [wOpponentDeckID]
+	ld bc, $510
+	call WriteTwoByteNumberInTxSymbolFormat
+	ld a, [wcc18]
+	ld bc, $f0a
+	call WriteTwoByteNumberInTxSymbolFormat
+	ret
+; 0x7408
+
+Func_7408: ; 7408 (1:7408)
+	ld a, [bc]
+	nop
+	adc c
+	nop
+	ld a, [bc]
+	ld a, [bc]
+	adc e
+	nop
+	inc bc
+	ld c, $8a
+	nop
+	debug_ret
+; 0x7415
 
 Func_7415: ; 7415 (1:7415)
 	xor a