Big shroomish barboach (#87)

* start decompiling

* decompile more functions

* clean up and rename big_shroomish_barboach.c to pokemon_size_record.c

* remove save file

* remove extraneous line from Makefile

8 files changed, 207 insertions, 528 deletions

diff --git a/asm/big_shroomish_barboach.s b/asm/big_shroomish_barboach.s
deleted file mode 100644
index f65615dff..000000000
--- a/asm/big_shroomish_barboach.s
+++ /dev/null
@@ -1,522 +0,0 @@
-	.include "constants/gba_constants.inc"
-	.include "constants/species_constants.inc"
-	.include "asm/macros.inc"
-
-	.syntax unified
-
-	.text
-
-	thumb_func_start GetBigMonSizeParams
-GetBigMonSizeParams: @ 80C58C0
-	push {r4-r7,lr}
-	mov r7, r10
-	mov r6, r9
-	mov r5, r8
-	push {r5-r7}
-	sub sp, 0x8
-	adds r5, r0, 0
-	movs r1, 0
-	bl GetMonData
-	lsls r0, 16
-	str r0, [sp, 0x4]
-	lsrs r0, 16
-	str r0, [sp]
-	adds r0, r5, 0
-	movs r1, 0x27
-	bl GetMonData
-	adds r7, r0, 0
-	movs r6, 0xF
-	ands r7, r6
-	adds r0, r5, 0
-	movs r1, 0x28
-	bl GetMonData
-	mov r8, r0
-	mov r1, r8
-	ands r1, r6
-	mov r8, r1
-	adds r0, r5, 0
-	movs r1, 0x29
-	bl GetMonData
-	mov r9, r0
-	mov r3, r9
-	ands r3, r6
-	mov r9, r3
-	adds r0, r5, 0
-	movs r1, 0x2A
-	bl GetMonData
-	mov r10, r0
-	ands r0, r6
-	mov r10, r0
-	adds r0, r5, 0
-	movs r1, 0x2B
-	bl GetMonData
-	adds r4, r0, 0
-	ands r4, r6
-	adds r0, r5, 0
-	movs r1, 0x2C
-	bl GetMonData
-	adds r2, r0, 0
-	ands r2, r6
-	mov r1, r8
-	mov r3, r9
-	eors r1, r3
-	mov r8, r1
-	mov r0, r8
-	muls r0, r7
-	movs r1, 0xFF
-	ldr r3, [sp]
-	ands r3, r1
-	eors r0, r3
-	eors r4, r2
-	mov r1, r10
-	muls r1, r4
-	ldr r3, [sp, 0x4]
-	lsrs r2, r3, 24
-	eors r1, r2
-	lsls r0, 8
-	adds r0, r1
-	add sp, 0x8
-	pop {r3-r5}
-	mov r8, r3
-	mov r9, r4
-	mov r10, r5
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	thumb_func_end GetBigMonSizeParams
-
-	thumb_func_start TranslateBigMonSizeTableIndex
-TranslateBigMonSizeTableIndex: @ 80C5964
-	push {lr}
-	lsls r0, 16
-	lsrs r2, r0, 16
-	movs r1, 0x1
-	ldr r3, _080C5980 @ =gUnknown_083D180C
-_080C596E:
-	lsls r0, r1, 3
-	adds r0, r3
-	ldrh r0, [r0, 0x4]
-	cmp r2, r0
-	bcs _080C5984
-	subs r0, r1, 0x1
-	lsls r0, 24
-	lsrs r0, 24
-	b _080C5990
-	.align 2, 0
-_080C5980: .4byte gUnknown_083D180C
-_080C5984:
-	adds r0, r1, 0x1
-	lsls r0, 24
-	lsrs r1, r0, 24
-	cmp r1, 0xE
-	bls _080C596E
-	adds r0, r1, 0
-_080C5990:
-	pop {r1}
-	bx r1
-	thumb_func_end TranslateBigMonSizeTableIndex
-
-	thumb_func_start GetBigMonSize
-GetBigMonSize: @ 80C5994
-	push {r4-r7,lr}
-	sub sp, 0x8
-	adds r6, r1, 0
-	lsls r0, 16
-	lsrs r0, 16
-	lsls r6, 16
-	lsrs r6, 16
-	bl SpeciesToNationalPokedexNum
-	lsls r0, 16
-	lsrs r0, 16
-	movs r1, 0
-	bl sub_8090D54
-	lsls r0, 16
-	lsrs r7, r0, 16
-	adds r0, r6, 0
-	bl TranslateBigMonSizeTableIndex
-	lsls r0, 24
-	ldr r1, _080C5A04 @ =gUnknown_083D180C
-	lsrs r0, 21
-	adds r0, r1
-	ldrh r1, [r0]
-	str r1, [sp]
-	movs r2, 0
-	str r2, [sp, 0x4]
-	ldrb r2, [r0, 0x2]
-	movs r3, 0
-	ldrh r4, [r0, 0x4]
-	movs r5, 0
-	adds r0, r6, 0
-	movs r1, 0
-	subs r0, r4
-	sbcs r1, r5
-	bl __udivdi3
-	ldr r2, [sp]
-	ldr r3, [sp, 0x4]
-	adds r2, r0
-	adcs r3, r1
-	str r2, [sp]
-	str r3, [sp, 0x4]
-	adds r0, r7, 0
-	movs r1, 0
-	bl __muldi3
-	movs r2, 0xA
-	movs r3, 0
-	bl __udivdi3
-	add sp, 0x8
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	.align 2, 0
-_080C5A04: .4byte gUnknown_083D180C
-	thumb_func_end GetBigMonSize
-
-	thumb_func_start FormatBigMonSize
-FormatBigMonSize: @ 80C5A08
-	push {r4-r6,lr}
-	sub sp, 0x4
-	adds r6, r0, 0
-	adds r5, r1, 0
-	ldr r1, _080C5A78 @ =gUnknown_083D188C
-	mov r0, sp
-	movs r2, 0x2
-	bl memcpy
-	lsls r4, r5, 2
-	adds r4, r5
-	lsls r4, 1
-	adds r0, r4, 0
-	bl __floatsidf
-	cmp r4, 0
-	bge _080C5A32
-	ldr r2, _080C5A7C @ =0x41f00000
-	ldr r3, _080C5A80 @ =0x00000000
-	bl __adddf3
-_080C5A32:
-	ldr r2, _080C5A84 @ =0x40396666
-	ldr r3, _080C5A88 @ =0x66666666
-	bl __divdf3
-	bl __fixunsdfsi
-	adds r5, r0, 0
-	movs r1, 0xA
-	bl __udivsi3
-	adds r1, r0, 0
-	adds r0, r6, 0
-	movs r2, 0
-	movs r3, 0x8
-	bl ConvertIntToDecimalStringN
-	adds r6, r0, 0
-	mov r1, sp
-	bl StringAppend
-	adds r6, r0, 0
-	adds r0, r5, 0
-	movs r1, 0xA
-	bl __umodsi3
-	adds r1, r0, 0
-	adds r0, r6, 0
-	movs r2, 0
-	movs r3, 0x1
-	bl ConvertIntToDecimalStringN
-	add sp, 0x4
-	pop {r4-r6}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5A78: .4byte gUnknown_083D188C
-_080C5A7C: .4byte 0x41f00000
-_080C5A80: .4byte 0x00000000
-_080C5A84: .4byte 0x40396666
-_080C5A88: .4byte 0x66666666
-	thumb_func_end FormatBigMonSize
-
-	thumb_func_start CompareMonSize
-CompareMonSize: @ 80C5A8C
-	push {r4-r7,lr}
-	sub sp, 0x4
-	adds r7, r1, 0
-	lsls r0, 16
-	lsrs r6, r0, 16
-	ldr r1, _080C5AA4 @ =gScriptResult
-	ldrh r0, [r1]
-	cmp r0, 0xFF
-	bne _080C5AA8
-	movs r0, 0
-	b _080C5B12
-	.align 2, 0
-_080C5AA4: .4byte gScriptResult
-_080C5AA8:
-	ldrh r1, [r1]
-	movs r0, 0x64
-	muls r1, r0
-	ldr r0, _080C5AD0 @ =gPlayerParty
-	adds r5, r1, r0
-	adds r0, r5, 0
-	movs r1, 0x2D
-	bl GetMonData
-	cmp r0, 0x1
-	beq _080C5ACA
-	adds r0, r5, 0
-	movs r1, 0xB
-	bl GetMonData
-	cmp r0, r6
-	beq _080C5AD4
-_080C5ACA:
-	movs r0, 0x1
-	b _080C5B12
-	.align 2, 0
-_080C5AD0: .4byte gPlayerParty
-_080C5AD4:
-	mov r4, sp
-	adds r0, r5, 0
-	bl GetBigMonSizeParams
-	strh r0, [r4]
-	mov r0, sp
-	ldrh r1, [r0]
-	adds r0, r6, 0
-	bl GetBigMonSize
-	adds r5, r0, 0
-	ldrh r1, [r7]
-	adds r0, r6, 0
-	bl GetBigMonSize
-	adds r4, r0, 0
-	ldr r0, _080C5B0C @ =gStringVar2
-	adds r1, r5, 0
-	bl FormatBigMonSize
-	cmp r5, r4
-	bls _080C5B10
-	mov r0, sp
-	ldrh r0, [r0]
-	strh r0, [r7]
-	movs r0, 0x3
-	b _080C5B12
-	.align 2, 0
-_080C5B0C: .4byte gStringVar2
-_080C5B10:
-	movs r0, 0x2
-_080C5B12:
-	add sp, 0x4
-	pop {r4-r7}
-	pop {r1}
-	bx r1
-	thumb_func_end CompareMonSize
-
-	thumb_func_start GetBigMonInfo
-GetBigMonInfo: @ 80C5B1C
-	push {r4,r5,lr}
-	adds r4, r0, 0
-	adds r5, r1, 0
-	lsls r4, 16
-	lsrs r4, 16
-	ldrh r1, [r5]
-	adds r0, r4, 0
-	bl GetBigMonSize
-	adds r1, r0, 0
-	ldr r0, _080C5B58 @ =gStringVar3
-	bl FormatBigMonSize
-	ldr r0, _080C5B5C @ =gStringVar1
-	movs r1, 0xB
-	muls r1, r4
-	ldr r2, _080C5B60 @ =gSpeciesNames
-	adds r1, r2
-	bl StringCopy
-	ldrh r1, [r5]
-	movs r0, 0x81
-	lsls r0, 8
-	cmp r1, r0
-	bne _080C5B6C
-	ldr r0, _080C5B64 @ =gStringVar2
-	ldr r1, _080C5B68 @ =gOtherText_Marco
-	bl StringCopy
-	b _080C5B74
-	.align 2, 0
-_080C5B58: .4byte gStringVar3
-_080C5B5C: .4byte gStringVar1
-_080C5B60: .4byte gSpeciesNames
-_080C5B64: .4byte gStringVar2
-_080C5B68: .4byte gOtherText_Marco
-_080C5B6C:
-	ldr r0, _080C5B7C @ =gStringVar2
-	ldr r1, _080C5B80 @ =gSaveBlock2
-	bl StringCopy
-_080C5B74:
-	pop {r4,r5}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5B7C: .4byte gStringVar2
-_080C5B80: .4byte gSaveBlock2
-	thumb_func_end GetBigMonInfo
-
-	thumb_func_start InitShroomishSizeRecord
-InitShroomishSizeRecord: @ 80C5B84
-	push {lr}
-	ldr r0, _080C5B94 @ =0x00004047
-	movs r1, 0x81
-	lsls r1, 8
-	bl VarSet
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5B94: .4byte 0x00004047
-	thumb_func_end InitShroomishSizeRecord
-
-	thumb_func_start GetBigShroomishInfo
-GetBigShroomishInfo: @ 80C5B98
-	push {lr}
-	ldr r0, _080C5BB0 @ =0x00004047
-	bl GetVarPointer
-	adds r1, r0, 0
-	movs r0, 0x99
-	lsls r0, 1
-	bl GetBigMonInfo
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5BB0: .4byte 0x00004047
-	thumb_func_end GetBigShroomishInfo
-
-	thumb_func_start CompareShroomishSize
-CompareShroomishSize: @ 80C5BB4
-	push {r4,lr}
-	ldr r0, _080C5BD4 @ =0x00004047
-	bl GetVarPointer
-	adds r1, r0, 0
-	ldr r4, _080C5BD8 @ =gScriptResult
-	movs r0, 0x99
-	lsls r0, 1
-	bl CompareMonSize
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r4]
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5BD4: .4byte 0x00004047
-_080C5BD8: .4byte gScriptResult
-	thumb_func_end CompareShroomishSize
-
-	thumb_func_start InitBarboachSizeRecord
-InitBarboachSizeRecord: @ 80C5BDC
-	push {lr}
-	ldr r0, _080C5BEC @ =0x0000404f
-	movs r1, 0x81
-	lsls r1, 8
-	bl VarSet
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5BEC: .4byte 0x0000404f
-	thumb_func_end InitBarboachSizeRecord
-
-	thumb_func_start GetBigBarboachInfo
-GetBigBarboachInfo: @ 80C5BF0
-	push {lr}
-	ldr r0, _080C5C04 @ =0x0000404f
-	bl GetVarPointer
-	adds r1, r0, 0
-	ldr r0, _080C5C08 @ =0x00000143
-	bl GetBigMonInfo
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5C04: .4byte 0x0000404f
-_080C5C08: .4byte 0x00000143
-	thumb_func_end GetBigBarboachInfo
-
-	thumb_func_start CompareBarboachSize
-CompareBarboachSize: @ 80C5C0C
-	push {r4,lr}
-	ldr r0, _080C5C2C @ =0x0000404f
-	bl GetVarPointer
-	adds r1, r0, 0
-	ldr r4, _080C5C30 @ =gScriptResult
-	ldr r0, _080C5C34 @ =0x00000143
-	bl CompareMonSize
-	lsls r0, 24
-	lsrs r0, 24
-	strh r0, [r4]
-	pop {r4}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5C2C: .4byte 0x0000404f
-_080C5C30: .4byte gScriptResult
-_080C5C34: .4byte 0x00000143
-	thumb_func_end CompareBarboachSize
-
-	thumb_func_start GiveSpecialRibbonToParty
-GiveSpecialRibbonToParty: @ 80C5C38
-	push {r4-r7,lr}
-	mov r7, r8
-	push {r7}
-	sub sp, 0xC
-	lsls r0, 24
-	lsrs r6, r0, 24
-	lsls r1, 24
-	lsrs r5, r1, 24
-	movs r7, 0
-	add r4, sp, 0x8
-	movs r0, 0x1
-	strb r0, [r4]
-	ldr r1, _080C5CC0 @ =gUnknown_083D188E
-	mov r0, sp
-	movs r2, 0x7
-	bl memcpy
-	mov r8, r4
-	cmp r6, 0xA
-	bhi _080C5CB2
-	cmp r5, 0x40
-	bhi _080C5CB2
-	ldr r0, _080C5CC4 @ =gSaveBlock1
-	ldr r1, _080C5CC8 @ =0x00003110
-	adds r0, r1
-	adds r0, r6, r0
-	strb r5, [r0]
-	movs r5, 0
-_080C5C70:
-	movs r0, 0x64
-	adds r1, r5, 0
-	muls r1, r0
-	ldr r0, _080C5CCC @ =gPlayerParty
-	adds r4, r1, r0
-	adds r0, r4, 0
-	movs r1, 0xB
-	bl GetMonData
-	cmp r0, 0
-	beq _080C5CA2
-	adds r0, r4, 0
-	movs r1, 0x6
-	bl GetMonData
-	cmp r0, 0
-	bne _080C5CA2
-	mov r1, sp
-	adds r0, r1, r6
-	ldrb r1, [r0]
-	adds r0, r4, 0
-	mov r2, r8
-	bl SetMonData
-	movs r7, 0x1
-_080C5CA2:
-	adds r5, 0x1
-	cmp r5, 0x5
-	ble _080C5C70
-	cmp r7, 0
-	beq _080C5CB2
-	ldr r0, _080C5CD0 @ =0x0000083b
-	bl FlagSet
-_080C5CB2:
-	add sp, 0xC
-	pop {r3}
-	mov r8, r3
-	pop {r4-r7}
-	pop {r0}
-	bx r0
-	.align 2, 0
-_080C5CC0: .4byte gUnknown_083D188E
-_080C5CC4: .4byte gSaveBlock1
-_080C5CC8: .4byte 0x00003110
-_080C5CCC: .4byte gPlayerParty
-_080C5CD0: .4byte 0x0000083b
-	thumb_func_end GiveSpecialRibbonToParty
-
-	.align 2, 0 @ Don't pad with nop.
diff --git a/asm/mystery_event_script.s b/asm/mystery_event_script.s
index 4799f6e7d..4b8717bac 100644
--- a/asm/mystery_event_script.s
+++ b/asm/mystery_event_script.s
@@ -631,7 +631,7 @@ sub_81264F0: @ 81264F0
 	ldrb r1, [r2]
 	adds r2, 0x1
 	str r2, [r4, 0x8]
-	bl GiveSpecialRibbonToParty
+	bl GiveGiftRibbonToParty
 	ldr r0, _0812651C @ =gStringVar4
 	ldr r1, _08126520 @ =gOtherText_SpecialRibbonReceived
 	bl StringExpandPlaceholders
diff --git a/data/data2.s b/data/data2.s
index b39e5924f..c60b7495e 100644
--- a/data/data2.s
+++ b/data/data2.s
@@ -15209,7 +15209,7 @@ gUnknown_083D17E2:: @ 83D17E2
 gUnknown_083D180C:: @ 83D180C
 	.incbin "baserom.gba", 0x003d180c, 0x80
 
-gUnknown_083D188C:: @ 83D188C
+gOtherText_DecimalPoint:: @ 83D188C
 	.string ".$"
 
 gUnknown_083D188E:: @ 83D188E
diff --git a/data/specials.inc b/data/specials.inc
index a3eac3160..48a362437 100644
--- a/data/specials.inc
+++ b/data/specials.inc
@@ -119,9 +119,9 @@ gSpecials::
 	.4byte sub_8109C90
 	.4byte sub_8109CF0
 	.4byte sub_8109DE0
-	.4byte GetBigShroomishInfo
+	.4byte GetShroomishSizeRecordInfo
 	.4byte CompareShroomishSize
-	.4byte GetBigBarboachInfo
+	.4byte GetBarboachSizeRecordInfo
 	.4byte CompareBarboachSize
 	.4byte sub_80BF9B4
 	.4byte sub_80BFAE0
diff --git a/include/global.h b/include/global.h
index 197420dd3..e90a5797e 100644
--- a/include/global.h
+++ b/include/global.h
@@ -234,7 +234,9 @@ struct SaveBlock1
     /*0x2EFC*/ struct SB1_2EFC_Struct sb1_2EFC_struct[5];
     /*0x2F9C*/ u8 filler_2F9C[0xA0];
     /*0x303C*/ u8 filler_303C[0x38];
-    /*0x3074*/ u8 filler_3074[0xD0];
+    /*0x3074*/ u8 filler_3074[0x9C];
+    /*0x3110*/ u8 giftRibbons[7];
+    /*0x3117*/ u8 filler_311B[0x2D];
     /*0x3144*/ struct Roamer roamer;
     /*0x3158*/ u8 filler_3158[0x8];
     /*0x3160*/ struct EnigmaBerry enigmaBerry;
diff --git a/include/pokemon.h b/include/pokemon.h
index 43ff1b500..219447f8f 100644
--- a/include/pokemon.h
+++ b/include/pokemon.h
@@ -337,6 +337,9 @@ struct PokemonStorage
     struct BoxPokemon boxes[14][30];
 };
 
+extern struct Pokemon gPlayerParty[6];
+extern struct Pokemon gEnemyParty[6];
+
 void ZeroBoxMonData(struct BoxPokemon *boxMon);
 void ZeroMonData(struct Pokemon *mon);
 void ZeroPlayerPartyMons(void);
diff --git a/ld_script.txt b/ld_script.txt
index 7f04049ac..fce9bea7b 100644
--- a/ld_script.txt
+++ b/ld_script.txt
@@ -130,7 +130,7 @@ SECTIONS {
         asm/contest_link_80C2020.o(.text);
         asm/script_pokemon_util_80C4BF0.o(.text);
         src/field_poison.o(.text);
-        asm/big_shroomish_barboach.o(.text);
+        src/pokemon_size_record.o(.text);
         asm/fldeff_80C5CD4.o(.text);
         src/truck_scene.o(.text);
         asm/porthole.o(.text);
diff --git a/src/pokemon_size_record.c b/src/pokemon_size_record.c
new file mode 100644
index 000000000..1c54352a8
--- /dev/null
+++ b/src/pokemon_size_record.c
@@ -0,0 +1,196 @@
+#include "gba/gba.h"
+#include "global.h"
+#include "pokemon.h"
+#include "species.h"
+
+extern u16 SpeciesToNationalPokedexNum(u16);
+extern u16 sub_8090D54(u16, u8);
+extern bool8 VarSet(u16, u16);
+extern u16 *GetVarPointer(u16);
+extern u8 FlagSet(u16);
+
+struct UnknownStruct
+{
+    u16 unk0;
+    u8 unk2;
+    u16 unk4;
+};
+
+extern struct UnknownStruct gUnknown_083D180C[];
+extern u8 gOtherText_DecimalPoint[];
+extern u8 gOtherText_Marco[];
+extern u16 gScriptResult;
+extern u8 gSpeciesNames[][11];
+extern u8 gUnknown_083D188E[];
+
+#define VAR_SHROOMISH_SIZE_RECORD 0x4047
+#define VAR_BARBOACH_SIZE_RECORD 0x404F
+#define CM_PER_INCH 2.54
+
+static u32 GetMonSizeHash(struct Pokemon *pkmn)
+{
+    // UB: Too few arguments for function 'GetMonData'
+    u16 personality = GetMonData(pkmn, MON_DATA_PERSONALITY);
+    u16 hpIV = GetMonData(pkmn, MON_DATA_HP_IV) & 0xF;
+    u16 attackIV = GetMonData(pkmn, MON_DATA_ATK_IV) & 0xF;
+    u16 defenseIV = GetMonData(pkmn, MON_DATA_DEF_IV) & 0xF;
+    u16 speedIV = GetMonData(pkmn, MON_DATA_SPD_IV) & 0xF;
+    u16 spAtkIV = GetMonData(pkmn, MON_DATA_SPATK_IV) & 0xF;
+    u16 spDefIV = GetMonData(pkmn, MON_DATA_SPDEF_IV) & 0xF;
+    u32 hibyte = ((attackIV ^ defenseIV) * hpIV) ^ (personality & 0xFF);
+    u32 lobyte = ((spAtkIV ^ spDefIV) * speedIV) ^ (personality >> 8);
+    
+    return (hibyte << 8) + lobyte;
+}
+
+static u8 TranslateBigMonSizeTableIndex(u16 a)
+{
+    u8 i;
+    
+    for(i = 1; i < 15; i++)
+    {
+        if(a < gUnknown_083D180C[i].unk4)
+            return i - 1;
+    }
+    return i;
+}
+
+static u32 GetMonSize(u16 species, u16 b)
+{
+    u64 unk2;
+    u64 unk4;
+    u64 unk0;
+    u32 r7;
+    u32 var;
+    struct UnknownStruct *s;
+    
+    r7 = sub_8090D54(SpeciesToNationalPokedexNum(species), 0);
+    var = TranslateBigMonSizeTableIndex(b);
+    unk0 = gUnknown_083D180C[var].unk0;
+    unk2 = gUnknown_083D180C[var].unk2;
+    unk4 = gUnknown_083D180C[var].unk4;
+    unk0 += (b - unk4) / unk2;
+    return r7 * unk0 / 10;
+}
+
+static void FormatMonSizeRecord(u8 *string, u32 size)
+{
+    u8 decimalPoint[2];
+    
+    memcpy(decimalPoint, gOtherText_DecimalPoint, 2);
+    //Convert size from centimeters to inches
+    size = (double)(size * 10) / (CM_PER_INCH * 10);
+    string = ConvertIntToDecimalStringN(string, size / 10, 0, 8);
+    string = StringAppend(string, decimalPoint);
+    ConvertIntToDecimalStringN(string, size % 10, 0, 1);
+}
+
+static u8 CompareMonSize(u16 species, u16 *sizeRecord)
+{    
+    if(gScriptResult == 0xFF)
+        return 0;
+    else
+    {
+        struct Pokemon *pkmn = &gPlayerParty[gScriptResult];
+        
+        // UB: Too few arguments for function 'GetMonData'
+        if(GetMonData(pkmn, MON_DATA_IS_EGG) == TRUE || GetMonData(pkmn, MON_DATA_SPECIES) != species)
+            return 1;
+        else
+        {
+            u32 oldSize;
+            u32 newSize;
+            u16 sizeParams;
+            u16 *ptr = &sizeParams; //Why the pointer?
+            
+            *ptr = GetMonSizeHash(pkmn);
+            newSize = GetMonSize(species, sizeParams);
+            oldSize = GetMonSize(species, *sizeRecord);
+            FormatMonSizeRecord(gStringVar2, newSize);
+            if(newSize <= oldSize)
+                return 2;
+            else
+            {
+                *sizeRecord = sizeParams;
+                return 3;
+            }
+        }
+    }
+}
+
+//Stores species name in gStringVar1, trainer's name in gStringVar2, and size in gStringVar3
+static void GetMonSizeRecordInfo(u16 species, u16 *sizeRecord)
+{
+    u32 size = GetMonSize(species, *sizeRecord);
+    
+    FormatMonSizeRecord(gStringVar3, size);
+    StringCopy(gStringVar1, gSpeciesNames[species]);
+    if(*sizeRecord == 0x8100)
+        StringCopy(gStringVar2, gOtherText_Marco);
+    else
+        StringCopy(gStringVar2, gSaveBlock2.playerName);
+}
+
+void InitShroomishSizeRecord(void)
+{
+    VarSet(VAR_SHROOMISH_SIZE_RECORD, 0x8100);
+}
+
+void GetShroomishSizeRecordInfo(void)
+{
+    u16 *sizeRecord = GetVarPointer(VAR_SHROOMISH_SIZE_RECORD);
+    
+    GetMonSizeRecordInfo(SPECIES_SHROOMISH, sizeRecord);
+}
+
+void CompareShroomishSize(void)
+{
+    u16 *sizeRecord = GetVarPointer(VAR_SHROOMISH_SIZE_RECORD);
+    
+    gScriptResult = CompareMonSize(SPECIES_SHROOMISH, sizeRecord);
+}
+
+void InitBarboachSizeRecord(void)
+{
+    VarSet(VAR_BARBOACH_SIZE_RECORD, 0x8100);
+}
+
+void GetBarboachSizeRecordInfo(void)
+{
+    u16 *sizeRecord = GetVarPointer(VAR_BARBOACH_SIZE_RECORD);
+    
+    GetMonSizeRecordInfo(SPECIES_BARBOACH, sizeRecord);
+}
+
+void CompareBarboachSize(void)
+{
+    u16 *sizeRecord = GetVarPointer(VAR_BARBOACH_SIZE_RECORD);
+    
+    gScriptResult = CompareMonSize(SPECIES_BARBOACH, sizeRecord);
+}
+
+void GiveGiftRibbonToParty(u8 index, u8 ribbonId)
+{
+    s32 i;
+    u8 arr[7];
+    bool32 gotRibbon = FALSE;
+    u8 data = 1;
+    
+    memcpy(arr, gUnknown_083D188E, 7);
+    if(index < 11 && ribbonId < 65)
+    {
+        gSaveBlock1.giftRibbons[index] = ribbonId;
+        for(i = 0; i < 6; i++)
+        {
+            struct Pokemon *pkmn = &gPlayerParty[i];
+            
+            if(GetMonData(pkmn, MON_DATA_SPECIES) != 0 && GetMonData(pkmn, MON_DATA_SANITY_BIT3) == 0)
+            {
+                SetMonData(pkmn, arr[index], &data);
+                gotRibbon = TRUE;
+            }
+        }
+        if(gotRibbon)
+            FlagSet(0x83B);
+    }
+}