.include "asm/macros.inc"

	.include "constants/constants.inc"

	.syntax unified

	.text


	thumb_func_start Object87
Object87: @ 0x08099EFC
	push {lr}
	ldr r2, _08099F10 @ =gUnk_08123840
	ldrb r1, [r0, #0xc]
	lsls r1, r1, #2
	adds r1, r1, r2
	ldr r1, [r1]
	bl _call_via_r1
	pop {pc}
	.align 2, 0
_08099F10: .4byte gUnk_08123840

	thumb_func_start sub_08099F14
sub_08099F14: @ 0x08099F14
	push {r4, r5, r6, r7, lr}
	adds r5, r0, #0
	movs r0, #1
	strb r0, [r5, #0xc]
	movs r0, #0x80
	lsls r0, r0, #2
	strh r0, [r5, #0x24]
	ldrb r0, [r5, #0xa]
	cmp r0, #9
	bls _08099F2A
	b _0809A1B6
_08099F2A:
	lsls r0, r0, #2
	ldr r1, _08099F34 @ =_08099F38
	adds r0, r0, r1
	ldr r0, [r0]
	mov pc, r0
	.align 2, 0
_08099F34: .4byte _08099F38
_08099F38: @ jump table
	.4byte _08099F60 @ case 0
	.4byte _08099F70 @ case 1
	.4byte _08099F82 @ case 2
	.4byte _0809A00C @ case 3
	.4byte _0809A0AA @ case 4
	.4byte _0809A0B0 @ case 5
	.4byte _0809A058 @ case 6
	.4byte _0809A11C @ case 7
	.4byte _0809A132 @ case 8
	.4byte _0809A1B0 @ case 9
_08099F60:
	adds r2, r5, #0
	adds r2, #0x79
	movs r0, #0
	movs r1, #0x96
	strb r1, [r2]
	strb r0, [r5, #0xe]
	movs r0, #0x1e
	strb r0, [r5, #0xf]
_08099F70:
	adds r0, r5, #0
	movs r1, #0
	bl InitializeAnimation
	movs r0, #0x92
	lsls r0, r0, #1
	bl EnqueueSFX
	b _0809A1B6
_08099F82:
	ldr r0, [r5, #0x50]
	adds r0, #0x7b
	ldrb r0, [r0]
	adds r0, #0x80
	rsbs r0, r0, #0
	strb r0, [r5, #0x15]
	bl Random
	movs r1, #1
	ands r1, r0
	cmp r1, #0
	beq _08099FCE
	bl Random
	adds r1, r0, #0
	movs r0, #3
	ands r1, r0
	cmp r1, #1
	beq _08099FBC
	cmp r1, #1
	blo _08099FB6
	cmp r1, #2
	beq _08099FC2
	cmp r1, #3
	beq _08099FC8
	b _08099FCE
_08099FB6:
	ldrb r0, [r5, #0x15]
	subs r0, #0x10
	b _08099FCC
_08099FBC:
	ldrb r0, [r5, #0x15]
	adds r0, #0x10
	b _08099FCC
_08099FC2:
	ldrb r0, [r5, #0x15]
	subs r0, #8
	b _08099FCC
_08099FC8:
	ldrb r0, [r5, #0x15]
	adds r0, #8
_08099FCC:
	strb r0, [r5, #0x15]
_08099FCE:
	bl Random
	movs r1, #0x3f
	ands r0, r1
	movs r1, #0xf0
	subs r1, r1, r0
	strh r1, [r5, #0x24]
	lsls r1, r1, #0x10
	asrs r1, r1, #0x11
	lsls r1, r1, #8
	ldrb r2, [r5, #0x15]
	adds r0, r5, #0
	bl sub_0806F62C
	ldrh r1, [r5, #0x24]
	lsls r1, r1, #0x10
	asrs r1, r1, #0x11
	lsls r1, r1, #8
	ldrb r2, [r5, #0x15]
	adds r0, r5, #0
	bl sub_0806F62C
	adds r0, r5, #0
	movs r1, #5
	bl InitializeAnimation
	movs r0, #0xa6
	lsls r0, r0, #1
	bl PlaySFX
	b _0809A1B6
_0809A00C:
	ldr r0, [r5, #0x50]
	adds r0, #0x7b
	ldrb r0, [r0]
	adds r0, #0x80
	rsbs r0, r0, #0
	strb r0, [r5, #0x15]
	movs r1, #0x90
	lsls r1, r1, #7
	ldrb r2, [r5, #0x15]
	adds r0, r5, #0
	bl sub_0806F62C
	bl Random
	movs r1, #1
	ands r1, r0
	cmp r1, #0
	beq _0809A040
	bl Random
	movs r1, #0x3f
	ands r0, r1
	ldrb r1, [r5, #0x15]
	adds r0, r0, r1
	strb r0, [r5, #0x15]
	b _0809A04E
_0809A040:
	bl Random
	movs r1, #0x3f
	ands r0, r1
	ldrb r1, [r5, #0x15]
	subs r1, r1, r0
	strb r1, [r5, #0x15]
_0809A04E:
	adds r0, r5, #0
	movs r1, #6
	bl InitializeAnimation
	b _0809A1B6
_0809A058:
	bl Random
	movs r1, #0x2f
	ands r1, r0
	movs r4, #0x30
	subs r4, r4, r1
	lsls r4, r4, #8
	bl Random
	movs r2, #0xff
	ands r2, r0
	adds r0, r5, #0
	adds r1, r4, #0
	bl sub_0806F62C
	bl Random
	movs r1, #1
	ands r1, r0
	cmp r1, #0
	beq _0809A092
	bl Random
	movs r1, #0x3f
	ands r0, r1
	ldrb r1, [r5, #0x15]
	adds r0, r0, r1
	strb r0, [r5, #0x15]
	b _0809A0A0
_0809A092:
	bl Random
	movs r1, #0x3f
	ands r0, r1
	ldrb r1, [r5, #0x15]
	subs r1, r1, r0
	strb r1, [r5, #0x15]
_0809A0A0:
	adds r0, r5, #0
	movs r1, #5
	bl InitializeAnimation
	b _0809A1B6
_0809A0AA:
	movs r0, #0xc3
	lsls r0, r0, #2
	b _0809A1B4
_0809A0B0:
	adds r2, r5, #0
	adds r2, #0x29
	ldrb r1, [r2]
	movs r0, #8
	rsbs r0, r0, #0
	ands r0, r1
	strb r0, [r2]
	movs r0, #0x18
	str r0, [r5, #0x78]
	adds r7, r5, #0
	adds r7, #0x76
	movs r1, #0
	movs r0, #0x80
	lsls r0, r0, #3
	strh r0, [r7]
	adds r4, r5, #0
	adds r4, #0x74
	strh r0, [r4]
	adds r6, r5, #0
	adds r6, #0x7a
	strh r1, [r6]
	ldr r0, [r5, #0x50]
	adds r0, #0x7b
	ldrb r1, [r0]
	rsbs r1, r1, #0
	lsls r1, r1, #0x18
	ldr r3, _0809A118 @ =gUnk_0812388C
	ldrb r2, [r5, #0xb]
	lsls r0, r2, #1
	adds r0, #1
	lsls r0, r0, #1
	adds r0, r0, r3
	lsrs r1, r1, #0x18
	ldrh r0, [r0]
	adds r1, r1, r0
	lsls r2, r2, #2
	adds r2, r2, r3
	ldrh r2, [r2]
	adds r0, r5, #0
	bl sub_0806F62C
	ldrh r1, [r7]
	ldrh r2, [r4]
	ldrh r3, [r6]
	adds r0, r5, #0
	bl sub_0805EC9C
	adds r0, r5, #0
	movs r1, #7
	bl InitializeAnimation
	b _0809A1B6
	.align 2, 0
_0809A118: .4byte gUnk_0812388C
_0809A11C:
	movs r0, #0
	strb r0, [r5, #0xe]
	adds r0, r5, #0
	movs r1, #8
	bl InitializeAnimation
	ldr r0, [r5, #0x50]
	adds r1, r5, #0
	bl CopyPosition
	b _0809A1B6
_0809A132:
	ldr r0, [r5, #0x50]
	adds r0, #0x7c
	ldrb r0, [r0]
	movs r1, #0
	strb r0, [r5, #0xb]
	movs r0, #4
	strb r0, [r5, #0xe]
	strb r1, [r5, #0xf]
	ldr r3, _0809A1A0 @ =gRoomControls
	ldrh r0, [r5, #0x2e]
	ldrh r1, [r3, #6]
	subs r0, r0, r1
	movs r1, #0xf8
	lsls r1, r1, #1
	adds r2, r1, #0
	ands r0, r2
	movs r1, #0x82
	adds r1, r1, r5
	mov ip, r1
	strh r0, [r1]
	ldrh r1, [r5, #0x32]
	ldrh r0, [r3, #8]
	subs r1, r1, r0
	ands r1, r2
	adds r3, r5, #0
	adds r3, #0x80
	strh r1, [r3]
	adds r4, r5, #0
	adds r4, #0x84
	mov r0, ip
	ldrh r2, [r0]
	subs r2, #0x10
	asrs r2, r2, #4
	lsrs r1, r1, #4
	lsls r0, r1, #5
	subs r0, r0, r1
	adds r2, r2, r0
	str r2, [r4]
	mov r1, ip
	ldrh r0, [r1]
	ldrh r1, [r3]
	ldrb r3, [r5, #0xb]
	bl sub_0809A6F8
	ldr r0, [r5, #0x50]
	adds r0, #0x7c
	ldrb r1, [r0]
	movs r0, #1
	ands r0, r1
	cmp r0, #0
	beq _0809A1A8
	ldr r0, _0809A1A4 @ =0x000001A3
	bl PlaySFX
	b _0809A1B6
	.align 2, 0
_0809A1A0: .4byte gRoomControls
_0809A1A4: .4byte 0x000001A3
_0809A1A8:
	movs r0, #0xe8
	bl PlaySFX
	b _0809A1B6
_0809A1B0:
	movs r0, #0xf0
	lsls r0, r0, #1
_0809A1B4:
	str r0, [r5, #0x78]
_0809A1B6:
	pop {r4, r5, r6, r7, pc}

	thumb_func_start sub_0809A1B8
sub_0809A1B8: @ 0x0809A1B8
	push {r4, r5, r6, r7, lr}
	mov r7, sl
	mov r6, sb
	mov r5, r8
	push {r5, r6, r7}
	sub sp, #0x38
	adds r7, r0, #0
	bl GetNextFrame
	ldrb r0, [r7, #0xa]
	cmp r0, #9
	bls _0809A1D2
	b _0809A632
_0809A1D2:
	lsls r0, r0, #2
	ldr r1, _0809A1DC @ =_0809A1E0
	adds r0, r0, r1
	ldr r0, [r0]
	mov pc, r0
	.align 2, 0
_0809A1DC: .4byte _0809A1E0
_0809A1E0: @ jump table
	.4byte _0809A208 @ case 0
	.4byte _0809A25C @ case 1
	.4byte _0809A33E @ case 2
	.4byte _0809A378 @ case 3
	.4byte _0809A394 @ case 4
	.4byte _0809A3E0 @ case 5
	.4byte _0809A378 @ case 6
	.4byte _0809A46C @ case 7
	.4byte _0809A47C @ case 8
	.4byte _0809A616 @ case 9
_0809A208:
	adds r1, r7, #0
	adds r1, #0x79
	ldrb r0, [r1]
	cmp r0, #0
	beq _0809A25C
	subs r0, #1
	strb r0, [r1]
	ldrb r0, [r7, #0xf]
	subs r0, #1
	strb r0, [r7, #0xf]
	lsls r0, r0, #0x18
	lsrs r0, r0, #0x18
	adds r1, #0xb
	str r1, [sp, #0x20]
	cmp r0, #0xff
	bne _0809A254
	movs r0, #5
	strb r0, [r7, #0xf]
	ldrb r3, [r7, #0xb]
	adds r0, r7, #0
	movs r1, #0x87
	movs r2, #1
	bl CreateObjectWithParent
	adds r1, r0, #0
	str r1, [r7, #0x54]
	cmp r1, #0
	beq _0809A24E
	ldr r0, [r7, #0x50]
	str r0, [r1, #0x50]
	ldr r0, [r7, #0x54]
	adds r0, #0x84
	ldr r2, [sp, #0x20]
	ldr r1, [r2]
	str r1, [r0]
_0809A24E:
	ldrb r0, [r7, #0xb]
	adds r0, #1
	strb r0, [r7, #0xb]
_0809A254:
	ldr r1, [sp, #0x20]
	ldr r0, [r1]
	ldr r0, [r0, #0xc]
	b _0809A474
_0809A25C:
	adds r4, r7, #0
	adds r4, #0x84
	ldr r1, [r4]
	ldrb r0, [r7, #0xe]
	lsls r0, r0, #2
	adds r1, #0xc
	adds r1, r1, r0
	ldr r2, [r1]
	ldr r0, [r2, #0x2c]
	ldr r1, [r7, #0x2c]
	subs r0, r0, r1
	ldr r1, [r2, #0x30]
	ldr r2, [r7, #0x30]
	subs r1, r1, r2
	bl sub_080045DA
	strb r0, [r7, #0x15]
	movs r2, #0x24
	ldrsh r1, [r7, r2]
	ldrb r2, [r7, #0x15]
	adds r0, r7, #0
	bl sub_0806F62C
	ldr r1, [r4]
	ldrb r0, [r7, #0xe]
	lsls r0, r0, #2
	adds r1, #0xc
	adds r1, r1, r0
	ldr r1, [r1]
	adds r0, r7, #0
	movs r2, #2
	movs r3, #2
	bl sub_080041A0
	cmp r0, #0
	bne _0809A2A6
	b _0809A632
_0809A2A6:
	ldrb r0, [r7, #0xa]
	cmp r0, #0
	bne _0809A2CC
	ldr r1, [r4]
	ldrb r0, [r7, #0xe]
	lsls r0, r0, #2
	adds r1, #0xc
	adds r1, r1, r0
	ldr r3, [r1]
	ldrb r2, [r3, #0x18]
	lsls r1, r2, #0x1e
	lsrs r1, r1, #0x1e
	movs r0, #2
	rsbs r0, r0, #0
	ands r1, r0
	subs r0, #2
	ands r0, r2
	orrs r0, r1
	strb r0, [r3, #0x18]
_0809A2CC:
	ldrb r1, [r7, #0xe]
	ldr r0, [r4]
	ldrb r0, [r0, #1]
	subs r0, #1
	cmp r1, r0
	bne _0809A338
	movs r0, #2
	strb r0, [r7, #0xc]
	movs r0, #0xf0
	strb r0, [r7, #0xe]
	bl Random
	ldr r6, _0809A330 @ =gUnk_0812384C
	ldrb r2, [r7, #0xb]
	movs r3, #0xf
	movs r4, #0xf
	adds r1, r4, #0
	ands r1, r2
	lsls r1, r1, #2
	adds r1, r1, r6
	ands r0, r3
	ldrb r1, [r1]
	adds r0, r0, r1
	strb r0, [r7, #0x15]
	bl Random
	ldrb r1, [r7, #0xb]
	ands r4, r1
	lsls r4, r4, #1
	adds r4, #1
	lsls r4, r4, #1
	adds r4, r4, r6
	ldr r2, _0809A334 @ =0x000001FF
	adds r1, r2, #0
	ands r0, r1
	ldrh r4, [r4]
	adds r0, r0, r4
	strh r0, [r7, #0x24]
	ldrb r0, [r7, #0xa]
	cmp r0, #0
	beq _0809A320
	b _0809A632
_0809A320:
	ldr r1, [r7, #0x50]
	movs r0, #4
	strb r0, [r1, #0xc]
	ldr r1, [r7, #0x50]
	movs r0, #0
	strb r0, [r1, #0xd]
	b _0809A632
	.align 2, 0
_0809A330: .4byte gUnk_0812384C
_0809A334: .4byte 0x000001FF
_0809A338:
	adds r0, r1, #1
	strb r0, [r7, #0xe]
	b _0809A632
_0809A33E:
	ldr r1, [r7, #0x50]
	ldrb r0, [r1, #0xb]
	cmp r0, #3
	bne _0809A38E
	adds r0, r1, #0
	adds r0, #0x84
	ldr r0, [r0]
	ldr r2, [r0, #8]
	ldr r0, [r2, #0x2c]
	ldr r1, [r7, #0x2c]
	subs r0, r0, r1
	ldr r1, [r2, #0x30]
	ldr r2, [r7, #0x30]
	subs r1, r1, r2
	bl sub_080045DA
	strb r0, [r7, #0x15]
	movs r1, #0xa0
	lsls r1, r1, #2
	ldrb r2, [r7, #0x15]
	adds r0, r7, #0
	bl sub_0806F62C
	ldr r1, [r7, #0x50]
	adds r0, r7, #0
	movs r2, #0x48
	bl sub_0806FC80
	b _0809A388
_0809A378:
	ldrb r2, [r7, #0x15]
	adds r0, r7, #0
	movs r1, #0x80
	bl sub_0806F62C
	adds r0, r7, #0
	adds r0, #0x5a
	ldrb r0, [r0]
_0809A388:
	cmp r0, #0
	bne _0809A38E
	b _0809A632
_0809A38E:
	bl DeleteThisEntity
	b _0809A632
_0809A394:
	ldr r3, [r7, #0x78]
	cmp r3, #0
	bne _0809A3B4
	ldr r0, _0809A3B0 @ =gRoomVars
	movs r2, #0xc
	ldrsh r1, [r0, r2]
	movs r0, #0x80
	lsls r0, r0, #1
	cmp r1, r0
	beq _0809A38E
	movs r0, #8
	bl sub_0805308C
	b _0809A632
	.align 2, 0
_0809A3B0: .4byte gRoomVars
_0809A3B4:
	ldr r2, [r7, #0x50]
	adds r0, r2, #0
	adds r0, #0x45
	ldrb r1, [r0]
	cmp r1, #0
	bne _0809A3C8
	movs r0, #1
	strb r0, [r7, #0xd]
	str r1, [r7, #0x78]
	b _0809A632
_0809A3C8:
	ldrb r0, [r7, #0xd]
	cmp r0, #0
	bne _0809A3D6
	ldrb r0, [r2, #0xb]
	cmp r0, #0
	beq _0809A3D6
	b _0809A632
_0809A3D6:
	movs r0, #1
	strb r0, [r7, #0xd]
	subs r0, r3, #1
	str r0, [r7, #0x78]
	b _0809A632
_0809A3E0:
	ldr r0, [r7, #0x78]
	cmp r0, #0
	bne _0809A432
	adds r0, r7, #0
	adds r0, #0x76
	ldrh r2, [r0]
	movs r1, #0x80
	lsls r1, r1, #1
	adds r5, r0, #0
	cmp r2, r1
	bne _0809A40E
	ldr r0, [r7, #0x50]
	adds r0, #0x7c
	ldrb r1, [r0]
	movs r0, #1
	ands r0, r1
	adds r4, r7, #0
	adds r4, #0x74
	cmp r0, #0
	beq _0809A420
	bl DeleteThisEntity
	b _0809A420
_0809A40E:
	adds r0, r2, #0
	subs r0, #0x20
	strh r0, [r5]
	adds r1, r7, #0
	adds r1, #0x74
	ldrh r0, [r1]
	subs r0, #0x20
	strh r0, [r1]
	adds r4, r1, #0
_0809A420:
	ldrh r1, [r5]
	ldrh r2, [r4]
	adds r0, r7, #0
	adds r0, #0x7a
	ldrh r3, [r0]
	adds r0, r7, #0
	bl sub_0805EC9C
	b _0809A436
_0809A432:
	subs r0, #1
	str r0, [r7, #0x78]
_0809A436:
	ldr r0, [r7, #0x50]
	adds r1, r7, #0
	bl CopyPosition
	ldr r4, _0809A468 @ =gUnk_0812388C
	ldrb r3, [r7, #0xb]
	lsls r0, r3, #1
	adds r0, #1
	lsls r0, r0, #1
	adds r0, r0, r4
	ldrh r1, [r0]
	ldr r0, [r7, #0x50]
	adds r0, #0x7b
	ldrb r2, [r0]
	rsbs r2, r2, #0
	lsls r2, r2, #0x18
	lsls r3, r3, #2
	adds r3, r3, r4
	lsrs r2, r2, #0x18
	ldrh r3, [r3]
	adds r2, r2, r3
	adds r0, r7, #0
	bl sub_0806F62C
	b _0809A632
	.align 2, 0
_0809A468: .4byte gUnk_0812388C
_0809A46C:
	ldrb r0, [r7, #0xe]
	cmp r0, #0
	bne _0809A38E
	ldr r0, [r7, #0x50]
_0809A474:
	adds r1, r7, #0
	bl CopyPosition
	b _0809A632
_0809A47C:
	ldrb r0, [r7, #0xe]
	subs r0, #1
	strb r0, [r7, #0xe]
	lsls r0, r0, #0x18
	lsrs r0, r0, #0x18
	cmp r0, #0xff
	beq _0809A48C
	b _0809A632
_0809A48C:
	movs r0, #4
	strb r0, [r7, #0xe]
	ldrb r0, [r7, #0xf]
	adds r0, #1
	strb r0, [r7, #0xf]
	adds r0, r7, #0
	adds r0, #0x84
	str r0, [sp, #4]
	ldrb r1, [r7, #0xf]
	lsls r0, r1, #5
	subs r0, r0, r1
	ldr r2, [sp, #4]
	ldr r1, [r2]
	subs r1, r1, r0
	mov sl, r1
	mov r0, sl
	str r0, [sp]
	adds r1, r7, #0
	adds r1, #0x82
	str r1, [sp, #8]
	ldrh r0, [r1]
	adds r2, r7, #0
	adds r2, #0x7e
	str r2, [sp, #0xc]
	strh r0, [r2]
	ldrh r0, [r1]
	subs r1, #8
	str r1, [sp, #0x10]
	strh r0, [r1]
	movs r2, #0x80
	adds r2, r2, r7
	mov sb, r2
	ldrb r0, [r7, #0xf]
	lsls r0, r0, #4
	ldrh r1, [r2]
	subs r1, r1, r0
	movs r0, #0x7c
	adds r0, r0, r7
	mov r8, r0
	strh r1, [r0]
	adds r4, r7, #0
	adds r4, #0x78
	strh r1, [r4]
	ldr r1, [sp, #0x10]
	ldrh r0, [r1]
	ldrh r1, [r4]
	ldrb r3, [r7, #0xb]
	mov r2, sl
	bl sub_0809A6F8
	adds r5, r0, #0
	ldrb r6, [r7, #0xf]
	ldr r2, [sp, #4]
	str r2, [sp, #0x20]
	ldr r0, [sp, #0x10]
	str r0, [sp, #0x28]
	ldr r1, [sp, #8]
	str r1, [sp, #0x1c]
	ldr r2, [sp, #0xc]
	str r2, [sp, #0x30]
	mov r0, sb
	str r0, [sp, #0x34]
	mov r1, r8
	str r1, [sp, #0x2c]
	str r4, [sp, #0x24]
	cmp r6, #0
	beq _0809A568
	ldr r2, [sp, #0x28]
	str r2, [sp, #0x14]
	mov sb, r4
	ldr r0, [sp, #0x30]
	mov r8, r0
	adds r4, r1, #0
_0809A51E:
	ldr r1, [sp, #0x14]
	ldrh r0, [r1]
	subs r0, #0x10
	strh r0, [r1]
	mov r2, sb
	ldrh r0, [r2]
	adds r0, #0x10
	strh r0, [r2]
	ldr r0, [sp]
	adds r0, #0x1e
	str r0, [sp]
	ldrh r0, [r1]
	ldrh r1, [r2]
	ldrb r3, [r7, #0xb]
	ldr r2, [sp]
	bl sub_0809A6F8
	adds r5, r5, r0
	mov r1, r8
	ldrh r0, [r1]
	adds r0, #0x10
	strh r0, [r1]
	ldrh r0, [r4]
	adds r0, #0x10
	strh r0, [r4]
	movs r2, #0x20
	add sl, r2
	ldrh r0, [r1]
	ldrh r1, [r4]
	ldrb r3, [r7, #0xb]
	mov r2, sl
	bl sub_0809A6F8
	adds r5, r5, r0
	subs r6, #1
	cmp r6, #0
	bne _0809A51E
_0809A568:
	ldrb r1, [r7, #0xf]
	lsls r0, r1, #5
	subs r0, r0, r1
	ldr r2, [sp, #0x20]
	ldr r1, [r2]
	adds r1, r1, r0
	mov sl, r1
	mov r0, sl
	str r0, [sp]
	ldr r1, [sp, #0x1c]
	ldrh r0, [r1]
	ldr r2, [sp, #0x30]
	strh r0, [r2]
	ldrh r0, [r1]
	ldr r1, [sp, #0x28]
	strh r0, [r1]
	ldrb r0, [r7, #0xf]
	lsls r0, r0, #4
	ldr r2, [sp, #0x34]
	ldrh r2, [r2]
	adds r0, r0, r2
	ldr r1, [sp, #0x2c]
	strh r0, [r1]
	ldr r2, [sp, #0x24]
	strh r0, [r2]
	ldr r1, [sp, #0x28]
	ldrh r0, [r1]
	ldrh r1, [r2]
	ldrb r3, [r7, #0xb]
	mov r2, sl
	bl sub_0809A6F8
	adds r5, r5, r0
	ldrb r0, [r7, #0xf]
	subs r6, r0, #1
	cmp r6, #0
	beq _0809A610
	ldr r2, [sp, #0x28]
	str r2, [sp, #0x18]
	ldr r0, [sp, #0x24]
	mov sb, r0
	ldr r1, [sp, #0x30]
	mov r8, r1
	ldr r4, [sp, #0x2c]
_0809A5C0:
	ldr r2, [sp, #0x18]
	ldrh r0, [r2]
	subs r0, #0x10
	strh r0, [r2]
	mov r1, sb
	ldrh r0, [r1]
	subs r0, #0x10
	strh r0, [r1]
	ldr r2, [sp]
	subs r2, #0x20
	str r2, [sp]
	ldr r1, [sp, #0x18]
	ldrh r0, [r1]
	mov r2, sb
	ldrh r1, [r2]
	ldrb r3, [r7, #0xb]
	ldr r2, [sp]
	bl sub_0809A6F8
	adds r5, r5, r0
	mov r1, r8
	ldrh r0, [r1]
	adds r0, #0x10
	strh r0, [r1]
	ldrh r0, [r4]
	subs r0, #0x10
	strh r0, [r4]
	movs r2, #0x1e
	rsbs r2, r2, #0
	add sl, r2
	ldrh r0, [r1]
	ldrh r1, [r4]
	ldrb r3, [r7, #0xb]
	mov r2, sl
	bl sub_0809A6F8
	adds r5, r5, r0
	subs r6, #1
	cmp r6, #0
	bne _0809A5C0
_0809A610:
	cmp r5, #0
	bne _0809A632
	b _0809A38E
_0809A616:
	bl sub_08078B48
	ldr r0, [r7, #0x78]
	subs r0, #1
	str r0, [r7, #0x78]
	movs r1, #1
	rsbs r1, r1, #0
	cmp r0, r1
	bne _0809A632
	ldr r1, _0809A640 @ =gRoomControls
	ldr r0, _0809A644 @ =gPlayerEntity
	str r0, [r1, #0x30]
	bl DeleteThisEntity
_0809A632:
	add sp, #0x38
	pop {r3, r4, r5}
	mov r8, r3
	mov sb, r4
	mov sl, r5
	pop {r4, r5, r6, r7, pc}
	.align 2, 0
_0809A640: .4byte gRoomControls
_0809A644: .4byte gPlayerEntity

	thumb_func_start sub_0809A648
sub_0809A648: @ 0x0809A648
	push {r4, r5, r6, r7, lr}
	mov r7, r8
	push {r7}
	adds r7, r0, #0
	bl GetNextFrame
	ldrb r0, [r7, #0xe]
	subs r0, #1
	strb r0, [r7, #0xe]
	lsls r0, r0, #0x18
	lsrs r0, r0, #0x18
	cmp r0, #0xff
	beq _0809A6EC
	ldr r4, [r7, #0x50]
	adds r0, r4, #0
	adds r0, #0x74
	ldrh r1, [r0]
	movs r0, #0x80
	lsls r0, r0, #9
	bl __divsi3
	movs r2, #0x24
	ldrsh r1, [r7, r2]
	adds r5, r1, #0
	muls r5, r0, r5
	adds r4, #0x7b
	ldrb r1, [r4]
	ldrb r0, [r7, #0x15]
	subs r0, r0, r1
	movs r1, #0x7b
	adds r1, r1, r7
	mov r8, r1
	strb r0, [r1]
	ldr r6, _0809A6E8 @ =gSineTable
	ldrb r0, [r1]
	lsls r0, r0, #1
	adds r0, r0, r6
	movs r2, #0
	ldrsh r0, [r0, r2]
	lsls r5, r5, #8
	asrs r5, r5, #0x10
	adds r1, r5, #0
	bl sub_0806F9EC
	lsls r0, r0, #0x10
	asrs r0, r0, #0x10
	movs r4, #0x80
	lsls r4, r4, #1
	adds r1, r4, #0
	bl sub_0806FA04
	ldr r1, [r7, #0x50]
	lsls r0, r0, #0x10
	asrs r0, r0, #8
	ldr r1, [r1, #0x2c]
	adds r1, r1, r0
	str r1, [r7, #0x2c]
	mov r1, r8
	ldrb r0, [r1]
	adds r0, #0x40
	lsls r0, r0, #1
	adds r0, r0, r6
	movs r2, #0
	ldrsh r0, [r0, r2]
	adds r1, r5, #0
	bl sub_0806F9EC
	lsls r0, r0, #0x10
	asrs r0, r0, #0x10
	adds r1, r4, #0
	bl sub_0806FA04
	ldr r1, [r7, #0x50]
	lsls r0, r0, #0x10
	asrs r0, r0, #8
	ldr r1, [r1, #0x30]
	subs r1, r1, r0
	str r1, [r7, #0x30]
	b _0809A6F0
	.align 2, 0
_0809A6E8: .4byte gSineTable
_0809A6EC:
	bl DeleteThisEntity
_0809A6F0:
	pop {r3}
	mov r8, r3
	pop {r4, r5, r6, r7, pc}
	.align 2, 0

	thumb_func_start sub_0809A6F8
sub_0809A6F8: @ 0x0809A6F8
	push {r4, r5, r6, r7, lr}
	adds r4, r0, #0
	adds r5, r1, #0
	adds r6, r2, #0
	adds r7, r3, #0
	bl sub_0809A758
	cmp r0, #0
	beq _0809A754
	ldr r0, _0809A738 @ =gUnk_081238A0
	lsls r1, r6, #1
	adds r1, r1, r0
	ldrh r0, [r1]
	cmp r0, #0
	beq _0809A750
	movs r0, #1
	ands r0, r7
	cmp r0, #0
	beq _0809A73C
	ldrh r0, [r1]
	lsrs r1, r4, #4
	movs r3, #0x3f
	ands r1, r3
	lsrs r2, r5, #4
	ands r2, r3
	lsls r2, r2, #6
	orrs r1, r2
	movs r2, #1
	bl sub_0807B9B8
	b _0809A750
	.align 2, 0
_0809A738: .4byte gUnk_081238A0
_0809A73C:
	lsrs r0, r4, #4
	movs r2, #0x3f
	ands r0, r2
	lsrs r1, r5, #4
	ands r1, r2
	lsls r1, r1, #6
	orrs r0, r1
	movs r1, #1
	bl sub_0807BA8C
_0809A750:
	movs r0, #1
	b _0809A756
_0809A754:
	movs r0, #0
_0809A756:
	pop {r4, r5, r6, r7, pc}

	thumb_func_start sub_0809A758
sub_0809A758: @ 0x0809A758
	push {lr}
	adds r2, r0, #0
	cmp r2, #0xf
	bls _0809A770
	movs r0, #0xf8
	lsls r0, r0, #1
	cmp r2, r0
	bhi _0809A770
	cmp r1, #0xf0
	bhi _0809A770
	movs r0, #1
	b _0809A772
_0809A770:
	movs r0, #0
_0809A772:
	pop {pc}