library functions
function TerrainDeformationRipple takes real duration, boolean limitNeg, real x, real y, real startRadius, real endRadius, real depth, real wavePeriod, real waveWidth returns terraindeformation
      local real spaceWave = 2.0 * endRadius / waveWidth
      local real timeWave = 2.0 * duration / wavePeriod
      local real radiusRatio = startRadius / endRadius
      return TerrainDeformRipple(x, y, endRadius, depth, R2I(duration * 1000), 1, spaceWave, timeWave, radiusRatio, limitNeg)
endfunction

//итем нах
function UnitItemInSlots takes unit u, integer id returns item
#for A (0, 5)
    if GetItemTypeId(UnitItemInSlot(u, ##A)) == id then
      return UnitItemInSlot(u, ##A)
    endif
#endfor
    return null
endfunction

boolean UnitHasItemOfType(unit u, integer id) {
item i = UnitItemInSlots(u, id)
if (i != null)
return true
endif
return false
}

//Монетка!
nothing moneta(rect r) {
real x = GetRandomReal(GetRectMinX(r), GetRectMaxX(r))
real y = GetRandomReal(GetRectMinY(r), GetRectMaxY(r))
real tt = GetTerrainType(x, y)
integer i = 0
loop
exitwhen (i == 1)
if ((tt == udg_Snow) or (tt == 'Nsnr') or (tt == 'Idki') or (tt == 'Nice') or (tt == 'Glav') or (tt == 'Xblm') or (tt == 'Xwmb')) {
x = GetRandomReal(GetRectMinX(r), GetRectMaxX(r))
y = GetRandomReal(GetRectMinY(r), GetRectMaxY(r))
tt = GetTerrainType(x, y)
else
i++
CreateItem('gold', x, y)   
}
endloop
}

//Опять та-же хуита
function bocharX takes real fd, real Fd, real gd returns real
return fd+Fd*Cos(gd*0.01745)
endfunction
function bocharY takes real fd, real Fd, real gd returns real
return fd+Fd*Sin(gd*0.01745)
endfunction

//Функция "всех ресать"
function ResAll_a takes nothing returns nothing
local unit u = GetEnumUnit()
call ReviveHero( u, GetRectCenterX(udg_StartAndRes), GetRectCenterY(udg_StartAndRes), false )
call PauseUnit(u, false)
set u = null
endfunction

function ResAll takes nothing returns nothing
#for A (13, 23)
SetUnitPosition( gg_unit_ncop_00##A, GetRectCenterX(gg_rct_Kryg), GetRectCenterY(gg_rct_Kryg) )
#endfor
      call ForGroup(udg_Main_Units, function ResAll_a)
endfunction

globals
private location l_temp = Location (0., 0.)
endglobals

real GetCordZ (real x, real y) {
      MoveLocation (l_temp, x, y)
      return GetLocationZ(l_temp)
}

nothing LN(unit u, real d, real a, boolean b) {
real X = GetUnitX(u)
real Y = GetUnitY(u)
real x=X+d*Cos(a*0.01745)
real y=Y+d*Sin(a*0.01745)
integer tt = GetTerrainType(x,y)
real z = GetCordZ(X, Y)
real z2 = GetCordZ(x, y)
if (z > z2)
{
d = d+((z-z2)/3.9)
x=X+d*Cos(a*0.01745)
y=Y+d*Sin(a*0.01745)
}
if (z < z2)
{
d = d-((z2-z)/3.9)
x=X+d*Cos(a*0.01745)
y=Y+d*Sin(a*0.01745)
}
if GetUnitAbilityLevel(u, 'Beng') <= 0   
{
else
return
}
SetUnitX(u, x)
SetUnitY(u, y)
IssueImmediateOrder(u, "stop")
      if (tt == 'Idki')   
{
      IssueImmediateOrder(u, "stop")
      if (b == false)
      {
      SetUnitFacing(u, a)
      }
}
}

//Непонятная хуита
function AngleBetweenCoords takes real x1, real y1, real x2, real y2 returns real
    return bj_RADTODEG*Atan2(y2 - y1, x2 - x1)
endfunction

//Функции End_lvl
function EndLvL_a2 takes nothing returns nothing
if (GetUnitState(GetEnumUnit(), UNIT_STATE_LIFE) > 0)
{
      call SetHeroLevel( GetEnumUnit(), ( GetHeroLevel(GetEnumUnit()) + 1 ), true )
}
endfunction

function EndLvL_a takes nothing returns nothing
      call KillUnit( GetEnumUnit() )
endfunction

function EndLvL takes nothing returns nothing
local group g = CreateGroup()
      call GroupEnumUnitsInRect(g, udg_Hero_up, null)
      call CinematicFadeBJ( bj_CINEFADETYPE_FADEOUT, 3.00, "ReplaceableTextures\\CameraMasks\\Black_mask.blp", 0, 0, 0, 0.00 )
      call ForGroup( g, function EndLvL_a2 )
      call PauseAllUnitsBJ( true )
      call ForGroup( udg_Mob_deads_g, function EndLvL_a )
      call ResetTerrainFog()
      call TriggerExecute(gg_trg_Next)
      call DestroyGroup(g)
      #for A (0, 10)
      fix_i##A = 0
      #endfor
      set g = null
endfunction
endlibrary

//Возвращение итема
nothing returnitem(item i, player p) {
if (GetItemTypeId(i) == 'I001') {
SetPlayerState2(124, p)
}
if ((GetItemTypeId(i) == 'I002') or (GetItemTypeId(i) == 'I005')) {
SetPlayerState2(148, p)
}
RemoveItem(i)
}