function RD_POINT_ENTERED takes nothing returns nothing
    local integer A=0
    local integer B=0
    if caapp_on==true then
    loop
        exitwhen B>5
        if GetPlayerSlotState(Player(B))==PLAYER_SLOT_STATE_PLAYING then
            if wo_playerhero[B]==GetTriggerUnit() then
                call GroupEnumUnitsInRangeOfLoc(cap_unitgroup[B],GetUnitLoc(GetTriggerUnit()),70,null)
                set cap_cappingpoint[B]=GetEnumUnit()
            endif
        endif
        set B=B+1
    endloop
    endif
endfunction

function RD_CREATING_POINT takes integer x,integer y,real face returns nothing
    set rd_p_num=rd_p_num+1
    set rd_point[rd_p_num]=CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE),'n000',map_x[x],map_y[y],face)
    call DisplayTextToPlayer(Player(0),0,0,GetUnitName(rd_point[rd_p_num])+" "+I2S(rd_p_num))
endfunction

function MAP_CREATE takes nothing returns nothing
    local integer i=1
    local trigger array t
    //Skiped Part!
    loop
        exitwhen i>rd_p_num
        set t[i]=CreateTrigger()
        call TriggerRegisterUnitInRange(t[i],rd_point[i],60.,null)
        call TriggerAddAction(t[i],function RD_POINT_ENTERED)
        set i=i+1
    endloop
    set caapp_on=true
endfunction