function ClickTrackable takes nothing returns nothing
    local trigger trig = GetTriggeringTrigger ()
    local trackable tk = GetTriggeringTrackable ()
    local player p = GetStoredInteger(udg_Cache, I2S(H2I(tk)), "p")
    call DisplayTextToForce( bj_FORCE_ALL_PLAYERS, GetPlayerName(p) )
    set p    = null
    set trig = null
    set tk   = null    
endfunction    
    
function JCreateTrigger takes real X, real Y, integer id returns nothing
    local trigger trig
    local trackable tk   
    local integer i = 0
    local player p
    local string model
    loop
        exitwhen i > 11   
        set p = Player(i) 
        set model = ""
        if (GetLocalPlayer() == p) then
            set model = "square.mdx"
        endif
        set tk = CreateTrackable(model, X, Y, 0) 
        set trig = CreateTrigger() 
        call TriggerRegisterTrackableHitEvent(trig, tk                     )
        call TriggerAddAction                (trig, function ClickTrackable)
        call StoreInteger(udg_Cache, I2S(H2I(tk)), "p", H2I(p))
        call DisableTrigger( trig )
        if (GetLocalPlayer () == p) then
            call EnableTrigger( trig )
        endif
        set i = i + 1
    endloop    
    call StoreReal   (udg_Cache, I2S(id), "X", X)
    call StoreReal   (udg_Cache, I2S(id), "Y", Y)
    set p    = null
    set trig = null
    set tk   = null
endfunction