function H2I takes handle h returns integer
    return h
    return 0
endfunction

function LocalVars takes nothing returns gamecache
    if udg_Cache == null then
               call FlushGameCache(InitGameCache("Engine.J"))
               set udg_Cache = InitGameCache("Engine.J")
    endif
    return udg_Cache
endfunction

function SetHandle takes handle subject, string name, handle value returns nothing
    if value==null then
        call FlushStoredInteger(LocalVars(),I2S(H2I(subject)),name)
    else
        call StoreInteger(LocalVars(), I2S(H2I(subject)), name, H2I(value))
    endif
endfunction

function GetUnit takes handle subject, string name returns unit
    return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
    return null
endfunction

call text_print (1, "тут текст любой", 0.75, 0.50, 0.08, 45, 6)

function text_print takes integer PNum, string txt, real x, real y, real period, integer CurDelay, integer Snd returns nothing
local timer tm = CreateTimer()
local integer i
local integer l = StringLength(txt)
local integer t
local string text = ""
set i = 1
call TimerStart(tm, period, true, function TXT_TimerExp_show_prt_text)
call set_object_iparam(tm, "text_print_l", l)
call set_object_iparam(tm, "text_print_i", i)
call set_object_iparam(tm, "text_print_snd", Snd)
call set_object_iparam(tm, "text_print_del", CurDelay)
call set_object_sparam(tm, "text_print_t", txt)
call set_object_rparam(tm, "text_print_per", period)
call set_object_rparam(tm, "text_print_player", PNum)
call set_object_rparam(tm, "text_print_x", x)
call set_object_rparam(tm, "text_print_y", y)
endfunction