//           -|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  ::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [              ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [      RB      ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [              ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  ::::::::::::::::::::|-
constant function H2I takes handle h returns integer
    return h
    return 0
endfunction

constant function B2I takes boolean b returns integer
    if b==true then
        return 1
    endif
    return 0
endfunction

constant function I2B takes integer i returns boolean
    if i>=1 then
        return true
    endif
    return false
endfunction

constant function I2U takes integer H returns unit
    return H
    return null
endfunction     

constant function I2FX takes integer H returns effect
    return H
    return null
endfunction     

constant function I2Race takes integer H returns race
    return H
    return null
endfunction     

constant function I2UP takes integer H returns unitpool
    return H
    return null
endfunction   

constant function I2Tr takes integer H returns trigger
    return H
    return null
endfunction    

constant function I2S_RB takes integer H returns string
    return H
    return null
endfunction   

constant function S2I_RB takes string S returns integer
    return S
    return 0
endfunction    

constant function I2Loc takes integer H returns location
    return H
    return null
endfunction    

constant function I2Tm takes integer i returns timer
    return i
    return null
endfunction    

constant function I2Gr takes integer i returns group
    return i
    return null
endfunction     

constant function I2BX takes integer i returns boolexpr
    return i
    return null                             
endfunction   

constant function Code2I takes code i returns integer
    return i
    return 0
endfunction   

constant function I2Code takes integer i returns code
    return i
    return null
endfunction   

constant function I2TT takes integer i returns texttag
    return i
    return null
endfunction     

constant function I2TrA takes integer i returns triggeraction
    return i
    return null
endfunction    

constant function I2TrC takes integer i returns triggercondition
    return i
    return null
endfunction     

constant function I2Img takes integer i returns image
    return i
    return null
endfunction     

constant function R2I_RB takes real r returns integer
    return r
    return 0
endfunction     

constant function I2R_RB takes integer i returns real
    return i
    return 0.0
endfunction     

constant function I2Snd takes integer i returns sound
    return i
    return null
endfunction          

constant function rb takes real r returns real
    return r
endfunction

constant function I2Reg takes integer i returns region
    return i
    return null
endfunction

constant function I2Dest takes integer i returns destructable
    return i
    return null
endfunction

constant function I2WeatherEffect takes integer i returns weathereffect
    return i
    return null
endfunction

constant function I2Rec takes integer i returns rect
    return i
    return null
endfunction                                

//           -|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  :::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [             ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [     SCV     ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [             ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  :::::::::::::::::::|-

function get_object_sparam takes handle h, string key returns string
    return GetStoredString(udg_cache, I2S(H2I(h)), key)
endfunction

function set_object_sparam takes handle h, string key, string val returns nothing
    call StoreString(udg_cache, I2S(H2I(h)), key, val)
endfunction

function get_object_iparam takes handle h, string key returns integer
    return GetStoredInteger(udg_cache, I2S(H2I(h)), key)
endfunction

function set_object_iparam takes handle h, string key, integer val returns nothing
    call StoreInteger(udg_cache, I2S(H2I(h)), key, val)
endfunction

function get_object_rparam takes handle h, string key returns real
    return GetStoredReal(udg_cache, I2S(H2I(h)), key)
endfunction

function set_object_rparam takes handle h, string key, real val returns nothing
    call StoreReal(udg_cache, I2S(H2I(h)), key, val)
endfunction

function get_object_bparam takes handle h, string key returns real
    return GetStoredBoolean(udg_cache, I2S(H2I(h)), key)
endfunction

function set_object_bparam takes handle h, string key, real val returns nothing
    call StoreBoolean(udg_cache, I2S(H2I(h)), key, val)
endfunction

function flush_object takes handle h returns nothing
    call FlushStoredMission(udg_cache, I2S(H2I(h)))
endfunction

//----------    

function setcfg takes string key, string val returns nothing
    call StoreString(udg_cache, "config", key, val)
endfunction

function cfg takes string key returns string
    return GetStoredString(udg_cache, "config", key)
endfunction

function cfgr takes string key returns real
    return S2R(cfg(key))
endfunction

function cfgi takes string key returns integer
    return S2I(cfg(key))
endfunction

//           -|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  ::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [              ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [    Прочее    ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::  [              ]  ::::::::::::::::::::::::::::::::::::::::|-
//           -|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::  ::::::::::::::::::::|-

//=======Создание Ефекта на время========  
function CreateEffect_Timer takes nothing returns nothing
    local timer Timer = GetExpiredTimer()
    local effect Effect = I2FX(get_object_iparam (Timer, "Effect"))
    call DestroyEffect(Effect)
    call flush_object (Timer)
    set Effect = null
    call DestroyTimer(Timer)
    set Timer = null
endfunction 

function CreateEffect takes effect fx, real sec returns nothing
    local timer Timer  = CreateTimer()
    call set_object_iparam (Timer, "Effect", H2I(Effect))
    call TimerStart(Timer, sec, false ,function CreateEffectTimer)
    set Timer = null
endfunction      

//=======Растояние между точками (AX; AY) и (BX; BY)===========

function DistanceBetweenCord takes real AX, real AY, real BX, real BY returns real
    local real dx = BX - AX
    local real dy = BY - AY
    return SquareRoot(dx * dx + dy * dy)
endfunction          
   
//=======угл между точками (AX; AY) и (BX; BY)===========

function AngleBetweenCord takes real AX, real AY, real BX, real BY returns real
    return bj_RADTODEG * Atan2(BY - AY, BX - AX)
endfunction

//проверка на ноличее прдмета "ItemId" у юнита "u"

function ItemIdInUnit takes unit u, integer ItemId returns boolean
    local integer a = 0
    loop
        exitwhen a > 5
        if GetItemTypeId(UnitItemInSlot(u, a)) == ItemId then
            return true
        endif
        set a = a + 1
    endloop
    return false
endfunction
                                                                                                                                                                      
//------------------------------------------------------------------------------------------------------------+    




//------------------------------------- SmiLe's ------------------------------
function TargetCast takes unit cas,unit targ,integer ID,string ord,real x,real y,real time,integer lev returns nothing
    local unit u=CreateUnit(GetOwningPlayer(cas),'e009',x,y,270)
    call UnitAddAbility(u,ID)
    if lev>1 then
        call SetUnitAbilityLevel(u,ID,lev)
    endif
    call IssueTargetOrder(u,ord,targ)
    if time>0 then
        call UnitApplyTimedLife(u,'Brai',time)
    else
        call RemoveUnit(u)
    endif
    set u=null
endfunction

function InstantCast takes unit cas,integer ID,string ord,real x,real y,real time returns nothing
    local unit u=CreateUnit(GetOwningPlayer(cas),'e009',x,y,270)
    call UnitAddAbility(u,ID)
    call IssueImmediateOrder(u,ord)
    if time>0 then
        call UnitApplyTimedLife(u,'Brai',time)
    else
        call RemoveUnit(u)
    endif
    set u=null
endfunction

function echo takes string s returns nothing
    call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,10,s)
endfunction