globals
 unit udg_u
 group udg_g
 real udg_r
endglobals

function Func takes nothing returns nothing
 local unit u=GetEnumUnit()
  if GetWidgetLife(u)<udg_r then
   set udg_r=GetWidgetLife(u)
   set udg_u=u
 endif
 set u=null
endfunction

...
 set udg_r=GetWidgetLife(FirstOfGroup(udg_g))
 call ForGroup(udg_g, function Func)
...

// udg_r1 - процент макс. жизни юнита;
// udg_r2 - численное значение жизни;
// udg_u - юнит;
// udg_g - группа;

globals
 unit udg_u
 group udg_g
 real udg_r1
 real udg_r2
endglobals

function FuncName takes nothing returns nothing
 local unit u=GetEnumUnit()
 local real state = (GetWidgetLife(u)/GetUnitState(u,UNIT_STATE_MAX_LIFE))
//или так:  local real state = (GetWidgetLife(u)/(GetUnitState(u,UNIT_STATE_MAX_LIFE)/100.0))
  if state<udg_r1 then
   set udg_r1=state
   set udg_r2=GetWidgetLife(u)
   set udg_u=u
 endif
 set u=null
endfunction

...
 set udg_r1=100.00
 set udg_g =*группа*
 call ForGroup(udg_g, function FuncName)
...

function CopyGroup takes group gr1, group gr2 returns group
    set bj_groupAddGroupDest = gr2
    call ForGroup(gr1, function GroupAddGroupEnum)
    return bj_groupAddGroupDest
endfunction

function UnitOfGroupMinLife takes group gr2 returns unit
    local unit u
    local real state
    local group gr = CopyGroup (gr2, CreateGroup())
    local real minstate = -1
    local unit minunit
    loop
        set u = FirstOfGroup()
        exitwhen u == null
        set state = GetUnitState(u, UNIT_STATE_LIFE)
        if state < minstate or minstate == -1 then
            set minstate = state
            set minunit = u
        endif
        call GroupRemoveUnit(gr, u)
    endloop
    call DestroyGroup(gr)
    set gr = null
    return minunit
endfunction

function MinLifeGroup takes group g returns nothing
    local group g1 = CreateGroup()
    local unit u
    local real r = Pow(2,31) // :D
    local real r1 = 0
    local unit u1
    call GroupAddGroup(g1,g)
    loop
         set u = FirstOfGroup(g1)
         exitwhen u == null
         set r1 = GetUnitState(u, UNIT_STATE_LIFE)
         if r1<r then
            set r = r1
            set u1 = u
         endif
         call GroupRemoveUnit(g1, u)
    endloop
    call DestroyGroup(g1)
    set g1 = null
    return u1
endfunction