Merge pull request #163 from camthesaxman/intro

decompile more intro functions

6 files changed, 806 insertions, 1897 deletions

diff --git a/asm/intro.s b/asm/intro.s
index ee91e7660..e98fbaf8c 100644
--- a/asm/intro.s
+++ b/asm/intro.s
@@ -6,1889 +6,6 @@
 
 	.text
 
-	thumb_func_start sub_813CAF4
-sub_813CAF4: @ 813CAF4
-	push {r4-r6,lr}
-	sub sp, 0x4
-	lsls r0, 24
-	lsrs r5, r0, 24
-	ldr r1, _0813CB2C @ =gTasks
-	lsls r0, r5, 2
-	adds r0, r5
-	lsls r0, 3
-	adds r4, r0, r1
-	ldrh r0, [r4, 0x26]
-	adds r0, 0x1
-	movs r6, 0
-	strh r0, [r4, 0x26]
-	movs r1, 0x8
-	ldrsh r0, [r4, r1]
-	cmp r0, 0x4
-	bne _0813CB18
-	b _0813CC28
-_0813CB18:
-	cmp r0, 0x4
-	bgt _0813CB30
-	cmp r0, 0x2
-	beq _0813CB60
-	cmp r0, 0x2
-	bgt _0813CBC4
-	cmp r0, 0
-	beq _0813CB46
-	b _0813CC8E
-	.align 2, 0
-_0813CB2C: .4byte gTasks
-_0813CB30:
-	cmp r0, 0x1E
-	beq _0813CBEE
-	cmp r0, 0x1E
-	bgt _0813CB3E
-	cmp r0, 0x14
-	beq _0813CB8A
-	b _0813CC8E
-_0813CB3E:
-	cmp r0, 0x28
-	bne _0813CB44
-	b _0813CC56
-_0813CB44:
-	b _0813CC8E
-_0813CB46:
-	movs r1, 0x80
-	lsls r1, 19
-	movs r2, 0xE5
-	lsls r2, 6
-	adds r0, r2, 0
-	strh r0, [r1]
-	ldr r0, _0813CB5C @ =REG_BG2CNT
-	strh r6, [r0]
-	movs r0, 0xFF
-	strh r0, [r4, 0x8]
-	b _0813CC8E
-	.align 2, 0
-_0813CB5C: .4byte REG_BG2CNT
-_0813CB60:
-	ldr r0, _0813CBB0 @ =0x0000ffff
-	str r0, [sp]
-	movs r0, 0x1
-	movs r1, 0
-	movs r2, 0x10
-	movs r3, 0
-	bl BeginNormalPaletteFade
-	ldr r1, _0813CBB4 @ =REG_BG2CNT
-	ldr r2, _0813CBB8 @ =0x00000e07
-	adds r0, r2, 0
-	strh r0, [r1]
-	subs r1, 0xC
-	movs r2, 0xF5
-	lsls r2, 6
-	adds r0, r2, 0
-	strh r0, [r1]
-	strh r6, [r4, 0xA]
-	strh r6, [r4, 0xC]
-	movs r0, 0x14
-	strh r0, [r4, 0x8]
-_0813CB8A:
-	ldr r2, _0813CBBC @ =REG_BG2VOFS
-	ldr r0, _0813CBC0 @ =gTasks
-	lsls r1, r5, 2
-	adds r1, r5
-	lsls r1, 3
-	adds r1, r0
-	ldrh r0, [r1, 0xA]
-	strh r0, [r2]
-	subs r2, 0x2
-	ldrh r0, [r1, 0xC]
-	strh r0, [r2]
-	ldrh r0, [r1, 0xA]
-	adds r0, 0x6
-	strh r0, [r1, 0xA]
-	ldrh r0, [r1, 0xC]
-	subs r0, 0x8
-	strh r0, [r1, 0xC]
-	b _0813CC8E
-	.align 2, 0
-_0813CBB0: .4byte 0x0000ffff
-_0813CBB4: .4byte REG_BG2CNT
-_0813CBB8: .4byte 0x00000e07
-_0813CBBC: .4byte REG_BG2VOFS
-_0813CBC0: .4byte gTasks
-_0813CBC4:
-	ldr r0, _0813CC14 @ =0x0000ffff
-	str r0, [sp]
-	movs r0, 0x1
-	movs r1, 0
-	movs r2, 0x10
-	movs r3, 0
-	bl BeginNormalPaletteFade
-	ldr r1, _0813CC18 @ =REG_BG2CNT
-	ldr r2, _0813CC1C @ =0x00000e07
-	adds r0, r2, 0
-	strh r0, [r1]
-	subs r1, 0xC
-	movs r2, 0xF5
-	lsls r2, 6
-	adds r0, r2, 0
-	strh r0, [r1]
-	strh r6, [r4, 0xA]
-	strh r6, [r4, 0xC]
-	movs r0, 0x1E
-	strh r0, [r4, 0x8]
-_0813CBEE:
-	ldr r2, _0813CC20 @ =REG_BG2VOFS
-	ldr r0, _0813CC24 @ =gTasks
-	lsls r1, r5, 2
-	adds r1, r5
-	lsls r1, 3
-	adds r1, r0
-	ldrh r0, [r1, 0xA]
-	strh r0, [r2]
-	subs r2, 0x2
-	ldrh r0, [r1, 0xC]
-	strh r0, [r2]
-	ldrh r0, [r1, 0xA]
-	subs r0, 0x6
-	strh r0, [r1, 0xA]
-	ldrh r0, [r1, 0xC]
-	adds r0, 0x8
-	strh r0, [r1, 0xC]
-	b _0813CC8E
-	.align 2, 0
-_0813CC14: .4byte 0x0000ffff
-_0813CC18: .4byte REG_BG2CNT
-_0813CC1C: .4byte 0x00000e07
-_0813CC20: .4byte REG_BG2VOFS
-_0813CC24: .4byte gTasks
-_0813CC28:
-	ldr r0, _0813CC98 @ =0x000037f7
-	str r0, [sp]
-	movs r0, 0x1
-	movs r1, 0x5
-	movs r2, 0
-	movs r3, 0x10
-	bl BeginNormalPaletteFade
-	ldr r1, _0813CC9C @ =REG_BG2CNT
-	ldr r2, _0813CCA0 @ =0x00000e07
-	adds r0, r2, 0
-	strh r0, [r1]
-	subs r1, 0xC
-	movs r2, 0xF5
-	lsls r2, 6
-	adds r0, r2, 0
-	strh r0, [r1]
-	strh r6, [r4, 0xA]
-	strh r6, [r4, 0xC]
-	movs r0, 0x8
-	strh r0, [r4, 0xE]
-	movs r0, 0x28
-	strh r0, [r4, 0x8]
-_0813CC56:
-	ldr r2, _0813CCA4 @ =REG_BG2VOFS
-	ldr r1, _0813CCA8 @ =gTasks
-	lsls r0, r5, 2
-	adds r0, r5
-	lsls r0, 3
-	adds r3, r0, r1
-	ldrh r0, [r3, 0xA]
-	strh r0, [r2]
-	ldr r1, _0813CCAC @ =REG_BG2HOFS
-	ldrh r0, [r3, 0xC]
-	strh r0, [r1]
-	ldrh r0, [r3, 0xA]
-	ldrh r2, [r3, 0xE]
-	subs r0, r2
-	strh r0, [r3, 0xA]
-	ldrh r1, [r3, 0xC]
-	adds r0, r2, r1
-	strh r0, [r3, 0xC]
-	ldrh r1, [r3, 0x26]
-	movs r0, 0x7
-	ands r0, r1
-	cmp r0, 0
-	bne _0813CC8E
-	lsls r0, r2, 16
-	cmp r0, 0
-	beq _0813CC8E
-	subs r0, r2, 0x1
-	strh r0, [r3, 0xE]
-_0813CC8E:
-	add sp, 0x4
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813CC98: .4byte 0x000037f7
-_0813CC9C: .4byte REG_BG2CNT
-_0813CCA0: .4byte 0x00000e07
-_0813CCA4: .4byte REG_BG2VOFS
-_0813CCA8: .4byte gTasks
-_0813CCAC: .4byte REG_BG2HOFS
-	thumb_func_end sub_813CAF4
-
-	thumb_func_start intro_reset_and_hide_bgs
-intro_reset_and_hide_bgs: @ 813CCB0
-	movs r0, 0x80
-	lsls r0, 19
-	movs r1, 0
-	strh r1, [r0]
-	adds r0, 0x1C
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	subs r0, 0x6
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	subs r0, 0x6
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	subs r0, 0x6
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	adds r0, 0x3E
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	adds r0, 0x2
-	strh r1, [r0]
-	bx lr
-	thumb_func_end intro_reset_and_hide_bgs
-
-	thumb_func_start sub_813CCE8
-sub_813CCE8: @ 813CCE8
-	push {r4,lr}
-	lsls r0, 24
-	lsrs r3, r0, 24
-	ldr r1, _0813CD0C @ =gTasks
-	lsls r0, r3, 2
-	adds r0, r3
-	lsls r0, 3
-	adds r0, r1
-	movs r2, 0x8
-	ldrsh r0, [r0, r2]
-	adds r2, r1, 0
-	cmp r0, 0x4
-	bhi _0813CD28
-	lsls r0, 2
-	ldr r1, _0813CD10 @ =_0813CD14
-	adds r0, r1
-	ldr r0, [r0]
-	mov pc, r0
-	.align 2, 0
-_0813CD0C: .4byte gTasks
-_0813CD10: .4byte _0813CD14
-	.align 2, 0
-_0813CD14:
-	.4byte _0813CD28
-	.4byte _0813CD5C
-	.4byte _0813CD8C
-	.4byte _0813CDA8
-	.4byte _0813CDFC
-_0813CD28:
-	ldr r1, _0813CD54 @ =REG_BLDCNT
-	ldr r4, _0813CD58 @ =0x00003f50
-	adds r0, r4, 0
-	strh r0, [r1]
-	adds r1, 0x2
-	movs r4, 0x80
-	lsls r4, 5
-	adds r0, r4, 0
-	strh r0, [r1]
-	adds r1, 0x2
-	movs r0, 0
-	strh r0, [r1]
-	lsls r0, r3, 2
-	adds r0, r3
-	lsls r0, 3
-	adds r0, r2
-	movs r1, 0x40
-	strh r1, [r0, 0xA]
-	movs r1, 0x1
-	strh r1, [r0, 0x8]
-	b _0813CE26
-	.align 2, 0
-_0813CD54: .4byte REG_BLDCNT
-_0813CD58: .4byte 0x00003f50
-_0813CD5C:
-	lsls r0, r3, 2
-	adds r0, r3
-	lsls r0, 3
-	adds r2, r0, r2
-	ldrh r1, [r2, 0xA]
-	movs r3, 0xA
-	ldrsh r0, [r2, r3]
-	cmp r0, 0
-	beq _0813CD78
-	subs r0, r1, 0x1
-	strh r0, [r2, 0xA]
-	movs r4, 0xA
-	ldrsh r0, [r2, r4]
-	b _0813CDC2
-_0813CD78:
-	ldr r1, _0813CD84 @ =REG_BLDALPHA
-	ldr r0, _0813CD88 @ =gUnknown_08393E64
-	ldrh r0, [r0]
-	strh r0, [r1]
-	movs r0, 0x80
-	b _0813CDEA
-	.align 2, 0
-_0813CD84: .4byte REG_BLDALPHA
-_0813CD88: .4byte gUnknown_08393E64
-_0813CD8C:
-	lsls r0, r3, 2
-	adds r0, r3
-	lsls r0, 3
-	adds r1, r0, r2
-	ldrh r0, [r1, 0xA]
-	movs r3, 0xA
-	ldrsh r2, [r1, r3]
-	cmp r2, 0
-	bne _0813CE0E
-	strh r2, [r1, 0xA]
-	ldrh r0, [r1, 0x8]
-	adds r0, 0x1
-	strh r0, [r1, 0x8]
-	b _0813CE26
-_0813CDA8:
-	lsls r0, r3, 2
-	adds r0, r3
-	lsls r0, 3
-	adds r2, r0, r2
-	ldrh r1, [r2, 0xA]
-	movs r4, 0xA
-	ldrsh r0, [r2, r4]
-	cmp r0, 0x3D
-	bgt _0813CDE0
-	adds r0, r1, 0x1
-	strh r0, [r2, 0xA]
-	movs r1, 0xA
-	ldrsh r0, [r2, r1]
-_0813CDC2:
-	lsrs r1, r0, 31
-	adds r0, r1
-	movs r2, 0xFF
-	lsls r2, 1
-	ldr r3, _0813CDD8 @ =REG_BLDALPHA
-	ldr r1, _0813CDDC @ =gUnknown_08393E64
-	ands r0, r2
-	adds r0, r1
-	ldrh r0, [r0]
-	strh r0, [r3]
-	b _0813CE26
-	.align 2, 0
-_0813CDD8: .4byte REG_BLDALPHA
-_0813CDDC: .4byte gUnknown_08393E64
-_0813CDE0:
-	ldr r1, _0813CDF4 @ =REG_BLDALPHA
-	ldr r0, _0813CDF8 @ =gUnknown_08393E64
-	ldrh r0, [r0, 0x3E]
-	strh r0, [r1]
-	movs r0, 0x10
-_0813CDEA:
-	strh r0, [r2, 0xA]
-	ldrh r0, [r2, 0x8]
-	adds r0, 0x1
-	strh r0, [r2, 0x8]
-	b _0813CE26
-	.align 2, 0
-_0813CDF4: .4byte REG_BLDALPHA
-_0813CDF8: .4byte gUnknown_08393E64
-_0813CDFC:
-	lsls r0, r3, 2
-	adds r0, r3
-	lsls r0, 3
-	adds r1, r0, r2
-	ldrh r0, [r1, 0xA]
-	movs r4, 0xA
-	ldrsh r2, [r1, r4]
-	cmp r2, 0
-	beq _0813CE14
-_0813CE0E:
-	subs r0, 0x1
-	strh r0, [r1, 0xA]
-	b _0813CE26
-_0813CE14:
-	ldr r0, _0813CE2C @ =REG_BLDCNT
-	strh r2, [r0]
-	adds r0, 0x2
-	strh r2, [r0]
-	adds r0, 0x2
-	strh r2, [r0]
-	adds r0, r3, 0
-	bl DestroyTask
-_0813CE26:
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813CE2C: .4byte REG_BLDCNT
-	thumb_func_end sub_813CCE8
-
-	thumb_func_start sub_813CE30
-sub_813CE30: @ 813CE30
-	push {r4,lr}
-	sub sp, 0x24
-	lsls r2, 16
-	lsrs r2, 16
-	movs r4, 0x80
-	lsls r4, 8
-	str r4, [sp]
-	str r4, [sp, 0x4]
-	mov r4, sp
-	strh r0, [r4, 0x8]
-	mov r0, sp
-	strh r1, [r0, 0xA]
-	strh r2, [r0, 0xC]
-	strh r2, [r0, 0xE]
-	strh r3, [r0, 0x10]
-	add r4, sp, 0x14
-	adds r1, r4, 0
-	movs r2, 0x1
-	bl BgAffineSet
-	ldr r1, _0813CE84 @ =REG_BG2PA
-	ldrh r0, [r4]
-	strh r0, [r1]
-	adds r1, 0x2
-	ldrh r0, [r4, 0x2]
-	strh r0, [r1]
-	adds r1, 0x2
-	ldrh r0, [r4, 0x4]
-	strh r0, [r1]
-	adds r1, 0x2
-	ldrh r0, [r4, 0x6]
-	strh r0, [r1]
-	adds r1, 0x2
-	ldr r0, [r4, 0x8]
-	str r0, [r1]
-	adds r1, 0x4
-	ldr r0, [r4, 0xC]
-	str r0, [r1]
-	add sp, 0x24
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813CE84: .4byte REG_BG2PA
-	thumb_func_end sub_813CE30
-
-	thumb_func_start sub_813CE88
-sub_813CE88: @ 813CE88
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x10
-	ldr r4, [sp, 0x30]
-	lsls r0, 16
-	lsrs r7, r0, 16
-	lsls r1, 16
-	lsrs r1, 16
-	mov r9, r1
-	lsls r2, 16
-	lsrs r2, 16
-	mov r10, r2
-	lsls r3, 16
-	lsrs r3, 16
-	mov r8, r3
-	lsls r4, 24
-	lsrs r6, r4, 24
-	cmp r6, 0
-	beq _0813CEF0
-	lsls r0, r7, 3
-	ldr r1, _0813CEE4 @ =gMonFrontPicTable
-	adds r0, r1
-	ldr r1, _0813CEE8 @ =gMonFrontPicCoords
-	lsls r2, r7, 2
-	adds r2, r1
-	ldrb r1, [r2]
-	ldrb r2, [r2, 0x1]
-	movs r3, 0x80
-	lsls r3, 18
-	ldr r5, _0813CEEC @ =gUnknown_0840B5A0
-	mov r6, r8
-	lsls r4, r6, 2
-	adds r4, r5
-	ldr r4, [r4]
-	str r4, [sp]
-	str r7, [sp, 0x4]
-	movs r4, 0
-	str r4, [sp, 0x8]
-	movs r4, 0x1
-	str r4, [sp, 0xC]
-	bl LoadSpecialPokePic
-	b _0813CF1C
-	.align 2, 0
-_0813CEE4: .4byte gMonFrontPicTable
-_0813CEE8: .4byte gMonFrontPicCoords
-_0813CEEC: .4byte gUnknown_0840B5A0
-_0813CEF0:
-	lsls r0, r7, 3
-	ldr r1, _0813CF90 @ =gMonBackPicTable
-	adds r0, r1
-	ldr r1, _0813CF94 @ =gMonBackPicCoords
-	lsls r2, r7, 2
-	adds r2, r1
-	ldrb r1, [r2]
-	ldrb r2, [r2, 0x1]
-	movs r3, 0x80
-	lsls r3, 18
-	ldr r4, _0813CF98 @ =gUnknown_0840B5A0
-	mov r12, r4
-	mov r5, r8
-	lsls r4, r5, 2
-	add r4, r12
-	ldr r4, [r4]
-	str r4, [sp]
-	str r7, [sp, 0x4]
-	str r6, [sp, 0x8]
-	str r6, [sp, 0xC]
-	bl LoadSpecialPokePic
-_0813CF1C:
-	ldr r2, _0813CF9C @ =0x0000ffff
-	adds r0, r7, 0
-	movs r1, 0
-	bl species_and_otid_get_pal
-	mov r6, r8
-	lsls r4, r6, 4
-	movs r2, 0x80
-	lsls r2, 1
-	adds r1, r4, r2
-	lsls r1, 16
-	lsrs r1, 16
-	movs r2, 0x20
-	bl LoadCompressedPalette
-	lsls r1, r6, 24
-	lsrs r1, 24
-	mov r0, r8
-	bl sub_8143648
-	ldr r0, _0813CFA0 @ =gUnknown_02024E8C
-	mov r3, r9
-	lsls r1, r3, 16
-	asrs r1, 16
-	mov r5, r10
-	lsls r2, r5, 16
-	asrs r2, 16
-	mov r3, r8
-	adds r3, 0x1
-	lsls r3, 26
-	lsrs r3, 24
-	bl CreateSprite
-	lsls r0, 24
-	lsrs r0, 24
-	ldr r1, _0813CFA4 @ =gSprites
-	lsls r2, r0, 4
-	adds r2, r0
-	lsls r2, 2
-	adds r2, r1
-	ldrb r3, [r2, 0x5]
-	movs r1, 0xF
-	ands r1, r3
-	orrs r1, r4
-	movs r3, 0xD
-	negs r3, r3
-	ands r1, r3
-	movs r3, 0x4
-	orrs r1, r3
-	strb r1, [r2, 0x5]
-	add sp, 0x10
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_0813CF90: .4byte gMonBackPicTable
-_0813CF94: .4byte gMonBackPicCoords
-_0813CF98: .4byte gUnknown_0840B5A0
-_0813CF9C: .4byte 0x0000ffff
-_0813CFA0: .4byte gUnknown_02024E8C
-_0813CFA4: .4byte gSprites
-	thumb_func_end sub_813CE88
-
-	thumb_func_start sub_813CFA8
-sub_813CFA8: @ 813CFA8
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x8
-	mov r9, r1
-	mov r10, r2
-	adds r6, r3, 0
-	lsls r0, 16
-	lsrs r0, 16
-	lsls r1, 16
-	lsrs r1, 16
-	mov r9, r1
-	lsls r2, 16
-	lsrs r2, 16
-	mov r10, r2
-	lsls r6, 16
-	lsrs r6, 16
-	lsls r7, r0, 3
-	ldr r1, _0813D068 @ =gTrainerBackPicTable
-	mov r8, r1
-	add r8, r7
-	ldr r1, _0813D06C @ =gTrainerBackPicCoords
-	lsls r2, r0, 2
-	adds r2, r1
-	ldrb r1, [r2]
-	ldrb r2, [r2, 0x1]
-	movs r3, 0x80
-	lsls r3, 18
-	ldr r5, _0813D070 @ =gUnknown_0840B5A0
-	lsls r4, r6, 2
-	adds r4, r5
-	ldr r4, [r4]
-	str r4, [sp]
-	str r0, [sp, 0x4]
-	mov r0, r8
-	bl DecompressPicFromTable_2
-	ldr r0, _0813D074 @ =gTrainerBackPicPaletteTable
-	adds r0, r7, r0
-	ldr r0, [r0]
-	lsls r4, r6, 4
-	movs r2, 0x80
-	lsls r2, 1
-	adds r1, r4, r2
-	lsls r1, 16
-	lsrs r1, 16
-	movs r2, 0x20
-	bl LoadCompressedPalette
-	lsls r1, r6, 24
-	lsrs r1, 24
-	adds r0, r6, 0
-	bl sub_8143680
-	ldr r0, _0813D078 @ =gUnknown_02024E8C
-	ldr r1, _0813D07C @ =gUnknown_0840B064
-	str r1, [r0, 0x8]
-	mov r1, r9
-	lsls r1, 16
-	asrs r1, 16
-	mov r9, r1
-	mov r2, r10
-	lsls r2, 16
-	asrs r2, 16
-	mov r10, r2
-	movs r3, 0x1
-	bl CreateSprite
-	lsls r0, 24
-	lsrs r0, 24
-	ldr r1, _0813D080 @ =gSprites
-	lsls r2, r0, 4
-	adds r2, r0
-	lsls r2, 2
-	adds r2, r1
-	ldrb r3, [r2, 0x5]
-	movs r1, 0xF
-	ands r1, r3
-	orrs r1, r4
-	movs r3, 0xD
-	negs r3, r3
-	ands r1, r3
-	movs r3, 0x4
-	orrs r1, r3
-	strb r1, [r2, 0x5]
-	add sp, 0x8
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_0813D068: .4byte gTrainerBackPicTable
-_0813D06C: .4byte gTrainerBackPicCoords
-_0813D070: .4byte gUnknown_0840B5A0
-_0813D074: .4byte gTrainerBackPicPaletteTable
-_0813D078: .4byte gUnknown_02024E8C
-_0813D07C: .4byte gUnknown_0840B064
-_0813D080: .4byte gSprites
-	thumb_func_end sub_813CFA8
-
-	thumb_func_start sub_813D084
-sub_813D084: @ 813D084
-	push {lr}
-	lsls r0, 24
-	lsrs r0, 24
-	cmp r0, 0x1
-	beq _0813D0A0
-	cmp r0, 0x1
-	ble _0813D096
-	cmp r0, 0x2
-	beq _0813D0A8
-_0813D096:
-	ldr r2, _0813D09C @ =0x00003ff6
-	b _0813D0AA
-	.align 2, 0
-_0813D09C: .4byte 0x00003ff6
-_0813D0A0:
-	ldr r2, _0813D0A4 @ =0x000031df
-	b _0813D0AA
-	.align 2, 0
-_0813D0A4: .4byte 0x000031df
-_0813D0A8:
-	ldr r2, _0813D0C0 @ =0x0000518c
-_0813D0AA:
-	ldr r0, _0813D0C4 @ =gPlttBufferUnfaded
-	movs r1, 0xF1
-	lsls r1, 1
-	adds r0, r1
-	strh r2, [r0]
-	ldr r0, _0813D0C8 @ =gPlttBufferFaded
-	adds r0, r1
-	strh r2, [r0]
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D0C0: .4byte 0x0000518c
-_0813D0C4: .4byte gPlttBufferUnfaded
-_0813D0C8: .4byte gPlttBufferFaded
-	thumb_func_end sub_813D084
-
-	thumb_func_start sub_813D0CC
-sub_813D0CC: @ 813D0CC
-	push {r4,lr}
-	sub sp, 0x4
-	adds r4, r0, 0
-	movs r1, 0x32
-	ldrsh r0, [r4, r1]
-	cmp r0, 0xBF
-	ble _0813D148
-	ldrh r1, [r4, 0x34]
-	movs r2, 0x34
-	ldrsh r0, [r4, r2]
-	cmp r0, 0
-	beq _0813D0EA
-	subs r0, r1, 0x1
-	strh r0, [r4, 0x34]
-	b _0813D14E
-_0813D0EA:
-	adds r2, r4, 0
-	adds r2, 0x3E
-	ldrb r1, [r2]
-	movs r0, 0x5
-	negs r0, r0
-	ands r0, r1
-	strb r0, [r2]
-	ldrh r0, [r4, 0x30]
-	lsls r0, 24
-	lsrs r0, 24
-	ldrh r1, [r4, 0x32]
-	str r1, [sp]
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	movs r0, 0x32
-	ldrsh r1, [r4, r0]
-	lsls r0, r1, 1
-	adds r0, r1
-	lsls r0, 5
-	subs r0, r1
-	movs r1, 0x64
-	bl __divsi3
-	strh r0, [r4, 0x32]
-	movs r2, 0x32
-	ldrsh r1, [r4, r2]
-	adds r0, r1, 0
-	subs r0, 0xC0
-	cmp r0, 0
-	bge _0813D12C
-	adds r0, 0x7F
-_0813D12C:
-	asrs r0, 7
-	adds r0, 0x9
-	lsls r0, 24
-	lsrs r0, 24
-	cmp r0, 0xF
-	bls _0813D13A
-	movs r0, 0xF
-_0813D13A:
-	lsls r2, r0, 4
-	ldrb r1, [r4, 0x5]
-	movs r0, 0xF
-	ands r0, r1
-	orrs r0, r2
-	strb r0, [r4, 0x5]
-	b _0813D14E
-_0813D148:
-	adds r0, r4, 0
-	bl DestroySprite
-_0813D14E:
-	add sp, 0x4
-	pop {r4}
-	pop {r0}
-	bx r0
-	thumb_func_end sub_813D0CC
-
-	thumb_func_start sub_813D158
-sub_813D158: @ 813D158
-	push {r4,lr}
-	adds r4, r0, 0
-	ldr r2, _0813D1CC @ =gSprites
-	movs r1, 0x3C
-	ldrsh r0, [r4, r1]
-	lsls r1, r0, 4
-	adds r1, r0
-	lsls r1, 2
-	adds r1, r2
-	movs r3, 0x3C
-	ldrsh r0, [r1, r3]
-	cmp r0, 0
-	beq _0813D1D4
-	adds r2, r4, 0
-	adds r2, 0x3E
-	ldrb r0, [r2]
-	movs r1, 0x4
-	orrs r0, r1
-	strb r0, [r2]
-	ldrh r0, [r4, 0x24]
-	ldrh r1, [r4, 0x20]
-	adds r0, r1
-	strh r0, [r4, 0x20]
-	ldrh r0, [r4, 0x26]
-	ldrh r3, [r4, 0x22]
-	adds r0, r3
-	strh r0, [r4, 0x22]
-	adds r0, r4, 0
-	movs r1, 0x3
-	bl StartSpriteAnim
-	movs r0, 0x80
-	lsls r0, 3
-	strh r0, [r4, 0x32]
-	ldrh r1, [r4, 0x30]
-	movs r0, 0x3
-	ands r0, r1
-	lsls r0, 3
-	strh r0, [r4, 0x34]
-	ldr r0, _0813D1D0 @ =sub_813D0CC
-	str r0, [r4, 0x1C]
-	ldrb r1, [r4, 0x1]
-	movs r0, 0x3F
-	ands r0, r1
-	movs r1, 0x40
-	orrs r0, r1
-	strb r0, [r4, 0x1]
-	ldrb r0, [r4, 0x3]
-	movs r1, 0xC0
-	orrs r0, r1
-	strb r0, [r4, 0x3]
-	adds r0, r4, 0
-	movs r1, 0x1
-	movs r2, 0x3
-	movs r3, 0x2
-	bl CalcCenterToCornerVec
-	b _0813D200
-	.align 2, 0
-_0813D1CC: .4byte gSprites
-_0813D1D0: .4byte sub_813D0CC
-_0813D1D4:
-	ldrh r0, [r1, 0x24]
-	strh r0, [r4, 0x24]
-	movs r0, 0x3C
-	ldrsh r1, [r4, r0]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r2
-	ldrh r0, [r0, 0x26]
-	strh r0, [r4, 0x26]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r2
-	ldrh r0, [r0, 0x20]
-	strh r0, [r4, 0x20]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r2
-	ldrh r0, [r0, 0x22]
-	strh r0, [r4, 0x22]
-_0813D200:
-	pop {r4}
-	pop {r0}
-	bx r0
-	thumb_func_end sub_813D158
-
-	thumb_func_start sub_813D208
-sub_813D208: @ 813D208
-	push {lr}
-	adds r1, r0, 0
-	movs r2, 0x2E
-	ldrsh r0, [r1, r2]
-	cmp r0, 0
-	beq _0813D218
-	ldr r0, _0813D21C @ =sub_813D220
-	str r0, [r1, 0x1C]
-_0813D218:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D21C: .4byte sub_813D220
-	thumb_func_end sub_813D208
-
-	thumb_func_start sub_813D220
-sub_813D220: @ 813D220
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x4
-	adds r7, r0, 0
-	ldrh r4, [r7, 0x20]
-	movs r1, 0x20
-	ldrsh r0, [r7, r1]
-	cmp r0, 0x74
-	bgt _0813D260
-	ldrh r0, [r7, 0x26]
-	ldrh r1, [r7, 0x22]
-	adds r0, r1
-	movs r1, 0
-	strh r0, [r7, 0x22]
-	strh r1, [r7, 0x26]
-	adds r0, r4, 0x4
-	strh r0, [r7, 0x20]
-	ldr r0, _0813D258 @ =0x0000fffc
-	strh r0, [r7, 0x24]
-	movs r0, 0x80
-	strh r0, [r7, 0x36]
-	ldr r0, _0813D25C @ =sub_813D368
-	str r0, [r7, 0x1C]
-	b _0813D352
-	.align 2, 0
-_0813D258: .4byte 0x0000fffc
-_0813D25C: .4byte sub_813D368
-_0813D260:
-	ldrh r1, [r7, 0x36]
-	ldr r5, _0813D364 @ =gSineTable
-	lsls r0, r1, 24
-	lsrs r0, 23
-	adds r0, r5
-	ldrh r2, [r0]
-	adds r0, r1, 0
-	adds r0, 0x40
-	lsls r0, 24
-	lsrs r0, 23
-	adds r0, r5
-	ldrh r3, [r0]
-	adds r1, 0x2
-	strh r1, [r7, 0x36]
-	lsls r2, 16
-	asrs r0, r2, 16
-	cmp r0, 0
-	bge _0813D286
-	adds r0, 0x1F
-_0813D286:
-	asrs r0, 5
-	strh r0, [r7, 0x26]
-	subs r0, r4, 0x1
-	strh r0, [r7, 0x20]
-	movs r1, 0x1
-	ands r0, r1
-	cmp r0, 0
-	beq _0813D29C
-	ldrh r0, [r7, 0x22]
-	adds r0, 0x1
-	strh r0, [r7, 0x22]
-_0813D29C:
-	lsls r0, r3, 16
-	asrs r0, 16
-	negs r0, r0
-	cmp r0, 0
-	bge _0813D2A8
-	adds r0, 0xF
-_0813D2A8:
-	lsls r1, r0, 12
-	lsrs r1, 16
-	ldrh r4, [r7, 0x32]
-	ldrh r3, [r7, 0x34]
-	adds r0, r1, 0
-	subs r0, 0x10
-	lsls r0, 24
-	lsrs r0, 23
-	adds r0, r5
-	ldrh r2, [r0]
-	adds r1, 0x30
-	lsls r1, 24
-	lsrs r1, 23
-	adds r1, r5
-	movs r0, 0
-	ldrsh r1, [r1, r0]
-	adds r0, r1, 0
-	muls r0, r4
-	cmp r0, 0
-	bge _0813D2D2
-	adds r0, 0xFF
-_0813D2D2:
-	lsls r0, 8
-	lsrs r0, 16
-	mov r8, r0
-	lsls r0, r2, 16
-	asrs r2, r0, 16
-	negs r0, r2
-	muls r0, r3
-	cmp r0, 0
-	bge _0813D2E6
-	adds r0, 0xFF
-_0813D2E6:
-	lsls r0, 8
-	lsrs r0, 16
-	mov r10, r0
-	adds r0, r2, 0
-	muls r0, r4
-	cmp r0, 0
-	bge _0813D2F6
-	adds r0, 0xFF
-_0813D2F6:
-	lsls r0, 8
-	lsrs r5, r0, 16
-	adds r0, r1, 0
-	muls r0, r3
-	cmp r0, 0
-	bge _0813D304
-	adds r0, 0xFF
-_0813D304:
-	lsls r6, r0, 8
-	lsrs r6, 16
-	ldrh r0, [r7, 0x30]
-	lsls r0, 24
-	lsrs r0, 24
-	str r3, [sp]
-	adds r1, r4, 0
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	ldrh r0, [r7, 0x30]
-	adds r0, 0x1
-	lsls r0, 24
-	lsrs r0, 24
-	mov r9, r5
-	mov r1, r10
-	lsls r5, r1, 16
-	lsrs r3, r5, 16
-	lsls r4, r6, 16
-	str r6, [sp]
-	mov r1, r8
-	mov r2, r9
-	bl SetOamMatrix
-	ldrh r0, [r7, 0x30]
-	adds r0, 0x2
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r5, 1
-	lsrs r5, 16
-	lsls r4, 1
-	lsrs r4, 16
-	str r4, [sp]
-	mov r1, r8
-	mov r2, r9
-	adds r3, r5, 0
-	bl SetOamMatrix
-_0813D352:
-	add sp, 0x4
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D364: .4byte gSineTable
-	thumb_func_end sub_813D220
-
-	thumb_func_start sub_813D368
-sub_813D368: @ 813D368
-	push {r4,lr}
-	sub sp, 0x4
-	adds r4, r0, 0
-	ldrh r0, [r4, 0x30]
-	lsls r0, 24
-	lsrs r0, 24
-	ldrh r1, [r4, 0x3A]
-	adds r1, 0x40
-	lsls r1, 16
-	lsrs r1, 16
-	str r1, [sp]
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	ldrh r0, [r4, 0x30]
-	adds r0, 0x1
-	lsls r0, 24
-	lsrs r0, 24
-	ldrh r1, [r4, 0x3A]
-	adds r1, 0x40
-	lsls r1, 16
-	lsrs r1, 16
-	str r1, [sp]
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	ldrh r0, [r4, 0x30]
-	adds r0, 0x2
-	lsls r0, 24
-	lsrs r0, 24
-	ldrh r1, [r4, 0x3A]
-	adds r1, 0x40
-	lsls r1, 16
-	lsrs r1, 16
-	str r1, [sp]
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	ldrh r1, [r4, 0x36]
-	movs r2, 0x36
-	ldrsh r0, [r4, r2]
-	cmp r0, 0x40
-	beq _0813D400
-	adds r0, r1, 0
-	subs r0, 0x8
-	strh r0, [r4, 0x36]
-	ldrh r0, [r4, 0x36]
-	adds r1, r0, 0
-	ldr r2, _0813D3FC @ =gSineTable
-	adds r0, 0x40
-	lsls r0, 24
-	lsrs r0, 23
-	adds r0, r2
-	movs r3, 0
-	ldrsh r0, [r0, r3]
-	cmp r0, 0
-	bge _0813D3E2
-	adds r0, 0x3F
-_0813D3E2:
-	asrs r0, 6
-	strh r0, [r4, 0x24]
-	lsls r0, r1, 24
-	lsrs r0, 23
-	adds r0, r2
-	movs r1, 0
-	ldrsh r0, [r0, r1]
-	cmp r0, 0
-	bge _0813D3F6
-	adds r0, 0x3F
-_0813D3F6:
-	asrs r0, 6
-	strh r0, [r4, 0x26]
-	b _0813D408
-	.align 2, 0
-_0813D3FC: .4byte gSineTable
-_0813D400:
-	movs r0, 0
-	strh r0, [r4, 0x36]
-	ldr r0, _0813D410 @ =sub_813D414
-	str r0, [r4, 0x1C]
-_0813D408:
-	add sp, 0x4
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D410: .4byte sub_813D414
-	thumb_func_end sub_813D368
-
-	thumb_func_start sub_813D414
-sub_813D414: @ 813D414
-	push {r4,lr}
-	adds r1, r0, 0
-	movs r2, 0x2E
-	ldrsh r0, [r1, r2]
-	cmp r0, 0x2
-	beq _0813D474
-	ldrh r0, [r1, 0x36]
-	adds r0, 0x8
-	strh r0, [r1, 0x36]
-	ldr r3, _0813D470 @ =gSineTable
-	lsls r0, 24
-	lsrs r0, 23
-	adds r0, r3
-	movs r4, 0
-	ldrsh r0, [r0, r4]
-	cmp r0, 0
-	bge _0813D438
-	adds r0, 0xF
-_0813D438:
-	asrs r0, 4
-	adds r0, 0x40
-	lsls r0, 16
-	lsrs r2, r0, 16
-	adds r0, r2, 0
-	adds r0, 0x40
-	lsls r0, 24
-	lsrs r0, 23
-	adds r0, r3
-	movs r4, 0
-	ldrsh r0, [r0, r4]
-	cmp r0, 0
-	bge _0813D454
-	adds r0, 0x3F
-_0813D454:
-	asrs r0, 6
-	strh r0, [r1, 0x24]
-	lsls r0, r2, 24
-	lsrs r0, 23
-	adds r0, r3
-	movs r2, 0
-	ldrsh r0, [r0, r2]
-	cmp r0, 0
-	bge _0813D468
-	adds r0, 0x3F
-_0813D468:
-	asrs r0, 6
-	strh r0, [r1, 0x26]
-	b _0813D478
-	.align 2, 0
-_0813D470: .4byte gSineTable
-_0813D474:
-	ldr r0, _0813D480 @ =sub_813D484
-	str r0, [r1, 0x1C]
-_0813D478:
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D480: .4byte sub_813D484
-	thumb_func_end sub_813D414
-
-	thumb_func_start sub_813D484
-sub_813D484: @ 813D484
-	push {r4,lr}
-	adds r4, r0, 0
-	ldrh r2, [r4, 0x22]
-	movs r0, 0x22
-	ldrsh r1, [r4, r0]
-	movs r3, 0x38
-	ldrsh r0, [r4, r3]
-	cmp r1, r0
-	bge _0813D49C
-	adds r0, r2, 0x4
-	strh r0, [r4, 0x22]
-	b _0813D4F8
-_0813D49C:
-	movs r0, 0x1
-	strh r0, [r4, 0x3C]
-	adds r2, r4, 0
-	adds r2, 0x3E
-	ldrb r0, [r2]
-	movs r1, 0x4
-	orrs r0, r1
-	strb r0, [r2]
-	ldrh r0, [r4, 0x24]
-	ldrh r1, [r4, 0x20]
-	adds r0, r1
-	strh r0, [r4, 0x20]
-	ldrh r0, [r4, 0x26]
-	ldrh r3, [r4, 0x22]
-	adds r0, r3
-	strh r0, [r4, 0x22]
-	adds r0, r4, 0
-	movs r1, 0x3
-	bl StartSpriteAnim
-	movs r0, 0x80
-	lsls r0, 3
-	strh r0, [r4, 0x32]
-	ldrh r1, [r4, 0x30]
-	movs r0, 0x3
-	ands r0, r1
-	lsls r0, 3
-	strh r0, [r4, 0x34]
-	ldr r0, _0813D500 @ =sub_813D0CC
-	str r0, [r4, 0x1C]
-	ldrb r1, [r4, 0x1]
-	movs r0, 0x3F
-	ands r0, r1
-	movs r1, 0x40
-	orrs r0, r1
-	strb r0, [r4, 0x1]
-	ldrb r0, [r4, 0x3]
-	movs r1, 0xC0
-	orrs r0, r1
-	strb r0, [r4, 0x3]
-	adds r0, r4, 0
-	movs r1, 0x1
-	movs r2, 0x3
-	movs r3, 0x2
-	bl CalcCenterToCornerVec
-_0813D4F8:
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D500: .4byte sub_813D0CC
-	thumb_func_end sub_813D484
-
-	thumb_func_start sub_813D504
-sub_813D504: @ 813D504
-	push {r4,lr}
-	adds r4, r0, 0
-	ldrh r2, [r4, 0x22]
-	movs r0, 0x22
-	ldrsh r1, [r4, r0]
-	movs r3, 0x38
-	ldrsh r0, [r4, r3]
-	cmp r1, r0
-	bge _0813D51C
-	adds r0, r2, 0x4
-	strh r0, [r4, 0x22]
-	b _0813D578
-_0813D51C:
-	movs r0, 0x1
-	strh r0, [r4, 0x3C]
-	adds r2, r4, 0
-	adds r2, 0x3E
-	ldrb r0, [r2]
-	movs r1, 0x4
-	orrs r0, r1
-	strb r0, [r2]
-	ldrh r0, [r4, 0x24]
-	ldrh r1, [r4, 0x20]
-	adds r0, r1
-	strh r0, [r4, 0x20]
-	ldrh r0, [r4, 0x26]
-	ldrh r3, [r4, 0x22]
-	adds r0, r3
-	strh r0, [r4, 0x22]
-	adds r0, r4, 0
-	movs r1, 0x3
-	bl StartSpriteAnim
-	movs r0, 0x80
-	lsls r0, 3
-	strh r0, [r4, 0x32]
-	ldrh r1, [r4, 0x30]
-	movs r0, 0x3
-	ands r0, r1
-	lsls r0, 3
-	strh r0, [r4, 0x34]
-	ldr r0, _0813D580 @ =sub_813D0CC
-	str r0, [r4, 0x1C]
-	ldrb r1, [r4, 0x1]
-	movs r0, 0x3F
-	ands r0, r1
-	movs r1, 0x40
-	orrs r0, r1
-	strb r0, [r4, 0x1]
-	ldrb r0, [r4, 0x3]
-	movs r1, 0xC0
-	orrs r0, r1
-	strb r0, [r4, 0x3]
-	adds r0, r4, 0
-	movs r1, 0x1
-	movs r2, 0x3
-	movs r3, 0x2
-	bl CalcCenterToCornerVec
-_0813D578:
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D580: .4byte sub_813D0CC
-	thumb_func_end sub_813D504
-
-	thumb_func_start sub_813D584
-sub_813D584: @ 813D584
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x14
-	adds r4, r0, 0
-	adds r5, r1, 0
-	ldr r6, [sp, 0x34]
-	ldr r0, [sp, 0x38]
-	mov r8, r0
-	lsls r4, 16
-	lsls r5, 16
-	lsls r2, 16
-	lsrs r2, 16
-	str r2, [sp, 0x8]
-	lsls r3, 16
-	lsrs r3, 16
-	str r3, [sp, 0xC]
-	lsls r6, 16
-	lsrs r6, 16
-	mov r1, r8
-	lsls r1, 24
-	lsrs r1, 24
-	mov r8, r1
-	ldr r0, _0813D640 @ =gSpriteTemplate_840AE20
-	lsrs r2, r4, 16
-	mov r10, r2
-	asrs r4, 16
-	lsrs r1, r5, 16
-	str r1, [sp, 0x4]
-	asrs r5, 16
-	adds r1, r4, 0
-	adds r2, r5, 0
-	movs r3, 0
-	bl CreateSprite
-	lsls r0, 24
-	lsrs r7, r0, 24
-	ldr r2, _0813D644 @ =gSprites
-	mov r9, r2
-	lsls r0, r7, 4
-	adds r0, r7
-	lsls r5, r0, 2
-	adds r4, r5, r2
-	movs r0, 0
-	strh r0, [r4, 0x2E]
-	strh r0, [r4, 0x3C]
-	mov r0, sp
-	ldrh r0, [r0, 0xC]
-	strh r0, [r4, 0x30]
-	mov r1, sp
-	ldrh r1, [r1, 0x8]
-	strh r1, [r4, 0x32]
-	mov r2, sp
-	ldrh r2, [r2, 0x8]
-	strh r2, [r4, 0x34]
-	strh r6, [r4, 0x38]
-	mov r0, sp
-	ldrh r0, [r0, 0x8]
-	strh r0, [r4, 0x3A]
-	ldrb r0, [r4, 0x1]
-	movs r1, 0x3
-	orrs r0, r1
-	strb r0, [r4, 0x1]
-	movs r0, 0x1F
-	ldr r1, [sp, 0xC]
-	ands r1, r0
-	lsls r1, 1
-	ldrb r2, [r4, 0x3]
-	movs r0, 0x3F
-	negs r0, r0
-	ands r0, r2
-	orrs r0, r1
-	strb r0, [r4, 0x3]
-	adds r0, r4, 0
-	movs r1, 0
-	movs r2, 0x2
-	movs r3, 0x2
-	bl CalcCenterToCornerVec
-	adds r0, r4, 0
-	movs r1, 0x2
-	bl StartSpriteAnim
-	mov r1, r8
-	cmp r1, 0
-	bne _0813D64C
-	mov r0, r9
-	adds r0, 0x1C
-	adds r0, r5, r0
-	ldr r1, _0813D648 @ =sub_813D208
-	b _0813D654
-	.align 2, 0
-_0813D640: .4byte gSpriteTemplate_840AE20
-_0813D644: .4byte gSprites
-_0813D648: .4byte sub_813D208
-_0813D64C:
-	mov r0, r9
-	adds r0, 0x1C
-	adds r0, r5, r0
-	ldr r1, _0813D774 @ =sub_813D504
-_0813D654:
-	str r1, [r0]
-	str r7, [sp, 0x10]
-	mov r2, r10
-	lsls r2, 16
-	asrs r2, 16
-	mov r10, r2
-	ldr r0, [sp, 0x4]
-	lsls r0, 16
-	asrs r0, 16
-	mov r8, r0
-	ldr r0, _0813D778 @ =gSpriteTemplate_840AE20
-	mov r1, r10
-	mov r2, r8
-	movs r3, 0
-	bl CreateSprite
-	lsls r0, 24
-	lsrs r7, r0, 24
-	ldr r5, _0813D77C @ =gSprites
-	lsls r4, r7, 4
-	adds r4, r7
-	lsls r4, 2
-	adds r0, r4, r5
-	mov r1, sp
-	ldrh r1, [r1, 0x10]
-	strh r1, [r0, 0x3C]
-	ldr r2, [sp, 0xC]
-	adds r2, 0x1
-	mov r9, r2
-	strh r2, [r0, 0x30]
-	ldrb r1, [r0, 0x1]
-	movs r2, 0x3
-	orrs r1, r2
-	strb r1, [r0, 0x1]
-	mov r2, r9
-	movs r1, 0x1F
-	ands r2, r1
-	lsls r2, 1
-	ldrb r3, [r0, 0x3]
-	movs r6, 0x3F
-	negs r6, r6
-	adds r1, r6, 0
-	ands r1, r3
-	orrs r1, r2
-	strb r1, [r0, 0x3]
-	movs r1, 0
-	movs r2, 0x2
-	movs r3, 0x2
-	bl CalcCenterToCornerVec
-	ldr r2, _0813D780 @ =gSprites + 0x1C
-	adds r4, r2
-	ldr r0, _0813D784 @ =sub_813D158
-	str r0, [r4]
-	ldr r0, _0813D778 @ =gSpriteTemplate_840AE20
-	mov r1, r10
-	mov r2, r8
-	movs r3, 0
-	bl CreateSprite
-	lsls r0, 24
-	lsrs r7, r0, 24
-	lsls r4, r7, 4
-	adds r4, r7
-	lsls r4, 2
-	adds r5, r4, r5
-	mov r1, sp
-	ldrh r1, [r1, 0x10]
-	strh r1, [r5, 0x3C]
-	ldr r2, [sp, 0xC]
-	adds r2, 0x2
-	mov r8, r2
-	strh r2, [r5, 0x30]
-	adds r0, r5, 0
-	movs r1, 0x1
-	bl StartSpriteAnim
-	ldrb r0, [r5, 0x1]
-	movs r1, 0x3
-	orrs r0, r1
-	strb r0, [r5, 0x1]
-	mov r0, r8
-	movs r2, 0x1F
-	ands r0, r2
-	lsls r0, 1
-	ldrb r1, [r5, 0x3]
-	ands r6, r1
-	orrs r6, r0
-	strb r6, [r5, 0x3]
-	adds r0, r5, 0
-	movs r1, 0
-	movs r2, 0x2
-	movs r3, 0x2
-	bl CalcCenterToCornerVec
-	ldr r0, _0813D780 @ =gSprites + 0x1C
-	adds r4, r0
-	ldr r1, _0813D784 @ =sub_813D158
-	str r1, [r4]
-	ldr r2, [sp, 0xC]
-	lsls r0, r2, 24
-	lsrs r0, 24
-	ldr r5, [sp, 0x8]
-	adds r5, 0x20
-	lsls r4, r5, 16
-	lsrs r4, 16
-	str r4, [sp]
-	adds r1, r4, 0
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	mov r0, r9
-	lsls r0, 24
-	lsrs r0, 24
-	mov r9, r0
-	str r4, [sp]
-	adds r1, r4, 0
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	mov r1, r8
-	lsls r1, 24
-	lsrs r1, 24
-	mov r8, r1
-	lsls r5, 17
-	lsrs r5, 16
-	str r5, [sp]
-	mov r0, r8
-	adds r1, r4, 0
-	movs r2, 0
-	movs r3, 0
-	bl SetOamMatrix
-	ldr r0, [sp, 0x10]
-	add sp, 0x14
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_0813D774: .4byte sub_813D504
-_0813D778: .4byte gSpriteTemplate_840AE20
-_0813D77C: .4byte gSprites
-_0813D780: .4byte gSprites + 0x1C
-_0813D784: .4byte sub_813D158
-	thumb_func_end sub_813D584
-
-	thumb_func_start sub_813D788
-sub_813D788: @ 813D788
-	push {r4,r5,lr}
-	adds r4, r0, 0
-	movs r1, 0x2E
-	ldrsh r0, [r4, r1]
-	cmp r0, 0x4
-	bhi _0813D830
-	lsls r0, 2
-	ldr r1, _0813D7A0 @ =_0813D7A4
-	adds r0, r1
-	ldr r0, [r0]
-	mov pc, r0
-	.align 2, 0
-_0813D7A0: .4byte _0813D7A4
-	.align 2, 0
-_0813D7A4:
-	.4byte _0813D7B8
-	.4byte _0813D7C6
-	.4byte _0813D7E4
-	.4byte _0813D80C
-	.4byte _0813D816
-_0813D7B8:
-	adds r0, r4, 0
-	movs r1, 0
-	bl StartSpriteAnimIfDifferent
-	ldrh r0, [r4, 0x20]
-	subs r0, 0x1
-	b _0813D82E
-_0813D7C6:
-	adds r0, r4, 0
-	movs r1, 0
-	bl StartSpriteAnimIfDifferent
-	ldr r0, _0813D7E0 @ =gIntroFrameCounter
-	ldr r0, [r0]
-	movs r1, 0x7
-	ands r0, r1
-	cmp r0, 0
-	bne _0813D87A
-	ldrh r0, [r4, 0x20]
-	adds r0, 0x1
-	b _0813D82E
-	.align 2, 0
-_0813D7E0: .4byte gIntroFrameCounter
-_0813D7E4:
-	adds r0, r4, 0
-	movs r1, 0x2
-	bl StartSpriteAnimIfDifferent
-	ldrh r2, [r4, 0x20]
-	movs r1, 0x20
-	ldrsh r0, [r4, r1]
-	cmp r0, 0x78
-	ble _0813D802
-	ldr r0, _0813D808 @ =gIntroFrameCounter
-	ldr r0, [r0]
-	movs r1, 0x7
-	ands r0, r1
-	cmp r0, 0
-	beq _0813D83C
-_0813D802:
-	adds r0, r2, 0x1
-	b _0813D82E
-	.align 2, 0
-_0813D808: .4byte gIntroFrameCounter
-_0813D80C:
-	adds r0, r4, 0
-	movs r1, 0x3
-	bl StartSpriteAnimIfDifferent
-	b _0813D830
-_0813D816:
-	adds r0, r4, 0
-	movs r1, 0
-	bl StartSpriteAnimIfDifferent
-	ldrh r2, [r4, 0x20]
-	movs r0, 0x20
-	ldrsh r1, [r4, r0]
-	movs r0, 0x20
-	negs r0, r0
-	cmp r1, r0
-	ble _0813D830
-	subs r0, r2, 0x2
-_0813D82E:
-	strh r0, [r4, 0x20]
-_0813D830:
-	ldr r0, _0813D84C @ =gIntroFrameCounter
-	ldr r0, [r0]
-	movs r1, 0x7
-	ands r0, r1
-	cmp r0, 0
-	bne _0813D87A
-_0813D83C:
-	movs r1, 0x26
-	ldrsh r5, [r4, r1]
-	cmp r5, 0
-	beq _0813D850
-	movs r0, 0
-	strh r0, [r4, 0x26]
-	b _0813D87A
-	.align 2, 0
-_0813D84C: .4byte gIntroFrameCounter
-_0813D850:
-	bl Random
-	movs r1, 0x3
-	ands r1, r0
-	cmp r1, 0x1
-	beq _0813D878
-	cmp r1, 0x1
-	bgt _0813D866
-	cmp r1, 0
-	beq _0813D86E
-	b _0813D87A
-_0813D866:
-	cmp r1, 0x3
-	bgt _0813D87A
-	strh r5, [r4, 0x26]
-	b _0813D87A
-_0813D86E:
-	ldr r0, _0813D874 @ =0x0000ffff
-	strh r0, [r4, 0x26]
-	b _0813D87A
-	.align 2, 0
-_0813D874: .4byte 0x0000ffff
-_0813D878:
-	strh r1, [r4, 0x26]
-_0813D87A:
-	pop {r4,r5}
-	pop {r0}
-	bx r0
-	thumb_func_end sub_813D788
-
-	thumb_func_start sub_813D880
-sub_813D880: @ 813D880
-	push {r4,lr}
-	adds r4, r0, 0
-	movs r1, 0x2E
-	ldrsh r0, [r4, r1]
-	cmp r0, 0x1
-	beq _0813D89A
-	cmp r0, 0x1
-	ble _0813D8E2
-	cmp r0, 0x2
-	beq _0813D8BA
-	cmp r0, 0x3
-	beq _0813D8D4
-	b _0813D8E2
-_0813D89A:
-	movs r2, 0x24
-	ldrsh r0, [r4, r2]
-	movs r2, 0x20
-	ldrsh r1, [r4, r2]
-	adds r0, r1
-	ldr r1, _0813D8B0 @ =0x0000012f
-	cmp r0, r1
-	bgt _0813D8B4
-	ldrh r0, [r4, 0x24]
-	adds r0, 0x8
-	b _0813D8E0
-	.align 2, 0
-_0813D8B0: .4byte 0x0000012f
-_0813D8B4:
-	movs r0, 0x2
-	strh r0, [r4, 0x2E]
-	b _0813D8E2
-_0813D8BA:
-	movs r1, 0x24
-	ldrsh r0, [r4, r1]
-	movs r2, 0x20
-	ldrsh r1, [r4, r2]
-	adds r0, r1
-	cmp r0, 0x78
-	ble _0813D8CE
-	ldrh r0, [r4, 0x24]
-	subs r0, 0x1
-	b _0813D8E0
-_0813D8CE:
-	movs r0, 0x3
-	strh r0, [r4, 0x2E]
-	b _0813D8E2
-_0813D8D4:
-	ldrh r1, [r4, 0x24]
-	movs r2, 0x24
-	ldrsh r0, [r4, r2]
-	cmp r0, 0
-	ble _0813D8E2
-	subs r0, r1, 0x2
-_0813D8E0:
-	strh r0, [r4, 0x24]
-_0813D8E2:
-	ldrh r0, [r4, 0x30]
-	lsls r0, 24
-	lsrs r0, 24
-	movs r1, 0x8
-	bl Sin
-	ldr r1, _0813D904 @ =gUnknown_0203935A
-	ldrh r1, [r1]
-	subs r0, r1
-	strh r0, [r4, 0x26]
-	ldrh r0, [r4, 0x30]
-	adds r0, 0x4
-	strh r0, [r4, 0x30]
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_0813D904: .4byte gUnknown_0203935A
-	thumb_func_end sub_813D880
-
-	thumb_func_start sub_813D908
-sub_813D908: @ 813D908
-	push {lr}
-	adds r3, r0, 0
-	ldr r2, _0813D930 @ =gTasks
-	movs r0, 0x2E
-	ldrsh r1, [r3, r0]
-	lsls r0, r1, 2
-	adds r0, r1
-	lsls r0, 3
-	adds r0, r2
-	movs r1, 0x8
-	ldrsh r0, [r0, r1]
-	cmp r0, 0
-	bne _0813D934
-	adds r0, r3, 0
-	adds r0, 0x3E
-	ldrb r1, [r0]
-	movs r2, 0x4
-	orrs r1, r2
-	strb r1, [r0]
-	b _0813D94E
-	.align 2, 0
-_0813D930: .4byte gTasks
-_0813D934:
-	cmp r0, 0x4
-	beq _0813D948
-	adds r2, r3, 0
-	adds r2, 0x3E
-	ldrb r1, [r2]
-	movs r0, 0x5
-	negs r0, r0
-	ands r0, r1
-	strb r0, [r2]
-	b _0813D94E
-_0813D948:
-	adds r0, r3, 0
-	bl DestroySprite
-_0813D94E:
-	pop {r0}
-	bx r0
-	thumb_func_end sub_813D908
-
 	thumb_func_start sub_813D954
 sub_813D954: @ 813D954
 	push {r4-r7,lr}
diff --git a/include/asm.inc.h b/include/asm.inc.h
index 61790e8ce..18127f136 100644
--- a/include/asm.inc.h
+++ b/include/asm.inc.h
@@ -470,10 +470,10 @@ void sub_813CAF4(u8);
 void intro_reset_and_hide_bgs(void);
 void sub_813CCE8(u8);
 void sub_813CE30(u16, u16, u16, u16);
-u8 sub_813CE88(/*TODO: arg types*/);
-u8 sub_813CFA8(/*TODO: arg types*/);
-void sub_813D084(/*TODO: arg types*/);
-u8 sub_813D584(/*TODO: arg types*/);
+u8 sub_813CE88(u16, s16, u16, u16, u8);
+u8 sub_813CFA8(u16, u16, u16, u16);
+void sub_813D084(u8);
+u8 sub_813D584(u16, s16, u16, u16, u16, u8);
 void sub_813D788(struct Sprite *);
 void sub_813D880(struct Sprite *);
 void sub_813D954(/*TODO: arg types*/);
diff --git a/include/gba/syscall.h b/include/gba/syscall.h
index 9576f7e99..e47f964d1 100644
--- a/include/gba/syscall.h
+++ b/include/gba/syscall.h
@@ -31,6 +31,8 @@ void CpuSet(const void *src, void *dest, u32 control);
 
 void CpuFastSet(const void *src, void *dest, u32 control);
 
+void BgAffineSet(struct BgAffineSrcData *src, struct BgAffineDstData *dest, s32 count);
+
 void ObjAffineSet(struct ObjAffineSrcData *src, void *dest, s32 count, s32 offset);
 
 void LZ77UnCompWram(const void *src, void *dest);
diff --git a/include/gba/types.h b/include/gba/types.h
index be7390d5a..fd8a20a4c 100644
--- a/include/gba/types.h
+++ b/include/gba/types.h
@@ -74,6 +74,27 @@ struct OamData
 #define ST_OAM_H_RECTANGLE 1
 #define ST_OAM_V_RECTANGLE 2
 
+struct BgAffineSrcData
+{
+    s32 texX;
+    s32 texY;
+    s16 scrX;
+    s16 scrY;
+    s16 sx;
+    s16 sy;
+    u16 alpha;
+};
+
+struct BgAffineDstData
+{
+    s16 pa;
+    s16 pb;
+    s16 pc;
+    s16 pd;
+    s32 dx;
+    s32 dy;
+};
+
 struct ObjAffineSrcData
 {
     s16 xScale;
diff --git a/include/sprite.h b/include/sprite.h
index 57926fc68..3c8da394f 100644
--- a/include/sprite.h
+++ b/include/sprite.h
@@ -130,13 +130,13 @@ struct SpriteTemplate
 
 struct Sprite
 {
-    struct OamData oam;
-    union AnimCmd **anims;
-    struct SpriteFrameImage *images;
-    union AffineAnimCmd **affineAnims;
-    const struct SpriteTemplate *template;
-    struct SubspriteTable *subspriteTables;
-    void (*callback)(struct Sprite *);
+    /*0x00*/ struct OamData oam;
+    /*0x08*/ union AnimCmd **anims;
+    /*0x0C*/ struct SpriteFrameImage *images;
+    /*0x10*/ union AffineAnimCmd **affineAnims;
+    /*0x14*/ const struct SpriteTemplate *template;
+    /*0x18*/ struct SubspriteTable *subspriteTables;
+    /*0x1C*/ void (*callback)(struct Sprite *);
 
     /*0x20*/ struct Coords16 pos1;
     /*0x24*/ struct Coords16 pos2;
diff --git a/src/intro.c b/src/intro.c
index b9fdb169d..cf371c8ee 100644
--- a/src/intro.c
+++ b/src/intro.c
@@ -18,6 +18,16 @@
 #include "task.h"
 #include "trig.h"
 
+extern void *species_and_otid_get_pal(/*TODO: arg types*/);
+extern void sub_8143648(int, u8);
+extern void sub_8143680(int, u8);
+
+struct MonCoords
+{
+    u8 x, y;
+};
+
+extern struct SpriteTemplate gUnknown_02024E8C;
 extern u16 gUnknown_02039318;
 extern u16 gUnknown_0203931A;
 extern u16 gUnknown_02039358;
@@ -27,6 +37,13 @@ extern u32 gIntroFrameCounter;
 extern struct GcmbStruct gUnknown_03005EE0;
 extern u16 gSaveFileStatus;
 extern u8 gReservedSpritePaletteCount;
+extern struct SpriteSheet gMonFrontPicTable[];
+extern struct MonCoords gMonFrontPicCoords[];
+extern struct SpriteSheet gMonBackPicTable[];
+extern struct MonCoords gMonBackPicCoords[];
+extern struct SpriteSheet gTrainerBackPicTable[];
+extern struct MonCoords gTrainerBackPicCoords[];
+extern struct SpritePalette gTrainerBackPicPaletteTable[];
 
 extern const u16 gIntro1BGPals[];
 extern const u8 gIntro1BG0_Tilemap[];
@@ -57,10 +74,18 @@ extern const struct SpriteSheet gIntro2LatiosSpriteSheet;
 extern const struct SpriteSheet gIntro2LatiasSpriteSheet;
 extern const struct SpritePalette gIntro2SpritePalettes[];
 
+extern const struct SpriteTemplate gSpriteTemplate_840AE20;
+
 extern const u8 gIntroCopyright_Gfx[];
 extern const u16 gIntroCopyright_Pal[];
 extern const u16 gIntroCopyright_Tilemap[];
 
+extern const u16 gUnknown_08393E64[];
+extern union AnimCmd *gUnknown_0840B064[];
+extern void *gUnknown_0840B5A0[];
+
+extern const s16 gSineTable[];
+
 static void MainCB2_EndIntro(void);
 static void Task_IntroLoadPart1Graphics(u8);
 static void Task_IntroFadeIn(u8);
@@ -79,8 +104,14 @@ static void task_intro_14(u8);
 static void task_intro_15(u8);
 static void task_intro_16(u8);
 static void task_intro_17(u8);
-static void Task_IntroPokemonBattle(u8);
+void Task_IntroPokemonBattle(u8);
 static void task_intro_19(u8);
+void task_intro_20(u8 taskId);  //should be static, but the compiler complains
+
+void sub_813D220(struct Sprite *sprite);
+void sub_813D368(struct Sprite *sprite);
+void sub_813D414(struct Sprite *sprite);
+void sub_813D484(struct Sprite *sprite);
 
 static void VBlankCB_Intro(void)
 {
@@ -527,7 +558,7 @@ static void task_intro_14(u8 taskId)
     REG_BG3CNT = 0x603;
     REG_BG0CNT = 0x700;
     REG_DISPCNT = DISPCNT_MODE_0 | DISPCNT_OBJ_1D_MAP | DISPCNT_BG0_ON | DISPCNT_BG3_ON | DISPCNT_OBJ_ON | DISPCNT_WIN0_ON;
-    gTasks[taskId].data[15] = CreateTask(sub_813CAF4, 0);
+    gTasks[taskId].data[15] = CreateTask(task_intro_20, 0);
     gTasks[gTasks[taskId].data[15]].data[0] = 0;
     gTasks[taskId].data[0] = 0;
     gTasks[taskId].func = task_intro_15;
@@ -562,7 +593,7 @@ static void task_intro_17(u8 taskId)
     gTasks[taskId].func = Task_IntroPokemonBattle;
 }
 
-static void Task_IntroPokemonBattle(u8 taskId)
+void Task_IntroPokemonBattle(u8 taskId)
 {
     u8 spriteId;
     
@@ -676,3 +707,741 @@ static void task_intro_19(u8 taskId)
     DestroyTask(taskId);
     SetMainCallback2(MainCB2_EndIntro);
 }
+
+void task_intro_20(u8 taskId)
+{
+    gTasks[taskId].data[15]++;
+    switch (gTasks[taskId].data[0])
+    {
+    case 0:
+        REG_DISPCNT = 0x3940;
+        REG_BG2CNT = 0;
+        gTasks[taskId].data[0] = 0xFF;
+        break;
+    case 2:
+        BeginNormalPaletteFade(1, 0, 0x10, 0, 0xFFFF);
+        REG_BG2CNT = 0x0E07;
+        REG_DISPCNT = 0x3D40;
+        gTasks[taskId].data[1] = 0;
+        gTasks[taskId].data[2] = 0;
+        gTasks[taskId].data[0] = 20;
+        //fall through
+    case 20:
+        REG_BG2VOFS = gTasks[taskId].data[1];
+        REG_BG2HOFS = gTasks[taskId].data[2];
+        gTasks[taskId].data[1] += 6;
+        gTasks[taskId].data[2] -= 8;
+        break;
+    case 3:
+        BeginNormalPaletteFade(1, 0, 0x10, 0, 0xFFFF);
+        REG_BG2CNT = 0x0E07;
+        REG_DISPCNT = 0x3D40;
+        gTasks[taskId].data[1] = 0;
+        gTasks[taskId].data[2] = 0;
+        gTasks[taskId].data[0] = 0x1E;
+        //fall through
+    case 0x1E:
+        REG_BG2VOFS = gTasks[taskId].data[1];
+        REG_BG2HOFS = gTasks[taskId].data[2];
+        gTasks[taskId].data[1] -= 6;
+        gTasks[taskId].data[2] += 8;
+        break;
+    case 4:
+        BeginNormalPaletteFade(1, 5, 0, 0x10, 0x37F7);
+        REG_BG2CNT = 0x0E07;
+        REG_DISPCNT = 0x3D40;
+        gTasks[taskId].data[1] = 0;
+        gTasks[taskId].data[2] = 0;
+        gTasks[taskId].data[3] = 8;
+        gTasks[taskId].data[0] = 0x28;
+        //fall through
+    case 0x28:
+        REG_BG2VOFS = gTasks[taskId].data[1];
+        REG_BG2HOFS = gTasks[taskId].data[2];
+        gTasks[taskId].data[1] -= gTasks[taskId].data[3];
+        gTasks[taskId].data[2] += gTasks[taskId].data[3];
+        if (!(gTasks[taskId].data[15] & 7) && gTasks[taskId].data[3] != 0)
+            gTasks[taskId].data[3]--;
+        break;
+    case 0xFF:  //needed to prevent jump table optimization
+        break;
+    }
+}
+
+void intro_reset_and_hide_bgs(void)
+{
+    REG_DISPCNT = 0;
+    REG_BG3HOFS = 0;
+    REG_BG3VOFS = 0;
+    REG_BG2HOFS = 0;
+    REG_BG2VOFS = 0;
+    REG_BG1HOFS = 0;
+    REG_BG1VOFS = 0;
+    REG_BG0HOFS = 0;
+    REG_BG0VOFS = 0;
+    REG_BLDCNT = 0;
+    REG_BLDALPHA = 0;
+    REG_BLDY = 0;
+}
+
+#ifdef NONMATCHING
+void sub_813CCE8(u8 taskId)
+{
+    switch (gTasks[taskId].data[0])
+    {
+    default:
+    case 0:
+        REG_BLDCNT = 0x3F50;
+        REG_BLDALPHA = 0x1000;
+        REG_BLDY = 0;
+        gTasks[taskId].data[1] = 0x40;
+        gTasks[taskId].data[0] = 1;
+        return;
+    case 1:
+        if (gTasks[taskId].data[1] != 0)
+        {
+            u32 foo;
+            u32 bar asm("r2");
+            
+            gTasks[taskId].data[1]--;
+            //tail merge at _0813CDC2
+            foo = gTasks[taskId].data[1] + (gTasks[taskId].data[1] < 0);
+            bar = 0x1FE;
+            REG_BLDALPHA = gUnknown_08393E64[(foo & bar) / 2];
+        }
+        else
+        {
+            REG_BLDALPHA = gUnknown_08393E64[0];
+            gTasks[taskId].data[1] = 0x80;
+            gTasks[taskId].data[0]++;
+        }
+        return;
+    case 2:
+        if (gTasks[taskId].data[1] != 0)
+        {
+            //tail merge at _0813CE0E
+            gTasks[taskId].data[1]--;
+        }
+        else
+        {
+            gTasks[taskId].data[1] = 0;  //redundant?
+            gTasks[taskId].data[0]++;
+        }
+        return;
+    case 3:
+        if (gTasks[taskId].data[1] <= 0x3D)
+        {
+            u32 foo;
+            u32 bar asm("r2");
+            
+            gTasks[taskId].data[1]++;
+            //_0813CDC2
+            foo = gTasks[taskId].data[1] + (gTasks[taskId].data[1] < 0);
+            bar = 0x1FE;
+            REG_BLDALPHA = gUnknown_08393E64[(foo & bar) / 2];
+        }
+        else
+        {
+            //_0813CDE0
+            REG_BLDALPHA = gUnknown_08393E64[0x1F];
+            gTasks[taskId].data[1] = 0x10;
+            gTasks[taskId].data[0]++;
+        }
+        return;
+    case 4:
+        if (gTasks[taskId].data[1] != 0)
+        {
+            gTasks[taskId].data[1]--;
+        }
+        else
+        {
+            REG_BLDCNT = 0;
+            REG_BLDALPHA = 0;
+            REG_BLDY = 0;
+            DestroyTask(taskId);
+        }
+        return;
+    }
+}
+#else
+__attribute__((naked))
+void sub_813CCE8(u8 taskId)
+{
+    asm("\n\
+    .equ REG_BLDCNT, 0x4000050\n\
+    .equ REG_BLDALPHA, 0x4000052\n\
+    .syntax unified\n\
+    push {r4,lr}\n\
+    lsls r0, 24\n\
+    lsrs r3, r0, 24\n\
+    ldr r1, _0813CD0C @ =gTasks\n\
+    lsls r0, r3, 2\n\
+    adds r0, r3\n\
+    lsls r0, 3\n\
+    adds r0, r1\n\
+    movs r2, 0x8\n\
+    ldrsh r0, [r0, r2]\n\
+    adds r2, r1, 0\n\
+    cmp r0, 0x4\n\
+    bhi _0813CD28\n\
+    lsls r0, 2\n\
+    ldr r1, _0813CD10 @ =_0813CD14\n\
+    adds r0, r1\n\
+    ldr r0, [r0]\n\
+    mov pc, r0\n\
+    .align 2, 0\n\
+_0813CD0C: .4byte gTasks\n\
+_0813CD10: .4byte _0813CD14\n\
+    .align 2, 0\n\
+_0813CD14:\n\
+    .4byte _0813CD28\n\
+    .4byte _0813CD5C\n\
+    .4byte _0813CD8C\n\
+    .4byte _0813CDA8\n\
+    .4byte _0813CDFC\n\
+_0813CD28:\n\
+    ldr r1, _0813CD54 @ =REG_BLDCNT\n\
+    ldr r4, _0813CD58 @ =0x00003f50\n\
+    adds r0, r4, 0\n\
+    strh r0, [r1]\n\
+    adds r1, 0x2\n\
+    movs r4, 0x80\n\
+    lsls r4, 5\n\
+    adds r0, r4, 0\n\
+    strh r0, [r1]\n\
+    adds r1, 0x2\n\
+    movs r0, 0\n\
+    strh r0, [r1]\n\
+    lsls r0, r3, 2\n\
+    adds r0, r3\n\
+    lsls r0, 3\n\
+    adds r0, r2\n\
+    movs r1, 0x40\n\
+    strh r1, [r0, 0xA]\n\
+    movs r1, 0x1\n\
+    strh r1, [r0, 0x8]\n\
+    b _0813CE26\n\
+    .align 2, 0\n\
+_0813CD54: .4byte REG_BLDCNT\n\
+_0813CD58: .4byte 0x00003f50\n\
+_0813CD5C:\n\
+    lsls r0, r3, 2\n\
+    adds r0, r3\n\
+    lsls r0, 3\n\
+    adds r2, r0, r2\n\
+    ldrh r1, [r2, 0xA]\n\
+    movs r3, 0xA\n\
+    ldrsh r0, [r2, r3]\n\
+    cmp r0, 0\n\
+    beq _0813CD78\n\
+    subs r0, r1, 0x1\n\
+    strh r0, [r2, 0xA]\n\
+    movs r4, 0xA\n\
+    ldrsh r0, [r2, r4]\n\
+    b _0813CDC2\n\
+_0813CD78:\n\
+    ldr r1, _0813CD84 @ =REG_BLDALPHA\n\
+    ldr r0, _0813CD88 @ =gUnknown_08393E64\n\
+    ldrh r0, [r0]\n\
+    strh r0, [r1]\n\
+    movs r0, 0x80\n\
+    b _0813CDEA\n\
+    .align 2, 0\n\
+_0813CD84: .4byte REG_BLDALPHA\n\
+_0813CD88: .4byte gUnknown_08393E64\n\
+_0813CD8C:\n\
+    lsls r0, r3, 2\n\
+    adds r0, r3\n\
+    lsls r0, 3\n\
+    adds r1, r0, r2\n\
+    ldrh r0, [r1, 0xA]\n\
+    movs r3, 0xA\n\
+    ldrsh r2, [r1, r3]\n\
+    cmp r2, 0\n\
+    bne _0813CE0E\n\
+    strh r2, [r1, 0xA]\n\
+    ldrh r0, [r1, 0x8]\n\
+    adds r0, 0x1\n\
+    strh r0, [r1, 0x8]\n\
+    b _0813CE26\n\
+_0813CDA8:\n\
+    lsls r0, r3, 2\n\
+    adds r0, r3\n\
+    lsls r0, 3\n\
+    adds r2, r0, r2\n\
+    ldrh r1, [r2, 0xA]\n\
+    movs r4, 0xA\n\
+    ldrsh r0, [r2, r4]\n\
+    cmp r0, 0x3D\n\
+    bgt _0813CDE0\n\
+    adds r0, r1, 0x1\n\
+    strh r0, [r2, 0xA]\n\
+    movs r1, 0xA\n\
+    ldrsh r0, [r2, r1]\n\
+_0813CDC2:\n\
+    lsrs r1, r0, 31\n\
+    adds r0, r1\n\
+    movs r2, 0xFF\n\
+    lsls r2, 1\n\
+    ldr r3, _0813CDD8 @ =REG_BLDALPHA\n\
+    ldr r1, _0813CDDC @ =gUnknown_08393E64\n\
+    ands r0, r2\n\
+    adds r0, r1\n\
+    ldrh r0, [r0]\n\
+    strh r0, [r3]\n\
+    b _0813CE26\n\
+    .align 2, 0\n\
+_0813CDD8: .4byte REG_BLDALPHA\n\
+_0813CDDC: .4byte gUnknown_08393E64\n\
+_0813CDE0:\n\
+    ldr r1, _0813CDF4 @ =REG_BLDALPHA\n\
+    ldr r0, _0813CDF8 @ =gUnknown_08393E64\n\
+    ldrh r0, [r0, 0x3E]\n\
+    strh r0, [r1]\n\
+    movs r0, 0x10\n\
+_0813CDEA:\n\
+    strh r0, [r2, 0xA]\n\
+    ldrh r0, [r2, 0x8]\n\
+    adds r0, 0x1\n\
+    strh r0, [r2, 0x8]\n\
+    b _0813CE26\n\
+    .align 2, 0\n\
+_0813CDF4: .4byte REG_BLDALPHA\n\
+_0813CDF8: .4byte gUnknown_08393E64\n\
+_0813CDFC:\n\
+    lsls r0, r3, 2\n\
+    adds r0, r3\n\
+    lsls r0, 3\n\
+    adds r1, r0, r2\n\
+    ldrh r0, [r1, 0xA]\n\
+    movs r4, 0xA\n\
+    ldrsh r2, [r1, r4]\n\
+    cmp r2, 0\n\
+    beq _0813CE14\n\
+_0813CE0E:\n\
+    subs r0, 0x1\n\
+    strh r0, [r1, 0xA]\n\
+    b _0813CE26\n\
+_0813CE14:\n\
+    ldr r0, _0813CE2C @ =REG_BLDCNT\n\
+    strh r2, [r0]\n\
+    adds r0, 0x2\n\
+    strh r2, [r0]\n\
+    adds r0, 0x2\n\
+    strh r2, [r0]\n\
+    adds r0, r3, 0\n\
+    bl DestroyTask\n\
+_0813CE26:\n\
+    pop {r4}\n\
+    pop {r0}\n\
+    bx r0\n\
+    .align 2, 0\n\
+_0813CE2C: .4byte REG_BLDCNT\n\
+    .syntax divided\n");
+}
+#endif
+
+void sub_813CE30(u16 a, u16 b, u16 c, u16 d)
+{
+    struct BgAffineSrcData src;
+    struct BgAffineDstData dest;
+    
+    src.texX = 0x8000;
+    src.texY = 0x8000;
+    src.scrX = a;
+    src.scrY = b;
+    src.sx = c;
+    src.sy = c;
+    src.alpha = d;
+    BgAffineSet(&src, &dest, 1);
+    REG_BG2PA = dest.pa;
+    REG_BG2PB = dest.pb;
+    REG_BG2PC = dest.pc;
+    REG_BG2PD = dest.pd;
+    REG_BG2X = dest.dx;
+    REG_BG2Y = dest.dy;
+}
+
+u8 sub_813CE88(u16 a, s16 b, u16 c, u16 d, u8 e)
+{
+    void *pal;
+    u8 spriteId;
+    
+    if (e != 0)
+        LoadSpecialPokePic(&gMonFrontPicTable[a], gMonFrontPicCoords[a].x, gMonFrontPicCoords[a].y, 0x2000000, gUnknown_0840B5A0[d], a, 0, 1);
+    else
+        LoadSpecialPokePic(&gMonBackPicTable[a], gMonBackPicCoords[a].x, gMonBackPicCoords[a].y, 0x2000000, gUnknown_0840B5A0[d], a, 0, 0);
+    pal = species_and_otid_get_pal(a, 0, 0xFFFF);
+    LoadCompressedPalette(pal, 0x100 + d * 0x10, 0x20);
+    sub_8143648(d, d);
+    spriteId = CreateSprite(&gUnknown_02024E8C, b, c, (d + 1) * 4);
+    gSprites[spriteId].oam.paletteNum = d;
+    gSprites[spriteId].oam.priority = 1;
+    return spriteId;
+}
+
+u8 sub_813CFA8(u16 a, u16 b, u16 c, u16 d)
+{
+    u8 spriteId;
+    
+    DecompressPicFromTable_2(&gTrainerBackPicTable[a], gTrainerBackPicCoords[a].x, gTrainerBackPicCoords[a].y, (void *)0x2000000, gUnknown_0840B5A0[d], a);
+    LoadCompressedPalette(gTrainerBackPicPaletteTable[a].data, 0x100 + d * 0x10, 0x20);
+    sub_8143680(d, d);
+    gUnknown_02024E8C.anims = gUnknown_0840B064;
+    spriteId = CreateSprite(&gUnknown_02024E8C, b, c, 1);
+    gSprites[spriteId].oam.paletteNum = d;
+    gSprites[spriteId].oam.priority = 1;
+    return spriteId;
+}
+
+void sub_813D084(u8 a)
+{
+    u16 color;
+    
+    switch (a)
+    {
+    default:
+    case 0:
+        color = 0x3FF6;
+        break;
+    case 1:
+        color = 0x31DF;
+        break;
+    case 2:
+        color = 0x518C;
+        break;
+    }
+    gPlttBufferUnfaded[0xF1] = color;
+    gPlttBufferFaded[0xF1] = color;
+}
+
+void sub_813D0CC(struct Sprite *sprite)
+{
+    u8 r0;
+    
+    if (sprite->data2 > 0xBF)
+    {
+        if (sprite->data3 != 0)
+        {
+            sprite->data3--;
+        }
+        else
+        {
+            sprite->invisible = FALSE;
+            SetOamMatrix(sprite->data1, sprite->data2, 0, 0, sprite->data2);
+            sprite->data2 = (sprite->data2 * 95) / 100;
+            r0 = (sprite->data2 - 0xC0) / 128 + 9;
+            if (r0 > 15)
+                r0 = 15;
+            sprite->oam.paletteNum = r0;
+        }
+    }
+    else
+    {
+        DestroySprite(sprite);
+    }
+}
+
+void sub_813D158(struct Sprite *sprite)
+{
+    if (gSprites[sprite->data7].data7 != 0)
+    {
+        sprite->invisible = TRUE;
+        sprite->pos1.x += sprite->pos2.x;
+        sprite->pos1.y += sprite->pos2.y;
+        StartSpriteAnim(sprite, 3);
+        sprite->data2 = 0x400;
+        sprite->data3 = 8 * (sprite->data1 & 3);
+        sprite->callback = sub_813D0CC;
+        sprite->oam.shape = 1;
+        sprite->oam.size = 3;
+        CalcCenterToCornerVec(sprite, 1, 3, 2);
+    }
+    else
+    {
+        sprite->pos2.x = gSprites[sprite->data7].pos2.x;
+        sprite->pos2.y = gSprites[sprite->data7].pos2.y;
+        sprite->pos1.x = gSprites[sprite->data7].pos1.x;
+        sprite->pos1.y = gSprites[sprite->data7].pos1.y;
+    }
+}
+
+void sub_813D208(struct Sprite *sprite)
+{
+    if (sprite->data0 != 0)
+        sprite->callback = sub_813D220;
+}
+
+void sub_813D220(struct Sprite *sprite)
+{
+    if (sprite->pos1.x <= 116)
+    {
+        sprite->pos1.y += sprite->pos2.y;
+        sprite->pos2.y = 0;
+        sprite->pos1.x += 4;
+        sprite->pos2.x = -4;
+        sprite->data4 = 128;
+        sprite->callback = sub_813D368;
+    }
+    else
+    {
+        u16 data2;
+        u16 data3;
+        u16 data4;
+        s16 sin1;
+        s16 sin2;
+        s16 sin3;
+        s16 sin4;
+        s16 var1;
+        s16 var2;
+        s16 var3;
+        s16 var4;
+        s16 temp;
+        
+        data4 = sprite->data4;
+        sin1 = gSineTable[(u8)data4];
+        sin2 = gSineTable[(u8)(data4 + 64)];
+        sprite->data4 += 2;
+        sprite->pos2.y = sin1 / 32;
+        sprite->pos1.x--;
+        if (sprite->pos1.x & 1)
+            sprite->pos1.y++;
+        temp = -sin2 / 16;
+        data2 = sprite->data2;
+        data3 = sprite->data3;
+        sin3 = gSineTable[(u8)(temp - 16)];
+        sin4 = gSineTable[(u8)(temp + 48)];
+        var1 = sin4 * data2 / 256;
+        var2 = -sin3 * data3 / 256;
+        var3 = sin3 * data2 / 256;
+        var4 = sin4 * data3 / 256;
+        SetOamMatrix(sprite->data1, data2, 0, 0, data3);
+        SetOamMatrix(sprite->data1 + 1, var1, var3, var2, var4);
+        SetOamMatrix(sprite->data1 + 2, var1, var3, var2 * 2, var4 * 2);
+    }
+}
+
+void sub_813D368(struct Sprite *sprite)
+{
+    SetOamMatrix(sprite->data1, sprite->data6 + 64, 0, 0, sprite->data6 + 64);
+    SetOamMatrix(sprite->data1 + 1, sprite->data6 + 64, 0, 0, sprite->data6 + 64);
+    SetOamMatrix(sprite->data1 + 2, sprite->data6 + 64, 0, 0, sprite->data6 + 64);
+    if (sprite->data4 != 64)
+    {
+        u16 data4;
+        
+        sprite->data4 -= 8;
+        data4 = sprite->data4;
+        sprite->pos2.x = gSineTable[(u8)(data4 + 64)] / 64;
+        sprite->pos2.y = gSineTable[(u8)data4] / 64;
+    }
+    else
+    {
+        sprite->data4 = 0;
+        sprite->callback = sub_813D414;
+    }
+}
+
+void sub_813D414(struct Sprite *sprite)
+{
+    if (sprite->data0 != 2)
+    {
+        s16 r2;
+        
+        sprite->data4 += 8;
+        r2 = gSineTable[(u8)sprite->data4] / 16 + 64;
+        sprite->pos2.x = gSineTable[(u8)(r2 + 64)] / 64;
+        sprite->pos2.y = gSineTable[(u8)r2] / 64;
+    }
+    else
+    {
+        sprite->callback = sub_813D484;
+    }
+}
+
+void sub_813D484(struct Sprite *sprite)
+{
+    if (sprite->pos1.y < sprite->data5)
+    {
+        sprite->pos1.y += 4;
+    }
+    else
+    {
+        sprite->data7 = 1;
+        sprite->invisible = TRUE;
+        sprite->pos1.x += sprite->pos2.x;
+        sprite->pos1.y += sprite->pos2.y;
+        StartSpriteAnim(sprite, 3);
+        sprite->data2 = 0x400;
+        sprite->data3 = 8 * (sprite->data1 & 3);
+        sprite->callback = sub_813D0CC;
+        sprite->oam.shape = 1;
+        sprite->oam.size = 3;
+        CalcCenterToCornerVec(sprite, 1, 3, 2);
+    }
+}
+
+//Duplicate function
+void sub_813D504(struct Sprite *sprite)
+{
+    if (sprite->pos1.y < sprite->data5)
+    {
+        sprite->pos1.y += 4;
+    }
+    else
+    {
+        sprite->data7 = 1;
+        sprite->invisible = TRUE;
+        sprite->pos1.x += sprite->pos2.x;
+        sprite->pos1.y += sprite->pos2.y;
+        StartSpriteAnim(sprite, 3);
+        sprite->data2 = 0x400;
+        sprite->data3 = 8 * (sprite->data1 & 3);
+        sprite->callback = sub_813D0CC;
+        sprite->oam.shape = 1;
+        sprite->oam.size = 3;
+        CalcCenterToCornerVec(sprite, 1, 3, 2);
+    }
+}
+
+u8 sub_813D584(u16 a, s16 b, u16 c, u16 d, u16 e, u8 f)
+{
+    u8 spriteId;
+    u8 oldSpriteId;
+    
+    spriteId = CreateSprite(&gSpriteTemplate_840AE20, a, b, 0);
+    gSprites[spriteId].data0 = 0;
+    gSprites[spriteId].data7 = 0;
+    gSprites[spriteId].data1 = d;
+    gSprites[spriteId].data2 = c;
+    gSprites[spriteId].data3 = c;
+    gSprites[spriteId].data5 = e;
+    gSprites[spriteId].data6 = c;
+    gSprites[spriteId].oam.affineMode = 3;
+    gSprites[spriteId].oam.matrixNum = d;
+    CalcCenterToCornerVec(&gSprites[spriteId], 0, 2, 2);
+    StartSpriteAnim(&gSprites[spriteId], 2);
+    if (f == 0)
+        gSprites[spriteId].callback = sub_813D208;
+    else
+        gSprites[spriteId].callback = sub_813D504;
+    oldSpriteId = spriteId;
+    
+    spriteId = CreateSprite(&gSpriteTemplate_840AE20, a, b, 0);
+    gSprites[spriteId].data7 = oldSpriteId;
+    gSprites[spriteId].data1 = d + 1;
+    gSprites[spriteId].oam.affineMode = 3;
+    gSprites[spriteId].oam.matrixNum = d + 1;
+    CalcCenterToCornerVec(&gSprites[spriteId], 0, 2, 2);
+    gSprites[spriteId].callback = sub_813D158;
+    
+    spriteId = CreateSprite(&gSpriteTemplate_840AE20, a, b, 0);
+    gSprites[spriteId].data7 = oldSpriteId;
+    gSprites[spriteId].data1 = d + 2;
+    StartSpriteAnim(&gSprites[spriteId], 1);
+    gSprites[spriteId].oam.affineMode = 3;
+    gSprites[spriteId].oam.matrixNum = d + 2;
+    CalcCenterToCornerVec(&gSprites[spriteId], 0, 2, 2);
+    gSprites[spriteId].callback = sub_813D158;
+    
+    SetOamMatrix(d, c + 32, 0, 0, c + 32);
+    SetOamMatrix(d + 1, c + 32, 0, 0, c + 32);
+    SetOamMatrix(d + 2, c + 32, 0, 0, 2 * (c + 32));
+    
+    return oldSpriteId;
+}
+
+void sub_813D788(struct Sprite *sprite)
+{
+    switch (sprite->data0)
+    {
+        case 0:
+            StartSpriteAnimIfDifferent(sprite, 0);
+            sprite->pos1.x--;
+            break;
+        case 1:
+            StartSpriteAnimIfDifferent(sprite, 0);
+            if (gIntroFrameCounter & 7)
+                return;
+            sprite->pos1.x++;
+            break;
+        case 2:
+            StartSpriteAnimIfDifferent(sprite, 2);
+            if (sprite->pos1.x <= 0x78 || (gIntroFrameCounter & 7))
+                sprite->pos1.x++;
+            break;
+        case 3:
+            StartSpriteAnimIfDifferent(sprite, 3);
+            break;
+        case 4:
+            StartSpriteAnimIfDifferent(sprite, 0);
+            if (sprite->pos1.x > -32)
+                sprite->pos1.x -= 2;
+            break;
+    }
+    if (gIntroFrameCounter & 7)
+        return;
+    if (sprite->pos2.y != 0)
+    {
+        sprite->pos2.y = 0;
+    }
+    else
+    {
+        switch (Random() & 3)
+        {
+            case 0:
+                sprite->pos2.y = -1;
+                break;
+            case 1:
+                sprite->pos2.y = 1;
+                break;
+            case 2:
+            case 3:
+                sprite->pos2.y = 0;
+                break;
+        }
+    }
+}
+
+void sub_813D880(struct Sprite *sprite)
+{
+    switch (sprite->data0)
+    {
+        case 0:
+            break;
+        case 1:
+            if (sprite->pos2.x + sprite->pos1.x < 0x130)
+                sprite->pos2.x += 8;
+            else
+                sprite->data0 = 2;
+            break;
+        case 2:
+            if (sprite->pos2.x + sprite->pos1.x > 0x78)
+                sprite->pos2.x -= 1;
+            else
+                sprite->data0 = 3;
+            break;
+        case 3:
+            if (sprite->pos2.x > 0)
+                sprite->pos2.x -= 2;
+            break;
+    }
+    sprite->pos2.y = Sin((u8)sprite->data1, 8) - gUnknown_0203935A;
+    sprite->data1 += 4;
+}
+
+void sub_813D908(struct Sprite *sprite)
+{
+    if (gTasks[sprite->data0].data[0] == 0)
+    {
+        sprite->invisible = TRUE;
+    }
+    else if (gTasks[sprite->data0].data[0] != 4)
+    {
+        sprite->invisible = FALSE;
+    }
+    else
+    {
+        DestroySprite(sprite);
+    }
+}