Shrines, works for both tram and fel:
Sub SS_Shrineloc
set #result N/A
if ( #charposX > 1250 && #charposX < 1350 ) && ( #charposY > 580 && #charposY < 680 )
set %shrine 1300_632 ; Justice
if ( #charposX > 1400 && #charposX < 1500 ) && ( #charposY > 790 && #charposY < 890 )
set %shrine 1457_844 ; Chaos
if ( #charposX > 1800 && #charposX < 1910 ) && ( #charposY > 800 && #charposY < 950 )
set %shrine 1857_874 ; Compassion
if ( #charposX > 3300 && #charposX < 3410 ) && ( #charposY > 225 && #charposY < 350 )
set %shrine 3356_289 ; Sacrifice
if ( #charposX > 4225 && #charposX < 4325 ) && ( #charposY > 3650 && #charposY < 3750 )
set %shrine 4274_3697 ; Humility
if ( #charposX > 2425 && #charposX < 2525 ) && ( #charposY > 3875 && #charposY < 4000 )
set %shrine 2491_3933 ; Valor
if ( #charposX > 1675 && #charposX < 1775 ) && ( #charposY > 3500 && #charposY < 3600 )
set %shrine 1723_3527 ; Honor
if ( #charposX > 1525 && #charposX < 1625 ) && ( #charposY > 2425 && #charposY < 2525 )
set %shrine 1594_2489 ; Spirituality
if ( #charposX > 4150 && #charposX < 4275 ) && ( #charposY > 525 && #charposY < 625 )
set %shrine 4212_563 ; Honesty
if ( #charposX > 775 && #charposX < 675 ) && ( #charposY > 1200 && #charposY < 1100 )
set %shrine 717_1159 ; Makoto
Return %shrine
;----------------------------
Islands large enough to place a house on, excluding Tokuno and New Haven:
Sub SS_Islandloc
set %Island N/A
if ( #charposX > 2100 && #charposX < 2210 ) && ( #charposY > 3890 && #charposY < 4015 )
set %Island Amoeba
if ( #charposX > 2300 && #charposX < 2420 ) && ( #charposY > 3380 && #charposY < 3535 )
set %Island Bald
if ( #charposX > 2060 && #charposX < 2165 ) && ( #charposY > 2635 && #charposY < 2840 )
set %Island Barrier
if ( #charposX > 2165 && #charposX < 2210 ) && ( #charposY > 1965 && #charposY < 2005 )
set %Island Blanche
if ( #charposX > 3850 && #charposX < 4310 ) && ( #charposY > 160 && #charposY < 770 )
set %Island Dagger
if ( #charposX > 1025 && #charposX < 1138 ) && ( #charposY > 3080 && #charposY < 3230 )
set %Island Dragon
if ( #charposX > 1635 && #charposX < 1780 ) && ( #charposY > 1920 && #charposY < 2045 )
set %Island Eiffel
if ( #charposX > 4100 && #charposX < 4860 ) && ( #charposY > 3070 && #charposY < 3980 )
set %Island Isle , #spc , of , #spc , the , #spc , Avatar ; (Fire )
if ( #charposX > 2000 && #charposX < 2215 ) && ( #charposY > 2062 && #charposY < 2215 )
set %Island Horseshoe
if ( #charposX > 1260 && #charposX < 1285 ) && ( #charposY > 510 && #charposY < 550 )
set %Island Justice; (Island in lake)
if ( #charposX > 1831 && #charposX < 1980 ) && ( #charposY > 2050 && #charposY < 2160 )
set %Island Marble
if ( #charposX > 1042 && #charposX < 1235 ) && ( #charposY > 3360 && #charposY < 3700 )
set %Island North , #spc , Jhelom
if ( #charposX > 2000 && #charposX < 2142 ) && ( #charposY > 1918 && #charposY < 2044 )
set %Island Ocarina
if ( #charposX > 2930 && #charposX < 2985 ) && ( #charposY > 2120 && #charposY < 2255 )
set %Island Skull
if ( #charposX > 2428 && #charposX < 2565 ) && ( #charposY > 3540 && #charposY < 3660 )
set %Island Temple
if ( #charposX > 2386 && #charposX < 2550 ) && ( #charposY > 3870 && #charposY < 1050 )
set %Island Valor
if ( #charposX > 4240 && #charposX < 4740 ) && ( #charposY > 790 && #charposY < 1525 )
set %Island Verity ; (Moonglow)
if ( #charposX > 3340 && #charposX < 3805 ) && ( #charposY > 2360 && #charposY < 2920 ) && #curskind = 0 ; FEL ONLY!
set %Island Ocllo
Return %Island
;-------------------------
Malas secret pouch locations:
Sub SS_Determine_MSL_Pouch_Location
if ( #charposX > 1605 && #charposX < 1621 ) && ( #charposY > 135 && #charposY < 150 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 1
if ( #charposX > 2167 && #charposX < 2183 ) && ( #charposY > 315 && #charposY < 330 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 2 ; Grimswind Ruins
if ( #charposX > 900 && #charposX < 927 ) && ( #charposY > 180 && #charposY < 205 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 3 ; inside small Orc fort
if ( #charposX > 865 && #charposX < 890 ) && ( #charposY > 800 && #charposY < 825 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 4
if ( #charposX > 1036 && #charposX < 1068 ) && ( #charposY > 1420 && #charposY < 1450 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 5 ; inside Hanse's Hostel. Inn/stable
if ( #charposX > 1310 && #charposX < 1342 ) && ( #charposY > 507 && #charposY < 539 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 6
if ( #charposX > 945 && #charposX < 960 ) && ( #charposY > 535 && #charposY < 550 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 7 ; Luna
if ( #charposX > 415 && #charposX < 435 ) && ( #charposY > 185 && #charposY < 195 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 8 ; Outside Doom entrance
if ( #charposX > 1296 && #charposX < 1328 ) && ( #charposY > 1098 && #charposY < 1130 )
set %MSLLoc Malas , #spc , Sec. , #spc , Loc. , #spc , 9 ; Orc's and pixies nearby
Return
;-------------------------
Malas secret locations:
Sub SS_Return_Msl_Location
if #charposX > 1180 && #charposX < 1220 && #charposY > 1240 && #charposY < 1320
set %msl 1
if #charposX > 1530 && #charposX < 1567 && #charposY > 145 && #charposY < 175
set %msl 2
if #charposX > 980 && #charposX < 1030 && #charposY > 1012 && #charposY < 1065
set %msl 3
if #charposX > 1020 && #charposX < 1080 && #charposY > 1085 && #charposY < 1165
set %msl 4
if #charposX > 1050 && #charposX < 1100 && #charposY > 1183 && #charposY < 1247
set %msl 5
if #charposX > 1165 && #charposX < 1220 && #charposY > 1510 && #charposY < 1556
set %msl 6
if #charposX > 1000 && #charposX < 1020 && #charposY > 965 && #charposY < 995
set %msl 7
if #charposX > 2248 && #charposX < 2335 && #charposY > 1463 && #charposY < 1515
set %msl 8
if #charposX > 1102 && #charposX < 1190 && #charposY > 400 && #charposY < 470
set %msl 9
Return %Msl
;-----------------------