/*[[
	Name := Pivot - Daily
	Author := 
	Link := 
	Notes := 
	Separate Window := No
	First Color := Magenta
	First Draw Type := Line
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Red
	Second Draw Type := Line
	Second Symbol := 218
]]*/

var: 	cnt(0),how_long(720),
		begin_bar(0),
		prev_day(0), cur_day(0),
		day_high(0),day_low(0),
		yesterday_high(0),
		yesterday_low(0),
		yesterday_close(0),
		today_open(0),
		textvar(""),
		P(0),S(0),R(0),S1(0),R1(0),S2(0),R2(0),S3(0),R3(0),
		timeShift(0),lastMinute(0),
		prevTime(0);

for cnt = Bars downto 0
{
	SetIndexValue(cnt, 0);
	SetIndexValue2(cnt, 0);
};

if Period > 240 then exit;
timeShift = 0;

if 	how_long = -1 then 
	{
		begin_bar = bars;
	} 	else {
		begin_bar = how_long;
	};

If prevTime = Time then exit; 

for cnt = begin_bar downto 1 
	{

	cur_day = TimeDay(time[cnt]);
	
	if prev_day != cur_day then
	{
		yesterday_close = CLOSE[cnt+1];
		today_open = OPEN[cnt];
		yesterday_high = day_high;
		yesterday_low = day_low;
		
		MoveObject("dayChange",OBJ_VLINE,time[cnt],close[cnt],time[cnt],close[cnt],RED,1,STYLE_SOLID);
		
		If 	TimeDayOfWeek(time[cnt])=2 Then 
			{
			MoveObject("weekChange",OBJ_VLINE,time[cnt],close[cnt],time[cnt],close[cnt],BLUE,1,STYLE_SOLID);
			}		

		P = (yesterday_high + yesterday_low + yesterday_close + today_open) / 4;
		
		R1 = P + P - yesterday_low;
		S1 = P + P - yesterday_high;

		R2 = P + yesterday_high - yesterday_low;
		S2 = P - yesterday_high + yesterday_low;

		R3 = P + P - yesterday_low - yesterday_low + yesterday_high;
		S3 = P + P - yesterday_high - yesterday_high + yesterday_low;	

		day_high = HIGH[cnt];
		day_low  = LOW[cnt];

		prev_day = cur_day;
	};

	day_high = max(day_high, HIGH[cnt]);
	day_low = min(day_low, LOW[cnt]);
	
	textVar = TimeHour(time[0])+":"+TimeMinute(time[0])+"  "+(60-Minute)+"R";
	SetObjectText("Time",textVar,"Arial",8,White);
	MoveObject("Time",OBJ_TEXT,time[25],P,time[25],P,White);
	

	
};

	SetObjectText("R1_txt","R1 "+R1,"Arial",8,White);
	MoveObject("R1_txt",OBJ_TEXT,time[25],R1,time[25],R1,White);
	SetObjectText("R2_txt","R2 "+R2,"Arial",8,White);
	MoveObject("R2_txt",OBJ_TEXT,time[25],R2,time[25],R2,White);
	SetObjectText("R3_txt","R3 "+R3,"Arial",8,White);
	MoveObject("R3_txt",OBJ_TEXT,time[25],R3,time[25],R3,White);
	SetObjectText("S1_txt","S1 "+S1,"Arial",8,White);
	MoveObject("S1_txt",OBJ_TEXT,time[25],S1,time[25],S1,White);
	SetObjectText("S2_txt","S2 "+S2,"Arial",8,White);
	MoveObject("S2_txt",OBJ_TEXT,time[25],S2,time[25],S2,White);
	SetObjectText("S3_txt","S3 "+S3,"Arial",8,White);
	MoveObject("S3_txt",OBJ_TEXT,time[25],S3,time[25],S3,White);

	MoveObject("R1_line",OBJ_HLINE,time[cnt],R1,time[cnt],R1,DarkOliveGreen,1,STYLE_SOLID);
	MoveObject("R2_line",OBJ_HLINE,time[cnt],R2,time[cnt],R2,DarkOliveGreen,1,STYLE_SOLID);
	MoveObject("R3_line",OBJ_HLINE,time[cnt],R3,time[cnt],R3,DarkOliveGreen,1,STYLE_SOLID);
	MoveObject("P_line",OBJ_HLINE,time[cnt],P,time[cnt],P,Magenta,1,STYLE_DASH);
	MoveObject("S1_line",OBJ_HLINE,time[cnt],S1,time[cnt],S1,DarkRed,1,STYLE_SOLID);
	MoveObject("S2_line",OBJ_HLINE,time[cnt],S2,time[cnt],S2,DarkRed,1,STYLE_SOLID);
	MoveObject("S3_line",OBJ_HLINE,time[cnt],S3,time[cnt],S3,DarkRed,1,STYLE_SOLID);
	
	prevTime = Time;
	Exit;