function cst takes integer i, integer ty returns integer
 local integer id
 if ty == 0 then
 if i <= 2 then
 set id = 'hspt'
 elseif i == 3 then
 set id = 'hmtm'
 endif
elseif ty == 1 then
 if i <= 2 then
 set id = 'hfoo'
 elseif i == 3 then
 set id = 'hsor'
 endif
endif
return id
endfunction

function Сloop takes real x, real y, player ow, integer ty returns nothing
local unit u
local integer j = 0
 loop
  exitwhen cst(j,ty) == 0
  set u = CreateUnit(ow,cst(j,ty),x,y,180)
  set j = j + 1
  set u=null
  endloop
endfunction

function Creeps takes nothing returns nothing
local real x
local real y
local integer i = 0
local integer ty
local player ow
loop                            
exitwhen i > 4
set x = GetRectCenterX (udg_start_rects[i])  
set y = GetRectCenterY (udg_start_rects[i])
set ty = udg_start_rects_type[i]
set ow = udg_start_rects_ow[i]
call Сloop (x,y,ow,ty) 
set i = i + 1
endloop
endfunction

function Trig_Creepsinit_Actions takes nothing returns nothing

local timer t = CreateTimer()
call TimerStart (t,2,true,function Creeps)


set udg_start_rects[0] = gg_rct_ne
set udg_start_rects_ow[0] = Player(0)
set udg_start_rects_type[0] = 0

set udg_start_rects[1] = gg_rct_sw
set udg_start_rects_ow[1] = Player(1)
set udg_start_rects_type[1] = 0

set udg_start_rects[2] = gg_rct_ne1
set udg_start_rects_ow[2] = Player(0)
set udg_start_rects_type[0] = 1

set udg_start_rects[3] = gg_rct_sw1
set udg_start_rects_ow[3] = Player(1)
set udg_start_rects_type[3] = 1


set t=null
endfunction