function yearmore()
{
	var drop_year=curr_year-2002;
        var count=1;
	for (count=1;count<=drop_year;count++)
		{
		seal=seal+5;
		kin=kin+105;
		tone++;
		if (tone==14) 
			{
			tone=1;
			}
		if (seal>=20)
			{
			seal=4;
			}
		if (kin>260)
			{
			kin=kin-260;
			}
		}	
}

function dropyear()
{
	seal=seal-5;
	tone=tone-1;
	kin=kin-105;
	if (kin<=2)
		{
		kin=kin+260;
		}
	if (tone<=0)
		{
		tone=13;
		}
	if (seal<=3)
		{
		seal=19;
		}	
}

function d_months() {
  switch(d_month)
  {
    case(d_month="Jan"): d_month="0"; break;
    case(d_month="Feb"): d_month="1"; break;
    case(d_month="Mar"): d_month="2"; break;
    case(d_month="Apr"): d_month="3"; break;
    case(d_month="May"): d_month="4"; break;
    case(d_month="Jun"): d_month="5"; break;
    case(d_month="Jul"): d_month="6"; break;
    case(d_month="Aug"): d_month="7"; break;
    case(d_month="Sep"): d_month="8"; break;
    case(d_month="Oct"): d_month="9"; break;
    case(d_month="Nov"): d_month="10"; break;
    case(d_month="Dec"): d_month="11"; break;
  }
}

var moons=new Array(14)
	moons[0]="errorincode";
	moons[1]="Magnetico";
	moons[2]="Lunar";
	moons[3]="Electrico";
	moons[4]="Auto-existente";
	moons[5]="Entonado";
	moons[6]="Ritmico";
	moons[7]="Resonante";
	moons[8]="Galactico";
	moons[9]="Solar";
	moons[10]="Planetario";
	moons[11]="Espectral";
	moons[12]="Cristal";
	moons[13]="Cosmico";

var moon_days=new Array(29)
	moon_days[0]="0";
	moon_days[1]="Dali 1";
	moon_days[2]="Seli 2";
	moon_days[3]="Gamma 3";
	moon_days[4]="Kali 4";
	moon_days[5]="Alpha 5";
	moon_days[6]="Limi 6";
	moon_days[7]="Silio 7";
	moon_days[8]="Dali 8";
	moon_days[9]="Seli 9";
	moon_days[10]="Gamma 10";
	moon_days[11]="Kali 11";
	moon_days[12]="Alpha 12";
	moon_days[13]="Limi 13";
	moon_days[14]="Silio 14";
	moon_days[15]="Dali 15";
	moon_days[16]="Seli 16";
	moon_days[17]="Gamma 17";
	moon_days[18]="Kali 18";
	moon_days[19]="Alpha 19";
	moon_days[20]="Limi 20";
	moon_days[21]="Silio 21";
	moon_days[22]="Dali 22";
	moon_days[23]="Seli 23";
	moon_days[24]="Gamma 24";
	moon_days[25]="Kali 25";
	moon_days[26]="Alpha 26";
	moon_days[27]="Limi 27";
	moon_days[28]="Silio 28";	

var months=new Array(13)
	months[0]="0";
	months[1]="31";
	months[2]="28";
	months[3]="31";
	months[4]="30";
	months[5]="31";
	months[6]="30";
	months[7]="31";
	months[8]="31";
	months[9]="30";
	months[10]="31";
	months[11]="30";
	months[12]="31";
var sol_seals=new Array(20)
	sol_seals[0]="Sol";
	sol_seals[1]="Dragon";
	sol_seals[2]="Viento";
	sol_seals[3]="Noche";
	sol_seals[4]="Semilla";
	sol_seals[5]="Serpiente";
	sol_seals[6]="Enlazador de Mundos";
	sol_seals[7]="Mano";
	sol_seals[8]="Estrella";
	sol_seals[9]="Luna";
	sol_seals[10]="Perro";
	sol_seals[11]="Mono";
	sol_seals[12]="Humano";
	sol_seals[13]="Caminante del Cielo";
	sol_seals[14]="Mago";
	sol_seals[15]="Aguila";
	sol_seals[16]="Guerrero";
	sol_seals[17]="Tierra";
	sol_seals[18]="Espejo";
	sol_seals[19]="Tormenta";
var seal_color=new Array(20)
	seal_color[0]="Amarillo";
	seal_color[1]="Rojo";
	seal_color[2]="Blanco";
	seal_color[3]="Azul";
	seal_color[4]="Amarillo";
	seal_color[5]="Rojo";
	seal_color[6]="Blanco";
	seal_color[7]="Azul";
	seal_color[8]="Amarillo";
	seal_color[9]="Rojo";
	seal_color[10]="Blanco";
	seal_color[11]="Azul";
	seal_color[12]="Amarillo";
	seal_color[13]="Rojo";
	seal_color[14]="Blanco";
	seal_color[15]="Azul";
	seal_color[16]="Amarillo";
	seal_color[17]="Rojo";
	seal_color[18]="Blanco";
	seal_color[19]="Azul";
var gal_tones=new Array(14)
	gal_tones[0]="errorincode";
	gal_tones[1]="Magnetico";
	gal_tones[2]="Lunar";
	gal_tones[3]="Electrico";
	gal_tones[4]="Autoexistente";
	gal_tones[5]="Entonado";
	gal_tones[6]="Ritmico";
	gal_tones[7]="Resonante";
	gal_tones[8]="Galactico";
	gal_tones[9]="Solar";
	gal_tones[10]="Planetario";
	gal_tones[11]="Espectral";
	gal_tones[12]="Cristal";
	gal_tones[13]="Cosmico";

	
var start_year;
var seal;
var tone;
var kin;
var moon_of_13;
var day_of_28;
var curr_date;
var curr_month;
var curr_year;
var xx;
var xy;
var moon;
var mday;
var wday;
var week;

	
function date() {

start_year = 10;
seal=9;
tone=10;
kin=49;
moon_of_13=1;
day_of_28=1;
curr_date = d_date;
curr_month = d_month;
curr_month++;
curr_year = d_fullyear;
xx = 7;
xy = 26;
moon=1;
mday=1;
wday=1;
week=1;

if (curr_year>2002)
	{
	yearmore();
	}
if (curr_month<7)
	{
	dropyear();
	}
if ((curr_month==7) && (curr_date<26))
	{
	dropyear();
	}
var a=0;
while ((xx!=curr_month) || (xy!=curr_date))
	{
        a++
	kin++;
	xy++;
	seal++;
	tone++;
	mday++;
	wday++;
	if (wday>7)
		{
		wday=1;
		week++;
		}
	if (mday>28)
		{
		mday=1;
		moon++;
		}
	if (seal==20)
		{
		seal=0;
		}
	if (tone==14)
		{
		tone=1;
		}
	if (kin==261)
		{
		kin=1;
		}
	if (xy>months[xx])
		{
		xx++;
		xy=1;
		if (xx==13)
			{
			xx=1;
			}
		}
	}

}
		

var d = new Date();

var d_date = d.getDate();
var d_month = d.getMonth();
var d_fullyear = d.getFullYear();

date();

document.write('<table cellpadding="0" cellspacing="0"><tbody><tr>');

if (moon<=13)
{
document.write('<td><span style="font-size:11px;">Luna ' + moon + ' Dia ' + mday + '<br />');
}
if (moon==14)
{
document.write('Dia Fuera del Tiempo<br />');
}

document.write('<strong>' + sol_seals[seal] + ' ' + gal_tones[tone] + ' ' + seal_color[seal] + '</strong><br />');
document.write(d_date + '.' + (d_month + 1) + '.' + d_fullyear + '</span></td><td><a href="http://www.tortuga.com/portal/decoder"><img src="http://www.tortuga.com/dreamspell/sealstones/kin/small/'+kin+'.gif" border=0 align=left hspace=5></a></td></tr></table>');