Continue decompiling field_specials

3 files changed, 2 insertions, 1303 deletions

diff --git a/asm/battle_frontier_2.s b/asm/battle_frontier_2.s
index 2ab474037..38e0d2e62 100644
--- a/asm/battle_frontier_2.s
+++ b/asm/battle_frontier_2.s
@@ -11843,7 +11843,7 @@ sub_81A0784: @ 81A0784
 	movs r1, 0
 	adds r2, r4, 0
 	adds r3, r5, 0
-	bl sub_8198A50
+	bl CreateWindowTemplate
 	ldr r0, [sp, 0x10]
 	ldr r1, [sp, 0x14]
 	str r0, [sp, 0x18]
diff --git a/asm/field_specials.s b/asm/field_specials.s
index 3f0ba5ad8..6e6329a42 100644
--- a/asm/field_specials.s
+++ b/asm/field_specials.s
@@ -5,1307 +5,6 @@
 
 	.text
 
-	thumb_func_start sub_81399F4
-sub_81399F4: @ 81399F4
-	push {r4,lr}
-	ldr r2, =gUnknown_0203AB60
-	movs r0, 0
-	strh r0, [r2]
-	ldr r1, =gUnknown_0203AB62
-	strh r0, [r1]
-	ldr r0, =gSaveBlock1Ptr
-	ldr r3, [r0]
-	movs r0, 0x14
-	ldrsb r0, [r3, r0]
-	adds r4, r1, 0
-	cmp r0, 0xD
-	bne _08139A6E
-	ldrb r0, [r3, 0x15]
-	subs r0, 0x10
-	lsls r0, 24
-	asrs r0, 24
-	cmp r0, 0x4
-	bhi _08139A6E
-	lsls r0, 2
-	ldr r1, =_08139A34
-	adds r0, r1
-	ldr r0, [r0]
-	mov pc, r0
-	.pool
-	.align 2, 0
-_08139A34:
-	.4byte _08139A66
-	.4byte _08139A5E
-	.4byte _08139A56
-	.4byte _08139A4E
-	.4byte _08139A48
-_08139A48:
-	movs r0, 0
-	strh r0, [r2]
-	b _08139A6C
-_08139A4E:
-	movs r0, 0
-	strh r0, [r2]
-	movs r0, 0x1
-	b _08139A6C
-_08139A56:
-	movs r0, 0
-	strh r0, [r2]
-	movs r0, 0x2
-	b _08139A6C
-_08139A5E:
-	movs r0, 0
-	strh r0, [r2]
-	movs r0, 0x3
-	b _08139A6C
-_08139A66:
-	movs r0, 0
-	strh r0, [r2]
-	movs r0, 0x4
-_08139A6C:
-	strh r0, [r4]
-_08139A6E:
-	ldrh r0, [r4]
-	pop {r4}
-	pop {r1}
-	bx r1
-	thumb_func_end sub_81399F4
-
-	thumb_func_start sub_8139A78
-sub_8139A78: @ 8139A78
-	push {r4-r6,lr}
-	ldr r0, =sub_8139AF4
-	movs r1, 0x9
-	bl CreateTask
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r1, r0, 2
-	adds r1, r0
-	lsls r1, 3
-	ldr r0, =gTasks + 0x8
-	adds r4, r1, r0
-	movs r3, 0
-	strh r3, [r4, 0x2]
-	strh r3, [r4, 0x4]
-	movs r6, 0x1
-	strh r6, [r4, 0x8]
-	ldr r0, =gSpecialVar_0x8005
-	ldr r1, =gSpecialVar_0x8006
-	ldrh r2, [r0]
-	ldrh r0, [r1]
-	cmp r2, r0
-	bls _08139AC0
-	subs r0, r2, r0
-	lsls r0, 16
-	lsrs r5, r0, 16
-	strh r6, [r4, 0xC]
-	b _08139AC8
-	.pool
-_08139AC0:
-	subs r0, r2
-	lsls r0, 16
-	lsrs r5, r0, 16
-	strh r3, [r4, 0xC]
-_08139AC8:
-	cmp r5, 0x8
-	bls _08139ACE
-	movs r5, 0x8
-_08139ACE:
-	ldr r0, =gUnknown_085B2C18
-	adds r0, r5, r0
-	ldrb r0, [r0]
-	strh r0, [r4, 0xA]
-	movs r0, 0
-	bl SetCameraPanningCallback
-	ldrb r1, [r4, 0xC]
-	adds r0, r5, 0
-	bl sub_8139C2C
-	movs r0, 0x59
-	bl PlaySE
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139A78
-
-	thumb_func_start sub_8139AF4
-sub_8139AF4: @ 8139AF4
-	push {r4,r5,lr}
-	lsls r0, 24
-	lsrs r5, r0, 24
-	lsls r0, r5, 2
-	adds r0, r5
-	lsls r0, 3
-	ldr r1, =gTasks + 0x8
-	adds r4, r0, r1
-	ldrh r0, [r4, 0x2]
-	adds r0, 0x1
-	strh r0, [r4, 0x2]
-	movs r1, 0x2
-	ldrsh r0, [r4, r1]
-	movs r1, 0x3
-	bl __modsi3
-	lsls r0, 16
-	asrs r0, 16
-	cmp r0, 0
-	bne _08139B54
-	strh r0, [r4, 0x2]
-	ldrh r0, [r4, 0x4]
-	adds r0, 0x1
-	strh r0, [r4, 0x4]
-	ldrh r0, [r4, 0x8]
-	negs r0, r0
-	strh r0, [r4, 0x8]
-	movs r2, 0x8
-	ldrsh r1, [r4, r2]
-	movs r0, 0
-	bl SetCameraPanning
-	movs r0, 0x4
-	ldrsh r1, [r4, r0]
-	movs r2, 0xA
-	ldrsh r0, [r4, r2]
-	cmp r1, r0
-	bne _08139B54
-	movs r0, 0x49
-	bl PlaySE
-	adds r0, r5, 0
-	bl DestroyTask
-	bl EnableBothScriptContexts
-	bl InstallCameraPanAheadCallback
-_08139B54:
-	pop {r4,r5}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139AF4
-
-	thumb_func_start sub_8139B60
-sub_8139B60: @ 8139B60
-	push {r4-r6,lr}
-	mov r6, r9
-	mov r5, r8
-	push {r5,r6}
-	sub sp, 0xC
-	ldr r5, =gUnknown_0203AB5E
-	ldr r0, =gUnknown_085B2BAC
-	bl AddWindow
-	strb r0, [r5]
-	ldrb r0, [r5]
-	movs r1, 0
-	bl SetStandardWindowBorderStyle
-	ldr r4, =gText_ElevatorNowOn
-	movs r0, 0x1
-	adds r1, r4, 0
-	movs r2, 0x40
-	bl GetStringCenterAlignXOffset
-	adds r3, r0, 0
-	ldrb r0, [r5]
-	lsls r3, 24
-	lsrs r3, 24
-	movs r1, 0x1
-	str r1, [sp]
-	movs r1, 0xFF
-	mov r9, r1
-	str r1, [sp, 0x4]
-	movs r1, 0
-	mov r8, r1
-	str r1, [sp, 0x8]
-	movs r1, 0x1
-	adds r2, r4, 0
-	bl PrintTextOnWindow
-	ldr r6, =gElevatorFloorsTable
-	ldr r4, =gSpecialVar_0x8005
-	ldrh r0, [r4]
-	lsls r0, 2
-	adds r0, r6
-	ldr r1, [r0]
-	movs r0, 0x1
-	movs r2, 0x40
-	bl GetStringCenterAlignXOffset
-	adds r3, r0, 0
-	ldrb r0, [r5]
-	ldrh r1, [r4]
-	lsls r1, 2
-	adds r1, r6
-	ldr r2, [r1]
-	lsls r3, 24
-	lsrs r3, 24
-	movs r1, 0x11
-	str r1, [sp]
-	mov r1, r9
-	str r1, [sp, 0x4]
-	mov r1, r8
-	str r1, [sp, 0x8]
-	movs r1, 0x1
-	bl PrintTextOnWindow
-	ldrb r0, [r5]
-	bl PutWindowTilemap
-	ldrb r0, [r5]
-	movs r1, 0x3
-	bl CopyWindowToVram
-	add sp, 0xC
-	pop {r3,r4}
-	mov r8, r3
-	mov r9, r4
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139B60
-
-	thumb_func_start sub_8139C10
-sub_8139C10: @ 8139C10
-	push {r4,lr}
-	ldr r4, =gUnknown_0203AB5E
-	ldrb r0, [r4]
-	movs r1, 0x1
-	bl sub_8198070
-	ldrb r0, [r4]
-	bl RemoveWindow
-	pop {r4}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139C10
-
-	thumb_func_start sub_8139C2C
-sub_8139C2C: @ 8139C2C
-	push {r4-r6,lr}
-	lsls r0, 16
-	lsrs r6, r0, 16
-	lsls r1, 24
-	lsrs r5, r1, 24
-	ldr r4, =sub_8139C80
-	adds r0, r4, 0
-	bl FuncIsActiveTask
-	lsls r0, 24
-	lsrs r0, 24
-	cmp r0, 0x1
-	beq _08139C6C
-	adds r0, r4, 0
-	movs r1, 0x8
-	bl CreateTask
-	lsls r0, 24
-	lsrs r0, 24
-	ldr r2, =gTasks
-	lsls r1, r0, 2
-	adds r1, r0
-	lsls r1, 3
-	adds r1, r2
-	movs r0, 0
-	strh r0, [r1, 0x8]
-	strh r0, [r1, 0xA]
-	strh r5, [r1, 0xC]
-	ldr r0, =gUnknown_085B2C21
-	adds r0, r6, r0
-	ldrb r0, [r0]
-	strh r0, [r1, 0xE]
-_08139C6C:
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139C2C
-
-	thumb_func_start sub_8139C80
-sub_8139C80: @ 8139C80
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x4
-	lsls r0, 24
-	lsrs r0, 24
-	str r0, [sp]
-	lsls r0, 2
-	ldr r1, [sp]
-	adds r0, r1
-	lsls r0, 3
-	ldr r1, =gTasks + 0x8
-	adds r6, r0, r1
-	movs r2, 0x2
-	ldrsh r0, [r6, r2]
-	cmp r0, 0x6
-	bne _08139D7C
-	ldrh r0, [r6]
-	adds r0, 0x1
-	strh r0, [r6]
-	movs r1, 0x4
-	ldrsh r0, [r6, r1]
-	cmp r0, 0
-	bne _08139D10
-	movs r1, 0
-	ldr r2, =gUnknown_085B2BF4
-	mov r10, r2
-_08139CBA:
-	movs r5, 0
-	adds r7, r1, 0x7
-	lsls r0, r1, 1
-	adds r2, r1, 0x1
-	mov r8, r2
-	adds r0, r1
-	lsls r0, 1
-	mov r9, r0
-_08139CCA:
-	adds r4, r5, 0
-	adds r4, 0x8
-	movs r1, 0
-	ldrsh r0, [r6, r1]
-	movs r1, 0x3
-	bl __modsi3
-	lsls r0, 16
-	asrs r0, 15
-	add r0, r9
-	add r0, r10
-	ldrh r0, [r0]
-	movs r1, 0xC0
-	lsls r1, 4
-	adds r2, r1, 0
-	orrs r2, r0
-	adds r0, r4, 0
-	adds r1, r7, 0
-	bl MapGridSetMetatileIdAt
-	adds r0, r5, 0x1
-	lsls r0, 24
-	lsrs r5, r0, 24
-	cmp r5, 0x2
-	bls _08139CCA
-	mov r2, r8
-	lsls r0, r2, 24
-	lsrs r1, r0, 24
-	cmp r1, 0x2
-	bls _08139CBA
-	b _08139D62
-	.pool
-_08139D10:
-	movs r1, 0
-	ldr r0, =gUnknown_085B2C06
-	mov r10, r0
-_08139D16:
-	movs r5, 0
-	adds r7, r1, 0x7
-	lsls r0, r1, 1
-	adds r2, r1, 0x1
-	mov r8, r2
-	adds r0, r1
-	lsls r0, 1
-	mov r9, r0
-_08139D26:
-	adds r4, r5, 0
-	adds r4, 0x8
-	movs r1, 0
-	ldrsh r0, [r6, r1]
-	movs r1, 0x3
-	bl __modsi3
-	lsls r0, 16
-	asrs r0, 15
-	add r0, r9
-	add r0, r10
-	ldrh r0, [r0]
-	movs r1, 0xC0
-	lsls r1, 4
-	adds r2, r1, 0
-	orrs r2, r0
-	adds r0, r4, 0
-	adds r1, r7, 0
-	bl MapGridSetMetatileIdAt
-	adds r0, r5, 0x1
-	lsls r0, 24
-	lsrs r5, r0, 24
-	cmp r5, 0x2
-	bls _08139D26
-	mov r2, r8
-	lsls r0, r2, 24
-	lsrs r1, r0, 24
-	cmp r1, 0x2
-	bls _08139D16
-_08139D62:
-	bl DrawWholeMapView
-	movs r0, 0
-	strh r0, [r6, 0x2]
-	movs r0, 0
-	ldrsh r1, [r6, r0]
-	movs r2, 0x6
-	ldrsh r0, [r6, r2]
-	cmp r1, r0
-	bne _08139D7C
-	ldr r0, [sp]
-	bl DestroyTask
-_08139D7C:
-	ldrh r0, [r6, 0x2]
-	adds r0, 0x1
-	strh r0, [r6, 0x2]
-	add sp, 0x4
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139C80
-
-	thumb_func_start sub_8139D98
-sub_8139D98: @ 8139D98
-	push {r4-r7,lr}
-	sub sp, 0x18
-	ldr r6, =gSpecialVar_0x8004
-	ldrh r0, [r6]
-	movs r5, 0x64
-	muls r0, r5
-	ldr r4, =gPlayerParty
-	adds r0, r4
-	movs r1, 0x27
-	bl GetMonData
-	str r0, [sp]
-	ldrh r0, [r6]
-	muls r0, r5
-	adds r0, r4
-	movs r1, 0x28
-	bl GetMonData
-	str r0, [sp, 0x4]
-	ldrh r0, [r6]
-	muls r0, r5
-	adds r0, r4
-	movs r1, 0x29
-	bl GetMonData
-	str r0, [sp, 0x8]
-	ldrh r0, [r6]
-	muls r0, r5
-	adds r0, r4
-	movs r1, 0x2A
-	bl GetMonData
-	str r0, [sp, 0xC]
-	ldrh r0, [r6]
-	muls r0, r5
-	adds r0, r4
-	movs r1, 0x2B
-	bl GetMonData
-	str r0, [sp, 0x10]
-	ldrh r0, [r6]
-	muls r0, r5
-	adds r0, r4
-	movs r1, 0x2C
-	bl GetMonData
-	str r0, [sp, 0x14]
-	ldr r1, =gSpecialVar_0x8005
-	movs r0, 0
-	strh r0, [r1]
-	movs r4, 0
-	adds r2, r1, 0
-_08139E00:
-	lsls r0, r4, 2
-	add r0, sp
-	ldr r1, [r0]
-	ldrh r0, [r2]
-	adds r0, r1
-	strh r0, [r2]
-	adds r0, r4, 0x1
-	lsls r0, 24
-	lsrs r4, r0, 24
-	cmp r4, 0x5
-	bls _08139E00
-	ldr r2, =gSpecialVar_0x8006
-	movs r0, 0
-	strh r0, [r2]
-	ldr r1, =gSpecialVar_0x8007
-	ldr r0, [sp]
-	strh r0, [r1]
-	movs r4, 0x1
-	adds r6, r2, 0
-	adds r7, r1, 0
-_08139E28:
-	ldrh r0, [r6]
-	lsls r0, 2
-	mov r2, sp
-	adds r1, r2, r0
-	lsls r0, r4, 2
-	adds r5, r2, r0
-	ldr r1, [r1]
-	ldr r0, [r5]
-	cmp r1, r0
-	bcs _08139E54
-	strh r4, [r6]
-	b _08139E6C
-	.pool
-_08139E54:
-	cmp r1, r0
-	bne _08139E6E
-	bl Random
-	lsls r0, 16
-	lsrs r0, 16
-	movs r1, 0x1
-	ands r0, r1
-	cmp r0, 0
-	beq _08139E6E
-	strh r4, [r6]
-	ldr r0, [r5]
-_08139E6C:
-	strh r0, [r7]
-_08139E6E:
-	adds r0, r4, 0x1
-	lsls r0, 24
-	lsrs r4, r0, 24
-	cmp r4, 0x5
-	bls _08139E28
-	add sp, 0x18
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	thumb_func_end sub_8139D98
-
-	thumb_func_start warp0_in_pokecenter
-warp0_in_pokecenter: @ 8139E80
-	push {r4,lr}
-	ldr r0, =gUnknown_020322DC
-	movs r1, 0
-	ldrsb r1, [r0, r1]
-	lsls r1, 8
-	ldrb r0, [r0, 0x1]
-	lsls r0, 24
-	asrs r0, 24
-	adds r0, r1
-	lsls r0, 16
-	lsrs r3, r0, 16
-	ldr r2, =gUnknown_085B2C2A
-	ldrh r0, [r2]
-	ldr r1, =0x0000ffff
-	cmp r0, r1
-	beq _08139EC6
-	adds r4, r1, 0
-	adds r1, r2, 0
-_08139EA4:
-	ldrh r0, [r2]
-	cmp r0, r3
-	bne _08139EBC
-	movs r0, 0x1
-	b _08139EC8
-	.pool
-_08139EBC:
-	adds r1, 0x2
-	adds r2, 0x2
-	ldrh r0, [r1]
-	cmp r0, r4
-	bne _08139EA4
-_08139EC6:
-	movs r0, 0
-_08139EC8:
-	pop {r4}
-	pop {r1}
-	bx r1
-	thumb_func_end warp0_in_pokecenter
-
-	thumb_func_start sub_8139ED0
-sub_8139ED0: @ 8139ED0
-	push {lr}
-	ldr r0, =gSaveBlock1Ptr
-	ldr r0, [r0]
-	ldrh r1, [r0, 0x4]
-	ldr r0, =0x00003c1a
-	cmp r1, r0
-	beq _08139EEC
-	movs r0, 0x1
-	b _08139EEE
-	.pool
-_08139EEC:
-	movs r0, 0
-_08139EEE:
-	pop {r1}
-	bx r1
-	thumb_func_end sub_8139ED0
-
-	thumb_func_start UpdateFrontierManiac
-UpdateFrontierManiac: @ 8139EF4
-	push {r4,r5,lr}
-	adds r4, r0, 0
-	lsls r4, 16
-	lsrs r4, 16
-	ldr r0, =0x0000402f
-	bl GetVarPointer
-	adds r5, r0, 0
-	ldrh r0, [r5]
-	adds r4, r0
-	strh r4, [r5]
-	ldrh r0, [r5]
-	movs r1, 0xA
-	bl __umodsi3
-	strh r0, [r5]
-	pop {r4,r5}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end UpdateFrontierManiac
-
-	thumb_func_start sub_8139F20
-sub_8139F20: @ 8139F20
-	push {r4-r7,lr}
-	movs r4, 0
-	ldr r0, =0x0000402f
-	bl VarGet
-	lsls r0, 16
-	lsrs r6, r0, 16
-	cmp r6, 0x9
-	bls _08139F34
-	b _0813A03A
-_08139F34:
-	lsls r0, r6, 2
-	ldr r1, =_08139F48
-	adds r1, r0, r1
-	ldr r1, [r1]
-	adds r2, r0, 0
-	mov pc, r1
-	.pool
-	.align 2, 0
-_08139F48:
-	.4byte _08139F70
-	.4byte _08139F70
-	.4byte _08139F70
-	.4byte _08139F70
-	.4byte _08139F94
-	.4byte _08139FB4
-	.4byte _08139FCC
-	.4byte _08139FE4
-	.4byte _08139FFC
-	.4byte _0813A014
-_08139F70:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	movs r3, 0xCE
-	lsls r3, 4
-	adds r1, r0, r3
-	adds r3, r1, r2
-	ldr r1, =0x00000ce2
-	adds r0, r1
-	adds r1, r0, r2
-	ldrh r0, [r3]
-	ldrh r2, [r1]
-	cmp r0, r2
-	bcs _0813A028
-	b _0813A038
-	.pool
-_08139F94:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r3, =0x00000d0c
-	adds r2, r0, r3
-	adds r3, 0x2
-_08139F9E:
-	adds r1, r0, r3
-	ldrh r0, [r2]
-	ldrh r3, [r1]
-	cmp r0, r3
-	bcs _0813A028
-	b _0813A038
-	.pool
-_08139FB4:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r1, =0x00000de2
-	adds r2, r0, r1
-	ldr r3, =0x00000de4
-	b _08139F9E
-	.pool
-_08139FCC:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r1, =0x00000dc8
-	adds r2, r0, r1
-	ldr r3, =0x00000dca
-	b _08139F9E
-	.pool
-_08139FE4:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r1, =0x00000dda
-	adds r2, r0, r1
-	ldr r3, =0x00000ddc
-	b _08139F9E
-	.pool
-_08139FFC:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r1, =0x00000e04
-	adds r2, r0, r1
-	ldr r3, =0x00000e06
-	b _08139F9E
-	.pool
-_0813A014:
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r1, =0x00000e1a
-	adds r2, r0, r1
-	ldr r3, =0x00000e1c
-	adds r1, r0, r3
-	ldrh r0, [r2]
-	ldrh r3, [r1]
-	cmp r0, r3
-	bcc _0813A038
-_0813A028:
-	adds r4, r0, 0
-	b _0813A03A
-	.pool
-_0813A038:
-	ldrh r4, [r1]
-_0813A03A:
-	movs r2, 0
-	ldr r5, =gUnknown_085B2CC8
-	lsls r0, r6, 1
-	adds r1, r0, r5
-	ldrb r1, [r1]
-	adds r3, r0, 0
-	ldr r7, =gUnknown_085B2C50
-	cmp r1, r4
-	bcs _0813A062
-	adds r1, r3, 0
-_0813A04E:
-	adds r0, r2, 0x1
-	lsls r0, 24
-	lsrs r2, r0, 24
-	cmp r2, 0x1
-	bhi _0813A062
-	adds r0, r2, r1
-	adds r0, r5
-	ldrb r0, [r0]
-	cmp r0, r4
-	bcc _0813A04E
-_0813A062:
-	adds r0, r3, r6
-	adds r0, r2
-	lsls r0, 2
-	adds r0, r7
-	ldr r0, [r0]
-	bl ShowFieldMessage
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_8139F20
-
-	thumb_func_start sub_813A080
-sub_813A080: @ 813A080
-	push {r4-r7,lr}
-	ldr r0, =0x000040ce
-	bl VarGet
-	lsls r0, 16
-	lsrs r5, r0, 16
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	ldr r1, =0x00000ca9
-	adds r0, r1
-	ldrb r0, [r0]
-	lsls r0, 30
-	lsrs r4, r0, 30
-	cmp r5, 0x2
-	bne _0813A0D8
-	movs r0, 0xA9
-	lsls r0, 1
-	bl FlagGet
-	lsls r0, 24
-	cmp r0, 0
-	bne _0813A0D8
-	ldr r1, =gSpecialVar_0x8005
-	movs r0, 0x5
-	strh r0, [r1]
-	ldr r1, =gSpecialVar_0x8006
-	movs r0, 0x4
-	strh r0, [r1]
-	b _0813A110
-	.pool
-_0813A0D0:
-	movs r0, 0x4
-	strh r0, [r6]
-	adds r0, r3, 0x5
-	b _0813A10E
-_0813A0D8:
-	movs r3, 0
-	ldr r6, =gSpecialVar_0x8005
-	ldr r7, =gSpecialVar_0x8006
-	lsls r1, r4, 1
-	lsls r2, r5, 2
-	ldr r4, =gUnknown_085B2CDC
-	ldr r0, =gSaveBlock2Ptr
-	ldr r0, [r0]
-	adds r1, r2
-	movs r2, 0xCE
-	lsls r2, 4
-	adds r0, r2
-	adds r0, r1
-	ldrh r1, [r0]
-_0813A0F4:
-	lsls r0, r3, 1
-	adds r0, r4
-	ldrh r0, [r0]
-	cmp r0, r1
-	bhi _0813A0D0
-	adds r0, r3, 0x1
-	lsls r0, 24
-	lsrs r3, r0, 24
-	cmp r3, 0x8
-	bls _0813A0F4
-	movs r0, 0x4
-	strh r0, [r6]
-	movs r0, 0xC
-_0813A10E:
-	strh r0, [r7]
-_0813A110:
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_813A080
-
-	thumb_func_start sub_813A128
-sub_813A128: @ 813A128
-	push {r4,lr}
-	ldr r0, =sub_813A2DC
-	movs r1, 0x8
-	bl CreateTask
-	lsls r0, 24
-	lsrs r4, r0, 24
-	lsls r0, r4, 2
-	adds r0, r4
-	lsls r0, 3
-	ldr r1, =gTasks
-	adds r3, r0, r1
-	ldr r1, =gSpecialVar_0x8004
-	ldrh r0, [r1]
-	strh r0, [r3, 0x1E]
-	ldrh r0, [r1]
-	cmp r0, 0xC
-	bls _0813A14E
-	b _0813A2C6
-_0813A14E:
-	lsls r0, 2
-	ldr r1, =_0813A168
-	adds r0, r1
-	ldr r0, [r0]
-	mov pc, r0
-	.pool
-	.align 2, 0
-_0813A168:
-	.4byte _0813A19C
-	.4byte _0813A1AA
-	.4byte _0813A1C2
-	.4byte _0813A1D6
-	.4byte _0813A1F0
-	.4byte _0813A208
-	.4byte _0813A222
-	.4byte _0813A23C
-	.4byte _0813A25A
-	.4byte _0813A274
-	.4byte _0813A274
-	.4byte _0813A28E
-	.4byte _0813A2A8
-_0813A19C:
-	movs r1, 0
-	movs r0, 0x1
-	strh r0, [r3, 0x8]
-	strh r0, [r3, 0xA]
-	strh r0, [r3, 0xC]
-	strh r0, [r3, 0xE]
-	b _0813A2BC
-_0813A1AA:
-	movs r1, 0
-	movs r0, 0x5
-	strh r0, [r3, 0x8]
-	movs r0, 0x8
-	strh r0, [r3, 0xA]
-	movs r0, 0x1
-	strh r0, [r3, 0xC]
-	strh r0, [r3, 0xE]
-	movs r0, 0x9
-	strh r0, [r3, 0x10]
-	movs r0, 0xA
-	b _0813A2BE
-_0813A1C2:
-	movs r2, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r1, 0xC
-	strh r1, [r3, 0xA]
-	movs r0, 0x1
-	strh r0, [r3, 0xC]
-	strh r0, [r3, 0xE]
-	movs r0, 0x7
-	b _0813A250
-_0813A1D6:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0xB
-	strh r0, [r3, 0xA]
-	movs r0, 0xE
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xF
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A1F0:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	strh r0, [r3, 0xA]
-	movs r0, 0xE
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xF
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A208:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0x7
-	strh r0, [r3, 0xA]
-	movs r0, 0xE
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xF
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A222:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0xA
-	strh r0, [r3, 0xA]
-	movs r0, 0xE
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xF
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A23C:
-	movs r2, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r1, 0xC
-	strh r1, [r3, 0xA]
-	movs r0, 0xF
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xE
-_0813A250:
-	strh r0, [r3, 0x10]
-	strh r1, [r3, 0x12]
-	strh r2, [r3, 0x14]
-	strh r4, [r3, 0x26]
-	b _0813A2D2
-_0813A25A:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0xA
-	strh r0, [r3, 0xA]
-	movs r0, 0x11
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xB
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A274:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0xB
-	strh r0, [r3, 0xA]
-	movs r0, 0xF
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xE
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A28E:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0x7
-	strh r0, [r3, 0xA]
-	movs r0, 0x13
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xA
-	strh r0, [r3, 0x10]
-	movs r0, 0xC
-	b _0813A2BE
-_0813A2A8:
-	movs r1, 0
-	movs r0, 0x6
-	strh r0, [r3, 0x8]
-	movs r0, 0x7
-	strh r0, [r3, 0xA]
-	movs r0, 0x11
-	strh r0, [r3, 0xC]
-	movs r0, 0x1
-	strh r0, [r3, 0xE]
-	movs r0, 0xC
-_0813A2BC:
-	strh r0, [r3, 0x10]
-_0813A2BE:
-	strh r0, [r3, 0x12]
-	strh r1, [r3, 0x14]
-	strh r4, [r3, 0x26]
-	b _0813A2D2
-_0813A2C6:
-	ldr r1, =gSpecialVar_Result
-	movs r0, 0x7F
-	strh r0, [r1]
-	adds r0, r4, 0
-	bl DestroyTask
-_0813A2D2:
-	pop {r4}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_813A128
-
-	thumb_func_start sub_813A2DC
-sub_813A2DC: @ 813A2DC
-	push {r4-r7,lr}
-	mov r7, r8
-	push {r7}
-	sub sp, 0x20
-	lsls r0, 24
-	lsrs r7, r0, 24
-	lsls r0, r7, 2
-	adds r0, r7
-	lsls r0, 3
-	ldr r1, =gTasks
-	adds r6, r0, r1
-	bl ScriptContext2_Enable
-	ldr r0, =gUnknown_0203AB68
-	movs r5, 0
-	strh r5, [r0]
-	ldr r1, =gUnknown_0203AB6C
-	movs r0, 0x40
-	strb r0, [r1]
-	ldrh r0, [r6, 0x1E]
-	movs r1, 0
-	bl sub_813AA60
-	ldrb r0, [r6, 0x1E]
-	movs r1, 0
-	bl sub_813ACE8
-	ldr r4, =gUnknown_0203AB64
-	movs r1, 0xA
-	ldrsh r0, [r6, r1]
-	lsls r0, 3
-	bl AllocZeroed
-	str r0, [r4]
-	ldr r0, =gUnknown_0203AB6A
-	strh r5, [r0]
-	bl sub_813A42C
-	movs r3, 0
-	movs r4, 0
-	movs r2, 0xA
-	ldrsh r0, [r6, r2]
-	add r1, sp, 0x18
-	mov r8, r1
-	cmp r3, r0
-	bge _0813A36A
-	ldr r5, =gUnknown_085B2CF0
-_0813A33A:
-	lsls r1, r4, 2
-	ldr r0, =gSpecialVar_0x8004
-	ldrh r0, [r0]
-	lsls r0, 6
-	adds r1, r0
-	adds r1, r5
-	ldr r0, [r1]
-	ldr r1, =gUnknown_0203AB64
-	ldr r2, [r1]
-	lsls r1, r4, 3
-	adds r1, r2
-	str r0, [r1]
-	str r4, [r1, 0x4]
-	adds r1, r3, 0
-	bl display_text_and_get_width
-	adds r3, r0, 0
-	adds r0, r4, 0x1
-	lsls r0, 24
-	lsrs r4, r0, 24
-	movs r2, 0xA
-	ldrsh r0, [r6, r2]
-	cmp r4, r0
-	blt _0813A33A
-_0813A36A:
-	adds r0, r3, 0
-	bl convert_pixel_width_to_tile_width
-	strh r0, [r6, 0x10]
-	movs r1, 0xC
-	ldrsh r0, [r6, r1]
-	movs r2, 0x10
-	ldrsh r1, [r6, r2]
-	adds r0, r1
-	cmp r0, 0x1D
-	ble _0813A38C
-	movs r0, 0x1D
-	subs r0, r1
-	cmp r0, 0
-	bge _0813A38A
-	movs r0, 0
-_0813A38A:
-	strh r0, [r6, 0xC]
-_0813A38C:
-	ldrb r2, [r6, 0xC]
-	ldrb r3, [r6, 0xE]
-	ldrb r0, [r6, 0x10]
-	str r0, [sp]
-	ldrb r0, [r6, 0x12]
-	str r0, [sp, 0x4]
-	movs r0, 0xF
-	str r0, [sp, 0x8]
-	movs r0, 0x64
-	str r0, [sp, 0xC]
-	add r0, sp, 0x10
-	movs r1, 0
-	bl sub_8198A50
-	ldr r0, [sp, 0x10]
-	ldr r1, [sp, 0x14]
-	str r0, [sp, 0x18]
-	str r1, [sp, 0x1C]
-	mov r0, r8
-	bl AddWindow
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r6, 0x22]
-	movs r1, 0
-	bl SetStandardWindowBorderStyle
-	ldr r4, =gUnknown_030061D0
-	ldrh r0, [r6, 0xA]
-	strh r0, [r4, 0xC]
-	ldrh r0, [r6, 0x8]
-	strh r0, [r4, 0xE]
-	ldrh r0, [r6, 0x22]
-	strb r0, [r4, 0x10]
-	adds r0, r7, 0
-	bl sub_813A694
-	ldrh r1, [r6, 0x16]
-	ldrh r2, [r6, 0x18]
-	adds r0, r4, 0
-	bl ListMenuInit
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r6, 0x24]
-	movs r0, 0
-	bl schedule_bg_copy_tilemap_to_vram
-	ldr r1, =gTasks
-	lsls r0, r7, 2
-	adds r0, r7
-	lsls r0, 3
-	adds r0, r1
-	ldr r1, =sub_813A4EC
-	str r1, [r0]
-	add sp, 0x20
-	pop {r3}
-	mov r8, r3
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_813A2DC
-
-	thumb_func_start sub_813A42C
-sub_813A42C: @ 813A42C
-	ldr r1, =gUnknown_030061D0
-	ldr r0, =gUnknown_0203AB64
-	ldr r0, [r0]
-	str r0, [r1]
-	ldr r0, =sub_813A46C
-	str r0, [r1, 0x4]
-	movs r0, 0
-	str r0, [r1, 0x8]
-	movs r2, 0
-	movs r0, 0x1
-	strh r0, [r1, 0xC]
-	strh r0, [r1, 0xE]
-	strb r2, [r1, 0x10]
-	strb r2, [r1, 0x11]
-	movs r0, 0x8
-	strb r0, [r1, 0x12]
-	strb r2, [r1, 0x13]
-	movs r0, 0x21
-	strb r0, [r1, 0x14]
-	movs r0, 0x31
-	strb r0, [r1, 0x15]
-	movs r0, 0
-	strb r0, [r1, 0x16]
-	movs r0, 0x1
-	strb r0, [r1, 0x17]
-	bx lr
-	.pool
-	thumb_func_end sub_813A42C
-
-	thumb_func_start sub_813A46C
-sub_813A46C: @ 813A46C
-	push {r4,r5,lr}
-	sub sp, 0x4
-	movs r0, 0x5
-	bl PlaySE
-	ldr r0, =sub_813A4EC
-	bl FindTaskIdByFunc
-	lsls r0, 24
-	lsrs r0, 24
-	cmp r0, 0xFF
-	beq _0813A4D4
-	lsls r4, r0, 2
-	adds r4, r0
-	lsls r4, 3
-	ldr r0, =gTasks
-	adds r4, r0
-	ldrh r0, [r4, 0x24]
-	lsls r0, 24
-	lsrs r0, 24
-	mov r1, sp
-	movs r2, 0
-	bl ListMenuGetScrollAndRow
-	ldr r1, =gUnknown_0203AB68
-	mov r0, sp
-	ldrh r0, [r0]
-	strh r0, [r1]
-	ldrh r0, [r4, 0x24]
-	lsls r0, 24
-	lsrs r0, 24
-	mov r1, sp
-	bl ListMenuGetCurrentItemArrayId
-	ldrh r0, [r4, 0x1E]
-	ldr r5, =gUnknown_0203AB6A
-	ldrh r1, [r5]
-	bl sub_813AC44
-	ldrh r0, [r4, 0x1E]
-	mov r1, sp
-	ldrh r1, [r1]
-	bl sub_813AA60
-	ldrb r0, [r4, 0x1E]
-	mov r1, sp
-	ldrh r1, [r1]
-	bl sub_813AD34
-	mov r0, sp
-	ldrh r0, [r0]
-	strh r0, [r5]
-_0813A4D4:
-	add sp, 0x4
-	pop {r4,r5}
-	pop {r0}
-	bx r0
-	.pool
-	thumb_func_end sub_813A46C
-
 	thumb_func_start sub_813A4EC
 sub_813A4EC: @ 813A4EC
 	push {r4-r6,lr}
diff --git a/asm/script_menu.s b/asm/script_menu.s
index a2e2ec59e..670740a77 100644
--- a/asm/script_menu.s
+++ b/asm/script_menu.s
@@ -1498,7 +1498,7 @@ CreateWindowFromRect: @ 80E2A1C
 	movs r1, 0
 	adds r2, r4, 0
 	adds r3, r5, 0
-	bl sub_8198A50
+	bl CreateWindowTemplate
 	ldr r0, [sp, 0x10]
 	ldr r1, [sp, 0x14]
 	str r0, [sp, 0x18]