[SOLVED]-Trades closing themselves?! (and opening in odd places)

//----globals
if(is(INITRUN))
{
	var sixthLen 	= 1682;
	var splitBy 	= 6;
	//var TP 			= 50*PIP; //takeprofit in pips converted to price value
	//var buffer 		= 10*PIP; //distance from market for pendings to be placed
	var tradeLim	= 2000;	
}

//----sixths functions
var sixthHigh(period, splitBy)
{
	return (HH(period) - ((HH(period)-LL(period))/splitBy));
}

var sixthLow(period, splitBy)
{
	return (LL(period) + ((HH(period)-LL(period))/splitBy));
}

//----order functions
function CheckForTradeOpportunity()
{
	var TP 			= 50*PIP; //takeprofit in pips converted to price value
        var buffer 		= 10*PIP; //distance from market for pendings to be placed
	
	vars Price = series(priceClose()); //create the price series for the selected asset
		
	EntryTime = 10000000;
			
	//check to see if we can enter long
	if(NumOpenLong + NumPendingLong < tradeLim) 
	{
		if(crossUnder(Price, sixthLow(sixthLen, splitBy))) //> need to change this to a comparative function or add another block for non cross events
		{
			enterLong(0, sixthLow(sixthLen, splitBy) + buffer, 0, TP);
			printf("nprice = %.5f, sixthsLow = %.5f, pending price = %.5f", price(), sixthLow(sixthLen, splitBy), sixthLow(sixthLen, splitBy) + buffer);		
		}	
	}
	
	//check to see if we can enter short
	if(NumOpenShort + NumPendingShort < tradeLim) 
	{
		if(crossOver(Price, sixthHigh(sixthLen, splitBy)))
		{
			enterShort(0, sixthHigh(sixthLen, splitBy) - buffer, 0, TP);
			printf("nprice = %.5f, sixthsHigh = %.5f, pending price = %.5f", price(), sixthHigh(sixthLen, splitBy), sixthLow(sixthLen, splitBy) + buffer);	
		}	
	}
}

//----main exectution block, comparable to OnTick()
function run()
{
	set(LOGFILE);
	BarPeriod = 60;
	LookBack = sixthLen;
	//PlotBars = 500;
	StartDate = 2012;
	EndDate = 2017;
	Hedge = 2; //allows full hedging, default = 0 -> no hedgintg	
	
	CheckForTradeOpportunity();
		
//--------------
	
	plot("Lowest", LL(sixthLen), 0, BLACK);
	plot("Highest", HH(sixthLen), 0, BLACK);
	plot("upperTZ", HH(sixthLen) - ((HH(sixthLen)-LL(sixthLen))/splitBy), 0, RED);
	plot("lowerTZ", LL(sixthLen) + ((HH(sixthLen)-LL(sixthLen))/splitBy), 0, RED);
	
	set(PLOTNOW);
}

enterLong(0, sixthLow(sixthLen, splitBy) + buffer, 0, TP);

printf(TO_LOG,"nStuff", SomeVariables);

printf(TO_LOG, "ntest message");

printf(TO_LOG, "#ntest message");

//defines
#define myID 	TradeVar[0]	//create a slot in TRADE* to keep a trade varaible
#define myDate	TradeVar[1]
#define M 1000					//length of array to fill with random numers
#define N 9999					//random numbers range from 0-N	 

//globals
if(is(INITRUN))
{
	//indicator variables
	var 			splitBy 	= 6;
	var 			sixthsLen 	= 1682;
	//trade variables
	static var 	        printLim        = 0;	//control switch to stop TMF constantly printing when TradeIsPending is true
	static var 	        tradeNum        = 0;	//place holder to keep track of the number of trades opened/closed
	//random number generator variables
	int 			in ;
	int 			im 		= 0;
	char 			is_used[N] 	= { 0 };
	static var 	        vektor[M];
}

//TMF of sorts
int ManageTrades(var tz)
{
	//static var myID;
	static string type;
	
	if(TradeIsPending && printLim == 0)
	{
		//printf("#nTrade opened %02d.%02d.%02d %02d.%02d", day(TradeTime), month(TradeTime), year(TradeTime)-2000, hour(TradeTime), minute(TradeTime));
		//myID = 0;
		myID = vektor[tradeNum];
		var myYear = (year()-2000)*1000000;
		var myMonth =  month()*10000;
		var myDay = day()*100;
		var myHour = hour();
		myDate = myYear+myMonth+myDay+myHour;
								
		if(TradeIsLong) { type = "Long"; /*printf("Test: %s", type);*/}
			else { type = "Short"; }
				
		printf("n%s trade %.0f pending @ %.5f, TP @ %.5f, TZ @ %.5f", type, (var)myID, (var)TradeEntryLimit, (var)TradeProfitLimit, (var)tz);
		printLim = 1;
		printf("nTradeNum = %.0f, ID should be %.0f", (var)tradeNum, vektor[tradeNum]);
                tradeNum += 1;
	}
	
	if(TradeIsOpen && TradeTime <= 0)
	{	
		printf("n%s trade %.0f opened @ %.5f, TP @ %.5f", type, (var)myID, (var)TradeEntryLimit, (var)TradeProfitLimit);	
		printf("#nTrade opened %.0f", /*myDateTime(TradeBarOpen)*/(var)myDate); //TradeTime no good
	}
	
	if(TradeIsClosed)
	{
		printf("n %s trade %.0f closed @ %.5f, TP @ %.5f", type, (var)myID, (var)TradePriceClose, (var)TradeProfitLimit);		
	}
	return 0;
}


function main()
{
	//generate an arary of random numbers to use for trade IDs
	//from: https://stackoverflow.com/questions/1608181/unique-random-numbers-in-an-integer-array-in-the-c-programming-language
	for (in = N - M; in < N && im < M; in++) 
	{
	  int r = rand() % (in + 1); /* generate a random number 'r' */
	
	  if (is_used[r])
	    /* we already have 'r' */
	    r = in; /* use 'in' instead of the generated number */
	  
	  vektor[im++] = r + 1; /* +1 since your range begins from 1 */
	  is_used[r] = 1;
	}
}
function run()
{
	//flags
	set(PLOTNOW);
	//set(TICKS);
	
	//////Variables/////////////////////////////////////////
	//system variables
	StartDate 	= 20100501;
	EndDate 		= 20110201;
	EntryTime 	= 10000000;
	//Verbose 		= 7;
	
	//trade variables
	var 	TP 			= 50*PIP;
	var 	buffer 		= 10*PIP;	
	////////////////////////////////////////////////////////
		
	//set up price/level series for indicator///////////
	vars sHH			= series(HH(sixthsLen));						//highest high series
	vars sLL			= series(LL(sixthsLen));						//lowest low series
	vars sRange		= series(sHH[1]-sLL[1]);						//market range series
	vars sUpperTZ 	= series(sHH[1] - ((sHH[1]-sLL[1])/6));	//uper trade zone series
	vars sLowerTZ 	= series(sLL[1] + ((sHH[1]-sLL[1])/6));	//lower trade zone series
	vars Price 		= series(priceClose()); 						//close series
	
	//////Trade Criteria////////////////////////////////////
	//short entry
	if(crossOver(Price, sUpperTZ))
	{
		Entry = sUpperTZ[1] - buffer;
		TakeProfit = (sUpperTZ[1] - buffer) - TP;
		printLim = 0;		
		enterShort(ManageTrades, sUpperTZ[1]); 
		//printf("nprice = %.5f, sixthsHigh = %.5f, pending price = %.5f", price(), sUpperTZ[1], sUpperTZ[1] - buffer);	
		//printf("nFresh upperTZ calc to %.5f and pending price is %.5f", HH(sixthsLen) - ((HH(sixthsLen)-LL(sixthsLen))/splitBy), (HH(sixthsLen) - ((HH(sixthsLen)-LL(sixthsLen))/splitBy)) - buffer);
	}
	
	//long entry
	if(crossUnder(Price, sLowerTZ))
	{
		Entry = sLowerTZ[1] + buffer;
		TakeProfit = (sLowerTZ[1] + buffer) + TP;
		printLim = 0;
		enterLong(ManageTrades, sLowerTZ[1]);
		//printf("nprice = %.5f, sixthsLow = %.5f, pending price = %.5f", price(), sLowerTZ[1], sLowerTZ[1] + buffer);		
		//printf("nFresh lowerTZ calc to %.5f and pending price is %.5f", LL(sixthsLen) + ((HH(sixthsLen)-LL(sixthsLen))/splitBy), (LL(sixthsLen) + ((HH(sixthsLen)-LL(sixthsLen))/splitBy)) + buffer);
	}
	////////////////////////////////////////////////////////

	//plot some stuff 
	plot("Lowest", sLL, 0, BLACK);
	plot("Highest", sHH, 0, BLACK);
	plot("upperTZ", sUpperTZ, 0, RED);
	plot("lowerTZ", sLowerTZ, 0, RED);
}