Pokecenter Heal and Hall Of Fame Record Effect, 1

3 files changed, 334 insertions, 511 deletions

diff --git a/asm/field_effect.s b/asm/field_effect.s
index 246e66d04..fe930912e 100644
--- a/asm/field_effect.s
+++ b/asm/field_effect.s
@@ -6,517 +6,6 @@
 
 	.text
 
-	thumb_func_start MultiplyInvertedPaletteRGBComponents
-MultiplyInvertedPaletteRGBComponents: @ 8085C7C
-	push {r4-r7,lr}
-	mov r7, r9
-	mov r6, r8
-	push {r6,r7}
-	lsls r0, 16
-	lsls r1, 24
-	lsrs r1, 24
-	lsls r2, 24
-	lsrs r2, 24
-	lsls r3, 24
-	lsrs r3, 24
-	ldr r4, _08085D00 @ =gPlttBufferUnfaded
-	lsrs r0, 15
-	adds r4, r0, r4
-	ldrh r4, [r4]
-	movs r5, 0x1F
-	mov r9, r5
-	mov r8, r4
-	mov r6, r8
-	ands r6, r5
-	mov r8, r6
-	movs r6, 0xF8
-	lsls r6, 2
-	ands r6, r4
-	lsrs r6, 5
-	movs r5, 0xF8
-	lsls r5, 7
-	ands r4, r5
-	lsrs r4, 10
-	mov r7, r9
-	mov r5, r8
-	subs r7, r5
-	mov r12, r7
-	mov r7, r12
-	muls r7, r1
-	adds r1, r7, 0
-	asrs r1, 4
-	add r8, r1
-	mov r5, r9
-	subs r1, r5, r6
-	muls r1, r2
-	asrs r1, 4
-	adds r6, r1
-	subs r5, r4
-	mov r9, r5
-	mov r1, r9
-	muls r1, r3
-	asrs r1, 4
-	adds r4, r1
-	mov r7, r8
-	lsls r7, 16
-	lsls r6, 21
-	orrs r6, r7
-	lsls r4, 26
-	orrs r4, r6
-	lsrs r4, 16
-	ldr r1, _08085D04 @ =gPlttBufferFaded
-	adds r0, r1
-	strh r4, [r0]
-	pop {r3,r4}
-	mov r8, r3
-	mov r9, r4
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085D00: .4byte gPlttBufferUnfaded
-_08085D04: .4byte gPlttBufferFaded
-	thumb_func_end MultiplyInvertedPaletteRGBComponents
-
-	thumb_func_start MultiplyPaletteRGBComponents
-MultiplyPaletteRGBComponents: @ 8085D08
-	push {r4-r6,lr}
-	mov r6, r8
-	push {r6}
-	lsls r0, 16
-	lsls r1, 24
-	lsrs r1, 24
-	lsls r2, 24
-	lsrs r2, 24
-	lsls r3, 24
-	lsrs r3, 24
-	ldr r4, _08085D78 @ =gPlttBufferUnfaded
-	lsrs r0, 15
-	adds r4, r0, r4
-	ldrh r4, [r4]
-	movs r5, 0x1F
-	mov r8, r5
-	mov r6, r8
-	ands r6, r4
-	mov r8, r6
-	movs r5, 0xF8
-	lsls r5, 2
-	ands r5, r4
-	lsrs r5, 5
-	movs r6, 0xF8
-	lsls r6, 7
-	ands r4, r6
-	lsrs r4, 10
-	mov r6, r8
-	muls r6, r1
-	adds r1, r6, 0
-	asrs r1, 4
-	mov r6, r8
-	subs r6, r1
-	adds r1, r5, 0
-	muls r1, r2
-	asrs r1, 4
-	subs r5, r1
-	adds r1, r4, 0
-	muls r1, r3
-	asrs r1, 4
-	subs r4, r1
-	lsls r6, 16
-	lsls r5, 21
-	orrs r5, r6
-	lsls r4, 26
-	orrs r4, r5
-	lsrs r4, 16
-	ldr r1, _08085D7C @ =gPlttBufferFaded
-	adds r0, r1
-	strh r4, [r0]
-	pop {r3}
-	mov r8, r3
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085D78: .4byte gPlttBufferUnfaded
-_08085D7C: .4byte gPlttBufferFaded
-	thumb_func_end MultiplyPaletteRGBComponents
-
-	thumb_func_start FldEff_PokecenterHeal
-FldEff_PokecenterHeal: @ 8085D80
-	push {r4,lr}
-	bl CalculatePlayerPartyCount
-	adds r4, r0, 0
-	lsls r4, 24
-	lsrs r4, 24
-	ldr r0, _08085DBC @ =Task_PokecenterHeal
-	movs r1, 0xFF
-	bl CreateTask
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r1, r0, 2
-	adds r1, r0
-	lsls r1, 3
-	ldr r0, _08085DC0 @ =gTasks
-	adds r1, r0
-	strh r4, [r1, 0xA]
-	movs r0, 0x5D
-	strh r0, [r1, 0xC]
-	movs r0, 0x24
-	strh r0, [r1, 0xE]
-	movs r0, 0x7C
-	strh r0, [r1, 0x10]
-	movs r0, 0x18
-	strh r0, [r1, 0x12]
-	movs r0, 0
-	pop {r4}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_08085DBC: .4byte Task_PokecenterHeal
-_08085DC0: .4byte gTasks
-	thumb_func_end FldEff_PokecenterHeal
-
-	thumb_func_start Task_PokecenterHeal
-Task_PokecenterHeal: @ 8085DC4
-	push {lr}
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r1, r0, 2
-	adds r1, r0
-	lsls r1, 3
-	ldr r0, _08085DEC @ =gTasks
-	adds r1, r0
-	ldr r2, _08085DF0 @ =gUnknown_0839F268
-	movs r3, 0x8
-	ldrsh r0, [r1, r3]
-	lsls r0, 2
-	adds r0, r2
-	ldr r2, [r0]
-	adds r0, r1, 0
-	bl _call_via_r2
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085DEC: .4byte gTasks
-_08085DF0: .4byte gUnknown_0839F268
-	thumb_func_end Task_PokecenterHeal
-
-	thumb_func_start PokecenterHealEffect_0
-PokecenterHealEffect_0: @ 8085DF4
-	push {r4,lr}
-	adds r4, r0, 0
-	ldrh r0, [r4, 0x8]
-	adds r0, 0x1
-	strh r0, [r4, 0x8]
-	movs r1, 0xA
-	ldrsh r0, [r4, r1]
-	movs r2, 0xC
-	ldrsh r1, [r4, r2]
-	movs r3, 0xE
-	ldrsh r2, [r4, r3]
-	movs r3, 0x1
-	bl CreatePokeballGlowSprite
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r4, 0x14]
-	movs r1, 0x10
-	ldrsh r0, [r4, r1]
-	movs r2, 0x12
-	ldrsh r1, [r4, r2]
-	bl PokecenterHealEffectHelper
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r4, 0x16]
-	pop {r4}
-	pop {r0}
-	bx r0
-	thumb_func_end PokecenterHealEffect_0
-
-	thumb_func_start PokecenterHealEffect_1
-PokecenterHealEffect_1: @ 8085E30
-	push {r4,lr}
-	adds r2, r0, 0
-	ldr r3, _08085E68 @ =gSprites
-	movs r1, 0x14
-	ldrsh r0, [r2, r1]
-	lsls r1, r0, 4
-	adds r1, r0
-	lsls r1, 2
-	adds r1, r3
-	movs r4, 0x2E
-	ldrsh r0, [r1, r4]
-	cmp r0, 0x1
-	ble _08085E62
-	movs r0, 0x16
-	ldrsh r1, [r2, r0]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r3
-	ldrh r1, [r0, 0x2E]
-	adds r1, 0x1
-	strh r1, [r0, 0x2E]
-	ldrh r0, [r2, 0x8]
-	adds r0, 0x1
-	strh r0, [r2, 0x8]
-_08085E62:
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085E68: .4byte gSprites
-	thumb_func_end PokecenterHealEffect_1
-
-	thumb_func_start PokecenterHealEffect_2
-PokecenterHealEffect_2: @ 8085E6C
-	push {lr}
-	adds r3, r0, 0
-	ldr r2, _08085E90 @ =gSprites
-	movs r0, 0x14
-	ldrsh r1, [r3, r0]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r2
-	movs r1, 0x2E
-	ldrsh r0, [r0, r1]
-	cmp r0, 0x4
-	ble _08085E8C
-	ldrh r0, [r3, 0x8]
-	adds r0, 0x1
-	strh r0, [r3, 0x8]
-_08085E8C:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085E90: .4byte gSprites
-	thumb_func_end PokecenterHealEffect_2
-
-	thumb_func_start PokecenterHealEffect_3
-PokecenterHealEffect_3: @ 8085E94
-	push {lr}
-	ldr r2, _08085ECC @ =gSprites
-	movs r3, 0x14
-	ldrsh r1, [r0, r3]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r0, r2
-	movs r2, 0x2E
-	ldrsh r0, [r1, r2]
-	cmp r0, 0x6
-	ble _08085EC6
-	adds r0, r1, 0
-	bl DestroySprite
-	movs r0, 0x19
-	bl FieldEffectActiveListRemove
-	ldr r0, _08085ED0 @ =Task_PokecenterHeal
-	bl FindTaskIdByFunc
-	lsls r0, 24
-	lsrs r0, 24
-	bl DestroyTask
-_08085EC6:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085ECC: .4byte gSprites
-_08085ED0: .4byte Task_PokecenterHeal
-	thumb_func_end PokecenterHealEffect_3
-
-	thumb_func_start FldEff_HallOfFameRecord
-FldEff_HallOfFameRecord: @ 8085ED4
-	push {r4,lr}
-	bl CalculatePlayerPartyCount
-	adds r4, r0, 0
-	lsls r4, 24
-	lsrs r4, 24
-	ldr r0, _08085F08 @ =Task_HallOfFameRecord
-	movs r1, 0xFF
-	bl CreateTask
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r1, r0, 2
-	adds r1, r0
-	lsls r1, 3
-	ldr r0, _08085F0C @ =gTasks
-	adds r1, r0
-	strh r4, [r1, 0xA]
-	movs r0, 0x75
-	strh r0, [r1, 0xC]
-	movs r0, 0x34
-	strh r0, [r1, 0xE]
-	movs r0, 0
-	pop {r4}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_08085F08: .4byte Task_HallOfFameRecord
-_08085F0C: .4byte gTasks
-	thumb_func_end FldEff_HallOfFameRecord
-
-	thumb_func_start Task_HallOfFameRecord
-Task_HallOfFameRecord: @ 8085F10
-	push {lr}
-	lsls r0, 24
-	lsrs r0, 24
-	lsls r1, r0, 2
-	adds r1, r0
-	lsls r1, 3
-	ldr r0, _08085F38 @ =gTasks
-	adds r1, r0
-	ldr r2, _08085F3C @ =gUnknown_0839F278
-	movs r3, 0x8
-	ldrsh r0, [r1, r3]
-	lsls r0, 2
-	adds r0, r2
-	ldr r2, [r0]
-	adds r0, r1, 0
-	bl _call_via_r2
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085F38: .4byte gTasks
-_08085F3C: .4byte gUnknown_0839F278
-	thumb_func_end Task_HallOfFameRecord
-
-	thumb_func_start HallOfFameRecordEffect_0
-HallOfFameRecordEffect_0: @ 8085F40
-	push {r4,lr}
-	adds r4, r0, 0
-	ldrh r0, [r4, 0x8]
-	adds r0, 0x1
-	strh r0, [r4, 0x8]
-	movs r1, 0xA
-	ldrsh r0, [r4, r1]
-	movs r2, 0xC
-	ldrsh r1, [r4, r2]
-	movs r3, 0xE
-	ldrsh r2, [r4, r3]
-	movs r3, 0
-	bl CreatePokeballGlowSprite
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r4, 0x14]
-	ldr r0, _08085FB0 @ =Task_HallOfFameRecord
-	bl FindTaskIdByFunc
-	adds r4, r0, 0
-	lsls r4, 24
-	lsrs r4, 24
-	adds r0, r4, 0
-	movs r1, 0x78
-	movs r2, 0x18
-	movs r3, 0
-	bl HallOfFameRecordEffectHelper
-	adds r0, r4, 0
-	movs r1, 0x28
-	movs r2, 0x8
-	movs r3, 0x1
-	bl HallOfFameRecordEffectHelper
-	adds r0, r4, 0
-	movs r1, 0x48
-	movs r2, 0x8
-	movs r3, 0x1
-	bl HallOfFameRecordEffectHelper
-	adds r0, r4, 0
-	movs r1, 0xA8
-	movs r2, 0x8
-	movs r3, 0x1
-	bl HallOfFameRecordEffectHelper
-	adds r0, r4, 0
-	movs r1, 0xC8
-	movs r2, 0x8
-	movs r3, 0x1
-	bl HallOfFameRecordEffectHelper
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085FB0: .4byte Task_HallOfFameRecord
-	thumb_func_end HallOfFameRecordEffect_0
-
-	thumb_func_start HallOfFameRecordEffect_1
-HallOfFameRecordEffect_1: @ 8085FB4
-	push {lr}
-	adds r3, r0, 0
-	ldr r2, _08085FE0 @ =gSprites
-	movs r0, 0x14
-	ldrsh r1, [r3, r0]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r2
-	movs r1, 0x2E
-	ldrsh r0, [r0, r1]
-	cmp r0, 0x1
-	ble _08085FDA
-	ldrh r0, [r3, 0x26]
-	adds r0, 0x1
-	strh r0, [r3, 0x26]
-	ldrh r0, [r3, 0x8]
-	adds r0, 0x1
-	strh r0, [r3, 0x8]
-_08085FDA:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08085FE0: .4byte gSprites
-	thumb_func_end HallOfFameRecordEffect_1
-
-	thumb_func_start HallOfFameRecordEffect_2
-HallOfFameRecordEffect_2: @ 8085FE4
-	push {lr}
-	adds r3, r0, 0
-	ldr r2, _08086008 @ =gSprites
-	movs r0, 0x14
-	ldrsh r1, [r3, r0]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r0, r2
-	movs r1, 0x2E
-	ldrsh r0, [r0, r1]
-	cmp r0, 0x4
-	ble _08086004
-	ldrh r0, [r3, 0x8]
-	adds r0, 0x1
-	strh r0, [r3, 0x8]
-_08086004:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08086008: .4byte gSprites
-	thumb_func_end HallOfFameRecordEffect_2
-
-	thumb_func_start HallOfFameRecordEffect_3
-HallOfFameRecordEffect_3: @ 808600C
-	push {lr}
-	ldr r2, _08086044 @ =gSprites
-	movs r3, 0x14
-	ldrsh r1, [r0, r3]
-	lsls r0, r1, 4
-	adds r0, r1
-	lsls r0, 2
-	adds r1, r0, r2
-	movs r2, 0x2E
-	ldrsh r0, [r1, r2]
-	cmp r0, 0x6
-	ble _0808603E
-	adds r0, r1, 0
-	bl DestroySprite
-	movs r0, 0x3E
-	bl FieldEffectActiveListRemove
-	ldr r0, _08086048 @ =Task_HallOfFameRecord
-	bl FindTaskIdByFunc
-	lsls r0, 24
-	lsrs r0, 24
-	bl DestroyTask
-_0808603E:
-	pop {r0}
-	bx r0
-	.align 2, 0
-_08086044: .4byte gSprites
-_08086048: .4byte Task_HallOfFameRecord
-	thumb_func_end HallOfFameRecordEffect_3
-
 	thumb_func_start CreatePokeballGlowSprite
 CreatePokeballGlowSprite: @ 808604C
 	push {r4-r6,lr}
diff --git a/include/field_effect.h b/include/field_effect.h
index d4ec0c8b4..e3e80b3df 100644
--- a/include/field_effect.h
+++ b/include/field_effect.h
@@ -3,6 +3,74 @@
 
 #include "sprite.h"
 
+enum FieldEffectScriptIdx
+{
+    FLDEFF_EXCLAMATION_MARK_ICON_1,
+    FLDEFF_USE_CUT_ON_GRASS,
+    FLDEFF_USE_CUT_ON_TREE,
+    FLDEFF_SHADOW,
+    FLDEFF_TALL_GRASS,
+    FLDEFF_RIPPLE,
+    FLDEFF_FIELD_MOVE_SHOW_MON,
+    FLDEFF_ASH,
+    FLDEFF_SURF_BLOB,
+    FLDEFF_USE_SURF,
+    FLDEFF_DUST,
+    FLDEFF_USE_SECRET_POWER_CAVE,
+    FLDEFF_JUMP_TALL_GRASS,
+    FLDEFF_SAND_FOOTPRINTS,
+    FLDEFF_JUMP_BIG_SPLASH,
+    FLDEFF_SPLASH,
+    FLDEFF_JUMP_SMALL_SPLASH,
+    FLDEFF_LONG_GRASS,
+    FLDEFF_JUMP_LONG_GRASS,
+    FLDEFF_UNKNOWN_19,
+    FLDEFF_UNKNOWN_20,
+    FLDEFF_UNKNOWN_21,
+    FLDEFF_UNKNOWN_22,
+    FLDEFF_BERRY_TREE_GROWTH_SPARKLE,
+    FLDEFF_DEEP_SAND_FOOTPRINTS,
+    FLDEFF_POKECENTER_HEAL,
+    FLDEFF_USE_SECRET_POWER_TREE,
+    FLDEFF_USE_SECRET_POWER_SHRUB,
+    FLDEFF_TREE_DISGUISE,
+    FLDEFF_MOUNTAIN_DISGUISE,
+    FLDEFF_NPCFLY_OUT,
+    FLDEFF_USE_FLY,
+    FLDEFF_FLY_IN,
+    FLDEFF_EXCLAMATION_MARK_ICON_2,
+    FLDEFF_FEET_IN_FLOWING_WATER,
+    FLDEFF_BIKE_TIRE_TRACKS,
+    FLDEFF_SAND_DISGUISE,
+    FLDEFF_USE_ROCK_SMASH,
+    FLDEFF_USE_DIG,
+    FLDEFF_SAND_PILE,
+    FLDEFF_USE_STRENGTH,
+    FLDEFF_SHORT_GRASS,
+    FLDEFF_HOT_SPRINGS_WATER,
+    FLDEFF_USE_WATERFALL,
+    FLDEFF_USE_DIVE,
+    FLDEFF_POKEBALL,
+    FLDEFF_HEART_ICON,
+    FLDEFF_NOP_47,
+    FLDEFF_NOP_48,
+    FLDEFF_POP_OUT_OF_ASH,
+    FLDEFF_LAVARIDGE_GYM_WARP,
+    FLDEFF_SWEET_SCENT,
+    FLDEFF_SAND_PILLAR,
+    FLDEFF_BUBBLES,
+    FLDEFF_SPARKLE,
+    FLDEFF_SECRET_POWER_CAVE,
+    FLDEFF_SECRET_POWER_TREE,
+    FLDEFF_SECRET_POWER_SHRUB,
+    FLDEFF_CUT_GRASS,
+    FLDEFF_FIELD_MOVE_SHOW_MON_INIT,
+    FLDEFF_USE_FLY_ANCIENT_TOMB,
+    FLDEFF_PCTURN_ON,
+    FLDEFF_HALL_OF_FAME_RECORD,
+    FLDEFF_USE_TELEPORT
+};
+
 extern const struct SpritePalette gTrainerFrontPicPaletteTable[2];
 extern const struct SpritePalette gUnknown_0839F114;
 extern const struct SpriteSheet gTrainerFrontPicTable[2];
diff --git a/src/field_effect.c b/src/field_effect.c
index e13809d27..72fd281af 100644
--- a/src/field_effect.c
+++ b/src/field_effect.c
@@ -5,6 +5,7 @@
 #include "sprite.h"
 #include "palette.h"
 #include "text.h"
+#include "task.h"
 #include "field_effect.h"
 
 typedef bool8 (*FldEffCmd)(u8 **, u32 *);
@@ -302,4 +303,269 @@ void MultiplyPaletteRGBComponents(u16 i, u8 r, u8 g, u8 b)
     curBlue -= ((curBlue * b) >> 4);
     gPlttBufferFaded[i] = RGB(curRed, curGreen, curBlue);
 }
+#else
+__attribute__((naked))
+void MultiplyInvertedPaletteRGBComponents(u16 i, u8 r, u8 g, u8 b)
+{
+    asm(".syntax unified\n"
+    "\tpush {r4-r7,lr}\n"
+    "\tmov r7, r9\n"
+    "\tmov r6, r8\n"
+    "\tpush {r6,r7}\n"
+    "\tlsls r0, 16\n"
+    "\tlsls r1, 24\n"
+    "\tlsrs r1, 24\n"
+    "\tlsls r2, 24\n"
+    "\tlsrs r2, 24\n"
+    "\tlsls r3, 24\n"
+    "\tlsrs r3, 24\n"
+    "\tldr r4, _08085D00 @ =gPlttBufferUnfaded\n"
+    "\tlsrs r0, 15\n"
+    "\tadds r4, r0, r4\n"
+    "\tldrh r4, [r4]\n"
+    "\tmovs r5, 0x1F\n"
+    "\tmov r9, r5\n"
+    "\tmov r8, r4\n"
+    "\tmov r6, r8\n"
+    "\tands r6, r5\n"
+    "\tmov r8, r6\n"
+    "\tmovs r6, 0xF8\n"
+    "\tlsls r6, 2\n"
+    "\tands r6, r4\n"
+    "\tlsrs r6, 5\n"
+    "\tmovs r5, 0xF8\n"
+    "\tlsls r5, 7\n"
+    "\tands r4, r5\n"
+    "\tlsrs r4, 10\n"
+    "\tmov r7, r9\n"
+    "\tmov r5, r8\n"
+    "\tsubs r7, r5\n"
+    "\tmov r12, r7\n"
+    "\tmov r7, r12\n"
+    "\tmuls r7, r1\n"
+    "\tadds r1, r7, 0\n"
+    "\tasrs r1, 4\n"
+    "\tadd r8, r1\n"
+    "\tmov r5, r9\n"
+    "\tsubs r1, r5, r6\n"
+    "\tmuls r1, r2\n"
+    "\tasrs r1, 4\n"
+    "\tadds r6, r1\n"
+    "\tsubs r5, r4\n"
+    "\tmov r9, r5\n"
+    "\tmov r1, r9\n"
+    "\tmuls r1, r3\n"
+    "\tasrs r1, 4\n"
+    "\tadds r4, r1\n"
+    "\tmov r7, r8\n"
+    "\tlsls r7, 16\n"
+    "\tlsls r6, 21\n"
+    "\torrs r6, r7\n"
+    "\tlsls r4, 26\n"
+    "\torrs r4, r6\n"
+    "\tlsrs r4, 16\n"
+    "\tldr r1, _08085D04 @ =gPlttBufferFaded\n"
+    "\tadds r0, r1\n"
+    "\tstrh r4, [r0]\n"
+    "\tpop {r3,r4}\n"
+    "\tmov r8, r3\n"
+    "\tmov r9, r4\n"
+    "\tpop {r4-r7}\n"
+    "\tpop {r0}\n"
+    "\tbx r0\n"
+    "\t.align 2, 0\n"
+    "_08085D00: .4byte gPlttBufferUnfaded\n"
+    "_08085D04: .4byte gPlttBufferFaded\n"
+    ".syntax divided");
+}
+
+__attribute__((naked))
+void MultiplyPaletteRGBComponents(u16 i, u8 r, u8 g, u8 b)
+{
+    asm(".syntax unified\n"
+    "\tpush {r4-r6,lr}\n"
+    "\tmov r6, r8\n"
+    "\tpush {r6}\n"
+    "\tlsls r0, 16\n"
+    "\tlsls r1, 24\n"
+    "\tlsrs r1, 24\n"
+    "\tlsls r2, 24\n"
+    "\tlsrs r2, 24\n"
+    "\tlsls r3, 24\n"
+    "\tlsrs r3, 24\n"
+    "\tldr r4, _08085D78 @ =gPlttBufferUnfaded\n"
+    "\tlsrs r0, 15\n"
+    "\tadds r4, r0, r4\n"
+    "\tldrh r4, [r4]\n"
+    "\tmovs r5, 0x1F\n"
+    "\tmov r8, r5\n"
+    "\tmov r6, r8\n"
+    "\tands r6, r4\n"
+    "\tmov r8, r6\n"
+    "\tmovs r5, 0xF8\n"
+    "\tlsls r5, 2\n"
+    "\tands r5, r4\n"
+    "\tlsrs r5, 5\n"
+    "\tmovs r6, 0xF8\n"
+    "\tlsls r6, 7\n"
+    "\tands r4, r6\n"
+    "\tlsrs r4, 10\n"
+    "\tmov r6, r8\n"
+    "\tmuls r6, r1\n"
+    "\tadds r1, r6, 0\n"
+    "\tasrs r1, 4\n"
+    "\tmov r6, r8\n"
+    "\tsubs r6, r1\n"
+    "\tadds r1, r5, 0\n"
+    "\tmuls r1, r2\n"
+    "\tasrs r1, 4\n"
+    "\tsubs r5, r1\n"
+    "\tadds r1, r4, 0\n"
+    "\tmuls r1, r3\n"
+    "\tasrs r1, 4\n"
+    "\tsubs r4, r1\n"
+    "\tlsls r6, 16\n"
+    "\tlsls r5, 21\n"
+    "\torrs r5, r6\n"
+    "\tlsls r4, 26\n"
+    "\torrs r4, r5\n"
+    "\tlsrs r4, 16\n"
+    "\tldr r1, _08085D7C @ =gPlttBufferFaded\n"
+    "\tadds r0, r1\n"
+    "\tstrh r4, [r0]\n"
+    "\tpop {r3}\n"
+    "\tmov r8, r3\n"
+    "\tpop {r4-r6}\n"
+    "\tpop {r0}\n"
+    "\tbx r0\n"
+    "\t.align 2, 0\n"
+    "_08085D78: .4byte gPlttBufferUnfaded\n"
+    "_08085D7C: .4byte gPlttBufferFaded\n"
+    ".syntax divided");
+}
 #endif
+
+void Task_PokecenterHeal(u8 taskId);
+extern const void (*gUnknown_0839F268[4])(struct Task *);
+u8 CreatePokeballGlowSprite(s16, s16, s16, u16);
+u8 PokecenterHealEffectHelper(s16, s16);
+
+bool8 FldEff_PokecenterHeal(void)
+{
+    u8 nPokemon;
+    struct Task *task;
+
+    nPokemon = CalculatePlayerPartyCount();
+    task = &gTasks[CreateTask(Task_PokecenterHeal, 0xff)];
+    task->data[1] = nPokemon;
+    task->data[2] = 0x5d;
+    task->data[3] = 0x24;
+    task->data[4] = 0x7c;
+    task->data[5] = 0x18;
+    return FALSE;
+}
+
+void Task_PokecenterHeal(u8 taskId)
+{
+    struct Task *task;
+    task = &gTasks[taskId];
+    gUnknown_0839F268[task->data[0]](task);
+}
+
+void PokecenterHealEffect_0(struct Task *task)
+{
+    task->data[0]++;
+    task->data[6] = CreatePokeballGlowSprite(task->data[1], task->data[2], task->data[3], 1);
+    task->data[7] = PokecenterHealEffectHelper(task->data[4], task->data[5]);
+}
+
+void PokecenterHealEffect_1(struct Task *task)
+{
+    if (gSprites[task->data[6]].data0 > 1)
+    {
+        gSprites[task->data[7]].data0++;
+        task->data[0]++;
+    }
+}
+
+void PokecenterHealEffect_2(struct Task *task)
+{
+    if (gSprites[task->data[6]].data0 > 4)
+    {
+        task->data[0]++;
+    }
+}
+
+void PokecenterHealEffect_3(struct Task *task)
+{
+    if (gSprites[task->data[6]].data0 > 6)
+    {
+        DestroySprite(&gSprites[task->data[6]]);
+        FieldEffectActiveListRemove(FLDEFF_POKECENTER_HEAL);
+        DestroyTask(FindTaskIdByFunc(Task_PokecenterHeal));
+    }
+}
+
+void Task_HallOfFameRecord(u8 taskId);
+extern const void (*gUnknown_0839F278[4])(struct Task *);
+void HallOfFameRecordEffectHelper(u8, u8, u8, u8);
+
+bool8 FldEff_HallOfFameRecord(void)
+{
+    u8 nPokemon;
+    struct Task *task;
+
+    nPokemon = CalculatePlayerPartyCount();
+    task = &gTasks[CreateTask(Task_HallOfFameRecord, 0xff)];
+    task->data[1] = nPokemon;
+    task->data[2] = 0x75;
+    task->data[3] = 0x34;
+    return FALSE;
+}
+
+void Task_HallOfFameRecord(u8 taskId)
+{
+    struct Task *task;
+    task = &gTasks[taskId];
+    gUnknown_0839F278[task->data[0]](task);
+}
+
+void HallOfFameRecordEffect_0(struct Task *task)
+{
+    u8 taskId;
+    task->data[0]++;
+    task->data[6] = CreatePokeballGlowSprite(task->data[1], task->data[2], task->data[3], 0);
+    taskId = FindTaskIdByFunc(Task_HallOfFameRecord);
+    HallOfFameRecordEffectHelper(taskId, 0x78, 0x18, 0);
+    HallOfFameRecordEffectHelper(taskId, 0x28, 0x08, 1);
+    HallOfFameRecordEffectHelper(taskId, 0x48, 0x08, 1);
+    HallOfFameRecordEffectHelper(taskId, 0xa8, 0x08, 1);
+    HallOfFameRecordEffectHelper(taskId, 0xc8, 0x08, 1);
+}
+
+void HallOfFameRecordEffect_1(struct Task *task)
+{
+    if (gSprites[task->data[6]].data0 > 1)
+    {
+        task->data[15]++; // was this ever initialized? is this ever used?
+        task->data[0]++;
+    }
+}
+
+void HallOfFameRecordEffect_2(struct Task *task)
+{
+    if (gSprites[task->data[6]].data0 > 4)
+    {
+        task->data[0]++;
+    }
+}
+
+void HallOfFameRecordEffect_3(struct Task *task)
+{
+    if (gSprites[task->data[6]].data0 > 6)
+    {
+        DestroySprite(&gSprites[task->data[6]]);
+        FieldEffectActiveListRemove(FLDEFF_HALL_OF_FAME_RECORD);
+        DestroyTask(FindTaskIdByFunc(Task_HallOfFameRecord));
+    }
+}