00070d18 - 00070dd8

00070d18: 27bdffe0 addiu r29,r29,0xffe0
00070d1c: 3c038004 lui r3,0x8004
00070d20: 8c635978 lw r3,0x5978(r3)		loads some undocumented data pointer (contains EXP/JP prep)
00070d24: 34020004 ori r2,r0,0x0004		r2 = 4
00070d28: afbf0018 sw r31,0x0018(r29)
00070d2c: afb10014 sw r17,0x0014(r29)
00070d30: 14620023 bne r3,r2,0x00070dc0	branch to end if data is not 4 (and sets r2 to 0)
00070d34: afb00010 sw r16,0x0010(r29)
00070d38: 3c028009 lui r2,0x8009
00070d3c: 8c423cac lw r2,0x3cac(r2) 		loads some undocumented data pointer (lies between map month image data & display type)
00070d40: 00000000 nop
00070d44: 1440001f bne r2,r0,0x00070dc4	branch to end if data is not 0
00070d48: 00000000 nop
00070d4c: 0c01e9dd jal 0x0007a774		Count number of Crystals on map
00070d50: 00000000 nop
00070d54: 00408021 addu r16,r2,r0		move No. crystals to r16
00070d58: 2a020005 slti r2,r16,0x0005		
00070d5c: 14400002 bne r2,r0,0x00070d68	branch if there are less than 5 crystals
00070d60: 00000000 nop
00070d64: 34100004 ori r16,r0,0x0004		r16 = 4
00070d68: 0c04ed64 jal 0x0013b590		Get Script Variable get current number of crystals
00070d6c: 34040070 ori r4,r0,0x0070		r4 = 0x70
00070d70: 00408821 addu r17,r2,r0		
00070d74: 1211000e beq r16,r17,0x00070db0	branch if number of crystals hasn't changed
00070d78: 34040070 ori r4,r0,0x0070		r4 = 0x70
00070d7c: 0c04ed91 jal 0x0013b644		Set r5 as New Variable Value set variable 0x70 to Number of crystals on map
00070d80: 02002821 addu r5,r16,r0		r5 = No. crystals
00070d84: 0c02381a jal 0x0008e068		0008e068 - 0008e090 
00070d88: 00000000 nop
00070d8c: 10400005 beq r2,r0,0x00070da4	branch if r2 returns 0
00070d90: 34020001 ori r2,r0,0x0001		r2 = 1
00070d94: 3c018009 lui r1,0x8009
00070d98: ac223cac sw r2,0x3cac(r1)		loads some undocumented data pointer (lies between map month image data & display type)
00070d9c: 0801c36c j 0x00070db0		jumps to end
00070da0: 00000000 nop

00070da4: 34040070 ori r4,r0,0x0070		r4 = 0x70
00070da8: 0c04ed91 jal 0x0013b644		Set r5 as New Variable Value reset crystal number to old crystal number
00070dac: 02202821 addu r5,r17,r0		r5 = old crystal number
00070db0: 3c028009 lui r2,0x8009
00070db4: 8c423cac lw r2,0x3cac(r2)		(lies between map month image data & display type)
00070db8: 0801c371 j 0x00070dc4		jumps to end
00070dbc: 00000000 nop
00070dc0: 00001021 addu r2,r0,r0		r2 = 0
00070dc4: 8fbf0018 lw r31,0x0018(r29)
00070dc8: 8fb10014 lw r17,0x0014(r29)
00070dcc: 8fb00010 lw r16,0x0010(r29)
00070dd0: 27bd0020 addiu r29,r29,0x0020
00070dd4: 03e00008 jr r31
00070dd8: 00000000 nop