include "constants.asm"

SECTION "engine/dumps/bank01.asm@Function40fd", ROMX

Function40fd: ; 01:40fd
	ld hl, wd41a
	set 5, [hl]
	ld hl, wd41a
	set 7, [hl]
	ld hl, wd41a
	set 0, [hl]
	ld hl, wd41a
	set 3, [hl]
	ld hl, wd41a
	set 6, [hl]
	ld hl, wd41a
	set 6, [hl]
	ld hl, wd41e
	set 5, [hl]
	ld hl, wd41b
	set 1, [hl]
	ld hl, wd41c
	set 4, [hl]
	ld hl, wd41d
	set 2, [hl]
	ld hl, wd41b
	set 2, [hl]
	ld a, $01
	ld [wd29a], a
	ld a, $01
	ld [wd29b], a
	ld a, $06
	ld [wd29c], a
	ld a, $12
	ld [wd29d], a
	ld a, $06
	ld [wd29e], a
	ld a, $02
	ld [wd2a0], a
	ret

SECTION "engine/dumps/bank01.asm@Table416b", ROMX

Table416b:
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41ef
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41ef
	dw Unknown420f
	dw Unknown41f3
	dw Unknown4203
	dw Unknown41f7
	dw Unknown4203
	dw Unknown41f3
	dw Unknown4203
	dw Unknown41f7
	dw Unknown420f
	dw Unknown41fb
	dw Unknown4203
	dw Unknown41ff
	dw Unknown4203
	dw Unknown41fb
	dw Unknown4203
	dw Unknown41ff
	dw Unknown4203
	dw Unknown41fb
	dw Unknown420f
	dw Unknown41ff
	dw Unknown420f
	dw Unknown41fb
	dw Unknown420f
	dw Unknown41ff
	dw Unknown420f
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203
	dw Unknown41eb
	dw Unknown4203

Unknown41eb: ; 01:41eb
	db $00, $01, $02, $03
	
Unknown41ef: ; 01:41ef
	db $80, $81, $82, $83
	
Unknown41f3: ; 01:41f3
	db $04, $05, $06, $07
	
Unknown41f7: ; 01:41f7
	db $84, $85, $86, $87
	
Unknown41fb: ; 01:41fb
	db $08, $09, $0a, $0b
	
Unknown41ff: ; 01:41ff
	db $88, $89, $8a, $8b
	
Unknown4203: ; 01:4203
	db $00, $00, $00, $00
	db $08, $00, $08, $00
	db $02, $08, $08, $03
	
Unknown420f: ; 01:420f
	db $00, $08, $20, $00
	db $00, $20, $08, $08
	db $22, $08, $00, $23
	
Table421b: ; 01:421b
	dw Unknown423b
	dw Unknown424b
	dw Unknown423b
	dw Unknown425b
	dw Unknown426b
	dw Unknown427b
	dw Unknown426b
	dw Unknown428b
	dw Unknown429b
	dw Unknown42bb
	dw Unknown429b
	dw Unknown42bb
	dw Unknown42ab
	dw Unknown42cb
	dw Unknown42ab
	dw Unknown42cb
	
Unknown423b: ; 01:423b
	db $00, $00, $00, $00
	db $00, $08, $01, $00
	db $08, $00, $02, $02
	db $08, $08, $03, $03
	
Unknown424b: ; 01:424b
	db $00, $00, $80, $00
	db $00, $08, $81, $00
	db $08, $00, $82, $02
	db $08, $08, $83, $03

Unknown425b: ; 01:425b
	db $00, $08, $80, $20
	db $00, $00, $81, $20
	db $08, $08, $82, $22
	db $08, $00, $83, $23
	
Unknown426b: ; 01:426b
	db $00, $00, $04, $00
	db $00, $08, $05, $00
	db $08, $00, $06, $02
	db $08, $08, $07, $03
	
Unknown427b: ; 01:427b
	db $00, $00, $84, $00
	db $00, $08, $85, $00
	db $08, $00, $86, $02
	db $08, $08, $87, $03
	
Unknown428b: ; 01:428b
	db $00, $08, $84, $20
	db $00, $00, $85, $20
	db $08, $08, $86, $22
	db $08, $00, $87, $23
	
Unknown429b: ; 01:429b
	db $00, $00, $08, $00
	db $00, $08, $09, $00
	db $08, $00, $0a, $02
	db $08, $08, $0b, $03
	
Unknown42ab: ; 01:42ab
	db $00, $08, $08, $20
	db $00, $00, $09, $20
	db $08, $08, $0a, $22
	db $08, $00, $0b, $23
	
Unknown42bb: ; 01:42bb
	db $00, $00, $88, $00
	db $00, $08, $89, $00
	db $08, $00, $8a, $02
	db $08, $08, $8b, $03
	
Unknown42cb: ; 01:42cb
	db $00, $08, $88, $20
	db $00, $00, $89, $20
	db $08, $08, $8a, $22
	db $08, $00, $8b, $23
	
Function42db: ; 01:42db
	ld bc, wCmdQueue
	ld a, $01
.sub_42e0
	ldh [hConnectedMapWidth], a
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_42ed
	call .sub_42fb
.sub_42ed
	ld hl, $0010
	add hl, bc
	ld b, h
	ld c, l
	ldh a, [hConnectedMapWidth]
	inc a
	cp $05
	jr nz, .sub_42e0
	ret
.sub_42fb
	ld hl, $0001
	add hl, bc
	ld a, [hl]
	ld hl, Table431d
	call CallJumptable
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	and a
	ret z
	ld hl, $0002
	add hl, bc
	ld e, [hl]
	ld d, $00
	ld hl, Table4329
	add hl, de
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl
	
Table431d::
	dw Function4333
	dw Function439e
	dw Function4430
	dw Function4374
	dw Function4374
	dw Function43c9
	
Table4329::
	dw Function4334
	dw Function4452
	dw Function4459
	dw Function446c
	dw Function4495
	
Function4333: ; 01:4333
	ret

Function4334: ; 01:4334
	ret

Function4335: ; 01:4335
	push bc
	ld h, b
	ld l, c
	ld bc, $0010
	xor a
	call ByteFill
	pop bc
	ret

Function4341: ; 01:4341
	ld hl, $000a
	add hl, bc
	inc [hl]
	ret

Function4347: ; 01:4347
	pop hl
	ld e, [hl]
	inc hl
	ld d, [hl]
	ld hl, $000a
	add hl, bc
	ld l, [hl]
	ld h, $00
	add hl, hl
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl

Function4358: ; 01:4358
	ld hl, $000a
	add hl, bc
	ld a, [hl]
	add a
	ld l, a
	ld h, $00
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl

Function4366: ; 01:4366
	push bc
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	dec a
	call GetObjectStruct
	ld d, b
	ld e, c
	pop bc
	ret

Function4374: ; 01:4374
	ld de, Table437a
	jp Function4358
	
Table437a: ; 01:437a
	dw Function437e
	dw Function439b
	
Function437e: ; 01:437e
	call Function4341
	ld hl, $000e
	add hl, bc
	ld a, [hl]
	ld hl, $000b
	add hl, bc
	ld [hl], a
	ld hl, $0006
	add hl, bc
	ld [hl], $00
	ld hl, $000f
	add hl, bc
	ld a, [hl]
	ld hl, $0007
	add hl, bc
	ld [hl], a
	
Function439b: ; 01:439b
	jp Function4402

Function439e: ; 01:439e
	ld de, Table43a4
	jp Function4358
	
Table43a4: ; 01:43a4
	dw Function43a8
	dw Function43c6

Function43a8: ; 01:43a8
	call Function4341
	call Function4366
	ld hl, $0009
	add hl, de
	ld a, [hl]
	add a
	dec a
	ld hl, $000b
	add hl, bc
	ld [hl], a
	ld hl, $0006
	add hl, bc
	ld [hl], $00
	ld hl, $0007
	add hl, bc
	ld [hl], $08

Function43c6: ; 01:43c6
	jp Function4402

Function43c9: ; 01:43c9
	ld de, Table43cf
	jp Function4358

Table43cf: ; 01:43cf
	dw Function43d3
	dw Function43ff

Function43d3: ; 01:43d3
	call Function4366
	ld hl, $0009
	add hl, de
	ld a, [hl]
	add $01
	ld hl, $000b
	add hl, bc
	ld [hl], a
	ld hl, $000e
	add hl, bc
	ld a, [hl]
	ld hl, $0006
	add hl, bc
	ld [hl], a
	ld hl, $000f
	add hl, bc
	ld a, [hl]
	ld hl, $0007
	add hl, bc
	ld [hl], a
	ld hl, $000d
	add hl, bc
	ldh a, [rOBP1]
	ld [hl], a
	ldh [rOBP1], a

Function43ff: ; 01:43ff
	jp Function4402

Function4402: ; 01:4402
	ld hl, $000b
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_440e
	dec [hl]
	jp z, Function4335
.sub_440e
	call Function4366
	ld hl, $0018
	add hl, de
	ld a, [hl]
	ld hl, $0006
	add hl, bc
	add [hl]
	ld hl, $0004
	add hl, bc
	ld [hl], a
	ld hl, $0019
	add hl, de
	ld a, [hl]
	ld hl, $0007
	add hl, bc
	add [hl]
	ld hl, $0005
	add hl, bc
	ld [hl], a
	ret

Function4430: ; 01:4430
	ld hl, Table4436
	jp Function4358
	
Table4436: ; 01:4436
	dw Function443a
	dw Function444f
	
Function443a: ; 01:443a
	call Function4341
	ld hl, $000b
	add hl, bc
	ld [hl], $31
	ld hl, $0006
	add hl, bc
	ld [hl], $00
	ld hl, $0007
	add hl, bc
	ld [hl], $f0

Function444f: ; 01:444f
	jp Function4402

Function4452: ; 01:4452
	ld hl, $000c
	add hl, bc
	ld [hl], $02
	ret

Function4459: ; 01:4459
	ld hl, $000b
	add hl, bc
	ld a, [hl]
	cp $30
	ld a, $01
	jr c, .sub_4466
	ld a, $00
.sub_4466
	ld hl, $000c
	add hl, bc
	ld [hl], a
	ret

Function446c: ; 01:446c
	ld hl, $0009
	add hl, bc
	inc [hl]
	ld a, [hl]
	cp $05
	jr c, .sub_4480
	xor a
	ld [hl], a
	ld hl, $0008
	add hl, bc
	ld a, [hl]
	xor $01
	ld [hl], a
.sub_4480
	ld hl, $0008
	add hl, bc
	ld a, $00
	bit 0, [hl]
	jr z, .sub_448f
	ld hl, $000d
	add hl, bc
	ld a, [hl]
.sub_448f
	ld hl, $000c
	add hl, bc
	ld [hl], a
	ret

Function4495: ; 01:4495
	ld hl, $0009
	add hl, bc
	inc [hl]
	ld a, [hl]
	cp $03
	ld a, $03
	jr nz, .sub_44a5
	xor a
	ld [hl], a
	ld a, $04
.sub_44a5
	ld hl, $000c
	add hl, bc
	ld [hl], a
	ret
	
Table44ab: ; 01:44ab
	dw Unknown44b5
	dw Unknown44b6
	dw Unknown44c7
	dw Unknown44d0
	dw Unknown44e1
	
Unknown44b5: ; 01:44b5
	db $00
	
Unknown44b6: ; 01:44b6
	db $04, $00, $00, $00
	db $00, $00, $08, $01
	db $00, $08, $00, $02
	db $00, $08, $08, $03, $00
	
Unknown44c7: ; 01:44c7
	db $02, $00, $00, $00
	db $00, $00, $08, $00, $20
	
Unknown44d0: ; 01:44d0
	db $04, $00, $00, $00
	db $00, $00, $08, $00
	db $00, $08, $00, $00
	db $00, $08, $08, $00, $00
	
Unknown44e1: ; 01:44e1
	db $04, $00, $00, $00
	db $40, $00, $08, $00
	db $40, $08, $00, $00
	db $40, $08, $08, $00, $40
	
Function44f2: ; 01:44f2
	ld hl, $0008
	add hl, bc
	ld a, [hl]
	and a
	jr nz, .sub_44fd
	call Function486a
.sub_44fd
	ld e, a
	ld d, $00
	ld hl, Function4545
	push hl
	ld hl, $0005
	add hl, bc
	bit 5, [hl]
	jp nz, Function453e
	ld hl, Table4516
	add hl, de
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl
	
Table4516::
	dw Function486a
	dw Function47b8
	dw Function4b88
	dw Function4b65
	dw Function4b78
	dw Function4bc9
	dw Function4baa
	dw Function484d
	dw Function4856
	dw Function4859
	dw Function485c
	dw Function485f
	dw Function485f
	dw Function485f
	dw Function485f
	dw Function4ed5
	dw Function4f14
	dw Function4a05
	dw Function4a8b
	dw Function4869
	
Function453e: ; 01:453e
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ret
	
Function4545: ; 01:4545
	ld hl, $0005
	add hl, bc
	bit 6, [hl]
	jr nz, Function4560
	ld hl, $000a
	add hl, bc
	ld a, [hl]
	ld hl, Table4558
	jp CallJumptable
	
Table4558: ; 01:4558
	dw Function4560
	dw Function4567
	dw Function4593
	dw Function45a0

Function4560: ; 01:4560
	ld hl, $000d
	add hl, bc
	ld [hl], $ff
	ret

Function4567: ; 01:4567
	ld hl, $0004
	add hl, bc
	bit 3, [hl]
	jr nz, Function4593
	ld hl, $0005
	add hl, bc
	bit 5, [hl]
	jr nz, Function4593
	ld hl, $000b
	add hl, bc
	ld a, [hl]
	inc a
	and $0f
	ld [hl], a
	rrca
	rrca
	and $03
	ld d, a
	ld hl, $0007
	add hl, bc
	ld a, [hl]
	and $0c
	or d
	ld hl, $000d
	add hl, bc
	ld [hl], a
	ret

Function4593: ; 01:4593
	ld hl, $0007
	add hl, bc
	ld a, [hl]
	and $0c
	ld hl, $000d
	add hl, bc
	ld [hl], a
	ret

Function45a0: ; 01:45a0
	ld hl, $000b
	add hl, bc
	ld a, [hl]
	and $f0
	ld e, a
	ld a, [hl]
	inc a
	and $0f
	ld d, a
	cp $04
	jr c, .sub_45b9
	ld d, $00
	ld a, e
	add $10
	and $30
	ld e, a
.sub_45b9
	ld a, d
	or e
	ld [hl], a
	swap e
	ld d, $00
	ld hl, Unknown45d0
	add hl, de
	ld a, [hl]
	ld hl, $0007
	add hl, bc
	ld [hl], a
	ld hl, $000d
	add hl, bc
	ld [hl], a
	ret
	
Unknown45d0: ; 01:45d0
	db $00, $0C, $04, $08

Function45d4: ; 01:45d4
	ld hl, $0010
	add hl, bc
	ld a, [hl]
	ld hl, $0012
	add hl, bc
	ld [hl], a
	ld hl, $0011
	add hl, bc
	ld a, [hl]
	ld hl, $0013
	add hl, bc
	ld [hl], a
	ld hl, $000e
	add hl, bc
	ld a, [hl]
	ld hl, $000f
	add hl, bc
	ld [hl], a
	call Function464c
	ld hl, $000e
	add hl, bc
	ld a, [hl]
	call Function4636
	ret

Function45fe: ; 01:45fe
	ld hl, $0012
	add hl, bc
	ld a, [hl]
	ld hl, $0010
	add hl, bc
	ld [hl], a
	ld hl, $0013
	add hl, bc
	ld a, [hl]
	ld hl, $0011
	add hl, bc
	ld [hl], a
	ret

Function4613: ; 01:4613
	ld hl, $0005
	add hl, bc
	bit 3, [hl]
	jr z, .sub_4623
	ld hl, $000e
	add hl, bc
	ld a, [hl]
	call Function464c
.sub_4623
	nop
	ld hl, $000e
	add hl, bc
	ld a, [hl]
	call Function4636
	ret c
	ld hl, $000f
	add hl, bc
	ld a, [hl]
	call Function4636
	ret

Function4636: ; 01:4636
	and $f0
	cp $70
	nop
	nop
	ld hl, $0005
	add hl, bc
	res 7, [hl]
	and a
	ret
	
Function4644: ; 01:4644
	ld hl, $0005
	add hl, bc
	set 7, [hl]
	scf
	ret

Function464c: ; 01:464c
	call .sub_465f
	jr c, .sub_4658
	ld hl, $0005
	add hl, bc
	set 3, [hl]
	ret
.sub_4658
	ld hl, $0005
	add hl, bc
	res 3, [hl]
	ret
.sub_465f
	ld d, a
	and $f0
	cp $10
	jr z, .sub_466c
	cp $20
	jr z, .sub_4672
	scf
	ret
.sub_466c
	ld a, d
	and $07
	ret z
	scf
	ret
.sub_4672
	ld a, d
	and $07
	ret z
	scf
	ret

Function4678: ; 01:4678
	xor a
	ld hl, $000a
	add hl, bc
	ld [hl], a
	ld hl, $000b
	add hl, bc
	ld [hl], a
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ret
	
Function468a: ; 01:468a
	and $0f
	ld hl, $0006
	add hl, bc
	ld [hl], a
	ld hl, $0004
	add hl, bc
	bit 2, [hl]
	jr nz, Function46a2
	ld hl, $0007
	add hl, bc
	add a
	add a
	and $0c
	ld [hl], a

Function46a2: ; 01:46a2
	call Function46e5
	ld hl, $0009
	add hl, bc
	ld [hl], a
	ld a, d
	call Function4748
	ld hl, $0012
	add hl, bc
	add [hl]
	ld hl, $0010
	add hl, bc
	ld [hl], a
	ld d, a
	ld a, e
	call Function4748
	ld hl, $0013
	add hl, bc
	add [hl]
	ld hl, $0011
	add hl, bc
	ld [hl], a
	ld e, a
	push bc
	call GetCoordTile
	pop bc
	ld hl, $000e
	add hl, bc
	ld [hl], a
	ret

Function46d3: ; 01:46d3
	call Function46e5
	ld hl, $0018
	add hl, bc
	ld a, [hl]
	add d
	ld [hl], a
	ld hl, $0019
	add hl, bc
	ld a, [hl]
	add e
	ld [hl], a
	ret

Function46e5: ; 01:46e5
	ld hl, $0006
	add hl, bc
	ld l, [hl]
	ld h, $00
	add hl, hl
	add hl, hl
	ld de, Table4708
	add hl, de
	ld d, [hl]
	inc hl
	ld e, [hl]
	inc hl
	ld a, [hli]
	ld h, [hl]
	ret
	
Function46f9: ; 01:46f9
	ld hl, $0006
	add hl, bc
	ld l, [hl]
	ld h, $00
	add hl, hl
	add hl, hl
	ld de, Table470b
	add hl, de
	ld a, [hl]
	ret
	
Table4708: ; 01:4708
	db $00, $01, $10
	
Table470b: ; 01:470b
	db $01, $00, $ff
	db $10, $01, $ff
	db $00, $10, $01
	db $01, $00, $10
	db $01, $00, $02
	db $08, $02, $00
	db $fe, $08, $02
	db $fe, $00, $08
	db $02, $02, $00
	db $08, $02, $00
	db $04, $04, $04
	db $00, $fc, $04
	db $04, $fc, $00
	db $04, $04, $04
	db $00, $04, $04
	db $00, $08, $02
	db $08, $00, $f8
	db $02, $08, $f8
	db $00, $02, $08
	db $08, $00, $02
	db $08

Function4748: ; 01:4748
	add a
	ret z
	ld a, $01
	ret nc
	ld a, $ff
	ret

Function4750: ; 01:4750
	ld hl, $0006
	add hl, bc
	ld a, [hl]
	and $03
	ld [wPlayerStepDirection], a
	call Function46e5
	ld a, d
	ld [wcb6c], a
	ld a, e
	ld [wcb6d], a
	ld hl, wcb6e
	set 5, [hl]
	ret

Function476b: ; 01:476b
	ld a, [wXCoord]
	ld d, a
	ld hl, $0010
	add hl, bc
	ld a, [hl]
	sub d
	and $0f
	swap a
	ld hl, $0018
	add hl, bc
	ld [hl], a
	ld a, [wYCoord]
	ld e, a
	ld hl, $0011
	add hl, bc
	ld a, [hl]
	sub e
	and $0f
	swap a
	ld hl, $0019
	add hl, bc
	ld [hl], a
	ret

Function4792: ; 01:4792
	ld hl, $001d
	add hl, bc
	ld [hl], $00
	ret

Function4799: ; 01:4799
	ld hl, $001d
	add hl, bc
	inc [hl]
	ret

Function479f: ; 01:479f
	ld hl, $001d
	add hl, bc
	ld a, [hl]
	ret

Function47a5: ; 01:47a5
	ld hl, $001d
	add hl, bc
	ld [hl], a
	ret

Function47ab: ; 01:47ab
	ld hl, $001d
	add hl, bc
	ld l, [hl]
	ld h, $00
	add hl, hl
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl

Function47b8: ; 01:47b8
	ld hl, $0003
	add hl, bc
	ld a, [hl]
	and $1f
	ld hl, Table47c5
	jp CallJumptable
	
Table47c5: ; 01:47c5
	dw Function47fb
	dw Function4812
	dw Function481c
	dw Function47fc
	dw Function4806
	dw Function482b
	dw Function482f
	dw Function4833
	dw Function4837
	dw $0000
	dw $0000
	dw $0000
	dw $0000
	dw $0000
	dw $0000
	dw $0000
	dw Function484d
	dw Function4856
	dw Function4859
	dw Function485c
	dw Function485f
	dw Function485f
	dw Function485f
	dw Function485f
	dw Function4862
	dw Function4865
	dw Function4868

Function47fb: ; 01:47fb
	ret

Function47fc: ; 01:47fc
	call Random
	ldh a, [hRandomAdd]
	and $01
	jp Function48a9

Function4806: ; 01:4806
	call Random
	ldh a, [hRandomAdd]
	and $01
	or $02
	jp Function48a9

Function4812: ; 01:4812
	call Random
	ldh a, [hRandomAdd]
	and $03
	jp Function48a9

Function481c: ; 01:481c
	call Random
	ldh a, [hRandomAdd]
	and $0c
	ld hl, $0007
	add hl, bc
	ld [hl], a
	jp Function48da

Function482b: ; 01:482b
	ld a, $00
	jr Function4839

Function482f: ; 01:482f
	ld a, $04
	jr Function4839

Function4833: ; 01:4833
	ld a, $08
	jr Function4839

Function4837: ; 01:4837
	ld a, $0c

Function4839: ; 01:4839
	ld hl, $0007
	add hl, bc
	ld [hl], a
	call Function45fe
	call Function4678
	ld hl, $0008
	add hl, bc
	ld [hl], $04
	jp Function4b78

Function484d: ; 01:484d
	ld hl, $0008
	add hl, bc
	ld [hl], $07
	jp Function4bed

Function4856: ; 01:4856
	jp Function4bf9

Function4859: ; 01:4859
	jp Function4c0c

Function485c: ; 01:485c
	jp Function4fbc

Function485f: ; 01:485f
	jp Function4bf3

Function4862: ; 01:4862
	jp Function4fbc

Function4865: ; 01:4865
	jp Function4c1f

Function4868: ; 01:4868
	ret

Function4869: ; 01:4869
	ret

Function486a: ; 01:486a
	ld hl, $0010
	add hl, bc
	ld d, [hl]
	ld hl, $0011
	add hl, bc
	ld e, [hl]
	push bc
	call GetCoordTile
	pop bc
	ld hl, $000e
	add hl, bc
	ld [hl], a
	call Function45d4
	call Function4678
	ld a, $01
	ld hl, $0008
	add hl, bc
	ld [hl], a
	ret
	
Function488c: ; 01:488c
	call Function468a
	call Function771e
	jr c, Function48d4
	call Function4613
	ldh a, [hConnectionStripLength]
	ld d, a
	ld a, [wCenteredObject]
	cp d
	jr z, Function48c6
	ld hl, $0008
	add hl, bc
	ld [hl], $02
	jp Function4b88

Function48a9: ; 01:48a9
	call Function468a
	call Function771e
	jr c, Function48d4
	call Function4613
	ldh a, [hConnectionStripLength]
	ld d, a
	ld a, [wCenteredObject]
	cp d
	jr z, Function48c6
	ld hl, $0008
	add hl, bc
	ld [hl], $06
	jp Function4baa

Function48c6: ; 01:48c6
	ld hl, $0008
	add hl, bc
	ld [hl], $05
	ld hl, wcb6e
	set 7, [hl]
	jp Function4bc9

Function48d4: ; 01:48d4
	call Function4678
	call Function45fe

Function48da: ; 01:48da
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ld hl, $0008
	add hl, bc
	ld [hl], $03
	call Random
	ldh a, [hRandomAdd]
	and $7f
	ld hl, $0009
	add hl, bc
	ld [hl], a
	jp Function4b65
	
Function48f5: ; 01:48f5
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ld hl, $001c
	add hl, bc
	ld a, [hl]
	and $07
	cp $04
	ld a, $07
	jr nc, .sub_490a
	ld a, $06
.sub_490a
	call Function468a
	call Function771e
	jr c, .sub_4920
	ld hl, $0008
	add hl, bc
	ld [hl], $02
	ld hl, $001c
	add hl, bc
	inc [hl]
	jp Function4b88
.sub_4920
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ld hl, $000a
	add hl, bc
	ld [hl], $01
	call Function45fe
	ret

Function4930: ; 01:4930
	ld a, [wPlayerNextMapX]
	ld d, a
	ld a, [wPlayerNextMapY]
	ld e, a
	ld hl, $0010
	add hl, bc
	ld a, d
	sub [hl]
	ld d, a
	ld hl, $0011
	add hl, bc
	ld a, e
	sub [hl]
	ld e, a
	jr z, .sub_495b
	ld a, d
	and a
	jr z, .sub_4965
	push de
	ld a, d
	call .sub_4973
	ld d, a
	ld a, e
	call .sub_4973
	ld e, a
	cp d
	pop de
	jr nc, .sub_4965
.sub_495b
	ld a, $08
	bit 7, d
	jr nz, .sub_496d
	ld a, $0c
	jr .sub_496d
.sub_4965
	ld a, $04
	bit 7, e
	jr nz, .sub_496d
	ld a, $00
.sub_496d
	ld hl, $0007
	add hl, bc
	ld [hl], a
	ret
.sub_4973
	bit 7, a
	ret z
	dec a
	cpl
	ret

Function4979: ; 01:4979
	ret

Function497a: ; 01:497a
	ld hl, $001e
	add hl, bc
	inc [hl]
	ld a, [hl]
	srl a
	srl a
	and $07
	ld l, a
	ld h, $00
	ld de, Table4994
	add hl, de
	ld a, [hl]
	ld hl, $001b
	add hl, bc
	ld [hl], a
	ret
	
Table4994: ; 01:4994
	db $00, $FF, $FE, $FD
	db $FC, $FD, $FE, $FF
	
Function499c: ; 01:499c
	call Function46f9
	ld hl, $001f
	add hl, bc
	ld e, [hl]
	add e
	ld [hl], a
	ld d, $00
	ld hl, Unknown49dc
	add hl, de
	ld a, [hl]
	ld hl, $001b
	add hl, bc
	ld [hl], a
	ldh a, [hConnectionStripLength]
	cp $01
	ret nz
	ldh a, [hJoypadState]
	and $f0
	ret z
	ld d, $00
	bit 7, a
	jr nz, .sub_49d0
	ld d, $04
	bit 6, a
	jr nz, .sub_49d0
	ld d, $08
	bit 5, a
	jr nz, .sub_49d0
	ld d, $0c
.sub_49d0
	ld hl, $0007
	add hl, bc
	ld [hl], d
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ret
	
Unknown49dc: ; 01:49dc
	db $FC, $FB, $FA, $F9
	db $F8, $F7, $F6, $F5
	db $F5, $F5, $F4, $F4
	db $F4, $F4, $F4, $F4
	db $F5, $F5, $F6, $F6
	db $F7, $F7, $F8, $F8
	db $FA, $FB, $FC, $FE
	db $FF, $00, $00, $00

Function49fc: ; 01:49fc
	ld hl, $0008
	add hl, bc
	ld [hl], $11
	call Function4792

Function4a05: ; 01:4a05
	ld de, Table4a0b
	jp Function47ab
	
Table4a0b: ; 01:4a0b
	dw Function4a13
	dw Function4a28
	dw Function4a38
	dw Function4a53
	
Function4a13: ; 01:4a13
	ld hl, $001e
	add hl, bc
	ld [hl], $04
	ld hl, $000b
	add hl, bc
	ld [hl], $00
	ld hl, $0009
	add hl, bc
	ld [hl], $10
	call Function4799

Function4a28: ; 01:4a28
	ld hl, $000a
	add hl, bc
	ld [hl], $03
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function4799
	ret

Function4a38: ; 01:4a38
	ld hl, $001e
	add hl, bc
	ld [hl], $04
	ld hl, $000b
	add hl, bc
	ld [hl], $00
	ld hl, $001f
	add hl, bc
	ld [hl], $10
	ld hl, $0009
	add hl, bc
	ld [hl], $10
	call Function4799

Function4a53: ; 01:4a53
	ld hl, $000a
	add hl, bc
	ld [hl], $03
	ld hl, $001f
	add hl, bc
	inc [hl]
	ld a, [hl]
	ld d, $60
	call Function17cd
	ld a, h
	sub $60
	ld hl, $001b
	add hl, bc
	ld [hl], a
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ld hl, $000b
	add hl, bc
	ld [hl], $00
	call Function4792
	ret
	
Function4a82: ; 01:4a82
	ld hl, $0008
	add hl, bc
	ld [hl], $12
	call Function4792

Function4a8b: ; 01:4a8b
	ld de, Table4a91
	jp Function47ab
	
Table4a91: ; 01:4a91
	dw Function4a9f
	dw Function4aaf
	dw Function4ab8
	dw Function4ad4
	dw Function4af6
	dw Function4b00
	dw Function4b0c

Function4a9f: ; 01:4a9f
	ld hl, $000a
	add hl, bc
	ld [hl], $00
	ld hl, $0009
	add hl, bc
	ld [hl], $10
	call Function4799
	ret

Function4aaf: ; 01:4aaf
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function4799

Function4ab8: ; 01:4ab8
	ld hl, $000b
	add hl, bc
	ld [hl], $00
	ld hl, $001e
	add hl, bc
	ld [hl], $04
	ld hl, $001f
	add hl, bc
	ld [hl], $00
	ld hl, $0009
	add hl, bc
	ld [hl], $10
	call Function4799
	ret
	
Function4ad4: ; 01:4ad4
	ld hl, $000a
	add hl, bc
	ld [hl], $03
	ld hl, $001f
	add hl, bc
	inc [hl]
	ld a, [hl]
	ld d, $60
	call Function17cd
	ld a, h
	sub $60
	ld hl, $001b
	add hl, bc
	ld [hl], a
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function4799

Function4af6: ; 01:4af6
	ld hl, $0009
	add hl, bc
	ld [hl], $10
	call Function4799
	ret
	
Function4b00: ; 01:4b00
	ld hl, $000a
	add hl, bc
	ld [hl], $03
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz

Function4b0c: ; 01:4b0c
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ld hl, $000b
	add hl, bc
	ld [hl], $00
	ld hl, $001b
	add hl, bc
	ld [hl], $00
	call Function4792
	ret
	
Function4b22: ; 01:4b22
	call Function4792
	
Function4b25: ; 01:4b25
	ret

Function4b26: ; 01:4b26
	ld a, $01
	ld [wcb70], a
	push bc
	ld de, Unknown4b42
	call PushToCmdQueue
	ld d, b
	ld e, c
	pop bc
	ld hl, $0009
	add hl, bc
	ld a, [hl]
	add a
	dec a
	ld hl, $000e
	add hl, de
	ld [hl], a
	ret
	
Unknown4b42: ; 01:4b42
	db $01, $01, $FC, $02, $00, $08
	
Function4b48: ; 01:4b48
	ld e, a
	add a
	add e
	ld e, a
	ld d, $00
	ld hl, Unknown4b5f
	add hl, de
	ld d, h
	ld e, l
	push bc
	call PushToCmdQueue
	pop bc
	ld a, $06
	ld [wcb70], a
	ret

Unknown4b5f: ; 01:4b5f
	db $05, $04, $FC, $02, $02, $08
	
Function4b65: ; 01:4b65
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ret

Function4b78: ; 01:4b78
	call Function4979
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ret

Function4b88: ; 01:4b88
	call Function4979
	ld hl, $000a
	add hl, bc
	ld [hl], $01
	call Function46d3
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function45d4
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ret

Function4baa: ; 01:4baa
	ld hl, $000a
	add hl, bc
	ld [hl], $01
	call Function46d3
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function45d4
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ret

Function4bc9: ; 01:4bc9
	ld hl, $000a
	add hl, bc
	ld [hl], $01
	call Function4750
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	ld hl, wcb6e
	set 6, [hl]
	call Function45d4
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ret
	
Function4bed: ; 01:4bed
	ld a, [wPlayerMovement]
	jp Function4c37

Function4bf3: ; 01:4bf3
	ld a, [wMovementObject]
	jp Function4c37

Function4bf9: ; 01:4bf9
	ld hl, $001c
	add hl, bc
	ld e, [hl]
	inc [hl]
	ld d, $00
	ld hl, wMovementObject
	ld a, [hli]
	ld h, [hl]
	ld l, a
	add hl, de
	ld a, [hl]
	jp Function4c37

Function4c0c: ; 01:4c0c
	ld hl, $001c
	add hl, bc
	ld e, [hl]
	inc [hl]
	ld d, $00
	ld hl, wcb7c
	ld a, [hli]
	ld h, [hl]
	ld l, a
	add hl, de
	ld a, [hl]
	jp Function4c37

Function4c1f: ; 01:4c1f
	ld hl, $001c
	add hl, bc
	ld e, [hl]
	inc [hl]
	ld d, $00
	ld hl, wMovementDataAddr
	ld a, [hli]
	ld h, [hl]
	ld l, a
	add hl, de
	ld a, [wMovementDataBank]
	call GetFarByte
	jp Function4c37

Function4c37: ; 01:4c37
	push af
	call Function4f86
	pop af
	ld l, a
	ld h, $00
	add hl, hl
	ld de, Table4c48
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl
	
Table4c48: ; 01:4c48
	dw Function4d94
	dw Function4d98
	dw Function4d9c
	dw Function4da0
	dw Function4db6
	dw Function4dbb
	dw Function4dc0
	dw Function4dc5
	dw Function4dca
	dw Function4dcf
	dw Function4dd4
	dw Function4dd9
	dw Function4dde
	dw Function4de3
	dw Function4de8
	dw Function4ded
	dw Function4df2
	dw Function4df7
	dw Function4dfc
	dw Function4e01
	dw Function4e06
	dw Function4e0b
	dw Function4e10
	dw Function4e15
	dw Function4e1a
	dw Function4e1f
	dw Function4e24
	dw Function4e29
	dw Function4e2e
	dw Function4e33
	dw Function4e38
	dw Function4e3d
	dw Function4e42
	dw Function4e47
	dw Function4e4c
	dw Function4e51
	dw Function4d5e
	dw Function4d67
	dw Function4d70
	dw Function4d79
	dw Function4d82
	dw Function4d8b
	dw Function4d2c
	dw Function4d30
	dw Function4d34
	dw Function4d38
	dw Function4d3c
	dw Function4d40
	dw Function4d44
	dw Function4d48
	dw Function4cc1
	dw Function4cef
	dw Function4cb8
	dw Function4d1a
	dw Function49fc
	dw Function4a82

Function4cb8: ; 01:4cb8
	ld hl, $001c
	add hl, bc
	ld [hl], $00
	jp Function47b8

Function4cc1: ; 01:4cc1
	ld hl, $0001
	add hl, bc
	ld a, [hl]
	cp $ff
	jr nz, .sub_4cce
	ld a, $05
	jr .sub_4cd8
.sub_4cce
	push bc
	call GetMapObject
	ld hl, $0004
	add hl, bc
	ld a, [hl]
	pop bc
.sub_4cd8
	ld hl, $0003
	add hl, bc
	ld [hl], a
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	ld hl, $001c
	add hl, bc
	ld [hl], $00
	ld hl, wVramState
	res 7, [hl]
	ret

Function4cef: ; 01:4cef
	push bc
	ld hl, $0001
	add hl, bc
	ld a, [hl]
	push af
	ld h, b
	ld l, c
	ld bc, $0028
	xor a
	call ByteFill
	pop af
	call GetMapObject
	ld hl, $0000
	add hl, bc
	ld [hl], $ff
	pop bc
	ld hl, wObjectFollow_Leader
	ldh a, [hConnectionStripLength]
	cp [hl]
	jr nz, .sub_4d14
	ld [hl], $ff
.sub_4d14
	ld hl, wVramState
	res 7, [hl]
	ret

Function4d1a: ; 01:4d1a
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ld hl, $0008
	add hl, bc
	ld [hl], $04
	ld hl, wVramState
	res 7, [hl]
	ret

Function4d2c: ; 01:4d2c
	ld a, $01
	jr Function4d4a

Function4d30: ; 01:4d30
	ld a, $02
	jr Function4d4a

Function4d34: ; 01:4d34
	ld a, $03
	jr Function4d4a

Function4d38: ; 01:4d38
	ld a, $04
	jr Function4d4a

Function4d3c: ; 01:4d3c
	ld a, $05
	jr Function4d4a

Function4d40: ; 01:4d40
	ld a, $06
	jr Function4d4a

Function4d44: ; 01:4d44
	ld a, $07
	jr Function4d4a

Function4d48: ; 01:4d48
	ld a, $08

Function4d4a: ; 01:4d4a
	ld hl, $0009
	add hl, bc
	ld [hl], a
	ld hl, $0008
	add hl, bc
	ld [hl], $03
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	jp Function4b65

Function4d5e: ; 01:4d5e
	ld hl, $0004
	add hl, bc
	res 3, [hl]
	jp Function47b8

Function4d67: ; 01:4d67
	ld hl, $0004
	add hl, bc
	set 3, [hl]
	jp Function47b8

Function4d70: ; 01:4d70
	ld hl, $0004
	add hl, bc
	res 2, [hl]
	jp Function47b8

Function4d79: ; 01:4d79
	ld hl, $0004
	add hl, bc
	set 2, [hl]
	jp Function47b8

Function4d82: ; 01:4d82
	ld hl, $0005
	add hl, bc
	res 0, [hl]
	jp Function47b8

Function4d8b: ; 01:4d8b
	ld hl, $0005
	add hl, bc
	set 0, [hl]
	jp Function47b8

Function4d94: ; 01:4d94
	ld a, $00
	jr Function4da4

Function4d98: ; 01:4d98
	ld a, $04
	jr Function4da4

Function4d9c: ; 01:4d9c
	ld a, $08
	jr Function4da4

Function4da0: ; 01:4da0
	ld a, $0c
	jr Function4da4

Function4da4: ; 01:4da4
	ld hl, $0007
	add hl, bc
	ld [hl], a
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ld hl, $0006
	add hl, bc
	ld [hl], $ff
	ret

Function4db6: ; 01:4db6
	ld a, $00
	jp Function4e56

Function4dbb: ; 01:4dbb
	ld a, $01
	jp Function4e56

Function4dc0: ; 01:4dc0
	ld a, $02
	jp Function4e56

Function4dc5: ; 01:4dc5
	ld a, $03
	jp Function4e56

Function4dca: ; 01:4dca
	ld a, $04
	jp Function4e56

Function4dcf: ; 01:4dcf
	ld a, $05
	jp Function4e56

Function4dd4: ; 01:4dd4
	ld a, $06
	jp Function4e56

Function4dd9: ; 01:4dd9
	ld a, $07
	jp Function4e56

Function4dde: ; 01:4dde
	ld a, $08
	jp Function4e56

Function4de3: ; 01:4de3
	ld a, $09
	jp Function4e56

Function4de8: ; 01:4de8
	ld a, $0a
	jp Function4e56

Function4ded: ; 01:4ded
	ld a, $0b
	jp Function4e56

Function4df2: ; 01:4df2
	ld a, $0c
	jp Function4e56

Function4df7: ; 01:4df7
	ld a, $0d
	jp Function4e56

Function4dfc: ; 01:4dfc
	ld a, $0e
	jp Function4e56

Function4e01: ; 01:4e01
	ld a, $0f
	jp Function4e56

Function4e06: ; 01:4e06
	ld a, $00
	jp Function4e7c

Function4e0b: ; 01:4e0b
	ld a, $01
	jp Function4e7c

Function4e10: ; 01:4e10
	ld a, $02
	jp Function4e7c

Function4e15: ; 01:4e15
	ld a, $03
	jp Function4e7c

Function4e1a: ; 01:4e1a
	ld a, $04
	jp Function4e7c

Function4e1f: ; 01:4e1f
	ld a, $05
	jp Function4e7c

Function4e24: ; 01:4e24
	ld a, $06
	jp Function4e7c

Function4e29: ; 01:4e29
	ld a, $07
	jp Function4e7c

Function4e2e: ; 01:4e2e
	ld a, $08
	jp Function4e7c

Function4e33: ; 01:4e33
	ld a, $09
	jp Function4e7c

Function4e38: ; 01:4e38
	ld a, $0a
	jp Function4e7c

Function4e3d: ; 01:4e3d
	ld a, $0b
	jp Function4e7c

Function4e42: ; 01:4e42
	ld a, $0c
	jp Function4e7c

Function4e47: ; 01:4e47
	ld a, $0d
	jp Function4e7c

Function4e4c: ; 01:4e4c
	ld a, $0e
	jp Function4e7c

Function4e51: ; 01:4e51
	ld a, $0f
	jp Function4e7c

Function4e56: ; 01:4e56
	call Function468a
	call Function4613
	ld a, [wCenteredObject]
	ld d, a
	ldh a, [hConnectionStripLength]
	cp d
	jr z, .sub_4e6e
	ld hl, $0008
	add hl, bc
	ld [hl], $02
	jp Function4b88
.sub_4e6e
	ld hl, wcb6e
	set 7, [hl]
	ld hl, $0008
	add hl, bc
	ld [hl], $05
	jp Function4bc9

Function4e7c: ; 01:4e7c
	call Function468a
	ld hl, $001f
	add hl, bc
	ld [hl], $00
	ld hl, $0005
	add hl, bc
	res 3, [hl]
	call Function4792
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	call Function4b26
	ld a, [wCenteredObject]
	ld d, a
	ldh a, [hConnectionStripLength]
	cp d
	jr z, .sub_4ea9
	ld hl, $0008
	add hl, bc
	ld [hl], $0f
	jp Function4ed5
.sub_4ea9
	ld hl, wcb6e
	set 7, [hl]
	ld hl, $0008
	add hl, bc
	ld [hl], $10
	jp Function4f14

Function4eb7: ; 01:4eb7
	call Function468a
	ld hl, $0008
	add hl, bc
	ld [hl], $0f
	ld hl, $000a
	add hl, bc
	ld [hl], $02
	ld hl, $0005
	add hl, bc
	res 3, [hl]
	ld hl, $001f
	add hl, bc
	ld [hl], $00
	call Function4792

Function4ed5: ; 01:4ed5
	ld de, Table4edb
	jp Function47ab

Table4edb: ; 01:4edb
	dw Function4edf
	dw Function4efb
	
Function4edf: ; 01:4edf
	call Function46d3
	call Function499c
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function4799
	call Function45d4
	call Function46a2
	ld hl, $0005
	add hl, bc
	res 3, [hl]
	ret

Function4efb: ; 01:4efb
	call Function46d3
	call Function499c
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	call Function45d4
	call Function4792
	ret

Function4f14: ; 01:4f14
	ld de, Table4f1a
	jp Function47ab
	
Table4f1a: ; 01:4f1a
	dw Function4f20
	dw Function4f40
	dw Function4f4b
	
Function4f20: ; 01:4f20
	call Function499c
	call Function4750
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	call Function45d4
	ld hl, $0005
	add hl, bc
	res 3, [hl]
	ld hl, wcb6e
	set 6, [hl]
	set 4, [hl]
	call Function4799
	ret

Function4f40: ; 01:4f40
	call Function46a2
	ld hl, wcb6e
	set 7, [hl]
	call Function4799

Function4f4b: ; 01:4f4b
	call Function499c
	call Function4750
	ld hl, $0009
	add hl, bc
	dec [hl]
	ret nz
	ld hl, $0008
	add hl, bc
	ld [hl], $01
	call Function45d4
	ld hl, wcb6e
	set 6, [hl]
	call Function4792
	ldh a, [hConnectionStripLength]
	cp $01
	jp z, .sub_4f70
	ret
.sub_4f70
	ld hl, $0007
	add hl, bc
	ld a, [hl]
	rra
	rra
	and $03
	ld d, a
	ld hl, $0006
	add hl, bc
	ld a, [hl]
	and $03
	cp d
	ret z
	jp Function4b25

Function4f86: ; 01:4f86
	ld e, a
	ld a, [wObjectFollow_Follower]
	and a
	ret z
	cp $ff
	ret z
	ld a, [wObjectFollow_Leader]
	ld d, a
	ldh a, [hConnectionStripLength]
	cp d
	ret nz
	ld a, e
	cp $2a
	ret z
	cp $00
	ret z
	cp $01
	ret z
	cp $02
	ret z
	cp $03
	ret z
	cp $32
	ret z
	cp $35
	ret z
	push af
	ld hl, wFollowerMovementQueueLength
	inc [hl]
	ld e, [hl]
	ld d, $00
	ld hl, wFollowMovementQueue
	add hl, de
	pop af
	ld [hl], a
	ret

Function4fbc: ; 01:4fbc
	call .sub_4fc5
	ld hl, Table4c48
	jp CallJumptable
.sub_4fc5
	ld hl, wFollowerMovementQueueLength
	ld a, [hl]
	and a
	jr z, .sub_4fe2
	cp $ff
	jr z, .sub_4fe2
	ld e, a
	dec [hl]
	ld d, $00
	ld hl, wFollowMovementQueue
	add hl, de
	inc e
	ld a, $ff
.sub_4fdb
	ld d, [hl]
	ld [hld], a
	ld a, d
	dec e
	jr nz, .sub_4fdb
	ret
.sub_4fe2
	call .sub_4fe9
	ret c
	ld a, $2a
	ret
.sub_4fe9
	ld a, [wObjectFollow_Leader]
	cp $ff
	jr z, .sub_4fff
	push bc
	call GetObjectStruct
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	pop bc
	and a
	jr z, .sub_4fff
	and a
	ret
.sub_4fff
	xor a
	ld [wObjectFollow_Follower], a
	ld a, $32
	scf
	ret

Function5007: ; 01:5007
	ld bc, wObjectStructs
	xor a
.sub_500b
	ldh [hConnectionStripLength], a
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_5034
	ld hl, $000a
	add hl, bc
	ld a, [hl]
	and a
	ld a, $ff
	jr z, .sub_502f
	push bc
	call .sub_5042
	pop bc
	ld a, $ff
	jr c, .sub_502f
	ld hl, $0007
	add hl, bc
	ld a, [hl]
	and $0c
.sub_502f
	ld hl, $000d
	add hl, bc
	ld [hl], a
.sub_5034
	ld hl, $0028
	add hl, bc
	ld b, h
	ld c, l
	ldh a, [hConnectionStripLength]
	inc a
	cp $0a
	jr nz, .sub_500b
	ret
.sub_5042
	ld hl, $0010
	add hl, bc
	ld d, [hl]
	ld hl, $0011
	add hl, bc
	ld e, [hl]
	ld a, [wXCoord]
	cp d
	jr z, .sub_5059
	jr nc, .sub_50b7
	add $09
	cp d
	jr c, .sub_50b7
.sub_5059
	ld a, [wYCoord]
	cp e
	jr z, .sub_5066
	jr nc, .sub_50b7
	add $08
	cp e
	jr c, .sub_50b7
.sub_5066
	ld hl, $0018
	add hl, bc
	ld a, [hl]
	and $07
	ld d, $02
	jr z, .sub_5073
	ld d, $03
.sub_5073
	ld a, d
	ldh [hFFC9], a
	ld a, [hl]
	srl a
	srl a
	srl a
	ldh [hFFC7], a
	ld hl, $0019
	add hl, bc
	ld a, [hl]
	and $07
	ld e, $02
	jr z, .sub_508c
	ld e, $03
.sub_508c
	ld a, [hl]
	srl a
	srl a
	srl a
	ldh [hFFC8], a
	ldh a, [hFFC7]
	ld c, a
	ldh a, [hFFC8]
	ld b, a
	call Coord2Tile
	ld bc, $0014
.sub_50a1
	push hl
	ldh a, [hFFC9]
	ld d, a
.sub_50a5
	ld a, [hli]
	cp $60
	jr nc, .sub_50b4
	dec d
	jr nz, .sub_50a5
	pop hl
	add hl, bc
	dec e
	jr nz, .sub_50a1
	and a
	ret
.sub_50b4
	pop hl
	jr .sub_50b7
.sub_50b7
	scf
	ret

Function50b9: ; 01:50b9
	call .sub_50c3
	call .sub_50d3
	call Function42db
	ret
.sub_50c3
	xor a
	ld [wcb6c], a
	ld [wcb6d], a
	ld [wcb6e], a
	ld a, $ff
	ld [wPlayerStepDirection], a
	ret
.sub_50d3
	ld bc, wObjectStructs
	xor a
.sub_50d7
	ldh [hConnectionStripLength], a
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_50e9
	call .sub_50f7
	jr c, .sub_50e9
	call Function44f2
.sub_50e9
	ld hl, $0028
	add hl, bc
	ld b, h
	ld c, l
	ldh a, [hConnectionStripLength]
	inc a
	cp $0a
	jr nz, .sub_50d7
	ret
.sub_50f7
	ld hl, $0005
	add hl, bc
	res 6, [hl]
	ld a, [wXCoord]
	ld e, a
	ld hl, $0010
	add hl, bc
	ld a, [hl]
	add $01
	sub e
	jr c, .sub_5123
	cp $0c
	jr nc, .sub_5123
	ld a, [wYCoord]
	ld e, a
	ld hl, $0011
	add hl, bc
	ld a, [hl]
	add $01
	sub e
	jr c, .sub_5123
	cp $0b
	jr nc, .sub_5123
	jr .sub_514d
.sub_5123
	ld hl, $0005
	add hl, bc
	set 6, [hl]
	ld a, [wXCoord]
	ld e, a
	ld hl, $0014
	add hl, bc
	ld a, [hl]
	add $01
	sub e
	jr c, .sub_514f
	cp $0c
	jr nc, .sub_514f
	ld a, [wYCoord]
	ld e, a
	ld hl, $0015
	add hl, bc
	ld a, [hl]
	add $01
	sub e
	jr c, .sub_514f
	cp $0b
	jr nc, .sub_514f
.sub_514d
	and a
	ret
.sub_514f
	ldh a, [hConnectionStripLength]
	cp $01
	jr z, .sub_5162
	ld hl, $0004
	add hl, bc
	bit 1, [hl]
	jr nz, .sub_5162
	call .sub_516a
	scf
	ret
.sub_5162
	ld hl, $0005
	add hl, bc
	set 6, [hl]
	and a
	ret
.sub_516a
	push bc
	ld hl, $0001
	add hl, bc
	ld a, [hl]
	push af
	ld h, b
	ld l, c
	ld bc, $0028
	xor a
	call ByteFill
	pop af
	cp $ff
	jr z, .sub_518e
	ld hl, wMapObjects
	ld bc, $0010
	call AddNTimes
	ld bc, $0000
	add hl, bc
	ld [hl], $ff
.sub_518e
	pop bc
	ret

_UpdateSprites: ; 01:5190
	ld a, [wVramState]
	bit 0, a
	ret z
	xor a
	ldh [hFFC7], a
	call .sub_51a3
	call .sub_5258
	call .sub_5243
	ret
.sub_51a3
	xor a
	ld bc, wObjectStructs
.sub_51a7
	push af
	push bc
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	and a
	jp z, .sub_5234
	ld hl, $0005
	add hl, bc
	bit 0, [hl]
	jp nz, .sub_5234
	xor a
	bit 7, [hl]
	jr z, .sub_51c2
	add $80
.sub_51c2
	bit 4, [hl]
	jr z, .sub_51c8
	add $10
.sub_51c8
	ld d, a
	xor a
	bit 3, [hl]
	jr z, .sub_51d0
	or $80
.sub_51d0
	ldh [hFFCC], a
	ld hl, $0002
	add hl, bc
	ld a, [hl]
	ldh [hFFCB], a
	ld hl, $0018
	add hl, bc
	ld a, [hl]
	ld hl, $001a
	add hl, bc
	add [hl]
	add $08
	ldh [hFFC9], a
	ld hl, $0019
	add hl, bc
	ld a, [hl]
	ld hl, $001b
	add hl, bc
	add [hl]
	add $10
	ldh [hFFCA], a
	ld hl, $000d
	add hl, bc
	ld a, [hl]
	cp $ff
	jp z, .sub_5234
	ld l, a
	ld h, $00
	add hl, hl
	ld bc, Table421b
	add hl, bc
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ldh a, [hFFC7]
	ld c, a
	ld b, $c2
.sub_520f
	ldh a, [hFFCA]
	add [hl]
	inc hl
	ld [bc], a
	inc c
	ldh a, [hFFC9]
	add [hl]
	inc hl
	ld [bc], a
	inc c
	ldh a, [hFFCB]
	add [hl]
	inc hl
	ld [bc], a
	inc c
	ld a, [hl]
	bit 1, a
	jr z, .sub_5229
	ldh a, [hFFCC]
	or [hl]
.sub_5229
	inc hl
	or d
	ld [bc], a
	inc c
	bit 0, a
	jr z, .sub_520f
	ld a, c
	ldh [hFFC7], a
.sub_5234
	pop bc
	ld hl, $0028
	add hl, bc
	ld b, h
	ld c, l
	pop af
	inc a
	cp $0a
	jp nz, .sub_51a7
	ret
.sub_5243
	ld b, $a0
	ldh a, [hFFC7]
	cp b
	ret nc
	ld l, a
	ld h, $c2
	ld de, $0004
	ld a, b
	ld c, $a0
.sub_5252
	ld [hl], c
	add hl, de
	cp l
	jr nz, .sub_5252
	ret
.sub_5258
	ld bc, wCmdQueue
	ld a, $04
.sub_525d
	push af
	ld hl, $0000
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_52cf
	ld hl, $0004
	add hl, bc
	ld a, [hl]
	ld hl, $0006
	add hl, bc
	add [hl]
	add $08
	ldh [hFFC9], a
	ld hl, $0005
	add hl, bc
	ld a, [hl]
	ld hl, $0007
	add hl, bc
	add [hl]
	add $10
	ldh [hFFCA], a
	ld hl, $0003
	add hl, bc
	ld a, [hl]
	ldh [hFFCB], a
	ld hl, $000c
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_52cf
	ld e, a
	ld d, $00
	ld hl, Table44ab
	add hl, de
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ldh a, [hFFC7]
	ld d, a
	ld a, [hl]
	and a
	jr z, .sub_52cf
	add a
	add a
	add d
	cp $a0
	jr nc, .sub_52da
	ldh a, [hFFC7]
	ld e, a
	ld d, $c2
	ld a, [hli]
.sub_52b0
	ldh [hFFC8], a
	ldh a, [hFFCA]
	add [hl]
	ld [de], a
	inc hl
	inc de
	ldh a, [hFFC9]
	add [hl]
	ld [de], a
	inc hl
	inc de
	ldh a, [hFFCB]
	add [hl]
	ld [de], a
	inc hl
	inc de
	ld a, [hli]
	ld [de], a
	inc de
	ldh a, [hFFC8]
	dec a
	jr nz, .sub_52b0
	ld a, e
	ldh [hFFC7], a
.sub_52cf
	ld hl, $0010
	add hl, bc
	ld b, h
	ld c, l
	pop af
	dec a
	jr nz, .sub_525d
	ret
.sub_52da
	pop af
	ret

Function52dc: ; 01:52dc
	call MenuBoxCoord2Tile
	push hl
	ld de, $005a
	add hl, de
	call PrintNumBadges
	pop hl
	push hl
	ld de, $0081
	add hl, de
	call PrintNumOwnedMons
	pop hl
	ld de, $00a8
	add hl, de
	call PrintPlayTime
	ret
	
SECTION "engine/dumps/bank01.asm@Function5388", ROMX

Function5388: ; 01:5388
	ld a, $00
	call OpenSRAM
	ld a, [s0_a600]
	ld [wce60], a
	call CloseSRAM
	ret

Function5397: ; 01:5397
	ld a, $00
	call OpenSRAM
	ld hl, s0_a600
	ld a, [hli]
	ld [wce5f], a
	inc hl
	ld a, [hli]
	ld [wActiveFrame], a
	ld a, [hl]
	ld [wTextBoxFlags], a
	call CloseSRAM
	ret

Function53b0: ; 01:53b0
	ld a, $00
	call OpenSRAM
	ld hl, wDebugFlags
	ld a, [hli]
	ld [wDebugFlags], a
	ld a, [hli]
	ld [wce64], a
	ld a, [hli]
	ld [wce65], a
	ld a, [hl]
	ld [wce66], a
	call CloseSRAM
	ret
	
SECTION "engine/dumps/bank01.asm@ReanchorBGMap_NoOAMUpdate", ROMX

ReanchorBGMap_NoOAMUpdate: ; 01:63d8
	xor a
	ldh [hLCDCPointer], a
	ld hl, wMapObjectsEnd
	set 7, [hl]
	res 2, [hl]
	ld a, $90
	ldh [hWY], a
	xor a
	ldh [hBGMapMode], a
	xor a
	ldh [hBGMapAddress], a
	ld a, $9c
	ldh [hBGMapAddress+1], a
	call LoadMapPart
	call WaitBGMap
	xor a
	ldh [hBGMapMode], a
	ldh [hWY], a
	call .sub_6412
	xor a
	ld [wBGMapAnchor], a
	ld a, $98
	ldh [hBGMapAddress+1], a
	ld [wBGMapAnchor+1], a
	xor a
	ldh [hSCX], a
	ldh [hSCY], a
	call WaitBGMap
	ret
.sub_6412
	ld a, $60
	ld hl, wTileMapBackup
	ld bc, $0080
	call ByteFill
	ld hl, vBGMap0
	ld c, $08
.sub_6422
	push bc
	push hl
	ld de, wTileMapBackup
	ld bc, $0008
	call Request2bpp
	pop hl
	ld bc, $0080
	add hl, bc
	pop bc
	dec c
	jr nz, .sub_6422
	ret

LoadFonts_NoOAMUpdate: ; 01:6437
	call UpdateSprites
	call LoadFont
	call LoadFontExtra
	ld a, $90
	ldh [hWY], a
	ret
	

Function6445: ; 01:6445
	call BackUpTilesToBuffer
	ld a, [wWhichPokemon]
	ld hl, wPartyMonNicknames
	call GetNick
	ld hl, wStringBuffer1
	ld de, wcd11
	ld bc, $0006
	call CopyBytes
.sub_645d
	ld hl, wPartyMon1Moves
	ld bc, $0030
	ld a, [wWhichPokemon]
	call AddNTimes
	ld d, h
	ld e, l
	ld b, $04
.sub_646d
	ld a, [hl]
	and a
	jr z, .sub_648d
	inc hl
	dec b
	jr nz, .sub_646d
	push de
	call .sub_64f4
	pop de
	jp c, .sub_64d6
	push hl
	push de
	ld [wce37], a
	call Unreferenced_GetMoveName
	ld hl, Text664b
	call PrintText
	pop de
	pop hl
.sub_648d
	ld a, [wce32]
	ld [hl], a
	ld bc, $0015
	add hl, bc
	push hl
	push de
	dec a
	ld hl, Moves
	ld bc, $0007
	call AddNTimes
	ld a, BANK(Moves)
	call GetFarByte
	pop de
	pop hl
	ld [hl], a
	ld a, [wBattleMode]
	and a
	jp z, .sub_64eb
	ld a, [wWhichPokemon]
	ld b, a
	ld a, [wcd41]
	cp b
	jp nz, .sub_64eb
	ld h, d
	ld l, e
	ld de, wca04
	ld bc, $0004
	call CopyBytes
	ld bc, $0011
	add hl, bc
	ld de, wca0a
	ld bc, $0004
	call CopyBytes
	jp .sub_64eb
.sub_64d6
	ld hl, Text65b9
	call PrintText
	call YesNoBox
	jp c, .sub_645d
	ld hl, Text65d7
	call PrintText
	ld b, $00
	ret
.sub_64eb
	ld hl, Text658c
	call PrintText
	ld b, $01
	ret
.sub_64f4
	push hl
	ld hl, Text65f0
	call PrintText
	call YesNoBox
	pop hl
	ret c
	ld bc, $fffc
	add hl, bc
	push hl
	ld de, wce2e
	ld bc, $0004
	call CopyBytes
	pop hl
.sub_650f
	push hl
	ld hl, Text65a8
	call PrintText
	coord hl, 10, 8
	ld b, $08
	ld c, $08
	call DrawTextBox
	coord hl, 12, 10
	ld a, $28
	ld [wFieldMoveScriptID], a
	ld a, $32
	call Predef
	ld a, $0a
	ld [w2DMenuCursorInitY], a
	ld a, $0b
	ld [w2DMenuCursorInitX], a
	ld a, [wcd57]
	inc a
	ld [w2DMenuNumRows], a
	ld a, $01
	ld [w2DMenuNumCols], a
	ld [w2DMenuDataEnd], a
	ld [wMenuCursorX], a
	ld a, $03
	ld [wMenuJoypadFilter], a
	ld a, $20
	ld [w2DMenuFlags], a
	xor a
	ld [w2DMenuFlags+1], a
	ld a, $20
	ld [w2DMenuCursorOffsets], a
	call Get2DMenuJoypad
	push af
	call ReloadTilesFromBuffer
	pop af
	pop hl
	bit 1, a
	jr nz, .sub_658a
	push hl
	ld a, [w2DMenuDataEnd]
	dec a
	ld c, a
	ld b, $00
	add hl, bc
	ld a, [hl]
	push af
	push bc
	call IsHMMove
	pop bc
	pop de
	ld a, d
	jr c, .sub_6581
	pop hl
	add hl, bc
	and a
	ret
.sub_6581
	ld hl, Text6691
	call PrintText
	pop hl
	jr .sub_650f
.sub_658a
	scf
	ret
	
Text658c: ; 01:658c
	text_from_ram wcd11
	text "は　あたらしく"
	line ""
	text_end

Text6599: ; 01:6599
	text_from_ram wStringBuffer2
	text "を　おぼえた！"
	text_end

Text65a5: ; 01:65a5
	sound_dex_fanfare_50_79
	text_waitbutton
	text_end
	
Text65a8: ; 01:65a8
	text "どの　わざを"
	next "わすれさせたい？"
	done

Text65b9: ; 01:65b9
	text "それでは<⋯⋯>　"
	text_end
	
Text65c1: ; 01:65c1
	text_from_ram wStringBuffer2
	text "を"
	line "おぼえるのを　あきらめますか？"
	done
	
Text65d7: ; 01:65d7
	text_from_ram wcd11
	text "は　"
	text_end
	
Text65de: ; 01:65de
	text_from_ram wStringBuffer2
	text "を"
	line "おぼえずに　おわった！"
	prompt
	
Text65f0: ; 01:65f0
	text_from_ram wcd11
	text "は　あたらしく"
	line ""
	text_end
	
Text65fd: ; 01:65fd
	text_from_ram wStringBuffer2
	text "を　おぼえたい<⋯⋯>！"
	para "しかし　"
	text_end

Text6610: ; 01:6610
	text_from_ram wcd11
	text "は　わざを　４つ"
	line "おぼえるので　せいいっぱいだ！"
	para ""
	text_end

Text662e: ; 01:662e
	text_from_ram wStringBuffer2
	text "の　かわりに"
	line "ほかの　わざを　わすれさせますか？"
	done
	
Text664b: ; 01:664b
	text "１　２の　<⋯⋯>"
	text_end
	
Text6653: ; 01:6653
	text_exit
	start_asm
	push de
	ld de, $001b
	call PlaySFX
	pop de
	ld hl, Text6661
	ret
	
Text6661:  ; 01:6661
	text "　ポカン！"
	text_end
	
Text6668: ; 01:6668
	text_exit
	text ""
	para ""
	text_end
	
Text666c: ; 01:666c
	text_from_ram wcd11
	text "は　"
	text_end

Text6673: ; 01:6673
	text_from_ram wStringBuffer1
	text "の"
	line "つかいかたを　きれいに　わすれた！"
	para "そして<⋯⋯>！"
	prompt
	
Text6691: ; 01:6691
	text "それは　たいせつなわざです"
	line "わすれさせることは　できません！"
	prompt

Function66b1: ; 01:66b1
	ld hl, wcd74
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld a, [wCurItem]
	cp $c4
	jr nc, .sub_66d2
	dec a
	ld c, a
	ld b, $00
	add hl, bc
	add hl, bc
	add hl, bc
	add hl, bc
	inc hl
	ld a, [hld]
	ldh [hSpriteOffset], a
	ld a, [hld]
	ldh [hConnectedMapWidth], a
	ld a, [hl]
	ldh [hConnectionStripLength], a
	jr .sub_66d5
.sub_66d2
	call .sub_66d9
.sub_66d5
	ld de, hConnectionStripLength
	ret
.sub_66d9
	ld a, [wCurItem]
	sub $c9
	ret c
	ld d, a
	ld hl, Table66fa
	srl a
	ld c, a
	ld b, $00
	add hl, bc
	ld a, [hl]
	srl d
	jr nc, .sub_66f0
	swap a
.sub_66f0
	and $f0
	ldh [hConnectedMapWidth], a
	xor a
	ldh [hConnectionStripLength], a
	ldh [hSpriteOffset], a
	ret
	
Table66fa: ; 01:66fa
	db $32, $21, $34, $24
	db $34, $21, $45, $55
	db $32, $32, $55, $52
	db $54, $52, $41, $21
	db $12, $42, $25, $24
	db $22, $52, $24, $34
	db $42

Function6713: ; 01:6713
	push hl
	call LoadStandardMenuHeader
	ld a, [wBattleMode]
	dec a
	coord hl, 1, 0
	ld b, $04
	ld c, $0a
	call z, ClearBox
	ld a, [wMonDexIndex]
	ld [wce37], a
	call GetPokemonName
	ld a, [wDebugFlags]
	bit 1, a
	pop hl
	push hl
	ld hl, Text6788
	call PrintText
	call YesNoBox
	pop hl
	jr c, .sub_6779
	push hl
	ld e, l
	ld d, h
	ld a, BANK(NamingScreen)
	ld b, $00
	ld hl, NamingScreen
	call FarCall_hl
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call GetMemSGBLayout
	call SetPalettes
	ld a, [wBattleMode]
	and a
	jr nz, .sub_676b
	call LoadFontExtra
	call Function3657
	jr .sub_6773
.sub_676b
	ld hl, Function3e3a7
	ld a, BANK(Function3e3a7)
	call FarCall_hl
.sub_6773
	pop hl
	ld a, [hl]
	cp $50
	jr nz, .sub_6784
.sub_6779
	ld d, h
	ld e, l
	ld hl, wStringBuffer1
	ld bc, $0006
	call CopyBytes
.sub_6784
	call CloseWindow
	ret
	
Text6788: ; 01:6788
	text_from_ram wStringBuffer1
	text "に"
	line "ニックネームを　つけますか？"
	done
	
Function679d: ; 01:679d
	ld de, wFieldMoveScriptID
	push de
	ld hl, NamingScreen
	ld b, $00
	ld a, BANK(NamingScreen)
	call FarCall_hl
	call ClearBGPalettes
	call Function360b
	call UpdateTimePals
	pop de
	ld a, [de]
	cp $50
	jr z, .sub_67d3
	ld hl, wPartyMonNicknames
	ld bc, $0006
	ld a, [wWhichPokemon]
	call AddNTimes
	ld e, l
	ld d, h
	ld hl, wFieldMoveScriptID
	ld bc, $0006
	call CopyBytes
	and a
	ret
.sub_67d3
	scf
	ret

CorrectNickErrors: ; 01:67d5
	push bc
	push de
	ld b, $06
.sub_67d9
	ld a, [de]
	cp $50
	jr z, .sub_6802
	ld hl, Table6805
	dec hl
.sub_67e2
	inc hl
	ld a, [hl]
	cp $ff
	jr z, .sub_67f5
	ld a, [de]
	cp [hl]
	inc hl
	jr c, .sub_67e2
	cp [hl]
	jr nc, .sub_67e2
	ld a, $e6
	ld [de], a
	jr .sub_67e2
.sub_67f5
	inc de
	dec b
	jr nz, .sub_67d9
	pop de
	push de
	ld a, $e6
	ld [de], a
	inc de
	ld a, $50
	ld [de], a
.sub_6802
	pop de
	pop bc
	ret
	
Table6805:: ; 01:6805
	db $00, $05, $14, $19, $1d
	db $26, $35, $3a, $49, $7f
	db $ff
	
SECTION "engine/dumps/bank01.asm@Function771e", ROMX

Function771e: ; 01:771e
	ld hl, $0004
	add hl, bc
	bit 4, [hl]
	jr z, .sub_772c
	push hl
	call _IsObjectCollisionTileSolid
	pop hl
	ret c
.sub_772c
	bit 6, [hl]
	jr z, .sub_7738
	push hl
	push bc
	call Function77a1
	pop bc
	pop hl
	ret c
.sub_7738
	bit 5, [hl]
	jr z, .sub_7748
	push hl
	call Function782c
	pop hl
	ret c
	push hl
	call Function786e
	pop hl
	ret c
.sub_7748
	and a
	ret

SECTION "engine/dumps/bank01.asm@Function776e", ROMX

Function776e: ; 01:776e
	call GetFacingTileCoord
	cp $90
	jr z, .sub_7779
	cp $98
	jr nz, .sub_7789
.sub_7779
	ld a, [wPlayerNextMapX]
	sub d
	cpl
	inc a
	add d
	ld d, a
	ld a, [wPlayerNextMapY]
	sub e
	cpl
	inc a
	add e
	ld e, a
.sub_7789
	ld bc, wPlayerSprite
	ld a, $01
	ldh [hConnectionStripLength], a
	call _CheckObjectCollision
	ret nc
	ld hl, $0006
	add hl, bc
	ld a, [hl]
	cp $ff
	jr z, .sub_779f
	xor a
	ret
.sub_779f
	scf
	ret

Function77a1: ; 01:77a1
	ld hl, $0010
	add hl, bc
	ld d, [hl]
	ld hl, $0011
	add hl, bc
	ld e, [hl]
	jr _CheckObjectCollision
	
Function77ad: ; 01:77ad
	ldh a, [hConnectionStripLength]
	call GetObjectStruct
	call .sub_77b9
	call _CheckObjectCollision
	ret
.sub_77b9
	ld hl, $0010
	add hl, bc
	ld d, [hl]
	ld hl, $0011
	add hl, bc
	ld e, [hl]
	ld hl, $0007
	add hl, bc
	ld a, [hl]
	and $0c
	and a
	jr z, .sub_77d7
	cp $04
	jr z, .sub_77d9
	cp $08
	jr z, .sub_77db
	inc d
	ret
.sub_77d7
	inc e
	ret
.sub_77d9
	dec e
	ret
.sub_77db
	dec d
	ret

SECTION "engine/dumps/bank01.asm@Function782c", ROMX

Function782c: ; 01:782c
	ld hl, $0016
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_784b
	ld e, a
	ld d, a
	ld hl, $0014
	add hl, bc
	ld a, [hl]
	sub d
	ld d, a
	ld a, [hl]
	add e
	ld e, a
	ld hl, $0010
	add hl, bc
	ld a, [hl]
	cp d
	jr z, .sub_786c
	cp e
	jr z, .sub_786c
.sub_784b
	ld hl, $0017
	add hl, bc
	ld a, [hl]
	and a
	jr z, .sub_786a
	ld e, a
	ld d, a
	ld hl, $0015
	add hl, bc
	ld a, [hl]
	sub d
	ld d, a
	ld a, [hl]
	add e
	ld e, a
	ld hl, $0011
	add hl, bc
	ld a, [hl]
	cp d
	jr z, .sub_786c
	cp e
	jr z, .sub_786c
.sub_786a
	and a
	ret
.sub_786c
	scf
	ret

Function786e: ; 01:786e
	ld hl, $0010
	add hl, bc
	ld a, [wXCoord]
	cp [hl]
	jr z, .sub_787f
	jr nc, .sub_7892
	add $09
	cp [hl]
	jr c, .sub_7892
.sub_787f
	ld hl, $0011
	add hl, bc
	ld a, [wYCoord]
	cp [hl]
	jr z, .sub_7890
	jr nc, .sub_7892
	add $08
	cp [hl]
	jr c, .sub_7892
.sub_7890
	and a
	ret
.sub_7892
	scf
	ret

SECTION "engine/dumps/bank01.asm@SettingsScreen", ROMX

SettingsScreen: ; 01:78e5
	ld a, [wVramState]
	push af
	xor a
	ld [wVramState], a

Function78ed: ; 01:78ed
	call Function7a93

Function78f0: ; 01:78f0
	call Function7a41
	ld [hl], $ed
	call Function7a55
	call WaitBGMap
.sub_78fb
	call DelayFrame
	call GetJoypadDebounced
	ldh a, [hJoySum]
	ld b, a
	and a
	jr z, .sub_78fb
	ld a, b
	and $0a
	jr nz, .sub_7924
	ld a, b
	and $04
	jr nz, .sub_7939
	ld a, b
	and $01
	jr z, Function7977
	ld a, [wc409]
	cp $10
	jr nz, Function78f0
	ld a, [wTileMapBackup]
	cp $07
	jr z, .sub_7956
.sub_7924
	push de
	ld de, $0005
	call PlaySFX
	pop de
	pop af
	ld [wVramState], a
	ld hl, wd4a9
	bit 0, [hl]
	jp z, TitleSequenceStart
	ret
.sub_7939
	ld hl, wce5f
	ld a, [hl]
	xor $08
	ld [hl], a
	ld hl, Function96eb
	ld a, BANK(Function96eb)
	call FarCall_hl
	call LoadFont
	call LoadFontExtra
	ld c, $70
	call DelayFrames
	jp Function78ed
.sub_7956
	ld a, [wActiveFrame]
	inc a
	and $07
	ld [wActiveFrame], a
	coord hl, 17, 16
	add $f7
	ld [hl], a
	call LoadFontExtra
	jr Function78f0

Function796a: ; 01:796a
	push af
	call Function7a41
	ld [hl], $7f
	pop af
	ld [wTileMapBackup], a
	jp Function78f0

Function7977: ; 01:7977
	ld a, [wc409]
	bit 7, b
	jr nz, .sub_799e
	bit 6, b
	jr nz, .sub_79c1
	cp $07
	jp z, .sub_7a10
	cp $0b
	jp z, .sub_7a1b
	cp $0d
	jp z, .sub_7a26
	cp $10
	jp z, .sub_7a31
	bit 5, b
	jp nz, .sub_79f6
	jp .sub_7a01
.sub_799e
	cp $10
	ld b, $f3
	ld hl, wc40a
	jr z, .sub_79e2
	cp $03
	ld b, $04
	inc hl
	jr z, .sub_79e2
	cp $07
	ld b, $04
	inc hl
	jr z, .sub_79e2
	cp $0b
	ld b, $02
	inc hl
	jr z, .sub_79e2
	ld b, $03
	inc hl
	jr .sub_79e2
.sub_79c1
	cp $07
	ld b, $fc
	ld hl, wc40a
	jr z, .sub_79e2
	cp $0b
	ld b, $fc
	inc hl
	jr z, .sub_79e2
	cp $0d
	ld b, $fe
	inc hl
	jr z, .sub_79e2
	cp $10
	ld b, $fd
	inc hl
	jr z, .sub_79e2
	ld b, $0d
	inc hl
.sub_79e2
	add b
	push af
	ld a, [hl]
	push af
	call Function7a41
	ld [hl], $ec
	pop af
	ld [wTileMapBackup], a
	pop af
	ld [wc409], a
	jp Function78f0
.sub_79f6
	ld a, [wc40a]
	cp $01
	jr z, .sub_7a0a
	sub $07
	jr .sub_7a0a
.sub_7a01
	ld a, [wc40a]
	cp $0f
	jr z, .sub_7a0a
	add $07
.sub_7a0a
	ld [wc40a], a
	jp Function796a
.sub_7a10
	ld a, [wWhichPicTest]
	xor $0b
	ld [wWhichPicTest], a
	jp Function796a
.sub_7a1b
	ld a, [wc40c]
	xor $0b
	ld [wc40c], a
	jp Function796a
.sub_7a26
	ld a, [wc40d]
	xor $0b
	ld [wc40d], a
	jp Function796a
.sub_7a31
	call Function7a41
	ld [hl], $ec
	ld a, [wTileMapBackup]
	xor $06
	ld [wTileMapBackup], a
	jp Function78f0

Function7a41: ; 01:7a41
	ld a, [wc409]
	ld hl, wTileMap
	ld bc, $0014
	call AddNTimes
	ld a, [wTileMapBackup]
	ld b, $00
	ld c, a
	add hl, bc
	ret

Function7a55: ; 01:7a55
	ld hl, Table7c22
	ld a, [wc40a]
	ld c, a
.sub_7a5c
	ld a, [hli]
	cp c
	jr z, .sub_7a63
	inc hl
	jr .sub_7a5c
.sub_7a63
	ld a, [hl]
	ld d, a
	ld a, [wWhichPicTest]
	dec a
	jr z, .sub_7a6f
	set 7, d
	jr .sub_7a71
.sub_7a6f
	res 7, d
.sub_7a71
	ld a, [wc40c]
	dec a
	jr z, .sub_7a7b
	set 6, d
	jr .sub_7a7d
.sub_7a7b
	res 6, d
.sub_7a7d
	ld a, [wc40d]
	dec a
	jr z, .sub_7a87
	set 5, d
	jr .sub_7a89
.sub_7a87
	res 5, d
.sub_7a89
	ld a, [wce5f]
	and $08
	or d
	ld [wce5f], a
	ret

Function7a93: ; 01:7a93
	call ClearBGPalettes
	call DisableLCD
	xor a
	ldh [hBGMapMode], a
	call .sub_7b26
	xor a
	ld hl, wc40a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hl], a
	inc a
	ld [wTextBoxFlags], a
	ld hl, Table7c23
	ld a, [wce5f]
	ld c, a
	and $07
	push bc
	ld de, $0002
	call FindItemInTable
	pop bc
	dec hl
	ld a, [hl]
	ld [wc40a], a
	coord hl, 0, 3
	call .sub_7b1f
	sla c
	ld a, $01
	jr nc, .sub_7ad0
	ld a, $0a
.sub_7ad0
	ld [wWhichPicTest], a
	coord hl, 0, 7
	call .sub_7b1f
	sla c
	ld a, $01
	jr nc, .sub_7ae1
	ld a, $0a
.sub_7ae1
	ld [wc40c], a
	coord hl, 0, 11
	call .sub_7b1f
	sla c
	ld a, $01
	jr nc, .sub_7af2
	ld a, $0a
.sub_7af2
	ld [wc40d], a
	coord hl, 0, 13
	call .sub_7b1f
	ld a, $01
	ld [wc40e], a
	coord hl, 1, 16
	ld [hl], $ec
	coord hl, 7, 16
	ld [hl], $ec
	ld a, [wc40a]
	ld [wTileMapBackup], a
	ld a, $03
	ld [wc409], a
	call EnableLCD
	call WaitBGMap
	call SetPalettes
	ret
.sub_7b1f
	ld e, a
	ld d, $00
	add hl, de
	ld [hl], $ec
	ret
.sub_7b26
	ld de, vChars1 + $0700
	ld hl, TrainerCardGFX
	ld bc, $0010
	ld a, BANK(TrainerCardGFX)
	call FarCopyData
	ld hl, wTileMap
	ld bc, $0168
	ld a, $f0
	call ByteFill
	coord hl, 1, 1
	lb bc, 3, 18
	call ClearBox
	coord hl, 1, 5
	lb bc, 3, 18
	call ClearBox
	coord hl, 1, 9
	lb bc, 3, 18
	call ClearBox
	coord hl, 1, 13
	lb bc, 1, 18
	call ClearBox
	coord hl, 1, 1
	ld de, Text7bad
	call PlaceString
	coord hl, 1, 5
	ld de, Text7bc9
	call PlaceString
	coord hl, 1, 9
	ld de, Text7be8
	call PlaceString
	coord hl, 1, 13
	ld de, Text7c03
	call PlaceString
	coord hl, 1, 16
	ld de, Text7c12
	call PlaceString
	coord hl, 6, 15
	ld b, $01
	ld c, $0b
	call DrawTextBox
	coord hl, 7, 16
	ld de, Text7c17
	call PlaceString
	ld a, [wActiveFrame]
	coord hl, 17, 16
	add $f7
	ld [hl], a
	ret
	
Text7bad: ; 01:7bad
	db "はなしの　はやさ"
	next "　はやい　　　　ふつう　　　　おそい"
	text_end

Text7bc9: ; 01:7bc9
	db "せんとう　アニメーション"
	next "　じっくり　みる　　とばして　みる"
	text_end

Text7be8: ; 01:7be8
	db "しあいの　ルール"
	next "　いれかえタイプ　　かちぬきタイプ"
	text_end

Text7c03: ; 01:7c03
	db "　モノラル　　　　　ステレオ"
	text_end

Text7c12: ; 01:7c12
	db "　おわり"
	text_end

Text7c17: ; 01:7c17
	db "　わく　を　かえる　"
	text_end
	
Table7c22: ; 01:7c22
	db $0F
	
Table7c23: ; 01:7c23
	db $05, $08, $03
	db $01, $01, $08
	db $FF
	
Unknown7c2a: ; 01:7c2a
rept 491
	db $39, $00
endr