Ярость Огня

library LibStart initializer InitStart uses MyLib,Respp {

globals
rect array Region[9]
rect array RectPotrul[2]
group array GroupPot[3]
endglobals

private nothing Enum() {
unit u=GetEnumUnit()
RespZip(u)
u=null
}

private nothing StartUnitEnum() {
timer t=GetTimer
group g=CreateGroup()
GroupEnumUnitsInRect(g,RectMap,null)
ForGroup(g,function Enum)
KillTimer(t)
t=null
g=null
}

private boolean AddPatrulle() {
unit u=GetEnumUnit()
GroupAddUnit(GroupPot[1],u)
u=null
return false
}

private boolean AddPatrulle2() {
unit u=GetEnumUnit()
GroupAddUnit(GroupPot[2],u)
u=null
return false
}

private nothing Patrulle2() {
unit u=GetEnumUnit()
location loc=RandomLocRect(RectPotrul[2])
IssuePointOrderLoc(u,"move",loc)
KillLoc(loc)
loc=null
u=null
}

private nothing Patrulle() {
unit u=GetEnumUnit()
location loc=RandomLocRect(RectPotrul[1])
IssuePointOrderLoc(u,"move",loc)
KillLoc(loc)
loc=null
u=null
}

private nothing AddPotrulRect() {
timer t=GetTimer
group g=CreateGroup()
group g2=CreateGroup()
GroupEnumUnitsInRect(g,RectPotrul[1],null)
GroupEnumUnitsInRect(g2,RectPotrul[2],null)
ForGroup(g,function AddPatrulle)
ForGroup(g2,function AddPatrulle2)
KillGroup(g)
KillGroup(g2)
KillTimer(t)
t=null
g=null
g2=null
}

private nothing PotrulRect() {
ForGroup(GroupPot[1],function Patrulle)
ForGroup(GroupPot[2],function Patrulle2)
}

private nothing INITRECT() {
timer t=GetTimer
Region[0]=gg_rct_Player1
Region[1]=gg_rct_Player2
Region[2]=gg_rct_Player3
Region[3]=gg_rct_Player4
Region[4]=gg_rct_Player5
Region[5]=gg_rct_Player6
Region[6]=gg_rct_Player7
Region[7]=gg_rct_Player8
Region[8]=gg_rct_Player9
Region[9]=gg_rct_Player10
RectPotrul[1]=gg_rct_Potrul
RectPotrul[2]=gg_rct_Potrul2
GroupPot[1]=CreateGroup()
GroupPot[2]=CreateGroup()
TimerStart(CreateTimer(),0.0005,false,function AddPotrulRect)
TimerStart(CreateTimer(),1.75,true,function PotrulRect)
KillTimer(t)
t=null
}

//===========================================================================

private nothing InitStart() {
TimerStart(CreateTimer(),0.0005,false,function INITRECT)
TimerStart(CreateTimer(),0.0003,false,function StartUnitEnum)
}
}