vars: xclose(0), xopen(0), xhigh(0), xlow(0);

if BarNumber = 2 then 
	xOpen = Open;

if xOpen[1] > 0 then begin
	xClose = (Open + High + Low + Close) * .25;
	xOpen = (xOpen[1] + xClose[1]) * .5;
	xHigh = Maxlist(High, xOpen, xClose); 
	xLow = Minlist(Low, xOpen, xClose);
end;

Plot1(MaxList(xClose, xOpen), "BodyTop");
Plot2(MinList(xClose, xOpen), "BodyBot");

Plot3(High, "High");
Plot4(MaxList(xClose, xOpen), "hBodyTop");

Plot5(MinList(xClose, xOpen), "lBodyBot");
Plot6(Low, "Low");

If xClose > xOpen Then
	SetPlotColor(1, Green)
Else
	SetPlotColor(1, Red);