Need code for Trailing Stop (smart)

void TrailingSelected(double trail, double lot_mini)
  {
   if(trail==0)
      return;
  
   int k=0;
   if(_Digits==5 || _Digits==3)
     k=10;
   else
     k=1;
  
   //----
  
   double stopcal;
   int trade;
   int trades=OrdersTotal();
   double profitcalc;
   bool Order_Modif;
  
   for(trade=0;trade<trades;trade++)
     {
      if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==True)
      {
      if(OrderSymbol()==Symbol())
         {
         //Long
         if(OrderType()==OP_BUY && OrderMagicNumber()==MagicNumber_Buy && OrderLots()>=lot_mini)
           {
            stopcal=NormalizeDouble((OrderStopLoss()+(trail*k*_Point)), _Digits);
            profitcalc=OrderTakeProfit();
               if(stopcal<Bid && CheckStopLoss_Takeprofit(OP_BUY,NormalizeDouble(OrderStopLoss()+(trail/2*k*Point), _Digits),OrderTakeProfit())==True)
                 {
                  Order_Modif=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderStopLoss()+(trail/2*k*Point), _Digits),profitcalc,0,Blue);
                 }
           }//Long
         //Short
         if(OrderType()==OP_SELL && OrderMagicNumber()==MagicNumber_Sell && OrderLots()>=lot_mini)
           {
            stopcal=NormalizeDouble((OrderStopLoss()-(trail*k*_Point)), _Digits);
            profitcalc=OrderTakeProfit();
               if(stopcal>Ask && CheckStopLoss_Takeprofit(OP_SELL,NormalizeDouble(OrderStopLoss()-(trail/2*k*Point), _Digits),OrderTakeProfit())==True)
                 {
                  Order_Modif=OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(OrderStopLoss()-(trail/2*k*Point), _Digits),profitcalc,0,Red);
                 }
           }//Short
         }
      }  
     }
   }

bool CheckStopLoss_Takeprofit(ENUM_ORDER_TYPE type, double SL, double TP)
  {
//--- get the SYMBOL_TRADE_STOPS_LEVEL level
   int stops_level=(int)SymbolInfoInteger(_Symbol,SYMBOL_TRADE_STOPS_LEVEL);
//---
   bool SL_check=false,TP_check=false;
//--- check only two order types
   switch(type)
     {
      //--- Buy operation
      case  ORDER_TYPE_BUY:
        {
         //--- check the StopLoss
         SL_check=(Bid-SL>stops_level*_Point);
         if(SL==0)
           SL_check=True;
         //--- check the TakeProfit
         TP_check=(TP-Bid>stops_level*_Point);
         if(TP==0)
           TP_check=True;
         //--- return the result of checking
         return(SL_check&&TP_check);
        }
      //--- Sell operation
      case  ORDER_TYPE_SELL:
        {
         //--- check the StopLoss
         SL_check=(SL-Ask>stops_level*_Point);
         if(SL==0)
           SL_check=True;
         //--- check the TakeProfit
         TP_check=(Ask-TP>stops_level*_Point);
         if(TP==0)
           TP_check=True;
         //--- return the result of checking
         return(TP_check&&SL_check);
        }
      break;
     }
   return false;
  }