native GetTriggeringTrackable takes nothing returns trackable

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