library AI initializer ini

private function bd takes nothing returns integer
local integer i = GetRandomInt(1,3)
if i == 1 then
return 'O000'
elseif i == 2 then
return 'Odmg'
elseif i == 3 then
return 'Otnk'
endif
return 0
endfunction

private function a takes nothing returns nothing
local integer i = 0
local region r = CreateRegion()
local region r2 = CreateRegion()
local unit u
local boolean b = false
call RegionAddRect(r, gg_rct_Buyzone)
call RegionAddRect(r2, gg_rct_Main)
loop
exitwhen i > Init_BotC
set u = Init_Orc[GetPlayerId(Init_Bot[i])]
if IsUnitInRegion(r, u) then
    if GetUnitStatePercent(u, UNIT_STATE_LIFE, UNIT_STATE_MAX_LIFE) > 95 and GetUnitCurrentOrder(u) != 851986 then
    call IssuePointOrderById(u, 851986, GetRectCenterX(gg_rct_ToMain),GetRectCenterY(gg_rct_ToMain))
    set b = true
    endif
endif
if IsUnitInRegion(r2, u) and b == false then
    if GetUnitCurrentOrder(u) != 851983 and GetUnitCurrentOrder(u) != 851986 then
    call IssuePointOrderById(u, 851983, GetRectCenterX(gg_rct_Main) + GetRandomReal(-1000, 1000),GetRectCenterY(gg_rct_Main) + GetRandomReal(-1000, 1000))
    endif
    if GetUnitStatePercent(u, UNIT_STATE_LIFE, UNIT_STATE_MAX_LIFE) < 20 and GetUnitCurrentOrder(u) != 851986 then
    call IssuePointOrderById(u, 851986, GetRectCenterX(gg_rct_ToSafe),GetRectCenterY(gg_rct_ToSafe))
    endif
endif
set b = false
set i = i + 1
endloop
call RemoveRegion(r)
call RemoveRegion(r2)
set r = null
set r2 = null
set u = null
endfunction

private function ini takes nothing returns nothing
local timer tm = CreateTimer()
local integer i = 0
call TriggerSleepAction(1)
loop
exitwhen i > Init_BotC
call DialogDisplay(Init_Bot[i], Init_D, false)
set Init_Orc[GetPlayerId(Init_Bot[i])] = CreateUnit(Init_Bot[i], bd(), GetRectCenterX(gg_rct_Buyzone), GetRectCenterY(gg_rct_Buyzone), 0)
set i = i + 1
endloop
if Init_BotC > -1 then
call TimerStart(tm, 3, true, function a)
endif
endfunction

endlibrary