function Bx takes nothing returns nothing
	local timer t
	local integer tb
	local integer cx=GetPlayerId(GetOwningPlayer(udg_unit01))
	if udg_destructable01!=null then
		call IssueTargetOrderById(udg_unit01,851971,udg_destructable01)
	elseif udg_item01!=null then
		set tb=GetHandleId(udg_item01)
		if LoadInteger(udg_hashtable02,tb,cx)==0 then
			set t=CreateTimer()
			call SaveUnitHandle(udg_hashtable02,GetHandleId(t),0,udg_unit01)
			call TimerStart(t,.0,false,function Nx)
		else
			call IssueTargetOrderById(udg_unit01,851971,udg_item01)
		endif
	elseif udg_unit02!=null and IsUnitEnemy(udg_unit02,GetOwningPlayer(udg_unit01))then
		call IssueTargetOrderById(udg_unit01,851983,udg_unit02)
	elseif udg_unit02!=null and IsUnitEnemy(udg_unit02,GetOwningPlayer(udg_unit01))==false then
		call IssueTargetOrderById(udg_unit01,851986,udg_unit02)
	else
		call IssuePointOrderById(udg_unit01,851986,udg_real01,udg_real02)
	endif
	call UnitAddAbility(udg_unit01,'A05V')
	call EnableTrigger(udg_trigger01)
endfunction

function Cx takes nothing returns nothing
	if GetIssuedOrderId()!=851971then
		return
	endif
	set udg_unit01=GetTriggerUnit()
	set udg_destructable01=GetOrderTargetDestructable()
	set udg_item01=GetOrderTargetItem()
	set udg_unit02=GetOrderTargetUnit()
	set udg_real01=GetOrderPointX()
	set udg_real02=GetOrderPointY()
	call DisableTrigger(udg_trigger01)
	call UnitRemoveAbility(udg_unit01,'A05V')
	call TimerStart(udg_timer01,.0,false,function Bx)
endfunction

function Dx takes nothing returns nothing
	local integer i=0
	loop
		exitwhen i>11
		call SetPlayerAlliance(Player(i),Player(i),ALLIANCE_SHARED_CONTROL,false)
		call SetPlayerAlliance(Player(i),Player(i),ALLIANCE_HELP_REQUEST,true)
		call SetPlayerAlliance(Player(i),Player(i),ALLIANCE_HELP_RESPONSE,true)
		set i=i+1
	endloop
	call ClearTextMessages()
	call TriggerRegisterAnyUnitEventBJ(udg_trigger01,EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER)
	call TriggerRegisterAnyUnitEventBJ(udg_trigger01,EVENT_PLAYER_UNIT_ISSUED_ORDER)
	call TriggerRegisterAnyUnitEventBJ(udg_trigger01,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER)
	call TriggerAddAction(udg_trigger01,function Cx)
endfunction