Prepare Egg Formation Graphic

# Parameters:
#  r4 = Previous stack pointer + 0x38
#  r5 = Randomized egg color (World Stats 0xD2/temporary world stats 0x122)
#  r6 = Previous stack pointer + 0x58
#  r7 = Days before hatching (World Stats 0x05 (also birthday), temporary world stats 0x120)

00117ffc: 27bdffd0 addiu r29,r29,0xffd0
00118000: afbf002c sw r31,0x002c(r29)
00118004: afb40028 sw r20,0x0028(r29)
00118008: afb30024 sw r19,0x0024(r29)
0011800c: afb20020 sw r18,0x0020(r29)
00118010: afb1001c sw r17,0x001c(r29)
00118014: afb00018 sw r16,0x0018(r29)
00118018: 00808821 addu r17,r4,r0
0011801c: 00c09021 addu r18,r6,r0
00118020: 00e0a021 addu r20,r7,r0
00118024: 8fb30040 lw r19,0x0040(r29)
00118028: 3c028019 lui r2,0x8019
0011802c: 2442c72c addiu r2,r2,0xc72c
00118030: 96230000 lhu r3,0x0000(r17)
00118034: 00000000 nop
00118038: 24630014 addiu r3,r3,0x0014
0011803c: a443ffec sh r3,-0x0014(r2)
00118040: a4430000 sh r3,0x0000(r2)
00118044: 96230002 lhu r3,0x0002(r17)
00118048: 00000000 nop
0011804c: 24630010 addiu r3,r3,0x0010
00118050: a443ffee sh r3,-0x0012(r2)
00118054: a4430002 sh r3,0x0002(r2)
00118058: 04a10002 bgez r5,0x00118064
0011805c: 00a02021 addu r4,r5,r0
00118060: 24a40003 addiu r4,r5,0x0003
00118064: 00042083 sra r4,r4,0x02
00118068: 00042080 sll r4,r4,0x02
0011806c: 00a42023 subu r4,r5,r4
00118070: 00042100 sll r4,r4,0x04
00118074: 24840140 addiu r4,r4,0x0140          # Egg color * 0x10 + 0x140 (minimum X value for P01 GetClut)
00118078: 0c008e95 jal 0x00023a54              # P01 GetClut
0011807c: 340500ff ori r5,r0,0x00ff            # Y value for P01 GetClut
00118080: 3c108019 lui r16,0x8019
00118084: 2610c73c addiu r16,r16,0xc73c
00118088: a602ffec sh r2,-0x0014(r16)
0011808c: a6020000 sh r2,0x0000(r16)
00118090: afb30010 sw r19,0x0010(r29)
00118094: 2604ffdc addiu r4,r16,0xffdc
00118098: 02402821 addu r5,r18,r0
0011809c: 00003021 addu r6,r0,r0
001180a0: 0c04b22f jal 0x0012c8bc
001180a4: 00003821 addu r7,r0,r0
001180a8: 2a820002 slti r2,r20,0x0002
001180ac: 10400007 beq r2,r0,0x001180cc        # Branch if more than 2 days before hatching (no cracks)
001180b0: 26620001 addiu r2,r19,0x0001
001180b4: afa20010 sw r2,0x0010(r29)
001180b8: 2604fff0 addiu r4,r16,0xfff0
001180bc: 02402821 addu r5,r18,r0
001180c0: 00003021 addu r6,r0,r0
001180c4: 0c04b22f jal 0x0012c8bc
001180c8: 00003821 addu r7,r0,r0
001180cc: 3c108019 lui r16,0x8019
001180d0: 2610c704 addiu r16,r16,0xc704
001180d4: 96220000 lhu r2,0x0000(r17)
001180d8: 00000000 nop
001180dc: 24420013 addiu r2,r2,0x0013
001180e0: a6020000 sh r2,0x0000(r16)
001180e4: 96220002 lhu r2,0x0002(r17)
001180e8: 00000000 nop
001180ec: 24420023 addiu r2,r2,0x0023
001180f0: a6020002 sh r2,0x0002(r16)
001180f4: 00002021 addu r4,r0,r0
001180f8: 34050002 ori r5,r0,0x0002
001180fc: 340603c0 ori r6,r0,0x03c0
00118100: 0c008e63 jal 0x0002398c              # P00 GetTpage
00118104: 34070100 ori r7,r0,0x0100
00118108: a6020012 sh r2,0x0012(r16)
0011810c: 2662ffff addiu r2,r19,0xffff
00118110: afa20010 sw r2,0x0010(r29)
00118114: 02002021 addu r4,r16,r0
00118118: 00002821 addu r5,r0,r0
0011811c: 00003021 addu r6,r0,r0
00118120: 0c04b22f jal 0x0012c8bc
00118124: 34070001 ori r7,r0,0x0001
00118128: 8fbf002c lw r31,0x002c(r29)
0011812c: 8fb40028 lw r20,0x0028(r29)
00118130: 8fb30024 lw r19,0x0024(r29)
00118134: 8fb20020 lw r18,0x0020(r29)
00118138: 8fb1001c lw r17,0x001c(r29)
0011813c: 8fb00018 lw r16,0x0018(r29)
00118140: 27bd0030 addiu r29,r29,0x0030
00118144: 03e00008 jr r31
00118148: 00000000 nop