nothing UnitsInFear() {
  unit u=GetTriggerUnit()
  integer uid=GetHandleId(u)
  unit fearer=LoadUnitHandle(udg_h,uid,36)
  if GetIssuedOrderId()!=851973 && GetWidgetLife(u)>0. && GetUnitAbilityLevel(u,'BPSE')==0 then
    if LoadInteger(udg_h,uid,37)>0 and GetWidgetLife(fearer)>0. then
      real angle=AngleBetweenUnits(fearer,u)
      DisableTrigger(FearTrigger)
      IssuePointOrder(u,"move",GetUnitX(u)+70.*CosBJ(angle),GetUnitY(u)+70.*SinBJ(angle))
      EnableTrigger(FearTrigger)
    elseif LoadInteger(udg_h,uid,65)>0
      fearer=LoadUnitHandle(udg_h,uid,66)
      if LoadInteger(udg_h,uid,65)>0 and GetWidgetLife(fearer)>0. then
        DisableTrigger(FearTrigger)
        IssueTargetOrder(u,"attack",fearer)
        EnableTrigger(FearTrigger)
      endif
    elseif LoadInteger(udg_h,uid,84)>0
      fearer=GetSkillNearestAlly(GetUnitX(u),GetUnitY(u),800.,u)
      if fearer!=null then
        DisableTrigger(FearTrigger)
        IssueTargetOrder(u,"attack",fearer)
        EnableTrigger(FearTrigger)
      else
        DisableTrigger(FearTrigger)
        IssueImmediateOrder(u,"hold")
        EnableTrigger(FearTrigger)
      endif
    endif
  endif
  u=null
  fearer=null
}

    FearTrigger=CreateTrigger()
    TriggerRegisterAnyUnitEventBJ(FearTrigger,EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER)  
    TriggerRegisterAnyUnitEventBJ(FearTrigger,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER)
    TriggerRegisterAnyUnitEventBJ(FearTrigger,EVENT_PLAYER_UNIT_ISSUED_ORDER)
    TriggerAddCondition(FearTrigger,Condition(function UnitsInFear_c))
    TriggerAddAction(FearTrigger,function UnitsInFear)