ld hl, de06
	ld bc, d53e
	ld de, 5062
	ld a, [hli]
	nop
	cp d
	jr z, fb
	nop
	add a
	nop
	add [hl]
	inc hl
	ld [bc], a
	inc bc
	dec e
	jr nz, f1
	ret

	ld a, $10
	ld [wMonDataLocation], a
	ld hl, wPartyMonNicks
	ld de, wcf91
	ld a, 1
	ld c, a
	ld [wMoveMonType], a
	call .CombineLowerNybblesIntoBytes
	ld a, $5
	ld [de], a ; wWhichPokemon	
	ld [wPartyCount], a
	call AddPartyMon
	ld d, h
	lb bc, wPartyMon6Moves & $ff, 4
	call .CombineLowerNybblesIntoBytes_BAsLowByteForE
	inc hl
	lb bc, wPartyMon6DVs & $ff, 2
	call .CombineLowerNybblesIntoBytes_BAsLowByteForE
	lb bc, wPartyMon6OTID & $ff, 2
	call .CombineLowerNybblesIntoBytes_BAsLowByteForE
	ld l, wPartyMonNicknames + NAME_LENGTH * 2
	ld c, 3
	call .CombineLowerNybblesIntoBytes
	ld e, (wPartyMonNicknames + NAME_LENGTH * 3) & $ff
	ld l, (wPartyMonNicknames + NAME_LENGTH * 5) & $ff
	call CopyString
	ld e, (wPartyMonNicknames + NAME_LENGTH * 4) & $ff
	ld l, (wPartyMonOT + NAME_LENGTH * 5) & $ff
	call CopyString
.loop
	call MoveMon
	jr nc, .loop
	jpba SaveSAVToSRAM

.CombineLowerNybblesIntoBytes_BAsLowByteForE:
	ld e, b

.CombineLowerNybblesIntoBytes:
	ld a, [hli]
	add a
	ld b, a
	ld a, [hli]
	add b
	ld [de], a
	inc de
	dec c
	jr nz, .CombineLowerNybblesIntoBytes
	ret