// CREDITS:
// Moon Phase Clock
// by Urs Dudli and Peter Gehrig 
// Copyright (c) 2002 Peter Gehrig and Urs Dudli. All rights reserved.
// Permission given to use the script provided that this notice remains as is.
// Additional scripts can be found at http://www.24fun.com/fast/index.html
// info@24fun.com
// 6/25/2002

// IMPORTANT: 
// If you add this script to a script-library or a script-archive 
// you have to insert a link to http://www.24fun.com
// right into the webpage where the script will be displayed.

var pastdate
var pastyear=2002
var pastmonth=5
var pastday=11
var nowdate
var c
var pausenormal=50
var pausenowmoon=5000
var moonday
var i_mooncycle=1
var mooncycle=29.530589

var picture = new Array("moonitems/smoon_0.png","moonitems/smoon_1.png","moonitems/smoon_2.png",
                        "moonitems/smoon_3.png","moonitems/smoon_4.png","moonitems/smoon_5.png",
                        "moonitems/smoon_6.png","moonitems/smoon_7.png","moonitems/smoon_8.png",
                        "moonitems/smoon_9.png","moonitems/smoon_10.png","moonitems/smoon_11.png",
                        "moonitems/smoon_12.png","moonitems/smoon_13.png","moonitems/smoon_14.png",
                        "moonitems/smoon_15.png","moonitems/smoon_16.png","moonitems/smoon_17.png",
                        "moonitems/smoon_18.png","moonitems/smoon_19.png","moonitems/smoon_20.png",
                        "moonitems/smoon_21.png","moonitems/smoon_22.png","moonitems/smoon_23.png",
                        "moonitems/smoon_24.png","moonitems/smoon_25.png","moonitems/smoon_26.png",
                        "moonitems/smoon_27.png","moonitems/smoon_28.png","moonitems/smoon_29.png")

var imgpreload=new Array()
for (i=0;i<=picture.length;i++) {
	imgpreload[i]=new Image()
	imgpreload[i].src=picture[i]
}

pastdate=new Date(pastyear,pastmonth,pastday,0,0,0)
nowdate=new Date()
resultdays=(Date.parse(nowdate)-Date.parse(pastdate))/1000/60/60/24
moonday=resultdays/mooncycle
moonday=(resultdays/mooncycle)-(Math.floor(resultdays/mooncycle))
moonday=Math.round(mooncycle*moonday)
c="<img src='moonitems/smoon_"+moonday+".png' name='moonimg'>"

window.onload=animatemoon

function animatemoon() {
	if (i_mooncycle==moonday || (i_mooncycle==1 && moonday==0)) {
		var pause=pausenowmoon
	}
	else {
		var pause=pausenormal
	}
	var mimg="moonitems/smoon_"+i_mooncycle+".png"
	document.moonimg.src=mimg
	i_mooncycle++
	if (i_mooncycle>29) {i_mooncycle=1}
	var timer=setTimeout("animatemoon()",pause)
}