var t = 1;
var llkm = new Array ();for (t=1;t<=99;t++){llkm[t]=0;}
llkm[0]=i; //tapausten lukumäärä talteen
var lkm = i;
var apu = "";
var vsi = "";
var vri = "";
var txt = "";
var id = new Array ();
var pvm = new Array ();
var aika = new Array ();
var lka = new Array ();
var tod = new Array ();
var kuv = new Array ();
var ref = new Array ();

//
//
//

function listaus()
{
//OTSIKKO
apu="<b>Listalla kaikkiaan "+llkm[0]+" kohdetta.</b><br />";
apu=apu+"<table>";
//VARSINAINEN LISTA
for (t=1;t<=llkm[0];t=t+1)
{
apu=apu+"<tr>";
//tutki vaihtuuko vuosi
if (vsi!=id[t].substr(0,4)){vsi=id[t].substr(0,4);apu=apu+"<td colspan=3><h1>&nbsp;"+vsi+"</h1></td></tr><tr>";}
//korosotusvärit
vri="bgcolor=#FFA0A0";
if (lka[t]=="10"){vri="bgcolor=#80DF80"; txt="Meteoriitin putoaminen";}
if (lka[t]=="11"){vri="bgcolor=#80DF80"; txt="Meteoriitin löytyminen";}
if (lka[t]=="15"){vri="bgcolor=#80DF80"; txt="Meteoriitin putoaminen lähialueella";}
if (lka[t].substr(0,1)=="2"){vri="bgcolor=#F0EF80"; txt="Mahdollinen meteoriitin putoaminen";}
if (lka[t]=="20"){vri="bgcolor=#D0AF80"; txt="Todennäköinen meteoriitin putoaminen";}
if (lka[t]=="40"){vri="bgcolor=#D0FFFA"; txt="Meteori";}
if (lka[t]=="41"){vri="bgcolor=#D0FFFA"; txt="Meteorimyrsky";}
if (lka[t].substr(0,1)=="3"){vri="bgcolor=#F8F8F8"; txt="Tulipallo";}
if (lka[t]=="50"){vri="bgcolor=#FFD0D0"; txt="Avaruusromu";}
if (lka[t]=="51"){vri="bgcolor=#FFD0D0"; txt="Rakettilaukaisu";}
if (lka[t].substr(0,1)=="8"){vri="bgcolor=#FFA0A0"; txt="Virheellinen tieto";}
if (lka[t].substr(0,1)=="9"){vri="bgcolor=#FFA0A0"; txt="Muita tapahtumia";}

apu=apu+"<td "+vri+" width=20%><b>"+pvm[t]+"</b> "+aika[t]+"</td><td "+vri+"><b>";
apu=apu+txt+"</b></td><td /></tr>";
apu=apu+"<tr><td /><td colspan=2>"+kuv[t]+"</td></tr>";
apu=apu+"<tr><td /><td colspan=2><font color=#808080><i>Lähteet: "+ref[t]+"</i></font></td></tr>";
}
apu=apu+"</table>";
document.getElementById("otstxt").innerHTML="<h1>Tulipallolista v. 1729-2007</h1>";
document.getElementById("infotxt").innerHTML=apu;
document.getElementById("reftxt").innerHTML="";
}

//
//
//

function koodauslista()
{
//OTSIKKO
apu="<b>Tilasto ja värikoodaus</b><br />";
apu=apu+"<table>";
apu=apu+"<tr><td width=10%><td>Kpl<td></tr>";

apu=apu+"<tr><td><td bgcolor=#80DF80><b>"+llkm[1]+"<td><b>Meteoriitin putoaminen tai löytyminen. Vain varmat tapaukset.</td></tr>";
apu=apu+"<tr><td><td align=right><b>"+llkm[10]+"<td><b>Meteoriitin putoaminen Suomeen.</td></tr>";
apu=apu+"<tr><td><td align=right><b>"+llkm[11]+"<td><b>Meteoriitin löytyminen Suomesta.</td></tr>";
apu=apu+"<tr><td><td align=right><b>"+llkm[15]+"<td><b>Meteoriitin putoaminen Suomen rajojen ulkopuolelle.</td></tr>";

apu=apu+"<tr><td /><td bgcolor=#F0EF80><b>"+llkm[2]+"<td><b>Tapaukset joista on voinut jotain pudota alas.</td></tr>";
apu=apu+"<tr><td /><td bgcolor=#D0AF80 align=right><b>"+llkm[20]+"<td><b>Todennäköinen meteoriitin putoaminen. Mitään ei vain ole löytynyt.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[21]+"<td><b>Mahdollinen meteoriitin putoaminen Suomeen.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[25]+"<td><b>Todennäköinen meteoriitin putoaminen Suomen lähialueille.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[26]+"<td><b>Mahdollinen meteoriitin putoaminen Suomen lähialueille.</td></tr>";

apu=apu+"<tr><td /><td bgcolor=#F8F8F8><b>"+llkm[3]+"<td><b>Tulipallot.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[30]+"<td><b>Kirkkaat sporadiset tulipallot.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[31]+"<td><b>Tulipallo liittyen meteoriparveen.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[32]+"<td><b>Useita tulipalloja.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[39]+"<td><b>Jossain määrin epävarma havainto.</td></tr>";

apu=apu+"<tr><td /><td bgcolor=#D0FFFA><b>"+llkm[4]+"<td><b>Meteorit ja meteorimyrskyt.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[40]+"<td><b>Meteori tai meteoreja.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[41]+"<td><b>Meteorimyrsky.</td></tr>";

apu=apu+"<tr><td /><td bgcolor=#FFD0D0><b>"+llkm[5]+"<td><b>Avaruusromut ja raketit.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[50]+"<td><b>Avaruusromun putoaminen. Vain varmistetut tai erittäin todennäköiset tapaukset.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[51]+"<td><b>Rakettilaukaisut lähialueilta.</td></tr>";

apu=apu+"<tr><td /><td bgcolor=#FFA0A0><b>"+llkm[8]+"<td><b>Virheellisiä tietoja.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[80]+"<td><b>Epämääräisiä virheitä.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[81]+"<td><b>Mahdollisia kirjausvirheitä.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[82]+"<td><b>Tahallisia virheitä, kuten aprillipila.</td></tr>";

apu=apu+"<tr><td /><td bgcolor=#FFA0A0><b>"+llkm[9]+"<td><b>Muita havaintoja.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[91]+"<td><b>Avannot joita epäilty meteoriittien tekemiksi.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[92]+"<td><b>Havainnot jonkin putoamisesta lähelle. Osa voi olla meteoriitin aiheuttamia.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[93]+"<td><b>Havainnot veteen putoamisesta, esim. vesipatsaat. Osa voi olla meteoriitin aiheuttamia.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[94]+"<td><b>Erilaiset pamaukset ja muut kovat äänet.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[95]+"<td><b>Luonnonilmiöt, kuten revontulet, halot, ukkonen.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[96]+"<td><b>Maanjäristyshavainnot.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[97]+"<td><b>Meteoriitiksi väitetyt tavalliset kivet.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[98]+"<td><b>Putoamisjäljet.</td></tr>";
apu=apu+"<tr><td /><td align=right><b>"+llkm[99]+"<td><b>Väitetyt meteoriittilöydöt, joita ei ole voitu tarkistaa.</td></tr>";
apu=apu+"<tr><td /><td><b><u>= "+llkm[0]+"</u></b><td></tr>";
apu=apu+"</table>";
document.getElementById("otstxt").innerHTML="<h1>Tulipallolistan tilastot ja värikoodaus</h1>";
document.getElementById("infotxt").innerHTML=apu;
document.getElementById("reftxt").innerHTML="";
}

//
//
//

function meteoriitit()
{
//OTSIKKO
apu="<b>Listalla kaikkiaan "+llkm[1]+" meteoriittia.</b><br />";
apu=apu+"<table>";
//KÄY LÄPI LISTA
for (t=1;t<=llkm[0];t=t+1)
{
//korostusvärit
vri="bgcolor=#FFA0A0";
if (lka[t].substr(0,1)=="1")
{
apu=apu+"<tr>";
if (lka[t]=="10"){vri="bgcolor=#D0FFD0"; txt="Meteoriitin putoaminen";}
if (lka[t]=="11"){vri="bgcolor=#80DF80"; txt="Meteoriitin löytyminen";}
if (lka[t]=="15"){vri="bgcolor=#C0DFC0"; txt="Meteoriitin putoaminen lähialueella";}

apu=apu+"<td "+vri+" width=20%><b>"+pvm[t]+"</b> "+aika[t]+"</td><td "+vri+"><b>";
apu=apu+txt+"</b></td><td /></tr>";
apu=apu+"<tr><td /><td colspan=2>"+kuv[t]+"</td></tr>";
apu=apu+"<tr><td /><td colspan=2><font color=#808080><i>Lähteet: "+ref[t]+"</i></font></td></tr>";
}
}
apu=apu+"</table>";
document.getElementById("otstxt").innerHTML="<h1>Tulipallolistan meteoriitit</h1>";
document.getElementById("infotxt").innerHTML=apu;
document.getElementById("reftxt").innerHTML="";
}

//
//
//

function putoukset()
{
//OTSIKKO
apu="<b>Listalla kaikkiaan "+llkm[2]+" mahdollista putousta.</b><br />";
apu=apu+"<table>";
//KÄY LÄPI LISTA
for (t=1;t<=llkm[0];t=t+1)
{
//korostusvärit
vri="bgcolor=#FFA0A0";
if (lka[t].substr(0,1)=="2")
{
apu=apu+"<tr>";
if (lka[t]=="20"){vri="bgcolor=#D0FFD0"; txt="Todennäköinen putoaminen";}
if (lka[t]=="21"){vri="bgcolor=#80DF80"; txt="Mahdollinen putoaminen";}
if (lka[t]=="25"){vri="bgcolor=#C0DFC0"; txt="Todennäköinen putoaminen lähialueella";}
if (lka[t]=="26"){vri="bgcolor=#C0DFC0"; txt="Mahdollinen putoaminen lähialueella";}

apu=apu+"<td "+vri+" width=20%><b>"+pvm[t]+"</b> "+aika[t]+"</td><td "+vri+"><b>";
apu=apu+txt+"</b></td><td /></tr>";
apu=apu+"<tr><td /><td colspan=2>"+kuv[t]+"</td></tr>";
apu=apu+"<tr><td /><td colspan=2><font color=#808080><i>Lähteet: "+ref[t]+"</i></font></td></tr>";
}
}
apu=apu+"</table>";
document.getElementById("otstxt").innerHTML="<h1>Tulipallolistan todennäköiset ja mahdolliset putoukset</h1>";
document.getElementById("infotxt").innerHTML=apu;
document.getElementById("reftxt").innerHTML="";
}

//
//
//
  
function avaus()
{
//PURETAAN DATA
for (t=1;t<=llkm[0];t=t+1){
apu=data[t];

//SPLITATAAN
var osa=data[t].split("#");

//TIEDOT MUUTTUJIIN
id[t]=osa[0];pvm[t]=osa[1];aika[t]=osa[2];lka[t]=osa[3];tod[t]=osa[4];kuv[t]=osa[5];ref[t]=osa[6];

//LUOKKALASKURI
llkm[lka[t]]++; 	//yksittäisen luokan laskuri
llkm[Math.floor(lka[t]/10)]++;	//pääluokkien laskuri
}

//näytä lista
//tutkitaan osoite jolla sivulle tultiin
var r=0;
apu=top.location.search;              
if (apu=="?tilasto"){r=1}		//tilastosivu
if (apu=="?meteoriitit"){r=2}		//tilastosivu
if (apu=="?putoukset"){r=3}
if (r==1){koodauslista()}             //ladataan tilastosivu
else if (r==2){meteoriitit()}
else if (r==3){putoukset()}
else {listaus()}                      //ladataan peruslistaus
}