function GetTrackableX takes trackable tc, hashtable h returns real     
        return LoadReal(h,GetHandleId(tc),0)
endfunction     

function GetTrackableY takes trackable tc, hashtable h returns real     
        return LoadReal(h,GetHandleId(tc),1)
endfunction     

function GetTrackableZ takes trackable tc, hashtable h returns string     
        return LoadReal(h,GetHandleId(tc),2)
endfunction     

function GetTrackableFacing takes trackable tc, hashtable h returns real     
        return LoadReal(h,GetHandleId(tc),3)
endfunction     

function GetTrackablePath takes trackable tc, hashtable h returns string     
        return LoadStr(h,GetHandleId(tc),4)
endfunction     

function GetTrackableOwner takes trackable tc, hashtable h returns player
        return Player(LoadInteger(h,GetHandleId(tc),5))
endfunction

function NewTrackable takes string path, real x, real y, real z, real facing, player owner, hashtable h returns trackable     
        local trackable tc     
        local string invisible = ""
        local destructable d = CreateDestructableZ('OTip', x, y, z, 0.00, 1.00, 0 )
        if GetLocalPlayer() != owner then
            set path = invisible
        endif
        set tc = CreateTrackable(path, x, y, facing)
        call RemoveDestructable(d)
        set d = null     
        call SaveReal(h,GetHandleId(tc),0,x)
        call SaveReal(h,GetHandleId(tc),1,y)
        call SaveReal(h,GetHandleId(tc),2,z)
        call SaveReal(h,GetHandleId(tc),3,facing)
        call SaveStr(h,GetHandleId(tc),4,path)
        call SaveInteger(h,GetHandleId(tc),5,GetPlayerId(owner))
        return tc     
endfunction