//+------------------------------------------------------------------+
//|                                                   FiboScript.mq4 |
//|                                              Copyright 2023, AM2 |
//|                                     https://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2023, AM2"
#property link      "https://www.forexsystems.biz"
#property version   "1.00"
#property strict


input double f0=0;
input double f1=25;
input double f2=50;
input double f3=75;
input double f4=100;

input string nm="f1";

//+------------------------------------------------------------------+
//| Создание объекта FIBO                                            |
//+------------------------------------------------------------------+
void PutFibo(string name)
  {
//ObjectDelete(name);
//--- создадим "Уровни Фибоначчи" по заданным координатам
   ObjectCreate(0,name,OBJ_FIBO,0,Time[1],Close[1],Time[44],Close[44]);
//--- установим цвет
   ObjectSetInteger(0,name,OBJPROP_COLOR,Red);
//--- установим толщину линии
   ObjectSetInteger(0,name,OBJPROP_WIDTH,1);
//--- установим количество уровней
   ObjectSetInteger(0,name,OBJPROP_LEVELS,5);

   ObjectSetDouble(0,name,OBJPROP_LEVELVALUE,0,Close[44]);
   ObjectSetDouble(0,name,OBJPROP_LEVELVALUE,1,Close[33]);
   ObjectSetDouble(0,name,OBJPROP_LEVELVALUE,2,Close[22]);
   ObjectSetDouble(0,name,OBJPROP_LEVELVALUE,3,Close[11]);
   ObjectSetDouble(0,name,OBJPROP_LEVELVALUE,4,Close[1]);

   ObjectSetFiboDescription(name,0,string(f0));
// ObjectSetFiboDescription(name,1,string(f1));
//ObjectSetFiboDescription(name,2,string(f2));
//ObjectSetFiboDescription(name,3,string(f3));
   ObjectSetFiboDescription(name,4,string(f4));
  }
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   PutFibo(nm);
  }
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//|                                                   FiboScript.mq4 |
//|                                              Copyright 2023, AM2 |
//|                                     https://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2023, AM2"
#property link      "https://www.forexsystems.biz"
#property version   "1.00"
#property strict

input double f0=0;
input double f1=25;
input double f2=50;
input double f3=75;
input double f4=100;
input string nm="FiboLevels";

double values[5];
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   values[0]=f0;
   values[1]=f1/100;
   values[2]=f2/100;
   values[3]=f3/100;
   values[4]=f4/100;   
   FiboLevelsCreate(nm);
  }
//+------------------------------------------------------------------+ 
//| Cоздает "Уровни Фибоначчи" по заданным координатам               | 
//+------------------------------------------------------------------+ 
bool FiboLevelsCreate(string name)
  {
   ObjectDelete(0,name);
   ObjectCreate(0,name,OBJ_FIBO,0,Time[1],Close[1],Time[44],Close[44]);
//--- установим цвет 
   ObjectSetInteger(0,name,OBJPROP_COLOR,clrRed); 
//--- установим стиль линии 
   ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_SOLID); 
//--- установим толщину линии 
   ObjectSetInteger(0,name,OBJPROP_WIDTH,1); 
//--- установим количество уровней 
   ObjectSetInteger(0,name,OBJPROP_LEVELS,ArraySize(values)); 
//--- установим свойства уровней в цикле 
      for(int i=0;i<ArraySize(values);i++) 
     { 
      //--- значение уровня 
      ObjectSetDouble(0,name,OBJPROP_LEVELVALUE,i,values[i]); 
      //--- цвет уровня 
      ObjectSetInteger(0,name,OBJPROP_LEVELCOLOR,i,clrRed); 
      //--- стиль уровня 
      ObjectSetInteger(0,name,OBJPROP_LEVELSTYLE,i,STYLE_SOLID); 
      //--- толщина уровня 
      ObjectSetInteger(0,name,OBJPROP_LEVELWIDTH,i,1); 
      //--- описание уровня 
      ObjectSetString(0,name,OBJPROP_LEVELTEXT,i,DoubleToString(100*values[i],1)); 
      }
//--- успешное выполнение  
   return(true); 
  } 
//+------------------------------------------------------------------+