globals
  integer c = 0
endglobals

function Enum takes nothing returns nothing
   set c = c + 1 // инкремент
endfunction

function Count takes nothing returns nothing
   local group g = CreateGroup()
   call GroupEnumUnitsInRect(g,bj_mapInitialPlayableArea,null) // выбор всех воинов в твоем регионе
   call ForGroup(g,function Enum)
   call BJDebugMsg(I2S(c)) // вывод количества
   set c = 0 // обнуление счетчика для дальнейшего использования
   call DestroyGroup(g)
   set g = null
endfunction