// Begin -->
// -----------------------------------------------------------------
// Copyright Script Faase
// If you use (part of) this script be so kind to mention the copyrights.
// And please make a link to this site.
// -----------------------------------------------------------------
// Variabelen hier definieren.
// Kan je in een pagina na aanroepen van dit file een andere waarde geven.
// model2.js: Versie die uitgaat van png voor klein plaatje.
// soortpl wordt niet meer gebruikt.
// -----------------------------------------------------------------

var apo = '"';
var achtergrond = " BACKGROUND='"+plsub+"bladkaal.jpg'";
                                       // Achtergond popups
var bachter = plsub+'bladkaal.jpg'     // Achtergrond gewone bladzijden.

// -----------------------------------------------------------------

function MStreep(num, aantal)          // Streep
{
 if (typeof aantal == 'undefined') var aantal = "2";
 document.write("<TR><TD ROWSPAN=", aantal, " VALIGN=top><H2>");
 document.write("<FONT COLOR=red>", num, "&nbsp;&nbsp;</TD>");
 document.write("</TR>");
};


// -----------------------------------------------------------------
function Plaatje(picimage, picture)
{
 document[picture].src=picimage
}


// -----------------------------------------------------------------
// Oproepen Bied/vraag venster.
// -----------------------------------------------------------------
function WebPg(ding)
{
 wnr = "biedvenster";

 mulier = "http://faase.nl/bod.htm";
 hoog = "height=300";
 breed = "width=560";
 if (ding == "bestel") 
    {
	 mulier = "http://faase.nl/bestel.htm";
     hoog = "height=450";
     breed = "width=560";
	};
 
 windowprop = hoog+","+breed+",scrollbars=no,resizable=no,status=no,border=no";
 window.open (mulier, wnr, windowprop)
}


// -----------------------------------------------------------------
// Komplete Paginakop Modellen.
// -----------------------------------------------------------------
function MKop(mjaar, mtekst, mknoppen, startpic)
{
 if (typeof startpic == 'undefined') startpic = "../astart.gif"; 
 
 bachter = basis+"plaat/bladgeel.jpg"; // Tijdelijk om achtergrond goed te zien.
 
 Kop(mjaar, mtekst, mknoppen, bachter);
                                       // Naar standaard Kop funktie.
								   
                                       // Tabelkop plaatjesvak schrijven.
 document.write("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2>");
 document.write("<TR><TD ROWSPAN=40 VALIGN=top>");
 document.write("<TABLE BORDER=0><TR><TD WIDTH=280><DIV id='autoplaat'>"); 
 document.write("<IMG NAME='pic' SRC='"+startpic+"' HEIGHT=240 BORDER=0></DIV>");
 document.write("<DIV id='autotxt'></DIV></TD>");
 
 document.write("</TR></TABLE></TD>");
};


// ==============================================================
// Uit tekstregel object van type Model maken.
// ==============================================================
function Mm(zin)
{					  
 deel = zin.split("*");
 p = new Model(deel[0], deel[1], deel[2], deel[3], deel[4], deel[5], deel[6], deel[7], deel[8], deel[9], deel[10], deel[11], deel[12]);
 return p
};


// ==========================================================
// Aanmaken van een instance van het object Model
// merk echt*naam*ejaar*jaar*modelmerknr*modelnr*schaal*opmerk*aantal
// ==========================================================
function Model(merk_echt, naam, ejaar, jaar, modelmerknr, modelnr, schaal, mat, voert, opmerk, aantal, bod)
{
 var smat = new Array(
    "g*glass",
    "m*metal",
    "k*plastic",
    "p*paper",
    "w*wood");

 var vtuig = new Array(
    "a*car",
    "b*bus",
    "c*trailer",
    "m*motorbike",
    "r*train",
    "s*ship",
    "t*tram",
    "u*utility",
    "v*plane");

 // Aantal attributen bij niet meegegeven default waarde maken.
 if (typeof aantal == 'undefined') aantal = 0;
 if ((typeof mat == 'undefined') || (mat == "")) mat = "m";
 if ((typeof voert == 'undefined') || (voert == "")) voert = "a";
 if (typeof modelmerknr == 'undefined') modelmerknr = 0;

 // Van de rest dat niet meegegeven is een lege string maken.
 merk_echt = empty(merk_echt);
 naam = empty(naam);
 ejaar = empty(ejaar);
 jaar = empty(jaar);
 modelnr = empty(modelnr);
 schaal = empty(schaal);
 opmerk = empty(opmerk);
 bod = empty(bod);
// soortpl = empty(soortpl);
 
 materiaal = "";
 for (k=0;k<smat.length;k++)
        {
         sm = smat[k].split("*");
         if (mat == sm[0]) materiaal = sm[1];
        };

 voertuig = "";
 for (k=0;k<vtuig.length;k++)
        {
         sm = vtuig[k].split("*");
         if (voert == sm[0]) voertuig = sm[1];
        };

 this.voertuig = voertuig;
 this.aantal = aantal;
 this.merk_echt = merk_echt;
 this.naam = naam;
 this.ejaar = ejaar;
 this.jaar = jaar;
 this.modelmerknr = modelmerknr;
 this.modelnr = modelnr;
 this.schaal = schaal;
 this.materiaal = materiaal;
 this.opmerk = opmerk;
 this.bod = bod;
 return this;
};


// -----------------------------------------------------------------
// Funktie PrintModel voor model-pagina's
// <vorm> Wat af te drukken.
//        0: Alles.
//        1: Geen modelmerk.
//        2: Geen modelmerk en modelnr.
// <subdir> Als aanwezig en 1 dan subdir bij plaatje vermelden.
//          Is het 2 dan ../subdir. Voor aanroepen uit andere map.
// -----------------------------------------------------------------
function PrintModel(nr, vorm, subdir)
{
 if (typeof(vorm) == 'undefined') vorm = 1;
 // Default de regel bij een modelmerken pagina.
 if (typeof(subdir) == 'undefined') subdir = 0;

 var p = Mm(mg[nr]);

 // Als object met dat nummer niet bestaat.
 if (typeof(p) == 'undefined')
    {alert("Nummer "+nr+" bestaat niet!"); return false};

 mpl = numplaat(nr, subdir);

 // -------------------------------------------------
	   
 mw = p.modelmerknr;
 mdm = mb[mw];

 helenaam = HeleNaam(nr);
 vaknaam = helenaam;
 vaknaam += Cammetjes(p);			// Evenveel camera-plaatjes als foto's.
 
 kompleet = helenaam+"<FONT COLOR=gray>"+mdm.bnaam+" "+p.modelnr+"<BR><FONT SIZE=+1>"+p.opmerk;
     
 sbod = p.bod;                      // Kan ook op- en aanmerkingen zijn.
 if (sbod.substring(0,1) == "-") sbod = "";
                                    // - als eerste teken, dan aantekening.
									// Niet laten zien.
 document.write("<TR><TD")
 if (sbod.substring(0,1) == "€") document.write(" BGCOLOR=yellow");
                                    // Wat te koop is op gele ondergrond.
	 
 document.write("><SPAN><A HREF=", apo, "javascript:mplaat('", mpl, "', '", kompleet, "', '", p.aantal, "', '", p.bod, "')", apo);
 document.write(" OnMouseOver=", apo, "Plaatje('", mpl, ".png", "', 'pic');");
 document.write(" pltekst('"+vaknaam+"')", apo, ">");
 document.write(p.merk_echt+' '+p.naam, "</A></TD>");

 // --------------------------------------- Schaal
 document.write("<TD>");
 if (p.schaal != "") document.write("<FONT SIZE=-2><SPAN><SUP>1</SUP>/<SUB>", p.schaal);
 document.write("</TD>");

 document.write("<TD>&nbsp;&nbsp;</TD>"); 
 document.write("<TD><SPAN class=d>", p.jaar, "&nbsp;</TD>");

 // --------------------------------------- Modelmerk
 if (vorm == 0)
    document.write("<TD><SPAN>"+modmerk(p.modelmerknr)+"</TD>");

 // --------------------------------------- Modelmerk nummer
 document.write("<TD><SPAN>");
 if ((p.modelnr != "")&&(vorm != 2)) document.write("<FONT color=gray>no.</FONT>"+p.modelnr);
 document.write("</TD>");

 if (p.aantal > 0)
    {
     document.write("<TD>&nbsp;</TD>");
     document.write("<TD><SPAN><FONT SIZE=-1>", p.aantal, " <IMG SRC='"+basis+"plaat/camklein.gif'></TD>");
    }
 else
     document.write("<TD></TD><TD></TD>");

 // Blauw sterretje voor houden (default), rood voor verkocht of besteld.
 // Kale € in modcol om aan te geven dat het te koop is. Dan niks op scherm.	 
 psbod = "<FONT COLOR=blue>*";
 if (sbod.length == 1) psbod = " ";
 if (sbod.length > 1) psbod = sbod;
 if (sbod.substring(0,1) == "#") psbod = "<FONT COLOR=red>*";

 document.write("<TD><SPAN><FONT SIZE=-2>"+psbod+"</FONT></TD>")

 document.writeln("</TR>\n");
};


// -----------------------------------------------------------------
// Funktie HeleNaam
// Samenstellen tekst voor popupvenstertje.
// -----------------------------------------------------------------
function HeleNaam(mnummer)
{
 schaalletter = "<FONT SIZE=-2><SPAN><SUP>1</SUP>/<SUB>";
 helenaam = "<FONT COLOR=maroon>"+mnummer+"</FONT>&nbsp;&nbsp;"+p.merk_echt+" "+p.naam+" "+p.ejaar;
 helenaam += (p.schaal != ""?"&nbsp;"+schaalletter+p.schaal+"</SUB></FONT> ":"");

  											 // Als schaal aanwezig, dan vermelden.
 btk = p.bod.length;						 // Als bedrag genoemd dan erbij.
 if (btk > 3) 
    if ((p.bod.substring(0,1) != "#") 
	   && (p.bod.substring(0,1) != "-"))
	   helenaam += " <FONT COLOR=red>"+p.bod+"</FONT> "

 helenaam += (p.materiaal == "metal"?"":"<FONT COLOR=green>"+p.materiaal+"</FONT>&nbsp;&nbsp;");
 											 // Als geen metaal, dan vermelden.

 return helenaam;
};


// -----------------------------------------------------------------
// Funktie Cammetjes
// Rijtje cameraplaatjes.
// q = het object.
// -----------------------------------------------------------------
function Cammetjes(q)
{
 crij ="";
 cpg = "<IMG SRC="+basis+"plaat/camklein.gif><br>";
 if (q.aantal > 0)
    {
	 crij = "<br>";
	 for (j=0; j<q.aantal;j++) crij += cpg;
	};
 return crij	
};


// -----------------------------------------------------------------
// Funktie PrintModelPic voor model-pagina's
// Duimnageltje ipv tekst.
// -----------------------------------------------------------------
function PrintModelPic(nr, subdir, hoogte)
{
 if (typeof hoogte == 'undefined') hoogte = 60;
 if (typeof(subdir) == 'undefined') subdir = 0;

 var p = Mm(mg[nr]);

 // Als object met dat nummer niet bestaat.
 if (typeof(p) == 'undefined')
    {alert("Nummer "+nr+" bestaat niet!"); return false};

 mpl = numplaat(nr, subdir);
 mw = p.modelmerknr;
 mdm = mb[mw]

 helenaam = HeleNaam(nr);
 vaknaam = helenaam;
 vaknaam += Cammetjes(p);          // Evenveel camera-plaatjes als foto's.
 sbod = p.bod;                     // Kan ook op- en aanmerkingen zijn.
 if (sbod.substring(0,1) == "-") sbod = "";
                                   // - als eerste teken, dan aantekening.
								   // Niet laten zien.

 kompleet = helenaam+"<FONT COLOR=gray>"+mdm.bnaam+" "+p.modelnr+"<BR>"+p.opmerk;
 
 if (p.opmerk.length > 0) helenaam += "<FONT COLOR=black><BR>more...";

// achtkleur = "#ccccff";           // Paarsig blauw.
 if ((sbod != "") && (sbod.indexOf("NA") == -1) && (sbod.substring(0,1) != "#")) achtkleur = "yellow";
                      				// Alles wat niet NA of # heeft of een aantekening
									// heeft (- voorop) gele achtergrond.

 // -------------------------------------------------

 document.write("<TD><SPAN><A HREF=", apo, "javascript:mplaat('", mpl, "', '", kompleet, "', '", p.aantal, "', '", sbod, "')", apo);
 document.write(" OnMouseOver=", apo, "Plaatje('", mpl, ".png", "', 'pic');");
// document.write(" return overlib('", vaknaam, "', STICKY, FIXX, 10, FIXY, 320, FGCOLOR, '", achtkleur, "')", apo);
 document.write(" pltekst('"+vaknaam+"')", apo, ">");
// document.write(" OnMouseOut='nd()'>");

 document.write("<IMG SRC='"+mpl+".png"+"' HEIGHT="+hoogte+" BORDER=0></A></TD>");
};


// ==============================================================
// Neerzetten komplete pagina.
// ==============================================================
function MPagina(reeks, vorm, plaatjes, subdir)
{
  if (typeof plaatjes == 'undefined') plaatjes = 1;

  for (l = 0; l < reeks.length; l++) PrintModel(reeks[l], vorm, subdir);

  if (plaatjes == 1) duimpjes(reeks, 60, subdir);     // Rij plaatjes.
 };


// ==============================================================
// Rijtje thumbnails.
// ==============================================================
function duimpjes(reeks, hoogte, subdir)
{
 if (typeof hoogte == 'undefined') hoogte = 60;

 document.write("</TR></TABLE>");
 
 document.write("<br><TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD ALIGN=right>");
 document.write("<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0><TR>");
 for (l=0;l<reeks.length;l++)
    {
     nr = reeks[l];
     PrintModelPic(nr, subdir, hoogte);
    };
 document.write("</TR></TABLE></TD></TR></TABLE>");
};
// ----------------------------------------------------------------------



// ==============================================================
// Neerzetten en maken van een plaatjes-window
// ==============================================================
function mplaat(pic, tekst, aantal, bod)
// Variant op plaat uit foto.js.

{
 var letter = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m"];

 sbreedte = screen.width - 10;
 shoogte = screen.height - 50;
 sstuur = "toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=yes,resizable=0,width=" + sbreedte +",height=" + shoogte  +",top=0,left=0";

 var win = window.open("", "win", sstuur);
      with (win.document) {
    open("text/html", "replace");
    writeln("<HTML><HEAD><TITLE>"+tekst+"</TITLE>");
    writeln("<SCRIPT LANGUAGE=JavaScript SRC='"+basis+"java/vita.js'></SCRIPT>");
    writeln("<LINK REL=stylesheet HREF='"+csstijl+"' TYPE='text/css'>");
    writeln("</HEAD>");

    writeln("<BODY"+achtergrond+" OnBlur='self.close();' OnClick='self.close()'>");
//    writeln("<BODY"+achtergrond+">");
    writeln("<CENTER>");

    writeln("<TABLE BORDER=0 CELLPADDING=3 WIDTH=95%>");

    writeln("<TR><TD><b><FONT SIZE=+1>"+tekst+"</FONT></b></TD>");
    writeln("<TD VALIGN=top ALIGN=right><SPAN>"+pic+"<BR>");
    writeln("<FONT COLOR=gray>Click <FONT COLOR=red>anywhere</FONT> to close.</TD></TR>");
	
    // ---------------------------------------------------------------
    // Het default plaatje is bv: m00750.jpg. 320x240 pix
    // Er is dan geen <aantal> meegegeven, hetgeen hier aankomt als
    // aantal = 0. Bij klikken op de naam komt dit plaatje vergroot.
    // Meer plaatjes, die dan 640x480 (of beter) zijn komen als er
    // wel aantal meegegeven is. Het originele (laag resolutie) plaatje
    // wordt dan niet vertoond.
    // In het geval van eenzelfde plaatje in lage en hoge resolutie, geef
    // dan aantal=1 mee. laag is dan m.....jpg en hoog m....a.jpg
    // Kortom: aantal is het aantal high-res plaatjes.
    // ---------------------------------------------------------------
	wp = subdirzoek();
    if (aantal == 0)                   // Alleen het default plaatje, bv m00750.jpg.
        {
		 pic += ".png";

         writeln("<TR><TD ALIGN=middle VALIGN=center COLSPAN=2>");
         writeln('<IMG SRC='+apo+wp+pic+apo+' HEIGHT=500 ALT="'+aantal+' picture(s)" class="shadow" rel="gray"></TD></TR>');
        }
    else							
     for (i=0; i<aantal; i++)
        {
         ps = pic+letter[i]+".jpg";
         writeln("<TR><TD ALIGN=middle VALIGN=center COLSPAN=2>");
         writeln('<IMG SRC='+apo+wp+ps+apo+' BORDER=0 class="shadow" rel="gray"></TD></TR>');
		 // Bij meer plaatjes de originele grootte gebruiken.
        };

    writeln("</TABLE>"); 

    writeln("<TABLE BORDER=0 CELLPADDING=5 WIDTH=95%><TR>");	
    if (bod.substring(0,1) == "#")
		{	
	     naarn = bod.substring(1,50)			  
	   	 ep = bod.indexOf("€");		  	  
   	     naarn = ep>-1?bod.substring(1, ep):naarn;
  	     writeln("<TD><FONT COLOR=gray>", naarn, "</TD>");
	    };

	writeln("<TD ALIGN=right><SPAN>");
    writeln(" <A HREF=#dummy onClick="+apo+"javascript:window.print(); return false;"+apo+">");
    writeln("<IMG SRC='"+basis+"plaat/print.gif' BORDER=0></A></TD></TR>");
    writeln("</TABLE>"); 
   
    writeln("</BODY></HTML>");
    close();}
    }



// ==============================================================
// Plaatje uit nummer halen.
// msubd voor vermelding subdir ervoor:
// 0 = niet
// 1 = alleen subdir
// 2 = ../subdir/ (Voor vanuit een lagere map).
// ==============================================================
function numplaat(mmr, msubd)
{
 if (typeof msubd == 'undefined') msubd = 0;

 mpl = mmr+"x";
 mpl = mpl.substring(0, mpl.length-1);
                                  // x toevoegen en meteen weer weghalen om er
                                  // een string van te maken. Niet numeriek.

 while (mpl.length < 5) {mpl = "0"+mpl};
                                  // Nullen ervoor totdat 5 cijfers lang.
 mpl = "m"+mpl;                   // Naam zonder .jpg

 if ((msubd == 1) || (msubd == 2))
    {
     p = Mm(mg[mmr]);
     mw = p.modelmerknr;
     sm = mb[mw];
     mpl = sm.bsub+"/"+mpl;
     if (msubd == 2) mpl = "../"+mpl;
    };

 return mpl;
};




// ==============================================================
// Uit tekstregel object van type Brand maken.
// ==============================================================
function mkb(zin)
{
 deel = zin.split("*");
 p = new Brand(deel[0], deel[1], deel[2], deel[3], deel[4]);
 return p
};


// ==========================================================
// Aanmaken van een instance van het object Brand (modelmerk)
// merk echt*naam*ejaar*jaar*modelmerk*modelnr*schaal*opmerk*aantal
// ==========================================================
function Brand(bnaam, bsub, bplaat, bgroot, bsite)
{
 if (typeof bplaat == 'undefined') bplaat = "";
 if (typeof bgroot == 'undefined') bgroot = 0;
 if (typeof bsite == 'undefined') bsite = "";

 this.bnaam = bnaam;
 this.bsub = bsub;
 this.bplaat = bplaat;
 this.bgroot = bgroot;
 this.bsite = bsite;
 return this;
};


// ==============================================================
// Naam modelmerk uit nummer halen.
// ==============================================================
function modmerk(nr)
{
 if (nr > 0)
   {
    p = mb[nr]
    modelmerk = p.bnaam;
   }
 else
    modelmerk = "";
 return modelmerk;
};


// ==============================================================
// Onderste stukje van een autootjespagina.
// Als cat = 1, dan aanroep catalogus erbij
// ==============================================================
function PagOnder(tekst, cat)
{
 if (tekst == undefined) tekst = "";
 if (cat == undefined) cat = 0;
 
 document.write("</CENTER><BR><HR>");
 document.write("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 WIDTH=100%>");

 document.write("<TD ROWSPAN=2><SPAN><A HREF='javascript:window.print()'>");
 document.write("<IMG SRC='"+basis+"plaat/print.gif' BORDER=0 ALT='Print'></A>");
 
 if (cat == 1)
    {
 	 aanroep = location.search.substring(1,100)+"&bronpag="+terugpag;
     document.write(" <A HREF='lijst.htm?"+aanroep+"'>");
	 document.write("<IMG SRC='"+basis+"plaat/doc.gif' BORDER=0 ALT=Çatalogue'></A>");
	};
 if (cat == 2)
    {
 	 aanroep = location.search.substring(1,100);
     document.write(" <A HREF='npage.htm?"+aanroep+"'>");
	 document.write("<IMG SRC='"+basis+"plaat/doc.gif' BORDER=0 ALT=Çatalogue'></A>");
	};
	
 document.write("</TD><TD><SPAN>"+tekst+"</TD>");
 
 document.write("<TD ALIGN=right WIDTH=150><SPAN><FONT SIZE=-1>");
 document.write("<FONT COLOR=red>*</FONT> or <FONT COLOR=blue>*</FONT> = Not for sale</TD></TR>");
 document.write("<TR><TD>&nbsp;</TD><TD ALIGN=right BGCOLOR=yellow><FONT SIZE=-1>yellow = For sale</TD></TR>");
 
 document.write("</TABLE>");
}


function pltekst(tekst)
{
 document.getElementById('autotxt').innerHTML = tekst;
}
// End -->