#4X BuySell

Price Data Components
0 Views
0 Downloads
0 Favorites
#4X BuySell
///+------------------------------------------------------------------+ 
// #4X BuySell        \¦/
// Knowledge of the ancients (ò ó)
//______________________o0o___(_)___o0o__
//___¦_____¦_____¦mladen¦_____¦_____¦_____¦
//¦_cja_¦_____¦_____¦_____¦_____¦_____¦__
//___¦_____¦_____¦_____¦_Xard¦777__¦_____¦
//¦____¦ihldiaf¦_____¦_____¦_____¦____¦__
//___¦_____¦_____¦_____¦Baba¦Master_¦____¦
//¦FxSniper___¦_____¦_igor_¦_____¦_____¦__           April 18th, 2009
//+------------------------------------------------------------------+
//////HIGH/LOW/////////////////////////////Xard777///2009//////
#property  indicator_chart_window

extern bool   show.timeleft=false;
extern bool   show.symbol.price=true;
extern int win = 1;
extern int Adjust_Side_to_side = 10;
extern int Shift_UP_DN = 0;

extern string s01 = "240 4Hrs";
extern string s02 = "1440 Daily";
extern string s03 = "10080 Weekly";
extern string s04 = "43200 Monthly";
extern int TF = 1440;

//color scheme
extern color Color1 = Blue;
extern color Color2 = Yellow;
extern color Color3 = HotPink;
extern color Color4 = Lime;
extern color Color5 = White;
extern color Color6 = Orange;

double HiPrice, LoPrice, Range;

double  v1 = 0, v2 = 0;
int bn_v1=0, bn_v2=0;

datetime StartTime;

//////HIGH/LOW/////////////////////////////Xard777///2009//////

int init()
{
  

  bn_v1 = Lowest(NULL,0,MODE_LOW,64,0);
  bn_v2 = Highest(NULL,0,MODE_HIGH,64,0);

  v1 = Low[bn_v1];
  v2 = High[bn_v2];
   return(0);
}

//////HIGH/LOW/////////////////////////////Xard777///2009//////

int deinit()
{
   ObjectDelete("zero.eight");
   ObjectDelete("one.seven");
   ObjectDelete("two.six");
   ObjectDelete("three.five");
   ObjectDelete("four.four");
   ObjectDelete("plus.one");

   return(0);
}

//////HIGH/LOW/////////////////////////////Xard777///2009//////

int DrawFibo()
{
	if(ObjectFind("zero.eight") == -1)
		ObjectCreate("zero.eight",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
	else
	{
		ObjectSet("zero.eight",OBJPROP_TIME2, StartTime);
		ObjectSet("zero.eight",OBJPROP_TIME1, StartTime);
		ObjectSet("zero.eight",OBJPROP_PRICE1,HiPrice+Range);
		ObjectSet("zero.eight",OBJPROP_PRICE2,HiPrice);
	}
   ObjectSet("zero.eight",OBJPROP_LEVELCOLOR,Color1);
   ObjectSet("zero.eight",OBJPROP_FIBOLEVELS,2);
   ObjectSet("zero.eight",OBJPROP_FIRSTLEVEL+0,0.0);	 
   ObjectSet("zero.eight",OBJPROP_FIRSTLEVEL+1,-1.0);
   	 
   ObjectSetFiboDescription("zero.eight",0,"High 8/8 - %$ ");   
   ObjectSetFiboDescription("zero.eight",+1,"Low 0/8 - %$ ");
         
   ObjectSet("zero.eight",OBJPROP_LEVELWIDTH,3);
   ObjectSet("zero.eight",OBJPROP_RAY,true);
   ObjectSet("zero.eight",OBJPROP_BACK,true);

//////HIGH/LOW/////////////////////////////Xard777///2009//////
/*
   if(ObjectFind("one.seven") == -1)
		ObjectCreate("one.seven",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
	else
	{
		ObjectSet("one.seven",OBJPROP_TIME2, StartTime);
		ObjectSet("one.seven",OBJPROP_TIME1, StartTime);
		ObjectSet("one.seven",OBJPROP_PRICE1,HiPrice+Range);
		ObjectSet("one.seven",OBJPROP_PRICE2,HiPrice);
	}
   ObjectSet("one.seven",OBJPROP_LEVELCOLOR,Color2);
   ObjectSet("one.seven",OBJPROP_FIBOLEVELS,2);
   ObjectSet("one.seven",OBJPROP_FIRSTLEVEL+0,-0.875);	 
   ObjectSet("one.seven",OBJPROP_FIRSTLEVEL+1,-0.125);
    	 
   ObjectSetFiboDescription("one.seven",0,"1/8 - %$ ");   
   ObjectSetFiboDescription("one.seven",+1,"7/8 - %$ ");
         
   ObjectSet("one.seven",OBJPROP_LEVELWIDTH,1);
   ObjectSet("one.seven",OBJPROP_RAY,true);
   ObjectSet("one.seven",OBJPROP_BACK,true);*/

//////HIGH/LOW/////////////////////////////Xard777///2009//////
/*
if(ObjectFind("two.six") == -1)
		ObjectCreate("two.six",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
	else
	{
		ObjectSet("two.six",OBJPROP_TIME2, StartTime);
		ObjectSet("two.six",OBJPROP_TIME1, StartTime);
		ObjectSet("two.six",OBJPROP_PRICE1,HiPrice+Range);
		ObjectSet("two.six",OBJPROP_PRICE2,HiPrice);
	}
   ObjectSet("two.six",OBJPROP_LEVELCOLOR,Color3);
   ObjectSet("two.six",OBJPROP_FIBOLEVELS,2);
   ObjectSet("two.six",OBJPROP_FIRSTLEVEL+0,-0.75);	 
   ObjectSet("two.six",OBJPROP_FIRSTLEVEL+1,-0.25);
   	 
   ObjectSetFiboDescription("two.six",0,"2/8 - %$ ");   
   ObjectSetFiboDescription("two.six",+1,"6/8 - %$ ");
         
   ObjectSet("two.six",OBJPROP_LEVELWIDTH,3);
   ObjectSet("two.six",OBJPROP_RAY,true);
   ObjectSet("two.six",OBJPROP_BACK,true);*/

//////HIGH/LOW/////////////////////////////Xard777///2009//////

if(ObjectFind("three.five") == -1)
		ObjectCreate("three.five",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
	else
	{
		ObjectSet("three.five",OBJPROP_TIME2, StartTime);
		ObjectSet("three.five",OBJPROP_TIME1, StartTime);
		ObjectSet("three.five",OBJPROP_PRICE1,HiPrice+Range);
		ObjectSet("three.five",OBJPROP_PRICE2,HiPrice);
	}
   ObjectSet("three.five",OBJPROP_LEVELCOLOR,Color4);
   ObjectSet("three.five",OBJPROP_FIBOLEVELS,2);
   ObjectSet("three.five",OBJPROP_FIRSTLEVEL+0,-0.625);	 
   ObjectSet("three.five",OBJPROP_FIRSTLEVEL+1,-0.375);
    	 
   ObjectSetFiboDescription("three.five",0,"3/8 - %$ ");   
   ObjectSetFiboDescription("three.five",+1,"5/8 - %$ ");
         
   ObjectSet("three.five",OBJPROP_LEVELWIDTH,1);
   ObjectSet("three.five",OBJPROP_RAY,true);
   ObjectSet("three.five",OBJPROP_BACK,true);

//////HIGH/LOW/////////////////////////////Xard777///2009//////

if(ObjectFind("four.four") == -1)
		ObjectCreate("four.four",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
	else
	{
		ObjectSet("four.four",OBJPROP_TIME2, StartTime);
		ObjectSet("four.four",OBJPROP_TIME1, StartTime);
		ObjectSet("four.four",OBJPROP_PRICE1,HiPrice+Range);
		ObjectSet("four.four",OBJPROP_PRICE2,HiPrice);
	}
   ObjectSet("four.four",OBJPROP_LEVELCOLOR,Color5);
   ObjectSet("four.four",OBJPROP_FIBOLEVELS,1);
   ObjectSet("four.four",OBJPROP_FIRSTLEVEL+0,-0.5);	 
    
   ObjectSetFiboDescription("four.four",0,"4/8 - %$ ");   
         
   ObjectSet("four.four",OBJPROP_LEVELWIDTH,3);
   ObjectSet("four.four",OBJPROP_RAY,true);
   ObjectSet("four.four",OBJPROP_BACK,true);

//////HIGH/LOW/////////////////////////////Xard777///2009//////

if(ObjectFind("plus.one") == -1)
		ObjectCreate("plus.one",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
	else
	{
		ObjectSet("plus.one",OBJPROP_TIME2, StartTime);
		ObjectSet("plus.one",OBJPROP_TIME1, StartTime);
		ObjectSet("plus.one",OBJPROP_PRICE1,HiPrice+Range);
		ObjectSet("plus.one",OBJPROP_PRICE2,HiPrice);
	}
   ObjectSet("plus.one",OBJPROP_LEVELCOLOR,Color6);
   ObjectSet("plus.one",OBJPROP_FIBOLEVELS,16);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+0,0.125);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+1,-1.125);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+2,0.25);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+3,-1.25);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+4,0.375);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+5,-1.375);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+6,0.5);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+7,-1.5);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+8,0.625);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+9,-1.625);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+10,0.75);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+11,-1.75);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+12,0.875);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+13,-1.875);
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+14,1.0);	 
   ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+15,-2.0);
 	 
   ObjectSetFiboDescription("plus.one",0,"+1/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+1,"-1/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+2,"+2/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+3,"-2/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+4,"+3/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+5,"-3/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+6,"+4/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+7,"-4/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+8,"+5/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+9,"-5/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+10,"+6/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+11,"-6/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+12,"+7/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+13,"-7/8 - %$ ");
   ObjectSetFiboDescription("plus.one",+14,"+8/8 - %$ ");   
   ObjectSetFiboDescription("plus.one",+15,"-8/8 - %$ ");
         
   ObjectSet("plus.one",OBJPROP_LEVELWIDTH,1);
   ObjectSet("plus.one",OBJPROP_RAY,true);
   ObjectSet("plus.one",OBJPROP_BACK,true);
}

//////HIGH/LOW/////////////////////////////Xard777///2009//////

int start()
{

double r;
   int m,s,k;
   m=Time[0]+Period()*60-CurTime();
   r=m/60.0;
   s=m%60;
   m=(m-m%60)/60;

if (show.timeleft) {
   ObjectDelete("xard1");
   ObjectCreate("xard1", OBJ_LABEL, win, 0, 0);
   ObjectSetText("xard1",m+":"+s , 14, "MV Boli", Silver);
   ObjectSet("xard1", OBJPROP_CORNER, 1);
   ObjectSet("xard1", OBJPROP_XDISTANCE, Adjust_Side_to_side + 135);
   ObjectSet("xard1", OBJPROP_YDISTANCE, Shift_UP_DN +  20);
}   
if (show.symbol.price) {   
/*   ObjectCreate("Xdb", OBJ_LABEL, win, 0, 0);
        ObjectSetText("Xdb",Symbol(),14, "MV Boli", Yellow);
        ObjectSet("Xdb", OBJPROP_CORNER, 1);
        ObjectSet("Xdb", OBJPROP_XDISTANCE, Adjust_Side_to_side + 130);
        ObjectSet("Xdb", OBJPROP_YDISTANCE, Shift_UP_DN + 0);*/  
 
   ObjectDelete("v2");
   ObjectCreate("v2", OBJ_LABEL, win, 0, 0);
   ObjectSetText("v2",DoubleToStr(v2,Digits) , 14, "MV Boli", Blue);
   ObjectSet("v2", OBJPROP_CORNER, 1);
   ObjectSet("v2", OBJPROP_XDISTANCE, Adjust_Side_to_side + 130);
   ObjectSet("v2", OBJPROP_YDISTANCE, Shift_UP_DN + 2);
 
   ObjectDelete("v1");
   ObjectCreate("v1", OBJ_LABEL, win, 0, 0);
   ObjectSetText("v1",DoubleToStr(v1,Digits) , 14, "MV Boli", Crimson);
   ObjectSet("v1", OBJPROP_CORNER, 1);
   ObjectSet("v1", OBJPROP_XDISTANCE, Adjust_Side_to_side + 130);
   ObjectSet("v1", OBJPROP_YDISTANCE, Shift_UP_DN + 20);
        
   ObjectDelete("xard2");
   ObjectCreate("xard2", OBJ_LABEL, win, 0, 0);
   ObjectSetText("xard2",DoubleToStr(Bid,Digits) , 25, "MV Boli", Yellow);
   ObjectSet("xard2", OBJPROP_CORNER, 1);
   ObjectSet("xard2", OBJPROP_XDISTANCE, Adjust_Side_to_side + 0);
   ObjectSet("xard2", OBJPROP_YDISTANCE, Shift_UP_DN + 0);
}

	int shift	= iBarShift(NULL,TF,Time[0]) + 1;	// H4 
	HiPrice		= iHigh(NULL,TF,shift);
	LoPrice		= iLow (NULL,TF,shift);
	StartTime	= iTime(NULL,TF,shift);

	if(TimeDayOfWeek(StartTime)==0/*Sunday*/)
	{//Add fridays high and low
		HiPrice = MathMax(HiPrice,iHigh(NULL,TF,shift+1));
		LoPrice = MathMin(LoPrice,iLow(NULL,TF,shift+1));
	}

	Range = HiPrice-LoPrice;

	DrawFibo();

	return(0);
}
//////HIGH/LOW/////////////////////////////Xard777///2009//////
Comments

Markdown supported. Formatting help
Markdown Formatting Guide

Element	Markdown Syntax
Heading	`# H1 ## H2 ### H3`
Bold	`bold text`
Italic	`italicized text`
Link	`[title](https://www.example.com)`
Image	`![alt text](image.jpg)`
Code	`code`
Code Block	``` code block ```
Quote	`> blockquote`
Unordered List	`- Item 1 - Item 2`
Ordered List	`1. First item 2. Second item`
Horizontal Rule	`---`
#4X BuySell

Similar scripts

Comments

Markdown Formatting Guide
