// the function slide a layer from a given position to a new one
function Lslide (myLayer, dx, dy, nx, ny, speed)
{
	conty = true;
	contx = true;
	myL = myLayer;
	nx_r = nx;
	ny_r = ny;
	speed_r = speed;
	moveLayerTo(myLayer, dx, dy);
	myinterval = setTimeout ("rec_slide()", speed);
	
}

function rec_slide()
{
var dx = getLeft(myL);
var dy = getTop(myL);
var x = 0;
var y =0;

if (dx < nx_r)
	x = 1;
else if (dx > nx_r)
		x = -1;
	else 
		contx = false;

if (dy < ny_r)
	y = 1;
else if (dy > ny_r)
		y = -1;
	else 
		conty = false;

moveLayerBy (myL, x, y);
if (contx || conty)
	{
		myinterval = setTimeout ("rec_slide()", speed_r);
	}
}
	
	
// finding each stop point exact x axis position
function getx(layName)
{
var base = getLayer(layName);
var mypoint = getLayer("pointer");
var x;

x= getPageLeft(base);
x += (getWidth(base)/2);
x -= getWidth(mypoint)/2;
x = Math.round(x);
return x;
}

function gety(layName)
{
var base = getLayer(layName);
var mypoint = getLayer("pointer");
var y;

y= getPageTop(base);
y += (getHeight(base)/2);
y -= getHeight(mypoint)/2;
y = Math.round(y);
return y;
}

// the actual movement of the slider using our Lslide command
function slideBar(Sto)
{
	var p = getLayer("pointer");
	
	 Lslide(p, XArr[Slast], YArr[Slast], XArr[Sto], YArr[Sto], 10);
	Slast = Sto;
} 

//show only the specific layer and hides the rest
// the layers names should be event+#(e.g event5) 
function show(num)
{
var layerName;
for (k=1;k<7;k++)
{
layerName = eval ('"event'+k+'"');
myLay = getLayer(layerName);
hideLayer(myLay);
}
layerName = eval ('"event'+num+'"');
myLay = getLayer(layerName);
showLayer(myLay);
}