Get Variable's Word Pointer from Variable's ID

#Input r4 (0x00 from Run script variable)
#Return r2 
    as 0x0005771c + r4 * 4 if r4 < 0x80 if r4 < 0x400 (detemined from r4 - cut off at 0x80 - 0x360)  (steal gil leads here)
    as 0x0005771c + 0x200 + ((r4-0x80) /32)*4 if r4 is between 0x80 and 0x359
    as 0x0005771c + 0x25c + ((r4 - 0x360)/8)*4 if r4 is between 0x360 and 0x3FF
    as ? If r4>= 0x400 (via 0014c958_-_0014c990 - not investigated)
------------------------------------------------------------------------------------
0014a2ec: 27bdffe8 addiu r29,r29,0xffe8          
0014a2f0: 28820080 slti r2,r4,0x0080             |r2 = 1 if Input < 0x80 
0014a2f4: afbf0014 sw r31,0x0014(r29)            |
0014a2f8: 10400006 beq r2,r0,0x0014a314          #If r2 = 1
0014a2fc: afb00010 sw r16,0x0010(r29)            
0014a300: 3c038016 lui r3,0x8016                 
0014a304: 8c635f9c lw r3,0x5f9c(r3)                  |r3 = 0x80165f9c (host 0005771c - start of main (map?) data?)
0014a308: 00041080 sll r2,r4,0x02                    |r2 = r4 * 4 
0014a30c: 080528e1 j 0x0014a384                      >>jump to almost end
0014a310: 00438021 addu r16,r2,r3                    |r16 = Main (map ?)  data start + offset (r4*4)
0014a314: 28820360 slti r2,r4,0x0360             |r2 = 1 if input < 0x360 1
0014a318: 1040000b beq r2,r0,0x0014a348          #If r2 = 1 (r4 between 0x80 and 0x35F) branch if r2 = 0
0014a31c: 2482ff80 addiu r2,r4,0xff80                |r2 = input + 0xff80 (input - 0x80) 0x00 0xA0
0014a320: 04410003 bgez r2,0x0014a330                #If r2 < 0 never true ? (tested for r4 = 0x81 and 0x35F)
0014a324: 00021143 sra r2,r2,0x05                    |r2 = r2 /32 any value under 0x20 is 0x00 (for r4 = 0x80 to 0xA0)
0014a328: 2482ff9f addiu r2,r4,0xff9f                    |r2 = input + 0xff9f (input -0x61)
0014a32c: 00021143 sra r2,r2,0x05                        |r2 = r2/32
0014a330: 00021080 sll r2,r2,0x02                    |r2 = r2*4 0x00
0014a334: 3c038016 lui r3,0x8016                                     |
0014a338: 8c635f9c lw r3,0x5f9c(r3)                  |r3 = 0x80165f9c (host 0005771c - start of main (map?) data?)
0014a33c: 24420200 addiu r2,r2,0x0200                |r2 = r2 + 0x200
0014a340: 080528e1 j 0x0014a384                      >>jump to almost end
0014a344: 00438021 addu r16,r2,r3                    |r16 = Main (map ?)  data start + offset
0014a348: 28820400 slti r2,r4,0x0400             |r2 = 1 if input < 0x400
0014a34c: 1040000b beq r2,r0,0x0014a37c          #If r2 = 1
0014a350: 2482fca0 addiu r2,r4,0xfca0                |r2 = input + fca0 (input - 0x360)
0014a354: 04410003 bgez r2,0x0014a364                #If r2<0 (never true ?)
0014a358: 000210c3 sra r2,r2,0x03                    |r2 = r2/8
0014a35c: 2482fca7 addiu r2,r4,0xfca7                    |r2 = input - 0x359
0014a360: 000210c3 sra r2,r2,0x03                        |r2 = r2/8
0014a364: 00021080 sll r2,r2,0x02                    |r2 = r2 * 4 
0014a368: 3c038016 lui r3,0x8016                     |
0014a36c: 8c635f9c lw r3,0x5f9c(r3)                  |r3 = 0x80165f9c (host 0005771c - start of main (map?) data?)
0014a370: 2442025c addiu r2,r2,0x025c                |r2 = r2 + 0x25c
0014a374: 080528e1 j 0x0014a384                      >>jump to almost end
0014a378: 00438021 addu r16,r2,r3                    |r16 = Main (map ?)  data + offset ?
0014a37c: 0c053256 jal 0x0014c958                    |-->jal 0x0014c958 (input > 0x400)  
0014a380: 00000000 nop                               |
0014a384: 02001021 addu r2,r16,r0                |r2 = r16
0014a388: 8fbf0014 lw r31,0x0014(r29)            
0014a38c: 8fb00010 lw r16,0x0010(r29)            
0014a390: 27bd0018 addiu r29,r29,0x0018          
0014a394: 03e00008 jr r31                        
0014a398: 00000000 nop

Returns location

0014a0cc: Run_Script_Variable_Command