function GetSpellTargetX takes nothing returns real
    local location p=GetSpellTargetLoc()
    local real x=GetLocationX(p)
    call RemoveLocation(p)
    set p=null
    return x
endfunction

globals

    location LFC_Loc = null
    real LFC_X       = 0.00
    real LFT_Y       = 0.00
    //LEFT FOR COMPAC

endglobals

function GetSpellTarget_COR_LOAD takes nothing returns nothing
    call RemoveLocation(LFC_Loc)
    set LFC_Loc = GetSpellTargetLoc()
    
    set LFC_X = GetLocationX(LFC_Loc)
    set lFC_Y = GetLocationY(LFC_Loc)
endfunction

function GetSpellTarget_COR_X takes nothing returns real
    return LFC_X
endfunction

function GetSpellTarget_COR_Y takes nothing returns real
    return LFC_Y
endfunction