function AddNewRes takes integer count, player pl returns nothing
 local integer uid = 'h000' //Создашь юнита с нулевой моделью, добавишь ему способности неуязвимый и москиты, требует еды 1, и радиус обзора 0
 local integer n = 0
 loop 
  exitwhen n >= count
  call CreateUnit(pl,uid,0,0,0)
  set n = n + 1
 endloop
 set n = 0
 set uid = 0
endfunction
function RemoveNewRes takes integer count, player pl returns nothing
 local group gr = CreateGroup()
 local group lg = CreateGroup()
 local integer n = 0
 set bj_groupEnumTypeId = 'h000' //id того юнита который отвечает за 3 ресурс
 call GroupEnumUnitsOfPlayer(lg, pl, filterGetUnitsOfPlayerAndTypeId)
 call GroupAddGroup( lg, gr )
 call DestroyGroup(lg)
 loop
  exitwhen n >= count
  call RemoveUnit(GroupPickRandomUnit(gr))
  set n = n + 1
 endloop
 call DestroyGroup(gr)
 set n = 0
 set lg = null
 set gr = null
endfunction
function GetCountNewRes takes player pl returns integer
 local group gr = CreateGroup()
 local group lg = CreateGroup()
 local integer count
 set bj_groupEnumTypeId = 'h000' //id того юнита который отвечает за 3 ресурс
 call GroupEnumUnitsOfPlayer(lg, pl, filterGetUnitsOfPlayerAndTypeId)
 call GroupAddGroup( lg, gr )
 call DestroyGroup(lg)
 set count = CountUnitsInGroup(gr)
 call DestroyGroup(gr)
 set gr = null
 set lg = null
 return count
endfunction
function AddNeedNewRes takes integer uid, integer count returns nothing
 call StoreInteger(udg_gcahe,I2S(uid),"neednewres",count)
endfunction
function CreateStructure takes nothing returns nothing
 local unit u = GetConstructingStructure()
 local integer id = GetUnitTypeId(u)
 local player p = GetOwningPlayer(u)
 local integer cost = GetStoredInteger(udg_gcahe,I2S(id),"neednewres")
 if GetCountNewRes(p) >= cost then
  call RemoveNewRes(cost,p)
 else
  call DisplayTextToPlayer(p,1,-1,"|c00FFFF00Недостаточно " + udg_namenewres + "|r")
  call RemoveUnit(u)
 endif
 set u = null
 set id = 0
 set p = null
 set cost = 0
endfunction
function InitNewRes takes nothing returns nothing
 local trigger t = CreateTrigger()
 local integer i = 0
 loop
  exitwhen i >= 12
  call TriggerRegisterPlayerUnitEvent( gg_trg_s, Player(i), EVENT_PLAYER_UNIT_CONSTRUCT_START,null )
  set i = i + 1
 endloop
 call TriggerAddAction(t,function CreateStructure)
 set t = null
 set i = 0
endfunction

call SetPlayerStateBJ( Player(NP-1), PLAYER_STATE_RESOURCE_FOOD_USED, NF )

call AdjustPlayerStateBJ( NF, Player(NP-1), PLAYER_STATE_RESOURCE_FOOD_USED )