/* background, left column */;
function top() { with (document) {
	writeln('</head><body class="pitp"><div class="li">'); } }
/* right column */;
function mid() { with (document) { writeln('</div><div class="ri">'); } }
/* end of page */;
function bot(x) { with (document) { 
	if (x==null) x=''; if (x=='') x='itp'; if (x.length==3) pho(x); 
	if (x.length!=1) {  
		writeln('<p class="c"><a href="pitphome.htm">'+
		'<img border="0" class="ico" src="pitpcup.gif" '+ 
		'onmouseover="status=\'back to the party\'; return true;" '+
		'onmouseout="status=\'\'; return true;" /></a></p>'); }
	writeln('</div><div class="ri">'); 
	if (x!='co') tools(); writeln('</div></body></html>'); } }
/* tool bar in right column */;	
function tools() { with (document) { var i=0; var j=''; var tool=new Array();
	tool[i]="penelope~Penelope greets you~"; i++;
	tool[i]="moon~the same side for all of us"; i++;
	tool[i]="stardust~Gary Stardust has something to say"; i++;
	tool[i]="heart~The cup is half full"; i++;
	tool[i]="saphron~saphron will be back!"; i++;
	writeln('<p><br /><br /></p>'); 	
	for (i=0; i<tool.length; i++) { j=tool[i].split('~');
		writeln('<p><a href="'+j[0]+'.htm">'+
		'<img src="'+j[0]+'.gif" class="tool" '+
		'alt="" class="ico" title=""'+
		'onmouseover="status=\''+j[1]+'\'; return true;" '+
		'onmouseout="status=\'\'; return true;" />'+
		'</a><br /><br /><br /></p>'); } } }
/* random positive integer: default range is 0 to 999 */;
function rnd(lo,hi) { var i=0;
	if (isNaN(lo)) lo=0; else lo=Math.floor(lo);
	if (isNaN(hi)) hi=999; else hi=Math.floor(hi);
	if (lo<0) lo=Math.abs(lo); if (hi<0) hi=Math.abs(hi);
	if (lo>hi) { i=lo; lo=hi; hi=i; }
	if (lo==hi) { if (lo==0) hi=999; else lo=0; }
	return Math.round(Math.random()*(hi-lo))+lo; }
/* return nth word in a string */;
function word(n,str) { if (typeof n==NaN) return '';
	else var i=words(str); if (i<n) return '';
	else { i=str.split(' '); return i[n-1]; } } 
/* count words in a string */;
function words(str) { if ((str=='')||(str==null)) return 0;
else { i=str.split(' '); return i.length; } }
/* today's moon phase */;
function moon() {  
	var i=0; var j=0; var k=0; var l=0; var m=0; var n=0; var o=0;  
/* fetch current date information */; i=new Date(); 
	var tyy=i.getFullYear(); var tmm=i.getMonth(); var tdd=i.getDate();   
/* where's the moon? */;
	var b=0; var c=0; var e=0; var jd=0; var y=tyy; var m=tmm+1; var d=tdd;
	if (m<3) { y--; m+=12; }
	c=365.25*y; e=30.6*m; jd=c+e+d-694039.09; 	jd/=29.5305882;  
	var i=jd%1; var b=jd-i; jd-=b; b=jd*8+0.5; b=b&7; ma=new Array(8); 
	ma[0]="New"; ma[1]="Waxing Crescent"; ma[2]="Waxing Half";
	ma[3]="Waxing Gibbous"; ma[4]="Full"; ma[5]="Waning Gibbous";
	ma[6]="Waning Half"; ma[7]="Waning Crescent"; var lun=new Array(2);
	lun[0]=ma[b]+' Moon'; lun[1]='moon'+b+'.jpg';
	with (document) {
		writeln('<p class="c"><img alt="" height="50" '+
		'src="'+lun[1]+'" title="" width="50" /><br />'+lun[0]+'</p>'); } }
/* load a new url */;
function lnp(way) { way+='.htm'; 
	parent.location.href=way; return true; }
/* display random photo */;
function pho(way) { i=pls(way); j=i.split('~');
	pic(way+'0'+j[0],'enjoy your stay',j[1],'','','c',j[2]); }
/* display all photos in a group */;
function pha(way) { i=pls(way,'all'); for (j=0; j<i.length; j++) { 
		k=i[j].split('~'); pic(way+'0'+k[0],'art',k[1],'','','',k[2]); } }
/* imbed an image */;
function pic(im,al,ht,wd,um,ac,bh) { with (document) { var j=''; 
	var ar=false; var dr=false; var ce=false; var cl=' '; var fs=''; var fe='';  
	if (ac.indexOf('a')>-1) ar=true; if (ac.indexOf('d')>-1) dr=true; 
 	if ((ar)||(dr)) { if (ac.length>1) ac=ac.substring(1); }
	if (ac=='c') ce=true; 	if ((ac=='c')||(ac=='l')||(ac=='r')) cl=' class="'+ac+'"'; 
	var bp=false; if ((bh!='')&&(bh!=null)) { bp=true; wd=100; i=im.indexOf('.');
		if (i<0) { var bi=im+'l.jpg'; im+='.jpg'; }
		else var bi=im.substring(0,i)+'l'+im.substring(i);  
		writeln('<a href="javascript:pig(\''+bi+'\',\''+al+'\','+bh+',455)";>'); }
	if (dr) j=im+'1.gif'; else j=im; if (ce) writeln('<p class="c">');
	var i='<img src="'+j+'" alt="'+al+'"'+cl+'height="'+ht+'" title="'+al+'"';
	j=''; i+=' width="'+wd+'"'; if (fs!='') j=fs;
	if (j!='') { if (j.indexOf('.')<0) j+='.htm';  
 		i+=' onclick="javascript:lnp(\''+j+'\'); return true;"'; } 
    if (ar) i+=' onmouseover="javascript:arf(\''+im+'\',\''+al+'\')"';
	if (dr) { k=im+'1.gif'; l=im+'2.gif';  
		i+=' onmouseover="javascript:drf(\''+k+'\',\''+l+'\',\''+al+'\')"';
		i+=' onmouseout="javascript:drf(\''+l+'\',\''+k+'\',\''+al+'\')" />'; }
	if ((!ar)&&(!dr)) i+=' onmouseover="status=\''+al+'\'; return true;" ';
	if (!dr) i+=' onmouseout="status=\'\'; return true;" />'; 
	if ((bp)||(fs!='')) i+='</a>'; if (ce) i+='</p>'; writeln(i); } } 
/* reload animated image */;
function arf(im,al) { var i=0; var j=0; with (document) { 
	for (i=0; i<images.length; i++) { 
		if ((images[i].src.indexOf(im)>=0)&&(images[i].alt.indexOf(al)>=0))
		{ j=i; break; } }
	images[j].src=im; self.status=al; return true; } }
/* show a usually enlarged picture in a separate window */;
function pig(im,al,ht,wd) { with (document) { 
	if (wd>=screen.width) wl=0; else wl=Math.floor((screen.width-wd)/2);
	if (ht>=screen.height) wt=0; else wt=Math.floor((screen.height-ht)/2);
	var bn=navigator.appName; var bv=parseInt(navigator.appVersion);
	var nav=((bn.indexOf('Netscape')!=-1)&&(bv<=4)); var wf='';
	if (nav) { wf='height='+ht+',width='+wd+',screenX='+wl+',screenY='+wt;
		wf+=',innerHeight='+ht+',innerWidth='+wd; }
	else wf='height='+ht+',width='+wd+',left='+wl+',top='+wt;
	var wn=window.name; var slp=window.open("","",wf)
	if (slp==null) alert("Can't open the separate window.");
	else { slp.document.open('text/html','height="'+ht+'",width="'+wd+'"');  
		slp.document.writeln('<html><head><title>'+al+'</title>'+
			'<meta http-equiv="Page-Enter" content="revealtrans\(duration=1, transition=14\)" />'+
			'<link rel="stylesheet" type="text/css" href="pitp.css" /></head>'+
			'<body class="fl"><img src="'+im+'" alt="" border="0" class="fl" '+
 			'height="'+ht+'" hspace="0" style="margin: 0;" title="" '+
			'valign="left" vspace="0" width="'+wd+'" /></body></html>');
		slp.document.close(); } } }
/* insert random site graphic */;
function pls(way,ral) { var i=0; var j=0; rp=new Array(); switch(way) {
	case 'itp': rp[i]='03~94~428'; i++; rp[i]='04~67~304'; i++; rp[i]='05~151~689'; i++;
		rp[i]='07~131~597'; i++; rp[i]='08~39~177'; i++; 
		rp[i]='10~150~683'; i++; rp[i]='11~134~611'; i++; rp[i]='12~116~529'; i++;
		rp[i]='13~88~399'; i++; rp[i]='14~71~324'; i++; rp[i]='15~78~355'; i++;
		rp[i]='16~129~588'; i++; rp[i]='17~106~482'; i++; rp[i]='18~133~604'; i++;
		rp[i]='19~76~348'; i++; rp[i]='20~130~591'; i++; rp[i]='21~147~668'; i++;
		rp[i]='22~125~567'; i++; rp[i]='23~146~666'; i++; rp[i]='24~61~276'; i++;
		rp[i]='25~64~290'; i++; rp[i]='26~124~565'; i++; rp[i]='27~131~596'; i++;
		rp[i]='28~83~378'; i++; rp[i]='29~105~478'; i++; rp[i]='30~55~252'; i++;
		rp[i]='31~122~558'; i++; rp[i]='32~61~278'; i++; rp[i]='33~66~302'; i++;
		rp[i]='34~69~313'; i++; rp[i]='35~52~237'; i++; rp[i]='36~142~646'; i++;
		rp[i]='37~139~634'; i++; rp[i]='38~122~556'; i++; rp[i]='39~219~995'; i++;
		rp[i]='40~223~1016'; i++; rp[i]='41~98~446'; i++; rp[i]='42~110~501'; i++;
		rp[i]='43~135~613'; i++; rp[i]='44~133~607'; i++; rp[i]='45~53~242'; i++;
		rp[i]='46~116~530'; i++; rp[i]='47~162~738'; i++; rp[i]='48~106~422'; i++;
		rp[i]='49~42~193'; i++; rp[i]='50~74~193'; i++; rp[i]='51~73~333'; i++;
		rp[i]='52~138~628'; i++; rp[i]='53~137~624'; i++; break; 
	case 'sap': rp[i]='01~153~694'; i++; rp[i]='02~67~303'; i++;
		rp[i]='03~67~306'; i++; break; 
	case 'thr': rp[i]='01~150~682'; i++; rp[i]='02~150~682'; i++;
		rp[i]='03~150~682'; i++; rp[i]='04~67~303'; i++; rp[i]='05~150~682'; i++;
		rp[i]='06~150~682'; i++; rp[i]='07~150~682'; i++; break;
	case 'two': rp[i]='01~138~627'; i++; rp[i]='02~132~601'; i++;
		rp[i]='03~131~594'; i++; break;
	default: break; }
	if ((ral=='')||(ral==null)) { j=rnd(0,i-1); return rp[j]; }
	else return rp; }


	
