globals
boolexpr bx = null
endglobals

function Trig_KingRed_Conditions takes nothing returns boolean
    if ( not (GetOwningPlayer(GetTriggerUnit()) == Player(0) ) ) then
    return false
    endif
    if ( not ((GetUnitTypeId(GetTriggerUnit()) == 'Harf' ) or ( GetUnitTypeId(GetTriggerUnit()) == 'Nbbc' ) or( GetUnitTypeId(GetTriggerUnit()) == 'Eevi' ) or ( GetUnitTypeId(GetTriggerUnit()) == 'Uvar' ) ) ) then
    return false
    endif
    return true
endfunction

function IsUnitInLoc takes nothing returns boolean
return IsUnitOwnedByPlayer( GetEnumUnit(), Player(0)) or IsUnitOwnedByPlayer( GetEnumUnit(), Player(1))
endfunction

function Trig_KingRed_Actions takes nothing returns nothing
local real x
local real y
local integer i = 0
local group g = null
set udg_Target = GetTriggerUnit()
set x = (GetUnitX(GetTriggerUnit())) 
set y = (GetUnitY(GetTriggerUnit()))

    if ( not (udg_CheckMoveKingRed)) then
        if ( not (udg_CheckMoveRookRedLeft)) then
        loop
        set i = i+1
        exitwhen i > 3
        call GroupEnumUnitsInRangeOfLoc(g, Location(x-192*i, y), 100.00, bx)  
        endloop
        if IsUnitGroupEmptyBJEnum(g) then
        call CreateUnitAtLoc( GetTriggerPlayer(), 'n000', Location(x-192*2, y), 270 ) 
        endif
        endif 
    endif
   
   endif
endfunction


//===========================================================================
function InitTrig_KingRed takes nothing returns nothing
    set gg_trg_KingRed = CreateTrigger(  )
    call TriggerRegisterPlayerSelectionEventBJ( gg_trg_KingRed, Player(0), true )
    call TriggerAddCondition( gg_trg_KingRed, Condition( function Trig_KingRed_Conditions ) )
    call TriggerAddAction( gg_trg_KingRed, function Trig_KingRed_Actions )
    set bx = Condition( function IsUnitInLoc )
endfunction

if IsUnitGroupEmptyBJEnum(g) then

function IsUnitGroupEmptyBJEnum takes nothing returns nothing
    set bj_isUnitGroupEmptyResult = false
endfunction